| 1 | XUTMDQ ;SEA/RDS - TaskMan: Option, XUTMDQ, Part 1 (Single) ;11/30/94 12:04
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ENV ;Establish Routine Environment
|
|---|
| 5 | N DDH,DIR,X,Y,ZTENV,ZTKEY,ZTNAME,ZTSK,XUTMUCI
|
|---|
| 6 | D ENV^XUTMUTL Q:'$D(ZTENV)
|
|---|
| 7 | ;
|
|---|
| 8 | SELECT ;Prompt User To Select Task Or Tasks To Unschedule
|
|---|
| 9 | W !
|
|---|
| 10 | S XUTMT(0)="AL" D ^XUTMT
|
|---|
| 11 | I 'ZTSK K ^TMP($J,"XUTMT") Q
|
|---|
| 12 | I ZTSK["-"!(ZTSK[",") D ^XUTMDQ1 Q:$D(DTOUT) G SELECT
|
|---|
| 13 | S XUTMT=ZTSK,XUTMT(0)="R3" D ^XUTMT
|
|---|
| 14 | ;
|
|---|
| 15 | STATUS ;Report On Status Of Task And Whether User May Unschedule It
|
|---|
| 16 | I $D(ZTSK(.11))#2,ZTSK(.11)="UNDEFINED",$O(ZTSK(.3))="" W !!?5,"That task is not defined." G SELECT
|
|---|
| 17 | I $D(ZTSK(.11))#2,ZTSK(.11)="UNDEFINED",$O(ZTSK(.3))="TASK",$O(ZTSK("TASK"))="" W !!?5,"That task is running and has no record." G SELECT
|
|---|
| 18 | I $D(ZTSK(.11))#2,ZTSK(.11)="UNDEFINED" W !!?5,"That task is scheduled but has no record." G CONFIRM:ZTKEY G SELECT
|
|---|
| 19 | ;
|
|---|
| 20 | S5 I $D(ZTSK(.11))#2,$O(ZTSK(.3))="" W !!?5,"That task's record is incomplete." G SELECT
|
|---|
| 21 | I $D(ZTSK(.11))#2,$O(ZTSK(.3))="TASK",$O(ZTSK("TASK"))="" W !!?5,"That task is running and its record is incomplete." G SELECT
|
|---|
| 22 | I $D(ZTSK(.11))#2 W !!?5,"That task is scheduled but its record is incomplete." G CONFIRM:ZTKEY G SELECT
|
|---|
| 23 | ;
|
|---|
| 24 | S9 I $O(ZTSK(.3))="" W !!?5,"That task is not scheduled." G SELECT
|
|---|
| 25 | I $O(ZTSK(.3))="TASK",$O(ZTSK("TASK"))="" W !!?5,"That task is running." G SELECT
|
|---|
| 26 | I 'ZTKEY,$S($P(ZTSK(0),U,11)_","_$P(ZTSK(0),U,12)=XUTMUCI:DUZ'=$P(ZTSK(0),U,3),1:ZTNAME'=$P(ZTSK(0),U,10)) W !!?5,"You may only unschedule your own tasks." G SELECT
|
|---|
| 27 | ;
|
|---|
| 28 | CONFIRM ;Prompt User To Confirm Unscheduling
|
|---|
| 29 | I $S($D(ZTSK(.11))[0:1,1:ZTSK(.11)'="UNDEFINED") W ! D EN^XUTMTP(ZTSK)
|
|---|
| 30 | W !
|
|---|
| 31 | K DIR
|
|---|
| 32 | S DIR(0)="Y"
|
|---|
| 33 | S DIR("A")="Are you sure you want to unschedule this task"
|
|---|
| 34 | S DIR("B")="NO"
|
|---|
| 35 | S DIR("?")=" Answer YES to unschedule the task."
|
|---|
| 36 | D ^DIR
|
|---|
| 37 | I 'Y W !!?5,"NOT unscheduled!"
|
|---|
| 38 | I $D(DTOUT) W $C(7) Q
|
|---|
| 39 | I 'Y G SELECT
|
|---|
| 40 | ;
|
|---|
| 41 | UNSCHED ;Unschedule Task
|
|---|
| 42 | I $D(ZTSK(0))#2,ZTSK(0)["ZTSK^XQ1",$P(ZTSK(0),U,11)_","_$P(ZTSK(0),U,12)=XUTMUCI,$P(ZTSK(0),U,8)]"" D
|
|---|
| 43 | . F DA=0:0 S DA=$O(^DIC(19.2,DA)) Q:DA'>0 I $G(^DIC(19.2,DA,1))=ZTSK D
|
|---|
| 44 | . . N DIE S DIE="^DIC(19.2,",DR="1///@" D ^DIE Q
|
|---|
| 45 | . Q
|
|---|
| 46 | S XUTMT=ZTSK,XUTMT(0)="U" D ^XUTMT
|
|---|
| 47 | W !!?5,"Unscheduled!"
|
|---|
| 48 | G SELECT
|
|---|
| 49 | ;
|
|---|
