PSSP203.m

PSSP203 ;EPIP/WLC - POST-INSTALLATION FOR PACKAGE--CHECKS EXISTENCE OF MAIL GROUP AND IF NOT CREATES IT ; 14 Aug 2017  3:03 PM

 ;;1.0;PHARMACY DATA MANAGEMENT;**203**;12/08/17;Build 14

 ;

EN ;

 N PSSMGPNM,PSSMGPOR,PSSMGPDS,PSSMGPRS,PSSMGPMY,PSSMGPNM,PSSMGPSL,PSSMGPQT,PSSMGPTP

 N DTOUT,DUOUT,Y

 K XPDABORT,PSSMGPAR

 ;If mail group already exists quit.

 I $$FIND1^DIC(3.8,"","X","PSS DEE AUDIT","B") Q

 S PSSMGPAR(1)="A 'PSS DEE AUDIT' Mail Group is now being created. Mail Group members will"

 S PSSMGPAR(2)="receive notifications whenever there are modifications performed"

 S PSSMGPAR(3)="on the DRUG (#50) file through PSS DRUG ENTER/EDIT option."

 S PSSMGPAR(4)="Please 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: "

 ;abort install if user does not enter a coordinator

 D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(+Y'>0) K PSSMGPAR S XPDABORT=2 Q

 S PSSMGPOR=+Y,PSSMGPMY(+Y)=""

 S PSSMGPNM="PSS DEE AUDIT",PSSMGPTP=0,PSSMGPSL=0,PSSMGPQT=1

 S PSSMGPDS(1)="Members of this mail group will receive notifications whenever there"

 S PSSMGPDS(2)="are modifications made to the DRUG (#50) file "

 S PSSMGPDS(3)="through the PSS DRUG ENTER/EDIT menu option."

 S PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)

 I 'PSSMGPRS D BMES^XPDUTL(" ") D  Q

 .D BMES^XPDUTL("Unable to create PSS DEE AUDIT Mail Group, aborting install.") S XPDABORT=2

 .K PSSMGPAR

 ;Last line above also aborts install if the call to MG^XMBGRP fails to create the Mail Group

 K PSSMGPAR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSP203   1770     printed  Apr 09, 2024@21:33:40                                                                                                                                                                                                     Page 2

PSSP203   ;EPIP/WLC - POST-INSTALLATION FOR PACKAGE--CHECKS EXISTENCE OF MAIL GROUP AND IF NOT CREATES IT ; 14 Aug 2017  3:03 PM

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**203**;12/08/17;Build 14

 +2       ;

EN        ;

 +1        NEW PSSMGPNM,PSSMGPOR,PSSMGPDS,PSSMGPRS,PSSMGPMY,PSSMGPNM,PSSMGPSL,PSSMGPQT,PSSMGPTP

 +2        NEW DTOUT,DUOUT,Y

 +3        KILL XPDABORT,PSSMGPAR

 +4       ;If mail group already exists quit.

 +5        IF $$FIND1^DIC(3.8,"","X","PSS DEE AUDIT","B")

               QUIT 

 +6        SET PSSMGPAR(1)="A 'PSS DEE AUDIT' Mail Group is now being created. Mail Group members will"

 +7        SET PSSMGPAR(2)="receive notifications whenever there are modifications performed"

 +8        SET PSSMGPAR(3)="on the DRUG (#50) file through PSS DRUG ENTER/EDIT option."

 +9        SET PSSMGPAR(4)="Please 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      ;abort install if user does not enter a coordinator

 +16       DO ^DIC

           KILL DIC

           IF $DATA(DTOUT)!($DATA(DUOUT))!(+Y'>0)

               KILL PSSMGPAR

               SET XPDABORT=2

               QUIT 

 +17       SET PSSMGPOR=+Y

           SET PSSMGPMY(+Y)=""

 +18       SET PSSMGPNM="PSS DEE AUDIT"

           SET PSSMGPTP=0

           SET PSSMGPSL=0

           SET PSSMGPQT=1

 +19       SET PSSMGPDS(1)="Members of this mail group will receive notifications whenever there"

 +20       SET PSSMGPDS(2)="are modifications made to the DRUG (#50) file "

 +21       SET PSSMGPDS(3)="through the PSS DRUG ENTER/EDIT menu option."

 +22       SET PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)

 +23       IF 'PSSMGPRS

               DO BMES^XPDUTL(" ")

               Begin DoDot:1

 +24               DO BMES^XPDUTL("Unable to create PSS DEE AUDIT Mail Group, aborting install.")

                   SET XPDABORT=2

 +25               KILL PSSMGPAR

               End DoDot:1

               QUIT 

 +26      ;Last line above also aborts install if the call to MG^XMBGRP fails to create the Mail Group

 +27       KILL PSSMGPAR

 +28       QUIT