PSB54P.m

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 ---PSB54P   1294     printed  Apr 09, 2024@20:44:57                                                                                                                                                                                                      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