- 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 Jan 18, 2025@02:39:52 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