- GMRC154R ;Cerner/MKN - Pre-install GMRC*3.0*154; 12/16/19 09:23
- ;;3.0;CONSULT/REQUEST TRACKING;**154**;DEC 16, 2019;Build 135
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- Q ;don't start at the top
- ;
- EN ;
- N ERR,IEN,MGN,MGNA,X
- ;
- ;Create new CRNR Mail Groups
- 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,""))=""
- . D BMES^XPDUTL("Adding new CRNR Mail Group: "_MGNA)
- . K ERR,FDA,IEN S FDA(3.8,"+1,",.01)=MGNA,FDA(3.8,"+1,",4)="PR" D UPDATE^DIE("","FDA","IEN","ERR")
- . I $D(ERR) D BMES^XPDUTL("Error while adding Mail Group: "_MGNA_" "_$G(ERR)) Q
- . S IEN=IEN(1)
- . K ERR D WP^DIE(3.8,IEN_",",3,,"MGWP","ERR")
- . I $D(ERR) D BMES^XPDUTL("Error while adding Mail Group description for: "_MGNA_" "_$G(ERR)) Q
- . D BMES^XPDUTL("Mail Group "_MGNA_" added")
- ;Add OEHRMTIERIISupport to MEMBERS REMOTE in GMRC TIER II CRNR IFC ERRORS mail group
- S IEN=$O(^XMB(3.8,"B","GMRC TIER II CRNR IFC ERRORS","")) D:IEN
- . Q:$O(^XMB(3.8,IEN,6,"B","OEHRMTIERIISupport@domain.ext","")) ;Already there
- . K ERR,FDA S FDA(3.812,"+1,"_IEN_",",.01)="OEHRMTIERIISupport@domain.ext" D UPDATE^DIE("","FDA","","ERR")
- ;Add GMRC TIER II CRNR IFC ERRORS as a MEMBER GROUP in IFC PATIENT ERROR MESSAGES mail group
- S IEN=$O(^XMB(3.8,"B","IFC PATIENT ERROR MESSAGES","")) D:IEN
- . Q:$O(^XMB(3.8,IEN,5,"B","GMRC TIER II CRNR IFC ERRORS","")) ;Already there
- . K ERR,FDA S FDA(3.811,"+1,"_IEN_",",.01)="GMRC TIER II CRNR IFC ERRORS" D UPDATE^DIE("","FDA","","ERR")
- ;
- CRNRMGS ;New Cerner Mail Groups
- ;GMRC CRNR IFC CLIN ERRORS;This Mail Group informs members of any clinical errors arising from IFC messages from Cerner.
- ;GMRC CRNR IFC ERRORS;This Mail Group informs members of any non-clinical and non-technical errors arising from IFC messages from Cerner.
- ;GMRC CRNR IFC TECH ERRORS;This Mail Group informs members of any technical errors arising from IFC messages from Cerner.
- ;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.
- ;;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRC154R 2158 printed Feb 18, 2025@23:11:10 Page 2
- 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
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- +4 ;don't start at the top
- QUIT
- +5 ;
- EN ;
- +1 NEW ERR,IEN,MGN,MGNA,X
- +2 ;
- +3 ;Create new CRNR Mail Groups
- +4 FOR MGN=1:1
- SET X=$TEXT(CRNRMGS+MGN)
- if X=" ;;"
- QUIT
- KILL MGWP
- SET MGNA=$PIECE(X,";",2)
- SET MGWP(1,0)=$PIECE(X,";",3)
- if $ORDER(^XMB(3.8,"B",MGNA,""))=""
- Begin DoDot:1
- +5 DO BMES^XPDUTL("Adding new CRNR Mail Group: "_MGNA)
- +6 KILL ERR,FDA,IEN
- SET FDA(3.8,"+1,",.01)=MGNA
- SET FDA(3.8,"+1,",4)="PR"
- DO UPDATE^DIE("","FDA","IEN","ERR")
- +7 IF $DATA(ERR)
- DO BMES^XPDUTL("Error while adding Mail Group: "_MGNA_" "_$GET(ERR))
- QUIT
- +8 SET IEN=IEN(1)
- +9 KILL ERR
- DO WP^DIE(3.8,IEN_",",3,,"MGWP","ERR")
- +10 IF $DATA(ERR)
- DO BMES^XPDUTL("Error while adding Mail Group description for: "_MGNA_" "_$GET(ERR))
- QUIT
- +11 DO BMES^XPDUTL("Mail Group "_MGNA_" added")
- End DoDot:1
- +12 ;Add OEHRMTIERIISupport to MEMBERS REMOTE in GMRC TIER II CRNR IFC ERRORS mail group
- +13 SET IEN=$ORDER(^XMB(3.8,"B","GMRC TIER II CRNR IFC ERRORS",""))
- if IEN
- Begin DoDot:1
- +14 ;Already there
- if $ORDER(^XMB(3.8,IEN,6,"B","OEHRMTIERIISupport@domain.ext",""))
- QUIT
- +15 KILL ERR,FDA
- SET FDA(3.812,"+1,"_IEN_",",.01)="OEHRMTIERIISupport@domain.ext"
- DO UPDATE^DIE("","FDA","","ERR")
- End DoDot:1
- +16 ;Add GMRC TIER II CRNR IFC ERRORS as a MEMBER GROUP in IFC PATIENT ERROR MESSAGES mail group
- +17 SET IEN=$ORDER(^XMB(3.8,"B","IFC PATIENT ERROR MESSAGES",""))
- if IEN
- Begin DoDot:1
- +18 ;Already there
- if $ORDER(^XMB(3.8,IEN,5,"B","GMRC TIER II CRNR IFC ERRORS",""))
- QUIT
- +19 KILL ERR,FDA
- SET FDA(3.811,"+1,"_IEN_",",.01)="GMRC TIER II CRNR IFC ERRORS"
- DO UPDATE^DIE("","FDA","","ERR")
- End DoDot:1
- +20 ;
- 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.
- +2 ;GMRC CRNR IFC ERRORS;This Mail Group informs members of any non-clinical and non-technical errors arising from IFC messages from Cerner.
- +3 ;GMRC CRNR IFC TECH ERRORS;This Mail Group informs members of any technical errors arising from IFC messages from Cerner.
- +4 ;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.
- +5 ;;
- +6 QUIT
- +7 ;