ZTLOAD.m

%ZTLOAD ;ISF/RDS,RWF - TaskMan: Programmer Interface: Entry Points ;07/26/2006

 ;;8.0;KERNEL;**67,118,127,339,381**;JUL 10, 1995;Build 2

 ;

QUEUE ;queue a task (create, schedule) (Entry Point = ^%ZTLOAD)

 G ^%ZTLOAD1

 ;

S(MSG) ;Entry Point: extrinsic variable returns boolean: should task stop?

 I $G(ZTQUEUED)>.5,$D(^%ZTSCH("TASK",ZTQUEUED)) S ^%ZTSCH("TASK",ZTQUEUED,1)=$H

 I $D(MSG),$G(ZTQUEUED)>.5 S ^%ZTSK(ZTQUEUED,.11)=MSG

 N ZTSTOP S ZTSTOP=0

 I $G(ZTQUEUED)>.5,$L($P($G(^%ZTSK(ZTQUEUED,.1)),"^",10)) S ZTSTOP=1

 Q ZTSTOP

 ;

TM() ;Entry Point: extrinsic variable returns boolean: is TM running?

 N ZTH,ZTR S ZTH=$H,ZTR=$G(^%ZTSCH("RUN"))

 Q ZTH-ZTR*86400+$P(ZTH,",",2)-$P(ZTR,",",2)<500

 ;

REQ ;Entry Point: requeue a task (edit, reschedule)

 G ^%ZTLOAD3

 ;

KILL ;Entry Point: delete a task

 S ZTSK=$G(ZTSK)

 K ZTSK(0) S ZTSK(0)=0

 I ZTSK>1,$D(^%ZTSK(ZTSK)) D  L -^%ZTSK(ZTSK) ;could be done!

 . L +^%ZTSK(ZTSK):20 Q:'$T

 . ;Don't kill running persistent tasks.

 . I $D(^%ZTSCH("ZTSK",ZTSK,"P")) Q

 . K ^%ZTSK(ZTSK) S ZTSK(0)=1

 Q

 ;

ISQED ;Entry Point: return whether task is pending (scheduled or waiting)

 G ^%ZTLOAD4

 ;

STAT ;Entry Point: return status of a task

 G ^%ZTLOAD5

 ;

DQ ;Entry Point: dequeue a task (unschedule)

 G ^%ZTLOAD6

 ;

DESC(DESC,LST) ;Find tasks with description

 G DESC^%ZTLOAD5

 ;

RTN(RTN,LST) ;Find tasks that call this routine

 G RTN^%ZTLOAD5

 ;

OPTION(OPNM,LST) ;Find tasks for this OPTION.

 G OPTION^%ZTLOAD5

 ;

JOB(ZTM) ;Return the job # for a running task

 G JOB^%ZTLOAD5

 ;

ZTSAVE(%,%1) ;input variables in string delimited by ; to build ZTSAVE array

 N %2 K:$G(%1) ZTSAVE

 F %1=1:1 S %2=$P(%,";",%1) Q:%2=""  S ZTSAVE(%2)=""

 Q

 ;

PSET(ZTM) ;e.f. Set the persistents node

 D TN Q:'$D(^%ZTSCH("TASK",ZTM)) 0

 S ^%ZTSCH("TASK",ZTM,"P")=""

 Q 1

 ;

PCLEAR(ZTM) ;Clear the persistents node

 D TN Q:'$D(^%ZTSCH("TASK",ZTM))

 K ^%ZTSCH("TASK",ZTM,"P")

 Q

 ;

ASKSTOP(ZTSK) ;E.F. Ask a task to stop.

 G ASKSTOP^%ZTLOAD2

 Q

 ;

TN S ZTM=$S($G(ZTM)>0:ZTM,$G(ZTQUEUED)>.9:ZTQUEUED,$G(ZTSK)>0:ZTSK,1:0)

 Q

%ZTLOAD   ;ISF/RDS,RWF - TaskMan: Programmer Interface: Entry Points ;07/26/2006

 +1       ;;8.0;KERNEL;**67,118,127,339,381**;JUL 10, 1995;Build 2

 +2       ;

QUEUE     ;queue a task (create, schedule) (Entry Point = ^%ZTLOAD)

 +1        GOTO ^%ZTLOAD1

 +2       ;

