Ì i 2
fdb.screen (fdb.screen)
[fdb.scrn.q]
/EBAFX[ebaFS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fdb.scrn.q 2 PINT R ebaFS
fdb.scrn.name 35 FREE L VAL=@MIS.ALLERGY.ndc.name[@MRI.ALLERGY.fdb.scrn.ndc]
fdb.scrn.ndc 15 FREE L /EBAFX[ebaFS]|0
fdb.scrn.rx.num 15 FREE L /EBAFX[ebaFS]|1
Ì i 2
patient.allergies (main)
[urn]
:EBA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 25 URN L MRI.PAT ea
allergy.version 2 PINT R :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=@Set.attr(@Z.color.labels1)_@MRI.ALLERGY.any.check
VAL=mark_@Set.attr(@Z.color.data1)
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=@Set.attr(@Z.color.labels1)_@MRI.ALLERGY.anye.chec
VAL=kmark_@Set.attr(@Z.color.data1)
anyt.checkmark 1 FREE L VAL=IF{@t.MRI.ALLERGY.last.update @Z.check.mark.data;"
VAL= "}
anyt.checkmark.lbl 1 FREE L VAL=@Set.attr(@Z.color.labels1)_@MRI.ALLERGY.anyt.chec
VAL=kmark_@Set.attr(@Z.color.data1)
coded.uncoded.cnv.allergy 1 CHOICE L
int.conf.group 10 FREE L MIS.INT.CNF
last.update 18 PINT R :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 :EBA[ea]|1
patient 30 FREE L
Ì € i 2
group.exclusions (allergen.group.exclusions)
[urn, allergen.group.exclusion]
: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 :EBA[ea]AGEXCL[gelag]
Ì € i 2
audit.trail (audit.trail)
[urn, audit.q]
: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 :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 :EBA[ea]A[ebaA]|0
au.db 12 FREE L :EBA[ea]A[ebaA]|3
au.new.value 70 FREE L :EBA[ea]A[ebaA]|7
au.old.value 70 FREE L :EBA[ea]A[ebaA]|6
au.time 4 HHMM L :EBA[ea]A[ebaA]|1
au.type 7 CHOICE L :EBA[ea]A[ebaA]|4
au.user 10 FREE L MIS.USER :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 (audit.trail.text)
[urn,audit.q, audit.text.q]
: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 :EBA[ea]A[ebaA]T[ebaAT]
view.audit.text 0 FREE L VAL=""
Ì € i 2
coded (coded)
[urn, allergy]
: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 :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^x_IF{@allergy.id~$L.TO.U'=(x~$L.
VAL=TO.U) " ("_@allergy.id_")"}
any.text.mark 1 FREE L VAL=IF{@text.line[1] @Z.check.mark.data;" "}
coded.temp.fields 200 FREE L :EBA[ea]C[gel]x
date 8 DATE L :EBA[ea]C[gel]|2
edit.text 1 YN L :EBA[ea]C[gel]x|1
id 15 FREE L MIS.ALLERGY VAL=@MIS.ALLERGY.name.display^x_IF{@allergy.id~$L.TO.U
VAL='=(x~$L.TO.U) " ("_@allergy.id_")"}
old.allergy 15 FREE L :EBA[ea]C[gel]|7
pt.reaction 60 FREE L :EBA[ea]C[gel]|4
severity 1 CHOICE L :EBA[ea]C[gel]|1
time.stamp 10 PINT R :EBA[ea]C[gel]|5
type 7 CHOICE L :EBA[ea]C[gel]|0
update 1 YN L :EBA[ea]C[gel]x|0
verified 1 YN L :EBA[ea]C[gel]|3
Ì € i 2
text (text)
[urn,allergy, text.q]
: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 FREE L :EBA[ea]C[gel]T[ebaQ]
Ì € i 2
drug.ingr.exclusions (drug.ingr.exclusions)
[urn, drug.ingr.exclusion]
: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 :EBA[ea]DIEXCL[geldi]
Ì € i 2
uncoded.allergy (uncoded)
[urn, uallergy]
:EBA[ea]U[gelU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
uallergy 60 FREE L gelU
old.uallergy 15 FREE L :EBA[ea]U[gelU]|5
uany.text.mark 1 FREE L VAL=IF{@utext.line[1] @Z.check.mark.data}
udate 8 DATE L :EBA[ea]U[gelU]|2
uedit.text 1 YN L :EBA[ea]U[gelU]x|0
uncoded.temp.fields 200 FREE L :EBA[ea]U[gelU]x
upt.reaction 60 FREE L :EBA[ea]U[gelU]|3
useverity 1 CHOICE L :EBA[ea]U[gelU]|1
utime.stamp 10 PINT R :EBA[ea]U[gelU]|4
utype 7 CHOICE L :EBA[ea]U[gelU]|0
Ì € i 2
utext (utext)
[urn,uallergy, utext.q]
:EBA[ea]U[gelU]T[ebaQU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
utext.q 3 PINT R ebaQU
uscreen.editor 0 FREE L VAL=%Z.text.ed.shell(^/EBA[urn]U[uallergy]T,2,15,60,0,
VAL="D")
utext.line 60 FREE L :EBA[ea]U[gelU]T[ebaQU]
utext.view 0 FREE L VAL=""
Ì € i 2
xsensitivity.xclusions (xsensitivity.xclusions)
[urn, xsensitivity.exclusion]
:EBA[ea]XSEXCL[gelag]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xsensitivity.exclusion 10 FREE L MIS.ALL.AG gelag
xsensitivity.excl.upd 10 PINT R :EBA[ea]XSEXCL[gelag]
Ì i 2
process.allergies (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.allergy.id 36 FREE L /EBZP["E",ebzpN]|13
pr.date 8 FREE L /EBZP["E",ebzpN]|7
pr.heading 1 FREE L /EBZP["E",ebzpN]|2
pr.heading.seq 3 PINT R /EBZP["E",ebzpN]|14
pr.heading.total 3 FREE L /EBZP["E",ebzpN]|3
pr.mark 1 FREE L /EBZP["E",ebzpN]|0
pr.options 10 FREE L /EBZP["E",ebzpN]|9
pr.pt.reaction 36 FREE L /EBZP["E",ebzpN]|12
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 (views)
[view.mri.urn,view.user]
?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 ?EBAV[ea,gu]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
conv.pat.x [urn,allergy.version,coded.uncoded.cnv.allergy,allergy] = old.allergy
conv.pat.x ?EBA.V2[ea,gelAV,gelUC,gel]
patient.x [allergy,urn]
patient.x ?EBAPX[gel,ea]
|
|
| | | | | | | | | | | |