21 lines
442 B
Mathematica
21 lines
442 B
Mathematica
|
ICD1827V ;ALB/MRY - ENVIRONMENT CHECK; 10/2/03 3:32pm
|
||
|
|
;;18.0;DRG Grouper;**27**;Oct 13,2000;Build 2
|
||
|
|
;;
|
||
|
|
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
|
||
|
|
;
|