Routine: GMRAY48

GMRAY48 ;ISP/RFR - PATCH 48 PRE/POST INSTALL ACTIONS ;04/08/2016  06:32

 ;;4.0;Adverse Reaction Tracking;**48**;Mar 29, 1996;Build 13

POST ;Post-Install Actions

 N GMRAMSG

 S GMRAMSG(1)="  Re-indexing the B cross-reference in the ADVERSE REACTION ASSESSMENT"

 S GMRAMSG(2)="  file"

 D BMES^XPDUTL(.GMRAMSG)

 N DIK,DA

 S DIK="^GMR(120.86,",DIK(1)=".01^B"

 D ENALL2^DIK,ENALL^DIK

 D MES^XPDUTL("  DONE")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRAY48   421     printed  Dec 13, 2024@01:41:05                                                                                                                                                                                                      Page 2

GMRAY48   ;ISP/RFR - PATCH 48 PRE/POST INSTALL ACTIONS ;04/08/2016  06:32

 +1       ;;4.0;Adverse Reaction Tracking;**48**;Mar 29, 1996;Build 13

 +2        QUIT

POST      ;Post-Install Actions

 +1        NEW GMRAMSG

 +2        SET GMRAMSG(1)="  Re-indexing the B cross-reference in the ADVERSE REACTION ASSESSMENT"

 +3        SET GMRAMSG(2)="  file"

 +4        DO BMES^XPDUTL(.GMRAMSG)

 +5        NEW DIK,DA

 +6        SET DIK="^GMR(120.86,"

           SET DIK(1)=".01^B"

 +7        DO ENALL2^DIK

           DO ENALL^DIK

 +8        DO MES^XPDUTL("  DONE")

 +9        QUIT

GMRAY48.m