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

GMRC154R.m

Go to the documentation of this file.
  1. GMRC154R ;Cerner/MKN - Pre-install GMRC*3.0*154; 12/16/19 09:23
  1. ;;3.0;CONSULT/REQUEST TRACKING;**154**;DEC 16, 2019;Build 135
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q ;don't start at the top
  1. ;
  1. EN ;
  1. N ERR,IEN,MGN,MGNA,X
  1. ;
  1. ;Create new CRNR Mail Groups
  1. F MGN=1:1 S X=$T(CRNRMGS+MGN) Q:X=" ;;" K MGWP S MGNA=$P(X,";",2),MGWP(1,0)=$P(X,";",3) D:$O(^XMB(3.8,"B",MGNA,""))=""
  1. . D BMES^XPDUTL("Adding new CRNR Mail Group: "_MGNA)
  1. . K ERR,FDA,IEN S FDA(3.8,"+1,",.01)=MGNA,FDA(3.8,"+1,",4)="PR" D UPDATE^DIE("","FDA","IEN","ERR")
  1. . I $D(ERR) D BMES^XPDUTL("Error while adding Mail Group: "_MGNA_" "_$G(ERR)) Q
  1. . S IEN=IEN(1)
  1. . K ERR D WP^DIE(3.8,IEN_",",3,,"MGWP","ERR")
  1. . I $D(ERR) D BMES^XPDUTL("Error while adding Mail Group description for: "_MGNA_" "_$G(ERR)) Q
  1. . D BMES^XPDUTL("Mail Group "_MGNA_" added")
  1. ;Add OEHRMTIERIISupport to MEMBERS REMOTE in GMRC TIER II CRNR IFC ERRORS mail group
  1. S IEN=$O(^XMB(3.8,"B","GMRC TIER II CRNR IFC ERRORS","")) D:IEN
  1. . Q:$O(^XMB(3.8,IEN,6,"B","OEHRMTIERIISupport@domain.ext","")) ;Already there
  1. . K ERR,FDA S FDA(3.812,"+1,"_IEN_",",.01)="OEHRMTIERIISupport@domain.ext" D UPDATE^DIE("","FDA","","ERR")
  1. ;Add GMRC TIER II CRNR IFC ERRORS as a MEMBER GROUP in IFC PATIENT ERROR MESSAGES mail group
  1. S IEN=$O(^XMB(3.8,"B","IFC PATIENT ERROR MESSAGES","")) D:IEN
  1. . Q:$O(^XMB(3.8,IEN,5,"B","GMRC TIER II CRNR IFC ERRORS","")) ;Already there
  1. . K ERR,FDA S FDA(3.811,"+1,"_IEN_",",.01)="GMRC TIER II CRNR IFC ERRORS" D UPDATE^DIE("","FDA","","ERR")
  1. ;
  1. CRNRMGS ;New Cerner Mail Groups
  1. ;GMRC CRNR IFC CLIN ERRORS;This Mail Group informs members of any clinical errors arising from IFC messages from Cerner.
  1. ;GMRC CRNR IFC ERRORS;This Mail Group informs members of any non-clinical and non-technical errors arising from IFC messages from Cerner.
  1. ;GMRC CRNR IFC TECH ERRORS;This Mail Group informs members of any technical errors arising from IFC messages from Cerner.
  1. ;GMRC TIER II CRNR IFC ERRORS;Tier II Errors Mail Group;This Mail Group informs Tier II members of any clinical errors arising from IFC messages from Cerner.
  1. ;;
  1. Q
  1. ;