XQOROP ; slc/dcm - Environment check for patch 48
;;8.0;KERNEL;**48**;Oct 25, 1996
I '$L($T(PATCH^XPDUTL)) D MES^XPDUTL("Unable to continue, Patch XU*8.0*39 must be installed first.") S XPDQUIT=2 Q
I $T(OR4+1^OR4)'["46,47" D MES^XPDUTL("Unable to continue, Patch OR*2.5*47 must be installed") S XPDQUIT=2
I '$$PATCH^XPDUTL("LR*5.2*100") D MES^XPDUTL("Unable to continue, Patch LR*5.2*100 must be installed") S XPDQUIT=2
I '$$PATCH^XPDUTL("OR*2.5*46") D MES^XPDUTL("Unable to continue, Patch OR*2.5*46 must be installed") S XPDQUIT=2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQOROP 548 printed Nov 22, 2024@17:16:33 Page 2
XQOROP ; slc/dcm - Environment check for patch 48
+1 ;;8.0;KERNEL;**48**;Oct 25, 1996
+2 IF '$LENGTH($TEXT(PATCH^XPDUTL))
DO MES^XPDUTL("Unable to continue, Patch XU*8.0*39 must be installed first.")
SET XPDQUIT=2
QUIT
+3 IF $TEXT(OR4+1^OR4)'["46,47"
DO MES^XPDUTL("Unable to continue, Patch OR*2.5*47 must be installed")
SET XPDQUIT=2
+4 IF '$$PATCH^XPDUTL("LR*5.2*100")
DO MES^XPDUTL("Unable to continue, Patch LR*5.2*100 must be installed")
SET XPDQUIT=2
+5 IF '$$PATCH^XPDUTL("OR*2.5*46")
DO MES^XPDUTL("Unable to continue, Patch OR*2.5*46 must be installed")
SET XPDQUIT=2
+6 QUIT
