source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESP116PT.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1ESP116PT ;ALB/MLI - Add a mailgroup for Q-VAP confirmations ; 23 Apr 96
2 ;;1.0;POLICE & SECURITY;**16**;Mar 31, 1994
3 ;
4 ; This post-installation routine will add the VAP mailgroup to
5 ; receive confirmation messages from Q-VAP.
6 ;
7EN ; begin processing
8 D MG
9 Q
10 ;
11MG ; add mail group
12 N DESC,XMY,X
13 ;
14 S X=$O(^XMB(3.8,"B","VAP",0))
15 I $D(^XMB(3.8,+X,0)) D BMES^XPDUTL(">>> Mailgroup already exists...nothing added") Q
16 ;
17 S XMY(DUZ)="" ; put person running this patch in group initially
18 S DESC(1)="This mail group was added for use in the Police and Security package."
19 S DESC(2)="It will receive confirmation messages from Q-VAP where the crime"
20 S DESC(3)="reports are sent."
21 ;
22 S X=$$MG^XMBGRP("VAP",0,0,0,.XMY,.DESC,1)
23 ;
24 I X D Q ; successful addition of mail group
25 . D BMES^XPDUTL(">>> VAP mail group added successfully!")
26 . D BMES^XPDUTL(">>> You have been added as a member of this mail group.")
27 . D MES^XPDUTL(" Please add members or remove yourself as appropriate.")
28 ;
29 I 'X D Q ; not successful...write message, instruct to try again
30 . D BMES^XPDUTL(">>> NOTE: Mail group not added!!!")
31 . D MES^XPDUTL(" ERROR: "_X)
32 . D MES^XPDUTL(" ")
33 . D MES^XPDUTL(" Please check your file and type D EN^ESP116PT to try again.")
34 Q
Note: See TracBrowser for help on using the repository browser.