| [613] | 1 | ESP116PT ;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 | ;
|
|---|
| 7 | EN ; begin processing
|
|---|
| 8 | D MG
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | MG ; 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
|
|---|
