Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSSP203

PSSP203.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. EN ;
  1. N PSSMGPNM,PSSMGPOR,PSSMGPDS,PSSMGPRS,PSSMGPMY,PSSMGPNM,PSSMGPSL,PSSMGPQT,PSSMGPTP
  1. N DTOUT,DUOUT,Y
  1. K XPDABORT,PSSMGPAR
  1. ;If mail group already exists quit.
  1. I $$FIND1^DIC(3.8,"","X","PSS DEE AUDIT","B") Q
  1. S PSSMGPAR(1)="A 'PSS DEE AUDIT' Mail Group is now being created. Mail Group members will"
  1. S PSSMGPAR(2)="receive notifications whenever there are modifications performed"
  1. S PSSMGPAR(3)="on the DRUG (#50) file through PSS DRUG ENTER/EDIT option."
  1. S PSSMGPAR(4)="Please enter the Pharmacy ADPAC or a designee to be the Mail Group Organizer."
  1. S PSSMGPAR(5)=" "
  1. S PSSMGPAR(6)="To continue this install, you must now enter a Mail Group organizer."
  1. S PSSMGPAR(7)=" "
  1. D MES^XPDUTL(.PSSMGPAR)
  1. K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Enter Mail Group Organizer: "
  1. ;abort install if user does not enter a coordinator
  1. D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(+Y'>0) K PSSMGPAR S XPDABORT=2 Q
  1. S PSSMGPOR=+Y,PSSMGPMY(+Y)=""
  1. S PSSMGPNM="PSS DEE AUDIT",PSSMGPTP=0,PSSMGPSL=0,PSSMGPQT=1
  1. S PSSMGPDS(1)="Members of this mail group will receive notifications whenever there"
  1. S PSSMGPDS(2)="are modifications made to the DRUG (#50) file "
  1. S PSSMGPDS(3)="through the PSS DRUG ENTER/EDIT menu option."
  1. S PSSMGPRS=$$MG^XMBGRP(PSSMGPNM,PSSMGPTP,PSSMGPOR,PSSMGPSL,.PSSMGPMY,.PSSMGPDS,PSSMGPQT)
  1. I 'PSSMGPRS D BMES^XPDUTL(" ") D Q
  1. .D BMES^XPDUTL("Unable to create PSS DEE AUDIT Mail Group, aborting install.") S XPDABORT=2
  1. .K PSSMGPAR
  1. ;Last line above also aborts install if the call to MG^XMBGRP fails to create the Mail Group
  1. K PSSMGPAR
  1. Q