Routine: ZTLOAD2

%ZTLOAD2 ;SEA/RDS-TaskMan:  Queue, Part 2 ;12/10/08  07:23

 ;;8.0;KERNEL;**1,67,118,275,339,446**;Jul 10, 1995;Build 35

REJECT(MSG) ;GET--reject bad task

 I '$D(ZTQUEUED) W !,"QUEUE INFORMATION MISSING - NOT QUEUED",!,MSG

 G EXIT

BADDEV(MSG) ;GET--Reject task because of device issue.

 I '$D(ZTQUEUED) W !,"Queueing not allowed to device -- NOT QUEUED",!,MSG

EXIT ;Report back to app.

 S %ZTLOAD("ERROR")=MSG

RESTRCT ;GET--flag tasks with output restricted from certain times; check.

 I $D(ZTQUEUED) Q

 S ZTNOGO=0

 I ZTDTH="@" Q

 I ZTDTH'?1.5N1","1.5N Q

 S X=$$HTFM^%ZTLOAD7(ZTDTH) D ^XQ92 I X="" S ZTDTH="" W !,"Sorry--that time is restricted!",!,$C(7)

ASK ;GET--ask for start time

 N %DT,Y

 I $D(ZTQUEUED) D:ZTDTH]""  Q

 . S %DT="FRS",X=ZTDTH D ^%DT

 . S ZTDTH=$$FMTH^%ZTLOAD7(+Y) I Y'>0 S ZTDTH=""

. Q

 S ZTDTH="",%DT="AERSX",%DT("A")="Requested Start Time: ",%DT("B")="NOW",%DT(0)="NOW"

 I $D(ZTNOGO) D  I X="" Q

 . S Y=+XQY D NEXT^XQ92 I X="" W !,"Output is never allowed from this option!",$C(7),$C(7) Q

 . S %DT("B")=$$FMTE^%ZTLOAD7(X),%DT="AERSX"

. Q

 I $D(ZTNOGO),'$D(XQNOGO) W !,"Output from this option is restricted during certain times."

 F ZT=0:0 D ^%DT Q:(Y<0)!'$D(ZTNOGO)  S ZT=Y,X=Y D ^XQ92 S Y=ZT Q:X]""  W !!,"That is a restricted time!",!,$C(7)

 S:Y>0 ZTDTH=$$FMTH^%ZTLOAD7(+Y)

 K %DT,%T,X5,ZT

OPTION ;GET--get option data

 S ZTA4=$G(ZTSAVE("XQY")) I 'ZTA4 S ZTA4=$G(XQY) I 'ZTA4 S ZTA4=""

 S ZTA1="O" I 'ZTA4 S ZTA1="" Q

 S ZTA5=$P($G(^DIC(19,ZTA4,0)),U)

ZTKIL ;GET--convert forget time

 S ZTKIL=$S(ZTKIL?5N:ZTKIL,ZTKIL?5N1","1.5N:ZTKIL,ZTKIL?7N.".".N:$$FMTH^%ZTLOAD7(ZTKIL),1:"")

