EDPYCHK.m

EDPYCHK ;SLC/KCM - Environmental Check for facility install ;2/28/12 08:33am

 ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103

 ;This routine will check to see if the user is in a production account

 ;if they are then the user will not be allowed to install this

 ;patch/build/bundle

 ;

 I $$PROD^XUPROD D

 .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."

 .W !!,"INSTALLATION ABORTED!"

 .S XPDABORT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EDPYCHK   596     printed  Apr 09, 2024@20:56:38                                                                                                                                                                                                      Page 2

EDPYCHK   ;SLC/KCM - Environmental Check for facility install ;2/28/12 08:33am

 +1       ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103

 +2       ;This routine will check to see if the user is in a production account

 +3       ;if they are then the user will not be allowed to install this

 +4       ;patch/build/bundle

 +5       ;

 +6        IF $$PROD^XUPROD

               Begin DoDot:1

 +7                WRITE !,"You are attempting to install this software into your production account."

 +8                WRITE !,"At this time, this software is not ready for a production install."

 +9                WRITE !!,"Please verify the account you're attempting to install into."

 +10               WRITE !!,"INSTALLATION ABORTED!"

 +11               SET XPDABORT=1

               End DoDot:1

 +12       QUIT