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/XUTMONH.m@ 1046

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1XUTMONH ;SEA/RDS - TaskMan: Option, XUTMON, Part 3 (Help Driver) ;5/3/94 11:40 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4 W !,"Use ZTMON" Q
5 ;
6RESET ;Setup parameters for DIR call
7 W @IOF
8 S DIR(0)="SAOM^S:Schedule List.;W:Waiting Lists.;O:One Waiting List.;J:Job List.;T:Task List.;L:Link Lists."
9 S DIR("A",1)=" Help For Monitor Taskman Option"
10 S DIR("A",2)=""
11 S DIR("A",3)=" Schedule List."
12 S DIR("A",4)=" Waiting Lists."
13 S DIR("A",5)=" One Waiting List."
14 S DIR("A",6)=" Job List."
15 S DIR("A",7)=" Task List."
16 S DIR("A",8)=" Link Lists."
17 S DIR("A",9)=""
18 S DIR("A")=" Select Type Of Listing: "
19 S DIR("?")="^D HELP^XUTMONH"
20 Q
21 ;
22BRANCH ;DO the selected listing
23S G SCHED^XUTMONH1
24W G WAIT^XUTMONH1
25O G WAIT1^XUTMONH1
26J G JOB^XUTMONH2
27T G TASK^XUTMONH2
28L G LINK^XUTMONH2
29 Q
30 ;
31HELP ;Help text for '?'
32 W !!,"Enter S to see the list of tasks scheduled for the future."
33 W !,"Enter W to see all tasks that are waiting for output devices."
34 W !,"Enter O to see the waiting list for a single device."
35 W !,"Enter J to see all tasks waiting for submanagers."
36 W !,"Enter T to see all currently running tasks."
37 W !,"Enter L to see all tasks waiting for a dropped link to be restored."
38 Q
39 ;
40SCREEN ;Screen out unknown users
41 S Y=1,Z="" I $S($D(DUZ)[0:1,DUZ="":1,1:0) W !!?5,"I do not know who you are (your DUZ variable is ",$S($D(DUZ)[0:"undefined).",1:"null).")
42 E I $D(^VA(200,DUZ,0))[0 W !!?5,"User # ",DUZ," is not defined in this uci. I'm not sure who you are."
43 Q:'$T W !?5,"You may not use the monitor's help facility."
44 W ! F ZT=0:0 R !,"Press RETURN to continue: ",Y:$S($D(DTIME)#2:DTIME,1:60) S Z=Y Q:Y=""!(Y="^") W !!?5,"Enter RETURN.",! W:Y'["?" $C(7)
45 Q
46 ;
47SELECT ;Select listing (main loop)
48 N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZTNAME D SCREEN Q:'Y N Y S ZTNAME=$P(^VA(200,DUZ,0),U)
49 F ZT=0:0 D RESET,^DIR K DIR,DIRUT,DTOUT,DUOUT Q:U[Y D @$E(Y)
50 S Z=Y
51 Q
52 ;
Note: See TracBrowser for help on using the repository browser.