PSS147EN ;BIR/RTR-Environment check routine for patch PSS*1*147 ;07/17/09
;;1.0;PHARMACY DATA MANAGEMENT;**147**;9/30/97;Build 16
;
Q:'$G(XPDENV)
;
;
EN ;
N X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIC,DA,DLAYGO
N PSSMGPAR,PSSMGPOR,PSSMGPMY,PSSMGPNM,PSSMGPDS,PSSMGPRS,PSSMGPQT,PSSMGPTP,PSSMGPSL
S @XPDGREF@("PSS147IN","INSTALL")=0 I $$PATCH^XPDUTL("PSS*1.0*147") S @XPDGREF@("PSS147IN","INSTALL")=1
I $$FIND1^DIC(3.8,"","X","PSS ORDER CHECKS","B") D KTM G REC
D KTM K PSSMGPAR
S PSSMGPAR(1)="A 'PSS ORDER CHECKS' Mail Group is now being created. Mail Group members will"
S PSSMGPAR(2)="receive various notifications that impact Enhanced Order Checks (drug-drug"
S PSSMGPAR(3)="interactions, duplicate therapy and dosing) introduced with PRE V. 0.5. Please"
S PSSMGPAR(4)="enter the Pharmacy ADPAC or a designee to be the Mail Group Organizer."
S PSSMGPAR(5)=" "
S PSSMGPAR(6)="To continue this install, you must now enter a Mail Group organizer."
S PSSMGPAR(7)=" "
D MES^XPDUTL(.PSSMGPAR)
K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Enter Mail Group Organizer: "
D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(+Y'>0) S XPDABORT=2 Q
S PSSMGPOR=+Y,PSSMGPMY(+Y)=""
S PSSMGPNM="PSS ORDER CHECKS",PSSMGPTP=0,PSSMGPSL=0,PSSMGPQT=1
S PSSMGPDS(1)="Members of this mail group will receive various notifications that impact"
S PSSMGPDS(2)="Enhanced Order Checks (drug-drug interactions, duplicate therapy and dosing"
S PSSMGPDS(3)="checks) introduced with PRE V. 0.5 utilizing a COTS database."
S PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)
I 'PSSMGPRS D BMES^XPDUTL(" ") D BMES^XPDUTL("Unable to create PSS ORDER CHECKS Mail Group, aborting install.") S XPDABORT=2 Q
D BMES^XPDUTL("PSS ORDER CHECKS Mail Group successfully created.")
;
;
;
REC ;Set up mail message recipients
S @XPDGREF@("PSS147DZ",DUZ)=""
S @XPDGREF@("PSS147DZ","G.PSS ORDER CHECKS")=""
Q
;
;
KTM ;Kill TMP global
K ^TMP("DIERR",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS147EN 1993 printed Dec 13, 2024@02:29:11 Page 2
PSS147EN ;BIR/RTR-Environment check routine for patch PSS*1*147 ;07/17/09
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**147**;9/30/97;Build 16
+2 ;
+3 if '$GET(XPDENV)
QUIT
+4 ;
+5 ;
EN ;
+1 NEW X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DIC,DA,DLAYGO
+2 NEW PSSMGPAR,PSSMGPOR,PSSMGPMY,PSSMGPNM,PSSMGPDS,PSSMGPRS,PSSMGPQT,PSSMGPTP,PSSMGPSL
+3 SET @XPDGREF@("PSS147IN","INSTALL")=0
IF $$PATCH^XPDUTL("PSS*1.0*147")
SET @XPDGREF@("PSS147IN","INSTALL")=1
+4 IF $$FIND1^DIC(3.8,"","X","PSS ORDER CHECKS","B")
DO KTM
GOTO REC
+5 DO KTM
KILL PSSMGPAR
+6 SET PSSMGPAR(1)="A 'PSS ORDER CHECKS' Mail Group is now being created. Mail Group members will"
+7 SET PSSMGPAR(2)="receive various notifications that impact Enhanced Order Checks (drug-drug"
+8 SET PSSMGPAR(3)="interactions, duplicate therapy and dosing) introduced with PRE V. 0.5. Please"
+9 SET PSSMGPAR(4)="enter the Pharmacy ADPAC or a designee to be the Mail Group Organizer."
+10 SET PSSMGPAR(5)=" "
+11 SET PSSMGPAR(6)="To continue this install, you must now enter a Mail Group organizer."
+12 SET PSSMGPAR(7)=" "
+13 DO MES^XPDUTL(.PSSMGPAR)
+14 KILL DIC
SET DIC=200
SET DIC(0)="QEAMZ"
SET DIC("A")="Enter Mail Group Organizer: "
+15 DO ^DIC
KILL DIC
IF $DATA(DTOUT)!($DATA(DUOUT))!(+Y'>0)
SET XPDABORT=2
QUIT
+16 SET PSSMGPOR=+Y
SET PSSMGPMY(+Y)=""
+17 SET PSSMGPNM="PSS ORDER CHECKS"
SET PSSMGPTP=0
SET PSSMGPSL=0
SET PSSMGPQT=1
+18 SET PSSMGPDS(1)="Members of this mail group will receive various notifications that impact"
+19 SET PSSMGPDS(2)="Enhanced Order Checks (drug-drug interactions, duplicate therapy and dosing"
+20 SET PSSMGPDS(3)="checks) introduced with PRE V. 0.5 utilizing a COTS database."
+21 SET PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)
+22 IF 'PSSMGPRS
DO BMES^XPDUTL(" ")
DO BMES^XPDUTL("Unable to create PSS ORDER CHECKS Mail Group, aborting install.")
SET XPDABORT=2
QUIT
+23 DO BMES^XPDUTL("PSS ORDER CHECKS Mail Group successfully created.")
+24 ;
+25 ;
+26 ;
REC ;Set up mail message recipients
+1 SET @XPDGREF@("PSS147DZ",DUZ)=""
+2 SET @XPDGREF@("PSS147DZ","G.PSS ORDER CHECKS")=""
+3 QUIT
+4 ;
+5 ;
KTM ;Kill TMP global
+1 KILL ^TMP("DIERR",$JOB)
+2 QUIT
