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

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

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1XUTMRJD1 ;SEA/RDS - TaskMan: Option, XURESJOB Exit Action, Part 2 ;11/8/94 09:12
2 ;;8.0;KERNEL;;Jul 10, 1995
3HELP1A ;
4 ;PROMPT1^XUTMRJD--? help
5 W !!?5,"Answer yes or no. Enter ?? for more help."
6 Q
7HELP1B ;
8 ;PROMPT1^XUTMRJD--explain purpose and offer to show Task List
9 N DIR,DIRUT,DTOUT,DUOUT,X,Y
10 W !!?5,"If you answer yes, you will be asked to identify the tasks"
11 W !?5,"you forcibly exited."
12 W !!?5,"If you answer no, you will exit the option."
13 W !!?5,"If you are not sure, answer yes. At the next prompt, you"
14 W !?5,"can enter ?TASK LIST to see the list of tasks TaskMan believes"
15 W !?5,"are running, which may help you identify tasks you may have"
16 W !?5,"forcibly exited."
17 Q
18HELP2A ;
19 ;PROMPT2^XUTMRJD--? help
20 I $D(ZTSCREEN) K ZTSCREEN Q
21 W !!?5,"Answer must be the internal number(s) of the task(s) to be"
22 W !?5,"selected."
23 W !!?5,"Answer must be an integer between 1 and 999999999."
24 W !?5,"Answer may be a range, for example 4000-5000."
25 W !?5,"Answer may be a list, for example 4001,4004,4010-4020."
26 W !!?5,"Enter ?? for more help."
27 Q
28HELP2B ;
29 ;PROMPT2^XUTMRJD--explain, offer to show system status or Task List
30 W !!?5,"Enter ?TASK LIST (or ?T) to list the tasks TaskMan believes"
31 W !?5,"are running."
32 W !!?5,"Enter ?SYSTEM STATUS (or ?S) to list the system status report."
33 Q
34SCREEN2A ;
35 ;PROMPT2^XUTMRJD--screen out ?TASK LIST and ?SYSTEM STATUS as acceptable
36 N ZTL,ZTX
37 S ZTX=$$UP^XLFSTR(X)
38 S ZTL=$L(X)
39 I $E("?TASK LIST",1,ZTL)=ZTX D Q
40 .W $E("?TASK LIST",ZTL+1,999)
41 .S Y="?TASK LIST",ZTOUT=1
42 .Q
43 I $E("?SYSTEM STATUS",1,ZTL)=ZTX D Q
44 .W $E("?SYSTEM STATUS",ZTL+1,999)
45 .S Y="?SYSTEM STATUS",ZTOUT=1
46 .Q
47 Q
48 ;
49SCREEN2B ;
50 ;PROMPT2^XUTMRJD--screen out lists w/o any running tasks as unacceptable
51 N ZTCOUNT,ZTR1,ZTR2,ZTSK
52 S ZTCOUNT=0 K ^TMP($J,"XUTMRJD")
53S2B1 ;
54 S ZTSK=0 F S ZTSK=$O(^%ZTSCH("TASK",ZTSK)) Q:'ZTSK D
55 .I $D(^TMP($J,"XUTMT",ZTSK)) D Q
56 ..S ZTCOUNT=ZTCOUNT+1
57 ..S ^TMP($J,"XUTMRJD",ZTSK)=""
58 .S ZTR2=$O(^TMP($J,"XUTMT",ZTSK))
59 .S ZTR1=$O(^TMP($J,"XUTMT",ZTSK))
60 .I ZTR1="" Q
61 .I ZTR1>ZTSK Q
62 .S ZTCOUNT=ZTCOUNT+1
63 .S ^TMP($J,"XUTMRJD",ZTSK)=""
64 .Q
65S2B2 ;
66 I ZTCOUNT S ^TMP($J,"XUTMRJD")=ZTCOUNT Q
67 W !!?5,"None of the tasks in that range are listed as running."
68 W !!?5,"You must select from TaskMan's list of running tasks if you"
69 W !?5,"want TaskMan to remove the ones you forcibly exited."
70 W !!?5,"Enter ? for help."
71 K X S ZTSCREEN=1
72 Q
73HELP3A ;
74 ;PROMPT3^XUTMRJD--? help
75 W !!?5,"Answer yes or no. Enter ?? for more help."
76 Q
77HELP3B ;
78 ;PROMPT3^XUTMRJD--explain consequences
79 W !!?5,"Answer yes if before continuing you want to see the task",ZTPLURAL
80 W !?5,"you have selected."
81 W !!?5,"Answer no if you are sure which task",ZTPLURAL," you selected."
82 Q
83HELP4A ;
84 ;PROMPT4^XUTMRJD--? help
85 W !!?5,"Answer yes or no. Enter ?? for more help."
86 Q
87HELP4B ;
88 ;PROMPT4^XUTMRJD--explain consequences
89 W !!?5,"Answer yes to remove the selected task",ZTPLURAL
90 W " from TaskMan's list"
91 W !?5,"of running tasks. If you do, TaskMan will no longer believe"
92 I ZTCOUNT>1 W !?5,"these tasks are running."
93 E W !?5,"this task is running."
94 W !!?5,"Answer no to leave the task",ZTPLURAL," listed as running."
95 Q
96 ;
Note: See TracBrowser for help on using the repository browser.