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 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

Caller Graph Total: 6

Package	Total	Caller Graph
Kernel	6	XU IP RELEASE XUS XUS3 XUSRB XUSRB5 XUSTZ

Entry Points

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

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	Prompt: "Refresh: Yes// " Formatting: ! Timeout: 30 Variable: X 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

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

Customize PDF page

Package: Kernel

Routine: XUSTZIP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: