PSB54P ;MNT/BJR - PSB*3*54 POST INSTALL; 7 April 2010 11:36 AM ; 9/5/13 9:37am
;;3.0;BAR CODE MED ADMIN;**54**;Mar 2004;Build 40
;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
;
Q
PSTINSTL ;PSB*3*54 POST INSTALL ROUTINE
N PSBMG,XMDUZ,XMSUB,XMTEXT,PSBUNMG,PSBMEMB,XMY,PSBMES
S PSBMG=$$GET^XPAR("DIV","PSB MG ADMIN ERROR",,"E") Q:PSBMG=""
S PSBMEMB=$$GOTLOCAL^XMXAPIG(PSBMG)
I PSBMEMB=0 D
.S PSBMES="*****PSB*3.0*54 has been installed and found that the UNKNOWN ACTIONS Mailgroup" D Q
..D BMES^XPDUTL(PSBMES)
..S PSBMES="listed in the BCMA PARAMETERS GUI has no active members. Please contact your"
..D MES^XPDUTL(PSBMES)
..S PSBMES="local BCMA Coordinator to add active members to this mailgroup.*****"
..D MES^XPDUTL(PSBMES)
..S XMSUB="NO ACTIVE MEMBERS IN UNKNOWN ACTIONS MAILGROUP"
..S XMDUZ=DUZ
..S XMTEXT="PSBUNMG"
..S XMY(DUZ)=""
..S PSBUNMG(1)="PSB*3.0*54 has been installed and found that the"
..S PSBUNMG(2)="UNKNOWN ACTIONS Mailgroup listed in the BCMA"
..S PSBUNMG(3)="PARAMETERS GUI has no active members. Please contact"
..S PSBUNMG(4)="your local BCMA Coordinator to add active members to"
..S PSBUNMG(5)="this mailgroup."
..D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB54P 1294 printed Dec 13, 2024@01:39:54 Page 2
PSB54P ;MNT/BJR - PSB*3*54 POST INSTALL; 7 April 2010 11:36 AM ; 9/5/13 9:37am
+1 ;;3.0;BAR CODE MED ADMIN;**54**;Mar 2004;Build 40
+2 ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
+3 ;
+4 QUIT
PSTINSTL ;PSB*3*54 POST INSTALL ROUTINE
+1 NEW PSBMG,XMDUZ,XMSUB,XMTEXT,PSBUNMG,PSBMEMB,XMY,PSBMES
+2 SET PSBMG=$$GET^XPAR("DIV","PSB MG ADMIN ERROR",,"E")
if PSBMG=""
QUIT
+3 SET PSBMEMB=$$GOTLOCAL^XMXAPIG(PSBMG)
+4 IF PSBMEMB=0
Begin DoDot:1
+5 SET PSBMES="*****PSB*3.0*54 has been installed and found that the UNKNOWN ACTIONS Mailgroup"
Begin DoDot:2
+6 DO BMES^XPDUTL(PSBMES)
+7 SET PSBMES="listed in the BCMA PARAMETERS GUI has no active members. Please contact your"
+8 DO MES^XPDUTL(PSBMES)
+9 SET PSBMES="local BCMA Coordinator to add active members to this mailgroup.*****"
+10 DO MES^XPDUTL(PSBMES)
+11 SET XMSUB="NO ACTIVE MEMBERS IN UNKNOWN ACTIONS MAILGROUP"
+12 SET XMDUZ=DUZ
+13 SET XMTEXT="PSBUNMG"
+14 SET XMY(DUZ)=""
+15 SET PSBUNMG(1)="PSB*3.0*54 has been installed and found that the"
+16 SET PSBUNMG(2)="UNKNOWN ACTIONS Mailgroup listed in the BCMA"
+17 SET PSBUNMG(3)="PARAMETERS GUI has no active members. Please contact"
+18 SET PSBUNMG(4)="your local BCMA Coordinator to add active members to"
+19 SET PSBUNMG(5)="this mailgroup."
+20 DO SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY)
End DoDot:2
QUIT
End DoDot:1
+21 QUIT
