source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXIENV.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 707 bytes
RevLine 
[613]1LEXIENV ; ISL Environment Check ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4EN N Y
5 I +($G(XPDENV))=0 D
6 . W !,"Update",?15,"Clinical Lexicon Utility v 1.0 Problem List v 2.0"
7 . W !,"To",?15,"Lexicon Utility v 2.0 Problem List v 2.0*7",!
8 I $S($D(DUZ)[0:1,$D(DUZ(0))[0:1,'DUZ:1,1:0) W !!,$C(7),">> DUZ and DUZ(0) must be defined as an active user to initialize." S XPDQUIT=2
9 I '$D(^LEX) W !!,$C(7),">> Cannot find Lexicon global, ^LEX must be loaded into or ",!," translated to this account" G ABRT
10 I +($G(XPDENV))>0 G END
11 W !
12END ;
13 Q
14RTN(X) ; is Routine X in this UCI
15 S X=$G(X) Q:'$L(X) 0 X ^%ZOSF("TEST") Q $T
16ABRT ; Abort
17 W ! S XPDQUIT=1 Q
Note: See TracBrowser for help on using the repository browser.