Ì 2
main
[number]
*(T1)TG[tg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 5 PINT R tg
...use.me 0 FREE L *(T1)TG[tg]A|3
act.inact.both 1 CHOICE L *(T1)TG[tg]B|5
days.to.keep 4 PINT R *(T1)TG[tg]B|4
description 50 FREE L *(T1)TG[tg]B|1
end.time 9 PINT R *(T1)TG[tg]|9
fm.date 8 DATE L *(T1)TG[tg]|8
fm.days 4 PINT R *(T1)TG[tg]|7
from 12 FREE L
from.1 12 FREE L *(T1)TG[tg]A|4
from.2 12 FREE L *(T1)TG[tg]A|6
from.3 12 FREE L *(T1)TG[tg]A|8
from.age.ext 9 FREE L VAL=%Z.age.format.strip(@from.age)
from.date 8 DATE L *(T1)TG[tg]A|1
from.days 4 INT R *(T1)TG[tg]B|2
from.dose 8 DEC R *(T1)TG[tg]B|12
med 10 FREE L PHA.DRUG
new.page 1 CHOICE L *(T1)TG[tg]B|15
profile 10 FREE L PHA.SRCH.DICT *(T1)TG[tg]A|0
profile.active 1 YN L *(T1)TG[tg]B|0
pt.types 3 CHOICE L *(T1)TG[tg]B|14
renumber 1 YN L *(T1)TG[tg]B|16
restart.date 8 DATE L *(T1)TG[tg]|3
restart.rx 10 URN L PHA.RX *(T1)TG[tg]|4
rxs.considered 7 PINT R *(T1)TG[tg]|1
rxs.rejected 7 PINT R VAL=@PHA.SEARCH.rxs.considered-@PHA.SEARCH.rxs.saved
rxs.saved 7 PINT R *(T1)TG[tg]|2
sexes 3 CHOICE L *(T1)TG[tg]B|8
sort.hdr.1 70 FREE L *(T1)TG[tg]SH|0
sort.hdr.2 70 FREE L *(T1)TG[tg]SH|1
sort.hdr.3 70 FREE L *(T1)TG[tg]SH|2
sort1 10 CHOICE L *(T1)TG[tg]B|9
sort2 10 CHOICE L *(T1)TG[tg]B|10
sort3 10 CHOICE L *(T1)TG[tg]B|11
status 10 CHOICE L *(T1)TG[tg]|0
stop.user 10 FREE L MIS.USER *(T1)TG[tg]|10
thru 12 FREE L
thru.1 12 FREE L *(T1)TG[tg]A|5
thru.2 12 FREE L *(T1)TG[tg]A|7
thru.3 12 FREE L *(T1)TG[tg]A|9
thru.age.ext 6 FREE L VAL=%Z.age.format.strip(@thru.age)
thru.date 8 DATE L *(T1)TG[tg]A|2
thru.days 4 INT R *(T1)TG[tg]B|3
thru.dose 8 DEC R *(T1)TG[tg]B|13
time 9 PINT R *(T1)TG[tg]|5
user 10 FREE L MIS.USER *(T1)TG[tg]|6
who 30 FREE L VAL=(%Z.date.out(%Z.date.in.magic(@PHA.SEARCH.time^TIM
VAL=)),%Z.time.text(TIM),@PHA.SEARCH.user)
who.end 30 FREE L VAL=IF{@PHA.SEARCH.end.time^TIM (%Z.date.out(%Z.date.i
VAL=n.magic(TIM)),%Z.time.text(TIM),@stop.user)}
yn 1 YN L
Ì € 2
queries
[number, query]
*(T1)TG[tg]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
Ì € 2
responses
[number,query, response]
*(T1)TG[tg]Q[ggv]R[ggvR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
response 30 QRY.RESP L ggvR
Ì € 2
rxs
[number, key.1,key.2,key.3,rx.number]
*(T1)TG[tg]R[tg1,tg2,tg3,trN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.1 30 FREE L tg1
key.2 30 FREE L tg2
key.3 30 FREE L tg3
rx.number 11 FREE L trN
rx 10 URN L PHA.RX *(T1)TG[tg]R[tg1,tg2,tg3,trN]|0
Ì € 2
selections
[number, sel.q]
*(T1)TG[tg]S[tgSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sel.q 3 PINT R tgSQ
sel.type 10 FREE L *(T1)TG[tg]S[tgSQ]|0
sel.type.name 30 FREE L VAL=/SEL[@sel.type]
sel.value 20 FREE L *(T1)TG[tg]S[tgSQ]|1
|
|
| | |