PSS147EN.m

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 ---PSS147EN   1993     printed  Apr 09, 2024@21:36:21                                                                                                                                                                                                    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