Ì i 2
edit.coded.all.exclu.mult
[coded.all.exclusion.desc]
/EPECAE[epecad]
Field Name Len Dat Typ J DPM Offset/Local/VAL
coded.all.exclusion.desc 80 FREE L epecad
coded.all.exclusion.edit 3 PINT R /EPECAE[epecad]|3
coded.all.exclusion.flag 1 YN L /EPECAE[epecad]|2
coded.all.exclusion.mne 12 FREE L /EPECAE[epecad]|0
coded.all.exclusion.type 1 FREE L /EPECAE[epecad]|1
Ì i 2
fdb.screen
[fdb.scrn.q]
/EBAFX[ebaFSq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fdb.scrn.q 2 PINT R ebaFSq
fdb.scrn.name 35 FREE L VAL=@MIS.ALLERGY.ndc.name[@MRI.ALLERGY.fdb.scrn.ndc]
fdb.scrn.ndc 15 FREE L /EBAFX[ebaFSq]|0
fdb.scrn.rx.num 15 FREE L /EBAFX[ebaFSq]|1
Ì i 2
hub.x
[hub.q]
?(E)EBAH[ebaHQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
hub.q 10 PINT R ebaHQ
hub.mri.urn 25 URN L MRI.ALLERGY ?(E)EBAH[ebaHQ]|0
hub.time 10 PINT R ?(E)EBAH[ebaHQ]|1
hub.x.root 0 FREE L VAL=@Root(@MRI.ALLERGY.hub.x)
Ì i 2
main
[urn]
*(E1)EBA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 25 URN L MRI.PAT ea
allergy.version 2 PINT R *(E1)EBA[ea]|2
allergy.version.out 2 PINT R VAL=(@allergy.version+0!1)
any.checkmark 1 FREE L VAL=IF{@MRI.ALLERGY.last.update @Z.check.mark.data;" "
VAL=}
any.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.any.check
VAL=mark_@Color.use(@Z.color.data)
anye.checkmark 1 FREE L VAL=IF{IF{@t.MRI.ALLERGY.last.update;@MRI.ALLERGY.last
VAL=.update} @Z.check.mark.data;" "}
anye.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.anye.chec
VAL=kmark_@Color.use(@Z.color.data)
anyt.checkmark 1 FREE L VAL=IF{@t.MRI.ALLERGY.last.update @Z.check.mark.data;"
VAL= "}
anyt.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.anyt.chec
VAL=kmark_@Color.use(@Z.color.data)
coded.uncoded.cnv.allergy 1 CHOICE L
int.conf.group 10 FREE L MIS.INT.CNF
last.update 10 PINT R *(E1)EBA[ea]|0
last.update.date 8 DATE L VAL=%Z.date.in.magic(@last.update)
last.update.time 4 HHMM L VAL=%Z.time.out(@last.update)
merged.time 10 PINT R *(E1)EBA[ea]|1
patient 30 FREE L
Ì € i 2
allergen.group.exclusions
[urn, allergen.group.exclusion]
*(E1)EBA[ea]AGEXCL[gelag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergen.group.exclusion 10 FREE L MIS.ALL.AG gelag
all.group.exlcusion.upd 10 PINT R *(E1)EBA[ea]AGEXCL[gelag]
Ì € i 2
audit.trail
[urn, audit.q]
*(E1)EBA[ea]A[ebaA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.q 3 PINT R ebaA
au.allergy 60 FREE L *(E1)EBA[ea]A[ebaA]|5
au.allergy.text 60 FREE L VAL=IF{@au.type#0="U" @au.allergy;@au.allergy^XX (IF{@
VAL=MIS.ALLERGY.name[XX];XX})}
au.any.text 1 YN L VAL=IF{@audit.text[1] "Y";"N"}
au.any.text.checkmark 1 FREE L VAL=IF{@audit.text[1] @Z.check.mark.data}
au.date 8 DATE L *(E1)EBA[ea]A[ebaA]|0
au.db 12 FREE L MIS.APPL.DB *(E1)EBA[ea]A[ebaA]|3
au.new.value 70 FREE L *(E1)EBA[ea]A[ebaA]|7
au.old.value 70 FREE L *(E1)EBA[ea]A[ebaA]|6
au.time 4 HHMM L *(E1)EBA[ea]A[ebaA]|1
au.type 7 CHOICE L *(E1)EBA[ea]A[ebaA]|4
au.user 10 FREE L MIS.USER *(E1)EBA[ea]A[ebaA]|2
au.user.name 34 FREE L VAL=IF{@MIS.USER.name[@au.user];@au.user}
Ì € i 2
audit.trail.text
[urn,audit.q, audit.text.q]
*(E1)EBA[ea]A[ebaA]T[ebaAT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.text.q 3 PINT R ebaAT
audit.text 70 FREE L *(E1)EBA[ea]A[ebaA]T[ebaAT]
Ì € i 2
ccs.pha.sources
[urn, ccs.ext.mri.db]
*(E1)EBA[ea]CCSPS[huzcx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.ext.mri.db 12 FREE L UNV.EXT.DB huzcx
ccs.allergy.version 2 PINT R *(E1)EBA[ea]CCSPS[huzcx]|2
ccs.allergy.version.out 2 PINT R VAL=(@ccs.allergy.version+0!1)
ccs.any.checkmark 1 FREE L VAL=IF{@MRI.ALLERGY.ccs.last.update @Z.check.mark.data
VAL=;" "}
ccs.any.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.any.c
VAL=heckmark_@Color.use(@Z.color.data)
ccs.anye.checkmark 1 FREE L VAL=IF{IF{@t.MRI.ALLERGY.ccs.last.update;@MRI.ALLERGY.
VAL=ccs.last.update} @Z.check.mark.data;" "}
ccs.anye.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.anye.
VAL=checkmark_@Color.use(@Z.color.data)
ccs.anyt.checkmark 1 FREE L VAL=IF{@t.MRI.ALLERGY.ccs.last.update @Z.check.mark.da
VAL=ta;" "}
ccs.anyt.checkmark.lbl 1 FREE L VAL=@Color.use(@Z.color.labels)_@MRI.ALLERGY.ccs.anyt.
VAL=checkmark_@Color.use(@Z.color.data)
ccs.last.merged.time 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]|1
ccs.last.update 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]|0
ccs.last.update.date 8 DATE L VAL=%Z.date.in.magic(@ccs.last.update)
ccs.last.update.time 4 HHMM L VAL=%Z.time.out(@ccs.last.update)
Ì € i 2
ccs.pha.audit.trail
[urn,ccs.ext.mri.db, ccs.audit.q]
*(E1)EBA[ea]CCSPS[huzcx]A[ebaA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.audit.q 3 PINT R ebaA
ccs.au.allergy 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|5
ccs.au.allergy.text 60 FREE L VAL=IF{@ccs.au.type#0="U" @ccs.au.allergy;@ccs.au.alle
VAL=rgy^XX (IF{@MIS.ALLERGY.name[XX];XX})}
ccs.au.any.text 1 YN L VAL=IF{@ccs.audit.text[1] "Y";"N"}
ccs.au.date 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|0
ccs.au.db 12 FREE L MIS.APPL.DB *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|3
ccs.au.new.value 70 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|7
ccs.au.old.value 70 FREE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|6
ccs.au.time 4 HHMM L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|1
ccs.au.type 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|4
ccs.au.user 10 FREE L MIS.USER *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]|2
ccs.au.user.name 34 FREE L VAL=IF{@MIS.USER.name[@ccs.au.user];@ccs.au.user}
cs.au.any.text.checkmark 1 FREE L VAL=IF{@ccs.audit.text[1] @Z.check.mark.data}
Ì € i 2
ccs.pha.audit.trail.text
[urn,ccs.ext.mri.db,ccs.audit.q, ccs.audit.text.q]
*(E1)EBA[ea]CCSPS[huzcx]A[ebaA]T[ebaAT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.audit.text.q 3 PINT R ebaAT
ccs.audit.text 70 TEXT L *(E1)EBA[ea]CCSPS[huzcx]A[ebaA]T[ebaAT]
Ì € i 2
ccs.pha.coded
[urn,ccs.ext.mri.db, ccs.allergy]
*(E1)EBA[ea]CCSPS[huzcx]C[gel]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.allergy 15 FREE L MIS.ALLERGY gel
ccs.allergy.id 40 FREE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|6
ccs.allergy.mne.and.name 53 FREE L VAL=(ccs.allergy,"-",@MIS.ALLERGY.name)
ccs.allergy.name 75 FREE L VAL=IF{@MIS.ALLERGY.name;ccs.allergy}^x_IF{@ccs.allerg
VAL=y.id@Tr.l2u'=(x@Tr.l2u) " ("_@ccs.allergy.id_")"}
ccs.any.text.mark 1 FREE L VAL=IF{@t.ccs.text.line[1] @Z.check.mark.data;" "}
ccs.coded.temp.fields 200 FREE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x
ccs.date 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|2
ccs.edit.text 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x|1
ccs.pt.reaction 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|4
ccs.severity 1 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|1
ccs.time.stamp 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]C[gel]|5
ccs.type 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|0
ccs.update 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]x|0
ccs.verified 1 YN L *(E1)EBA[ea]CCSPS[huzcx]C[gel]|3
Ì € i 2
ccs.pha.text
[urn,ccs.ext.mri.db,ccs.allergy, ccs.text.q]
*(E1)EBA[ea]CCSPS[huzcx]C[gel]T[ebaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.text.q 3 PINT R ebaQ
ccs.text.line 60 TEXT L *(E1)EBA[ea]CCSPS[huzcx]C[gel]T[ebaQ]
Ì € i 2
ccs.pha.uncoded
[urn,ccs.ext.mri.db, ccs.uallergy]
*(E1)EBA[ea]CCSPS[huzcx]U[gelU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.uallergy 60 FREE L gelU
ccs.uany.text.mark 1 FREE L VAL=IF{@t.ccs.utext.line[1] @Z.check.mark.data;" "}
ccs.udate 8 DATE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|2
ccs.uedit.text 1 YN L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]x|0
ccs.uncoded.temp.fields 200 FREE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]x
ccs.upt.reaction 60 FREE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|3
ccs.useverity 1 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|1
ccs.utime.stamp 10 PINT R *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|4
ccs.utype 7 CHOICE L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]|0
Ì € i 2
ccs.pha.utext
[urn,ccs.ext.mri.db,ccs.uallergy, ccs.utext.q]
*(E1)EBA[ea]CCSPS[huzcx]U[gelU]T[ebaQU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ccs.utext.q 3 PINT R ebaQU
ccs.utext.line 60 TEXT L *(E1)EBA[ea]CCSPS[huzcx]U[gelU]T[ebaQU]
Ì € i 2
coded
[urn, allergy]
*(E1)EBA[ea]C[gel]
Field Name Len Dat Typ J DPM Offset/Local/VAL
allergy 15 FREE L MIS.ALLERGY gel
allergy.id 40 FREE L *(E1)EBA[ea]C[gel]|6
allergy.mne.and.name 53 FREE L VAL=(allergy,"-",@MIS.ALLERGY.name)
allergy.name 75 FREE L VAL=@MIS.ALLERGY.name.display^x_IF{@allergy.id@Tr.l2u'
VAL==(x@Tr.l2u) " ("_@allergy.id_")"}
any.text.mark 1 FREE L VAL=IF{@t.text.line[1] @Z.check.mark.data;" "}
coded.temp.fields 200 FREE L *(E1)EBA[ea]C[gel]x
date 8 DATE L *(E1)EBA[ea]C[gel]|2
edit.text 1 YN L *(E1)EBA[ea]C[gel]x|1
id 15 FREE L MIS.ALLERGY VAL=@MIS.ALLERGY.name.display^x_IF{@allergy.id@Tr.l2u'
VAL==(x@Tr.l2u) " ("_@allergy.id_")"}
old.allergy 15 FREE L *(E1)EBA[ea]C[gel]|7
pt.reaction 60 FREE L *(E1)EBA[ea]C[gel]|4
severity 1 CHOICE L *(E1)EBA[ea]C[gel]|1
time.stamp 10 PINT R *(E1)EBA[ea]C[gel]|5
type 7 CHOICE L *(E1)EBA[ea]C[gel]|0
update 1 YN L *(E1)EBA[ea]C[gel]x|0
verified 1 YN L *(E1)EBA[ea]C[gel]|3
Ì € i 2
text
[urn,allergy, text.q]
*(E1)EBA[ea]C[gel]T[ebaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
text.q 3 PINT R ebaQ
text.line 60 TEXT L *(E1)EBA[ea]C[gel]T[ebaQ]
Ì € i 2
drug.ingr.exclusions
[urn, drug.ingr.exclusion]
*(E1)EBA[ea]DIEXCL[geldi]
Field Name Len Dat Typ J DPM Offset/Local/VAL
drug.ingr.exclusion 10 FREE L MIS.ALL.DI geldi
drug.ingr.exclusion.upd 10 PINT R *(E1)EBA[ea]DIEXCL[geldi]
Ì € i 2
uncoded
[urn, uallergy]
*(E1)EBA[ea]U[gelU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
uallergy 60 FREE L gelU
old.uallergy 15 FREE L *(E1)EBA[ea]U[gelU]|5
uany.text.mark 1 FREE L VAL=IF{@t.utext.line[1] @Z.check.mark.data;" "}
udate 8 DATE L *(E1)EBA[ea]U[gelU]|2
uedit.text 1 YN L *(E1)EBA[ea]U[gelU]x|0
uncoded.temp.fields 200 FREE L *(E1)EBA[ea]U[gelU]x
upt.reaction 60 FREE L *(E1)EBA[ea]U[gelU]|3
useverity 1 CHOICE L *(E1)EBA[ea]U[gelU]|1
utime.stamp 10 PINT R *(E1)EBA[ea]U[gelU]|4
utype 7 CHOICE L *(E1)EBA[ea]U[gelU]|0
Ì € i 2
utext
[urn,uallergy, utext.q]
*(E1)EBA[ea]U[gelU]T[ebaQU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
utext.q 3 PINT R ebaQU
utext.line 60 TEXT L *(E1)EBA[ea]U[gelU]T[ebaQU]
Ì € i 2
xsensitivity.exclusions
[urn, xsensitivity.exclusion]
*(E1)EBA[ea]XSEXCL[gelXC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xsensitivity.exclusion 10 FREE L MIS.ALL.AG gelXC
xsensitivity.excl.upd 10 PINT R *(E1)EBA[ea]XSEXCL[gelXC]
Ì i 2
process.main
/EBZP
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.beg.col 3 PINT R /EBZP["E"]|6
pr.beg.row 3 PINT R /EBZP["E"]|5
pr.button.screen 2 PINT R /EBZP["E"]|9
pr.current 3 PINT R /EBZP["E"]|0
pr.itn 3 PINT R /EBZP["E"]|2
pr.max.ht 3 PINT R /EBZP["E"]|3
pr.max.lines 3 PINT R /EBZP["E"]|7
pr.max.wid 3 PINT R /EBZP["E"]|4
pr.selected.total 3 PINT R /EBZP["E"]|8
pr.top 3 PINT R /EBZP["E"]|1
Ì € i 2
process.allergies
[pr.seq]
/EBZP["E",ebzpN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pr.seq 3 PINT R ebzpN
pr.allergy 15 FREE L MIS.ALLERGY /EBZP["E",ebzpN]|10
pr.date 8 FREE L /EBZP["E",ebzpN]|7
pr.heading 1 FREE L /EBZP["E",ebzpN]|2
pr.heading.total 3 FREE L /EBZP["E",ebzpN]|3
pr.ln 1 PINT R /EBZP["E",ebzpN]|12
pr.mark 1 FREE L /EBZP["E",ebzpN]|0
pr.num.lns 1 PINT R /EBZP["E",ebzpN]|13
pr.options 10 FREE L /EBZP["E",ebzpN]|9
pr.pt.reaction 36 FREE L /EBZP["E",ebzpN]|4
pr.selected 10 FREE L /EBZP["E",ebzpN]|1
pr.severity 8 FREE L /EBZP["E",ebzpN]|6
pr.text 36 FREE L /EBZP["E",ebzpN]|4
pr.type 8 FREE L /EBZP["E",ebzpN]|5
pr.uncoded 1 YN L /EBZP["E",ebzpN]|11
pr.verified 8 FREE L /EBZP["E",ebzpN]|8
Ì i 2
views
[view.mri.urn,view.user]
?(E)EBAV[ea,gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
view.mri.urn 25 URN L MRI.PAT ea
view.user 10 FREE L MIS.USER gu
view.time 10 PINT R ?(E)EBAV[ea,gu]|0
Index Files Subscripts/Physical Base
conv.pat.x [urn,allergy.version,coded.uncoded.cnv.allergy,allergy] = old.allergy
?(E)EBA.V2[ea,gelAV,gelUC,gel]
patient.x [allergy,urn]
?(E)EBAPX[gel,ea]
|
|
| | | | | | | | | | | | | | | | | | | | | |