GMPLY36 ; ISL/JER - Pre-/Post-Install Routine for GMPL*2*36 ;11/30/12 12:53
;;2.0;Problem List;**36**;Aug 25, 1994;Build 65
Q
PRE ; Pre-install subroutine
;
Q
;
POST ; Post-install subroutine
;
; if GMPL*2*44 has been installed, new indexes required by Reminders for ICD-10 will need
; to be re-installed and refreshed.
;
; Has GMPL*2*44 been installed?
I '+$$PATCH^XPDUTL("GMPL*2.0*44") Q
; Call POST^GMPLP44I if available
I '$L($T(POST^GMPLP44I)) Q
D BMES^XPDUTL(" Reinstalling indexes from GMPL*2*44 required by Reminders...")
D POST^GMPLP44I
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMPLY36 584 printed Nov 22, 2024@17:40:36 Page 2
GMPLY36 ; ISL/JER - Pre-/Post-Install Routine for GMPL*2*36 ;11/30/12 12:53
+1 ;;2.0;Problem List;**36**;Aug 25, 1994;Build 65
+2 QUIT
PRE ; Pre-install subroutine
+1 ;
+2 QUIT
+3 ;
POST ; Post-install subroutine
+1 ;
+2 ; if GMPL*2*44 has been installed, new indexes required by Reminders for ICD-10 will need
+3 ; to be re-installed and refreshed.
+4 ;
+5 ; Has GMPL*2*44 been installed?
+6 IF '+$$PATCH^XPDUTL("GMPL*2.0*44")
QUIT
+7 ; Call POST^GMPLP44I if available
+8 IF '$LENGTH($TEXT(POST^GMPLP44I))
QUIT
+9 DO BMES^XPDUTL(" Reinstalling indexes from GMPL*2*44 required by Reminders...")
+10 DO POST^GMPLP44I
+11 QUIT
