|
Last change
on this file since 635 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
699 bytes
|
| Line | |
|---|
| 1 | LEXIENV ; ISL Environment Check ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | EN 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 !
|
|---|
| 12 | END ;
|
|---|
| 13 | Q
|
|---|
| 14 | RTN(X) ; is Routine X in this UCI
|
|---|
| 15 | S X=$G(X) Q:'$L(X) 0 X ^%ZOSF("TEST") Q $T
|
|---|
| 16 | ABRT ; Abort
|
|---|
| 17 | W ! S XPDQUIT=1 Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
