source: FOIAVistA/tag/r/SURGERY-SR/SRHLENV.m@ 1219

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

initial load of FOIAVistA 6/30/08 version

File size: 742 bytes
Line 
1SRHLENV ;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
12ABRT ;
13 W !!,"Environment checker was aborted!!"
14 S XPDQUIT=1
15 Q
Note: See TracBrowser for help on using the repository browser.