- 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 Apr 23, 2025@18:45:49 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
