XUTMQ3.m

XUTMQ3 ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 5 (Modules) ;03/09/2000  12:58

 ;;8.0;KERNEL;**136**;Jul 10, 1995

 ;

ENTRY G ^XUTMQ

 ;

PRINT ;Subroutine--Print A Task

 N ZTSK W:'ZTC @IOF,!,ZTH,! W:'ZTF !,"-------------------------------------------------------------------------------"

 S X=0,ZTC=0,ZTF=0 D EN^XUTMTP(ZTS) I $Y>18 W ! S ZTF=1,DIR(0)="E" D ^DIR S X=$D(DTOUT)!$D(DUOUT) Q:X  W @IOF

 S ZTC=ZTC+1 Q

 ;

OUT ;Tag for breaking FOR scope to exit early

 Q

 ;

IOQ0 ;IOQ--Extending Scope Of FOR Loop

 S ZTS=ZT3 D PRINT Q:X

 Q

 ;

IO ;IO1--List the tasks waiting for the selected device

 S X=0,ZTC=0,ZTF=1,ZTH="Tasks waiting for device "_ZTION_"..."

 S ZT2="" F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)),ZT3="" Q:'ZT2  F ZT=0:0 S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3=""  S ZTS=ZT3 D PRINT G OUT:X

 Q:X  W:'ZTC !?5,"On this volume set there are no tasks waiting for that device." W ! Q

 ;

IOQ ;Tasks waiting for devices.

 N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS S ZTC=0,ZTF=1,ZTH="Tasks waiting for devices..."

 S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1=""  F ZT=0:0 S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)),ZT3="" Q:'ZT2  F ZT=0:0 S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3=""  D IOQ0 G OUT:X

 I 'ZTC W !!,"There are no tasks waiting for devices on this volume set."

 W ! S DIR(0)="E",DIR("A")=$S(ZTC:"End of listing.  ",1:"")_"Press RETURN to continue" D ^DIR Q

 ;

IO1 ;Waiting list for a device

 N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTIO,ZTION,ZTH,ZTS

 F ZT=0:0 D IO2 Q:ZTION=""  S ZT1=ZTIO D IO Q:X

 Q

 ;

IO2 ;IO1--prompt user for a device

 S DIR(0)="PO^3.5:EMQZ"

 S DIR("A")="Select DEVICE"

 S DIR("?",1)="     Answer should be a device whose waiting list you want to see."

 S DIR("?")="     Enter ?? for a list of devices with waiting tasks."

 S DIR("??")="^D IO3^XUTMQ3"

 D ^DIR K DIR

 I $D(DTOUT) W $C(7)

 I $D(DIRUT) S ZTION="" Q

 S ZTION=$P(Y,U,2),ZTIO=$P(Y(0),U,2)

 Q

 ;

IO3 ;IO2--?? help for device selection

 N ZT,ZT1,ZT2,ZT3,ZT4,ZTC

 W !!?5,"These are the devices with waiting tasks:",!

 S ZT1="IO",ZT2=""

 F  S ZT2=$O(^%ZTSCH("IO",ZT2)) Q:ZT2=""  D IOCNT I ZTC W !?5,ZT2,?40,ZTC," task",$S(ZTC=1:"",1:"s")

 Q

 ;

IOCNT ;IO3--count tasks waiting for each device

 S ZT3="",ZTC=0

 F  S ZT3=$O(^%ZTSCH("IO",ZT2,ZT3)),ZT4="" Q:ZT3=""  F  S ZT4=$O(^%ZTSCH("IO",ZT2,ZT3,ZT4)) Q:ZT4=""  S ZTC=ZTC+1

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMQ3   2406     printed  Mar 13, 2025@21:18:26                                                                                                                                                                                                      Page 2

XUTMQ3    ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 5 (Modules) ;03/09/2000  12:58

 +1       ;;8.0;KERNEL;**136**;Jul 10, 1995

 +2       ;

ENTRY      GOTO ^XUTMQ

 +1       ;

PRINT     ;Subroutine--Print A Task

 +1        NEW ZTSK

           if 'ZTC

               WRITE @IOF,!,ZTH,!

           if 'ZTF

               WRITE !,"-------------------------------------------------------------------------------"

 +2        SET X=0

           SET ZTC=0

           SET ZTF=0

           DO EN^XUTMTP(ZTS)

           IF $Y>18

               WRITE !

               SET ZTF=1

               SET DIR(0)="E"

               DO ^DIR

               SET X=$DATA(DTOUT)!$DATA(DUOUT)

               if X

                   QUIT 

               WRITE @IOF

 +3        SET ZTC=ZTC+1

           QUIT 

 +4       ;

