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: %ZISUTL

Package: Kernel

Routine: %ZISUTL


Information

%ZISUTL ;ISD/HGW - Device Handler Utility routine ;05/22/12 10:22

Source Information

Source file <ZISUTL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 7 ^%ZIS  $$UP^%ZIS1  1^%ZIS5  ^%ZISC  ($$FINDEV,$$LNPRTIEN,$$LNPRTNAM,GETDEV)^%ZISUTL  $$VERSION^%ZOSV  $$CRC32^XLFCRC  

Caller Graph

Caller Graph Total: 37

Package Total Caller Graph
Kernel 16 %ZIS  %ZIS1  %ZIS2  %ZISUTL  %ZTLOAD1  XLFNSLK  XUSBSE2  XUSC1  
ZISHGTM  ZISHGUX  ZISHMNT  ZISHMSM  ZISHMSU  ZISHONT  ZISHPW  ZISHVXD  
RPC Broker 9 XWB2HL7  XWBCAGNT  XWBCSAV  XWBM2MC  XWBRL  XWBRPC  XWBTCPC  XWBTCPM  
XWBVLL  
Lab Service 3 LRBARCFA  LRLABLIO  LRLABXT  
Outpatient Pharmacy 3 PSOQ0595  PSOQRART  PSOQUAP2  
CIA Utilities 1 CIAUHFS  
Consult Request Tracking 1 GMRCART  
GUI Generic Tools 1 BGUTCPH  
Health Level Seven 1 HLCSAC  
IHS Changes To Lab 1 BLRAG05A  
VistALink 1 XOBVSKT  

Entry Points

