Ì i 2
adm.patient.billing.dates (main)
[urn,charge.date]
*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
adm.patient.charges (charges)
[urn,charge.date, charge.seq.no]
*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 *AB[aa,adt,chq]|3
charge.credit 1 YN L *AB[aa,adt,chq]|2
charge.eff.date 8 DATE L *AB[aa,adt,chq]|0
charge.pt.obs 1 YN L *AB[aa,adt,chq]|5
charge.pt.service 10 FREE L *AB[aa,adt,chq]|6
charge.pt.type 3 FREE L *AB[aa,adt,chq]|4
charge.type 25 FREE L *AB[aa,adt,chq]|1
date 8 DATE L
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
adm.patient.billing.index [facility,charge.date,urn]
bill.index :ABI[gqb,adt,aa]
|
|
|