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

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

initial load of FOIAVistA 6/30/08 version
File size: 3.0 KB
Line 
1XUTMTZ2 ;SEA/RDS - TaskMan: Toolkit, troubleshooting, part 3 ;5/20/91 15:40 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4REPORT ;entry--report all errors in Error file by count
5 K ^TMP($J)
6 S ZTRANSLT="" F ZTA=0:1:31,127 S ZTRANSLT=ZTRANSLT_$C(ZTA)
7 D %ZTER G QUIT:$D(DIRUT) D COUNT G QUIT:$D(DIRUT)
8 D DAY G QUIT:$D(DIRUT) I ZTDAY D NUMBER G QUIT:$D(DIRUT)
9 I 'ZTDAY,'ZTCOUNT W !!,$C(7),"No report selected!" G QUIT
10 D PRINT G QUIT:$D(DIRUT) D MAIL G QUIT:$D(DIRUT)
11 I 'ZTPRINT,'ZTMAIL W !!,"No method of reporting selected." G QUIT
12 I ZTMAIL D EN^XM,DES^XMA21 G QUIT:$D(DIRUT)
13 W !!,"Generating the report."
14 D HERE^XUTMTZ3,OTHERS^XUTMTZ3:ZTOTHERS
15 D DAILIES^XUTMTZ3:ZTDAY,TOTALS^XUTMTZ3:ZTCOUNT
16 D OUT^XUTMTZ3:ZTPRINT,SEND^XUTMTZ3:ZTMAIL
17QUIT K ^TMP($J),X,Y,ZT,ZT1,ZT2,ZT3,ZTA,ZTE,ZTMAIL,ZTOTHERS,ZTPRINT,ZTRANSLT,ZTX
18 Q
19 ;
20%ZTER ;REPORT--prompt user as to whether %ZTER is replicated/translated
21 S DIR(0)="YO",DIR("A")="Is %ZTER translated/replicated",DIR("B")="YES"
22 S DIR("?",1)="Answer YES to restrict the search to this volume set."
23 S DIR("?")="If not, I will search the %ZTER on each volume set."
24 D ^DIR K DIR
25 I $D(DTOUT) W $C(7),"**TIMEOUT**"
26 I $D(DIRUT) W !!,"Report canceled!" Q
27 S ZTOTHERS='Y
28 Q
29 ;
30COUNT ;REPORT--prompt user as to whether to count unresolved errors
31 S DIR(0)="YO",DIR("A")="Count unresolved errors since install"
32 S DIR("B")="YES"
33 S DIR("?",1)="Answer NO to suppress count of unresolved errors."
34 S DIR("?")="Otherwise a list of errors by count will be generated."
35 W ! D ^DIR K DIR
36 I $D(DTOUT) W $C(7),"**TIMEOUT**"
37 I $D(DIRUT) W !!,"Report canceled!" Q
38 S ZTCOUNT=Y
39 Q
40 ;
41DAY ;REPORT--prompt user as to whether to report errors by day
42 S DIR(0)="YO",DIR("A")="Report errors by day of occurrence"
43 S DIR("B")="YES"
44 S DIR("?",1)="Answer NO to suppress display of errors by day."
45 S DIR("?")="Otherwise list will show error that occurred each day."
46 D ^DIR K DIR
47 I $D(DTOUT) W $C(7),"**TIMEOUT**"
48 I $D(DIRUT) W !!,"Report canceled!" Q
49 S ZTDAY=Y
50 Q
51 ;
52NUMBER ;REPORT--prompt user as to how many days' errors to show
53 S DIR(0)="NO^1:9999",DIR("A")="Number of days to show"
54 S DIR("B")=9999
55 S DIR("?",1)="Answer with the number of days to display."
56 S DIR("?")="Answer must be a number between 1 and 9999."
57 D ^DIR K DIR
58 I $D(DTOUT) W $C(7),"**TIMEOUT**"
59 I $D(DIRUT) W !!,"Report canceled!" Q
60 S ZTNUMBER=Y
61 Q
62 ;
63PRINT ;REPORT--prompt user as to whether to display the report
64 S DIR(0)="YO",DIR("A")="Display the report"
65 S DIR("B")="YES"
66 S DIR("?",1)="Answer NO to suppress display of the report."
67 S DIR("?")="Otherwise it will be displayed on the terminal."
68 W ! D ^DIR K DIR
69 I $D(DTOUT) W $C(7),"**TIMEOUT**"
70 I $D(DIRUT) W !!,"Report canceled!" Q
71 S ZTPRINT=Y
72 Q
73 ;
74MAIL ;REPORT--prompt user as to whether to mail the report
75 S DIR(0)="YO",DIR("A")="Mail the report"
76 S DIR("B")="NO"
77 S DIR("?",1)="Answer YES to mail the report."
78 S DIR("?")="Otherwise the report will not be bundled into a mail message."
79 D ^DIR K DIR
80 I $D(DTOUT) W $C(7),"**TIMEOUT**"
81 I $D(DIRUT) W !!,"Report canceled!" Q
82 S ZTMAIL=Y
83 Q
84 ;
Note: See TracBrowser for help on using the repository browser.