ORY539E ;ISP/JMH - ENV CHECK FOR OR*3.0*539 ;Jan 22, 2021@12:37:26
;;3.0;ORDER ENTRY/RESULTS REPORTING;**539**;Dec 17, 1997;Build 41
ENV ;ENVIRONMENT CHECK SECTION
I $$PROD^XUPROD D Q
. W !,"You are attempting to install this software into your production account.",!
. W "At this time, this software is not ready for a production install.",!!
. W "Please verify the account you're attempting to install into and",!
. W "if you believe you're correct, contact Ron Massey or Kenny Condie.",!!
. W "INSTALL ACTION ABORTED!"
. S XPDABORT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY539E 560 printed Sep 23, 2025@20:19:01 Page 2
ORY539E ;ISP/JMH - ENV CHECK FOR OR*3.0*539 ;Jan 22, 2021@12:37:26
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**539**;Dec 17, 1997;Build 41
ENV ;ENVIRONMENT CHECK SECTION
+1 IF $$PROD^XUPROD
Begin DoDot:1
+2 WRITE !,"You are attempting to install this software into your production account.",!
+3 WRITE "At this time, this software is not ready for a production install.",!!
+4 WRITE "Please verify the account you're attempting to install into and",!
+5 WRITE "if you believe you're correct, contact Ron Massey or Kenny Condie.",!!
+6 WRITE "INSTALL ACTION ABORTED!"
+7 SET XPDABORT=1
End DoDot:1
QUIT
+8 QUIT
