Ì i 2
mrm.abs.pat.adm.router.msgs.d (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 50 FREE L /HGDZAUMD[hgAR]
Ì i 2
mrm.abs.pat.main (main)
[urn]
*HGDZ[hga]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L MRM.PAT hga
abs.urn 10 PINT R *HGDZ[hga]|1
account.number 12 FREE L VAL=@ABS.PAT.account.number[abs.urn]
adm.date 8 DATE L VAL=@ABS.PAT.adm.date[abs.urn]
adm.msg.assigned.to 1 FREE L *HGDZ[hga]|22
adm.rtr.msgs.new 1 FREE L *HGDZ[hga]|6
admin.assigned 1 YN L *HGDZ[hga]|23
age.sex 8 FREE L VAL=@ABS.PAT.age.adm[abs.urn]:0S_"/"_@ABS.PAT.sex[abs.
VAL=urn]'="/"
attending.phys 10 FREE L MIS.DOC.DICT VAL=(@ABS.PAT.physician[abs.urn,1])
attending.phys.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ABS.PAT.physician[abs.urn,1]]
attending.phys.spec 10 FREE L VAL=@MIS.DOC.DICT.dft.abs.spec.service[@attending.phys
VAL=]
avail.dt.out 8 DATE L VAL=%Z.date.clin.to.npr(@avail.dt.time)
avail.dt.time 10 FREE L *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 *HGDZ[hga]|5
coder.name 25 FREE L VAL=@MIS.USER.name[@coder]
complete.date 8 DATE L *HGDZ[hga]|18
complete.time 4 TIME L *HGDZ[hga]|19
created.date 8 DATE L *HGDZ[hga]|12
created.time 4 HHMM L *HGDZ[hga]|13
dis.date 8 DATE L VAL=@ABS.PAT.dis.date[abs.urn]
dis.svc.date 8 DATE L VAL=IF{@ABS.PAT.dis.date[abs.urn];@ABS.PAT.service.dat
VAL=e[abs.urn]}
facility 10 FREE L VAL=@ABS.PAT.facility[abs.urn]
financial.class 10 FREE L VAL=@ABS.PAT.financial.class[abs.urn]
id 30 URN L VAL=@name
last.update 10 INT R *HGDZ[hga]|14
last.update.user 10 FREE L MIS.USER *HGDZ[hga]|15
los 4 INT R VAL=@ABS.PAT.los.days.now[abs.urn]
name 30 FREE L VAL=@ABS.PAT.name[abs.urn]
perm.fac.wlist.seq 15 INT R *HGDZ[hga]|20
perm.wlist.seq 6 INT R *HGDZ[hga]|9
pqf.msgs.new 1 FREE L *HGDZ[hga]|8
prin.surg 10 FREE L VAL=@ABS.PAT.prin.surg[abs.urn,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 *HGDZ[hga]|2
pt.class 10 FREE L ABS.PT.CLASS VAL=@ABS.PAT.pt.class[abs.urn]
scan.list.seq 6 FREE L *HGDZ[hga]|17
scan.msg.assigned.to 1 FREE L *HGDZ[hga]|21
scan.user 12 FREE L *HGDZ[hga]|16
scan.user.msgs.new 1 FREE L *HGDZ[hga]|7
service.date 8 DATE L VAL=@ABS.PAT.service.date[abs.urn]
status 11 FREE L *HGDZ[hga]|3
unit.number 10 FREE L VAL=@ABS.PAT.unit.number[abs.urn]
Ì € i 2
mrm.abs.pat.coders (coders)
[urn, coders.seq]
*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 *HGDZ[hga]COD[hgCOS]|0
coders.date 8 DATE L *HGDZ[hga]COD[hgCOS]|1
coders.time 4 TIME L *HGDZ[hga]COD[hgCOS]|2
coders.user 10 FREE L MIS.USER
Ì € i 2
mrm.abs.pat.coding (coding)
[urn, coding.seq]
*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 *HGDZ[hga]CO[hgdCO]|3
coding.end.seconds 10 FREE L *HGDZ[hga]CO[hgdCO]|8
coding.end.status 11 FREE L *HGDZ[hga]CO[hgdCO]|6
coding.end.time 4 TIME L *HGDZ[hga]CO[hgdCO]|4
coding.start.date 8 DATE L *HGDZ[hga]CO[hgdCO]|1
coding.start.seconds 10 FREE L *HGDZ[hga]CO[hgdCO]|7
coding.start.status 11 FREE L *HGDZ[hga]CO[hgdCO]|5
coding.start.time 4 TIME L *HGDZ[hga]CO[hgdCO]|2
coding.user 10 FREE L MIS.USER *HGDZ[hga]CO[hgdCO]|0
Ì € i 2
mrm.abs.pat.cust.def.queries (customer.defined.queries)
[urn, cd.query]
*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 *HGDZ[hga]CD[ggv]INIT
cd.query.response 75 QRY.RESP L *HGDZ[hga]CD[ggv]|0
Ì € i 2
mrm.abs.pat.cd.mult.queries (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
*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 *HGDZ[hga]CD[ggv]M[ggvN]|0
Ì € i 2
mrm.abs.pat.override.comments (ovr.comments)
[urn, ovr.comments.q]
*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 *HGDZ[hga]OVRC[hgOVC]|0
ovr.comments.time 4 TIME L *HGDZ[hga]OVRC[hgOVC]|1
ovr.comments.user 10 FREE L MIS.USER *HGDZ[hga]OVRC[hgOVC]|2
Ì € i 2
mrm.abs.pat.ovr.comment (ovr.comment)
[urn,ovr.comments.q, ovr.comment.q]
*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 *HGDZ[hga]OVRC[hgOVC]C[hgoC]
Ì € i 2
mrm.abs.pat.pqf.msgs (pqf.msgs)
[urn, pqf.msgs.q]
*HGDZ[hga]PQFM[hgPQF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pqf.msgs.q 3 PINT R hgPQF
pqf.msgs.date 8 DATE L *HGDZ[hga]PQFM[hgPQF]|0
pqf.msgs.time 4 TIME L *HGDZ[hga]PQFM[hgPQF]|1
pqf.msgs.user 10 FREE L MIS.USER *HGDZ[hga]PQFM[hgPQF]|2
Ì € i 2
mrm.abs.pat.pqf.msg (pqf.msg)
[urn,pqf.msgs.q, pqf.msg.q]
*HGDZ[hga]PQFM[hgPQF]P[hgPQP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pqf.msg.q 3 PINT R hgPQP
pqf.msg.text 50 FREE L *HGDZ[hga]PQFM[hgPQF]P[hgPQP]
Ì € i 2
mrm.abs.pat.qry.forms (query.forms)
[urn, query.forms.q]
*HGDZ[hga]QFM[hgpq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.forms.q 3 INT R hgpq
query.forms.date 8 DATE L *HGDZ[hga]QFM[hgpq]|3
query.forms.dpt.urn 10 INT R *HGDZ[hga]QFM[hgpq]|2
query.forms.mnemonic 20 FREE L MRM.PHYS.QUERY *HGDZ[hga]QFM[hgpq]|0
query.forms.physician 10 FREE L MIS.DOC.DICT *HGDZ[hga]QFM[hgpq]|1
query.forms.status 8 CHOICE L *HGDZ[hga]QFM[hgpq]|6
query.forms.time 4 HHMM L *HGDZ[hga]QFM[hgpq]|4
query.forms.user 10 FREE L MIS.USER *HGDZ[hga]QFM[hgpq]|5
Ì € i 2
mrm.abs.pat.scan.user.msgs (scan.user.msgs)
[urn, scan.user.msgs.q]
*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 *HGDZ[hga]SUM[hgaSU]|4
scan.user.msgs.date 8 DATE L *HGDZ[hga]SUM[hgaSU]|0
scan.user.msgs.new.msg 1 YN L *HGDZ[hga]SUM[hgaSU]|3
scan.user.msgs.time 4 TIME L *HGDZ[hga]SUM[hgaSU]|1
scan.user.msgs.user 10 FREE L MIS.USER *HGDZ[hga]SUM[hgaSU]|2
Ì € i 2
mrm.abs.pat.scan.user.msg (scan.user.msg)
[urn,scan.user.msgs.q, scan.user.msg.q]
*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 50 FREE L *HGDZ[hga]SUM[hgaSU]N[hgSUQ]
Ì € i 2
mrm.abs.pat.transactions (transactions)
[urn, txn.urn]
*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 *HGDZ[hga]T[hgdTN]|0
txn.field 10 FREE L *HGDZ[hga]T[hgdTN]|2
txn.new 30 FREE L *HGDZ[hga]T[hgdTN]|5
txn.old 30 FREE L *HGDZ[hga]T[hgdTN]|4
txn.time 4 HHMM L *HGDZ[hga]T[hgdTN]|6
txn.type 1 CHOICE L *HGDZ[hga]T[hgdTN]|1
txn.user 10 FREE L MIS.USER *HGDZ[hga]T[hgdTN]|3
Ì i 2
mrm.abs.pat.scan.user.msgs.d (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 50 FREE L /HGASUMD[hgSUD]
Ì i 2
mrm.abs.pat.scan.user.wlist (wlist.scan.user)
[wlist.su.seq]
*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 *HGDZWISU[hgWSU]|9
wlist.su.check 1 FREE L *HGDZWISU[hgWSU]|0
wlist.su.comm 3 FREE L *HGDZWISU[hgWSU]|7
wlist.su.dis.svc.date 8 DATE L *HGDZWISU[hgWSU]|4
wlist.su.los 4 FREE L *HGDZWISU[hgWSU]|8
wlist.su.msgs 10 FREE L *HGDZWISU[hgWSU]|10
wlist.su.name 25 FREE L *HGDZWISU[hgWSU]|2
wlist.su.prio 4 FREE L *HGDZWISU[hgWSU]|6
wlist.su.pt.class 10 FREE L ABS.PT.CLASS *HGDZWISU[hgWSU]|3
wlist.su.stat 2 FREE L *HGDZWISU[hgWSU]|5
wlist.su.urn 30 URN L MRM.ABS.PAT *HGDZWISU[hgWSU]|1
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mrm.abs.pat.acct.trans.index [account.number,urn,txn.urn]
acct.num.txn.x *HGDZATA[hgAN,hga,hgdTN]
mrm.abs.pat.avail.dt.x [avail.dt.time,urn]
avail.dt.x *HGDZAVX[hgAVD,hga]
mrm.abs.pat.coder.x [coder,urn]
coder.x *HGDZCOD[hgCOD,hga]
mrm.complete.dt.index [complete.date,complete.time,urn]
complete.x *HGDZCMPL[hgCD,hgCT,hga]
mrm.abs.pat.override.x [urn,coder,ovr.comments.date,ovr.comments.time]
override.x *HGDZOVRX[hga,hgCOD,hgOVD,hgOVT]
mrm.abs.pat.qry.frm.dpt.urn.x [query.forms.dpt.urn,urn,query.forms.q]
query.form.dpt.urn.x *HGDZQFDUX[hgpu,hga,hgpq]
mrm.abs.pat.query.index [urn,query.forms.q] = query.forms.dpt.urn
query.index *HGDZQF[hga,hgpq]
mrm.abs.pat.scan.user.x [urn]
scan.user.x *HGDZSUX[hga]
mrm.abs.pat.scan.x [scan.user,urn]
scan.x *HGDZSUA[hgSCU,hga]
mrm.abs.pat.user.trans.index [txn.user,urn,txn.urn]
user.txn.x *HGDZUTA[gu,hga,hgdTN]
mrm.abs.pat.dis.dt.x [dis.date,pt.class,urn]
wlist.dis.dt.x *HGDZWID[hgDD,djf,hga]
mrm.abs.pat.pat.class.x [pt.class,dis.date,urn]
wlist.pat.class.x *HGDZWIPC[djf,hgDD,hga]
|
|
| | | | | | | | | | | | | | |