- DG53151E ;ALB/ABR - ENVIRONMENT CHECK ROUTINE;20-JAN-1998
- ;;5.3;Registration;**151**;Aug 13, 1993
- ;
- EN ;Main entry point for patch DG*5.3*151 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)
- ;
- ;
- ;Check for installation of DG*5.3*106 - required for install
- I $T(+2^VAFHLPV1)'["106" D
- .W !!," *** Required element missing ***"
- .W !," Installation of this patch requires patch DG*5.3*106"
- .W !
- .S XPDABORT=2
- ;Check for installation of DG*5.3*75 - required for install
- I $T(+2^DGSTAT)'["75" D
- .W !!," *** Required element missing ***"
- .W !," Installation of this patch requires patch DG*5.3*75"
- .W !
- .S XPDABORT=2
- ;Check for installation of DG*5.3*24 - required for install
- I $T(+2^DGREGE)'["24" D
- .W !!," *** Required element missing ***"
- .W !," Installation of this patch requires patch DG*5.3*24"
- .W !
- .S XPDABORT=2
- Q
- UPDATE ; Post-install for patch DG*5.3*151
- ; Updates package file for patch DG*5.3*106
- N PATCH,PKG,SPTC,SPTCN,SPKG,SPKGN,VER,VERN,UPD
- ; find associated patch SD*5.3*70 that brought in DG*5.3*106
- ; use info to update patch application history with date/time
- ; of install of SD*5.3*70 (same as DG*5.3*106)
- ;
- ; If not found, use today, w/ Mailman as user.
- ;
- S SPTC="70 SEQ #67",SPKG="SCHEDULING",VER="5.3"
- S SPKGN=$O(^DIC(9.4,"B",SPKG,0)) I SPKGN D
- . S VERN=$O(^DIC(9.4,SPKGN,22,"B",VER,0))
- . Q:'VERN
- . S SPTCN=+$O(^DIC(9.4,SPKGN,22,VERN,"PAH","B",SPTC,0))
- . S PATCH=$G(^DIC(9.4,SPKGN,22,VERN,"PAH",SPTCN,0))
- S PATCH=$S($G(PATCH):"106 SEQ #101^"_$P(PATCH,U,2,3),1:"106 SEQ #101^"_DT_"^.05")
- S PKG=$O(^DIC(9.4,"B","REGISTRATION",0)) Q:'PKG
- S UPD=$$PKGPAT^XPDIP(PKG,5.3,.PATCH)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53151E 1854 printed Feb 19, 2025@00:02:23 Page 2
- DG53151E ;ALB/ABR - ENVIRONMENT CHECK ROUTINE;20-JAN-1998
- +1 ;;5.3;Registration;**151**;Aug 13, 1993
- +2 ;
- EN ;Main entry point for patch DG*5.3*151 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 ;
- +7 ;Check for installation of DG*5.3*106 - required for install
- +8 IF $TEXT(+2^VAFHLPV1)'["106"
- Begin DoDot:1
- +9 WRITE !!," *** Required element missing ***"
- +10 WRITE !," Installation of this patch requires patch DG*5.3*106"
- +11 WRITE !
- +12 SET XPDABORT=2
- End DoDot:1
- +13 ;Check for installation of DG*5.3*75 - required for install
- +14 IF $TEXT(+2^DGSTAT)'["75"
- Begin DoDot:1
- +15 WRITE !!," *** Required element missing ***"
- +16 WRITE !," Installation of this patch requires patch DG*5.3*75"
- +17 WRITE !
- +18 SET XPDABORT=2
- End DoDot:1
- +19 ;Check for installation of DG*5.3*24 - required for install
- +20 IF $TEXT(+2^DGREGE)'["24"
- Begin DoDot:1
- +21 WRITE !!," *** Required element missing ***"
- +22 WRITE !," Installation of this patch requires patch DG*5.3*24"
- +23 WRITE !
- +24 SET XPDABORT=2
- End DoDot:1
- +25 QUIT
- UPDATE ; Post-install for patch DG*5.3*151
- +1 ; Updates package file for patch DG*5.3*106
- +2 NEW PATCH,PKG,SPTC,SPTCN,SPKG,SPKGN,VER,VERN,UPD
- +3 ; find associated patch SD*5.3*70 that brought in DG*5.3*106
- +4 ; use info to update patch application history with date/time
- +5 ; of install of SD*5.3*70 (same as DG*5.3*106)
- +6 ;
- +7 ; If not found, use today, w/ Mailman as user.
- +8 ;
- +9 SET SPTC="70 SEQ #67"
- SET SPKG="SCHEDULING"
- SET VER="5.3"
- +10 SET SPKGN=$ORDER(^DIC(9.4,"B",SPKG,0))
- IF SPKGN
- Begin DoDot:1
- +11 SET VERN=$ORDER(^DIC(9.4,SPKGN,22,"B",VER,0))
- +12 if 'VERN
- QUIT
- +13 SET SPTCN=+$ORDER(^DIC(9.4,SPKGN,22,VERN,"PAH","B",SPTC,0))
- +14 SET PATCH=$GET(^DIC(9.4,SPKGN,22,VERN,"PAH",SPTCN,0))
- End DoDot:1
- +15 SET PATCH=$SELECT($GET(PATCH):"106 SEQ #101^"_$PIECE(PATCH,U,2,3),1:"106 SEQ #101^"_DT_"^.05")
- +16 SET PKG=$ORDER(^DIC(9.4,"B","REGISTRATION",0))
- if 'PKG
- QUIT
- +17 SET UPD=$$PKGPAT^XPDIP(PKG,5.3,.PATCH)
- +18 QUIT