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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: %ZTER

Package: Kernel

Routine: %ZTER


Information

%ZTER ; ISC-SF.SEA/JLI - KERNEL ERROR TRAP TO LOG ERRORS ;08/02/2011

Source Information

Source file <ZTER.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ($$EC,$$LGR,GETENV)^%ZOSV  (STACK,VXD)^%ZTER1  $$HTFM^XLFDT  

Caller Graph

Caller Graph Total: 206

Package Total Caller Graph
Kernel 31 %ZTM5  %ZTM6  %ZTMS  XPDIJ  XQ81  XQ88  XQARPRT1  XQSRV2  
XUINP337  XUP  XUS2  XUSBSE1  XUSBSE2  XUSC1C  XUTMHR  ZISHGTM  
ZISHGUX  ZISHONT  ZISHVXD  ZISPL2  ZOSV2VXD  ZOSVKSOE  ZTBKCONT  ZTMDCL  
ZU  ZUDTM  ZUGTM  ZUMSM  ZUMSQ  ZUONT  ZUVXD  
Health Level Seven 20 HLCSAC  HLCSAS  HLCSDL  HLCSDR  HLCSGTM  HLCSTCP  HLCSTCP4  HLCSTCPA  
HLDIEDB1  HLMA  HLOCLNT  HLOFILER  HLOPING  HLOPROC  HLOPROC1  HLOQUE  
HLOSRVR3  HLOSTRAC  HLOTRACE  HLTP3  
MailMan 19 XMAPHOST  XMC1  XMCB  XMCTLK  XMCTRAP  XMDIR1  XMDIR1A  XMDIR1B  
XMLTCP  XMR  XMRFTP  XMRFTPUX  XMRMSM  XMRONT  XMRPCTS  XMRPCTSA  
XMRUCX  XMTDL  XMUCXPOP  
Imaging 17 MAGDTR01  MAGGTCPR  MAGGTLB  MAGGTLB1  MAGGTMC  MAGGTMC1  MAGGTRA  MAGGTRA1  
MAGGTRAI  MAGGTRP1  MAGGTSR1  MAGGTU5  MAGIP105  MAGQBTM  MAGQBU6A  MAGUERR1  
MAGVDGWP  
Scheduling 16 SDEC02  SDEC07  SDEC08  SDEC13  SDEC14  SDEC16  SDEC19  SDEC21  
SDEC22  SDEC25B  SDEC26  SDEC29  SDEC31  SDEC33  SDECLOC  SDTMP08  
VBECS 14 VBECDC00  VBECDC01  VBECDCDC  VBECDCM  VBECDCM0  VBECDCM1  VBECDCM2  VBECDCMP  
VBECDCNM  VBECDCR  VBECDCST  VBECDCU1  VBECDCX  VBECVLC  
Integrated Billing 11 IB20P202  IB20P203  IBCEP9  IBCIUT3  IBCNEDE  IBCRHBR2  IBCRHBS2  IBECUS1  
IBJPI2  IBJVDEQ  IBTRHDE  
Run Time Library 9 RGUT  RGUTEDT  RGUTFTP  RGUTIN0  RGUTLKP  RGUTMTL  RGUTOS  RGUTOS1  
RGUTSRV  
Lab Service 8 LR451  LR477  LR493  LR502  LR511  LR515  LR525  LRJSAU2  
RPC Broker 7 XWB2HL7  XWBDRPC  XWBTCPC  XWBTCPL  XWBTCPM  XWBTCPM2  XWBVLL  
Toolkit 7 XDRDMAIN  XDRDVAL  XDRMERG0  XTERSUM  XTERSUM1  XTHC10  XTSUMCK  
HealtheVet Desktop 5 XHDPAR  XHDPARAM  XHDPCAT  XHDPDEF  XHDPTREE  
CMOP 4 PSXDODNT  PSXRPPL1  PSXRSUS  PSXRXU  
Outpatient Pharmacy 4 PSOERXO1  PSORRX2  PSOSPML4  PSOSPMU3  
Radiology Nuclear Medicine 4 RAEDCN1  RAERR01  RAIPS158  RAUTODC  
IFCAP 3 PRCGARC1  PRCVBLD  PRCVMON  
Order Entry Results Reporting 3 OROCAPI1  ORRDI1  ORRDI2  
Accounts Receivable 2 RCXVDEQ  RCXVTSK  
Enterprise Health Management Platform 2 HMPDERRH  HMPLIST  
VA FileMan 2 DDERR  DI170ENV  
VistALink 2 XOBVLL  XOBVRM  
Web Services Client 2 XOBWLIB  XOBWPWD  
Automated Lab Instruments 1 LA7VMSG1  
Automated Medical Information Exchange 1 DVBAHWSC  
Clinical Information Resource Network 1 RGEQSUB  
Clinical Reminders 1 PXRMERRH  
Consult Request Tracking 1 GMRC123P  
HINQ 1 DVBHQDL  
Inpatient Medications 1 PSGAH  
Master Patient Index VistA 1 MPIFHWSC  
Mental Health 1 YTSCOREV  
National Drug File 1 PSNPPSNU  
Pharmacy Data Management 1 PSSMRRDG  
Registration 1 DG53355A  
VistA System Monitor 1 KMPVRUN  
VistALink Security 1 XOBSCAV  