S(MSG)    ;Entry Point: extrinsic variable returns boolean: should task stop?

 +1        IF $GET(ZTQUEUED)>.5

               IF $DATA(^%ZTSCH("TASK",ZTQUEUED))

                   SET ^%ZTSCH("TASK",ZTQUEUED,1)=$HOROLOG

 +2        IF $DATA(MSG)

               IF $GET(ZTQUEUED)>.5

                   SET ^%ZTSK(ZTQUEUED,.11)=MSG

 +3        NEW ZTSTOP

           SET ZTSTOP=0

 +4        IF $GET(ZTQUEUED)>.5

               IF $LENGTH($PIECE($GET(^%ZTSK(ZTQUEUED,.1)),"^",10))

                   SET ZTSTOP=1

 +5        QUIT ZTSTOP

 +6       ;

TM()      ;Entry Point: extrinsic variable returns boolean: is TM running?

 +1        NEW ZTH,ZTR

           SET ZTH=$HOROLOG

           SET ZTR=$GET(^%ZTSCH("RUN"))

 +2        QUIT ZTH-ZTR*86400+$PIECE(ZTH,",",2)-$PIECE(ZTR,",",2)<500

 +3       ;

REQ       ;Entry Point: requeue a task (edit, reschedule)

 +1        GOTO ^%ZTLOAD3

 +2       ;

KILL      ;Entry Point: delete a task

 +1        SET ZTSK=$GET(ZTSK)

 +2        KILL ZTSK(0)

           SET ZTSK(0)=0

 +3       ;could be done!

           IF ZTSK>1

               IF $DATA(^%ZTSK(ZTSK))

                   Begin DoDot:1

 +4                    LOCK +^%ZTSK(ZTSK):20

                       IF '$TEST

                           QUIT 

 +5       ;Don't kill running persistent tasks.

 +6                    IF $DATA(^%ZTSCH("ZTSK",ZTSK,"P"))

                           QUIT 

 +7                    KILL ^%ZTSK(ZTSK)

                       SET ZTSK(0)=1

                   End DoDot:1

                   LOCK -^%ZTSK(ZTSK)

 +8        QUIT 

 +9       ;

ISQED     ;Entry Point: return whether task is pending (scheduled or waiting)

 +1        GOTO ^%ZTLOAD4

 +2       ;

STAT      ;Entry Point: return status of a task

 +1        GOTO ^%ZTLOAD5

 +2       ;

DQ        ;Entry Point: dequeue a task (unschedule)

 +1        GOTO ^%ZTLOAD6

 +2       ;

DESC(DESC,LST) ;Find tasks with description

 +1        GOTO DESC^%ZTLOAD5

 +2       ;

RTN(RTN,LST) ;Find tasks that call this routine

 +1        GOTO RTN^%ZTLOAD5

 +2       ;

OPTION(OPNM,LST) ;Find tasks for this OPTION.

 +1        GOTO OPTION^%ZTLOAD5

 +2       ;

JOB(ZTM)  ;Return the job # for a running task

 +1        GOTO JOB^%ZTLOAD5

 +2       ;

ZTSAVE(%,%1) ;input variables in string delimited by ; to build ZTSAVE array

 +1        NEW %2

           IF $GET(%1)

               KILL ZTSAVE

 +2        FOR %1=1:1

               SET %2=$PIECE(%,";",%1)

               IF %2=""

                   QUIT 

               SET ZTSAVE(%2)=""

 +3        QUIT 

 +4       ;

PSET(ZTM) ;e.f. Set the persistents node

 +1        DO TN

           IF '$DATA(^%ZTSCH("TASK",ZTM))

               QUIT 0

 +2        SET ^%ZTSCH("TASK",ZTM,"P")=""

 +3        QUIT 1

 +4       ;

PCLEAR(ZTM) ;Clear the persistents node

 +1        DO TN

           IF '$DATA(^%ZTSCH("TASK",ZTM))

               QUIT 

 +2        KILL ^%ZTSCH("TASK",ZTM,"P")

 +3        QUIT 

 +4       ;

ASKSTOP(ZTSK) ;E.F. Ask a task to stop.

 +1        GOTO ASKSTOP^%ZTLOAD2

 +2        QUIT 

 +3       ;

TN         SET ZTM=$SELECT($GET(ZTM)>0:ZTM,$GET(ZTQUEUED)>.9:ZTQUEUED,$GET(ZTSK)>0:ZTSK,1:0)

 +1        QUIT