MEDITECH.CUST.RPTS^North Country Regional Hospital^NCH^LIVE.MIS^HAB^20040910^B^npr free text med
@@VERSION:1
PHA.RX.zcus.hab.free.text.meds.email
@@PROC
PHA.RX.zcus.hab.free.text.meds.email
PHA.RXzcus.hab.free.text.meds.emailUYY @Inquiry Y   
@@MACRO
PHA.RX.zcus.hab.free.text.meds.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
@enter.user_" "_@enter.user's.name:15L_" Med:"_@med_"#:"_@number_"Dose:"_@dose_"   Sig:"_@sig_" pt:"_@patient's.name^/TEMP[/CNTR],
5
1+/CNTR^/CNTR,
6
@special.instruction[1]_" "_@special.instruction[2]_" "_@special.instruction[3]^/TEMP[/CNTR],
7
1+/CNTR^/CNTR,
8
"-":80L^/TEMP[/CNTR]
@@MACRO
PHA.RX.zcus.hab.free.text.meds.email.M.init
0
;This initializes - starts process to email message:
1
"PHARMACY free text meds: Date: "_%Z.date.out(%Z.date.add(@.today,0-1))_"---PHA.RX.zcus.hab.free.text.meds.email---- "^/TEMP[1],
2
1^/CNTR
@@MACRO
PHA.RX.zcus.hab.free.text.meds.email.M.mail
0
IF{/R.FOUND %MIS.OA.MSG.auto("",Q(^/TEMP,"HAB","HAB")),
1
END;""}
@@RPT
Yzcus.hab.free.text.meds.emailPHA.RX mainpha.rx.zcus.hab.free.text.medsREG1292660 66pha.rx.fileYNNYNpha.rx.start.date.x 01  Y  
AT	734609963
HABE
AT	763751032
HABE
CI
  
F1
med  med10L
F1SE2
EQ"FREE TEXT"    "FREE TEXT" 
F2
number  number11L
F3
patient's.name  patient's.name30L
F4
special.instruction  special.instruction60L
F4CLEN
35
F5
countZ count5R
F6
xx.title  xx.title2L
F6CDAT
FREE
F6CJFY
L
F6CLEN
60
F6CVAL
/R.NEW.PAGE.PGM
FS1

start.date 
FS1SE1
GE(%Z.date.add(@.today,0-1))    (%Z.date.add(@.today,0-1)) 
FI10
101
FI111
112
FI123
303
FI154
354
FI254
354
FI47
55
FI50
606
I1
start.date.x 
L1
D  
L2
D  
L3
D  
L3CHL
1
L4
TP  
L5
TP  
L6
TP 
N1
AL START PHA.RX.zcus.hab.free.text.meds.email.M.init
N2
AL D PHA.RX.zcus.hab.free.text.meds.email.M.build.temp
N3
AL CLOSE.UP PHA.RX.zcus.hab.free.text.meds.email.M.mail
P1
med_______ number_____ patient's.name________________ special.instruction________________
P2
                                                      special.instruction________________
P3
 
P4
Count: count
P5
xx.title____________________________________________________
P6
 
T1

start.date NONEN   ASC
T2
urn NONEN   ASC
U	773201760
HABLIVE.MIS
U	773288168
HABLIVE.MIS
U	773374538
HABLIVE.MIS
U	773460937
HABLIVE.MIS
U	773547344
HABLIVE.MIS
U	773633721
HABLIVE.MIS
U	773720153
HABLIVE.MIS
U	773806524
HABLIVE.MIS
U	773892936
HABLIVE.MIS
U	774094407
HABLIVE.MIS
@@SCRN
Yzcus.hab.free.text.meds.emailPHA.RX$PHA.RX.zcus.hab.free.text.meds.email2N     N     
CS
4648 
P1
pha.rx.zcus.hab.free.text.meds%Z.on.device