ORY405E ;ISP/WAT - ENV CHECK FOR OR*3.0*405 ;Jan 14, 2021@12:29:18
;;3.0;ORDER ENTRY/RESULTS REPORTING;**405**;Dec 17, 1997;Build 211
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[HORY405E 561 printed Dec 13, 2024@02:41:49 Page 2
ORY405E ;ISP/WAT - ENV CHECK FOR OR*3.0*405 ;Jan 14, 2021@12:29:18
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**405**;Dec 17, 1997;Build 211
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
