source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZUMSQ.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 796 bytes
Line 
1ZU ;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
4EN S $ZS=96
5 S $ZT="ERR^ZU"
6 S ZUGUI=$G(ZUGUI1)&$G(ZUGUI2) K ZUGUI1,ZUGUI2
7 G ^XUSG:ZUGUI,^XUS
8 ;
9G ;Entry point for GUI device.
10 S ZUGUI1=1 G EN
11 ;
12ERR 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
17CTRLC 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 ;
21HALT S $ZT="" I $D(^XUTL("XQ",$J)) D BYE^XUSCLEAN
22 HALT
Note: See TracBrowser for help on using the repository browser.