source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXIENV.m@ 761

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

initial load of FOIAVistA 6/30/08 version

File size: 699 bytes
Line 
1LEXIENV ; ISL Environment Check ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996
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.