Name Comments DBIA/ICR reference
USE(X1) ;Restore IO* variables pertaining to the device.
  • ICR #2119
    • Status: Active
    • Usage: Supported
    SYMBOL(MODE,ROOT) ;0=Save, 1=Restore, K=Kill IO variables
    FIND(IOP) ;e.f. Get the IEN of a device
    LINEPORT() ;Return device name for line port.
    ENDOFILE() ;p599 Set Cache end-of-file to work like DSM
    RMALLDEV() ;Remove saved IO variables for all devices saved in table.
    NEXTDEV(NM) ;Return next available device.
    RMDEV(X) ;Remove saved IO variables.
  • ICR #2119
    • Status: Active
    • Usage: Supported
    FINDEV(NM) ;Find Device name and return IEN.
    GETDEV(X) ;Return IO variables
    ; ZEXCEPT: POP
    NOQ(IOP) ;e.f. Return queueing status
    LNPRTADR(X) ;Returns Line/Port name of a fixed device.
    OPEN(HNDL,IOP,%ZIS) ;Open extrinsic function
  • ICR #2119
    • Status: Active
    • Usage: Supported
    UNIQUE(ZISNA) ;Build a unique number to add to a device name
    SAVDEV(NM) ;Save IO variables
  • ICR #2119
    • Status: Active
    • Usage: Supported
    LNPRTSUB() ;Return line port subtype pointer.
    LNPRTNAM() ;Return Line port name
    LNPRTIEN(X) ;Return internal entry number of Line/port
    CLOSE(X1) ;Close extrinsic function
  • ICR #2119
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    ^%ZIS OPEN+7
    $$UP^%ZIS1 FIND+2
    1^%ZIS5 FIND+2
    ^%ZISC CLOSE+6
    $$FINDEV^%ZISUTL USE+4
    $$LNPRTIEN^%ZISUTL LINEPORT+2, LNPRTSUB+2
    $$LNPRTNAM^%ZISUTL LINEPORT+2, LNPRTSUB+2
    GETDEV^%ZISUTL USE+6
    $$VERSION^%ZOSV ENDOFILE+3, ENDOFILE+4, ENDOFILE+5
    $$CRC32^XLFCRC UNIQUE+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] LNPRTADR+3, NOQ+3
    ^%ZIS(3.23 - [#3.23] LINEPORT+3, LNPRTSUB+3, LNPRTIEN+2, LNPRTADR+4, LNPRTADR+5
    ^%ZOSF("OS" LNPRTNAM+2
    ^%ZOSF("VOL" FIND+2
    ^TMP("XUDEVICE" GETDEV+2, GETDEV+6, SAVDEV+5, RMDEV+4!, RMALLDEV+1!, FINDEV+1, NEXTDEV+2, NEXTDEV+3*
    ^TMP("ZISUTL" UNIQUE+3

    Label References

    Name Line Occurrences
    $$FIND NOQ+2
    $$FINDEV SAVDEV+4, RMDEV+2, CLOSE+3
    $$NEXTDEV SAVDEV+4
    GETDEV CLOSE+5
    RMDEV CLOSE+6
    SAVDEV OPEN+7
    SYMBOL GETDEV+5, GETDEV+6, SAVDEV+7

    Naked Globals

    Name Field # of Occurrence
    ^(0 LNPRTADR+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GETDEV+4~, SAVDEV+2~, SYMBOL+1~, SYMBOL+5*, SYMBOL+6, SYMBOL+7, SYMBOL+8, OPEN+5~, CLOSE+2~, USE+3~
    , LINEPORT+1~, LINEPORT+2*, LINEPORT+3, LNPRTSUB+1~, LNPRTSUB+2*, LNPRTSUB+3, LNPRTNAM+1~, LNPRTNAM+2*, LNPRTNAM+3, LNPRTNAM+5
    , LNPRTADR+1~, LNPRTADR+3*, LNPRTADR+4*, LNPRTADR+5, UNIQUE+2~, UNIQUE+4*, UNIQUE+5, UNIQUE+6*, UNIQUE+7*, UNIQUE+8
    , ENDOFILE+2~, ENDOFILE+5*
    %1 UNIQUE+2~, UNIQUE+6*, UNIQUE+7
    %2 UNIQUE+2~, UNIQUE+3*, UNIQUE+4
    %X NOQ+2~*, NOQ+3
    %XX FIND+1~, FIND+2*
    %Y NOQ+2~, NOQ+3*, NOQ+4
    %YY FIND+1~, FIND+3
    %ZIS OPEN~, FIND+1~
    %ZISV FIND+1~, FIND+2*
    HNDL OPEN~, OPEN+7
    IO SAVDEV+3, SYMBOL+3, SYMBOL+4*, USE+7
    IO("CLOSE" USE+8!
    IO("S" GETDEV+4!
    IO(0 USE+7
    IO(1 USE+7
    IOP OPEN~, OPEN+6!, FIND~, FIND+2, NOQ~, NOQ+2
    >> IOT USE+7
    MODE SYMBOL~, SYMBOL+3, SYMBOL+4, SYMBOL+6, SYMBOL+7, SYMBOL+8
    NM SAVDEV~, SAVDEV+4, SAVDEV+6, FINDEV~, FINDEV+1, NEXTDEV~, NEXTDEV+3
    >> POP GETDEV+2*, OPEN+7
    R SAVDEV+2~, SAVDEV+5*, SAVDEV+6, SAVDEV+7
    ROOT SYMBOL~, SYMBOL+3, SYMBOL+4, SYMBOL+6, SYMBOL+7
    U NOQ+3
    X GETDEV~, GETDEV+2, GETDEV+6, RMDEV~, RMDEV+2, RMDEV+4, LNPRTIEN~, LNPRTIEN+1, LNPRTIEN+2, LNPRTADR~
    , LNPRTADR+3
    X1 CLOSE~, CLOSE+3, CLOSE+6, USE~, USE+4
    Y SAVDEV+2~, SAVDEV+4*, SAVDEV+5, RMDEV+1~, RMDEV+2*, RMDEV+3, RMDEV+4, NEXTDEV+1~, NEXTDEV+2*, NEXTDEV+3
    , NEXTDEV+4, CLOSE+2~, CLOSE+3*, CLOSE+4, CLOSE+5, USE+3~, USE+4*, USE+5, USE+6, LNPRTNAM+1~
    , LNPRTNAM+2*, LNPRTNAM+4*, LNPRTNAM+6, LNPRTADR+1~, LNPRTADR+2*, LNPRTADR+5*, LNPRTADR+6
    ZISNA UNIQUE~, UNIQUE+5, UNIQUE+6, UNIQUE+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All