|
Last change
on this file since 1128 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
742 bytes
|
| Line | |
|---|
| 1 | SRHLENV ;B'HAM ISC/DLR - KIDS ENVIRONMENT CHECKER FOR HL7 SURGERY INTERFACE ; [ 06/10/98 2:55 PM ]
|
|---|
| 2 | ;;3.0; Surgery ;**41**;24 Jun 93
|
|---|
| 3 | N SITE,MSG
|
|---|
| 4 | W @IOF
|
|---|
| 5 | W !!,"Checking the SURGERY HL7 Environment",!
|
|---|
| 6 | 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 Q
|
|---|
| 7 | S SITE=$$SITE^SROVAR I $G(SITE)="" S MSG="Warning: *** There is no default Institution. ***" D MES^XPDUTL(.MSG) G ABRT
|
|---|
| 8 | ;check for the existence of HL7 V. 1.6
|
|---|
| 9 | I $$VERSION^XPDUTL("HL")'=1.6 S MSG="HL7 V. 1.6 must be installed prior to installing this package." D MES^XPDUTL(.MSG) G ABRT
|
|---|
| 10 | W !!,"Environment check was successful!!"
|
|---|
| 11 | Q
|
|---|
| 12 | ABRT ;
|
|---|
| 13 | W !!,"Environment checker was aborted!!"
|
|---|
| 14 | S XPDQUIT=1
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
