| 1 | ZU ;SF/GFT - For M/SQL, TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!! ;10/31/95 09:53
|
|---|
| 2 | ;;8.0;KERNEL;**13**;Jul 10, 1995
|
|---|
| 3 | ;FOR M/SQL
|
|---|
| 4 | EN S $ZS=96
|
|---|
| 5 | S $ZT="ERR^ZU"
|
|---|
| 6 | S ZUGUI=$G(ZUGUI1)&$G(ZUGUI2) K ZUGUI1,ZUGUI2
|
|---|
| 7 | G ^XUSG:ZUGUI,^XUS
|
|---|
| 8 | ;
|
|---|
| 9 | G ;Entry point for GUI device.
|
|---|
| 10 | S ZUGUI1=1 G EN
|
|---|
| 11 | ;
|
|---|
| 12 | ERR X ^%ZOSF("NBRK") S $ZT="HALT^ZU" L ;Come here on a error
|
|---|
| 13 | I $G(IO)]"",$D(IO(1,IO)),$E($G(IOST))="P" U IO W @$S($D(IOF):IOF,1:"#")
|
|---|
| 14 | I $G(IO(0))]"" U IO(0) W !!,"RECORDING THAT AN ERROR OCCURRED ---",!!?15,"Sorry 'bout that",!,*7,!?10,"$ZERROR=",$ZERROR
|
|---|
| 15 | S %ZTERLGR="" D ^%ZTER
|
|---|
| 16 | I $ZE'["<INTERRUPT>" G ^XUSCLEAN
|
|---|
| 17 | CTRLC W !,"--Interupt Acknowledged",!
|
|---|
| 18 | S Y=^XUTL("XQ",$J,^XUTL("XQ",$J,"T")-1),Y(0)=$P(Y,"^",2,99),Y=$P("^",1)
|
|---|
| 19 | S $ZT="ERR^ZU" G M1^XQ
|
|---|
| 20 | ;
|
|---|
| 21 | HALT S $ZT="" I $D(^XUTL("XQ",$J)) D BYE^XUSCLEAN
|
|---|
| 22 | HALT
|
|---|
