MEDITECH.CUST.RPTS^North Country Regional Hospital^NCH^LIVE.MIS^HAB^20070111^B^
@@VERSION:1
ADM.PAT.zcus.hab.frag.rule.ccdqr.resp
PHA.RX.zcus.hab.frag.rule.edm.dup.mnem
PHA.RX.zcus.hab.frag.rule.edm.dup.order
PHA.RX.zcus.hab.rule.label.comment.1.4
PHA.RX.zcus.hab.rule.label.comment.rem.dose
PHA.RX.zcus.hab.rule.start.1700.stop.2300
PHA.RX.zcus.hab.rule.stop.2300
@@PROC
ADM.PAT.zcus.hab.frag.rule.ccdqr.resp
ADM.PATzcus.hab.frag.rule.ccdqr.respUYY @Inquiry Y
@@MACRO
ADM.PAT.zcus.hab.frag.rule.ccdqr.resp.M.detail
0
IF{@ccdqr.query="NURFLU" @ccdqr.response^/R.FRAG.VAL["NURFLU"],
1
("Last updated: "_%Z.date.out(@ccdqr.date)_" - "_@ccdqr.time)^/R.FRAG.VAL["NURFLUD"]},
2
IF{@ccdqr.query="NURPNEU" @ccdqr.response^/R.FRAG.VAL["NURPNEU"],
3
("Last updated: "_%Z.date.out(@ccdqr.date)_" - "_@ccdqr.time)^/R.FRAG.VAL["NURPNEUD"]},
4
IF{@ccdqr.query="NURPNEU2" @ccdqr.response^/R.FRAG.VAL["NURPNEU2"],
5
("Last updated: "_%Z.date.out(@ccdqr.date)_" - "_@ccdqr.time)^/R.FRAG.VAL["NURPNEU2D"]}
@@RPT
Yzcus.hab.frag.rule.ccdqr.respADM.PAT ccdqr/in pha.rule-by pha.rx.zcus.hab.rule.dup.mne.mriREG1292660 66clinical.cus.defined.queriesNNNYN  01 1Y 
AT	844166318
HABE
CI
  
F1
ccdqr.query  
ccdqr.quer10L
F2
ccdqr.response  ccdqr.response30L
F3
xx.keep  x2R
F3CDAT
PINT
F3CJFY
R
F3CLEN
1
F3CVAL
IF{@ccdqr.query^QRY="NURFLU" 1;QRY="NURPNEU" 1;QRY="NURPNEU2" 1}
F3CLVAL1
47
F3CLVAL2
17
F3SE2
EQ1    1 
FS1
ccdqr.patient 
FS1SE1
EQ/PATIENT    /PATIENT 
FI10
101
FI134
302
L1
D
L1CLC
""
N1
AL D detail
P1
ccdqr.quer                        ccdqr.response________________
T1
ccdqr.patient NONEN   ASC
T2
ccdqr.query NONEN   ASC
U	847561840
SRCLIVE.MIS
U	847562318
JLOLIVE.MIS
U	847571402
JLOLIVE.MIS
U	847608241
JRGLIVE.MIS
U	847617079
CESLIVE.MIS
U	847702404
CJCLIVE.MIS
U	847702437
MKK2LIVE.MIS
U	847722675
CESLIVE.MIS
U	847722694
CESLIVE.MIS
U	847781190
JRGLIVE.MIS
@@SCRN
Yzcus.hab.frag.rule.ccdqr.respADM.PAT%ADM.PAT.zcus.hab.frag.rule.ccdqr.resp2N     N
CS
4648 
P1
/in pha.rule-by pha.rx.zcus.hab.rule.dup.mne.mri%Z.on.device
@@PROC
PHA.RX.zcus.hab.frag.rule.edm.dup.mnem
PHA.RXzcus.hab.frag.rule.edm.dup.mnemUYY @Inquiry Y   
@@MACRO
PHA.RX.zcus.hab.frag.rule.edm.dup.mnem.M.meds
0
;
1
;CHECK.IF.RX.HAS.THE.GENERIC
2
;
3
""^HAS,
4
@GET.RX.MEDS,
5
""^MED,
6
DO{@NEXT.MED IF{MED=/ZRPT.MED @DISPLAY},
7
""^/ZRPT.MEDS[MED]}
8

