SRHLENV ;B'HAM ISC/DLR - KIDS ENVIRONMENT CHECKER FOR HL7 SURGERY INTERFACE ; [ 06/10/98 2:55 PM ]
;;3.0; Surgery ;**41**;24 Jun 93
N SITE,MSG
W @IOF
W !!,"Checking the SURGERY HL7 Environment",!
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
S SITE=$$SITE^SROVAR I $G(SITE)="" S MSG="Warning: *** There is no default Institution. ***" D MES^XPDUTL(.MSG) G ABRT
;check for the existence of HL7 V. 1.6
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
W !!,"Environment check was successful!!"
Q
ABRT ;
W !!,"Environment checker was aborted!!"
S XPDQUIT=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRHLENV 757 printed Dec 13, 2024@02:39:15 Page 2
SRHLENV ;B'HAM ISC/DLR - KIDS ENVIRONMENT CHECKER FOR HL7 SURGERY INTERFACE ; [ 06/10/98 2:55 PM ]
+1 ;;3.0; Surgery ;**41**;24 Jun 93
+2 NEW SITE,MSG
+3 WRITE @IOF
+4 WRITE !!,"Checking the SURGERY HL7 Environment",!
+5 IF $SELECT($DATA(DUZ)[0:1,$DATA(DUZ(0))[0:1,'DUZ:1,1:0)
WRITE !!,$CHAR(7),">> DUZ and DUZ(0) must be defined as an active user to initialize."
SET XPDQUIT=2
QUIT
+6 SET SITE=$$SITE^SROVAR
IF $GET(SITE)=""
SET MSG="Warning: *** There is no default Institution. ***"
DO MES^XPDUTL(.MSG)
GOTO ABRT
+7 ;check for the existence of HL7 V. 1.6
+8 IF $$VERSION^XPDUTL("HL")'=1.6
SET MSG="HL7 V. 1.6 must be installed prior to installing this package."
DO MES^XPDUTL(.MSG)
GOTO ABRT
+9 WRITE !!,"Environment check was successful!!"
+10 QUIT
ABRT ;
+1 WRITE !!,"Environment checker was aborted!!"
+2 SET XPDQUIT=1
+3 QUIT
