Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ESP116PT

ESP116PT.m

Go to the documentation of this file.
  1. ESP116PT ;ALB/MLI - Add a mailgroup for Q-VAP confirmations ; 23 Apr 96
  1. ;;1.0;POLICE & SECURITY;**16**;Mar 31, 1994
  1. ;
  1. ; This post-installation routine will add the VAP mailgroup to
  1. ; receive confirmation messages from Q-VAP.
  1. ;
  1. EN ; begin processing
  1. D MG
  1. Q
  1. ;
  1. MG ; add mail group
  1. N DESC,XMY,X
  1. ;
  1. S X=$O(^XMB(3.8,"B","VAP",0))
  1. I $D(^XMB(3.8,+X,0)) D BMES^XPDUTL(">>> Mailgroup already exists...nothing added") Q
  1. ;
  1. S XMY(DUZ)="" ; put person running this patch in group initially
  1. S DESC(1)="This mail group was added for use in the Police and Security package."
  1. S DESC(2)="It will receive confirmation messages from Q-VAP where the crime"
  1. S DESC(3)="reports are sent."
  1. ;
  1. S X=$$MG^XMBGRP("VAP",0,0,0,.XMY,.DESC,1)
  1. ;
  1. I X D Q ; successful addition of mail group
  1. . D BMES^XPDUTL(">>> VAP mail group added successfully!")
  1. . D BMES^XPDUTL(">>> You have been added as a member of this mail group.")
  1. . D MES^XPDUTL(" Please add members or remove yourself as appropriate.")
  1. ;
  1. I 'X D Q ; not successful...write message, instruct to try again
  1. . D BMES^XPDUTL(">>> NOTE: Mail group not added!!!")
  1. . D MES^XPDUTL(" ERROR: "_X)
  1. . D MES^XPDUTL(" ")
  1. . D MES^XPDUTL(" Please check your file and type D EN^ESP116PT to try again.")
  1. Q