XUTMD1.m

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 ---XUTMD1   1536     printed  Apr 09, 2024@21:08:16                                                                                                                                                                                                      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