GMRA50P1 ;VIP/WW - PATCH 50 POST INSTALL ; 19 Oct 2015
;;4.0;Adverse Reaction Tracking;**50**;Oct 19, 2015;Build 3
;
; This post-installation routine will add the mailgroup
; ADVERSE_ALLERGY_WARNING to receive Allergy/Adverse Reactions
; Without a VA Drug Class.
;
POST ; Entry point. Check for existance and create if not there.
;
N FIND,MG
;
S MG="ADVERSE_ALLERGY_WARNING"
S FIND=$$FIND1^DIC(3.8,"","",MG)
;
I FIND D Q
.D BMES^XPDUTL(">>> Mail group "_MG_" already exists...nothing added")
;
S FIND=$$MG^XMBGRP(MG,0,0,1,,1,1)
;
I FIND D Q
.D BMES^XPDUTL(">>> Mail group: "_MG_" added successfully!")
.D BMES^XPDUTL(" Please add members as appropriate for those")
.D MES^XPDUTL(" who should receive notice of VA Drug Class field")
.D MES^XPDUTL(" is empty.")
;
I 'FIND D Q
.D BMES^XPDUTL(">>> NOTE: Mail group: "_MG_" not added!!!")
.D MES^XPDUTL(" ERROR: "_FIND)
.D BMES^XPDUTL(" Please check your file and type")
.D MES^XPDUTL(" D EN^ESP116PT to try again.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRA50P1 1062 printed Dec 13, 2024@01:38:38 Page 2
GMRA50P1 ;VIP/WW - PATCH 50 POST INSTALL ; 19 Oct 2015
+1 ;;4.0;Adverse Reaction Tracking;**50**;Oct 19, 2015;Build 3
+2 ;
+3 ; This post-installation routine will add the mailgroup
+4 ; ADVERSE_ALLERGY_WARNING to receive Allergy/Adverse Reactions
+5 ; Without a VA Drug Class.
+6 ;
POST ; Entry point. Check for existance and create if not there.
+1 ;
+2 NEW FIND,MG
+3 ;
+4 SET MG="ADVERSE_ALLERGY_WARNING"
+5 SET FIND=$$FIND1^DIC(3.8,"","",MG)
+6 ;
+7 IF FIND
Begin DoDot:1
+8 DO BMES^XPDUTL(">>> Mail group "_MG_" already exists...nothing added")
End DoDot:1
QUIT
+9 ;
+10 SET FIND=$$MG^XMBGRP(MG,0,0,1,,1,1)
+11 ;
+12 IF FIND
Begin DoDot:1
+13 DO BMES^XPDUTL(">>> Mail group: "_MG_" added successfully!")
+14 DO BMES^XPDUTL(" Please add members as appropriate for those")
+15 DO MES^XPDUTL(" who should receive notice of VA Drug Class field")
+16 DO MES^XPDUTL(" is empty.")
End DoDot:1
QUIT
+17 ;
+18 IF 'FIND
Begin DoDot:1
+19 DO BMES^XPDUTL(">>> NOTE: Mail group: "_MG_" not added!!!")
+20 DO MES^XPDUTL(" ERROR: "_FIND)
+21 DO BMES^XPDUTL(" Please check your file and type")
+22 DO MES^XPDUTL(" D EN^ESP116PT to try again.")
End DoDot:1
QUIT
+23 ;
+24 QUIT
