Ì € 2
main
[number]
*(R)RG[rg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 5 PINT R rg
category 10 FREE L RAD.CAT
days.to.keep 4 PINT R *(R)RG[rg]B|4
description 50 FREE L *(R)RG[rg]B|1
end.time 9 PINT R *(R)RG[rg]|9
fm.date 8 DATE L *(R)RG[rg]|8
fm.days 4 PINT R *(R)RG[rg]|7
from 12 FREE L
from.1 12 FREE L *(R)RG[rg]A|3
from.2 12 FREE L *(R)RG[rg]A|5
from.3 12 FREE L *(R)RG[rg]A|7
from.age.ext 9 FREE L VAL=%Z.age.format.strip(@from.age)
from.date 8 DATE L *(R)RG[rg]A|1
from.ord.date.ext 5 FREE L *(R)RG[rg]B|2
new.page 1 CHOICE L *(R)RG[rg]B|12
orders.considered 7 PINT R *(R)RG[rg]|1
orders.rejected 7 PINT R VAL=@RAD.SRCH.orders.considered-@RAD.SRCH.orders.saved
orders.saved 7 PINT R *(R)RG[rg]|2
procedure 10 FREE L RAD.PROC
profile 10 FREE L RAD.SRCH.DICT *(R)RG[rg]A|0
profile.active 1 YN L *(R)RG[rg]B|0
pt.types 3 CHOICE L *(R)RG[rg]B|11
renumber 1 YN L *(R)RG[rg]B|13
restart.date 8 DATE L *(R)RG[rg]|3
restart.order 10 URN L RAD.ORD *(R)RG[rg]|4
sexes 3 CHOICE L *(R)RG[rg]B|7
sort.hdr.1 70 FREE L *(R)RG[rg]SH|0
sort.hdr.2 70 FREE L *(R)RG[rg]SH|1
sort.hdr.3 70 FREE L *(R)RG[rg]SH|2
sort1 10 CHOICE L *(R)RG[rg]B|8
sort2 10 CHOICE L *(R)RG[rg]B|9
sort3 10 CHOICE L *(R)RG[rg]B|10
status 10 CHOICE L *(R)RG[rg]|0
stop.user 10 FREE L MIS.USER *(R)RG[rg]|10
thru 12 FREE L
thru.1 12 FREE L *(R)RG[rg]A|4
thru.2 12 FREE L *(R)RG[rg]A|6
thru.3 12 FREE L *(R)RG[rg]A|8
thru.age.ext 6 FREE L VAL=%Z.age.format.strip(@thru.age)
thru.date 8 DATE L *(R)RG[rg]A|2
thru.ord.date.ext 5 FREE L *(R)RG[rg]B|3
time 9 PINT R *(R)RG[rg]|5
user 10 FREE L MIS.USER *(R)RG[rg]|6
who 30 FREE L VAL=(%Z.date.out(%Z.date.in.magic(@RAD.SRCH.time^TIM))
VAL=,%Z.time.text(TIM),@RAD.SRCH.user)
who.end 30 FREE L VAL=IF{@RAD.SRCH.end.time^TIM (%Z.date.out(%Z.date.in.
VAL=magic(TIM)),%Z.time.text(TIM),@stop.user)}
yn 1 YN L
Ì € 2
orders
[number, key.1,key.2,key.3,order.number]
*(R)RG[rg]R[rg1,rg2,rg3,roN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
key.1 30 FREE L rg1
key.2 30 FREE L rg2
key.3 30 FREE L rg3
order.number 9 FREE L roN
order 10 URN L RAD.ORD *(R)RG[rg]R[rg1,rg2,rg3,roN]|0
Ì € 2
queries
[number, query]
*(R)RG[rg]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
Ì € 2
responses
[number,query, response]
*(R)RG[rg]Q[ggv]R[ggvR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
response 30 QRY.RESP L ggvR
Ì € 2
selections
[number, sel.q]
*(R)RG[rg]S[rgSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sel.q 2 PINT R rgSQ
sel.action 10 CHOICE L *(R)RG[rg]S[rgSQ]|2
sel.type 4 FREE L *(R)RG[rg]S[rgSQ]|0
sel.type.name 30 FREE L VAL=/SEL[@sel.type]
sel.value 20 FREE L *(R)RG[rg]S[rgSQ]|1
|
|
| | |