PSSP254P.m

PSSP254P ;BIRM/SA - PATCH PSS*1*254 Envir. Check Rtn ; Nov 05, 2021@1600

 ;;1.0;PHARMACY DATA MANAGEMENT;**254**;9/30/97;Build 109

 ;

ENV ;environment check

 S XPDABORT=""

 D CHK(.XPDABORT)

 I XPDABORT="" K XPDABORT

 Q

 ;

CHK(XPDABORT) ;checks for necessary programmer variables

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO

 . D BMES^XPDUTL("******")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 . D MES^XPDUTL("******")

 . S XPDABORT=2

 Q

 ;

HELP ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)

 W !,"Enter 1 if patch is being installed in a Pre-Production (Mirror) system."

 W !,"Enter 2 if patch is being installed in a Software Quality Assurance system."

 W !,"Enter 3 if patch is being installed in a Staging system."

 W !,"Enter 4 if patch is being installed in a Development system."

 W !,"Enter 5 if patch is being installed in a Production system."

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSP254P   1002     printed  Jan 29, 2026@15:32:02                                                                                                                                                                                                    Page 2

PSSP254P  ;BIRM/SA - PATCH PSS*1*254 Envir. Check Rtn ; Nov 05, 2021@1600

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**254**;9/30/97;Build 109

 +2       ;

ENV       ;environment check

 +1        SET XPDABORT=""

 +2        DO CHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4        QUIT 

 +5       ;

CHK(XPDABORT) ;checks for necessary programmer variables

 +1        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +2                DO BMES^XPDUTL("******")

 +3                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +4                DO MES^XPDUTL("Installation aborted.")

 +5                DO MES^XPDUTL("******")

 +6                SET XPDABORT=2

               End DoDot:1

 +7        QUIT 

 +8       ;

HELP      ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)

 +1        WRITE !,"Enter 1 if patch is being installed in a Pre-Production (Mirror) system."

 +2        WRITE !,"Enter 2 if patch is being installed in a Software Quality Assurance system."

 +3        WRITE !,"Enter 3 if patch is being installed in a Staging system."

 +4        WRITE !,"Enter 4 if patch is being installed in a Development system."

 +5        WRITE !,"Enter 5 if patch is being installed in a Production system."

 +6       ;