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/ZTMONH.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1ZTMONH ;SEA/RDS-TaskMan: Option, ZTMON, Part 3 (Help Driver) ;4/19/90 12:00 ;
2 ;;7.1;KERNEL;;May 11, 1993
3 ;
4ENTRY G ^ZTMON
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^ZTMONH"
20 Q
21 ;
22BRANCH ;DO the selected listing
23 D @$S(Y="S":"SCHED^ZTMONH1",Y="W":"WAIT^ZTMONH1",Y="O":"WAIT1^ZTMONH1",Y="J":"JOB^ZTMONH2",Y="T":"TASK^ZTMONH2",Y="L":"LINK^ZTMONH2")
24 Q
25 ;
26HELP ;Help text for '?'
27 W !!,"Enter S to see the list of tasks scheduled for the future."
28 W !,"Enter W to see all tasks that are waiting for output devices."
29 W !,"Enter O to see the waiting list for a single device."
30 W !,"Enter J to see all tasks waiting for submanagers."
31 W !,"Enter T to see all currently running tasks."
32 W !,"Enter L to see all tasks waiting for a dropped link to be restored."
33 Q
34 ;
35SCREEN ;Screen out unknown users
36 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).")
37 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."
38 Q:'$T W !?5,"You may not use the monitor's help facility."
39 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)
40 Q
41 ;
42SELECT ;Select listing (main loop)
43 N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZTNAME D SCREEN Q:'Y N Y S ZTNAME=$P(^VA(200,DUZ,0),U)
44 F ZT=0:0 D RESET,^DIR K DIR,DIRUT,DTOUT,DUOUT Q:U[Y D BRANCH
45 S Z=Y
46 Q
47 ;
Note: See TracBrowser for help on using the repository browser.