SPOOL ;DEVICE--for predefined ZTIO spool device, pick up IO("DOC") if missing

 I $G(IO("DOC"))="" Q

 I ZTIO[IO("DOC") Q

 I $P(ZTIO,";",2)?.N D

 .S ZTIO=$P(ZTIO,";")_";"_IO("DOC")_";"_$P(ZTIO,";",2,999)

 E  I $P(ZTIO,";",2)?1.2A1"-"1.ANP,$P(ZTIO,";",3)?.N D

 .S ZTIO=$P(ZTIO,";",1,2)_";"_IO("DOC")_";"_$P(ZTIO,";",3,999)

ASKSTOP ;e.f. Called from ASKSTOP^%ZTLOAD

 ;Ask a task to stop. Unschedule if not started.

 N % S ZTSK=+$G(ZTSK) I ZTSK<1 Q "0^BAD TASK NUMBER"

 L +^%ZTSK(ZTSK):10 I '$T Q "0^Busy"

 S %=$$AKS

 L -^%ZTSK(ZTSK)

Q %

AKS() ;Locked before called

 N ZT1,ZT2,ZTDTH,%ZTIO

 S ZTSK(0)=$G(^%ZTSK(ZTSK,0)),ZTSK(.1)=$G(^(.1))

 I ZTSK(0)="" Q "1^Task missing"

 S $P(^%ZTSK(ZTSK,.1),U,10)=$S($D(ZTNAME)#2:ZTNAME,1:$G(DUZ,.5))

 I +ZTSK(.1)=6 Q "1^Finished running"

 I +ZTSK(.1)=5 Q "2^Asked to stop"

 S ZTDTH=$$H3^%ZTM($P(ZTSK(0),U,6))

 K ^%ZTSCH(ZTDTH,ZTSK) ;Remove from schedule

 S %ZTIO=$O(^%ZTSK(ZTSK,.26,"")) I %ZTIO]"" D DQ^%ZTM4 ;Remove from device lists.

 Q "2^Unscheduled"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTLOAD2   2712     printed  Feb 18, 2025@23:42:25                                                                                                                                                                                                     Page 2

%ZTLOAD2  ;SEA/RDS-TaskMan:  Queue, Part 2 ;12/10/08  07:23

 +1       ;;8.0;KERNEL;**1,67,118,275,339,446**;Jul 10, 1995;Build 35

 +2       ;

REJECT(MSG) ;GET--reject bad task

 +1        IF '$DATA(ZTQUEUED)

               WRITE !,"QUEUE INFORMATION MISSING - NOT QUEUED",!,MSG

 +2        GOTO EXIT

 +3       ;

BADDEV(MSG) ;GET--Reject task because of device issue.

 +1        IF '$DATA(ZTQUEUED)

               WRITE !,"Queueing not allowed to device -- NOT QUEUED",!,MSG

EXIT      ;Report back to app.

 +1        SET %ZTLOAD("ERROR")=MSG

 +2        QUIT

 +3       ;

RESTRCT   ;GET--flag tasks with output restricted from certain times; check.

 +1        IF $DATA(ZTQUEUED)

               QUIT

 +2        SET ZTNOGO=0

 +3        IF ZTDTH="@"

               QUIT

 +4        IF ZTDTH'?1.5N1","1.5N

               QUIT

 +5        SET X=$$HTFM^%ZTLOAD7(ZTDTH)

           DO ^XQ92

           IF X=""

               SET ZTDTH=""

               WRITE !,"Sorry--that time is restricted!",!,$CHAR(7)

 +6        QUIT

 +7       ;

ASK       ;GET--ask for start time

 +1        NEW %DT,Y

 +2        IF $DATA(ZTQUEUED)

               if ZTDTH]""

                   Begin DoDot:1

 +3                    SET %DT="FRS"

                       SET X=ZTDTH

                       DO ^%DT

 +4                    SET ZTDTH=$$FMTH^%ZTLOAD7(+Y)

                       IF Y'>0

                           SET ZTDTH=""

 +5                    QUIT

                   End DoDot:1

               QUIT

 +6        SET ZTDTH=""

           SET %DT="AERSX"

           SET %DT("A")="Requested Start Time: "

           SET %DT("B")="NOW"

           SET %DT(0)="NOW"

 +7        IF $DATA(ZTNOGO)

               Begin DoDot:1

 +8                SET Y=+XQY

                   DO NEXT^XQ92

                   IF X=""

                       WRITE !,"Output is never allowed from this option!",$CHAR(7),$CHAR(7)

                       QUIT

 +9                SET %DT("B")=$$FMTE^%ZTLOAD7(X)

                   SET %DT="AERSX"

 +10               QUIT

               End DoDot:1

               IF X=""

                   QUIT

 +11       IF $DATA(ZTNOGO)

               IF '$DATA(XQNOGO)

                   WRITE !,"Output from this option is restricted during certain times."

 +12       FOR ZT=0:0

               DO ^%DT

               if (Y<0)!'$DATA(ZTNOGO)

                   QUIT

               SET ZT=Y

               SET X=Y

               DO ^XQ92

               SET Y=ZT

               if X]""

                   QUIT

               WRITE !!,"That is a restricted time!",!,$CHAR(7)

 +13       if Y>0

               SET ZTDTH=$$FMTH^%ZTLOAD7(+Y)

 +14       KILL %DT,%T,X5,ZT

 +15       QUIT

 +16      ;

