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/XUTMDQ1.m@ 1297

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

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1XUTMDQ1 ;SEA/RDS - TaskMan: Option, XUTMDQ, Part 2 (Bulk DQ) ;11/28/90 16:07 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4COUNT ;Ask Whether To First Count The Number Of Tasks To Unschedule
5 W !
6 K DIR
7 S DIR(0)="Y"
8 S DIR("A")="Would you like to know how many tasks in that list can be unscheduled"
9 S DIR("B")="YES"
10 S DIR("?")=" Answer NO if you don't want a count of the tasks to be unscheduled."
11 D ^DIR
12 I $D(DTOUT) W $C(7)
13 I $D(DIRUT) W !!?5,"Tasks NOT unscheduled!" Q
14 I 'Y G SHOW
15 S XUTMT(0)="LU" D ^XUTMT
16 W !!?5,"There ",$S(ZTSK=1:"is ",1:"are "),ZTSK," task",$S(ZTSK=1:"",1:"s")," in that list that can be unscheduled."
17 I ZTSK=0 Q
18 ;
19SHOW ;Ask Whether To Show The Tasks To Be Unscheduled
20 W !
21 K DIR
22 S DIR(0)="Y"
23 S DIR("A")="Would you like to see the tasks that will be unscheduled"
24 S DIR("B")="YES"
25 S DIR("?")=" Answer NO if you don't want to see the tasks to be unscheduled."
26 D ^DIR
27 I $D(DTOUT) W $C(7)
28 I $D(DIRUT) W !!?5,"Tasks NOT unscheduled!" Q
29 I 'Y G CONFIRM
30 W !
31 S XUTMT(0)="PU" D ^XUTMT
32 I 'ZTSK W !?5,"There are 0 tasks in that list." Q
33 ;
34CONFIRM ;Prompt For Confirmation Of Unscheduling
35 K DIR
36 S DIR(0)="Y"
37 S DIR("A")="Are you sure you want to unschedule these tasks"
38 S DIR("B")="NO"
39 S DIR("?")=" Answer YES if you want to unschedule the selected tasks."
40 D ^DIR
41 I $D(DTOUT) W $C(7)
42 I 'Y W !!?5,"Tasks NOT unscheduled!" Q
43 S XUTMT(0)="UL" D ^XUTMT
44 I ZTSK W !!?5,"Tasks unscheduled!"
45 I 'ZTSK W !!?5,"There are 0 tasks in that list."
46 Q
47 ;
Note: See TracBrowser for help on using the repository browser.