Entry Points

Name Comments DBIA/ICR reference
Z1
Z2
LIN ;Find the line of the error
EXIT ;
VAR
SAVE(%ZTERN,%ZTERV) ;Save name and value into global, use special variables
SUBS ;Save sub-nodes
GLOB ; save off a list of global subtrees, %ZT is passed in subscripted by name
; %ZTERCNT passed in to count the nodes we traverse
; %ZTERNOD the nodes through which we $QUERY
; %ZTERNAM the names of the global subtrees we're saving
; %ZTEROPN is %ZTERNAM, evaluated, without close paren for $PIECEing
ETXT() ;Return the Text of the error
ENC(%ZT1) ;Encode a string with control char in \027 format
UCI() ;Return the UCI, Changed to Box:Volume p431
APPERROR(%ZTERNM) ;Caller gives name to Error. p431
  • ICR #1621
    • Status: Active
    • Usage: Supported
    ERR ;Handle an error in %ZTER
    ECNT ;Add to the error count
    FMT(%ZTE) ;Format the error text
    SCREEN(ERR,%ZT3) ;Screen out certain errors.
    UNWIND ;Unwind stack for new error trap. Called by app code.
  • ICR #1621
    • Status: Active
    • Usage: Supported
    UNW
    NEWERR() ;Does this OS support the M95 error trapping
  • ICR #1621
    • Status: Active
    • Usage: Supported
    ABORT ;Pop the stack all the way.
    POST ;Do the post-init

    External References

    Name Field # of Occurrence
    $$EC^%ZOSV %ZTER+4, SCREEN+1
    $$LGR^%ZOSV %ZTER+3, APPERROR+1
    GETENV^%ZOSV UCI+2
    STACK^%ZTER1 Z2+15
    VXD^%ZTER1 Z2+22
    $$HTFM^XLFDT ECNT+12, ECNT+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("LOAD" LIN+5
    ^%ZOSF("OS" Z2+17, Z2+22
    ^%ZOSF("TEST" LIN+4
    ^%ZTER(1 - [#3.075] Z1+4, Z1+5, Z2, Z2+1, Z2+2*, Z2+3*, Z2+4, Z2+6, Z2+28, Z2+29*
    , ERR+1*
    ^%ZTER(2 - [#3.076] LIN+10, SCREEN+14, SCREEN+17, SCREEN+19
    ^%ZTER(3.077 - [#3.077] ECNT+2, ECNT+3, ECNT+5, ECNT+6, ECNT+7*, ECNT+9, ECNT+11*, ECNT+12*, ECNT+13*, SCREEN+6
    ^TMP("$ZE" %ZTER+3*, %ZTER+4*, %ZTER+5*, %ZTER+6*, %ZTER+7, Z1+1, Z2+9, EXIT+3, EXIT+4!, APPERROR+1*
    , APPERROR+2*, APPERROR+3*, APPERROR+4*
    ^TMP($J LIN+3!, LIN+6, LIN+7, LIN+8!
    ^XTV(8989.3 - [#8989.3] SCREEN+9

    Label References

    Name Line Occurrences
    $$ENC Z2+9
    $$ETXT Z2+13
    $$FMT ECNT+1, SCREEN+4
    $$SCREEN Z1+2
    $$UCI Z2+10
    ECNT EXIT+1
    EXIT Z1+2
    GLOB Z2+26
    SAVE Z2+16, Z2+18, Z2+20, VAR, SUBS+4
    SUBS Z2+25
    VAR Z2+25
    Z1 APPERROR+6
    Z2 Z2

    Naked Globals

    Name Field # of Occurrence
    ^( Z2+28*, LIN+6, LIN+10
    ^("GR" Z2+5*
    ^("J" Z2+11*
    ^("L" SAVE+4*
    ^("ZE" Z2+5*
    ^(0 ECNT+5*, ECNT+9*, SCREEN+14
    ^(2 SCREEN+14
    ^(3 SCREEN+19*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZT EXIT+7!
    %ZT( GLOB+7
    %ZT("^XUTL(""XQ"",$J)" Z1+1*
    %ZT1 ENC~, ENC+2
    %ZT3 SCREEN~, SCREEN+18
    %ZTA SCREEN+1~, SCREEN+7*
    %ZTB ENC+1~*, ENC+2*, ENC+3
    %ZTC ENC+1~, ENC+2*
    %ZTE FMT~, FMT+1*, FMT+2*, FMT+3*, FMT+4, SCREEN+1~, SCREEN+4*, SCREEN+6, SCREEN+11*, SCREEN+14*
    , SCREEN+17*, SCREEN+19
    %ZTER111 EXIT+5!
    %ZTER112 EXIT+5!
    %ZTER11A Z2+22!, EXIT+5!, ECNT+1*, ECNT+2, ECNT+3, ECNT+7
    %ZTER11B Z2+22!, EXIT+5!
    %ZTER11C Z2+1*, Z2+2, Z2+7!
    %ZTER11D EXIT+5!
    %ZTER11H EXIT+5!, ECNT+10*, ECNT+11
    %ZTER11I Z2+10*, Z2+11, EXIT+5!
    %ZTER11L EXIT+5!
    %ZTER11N Z1+5*, Z2*, Z2+2, Z2+3, Z2+4, Z2+5, Z2+29, EXIT+5!, ERR+1, ECNT+1*
    , ECNT+3*, ECNT+4, ECNT+5*, ECNT+6*, ECNT+7, ECNT+9, ECNT+11, ECNT+12, ECNT+13
    %ZTER11Q EXIT+5!
    %ZTER11S EXIT+5!, SUBS+1*, SUBS+3*, SUBS+4*, ECNT+10*, ECNT+11
    %ZTER11Z EXIT+5!
    %ZTER12A Z2+7!, Z2+9*, Z2+12, EXIT+6!
    %ZTER12B Z2+7!, Z2+9*, Z2+12, EXIT+6!
    %ZTER13A %ZTER+10*, EXIT+2, EXIT+6!
    >> %ZTERAPP Z2+5, APPERROR+5*
    %ZTERCNT Z2+14*, Z2+27, EXIT+7!, SAVE+1*, SAVE+2, SAVE+4, SAVE+6, GLOB+12*, GLOB+13, GLOB+14
    %ZTERH1 Z1+4*, Z1+5, Z2, Z2+1, Z2+2, Z2+3, Z2+4, Z2+6, Z2+28, Z2+29
    , EXIT+7!, ERR+1
    %ZTERI SAVE+5~, SAVE+6*
    %ZTERLGR %ZTER+9, Z1+1*, Z2+5!
    %ZTERN SAVE~, SAVE+1
    %ZTERNAM GLOB+5~, GLOB+6*, GLOB+7*, GLOB+8, GLOB+13
    %ZTERNM APPERROR~, APPERROR+2
    %ZTERNOD GLOB+5~, GLOB+8*, GLOB+9, GLOB+11*, GLOB+13, GLOB+14
    %ZTEROPN GLOB+5~, GLOB+9*, GLOB+11, GLOB+13
    %ZTERROR Z2+13*, LIN+10*, EXIT+6!
    %ZTERRT Z2+4*, Z2+5, Z2+11, Z2+12, Z2+19*, Z2+27, LIN+9, EXIT+7!, SAVE+1, SAVE+2
    , SAVE+4, SAVE+6, GLOB+13, GLOB+14
    %ZTERSUB EXIT+6!, SUBS+2*
    %ZTERV SAVE~, SAVE+2, SAVE+4, SAVE+6*
    %ZTERVAP EXIT+6!, SUBS+2*
    %ZTERVAR Z2+24*, Z2+25*, EXIT+6!, VAR, SUBS+1, SUBS+2, SUBS+3
    %ZTERX LIN+1*, LIN+2, LIN+5, LIN+6, LIN+7, EXIT+7!
    %ZTERY LIN+1*, LIN+4, LIN+5*, LIN+6, LIN+7, EXIT+7!
    %ZTERZE Z1+1*, Z1+2, Z2+5, LIN+1, EXIT+6!, ETXT+1, ECNT+1
    %ZTH SCREEN+1~, SCREEN+4*, SCREEN+6
    %ZTI ENC+1~, ENC+2*, SCREEN+1~, SCREEN+6*, SCREEN+11*, SCREEN+13, SCREEN+14*, SCREEN+17, SCREEN+19
    %ZTJ SCREEN+1~, SCREEN+6*, SCREEN+7*, SCREEN+9, SCREEN+13*, SCREEN+14, SCREEN+18
    %ZTR SCREEN+1~, SCREEN+6*, SCREEN+7
    %ZTZLIN LIN+6*, LIN+7*, LIN+9!
    >> D0 %ZTER+9
    >> DA %ZTER+9
    >> DI %ZTER+9
    >> DIC %ZTER+9
    >> DIE %ZTER+9
    DIF LIN+3~, LIN+5*
    >> DISYS %ZTER+9
    DT %ZTER+9
    DUZ %ZTER+9
    ERR SCREEN~, SCREEN+1*, SCREEN+2, SCREEN+4, SCREEN+14
    IO %ZTER+9
    IO("ZIO" Z2+12
    >> IOBS %ZTER+9
    IOF %ZTER+9
    IOM %ZTER+9
    ION %ZTER+9
    >> IOS %ZTER+9
    IOSL %ZTER+9
    IOST %ZTER+9
    >> IOT %ZTER+9
    >> IOXY %ZTER+9
    U %ZTER+9
    X LIN+3~, LIN+4*, LIN+6*, LIN+7*
    XCNP LIN+3~, LIN+5*
    >> XQAUDIT %ZTER+9
    >> XQDIC %ZTER+9
    >> XQPSM %ZTER+9
    >> XQPT %ZTER+9
    >> XQVOL %ZTER+9
    >> XQXFLG %ZTER+9
    >> XQY %ZTER+9
    >> XQY0 %ZTER+9
    >> XRTL %ZTER+9
    XUALLOC %ZTER+8, Z1!
    Y UCI+1~*, UCI+2*, UCI+3
    >> ZTQUEUED %ZTER+9
    >> ZTREQ %ZTER+9
    >> ZTSTOP %ZTER+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All