Ì i 2
adm.router.msgs.display
[adm.router.msgs.dis.q]
/HGDZAUMD[hgAR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.router.msgs.dis.q 3 PINT R hgAR
adm.router.msgs.dis.setup 0 FREE L VAL=%MRM.PAT.adm.router.msg.format(urn)
adm.router.msgs.dis.text 70 TEXT L /HGDZAUMD[hgAR]
Ì i 2
main
[urn]
*(HG)HGDZ[hga]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L MRM.PAT hga
abs.urn 10 PINT R *(HG)HGDZ[hga]|1
account.number 12 FREE L VAL=@ABS.PAT.account.number[IF{abs.urn;@MRM.ABS.PAT.ab
VAL=s.urn}]
adm.date 8 DATE L VAL=@ABS.PAT.adm.date[IF{abs.urn;@MRM.ABS.PAT.abs.urn}
VAL=]
adm.msg.assigned.to 1 FREE L *(HG)HGDZ[hga]|22
adm.rtr.msgs.new 1 FREE L *(HG)HGDZ[hga]|6
admin.assigned 1 YN L *(HG)HGDZ[hga]|23
age.sex 8 FREE L VAL=@ABS.PAT.age.adm[abs.urn]:0S_"/"_@ABS.PAT.sex[IF{a
VAL=bs.urn;@MRM.ABS.PAT.abs.urn}]'="/"
attending.phys 10 FREE L MIS.DOC VAL=(@ABS.PAT.physician[IF{abs.urn;@MRM.ABS.PAT.abs.ur
VAL=n},1])
attending.phys.name 30 FREE L VAL=@MIS.DOC.name[@ABS.PAT.physician[IF{abs.urn;@MRM.A
VAL=BS.PAT.abs.urn},1]]
attending.phys.spec 10 FREE L VAL=@MIS.DOC.dft.abs.spec.service[@attending.phys]
avail.dt.out 8 DATE L VAL=%Z.date.clin.to.npr(@avail.dt.time)
avail.dt.time 10 FREE L *(HG)HGDZ[hga]|4
avail.tm.out 4 HHMM L VAL=%Z.time.out(@avail.dt.time)
cd.screen 15 FREE L MIS.SCREEN
coder 12 FREE L *(HG)HGDZ[hga]|5
coder.name 25 FREE L VAL=@MIS.USER.name[@coder]
complete.date 8 DATE L *(HG)HGDZ[hga]|18
complete.time 4 TIME L *(HG)HGDZ[hga]|19
created.date 8 DATE L *(HG)HGDZ[hga]|12
created.time 4 HHMM L *(HG)HGDZ[hga]|13
dis.date 8 DATE L VAL=@ABS.PAT.dis.date[IF{abs.urn;@MRM.ABS.PAT.abs.urn}
VAL=]
dis.svc.date 8 DATE L VAL=IF{@ABS.PAT.dis.date[IF{abs.urn;@MRM.ABS.PAT.abs.u
VAL=rn}];@ABS.PAT.service.date[IF{abs.urn;@MRM.ABS.PAT
VAL=.abs.urn}]}
facility 10 FREE L VAL=@ABS.PAT.facility[IF{abs.urn;@MRM.ABS.PAT.abs.urn}
VAL=]
financial.class 10 FREE L VAL=@ABS.PAT.financial.class[IF{abs.urn;@MRM.ABS.PAT.a
VAL=bs.urn}]
last.update 10 INT R *(HG)HGDZ[hga]|14
last.update.user 10 FREE L MIS.USER *(HG)HGDZ[hga]|15
los 4 INT R VAL=@ABS.PAT.los.days.now[IF{abs.urn;@MRM.ABS.PAT.abs.
VAL=urn}]
name 30 FREE L VAL=@ABS.PAT.name[IF{abs.urn;@MRM.ABS.PAT.abs.urn}]
perm.fac.wlist.seq 15 INT R *(HG)HGDZ[hga]|20
perm.wlist.seq 6 INT R *(HG)HGDZ[hga]|9
prin.surg 10 FREE L VAL=@ABS.PAT.prin.surg[IF{abs.urn;@MRM.ABS.PAT.abs.urn
VAL=},1,1]
print.cd.screen 0 FREE L VAL=IF{@cd.screen urn^/urn,%MIS.SCREEN.print(@cd.scree
VAL=n,^@customer.defined.fields,"",0),""}
print.cd.screen.verbatim 0 FREE L VAL=IF{@cd.screen urn^/urn,%MIS.SCREEN.print(@cd.scree
VAL=n,^@customer.defined.fields,1,0),""}
priority 2 PINT R *(HG)HGDZ[hga]|2
pt.class 10 FREE L ABS.PT.CLASS VAL=@ABS.PAT.pt.class[IF{abs.urn;@MRM.ABS.PAT.abs.urn}
VAL=]
queries.new 1 FREE L *(HG)HGDZ[hga]|8
scan.list.seq 6 FREE L *(HG)HGDZ[hga]|17
scan.msg.assigned.to 1 FREE L *(HG)HGDZ[hga]|21
scan.user 12 FREE L *(HG)HGDZ[hga]|16
scan.user.msgs.new 1 FREE L *(HG)HGDZ[hga]|7
service.date 8 DATE L VAL=@ABS.PAT.service.date[IF{abs.urn;@MRM.ABS.PAT.abs.
VAL=urn}]
status 11 FREE L *(HG)HGDZ[hga]|3
unit.number 10 FREE L VAL=@ABS.PAT.unit.number[IF{abs.urn;@MRM.ABS.PAT.abs.u
VAL=rn}]
Ì € i 2
coders
[urn, coders.seq]
*(HG)HGDZ[hga]COD[hgCOS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
coders.seq 3 PINT R hgCOS
coders.coder 10 FREE L *(HG)HGDZ[hga]COD[hgCOS]|0
coders.date 8 DATE L *(HG)HGDZ[hga]COD[hgCOS]|1
coders.time 4 TIME L *(HG)HGDZ[hga]COD[hgCOS]|2
coders.user 10 FREE L MIS.USER
Ì € i 2
coding
[urn, coding.seq]
*(HG)HGDZ[hga]CO[hgdCO]
Field Name Len Dat Typ J DPM Offset/Local/VAL
coding.seq 3 PINT R hgdCO
coding.end.date 8 DATE L *(HG)HGDZ[hga]CO[hgdCO]|3
coding.end.seconds 10 FREE L *(HG)HGDZ[hga]CO[hgdCO]|8
coding.end.status 11 FREE L *(HG)HGDZ[hga]CO[hgdCO]|6
coding.end.time 4 TIME L *(HG)HGDZ[hga]CO[hgdCO]|4
coding.start.date 8 DATE L *(HG)HGDZ[hga]CO[hgdCO]|1
coding.start.seconds 10 FREE L *(HG)HGDZ[hga]CO[hgdCO]|7
coding.start.status 11 FREE L *(HG)HGDZ[hga]CO[hgdCO]|5
coding.start.time 4 TIME L *(HG)HGDZ[hga]CO[hgdCO]|2
coding.user 10 FREE L MIS.USER *(HG)HGDZ[hga]CO[hgdCO]|0
Ì € i 2
customer.defined.queries
[urn, cd.query]
*(HG)HGDZ[hga]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.map.date 10 PINT R *(HG)HGDZ[hga]CD[ggv]INIT
cd.query.response 75 QRY.RESP L *(HG)HGDZ[hga]CD[ggv]|0
Ì € i 2
customer.def.mult.queries
[urn,cd.query, cdm.seq.no]
*(HG)HGDZ[hga]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L *(HG)HGDZ[hga]CD[ggv]M[ggvN]|0
Ì € i 2
ovr.comments
[urn, ovr.comments.q]
*(HG)HGDZ[hga]OVRC[hgOVC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ovr.comments.q 3 PINT R hgOVC
ovr.comments.date 8 DATE L *(HG)HGDZ[hga]OVRC[hgOVC]|0
ovr.comments.time 4 TIME L *(HG)HGDZ[hga]OVRC[hgOVC]|1
ovr.comments.user 10 FREE L MIS.USER *(HG)HGDZ[hga]OVRC[hgOVC]|2
Ì € i 2
ovr.comment
[urn,ovr.comments.q, ovr.comment.q]
*(HG)HGDZ[hga]OVRC[hgOVC]C[hgoC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ovr.comment.q 3 PINT R hgoC
ovr.comment.text 50 FREE L *(HG)HGDZ[hga]OVRC[hgOVC]C[hgoC]
Ì € i 2
scan.user.msgs
[urn, scan.user.msgs.q]
*(HG)HGDZ[hga]SUM[hgaSU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
scan.user.msgs.q 3 PINT R hgaSU
scan.user.msgs.assigned 1 FREE L *(HG)HGDZ[hga]SUM[hgaSU]|4
scan.user.msgs.date 8 DATE L *(HG)HGDZ[hga]SUM[hgaSU]|0
scan.user.msgs.new.msg 1 YN L *(HG)HGDZ[hga]SUM[hgaSU]|3
scan.user.msgs.time 4 TIME L *(HG)HGDZ[hga]SUM[hgaSU]|1
scan.user.msgs.user 10 FREE L MIS.USER *(HG)HGDZ[hga]SUM[hgaSU]|2
Ì € i 2
scan.user.msg
[urn,scan.user.msgs.q, scan.user.msg.q]
*(HG)HGDZ[hga]SUM[hgaSU]N[hgSUQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
scan.user.msg.q 3 PINT R hgSUQ
scan.user.msg.text 70 TEXT L *(HG)HGDZ[hga]SUM[hgaSU]N[hgSUQ]
Ì € i 2
transactions
[urn, txn.urn]
*(HG)HGDZ[hga]T[hgdTN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.urn 4 URN L hgdTN
txn.date 8 DATE L *(HG)HGDZ[hga]T[hgdTN]|0
txn.field 10 FREE L *(HG)HGDZ[hga]T[hgdTN]|2
txn.new 30 FREE L *(HG)HGDZ[hga]T[hgdTN]|5
txn.old 30 FREE L *(HG)HGDZ[hga]T[hgdTN]|4
txn.time 4 HHMM L *(HG)HGDZ[hga]T[hgdTN]|6
txn.type 1 CHOICE L *(HG)HGDZ[hga]T[hgdTN]|1
txn.user 10 FREE L MIS.USER *(HG)HGDZ[hga]T[hgdTN]|3
Ì i 2
scan.user.msgs.display
[scan.user.msgs.dis.q]
/HGASUMD[hgSUD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
scan.user.msgs.dis.q 3 PINT R hgSUD
scan.user.msgs.dis.setup 0 FREE L VAL=%MRM.PAT.scan.user.msg.format(urn)
scan.user.msgs.dis.text 70 TEXT L /HGASUMD[hgSUD]
Ì i 2
wlist.scan.user
[wlist.su.seq]
*(HG)HGDZWISU[hgWSU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
wlist.su.seq 3 PINT R hgWSU
wlist.su.avail.dt.tm 15 FREE L *(HG)HGDZWISU[hgWSU]|9
wlist.su.check 1 FREE L *(HG)HGDZWISU[hgWSU]|0
wlist.su.comm 3 FREE L *(HG)HGDZWISU[hgWSU]|7
wlist.su.dis.svc.date 8 DATE L *(HG)HGDZWISU[hgWSU]|4
wlist.su.los 4 FREE L *(HG)HGDZWISU[hgWSU]|8
wlist.su.msgs 10 FREE L *(HG)HGDZWISU[hgWSU]|10
wlist.su.name 25 FREE L *(HG)HGDZWISU[hgWSU]|2
wlist.su.prio 4 FREE L *(HG)HGDZWISU[hgWSU]|6
wlist.su.pt.class 10 FREE L ABS.PT.CLASS *(HG)HGDZWISU[hgWSU]|3
wlist.su.stat 2 FREE L *(HG)HGDZWISU[hgWSU]|5
wlist.su.urn 30 URN L MRM.ABS.PAT *(HG)HGDZWISU[hgWSU]|1
Index Files Subscripts/Physical Base
acct.num.txn.x [account.number,urn,txn.urn]
*(HG)HGDZATA[hgAN,hga,hgdTN]
avail.dt.x [avail.dt.time,urn]
*(HG)HGDZAVX[hgAVD,hga]
coder.x [coder,urn]
*(HG)HGDZCOD[hgCOD,hga]
complete.x [complete.date,complete.time,urn]
*(HG)HGDZCMPL[hgCD,hgCT,hga]
override.x [urn,coder,ovr.comments.date,ovr.comments.time]
?(HG)HGDZOVRX[hga,hgCOD,hgOVD,hgOVT]
query.index [urn,query.forms.q] = query.forms.dpt.urn
?(HG)HGDZQF[hga,hgpy]
scan.user.x [urn]
*(HG)HGDZSUX[hga]
scan.x [scan.user,urn]
?(HG)HGDZSUA[hgSCU,hga]
user.txn.x [txn.user,urn,txn.urn]
?(HG)HGDZUTA[gu,hga,hgdTN]
wlist.dis.dt.x [dis.date,pt.class,urn]
?(HG)HGDZWID[hgDD,djf,hga]
wlist.pat.class.x [pt.class,dis.date,urn]
?(HG)HGDZWIPC[djf,hgDD,hga]
|
|
| | | | | | | | | | | |