Ì i 2
pha.mar.bkg.print.queue (bkg.print.queue)
[bkg.print.device,bkg.print.status,bkg.print.q]
:TMARQ[tmarD,tmarS,tmarQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bkg.print.device 20 FREE L tmarD
bkg.print.status 1 CHOICE L tmarS
bkg.print.q 6 PINT R tmarQ
bkg.print.blank.pgs 2 INT R :TMARQ[tmarD,tmarS,tmarQ]|4
bkg.print.desc 30 FREE L VAL=IF{@bkg.print.urn^XX IF{@PHA.MARF.type[@bkg.print.
VAL=format]$1="L" "Rx # "_@PHA.RX.number[XX];@PHA.PAT.
VAL=acct.number[XX]_" - "_@PHA.PAT.name[XX]}}
bkg.print.err 50 FREE L :TMARQ[tmarD,tmarS,tmarQ]|5
bkg.print.format 10 FREE L PHA.MARF :TMARQ[tmarD,tmarS,tmarQ]|0
bkg.print.start.date 8 DATE L :TMARQ[tmarD,tmarS,tmarQ]|2
bkg.print.start.time 4 HHMM L :TMARQ[tmarD,tmarS,tmarQ]|3
bkg.print.urn 10 FREE L :TMARQ[tmarD,tmarS,tmarQ]|1
bkg.print.user 10 FREE L MIS.USER :TMARQ[tmarD,tmarS,tmarQ]|6
Ì i 2
pha.mar.ee.fields (ee.fields)
/TMARF
Field Name Len Dat Typ J DPM Offset/Local/VAL
ee.alt.mar.format 10 FREE L PHA.MARF /TMARF|0
ee.alt.printer 15 FREE L /TMARF|1
ee.bkg 1 YN L /TMARF|9
ee.date.range 3 INT R /TMARF|12
ee.format 10 FREE L PHA.MARF /TMARF|2
ee.iob 4 CHOICE L /TMARF|14
ee.num.labels 2 INTZ R /TMARF|11
ee.print.bkg 1 YN L /TMARF|4
ee.printer 15 FREE L /TMARF|3
ee.prt.blank.pgs 1 YN L /TMARF|10
ee.start.date 8 DATE L /TMARF|5
ee.start.date.out 8 FREE L VAL=%Z.date.out(@ee.start.date)
ee.start.shift 1 CHOICE L /TMARF|13
ee.start.time 4 HHMM L /TMARF|6
ee.stop.date 8 DATE L /TMARF|7
ee.stop.date.out 8 FREE L VAL=%Z.date.out(@ee.stop.date)
ee.stop.time 4 HHMM L /TMARF|8
Ì i 2
pha.mar.main (main)
[urn]
:TMAR[tmar]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 10 URN L tmar
adm.urn 30 FREE L PHA.PAT
database.rpt.title 61 FREE L VAL=@MIS.APPL.database.rpt.title[@.db]
database.title 61 FREE L VAL=@MIS.APPL.database.title[@.db]
format 10 FREE L PHA.MARF
format.cpi 2 FREE L VAL=@PHA.MARF.cpi
format.cpl 3 PINT R VAL=@PHA.MARF.cpl
format.lpi 2 FREE L VAL=@PHA.MARF.lpi
format.lpp 3 PINT R VAL=@PHA.MARF.lpp
format.ps 3 PINT R VAL=@PHA.MARF.ps
format.title 55 FREE L VAL=@PHA.MARF.title
hospital.name 61 FREE L VAL=/R.HOSP
page.number 4 PINT R VAL=/R.PAGE.NUM.PRINT
patient 30 FREE L PHA.PAT
pt 30 FREE L PHA.PAT
pt.acct.number 12 FREE L VAL=@PHA.PAT.acct.number
pt.admit.date 8 DATE L VAL=@PHA.PAT.admit.date
pt.admit.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.admit.doctor
pt.age 7 FREE L VAL=@PHA.PAT.age
pt.age.at.discharge 7 FREE L VAL=@PHA.PAT.age.at.discharge
pt.age.sex 9 FREE L VAL=@PHA.PAT.age.sex
pt.allergies.updated 9 PINT R VAL=@PHA.PAT.allergies.updated
pt.any.allergies 1 FREE L VAL=@PHA.PAT.any.allergies
pt.attend.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.attend.doctor
pt.bed 3 FREE L VAL=@PHA.PAT.bed
pt.body.surface.area 6 DEC2 R VAL=@PHA.PAT.body.surface.area
pt.cli.depart.date 8 DATE L VAL=@PHA.PAT.cli.depart.date
pt.computed.birthdate 8 BDATE L VAL=@PHA.PAT.computed.birthdate
pt.confidential 1 YN L VAL=@PHA.PAT.confidential
pt.discharge.date 8 DATE L VAL=@PHA.PAT.discharge.date
pt.discharge.time 4 HHMM L VAL=@PHA.PAT.discharge.time
pt.dx.query 10 FREE L MIS.QUERY VAL=@PHA.PARAM.diagnosis.query
pt.dx.response.mnemonic 75 FREE L VAL=@ADM.PAT.ccdqr.response[@PHA.PARAM.diagnosis.query
VAL=]
pt.er.depart.date 8 DATE L VAL=@PHA.PAT.er.depart.date
pt.er.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.er.doctor
pt.facility 10 FREE L MIS.FACILITY VAL=@PHA.PAT.facility
pt.family.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.family.doctor
pt.ht.in.cm 6 DEC R VAL=@PHA.PAT.dis.ht.in.cm
pt.ht.in.ft 1 INT R VAL=@PHA.PAT.dis.ht.in.ft
pt.ht.in.in 5 DEC R VAL=@PHA.PAT.dis.ht.in.in
pt.loc.room.bed 20 FREE L VAL=@PHA.PAT.location_" "_@PHA.PAT.room_" "_@PHA.PAT.b
VAL=ed
pt.location 10 FREE L MIS.LOCN.DICT VAL=@PHA.PAT.location
pt.mri.urn 25 URN L MRI.PAT VAL=@PHA.PAT.mri.urn
pt.name 30 FREE L VAL=@PHA.PAT.name
pt.new.allergies 1 FREE L VAL=PHA.PAT.new.allergies
pt.other.depart.date 8 DATE L VAL=@PHA.PAT.other.depart.date
pt.other.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.other.doctor
pt.rcr.discharge.date 8 DATE L VAL=@PHA.PAT.rcr.discharge.date
pt.reason.for.visit 60 FREE L VAL=@PHA.PAT.reason.for.visit
pt.register.date 8 DATE L VAL=@PHA.PAT.register.date
pt.reservation.date 8 DATE L VAL=@PHA.PAT.reservation.date
pt.responsible.doc.name 30 FREE L VAL=@PHA.PAT.responsible.doctor.name
pt.responsible.doctor 10 FREE L MIS.DOC.DICT VAL=@PHA.PAT.responsible.doctor
pt.room 10 FREE L MIS.ROOM.DICT VAL=@PHA.PAT.room
pt.room.bed 14 FREE L VAL=@PHA.PAT.room.bed
pt.service.date 8 DATE L VAL=@PHA.PAT.service.date
pt.sex 1 FREE L VAL=@PHA.PAT.sex
pt.status 7 FREE L VAL=@PHA.PAT.status
pt.temporary.location 10 FREE L MIS.LOCN.DICT VAL=@PHA.PAT.temporary.location
pt.unit.number 10 FREE L VAL=@PHA.PAT.unit.number
pt.wt.in.kg 7 DEC R VAL=@PHA.PAT.dis.wt.in.kg
pt.wt.in.lb 4 INT R VAL=@PHA.PAT.dis.wt.in.lb
pt.wt.in.oz 5 DEC R VAL=@PHA.PAT.dis.wt.in.oz
rpt.title 55 FREE L VAL=/R.TITLE
rpt.title.2 80 FREE L VAL=/R.TITLE.2
run.date 8 FREE L VAL=/R.DATE
run.time 4 FREE L VAL=/R.TIME
run.user 10 FREE L MIS.USER VAL=@.user
run.user.name 30 FREE L VAL=@MIS.USER.name[@.user]
rx 10 URN L PHA.RX
rx.cancel.date 8 DATE L VAL=@PHA.RX.cancel.date
rx.cancel.date.and.time 13 FREE L VAL=@PHA.RX.cancel.date.and.time
rx.cancel.seconds 9 PINT R VAL=@PH.RX.cancel.seconds
rx.cancel.time 4 HHMM L VAL=@PHA.RX.cancel.time
rx.cancel.user 10 FREE L MIS.USER VAL=@PHA.RX.cancel.user
rx.cds 15 FREE L MIS.SCREEN VAL=@PHA.RX.cds
rx.dc.auto.credits 9 PINT R VAL=@PHA.RX.dc.auto.credits
rx.dc.date 8 DATE L VAL=@PHA.RX.dc.date
rx.dc.date.and.time 13 FREE L VAL=@PHA.RX.dc.date.and.time
rx.dc.date.time 13 FREE L VAL=@PHA.RX.dc.date.time
rx.dc.seconds 9 PINT R VAL=@PHA.RX.dc.seconds
rx.dc.time 4 HHMM L VAL=@PHA.RX.dc.time
rx.deactivate.date 8 DATE L VAL=@PHA.RX.deactivate.date
rx.deactivate.seconds 9 PINT R VAL=@PHA.RX.deactivate.seconds
rx.deactivate.time 4 HHMM L VAL=@PHA.RX.deactivate.time
rx.deactivate.user 10 FREE L MIS.USER VAL=@PHA.RX.deactivate.user
rx.disp.date.time 13 FREE L
rx.duration.days 4 INT R VAL=@PHA.RX.duration.days
rx.duration.hours 4 INT R VAL=@PHA.RX.duration.hours
rx.enter.date 8 DATE L VAL=@PHA.RX.enter.date
rx.enter.date.and.time 13 FREE L VAL=@PHA.RX.enter.date.and.time
rx.enter.date.time 13 FREE L VAL=@PHA.RX.enter.date_._@PHA.RX.enter.time
rx.enter.time 4 HHMM L VAL=@PHA.RX.enter.time
rx.enter.user 10 FREE L MIS.USER VAL=@PHA.RX.enter.user
rx.expiration.date 8 DATE L VAL=@PHA.RX.expiration.date
rx.id 30 URN L PHA.RX VAL=@PHA.RX.number
rx.inventory 10 FREE L MM.INVENT VAL=@PHA.RX.inventory
rx.last.edit.date 8 DATE L VAL=@PHA.RX.last.edit.date
rx.last.edit.time 4 HHMM L VAL=@PHA.RX.last.edit.time
rx.last.edit.user 10 FREE L MIS.USER VAL=@PHA.RX.last.edit.user
rx.lot 20 FREE L VAL=@PHA.RX.lot
rx.mar 20 FREE L VAL=@PHA.RX.number
rx.med 10 FREE L PHA.DRUG VAL=@PHA.RX.med
rx.number 11 FREE L VAL=@PHA.RX.number
rx.number.stripped 9 FREE L VAL=@PHA.RX.number.stripped
rx.order.site 10 FREE L PHA.SITE VAL=@PHA.RX.order.site
rx.order.type 10 FREE L PHA.OT VAL=@PHA.RX.order.type
rx.patient 30 FREE L PHA.PAT VAL=@PHA.RX.patient
rx.patient.type 3 FREE L VAL=@PHA.RX.patient.type
rx.physician 10 FREE L MIS.DOC.DICT VAL=@PHA.RX.physician
rx.prn.reason 10 FREE L PHA.PR VAL=@PHA.RX.prn.reason
rx.prn.reason.category 10 FREE L PHA.PR.CAT VAL=IF{@PHA.RX.prn.reason's.category;".UNK"}
rx.reactivate.date 8 DATE L VAL=@PHA.RX.reactivate.date
rx.reactivate.seconds 9 PINT R VAL=@PHA.RX.reactivate.seconds
rx.reactivate.time 4 HHMM L VAL=@PHA.RX.reactivate.time
rx.refill.date.time 13 FREE L
rx.refill.frequency 4 FREE L VAL=@PHA.RX.refill.frequency
rx.route 10 FREE L PHA.ROUTES VAL=@PHA.RX.route
rx.sch 3 FREE L VAL=@PHA.RX.schedule
rx.schedule 3 FREE L VAL=@PHA.RX.schedule
rx.sig 20 FREE L MIS.DIR VAL=@PHA.RX.sig
rx.sig.and.sch 24 FREE L VAL=@PHA.RX.sig.and.sch
rx.soft.stop 1 PINT R VAL=@PHA.RX.soft.stop
rx.start.date 8 DATE L VAL=@PHA.RX.start.date
rx.start.date.and.time 13 FREE L VAL=@PHA.RX.start.date.and.time
rx.start.date.so 4 FREE L VAL=@PHA.RX.start.date.so
rx.start.date.time 13 FREE L VAL=@PHA.RX.start.date.time
rx.start.seconds 9 PINT R VAL=@PHA.RX.start.seconds
rx.start.time 4 HHMM L VAL=@PHA.RX.start.time
rx.status 3 FREE L VAL=@PHA.RX.status
rx.status.flag 4 FREE L VAL=@PHA.RX.status.flag
rx.stop.date 8 DATE L VAL=@PHA.RX.stop.date
rx.stop.date.and.time 13 FREE L VAL=@PHA.RX.stop.date.and.time
rx.stop.date.so 4 FREE L VAL=@PHA.RX.stop.date.so
rx.stop.date.time 13 FREE L VAL=@PHA.RX.stop.date.time
rx.stop.seconds 9 PINT R VAL=@PHA.RX.stop.seconds
rx.stop.time 4 HHMM L VAL=@PHA.RX.stop.time
rx.tech.rx.number 10 FREE L VAL=@PHA.RX.tech.rx.number
rx.total.doses 3 PINT R VAL=@PHA.RX.total.doses
rx.urn 10 URN L PHA.RX
section 10 FREE L PHA.MARS
section.q 3 PINT R
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
pha.mar.print.x [format,section.q,sort.key,rx,print.q]
print.x /TMARI[tdmf,tdmfQ,tmarK,tr,tmarP]
|
|
| |