Ì € i 2
main
[urn,charge.date]
*(A1)AB[aa,adt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L ADM.PAT aa
charge.date 8 DATE L adt
facility 10 FREE L MIS.FACILITY VAL=@ADM.PAT.facility
Ì € i 2
charges
[urn,charge.date, charge.seq.no]
*(A1)AB[aa,adt,chq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
charge.seq.no 2 PINT R chq
any.charges 1 YN L VAL=IF{+@ADM.BILL.charges[urn,charge.date,""] "Y";"N"}
charge.bill.code 10 FREE L *(A1)AB[aa,adt,chq]|3
charge.credit 1 YN L *(A1)AB[aa,adt,chq]|2
charge.eff.date 8 DATE L *(A1)AB[aa,adt,chq]|0
charge.pt.obs 1 YN L *(A1)AB[aa,adt,chq]|5
charge.pt.service 10 FREE L *(A1)AB[aa,adt,chq]|6
charge.pt.type 3 FREE L *(A1)AB[aa,adt,chq]|4
charge.type 25 FREE L *(A1)AB[aa,adt,chq]|1
date 8 DATE L
Index Files Subscripts/Physical Base
bill.index [facility,charge.date,urn]
?(A)ABI[gqb,adt,aa]
|
|
|