ICD1817E.m

ICD1817E ; BAY/JAT - ENVIRONMENT CHECK; 9/17/01 3:32pm ; 6/8/05 1:32pm

 ;;18.0;DRG Grouper;**17**;Oct 13,2000

 ;;

EN ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT)

 I XPDABORT="" K XPDABORT

 ;

 Q

 ;

PROGCHK(XPDABORT) ;

 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

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1817E   471     printed  Apr 09, 2024@20:56:30                                                                                                                                                                                                     Page 2

ICD1817E  ; BAY/JAT - ENVIRONMENT CHECK; 9/17/01 3:32pm ; 6/8/05 1:32pm

 +1       ;;18.0;DRG Grouper;**17**;Oct 13,2000

 +2       ;;

EN        ;

 +1        SET XPDABORT=""

 +2        DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4       ;

 +5        QUIT 

 +6       ;

PROGCHK(XPDABORT) ;

 +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

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

 +9       ;