source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZTPTCH.m@ 1806

Last change on this file since 1806 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ZTPTCH ;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 ;
11TASK ;
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)
33EXIT K ^UTILITY($J),^TMP("ZTPTCH",$J)
34 D ^%ZISC
35 Q
36RD(X) ;
37 W !!,"Enter RETURN to "_$S(X:"continue or '^' to exit: ",1:"end: ")
38 R X:300
39 Q ($E(X)="^")
40 ;
41HDR 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
Note: See TracBrowser for help on using the repository browser.