- 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 ---[H[J[2J[HESP116PT 1294 printed Jan 18, 2025@03:30:36 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