DVBA2714 ;ALB/ABR - ENVIRONMENT CHECK ROUTINE;16-JAN-1998
;;2.7;AMIE;**14**;Apr 10, 1995
;
EN ;Main entry point for patch DVBA*2.7*14 environment check routine
;
;Input : All variables set by KIDS
;Output : Variables required by KIDS to denote success or failure
; of environment check (XPDQUIT and XPDABORT)
;
N PATCHED
;
;Check for installation of DVBA*2.7*15 - required for install
I $T(+2^DVBADSCK)'["15" D
.W !!," *** Required element missing ***"
.W !," Installation of this patch requires patch DVBA*2.7*15"
.W !
.S XPDABORT=2
Q
UPDATE ; update package file for patch DVBA*2.7*15
N PATCH,PKG,UPD
S PATCH="15 SEQ #14^"_DT_"^.05"
S PKG=$O(^DIC(9.4,"B","AUTOMATED MED INFO EXCHANGE",0)) Q:'PKG
S UPD=$$PKGPAT^XPDIP(PKG,2.7,.PATCH)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA2714 802 printed Dec 13, 2024@01:39:36 Page 2
DVBA2714 ;ALB/ABR - ENVIRONMENT CHECK ROUTINE;16-JAN-1998
+1 ;;2.7;AMIE;**14**;Apr 10, 1995
+2 ;
EN ;Main entry point for patch DVBA*2.7*14 environment check routine
+1 ;
+2 ;Input : All variables set by KIDS
+3 ;Output : Variables required by KIDS to denote success or failure
+4 ; of environment check (XPDQUIT and XPDABORT)
+5 ;
+6 NEW PATCHED
+7 ;
+8 ;Check for installation of DVBA*2.7*15 - required for install
+9 IF $TEXT(+2^DVBADSCK)'["15"
Begin DoDot:1
+10 WRITE !!," *** Required element missing ***"
+11 WRITE !," Installation of this patch requires patch DVBA*2.7*15"
+12 WRITE !
+13 SET XPDABORT=2
End DoDot:1
+14 QUIT
UPDATE ; update package file for patch DVBA*2.7*15
+1 NEW PATCH,PKG,UPD
+2 SET PATCH="15 SEQ #14^"_DT_"^.05"
+3 SET PKG=$ORDER(^DIC(9.4,"B","AUTOMATED MED INFO EXCHANGE",0))
if 'PKG
QUIT
+4 SET UPD=$$PKGPAT^XPDIP(PKG,2.7,.PATCH)
+5 QUIT
