Ì i 2
alt.address.audit.trail (alt.address.audit.trail)
[alt.addr.facility,alt.addr.date,alt.addr.time,alt.addr.urn,alt.addr.counter]
: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 :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|2
alt.addr.city.old 20 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|2
alt.addr.edit.appl 12 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|4
alt.addr.edit.user 10 FREE L MIS.USER :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|0
alt.addr.home.phone.new 18 PHONE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|5
alt.addr.home.phone.old 18 PHONE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|5
alt.addr.other.phone.new 18 PHONE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|6
alt.addr.other.phone.old 18 PHONE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|6
alt.addr.postal.code.new 10 ZIP.POST L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|4
alt.addr.postal.code.old 10 ZIP.POST L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|4
alt.addr.province.new 2 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|3
alt.addr.province.old 2 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|3
alt.addr.pt.acct.no 12 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|2
alt.addr.pt.name 30 NAME L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|1
alt.addr.pt.unit.no 10 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]|3
alt.addr.state.new 2 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|3
alt.addr.state.old 2 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|3
alt.addr.street.new 30 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|0
alt.addr.street.old 30 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|0
alt.addr.street2.new 30 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|1
alt.addr.street2.old 30 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|1
alt.addr.zip.new 10 ZIP.POST L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW|4
alt.addr.zip.old 10 ZIP.POST L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD|4
Ì € i 2
alt.address.email.new (alt.address.email.new)
[alt.addr.facility,alt.addr.date,alt.addr.time,alt.addr.urn,alt.addr.counter, alt.email.seq.no.new]
:AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW["EM",aaEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.email.seq.no.new 2 PINT R aaEQ
alt.email.new 40 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW["EM",aaEQ]|0
alt.email.usable.new 1 YN L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]NEW["EM",aaEQ]|1
Ì € i 2
alt.address.email.old (alt.address.email.old)
[alt.addr.facility,alt.addr.date,alt.addr.time,alt.addr.urn,alt.addr.counter, alt.email.seq.no.old]
:AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD["EM",aaEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alt.email.seq.no.old 2 PINT R aaEQ
alt.email.old 40 FREE L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD["EM",aaEQ]|0
alt.email.usable.old 1 YN L :AAALT[gqb,aaDAT,aaTIM,aaURN,aaCNT]OLD["EM",aaEQ]|1
Ì i 2
adm.pat.ansi.elig.data (ansi.elig.data)
[elig.account,elig.ins,elig.ins.seq]
*AA.EDI[aa,ggm,aaEIS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.account 30 URN L ADM.PAT aa
elig.ins 10 FREE L MIS.INS.DICT ggm
elig.ins.seq 5 FREE L aaEIS
elig.inq.override.dob 8 BDATE L *AA.EDI[aa,ggm,aaEIS]I|2
elig.inq.override.from.dt 8 DATE L *AA.EDI[aa,ggm,aaEIS]I|6
elig.inq.override.name 50 FREE L *AA.EDI[aa,ggm,aaEIS]I|0
elig.inq.override.phone 14 PHONE L *AA.EDI[aa,ggm,aaEIS]I|3
elig.inq.override.ssn 12 FREE L *AA.EDI[aa,ggm,aaEIS]I|1
elig.inq.override.thru.dt 8 DATE L *AA.EDI[aa,ggm,aaEIS]I|7
elig.inq.override.used 1 YN L *AA.EDI[aa,ggm,aaEIS]I|4
elig.res.payer.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|4
elig.res.payer.con.name 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|5
elig.res.payer.con.num 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|7
elig.res.payer.con.type 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|6
elig.res.payer.con2.num 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|9
elig.res.payer.con2.type 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|8
elig.res.payer.id 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|3
elig.res.payer.id.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|2
elig.res.payer.name 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|1
elig.res.payer.type 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]|0
elig.res.prov.code 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|4
elig.res.prov.id 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|3
elig.res.prov.id.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|2
elig.res.prov.name 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|1
elig.res.prov.ref.num 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|6
elig.res.prov.ref.num.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|5
elig.res.prov.type 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]|0
elig.res.values.mapped 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["G"]|0
elig.resp.detail.exists 10 FREE L VAL=(>@ansi.elig.resp.detail[,,,""])
elig.txn.comment 50 FREE L *AA.EDI[aa,ggm,aaEIS]|6
elig.txn.edi.pgm 15 FREE L MIS.EDI.PGM *AA.EDI[aa,ggm,aaEIS]|8
elig.txn.inq.time 10 INT R *AA.EDI[aa,ggm,aaEIS]|1
elig.txn.ins.status 10 FREE L *AA.EDI[aa,ggm,aaEIS]|3
elig.txn.is.tpl.data 1 YN L *AA.EDI[aa,ggm,aaEIS]|10
elig.txn.mult.records 1 FREE L *AA.EDI[aa,ggm,aaEIS]|4
elig.txn.status 10 FREE L *AA.EDI[aa,ggm,aaEIS]|2
elig.txn.time 10 INT R *AA.EDI[aa,ggm,aaEIS]|7
elig.txn.trace.num 20 FREE L *AA.EDI[aa,ggm,aaEIS]|0
Ì € i 2
elig.res.aaa.display (elig.res.aaa.display)
[elig.account,elig.ins,elig.ins.seq, elig.res.aaa.dis.queue]
*AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.aaa.dis.queue 2 PINT R valQ
elig.res.aaa.dis.cd 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|0
elig.res.aaa.dis.cd.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|4
elig.res.aaa.dis.fol 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|2
elig.res.aaa.dis.fol.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|6
elig.res.aaa.dis.reas 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|1
elig.res.aaa.dis.reas.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["AAAD",valQ]|5
Ì € i 2
elig.res.capture (elig.res.capture)
[elig.account,elig.ins,elig.ins.seq, elig.res.cc.queue]
*AA.EDI[aa,ggm,aaEIS]D["C",gidCC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.cc.queue 3 INT R gidCC
elig.res.cc.dep 2 INT R *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|6
elig.res.cc.field 2 INT R *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|2
elig.res.cc.hl.level 6 FREE L *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|0
elig.res.cc.seg 4 FREE L *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|1
elig.res.cc.storage 15 FREE L *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|4
elig.res.cc.subs 2 INT R *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|5
elig.res.cc.value 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["C",gidCC]|3
Ì € i 2
elig.res.dtp.display (elig.res.dtp.display)
[elig.account,elig.ins,elig.ins.seq, elig.res.dtp.dis.queue]
*AA.EDI[aa,ggm,aaEIS]D["DTPD",dtpQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dtp.dis.queue 2 PINT R dtpQ
elig.res.dtp.dis.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["DTPD",dtpQ]|1
elig.res.dtp.dis.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["DTPD",dtpQ]|0
elig.res.dtp.dis.qual.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["DTPD",dtpQ]|3
Ì € i 2
elig.res.payer.per (elig.res.payer.per)
[elig.account,elig.ins,elig.ins.seq, elig.res.payer.per.queue]
*AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.payer.per.queue 2 PINT R pypQ
elig.res.payer.per.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]|0
elig.res.payer.per.con.nm 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]|1
Ì € i 2
elig.res.payer.per.con (elig.res.payer.per.con)
[elig.account,elig.ins,elig.ins.seq,elig.res.payer.per.queue, elig.res.payer.per.con.q]
*AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]CON[pypcQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.payer.per.con.q 2 PINT R pypcQ
elig.res.payer.per.con.nu 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]CON[pypcQ]|1
elig.res.payer.per.con.ty 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]PER[pypQ]CON[pypcQ]|0
Ì € i 2
elig.res.payer.refs (elig.res.payer.refs)
[elig.account,elig.ins,elig.ins.seq, elig.res.payer.ref.queue]
*AA.EDI[aa,ggm,aaEIS]D["PY"]REF[refQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.payer.ref.queue 2 PINT R refQ
elig.res.payer.ref.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]REF[refQ]|0
elig.res.payer.ref.name 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]REF[refQ]|2
elig.res.payer.ref.number 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["PY"]REF[refQ]|1
Ì € i 2
elig.res.provider.refs (elig.res.provider.refs)
[elig.account,elig.ins,elig.ins.seq, elig.res.prov.ref.queue]
*AA.EDI[aa,ggm,aaEIS]D["PROV"]REF[refQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.prov.ref.queue 1 PINT R refQ
elig.res.prov.ref.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]REF[refQ]|0
elig.res.prov.ref.lic.num 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]REF[refQ]|2
elig.res.prov.ref.number 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["PROV"]REF[refQ]|1
Ì € i 2
elig.res.ref.display (elig.res.ref.display)
[elig.account,elig.ins,elig.ins.seq, elig.res.ref.dis.queue]
*AA.EDI[aa,ggm,aaEIS]D["REFD",refQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.ref.dis.queue 2 INT R refQ
elig.res.ref.dis.cd.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["REFD",refQ]|3
elig.res.ref.dis.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["REFD",refQ]|0
elig.res.ref.dis.num 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["REFD",refQ]|1
Ì € i 2
elig.res.subscriber (elig.res.subscriber)
[elig.account,elig.ins,elig.ins.seq, elig.res.subs.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.queue 2 INT R gidS
elig.res.subs.addr1 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|6
elig.res.subs.addr2 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|7
elig.res.subs.b.ser.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|15
elig.res.subs.birthdate 8 BDATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|11
elig.res.subs.city 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|8
elig.res.subs.country 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|5
elig.res.subs.e.ser.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|16
elig.res.subs.elig 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|17
elig.res.subs.entity.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|0
elig.res.subs.first.name 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|2
elig.res.subs.iii.i.code 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]III|1
elig.res.subs.iii.q.code 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]III|0
elig.res.subs.ins.birth 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|6
elig.res.subs.ins.handi 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|5
elig.res.subs.ins.ind 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|0
elig.res.subs.ins.reason 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|3
elig.res.subs.ins.rel 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|1
elig.res.subs.ins.rel.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|2
elig.res.subs.ins.student 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|4
elig.res.subs.ins.type 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]INS|2
elig.res.subs.last.name 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|1
elig.res.subs.loc.id 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|7
elig.res.subs.loc.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|6
elig.res.subs.mar.stat.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|1
elig.res.subs.mar.status 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|13
elig.res.subs.mid.name 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|3
elig.res.subs.name 50 FREE L VAL=(@elig.res.subs.last.name_","_@elig.res.subs.first
VAL=.name_" "_@elig.res.subs.mid.name:0S)
elig.res.subs.num.cd.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|0
elig.res.subs.number 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|5
elig.res.subs.number.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|4
elig.res.subs.service 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|14
elig.res.subs.service.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|3
elig.res.subs.sex 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|12
elig.res.subs.state 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|9
elig.res.subs.suffix 10 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]M|4
elig.res.subs.zip 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]|10
Ì € i 2
elig.res.dependent (elig.res.dependent)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.dep.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.queue 2 DEC R gidD
elig.res.dep.addr1 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|6
elig.res.dep.addr2 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|7
elig.res.dep.b.ser.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|17
elig.res.dep.birthdate 8 BDATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|11
elig.res.dep.city 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|8
elig.res.dep.country 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|21
elig.res.dep.e.ser.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|18
elig.res.dep.elig 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|19
elig.res.dep.entity.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|0
elig.res.dep.first.name 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|2
elig.res.dep.iii.i.code 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]III|1
elig.res.dep.iii.q.code 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]III|0
elig.res.dep.ins.birth 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|6
elig.res.dep.ins.handi 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|5
elig.res.dep.ins.ind 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|0
elig.res.dep.ins.reason 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|3
elig.res.dep.ins.rel 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|1
elig.res.dep.ins.relat.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]M|2
elig.res.dep.ins.student 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|4
elig.res.dep.ins.type 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]INS|2
elig.res.dep.insured.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|15
elig.res.dep.insured.yn 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|14
elig.res.dep.last.name 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|1
elig.res.dep.mar.stat.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]M|1
elig.res.dep.mar.status 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|13
elig.res.dep.mid.name 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|3
elig.res.dep.name 50 FREE L VAL=(@elig.res.dep.last.name_","_@elig.res.dep.first.n
VAL=ame_" "_@elig.res.dep.mid.name:0S)
elig.res.dep.number 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|5
elig.res.dep.number.cd.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]M|0
elig.res.dep.number.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|4
elig.res.dep.service 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|16
elig.res.dep.service.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]M|3
elig.res.dep.sex 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|12
elig.res.dep.state 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|9
elig.res.dep.suffix 10 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|20
elig.res.dep.zip 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]|10
Ì € i 2
elig.res.dependent.aaa (elig.res.dependent.aaa)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.aaa.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.aaa.queue 2 PINT R aaaQ
elig.res.dep.aaa.foll.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|6
elig.res.dep.aaa.followup 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|2
elig.res.dep.aaa.reas 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|1
elig.res.dep.aaa.reas.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|5
elig.res.dep.aaa.val.cd 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|0
elig.res.dep.aaa.val.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]AAA[aaaQ]|4
Ì € i 2
elig.res.dependent.dtp (elig.res.dependent.dtp)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.dtp.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]DTP[dptQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.dtp.queue 1 PINT R dptQ
elig.res.dep.dtp.date 8 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]DTP[dptQ]|1
elig.res.dep.dtp.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]DTP[dptQ]|0
elig.res.dep.dtp.qual.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]DTP[dptQ]|3
Ì € i 2
elig.res.dependent.eb (elig.res.dependent.eb)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.elig.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.elig.queue 2 INT R gidEB
elig.res.dep.auth 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|6
elig.res.dep.elig.amt 15 MONEY R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|10
elig.res.dep.elig.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|0
elig.res.dep.elig.cov 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|2
elig.res.dep.elig.cov.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|3
elig.res.dep.elig.desc 40 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|1
elig.res.dep.elig.ins 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|6
elig.res.dep.elig.ins.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|7
elig.res.dep.elig.per 10 DEC R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|11
elig.res.dep.elig.qty 15 INT R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|14
elig.res.dep.elig.qty.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|12
elig.res.dep.elig.qty.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|13
elig.res.dep.elig.svc 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|4
elig.res.dep.elig.svc.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|5
elig.res.dep.elig.tpq 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|8
elig.res.dep.elig.tpq.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]|9
elig.res.dep.ls.addr1 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|6
elig.res.dep.ls.addr2 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|7
elig.res.dep.ls.city 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|8
elig.res.dep.ls.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|0
elig.res.dep.ls.code.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS["M"]|0
elig.res.dep.ls.country 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]N4|0
elig.res.dep.ls.dod.code 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]N4|2
elig.res.dep.ls.fname 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|2
elig.res.dep.ls.lname 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|1
elig.res.dep.ls.location 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]N4|1
elig.res.dep.ls.mname 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|3
elig.res.dep.ls.name 50 FREE L VAL=(@elig.res.dep.ls.lname_IF{@elig.res.dep.ls.fname
VAL=","}_@elig.res.dep.ls.fname_" "_@elig.res.dep.ls.m
VAL=name):0S
elig.res.dep.ls.num.cd.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS["M"]|1
elig.res.dep.ls.number 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|5
elig.res.dep.ls.number.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|4
elig.res.dep.ls.prv.code 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PRV|0
elig.res.dep.ls.prv.id 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PRV|2
elig.res.dep.ls.prv.id.q 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PRV|1
elig.res.dep.ls.state 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|9
elig.res.dep.ls.suffix 10 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|11
elig.res.dep.ls.zip 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]LS|10
elig.res.dep.plan.n 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|7
elig.res.dep.proc.code 48 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|1
elig.res.dep.proc.mod1 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|2
elig.res.dep.proc.mod2 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|3
elig.res.dep.proc.mod3 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|4
elig.res.dep.proc.mod4 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|5
elig.res.dep.prod.id 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]M|0
Ì € i 2
elig.res.dependent.eb.aa (elig.res.dependent.eb.aa)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.elig.queue, elig.res.dep.eb.aaa
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]AAA[debaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.eb.aaa.q 2 PINT R debaQ
elig.res.dep.eb.aaa.folu 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]AAA[debaQ]
elig.res.dep.eb.aaa.rea 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]AAA[debaQ]
elig.res.dep.eb.aaa.valc 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]AAA[debaQ]
Ì € i 2
elig.res.dependent.eb.dtp (elig.res.dependent.eb.dtp)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.elig.queue, elig.res.dep.eb.dtp
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]DTP[dtpQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.eb.dtp.queue 2 PINT R dtpQ
elig.res.dep.eb.dtp.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]DTP[dtpQ]|
elig.res.dep.eb.dtp.qtxt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]DTP[dtpQ]|
elig.res.dep.eb.dtp.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]DTP[dtpQ]|
Ì € i 2
elig.res.dependent.eb.p (elig.res.dependent.eb.p)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.elig.queue, elig.res.dep.ls.per
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.ls.per.q 2 PINT R dlspQ
elig.res.dep.ls.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]
elig.res.dep.ls.con.nm 60 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]
Ì € i 2
elig.res.dependent.eb.c (elig.res.dependent.eb.c)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.elig.queue,elig.res.dep.ls.per.
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]CON[dlscQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.ls.con.q 2 FREE L dlscQ
elig.res.dep.ls.con.nu 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]
elig.res.dep.ls.con.ty 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]PER[dlspQ]
Ì € i 2
elig.res.dependent.ebmsg (elig.res.dependent.ebmsg)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.elig.queue, elig.res.dep.eb.msg
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]MSG[ebMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.eb.msg.q 2 INT R ebMQ
elig.res.dep.eb.msg.text 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]EB[gidEB]MSG[ebMQ]|
Ì € i 2
elig.res.dependent.hsd (elig.res.dependent.hsd)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.hsd.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.hsd.queue 2 PINT R dhsdQ
elig.res.dep.hsd.benefit 15 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|1
elig.res.dep.hsd.freq 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|6
elig.res.dep.hsd.measure 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|2
elig.res.dep.hsd.pattern 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|7
elig.res.dep.hsd.per.ct 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|5
elig.res.dep.hsd.quant 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|0
elig.res.dep.hsd.sel.mod 6 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|3
elig.res.dep.hsd.time 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]HSD[dhsdQ]|4
Ì € i 2
elig.res.dependent.per (elig.res.dependent.per)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.per.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.per.queue 2 PINT R deppQ
elig.res.dep.per.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]|0
elig.res.dep.per.con.nm 60 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]|1
Ì € i 2
elig.res.dependent.per.c (elig.res.dependent.per.c)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue,elig.res.dep.per.queue, elig.res.dep.per.con
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]CON[depcQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.per.con.q 2 PINT R depcQ
elig.res.dep.per.con.nu 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]CON[depcQ
elig.res.dep.per.con.ty 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]PER[deppQ]CON[depcQ
Ì € i 2
elig.res.dependent.refs (elig.res.dependent.refs)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.dep.queue, elig.res.dep.ref.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]REF[refQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.dep.ref.queue 1 PINT R refQ
elig.res.dep.ref.cd.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]REF[refQ]|3
elig.res.dep.ref.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]REF[refQ]|0
elig.res.dep.ref.number 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DEP[gidD]REF[refQ]|1
Ì € i 2
elig.res.subscriber.aaa (elig.res.subscriber.aaa)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.aaa.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.aaa.queue 2 PINT R aaaQ
elig.res.subs.aaa.fol.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|6
elig.res.subs.aaa.follow 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|2
elig.res.subs.aaa.reas 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|1
elig.res.subs.aaa.reas.tx 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|5
elig.res.subs.aaa.val.cd 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|0
elig.res.subs.aaa.val.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]AAA[aaaQ]|4
Ì € i 2
elig.res.subscriber.dtp (elig.res.subscriber.dtp)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.dtp.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]DTP[dtpQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.dtp.queue 1 INT R dtpQ
elig.res.subs.dtp.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DTP[dtpQ]|1
elig.res.subs.dtp.qtxt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DTP[dtpQ]|3
elig.res.subs.dtp.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]DTP[dtpQ]|0
Ì € i 2
elig.res.subscriber.eb (elig.res.subscriber.eb)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.elig.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.elig.queue 2 INT R gidEB
elig.res.subs.auth 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|6
elig.res.subs.elig.amt 15 MONEY R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|10
elig.res.subs.elig.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|0
elig.res.subs.elig.cov 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|2
elig.res.subs.elig.cov.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|3
elig.res.subs.elig.desc 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|1
elig.res.subs.elig.ins 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|6
elig.res.subs.elig.ins.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|7
elig.res.subs.elig.per 10 DEC R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|11
elig.res.subs.elig.qty 15 INT R *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|14
elig.res.subs.elig.qty.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|12
elig.res.subs.elig.qty.tx 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|13
elig.res.subs.elig.svc 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|4
elig.res.subs.elig.svc.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|5
elig.res.subs.elig.tpq 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|8
elig.res.subs.elig.tpq.tx 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]|9
elig.res.subs.ls.addr1 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|6
elig.res.subs.ls.addr2 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|7
elig.res.subs.ls.city 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|8
elig.res.subs.ls.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|0
elig.res.subs.ls.code.nm 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS["M"]|0
elig.res.subs.ls.country 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]N4|0
elig.res.subs.ls.dod.code 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]N4|2
elig.res.subs.ls.fname 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|2
elig.res.subs.ls.lname 35 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|1
elig.res.subs.ls.location 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]N4|1
elig.res.subs.ls.mname 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|3
elig.res.subs.ls.name 50 FREE L VAL=(@elig.res.subs.ls.lname_IF{@elig.res.subs.ls.fnam
VAL=e ","}_@elig.res.subs.ls.fname_" "_@elig.res.subs.
VAL=ls.mname):0S
elig.res.subs.ls.num.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|4
elig.res.subs.ls.num.cd.n 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS["M"]|1
elig.res.subs.ls.number 17 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|5
elig.res.subs.ls.prv.code 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PRV|0
elig.res.subs.ls.prv.id 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PRV|2
elig.res.subs.ls.prv.id.q 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PRV|1
elig.res.subs.ls.state 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|9
elig.res.subs.ls.suffix 10 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|11
elig.res.subs.ls.zip 9 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]LS|10
elig.res.subs.plan.n 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|7
elig.res.subs.proc.code 48 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|1
elig.res.subs.proc.mod1 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|2
elig.res.subs.proc.mod2 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|3
elig.res.subs.proc.mod3 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|4
elig.res.subs.proc.mod4 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|5
elig.res.subs.prod.id 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]M|0
Ì € i 2
elig.res.subscriber.eb.aa (elig.res.subscriber.eb.aa)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.elig.queue, elig.res.subs.eb.aaa.q]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]AAA[sebaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.eb.aaa.q 2 PINT R sebaQ
elig.res.subs.eb.aaa.folu 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]AAA[sebaQ]|2
elig.res.subs.eb.aaa.rea 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]AAA[sebaQ]|1
elig.res.subs.eb.aaa.valc 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]AAA[sebaQ]|0
Ì € i 2
elig.res.subscriber.eb.dt (elig.res.subscriber.eb.dt)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.elig.queue, elig.res.subs.eb.dtp.que]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]DTP[ebDQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.eb.dtp.que 2 PINT R ebDQ
elig.res.subs.eb.dtp.date 8 DATE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]DTP[ebDQ]|1
elig.res.subs.eb.dtp.qtxt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]DTP[ebDQ]|3
elig.res.subs.eb.dtp.qual 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]DTP[ebDQ]|0
Ì € i 2
elig.res.subscriber.eb.p (elig.res.subscriber.eb.p)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.elig.queue, elig.res.subs.ls.per.q]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.ls.per.q 2 PINT R slspQ
elig.res.subs.ls.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]|0
elig.res.subs.ls.con.nm 60 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]|1
Ì € i 2
elig.res.subscriber.eb.c (elig.res.subscriber.eb.c)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.elig.queue,elig.res.subs.ls.per.q, elig.res.subs.
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]CON[slscQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.ls.con.q 2 PINT R slscQ
elig.res.subs.ls.con.nu 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]CON[slscQ
elig.res.subs.ls.con.ty 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]PER[slspQ]CON[slscQ
Ì € i 2
elig.res.subscriber.ebmsg (elig.res.subscriber.ebmsg)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.elig.queue, elig.res.subs.eb.msg.q]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]MSG[ebQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.eb.msg.q 2 INT R ebQ
elig.res.subs.eb.msg.text 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]EB[gidEB]MSG[ebQ]|0
Ì € i 2
elig.res.subscriber.hsd (elig.res.subscriber.hsd)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.hsd.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.hsd.queue 2 PINT R shsdQ
elig.res.subs.hsd.benefit 15 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|1
elig.res.subs.hsd.freq 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|6
elig.res.subs.hsd.measure 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|2
elig.res.subs.hsd.pattern 1 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|7
elig.res.subs.hsd.per.ct 3 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|5
elig.res.subs.hsd.quant 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|0
elig.res.subs.hsd.sel.mod 6 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|3
elig.res.subs.hsd.time 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]HSD[shsdQ]|4
Ì € i 2
elig.res.subscriber.per (elig.res.subscriber.per)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.per.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.per.queue 2 PINT R subpQ
elig.res.subs.per.con.cd 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]|0
elig.res.subs.per.con.nm 60 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]|1
Ì € i 2
elig.res.subscriber.per.c (elig.res.subscriber.per.c)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue,elig.res.subs.per.queue, elig.res.subs.per.con.q]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]CON[subcQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.per.con.q 2 PINT R subcQ
elig.res.subs.per.con.nu 80 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]CON[subcQ]|1
elig.res.subs.per.con.ty 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]PER[subpQ]CON[subcQ]|0
Ì € i 2
elig.res.subscriber.refs (elig.res.subscriber.refs)
[elig.account,elig.ins,elig.ins.seq,elig.res.subs.queue, elig.res.subs.ref.queue]
*AA.EDI[aa,ggm,aaEIS]D["S",gidS]REF[refQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.subs.ref.queue 2 PINT R refQ
elig.res.subs.ref.cd.txt 25 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]REF[refQ]|3
elig.res.subs.ref.code 2 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]REF[refQ]|0
elig.res.subs.ref.num 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["S",gidS]REF[refQ]|1
Ì € i 2
elig.res.trn (elig.res.trn)
[elig.account,elig.ins,elig.ins.seq, elig.res.trn.hl,elig.res.trn.queue]
*AA.EDI[aa,ggm,aaEIS]D["TRN",trnHL,trnQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.res.trn.hl 2 CHOICE L trnHL
elig.res.trn.queue 2 PINT R trnQ
elig.res.trn.trace.num 30 FREE L *AA.EDI[aa,ggm,aaEIS]D["TRN",trnHL,trnQ]|0
Ì € i 2
adm.pat.ansi.elig.tpl.links (ansi.elig.tpl.links)
[elig.account,elig.ins,elig.ins.seq, elig.tpl.ins]
*AA.EDI[aa,ggm,aaEIS]TPL[ggmL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
elig.tpl.ins 10 FREE L MIS.INS.DICT ggmL
elig.tpl.pointer 6 FREE L *AA.EDI[aa,ggm,aaEIS]TPL[ggmL]|0
Ì i 2
clinical.cus.defined.queries (ccdqr)
[ccdqr.patient,ccdqr.query]
*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.abn.result 2 CHOICE L *AA.CCDQR[aa,ggv]AB
ccdqr.comment 60 FREE L *AA.CCDQR[aa,ggv]C
ccdqr.ctr 5 PINT R *AA.CCDQR[aa,ggv]|3
ccdqr.date 8 DATE L *AA.CCDQR[aa,ggv]|1
ccdqr.mult.ctr 5 PINT R *AA.CCDQR[aa,ggv]M|2
ccdqr.mult.date 8 DATE L *AA.CCDQR[aa,ggv]M|0
ccdqr.mult.neg.ctr 5 PINT R *AA.CCDQR[aa,ggv]MN|2
ccdqr.mult.neg.date 8 DATE L *AA.CCDQR[aa,ggv]MN|0
ccdqr.mult.neg.time 4 HHMM L *AA.CCDQR[aa,ggv]MN|1
ccdqr.mult.qry.map.date 8 DATE L *AA.CCDQR[aa,ggv]INIT
ccdqr.mult.time 4 HHMM L *AA.CCDQR[aa,ggv]M|1
ccdqr.response 30 QRY.RESP L *AA.CCDQR[aa,ggv]|0
ccdqr.time 4 HHMM L *AA.CCDQR[aa,ggv]|2
Ì € i 2
clinical.cus.def.mult.qry.resp (ccdqr.mult.resp)
[ccdqr.patient,ccdqr.query, ccdqr.mult.seq.no]
*AA.CCDQR[aa,ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.mult.seq.no 3 PINT R ggvN
ccdqr.mult.abn.result 2 CHOICE L *AA.CCDQR[aa,ggv]M[ggvN]AB
ccdqr.mult.comment 60 FREE L *AA.CCDQR[aa,ggv]M[ggvN]C
ccdqr.mult.response 75 QRY.RESP L *AA.CCDQR[aa,ggv]M[ggvN]|0
Ì € i 2
clinical.cus.def.mult.qry.nrsp (ccdqr.mult.neg.resp)
[ccdqr.patient,ccdqr.query, ccdqr.mult.neg.seq.num]
*AA.CCDQR[aa,ggv]MN[ggvNN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccdqr.mult.neg.seq.num 3 PINT R ggvNN
ccdqr.mult.neg.abn.rslt 2 CHOICE L *AA.CCDQR[aa,ggv]MN[ggvNN]AB
ccdqr.mult.neg.comment 60 FREE L *AA.CCDQR[aa,ggv]MN[ggvNN]C
ccdqr.mult.neg.response 75 FREE L *AA.CCDQR[aa,ggv]MN[ggvNN]|0
Ì i 2
adm.pat.collect.notes.display (collection.notes.display)
[collection.notes.disp.num]
/AACNOD[aCND]
Field Name Len Dat Typ J DPM Offset/Local/VAL
collection.notes.disp.num 3 PINT R aCND
collect.notes.disp.setup 0 FREE L VAL=%ADM.PAT.format.collection.notes(urn)
collection.notes.disp.txt 27 FREE L /AACNOD[aCND]
Ì i 2
adm.pat.doctor.list (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.DICT ggg
Ì i 2
adm.pat.edit.log (edit.log)
[ed.urn,ed.mnemonic,ed.date,ed.time,ed.seq.no]
*AAAG[aa,ag,aaDT,aaTM,aaEX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ed.urn 30 URN L ADM.PAT aa
ed.mnemonic 25 FREE L ADM.FIELDS ag
ed.date 8 DATE L aaDT
ed.time 4 HHMM L aaTM
ed.seq.no 2 PINT R aaEX
ed.new.value 40 FREE L *AAAG[aa,ag,aaDT,aaTM,aaEX]|1
ed.old.value 40 FREE L *AAAG[aa,ag,aaDT,aaTM,aaEX]|0
ed.user 10 FREE L MIS.USER *AAAG[aa,ag,aaDT,aaTM,aaEX]|2
Ì i 2
adm.pat.ins.ver.status.log (ins.ver.status.log)
[ins.vlog.user,ins.vlog.date,ins.vlog.ins,ins.vlog.account,ins.vlog.seq.no]
*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.DICT 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 *AAISL[gu,aaslD,ggm,aa,aaISL]|3
ins.vlog.new.auth.status 9 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|5
ins.vlog.new.elig.status 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|1
ins.vlog.old.auth.pstatus 8 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|2
ins.vlog.old.auth.status 9 FREE L *AAISL[gu,aaslD,ggm,aa,aaISL]|4
ins.vlog.old.elig.status 8 FREE L *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
adm.pat.invalid.acct.log (invalid.acct.log)
[inv.date,inv.time,inv.urn]
:AAINV[aaDT,aaTM,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inv.date 8 DATE L aaDT
inv.time 4 HHMM L aaTM
inv.urn 30 URN L ADM.PAT aa
inv.account 12 FREE L :AAINV[aaDT,aaTM,aa]|1
inv.facility 10 FREE L MIS.FACILITY :AAINV[aaDT,aaTM,aa]|5
inv.lock.device 15 FREE L :AAINV[aaDT,aaTM,aa]LOCK|5
inv.lock.found 1 YN L :AAINV[aaDT,aaTM,aa]LOCK|0
inv.lock.job.no 5 INT R :AAINV[aaDT,aaTM,aa]LOCK|2
inv.lock.new.job.no 5 INT R :AAINV[aaDT,aaTM,aa]LOCK|4
inv.lock.new.seg 10 FREE L :AAINV[aaDT,aaTM,aa]LOCK|3
inv.lock.seg 10 FREE L :AAINV[aaDT,aaTM,aa]LOCK|1
inv.name 30 FREE L :AAINV[aaDT,aaTM,aa]|2
inv.status 8 FREE L :AAINV[aaDT,aaTM,aa]|3
inv.txn 10 FREE L :AAINV[aaDT,aaTM,aa]|0
inv.unit.number 10 FREE L :AAINV[aaDT,aaTM,aa]|4
inv.user 10 FREE L MIS.USER :AAINV[aaDT,aaTM,aa]|6
Ì i 2
irf.visit.register (irf.visit.register)
[irf.fac,irf.urn,irf.pt.loa.date,irf.pt.loa.time]
:AAIRFV[gqb,aa,aaLD,aaLT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
irf.fac 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.loa.status 1 FREE L :AAIRFV[gqb,aa,aaLD,aaLT]|0
Ì i 2
adm.pat.locals (locals)
*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."_D(127))
age.out 7 FREE L VAL=%ADM.VAL.get("age.out",urn,"M")
allergy.lab 15 FREE L
any.ins.auth 1 FREE L VAL=IF{+@ins.authm.data[urn,insurance,""] @Z.check.mar
VAL=k.data;" "}
any.ins1.auth 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{+@ins.authm.data[ur
VAL=n,@insurance.mnemonic[1],""] @Z.check.mark;" "}_@S
VAL=et.attr(@Z.color.data1)
any.ins2.auth 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{+@ins.authm.data[ur
VAL=n,@insurance.mnemonic[2],""] @Z.check.mark;" "}_@S
VAL=et.attr(@Z.color.data1)
any.ins3.auth 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{+@ins.authm.data[ur
VAL=n,@insurance.mnemonic[3],""] @Z.check.mark;" "}_@S
VAL=et.attr(@Z.color.data1)
any.ins4.auth 1 FREE L VAL=@Set.attr(@Z.color.labels1)_IF{+@ins.authm.data[ur
VAL=n,@insurance.mnemonic[4],""] @Z.check.mark;" "}_@S
VAL=et.attr(@Z.color.data1)
appl.urn 30 URN L
birthdate.out 8 BDATE L VAL=IF{@ADM.PAT.birthdate[urn];@t.MRI.PAT.computed.bir
VAL=thdate[MRI.PAT.urn]}
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{IF{@t.ADM.PAT.status%3="RCR" @t.ADM.PAT.recur.d
VAL=ischarge.date;@ADM.PAT.discharge.date[urn];@t.MRI.
VAL=PAT.visit.discharge.date[MRI.PAT.urn,MRI.PAT.visit
VAL=.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
epi.num.out 15 FREE L VAL=epi.num.out
exit 1 PINT R
free 30 FREE L
free2 30 FREE L
free3 30 FREE L
hub.id 20 FREE L
ins.v.status 8 FREE L
ins.v.status.date 8 DATE 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
moved.to.acct.out 12 FREE L VAL=@ADM.PAT.acct.number[@ADM.PAT.moved.to[urn]]
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.other.name.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.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)}
print.pt.condition 20 FREE L VAL=IF{"PATIENT"=@ADM.PAT.disclosures "";@MIS.PT.COND.
VAL=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.DICT.na
VAL=me[NM];@ADM.PAT.er.doctor[urn]^NM @MIS.DOC.DICT.na
VAL=me[NM];@t.MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT
VAL=.visit.subscript]^NM @MIS.DOC.DICT.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.DICT.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);@ADM.PA
VAL=T.status#0A="PRE" "";(99999999-(MRI.PAT.visit.subs
VAL=cript#"0|"$8)<99999999)^DT %Z.date.out(DT)}
visit.time.out 4 FREE L VAL=IF{@ADM.PAT.admit.time[urn];@ADM.PAT.service.time[
VAL=urn];@ADM.PAT.status#0A="PRE" "";(9999-(MRI.PAT.vi
VAL=sit.subscript#"0|"%8)<9999)}
yes.no 1 YN L
yn 1 YN L
Ì i 2
adm.pat.location.list (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.DICT ggn
Ì i 2
lookup.register (lookup.register)
[last.nm,first.nm,adm.facility,mpi,adm.ser.res.date,adm.urn]
:AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
last.nm 30 FREE L aaLNM
first.nm 30 FREE L aaFNM
adm.facility 10 FREE L aaFAC
mpi 25 URN L MRI.PAT ea
adm.ser.res.date 8 DATE L aaDT
adm.urn 30 URN L aa
pt.confidential 1 YN L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|2
pt.date 8 DATE L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|0
pt.deleted 1 YN L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|7
pt.facility 10 FREE L MIS.FACILITY :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|4
pt.final.bill 2 FREE L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|3
pt.location 10 FREE L MIS.LOCN.DICT :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|1
pt.name.edit 12 FREE L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|6
pt.status 8 FREE L :AALK[aaLNM,aaFNM,aaFAC,ea,aaDT,aa]|5
Ì i 2
adm.patient.file (main)
[urn]
*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 *AA[aa]CNA|9
accident.comment 50 FREE L *AA[aa]CNF|1
accident.description 30 FREE L *AA[aa]CNA|8
accident.nature.of.injury 30 FREE L *AA[aa]CNA|7
accident.original.treat 50 FREE L *AA[aa]CNF|0
accident.place 20 FREE L *AA[aa]CNA|5
accident.police.involved 20 FREE L *AA[aa]CNA|6
accommodation 10 FREE L MIS.ACCOM.DICT *AA[aa]B|5
acct 30 FREE L
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 *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;@MRI.PAT.visit.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 *AA[aa]O3|0
admit.comment 50 FREE L *AA[aa]CO|0
admit.date 8 DATE L *AA[aa]|13
admit.diagnosis 55 FREE L *AA[aa]O3|11
admit.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|0
admit.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.admit.doctor]
admit.doctor.name.ctf 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@ADM.PAT.admit.doctor];@ADM.
VAL=PAT.admit.doctor}
admit.priority 10 FREE L MIS.ADM.PRIORT *AA[aa]B|2
admit.source 10 FREE L MIS.ADM.SOURCE *AA[aa]B|8
admit.time 4 HHMM L *AA[aa]|14
admit.time.out 4 HHMM L VAL=IF{@admit.time;@t.MRI.PAT.visit.time}
affiliation 30 FREE L *AA[aa]A|1
age 7 AGE L *AA[aa]|8
age.group 2 FREE L *AA[aa]CND|5
alert.1 15 FREE L *AA[aa]CNR[1]
alert.2 15 FREE L *AA[aa]CNR[2]
allergy.1 15 FREE L *AA[aa]ALG[1]
allergy.2 15 FREE L *AA[aa]ALG[2]
allergy.3 15 FREE L *AA[aa]ALG[3]
allergy.4 15 FREE L *AA[aa]ALG[4]
alt.address 1 YN L *AA[aa]O3|15
alt.desc.group 15 FREE L *AA[aa]DX|1
ambulance 1 YN L *AA[aa]CNA|3
ambulance.call.number 11 INT R *AA[aa]T|8
anticipated.dis.date 8 DATE L VAL=%Z.date.add(@admit.date,@expected.length.of.stay)
arrival.date 8 DATE L *AA[aa]T1|6
arrival.time 4 HHMM L *AA[aa]T1|7
arrived.from 10 FREE L MIS.ARRIV.DICT *AA[aa]O3|6
attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|1
attend.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[IF{@ADM.PAT.attend.doctor;@t.MR
VAL=I.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.visit.subsc
VAL=ript]}]
attend.doctor.name.ctf 30 FREE L VAL=IF{@MIS.DOC.DICT.name[IF{@ADM.PAT.attend.doctor;@t
VAL=.MRI.PAT.visit.doctor[MRI.PAT.urn,MRI.PAT.visit.su
VAL=bscript]}];@ADM.PAT.attend.doctor;@t.MRI.PAT.visit
VAL=.doctor[MRI.PAT.urn,MRI.PAT.visit.subscript]}
attend.dr.mne.out 10 FREE L VAL=IF{@ADM.PAT.attend.doctor;@t.MRI.PAT.visit.doctor[
VAL=MRI.PAT.urn,MRI.PAT.visit.subscript]}
attend.or.er.doc.name.out 30 FREE L VAL=@MIS.DOC.DICT.name[IF{@ADM.PAT.attend.doctor;@ADM.
VAL=PAT.er.doctor}]
attend.or.er.doctor 10 FREE L VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor}
bed 3 FREE L *AA[aa]|11
bed.pend.dis.comment 60 FREE L *AA[aa]O5|2
bed.pend.dis.date 8 DATE L *AA[aa]O5|0
bed.pend.dis.time 4 HHMM L *AA[aa]O5|1
bed.phone 10 FREE L VAL=@MIS.ROOM.DICT.bed.phone[@room,@bed]
bed.request.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]O6|7
bed.request.adm.dr 10 FREE L MIS.DOC.DICT *AA[aa]O6|11
bed.request.adm.pri 10 FREE L MIS.ADM.PRIORT *AA[aa]O6|9
bed.request.adm.srce 10 FREE L MIS.ADM.SOURCE *AA[aa]O6|10
bed.request.att.dr 10 FREE L MIS.DOC.DICT *AA[aa]O6|12
bed.request.comment 60 FREE L *AA[aa]O6|8
bed.request.date 8 DATE L *AA[aa]O6|3
bed.request.message 10 FREE L *AA[aa]O6|5
bed.request.priority 10 FREE L ADM.BB.PRI *AA[aa]O6|2
bed.request.reg.type 12 FREE L *AA[aa]O6|13
bed.request.service 10 FREE L MIS.SVC.DICT *AA[aa]O6|0
bed.request.source 10 FREE L *AA[aa]O6|1
bed.request.status 9 CHOICE L *AA[aa]O6|6
bed.request.time 4 HHMM L *AA[aa]O6|4
birthdate 8 BDATE L *AA[aa]|5
birthdate.display.only 8 BDATE L *AA[aa]|5
blood.pressure 25 FREE L *AA[aa]T1|2
cd.screen.old 15 FREE L MIS.SCREEN *AA[aa]CD|0
chief.complaint 10 FREE L *AA[aa]T1|8
ck.admit.priv 1 YN L VAL=IF{@MIS.DOC.DICT.facility.admit.priv[@.new,@.facil
VAL=ity];@MIS.DOC.DICT.dft.admit.priv[@.new]}
ck.admit.svc 1 YN L VAL=IF{@MIS.DOC.DICT.facility.service[@.new,@.facility
VAL=];@MIS.DOC.DICT.service[@.new]}
ck.confidential 1 YN L VAL=IF{"Y"'=@ADM.PAT.confidential;@MIS.USER.confidenti
VAL=al.pts[@.user]="Y";"N"}
ck.location.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.LOCN.DICT.f
VAL=acilities[MIS.LOCN.DICT.mnemonic,""]_0=0 "Y";@MIS.
VAL=LOCN.DICT.facilities[MIS.LOCN.DICT.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.patient.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";@ADM.PAT.facility
VAL=!.=@.facility "Y";"N"}
ck.room.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.ROOM.DICT.f
VAL=acilities[MIS.ROOM.DICT.mnemonic,""]_0=0 "Y";@MIS.
VAL=ROOM.DICT.facilities[MIS.ROOM.DICT.mnemonic,@.faci
VAL=lity] "Y";"N"}
ck.service.facility 1 YN L VAL=IF{"Y"'=@MIS.PARAM.multi.fac "Y";+@MIS.SVC.DICT.fa
VAL=cilities[MIS.SVC.DICT.mnemonic,""]_0=0 "Y";@MIS.SV
VAL=C.DICT.facilities[MIS.SVC.DICT.mnemonic,@.facility
VAL=] "Y";"N"}
ck.short.form.reg 1 YN L VAL=IF{@short.form.reg;"N"}
cli.depart.comment 50 FREE L *AA[aa]CLI|4
cli.depart.date 8 DATE L *AA[aa]CLI|0
cli.depart.diagnosis 50 FREE L *AA[aa]CLI|3
cli.depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]CLI|2
cli.depart.time 4 HHMM L *AA[aa]CLI|1
cli.to.in 1 YN L *AA[aa]CNA|18
cli.to.sdc 1 YN L *AA[aa]CNA|22
computed.birthdate 8 BDATE L *AA[aa]|6
cond.comment 60 FREE L *AA[aa]CN|4
cond.date 8 DATE L *AA[aa]CN|2
cond.time 4 HHMM L *AA[aa]CN|3
confidential 1 YN L *AA[aa]O4|0
confidential.comment 50 FREE L *AA[aa]O4|1
confidential.message 25 FREE L VAL=@ADM.PARAM.confidential.message
current.age 7 FREE L VAL=%ADM.VAL.get("current.age",IF{@p.ADM.PAT.urn;@t.AD
VAL=M.PAT.urn},"M")
date 8 DATE L
decision.to.admit.date 8 DATE L *AA[aa]T|9
decision.to.admit.time 4 TIME L *AA[aa]T|7
deleted 1 YN L *AA[aa]|19
dep.dis.ser.rev.date.out 8 DATE L VAL=IF{@depart.date;@cli.depart.date;@discharge.date;@
VAL=service.date;@reservation.date}
depart.comment 50 FREE L *AA[aa]DEP|4
depart.date 8 DATE L *AA[aa]DEP|0
depart.diagnosis 50 FREE L *AA[aa]DEP|3
depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]DEP|2
depart.time 4 HHMM L *AA[aa]DEP|1
discharge.comment 55 FREE L *AA[aa]CO|2
discharge.date 8 DATE L *AA[aa]|17
discharge.diagnosis 55 FREE L *AA[aa]O3|12
discharge.disposition 10 FREE L MIS.DIS.DICT *AA[aa]B|14
discharge.time 4 HHMM L *AA[aa]|18
disclosures 8 CHOICE L *AA[aa]A|11
do.mpi.search 1 YN L *AA[aa]O4|9
doctor 10 FREE L MIS.DOC.DICT
doctor.group 10 FREE L MIS.DOC.GRP
doctor.out 10 FREE L MIS.DOC.DICT VAL=IF{@admit.doctor;@attend.doctor;@er.doctor}
edit.emp.info 2 FREE L VAL=EDIT
edit.nok.info 2 FREE L VAL=EDIT
edit.or.switch.guar.num 1 FREE L *AA[aa]A|8
edit.pat.info 2 FREE L VAL=EDIT
edit.ptn.info 2 FREE L VAL=EDIT
edm.flag 1 FREE L VAL=/HE.EDM
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 *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.DICT.name[@employer];@employer}
emp.phone 18 PHONE L *AA[aa]E|7
emp.postal.code 10 ZIP.POST L *AA[aa]E|6
emp.province 2 FREE L *AA[aa]E|5
emp.state 2 FREE L *AA[aa]E|5
emp.status 10 FREE L MIS.EMP.STATUS *AA[aa]E|8
emp.street 30 FREE L *AA[aa]E|2
emp.street2 30 FREE L *AA[aa]E|3
emp.streets.out 61 FREE L VAL=(@pt.emp^AD#2P_" "_AD|3'=" ")
emp.zip 10 ZIP.POST L *AA[aa]E|6
employer 10 FREE L MIS.EMPLR.DICT *AA[aa]E|0
employer.name 30 FREE L VAL=IF{@MIS.EMPLR.DICT.name[@employer];@employer}
entry.code 10 FREE L MIS.CAN.ENTRY *AA[aa]CNA|1
er.depart.comment 50 FREE L *AA[aa]ER|4
er.depart.date 8 DATE L *AA[aa]ER|0
er.depart.diagnosis 50 FREE L *AA[aa]ER|3
er.depart.disposition 10 FREE L MIS.DIS.DICT *AA[aa]ER|2
er.depart.time 4 HHMM L *AA[aa]ER|1
er.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|4
er.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.er.doctor]
er.doctor.name.ctf 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@ADM.PAT.er.doctor];@ADM.PAT
VAL=.er.doctor}
er.rollover.date 8 DATE L *AA[aa]ER|5
er.rollover.time 4 HHMM L *AA[aa]ER|6
er.to.in 1 YN L *AA[aa]CNA|19
er.to.sdc 1 YN L *AA[aa]CNA|21
existing.illness 50 FREE L *AA[aa]T|2
expected.length.of.stay 3 PINT R *AA[aa]O3|5
facility 10 FREE L MIS.FACILITY *AA[aa]B|7
facility.val 10 FREE L MIS.FACILITY VAL=IF{"Y"'=@MIS.PARAM.multi.fac .;@ADM.PAT.main @ADM.
VAL=PAT.facility!.;""^PFX^P,0^I,DO{@MRI.PAT.visit.acct
VAL=.number#I'?1N^P PFX_P^PFX,I+1^I},PFX @MIS.PARAM.ac
VAL=ct.num.px.facility[PFX]}
family.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|3
family.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.family.doctor]
family.doctor.name.ctf 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@ADM.PAT.family.doctor];@ADM
VAL=.PAT.family.doctor}
family.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@family.doctor];@family.doct
VAL=or}
financial.class 10 FREE L MIS.FIN.CLASS *AA[aa]A|3
first.name 30 FREE L
grouper.version 10 FREE L *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 *AA[aa]G|4
guar.city.state.zip.o 34 FREE L VAL=(@guar^AD#4P_","_AD|5_" "_AD|6'=", ")
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 *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.DICT.name[@guar.employer];@guar.empl
VAL=oyer}
guar.emp.phone 18 PHONE L *AA[aa]GE|7
guar.emp.postal.code 10 ZIP.POST L *AA[aa]GE|6
guar.emp.province 2 FREE L *AA[aa]GE|5
guar.emp.state 2 FREE L *AA[aa]GE|5
guar.emp.status 10 FREE L MIS.EMP.STATUS *AA[aa]GE|8
guar.emp.street 30 FREE L *AA[aa]GE|2
guar.emp.street2 30 FREE L *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 *AA[aa]GE|6
guar.employer 10 FREE L MIS.EMPLR.DICT *AA[aa]GE|0
guar.home.phone 18 PHONE L *AA[aa]G|7
guar.name 30 FREE L *AA[aa]G|0
guar.name.display.only 30 FREE L *AA[aa]G|0
guar.name.pre.er 30 FREE L *AA[aa]G|0
guar.occupation 20 FREE L *AA[aa]GE|1
guar.postal.code 10 ZIP.POST L *AA[aa]G|6
guar.province 2 FREE L *AA[aa]G|5
guar.pt.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]G|1
guar.soc.sec.number 12 FREE L *AA[aa]G|8
guar.state 2 FREE L *AA[aa]G|5
guar.street 30 FREE L *AA[aa]G|2
guar.street.display.only 30 FREE L *AA[aa]G|2
guar.street2 30 FREE L *AA[aa]G|3
guar.streets.out 61 FREE L VAL=(@guar.street_" "_@guar.street2'=" ")
guar.zip 10 ZIP.POST L *AA[aa]G|6
hc.subscriber.inits 3 FREE L *AA[aa]CND|2
hc.subscriber.relation 10 FREE L MIS.RELAT.DICT *AA[aa]CND|3
health.care.number 14 FREE L *AA[aa]CND|1
health.care.number.prov 2 FREE L MIS.CAN.PROV *AA[aa]CND|6
hospital.number 4 INT R *AA[aa]CNA|4
id 30 URN L ADM.PAT VAL=(@acct.number_" "_@name:0S)
inpatient.location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
ins.addr.phone.out 130 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ad
VAL=dress2^ADDR2,@MIS.INS.DICT.main^AD#2P_IF{ADDR2 " "
VAL=_ADDR2}_","_AD|3_","_AD|4_" "_AD|5_" "_AD|6;@insur
VAL=ances^AD#0P_IF{AD|6 " "_AD|6}_","_AD|1_","_AD|2_"
VAL="_AD|3_" "_AD|4}'=",, ")
ins.address.out 65 FREE L VAL=(IF{"Y"'=@MIS.INS.DICT.other.type @MIS.INS.DICT.ad
VAL=dress2^ADDR2,@MIS.INS.DICT.main^AD#2P_IF{ADDR2 " "
VAL=_ADDR2}_","_AD|3_","_AD|4_" "_AD|5;@insurances^AD#
VAL=0P_IF{AD|6 " "_AD|6}_","_AD|1_","_AD|2_" "_AD|3}'=
VAL=",, ")
ins.city.out 20 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.city;@M
VAL=IS.INS.DICT.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.DICT.other.type="Y" IF{@insurance.othe
VAL=r.name;@MIS.INS.DICT.name};@MIS.INS.DICT.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.DICT.other.type="Y" @insurance.phone;@
VAL=MIS.INS.DICT.phone}
ins.pol.no.out.1 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.1]
ins.pol.no.out.2 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.2]
ins.pol.no.out.3 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.3]
ins.pol.no.out.4 30 FREE L VAL=@insured.policy.number[,@ins.mnemonic.4]
ins.state.out 2 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.state;@
VAL=MIS.INS.DICT.state}
ins.street.out 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.street;
VAL=@MIS.INS.DICT.address}
ins.street2.out 30 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.street2
VAL=;@MIS.INS.DICT.address2}
ins.zip.out 10 FREE L VAL=IF{@MIS.INS.DICT.other.type="Y" @insurance.zip;@MI
VAL=S.INS.DICT.zip}
institution.from 10 FREE L MIS.CAN.INST *AA[aa]CNA|2
ipf.override 1 YN L *AA[aa]O4|16
irf.override 1 YN L *AA[aa]O4|15
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"}
lab.suppress.pci 1 YN L *AA[aa]LD|0
language 10 FREE L MIS.CAN.LANG *AA[aa]CND|0
last.demo.recall.upd 10 FREE L *AA[aa]O4|17
last.discharge.date 8 DATE L VAL=%ADM.VAL.get("last.discharge.date",ADM.PAT.urn,"M"
VAL=)
last.edit.date 8 DATE L VAL=%Z.date.in.magic(@ADM.PAT.last.edit.time)
last.edit.time 9 FREE L *AA[aa]B|0
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 *AA[aa]B|1
last.hosp.from.date 8 DATE L *AA[aa]B|12
last.hosp.thru.date 8 DATE L *AA[aa]B|13
last.hospital 30 FREE L *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 *AA[aa]LOC|1
last.location 10 FREE L MIS.LOCN.DICT *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 *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=IF{@admit.date (%Z.date.sub(IF{@discharge.date;@.t
VAL=oday},@admit.date)!1);@service.date 1}
loa.eff.date 8 DATE L *AA[aa]O4|11
loa.eff.time 4 HHMM L *AA[aa]O4|12
loa.facility.type 7 FREE L *AA[aa]O4|13
loa.status 1 CHOICE L *AA[aa]O4|10
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,ADM.PA
VAL=T.status.type)
location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
maiden.other.name 30 NAME L *AA[aa]B|4
marital.status 10 FREE L MIS.MAR.STATUS *AA[aa]A|4
medications 50 FREE L *AA[aa]T|3
mothers.first.name 20 FREE L *AA[aa]B|3
mothers.first.name.out 20 FREE L VAL=IF{@ADM.PAT.mothers.first.name[urn];@t.MRI.PAT.mot
VAL=hers.first.name[MRI.PAT.urn]}
mothers.urn 30 URN L ADM.PAT *AA[aa]O3|9
moved.to 30 FREE L *AA[aa]O4|8
mri.drc.patient 30 FREE L
mri.urn 25 URN L MRI.PAT *AA[aa]|4
name 30 FREE L *AA[aa]|1
name.w.vip.flag 30 FREE L VAL=(IF{@ADM.PAT.vip="Y" @ADM.PARAM.vip.flag}_@ADM.PAT
VAL=.name)
new.acct 30 FREE L
newborn.admit.source 10 FREE L MIS.NEWBORN *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 *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 *AA[aa]NK|6
nok.name 30 FREE L *AA[aa]NK|0
nok.name.display.only 30 FREE L *AA[aa]NK|0
nok.postal.code 10 ZIP.POST L *AA[aa]NK|5
nok.province 2 FREE L *AA[aa]NK|4
nok.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]NK|8
nok.state 2 FREE L *AA[aa]NK|4
nok.street 30 FREE L *AA[aa]NK|1
nok.street.display.only 30 FREE L *AA[aa]NK|1
nok.street2 30 FREE L *AA[aa]NK|2
nok.streets.out 61 FREE L VAL=(@nok.street_" "_@nok.street2'=" ")
nok.work.phone 18 PHONE L *AA[aa]NK|7
nok.zip 10 ZIP.POST L *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 *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 *AA[aa]PN|6
notify.name 30 FREE L *AA[aa]PN|0
notify.name.display.only 30 FREE L *AA[aa]PN|0
notify.postal.code 10 ZIP.POST L *AA[aa]PN|5
notify.province 2 FREE L *AA[aa]PN|4
notify.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]PN|8
notify.state 2 FREE L *AA[aa]PN|4
notify.street 30 FREE L *AA[aa]PN|1
notify.street.display 30 FREE L *AA[aa]PN|1
notify.street2 30 FREE L *AA[aa]PN|2
notify.streets.out 61 FREE L VAL=(@notify.street_" "_@notify.street2'=" ")
notify.work.phone 18 PHONE L *AA[aa]PN|7
notify.zip 10 ZIP.POST L *AA[aa]PN|5
number.and.name 44 FREE L VAL=(IF{O(*)=O(?) @MRI.PAT.unit.number_" "_@MRI.PAT.n
VAL=ame;@acct.number_" "_@name}:0S)
number.name.and.status 55 FREE L VAL=(IF{O(*)=O(?) @MRI.PAT.unit.number_" "_@MRI.PAT.n
VAL=ame;IF{@acct.number;"NEW"}_" "_@name_" ["_@statu
VAL=s.w.obsv_"]"}:0S)
nursing.assessment 50 FREE L *AA[aa]T|4
nursing.assessment.1 50 FREE L *AA[aa]T|5
observation.patient 1 FREE L *AA[aa]O3|10
observation.patient.date 8 DATE L *AA[aa]O4|2
observation.patient.time 4 HHMM L *AA[aa]O4|4
occupation 20 FREE L *AA[aa]E|1
old.attend.doctor.nm.ctf 8 FREE L VAL=@MIS.DOC.DICT.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 *AA[aa]O4|5
other.doctor 10 FREE L MIS.DOC.DICT *AA[aa]DR|2
other.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.other.doctor]
other.doctor.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@other.doctor];@other.doctor
VAL=}
outpatient.location 10 FREE L MIS.LOCN.DICT *AA[aa]|12
outpatient.prior.location 10 FREE L MIS.LOCN.DICT *AA[aa]|21
outpatient.service 10 FREE L MIS.SVC.DICT *AA[aa]|20
outpatient.service.name 30 FREE L VAL=@MIS.SVC.DICT.name[@outpatient.service]
outreach.pt.number 15 FREE L *AA[aa]O4|14
pat.city 20 FREE L *AA[aa]AD|2
pat.home.phone 18 PHONE L *AA[aa]AD|5
pat.home.phone.out 18 FREE L VAL=IF{@ADM.PAT.pat.home.phone[urn];@t.MRI.DRC.pat.hom
VAL=e.phone[MRI.PAT.urn]}
pat.other.phone 18 PHONE L *AA[aa]AD|6
pat.postal.code 10 ZIP.POST L *AA[aa]AD|4
pat.province 2 FREE L *AA[aa]AD|3
pat.state 2 FREE L *AA[aa]AD|3
pat.street 30 FREE L *AA[aa]AD|0
pat.street2 30 FREE L *AA[aa]AD|1
pat.zip 10 ZIP.POST L *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=(IF{@pt.addr;@t.MRI.DRC.pt.addr[MRI.PAT.urn]}^AD#2
VAL=P_","_AD|3_" "_AD|4'=",")
patient.streets.out 61 FREE L VAL=(@pat.street_" "_@pat.street2'=" ")
pbr.rfv 10 FREE L *AA[aa]CO|3
pctas.indicator 1 YN L *AA[aa]CNA1|3
pia.date 8 DATE L *AA[aa]CNA1|1
pia.time 4 HHMM L *AA[aa]CNA1|2
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.DICT *AA[aa]DR|5
prim.care.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@ADM.PAT.prim.care.doctor]
prim.care.doctor.name.ctf 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@ADM.PAT.prim.care.doctor];@
VAL=ADM.PAT.prim.care.doctor}
prim.care.doctor.name.out 30 FREE L VAL=@MIS.DOC.DICT.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 *AA[aa]O3|13
pt.city.out 20 FREE L VAL=IF{@ADM.PAT.pat.city[urn];@t.MRI.DRC.pat.city[MRI.
VAL=PAT.urn]}
pt.condition 10 FREE L MIS.PT.COND *AA[aa]CN|0
pt.street.out 30 FREE L VAL=IF{@ADM.PAT.pat.street[urn];@t.MRI.DRC.pat.street[
VAL=MRI.PAT.urn]}
pt.street2.out 30 FREE L VAL=IF{@ADM.PAT.pat.street2[urn];@t.MRI.DRC.pat.street
VAL=2[MRI.PAT.urn]}
pulse 25 FREE L *AA[aa]T1|3
race 10 FREE L MIS.RACE.DICT *AA[aa]A|5
race.out 10 FREE L VAL=IF{@ADM.PAT.race[urn];@t.MRI.DRC.race[MRI.PAT.urn]
VAL=}
rcr.link.to.new 30 FREE L *AA[aa]O4|7
rcr.link.to.old 30 FREE L *AA[aa]O4|6
reason.for.visit 50 FREE L *AA[aa]CO|1
recur.discharge.date 8 DATE L *AA[aa]O3|8
refer.client 12 FREE L ADM.CLNT *AA[aa]O3|7
refer.client.name 30 FREE L VAL=@ADM.CLNT.name[@refer.client]
reg.cat 10 FREE L MIS.CAN.REGCAT *AA[aa]CNA|0
reg.cat.2 10 FREE L MIS.CAN.REGCAT *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)&"")
religion 10 FREE L MIS.RELIGION *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 *AA[aa]O3|3
res.taken.time 4 HHMM L *AA[aa]O3|4
reservation.date 8 DATE L *AA[aa]O3|1
reservation.time 8 HHMM L *AA[aa]O3|2
residence.code 10 FREE L MIS.CNTY.DICT *AA[aa]CND|4
respiration 25 FREE L *AA[aa]T1|4
room 10 FREE L MIS.ROOM.DICT *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 *AA[aa]B|6
sched.er 1 YN L *AA[aa]CNA1|4
sdc.to.in 1 YN L *AA[aa]CNA|20
service 10 FREE L MIS.SVC.DICT *AA[aa]|9
service.date 8 DATE L *AA[aa]|15
service.in.out 10 FREE L MIS.SVC.DICT VAL=IF{@service;@outpatient.service}
service.name 30 FREE L VAL=@MIS.SVC.DICT.name[@service]
service.time 4 HHMM L *AA[aa]|16
sex 1 CHOICE L *AA[aa]|7
sex.name.out 6 FREE L VAL=IF{IF{@ADM.PAT.sex[urn];@t.MRI.DRC.sex[MRI.PAT.urn
VAL=]}^S="M" "Male";S="F" "Female";S="U" "Unknown"}
short.form.reg 1 YN L *AA[aa]O4|3
smoke.object.neither 1 CHOICE L *AA[aa]A|6
soc.sec.number 12 FREE L *AA[aa]A|2
soc.sec.number.out 12 FREE L VAL=IF{@ADM.PAT.soc.sec.number[urn];@t.MRI.DRC.soc.sec
VAL=.number[MRI.PAT.urn]}
special.pgm.indicator 10 FREE L MIS.SPEC.PROG *AA[aa]A|7
status 8 FREE L *AA[aa]|2
status.type 3 CHOICE L
status.type.out 3 FREE L VAL=(@status#2A)
status.w.obsv 7 FREE L VAL=@ADM.PAT.status_IF{@ADM.PAT.observation.patient="Y
VAL=" "o"}
suppress.emr 1 YN L *AA[aa]LD|1
temperature 25 FREE L *AA[aa]T1|1
time 4 HHMM L
trans.comment 60 FREE L *AA[aa]O5|12
trans.from.bed 3 FREE L *AA[aa]O5|9
trans.from.loc 10 FREE L MIS.LOCN.DICT *AA[aa]O5|5
trans.from.room 10 FREE L MIS.ROOM.DICT *AA[aa]O5|7
trans.message 10 PINT R *AA[aa]O5|14
trans.req.priority 10 FREE L ADM.BB.PRI *AA[aa]O5|4
trans.req.source 3 FREE L *AA[aa]O5|17
trans.req.status 10 CHOICE L *AA[aa]O5|13
trans.req.taken.date 8 DATE L *AA[aa]O5|15
trans.req.taken.time 4 HHMM L *AA[aa]O5|16
trans.req.type 10 FREE L ADM.TR.REQ.TYPE*AA[aa]O5|3
trans.time 4 HHMM L *AA[aa]O5|11
trans.to.bed 3 FREE L *AA[aa]O5|10
trans.to.loc 10 FREE L MIS.LOCN.DICT *AA[aa]O5|6
trans.to.room 10 FREE L MIS.ROOM.DICT *AA[aa]O5|8
treat.authorized.num 10 FREE L *AA[aa]B|10
triage.date 8 DATE L *AA[aa]T|0
triage.level 10 FREE L MIS.CAN.TRIAGE *AA[aa]T|6
triage.time 4 HHMM L *AA[aa]T|1
unit.number 10 FREE L *AA[aa]|3
unit.number.canada 10 FREE L *AA[aa]|3
unit.number.display.only 10 FREE L *AA[aa]|3
unit.number.pre.er 10 FREE L *AA[aa]|3
unit.number.quick.reg 10 FREE L *AA[aa]|3
unit.number.reg.summary 10 FREE L *AA[aa]|3
unit.number.sch 10 FREE L *AA[aa]|3
unit.number.sch.canada 10 FREE L *AA[aa]|3
unit.number.sch.short 10 FREE L *AA[aa]|3
unit.number.sch.short.can 10 FREE L *AA[aa]|3
unit.number.short 10 FREE L *AA[aa]|3
unit.number.tdo 10 FREE L VAL=%MIS.PARAM.unit.number.tdo(IF{@ADM.PAT.unit.number
VAL=[urn];/EA[MRI.PAT.urn,"UN",@.mri.pfx]|0})
uri.number 20 FREE L *AA[aa]CNA1|0
use.prior.status 1 YN L *AA[aa]O3|14
usual.visit.insurance.out 1 YN L VAL=(IF{@usual.visit.insurances;"Y"})
usual.visit.insurances 1 YN L *AA[aa]B|15
vip 1 YN L *AA[aa]A|9
vip.comment 50 FREE L *AA[aa]A|10
visitors.allowed 1 YN L *AA[aa]CN|1
weight 25 FREE L *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
adm.pat.allergies (allergies)
[urn, allergy.num]
*AA[aa]ALG[aal]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy.num 1 PINT R aal
allergy 15 FREE L *AA[aa]ALG[aal]
Ì € i 2
adm.scheduled.appts (appts.from.sch)
[urn, appt.urn]
*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 *AA[aa]WZ[wz]|0
appt.location 10 FREE L MIS.LOCN.DICT *AA[aa]WZ[wz]|2
appt.time 4 HHMM5 L *AA[aa]WZ[wz]|1
Ì € i 2
adm.pat.authorizations (authorizations)
[urn, auth.urn]
*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 *AA[aa]AUTH[hha]|1
auth.ins 10 FREE L MIS.INS.DICT *AA[aa]AUTH[hha]|0
auth.last.update 10 STIME L *AA[aa]AUTH[hha]|4
auth.number 30 FREE L *AA[aa]AUTH[hha]|3
auth.ref.type 10 FREE L MIS.REF.TYPE *AA[aa]AUTH[hha]|2
Ì € i 2
adm.pat.bed.attributes (bed.attributes)
[urn, bed.attribute]
*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
adm.bb.bed.reservations (bed.reservations)
[urn, rsvn.room,rsvn.bed]
*AA[aa]R[ggr,ggrB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rsvn.room 10 FREE L MIS.ROOM.DICT ggr
rsvn.bed 3 FREE L ggrB
rsvn.comment 30 FREE L *AA[aa]R[ggr,ggrB]|2
rsvn.date 8 DATE L *AA[aa]R[ggr,ggrB]|0
rsvn.time 4 HHMM L *AA[aa]R[ggr,ggrB]|1
Ì € i 2
adm.pat.canadian.acct.numbers (can.acct.numbers)
[urn, old.can.number.seq.no]
*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 *AA[aa]CNN[aq]|0
old.can.acct.status 7 CHOICE L *AA[aa]CNN[aq]|1
old.can.reg.cat 10 FREE L MIS.CAN.REGCAT *AA[aa]CNN[aq]|2
Ì € i 2
adm.pat.alerts.canada (can.alerts)
[urn, alert.num]
*AA[aa]CNR[aar]
Field Name Len Dat Typ J DPM Offset/Local/VAL
alert.num 1 PINT R aar
alert 15 FREE L *AA[aa]CNR[aar]
Ì € i 2
adm.pat.collection.notes (collection.notes)
[urn, collection.notes.num]
*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 *AA[aa]CNO[aaCN]|1
collection.notes.time 4 HHMM L *AA[aa]CNO[aaCN]|2
collection.notes.user 10 FREE L MIS.USER *AA[aa]CNO[aaCN]|0
Ì € i 2
adm.pat.collection.notes.text (collection.notes.text)
[urn,collection.notes.num, collection.note.num]
*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 FREE L *AA[aa]CNO[aaCN]T[aCNQ]
Ì € i 2
adm.pat.conditions (conditions)
[urn, cond.seq.no]
*AA[aa]C[aaCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cond.seq.no 2 PINT R aaCN
condition 10 FREE L MIS.COND *AA[aa]C[aaCN]|0
Ì € i 2
adm.pat.additional.doctors (consulting.doctors)
[urn, consulting.doctor]
*AA[aa]CDR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
consulting.doctor 10 FREE L MIS.DOC.DICT ggg
consulting.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@consulting.doctor]
consulting.dr.name.out 30 FREE L VAL=IF{@MIS.DOC.DICT.name[@consulting.doctor];@consult
VAL=ing.doctor}
Ì € i 2
adm.pat.custom.defined.queries (customer.defined.queries)
[urn, cd.query]
*AA[aa]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.mult.qry.map.date 8 DATE L *AA[aa]CD[ggv]INIT
cd.response 75 QRY.RESP L *AA[aa]CD[ggv]|0
Ì € i 2
customer.defined.multiple.flds (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
*AA[aa]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 *AA[aa]CD[ggv]M[ggvN]|0
Ì € i 2
adm.pat.customer.def.screens (customer.defined.screens)
[urn, cd.screen]
*AA[aa]CDS[gxx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.screen 15 FREE L MIS.SCREEN gxx
Ì € i 2
adm.pat.diagnoses (dxs)
[urn, dx.seq.no]
*AA[aa]DX[aaDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dx.seq.no 2 PINT R aaDN
dx.alt.name 60 FREE L *AA[aa]DX[aaDN]|1
dx.code 7 FREE L *AA[aa]DX[aaDN]|0
Ì € i 2
adm.pat.emp.info.data (emp.info.data)
[urn, eid.seq.no]
*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 *AA[aa]EI[aaEN]|0
eid.employee.id 12 FREE L *AA[aa]EI[aaEN]|4
eid.employer.loc 30 FREE L *AA[aa]EI[aaEN]|3
eid.employer.name 10 FREE L MIS.EMPLR.DICT *AA[aa]EI[aaEN]|2
eid.status 10 FREE L MIS.EMP.STATUS *AA[aa]EI[aaEN]|1
Ì € i 2
adm.pat.events (events)
[urn, event.date,event.seq.no]
*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.DICT *AA[aa]EV[evdt,aev]|8
event.admit.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|3
event.attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|4
event.bed 10 FREE L *AA[aa]EV[evdt,aev]|7
event.code 16 FREE L *AA[aa]EV[evdt,aev]|0
event.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.county 10 FREE L MIS.CNTY.DICT *AA[aa]EV[evdt,aev]|2
event.date.undone 8 DATE L *AA[aa]EV[evdt,aev]D|8
event.description 60 FREE L VAL=@ADM.PARAM.event.description[@event.code]_" "_@eve
VAL=nt.qualifiers
event.dis.dispo 10 FREE L MIS.DIS.DICT *AA[aa]EV[evdt,aev]|20
event.dis.dispo.expired 1 YN L *AA[aa]EV[evdt,aev]|12
event.eff.date 8 DATE L *AA[aa]EV[evdt,aev]|1
event.eff.time 4 HHMM L *AA[aa]EV[evdt,aev]D|2
event.financial.class 10 FREE L MIS.FIN.CLASS *AA[aa]EV[evdt,aev]|11
event.from.database 13 FREE L *AA[aa]EV[evdt,aev]D|9
event.loa.status 1 CHOICE L *AA[aa]EV[evdt,aev]|17
event.location 10 FREE L MIS.LOCN.DICT *AA[aa]EV[evdt,aev]|5
event.new.val 20 FREE L *AA[aa]EV[evdt,aev]D|3
event.old.accomodation 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]U|13
event.old.attend.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]U|1
event.old.bed 10 FREE L *AA[aa]EV[evdt,aev]U|5
event.old.conf.comment 50 FREE L *AA[aa]EV[evdt,aev]U|11
event.old.confidential 1 YN L *AA[aa]EV[evdt,aev]U|10
event.old.er.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]U|7
event.old.loa.eff.date 8 DATE L *AA[aa]EV[evdt,aev]U|15
event.old.loa.eff.time 4 HHMM L *AA[aa]EV[evdt,aev]U|16
event.old.loa.status 1 CHOICE L *AA[aa]EV[evdt,aev]U|14
event.old.location 10 FREE L MIS.LOCN.DICT *AA[aa]EV[evdt,aev]U|3
event.old.outpt.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]U|12
event.old.rm.rate.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]U|6
event.old.room 10 FREE L MIS.ROOM.DICT *AA[aa]EV[evdt,aev]U|4
event.old.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]U|2
event.old.service.date 8 DATE L *AA[aa]EV[evdt,aev]U|8
event.old.service.time 4 HHMM L *AA[aa]EV[evdt,aev]U|9
event.old.status 7 CHOICE L *AA[aa]EV[evdt,aev]U|0
event.old.val 20 FREE L *AA[aa]EV[evdt,aev]D|4
event.prim.care.doctor 10 FREE L MIS.DOC.DICT *AA[aa]EV[evdt,aev]|14
event.qualifiers 30 FREE L *AA[aa]EV[evdt,aev]D|5
event.rcr.dt 8 DATE L *AA[aa]EV[evdt,aev]|15
event.rcr.new.sv.date 8 DATE L *AA[aa]EV[evdt,aev]|13
event.rcr.tm 4 HHMM L *AA[aa]EV[evdt,aev]|16
event.room 10 FREE L MIS.ROOM.DICT *AA[aa]EV[evdt,aev]|6
event.room.rate.accom 10 FREE L MIS.ACCOM.DICT *AA[aa]EV[evdt,aev]|9
event.seq.undone 2 FREE L *AA[aa]EV[evdt,aev]D|7
event.service 10 FREE L MIS.SVC.DICT *AA[aa]EV[evdt,aev]|10
event.status 7 FREE L *AA[aa]EV[evdt,aev]D|6
event.time 4 HHMM L *AA[aa]EV[evdt,aev]D|0
event.transfer.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.undo.comment 55 FREE L *AA[aa]EV[evdt,aev]C|0
event.user 10 FREE L MIS.USER *AA[aa]EV[evdt,aev]D|1
event.zip.code 10 ZIP.POST L MIS.ZIP *AA[aa]EV[evdt,aev]|2
event.zip.or.county 10 FREE L *AA[aa]EV[evdt,aev]|2
xxx.swap.event 0 FREE L VAL=IF{"z"^X,DO{"SWAPADMIN"'=*AA[urn]EV[X]|0&X <*AA
VAL=[urn]EV[X]^X},X#0S^event.date,X#1S^event.seq.no}&"
VAL="
xxx.swap.oth.acct 12 FREE L VAL=IF{@event.qualifiers%1;"NOT AVAILABLE"}
xxx.swap.oth.name 30 FREE L VAL=IF{@name[*AAAI[@event.qualifiers%1#"0 "]];"NOT AVA
VAL=ILABLE"}
xxx.undo.event 0 FREE L VAL=IF{"z"^X,DO{"UNDODIS"'=(*AA[urn]EV[X]|0$7)&("UNDOD
VAL=EP"'=(*AA[urn]EV[X]|0$7))&X <*AA[urn]EV[X]^X},X
VAL=#0S^event.date,X#1S^event.seq.no}&""
xxx.xfer.event 0 FREE L VAL=%ADM.PAT.transfer.message.setup("")
Ì € i 2
adm.pat.event.segments (event.segments)
[urn,event.date,event.seq.no, event.segment]
*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
adm.pat.event.other.locations (events.other.locations)
[urn,event.date,event.seq.no, event.other.location]
*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.DICT ggn
Ì € i 2
adm.pat.events.undo.other.locs (events.undo.other.locs)
[urn,event.date,event.seq.no, events.old.other.location]
*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.DICT ggn
Ì € i 2
adm.pat.expired.ins.queue (expired.ins.queue)
[urn, exp.ins.q]
*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 8 DATE L *AA[aa]EXPINS[exp.q]|1
exp.ins.event.date 8 DATE L *AA[aa]EXPINS[exp.q]|2
exp.ins.event.time 4 TIME L *AA[aa]EXPINS[exp.q]|3
exp.ins.mnemonic 10 FREE L MIS.INS.DICT *AA[aa]EXPINS[exp.q]|0
exp.ins.user 10 FREE L MIS.USER *AA[aa]EXPINS[exp.q]|4
Ì € i 2
adm.pat.expired.insurances (expired.insurances)
[urn,exp.ins.q, exp.insurance]
*AA[aa]EXPINS[exp.q,ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
exp.insurance 10 FREE L MIS.INS.DICT ggm
exp.ins.treat.auth.num 18 FREE L *AA[aa]EXPINS[exp.q,ggm]N|8
exp.insurance.benefit.pln 20 FREE L *AA[aa]EXPINS[exp.q,ggm]N|9
exp.insurance.city 30 FREE L *AA[aa]EXPINS[exp.q,ggm]|1
exp.insurance.cov.no 20 FREE L *AA[aa]EXPINS[exp.q,ggm]N|7
exp.insurance.eff.date 8 DATE L *AA[aa]EXPINS[exp.q,ggm]N|5
exp.insurance.exp.date 8 DATE L *AA[aa]EXPINS[exp.q,ggm]N|6
exp.insurance.other.name 30 FREE L *AA[aa]EXPINS[exp.q,ggm]|5
exp.insurance.phone 30 PHONE L *AA[aa]EXPINS[exp.q,ggm]|4
exp.insurance.postal.code 10 ZIP.POST L *AA[aa]EXPINS[exp.q,ggm]|3
exp.insurance.province 2 FREE L *AA[aa]EXPINS[exp.q,ggm]|2
exp.insurance.state 2 FREE L *AA[aa]EXPINS[exp.q,ggm]|2
exp.insurance.street 30 FREE L *AA[aa]EXPINS[exp.q,ggm]|0
exp.insurance.street2 30 FREE L *AA[aa]EXPINS[exp.q,ggm]|6
exp.insurance.zip 10 ZIP.POST L *AA[aa]EXPINS[exp.q,ggm]|3
exp.insured.copay 9 MONEY R *AA[aa]EXPINS[exp.q,ggm]N|11
exp.insured.deductible 9 MONEY R *AA[aa]EXPINS[exp.q,ggm]N|12
exp.insured.group.name 30 FREE L *AA[aa]EXPINS[exp.q,ggm]N|4
exp.insured.group.number 15 FREE L *AA[aa]EXPINS[exp.q,ggm]N|3
exp.insured.name 30 NAME L *AA[aa]EXPINS[exp.q,ggm]N|0
exp.insured.policy.number 30 FREE L *AA[aa]EXPINS[exp.q,ggm]N|2
exp.insured.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]EXPINS[exp.q,ggm]N|1
exp.insured.subscriber 30 URN L MRI.SUBSCRIBER *AA[aa]EXPINS[exp.q,ggm]N|10
exp.insured.upd.subs.data 1 YN L *AA[aa]EXPINS[exp.q,ggm]N|13
Ì € i 2
adm.pat.guarantor.email (guar.email.addr)
[urn, guar.seq.num]
*AA[aa]G["EM",aaGEQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.seq.num 2 PINT R aaGEQ
guar.email 40 FREE L *AA[aa]G["EM",aaGEQ]|0
Ì € i 2
adm.pat.guarantor.emp.email (guar.emp.email.addr)
[urn, guar.emp.seq.num]
*AA[aa]GE["EM",aaGEE]
Field Name Len Dat Typ J DPM Offset/Local/VAL
guar.emp.seq.num 2 PINT R aaGEE
guar.emp.email 40 FREE L *AA[aa]GE["EM",aaGEE]|0
Ì € i 2
adm.pat.hhrg (hhrg)
[urn, hhrg.asmnt.date]
*AA[aa]HHRG[aaHSD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.asmnt.date 14 PINT R aaHSD
hhrg.asmnt.code 2 PINT R *AA[aa]HHRG[aaHSD]|4
hhrg.code 10 FREE L MIS.HHRG.DICT *AA[aa]HHRG[aaHSD]|1
hhrg.eoc 8 DATE L *AA[aa]HHRG[aaHSD]|0
hhrg.hipps 5 FREE L *AA[aa]HHRG[aaHSD]|6
hhrg.msa 10 FREE L MIS.MSA.DICT *AA[aa]HHRG[aaHSD]|2
hhrg.oasis.key 18 FREE L *AA[aa]HHRG[aaHSD]|5
hhrg.scic 1 YN L *AA[aa]HHRG[aaHSD]|7
hhrg.soc 8 DATE L *AA[aa]HHRG[aaHSD]|3
Ì € i 2
adm.pat.hhrg.dxs (hhrg.dxs)
[urn,hhrg.asmnt.date, hhrg.dx.seq.no]
*AA[aa]HHRG[aaHSD]DX[aaHDN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hhrg.dx.seq.no 2 PINT R aaHDN
hhrg.dx.code 7 FREE L *AA[aa]HHRG[aaHSD]DX[aaHDN]|0
Ì € i 2
images (images)
[urn, mr.form,form.seq.no]
*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 *AA[aa]IM[gi,fsn]|0
form.user 10 FREE L MIS.USER *AA[aa]IM[gi,fsn]|2
time.created 4 TIME L *AA[aa]IM[gi,fsn]|1
Ì € i 2
image.pages (image.pages)
[urn,mr.form,form.seq.no, page.number]
*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 *AA[aa]IM[gi,fsn]P[fsnp]|0
im.path.urn 2 FREE L *AA[aa]IM[gi,fsn]P[fsnp]|1
Ì € i 2
adm.pat.insurances (insurances)
[urn, insurance]
*AA[aa]I[ggm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
insurance 10 FREE L MIS.INS.DICT ggm
ins.auth.diag.code 6 FREE L *AA[aa]I[ggm]A|1
ins.auth.diag.desc 30 FREE L *AA[aa]I[ggm]A|2
ins.auth.eff.date 8 DATE L *AA[aa]I[ggm]A|7
ins.auth.exp.date 8 DATE L *AA[aa]I[ggm]A|8
ins.auth.ipa.reimb.amt 9 MONEY R *AA[aa]I[ggm]A|10
ins.auth.last.user 10 FREE L MIS.USER *AA[aa]I[ggm]A|12
ins.auth.number 30 FREE L VAL=@insurance.treat.auth.num
ins.auth.process 10 FREE L VAL="AUTH"
ins.auth.process.status 8 CHOICE L *AA[aa]I[ggm]A|5
ins.auth.process.tried.q 1 FREE L *AA[aa]I[ggm]A|11
ins.auth.ref.provider 10 FREE L MIS.DOC.DICT *AA[aa]I[ggm]A|9
ins.auth.status 9 CHOICE L *AA[aa]I[ggm]A|4
ins.auth.status.date 8 DATE L *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 3 PINT R *AA[aa]I[ggm]A|3
ins.elig.inq.seq.no 3 INT R *AA[aa]I[ggm]L|5
ins.elig.last.user 10 FREE L MIS.USER *AA[aa]I[ggm]L|3
ins.elig.process 10 FREE L VAL="ELIG"
ins.elig.process.tried.q 1 FREE L *AA[aa]I[ggm]L|2
ins.elig.status 8 CHOICE L *AA[aa]I[ggm]L|0
ins.elig.status.date 8 DATE L *AA[aa]I[ggm]L|1
ins.elig.trace.num 40 FREE L *AA[aa]I[ggm]L|4
ins.emp.loc 30 FREE L *AA[aa]I[ggm]E|2
ins.emp.name 10 FREE L MIS.EMPLR.DICT *AA[aa]I[ggm]E|1
ins.emp.status 10 FREE L MIS.EMP.STATUS *AA[aa]I[ggm]E|0
ins.policy.num 30 FREE L VAL=@insured.policy.number[urn,@insurance.mnemonic]
ins.print.cds 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",0)
ins.print.cds.43 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",43)
ins.print.cds.6 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",6)
ins.print.cds.verbatim 0 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,1,0)
ins.print.queries 8 FREE L VAL=%ADM.PAT.print.ins.screen(urn,insurance,"",0,1)
insurance.benefit.plan 20 FREE L *AA[aa]I[ggm]N|9
insurance.city 20 FREE L *AA[aa]I[ggm]|1
insurance.cov.no 20 FREE L *AA[aa]I[ggm]N|7
insurance.eff.date 8 DATE L *AA[aa]I[ggm]N|5
insurance.exp.date 8 DATE L *AA[aa]I[ggm]N|6
insurance.other.name 30 FREE L *AA[aa]I[ggm]|5
insurance.phone 30 PHONE L *AA[aa]I[ggm]|4
insurance.postal.code 10 ZIP.POST L *AA[aa]I[ggm]|3
insurance.province 2 FREE L *AA[aa]I[ggm]|2
insurance.state 2 FREE L *AA[aa]I[ggm]|2
insurance.street 30 FREE L *AA[aa]I[ggm]|0
insurance.street2 30 FREE L *AA[aa]I[ggm]|6
insurance.treat.auth.num 30 FREE L *AA[aa]I[ggm]N|8
insurance.zip 10 ZIP.POST L *AA[aa]I[ggm]|3
insured.copay 9 MONEY R *AA[aa]I[ggm]N|11
insured.deductible 9 MONEY R *AA[aa]I[ggm]N|12
insured.group.name 30 FREE L *AA[aa]I[ggm]N|4
insured.group.number 15 FREE L *AA[aa]I[ggm]N|3
insured.name 30 FREE L *AA[aa]I[ggm]N|0
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 *AA[aa]I[ggm]N|2
insured.relationship 10 FREE L MIS.RELAT.DICT *AA[aa]I[ggm]N|1
insured.subscriber 30 URN L MRI.SUBSCRIBER *AA[aa]I[ggm]N|10
insured.update.subs.data 1 YN L *AA[aa]I[ggm]N|13
Ì € i 2
adm.pat.ins.auth.procedures (ins.auth.procedures)
[urn,insurance, ins.auth.proc.seq.no]
*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 *AA[aa]I[ggm]A["P",aaIAP]|0
ins.auth.proc.amt 9 MONEY R *AA[aa]I[ggm]A["P",aaIAP]|1
ins.auth.proc.copay 8 MONEY R *AA[aa]I[ggm]A["P",aaIAP]|3
ins.auth.proc.units 3 PINT R *AA[aa]I[ggm]A["P",aaIAP]|2
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |