| 1 | XUTMD1 ;SEA/RDS - TaskMan: Option, XUTMDEL, Part 2 (Bulk Delete) ;1/31/96 10:15
|
|---|
| 2 | ;;8.0;KERNEL;**20**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | COUNT ;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 | ;
|
|---|
| 18 | SHOW ;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 | ;
|
|---|
| 31 | CONFIRM ;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 | ;
|
|---|
| 42 | EXIT Q
|
|---|
