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/XUTMD1.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1XUTMD1 ;SEA/RDS - TaskMan: Option, XUTMDEL, Part 2 (Bulk Delete) ;1/31/96 10:15
2 ;;8.0;KERNEL;**20**;Jul 10, 1995
3 ;
4COUNT ;Ask Whether To First Count The Number Of Tasks To Delete
5 W !
6 K DIR
7 S DIR(0)="Y",DIR("B")="YES"
8 S DIR("A")="Would you like to know how many tasks in that list can be deleted"
9 S DIR("?")=" Answer NO if you don't want to know how many tasks can be deleted."
10 D ^DIR
11 I $D(DIRUT) W:$D(DTOUT) $C(7) W !!?5,"NO tasks deleted!" Q
12 K DIR,DIRUT,DTOUT,DUOUT
13 I 'Y G SHOW
14 S XUTMT(0)="LD" D ^XUTMT G:$D(DIRUT) EXIT
15 W !!?5,"There ",$S(ZTSK=1:"is ",1:"are "),ZTSK," task",$S(ZTSK=1:"",1:"s")," in that list that can be deleted."
16 I ZTSK=0 W $C(7) Q
17 ;
18SHOW ;Ask Whether To Show The Tasks To Be Deleted
19 W !
20 K DIR
21 S DIR(0)="Y",DIR("B")="YES"
22 S DIR("A")="Would you like to see the tasks that will be deleted"
23 S DIR("?")=" Answer NO if you don't want to see the tasks that will be deleted."
24 D ^DIR
25 I $D(DIRUT) W:$D(DTOUT) $C(7) W !!?5,"NO tasks deleted!" Q
26 K DIR,DIRUT,DTOUT,DUOUT
27 I 'Y G CONFIRM
28 W ! S XUTMT(0)="PD" D ^XUTMT
29 I 'ZTSK W !?5,"There are 0 tasks in that list." Q
30 ;
31CONFIRM ;Prompt For Confirmation Of Deletion
32 K DIR
33 S DIR(0)="Y",DIR("B")="NO"
34 S DIR("A")="Are you sure you want to delete these tasks"
35 S DIR("?")=" Answer YES to delete the selected tasks."
36 D ^DIR
37 I 'Y W !!?5,"Tasks NOT deleted!" W:$D(DTOUT) $C(7) G EXIT
38 S XUTMT(0)="DL" D ^XUTMT
39 I ZTSK W !!?5,"Tasks deleted!"
40 I 'ZTSK W !!?5,"There are 0 tasks in that list."
41 ;
42EXIT Q
Note: See TracBrowser for help on using the repository browser.