9
NEXT.MED
10
+/ZRPT.MEDS[MED]^MED
11

12
GET.RX.MEDS
13
%PHA.RX.compile.med.array(urn,^/ZRPT.MEDS)X
14

15
DISPLAY
16
(@med_" ordered by "_@MIS.USER.name[@enter.user]_" ("_@MIS.USER.office[@enter.user]_") on "_@enter.date.and.time)^/MED
@@MACRO
PHA.RX.zcus.hab.frag.rule.edm.dup.mnem.M.setup.msg
0
;note; the NONE IS In report. If not there, system crashes. With win init- must display
1
;something
2
;this sets the message for the rule to display
3
IF{/MED (/MED)^@NEXT.SAVED.LINE,
4
("Please DEBITING med instead of reentering")^@NEXT.SAVED.LINE,""^/MED;@NONE}
5

6
NONE
7
("This specific mnemonic is not already entered on this ER patient - OK to continue")^@NEXT.SAVED.LINE
8

9
NEXT.SAVED.LINE
10
/RX.WIN[-/RX.WIN[""]+1]
@@RPT
Yzcus.hab.frag.rule.edm.dup.mnemPHA.RX main&PHA.RX.zcus.hab.frag.rule.edm.dup.mnemREG1292660 66pha.rx.fileNNNYNpha.rx.patient.rx.index 01  Y  
AT	754416428
HABE
AT	760199732
HABE
AT	760785307
HABC$PHA.RX.zcus.hab.frag.test.rule.input
AT	843993089
HABC%PHA.RX.zcus.hab.frag.rule.dup.mne.mri
CI
  
F1
med  med10L
F2
number  number11L
F3
patient's.name  patient's.name30L
F4
urn  urn10L
FS1
patient 
FS1SE1
EQ/patient    /patient 
FI10
101
FI114
112
FI126
303
FI160
104
I1
patient.rx.x 
L1
D
L1CLC
""
N1
AL CLOSE.UP setup.msg
N2
AL D meds
P1
med_______    number_____ patient's.name________________    urn_______
T1
patient NONEN   ASC
T2
status NONEN   ASC
T3

order.type NONEN   ASC
T4
number NONEN   ASC
T5
urn NONEN   ASC
U	847551798
MKK2LIVE.MIS
U	847553885
JLOLIVE.MIS
U	847557250
MKK2LIVE.MIS
U	847623468
DABLIVE.MIS
U	847623502
DABLIVE.MIS
U	847638155
JLP1LIVE.MIS
U	847638204
JLP1LIVE.MIS
U	847638223
JLP1LIVE.MIS
U	847744133
MWCLIVE.MIS
U	847744170
MWCLIVE.MIS
@@SCRN
Yzcus.hab.frag.rule.edm.dup.mnemPHA.RX&PHA.RX.zcus.hab.frag.rule.edm.dup.mnem2N     N     
CS
4648 
P1
&PHA.RX.zcus.hab.frag.rule.edm.dup.mnem%Z.on.device
@@PROC
PHA.RX.zcus.hab.frag.rule.edm.dup.order
PHA.RX zcus.hab.frag.rule.edm.dup.orderUYY @Inquiry Y   
@@MACRO
PHA.RX.zcus.hab.frag.rule.edm.dup.order.M.meds
0
;
1
;CHECK.IF.RX.HAS.THE.GENERIC
2
;
3
""^HAS,
4
@GET.RX.MEDS,
5
""^MED,
6
DO{@NEXT.MED IF{@PHA.DRUG.generic[MED]=/ZRPT.GENERIC @DISPLAY},
7
""^/ZRPT.MEDS[MED]}
8

9
NEXT.MED
10
+/ZRPT.MEDS[MED]^MED
11

12
GET.RX.MEDS
13
%PHA.RX.compile.med.array(urn,^/ZRPT.MEDS)X
14

