MEDITECH.CUST.RPTS^North Country Regional Hospital^NCH^LIVE.MIS^HAB^20040910^B^RXM FREE TEXT  - EMAIL
@@VERSION:1
RXM.RX.zcus.hab.freetext.rxs.email
@@PROC
RXM.RX.zcus.hab.freetext.rxs.email
RXM.RXzcus.hab.freetext.rxs.emailUYY @Report Y   
@@MACRO
RXM.RX.zcus.hab.freetext.rxs.email.M.build.temp
0
;called at detail line AL D
1
;this creates the actual emailed document. What is on page 3 of report has nothing t
2
;to do with what is actually emailed.
3
1+/CNTR^/CNTR,
4
"Renewed from: "_@renewed.from^/TEMP[/CNTR],
5
1+/CNTR^/CNTR,
6
"Med:"_@med_" Str:"_@free.text.strength_"  Dose:"_@dose_"   Sig:"_@sig_"  QTY:"_@qty_" by:"_@issued.by's.name:15L_"  Pat:"_@MRI.PAT.name[@mri.urn]^/TEMP[/CNTR],
7
1+/CNTR^/CNTR,
8
@instruction[1]_" "_@instruction[2]_" "_@instruction[3]^/TEMP[/CNTR],
9
1+/CNTR^/CNTR,
10
"============================================================================="^/TEMP[/CNTR]
@@MACRO
RXM.RX.zcus.hab.freetext.rxs.email.M.init
0
;This initializes - starts process to email message:
1
"RXM Free text meds: Date: "_%Z.date.out(%Z.date.add(@.today,0-1))_"  ------------------ "^/TEMP[1],
2
1^/CNTR,
3
1+/CNTR^/CNTR,
4
"======================================================================================"^/TEMP[/CNTR]
@@MACRO
RXM.RX.zcus.hab.freetext.rxs.email.M.mail
0
IF{/R.FOUND %MIS.OA.MSG.auto("",Q(^/TEMP,"HAB","HAB")),
1
END;""}
@@RPT
Yzcus.hab.freetext.rxs.emailRXM.RX main"RXM.RX.zcus.hab.freetext.rxs.emailREG12130660 66rxm.medicationsNNNYNrxm.med.entered.date.index 01  Y  
AT	734564499
HABE
AT	734613647
HABE
CI
  
F1
med  med20L
F2
free.text.strength  
free.text.30L
F2CLEN
10
F3
med's.active  m1L
F3SE2
NE"Y"    "Y" 
F4
sig  sig20L
F5

entered.by  
entered.by10L
F6
qty  qty4R
F7
	issued.by  	issued.by10L
F8
provider  provider10L
F9
xx.name  xx.name2L
F9CDAT
FREE
F9CJFY
L
F9CLEN
30
F9CVAL
@MRI.PAT.name[@mri.urn]
F10
xx.instruction  xx.instruction2L
F10CDAT
FREE
F10CJFY
L
F10CLEN
48
F10CVAL
@instruction[1]
F11
xx.instruction.2  xx.instruction.22L
F11CDAT
FREE
F11CJFY
L
F11CLEN
48
F11CVAL
@instruction[2]
F12
xx.instruction.3  xx.instruction.32L
F12CDAT
FREE
F12CJFY
L
F12CLEN
48
F12CVAL
@instruction[3]
FS1
entered.date 
FS1SE1
EQ(%Z.date.add(@.today,0-1))    (%Z.date.add(@.today,0-1)) 
FS2

med's.name 
FS2SE3
EQ""    "" 
FI10
201
FI122
102
FI136
13
FI139
104
FI150
105
FI166
46
FI176
107
FI188
108
FI1100
309
FI23
4810
FI33
4811
FI43
4812
I1
date.x 
L1
D  
L2
D  
L3
D  
L3CLC
@instruction[2]
L4
D  
L4CLC
@instruction[3]
L5
D 
L5CHL
1
N1
AL START RXM.RX.zcus.hab.freetext.rxs.email.M.init
N2
AL D RXM.RX.zcus.hab.freetext.rxs.email.M.build.temp
N3
AL CLOSE.UP RXM.RX.zcus.hab.freetext.rxs.email.M.mail
P1
med_________________  free.text.    m  sig_______ entered.by      _qty  ss: issued.by_  provider__  xx.name_______________________
P2
   xx.instruction__________________________________
P3
   xx.instruction.2________________________________
P4
   xx.instruction.3________________________________
P5
 
T1
entered.date NONEN   ASC
T2
urn NONEN   ASC
U	773201454
HABLIVE.MIS
U	773287862
HABLIVE.MIS
U	773374232
HABLIVE.MIS
U	773460633
HABLIVE.MIS
U	773547039
HABLIVE.MIS
U	773633415
HABLIVE.MIS
U	773719847
HABLIVE.MIS
U	773806219
HABLIVE.MIS
U	773892630
HABLIVE.MIS
U	774094311
HABLIVE.MIS
@@SCRN
Yzcus.hab.freetext.rxs.emailRXM.RX"RXM.RX.zcus.hab.freetext.rxs.email2N     N     
CS
4648 
P1
"RXM.RX.zcus.hab.freetext.rxs.email%Z.on.device