Ì i 2
main
[client]
&(G)GGG[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client 10 FREE L ggg
branch 0 FREE L VAL=IF{@Z.lastkey'=@Z.special.fcn;@.new 99;%Z.branch(@
VAL=Pgm.trans("%LAB.R.CLIENT.ee"))^@.new^@.new.ext ""^
VAL=@.old^@.old.ext,@Z.enter;99}^@Z.lastkey
lab.pt.recall 1 YN L VAL=@MIS.DOC.lab.pt.recall
mnemonic 10 FREE L MIS.DOC
name 30 FREE L VAL=@MIS.DOC.name
urn 10 FREE L MIS.DOC
Index Files Subscripts/Physical Base
category.x [category,client]
&(S)GGGLC[sru,ggg]
code.x [code] = client
&(S)GGGLA[srcCD]
fee.sch.x [fee.schedule,client]
&(S)GGGLF[srm,ggg]
territory.x [territory,client]
&(S)GGGLT[srd,ggg]
|
|