RMPRP385.m

RMPRP385 ; BAY/KAM - Patch RMPR*3*85 Install Utility Routine ; 3/25/04 12:02pm

 ;;3.0;Prosthetics;**85**;AUG 13, 1993

 ;

ENV ;Main Entry point for Environment Check

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 I XPDABORT="" K XPDABORT

 Q

PROGCHK(XPDABORT) ; checks for necessary programmer variables

 ;

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

 . 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPRP385   579     printed  Nov 22, 2024@17:45:32                                                                                                                                                                                                     Page 2

RMPRP385  ; BAY/KAM - Patch RMPR*3*85 Install Utility Routine ; 3/25/04 12:02pm

 +1       ;;3.0;Prosthetics;**85**;AUG 13, 1993

 +2       ;

ENV       ;Main Entry point for Environment Check

 +1        SET XPDABORT=""

 +2       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4        QUIT 

PROGCHK(XPDABORT) ; checks for necessary programmer variables

 +1       ;

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

               Begin DoDot:1

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

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

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

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

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT