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/XUTMDQ.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1XUTMDQ ;SEA/RDS - TaskMan: Option, XUTMDQ, Part 1 (Single) ;11/30/94 12:04
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4ENV ;Establish Routine Environment
5 N DDH,DIR,X,Y,ZTENV,ZTKEY,ZTNAME,ZTSK,XUTMUCI
6 D ENV^XUTMUTL Q:'$D(ZTENV)
7 ;
8SELECT ;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 ;
15STATUS ;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 ;
20S5 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 ;
24S9 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 ;
28CONFIRM ;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 ;
41UNSCHED ;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 ;
Note: See TracBrowser for help on using the repository browser.