Ì i 2
alt.address.audit.trail
[alt.addr.facility,alt.addr.date,alt.addr.time,alt.addr.urn,alt.addr.counter]
*(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.addr.facility 10 FREE L MIS.FACILITY gqb
alt.addr.date 8 DATE L aaDAT
alt.addr.time 4 HHMM L aaTIM
alt.addr.urn 15 URN L aaURN
alt.addr.counter 1 PINT R aaCNT
alt.addr.city.new 20 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|2
alt.addr.city.old 20 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|2
alt.addr.edit.user 10 FREE L MIS.USER *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|0
alt.addr.home.phone.new 18 PHONE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|5
alt.addr.home.phone.old 18 PHONE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|5
alt.addr.other.phone.new 18 PHONE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|6
alt.addr.other.phone.old 18 PHONE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|6
alt.addr.pt.acct.no 12 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|2
alt.addr.pt.name 30 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|1
alt.addr.pt.unit.no 10 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|3
alt.addr.state.new 2 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|3
alt.addr.state.old 2 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|3
alt.addr.street.new 30 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|0
alt.addr.street.old 30 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|0
alt.addr.street2.new 30 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|1
alt.addr.street2.old 30 FREE L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|1
alt.addr.zip.new 10 ZIP.POST L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|4
alt.addr.zip.old 10 ZIP.POST L *(A1)AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|4
Ì i 2
ccdqr
[ccdqr.patient,ccdqr.query]
*(A1)AA.CCDQR[aa,ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.patient 30 URN L ADM.PAT aa
ccdqr.query 10 FREE L MIS.QUERY ggv
ccdqr.ctr 5 PINT R *(A1)AA.CCDQR[aa,ggv]|3
ccdqr.date 8 DATE L *(A1)AA.CCDQR[aa,ggv]|1
ccdqr.response 30 QRY.RESP L *(A1)AA.CCDQR[aa,ggv]|0
ccdqr.time 4 HHMM L *(A1)AA.CCDQR[aa,ggv]|2
ccdqr.yn.comment 70 QRY.RESP L *(A1)AA.CCDQR[aa,ggv]|5
Ì € i 2
ccdqr.multiple
[ccdqr.patient,ccdqr.query, ccdqr.mul.q]
*(A1)AA.CCDQR[aa,ggv]M[aaccq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.mul.q 2 PINT R aaccq
ccdqr.mul.ctr 5 PINT R *(A1)AA.CCDQR[aa,ggv]M[aaccq]|3
ccdqr.mul.date 8 DATE L *(A1)AA.CCDQR[aa,ggv]M[aaccq]|1
ccdqr.mul.response 30 FREE L *(A1)AA.CCDQR[aa,ggv]M[aaccq]|0
ccdqr.mul.time 4 HHMM L *(A1)AA.CCDQR[aa,ggv]M[aaccq]|2
Ì i 2
ccdqr.main
[ccdqr.patient.urn]
*(A1)AA.CCDQR[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.patient.urn 30 URN L ADM.PAT aa
Ì i 2
diagnoses
[diag.pt.urn]
*(A)AA.DX[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.pt.urn 30 URN L ADM.PAT aa
diag.alt.desc.group 15 FREE L *(A)AA.DX[aa]|1
diag.grouper.version 10 FREE L *(A)AA.DX[aa]|0
Ì € i 2
diag.dates
[diag.pt.urn, diag.eff.date]
*(A)AA.DX[aa]ED[aaDD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.eff.date 8 DATE L aaDD
ccb.axis.dis.dr 10 FREE L MIS.DOC *(A)AA.DX[aa]ED[aaDD]|2
ccb.axis.doctor 10 FREE L MIS.DOC *(A)AA.DX[aa]ED[aaDD]|1
ccb.axis.type 1 CHOICE L *(A)AA.DX[aa]ED[aaDD]|0
Ì € i 2
diag.codes
[diag.pt.urn,diag.eff.date, diag.seq.no]
*(A)AA.DX[aa]ED[aaDD]DX[aaDIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
diag.seq.no 2 PINT R aaDIN
ccb.axis.code.prim 1 YN L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|7
ccb.axis.code.qual 1 YN L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|9
ccb.axis.code.rule 1 CHOICE L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|8
ccb.axis.sd.dis 1 CHOICE L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|10
diag.alt.name 60 FREE L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|1
diag.code 7 FREE L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|0
diag.confidential.data 1 YN L *(A)AA.DX[aa]ED[aaDD]DX[aaDIN]|2
Ì i 2
doctor.list
[urn.2,any.doctor]
/DRS[aa,ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn.2 30 URN L ADM.PAT aa
any.doctor 10 FREE L MIS.DOC ggg
Ì i 2
edi.main
[edi.patient,edi.ins]
*(A)AAEDI[aa,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.patient 30 URN L ADM.PAT aa
edi.ins 10 FREE L MIS.INS ggm
edi.txn.set 3 PINT R *(A)AAEDI[aa,ggm]|0
edi.version 6 FREE L *(A)AAEDI[aa,ggm]|1
Ì € i 2
edi.data
[edi.patient,edi.ins, edi.data.element,edi.data.ele.q]
*(A)AAEDI[aa,ggm]D[ediDI,ediDQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.data.element 20 FREE L ediDI
edi.data.ele.q 3 PINT R ediDQ
edi.data.value 200 FREE L *(A)AAEDI[aa,ggm]D[ediDI,ediDQ]|0
Ì i 2
hub.pat.visit.list
[hub.pt.id.c,hub.visit.type,hub.visit.urn]
*(A)AAPTV[ha,aaS,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hub.pt.id.c 10 FREE L ha
hub.visit.type 1 FREE L aaS
hub.visit.urn 30 FREE L aa
last.status.update 8 DATE L *(A)AAPTV[ha,aaS,aa]|1
Ì i 2
ins.ver.status.log
[ins.vlog.user,ins.vlog.date,ins.vlog.ins,ins.vlog.account,ins.vlog.seq.no]
*(A1)AAISL[gu,aaslD,ggm,aa,aaISL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.vlog.user 10 FREE L MIS.USER gu
ins.vlog.date 8 DATE L aaslD
ins.vlog.ins 10 FREE L MIS.INS ggm
ins.vlog.account 30 URN L ADM.PAT aa
ins.vlog.seq.no 2 PINT R aaISL
ins.vlog.new.auth.pstatus 8 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|3
ins.vlog.new.auth.status 9 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|5
ins.vlog.new.elig.status 8 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|1
ins.vlog.old.auth.pstatus 8 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|2
ins.vlog.old.auth.status 9 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|4
ins.vlog.old.elig.status 8 FREE L *(A1)AAISL[gu,aaslD,ggm,aa,aaISL]|0
ins.vlog.rpt.from.date 9 DATE L VAL=IF{b.ins.vlog.date'=@Z.del;"BEGINNING"}
ins.vlog.rpt.from.ins 10 FREE L VAL=IF{b.ins.vlog.ins'=@Z.del;"BEGINNING"}
ins.vlog.rpt.to.date 8 DATE L VAL=IF{e.ins.vlog.date'=@Z.del;"END"}
ins.vlog.rpt.to.ins 10 FREE L VAL=IF{e.ins.vlog.ins'=@Z.del;"END"}
Ì i 2
invalid.acct.log
[invalid.date,invalid.time,invalid.urn]
*(A1)AAIAL[aabdD,aabdT,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
invalid.date 8 DATE L aabdD
invalid.time 4 HHMM L aabdT
invalid.urn 30 URN L ADM.PAT aa
invalid.acct.number 12 FREE L *(A1)AAIAL[aabdD,aabdT,aa]|1
invalid.error 14 FREE L *(A1)AAIAL[aabdD,aabdT,aa]|0
invalid.facility 10 FREE L MIS.FACILITY *(A1)AAIAL[aabdD,aabdT,aa]|5
invalid.name 30 FREE L *(A1)AAIAL[aabdD,aabdT,aa]|2
invalid.status 8 FREE L *(A1)AAIAL[aabdD,aabdT,aa]|3
invalid.unit.number 10 FREE L *(A1)AAIAL[aabdD,aabdT,aa]|4
invalid.user 10 FREE L MIS.USER *(A1)AAIAL[aabdD,aabdT,aa]|6
Ì i 2
irf.visit.register
[irf.facility,irf.urn,irf.pt.loa.date,irf.pt.loa.time]
*(A1)AAIRFV[gqb,aa,aaLD,aaLT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
irf.facility 10 FREE L MIS.FACILITY gqb
irf.urn 30 URN L ADM.PAT aa
irf.pt.loa.date 8 DATE L aaLD
irf.pt.loa.time 4 HHMM L aaLT
irf.pt.acct.num 12 FREE L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|2
irf.pt.adm.time 4 HHMM L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|4
irf.pt.dis.date 8 DATE L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|5
irf.pt.dis.time 4 HHMM L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|6
irf.pt.fac 10 FREE L MIS.FACILITY *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|3
irf.pt.loa.status 1 FREE L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|8
irf.pt.loc 10 FREE L MIS.LOCN *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|7
irf.pt.name 30 FREE L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|0
irf.pt.unit.num 10 FREE L *(A1)AAIRFV[gqb,aa,aaLD,aaLT]|1
Ì i 2
locals
$(A)AA
Field Name Len Dat Typ J DPM Offset/Local/VAL
acct.num.out 12 FREE L VAL=IF{@ADM.PAT.acct.number[urn];MRI.PAT.visit.subscri
VAL=pt#"2|"}
accts.prv.database 15 FREE L VAL=+@MIS.FACILITY.databases[@facility[IF{urn;@t.urn}]
VAL=,"PRV"]'>("PRV"_@Z.del)
age.out 7 FREE L VAL=%ADM.PAT.cal.age.out.for.oth.appl(MRI.PAT.urn,ADM.
VAL=PAT.urn)
any.ins.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,insurance,""] @Z.check.mar
VAL=k.data;" "}
any.ins.auth.chkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@any.ins.auth_@Color.u
VAL=se(@Z.color.data)
any.ins1.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,@insurance.mnemonic[1],""]
VAL= @Z.check.mark.data;" "}
any.ins1.auth.chkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@any.ins1.auth_@Color.
VAL=use(@Z.color.data)
any.ins2.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,@insurance.mnemonic[2],""]
VAL= @Z.check.mark.data;" "}
any.ins2.auth.chkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@any.ins2.auth_@Color.
VAL=use(@Z.color.data)
any.ins3.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,@insurance.mnemonic[3],""]
VAL= @Z.check.mark.data;" "}
any.ins3.auth.chkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@any.ins3.auth_@Color.
VAL=use(@Z.color.data)
any.ins4.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,@insurance.mnemonic[4],""]
VAL= @Z.check.mark.data;" "}
any.ins4.auth.chkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@any.ins4.auth_@Color.
VAL=use(@Z.color.data)
appl.db 12 FREE L MIS.APPL.DB
appl.urn 30 URN L
birthdate.out 10 FREE L VAL=IF{@ADM.PAT.birthdate[urn]^DT %Z.date.out(DT,"",10
VAL=);@t.MRI.PAT.computed.birthdate[MRI.PAT.urn]^DT %Z
VAL=.date.out(DT,"",10)}
choice 1 PINT R
copy 1 PINT R
delete.date 8 DATE L
device 25 FREE L
dis.date.out 8 FREE L VAL=IF{@ADM.PAT.discharge.date[urn]^DT %Z.date.out(DT)
VAL=;@t.MRI.PAT.visit.discharge.date[MRI.PAT.urn,MRI.P
VAL=AT.visit.subscript]^DT %Z.date.out(DT)}
dis.disp.out 10 FREE L VAL=IF{@ADM.PAT.discharge.disposition[urn];@t.MRI.PAT.
VAL=discharge.disposition[MRI.PAT.urn]}
ed.or.del 1 FREE L
exit 1 PINT R
free 30 FREE L
free2 30 FREE L
free3 30 FREE L
hub.id 20 FREE L
hub.queue.nd.number 8 PINT R
ins.v.status 8 FREE L
ins.v.status.date 8 FREE L
int 2 PINT R
location.out 10 FREE L VAL=IF{@ADM.PAT.location[urn];@t.MRI.PAT.visit.locatio
VAL=n[MRI.PAT.urn,MRI.PAT.visit.subscript]}
midnight.run.date 8 DATE L
mpm.fac 0 FREE L VAL=/(.D).MPM.FAC
mri.age.tested 1 FREE L
mri.bdat.tested 1 FREE L
mri.conflicts 1 YN L
mri.conflicts.tested 14 FREE L
mri.demo.recall 8 DATE L VAL=mri.demo.recall
mri.last.discharge 8 DATE L VAL=mri.last.discharge
mri.maiden.tested 1 FREE L
mri.moth.first.tested 1 FREE L
mri.name.tested 1 FREE L
mri.oth.pat.tested 1 FREE L
mri.sex.tested 1 FREE L
mri.srch 1 CHOICE L
name.out 30 FREE L VAL=IF{@ADM.PAT.name[urn];@t.MRI.PAT.name[MRI.PAT.urn]
VAL=}
new.edit 1 FREE L
new.pat 1 PINT R
occur.p.out 8 FREE L VAL=IF{@ADM.PAT.occur.date[urn,1]^DT %Z.date.out(DT)}
occur.s.out 8 FREE L VAL=IF{@ADM.PAT.occur.date[urn,2]^DT %Z.date.out(DT)}
phys.prac 0 FREE L VAL=/(.D).PHY.PRAC
ppr.last.date 8 DATE L VAL=@ADM.PAT.ppr.enc.date[-@ADM.PAT.ppr.encounters[@AD
VAL=M.PAT.urn,""]]
ppr.last.practice 10 FREE L VAL=@ADM.PAT.ppr.enc.practice[urn,-@ADM.PAT.ppr.encoun
VAL=ters[@ADM.PAT.urn,""]]
ppr.last.reason.for.visit 50 FREE L VAL=@ADM.PAT.ppr.enc.reason.for.visit[urn,-@ADM.PAT.pp
VAL=r.encounters[@ADM.PAT.urn,""]]
ppr.last.time 4 HHMM L VAL=@ADM.PAT.ppr.enc.time[-@ADM.PAT.ppr.encounters[@AD
VAL=M.PAT.urn,""]]
print.pt.condition 20 FREE L VAL=IF{"PATIENT"=@ADM.PAT.restrict.dir.discl "";@MIS.P
VAL=T.COND.description[@ADM.PAT.pt.condition]}
rcr.last.date 8 DATE L VAL=-@ADM.PAT.recur.dates[@ADM.PAT.urn,""]
rcr.last.time 4 HHMM L VAL=-@ADM.PAT.recur.dates[@ADM.PAT.urn,@ADM.PAT.rcr.la
VAL=st.date,""]
resp.dr.name.out 30 FREE L VAL=IF{@ADM.PAT.attend.doctor[urn]^NM @MIS.DOC.name[NM
VAL=];@ADM.PAT.er.doctor[urn]^NM @MIS.DOC.name[NM];@t.
VAL=MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.visit.sub
VAL=script]^NM @MIS.DOC.name[NM]}
resp.dr.out 10 FREE L VAL=IF{@ADM.PAT.attend.doctor[urn];@ADM.PAT.er.doctor[
VAL=urn];@t.MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.v
VAL=isit.subscript]}
room.bed.urn 30 URN L ADM.PAT VAL=@ADM.PAT.room.bed.index[@.facility,ADM.PAT.room,AD
VAL=M.PAT.bed]
room.not.full 1 YN L VAL=%ADM.PAT.rm.not.full(MIS.ROOM.mnemonic)
room.not.full.or.all 1 YN L VAL=IF{L("Nn",c.yes.no)<2 "Y";@ADM.PAT.room.not.ful
VAL=l}
scrn.title 30 FREE L
select 2 PINT R
select2 2 INT R
sex.out 1 FREE L VAL=IF{@ADM.PAT.sex[urn];@t.MRI.PAT.sex[MRI.PAT.urn]}
stats.section 1 PINT R
status.out 8 FREE L VAL=IF{@ADM.PAT.status[urn];MRI.PAT.visit.subscript#"1
VAL=|"}
text.editor 0 FREE L
text.editor.view 0 FREE L
unit.num.out 10 FREE L VAL=IF{@ADM.PAT.unit.number[urn];/EA[MRI.PAT.urn,"UN",
VAL=@.mri.pfx]|0}
visit.date.out 8 FREE L VAL=IF{@ADM.PAT.admit.date[urn]^DT %Z.date.out(DT);@AD
VAL=M.PAT.service.date[urn]^DT %Z.date.out(DT);(999999
VAL=99-(MRI.PAT.visit.subscript#"0|"$8)<99999999)^D
VAL=T %Z.date.out(DT)}
visit.time.out 4 FREE L VAL=IF{@ADM.PAT.admit.time[urn];@ADM.PAT.service.time[
VAL=urn];(9999-(MRI.PAT.visit.subscript#"0|"%8)<999
VAL=9)}
yes.no 1 YN L
yn 1 YN L
Ì i 2
location.list
[urn.3,any.location]
/LOCS[aa,ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn.3 30 URN L ADM.PAT aa
any.location 10 FREE L MIS.LOCN ggn
Ì i 2
lookup.register
[last.nm,first.nm,mpi,adm.urn]
*(A1)AALK[aaLNM,aaFNM,ea,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
last.nm 30 FREE L aaLNM
first.nm 30 FREE L aaFNM
mpi 25 URN L MRI.PAT ea
adm.urn 30 URN L aa
pt.confidential 1 YN L *(A1)AALK[aaLNM,aaFNM,ea,aa]|2
pt.date 8 DATE L *(A1)AALK[aaLNM,aaFNM,ea,aa]|0
pt.deleted 1 YN L *(A1)AALK[aaLNM,aaFNM,ea,aa]|7
pt.facility 10 FREE L MIS.FACILITY *(A1)AALK[aaLNM,aaFNM,ea,aa]|4
pt.final.bill 2 FREE L *(A1)AALK[aaLNM,aaFNM,ea,aa]|3
pt.location 10 FREE L MIS.LOCN *(A1)AALK[aaLNM,aaFNM,ea,aa]|1
pt.name.edit 12 FREE L *(A1)AALK[aaLNM,aaFNM,ea,aa]|6
pt.status 8 FREE L *(A1)AALK[aaLNM,aaFNM,ea,aa]|5
Ì € i 2
main
[urn]
$(A)AA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L aa
aaa.vip 1 YN L VAL=@vip
accident.24.hours 1 YN L $(A)AA[aa]CNA|9
accident.comment 50 FREE L $(A)AA[aa]CNF|1
accident.description 30 FREE L $(A)AA[aa]CNA|8
accident.nature.of.injury 30 FREE L $(A)AA[aa]CNA|7
accident.original.treat 50 FREE L $(A)AA[aa]CNF|0
accident.place 20 FREE L $(A)AA[aa]CNA|5
accident.police.involved 20 FREE L $(A)AA[aa]CNA|6
accommodation 10 FREE L MIS.ACCOM $(A)AA[aa]B|5
acct.num.obs 12 FREE L VAL=IF{c.date'=@admit.date!(time'=@admit.time) ""^old.
VAL=can.number.seq.no,DO{@Next(old.can.number.seq.no)&
VAL=("ADM INo"'=@old.can.acct.status)},@old.can.acct.n
VAL=umber}
acct.num.obs.or.in 12 FREE L VAL=IF{"CANADA"'=@MIS.PARAM.country @acct.number;@acct
VAL=.num.obs;@acct.number}
acct.number 12 FREE L $(A)AA[aa]|0
adm.or.mri.urn 6 FREE L
adm.res.date.out 8 DATE L VAL=IF{@admit.date;@reservation.date}
adm.res.time.out 4 HHMM L VAL=IF{@admit.time;@reservation.time}
adm.svc.age 7 FREE L VAL=(%Z.age(@ADM.PAT.computed.birthdate,IF{@admit.date
VAL=;@service.date}))
adm.svc.date.out 8 DATE L VAL=IF{@admit.date;@service.date}
adm.svc.res.date.out 8 DATE L VAL=IF{@admit.date;@service.date;@reservation.date;@ar
VAL=rival.date;@triage.date}
adm.svc.res.time.out 4 HHMM L VAL=IF{@admit.time;@service.time;@reservation.time;@ar
VAL=rival.time;@triage.time}
adm.svc.time.out 4 HHMM L VAL=IF{@admit.time;@service.time}
admit.clerk 10 FREE L MIS.USER $(A)AA[aa]O3|0
admit.comment 50 FREE L $(A)AA[aa]CO|0
admit.date 8 DATE L $(A)AA[aa]|13
admit.diagnosis 55 FREE L $(A)AA[aa]O3|11
admit.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|0
admit.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.admit.doctor]
admit.priority 10 FREE L MIS.ADM.PRIORT $(A)AA[aa]B|2
admit.source 10 FREE L MIS.ADM.SOURCE $(A)AA[aa]B|8
admit.time 4 HHMM L $(A)AA[aa]|14
affiliation 30 FREE L $(A)AA[aa]A|1
age 7 AGE L $(A)AA[aa]|8
age.group 2 FREE L $(A)AA[aa]CND|5
alert.1 15 FREE L $(A)AA[aa]CNR[1]
alert.2 15 FREE L $(A)AA[aa]CNR[2]
alias 30 FREE L $(A)AA[aa]DM|0
allergy.1 15 FREE L $(A)AA[aa]ALG[1]
allergy.2 15 FREE L $(A)AA[aa]ALG[2]
allergy.3 15 FREE L $(A)AA[aa]ALG[3]
allergy.4 15 FREE L $(A)AA[aa]ALG[4]
alt.address 1 YN L $(A)AA[aa]O3|18
alt.desc.group 15 FREE L $(A)AA[aa]DX|1
ambulance 1 YN L $(A)AA[aa]CNA|3
ambulance.call.number 15 INT R $(A)AA[aa]CNA|11
anticipated.dis.date 8 DATE L VAL=%Z.date.add(@admit.date,@expected.length.of.stay)
area 10 FREE L MIS.AREA $(A)AA[aa]DM|15
arrival.date 8 DATE L $(A)AA[aa]T1|6
arrival.time 4 HHMM L $(A)AA[aa]T1|7
arrived.from 10 FREE L MIS.ARRIV $(A)AA[aa]O3|6
attend.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|1
attend.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.attend.doctor]
attend.or.er.doc.name.out 30 FREE L VAL=@MIS.DOC.name[IF{@ADM.PAT.attend.doctor;@ADM.PAT.e
VAL=r.doctor}]
attend.or.er.doctor 10 FREE L VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor}
bed 3 FREE L $(A)AA[aa]|11
bed.pend.dis.comment 60 FREE L $(A)AA[aa]O5|2
bed.pend.dis.date 8 DATE L $(A)AA[aa]O5|0
bed.pend.dis.time 4 HHMM L $(A)AA[aa]O5|1
bed.phone 10 FREE L VAL=@MIS.ROOM.bed.phone[@room,@bed]
bed.request.accom 10 FREE L MIS.ACCOM $(A)AA[aa]O6|7
bed.request.adm.dr 10 FREE L MIS.DOC $(A)AA[aa]O6|11
bed.request.adm.pri 10 FREE L MIS.ADM.PRIORT $(A)AA[aa]O6|9
bed.request.adm.srce 10 FREE L MIS.ADM.SOURCE $(A)AA[aa]O6|10
bed.request.att.dr 10 FREE L MIS.DOC $(A)AA[aa]O6|12
bed.request.comment 60 FREE L $(A)AA[aa]O6|8
bed.request.date 8 DATE L $(A)AA[aa]O6|3
bed.request.message 10 FREE L $(A)AA[aa]O6|5
bed.request.priority 10 FREE L ADM.BB.PRI $(A)AA[aa]O6|2
bed.request.reg.type 11 CHOICE L $(A)AA[aa]O6|13
bed.request.service 10 FREE L MIS.SVC $(A)AA[aa]O6|0
bed.request.source 19 FREE L $(A)AA[aa]O6|1
bed.request.status 9 CHOICE L $(A)AA[aa]O6|6
bed.request.time 4 HHMM L $(A)AA[aa]O6|4
birthdate.ask 10 BDATE L $(A)AA[aa]|5
birthdate.display.only 10 BDATE L $(A)AA[aa]|5
blood.pressure 25 FREE L $(A)AA[aa]T1|2
case.mgr 30 FREE L MIS.DOC $(A)AA[aa]DM|1
case.mgr.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.case.mgr]
ccl.location 10 FREE L $(A)AA[aa]CCLOR|1
ccl.override.reason 10 FREE L ADM.CCL.OR $(A)AA[aa]CCLOR|0
ccl.user 10 FREE L $(A)AA[aa]CCLOR|2
cd.screen.old 15 FREE L MIS.SCREEN $(A)AA[aa]CD|0
ck.admit.priv 1 YN L VAL=@MIS.DOC.admit.priv[@.new,@.facility,@.new]
ck.confidential 1 YN L VAL=%ADM.PAT.check.confidential(ADM.PAT.urn)
ck.location.facility 1 YN L VAL=IF{+@MIS.LOCN.facilities[MIS.LOCN.mnemonic,""]_0=0
VAL= "Y";@MIS.LOCN.facilities[MIS.LOCN.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.patient.facility 1 YN L VAL=IF{@ADM.PAT.facility!.=@.facility "Y";"N"}
ck.room.facility 1 YN L VAL=IF{+@MIS.ROOM.facilities[MIS.ROOM.mnemonic,""]_0=0
VAL= "Y";@MIS.ROOM.facilities[MIS.ROOM.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.service.facility 1 YN L VAL=IF{+@MIS.SVC.facilities[MIS.SVC.mnemonic,""]_0=0 "
VAL=Y";@MIS.SVC.facilities[MIS.SVC.mnemonic,@.facility
VAL=] "Y";"N"}
ck.short.form.reg 1 YN L VAL=IF{@short.form.reg;"N"}
cli.depart.comment 50 FREE L $(A)AA[aa]CLI|4
cli.depart.date 8 DATE L $(A)AA[aa]CLI|0
cli.depart.diagnosis 50 FREE L $(A)AA[aa]CLI|3
cli.depart.disposition 10 FREE L MIS.DIS $(A)AA[aa]CLI|2
cli.depart.time 4 HHMM L $(A)AA[aa]CLI|1
cm.account.status 4 CHOICE L $(A)AA[aa]CMEP|0
cm.ep.create.date 8 DATE L $(A)AA[aa]CMEP|3
cm.ep.create.time 4 TIME L $(A)AA[aa]CMEP|2
cm.ep.create.user 10 FREE L MIS.USER $(A)AA[aa]CMEP|4
cm.ep.status 10 FREE L $(A)AA[aa]CMEP|1
cm.patient 1 FREE L $(A)AA[aa]CMINF|0
cm.program 10 FREE L MIS.PROGRAM $(A)AA[aa]CMINF|1
cm.snapshot.type 1 CHOICE L $(A)AA[aa]CMEP|5
cm.svc 10 FREE L MIS.SVC $(A)AA[aa]CMINF|2
computed.birthdate 10 BDATE L $(A)AA[aa]|6
cond.comment 60 FREE L $(A)AA[aa]CN|4
cond.date 8 DATE L $(A)AA[aa]CN|2
cond.time 4 HHMM L $(A)AA[aa]CN|3
confidential 1 YN L $(A)AA[aa]O4|0
confidential.comment 50 FREE L $(A)AA[aa]O4|1
confidential.for.mig 1 YN L VAL=IF{"Y"=@ADM.PAT.confidential;"SEALED"=@MRI.PAT.sea
VAL=led.emr.status[@ADM.PAT.mri.urn,] "Y"}
confidential.message 25 FREE L VAL=@ADM.PARAM.confidential.message
cont1.city 30 FREE L $(A)AA[aa]C1|2
cont1.email 40 FREE L $(A)AA[aa]C1|9
cont1.fax 24 FREE L $(A)AA[aa]C1|11
cont1.home.ph 18 PHONE L $(A)AA[aa]C1|5
cont1.lar 1 YN L $(A)AA[aa]C1|8
cont1.name 30 FREE L $(A)AA[aa]C1|0
cont1.name.display 30 FREE L $(A)AA[aa]C1|0
cont1.pager 8 FREE L $(A)AA[aa]C1|10
cont1.rel 10 FREE L MIS.RELAT $(A)AA[aa]C1|7
cont1.st.display 30 FREE L $(A)AA[aa]C1|1
cont1.state 2 FREE L $(A)AA[aa]C1|3
cont1.street 30 FREE L $(A)AA[aa]C1|1
cont1.work.ph 18 PHONE L $(A)AA[aa]C1|6
cont1.zip 10 ZIP.POST L $(A)AA[aa]C1|4
cont2.city 30 FREE L $(A)AA[aa]C2|2
cont2.email 40 FREE L $(A)AA[aa]C2|9
cont2.fax 24 FREE L $(A)AA[aa]C2|11
cont2.home.ph 18 PHONE L $(A)AA[aa]C2|5
cont2.lar 1 YN L $(A)AA[aa]C2|8
cont2.name 30 FREE L $(A)AA[aa]C2|0
cont2.name.display 30 FREE L $(A)AA[aa]C2|0
cont2.pager 8 FREE L $(A)AA[aa]C2|10
cont2.rel 10 FREE L MIS.RELAT $(A)AA[aa]C2|7
cont2.st.display 30 FREE L $(A)AA[aa]C2|1
cont2.state 2 FREE L $(A)AA[aa]C2|3
cont2.street 30 FREE L $(A)AA[aa]C2|1
cont2.work.ph 18 PHONE L $(A)AA[aa]C2|6
cont2.zip 10 ZIP.POST L $(A)AA[aa]C2|4
criminal.rec.date 8 DATE L $(A)AA[aa]CR|1
criminal.req.date 8 DATE L $(A)AA[aa]CR|0
current.age 7 FREE L VAL=(%Z.age(@ADM.PAT.computed.birthdate))
custody 10 FREE L MIS.CUSTODY $(A)AA[aa]DM|16
date 8 DATE L
decision.to.admit.date 8 DATE L $(A)AA[aa]CNA|13
decision.to.admit.time 4 HHMM L $(A)AA[aa]CNA|12
deleted 1 YN L $(A)AA[aa]|19
deleted.date 8 DATE L $(A)AA[aa]|20
dep 1 YN L $(A)AA[aa]DM|10
dep.dis.ser.rev.date.out 8 DATE L VAL=IF{@depart.date;@cli.depart.date;@discharge.date;@
VAL=service.date;@reservation.date}
dep.num 2 PINT R $(A)AA[aa]DM|11
depart.comment 50 FREE L $(A)AA[aa]DEP|4
depart.date 8 DATE L $(A)AA[aa]DEP|0
depart.diagnosis 50 FREE L $(A)AA[aa]DEP|3
depart.disposition 10 FREE L MIS.DIS $(A)AA[aa]DEP|2
depart.time 4 HHMM L $(A)AA[aa]DEP|1
dis.dep.date.out 8 DATE L VAL=IF{@discharge.date;@depart.date;@cli.depart.date}
discharge.comment 55 FREE L $(A)AA[aa]CO|2
discharge.date 8 DATE L $(A)AA[aa]|17
discharge.diagnosis 55 FREE L $(A)AA[aa]O3|12
discharge.disposition 10 FREE L MIS.DIS $(A)AA[aa]B|14
discharge.time 4 HHMM L $(A)AA[aa]|18
do.mpi.search 1 YN L $(A)AA[aa]O4|10
doctor 10 FREE L MIS.DOC
doctor.group 10 FREE L MIS.DOC.GRP
doctor.out 10 FREE L MIS.DOC VAL=IF{@ADM.PAT.admit.doctor;@ADM.PAT.attend.doctor;@A
VAL=DM.PAT.er.doctor}
edit.or.switch.guar.num 1 FREE L $(A)AA[aa]A|8
edm.flag 1 FREE L VAL=/(.D)EDM.FLAG
education 10 FREE L MIS.EDUCATION $(A)AA[aa]DM|6
effective.date 8 DATE L
emp.addr.phone.out 125 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6_" "_AD|7'=",, ")
emp.address.out 106 FREE L VAL=(@pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5
VAL=_" "_AD|6'=",, ")
emp.city 30 FREE L $(A)AA[aa]E|4
emp.city.state.zip.o 44 FREE L VAL=(@pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.name[@employer];@employer}
emp.phone 18 PHONE L $(A)AA[aa]E|7
emp.postal.code 10 ZIP.POST L $(A)AA[aa]E|6
emp.province 2 FREE L $(A)AA[aa]E|5
emp.state 2 FREE L $(A)AA[aa]E|5
emp.status 10 FREE L MIS.EMP.STATUS $(A)AA[aa]E|8
emp.street 30 FREE L $(A)AA[aa]E|2
emp.street2 30 FREE L $(A)AA[aa]E|3
emp.streets.out 61 FREE L VAL=(@pt.emp^AD#2P_" "_AD|3'=" ")
emp.zip 10 ZIP.POST L $(A)AA[aa]E|6
empl.status 10 FREE L MIS.EMP.STATUS $(A)AA[aa]DM|13
employer 10 FREE L MIS.EMPLR $(A)AA[aa]E|0
emr.id 15 FREE L VAL=@MIS.HUB.adm.hub.id
entry.code 10 FREE L MIS.CAN.ENTRY $(A)AA[aa]CNA|1
er.depart.comment 50 FREE L $(A)AA[aa]ER|4
er.depart.date 8 DATE L $(A)AA[aa]ER|0
er.depart.diagnosis 50 FREE L $(A)AA[aa]ER|3
er.depart.disposition 10 FREE L MIS.DIS $(A)AA[aa]ER|2
er.depart.time 4 HHMM L $(A)AA[aa]ER|1
er.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|4
er.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.er.doctor]
ethnicity 10 FREE L MIS.ETHNICITY $(A)AA[aa]DM|14
existing.illness 50 FREE L $(A)AA[aa]T|2
expected.length.of.stay 4 PINT R $(A)AA[aa]O3|5
facility 10 FREE L MIS.FACILITY $(A)AA[aa]B|7
facility.val 10 FREE L MIS.FACILITY VAL=@ADM.PAT.facility!.
fam1.city 30 FREE L $(A)AA[aa]F1|2
fam1.email 40 FREE L $(A)AA[aa]F1|9
fam1.fax 24 FREE L $(A)AA[aa]F1|10
fam1.home.ph 18 PHONE L $(A)AA[aa]F1|5
fam1.name 30 FREE L $(A)AA[aa]F1|0
fam1.pager 8 FREE L $(A)AA[aa]F1|8
fam1.rel 10 FREE L MIS.RELAT $(A)AA[aa]F1|7
fam1.state 2 FREE L $(A)AA[aa]F1|3
fam1.street 30 FREE L $(A)AA[aa]F1|1
fam1.work.ph 18 PHONE L $(A)AA[aa]F1|6
fam1.zip 10 ZIP.POST L $(A)AA[aa]F1|4
fam2.city 30 FREE L $(A)AA[aa]F2|2
fam2.email 40 FREE L $(A)AA[aa]F2|9
fam2.fax 24 FREE L $(A)AA[aa]F2|10
fam2.home.ph 18 PHONE L $(A)AA[aa]F2|5
fam2.name 30 FREE L $(A)AA[aa]F2|0
fam2.pager 8 FREE L $(A)AA[aa]F2|8
fam2.rel 10 FREE L MIS.RELAT $(A)AA[aa]F2|7
fam2.state 2 FREE L $(A)AA[aa]F2|3
fam2.street 30 FREE L $(A)AA[aa]F2|1
fam2.work.ph 18 PHONE L $(A)AA[aa]F2|6
fam2.zip 10 ZIP.POST L $(A)AA[aa]F2|4
fam3.city 30 FREE L $(A)AA[aa]F3|2
fam3.email 40 FREE L $(A)AA[aa]F3|9
fam3.fax 24 FREE L $(A)AA[aa]F3|10
fam3.home.ph 18 PHONE L $(A)AA[aa]F3|5
fam3.name 30 FREE L $(A)AA[aa]F3|0
fam3.pager 8 FREE L $(A)AA[aa]F3|8
fam3.rel 10 FREE L MIS.RELAT $(A)AA[aa]F3|7
fam3.state 2 FREE L $(A)AA[aa]F3|3
fam3.street 30 FREE L $(A)AA[aa]F3|1
fam3.work.ph 18 PHONE L $(A)AA[aa]F3|6
fam3.zip 10 ZIP.POST L $(A)AA[aa]F3|4
fam4.city 30 FREE L $(A)AA[aa]F4|2
fam4.email 40 FREE L $(A)AA[aa]F4|9
fam4.fax 24 FREE L $(A)AA[aa]F4|10
fam4.home.ph 18 PHONE L $(A)AA[aa]F4|5
fam4.name 30 FREE L $(A)AA[aa]F4|0
fam4.pager 8 FREE L $(A)AA[aa]F4|8
fam4.rel 10 FREE L MIS.RELAT $(A)AA[aa]F4|7
fam4.state 2 FREE L $(A)AA[aa]F4|3
fam4.street 30 FREE L $(A)AA[aa]F4|1
fam4.work.ph 18 PHONE L $(A)AA[aa]F4|6
fam4.zip 10 ZIP.POST L $(A)AA[aa]F4|4
family.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|3
family.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.family.doctor]
family.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.name[@ADM.PAT.family.doctor];@ADM.PAT.
VAL=family.doctor}
fiduciary.adr1 30 FREE L $(A)AA[aa]FI|1
fiduciary.adr2 30 FREE L $(A)AA[aa]FI|2
fiduciary.beeper 18 PHONE L $(A)AA[aa]FI|8
fiduciary.bus.ph 18 PHONE L $(A)AA[aa]FI|7
fiduciary.city 20 FREE L $(A)AA[aa]FI|3
fiduciary.email 40 FREE L $(A)AA[aa]FI|10
fiduciary.fax 18 PHONE L $(A)AA[aa]FI|9
fiduciary.home.ph 18 PHONE L $(A)AA[aa]FI|6
fiduciary.last.upd 9 DATE L $(A)AA[aa]FI|12
fiduciary.last.usr 10 FREE L MIS.USER $(A)AA[aa]FI|13
fiduciary.name 30 FREE L $(A)AA[aa]FI|0
fiduciary.rel 10 FREE L MIS.RELAT $(A)AA[aa]FI|11
fiduciary.state 2 FREE L $(A)AA[aa]FI|4
fiduciary.zip 10 ZIP.POST L $(A)AA[aa]FI|5
final.bill 2 FREE L $(A)AA[aa]O4|6
financial.class 10 FREE L MIS.FIN.CLASS $(A)AA[aa]A|3
first.name 30 FREE L
for.criminal.court 10 FREE L MIS.COURT $(A)AA[aa]FR|0
for.crt.restrict 1 YN L $(A)AA[aa]FR|2
for.ee.comments 1 YN L $(A)AA[aa]FR|4
for.ee.prob.comms 1 YN L $(A)AA[aa]FR|5
for.rev.mand 1 YN L $(A)AA[aa]FR|3
for.xfer.facility 10 FREE L MIS.TRANS.FAC $(A)AA[aa]FR|1
grouper.version 10 FREE L $(A)AA[aa]DX|0
guar.addr.phone.out 115 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6_" "_AD|7'=",, ")
guar.address.out 96 FREE L VAL=(@guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD|5_"
VAL= "_AD|6'=",, ")
guar.city 20 FREE L $(A)AA[aa]G|4
guar.city.state.zip.o 34 FREE L VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.email 40 FREE L $(A)AA[aa]G|9
guar.email.use 1 YN L $(A)AA[aa]G|10
guar.emp.addr.phone.out 125 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6_" "_AD|7'=",, ")
guar.emp.address.out 106 FREE L VAL=(@guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_","_AD
VAL=|5_" "_AD|6'=",, ")
guar.emp.city 30 FREE L $(A)AA[aa]GE|4
guar.emp.city.state.zip.o 44 FREE L VAL=(@guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")
guar.emp.name.out 30 FREE L VAL=IF{@MIS.EMPLR.name[@guar.employer];@guar.employer}
guar.emp.phone 18 PHONE L $(A)AA[aa]GE|7
guar.emp.postal.code 10 ZIP.POST L $(A)AA[aa]GE|6
guar.emp.province 2 FREE L $(A)AA[aa]GE|5
guar.emp.state 2 FREE L $(A)AA[aa]GE|5
guar.emp.status 10 FREE L MIS.EMP.STATUS $(A)AA[aa]GE|8
guar.emp.street 30 FREE L $(A)AA[aa]GE|2
guar.emp.street2 30 FREE L $(A)AA[aa]GE|3
guar.emp.streets.out 61 FREE L VAL=(@guar.emp.street_" "_@guar.emp.street2'=" ")
guar.emp.zip 10 ZIP.POST L $(A)AA[aa]GE|6
guar.employer 10 FREE L MIS.EMPLR $(A)AA[aa]GE|0
guar.home.phone 18 PHONE L $(A)AA[aa]G|7
guar.name 30 FREE L $(A)AA[aa]G|0
guar.name.canada 30 FREE L $(A)AA[aa]G|0
guar.name.display.only 30 FREE L $(A)AA[aa]G|0
guar.name.pre.er 30 FREE L $(A)AA[aa]G|0
guar.number 15 FREE L $(A)AA[aa]G|8
guar.occupation 20 FREE L $(A)AA[aa]GE|1
guar.postal.code 10 ZIP.POST L $(A)AA[aa]G|6
guar.province 2 FREE L $(A)AA[aa]G|5
guar.pt.relationship 10 FREE L MIS.RELAT $(A)AA[aa]G|1
guar.soc.sec.number 12 FREE L $(A)AA[aa]G|8
guar.state 2 FREE L $(A)AA[aa]G|5
guar.street 30 FREE L $(A)AA[aa]G|2
guar.street.canada 30 FREE L $(A)AA[aa]G|2
guar.street.display.only 30 FREE L $(A)AA[aa]G|2
guar.street2 30 FREE L $(A)AA[aa]G|3
guar.streets.out 61 FREE L VAL=(@guar.street_" "_@guar.street2'=" ")
guar.zip 10 ZIP.POST L $(A)AA[aa]G|6
guard.contact 1 YN L $(A)AA[aa]GU|0
hc.subscriber.inits 3 FREE L $(A)AA[aa]CND|2
hc.subscriber.relation 10 FREE L MIS.RELAT $(A)AA[aa]CND|3
health.care.number 14 FREE L $(A)AA[aa]CND|1
hospital.number 4 INT R $(A)AA[aa]CNA|4
in.school 1 YN L $(A)AA[aa]DM|7
inpatient.location 10 FREE L MIS.LOCN $(A)AA[aa]|12
ins.addr.phone.out 130 FREE L VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.address2^ADD
VAL=R2,@MIS.INS.main^AD#2P_IF{ADDR2 " "_ADDR2}_","_AD|
VAL=3_","_AD|4_" "_AD|5_" "_AD|6;@insurances^AD#0P_","
VAL=_AD|1_","_AD|2_" "_AD|3_" "_AD|4_" "_AD|5}'=",, "
VAL=)
ins.address.out 65 FREE L VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.main^AD#2P_"
VAL=,"_AD|3_","_AD|4_" "_AD|5;@insurances^AD#0P_","_AD
VAL=|1_","_AD|2_" "_AD|3}'=",, ")
ins.city.out 30 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.city;@MIS.IN
VAL=S.city}
ins.mnemonic.1 10 FREE L VAL=@insurance.mnemonic[1]^insurance
ins.mnemonic.2 10 FREE L VAL=@insurance.mnemonic[2]^insurance
ins.mnemonic.3 10 FREE L VAL=@insurance.mnemonic[3]^insurance
ins.mnemonic.4 10 FREE L VAL=@insurance.mnemonic[4]^insurance
ins.name.out 30 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.other.name;@
VAL=MIS.INS.name}
ins.name.out.1 30 FREE L VAL=IF{@ins.mnemonic.1 @ins.name.out}
ins.name.out.2 30 FREE L VAL=IF{@ins.mnemonic.2 @ins.name.out}
ins.name.out.3 30 FREE L VAL=IF{@ins.mnemonic.3 @ins.name.out}
ins.name.out.4 30 FREE L VAL=IF{@ins.mnemonic.4 @ins.name.out}
ins.number.1 1 INT R VAL=1
ins.number.2 1 INT R VAL=2
ins.number.3 1 INT R VAL=3
ins.number.4 1 INT R VAL=4
ins.phone.out 18 PHONE L VAL=IF{@MIS.INS.other.type="Y" @insurance.phone;@MIS.I
VAL=NS.phone}
ins.state.out 2 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.state;@MIS.I
VAL=NS.state}
ins.street.out 30 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.street;@MIS.
VAL=INS.address}
ins.street2.out 30 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.street2;@MIS
VAL=.INS.address2}
ins.zip.out 10 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.zip;@MIS.INS
VAL=.zip}
institution.from 10 FREE L MIS.CAN.INST $(A)AA[aa]CNA|2
interp 3 CHOICE L $(A)AA[aa]DM|5
ipf.override 1 YN L $(A)AA[aa]O4|12
irf.override 1 YN L $(A)AA[aa]O4|11
is.admitting.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.admit.doctor "Y"}
is.attend.or.er.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.attend.doctor "Y";ADM.P
VAL=AT.doctor=@ADM.PAT.er.doctor "Y"}
is.attending.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.attend.doctor "Y"}
is.er.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.er.doctor "Y"}
is.family.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.family.doctor "Y"}
is.other.doctor 1 FREE L VAL=IF{ADM.PAT.doctor=@ADM.PAT.other.doctor "Y"}
language 10 FREE L MIS.CAN.LANG $(A)AA[aa]CND|0
last.demo.recall.upd 10 FREE L $(A)AA[aa]O4|13
last.discharge.date 8 DATE L VAL=IF{%ADM.PAT.mri.last.dis(@ADM.PAT.mri.urn,ADM.PAT.
VAL=urn),/mri.last.discharge}
last.edit.date 8 DATE L VAL=%Z.date.in.magic(@ADM.PAT.last.edit.time)
last.edit.time.of.day 4 HHMM L VAL=%Z.time.out(@ADM.PAT.last.edit.time)
last.edit.user 10 FREE L MIS.USER $(A)AA[aa]B|1
last.hosp.from.date 8 DATE L $(A)AA[aa]B|12
last.hosp.thru.date 8 DATE L $(A)AA[aa]B|13
last.hospital 30 FREE L $(A)AA[aa]B|11
last.hospital.and.dates 48 FREE L VAL=(@last.hospital_" "_%Z.date.out(@last.hosp.from.da
VAL=te)_"-"_%Z.date.out(@last.hosp.thru.date)'=" -")
last.inpat.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"I")#0P}
last.loc.xfer.time 10 PINT R $(A)AA[aa]LOC|1
last.location 10 FREE L MIS.LOCN $(A)AA[aa]LOC|0
last.name 30 FREE L
last.outpat.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"O")#0P}
last.outpat.visit.type 3 CHOICE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn,"O")#1P}
last.tetanus 25 FREE L $(A)AA[aa]T1|0
last.visit.date 8 DATE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn)#0P}
last.visit.type 3 CHOICE L VAL=IF{@mri.urn %ADM.PAT.mri.last.visit(urn)#1P}
length.of.stay 3 PINT R VAL=IF{@discharge.date %Z.date.sub(@discharge.date,@ad
VAL=mit.date)!1}
length.of.stay.so.far 4 PINT R VAL=(%Z.date.sub(IF{@discharge.date;@.today},@admit.da
VAL=te)!1)
liv.arr 10 FREE L MIS.LIV.ARR $(A)AA[aa]DM|3
loa.eff.date 8 DATE L $(A)AA[aa]|25
loa.eff.time 4 HHMM L $(A)AA[aa]|26
loa.facility.type 7 FREE L $(A)AA[aa]|29
loa.hold.orders 1 YN L $(A)AA[aa]|28
loa.status 1 CHOICE L $(A)AA[aa]|24
load.doctor.list 1 YN L VAL=%ADM.PAT.load.docs(ADM.PAT.urn)
load.location.list 1 YN L VAL=%ADM.PAT.load.locs(ADM.PAT.urn,ADM.PAT.time)
location 10 FREE L MIS.LOCN $(A)AA[aa]|12
maiden.other.name 30 NAME L $(A)AA[aa]B|4
marital.status 10 FREE L MIS.MAR.STATUS $(A)AA[aa]A|4
med.nec.admit.dx 7 FREE L $(A)AA[aa]O3|15
med.nec.admit.dx.conf 1 YN L $(A)AA[aa]O3|16
medications 50 FREE L $(A)AA[aa]T|3
mothers.first.name 20 FREE L $(A)AA[aa]B|3
mothers.urn 30 URN L ADM.PAT $(A)AA[aa]O3|9
mri.drc.patient 30 FREE L
mri.urn 25 URN L MRI.PAT $(A)AA[aa]|4
name 30 FREE L $(A)AA[aa]|1
name.w.vip.flag 30 FREE L VAL=(IF{@ADM.PAT.vip="Y" @ADM.PARAM.vip.flag}_@ADM.PAT
VAL=.name)
newborn.admit.source 10 FREE L MIS.NEWBORN $(A)AA[aa]B|9
nok.addr.phone.out 138 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"_A
VAL=D|7}'=",, ")
nok.address.out 96 FREE L VAL=(@next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_","
VAL=_AD|4_" "_AD|5'=",, ")
nok.city 20 FREE L $(A)AA[aa]NK|3
nok.city.state.zip.o 34 FREE L VAL=(@next.of.kin^AD#3P_","_AD|4_" "_AD|5'=", ")
nok.home.phone 18 PHONE L $(A)AA[aa]NK|6
nok.name 30 FREE L $(A)AA[aa]NK|0
nok.name.display.only 30 FREE L $(A)AA[aa]NK|0
nok.postal.code 10 ZIP.POST L $(A)AA[aa]NK|5
nok.province 2 FREE L $(A)AA[aa]NK|4
nok.relationship 10 FREE L MIS.RELAT $(A)AA[aa]NK|8
nok.state 2 FREE L $(A)AA[aa]NK|4
nok.street 30 FREE L $(A)AA[aa]NK|1
nok.street.display.only 30 FREE L $(A)AA[aa]NK|1
nok.street2 30 FREE L $(A)AA[aa]NK|2
nok.streets.out 61 FREE L VAL=(@nok.street_" "_@nok.street2'=" ")
nok.work.phone 18 PHONE L $(A)AA[aa]NK|7
nok.zip 10 ZIP.POST L $(A)AA[aa]NK|5
notify.addr.phone.out 138 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7 " B:"
VAL=_AD|7}'=",, ")
notify.address.out 96 FREE L VAL=(@per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_","_AD|3_"
VAL=,"_AD|4_" "_AD|5'=",, ")
notify.city 20 FREE L $(A)AA[aa]PN|3
notify.city.state.zip.o 34 FREE L VAL=(@per.to.notify^AD#3P_","_AD|4_" "_AD|5'=", ")
notify.home.phone 18 PHONE L $(A)AA[aa]PN|6
notify.name 30 FREE L $(A)AA[aa]PN|0
notify.name.display.only 30 FREE L $(A)AA[aa]PN|0
notify.postal.code 10 ZIP.POST L $(A)AA[aa]PN|5
notify.province 2 FREE L $(A)AA[aa]PN|4
notify.relationship 10 FREE L MIS.RELAT $(A)AA[aa]PN|8
notify.state 2 FREE L $(A)AA[aa]PN|4
notify.street 30 FREE L $(A)AA[aa]PN|1
notify.street.display 30 FREE L $(A)AA[aa]PN|1
notify.street2 30 FREE L $(A)AA[aa]PN|2
notify.streets.out 61 FREE L VAL=(@notify.street_" "_@notify.street2'=" ")
notify.work.phone 18 PHONE L $(A)AA[aa]PN|7
notify.zip 10 ZIP.POST L $(A)AA[aa]PN|5
number.and.name 44 FREE L VAL=(IF{O($(A))=O($(E2)) @MRI.PAT.unit.number_" "_@MR
VAL=I.PAT.name;@acct.number_" "_@name}:0S)
number.name.and.status 55 FREE L VAL=%ADM.PAT.number.name.and.status("")
nursing.assessment 50 FREE L $(A)AA[aa]T|4
nursing.assessment.1 50 FREE L $(A)AA[aa]T|5
observation.patient 1 FREE L $(A)AA[aa]O3|10
observation.patient.date 8 DATE L $(A)AA[aa]O4|2
observation.patient.time 4 HHMM L $(A)AA[aa]O4|4
occupation 20 FREE L $(A)AA[aa]E|1
old.attend.doctor.nm.ctf 30 FREE L VAL=@MIS.DOC.name[@t.ADM.PAT.attend.doctor]
omit.discharged 1 YN L VAL=IF{"Y"'=c.yn;@status#0A'="DIS"'="DEP" "Y";"N"}
oth.fam.mem 1 YN L $(A)AA[aa]O4|5
other.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|2
other.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.other.doctor]
other.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.name[@ADM.PAT.other.doctor];@ADM.PAT.o
VAL=ther.doctor}
outpatient.location 10 FREE L MIS.LOCN $(A)AA[aa]|12
outpatient.prior.location 10 FREE L MIS.LOCN $(A)AA[aa]|23
outpatient.service 10 FREE L MIS.SVC $(A)AA[aa]|22
outpatient.service.name 30 FREE L VAL=@MIS.SVC.name[@outpatient.service]
outreach.pt.number 15 FREE L $(A)AA[aa]O4|9
partial.del 1 YN L $(A)AA[aa]|27
pat.city 20 FREE L $(A)AA[aa]AD|2
pat.email 40 FREE L $(A)AA[aa]AD|6
pat.email.use 1 YN L $(A)AA[aa]AD|7
pat.home.phone 18 PHONE L $(A)AA[aa]AD|5
pat.other.phone 18 PHONE L $(A)AA[aa]AD|8
pat.postal.code 10 ZIP.POST L $(A)AA[aa]AD|4
pat.province 2 FREE L $(A)AA[aa]AD|3
pat.state 2 FREE L $(A)AA[aa]AD|3
pat.street 30 FREE L $(A)AA[aa]AD|0
pat.street2 30 FREE L $(A)AA[aa]AD|1
pat.zip 10 ZIP.POST L $(A)AA[aa]AD|4
patient.address.out 96 FREE L VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|
VAL=3_" "_AD|4'=",, ")
patient.address.phone.out 115 FREE L VAL=(@pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2_","_AD|
VAL=3_" "_AD|4_" "_AD|5'=",, ")
patient.city.state.zip.o 34 FREE L VAL=(@pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")
patient.streets.out 61 FREE L VAL=(@pat.street_" "_@pat.street2'=" ")
pctas.ind 1 YN L $(A)AA[aa]CNA|16
phys.init.assess.date 8 DATE L $(A)AA[aa]CNA|14
phys.init.assess.time 4 HHMM L $(A)AA[aa]CNA|15
ppr.discharge.date 8 DATE L $(A)AA[aa]O3|17
pref.lang 10 FREE L MIS.CAN.LANG $(A)AA[aa]DM|4
previous.acct.num 12 FREE L VAL=@old.can.acct.number[@Last(old.can.number.seq.no)]
previously.inpatient 1 YN L VAL=%ADM.PAT.prev.inp(urn)
prim.care.doctor 10 FREE L MIS.DOC $(A)AA[aa]DR|5
prim.care.doctor.name 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.prim.care.doctor]
prim.care.doctor.name.out 30 FREE L VAL=@MIS.DOC.name[@ADM.PAT.prim.care.doctor]
print.cd.screen 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,"",0)}}
print.cd.screen.verbatim 0 FREE L VAL=IF{urn^/urn,DO{@Next(cd.screen) %MIS.SCREEN.print(
VAL=cd.screen,^@customer.defined.fields,1,0)}}
prior.outpt.status 8 FREE L $(A)AA[aa]O3|13
prob.par.exp.date 8 DATE L $(A)AA[aa]PR|1
probation.parole 1 YN L $(A)AA[aa]PR|0
pt.condition 10 FREE L MIS.PT.COND $(A)AA[aa]CN|0
pulse 25 FREE L $(A)AA[aa]T1|3
race 10 FREE L MIS.RACE $(A)AA[aa]A|5
rcr.link.to.new 30 FREE L $(A)AA[aa]O4|7
rcr.link.to.old 30 FREE L $(A)AA[aa]O4|8
reason.for.visit 50 FREE L $(A)AA[aa]CO|1
recur.discharge.date 8 DATE L $(A)AA[aa]O3|8
refer.client 12 FREE L MIS.CLIENT $(A)AA[aa]O3|7
refer.client.name 30 FREE L VAL=@MIS.CLIENT.name[@refer.client]
reg.cat 10 FREE L MIS.CAN.REGCAT $(A)AA[aa]CNA|0
reg.cat.2 10 FREE L MIS.CAN.REGCAT $(A)AA[aa]CNA|0
reg.number 7 FREE L
reg.number.2 9 FREE L
reg.number.init 0 FREE L VAL=(%ADM.PAT.reg.num.get(/REG)&"")
reg.vot 1 YN L $(A)AA[aa]DM|12
religion 10 FREE L MIS.RELIGION $(A)AA[aa]A|0
religion.name 30 FREE L VAL=@MIS.RELIGION.name[@religion]
res.for.pay.code 1 FREE L VAL=@MIS.FIN.CLASS.resp.for.pay.code[@ADM.PAT.financia
VAL=l.class]
res.taken.date 8 DATE L $(A)AA[aa]O3|3
res.taken.time 4 HHMM L $(A)AA[aa]O3|4
reservation.date 8 DATE L $(A)AA[aa]O3|1
reservation.time 8 HHMM L $(A)AA[aa]O3|2
residence.code 10 FREE L MIS.CNTY $(A)AA[aa]CND|4
respiration 25 FREE L $(A)AA[aa]T1|4
restrain.ord.exist 1 YN L $(A)AA[aa]RX|0
restrict.dir.discl 8 CHOICE L $(A)AA[aa]A|11
room 10 FREE L MIS.ROOM $(A)AA[aa]|10
room.and.bed 21 FREE L VAL=(@room_"-"_@bed'="-")
room.or.location.out 21 FREE L VAL=IF{@room_"-"_@bed'="-";@location}
room.rate.accom 10 FREE L $(A)AA[aa]B|6
sched.er 1 YN L $(A)AA[aa]CNA|17
service 10 FREE L MIS.SVC $(A)AA[aa]|9
service.date 8 DATE L $(A)AA[aa]|15
service.in.out 10 FREE L MIS.SVC VAL=IF{@service;@outpatient.service}
service.name 30 FREE L VAL=@MIS.SVC.name[@service]
service.time 4 HHMM L $(A)AA[aa]|16
sex 1 CHOICE L $(A)AA[aa]|7
sex.name.out 7 FREE L VAL=IF{IF{@ADM.PAT.sex[urn];@t.MRI.DRC.sex[MRI.PAT.urn
VAL=]}^S="M" "Male";S="F" "Female";"Unknown"}
sex.offend.rec.date 8 DATE L $(A)AA[aa]SO|1
sex.offend.req.date 8 DATE L $(A)AA[aa]SO|0
short.form.reg 1 YN L $(A)AA[aa]O4|3
site 10 FREE L MIS.SITE $(A)AA[aa]DM|17
smoke.object.neither 1 CHOICE L $(A)AA[aa]A|6
soc.sec.num 12 FREE L $(A)AA[aa]A|2
soc.sec.number 12 FREE L $(A)AA[aa]A|2
soc.work.name 30 FREE L VAL=@UNV.USER.name[@ADM.PAT.social.worker]
social.worker 30 FREE L UNV.USER $(A)AA[aa]DM|2
special.pgm.indicator 10 FREE L MIS.SPEC.PROG $(A)AA[aa]A|7
status 8 FREE L $(A)AA[aa]|2
status.type 3 CHOICE L
status.type.out 3 FREE L VAL=(@status#2A)
status.w.flags 8 FREE L VAL=@ADM.PAT.status.w.obsv_IF{@MIS.DIS.expired[@ADM.PA
VAL=T.discharge.disposition!@ADM.PAT.er.depart.disposi
VAL=tion]="Y" "x"}
status.w.obsv 7 FREE L VAL=@ADM.PAT.status_IF{@ADM.PAT.observation.patient="Y
VAL=" "o"}
suppress.emr 1 YN L $(A)AA[aa]|21
temperature 25 FREE L $(A)AA[aa]T1|1
time 4 HHMM L
trans.comment 60 FREE L $(A)AA[aa]O5|12
trans.from.bed 3 FREE L $(A)AA[aa]O5|9
trans.from.loc 10 FREE L MIS.LOCN $(A)AA[aa]O5|5
trans.from.room 10 FREE L MIS.ROOM $(A)AA[aa]O5|7
trans.message 10 PINT R $(A)AA[aa]O5|14
trans.req.priority 10 FREE L ADM.BB.PRI $(A)AA[aa]O5|4
trans.req.source 3 FREE L $(A)AA[aa]O5|17
trans.req.status 10 CHOICE L $(A)AA[aa]O5|13
trans.req.taken.date 8 DATE L $(A)AA[aa]O5|15
trans.req.taken.time 4 HHMM L $(A)AA[aa]O5|16
trans.req.type 10 FREE L ADM.TR.REQ.TYPE$(A)AA[aa]O5|3
trans.time 4 HHMM L $(A)AA[aa]O5|11
trans.to.bed 3 FREE L $(A)AA[aa]O5|10
trans.to.loc 10 FREE L MIS.LOCN $(A)AA[aa]O5|6
trans.to.room 10 FREE L MIS.ROOM $(A)AA[aa]O5|8
treat.authorized.num 10 FREE L $(A)AA[aa]B|10
triage.date 8 DATE L $(A)AA[aa]T|0
triage.level 10 FREE L MIS.CAN.TRIAGE $(A)AA[aa]CNA|10
triage.time 4 HHMM L $(A)AA[aa]T|1
unit.number 10 FREE L $(A)AA[aa]|3
unit.number.canada 10 FREE L $(A)AA[aa]|3
unit.number.display.only 10 FREE L $(A)AA[aa]|3
unit.number.pre.er 10 FREE L $(A)AA[aa]|3
unit.number.reg.edm 10 FREE L $(A)AA[aa]|3
unit.number.reg.summary 10 FREE L $(A)AA[aa]|3
unit.number.sch 10 FREE L $(A)AA[aa]|3
unit.number.sch.canada 10 FREE L $(A)AA[aa]|3
unit.number.sch.short 10 FREE L $(A)AA[aa]|3
unit.number.sch.short.can 10 FREE L $(A)AA[aa]|3
unit.number.sch.shrt 10 FREE L $(A)AA[aa]|3
unit.number.sch.shrt.can 10 FREE L $(A)AA[aa]|3
unit.number.short 10 FREE L $(A)AA[aa]|3
unit.number.tdo 10 FREE L VAL=%ADM.PAT.unit.number.tdo(@ADM.PAT.unit.number)
uri.number 20 FREE L $(A)AA[aa]CNA["URI"]|0
us 1 YN L $(A)AA[aa]DM|8
use.prior.status 1 YN L $(A)AA[aa]O3|14
usual.visit.guarantor.out 1 YN L VAL=(IF{@usual.visit.guarantor;"Y"})
usual.visit.insurance.out 1 YN L VAL=(IF{@usual.visit.insurances;"Y"})
vet.status 10 FREE L MIS.VET.STATUS $(A)AA[aa]DM|9
vip 1 YN L $(A)AA[aa]A|9
vip.comment 50 FREE L $(A)AA[aa]A|10
visitors.allowed 1 YN L $(A)AA[aa]CN|1
weight 25 FREE L $(A)AA[aa]T1|5
zip.or.county 10 FREE L VAL=IF{"C"'=@ADM.PARAM.zip.or.county.stats @ADM.PAT.pa
VAL=t.zip;IF{@MIS.PARAM.country="US" IF{@MIS.ZIP.count
VAL=y[@ADM.PAT.pat.zip];@MIS.ZIP.county[@ADM.PAT.pat.z
VAL=ip$5]};@ADM.PAT.residence.code};"U"}
zip.or.county.t 10 FREE L VAL=IF{"C"'=@ADM.PARAM.zip.or.county.stats @t.ADM.PAT.
VAL=pat.zip;IF{@MIS.PARAM.country="US" IF{@MIS.ZIP.cou
VAL=nty[@t.ADM.PAT.pat.zip];@MIS.ZIP.county[@t.ADM.PAT
VAL=.pat.zip$5]};@t.ADM.PAT.residence.code};"U"}
Ì € i 2
allergies
[urn, allergy.num]
$(A)AA[aa]ALG[aal]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy.num 1 PINT R aal
allergy 15 FREE L $(A)AA[aa]ALG[aal]
Ì € i 2
appts.from.sch
[urn, appt.urn]
$(A)AA[aa]WZ[wz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.urn 10 FREE L wz
appt.date 8 DATE L $(A)AA[aa]WZ[wz]|0
appt.enc.seq.no 4 INT R $(A)AA[aa]WZ[wz]|3
appt.location 10 FREE L MIS.LOCN $(A)AA[aa]WZ[wz]|2
appt.time 4 HHMM5 L $(A)AA[aa]WZ[wz]|1
Ì € i 2
authorizations
[urn, auth.urn]
$(A)AA[aa]AUTH[hha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
auth.urn 10 URN L ARM.AUTH hha
auth.create.date 8 DATE L $(A)AA[aa]AUTH[hha]|1
auth.ins 10 FREE L MIS.INS $(A)AA[aa]AUTH[hha]|0
auth.last.update 10 STIME L $(A)AA[aa]AUTH[hha]|4
auth.number 18 FREE L $(A)AA[aa]AUTH[hha]|3
auth.ref.type 10 FREE L MIS.REF.TYPE $(A)AA[aa]AUTH[hha]|2
Ì € i 2
bed.attributes
[urn, bed.attribute]
$(A)AA[aa]BA[gbc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bed.attribute 10 FREE L MIS.BED.COMP gbc
Ì € i 2
bed.reservations
[urn, rsvn.room,rsvn.bed]
$(A)AA[aa]R[ggr,ggrB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rsvn.room 10 FREE L MIS.ROOM ggr
rsvn.bed 3 ggrB
rsvn.comment 30 FREE L $(A)AA[aa]R[ggr,ggrB]|2
rsvn.date 8 DATE L $(A)AA[aa]R[ggr,ggrB]|0
rsvn.time 4 HHMM L $(A)AA[aa]R[ggr,ggrB]|1
Ì € i 2
can.acct.numbers
[urn, old.can.number.seq.no]
$(A)AA[aa]CNN[aq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
old.can.number.seq.no 2 INT R aq
old.can.acct.number 12 FREE L $(A)AA[aa]CNN[aq]|0
old.can.acct.status 7 CHOICE L $(A)AA[aa]CNN[aq]|1
Ì € i 2
can.alerts
[urn, alert.num]
$(A)AA[aa]CNR[aar]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alert.num 1 PINT R aar
alert 15 FREE L $(A)AA[aa]CNR[aar]
Ì € i 2
clinical.alerts
[urn, clin.alert]
$(A)AA[aa]CLA[gqa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alert 10 FREE L MIS.CLIN.ALERT gqa
Ì € i 2
clinical.alerts.details
[urn,clin.alert, clin.alerts.details]
$(A)AA[aa]CLA[gqa]D[aqaDE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
clin.alerts.details 72 FREE L aqaDE
Ì € i 2
cm.services
[urn, cm.service.ctn]
$(A)AA[aa]CMSVC[cmsc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cm.service.ctn 5 URN L cmsc
cm.service 10 FREE L MIS.SVC $(A)AA[aa]CMSVC[cmsc]|0
cm.service.active 1 YN L $(A)AA[aa]CMSVC[cmsc]|1
cm.service.count 5 PINT R $(A)AA[aa]CMSVC[cmsc]|11
cm.service.dis.disp 10 FREE L MIS.DIS $(A)AA[aa]CMSVC[cmsc]|7
cm.service.ds.tm 4 HHMM L $(A)AA[aa]CMSVC[cmsc]|15
cm.service.end.date 8 DATE L $(A)AA[aa]CMSVC[cmsc]|4
cm.service.exp.date 8 DATE L $(A)AA[aa]CMSVC[cmsc]|2
cm.service.fin.date 8 DATE L $(A)AA[aa]CMSVC[cmsc]|10
cm.service.inpatient 1 YN L $(A)AA[aa]CMSVC[cmsc]|12
cm.service.location 10 FREE L MIS.LOCN $(A)AA[aa]CMSVC[cmsc]|9
cm.service.program 10 FREE L MIS.PROGRAM $(A)AA[aa]CMSVC[cmsc]|8
cm.service.st.tm 4 HHMM L $(A)AA[aa]CMSVC[cmsc]|14
cm.service.start.date 8 DATE L $(A)AA[aa]CMSVC[cmsc]|3
cm.service.sub.location 10 FREE L MIS.LOCN $(A)AA[aa]CMSVC[cmsc]|6
cm.service.update 10 FREE L MIS.USER $(A)AA[aa]CMSVC[cmsc]|13
cm.service.urn 10 PINT R $(A)AA[aa]CMSVC[cmsc]|5
Ì € i 2
collection.notes
[urn, collection.notes.num]
$(A)AA[aa]CNO[aaCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
collection.notes.num 3 PINT R aaCN
collection.notes.date 8 DATE L $(A)AA[aa]CNO[aaCN]|1
collection.notes.time 4 HHMM L $(A)AA[aa]CNO[aaCN]|2
collection.notes.user 10 FREE L MIS.USER $(A)AA[aa]CNO[aaCN]|0
Ì € i 2
collection.notes.text
[urn,collection.notes.num, collection.note.num]
$(A)AA[aa]CNO[aaCN]T[aCNQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
collection.note.num 3 PINT R aCNQ
collection.note.text 27 TEXT L $(A)AA[aa]CNO[aaCN]T[aCNQ]
Ì € i 2
comments.top
[urn, comment.number]
$(A)AA[aa]COM[aaCOM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.number 3 PINT R aaCOM
comment.date 8 DATE L $(A)AA[aa]COM[aaCOM]|1
comment.time 4 HHMM L $(A)AA[aa]COM[aaCOM]|2
comment.user 10 FREE L MIS.USER $(A)AA[aa]COM[aaCOM]|0
Ì € i 2
comments.lines
[urn,comment.number, comment.line.number]
$(A)AA[aa]COM[aaCOM]L[aaLINE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.line.number 80 FREE L aaLINE
Ì € i 2
conditions
[urn, cond.seq.no]
$(A)AA[aa]C[aaCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cond.seq.no 1 PINT R aaCN
condition 10 FREE L MIS.COND $(A)AA[aa]C[aaCN]|0
Ì € i 2
consulting.doctors
[urn, consulting.doctor]
$(A)AA[aa]CDR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
consulting.doctor 10 FREE L MIS.DOC ggg
consulting.doctor.name 30 FREE L VAL=@MIS.DOC.name[@consulting.doctor]
consulting.dr.name.out 30 FREE L VAL=IF{@MIS.DOC.name[@consulting.doctor];@consulting.d
VAL=octor}
Ì € i 2
contacts
[urn, contact.name]
$(A)AA[aa]CT[aacN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
contact.name 30 NAME L aacN
contact.active 1 YN L $(A)AA[aa]CT[aacN]|0
contact.city 30 FREE L $(A)AA[aa]CT[aacN]|2
contact.email 40 FREE L $(A)AA[aa]CT[aacN]|9
contact.fax 24 FREE L $(A)AA[aa]CT[aacN]|11
contact.home.phone 18 PHONE L $(A)AA[aa]CT[aacN]|5
contact.lar 1 YN L $(A)AA[aa]CT[aacN]|8
contact.pager 8 FREE L $(A)AA[aa]CT[aacN]|10
contact.relation 10 FREE L MIS.RELAT $(A)AA[aa]CT[aacN]|7
contact.state 2 FREE L $(A)AA[aa]CT[aacN]|3
contact.street 30 FREE L $(A)AA[aa]CT[aacN]|1
contact.work.phone 18 PHONE L $(A)AA[aa]CT[aacN]|6
contact.zip 10 ZIP.POST L $(A)AA[aa]CT[aacN]|4
Ì € i 2
customer.defined.queries
[urn, cd.query]
$(A)AA[aa]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.response 75 QRY.RESP L $(A)AA[aa]CD[ggv]|0
cd.yn.comment 70 QRY.RESP L $(A)AA[aa]CD[ggv]|5
Ì € i 2
cust.def.query.mult
[urn,cd.query, cd.query.mult.q]
$(A)AA[aa]CD[ggv]M[ggvMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query.mult.q 2 PINT R ggvMQ
cd.query.mult.response 30 QRY.RESP L $(A)AA[aa]CD[ggv]M[ggvMQ]|0
Ì € i 2
customer.defined.screens
[urn, cd.screen]
$(A)AA[aa]CDS[gxx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.screen 15 FREE L MIS.SCREEN gxx
Ì € i 2
duty.contacts
[urn, duty.contact.name]
$(A)AA[aa]DTC[dcN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
duty.contact.name 30 NAME L dcN
duty.contact.act 1 YN L $(A)AA[aa]DTC[dcN]|0
duty.contact.bpr 18 PHONE L $(A)AA[aa]DTC[dcN]|7
duty.contact.cty 30 FREE L $(A)AA[aa]DTC[dcN]|2
duty.contact.eecom 1 YN L $(A)AA[aa]DTC[dcN]|15
duty.contact.email 40 FREE L $(A)AA[aa]DTC[dcN]|9
duty.contact.fax 18 PHONE L $(A)AA[aa]DTC[dcN]|8
duty.contact.hp 18 PHONE L $(A)AA[aa]DTC[dcN]|5
duty.contact.rel 10 FREE L MIS.RELAT $(A)AA[aa]DTC[dcN]|10
duty.contact.st 30 FREE L $(A)AA[aa]DTC[dcN]|1
duty.contact.stat 2 FREE L $(A)AA[aa]DTC[dcN]|3
duty.contact.wp 18 PHONE L $(A)AA[aa]DTC[dcN]|6
duty.contact.zip 10 ZIP.POST L $(A)AA[aa]DTC[dcN]|4
Ì € i 2
dxs
[urn, dx.seq.no]
$(A)AA[aa]DX[aaDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dx.seq.no 2 PINT R aaDN
dx.adm.src 1 YN L $(A)AA[aa]DX[aaDN]|3
dx.alt.name 60 FREE L $(A)AA[aa]DX[aaDN]|1
dx.code 7 FREE L $(A)AA[aa]DX[aaDN]|0
dx.confidential.data 1 YN L $(A)AA[aa]DX[aaDN]|2
Ì € i 2
emp.info.data
[urn, eid.seq.no]
$(A)AA[aa]EI[aaEN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
eid.seq.no 1 PINT R aaEN
eid 10 FREE L MIS.EID $(A)AA[aa]EI[aaEN]|0
eid.employee.id 12 FREE L $(A)AA[aa]EI[aaEN]|4
eid.employer.loc 30 FREE L $(A)AA[aa]EI[aaEN]|3
eid.employer.name 10 FREE L MIS.EMPLR $(A)AA[aa]EI[aaEN]|2
eid.status 10 FREE L MIS.EMP.STATUS $(A)AA[aa]EI[aaEN]|1
Ì € i 2
events
[urn, event.date,event.seq.no]
$(A)AA[aa]EV[evdt,aev]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.date 8 DATE L evdt
event.seq.no 2 PINT R aev
event.accom 10 FREE L MIS.ACCOM $(A)AA[aa]EV[evdt,aev]|8
event.admit.doctor 10 FREE L MIS.DOC $(A)AA[aa]EV[evdt,aev]|3
event.attend.doctor 10 FREE L MIS.DOC $(A)AA[aa]EV[evdt,aev]|4
event.bed 10 FREE L $(A)AA[aa]EV[evdt,aev]|7
event.code 10 FREE L $(A)AA[aa]EV[evdt,aev]|0
event.comment 55 FREE L $(A)AA[aa]EV[evdt,aev]C|0
event.county 10 FREE L MIS.CNTY $(A)AA[aa]EV[evdt,aev]|2
event.date.undone 8 DATE L $(A)AA[aa]EV[evdt,aev]D|8
event.description 50 FREE L VAL=@ADM.PARAM.event.description[@event.code]_" "_@eve
VAL=nt.qualifiers
event.dis.dispo 10 FREE L MIS.DIS $(A)AA[aa]EV[evdt,aev]|20
event.dis.dispo.expired 1 YN L $(A)AA[aa]EV[evdt,aev]|12
event.eff.date 8 DATE L $(A)AA[aa]EV[evdt,aev]|1
event.eff.time 4 HHMM L $(A)AA[aa]EV[evdt,aev]D|2
event.financial.class 10 FREE L MIS.FIN.CLASS $(A)AA[aa]EV[evdt,aev]|11
event.loa.eff.date 8 DATE L $(A)AA[aa]EV[evdt,aev]|18
event.loa.eff.time 4 HHMM L $(A)AA[aa]EV[evdt,aev]|19
event.loa.status 1 CHOICE L $(A)AA[aa]EV[evdt,aev]|17
event.location 10 FREE L MIS.LOCN $(A)AA[aa]EV[evdt,aev]|5
event.new.val 20 FREE L $(A)AA[aa]EV[evdt,aev]D|3
event.old.accomodation 10 FREE L MIS.ACCOM $(A)AA[aa]EV[evdt,aev]U|13
event.old.attend.doctor 10 FREE L MIS.DOC $(A)AA[aa]EV[evdt,aev]U|1
event.old.bed 10 FREE L $(A)AA[aa]EV[evdt,aev]U|5
event.old.conf.comment 50 FREE L $(A)AA[aa]EV[evdt,aev]U|11
event.old.confidential 1 YN L $(A)AA[aa]EV[evdt,aev]U|10
event.old.er.doctor 10 FREE L MIS.DOC $(A)AA[aa]EV[evdt,aev]U|7
event.old.loa.eff.date 8 DATE L $(A)AA[aa]EV[evdt,aev]U|15
event.old.loa.eff.time 4 HHMM L $(A)AA[aa]EV[evdt,aev]U|16
event.old.loa.status 1 CHOICE L $(A)AA[aa]EV[evdt,aev]U|14
event.old.location 10 FREE L MIS.LOCN $(A)AA[aa]EV[evdt,aev]U|3
event.old.outpt.service 10 FREE L MIS.SVC $(A)AA[aa]EV[evdt,aev]U|12
event.old.rm.rate.accom 10 FREE L MIS.ACCOM $(A)AA[aa]EV[evdt,aev]U|6
event.old.room 10 FREE L MIS.ROOM $(A)AA[aa]EV[evdt,aev]U|4
event.old.service 10 FREE L MIS.SVC $(A)AA[aa]EV[evdt,aev]U|2
event.old.service.date 8 DATE L $(A)AA[aa]EV[evdt,aev]U|8
event.old.service.time 4 HHMM L $(A)AA[aa]EV[evdt,aev]U|9
event.old.status 7 CHOICE L $(A)AA[aa]EV[evdt,aev]U|0
event.old.val 20 FREE L $(A)AA[aa]EV[evdt,aev]D|4
event.prim.care.doctor 10 FREE L MIS.DOC $(A)AA[aa]EV[evdt,aev]|14
event.qualifiers 20 FREE L $(A)AA[aa]EV[evdt,aev]D|5
event.rcr.dt 8 DATE L $(A)AA[aa]EV[evdt,aev]|15
event.rcr.new.sv.date 8 DATE L $(A)AA[aa]EV[evdt,aev]|13
event.rcr.tm 4 HHMM L $(A)AA[aa]EV[evdt,aev]|16
event.room 10 FREE L MIS.ROOM $(A)AA[aa]EV[evdt,aev]|6
event.room.rate.accom 10 FREE L MIS.ACCOM $(A)AA[aa]EV[evdt,aev]|9
event.seq.undone 2 FREE L $(A)AA[aa]EV[evdt,aev]D|7
event.service 10 FREE L MIS.SVC $(A)AA[aa]EV[evdt,aev]|10
event.status 7 FREE L $(A)AA[aa]EV[evdt,aev]D|6
event.time 4 HHMM L $(A)AA[aa]EV[evdt,aev]D|0
event.transfer.comment 55 FREE L $(A)AA[aa]EV[evdt,aev]C|0
event.undo.comment 55 FREE L $(A)AA[aa]EV[evdt,aev]C|0
event.user 10 FREE L MIS.USER $(A)AA[aa]EV[evdt,aev]D|1
event.zip.code 10 ZIP.POST L MIS.ZIP $(A)AA[aa]EV[evdt,aev]|2
event.zip.or.county 10 FREE L $(A)AA[aa]EV[evdt,aev]|2
xxx.swap.event 0 FREE L VAL=IF{"z"^X,DO{"SWAPADMIN"'=@Root(@events[urn])[X]|0&
VAL=X <@Root(@events[urn])[X]^X},X#0S^event.date,X#
VAL=1S^event.seq.no}&""
xxx.swap.oth.acct 12 FREE L VAL=IF{@event.qualifiers%1;"NOT AVAILABLE"}
xxx.swap.oth.name 30 FREE L VAL=IF{@name[@acct.index[@event.qualifiers%1#"0 "]];"N
VAL=OT AVAILABLE"}
xxx.xfer.event 0 FREE L VAL=IF{"z"^X,DO{"TFRADMIN"'=@Root(@events[urn])[X]|0&X
VAL= <@Root(@events[urn])[X]^X},X#0S^event.date,X#1
VAL=S^event.seq.no}&""
Ì € i 2
event.segments
[urn,event.date,event.seq.no, event.segment]
$(A)AA[aa]EV[evdt,aev]S[evs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.segment 3 FREE L evs
event.seg.changed 78 FREE L VAL=IF{"CD"'=event.segment "EDITED "}_%ADM.PAT.activit
VAL=y.seg(ADM.PAT.event.segment)_IF{"CD"=event.segment
VAL= " UPDATED"}
event.seg.name 70 FREE L VAL=%ADM.PAT.activity.seg(ADM.PAT.event.segment)
Ì € i 2
events.other.locations
[urn,event.date,event.seq.no, event.other.location]
$(A)AA[aa]EV[evdt,aev]OL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.other.location 10 FREE L MIS.LOCN ggn
Ì € i 2
events.undo.other.locs
[urn,event.date,event.seq.no, events.old.other.location]
$(A)AA[aa]EV[evdt,aev]UOL[ggn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
events.old.other.location 10 FREE L MIS.LOCN ggn
Ì € i 2
expired.ins.queue
[urn, exp.ins.q]
$(A)AA[aa]EXPINS[exp.q]
Field Name Len Dat Typ J DPM Offset/Local/VAL
exp.ins.q 4 PINT R exp.q
exp.ins.eff.date DATE L $(A)AA[aa]EXPINS[exp.q]|1
exp.ins.event.date DATE L $(A)AA[aa]EXPINS[exp.q]|2
exp.ins.event.time TIME L $(A)AA[aa]EXPINS[exp.q]|3
exp.ins.mnemonic 10 FREE L MIS.INS $(A)AA[aa]EXPINS[exp.q]|0
exp.ins.user 10 FREE L MIS.USER $(A)AA[aa]EXPINS[exp.q]|4
Ì € i 2
expired.insurances
[urn,exp.ins.q, exp.insurance]
$(A)AA[aa]EXPINS[exp.q,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
exp.insurance 10 FREE L MIS.INS ggm
exp.ins.treat.auth.num 18 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|8
exp.insurance.benefit.pln 20 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|9
exp.insurance.city 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|1
exp.insurance.cov.no 20 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|7
exp.insurance.eff.date 8 DATE L $(A)AA[aa]EXPINS[exp.q,ggm]N|5
exp.insurance.exp.date 8 DATE L $(A)AA[aa]EXPINS[exp.q,ggm]N|6
exp.insurance.other.name 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|5
exp.insurance.phone 30 PHONE L $(A)AA[aa]EXPINS[exp.q,ggm]|4
exp.insurance.postal.code 10 ZIP.POST L $(A)AA[aa]EXPINS[exp.q,ggm]|3
exp.insurance.province 2 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|2
exp.insurance.state 2 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|2
exp.insurance.street 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|0
exp.insurance.street2 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]|6
exp.insurance.zip 10 ZIP.POST L $(A)AA[aa]EXPINS[exp.q,ggm]|3
exp.insured.copay 9 MONEY R $(A)AA[aa]EXPINS[exp.q,ggm]N|11
exp.insured.deductible 9 MONEY R $(A)AA[aa]EXPINS[exp.q,ggm]N|12
exp.insured.group.name 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|4
exp.insured.group.number 15 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|3
exp.insured.name 30 NAME L $(A)AA[aa]EXPINS[exp.q,ggm]N|0
exp.insured.policy.number 30 FREE L $(A)AA[aa]EXPINS[exp.q,ggm]N|2
exp.insured.relationship 10 FREE L MIS.RELAT $(A)AA[aa]EXPINS[exp.q,ggm]N|1
exp.insured.subscriber 30 URN L MRI.SUBSCRIBER $(A)AA[aa]EXPINS[exp.q,ggm]N|10
exp.insured.upd.subs.data 1 YN L $(A)AA[aa]EXPINS[exp.q,ggm]N|13
Ì € i 2
families
[urn, family.name]
$(A)AA[aa]FA[aacF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
family.name 30 NAME L aacF
family.active 1 YN L $(A)AA[aa]FA[aacF]|0
family.city 30 FREE L $(A)AA[aa]FA[aacF]|2
family.email 40 FREE L $(A)AA[aa]FA[aacF]|9
family.fax 24 FREE L $(A)AA[aa]FA[aacF]|10
family.homephone 18 PHONE L $(A)AA[aa]FA[aacF]|5
family.pager 8 FREE L $(A)AA[aa]FA[aacF]|8
family.relation 10 FREE L MIS.RELAT $(A)AA[aa]FA[aacF]|7
family.state 2 FREE L $(A)AA[aa]FA[aacF]|3
family.street 30 FREE L $(A)AA[aa]FA[aacF]|1
family.workphone 18 PHONE L $(A)AA[aa]FA[aacF]|6
family.zip 10 ZIP.POST L $(A)AA[aa]FA[aacF]|4
Ì € i 2
forensic.charges
[urn, forensic.charge]
$(A)AA[aa]FC[gch]
Field Name Len Dat Typ J DPM Offset/Local/VAL
forensic.charge 10 FREE L MIS.CHARGES gch
Ì € i 2
forensic.comments
[urn, forensic.comment.line]
$(A)AA[aa]FCOM[ftxt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
forensic.comment.line 5 PINT R ftxt
forensic.comment.text 90 TEXT L $(A)AA[aa]FCOM[ftxt]
forensic.comments.exist 0 YN L VAL=@Color.use(@Z.color.labels)_IF{+@t.forensic.commen
VAL=t.text[urn,""] "*";""}_@Color.use(@Z.color.data)
Ì € i 2
forensic.restrict
[urn, for.restrict.line]
$(A)AA[aa]FRE[ftxt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
for.restrict.line 5 PINT R ftxt
for.restrict.text 90 TEXT L $(A)AA[aa]FRE[ftxt]
Ì € i 2
guard.contacts
[urn, guard.contact.name]
$(A)AA[aa]GC[gcN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guard.contact.name 30 NAME L gcN
guard.contact.act 1 YN L $(A)AA[aa]GC[gcN]|0
guard.contact.bpr 18 PHONE L $(A)AA[aa]GC[gcN]|8
guard.contact.cty 30 FREE L $(A)AA[aa]GC[gcN]|3
guard.contact.email 40 FREE L $(A)AA[aa]GC[gcN]|10
guard.contact.fax 24 FREE L $(A)AA[aa]GC[gcN]|9
guard.contact.hp 18 PHONE L $(A)AA[aa]GC[gcN]|6
guard.contact.st 30 FREE L $(A)AA[aa]GC[gcN]|2
guard.contact.stat 2 FREE L $(A)AA[aa]GC[gcN]|4
guard.contact.type 10 FREE L MIS.CONTACT.TYP$(A)AA[aa]GC[gcN]|1
guard.contact.wp 18 PHONE L $(A)AA[aa]GC[gcN]|7
guard.contact.zip 10 ZIP.POST L $(A)AA[aa]GC[gcN]|5
Ì € i 2
guardian.types
[urn, guardian.type]
$(A)AA[aa]GT[gdt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guardian.type 10 FREE L MIS.GUARD.TYPE gdt
guardian.app.m.t 1 YN L $(A)AA[aa]GT[gdt]|6
guardian.duration 10 FREE L MIS.GUARD.DUR $(A)AA[aa]GT[gdt]|3
guardian.exp.date 8 DATE L $(A)AA[aa]GT[gdt]|5
guardian.gran.date 8 DATE L $(A)AA[aa]GT[gdt]|2
guardian.rev.date 8 DATE L $(A)AA[aa]GT[gdt]|4
guardian.status 10 FREE L MIS.GUARD.STAT $(A)AA[aa]GT[gdt]|0
guardian.sub.date 8 DATE L $(A)AA[aa]GT[gdt]|1
Ì € i 2
guardian.med.treat
[urn,guardian.type, meds.treat.type]
$(A)AA[aa]GT[gdt]MED[gcr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
meds.treat.type 10 FREE L MIS.COURT.ORDERgcr
ee.app.meds.treat 1 YN L $(A)AA[aa]GT[gdt]MED[gcr]|2
meds.treat.exp.dt 8 DATE L $(A)AA[aa]GT[gdt]MED[gcr]|1
meds.treat.rev.dt 8 DATE L $(A)AA[aa]GT[gdt]MED[gcr]|0
Ì € i 2
guard.med.treat.text
[urn,guardian.type,meds.treat.type, meds.treat.line]
$(A)AA[aa]GT[gdt]MED[gcr]TXT[mtTXT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
meds.treat.line 5 PINT R mtTXT
meds.treat.text 90 TEXT L $(A)AA[aa]GT[gdt]MED[gcr]TXT[mtTXT]
meds.treat.txt.exist 0 YN L VAL=@Color.use(@Z.color.labels)_IF{+@t.meds.treat.text
VAL=[urn,""] "*";""}_@Color.use(@Z.color.data)
Ì € i 2
hhrg
[urn, hhrg.asmnt.timestamp]
$(A)AA[aa]HHRG[aaHTS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.asmnt.timestamp 13 FREE L aaHTS
hhrg.asmnt.code 2 PINT R $(A)AA[aa]HHRG[aaHTS]|4
hhrg.asmnt.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]|11
hhrg.cert.end.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]|10
hhrg.cert.start.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]|9
hhrg.code 10 FREE L MIS.HHRG.DICT $(A)AA[aa]HHRG[aaHTS]|1
hhrg.end.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]|8
hhrg.eoc 8 DATE L $(A)AA[aa]HHRG[aaHTS]|0
hhrg.hipps 5 FREE L $(A)AA[aa]HHRG[aaHTS]|6
hhrg.msa 10 FREE L MIS.MSA.DICT $(A)AA[aa]HHRG[aaHTS]|2
hhrg.oasis.key 10 FREE L $(A)AA[aa]HHRG[aaHTS]|5
hhrg.soc 8 DATE L $(A)AA[aa]HHRG[aaHTS]|3
hhrg.start.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]|7
Ì € i 2
hhrg.dxs
[urn,hhrg.asmnt.timestamp, hhrg.dx.seq.no]
$(A)AA[aa]HHRG[aaHTS]DX[aaHDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.dx.seq.no 2 PINT R aaHDN
hhrg.dx.alt.name 60 FREE L $(A)AA[aa]HHRG[aaHTS]DX[aaHDN]|1
hhrg.dx.classification 1 CHOICE L $(A)AA[aa]HHRG[aaHTS]DX[aaHDN]|4
hhrg.dx.code 7 FREE L $(A)AA[aa]HHRG[aaHTS]DX[aaHDN]|0
hhrg.dx.date 8 DATE L $(A)AA[aa]HHRG[aaHTS]DX[aaHDN]|2
hhrg.dx.time 4 TIME L $(A)AA[aa]HHRG[aaHTS]DX[aaHDN]|3
Ì € i 2
images
[urn, mr.form,form.seq.no]
$(A)AA[aa]IM[gi,fsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mr.form 15 FREE L MIS.MR.FORM gi
form.seq.no 2 PINT R fsn
date.created 8 DATE L $(A)AA[aa]IM[gi,fsn]|0
form.user 10 FREE L MIS.USER $(A)AA[aa]IM[gi,fsn]|2
time.created 4 TIME L $(A)AA[aa]IM[gi,fsn]|1
Ì € i 2
image.pages
[urn,mr.form,form.seq.no, page.number]
$(A)AA[aa]IM[gi,fsn]P[fsnp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
page.number 2 PINT R fsnp
im.path 128 FREE L $(A)AA[aa]IM[gi,fsn]P[fsnp]|0
im.path.urn 2 FREE L $(A)AA[aa]IM[gi,fsn]P[fsnp]|1
Ì € i 2
ins.expired.insurances
[urn, exp.ins.seq.no]
$(A)AA[aa]EXPINS[ggmEXP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
exp.ins.seq.no 3 PINT R ggmEXP
Ì € i 2
insurances
[urn, insurance]
$(A)AA[aa]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS ggm
ins.auth.diag.code 6 FREE L $(A)AA[aa]I[ggm]A|1
ins.auth.diag.desc 30 FREE L $(A)AA[aa]I[ggm]A|2
ins.auth.eff.date 8 DATE L $(A)AA[aa]I[ggm]A|7
ins.auth.exp.date 8 DATE L $(A)AA[aa]I[ggm]A|8
ins.auth.ipa.reimb.amt 9 MONEY R $(A)AA[aa]I[ggm]A|10
ins.auth.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]A|12
ins.auth.number 18 FREE L VAL=@insurance.treat.auth.num
ins.auth.process 10 FREE L VAL="AUTH"
ins.auth.process.status 8 CHOICE L $(A)AA[aa]I[ggm]A|5
ins.auth.process.tried.q 1 FREE L $(A)AA[aa]I[ggm]A|11
ins.auth.ref.provider 10 FREE L MIS.DOC $(A)AA[aa]I[ggm]A|9
ins.auth.status 9 CHOICE L $(A)AA[aa]I[ggm]A|4
ins.auth.status.date 8 DATE L $(A)AA[aa]I[ggm]A|6
ins.auth.status.out 9 FREE L VAL=IF{@ins.auth.status;@ins.auth.process.status}
ins.auth.units 4 PINT R $(A)AA[aa]I[ggm]A|3
ins.elig.can.code 3 FREE L $(A)AA[aa]I[ggm]CN|0
ins.elig.can.code.date 8 DATE L $(A)AA[aa]I[ggm]CN|1
ins.elig.can.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]CN|2
ins.elig.inq.seq.no 3 INT R $(A)AA[aa]I[ggm]L|5
ins.elig.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]L|3
ins.elig.process 10 FREE L VAL="ELIG"
ins.elig.process.tried.q 1 FREE L $(A)AA[aa]I[ggm]L|2
ins.elig.status 8 CHOICE L $(A)AA[aa]I[ggm]L|0
ins.elig.status.date 8 DATE L $(A)AA[aa]I[ggm]L|1
ins.elig.trace.num 30 FREE L $(A)AA[aa]I[ggm]L|4
ins.emp.loc 30 FREE L $(A)AA[aa]I[ggm]E|2
ins.emp.name 10 FREE L MIS.EMPLR $(A)AA[aa]I[ggm]E|1
ins.emp.status 10 FREE L MIS.EMP.STATUS $(A)AA[aa]I[ggm]E|0
ins.policy.num 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic]
ins.print.queries 8 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",0,1)
insurance.benefit.plan 20 FREE L $(A)AA[aa]I[ggm]N|9
insurance.city 30 FREE L $(A)AA[aa]I[ggm]|1
insurance.cov.no 20 FREE L $(A)AA[aa]I[ggm]N|7
insurance.eff.date 8 DATE L $(A)AA[aa]I[ggm]N|5
insurance.exp.date 8 DATE L $(A)AA[aa]I[ggm]N|6
insurance.other.name 30 FREE L $(A)AA[aa]I[ggm]|5
insurance.phone 30 PHONE L $(A)AA[aa]I[ggm]|4
insurance.postal.code 10 ZIP.POST L $(A)AA[aa]I[ggm]|3
insurance.province 2 FREE L $(A)AA[aa]I[ggm]|2
insurance.state 2 FREE L $(A)AA[aa]I[ggm]|2
insurance.street 30 FREE L $(A)AA[aa]I[ggm]|0
insurance.street2 30 FREE L $(A)AA[aa]I[ggm]|6
insurance.treat.auth.num 18 FREE L $(A)AA[aa]I[ggm]N|8
insurance.zip 10 ZIP.POST L $(A)AA[aa]I[ggm]|3
insured.copay 9 MONEY R $(A)AA[aa]I[ggm]N|11
insured.deductible 9 MONEY R $(A)AA[aa]I[ggm]N|12
insured.group.name 30 FREE L $(A)AA[aa]I[ggm]N|4
insured.group.number 15 FREE L $(A)AA[aa]I[ggm]N|3
insured.name.out 30 NAME L VAL=IF{@insured.subscriber^SUB @MRI.SUBSCRIBER.subs.na
VAL=me[SUB];@insured.name}
insured.policy.number 30 FREE L $(A)AA[aa]I[ggm]N|2
insured.relationship 10 FREE L MIS.RELAT $(A)AA[aa]I[ggm]N|1
insured.subscriber 30 URN L MRI.SUBSCRIBER $(A)AA[aa]I[ggm]N|10
Ì € i 2
ins.auth.procedures
[urn,insurance, ins.auth.proc.seq.no]
$(A)AA[aa]I[ggm]A["P",aaIAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.proc.seq.no 2 PINT R aaIAP
ins.auth.proc 10 FREE L $(A)AA[aa]I[ggm]A["P",aaIAP]|0
ins.auth.proc.amt 9 MONEY R $(A)AA[aa]I[ggm]A["P",aaIAP]|1
ins.auth.proc.copay 8 MONEY R $(A)AA[aa]I[ggm]A["P",aaIAP]|3
ins.auth.proc.units 3 PINT R $(A)AA[aa]I[ggm]A["P",aaIAP]|2
Ì € i 2
ins.auth.req.data
[urn,insurance, ins.auth.req.seq.no]
$(A)AA[aa]I[ggm]R[aaIRQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.req.seq.no 2 PINT R aaIRQ
ins.auth.req.diag.code 6 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|2
ins.auth.req.diag.desc 30 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|3
ins.auth.req.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]R[aaIRQ]|9
ins.auth.req.number 18 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|7
ins.auth.req.process 10 FREE L VAL="REF REQ"
ins.auth.req.pros.tried.q 1 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|8
ins.auth.req.prv.enc 10 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|10
ins.auth.req.prv.enc.ref 2 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]|11
ins.auth.req.prv.ref.urn 10 URN L PRV.REF $(A)AA[aa]I[ggm]R[aaIRQ]|10
ins.auth.req.reqd.prov 10 FREE L MIS.DOC $(A)AA[aa]I[ggm]R[aaIRQ]|6
ins.auth.req.reqg.prov 10 FREE L MIS.DOC $(A)AA[aa]I[ggm]R[aaIRQ]|5
ins.auth.req.status 8 CHOICE L $(A)AA[aa]I[ggm]R[aaIRQ]|0
ins.auth.req.status.date 8 DATE L $(A)AA[aa]I[ggm]R[aaIRQ]|1
ins.auth.req.units 3 INT R $(A)AA[aa]I[ggm]R[aaIRQ]|4
Ì € i 2
ins.auth.req.services
[urn,insurance,ins.auth.req.seq.no, ins.auth.req.ser.seq.no]
$(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.auth.req.ser.seq.no 2 PINT R aaIRS
ins.auth.req.fin.resp 10 CHOICE L $(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|0
ins.auth.req.proc.code 10 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|1
ins.auth.req.proc.desc 30 FREE L $(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|3
ins.auth.req.quantity 4 PINT R $(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|4
ins.auth.req.use.cpt 1 YN L $(A)AA[aa]I[ggm]R[aaIRQ]S[aaIRS]|2
Ì € i 2
ins.authm.data
[urn,insurance, ins.authm.urn]
$(A)AA[aa]I[ggm]AU[hha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.urn 10 FREE L hha
ins.authm.arm 1 YN L $(A)AA[aa]I[ggm]AU[hha]|14
ins.authm.diag.code 6 FREE L $(A)AA[aa]I[ggm]AU[hha]|1
ins.authm.diag.desc 30 FREE L $(A)AA[aa]I[ggm]AU[hha]|2
ins.authm.eff.date 8 DATE L $(A)AA[aa]I[ggm]AU[hha]|7
ins.authm.exp.date 8 DATE L $(A)AA[aa]I[ggm]AU[hha]|8
ins.authm.ipa.reimb.amt 9 MONEY R $(A)AA[aa]I[ggm]AU[hha]|10
ins.authm.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]AU[hha]|12
ins.authm.number 18 FREE L $(A)AA[aa]I[ggm]AU[hha]|0
ins.authm.process 10 FREE L VAL="AUTH"
ins.authm.process.status 8 CHOICE L $(A)AA[aa]I[ggm]AU[hha]|5
ins.authm.process.tried.q 1 FREE L $(A)AA[aa]I[ggm]AU[hha]|11
ins.authm.ref.provider 10 FREE L MIS.DOC $(A)AA[aa]I[ggm]AU[hha]|9
ins.authm.ref.type 10 FREE L MIS.REF.TYPE $(A)AA[aa]I[ggm]AU[hha]|13
ins.authm.status 9 CHOICE L $(A)AA[aa]I[ggm]AU[hha]|4
ins.authm.status.date 8 DATE L $(A)AA[aa]I[ggm]AU[hha]|6
ins.authm.status.out 9 FREE L VAL=IF{@ins.authm.status;@ins.authm.process.status}
ins.authm.track.number 10 FREE L $(A)AA[aa]I[ggm]AU[hha]|15
ins.authm.units 4 PINT R $(A)AA[aa]I[ggm]AU[hha]|3
Ì € i 2
ins.authm.cpt.codes
[urn,insurance,ins.authm.urn, ins.authm.cpt.seq.no]
$(A)AA[aa]I[ggm]AU[hha]P[aaIAC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.cpt.seq.no 2 PINT R aaIAC
ins.authm.cpt 10 FREE L $(A)AA[aa]I[ggm]AU[hha]P[aaIAC]|0
ins.authm.cpt.amt 9 MONEY R $(A)AA[aa]I[ggm]AU[hha]P[aaIAC]|1
ins.authm.cpt.copay 8 MONEY R $(A)AA[aa]I[ggm]AU[hha]P[aaIAC]|3
ins.authm.cpt.units 3 PINT R $(A)AA[aa]I[ggm]AU[hha]P[aaIAC]|2
Ì € i 2
ins.authm.procedures
[urn,insurance,ins.authm.urn, ins.authm.proc.seq.no]
$(A)AA[aa]I[ggm]AU[hha]P[aaIAP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.authm.proc.seq.no 2 PINT R aaIAP
ins.authm.proc 10 FREE L $(A)AA[aa]I[ggm]AU[hha]P[aaIAP]|0
ins.authm.proc.amt 9 MONEY R $(A)AA[aa]I[ggm]AU[hha]P[aaIAP]|1
ins.authm.proc.copay 8 MONEY R $(A)AA[aa]I[ggm]AU[hha]P[aaIAP]|3
ins.authm.proc.units 3 PINT R $(A)AA[aa]I[ggm]AU[hha]P[aaIAP]|2
Ì € i 2
ins.cd.queries
[urn,insurance, ins.cd.query]
$(A)AA[aa]I[ggm]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query 10 FREE L MIS.QUERY ggv
ind.cd.yn.comment 70 QRY.RESP L $(A)AA[aa]I[ggm]CD[ggv]|5
ins.cd.response 30 QRY.RESP L $(A)AA[aa]I[ggm]CD[ggv]|0
Ì € i 2
ins.cd.queries.mult
[urn,insurance,ins.cd.query, ins.cd.query.q]
$(A)AA[aa]I[ggm]CD[ggv]M[ggvIQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.cd.query.q 2 PINT R ggvIQ
ind.cd.query.resp.mult 30 QRY.RESP L $(A)AA[aa]I[ggm]CD[ggv]M[ggvIQ]|0
Ì € i 2
ins.elig.can.swipe.data
[urn,insurance, ins.elig.can.swipe.seq]
$(A)AA[aa]I[ggm]L["S",aicsT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.elig.can.swipe.seq 2 INT R aicsT
ins.elig.can.swipe.track 100 FREE L $(A)AA[aa]I[ggm]L["S",aicsT]
Ì € i 2
ins.elig.data.trace
[urn,insurance, ins.elig.trn.seq.no]
$(A)AA[aa]I[ggm]L[gimTQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.elig.trn.seq.no 3 PINT R gimTQ
ins.elig.trn.last.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]L[gimTQ]|3
ins.elig.trn.number 30 FREE L $(A)AA[aa]I[ggm]L[gimTQ]|0
ins.elig.trn.status 8 CHOICE L $(A)AA[aa]I[ggm]L[gimTQ]|1
ins.elig.trn.status.date 8 DATE L $(A)AA[aa]I[ggm]L[gimTQ]|2
Ì € i 2
ins.images
[urn,insurance, ins.mr.form,ins.form.seq.no]
$(A)AA[aa]I[ggm]IM[gi,fsn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.mr.form 15 FREE L MIS.MR.FORM gi
ins.form.seq.no 2 PINT R fsn
form.ins.user 10 FREE L MIS.USER $(A)AA[aa]I[ggm]IM[gi,fsn]|2
ins.date.created 8 DATE L $(A)AA[aa]I[ggm]IM[gi,fsn]|0
ins.time.created 4 TIME L $(A)AA[aa]I[ggm]IM[gi,fsn]|1
Ì € i 2
ins.image.pages
[urn,insurance,ins.mr.form,ins.form.seq.no, ins.page.number]
$(A)AA[aa]I[ggm]IM[gi,fsn]P[fsnp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.page.number 2 PINT R fsnp
ins.im.path 128 FREE L $(A)AA[aa]I[ggm]IM[gi,fsn]P[fsnp]|0
ins.im.path.urn 2 FREE L $(A)AA[aa]I[ggm]IM[gi,fsn]P[fsnp]|1
Ì € i 2
ins.queries
[urn,insurance, query.seq.no]
$(A)AA[aa]I[ggm]Q[ggmQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.seq.no 2 PINT R ggmQ
ins.query 60 FREE L VAL=@MIS.QUERY.text[@ADM.PAT.ins.query.mnemonic]
ins.query.and.answer 136 FREE L VAL=(@ins.query_" "_IF{@MIS.QUERY.type="D" %Z.date.que
VAL=ry.out(@ins.query.answer);@ins.query.answer})
ins.query.answer 75 QRY.RESP L $(A)AA[aa]I[ggm]Q[ggmQ]|1
ins.query.color.screen 75 FREE L VAL=(@Color.use(@Z.color.labels)_(@ins.query:75L)_@Col
VAL=or.use(@Z.color.data))
ins.query.count 2 INT R VAL=(-@ADM.PAT.ins.queries[ADM.PAT.urn,insurance,""]+0
VAL=)
ins.query.mnemonic 10 FREE L MIS.QUERY $(A)AA[aa]I[ggm]Q[ggmQ]|0
ins.query.screen 60 FREE L VAL=IF{@ins.query @Z.start.background_@Z.normal.backgr
VAL=ound.half_@ins.query_@Z.start.foreground_@Z.normal
VAL=.foreground.full}
Ì € i 2
insure.order
[urn, ins.seq.no]
$(A)AA[aa]IO[aaIN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ins.seq.no 1 PINT R aaIN
display.ins.name 30 FREE L VAL=IF{@MIS.INS.other.type="Y" @insurance.other.name;@
VAL=MIS.INS.name}
insurance.auth.no.1 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=1]]
insurance.auth.no.2 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=2]]
insurance.auth.no.3 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=3]]
insurance.auth.no.4 18 FREE L VAL=@insurance.treat.auth.num[urn,@insurance.mnemonic[
VAL=4]]
insurance.group.no.1 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[1]]
insurance.group.no.2 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[2]]
insurance.group.no.3 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[3]]
insurance.group.no.4 15 FREE L VAL=@insured.group.number[urn,@insurance.mnemonic[4]]
insurance.mnemonic 10 FREE L MIS.INS $(A)AA[aa]IO[aaIN]|0
insurance.name 30 FREE L VAL=IF{@t.insurance.other.name[@insurance.mnemonic[ins
VAL=.seq.no]];@MIS.INS.name[@insurance.mnemonic[ins.se
VAL=q.no]]}
insurance.name.1 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=1];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,1]}^I
VAL=NS];@MIS.INS.name[INS]}
insurance.name.2 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=2];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,2]}^I
VAL=NS];@MIS.INS.name[INS]}
insurance.name.3 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=3];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,3]}^I
VAL=NS];@MIS.INS.name[INS]}
insurance.name.4 30 FREE L VAL=IF{@t.insurance.other.name[IF{@insurance.mnemonic[
VAL=4];@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,4]}^I
VAL=NS];@MIS.INS.name[INS]}
insurance.no.and.mne 13 FREE L VAL=(ins.seq.no_" "_insurance.mnemonic)
insurance.pol.no.1 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[1]]
insurance.pol.no.2 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[2]]
insurance.pol.no.3 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[3]]
insurance.pol.no.4 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic[4]]
insured.name.1 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[1]];@MRI.
VAL=SUBSCRIBER.subs.name[@insured.subscriber[urn,@insu
VAL=rance.mnemonic[1]]];@t.MRI.DRC.insured.name[MRI.PA
VAL=T.urn,@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,1]
VAL=]}
insured.name.2 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[2]];@MRI.
VAL=SUBSCRIBER.subs.name[@insured.subscriber[urn,@insu
VAL=rance.mnemonic[2]]];@t.MRI.DRC.insured.name[MRI.PA
VAL=T.urn,@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,2]
VAL=]}
insured.name.3 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[3]];@MRI.
VAL=SUBSCRIBER.subs.name[@insured.subscriber[urn,@insu
VAL=rance.mnemonic[3]]];@t.MRI.DRC.insured.name[MRI.PA
VAL=T.urn,@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,3]
VAL=]}
insured.name.4 30 FREE L VAL=IF{@insured.name[urn,@insurance.mnemonic[4]];@MRI.
VAL=SUBSCRIBER.subs.name[@insured.subscriber[urn,@insu
VAL=rance.mnemonic[4]]];@t.MRI.DRC.insured.name[MRI.PA
VAL=T.urn,@t.MRI.DRC.insurance.mnemonic[MRI.PAT.urn,4]
VAL=]}
Ì € i 2
loa.dates
[urn, loa.date,loa.time]
$(A)AA[aa]LOA[aaLD,aaLT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
loa.date 8 DATE L aaLD
loa.time 4 HHMM L aaLT
loa.code 1 CHOICE L $(A)AA[aa]LOA[aaLD,aaLT]|1
loa.code.facility.type 5 CHOICE L $(A)AA[aa]LOA[aaLD,aaLT]|3
loa.code.hold.orders 1 YN L $(A)AA[aa]LOA[aaLD,aaLT]|2
loa.user 10 FREE L MIS.USER $(A)AA[aa]LOA[aaLD,aaLT]|0
Ì € i 2
med.nec.dxs
[urn, med.nec.dx.code]
$(A)AA[aa]MDX[aaMDX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.code 7 FREE L aaMDX
med.nec.dx.date 8 FREE L $(A)AA[aa]MDX[aaMDX]|0
med.nec.last.update 10 PINT R $(A)AA[aa]MDX[aaMDX]UPD
Ì € i 2
med.nec.dx.procs
[urn,med.nec.dx.code, med.nec.dx.proc]
$(A)AA[aa]MDX[aaMDX]P[bd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc 12 FREE L MIS.BAR.PROC bd
Ì € i 2
med.nec.dx.proc.mods
[urn,med.nec.dx.code,med.nec.dx.proc, med.nec.dx.proc.mod]
$(A)AA[aa]MDX[aaMDX]P[bd]M[aadxM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.mod 2 FREE L aadxM
Ì € i 2
med.nec.dx.proc.mod.src
[urn,med.nec.dx.code,med.nec.dx.proc,med.nec.dx.proc.mod, med.nec.dx.proc.mod.db]
$(A)AA[aa]MDX[aaMDX]P[bd]M[aadxM]SRC[modDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.mod.db 30 FREE L modDB
Ì € i 2
med.nec.dx.proc.source
[urn,med.nec.dx.code,med.nec.dx.proc, med.nec.dx.proc.db]
$(A)AA[aa]MDX[aaMDX]P[bd]SRC[prcDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.proc.db 30 FREE L prcDB
Ì € i 2
med.nec.dx.source
[urn,med.nec.dx.code, med.nec.dx.db]
$(A)AA[aa]MDX[aaMDX]SRC[mdxDB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
med.nec.dx.db 30 FREE L mdxDB
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |