DVBA2714.m

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 ---DVBA2714   802     printed  Feb 18, 2025@23:05:59                                                                                                                                                                                                     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