15
DISPLAY
16
(@med_" ordered by "_@MIS.USER.name[@enter.user]_" ("_@MIS.USER.office[@enter.user]_") on "_@enter.date.and.time)^/MED
@@MACRO
PHA.RX.zcus.hab.frag.rule.edm.dup.order.M.setup.msg
0
;this sets the message for the rule to display
1
("This is a duplicate generic: ",@GENERIC.NAME," please see if can be debited ")^@NEXT.SAVED.LINE,
2
IF{/MED (/MED)^@NEXT.SAVED.LINE,
3
("If ordered by ER, please debit med!")^@NEXT.SAVED.LINE,""^/MED}
4

5
GENERIC.NAME
6
@PHA.GENERIC.name[/ZRPT.GENERIC]
7

8
NEXT.SAVED.LINE
9
/RX.WIN[-/RX.WIN[""]+1]
@@RPT
Y zcus.hab.frag.rule.edm.dup.orderPHA.RX mainPHA.RXREG1292660 66pha.rx.fileNNNYNpha.rx.patient.rx.index 01  Y  
AT	754407823
HABE
AT	754412418
HABC&PHA.RX.zcus.hab.frag.rule.edm.dup.mnem
AT	754415930
HABE
CI
  
F1
med  med10L
F2
number  number11L
F3
patient's.name  patient's.name30L
F4
urn  urn10L
FS1
patient 
FS1SE1
EQ/patient    /patient 
FI10
101
FI114
112
FI126
303
FI160
104
I1
patient.rx.x 
L1
D
L1CLC
""
N1
AL CLOSE.UP setup.msg
N2
AL D meds
P1
med_______    number_____ patient's.name________________    urn_______
T1
patient NONEN   ASC
T2
status NONEN   ASC
T3

order.type NONEN   ASC
T4
number NONEN   ASC
T5
urn NONEN   ASC
U	758996901
LCDLIVE.MIS
U	758997062
LCDLIVE.MIS
U	759083981
LCDLIVE.MIS
U	759114026
RSHLIVE.MIS
U	759135427
AMW1LIVE.MIS
U	759135998
HABLIVE.MIS
U	759136323
HABLIVE.MIS
U	759136536
HABLIVE.MIS
U	759136863
HABLIVE.MIS
U	759137122
HABLIVE.MIS
@@SCRN
Y zcus.hab.frag.rule.edm.dup.orderPHA.RX'PHA.RX.zcus.hab.frag.rule.edm.dup.order2N     N     
CS
4648 
P1
PHA.RX%Z.on.device
@@PROC
PHA.RX.zcus.hab.rule.label.comment.1.4
PHA.RXzcus.hab.rule.label.comment.1.4UYY @Inquiry Y
@@MACRO
PHA.RX.zcus.hab.rule.label.comment.1.4.M.ck
0
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^?;^/}^q,
1
@Chg.prefix(PHA.RX,?,[q]),
2
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^:;^/}^c,
3
@Chg.prefix(PHA.RX,:,[c]),
4
/patient^patient,/urn^urn,
5
/PHA.REF.urn^PHA.REF.urn,/med^med,@t.med.rule^med.rule,/txn.date^txn.date,/txn.q^txn.q,
6
/Z.INFO^LAB1,
7
IF{/TR[urn]CM[1]$5="*Dose" LAB1^/TR[urn]CM[1];
8
/TR[urn]CM[4]^/TR[urn]CM[5],/TR[urn]CM[3]^/TR[urn]CM[4],/TR[urn]CM[2]^/TR[urn]CM[3],
9
/TR[urn]CM[1]^/TR[urn]CM[2],
10
LAB1^/TR[urn]CM[1]},1;
@@RPT
Yzcus.hab.rule.label.comment.1.4PHA.RX  pha.rx.hab.rule.label.comment.1REG1292660 66 NNNNN  01 1Y  
AT	823963568
HABE
AT	829307308
HABC+PHA.RX.zcus.hab.rule.label.comment.rem.dose
CI
  
P1
 
