Ì i 2
ss.pick.list (main)
[op,pic]
&SSPL[ssop,pic]
Field Name Len Dat Typ J DPM Offset/Local/VAL
op 15 FREE L SS.OP ssop
pic 10 FREE L pic
active 1 YN L &SSPL[ssop,pic]|0
dr 10 FREE L &SSPL[ssop,pic]|5
dr.out 10 FREE L MIS.DOC.DICT &SSPL[ssop,pic]|4
last.update 10 PINT R &SSPL[ssop,pic]UPD
name 30 FREE L &SSPL[ssop,pic]|1
spec 10 FREE L &SSPL[ssop,pic]|3
spec.out 10 FREE L MIS.SVC.DICT &SSPL[ssop,pic]|2
Ì € i 2
ss.pick.list.numbers (numbers)
[op,pic, number]
&SSPL[ssop,pic]N[pn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 2 URN L pn
edit 1 YN L &SSPL[ssop,pic]N[pn]|1
number.canned.text 10 FREE L SS.TEXT &SSPL[ssop,pic]N[pn]|0
text.exists 0 YN L VAL=IF{+@t.text[op,pic,number,""] "EXIST"_@Set.attr(@Z
VAL=.color.labels1)_(" ":7)_@Set.attr(@Z.color.data1);
VAL="DO NOT EXIST"}
text.name 30 FREE L VAL=IF{@SS.TEXT.description[@number.canned.text];@numb
VAL=er.canned.text}
Ì € i 2
ss.pick.list.numbers.text (text)
[op,pic,number, pic.line]
&SSPL[ssop,pic]N[pn]T[pl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pic.line 3 URN L pl
pic.text 79 FREE L &SSPL[ssop,pic]N[pn]T[pl]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
ss.pic.specialty.and.doctor.x [spec,dr,op] = pic
spec.dr.x &SSPLX[ggs,ggg,ssop]
|
|
| |