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

GMRA50P1.m

Go to the documentation of this file.
  1. GMRA50P1 ;VIP/WW - PATCH 50 POST INSTALL ; 19 Oct 2015
  1. ;;4.0;Adverse Reaction Tracking;**50**;Oct 19, 2015;Build 3
  1. ;
  1. ; This post-installation routine will add the mailgroup
  1. ; ADVERSE_ALLERGY_WARNING to receive Allergy/Adverse Reactions
  1. ; Without a VA Drug Class.
  1. ;
  1. POST ; Entry point. Check for existance and create if not there.
  1. ;
  1. N FIND,MG
  1. ;
  1. S MG="ADVERSE_ALLERGY_WARNING"
  1. S FIND=$$FIND1^DIC(3.8,"","",MG)
  1. ;
  1. I FIND D Q
  1. .D BMES^XPDUTL(">>> Mail group "_MG_" already exists...nothing added")
  1. ;
  1. S FIND=$$MG^XMBGRP(MG,0,0,1,,1,1)
  1. ;
  1. I FIND D Q
  1. .D BMES^XPDUTL(">>> Mail group: "_MG_" added successfully!")
  1. .D BMES^XPDUTL(" Please add members as appropriate for those")
  1. .D MES^XPDUTL(" who should receive notice of VA Drug Class field")
  1. .D MES^XPDUTL(" is empty.")
  1. ;
  1. I 'FIND D Q
  1. .D BMES^XPDUTL(">>> NOTE: Mail group: "_MG_" not added!!!")
  1. .D MES^XPDUTL(" ERROR: "_FIND)
  1. .D BMES^XPDUTL(" Please check your file and type")
  1. .D MES^XPDUTL(" D EN^ESP116PT to try again.")
  1. ;
  1. Q