AKMOZU.m

ZU ;GFT/SF ; 01OCT84 16:58 ;TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!! [ 01/14/86  9:27 AM ]

 ;4.1

 W !,"DEVICE ",$I,!

 S $ZT="ERR^ZU" G ^XUS ;  $ZE if you're running M/11

 ;

ERR ;

 G:$E($ZE,1,7)="<INRPT>" CTLC

 W !!,*7,"An error has occurred.  Please notify your supervisor.",!!

 D ^%ET D H^XUS G ^XUS

 ;

CTLC ;

 U 0 W !,"-- INTERRUPT ACKNOWLEDGED",!

 S Y=^UTILITY("XQ",$J,^UTILITY("XQ",$J,"T")),Y(0)=$P(Y,"^",2,99),Y=$P(Y,"^",1)

 S $ZT="ERR^ZU"

 G M1^XQ

ZU        ;GFT/SF ; 01OCT84 16:58 ;TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!! [ 01/14/86  9:27 AM ]

 +1       ;4.1

 +2        WRITE !,"DEVICE ",$IO,!

 +3       ;  $ZE if you're running M/11

           SET $ZT="ERR^ZU"

           GOTO ^XUS

 +4       ;

ERR       ;

 +1        IF $EXTRACT($ZE,1,7)="<INRPT>"

               GOTO CTLC

 +2        WRITE !!,*7,"An error has occurred.  Please notify your supervisor.",!!

 +3        DO ^%ET

           DO H^XUS

           GOTO ^XUS

 +4       ;

CTLC      ;

 +1        USE 0

           WRITE !,"-- INTERRUPT ACKNOWLEDGED",!

 +2        SET Y=^UTILITY("XQ",$JOB,^UTILITY("XQ",$JOB,"T"))

           SET Y(0)=$PIECE(Y,"^",2,99)

           SET Y=$PIECE(Y,"^",1)

 +3        SET $ZT="ERR^ZU"

 +4        GOTO M1^XQ