ESP116PT.m

ESP116PT ;ALB/MLI - Add a mailgroup for Q-VAP confirmations ; 23 Apr 96

 ;;1.0;POLICE & SECURITY;**16**;Mar 31, 1994

 ;

 ; This post-installation routine will add the VAP mailgroup to

 ; receive confirmation messages from Q-VAP.

 ;

EN ; begin processing

 D MG

 Q

 ;

MG ; add mail group

 N DESC,XMY,X

 ;

 S X=$O(^XMB(3.8,"B","VAP",0))

 I $D(^XMB(3.8,+X,0)) D BMES^XPDUTL(">>> Mailgroup already exists...nothing added") Q

 ;

 S XMY(DUZ)="" ; put person running this patch in group initially

 S DESC(1)="This mail group was added for use in the Police and Security package."

 S DESC(2)="It will receive confirmation messages from Q-VAP where the crime"

 S DESC(3)="reports are sent."

 ;

 S X=$$MG^XMBGRP("VAP",0,0,0,.XMY,.DESC,1)

 ;

 I X D  Q  ; successful addition of mail group

 . D BMES^XPDUTL(">>> VAP mail group added successfully!")

 . D BMES^XPDUTL(">>> You have been added as a member of this mail group.")

 . D MES^XPDUTL("    Please add members or remove yourself as appropriate.")

 ;

 I 'X  D  Q  ; not successful...write message, instruct to try again

 . D BMES^XPDUTL(">>> NOTE:   Mail group not added!!!")

 . D MES^XPDUTL("    ERROR:  "_X)

 . D MES^XPDUTL("   ")

 . D MES^XPDUTL("    Please check your file and type D EN^ESP116PT to try again.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESP116PT   1294     printed  Apr 09, 2024@21:33:11                                                                                                                                                                                                    Page 2

ESP116PT  ;ALB/MLI - Add a mailgroup for Q-VAP confirmations ; 23 Apr 96

 +1       ;;1.0;POLICE & SECURITY;**16**;Mar 31, 1994

 +2       ;

 +3       ; This post-installation routine will add the VAP mailgroup to

 +4       ; receive confirmation messages from Q-VAP.

 +5       ;

EN        ; begin processing

 +1        DO MG

 +2        QUIT 

 +3       ;

MG        ; add mail group

 +1        NEW DESC,XMY,X

 +2       ;

 +3        SET X=$ORDER(^XMB(3.8,"B","VAP",0))

 +4        IF $DATA(^XMB(3.8,+X,0))

               DO BMES^XPDUTL(">>> Mailgroup already exists...nothing added")

               QUIT 

 +5       ;

 +6       ; put person running this patch in group initially

           SET XMY(DUZ)=""

 +7        SET DESC(1)="This mail group was added for use in the Police and Security package."

 +8        SET DESC(2)="It will receive confirmation messages from Q-VAP where the crime"

 +9        SET DESC(3)="reports are sent."

 +10      ;

 +11       SET X=$$MG^XMBGRP("VAP",0,0,0,.XMY,.DESC,1)

 +12      ;

 +13      ; successful addition of mail group

           IF X

               Begin DoDot:1

 +14               DO BMES^XPDUTL(">>> VAP mail group added successfully!")

 +15               DO BMES^XPDUTL(">>> You have been added as a member of this mail group.")

 +16               DO MES^XPDUTL("    Please add members or remove yourself as appropriate.")

               End DoDot:1

               QUIT 

 +17      ;

 +18      ; not successful...write message, instruct to try again

           IF 'X

               Begin DoDot:1

 +19               DO BMES^XPDUTL(">>> NOTE:   Mail group not added!!!")

 +20               DO MES^XPDUTL("    ERROR:  "_X)

 +21               DO MES^XPDUTL("   ")

 +22               DO MES^XPDUTL("    Please check your file and type D EN^ESP116PT to try again.")

               End DoDot:1

               QUIT 

 +23       QUIT