Ì i 2
cart.label.x
[cart.date,cart.room,cart.bed]
?(T)TAAC[taacD,ggr,ggrB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cart.date 8 DATE L taacD
cart.room 10 FREE L MIS.ROOM ggr
cart.bed 3 FREE L ggrB
cart.old.bed 3 FREE L ?(T)TAAC[taacD,ggr,ggrB]|3
cart.old.room 10 FREE L MIS.ROOM ?(T)TAAC[taacD,ggr,ggrB]|2
cart.patient 30 FREE L PHA.PAT ?(T)TAAC[taacD,ggr,ggrB]|0
cart.printed 1 YN L ?(T)TAAC[taacD,ggr,ggrB]|4
cart.type 1 CHOICE L ?(T)TAAC[taacD,ggr,ggrB]|1
Ì i 2
main
[patient]
$(A)AA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
patient 30 FREE L aa
acct.number 12 FREE L VAL=@ADM.PAT.acct.number
address 96 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4'=",, ")
address.and.phone 115 FREE L VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2
VAL=_","_AD|3_" "_AD|4_" "_AD|5'=",, ")
admit.date 8 DATE L VAL=@ADM.PAT.admit.date
admit.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.admit.doctor
age 7 FREE L VAL=@ADM.PAT.age.out
age.at.discharge 7 FREE L VAL=IF{%PHA.PAT.end.date(patient)^XX %Z.age(@computed.
VAL=birthdate,XX)}
age.sex 9 FREE L VAL=@ADM.PAT.age.out_"/"_@ADM.PAT.sex'="/"
any.allergies 1 FREE L VAL=IF{@ADM.PAT.mri.urn^mri.urn,@First(@MRI.ALLERGY.al
VAL=lergy) 1}
attend.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.attend.doctor
bed 3 FREE L VAL=@ADM.PAT.bed
city.state.zip 34 FREE L VAL=(@ADM.PAT.pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")
computed.birthdate 10 BDATE L VAL=@ADM.PAT.computed.birthdate
confidential 1 YN L VAL=@ADM.PAT.confidential
diagnosis.or.reas.for.vis 75 FREE L VAL=%PHA.PAT.dx.query.and.resp(PHA.PAT.urn,1,1)
diagnosis.or.rfv.q.and.r 137 FREE L VAL=%PHA.PAT.dx.query.and.resp(PHA.PAT.urn,"",1)
diagnosis.query 10 FREE L MIS.QUERY VAL=@PHA.PARAM.diagnosis.query
diagnosis.query.and.resp 137 FREE L VAL=%PHA.PAT.dx.query.and.resp(PHA.PAT.urn)
diagnosis.query.text 60 FREE L VAL=@MIS.QUERY.text[@PHA.PARAM.diagnosis.query]
diagnosis.response.mnemon 75 FREE L VAL=@ADM.PAT.ccdqr.response[@PHA.PARAM.diagnosis.query
VAL=]
diagnosis.response.text 75 FREE L VAL=IF{@ADM.PAT.ccdqr.response[@PHA.PARAM.diagnosis.qu
VAL=ery^XXQ]^XXR_.=. "";@MIS.GROUP.RESP.element.respon
VAL=se[@MIS.QUERY.group.resp[XXQ],XXR];XXR}
discharge.date 8 DATE L VAL=IF{@ADM.PAT.discharge.date;@ADM.PAT.recur.discharg
VAL=e.date}
discharge.time 4 HHMM L VAL=@ADM.PAT.discharge.time
er.depart.date 8 DATE L VAL=@ADM.PAT.er.depart.date
er.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.er.doctor
facility 10 FREE L MIS.FACILITY VAL=@ADM.PAT.facility
family.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.family.doctor
first.name 30 FREE L
last.name 30 FREE L
location 10 FREE L MIS.LOCN VAL=@ADM.PAT.location
mri.urn 25 URN L MRI.PAT VAL=@ADM.PAT.mri.urn
name 30 FREE L VAL=@ADM.PAT.name
other.doctor 10 FREE L MIS.DOC VAL=@ADM.PAT.other.doctor
rcr.discharge.date 8 DATE L VAL=@ADM.PAT.recur.discharge.date
reason.for.visit 60 FREE L VAL=@ADM.PAT.reason.for.visit
register.date 8 DATE L VAL=IF{@ADM.PAT.admit.date;@ADM.PAT.service.date;@ADM.
VAL=PAT.reservation.date;@ADM.PAT.arrival.date;@ADM.PA
VAL=T.triage.date}
reservation.date 8 DATE L VAL=@ADM.PAT.reservation.date
responsible.doctor 10 FREE L MIS.DOC VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor;@ADM.
VAL=PAT.admit.doctor}
responsible.doctor.name 30 FREE L VAL=@MIS.DOC.name[IF{@ADM.PAT.attend.doctor;@ADM.PAT.e
VAL=r.doctor;@ADM.PAT.admit.doctor}]
room 10 FREE L MIS.ROOM VAL=@ADM.PAT.room
room.bed 14 FREE L VAL=@ADM.PAT.room_"-"_@ADM.PAT.bed'="-"
room.bed.or.loc 14 FREE L VAL=IF{@ADM.PAT.status="DIS IN";@ADM.PAT.room_"-"_@ADM
VAL=.PAT.bed'="-";@ADM.PAT.location}
rpt.title.2 80 FREE L VAL=/R.TITLE.2
service 10 FREE L MIS.SVC VAL=@ADM.PAT.service
service.date 8 DATE L VAL=@ADM.PAT.service.date
sex 1 FREE L VAL=@ADM.PAT.sex
status 7 FREE L VAL=@ADM.PAT.status_IF{"Y"=@ADM.PAT.observation.patien
VAL=t "o"}_IF{@ADM.PAT.discharge.date&(@MIS.DIS.expire
VAL=d[@ADM.PAT.discharge.disposition]="Y") "x";@ADM.PA
VAL=T.er.depart.disposition's.expired="Y" "x"}
status.wo.obs 7 FREE L VAL=@ADM.PAT.status
streets 61 FREE L VAL=(@ADM.PAT.pat.street_" "_@ADM.PAT.pat.street2'=" "
VAL=)
unit.number 10 FREE L VAL=@ADM.PAT.unit.number
urn 30 URN L ADM.PAT
Ì € i 2
adm.events.partial
[patient, event.date,event.seq.no]
$(A)AA[aa]EV[evdt,aev]
Field Name Len Dat Typ J DPM Offset/Local/VAL
event.date 8 DATE L evdt
event.seq.no 2 PINT R aev
event.new.val 20 FREE L $(A)AA[aa]EV[evdt,aev]D|3
event.old.val 20 FREE L $(A)AA[aa]EV[evdt,aev]D|4
Ì i 2
nursing.data
[nursing.patient]
*(A)AA.OE[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
nursing.patient 30 URN L ADM.PAT aa
oe.ht.in.cm 6 DEC2 R *(A)AA.OE[aa]|3
oe.ht.in.ft 1 INT R *(A)AA.OE[aa]|1
oe.ht.in.in 5 DEC2 R *(A)AA.OE[aa]|2
oe.wt.in.kg 7 DEC3 R *(A)AA.OE[aa]|6
oe.wt.in.lb 4 INT R *(A)AA.OE[aa]|4
oe.wt.in.oz 5 DEC2 R *(A)AA.OE[aa]|5
temporary.location 10 FREE L MIS.LOCN *(A)AA.OE[aa]|0
Ì i 2
pha.data
[pha.patient]
*(T3)TAA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pha.patient 30 URN L ADM.PAT aa
body.surface.area 6 DEC2 R *(T3)TAA[aa]|1
dis.ht.in.cm 6 DEC2 R *(T3)TAA[aa]|28
dis.ht.in.ft 1 INT R *(T3)TAA[aa]|26
dis.ht.in.in 5 DEC2 R *(T3)TAA[aa]|27
dis.wt.in.kg 7 DEC3 R *(T3)TAA[aa]|31
dis.wt.in.lb 4 INT R *(T3)TAA[aa]|29
dis.wt.in.oz 5 DEC2 R *(T3)TAA[aa]|30
diseases.updated 9 PINT R *(T3)TAA[aa]|21
last.updated 9 PINT R *(T3)TAA[aa]|20
last.updated.date 8 DATE L VAL=%Z.date.in.magic(@PHA.PAT.last.updated)
last.updated.time 4 HHMM L VAL=%Z.time.out(@PHA.PAT.last.updated)
meds.auto.dcd 1 YN L *(T3)TAA[aa]|18
meds.auto.dcu 1 YN L *(T3)TAA[aa]|25
mrm.chart.created 1 YN L *(T3)TAA[aa]|32
new.allergies 1 FREE L *(T3)TAA[aa]|2
new.allergies.pcs 1 FREE L *(T3)TAA[aa]|21
oe.allergy.1 92 FREE L *(T3)TAA[aa]OA|1
oe.allergy.1.pcs 92 FREE L *(T3)TAA[aa]OAP|1
oe.allergy.1.query 10 FREE L MIS.QUERY *(T3)TAA[aa]OA|0
oe.allergy.1.query.pcs 10 FREE L MIS.QUERY *(T3)TAA[aa]OAP|0
oe.allergy.2 92 FREE L *(T3)TAA[aa]OA|3
oe.allergy.2.pcs 92 FREE L *(T3)TAA[aa]OAP|3
oe.allergy.2.query 10 FREE L MIS.QUERY *(T3)TAA[aa]OA|2
oe.allergy.2.query.pcs 10 FREE L MIS.QUERY *(T3)TAA[aa]OAP|2
old.allergies.updated 9 PINT R *(T3)TAA[aa]|0
pha.bed 3 FREE L *(T3)TAA[aa]|12
pha.computed.birthdate 10 BDATE L *(T3)TAA[aa]|24
pha.discharge.date 8 DATE L *(T3)TAA[aa]|16
pha.discharge.time 4 HHMM L *(T3)TAA[aa]|17
pha.filed.allergies 1 YN L *(T3)TAA[aa]|22
pha.ht.in.cm 6 DEC2 R *(T3)TAA[aa]|5
pha.ht.in.ft 1 INT R *(T3)TAA[aa]|3
pha.ht.in.in 5 DEC2 R *(T3)TAA[aa]|4
pha.last.event.date 8 DATE L *(T3)TAA[aa]|14
pha.last.event.seq.no 2 PINT R *(T3)TAA[aa]|15
pha.location 10 FREE L MIS.LOCN *(T3)TAA[aa]|13
pha.room 10 FREE L MIS.ROOM *(T3)TAA[aa]|11
pha.sex 1 CHOICE L *(T3)TAA[aa]|23
pha.status 8 FREE L *(T3)TAA[aa]|10
pha.wt.in.kg 7 DEC3 R *(T3)TAA[aa]|8
pha.wt.in.lb 4 INT R *(T3)TAA[aa]|6
pha.wt.in.oz 5 DEC2 R *(T3)TAA[aa]|7
tape.date 8 DATE L VAL=%Z.date.in.magic(@PHA.PAT.tape.entered)
tape.entered 9 PINT R *(T3)TAA[aa]|9
tape.time 4 HHMM L VAL=%Z.time.out(@PHA.PAT.tape.entered)
temporary.cart 10 FREE L PHA.CART *(T3)TAA[aa]|19
Ì € i 2
audit.trail
[pha.patient, audit.trail.changed,audit.trail.type]
*(T3)TAA[aa]AU[tauA,tauT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.trail.changed 9 PINT R tauA
audit.trail.type 1 CHOICE L tauT
audit.trail.date 8 DATE L VAL=%Z.date.in.magic(@audit.trail.changed)
audit.trail.text 12 FREE L VAL="ADDED,DELETED,MERGED,UNMERGED,SWITCHED,BYPASSED,A
VAL=CKNOWLEDGED"#(L("ADMUSBK",audit.trail.type$1)_",")
audit.trail.time 4 HHMM L VAL=%Z.time.out(@audit.trail.changed)
audit.trail.user 10 FREE L MIS.USER *(T3)TAA[aa]AU[tauA,tauT]|0
Ì € i 2
audit.trail.diseases
[pha.patient,audit.trail.changed,audit.trail.type, audit.trail.disease]
*(T3)TAA[aa]AU[tauA,tauT]D[ted]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.trail.disease 10 FREE L PHA.DIS ted
Ì € i 2
batch.messages.top
[pha.patient, batch.message.type]
*(T3)TAA[aa]BM[tddY]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch.message.type 2 CHOICE L tddY
Ì € i 2
batch.messages
[pha.patient,batch.message.type, batch.message.rx,batch.message.q]
*(T3)TAA[aa]BM[tddY,tr,trBMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch.message.rx 10 URN L PHA.RX tr
batch.message.q 3 PINT R trBMQ
batch.message 4 CHOICE L *(T3)TAA[aa]BM[tddY,tr,trBMQ]|0
batch.message.date 8 DATE L *(T3)TAA[aa]BM[tddY,tr,trBMQ]|1
batch.message.time 4 HHMM L *(T3)TAA[aa]BM[tddY,tr,trBMQ]|2
batch.message.user 10 FREE L MIS.USER *(T3)TAA[aa]BM[tddY,tr,trBMQ]|3
Ì € i 2
diseases
[pha.patient, disease]
*(T3)TAA[aa]D[ted]
Field Name Len Dat Typ J DPM Offset/Local/VAL
disease 10 FREE L PHA.DIS ted
disease.date 8 DATE L VAL=IF{@disease.entered^XX %Z.date.in.magic(XX)}
disease.time 4 HHMM L VAL=IF{@disease.entered^XX %Z.time.out(XX)}
disease.user 10 FREE L MIS.USER *(T3)TAA[aa]D[ted]|1
Ì € i 2
ext.comments
[pha.patient, ext.com.q]
*(T3)TAA[aa]C[taac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ext.com.q 2 PINT R taac
ext.comment 75 TEXT L *(T3)TAA[aa]C[taac]
ext.comment.doc 0 FREE L
Ì € i 2
int.comments
[pha.patient, int.com.q]
*(T3)TAA[aa]N[taaN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
int.com.q 2 PINT R taaN
int.comment 75 TEXT L *(T3)TAA[aa]N[taaN]
Ì € i 2
queries
[pha.patient, query]
*(T3)TAA[aa]Q[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query 10 FREE L MIS.QUERY ggv
response 70 FREE L *(T3)TAA[aa]Q[ggv]|0
Ì € i 2
queries.mult
[pha.patient,query, query.mult.q]
*(T3)TAA[aa]Q[ggv]M[ggvM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
query.mult.q 2 PINT R ggvM
query.mult.response 70 FREE L *(T3)TAA[aa]Q[ggv]M[ggvM]|0
Ì i 2
purge.log
[purge.date,purge.q]
?(T)TAAG[taaP,taaQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
purge.date 8 DATE L taaP
purge.q 3 PINT R taaQ
purge.msg 80 FREE L ?(T)TAAG[taaP,taaQ]
Index Files Subscripts/Physical Base
discharge.x [discharge.date,discharge.time,urn] = discharge.file.date.time
?(T)TAAD[aaDDT,aaDTM,aa]
location.x [location,urn] = urn
?(T)TAAL[ggn,aa]
mri.x [mri.urn,patient]
?(T)TAAM[ea,aa]
mrm.discharge.x [discharge.date] = urn
?(T)TAAMRM[aaDDT]
temporary.cart.x [temporary.cart,urn]
?(T)TAAE[tdd,aa]
transfer.x [urn,transfer.date,transfer.time,event.date,event.seq.no]
?(T)TAAT[aa,aaDT,aaTM,evdt,aev]
|
|
| | | | | | | | | | | | | |