YS119ENV.m

YS119ENV ;SLC/KCM - Patch 119 Environment Check ; 9/15/2015 12:08

 ;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40

ENV ; make sure patch YS*5.01*105 has been installed

 I '$$PATCH^XPDUTL("YS*5.01*105") D

 . W !,"Please install patch YS*5.01*105 before proceeding with this install.",!

 . S XPDQUIT=1

 I '$$PATCH^XPDUTL("SD*5.3*649") D

 . W !,"Please install patch SD*5.3*649 before proceeding with this install.",!

 . S XPDQUIT=1

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YS119ENV   450     printed  Mar 13, 2025@21:16:48                                                                                                                                                                                                     Page 2

YS119ENV  ;SLC/KCM - Patch 119 Environment Check ; 9/15/2015 12:08

 +1       ;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40

ENV       ; make sure patch YS*5.01*105 has been installed

 +1        IF '$$PATCH^XPDUTL("YS*5.01*105")

               Begin DoDot:1

 +2                WRITE !,"Please install patch YS*5.01*105 before proceeding with this install.",!

 +3                SET XPDQUIT=1

               End DoDot:1

 +4        IF '$$PATCH^XPDUTL("SD*5.3*649")

               Begin DoDot:1

 +5                WRITE !,"Please install patch SD*5.3*649 before proceeding with this install.",!

 +6                SET XPDQUIT=1

               End DoDot:1

 +7        QUIT 

 +8       ;