OUT       ;Tag for breaking FOR scope to exit early

 +1        QUIT 

 +2       ;

IOQ0      ;IOQ--Extending Scope Of FOR Loop

 +1        SET ZTS=ZT3

           DO PRINT

           if X

               QUIT 

 +2        QUIT 

 +3       ;

IO        ;IO1--List the tasks waiting for the selected device

 +1        SET X=0

           SET ZTC=0

           SET ZTF=1

           SET ZTH="Tasks waiting for device "_ZTION_"..."

 +2        SET ZT2=""

           FOR ZT=0:0

               SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))

               SET ZT3=""

               if 'ZT2

                   QUIT 

               FOR ZT=0:0

                   SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))

                   if ZT3=""

                       QUIT 

                   SET ZTS=ZT3

                   DO PRINT

                   if X

                       GOTO OUT

 +3        if X

               QUIT 

           if 'ZTC

               WRITE !?5,"On this volume set there are no tasks waiting for that device."

           WRITE !

           QUIT 

 +4       ;

IOQ       ;Tasks waiting for devices.

 +1        NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS

           SET ZTC=0

           SET ZTF=1

           SET ZTH="Tasks waiting for devices..."

 +2        SET ZT1=""

           FOR ZT=0:0

               SET ZT1=$ORDER(^%ZTSCH("IO",ZT1))

               SET ZT2=""

               if ZT1=""

                   QUIT 

               FOR ZT=0:0

                   SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))

                   SET ZT3=""

                   if 'ZT2

                       QUIT 

                   FOR ZT=0:0

                       SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))

                       if ZT3=""

                           QUIT 

                       DO IOQ0

                       if X

                           GOTO OUT

 +3        IF 'ZTC

               WRITE !!,"There are no tasks waiting for devices on this volume set."

 +4        WRITE !

           SET DIR(0)="E"

           SET DIR("A")=$SELECT(ZTC:"End of listing.  ",1:"")_"Press RETURN to continue"

           DO ^DIR

           QUIT 

 +5       ;

IO1       ;Waiting list for a device

 +1        NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTIO,ZTION,ZTH,ZTS

 +2        FOR ZT=0:0

               DO IO2

               if ZTION=""

                   QUIT 

               SET ZT1=ZTIO

               DO IO

               if X

                   QUIT 

 +3        QUIT 

 +4       ;

IO2       ;IO1--prompt user for a device

 +1        SET DIR(0)="PO^3.5:EMQZ"

 +2        SET DIR("A")="Select DEVICE"

 +3        SET DIR("?",1)="     Answer should be a device whose waiting list you want to see."

 +4        SET DIR("?")="     Enter ?? for a list of devices with waiting tasks."

 +5        SET DIR("??")="^D IO3^XUTMQ3"

 +6        DO ^DIR

           KILL DIR

 +7        IF $DATA(DTOUT)

               WRITE $CHAR(7)

 +8        IF $DATA(DIRUT)

               SET ZTION=""

               QUIT 

 +9        SET ZTION=$PIECE(Y,U,2)

           SET ZTIO=$PIECE(Y(0),U,2)

 +10       QUIT 

 +11      ;

IO3       ;IO2--?? help for device selection

 +1        NEW ZT,ZT1,ZT2,ZT3,ZT4,ZTC

 +2        WRITE !!?5,"These are the devices with waiting tasks:",!

 +3        SET ZT1="IO"

           SET ZT2=""

 +4        FOR 

               SET ZT2=$ORDER(^%ZTSCH("IO",ZT2))

               if ZT2=""

                   QUIT 

               DO IOCNT

               IF ZTC

                   WRITE !?5,ZT2,?40,ZTC," task",$SELECT(ZTC=1:"",1:"s")

 +5        QUIT 

 +6       ;

IOCNT     ;IO3--count tasks waiting for each device

 +1        SET ZT3=""

           SET ZTC=0

 +2        FOR 

               SET ZT3=$ORDER(^%ZTSCH("IO",ZT2,ZT3))

               SET ZT4=""

               if ZT3=""

                   QUIT 

               FOR 

                   SET ZT4=$ORDER(^%ZTSCH("IO",ZT2,ZT3,ZT4))

                   if ZT4=""

                       QUIT 

                   SET ZTC=ZTC+1

 +3        QUIT 

 +4       ;