- 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 Feb 19, 2025@00:08:20 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