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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUSTZIP

Package: Kernel

Routine: XUSTZIP


Information

XUSTZIP ;WRJ/DAF,ISF/RWF - Security Twilight Zone, Failed Access Attempts ;03/24/2004 11:12

Source Information

Source file <XUSTZIP.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 UPDATE^DIE  ^DIK  ^DIR  
Kernel 2 ($$FMDIFF,$$FMTE,$$HADD,$$HTE,$$HTFM,$$NOW)^XLFDT  CLRFAC^XUS3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Kernel 7 XU IP RELEASE  XUESSO4  XUS  XUS3  XUSRB  XUSRB5  XUSTZ  
VistALink Security 1 XOBSRAKJ  

Entry Points

Name Comments DBIA/ICR reference
CLEAN ;CLEAN UP OLD LOCKED IP NODES, ^XUSEC(3,
X6IP ;EXAMINE AND ALLOW RESET OF LOCKED IPS
LKSET(IP) ;Set IP Lock Node
LKTL() ;Lock until
NOW() ;
IP() ;Get a device IP.
LKTME() ;Get lock-out time
LKCHECK(IP) ;Check if IP is LOCKED
  • ICR #4761
    • Status: Active
    • Usage: Controlled Subscription
    LKREC(IP) ;Get the Lock record
    LKDEL(ZNUM) ;Delete LOCKED IP
    LKWAIT(%) ;How long to wait
    TSCHK(IP) ;Check if IP is for a TERMINAL SERVER.
    IPCHECK(IP) ;Check if IP should be LOCKED. Called from XUSTZ, and others.
    SLACK(TEND) ;SLACK CALCULATOR
    ON() ;ON OR OFF
    H3(%H) ;Make seconds
    H0(%H) ;
    DSPTME(%H) ;Convert seconds to display format
    WATCH ;Watch the globals
    WT2

    External References

    Name Field # of Occurrence
    UPDATE^DIE X6IP+17, LKSET+5
    ^DIK CLEAN+12, LKDEL+2
    ^DIR X6IP+8
    $$FMDIFF^XLFDT LKWAIT+4
    $$FMTE^XLFDT X6IP+6, WT2+7
    $$HADD^XLFDT LKTL+1, IPCHECK+14
    $$HTE^XLFDT DSPTME+1, WT2, WT2+3
    $$HTFM^XLFDT LKTL+1, IPCHECK+14
    $$NOW^XLFDT CLEAN+2, NOW+2, LKWAIT+4
    CLRFAC^XUS3 X6IP+14, LKSET+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"There are no IP's to Clear"
    • Line Location: X6IP+2
    Function Call: WRITE
    • Prompt: !,I_". ",ZNM," lock out till: ",$$FMTE^XLFDT($P(^XUSEC(3,ZNUM,0),"^",2))
    • Line Location: X6IP+6
    Function Call: WRITE
    • Prompt: !,ZNM," Cleared"
    • Line Location: X6IP+12
    Function Call: WRITE
    • Prompt: @IOF,"Failed access attempts count. Current time: ",TIME
    • Line Location: WT2+1
    Function Call: WRITE
    • Prompt: !,I,?5,"IP: ",$P(X,U,1),?25,"Count: ",$P(X,U,2),?35,"Until: ",$$HTE^XLFDT($P(X,U,3))
    • Line Location: WT2+3
    Function Call: WRITE
    • Prompt: !,?10,"None"
    • Line Location: WT2+4
    Function Call: WRITE
    • Prompt: !,"Locked IP's. Current time: ",TIME
    • Line Location: WT2+5
    Function Call: WRITE
    • Prompt: !,I,?5,"IP: ",$P(X,U,1),?25,"Until: ",$$FMTE^XLFDT($P(X,U,2))
    • Line Location: WT2+7
    Function Call: WRITE
    • Prompt: !,?10,"None"
    • Line Location: WT2+8
    Function Call: READ
    • Formatting: !
    • Prompt: "Refresh: Yes// "
    • Variable: X
    • Timeout: 30
    • Line Location: WT2+9
    Function Call: WRITE
    • Prompt: !,"Enter 'Yes' or return to refresh, anyother key will exit"
    • Line Location: WT2+10
    Routine Call
    • DIE
    • Line Location:
      • X6IP+17
      • LKSET+5
    Routine Call
    • DIR
    • Line Location:
      • X6IP+8

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZUA(3.05 - [#3.05] IPCHECK+19, IPCHECK+20
    ^XTV(8989.3 - [#8989.3] LKTME+2, TSCHK+2, IPCHECK+15, IPCHECK+21, SLACK+10, ON+1
    ^XUSEC(3 - [#3.083] CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, X6IP+2, X6IP+3, X6IP+4!, X6IP+6, LKREC+2, LKREC+3
    , WT2+7
    ^XUSEC(4 - [#3.084] CLEAN+6, CLEAN+9, CLEAN+10, CLEAN+13, WT2+3

    Label References

    Name Line Occurrences
    $$H0 DSPTME+1
    $$H3 CLEAN+8, CLEAN+10
    $$IP LKCHECK+2, LKWAIT+2, IPCHECK+3
    $$LKCHECK IPCHECK+6
    $$LKREC LKCHECK+3, LKWAIT+3
    $$LKTL LKSET+4
    $$LKTME LKTL+1
    $$NOW X6IP+17, LKCHECK+6
    $$ON LKSET+2, LKCHECK+1, IPCHECK+2
    $$SLACK IPCHECK+22
    $$TSCHK X6IP+16, IPCHECK+8
    LKDEL CLEAN+5, X6IP+11
    WT2 WT2+9, WT2+10

    Naked Globals

    Name Field # of Occurrence
    ^( WT2+3, WT2+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % LKWAIT~, LKWAIT+2
    %H H3~, H3+1*, H3+2, H0~, H0+1*, H0+2, DSPTME~, DSPTME+1
    C WATCH+1~, WT2+2*, WT2+3*, WT2+4, WT2+6*, WT2+7*, WT2+8
    DA CLEAN+11~, CLEAN+12*, LKDEL+1~, LKDEL+2*
    DIK CLEAN+11~, CLEAN+12*, LKDEL+1~, LKDEL+2*
    DIR X6IP+1~, X6IP+18!
    DIR("A" X6IP+8*
    DIR(0 X6IP+8*
    DIRUT X6IP+8, X6IP+18!
    HRMIN SLACK+3~, SLACK+7*, SLACK+10
    I X6IP+1~*, X6IP+5*, X6IP+6, X6IP+8, WATCH+1~, WT2+2*, WT2+3*, WT2+6*, WT2+7*
    IO("IP" IP+1
    IO("ZIO" IP+1
    IOF WT2+1
    IP LKSET~, LKSET+3, LKSET+6, IP+1, LKCHECK~, LKCHECK+2*, LKCHECK+3, LKREC~, LKREC+2, LKWAIT+1~
    , LKWAIT+2*, LKWAIT+3, TSCHK~, TSCHK+2, IPCHECK~, IPCHECK+3*, IPCHECK+6, IPCHECK+8, IPCHECK+18, IPCHECK+20
    LIMIT IPCHECK+4~, IPCHECK+21*, IPCHECK+23
    NOW CLEAN+1~, CLEAN+2*, CLEAN+5, CLEAN+8*, CLEAN+10, SLACK+3~
    OV CLEAN+7~, CLEAN+10*
    SLK IPCHECK+4~, IPCHECK+22*, IPCHECK+23
    T1 LKWAIT+1~, LKWAIT+3*, LKWAIT+4
    T2 LKWAIT+1~
    TEND SLACK~, SLACK+5
    TFAC IPCHECK+4~, IPCHECK+18*, IPCHECK+20*, IPCHECK+23
    TIME WATCH+1~, WT2*, WT2+1, WT2+5
    TS SLACK+3~
    TSIEN IPCHECK+4~, IPCHECK+8*, IPCHECK+10, IPCHECK+15
    TSREC IPCHECK+4~, IPCHECK+15*, IPCHECK+16, SLACK+4, SLACK+12
    U LKTME+1, LKTME+2, LKWAIT+4, WT2+3, WT2+7
    X LKCHECK+6*, LKCHECK+7, SLACK+3~, SLACK+4*, SLACK+5, WATCH+1~, WT2+3*, WT2+7*, WT2+9*, WT2+10
    >> XOPT LKTME+1
    XUFAC CLEAN+7~
    XUNOW X6IP+1~, NOW+1, NOW+2*, NOW+3
    Y X6IP+1~, X6IP+9, IPCHECK+18*, IPCHECK+20
    Z10 IPCHECK+4~, IPCHECK+14*, IPCHECK+17, IPCHECK+22
    ZEND IPCHECK+4~, IPCHECK+17*, IPCHECK+19
    ZFDA X6IP+1~, LKSET+1~
    ZFDA( X6IP+17*, LKSET+3*, LKSET+4*
    ZIEN X6IP+16*, X6IP+17, LKSET+1~, LKSET+3*, LKSET+4
    ZLST IPCHECK+4~, IPCHECK+16*, IPCHECK+17
    ZNM X6IP+1~*, X6IP+3*, X6IP+4, X6IP+5, X6IP+6, X6IP+9*, X6IP+12, X6IP+14, X6IP+16
    ZNM( X6IP+5*, X6IP+9
    ZNUM CLEAN+1~, CLEAN+2*, CLEAN+4*, CLEAN+5, CLEAN+8*, CLEAN+9*, CLEAN+10, CLEAN+12, X6IP+1~, X6IP+3*
    , X6IP+4, X6IP+5, X6IP+6, X6IP+9*, X6IP+11, LKSET+1~, LKREC+1~, LKREC+2*, LKREC+3, LKDEL~
    , LKDEL+2, TSCHK+2~*, TSCHK+3, IPCHECK+4~, IPCHECK+18*, IPCHECK+19*, IPCHECK+20
    ZREC LKCHECK+3~*, LKCHECK+4, LKCHECK+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All