- XUTMD1 ;SEA/RDS - TaskMan: Option, XUTMDEL, Part 2 (Bulk Delete) ;1/31/96 10:15
- ;;8.0;KERNEL;**20**;Jul 10, 1995
- ;
- COUNT ;Ask Whether To First Count The Number Of Tasks To Delete
- W !
- K DIR
- S DIR(0)="Y",DIR("B")="YES"
- S DIR("A")="Would you like to know how many tasks in that list can be deleted"
- S DIR("?")=" Answer NO if you don't want to know how many tasks can be deleted."
- D ^DIR
- I $D(DIRUT) W:$D(DTOUT) $C(7) W !!?5,"NO tasks deleted!" Q
- K DIR,DIRUT,DTOUT,DUOUT
- I 'Y G SHOW
- S XUTMT(0)="LD" D ^XUTMT G:$D(DIRUT) EXIT
- W !!?5,"There ",$S(ZTSK=1:"is ",1:"are "),ZTSK," task",$S(ZTSK=1:"",1:"s")," in that list that can be deleted."
- I ZTSK=0 W $C(7) Q
- ;
- SHOW ;Ask Whether To Show The Tasks To Be Deleted
- W !
- K DIR
- S DIR(0)="Y",DIR("B")="YES"
- S DIR("A")="Would you like to see the tasks that will be deleted"
- S DIR("?")=" Answer NO if you don't want to see the tasks that will be deleted."
- D ^DIR
- I $D(DIRUT) W:$D(DTOUT) $C(7) W !!?5,"NO tasks deleted!" Q
- K DIR,DIRUT,DTOUT,DUOUT
- I 'Y G CONFIRM
- W ! S XUTMT(0)="PD" D ^XUTMT
- I 'ZTSK W !?5,"There are 0 tasks in that list." Q
- ;
- CONFIRM ;Prompt For Confirmation Of Deletion
- K DIR
- S DIR(0)="Y",DIR("B")="NO"
- S DIR("A")="Are you sure you want to delete these tasks"
- S DIR("?")=" Answer YES to delete the selected tasks."
- D ^DIR
- I 'Y W !!?5,"Tasks NOT deleted!" W:$D(DTOUT) $C(7) G EXIT
- S XUTMT(0)="DL" D ^XUTMT
- I ZTSK W !!?5,"Tasks deleted!"
- I 'ZTSK W !!?5,"There are 0 tasks in that list."
- ;
- EXIT Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMD1 1536 printed Feb 18, 2025@23:39:35 Page 2
- XUTMD1 ;SEA/RDS - TaskMan: Option, XUTMDEL, Part 2 (Bulk Delete) ;1/31/96 10:15
- +1 ;;8.0;KERNEL;**20**;Jul 10, 1995
- +2 ;
- COUNT ;Ask Whether To First Count The Number Of Tasks To Delete
- +1 WRITE !
- +2 KILL DIR
- +3 SET DIR(0)="Y"
- SET DIR("B")="YES"
- +4 SET DIR("A")="Would you like to know how many tasks in that list can be deleted"
- +5 SET DIR("?")=" Answer NO if you don't want to know how many tasks can be deleted."
- +6 DO ^DIR
- +7 IF $DATA(DIRUT)
- if $DATA(DTOUT)
- WRITE $CHAR(7)
- WRITE !!?5,"NO tasks deleted!"
- QUIT
- +8 KILL DIR,DIRUT,DTOUT,DUOUT
- +9 IF 'Y
- GOTO SHOW
- +10 SET XUTMT(0)="LD"
- DO ^XUTMT
- if $DATA(DIRUT)
- GOTO EXIT
- +11 WRITE !!?5,"There ",$SELECT(ZTSK=1:"is ",1:"are "),ZTSK," task",$SELECT(ZTSK=1:"",1:"s")," in that list that can be deleted."
- +12 IF ZTSK=0
- WRITE $CHAR(7)
- QUIT
- +13 ;
- SHOW ;Ask Whether To Show The Tasks To Be Deleted
- +1 WRITE !
- +2 KILL DIR
- +3 SET DIR(0)="Y"
- SET DIR("B")="YES"
- +4 SET DIR("A")="Would you like to see the tasks that will be deleted"
- +5 SET DIR("?")=" Answer NO if you don't want to see the tasks that will be deleted."
- +6 DO ^DIR
- +7 IF $DATA(DIRUT)
- if $DATA(DTOUT)
- WRITE $CHAR(7)
- WRITE !!?5,"NO tasks deleted!"
- QUIT
- +8 KILL DIR,DIRUT,DTOUT,DUOUT
- +9 IF 'Y
- GOTO CONFIRM
- +10 WRITE !
- SET XUTMT(0)="PD"
- DO ^XUTMT
- +11 IF 'ZTSK
- WRITE !?5,"There are 0 tasks in that list."
- QUIT
- +12 ;
- CONFIRM ;Prompt For Confirmation Of Deletion
- +1 KILL DIR
- +2 SET DIR(0)="Y"
- SET DIR("B")="NO"
- +3 SET DIR("A")="Are you sure you want to delete these tasks"
- +4 SET DIR("?")=" Answer YES to delete the selected tasks."
- +5 DO ^DIR
- +6 IF 'Y
- WRITE !!?5,"Tasks NOT deleted!"
- if $DATA(DTOUT)
- WRITE $CHAR(7)
- GOTO EXIT
- +7 SET XUTMT(0)="DL"
- DO ^XUTMT
- +8 IF ZTSK
- WRITE !!?5,"Tasks deleted!"
- +9 IF 'ZTSK
- WRITE !!?5,"There are 0 tasks in that list."
- +10 ;
- EXIT QUIT
