| 1 | XUTMONH ;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 | ;
|
|---|
| 6 | RESET ;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 | ;
|
|---|
| 22 | BRANCH ;DO the selected listing
|
|---|
| 23 | S G SCHED^XUTMONH1
|
|---|
| 24 | W G WAIT^XUTMONH1
|
|---|
| 25 | O G WAIT1^XUTMONH1
|
|---|
| 26 | J G JOB^XUTMONH2
|
|---|
| 27 | T G TASK^XUTMONH2
|
|---|
| 28 | L G LINK^XUTMONH2
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | HELP ;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 | ;
|
|---|
| 40 | SCREEN ;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 | ;
|
|---|
| 47 | SELECT ;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 | ;
|
|---|
