Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53151E

DG53151E.m

Go to the documentation of this file.
  1. DG53151E ;ALB/ABR - ENVIRONMENT CHECK ROUTINE;20-JAN-1998
  1. ;;5.3;Registration;**151**;Aug 13, 1993
  1. ;
  1. EN ;Main entry point for patch DG*5.3*151 environment check routine
  1. ;
  1. ;Input : All variables set by KIDS
  1. ;Output : Variables required by KIDS to denote success or failure
  1. ; of environment check (XPDQUIT and XPDABORT)
  1. ;
  1. ;
  1. ;Check for installation of DG*5.3*106 - required for install
  1. I $T(+2^VAFHLPV1)'["106" D
  1. .W !!," *** Required element missing ***"
  1. .W !," Installation of this patch requires patch DG*5.3*106"
  1. .W !
  1. .S XPDABORT=2
  1. ;Check for installation of DG*5.3*75 - required for install
  1. I $T(+2^DGSTAT)'["75" D
  1. .W !!," *** Required element missing ***"
  1. .W !," Installation of this patch requires patch DG*5.3*75"
  1. .W !
  1. .S XPDABORT=2
  1. ;Check for installation of DG*5.3*24 - required for install
  1. I $T(+2^DGREGE)'["24" D
  1. .W !!," *** Required element missing ***"
  1. .W !," Installation of this patch requires patch DG*5.3*24"
  1. .W !
  1. .S XPDABORT=2
  1. Q
  1. UPDATE ; Post-install for patch DG*5.3*151
  1. ; Updates package file for patch DG*5.3*106
  1. N PATCH,PKG,SPTC,SPTCN,SPKG,SPKGN,VER,VERN,UPD
  1. ; find associated patch SD*5.3*70 that brought in DG*5.3*106
  1. ; use info to update patch application history with date/time
  1. ; of install of SD*5.3*70 (same as DG*5.3*106)
  1. ;
  1. ; If not found, use today, w/ Mailman as user.
  1. ;
  1. S SPTC="70 SEQ #67",SPKG="SCHEDULING",VER="5.3"
  1. S SPKGN=$O(^DIC(9.4,"B",SPKG,0)) I SPKGN D
  1. . S VERN=$O(^DIC(9.4,SPKGN,22,"B",VER,0))
  1. . Q:'VERN
  1. . S SPTCN=+$O(^DIC(9.4,SPKGN,22,VERN,"PAH","B",SPTC,0))
  1. . S PATCH=$G(^DIC(9.4,SPKGN,22,VERN,"PAH",SPTCN,0))
  1. S PATCH=$S($G(PATCH):"106 SEQ #101^"_$P(PATCH,U,2,3),1:"106 SEQ #101^"_DT_"^.05")
  1. S PKG=$O(^DIC(9.4,"B","REGISTRATION",0)) Q:'PKG
  1. S UPD=$$PKGPAT^XPDIP(PKG,5.3,.PATCH)
  1. Q