XQP50.m

XQP50 ;Luke&Ron/SEA - Update Patch 50 Application History ;11/27/96  09:42 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1001,1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

XQP50     ;Luke&Ron/SEA - Update Patch 50 Application History ;11/27/96  09:42 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1001,1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**51**;Nov 21, 1996

 +3       ;

 +4       ;This routine, a post init routine for patch XU*8*51, updates

 +5       ;the Patch Application History of patch XU*8*50 which was 

 +6       ;released without a link to the Package File.

 +7       ;

 +8       ;38 is the Patch Module Sequence Number, X1 is the Kernel

 +9       ;IEN in the Package File [^DIC(9.4)], 8.0 is the Version #,

 +10      ;DT and DUZ record who and when it was installed.

 +11      ;

 +12      ;

 +13      ;

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