Ì i 2
main
[urn]
$(HF2)HFN[hfn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 5 PINT R hfn
archive.date 8 DATE L $(HF2)HFN[hfn]|10
bch.no.sent.to.bar 4 PINT R $(HF2)HFN[hfn]|12
cash.drawer 10 FREE L PRV.CASH.DRAWER$(HF2)HFN[hfn]|9
comment 30 FREE L $(HF2)HFN[hfn]|13
date 8 DATE L $(HF2)HFN[hfn]|1
date.sent.to.bar 8 DATE L $(HF2)HFN[hfn]|4
last.txn 3 PINT R $(HF2)HFN[hfn]|5
number 4 PINT R $(HF2)HFN[hfn]|0
practice 10 FREE L PRV.PRACTICE $(HF2)HFN[hfn]|2
purge.hold.date 8 DATE L $(HF2)HFN[hfn]|11
status 10 CHOICE L $(HF2)HFN[hfn]|3
status.time 10 PINT R $(HF2)HFN[hfn]|8
status.user 10 FREE L MIS.USER $(HF2)HFN[hfn]|7
total 9 SMONEY R $(HF2)HFN[hfn]|6
Ì € i 2
transactions
[urn, txn.urn]
$(HF2)HFN[hfn]T[hfnT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.urn 4 PINT R hfnT
chg.procedure 10 FREE L PRV.PROC $(HF2)HFN[hfn]T[hfnT]|2
patient 30 URN L PRV.PAT $(HF2)HFN[hfn]T[hfnT]|0
procedure 10 FREE L PRV.CR.PROC $(HF2)HFN[hfn]T[hfnT]|2
procedure.type 1 CHOICE L VAL=@PRV.CR.PROC.type[@procedure]#0
receipt.no 12 FREE L VAL=000000'$L(urn)_urn_"-"_txn.urn
service.date 8 DATE L $(HF2)HFN[hfn]T[hfnT]|1
txn.amount 9 SMONEY R $(HF2)HFN[hfn]T[hfnT]|3
txn.cd.screen 15 FREE L MIS.SCREEN VAL=@PRV.CR.PROC.cd.screen[@PRV.BATCH.procedure]
txn.comment 27 FREE L $(HF2)HFN[hfn]T[hfnT]|4
txn.enc 10 PINT R PRV.ENC $(HF2)HFN[hfn]T[hfnT]|7
txn.print.cd.screen 0 FREE L VAL=IF{%MIS.SCREEN.print.hl(@txn.cd.screen,^@transacti
VAL=ons.cds,"",45,"",@Z.rpt.font.cmd[""],@Z.rpt.font.c
VAL=md["b"]),""}
txn.ptr 12 PINT R $(HF2)HFN[hfn]T[hfnT]|6
txn.qty 4 PINT R $(HF2)HFN[hfn]T[hfnT]|8
txn.type 3 CHOICE L $(HF2)HFN[hfn]T[hfnT]|9
txn.user 10 FREE L MIS.USER $(HF2)HFN[hfn]T[hfnT]|5
Ì € i 2
transactions.cds.queries
[urn,txn.urn, txn.cd.query]
$(HF2)HFN[hfn]T[hfnT]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.cd.query 10 FREE L MIS.QUERY ggv
txn.cd.response 75 QRY.RESP L $(HF2)HFN[hfn]T[hfnT]CD[ggv]|0
Ì € i 2
transactions.cds.q.mult
[urn,txn.urn,txn.cd.query, txn.cd.query.mult.q]
$(HF2)HFN[hfn]T[hfnT]CD[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.cd.query.mult.q 2 PINT R ggvMQ
txn.cd.query.mult.resp 75 QRY.RESP L $(HF2)HFN[hfn]T[hfnT]CD[ggv]M[ggvMQ]|0
Ì € i 2
transactions.items
[urn,txn.urn, item.seq]
$(HF2)HFN[hfn]T[hfnT]I[hfnTI]
Field Name Len Dat Typ J DPM Offset/Local/VAL
item.seq 5 PINT R hfnTI
item.amount 9 SMONEY R $(HF2)HFN[hfn]T[hfnT]I[hfnTI]|1
item.enc 10 PINT R PRV.ENC $(HF2)HFN[hfn]T[hfnT]I[hfnTI]|0
item.post.ptr 12 FREE L $(HF2)HFN[hfn]T[hfnT]I[hfnTI]|2
Ì € i 2
transactions.items.procs
[urn,txn.urn,item.seq, proc.seq.no]
$(HF2)HFN[hfn]T[hfnT]I[hfnTI]P[hfnTP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
proc.seq.no 5 PINT R hfnTP
proc.amount 9 SMONEY R $(HF2)HFN[hfn]T[hfnT]I[hfnTI]P[hfnTP]|1
proc.id 10 FREE L PRV.PROC $(HF2)HFN[hfn]T[hfnT]I[hfnTI]P[hfnTP]|0
proc.post.ptr 12 FREE L $(HF2)HFN[hfn]T[hfnT]I[hfnTI]P[hfnTP]|2
proc.queue.ptr 3 PINT R $(HF2)HFN[hfn]T[hfnT]I[hfnTI]P[hfnTP]|3
Index Files Subscripts/Physical Base
archive.x [archive.date,urn]
?(HF)HFNARC[hfnAD,hfn]
billing.queue [date.sent.to.bar,urn]
?(HF)HFNBQ[hfnD,hfn]
billing.queue.pend [date.sent.to.bar,urn]
?(HF)HFNBQP[hfnD,hfn]
billing.queue.xfer [date.sent.to.bar,bch.no.sent.to.bar,urn]
?(HF)HFNBQX[hfnD,hfnBN,hfn]
id.x [date,cash.drawer,number] = urn
?(HF)HFNA[hfnB,hfs,hfnA]
patient.txn.x [patient,urn,txn.urn]
?(HF)HFNB[aa,hfn,hfnT]
patient.x [patient,service.date,procedure,procedure.type,urn,txn.urn]
?(HF)HFNC[aa,hfnSD,hfo,hfoT,hfn,hfnT]
practice.x [date,practice,cash.drawer,number] = urn
?(HF)HFND[hfnB,ggh,hfs,hfnA]
urn.x [urn]
?(HF)HFNURN[hfn]
|
|
| | | | |