OPTION    ;GET--get option data

 +1        SET ZTA4=$GET(ZTSAVE("XQY"))

           IF 'ZTA4

               SET ZTA4=$GET(XQY)

               IF 'ZTA4

                   SET ZTA4=""

 +2        SET ZTA1="O"

           IF 'ZTA4

               SET ZTA1=""

               QUIT

 +3        SET ZTA5=$PIECE($GET(^DIC(19,ZTA4,0)),U)

 +4        QUIT

 +5       ;

ZTKIL     ;GET--convert forget time

 +1        SET ZTKIL=$SELECT(ZTKIL?5N:ZTKIL,ZTKIL?5N1","1.5N:ZTKIL,ZTKIL?7N.".".N:$$FMTH^%ZTLOAD7(ZTKIL),1:"")

 +2        QUIT

 +3       ;

SPOOL     ;DEVICE--for predefined ZTIO spool device, pick up IO("DOC") if missing

 +1        IF $GET(IO("DOC"))=""

               QUIT

 +2        IF ZTIO[IO("DOC")

               QUIT

 +3        IF $PIECE(ZTIO,";",2)?.N

               Begin DoDot:1

 +4                SET ZTIO=$PIECE(ZTIO,";")_";"_IO("DOC")_";"_$PIECE(ZTIO,";",2,999)

               End DoDot:1

 +5       IF '$TEST

               IF $PIECE(ZTIO,";",2)?1.2A1"-"1.ANP

                   IF $PIECE(ZTIO,";",3)?.N

                       Begin DoDot:1

 +6                        SET ZTIO=$PIECE(ZTIO,";",1,2)_";"_IO("DOC")_";"_$PIECE(ZTIO,";",3,999)

                       End DoDot:1

 +7        QUIT

 +8       ;

ASKSTOP   ;e.f. Called from ASKSTOP^%ZTLOAD

 +1       ;Ask a task to stop. Unschedule if not started.

 +2        NEW %

           SET ZTSK=+$GET(ZTSK)

           IF ZTSK<1

               QUIT "0^BAD TASK NUMBER"

 +3        LOCK +^%ZTSK(ZTSK):10

           IF '$TEST

               QUIT "0^Busy"

 +4        SET %=$$AKS

 +5        LOCK -^%ZTSK(ZTSK)

 +6        QUIT %

 +7       ;

AKS()     ;Locked before called

 +1        NEW ZT1,ZT2,ZTDTH,%ZTIO

 +2        SET ZTSK(0)=$GET(^%ZTSK(ZTSK,0))

           SET ZTSK(.1)=$GET(^(.1))

 +3        IF ZTSK(0)=""

               QUIT "1^Task missing"

 +4        SET $PIECE(^%ZTSK(ZTSK,.1),U,10)=$SELECT($DATA(ZTNAME)#2:ZTNAME,1:$GET(DUZ,.5))

 +5        IF +ZTSK(.1)=6

               QUIT "1^Finished running"

 +6        IF +ZTSK(.1)=5

               QUIT "2^Asked to stop"

 +7        SET ZTDTH=$$H3^%ZTM($PIECE(ZTSK(0),U,6))

 +8       ;Remove from schedule

           KILL ^%ZTSCH(ZTDTH,ZTSK)

 +9       ;Remove from device lists.

           SET %ZTIO=$ORDER(^%ZTSK(ZTSK,.26,""))

           IF %ZTIO]""

               DO DQ^%ZTM4

 +10       QUIT "2^Unscheduled"

ZTLOAD2.m