Ì i 2
lab.c.bill.code.dict (main)
[mnemonic]
&SRB[srb]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 10 FREE L srb
active 1 CHOICE L &SRB[srb]|0
bar.proc.alt.code.type 10 FREE L
bar.proc.mnemonic 10 FREE L
branch 0 FREE L VAL=IF{@Z.lastkey=@Z.special.fcn @Z.return^@Z.lastkey,
VAL=IF{@.new @Z.bell^#,"";"Y"'=@LAB.PARAM.bc.dict %Z.n
VAL=ot.conf("");%LAB.U.branch("LAB.C.BC.ee.S","LAB.C.B
VAL=C.file")^@.new^@.new.ext ""^@.old^@.old.ext;99^@Z.
VAL=lastkey}}
chg.rule 10 FREE L LAB.C.RULE &SRB[srb]|2
last.update 9 FREE L &SRB[srb]UPD
name 30 FREE L &SRB[srb]|1
Ì € i 2
lab.c.bill.code.alt.types (alt.code.types)
[mnemonic, alt.code.type]
&SRB[srb]AC[srbAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.code.type 10 FREE L srbAC
Ì € i 2
lab.c.bill.code.alt.codes (alt.codes)
[mnemonic,alt.code.type, alt.code.eff.date]
&SRB[srb]AC[srbAC]ED[srbED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.code.eff.date 8 DATE L srbED
alt.code 12 FREE L &SRB[srb]AC[srbAC]ED[srbED]|0
alt.desc 30 FREE L &SRB[srb]AC[srbAC]ED[srbED]|1
Ì € i 2
lab.c.bill.code.charges (charges)
[mnemonic, effective.date]
&SRB[srb]CH[srbD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
effective.date 8 DATE L srbD
allow.discount 1 YN L &SRB[srb]CH[srbD]|1
charge 9 MONEY R &SRB[srb]CH[srbD]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.bc.ef.dat.alt.cod.index [alt.code.eff.date,mnemonic]
eff.date.alt.code.x &SRBDA[srbED,srb]
lab.c.bc.eff.date.bc.index [effective.date,mnemonic]
eff.date.bill.code.x &SRBDB[srbD,srb]
|
|
| | |