GMPLY36.m

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 ---GMPLY36   584     printed  Apr 09, 2024@21:33:12                                                                                                                                                                                                      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