| 1 | XUTMDQ1 ;SEA/RDS - TaskMan: Option, XUTMDQ, Part 2 (Bulk DQ) ;11/28/90 16:07 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | COUNT ;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 | ;
|
|---|
| 19 | SHOW ;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 | ;
|
|---|
| 34 | CONFIRM ;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 | ;
|
|---|
