XQP50 ;Luke&Ron/SEA - Update Patch 50 Application History ;11/27/96 09:42
;;8.0;KERNEL;**51**;Nov 21, 1996
;
;This routine, a post init routine for patch XU*8*51, updates
;the Patch Application History of patch XU*8*50 which was
;released without a link to the Package File.
;
;38 is the Patch Module Sequence Number, X1 is the Kernel
;IEN in the Package File [^DIC(9.4)], 8.0 is the Version #,
;DT and DUZ record who and when it was installed.
;
;
;
DESC ;<Patch description to be placed in Package File>
;; This patch contains a routine, and input template, and a change to
;;the data dictionary of the Option File [^DIC(19)]. It corrects 3 problems
;;with servers:
;;
;;1. [CML-0296-N1840 and LIT-0496-71332 ] Server tasks were retained for
;;30 days in ^ZTSK, and several sites complained that this was too long and
;;therefore a waste of disk space. The default task retention time was
;;lowered to 14 days, and a field was added to the Option File (ZTSK
;;RETENTION DAYS) to allow the site to set the retention time for each
;;server on the system from 1 to 365 days.
;;
;;2. [MCM-1096-51188] A site complained that the edit template XUEDITOPT
;;did not allow them to edit the field SERVER DEVICE when working with a
;;server-type option. This was corrected when the new field was added to
;;the template.
;;
;;3. [SLC-1096-50407] Under certain circumstances, servers that were
;;designated as "Run Immediately" in the SERVER ACTION field were not
;;running at all but being queued because of a logic error. This problem
;;was also noted by IHS.
;;
;;=============================================================
;;
;; CHECKSUMS WITH PATCH LIST
;;
;;Program Before After
;;
;; XQSRV1 8538091 8877273 **50**
;;
;
N %,X,X1
;
S X=28
F %=1:1:X S ^XTMP($J,"P50",%)=$E($T(DESC+%),4,99)
;
S X="50 SEQ #38^"_DT_"^"_DUZ,X(1)="^XTMP($J,""P50"")"
S X1=$P(^XPD(9.7,XPDA,0),U,2)
I 'X1 D BMES^XPDUTL("Couldn't update Patch information for patch 50.") Q
S %=$$PKGPAT^XPDIP(X1,"8.0",.X)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQP50 2195 printed Nov 22, 2024@17:16:35 Page 2
XQP50 ;Luke&Ron/SEA - Update Patch 50 Application History ;11/27/96 09:42
+1 ;;8.0;KERNEL;**51**;Nov 21, 1996
+2 ;
+3 ;This routine, a post init routine for patch XU*8*51, updates
+4 ;the Patch Application History of patch XU*8*50 which was
+5 ;released without a link to the Package File.
+6 ;
+7 ;38 is the Patch Module Sequence Number, X1 is the Kernel
+8 ;IEN in the Package File [^DIC(9.4)], 8.0 is the Version #,
+9 ;DT and DUZ record who and when it was installed.
+10 ;
+11 ;
+12 ;
DESC ;<Patch description to be placed in Package File>
+1 ;; This patch contains a routine, and input template, and a change to
+2 ;;the data dictionary of the Option File [^DIC(19)]. It corrects 3 problems
+3 ;;with servers:
+4 ;;
+5 ;;1. [CML-0296-N1840 and LIT-0496-71332 ] Server tasks were retained for
+6 ;;30 days in ^ZTSK, and several sites complained that this was too long and
+7 ;;therefore a waste of disk space. The default task retention time was
+8 ;;lowered to 14 days, and a field was added to the Option File (ZTSK
+9 ;;RETENTION DAYS) to allow the site to set the retention time for each
+10 ;;server on the system from 1 to 365 days.
+11 ;;
+12 ;;2. [MCM-1096-51188] A site complained that the edit template XUEDITOPT
+13 ;;did not allow them to edit the field SERVER DEVICE when working with a
+14 ;;server-type option. This was corrected when the new field was added to
+15 ;;the template.
+16 ;;
+17 ;;3. [SLC-1096-50407] Under certain circumstances, servers that were
+18 ;;designated as "Run Immediately" in the SERVER ACTION field were not
+19 ;;running at all but being queued because of a logic error. This problem
+20 ;;was also noted by IHS.
+21 ;;
+22 ;;=============================================================
+23 ;;
+24 ;; CHECKSUMS WITH PATCH LIST
+25 ;;
+26 ;;Program Before After
+27 ;;
+28 ;; XQSRV1 8538091 8877273 **50**
+29 ;;
+30 ;
+31 NEW %,X,X1
+32 ;
+33 SET X=28
+34 FOR %=1:1:X
SET ^XTMP($JOB,"P50",%)=$EXTRACT($TEXT(DESC+%),4,99)
+35 ;
+36 SET X="50 SEQ #38^"_DT_"^"_DUZ
SET X(1)="^XTMP($J,""P50"")"
+37 SET X1=$PIECE(^XPD(9.7,XPDA,0),U,2)
+38 IF 'X1
DO BMES^XPDUTL("Couldn't update Patch information for patch 50.")
QUIT
+39 SET %=$$PKGPAT^XPDIP(X1,"8.0",.X)
+40 QUIT