@@SCRN
Yzcus.hab.rule.label.comment.1PHA.RX&PHA.RX.zcus.hab.rule.label.comment.1.42N     N     
CS
4648 
P1
pha.rx.hab.rule.label.comment.1%Z.on.device
@@PROC
PHA.RX.zcus.hab.rule.label.comment.rem.dose
PHA.RX$zcus.hab.rule.label.comment.rem.doseUYY @Inquiry Y
@@MACRO
PHA.RX.zcus.hab.rule.label.comment.rem.dose.M.ck
0
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^?;^/}^q,
1
@Chg.prefix(PHA.RX,?,[q]),
2
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^:;^/}^c,
3
@Chg.prefix(PHA.RX,:,[c]),
4
/patient^patient,/urn^urn,
5
/PHA.REF.urn^PHA.REF.urn,/med^med,@t.med.rule^med.rule,/txn.date^txn.date,/txn.q^txn.q,
6
""^/CDOSE,
7
/TR[urn]CM[1]^/CDOSE,/CDOSE$5^/CDOSE,
8
IF{"*Dose"'=/CDOSE 1;""^/TR[urn]CM[1]},1;
@@RPT
Y$zcus.hab.rule.label.comment.rem.dosePHA.RX  &pha.rx.hab.rule.label.comment.rem.doseREG1292660 66 NNNNN  01 1Y  
AT	829314660
HABE
CI
  
P1
 
@@SCRN
Y$zcus.hab.rule.label.comment.rem.dosePHA.RX+PHA.RX.zcus.hab.rule.label.comment.rem.dose2N     N     
CS
4648 
P1
&pha.rx.hab.rule.label.comment.rem.dose%Z.on.device
@@PROC
PHA.RX.zcus.hab.rule.start.1700.stop.2300
PHA.RX"zcus.hab.rule.start.1700.stop.2300UYY @Inquiry Y
@@MACRO
PHA.RX.zcus.hab.rule.start.1700.stop.2300.M.ck
0
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^?;^/}^q,
1
@Chg.prefix(PHA.RX,?,[q]),
2
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^:;^/}^c,
3
@Chg.prefix(PHA.RX,:,[c]),
4
/patient^patient,/urn^urn,
5
/PHA.REF.urn^PHA.REF.urn,/med^med,@t.med.rule^med.rule,/txn.date^txn.date,/txn.q^txn.q,
6
IF{@PHA.RX.start.date^TODAY=@.today 1700^/TR[urn]|15,2300^/TR[urn]|17},1;
@@RPT
Y"zcus.hab.rule.start.1700.stop.2300PHA.RX  pha.rx.zcus.hab.rule.start.1700REG1292660 66 NNNNN  01 1Y  
AT	841144366
HABE
CI
  
P1
 
@@SCRN
Y"zcus.hab.rule.start.1700.stop.2300PHA.RX)PHA.RX.zcus.hab.rule.start.1700.stop.23002N     N
CS
4648 
P1
pha.rx.zcus.hab.rule.start.1700%Z.on.device
@@PROC
PHA.RX.zcus.hab.rule.stop.2300
PHA.RXzcus.hab.rule.stop.2300UYY @Inquiry Y
@@MACRO
PHA.RX.zcus.hab.rule.stop.2300.M.ck
0
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^?;^/}^q,
1
@Chg.prefix(PHA.RX,?,[q]),
2
IF{/RULE.EVAL="REFILL"!(/RULE.EVAL="TXN") ^:;^/}^c,
3
@Chg.prefix(PHA.RX,:,[c]),
4
/patient^patient,/urn^urn,
5
/PHA.REF.urn^PHA.REF.urn,/med^med,@t.med.rule^med.rule,/txn.date^txn.date,/txn.q^txn.q,
6
IF{@PHA.RX.start.date^TODAY=@.today TODAY^/TR[urn]|16,2300^/TR[urn]|17},1;
@@RPT
Yzcus.hab.rule.stop.2300PHA.RX  pha.rx.zcus.hab.rule.stop.2300REG1292660 66 NNNNN  01 1Y  
AT	804609064
HABE
AT	841144342
HABCPHA.RX.zcus.hab.rule.start.1700
CI
  
P1
 
@@SCRN
Yzcus.hab.rule.stop.2300PHA.RXPHA.RX.zcus.hab.rule.stop.23002N     N     
CS
4648 
P1
pha.rx.zcus.hab.rule.stop.2300%Z.on.device