| 1 | ZTPTCH ;557/THM,SFISC/RSD-DISPLAY PATCHES FOR SELECTED ROUTINES ;08/06/97 10:52
|
|---|
| 2 | ;;8.0;KERNEL;**44,65**;Jul 10, 1995
|
|---|
| 3 | N ZTSK,%ZIS,IOP
|
|---|
| 4 | K ^UTILITY($J)
|
|---|
| 5 | W !,"Display Patches for Selected Routines",!!
|
|---|
| 6 | X ^%ZOSF("RSEL") I '$D(^UTILITY($J)) W !!,*7,"No routines were selected.",!! H 2 G EXIT
|
|---|
| 7 | W !! S %ZIS="MQ" D ^%ZIS G:POP EXIT
|
|---|
| 8 | I $D(IO("Q")) K IO("Q") S ZTDESC="Installed Patch Listing",ZTRTN="TASK^ZTPTCH",ZTSAVE("^UTILITY($J,")="" D ^%ZTLOAD
|
|---|
| 9 | I $D(ZTSK) W !!,"Request queued.",!! G EXIT
|
|---|
| 10 | ;
|
|---|
| 11 | TASK ;
|
|---|
| 12 | N CNT,CNTR,DATE,LINE,PNUM,PG,QUIT,RTN,UCI,X,Y,Z,Z1
|
|---|
| 13 | K ^TMP("ZTPTCH",$J)
|
|---|
| 14 | W:'$D(ZTQUEUED) !!,"Processing routines..."
|
|---|
| 15 | S RTN=0 F S RTN=$O(^UTILITY($J,RTN)) Q:RTN="" D W:'$D(ZTQUEUED) "."
|
|---|
| 16 | .S X=$T(+2^@RTN) Q:X="" S Y=$P(X,"**",2)
|
|---|
| 17 | .F Z=1:1 S Z1=$P(Y,",",Z) Q:(Z1="") S ^TMP("ZTPTCH",$J,Z1,RTN)=""
|
|---|
| 18 | ;
|
|---|
| 19 | S U="^" D NOW^%DTC S Y=% D DD^%ZTPP S DATE=Y
|
|---|
| 20 | X ^%ZOSF("UCI") S UCI=Y,$P(LINE,"-",IOM)=""
|
|---|
| 21 | S (CNT,CNTR,PG,QUIT)=0
|
|---|
| 22 | U IO D HDR S PNUM=""
|
|---|
| 23 | F S PNUM=$O(^TMP("ZTPTCH",$J,PNUM)) Q:PNUM=""!QUIT W !! S RTN="",Z1=0 F Z=2:1 S RTN=$O(^TMP("ZTPTCH",$J,PNUM,RTN)) Q:RTN="" D Q:QUIT
|
|---|
| 24 | .I Z1=0 W PNUM S CNT=CNT+1
|
|---|
| 25 | .W ?Z-1#8*10,RTN S CNTR=CNTR+1
|
|---|
| 26 | .I (Z#8)=0,$O(^TMP("ZTPTCH",$J,PNUM,RTN))]"" D:$Y>(IOSL-6) HDR S Z=1 W !?Z-1#8*10 ;end of line
|
|---|
| 27 | .I $Y>(IOSL-6),(Z#8)=0,$O(^TMP("ZTPTCH",$J,PNUM,RTN))]"" D HDR S Z=1 W !?Z-1#8*10 ;end of page, more of same patch
|
|---|
| 28 | .I $Y>(IOSL-6),$O(^TMP("ZTPTCH",$J,PNUM,RTN))="" D HDR S Z=1 W !?Z-1#8*10 ;end of page, no more on same patch.
|
|---|
| 29 | .S Z1=1
|
|---|
| 30 | .Q
|
|---|
| 31 | W !!?10,"Total Patches = ",CNT," Total Routines = ",CNTR
|
|---|
| 32 | I IOST?1"C-".E,'QUIT S X=$$RD(0)
|
|---|
| 33 | EXIT K ^UTILITY($J),^TMP("ZTPTCH",$J)
|
|---|
| 34 | D ^%ZISC
|
|---|
| 35 | Q
|
|---|
| 36 | RD(X) ;
|
|---|
| 37 | W !!,"Enter RETURN to "_$S(X:"continue or '^' to exit: ",1:"end: ")
|
|---|
| 38 | R X:300
|
|---|
| 39 | Q ($E(X)="^")
|
|---|
| 40 | ;
|
|---|
| 41 | HDR I IOST?1"C-".E,PG'=0,'$D(ZTQUEUED),$$RD(1) S QUIT=1 Q
|
|---|
| 42 | W:PG>0 @IOF S PG=PG+1 W !,"Installed Patches for Selected Routines ",UCI,?(IOM-8),"Page: ",PG,!,?60,DATE,!
|
|---|
| 43 | W "Patch #",?9,"|",$E(LINE,1,29)," Routines ",$E(LINE,1,29),"|",!
|
|---|
| 44 | Q
|
|---|
