PSSHRENV ;WOIFO/RR,SG - ENVIRONMENT CHECK FOR PACKAGE--CHECKS EXISTANCE OF MAIL GROUP AND IF NOT CREATES IT ;09/20/07
;;1.0;PHARMACY DATA MANAGEMENT;**136**;9/30/97;Build 89
;
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 ORDER CHECKS","B") Q
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: "
;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 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 Q
.D BMES^XPDUTL("Unable to create PSS ORDER CHECKS 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 ---[H[J[2J[HPSSHRENV 1846 printed Dec 13, 2024@02:31:48 Page 2
PSSHRENV ;WOIFO/RR,SG - ENVIRONMENT CHECK FOR PACKAGE--CHECKS EXISTANCE OF MAIL GROUP AND IF NOT CREATES IT ;09/20/07
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**136**;9/30/97;Build 89
+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 ORDER CHECKS","B")
QUIT
+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 ;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 ORDER CHECKS"
SET PSSMGPTP=0
SET PSSMGPSL=0
SET PSSMGPQT=1
+19 SET PSSMGPDS(1)="Members of this mail group will receive various notifications that impact"
+20 SET PSSMGPDS(2)="Enhanced Order Checks (drug-drug interactions, duplicate therapy and dosing"
+21 SET PSSMGPDS(3)="checks) introduced with PRE V. 0.5 utilizing a COTS database."
+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 ORDER CHECKS 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
