XUTMKA.m

XUTMKA ;ISF/RWF - Send alerts for Taskman ;11/23/99  07:57

 ;;8.0;KERNEL;**127**

EN1 N CNT K ^TMP($J)

 W !,"List of Devices that haven't been successfully opened.",!

 D DEVTRY(3600)

 D SHOW,CLEAR

 Q

 ;

CLEAR ;Clear the DEVTRY nodes.

 K ^%ZTSCH("DEVTRY")

 Q

TASK ;Queued task entry point

 N CNT,XMB,XMTEXT K ^TMP($J)

 D LOG("From "_$$KSP^XUPARAM("WHERE")_" on "_$$HTE^XLFDT($H))

 D DEVTRY(3600)

 I CNT>1 S XMB="XUTM PROBLEM DEVICES",XMTEXT="^TMP($J," D ^XMB

 D CLEAR

 Q

DEVTRY(OFFSET) ;Look at the ^%ZTSCH("DEVTRY" nodes to see about problem devices

 N DEV,TIME,DTIME

 S TIME=$$H3^%ZTM($H),DEV=""

 F  S DEV=$O(^%ZTSCH("DEVTRY",DEV)) Q:DEV=""  D

 . S DTIME=$G(^%ZTSCH("DEVTRY",DEV)) Q:DTIME=""

 . I (DTIME+OFFSET)<TIME D LOG("Device "_DEV_" has not been successfully opened since "_$$HTE^XLFDT($$H0^%ZTM(DTIME)))

 . Q

 Q

LOG(MSG) ;Add text to report

 S CNT=$G(CNT)+1,^TMP($J,CNT,0)=MSG

 Q

 ;

SHOW ;Show text

 N %

 F %=1:1 Q:'$D(^TMP($J,%,0))  W !,^(0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMKA   987     printed  Apr 09, 2024@21:15:40                                                                                                                                                                                                       Page 2

XUTMKA    ;ISF/RWF - Send alerts for Taskman ;11/23/99  07:57

 +1       ;;8.0;KERNEL;**127**

EN1        NEW CNT

           KILL ^TMP($JOB)

 +1        WRITE !,"List of Devices that haven't been successfully opened.",!

 +2        DO DEVTRY(3600)

 +3        DO SHOW

           DO CLEAR

 +4        QUIT 

 +5       ;

CLEAR     ;Clear the DEVTRY nodes.

 +1        KILL ^%ZTSCH("DEVTRY")

 +2        QUIT 

TASK      ;Queued task entry point

 +1        NEW CNT,XMB,XMTEXT

           KILL ^TMP($JOB)

 +2        DO LOG("From "_$$KSP^XUPARAM("WHERE")_" on "_$$HTE^XLFDT($HOROLOG))

 +3        DO DEVTRY(3600)

 +4        IF CNT>1

               SET XMB="XUTM PROBLEM DEVICES"

               SET XMTEXT="^TMP($J,"

               DO ^XMB

 +5        DO CLEAR

 +6        QUIT 

DEVTRY(OFFSET) ;Look at the ^%ZTSCH("DEVTRY" nodes to see about problem devices

 +1        NEW DEV,TIME,DTIME

 +2        SET TIME=$$H3^%ZTM($HOROLOG)

           SET DEV=""

 +3        FOR 

               SET DEV=$ORDER(^%ZTSCH("DEVTRY",DEV))

               if DEV=""

                   QUIT 

               Begin DoDot:1

 +4                SET DTIME=$GET(^%ZTSCH("DEVTRY",DEV))

                   if DTIME=""

                       QUIT 

 +5                IF (DTIME+OFFSET)<TIME

                       DO LOG("Device "_DEV_" has not been successfully opened since "_$$HTE^XLFDT($$H0^%ZTM(DTIME)))

 +6                QUIT 

               End DoDot:1

 +7        QUIT 

LOG(MSG)  ;Add text to report

 +1        SET CNT=$GET(CNT)+1

           SET ^TMP($JOB,CNT,0)=MSG

 +2        QUIT 

 +3       ;

SHOW      ;Show text

 +1        NEW %

 +2        FOR %=1:1

               if '$DATA(^TMP($JOB,%,0))

                   QUIT 

               WRITE !,^(0)

 +3        QUIT