ORY539E.m

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 ---ORY539E   560     printed  Apr 09, 2024@21:28:38                                                                                                                                                                                                      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