Ì € i 2
default.proc.times
[dft.proc.len.op, dft.proc.times.op.date,dft.proc.times.urn]
*(W)HSHDP[wat,hshDT,hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.times.op.date 8 DATE L hshDT
dft.proc.times.urn 10 URN L SCH.PAT hsh
dft.proc.times.active 1 YN L *(W)HSHDP[wat,hshDT,hsh]|2
dft.proc.times.len 4 INT R *(W)HSHDP[wat,hshDT,hsh]|0
dft.proc.times.surg 10 FREE L MIS.DOC *(W)HSHDP[wat,hshDT,hsh]|1
Ì i 2
default.proc.surg
[dft.proc.surg.op,dft.proc.surg]
*(W)HSHDPS[wat,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.surg.op 10 FREE L SCH.APPT.TYPE wat
dft.proc.surg 10 FREE L MIS.DOC ggg
dft.proc.surg.average 4 INT R *(W)HSHDPS[wat,ggg]
Ì € i 2
default.proc.surg.times
[dft.proc.surg.op,dft.proc.surg, dft.proc.surg.op.date,dft.proc.surg.urn]
*(W)HSHDPS[wat,ggg,hshDT,hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.proc.surg.op.date 8 DATE L hshDT
dft.proc.surg.urn 10 URN L SCH.PAT hsh
dft.proc.surg.active 1 YN L *(W)HSHDPS[wat,ggg,hshDT,hsh]|2
dft.proc.surg.len 4 INT R *(W)HSHDPS[wat,ggg,hshDT,hsh]|0
dft.proc.surg.op.surg 10 FREE L MIS.DOC *(W)HSHDPS[wat,ggg,hshDT,hsh]|1
Ì i 2
default.sch.len
[dft.sch.len.op]
*(W)HSHDS[wat]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.sch.len.op 10 FREE L SCH.APPT.TYPE wat
dft.sch.len.average 4 INT R *(W)HSHDS[wat]
Ì € i 2
default.sch.times
[dft.sch.len.op, dft.sch.times.op.date,dft.sch.times.urn]
*(W)HSHDS[wat,hshDT,hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.sch.times.op.date 8 DATE L hshDT
dft.sch.times.urn 10 URN L SCH.PAT hsh
dft.sch.times.active 1 YN L *(W)HSHDS[wat,hshDT,hsh]|2
dft.sch.times.len 4 INT R *(W)HSHDS[wat,hshDT,hsh]|0
dft.sch.times.surg 10 FREE L MIS.DOC *(W)HSHDS[wat,hshDT,hsh]|1
Ì i 2
default.sch.surg
[dft.sch.surg.op,dft.sch.surg]
*(W)HSHDSS[wat,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.sch.surg.op 10 FREE L SCH.APPT.TYPE wat
dft.sch.surg 10 FREE L MIS.DOC ggg
dft.sch.surg.average 4 INT R *(W)HSHDSS[wat,ggg]
Ì € i 2
default.sch.surg.times
[dft.sch.surg.op,dft.sch.surg, dft.sch.surg.op.date,dft.sch.surg.urn]
*(W)HSHDSS[wat,ggg,hshDT,hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dft.sch.surg.op.date 8 DATE L hshDT
dft.sch.surg.urn 10 URN L SCH.PAT hsh
dft.sch.surg.active 1 YN L *(W)HSHDSS[wat,ggg,hshDT,hsh]|2
dft.sch.surg.len 4 INT R *(W)HSHDSS[wat,ggg,hshDT,hsh]|0
dft.sch.surg.op.surg 10 FREE L MIS.DOC *(W)HSHDSS[wat,ggg,hshDT,hsh]|1
Ì i 2
emr.rpt.queue
[emr.rpt.q.sec,emr.rpt.q.urn]
*(W)HSHEQ[xsec,hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.rpt.q.sec 9 FREE L xsec
emr.rpt.q.urn 10 URN L SCH.PAT hsh
emr.rpt.q.adm.urn 30 URN L ADM.PAT *(W)HSHEQ[xsec,hsh]|1
emr.rpt.q.type 1 FREE L *(W)HSHEQ[xsec,hsh]|0
Ì € i 2
emr.rpt.queue.options
[emr.rpt.q.sec,emr.rpt.q.urn, emr.rpt.q.option]
*(W)HSHEQ[xsec,hsh]O[hshOPT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.rpt.q.option 30 FREE L hshOPT
Ì i 2
ess.date.stats
[ess.stat.date]
*(W)HSHE[hshED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.stat.date 8 DATE L hshED
ess.case.status 1 CHOICE L VAL=IF{@deferral.reason "D";@complete.date "V"}
Ì € i 2
ess.proc.stats
[ess.stat.date, ess.proc.group,ess.proc,ess.proc.room.group,ess.proc.room,ess.proc.case.status
*(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.proc.group 10 FREE L SCH.APPT.GROUP wac
ess.proc 10 FREE L SCH.APPT.TYPE wat
ess.proc.room.group 10 FREE L SCH.RSRC.GRP wrg
ess.proc.room 15 FREE L SCH.RESOURCE wre
ess.proc.case.status 1 CHOICE L hshEC
ess.proc.emerg.cases 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]C|3
ess.proc.emerg.min 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]M|3
ess.proc.inpt.cases 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]C|0
ess.proc.inpt.min 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]M|0
ess.proc.planned.cases 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]C|2
ess.proc.planned.min 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]M|2
ess.proc.sdc.cases 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]C|1
ess.proc.sdc.min 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]M|1
ess.proc.urgent.cases 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]C|4
ess.proc.urgent.min 4 INT R *(W)HSHE[hshED]P[wac,wat,wrg,wre,hshEC]M|4
Ì € i 2
ess.spec.stats
[ess.stat.date, ess.spec,ess.spec.facility,ess.spec.case.status]
*(W)HSHE[hshED]SP[gsd,gqb,hshEC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.spec 10 FREE L MIS.ABS.SVC gsd
ess.spec.facility 10 FREE L MIS.FACILITY gqb
ess.spec.case.status 1 CHOICE L hshEC
ess.spec.emerg.cases 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]C|3
ess.spec.emerg.min 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]M|3
ess.spec.inpt.cases 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]C|0
ess.spec.inpt.min 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]M|0
ess.spec.planned.cases 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]C|2
ess.spec.planned.min 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]M|2
ess.spec.sdc.cases 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]C|1
ess.spec.sdc.min 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]M|1
ess.spec.urgent.cases 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]C|4
ess.spec.urgent.min 4 INT R *(W)HSHE[hshED]SP[gsd,gqb,hshEC]M|4
Ì € i 2
ess.surg.stats
[ess.stat.date, ess.surg,ess.surg.room.group,ess.surg.room,ess.surg.case.status]
*(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ess.surg 10 FREE L MIS.DOC ggg
ess.surg.room.group 10 FREE L SCH.RSRC.GRP wrg
ess.surg.room 15 FREE L SCH.RESOURCE wre
ess.surg.case.status 1 CHOICE L hshEC
ess.surg.emerg.cases 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]C|3
ess.surg.emerg.min 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]M|3
ess.surg.inpt.cases 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]C|0
ess.surg.inpt.min 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]M|0
ess.surg.planned.cases 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]C|2
ess.surg.planned.min 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]M|2
ess.surg.sdc.cases 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]C|1
ess.surg.sdc.min 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]M|1
ess.surg.urgent.cases 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]C|4
ess.surg.urgent.min 4 INT R *(W)HSHE[hshED]S[ggg,wrg,wre,hshEC]M|4
Ì i 2
input.implant.inv
[inp.implant.inv]
/HSHIMP[hsin]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.implant.inv 10 FREE L SCH.INV.DICT hsin
Ì € i 2
input.implants
[inp.implant.inv, inp.implant]
/HSHIMP[hsin]I[hsii]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.implant 10 FREE L SCH.INV.ITEM hsii
inp.imp.bill.number 10 FREE L /HSHIMP[hsin]I[hsii]|3
inp.imp.charge 9 MONEY R /HSHIMP[hsin]I[hsii]|5
inp.imp.cost 9 MONEY R /HSHIMP[hsin]I[hsii]|4
inp.imp.desc 30 FREE L /HSHIMP[hsin]I[hsii]|2
inp.imp.flag 1 FREE L /HSHIMP[hsin]I[hsii]|6
inp.imp.flag.out 1 FREE L /HSHIMP[hsin]I[hsii]|7
inp.imp.name 30 FREE L VAL=IF{@inp.imp.desc;@SCH.INV.ITEM.other.name[@inp.imp
VAL=lant];@SCH.INV.ITEM.name[@inp.implant]}
inp.imp.qty 4 FREE L /HSHIMP[hsin]I[hsii]|0
inp.imp.qty.out 4 FREE L /HSHIMP[hsin]I[hsii]|1
Ì € i 2
input.implant.manuf
[inp.implant.inv,inp.implant, inp.imp.manuf]
/HSHIMP[hsin]I[hsii,gm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.imp.manuf 10 FREE L MIS.MFR gm
inp.imp.manuf.com 70 FREE L /HSHIMP[hsin]I[hsii,gm]|0
inp.imp.surgeon 10 FREE L MIS.DOC /HSHIMP[hsin]I[hsii,gm]|1
Ì € i 2
inp.implant.lot.numbers
[inp.implant.inv,inp.implant,inp.imp.manuf, inp.implant.seq.no]
/HSHIMP[hsin]I[hsii,gm]L[hsiUN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.implant.seq.no 2 PINT R hsiUN
inp.imp.catalog.number 14 FREE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|1
inp.implant.batch.number 14 FREE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|3
inp.implant.count 2 INT R /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|8
inp.implant.culture 1 YN L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|6
inp.implant.exp.date 8 DATE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|7
inp.implant.lot.number 20 FREE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|0
inp.implant.serial.number 14 FREE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|2
inp.implant.site 10 FREE L SCH.SITE /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|5
inp.implant.size 5 FREE L /HSHIMP[hsin]I[hsii,gm]L[hsiUN]|4
Ì i 2
input.inventories
[inp.inv]
/HSHINVT[hsin]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.inv 10 FREE L SCH.INV.DICT hsin
Ì € i 2
input.inventory.items
[inp.inv, inp.item]
/HSHINVT[hsin]I[hsii]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.item 10 FREE L SCH.INV.ITEM hsii
inp.item.bill.number 10 FREE L /HSHINVT[hsin]I[hsii]|3
inp.item.charge 9 MONEY R /HSHINVT[hsin]I[hsii]|5
inp.item.cost 9 MONEY R /HSHINVT[hsin]I[hsii]|4
inp.item.desc 30 FREE L /HSHINVT[hsin]I[hsii]|2
inp.item.flag 1 FREE L /HSHINVT[hsin]I[hsii]|6
inp.item.flag.out 1 FREE L /HSHINVT[hsin]I[hsii]|7
inp.item.location 10 FREE L SCH.INV.LOC
inp.item.name 30 FREE L VAL=IF{@inp.item.desc;@item.desc;@SCH.INV.ITEM.other.n
VAL=ame[@inp.item];@SCH.INV.ITEM.name[@inp.item]}
inp.item.qty 4 FREE L /HSHINVT[hsin]I[hsii]|0
inp.item.qty.out 4 FREE L /HSHINVT[hsin]I[hsii]|1
Ì i 2
inv.item.xfr.data
[inv.xfr.inventory,inv.xfr.date]
*(W)HSHMR[hsin,hshRD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.xfr.inventory 10 FREE L SCH.INV.DICT hsin
inv.xfr.date 8 DATE L hshRD
Ì € i 2
inv.item.rejects
[inv.xfr.inventory,inv.xfr.date, inv.rej.q]
*(W)HSHMR[hsin,hshRD]R[hshRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.rej.q 4 PINT R hshRQ
inv.rej.acct 13 FREE L *(W)HSHMR[hsin,hshRD]R[hshRQ]|3
inv.rej.date 10 FREE L *(W)HSHMR[hsin,hshRD]R[hshRQ]|5
inv.rej.inv 10 FREE L *(W)HSHMR[hsin,hshRD]R[hshRQ]|4
inv.rej.msg 50 FREE L *(W)HSHMR[hsin,hshRD]R[hshRQ]|2
inv.rej.qty 8 PINT R *(W)HSHMR[hsin,hshRD]R[hshRQ]|1
inv.rej.stock.no 18 FREE L *(W)HSHMR[hsin,hshRD]R[hshRQ]|0
Ì € i 2
inv.item.xfers
[inv.xfr.inventory,inv.xfr.date, inv.xfer.q]
*(W)HSHMR[hsin,hshRD]X[hshMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.xfer.q 10 PINT R hshMQ
inv.xfer.dept 15 FREE L MIS.GL.DEPT *(W)HSHMR[hsin,hshRD]X[hshMQ]
Ì € i 2
inv.item.xfr.items
[inv.xfr.inventory,inv.xfr.date,inv.xfer.q, inv.item.xfr.item]
*(W)HSHMR[hsin,hshRD]X[hshMQ,gmmi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.item.xfr.item 10 FREE L gmmi
inv.item.xfr.quantity 3 INT R *(W)HSHMR[hsin,hshRD]X[hshMQ,gmmi]
Ì € i 2
main
[urn]
$(W)HSH[hsh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 10 URN L hsh
..old.adm.int.not.used 2 FREE L $(W)HSH[hsh]|11
acct.number 30 URN L ADM.PAT $(W)HSH[hsh]|9
acct.number.display 13 FREE L VAL=%SCH.PAT.util(30,urn,@adm.int.urn,"ACCT")
actual.primary.op 10 FREE L SCH.APPT.TYPE VAL=@actual.op[@actual.primary.op.urn]
actual.primary.op.group 10 FREE L SCH.APPT.GROUP VAL=IF{@SCH.APPT.TYPE.group[@actual.op[@actual.primary
VAL=.op.urn]];"UNKNOWN"}
actual.primary.op.urn 2 INT R $(W)HSH[hsh]|5
acuity 6 DEC2 R VAL=@SCH.APPT.TYPE.or.acuity[@acuity.op]
acuity.op 10 FREE L SCH.APPT.TYPE $(W)HSH[hsh]POP|6
adm.del.acct.number 12 FREE L $(W)HSH[hsh]DEL|0
adm.del.pt.status 8 FREE L $(W)HSH[hsh]DEL|1
adm.del.room.bed.or.t.loc 21 FREE L $(W)HSH[hsh]DEL|2
adm.ext.urn 13 FREE L $(W)HSH[hsh]|10
adm.int.urn 10 URN L ADM.PAT $(W)HSH[hsh]|9
adm.pt.status.display 8 FREE L VAL=%SCH.PAT.util(30,urn,@adm.int.urn,"ST")
anes.pre.op.asa 10 FREE L SCH.ASA $(W)HSH[hsh]POP|5
anes.pre.op.visit 1 YN L $(W)HSH[hsh]POP|4
anesthetic.type 10 FREE L SCH.ANES.TYPE $(W)HSH[hsh]POP|8
anesthetist 10 FREE L MIS.DOC $(W)HSH[hsh]STF|1
anesthetist.asst.unasst 1 FREE L VAL=IF{+@Root(@staff.asst.anesthetists)[""] "Y";"N"}
anesthetist.comment 20 FREE L $(W)HSH[hsh]STF|3
anesthetist.name 30 FREE L VAL=IF{@MIS.DOC.name[@anesthetist];@anesthetist}
appt.urn 10 FREE L SCH.APPT $(W)HSH[hsh]|3
audit.can 2 PINT R $(W)HSH[hsh]AUD|1
audit.can.total 2 PINT R $(W)HSH[hsh]AUD|0
complete.charge 1 YN L $(W)HSH[hsh]COMP|3
complete.comment 40 FREE L $(W)HSH[hsh]COMP|4
complete.count 2 PINT R $(W)HSH[hsh]COMP|6
complete.date 8 DATE L $(W)HSH[hsh]COMP|0
complete.time 4 TIME L $(W)HSH[hsh]COMP|1
complete.to.ess 1 YN L $(W)HSH[hsh]COMP|7
complete.user 10 FREE L MIS.USER $(W)HSH[hsh]COMP|2
cost.anes.md 9 PINT R $(W)HSH[hsh]COST|6
cost.anes.time 9 PINT R $(W)HSH[hsh]COST|5
cost.eqp 9 PINT R $(W)HSH[hsh]COST|3
cost.ip 9 PINT R $(W)HSH[hsh]COST|4
cost.item 9 PINT R $(W)HSH[hsh]COST|1
cost.proc 9 PINT R $(W)HSH[hsh]COST|0
cost.time 9 PINT R $(W)HSH[hsh]COST|2
deferral.reason 10 FREE L SCH.DEFER $(W)HSH[hsh]COMP|5
ess.purge.date 8 DATE L VAL=IF{%Z.date.add(@.today,0-IF{@SCH.PARAM.stats.purge
VAL=;31})^DAT,-@MIS.GL.PERIOD.date.x[DAT];%Z.date.add(
VAL=DAT$6_"01",0-1)}
est.time 3 INT R $(W)HSH[hsh]|7
fin.class 10 FREE L MIS.FIN.CLASS VAL=@ADM.PAT.financial.class[IF{adm.int.urn;@adm.int.u
VAL=rn}]
flat.fee 1 YN L $(W)HSH[hsh]POP|3
holding.destination 10 FREE L SCH.DEST $(W)HSH[hsh]POP|19
holding.in 4 HHMM L $(W)HSH[hsh]POP|16
holding.out 4 HHMM L $(W)HSH[hsh]POP|17
holding.reason 10 FREE L SCH.DELAY $(W)HSH[hsh]POP|18
holding.transfer 10 FREE L MIS.USER $(W)HSH[hsh]POP|20
holding.transfer.method 10 FREE L SCH.TRAN $(W)HSH[hsh]POP|21
id 10 URN L SCH.PAT VAL=@MRI.PAT.name
io.date 8 DATE L $(W)HSH[hsh]IO|2
io.date.pacu 8 DATE L $(W)HSH[hsh]IO|4
io.date.pre 8 DATE L $(W)HSH[hsh]IO|0
io.time 4 TIME L $(W)HSH[hsh]IO|3
io.time.pacu 4 TIME L $(W)HSH[hsh]IO|5
io.time.pre 4 TIME L $(W)HSH[hsh]IO|1
name 25 URN L MRI.PAT
number.and.name 25 URN L MRI.PAT
one 1 INT R VAL=1
operation.can.reason 10 FREE L SCH.CAN.RSN $(W)HSH[hsh]CAN|0
operation.can.to.counter 10 PINT R $(W)HSH[hsh]CAN|1
operation.cancel.date 8 DATE L $(W)HSH[hsh]TR|7
operation.cancel.time 4 HHMM L $(W)HSH[hsh]TR|8
operation.cancel.user 10 FREE L MIS.USER $(W)HSH[hsh]TR|9
operation.date 8 DATE L $(W)HSH[hsh]|0
operation.enter.date 8 DATE L $(W)HSH[hsh]TR|0
operation.enter.time 4 HHMM L $(W)HSH[hsh]TR|1
operation.enter.user 10 FREE L MIS.USER $(W)HSH[hsh]TR|2
operation.er 1 YN L $(W)HSH[hsh]|16
operation.last.edit.date 8 DATE L $(W)HSH[hsh]TR|3
operation.last.edit.dt.in 10 FREE L $(W)HSH[hsh]TR|6
operation.last.edit.time 4 HHMM L $(W)HSH[hsh]TR|4
operation.last.edit.user 10 FREE L MIS.USER $(W)HSH[hsh]TR|5
operation.purged.log 4 INT R $(W)HSH[hsh]PRG|0
operation.room 15 FREE L SCH.RESOURCE $(W)HSH[hsh]|2
operation.room.name 30 FREE L VAL=@SCH.RESOURCE.name[@operation.room]
operation.time 4 HHMM L $(W)HSH[hsh]|1
operation.type 1 FREE L $(W)HSH[hsh]|13
or.counter 10 URN L
patient 25 URN L MRI.PAT $(W)HSH[hsh]|8
patient.destination 10 FREE L SCH.DEST $(W)HSH[hsh]POP|1
patient.destination.pacu 10 FREE L SCH.DEST $(W)HSH[hsh]POP|15
patient.destination.pre 10 FREE L SCH.DEST $(W)HSH[hsh]POP|14
patient.doctor 10 FREE L MIS.DOC $(W)HSH[hsh]|15
patient.doctor.name 30 FREE L VAL=@MIS.DOC.name[@patient.doctor]
patient.facility 10 FREE L MIS.FACILITY $(W)HSH[hsh]|6
patient.service 10 FREE L MIS.ABS.SVC $(W)HSH[hsh]|14
pref.count.intake 3 INT R $(W)HSH[hsh]PI|0
pref.count.med 3 INT R $(W)HSH[hsh]PM|0
primary.op 10 FREE L SCH.APPT.TYPE VAL=IF{@actual.op[@actual.primary.op.urn];@proposed.op
VAL=[@proposed.primary.op.urn]}
print.cds.1 15 FREE L MIS.SCREEN VAL=/SCREEN|0
print.cds.1.data 1 FREE L VAL=IF{@print.cds.1^CDS %MIS.SCREEN.print(CDS,^@Root(@
VAL=customer.defined.queries)[CDS],1,0)}&""
print.cds.1.name 30 FREE L VAL=@MIS.SCREEN.name[@print.cds.1]
print.cds.2 15 FREE L MIS.SCREEN VAL=/SCREEN|1
print.cds.2.data 1 FREE L VAL=IF{@print.cds.2^CDS %MIS.SCREEN.print(CDS,^@Root(@
VAL=customer.defined.queries)[CDS],1,0)}&""
print.cds.2.name 30 FREE L VAL=@MIS.SCREEN.name[@print.cds.2]
print.cds.3 15 FREE L MIS.SCREEN VAL=/SCREEN|2
print.cds.3.data 1 FREE L VAL=IF{@print.cds.3^CDS %MIS.SCREEN.print(CDS,^@Root(@
VAL=customer.defined.queries)[CDS],1,0)}&""
print.cds.3.name 30 FREE L VAL=@MIS.SCREEN.name[@print.cds.3]
print.cds.4 15 FREE L MIS.SCREEN VAL=/SCREEN|3
print.cds.4.data 1 FREE L VAL=IF{@print.cds.4^CDS %MIS.SCREEN.print(CDS,^@Root(@
VAL=customer.defined.queries)[CDS],1,0)}&""
print.cds.4.name 30 FREE L VAL=@MIS.SCREEN.name[@print.cds.4]
print.cds.5 15 FREE L MIS.SCREEN VAL=/SCREEN|4
print.cds.5.data 1 FREE L VAL=IF{@print.cds.5^CDS %MIS.SCREEN.print(CDS,^@Root(@
VAL=customer.defined.queries)[CDS],1,0)}&""
print.cds.5.name 30 FREE L VAL=@MIS.SCREEN.name[@print.cds.5]
print.cds.setup 1 YN L VAL=%SCH.PAT.util(26,urn)
priority 10 FREE L MIS.ADM.PRIORT $(W)HSH[hsh]|12
prop.primary.op 10 FREE L SCH.APPT.TYPE VAL=@proposed.op[@proposed.primary.op.urn]
prop.primary.op.desc 40 FREE L VAL=IF{@proposed.primary.op.urn^POP IF{@proposed.op.de
VAL=sc[,POP];@SCH.APPT.TYPE.or.name[@proposed.op[,POP]
VAL=];@proposed.op[,POP]}}
prop.primary.op.group 10 FREE L SCH.APPT.GROUP VAL=IF{@SCH.APPT.TYPE.group[@proposed.op[@proposed.pri
VAL=mary.op.urn]];"UNKNOWN"}
proposed.primary.op.urn 2 INT R $(W)HSH[hsh]|4
pt.acct.no 12 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"AN"))
pt.age 7 AGE R VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"AG"))
pt.age.cur 7 AGE R VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"CAG"))
pt.bdate 10 BDATE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"BD"))
pt.bdate.com 10 BDATE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"CBD"))
pt.dis.disp 10 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"DDS"))
pt.home.phone 18 PHONE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"HP"))
pt.id.name 48 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"IDNM"))
pt.id.no 15 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"ID"))
pt.name.desc 30 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"NM"))
pt.room.and.bed 21 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"RB","","",SCH.PAT
VAL=.adm.int.urn))
pt.sex 1 CHOICE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"SX"))
pt.unit.no 10 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"UN"))
pt.unit.no.tdo 10 FREE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"TDO"))
pt.work.phone 18 PHONE L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"WP"))
room.outcome.com 50 FREE L $(W)HSH[hsh]RM|4
room.unplan.counter 3 PINT R $(W)HSH[hsh]RM|3
sch.operation.date 8 DATE L $(W)HSH[hsh]|17
sch.operation.time 4 HHMM L $(W)HSH[hsh]|18
ss.patient 25 URN L MRI.PAT $(W)HSH[hsh]|8
surgeon 10 FREE L MIS.DOC $(W)HSH[hsh]STF|0
surgeon.asst.unasst 1 FREE L VAL=IF{+@Root(@staff.asst.surgeons)[""] "Y";"N"}
surgeon.name 30 FREE L VAL=IF{@MIS.DOC.name[@surgeon];@surgeon}
surgery.outcome 10 FREE L SCH.OUTCOME $(W)HSH[hsh]POP|0
thru.time 4 HHMM5 L VAL=(%SCH.PAT.pt.fields(SCH.PAT.urn,"THRU"))
time.1 4 HHMM L $(W)HSH[hsh]TM|0
time.1.date 8 DATE L $(W)HSH[hsh]TM|11
time.1.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|0
time.1.min 3 INT R $(W)HSH[hsh]TMD|8
time.10 4 HHMM L $(W)HSH[hsh]TM|10
time.10.date 8 DATE L $(W)HSH[hsh]TM|20
time.10.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|18
time.10.min 3 INT R $(W)HSH[hsh]TMD|19
time.2 4 HHMM L $(W)HSH[hsh]TM|1
time.2.date 8 DATE L $(W)HSH[hsh]TM|12
time.2.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|1
time.2.min 3 INT R $(W)HSH[hsh]TMD|9
time.2.user 10 FREE L MIS.USER $(W)HSH[hsh]TM|2
time.3 4 HHMM L $(W)HSH[hsh]TM|3
time.3.date 8 DATE L $(W)HSH[hsh]TM|13
time.3.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|2
time.3.min 3 INT R $(W)HSH[hsh]TMD|10
time.4 4 HHMM L $(W)HSH[hsh]TM|4
time.4.date 8 DATE L $(W)HSH[hsh]TM|14
time.4.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|3
time.4.min 3 INT R $(W)HSH[hsh]TMD|11
time.5 4 HHMM L $(W)HSH[hsh]TM|5
time.5.date 8 DATE L $(W)HSH[hsh]TM|15
time.5.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|4
time.5.min 3 INT R $(W)HSH[hsh]TMD|12
time.6 4 HHMM L $(W)HSH[hsh]TM|6
time.6.date 8 DATE L $(W)HSH[hsh]TM|16
time.6.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|5
time.6.min 3 INT R $(W)HSH[hsh]TMD|13
time.7 4 HHMM L $(W)HSH[hsh]TM|7
time.7.date 8 DATE L $(W)HSH[hsh]TM|17
time.7.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|6
time.7.min 3 INT R $(W)HSH[hsh]TMD|14
time.8 4 HHMM L $(W)HSH[hsh]TM|8
time.8.date 8 DATE L $(W)HSH[hsh]TM|18
time.8.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|7
time.8.min 3 INT R $(W)HSH[hsh]TMD|15
time.9 4 HHMM L $(W)HSH[hsh]TM|9
time.9.date 8 DATE L $(W)HSH[hsh]TM|19
time.9.delay 10 FREE L SCH.DELAY $(W)HSH[hsh]TMD|16
time.9.min 3 INT R $(W)HSH[hsh]TMD|17
transfer 10 FREE L MIS.USER $(W)HSH[hsh]POP|2
transfer.method 10 FREE L SCH.TRAN $(W)HSH[hsh]POP|9
transfer.method.pacu 10 FREE L SCH.TRAN $(W)HSH[hsh]POP|13
transfer.method.pre 10 FREE L SCH.TRAN $(W)HSH[hsh]POP|11
transfer.pacu 10 FREE L MIS.USER $(W)HSH[hsh]POP|12
transfer.pre 10 FREE L MIS.USER $(W)HSH[hsh]POP|10
verified 1 FREE L VAL=(@complete.charge="Y")
Ì € i 2
actual.inventories
[urn, actual.inventory,actual.item]
$(W)HSH[hsh]AINV[hsin,hsii]
Field Name Len Dat Typ J DPM Offset/Local/VAL
actual.inventory 10 FREE L SCH.INV.DICT hsin
actual.item 10 FREE L hsii
actual.quantity.bill 4 INT R $(W)HSH[hsh]AINV[hsin,hsii]|1
actual.quantity.stock 4 INT R $(W)HSH[hsh]AINV[hsin,hsii]|0
Ì € i 2
actual.ops
[urn, actual.op.urn]
$(W)HSH[hsh]OA2[hsoa2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
actual.op.urn 2 URN L hsoa2
actual.op 10 FREE L SCH.APPT.TYPE $(W)HSH[hsh]OA2[hsoa2]|0
actual.op.1 10 FREE L SCH.APPT.TYPE VAL=@actual.op[1]
actual.op.1.abbrev 30 FREE L VAL=IF{@actual.op.desc[1]:30T;@SCH.APPT.TYPE.descripti
VAL=on[@actual.op[1]];@actual.op[1]:30T}
actual.op.1.duration 3 PINT R VAL=@actual.op.duration[1]
actual.op.1.name 40 FREE L VAL=IF{@actual.op.desc[1];@SCH.APPT.TYPE.or.name[@actu
VAL=al.op[1]];@actual.op[1]}
actual.op.1.ps 1 FREE L VAL=@actual.op.ps[1]
actual.op.1.rt.lft 1 FREE L VAL=@actual.op.rt.lft[1]
actual.op.1.severity 10 FREE L SCH.OP.SEVER VAL=@actual.op.severity[1]
actual.op.abbrev 30 FREE L VAL=IF{@actual.op.desc:30T;@SCH.APPT.TYPE.description[
VAL=@actual.op];@actual.op:30T}
actual.op.close 4 HHMM L $(W)HSH[hsh]OA2[hsoa2]|10
actual.op.comment 20 FREE L $(W)HSH[hsh]OA2[hsoa2]|15
actual.op.cut 4 HHMM L $(W)HSH[hsh]OA2[hsoa2]|9
actual.op.desc 40 FREE L $(W)HSH[hsh]OA2[hsoa2]|5
actual.op.duration 3 PINT R $(W)HSH[hsh]OA2[hsoa2]|4
actual.op.icd.version 10 FREE L ABS.VERSION $(W)HSH[hsh]OA2[hsoa2]ICD|0
actual.op.name 40 FREE L VAL=IF{@actual.op.desc^AD IF{@actual.ops.desc[,,2] AD$
VAL=38_"..";AD}:0XS;@SCH.APPT.TYPE.or.name[@actual.op]
VAL=;@actual.op}
actual.op.ps 1 FREE L $(W)HSH[hsh]OA2[hsoa2]|3
actual.op.rt.lft 1 FREE L $(W)HSH[hsh]OA2[hsoa2]|2
actual.op.rt.lft.out 5 FREE L VAL=IF{@actual.op.rt.lft "RIGHT,LEFT,BILAT"#(L("RLB",@
VAL=actual.op.rt.lft)_",")}
actual.op.severity 10 FREE L SCH.OP.SEVER $(W)HSH[hsh]OA2[hsoa2]|1
actual.op.surgeon 10 FREE L MIS.DOC $(W)HSH[hsh]OA2[hsoa2]|8
actual.op.wound 2 FREE L $(W)HSH[hsh]OA2[hsoa2]|7
actual.op.yn 1 YN L $(W)HSH[hsh]OA2[hsoa2]|6
Ì € i 2
actual.ops.cpts
[urn,actual.op.urn, actual.op.cpt.code.q]
$(W)HSH[hsh]OA2[hsoa2]CPT[gspQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
actual.op.cpt.code.q 3 PINT R gspQ
actual.op.cpt.code 10 FREE L MIS.CPT $(W)HSH[hsh]OA2[hsoa2]CPT[gspQ]|0
Ì € i 2
actual.ops.desc
[urn,actual.op.urn, act.op.desc.q]
$(W)HSH[hsh]OA2[hsoa2]D[hshAD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
act.op.desc.q 2 INT R hshAD
act.op.desc 40 TEXT L $(W)HSH[hsh]OA2[hsoa2]D[hshAD]
Ì € i 2
actual.ops.icds
[urn,actual.op.urn, actual.op.icd.code.q]
$(W)HSH[hsh]OA2[hsoa2]ICD[gskQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
actual.op.icd.code.q 3 PINT R gskQ
actual.op.icd.code 5 FREE L $(W)HSH[hsh]OA2[hsoa2]ICD[gskQ]|0
Ì € i 2
actual.ops.times
[urn,actual.op.urn, actual.op.time.q]
$(W)HSH[hsh]OA2[hsoa2]T[hshTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
actual.op.time.q 3 URN L hshTQ
actual.op.surgeon.date 8 DATE L $(W)HSH[hsh]OA2[hsoa2]T[hshTQ]|2
actual.op.surgeon.in 4 HHMM L $(W)HSH[hsh]OA2[hsoa2]T[hshTQ]|0
actual.op.surgeon.out 4 HHMM L $(W)HSH[hsh]OA2[hsoa2]T[hshTQ]|1
Ì € i 2
added.drugs
[urn, added.drug]
$(W)HSH[hsh]ADD[hsa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
added.drug 10 FREE L hsa
Ì € i 2
airway.maintenance
[urn, airway.maint]
$(W)HSH[hsh]AM[hsam]
Field Name Len Dat Typ J DPM Offset/Local/VAL
airway.maint 5 FREE L SCH.AIR.MAINT hsam
air.yn 1 YN L $(W)HSH[hsh]AM[hsam]|0
Ì € i 2
airway.maintenance.screen
[urn,airway.maint, airway.query]
$(W)HSH[hsh]AM[hsam]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
airway.query 10 FREE L MIS.QUERY ggv
airway.query.yn.comment 70 QRY.RESP L $(W)HSH[hsh]AM[hsam]Q[ggv]|5
airway.response 75 QRY.RESP L $(W)HSH[hsh]AM[hsam]Q[ggv]|0
Ì € i 2
anes.categories
[urn, anes.category]
$(W)HSH[hsh]ANE[hsac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes.category 5 FREE L SCH.ANES.CAT hsac
Ì € i 2
anes.agents
[urn,anes.category, anes.agent]
$(W)HSH[hsh]ANE[hsac,hsa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes.agent 10 FREE L hsa
Ì € i 2
anes.category.pre.meds
[urn, anes.cat.pre.med]
$(W)HSH[hsh]ANEP[hsac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes.cat.pre.med 5 FREE L SCH.ANES.CAT hsac
Ì € i 2
anes.pre.meds
[urn,anes.cat.pre.med, anes.pre.med]
$(W)HSH[hsh]ANEP[hsac,hsa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes.pre.med 10 FREE L hsa
Ì € i 2
aness.text
[urn, anes.text.line]
$(W)HSH[hsh]AX[hshAl]
Field Name Len Dat Typ J DPM Offset/Local/VAL
anes.text.line 3 URN L hshAl
anes.text 70 TEXT L $(W)HSH[hsh]AX[hshAl]
anes.text.exists 2 FREE L VAL=IF{+@t.aness.text[urn,""] @Z.check.mark.data;" "}
Ì € i 2
audit.trail
[urn, audit.date,audit.date.urn]
$(W)HSH[hsh]AUD[hshAD,hshAU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.date 8 DATE L hshAD
audit.date.urn 2 PINT R hshAU
audit.outcome 10 FREE L SCH.CAN.RSN $(W)HSH[hsh]AUD[hshAD,hshAU]|6
audit.room 15 FREE L SCH.RESOURCE $(W)HSH[hsh]AUD[hshAD,hshAU]|4
audit.xfer.date 8 DATE L $(W)HSH[hsh]AUD[hshAD,hshAU]|1
audit.xfer.time 4 TIME L $(W)HSH[hsh]AUD[hshAD,hshAU]|2
audit.xfer.type 10 FREE L $(W)HSH[hsh]AUD[hshAD,hshAU]|0
audit.xfer.user 10 FREE L MIS.USER $(W)HSH[hsh]AUD[hshAD,hshAU]|3
Ì € i 2
bbk.data
[urn, bbk.urn]
$(W)HSH[hsh]B2[hshBK]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.urn 10 FREE L hshBK
bbk.exists 1 FREE L VAL=IF{+@t.bbk.queries[urn,bbk.urn,""] @Z.check.mark.d
VAL=ata;" "}
bbk.yn 1 YN L $(W)HSH[hsh]B2[hshBK]|0
Ì € i 2
bbk.queries
[urn,bbk.urn, bbk.query]
$(W)HSH[hsh]B2[hshBK,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query 10 FREE L MIS.QUERY ggv
bbk.query.yn.comment 70 QRY.RESP L $(W)HSH[hsh]B2[hshBK,ggv]|5
bbk.response 75 QRY.RESP L $(W)HSH[hsh]B2[hshBK,ggv]|0
Ì € i 2
bbk.queries.mult
[urn,bbk.urn,bbk.query, bbk.query.mult.q]
$(W)HSH[hsh]B2[hshBK,ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query.mult.q 2 PINT R ggvMQ
bbk.query.mult.resp 30 QRY.RESP L $(W)HSH[hsh]B2[hshBK,ggv]M[ggvMQ]|0
Ì € i 2
bbk.data.pacu
[urn, bbk.urn.pacu]
$(W)HSH[hsh]B3[hshBK]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.urn.pacu 10 FREE L hshBK
bbk.exists.pacu 1 FREE L VAL=IF{+@t.bbk.queries.pacu[urn,bbk.urn.pacu,""] @Z.ch
VAL=eck.mark.data;" "}
bbk.yn.pacu 1 YN L $(W)HSH[hsh]B3[hshBK]|0
Ì € i 2
bbk.queries.pacu
[urn,bbk.urn.pacu, bbk.query.pacu]
$(W)HSH[hsh]B3[hshBK,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query.pacu 10 FREE L MIS.QUERY ggv
bbk.query.yn.comment.pacu 70 QRY.RESP L $(W)HSH[hsh]B3[hshBK,ggv]|5
bbk.response.pacu 75 QRY.RESP L $(W)HSH[hsh]B3[hshBK,ggv]|0
Ì € i 2
bbk.queries.pacu.mult
[urn,bbk.urn.pacu,bbk.query.pacu, bbk.query.pacu.mult.q]
$(W)HSH[hsh]B3[hshBK,ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query.pacu.mult.q 2 PINT R ggvMQ
bbk.query.pacu.mult.resp 30 QRY.RESP L $(W)HSH[hsh]B3[hshBK,ggv]M[ggvMQ]|0
Ì € i 2
bbk.data.pre
[urn, bbk.urn.pre]
$(W)HSH[hsh]B1[hshBK]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.urn.pre 10 FREE L hshBK
bbk.exists.pre 1 FREE L VAL=IF{+@t.bbk.queries.pre[urn,bbk.urn.pre,""] @Z.chec
VAL=k.mark.data;" "}
bbk.yn.pre 1 YN L $(W)HSH[hsh]B1[hshBK]|0
Ì € i 2
bbk.queries.pre
[urn,bbk.urn.pre, bbk.query.pre]
$(W)HSH[hsh]B1[hshBK,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query.pre 10 FREE L MIS.QUERY ggv
bbk.query.yn.comment.pre 70 QRY.RESP L $(W)HSH[hsh]B1[hshBK,ggv]|5
bbk.response.pre 75 QRY.RESP L $(W)HSH[hsh]B1[hshBK,ggv]|0
Ì € i 2
bbk.queries.pre.mult
[urn,bbk.urn.pre,bbk.query.pre, bbk.query.pre.mult.q]
$(W)HSH[hsh]B1[hshBK,ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bbk.query.pre.mult.q 2 PINT R ggvMQ
bbk.query.pre.mult.resp 30 QRY.RESP L $(W)HSH[hsh]B1[hshBK,ggv]M[ggvMQ]|0
Ì € i 2
billing.data
[urn, bill.urn]
$(W)HSH[hsh]B[hshBU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.urn 11 FREE L hshBU
bill.anes.rule 10 FREE L SCH.ANES.RULE $(W)HSH[hsh]B[hshBU]|2
bill.charge.anes.md 9 PINT R $(W)HSH[hsh]B[hshBU]|9
bill.charge.anes.time 9 PINT R $(W)HSH[hsh]B[hshBU]|8
bill.charge.eqp 9 PINT R $(W)HSH[hsh]B[hshBU]|6
bill.charge.ip 9 PINT R $(W)HSH[hsh]B[hshBU]|7
bill.charge.item 9 PINT R $(W)HSH[hsh]B[hshBU]|4
bill.charge.med 9 PINT R $(W)HSH[hsh]B[hshBU]|10
bill.charge.misc 9 PINT R $(W)HSH[hsh]B[hshBU]|11
bill.charge.pacu.time 9 PINT R $(W)HSH[hsh]B[hshBU]|12
bill.charge.pro.fee 9 PINT R $(W)HSH[hsh]B[hshBU]|14
bill.charge.proc 9 PINT R $(W)HSH[hsh]B[hshBU]|3
bill.charge.time 9 PINT R $(W)HSH[hsh]B[hshBU]|5
bill.credit 1 YN L $(W)HSH[hsh]B[hshBU]|0
bill.date 8 DATE L VAL=(@bill.urn$8)
bill.pacu.rule 10 FREE L SCH.PACU.RULE $(W)HSH[hsh]B[hshBU]|13
bill.time.rule 10 FREE L SCH.TIME.RULE $(W)HSH[hsh]B[hshBU]|1
Ì € i 2
billing.data.anes
[urn,bill.urn, bill.anes]
$(W)HSH[hsh]B[hshBU]A[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.anes 10 FREE L hshBN
bill.anes.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]A[hshBN]B
bill.anes.qty 3 INT R $(W)HSH[hsh]B[hshBU]A[hshBN]
Ì € i 2
billing.data.anes.det
[urn,bill.urn,bill.anes, bill.anes.det]
$(W)HSH[hsh]B[hshBU]A[hshBN]D[hsw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.anes.det 10 FREE L SCH.ANES.RULE hsw
bill.anes.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]A[hshBN]D[hsw]|0
Ì € i 2
billing.data.eqp
[urn,bill.urn, bill.eqp]
$(W)HSH[hsh]B[hshBU]EQ[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.eqp 10 FREE L hshBN
bill.eqp.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]EQ[hshBN]B
bill.eqp.qty 3 INT R $(W)HSH[hsh]B[hshBU]EQ[hshBN]
Ì € i 2
billing.data.eqp.det
[urn,bill.urn,bill.eqp, bill.eqp.det]
$(W)HSH[hsh]B[hshBU]EQ[hshBN]D[wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.eqp.det 15 FREE L SCH.EQP wre
bill.eqp.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]EQ[hshBN]D[wre]|0
Ì € i 2
billing.data.inv
[urn,bill.urn, bill.inv,bill.cost,bill.comment]
$(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.inv 10 FREE L hshBN
bill.cost 9 FREE L hshBC
bill.comment 30 FREE L hshBM
bill.inv.charge.txn 1 YN L $(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]C
bill.inv.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]B
bill.inv.qty 3 INT R $(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]
Ì € i 2
billing.data.inv.det
[urn,bill.urn,bill.inv,bill.cost,bill.comment, bill.item.inv,bill.item]
$(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]D[hsin,hsii]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.item.inv 10 FREE L SCH.INV hsin
bill.item 10 FREE L SCH.INV.ITEM hsii
bill.item.qty 3 INT R $(W)HSH[hsh]B[hshBU]INV[hshBN,hshBC,hshBM]D[hsin,hsii]|0
Ì € i 2
billing.data.ip
[urn,bill.urn, bill.ip]
$(W)HSH[hsh]B[hshBU]IP[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.ip 10 FREE L hshBN
bill.ip.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]IP[hshBN]B
bill.ip.qty 3 INT R $(W)HSH[hsh]B[hshBU]IP[hshBN]
Ì € i 2
billing.data.med
[urn,bill.urn, bill.med]
$(W)HSH[hsh]B[hshBU]ME[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.med 10 FREE L hshBN
bill.med.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]ME[hshBN]B
bill.med.qty 3 INT R $(W)HSH[hsh]B[hshBU]ME[hshBN]
Ì € i 2
billing.data.misc
[urn,bill.urn, bill.misc,bill.misc.charge,bill.misc.comment]
$(W)HSH[hsh]B[hshBU]MC[hshBN,hshBC,hshBM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.misc 10 FREE L hshBN
bill.misc.charge 9 FREE L hshBC
bill.misc.comment 30 FREE L hshBM
bill.misc.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]MC[hshBN,hshBC,hshBM]B
bill.misc.qty 3 INT R $(W)HSH[hsh]B[hshBU]MC[hshBN,hshBC,hshBM]
Ì € i 2
billing.data.ops
[urn,bill.urn, bill.op]
$(W)HSH[hsh]B[hshBU]OP2[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.op 10 FREE L hshBN
bill.op.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]OP2[hshBN]B
bill.op.qty 3 INT R $(W)HSH[hsh]B[hshBU]OP2[hshBN]
Ì € i 2
billing.data.ops.det
[urn,bill.urn,bill.op, bill.op.det]
$(W)HSH[hsh]B[hshBU]OP2[hshBN]D[wat]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.op.det 10 FREE L SCH.APPT.TYPE wat
bill.op.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]OP2[hshBN]D[wat]|0
Ì € i 2
billing.data.pro.fee
[urn,bill.urn, bill.pro.fee,bill.pro.fee.surg]
$(W)HSH[hsh]B[hshBU]PF[hshBN,hshGG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.pro.fee 10 FREE L hshBN
bill.pro.fee.surg 10 FREE L hshGG
bill.pro.fee.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]PF[hshBN,hshGG]B
bill.pro.fee.qty 3 INT R $(W)HSH[hsh]B[hshBU]PF[hshBN,hshGG]
Ì € i 2
billing.data.time
[urn,bill.urn, bill.time]
$(W)HSH[hsh]B[hshBU]T[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time 10 FREE L hshBN
bill.time.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]T[hshBN]B
bill.time.qty 3 INT R $(W)HSH[hsh]B[hshBU]T[hshBN]
Ì € i 2
billing.data.time.det
[urn,bill.urn,bill.time, bill.time.det]
$(W)HSH[hsh]B[hshBU]T[hshBN]D[hsy]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time.det 10 FREE L SCH.TIME.RULE hsy
bill.time.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]T[hshBN]D[hsy]|0
Ì € i 2
billing.data.time.anes
[urn,bill.urn, bill.time.anes]
$(W)HSH[hsh]B[hshBU]AT[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time.anes 10 FREE L hshBN
bill.time.anes.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]AT[hshBN]B
bill.time.qty.anes 3 INT R $(W)HSH[hsh]B[hshBU]AT[hshBN]
Ì € i 2
billing.data.time.anes.de
[urn,bill.urn,bill.time.anes, bill.time.anes.det]
$(W)HSH[hsh]B[hshBU]AT[hshBN]D[hsw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time.anes.det 10 FREE L SCH.ANES.RULE hsw
bill.time.anes.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]AT[hshBN]D[hsw]|0
Ì € i 2
billing.data.time.pacu
[urn,bill.urn, bill.time.pacu]
$(W)HSH[hsh]B[hshBU]PT[hshBN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time.pacu 10 FREE L hshBN
bill.time.pacu.in.batch 1 YN L $(W)HSH[hsh]B[hshBU]PT[hshBN]B
bill.time.qty.pacu 3 INT R $(W)HSH[hsh]B[hshBU]PT[hshBN]
Ì € i 2
billing.data.time.pacu.de
[urn,bill.urn,bill.time.pacu, bill.time.pacu.det]
$(W)HSH[hsh]B[hshBU]PT[hshBN]D[hsk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bill.time.pacu.det 10 FREE L SCH.PACU.RULE hsk
bill.time.pacu.det.qty 3 INT R $(W)HSH[hsh]B[hshBU]PT[hshBN]D[hsk]|0
Ì € i 2
circuits
[urn, circuit]
$(W)HSH[hsh]CIR[hsci]
Field Name Len Dat Typ J DPM Offset/Local/VAL
circuit 5 FREE L SCH.CIRCUIT hsci
circ.yn 1 YN L $(W)HSH[hsh]CIR[hsci]|0
Ì € i 2
circuit.screen
[urn,circuit, circuit.query]
$(W)HSH[hsh]CIR[hsci]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
circuit.query 10 FREE L MIS.QUERY ggv
circuit.query.yn.comment 70 QRY.RESP L $(W)HSH[hsh]CIR[hsci]Q[ggv]|5
circuit.response 75 QRY.RESP L $(W)HSH[hsh]CIR[hsci]Q[ggv]|0
Ì € i 2
complications
[urn, complication]
$(W)HSH[hsh]C[hsco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
complication 10 FREE L SCH.COMPL hsco
comp.yn 1 YN L $(W)HSH[hsh]C[hsco]|0
compl.comments.exist 1 FREE L VAL=IF{+@complications.comments[,,""] @Z.check.mark.da
VAL=ta}
Ì € i 2
complications.comments
[urn,complication, comp.comment.q]
$(W)HSH[hsh]C[hsco]C[hscoQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.comment.q 3 INT R hscoQ
comp.comment 30 TEXT L $(W)HSH[hsh]C[hsco]C[hscoQ]
Ì € i 2
complications.anes
[urn, complication.anes]
$(W)HSH[hsh]CA[hsco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
complication.anes 10 FREE L SCH.COMPL hsco
comp.anes.yn 1 YN L $(W)HSH[hsh]CA[hsco]|0
compl.anes.comments.exist 1 FREE L VAL=IF{+@complications.anes.cmts[,,""] @Z.check.mark.d
VAL=ata}
Ì € i 2
complications.anes.cmts
[urn,complication.anes, comp.anes.comment.q]
$(W)HSH[hsh]CA[hsco]C[hscoQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.anes.comment.q 3 INT R hscoQ
comp.anes.comment 30 TEXT L $(W)HSH[hsh]CA[hsco]C[hscoQ]
Ì € i 2
complications.pacu
[urn, complication.pacu]
$(W)HSH[hsh]C3[hsco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
complication.pacu 10 FREE L SCH.COMPL hsco
comp.pacu.yn 1 YN L $(W)HSH[hsh]C3[hsco]|0
compl.pacu.comments.exist 1 FREE L VAL=IF{+@complications.pacu.cmts[,,""] @Z.check.mark.d
VAL=ata}
Ì € i 2
complications.pacu.cmts
[urn,complication.pacu, comp.pacu.comment.q]
$(W)HSH[hsh]C3[hsco]C[hscoQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.pacu.comment.q 3 INT R hscoQ
comp.pacu.comment 30 TEXT L $(W)HSH[hsh]C3[hsco]C[hscoQ]
Ì € i 2
complications.pre
[urn, complication.pre]
$(W)HSH[hsh]C1[hsco]
Field Name Len Dat Typ J DPM Offset/Local/VAL
complication.pre 10 FREE L SCH.COMPL hsco
comp.pre.yn 1 YN L $(W)HSH[hsh]C1[hsco]|0
compl.pre.comments.exist 1 FREE L VAL=IF{+@complications.pre.cmts[,,""] @Z.check.mark.da
VAL=ta}
Ì € i 2
complications.pre.cmts
[urn,complication.pre, comp.pre.comment.q]
$(W)HSH[hsh]C1[hsco]C[hscoQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comp.pre.comment.q 3 INT R hscoQ
comp.pre.comment 30 TEXT L $(W)HSH[hsh]C1[hsco]C[hscoQ]
Ì € i 2
counts
[urn, count.urn]
$(W)HSH[hsh]COUNT[hshCu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
count.urn 2 URN L hshCu
count.1.1.out 34 FREE L VAL=IF{@UNV.USER.name[@count.1.nurse.1];@count.1.nurse
VAL=.1}
count.1.2.out 34 FREE L VAL=IF{@UNV.USER.name[@count.1.nurse.2];@count.1.nurse
VAL=.2}
count.1.com 1 FREE L VAL=IF{+@counts.text[,,""] "Y"}
count.1.coment 40 FREE L
count.1.nurse.1 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|1
count.1.nurse.2 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|2
count.2.1.out 34 FREE L VAL=IF{@UNV.USER.name[@count.2.nurse.1];@count.2.nurse
VAL=.1}
count.2.2.out 34 FREE L VAL=IF{@UNV.USER.name[@count.2.nurse.2];@count.2.nurse
VAL=.2}
count.2.com 1 FREE L VAL=IF{+@counts2.text[,,""] "Y"}
count.2.coment 40 FREE L
count.2.comment 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|6
count.2.comment2 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|7
count.2.correct 1 YN L $(W)HSH[hsh]COUNT[hshCu]|5
count.2.nurse.1 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|3
count.2.nurse.2 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|4
count.3.1.out 34 FREE L VAL=IF{@UNV.USER.name[@count.3.nurse.1];@count.3.nurse
VAL=.1}
count.3.2.out 34 FREE L VAL=IF{@UNV.USER.name[@count.3.nurse.2];@count.3.nurse
VAL=.2}
count.3.com 1 FREE L VAL=IF{+@counts3.text[,,""] "Y"}
count.3.coment 40 FREE L
count.3.comment 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|11
count.3.comment2 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|12
count.3.correct 1 YN L $(W)HSH[hsh]COUNT[hshCu]|10
count.3.nurse.1 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|8
count.3.nurse.2 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|9
count.4.1.out 34 FREE L VAL=IF{@UNV.USER.name[@count.4.nurse.1];@count.4.nurse
VAL=.1}
count.4.2.out 34 FREE L VAL=IF{@UNV.USER.name[@count.4.nurse.2];@count.4.nurse
VAL=.2}
count.4.com 1 FREE L VAL=IF{+@counts4.text[,,""] "Y"}
count.4.correct 1 YN L $(W)HSH[hsh]COUNT[hshCu]|15
count.4.nurse.1 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|13
count.4.nurse.2 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|14
count.type 10 FREE L $(W)HSH[hsh]COUNT[hshCu]|0
Ì € i 2
counts.text
[urn,count.urn, count.1.text.line]
$(W)HSH[hsh]COUNT[hshCu]T1[hshC1]
Field Name Len Dat Typ J DPM Offset/Local/VAL
count.1.text.line 2 URN L hshC1
count.1.text 40 TEXT L $(W)HSH[hsh]COUNT[hshCu]T1[hshC1]
count.1.text.exists 1 FREE L VAL=IF{+@SCH.PAT.counts.text[urn,count.urn,""] @Z.chec
VAL=k.mark.data}
Ì € i 2
counts2
[urn, count2.urn]
$(W)HSH[hsh]COUNT[hshCu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
count2.urn 2 URN L hshCu
count2.comment 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|6
count2.comment2 40 FREE L $(W)HSH[hsh]COUNT[hshCu]|7
count2.correct 1 YN L $(W)HSH[hsh]COUNT[hshCu]|5
count2.nurse1 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|3
count2.nurse2 10 FREE L MIS.USER $(W)HSH[hsh]COUNT[hshCu]|4
count2.type 10 FREE L $(W)HSH[hsh]COUNT[hshCu]|0
Ì € i 2
counts2.text
[urn,count2.urn, count.2.text.line]
$(W)HSH[hsh]COUNT[hshCu]T2[hshC2]
Field Name Len Dat Typ J DPM Offset/Local/VAL
count.2.text.line 2 URN L hshC2
count.2.text 40 TEXT L $(W)HSH[hsh]COUNT[hshCu]T2[hshC2]
count.2.text.exists 1 FREE L VAL=IF{+@SCH.PAT.counts2.text[urn,count.urn,""] @Z.che
VAL=ck.mark.data}
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |