Routine: ZTLOAD6

%ZTLOAD6 ;SEA/RDS-TaskMan: P I: Dequeue ;12/29/94  16:02

 ;;8.0;KERNEL;;JUL 10, 1995

INPUT ;check input parameters for error conditions

 I $D(ZTSK)[0 S ZTSK=""

 I $D(ZTSK)>1 S ZTLOAD=ZTSK K ZTSK S ZTSK=ZTLOAD K ZTLOAD

 I ZTSK<1!(ZTSK\1'=ZTSK) S ZTSK(0)=0 Q

 L +^%ZTSK(ZTSK)

 D UNSCH

QUIT ;cleanup & quit

 I $D(^%ZTSK(ZTSK)),$D(DUZ)#2,DUZ]"",$D(^VA(200,DUZ,0))#2 S $P(^%ZTSK(ZTSK,.1),U,1,3)="F^"_$H_U_$P(^VA(200,DUZ,0),U)

 L -^%ZTSK(ZTSK) S ZTSK(0)=1 K ZT,ZT1,ZT2,ZT3

UNSCH ;search ^%ZTSCH & unschedule task

 ;Call with task locked.

 N ZT1,ZT2,ZT3

 S ZT1=0 F  S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1  I $D(^(ZT1,ZTSK)) S ZT2=$G(^(ZTSK)) K ^%ZTSCH(ZT1,ZTSK) I ZT2]"" S $P(^%ZTSK(ZTSK,.2),U)=ZT2

 L +^%ZTSCH("JOB"):15

 S ZT1="" F  S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1=""  I $D(^(ZT1,ZTSK)) K ^%ZTSCH("JOB",ZT1,ZTSK)

 L -^%ZTSCH("JOB"),+^%ZTSCH("IO"):15

 S ZT1="" F  S ZT1=$O(^%ZTSCH("IO",ZT1)),ZT2="" Q:ZT1=""  F  S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)) Q:ZT2=""  I $D(^(ZT2,ZTSK)) D DQ(ZT1,ZT2,ZTSK)

 L -^%ZTSCH("IO"),+^%ZTSCH("C"):15

 S ZT1="" F  S ZT1=$O(^%ZTSCH("C",ZT1)),ZT2="" Q:ZT1=""  F  S ZT2=$O(^%ZTSCH("C",ZT1,ZT2)) Q:ZT2=""  I $D(^(ZT2,ZTSK)) K ^%ZTSCH("C",ZT1,ZT2,ZTSK)

 L -^%ZTSCH("C"),+^%ZTSCH("LINK")

 S ZT1="" F  S ZT1=$O(^%ZTSCH("LINK",ZT1)),ZT2="" Q:ZT1=""  F  S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:ZT2=""  I $D(^(ZT2,ZTSK)) K ^%ZTSCH("LINK",ZT1,ZT2,ZTSK)

 L -^%ZTSCH("LINK")

DQ(%ZTIO,ZTDTH,ZTSK) ;SEARCH--remove task from Device Waiting List

 L +^%ZTSCH("IO") D DQ^%ZTM4 L -^%ZTSCH("IO")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTLOAD6   1541     printed  Apr 09, 2024@21:13:58                                                                                                                                                                                                     Page 2

%ZTLOAD6  ;SEA/RDS-TaskMan: P I: Dequeue ;12/29/94  16:02

 +1       ;;8.0;KERNEL;;JUL 10, 1995

 +2       ;

INPUT     ;check input parameters for error conditions

 +1        IF $DATA(ZTSK)[0

               SET ZTSK=""

 +2        IF $DATA(ZTSK)>1

               SET ZTLOAD=ZTSK

               KILL ZTSK

               SET ZTSK=ZTLOAD

               KILL ZTLOAD

 +3        IF ZTSK<1!(ZTSK\1'=ZTSK)

               SET ZTSK(0)=0

               QUIT

 +4        LOCK +^%ZTSK(ZTSK)

 +5       ;

 +6        DO UNSCH

QUIT      ;cleanup & quit

 +1        IF $DATA(^%ZTSK(ZTSK))

               IF $DATA(DUZ)#2

                   IF DUZ]""

                       IF $DATA(^VA(200,DUZ,0))#2

                           SET $PIECE(^%ZTSK(ZTSK,.1),U,1,3)="F^"_$HOROLOG_U_$PIECE(^VA(200,DUZ,0),U)

 +2        LOCK -^%ZTSK(ZTSK)

           SET ZTSK(0)=1

           KILL ZT,ZT1,ZT2,ZT3

 +3        QUIT

 +4       ;

UNSCH     ;search ^%ZTSCH & unschedule task

 +1       ;Call with task locked.

 +2        NEW ZT1,ZT2,ZT3

 +3        SET ZT1=0

FOR

               SET ZT1=$ORDER(^%ZTSCH(ZT1))

               if 'ZT1

                   QUIT

               IF $DATA(^(ZT1,ZTSK))

                   SET ZT2=$GET(^(ZTSK))

                   KILL ^%ZTSCH(ZT1,ZTSK)

                   IF ZT2]""

                       SET $PIECE(^%ZTSK(ZTSK,.2),U)=ZT2

 +4        LOCK +^%ZTSCH("JOB"):15

 +5        SET ZT1=""

FOR

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

               if ZT1=""

                   QUIT

               IF $DATA(^(ZT1,ZTSK))

                   KILL ^%ZTSCH("JOB",ZT1,ZTSK)

 +6        LOCK -^%ZTSCH("JOB"),+^%ZTSCH("IO"):15

 +7        SET ZT1=""

FOR

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

               SET ZT2=""

               if ZT1=""

                   QUIT

FOR

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

                   if ZT2=""

                       QUIT

                   IF $DATA(^(ZT2,ZTSK))

                       DO DQ(ZT1,ZT2,ZTSK)

 +8        LOCK -^%ZTSCH("IO"),+^%ZTSCH("C"):15

 +9        SET ZT1=""

FOR

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

               SET ZT2=""

               if ZT1=""

                   QUIT

FOR

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

                   if ZT2=""

                       QUIT

                   IF $DATA(^(ZT2,ZTSK))

                       KILL ^%ZTSCH("C",ZT1,ZT2,ZTSK)

 +10       LOCK -^%ZTSCH("C"),+^%ZTSCH("LINK")

 +11       SET ZT1=""

FOR

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

               SET ZT2=""

               if ZT1=""

                   QUIT

FOR

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

                   if ZT2=""

                       QUIT

                   IF $DATA(^(ZT2,ZTSK))

                       KILL ^%ZTSCH("LINK",ZT1,ZT2,ZTSK)

 +12       LOCK -^%ZTSCH("LINK")

 +13       QUIT

 +14      ;

DQ(%ZTIO,ZTDTH,ZTSK) ;SEARCH--remove task from Device Waiting List

 +1        LOCK +^%ZTSCH("IO")

           DO DQ^%ZTM4

           LOCK -^%ZTSCH("IO")

 +2        QUIT

 +3       ;

ZTLOAD6.m