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
;;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
;;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**
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"")"
I 'X1 D BMES^XPDUTL("Couldn't update Patch information for patch 50.") Q