Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ZUOLD

Package: Kernel

Routine: ZUOLD


Information

ZU ;SF/GFT - For MSM, TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!! ;08/24/98 11:26

Source Information

Source file <ZUOLD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 6 (GETENV,LOGRSRC)^%ZOSV  ^%ZTER  M1^XQ  ^XUS  (,BYE,KILL1)^XUSCLEAN  ^XUSG  

Entry Points

Name Comments DBIA/ICR reference
EN
JOBCHK
ERR
GUIX
CTRLC2
CTRLC
G ;Entry point for GUI device.
GUI() ;Test if under GUI
HALT

External References

Name Field # of Occurrence
GETENV^%ZOSV JOBCHK+2
LOGRSRC^%ZOSV EN+1, HALT+1
^%ZTER ERR+2
M1^XQ CTRLC2+5
^XUS JOBCHK+3
^XUSCLEAN ERR+6, CTRLC2, CTRLC2+4
BYE^XUSCLEAN HALT
KILL1^XUSCLEAN CTRLC+1
^XUSG JOBCHK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"** TROUBLE ** - ** CALL IRM NOW! **"
  • Line Location: JOBCHK+0
Function Call: WRITE
  • Prompt: @$S($D(IOF):IOF,1:"#")
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !!,"RECORDING THAT AN ERROR OCCURRED ---",!!?15,"Sorry 'bout that",!,*7,!?10,"$ZERROR=",$ZERROR
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: !,"--Interrupt Acknowledged",!
  • Line Location: CTRLC+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^$DI( GUI+3
^%ZIS(14.7 - [#14.7] JOBCHK+2
^%ZOSF("AVJ" JOBCHK
^%ZOSF("PROGMODE" ERR+5
^%ZTSCH("LOGRSRC" EN+1, HALT+1
^XUTL("XQ" CTRLC2, CTRLC2+1*, HALT

Label References

Name Line Occurrences
$$GUI EN
CTRLC2 CTRLC2+2
EN G+1
GUIX GUI+2
HALT JOBCHK

Naked Globals

Name Field # of Occurrence
^(1 CTRLC2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % JOBCHK+2*
>> %K JOBCHK+2*
>> %ZT("^XUTL(""XQ"",$J)" ERR+2*
>> %ZTERLGR ERR+2*
IO ERR+3, CTRLC
IO(0 ERR+4, CTRLC
IO(1 ERR+3
IOF ERR+3
IOST ERR+3
>> X GUI+2*, GUI+3*, GUIX
>> XQPSM CTRLC2+3*
>> XQY CTRLC2+1*, CTRLC2+3*, CTRLC2+4
>> XQY0 CTRLC2+1*, CTRLC2+2
>> XUERF ERR+6*
>> Y JOBCHK, JOBCHK+2*, ERR+5
>> ZUGUI1 JOBCHK+3, G+1*
>> ZUGUI2 EN*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All