Routine: INHP

Package	Total	Call Graph
Kernel	3	^%ZIS $$CDATASC^%ZTFDT ^%ZTLOAD
Uncategorized	3	SETDT^UTDT $$SOC^UTIL (,$$YN)^UTSRD
IHS Generic Interface System	2	$$DELCRIT^INHUTC $$RELDT^INHUTC2
VA Fileman	2	C^%DTC ^DIK

Entry Points

Name	Comments	DBIA/ICR reference
CPURG()	;Purge aged entries from Interface Criteria File, #4001.1 ; returns: 1 - Purge completed
EPURGE	;Purge Interface Errors
HANG	;Limit entries deleted to 21000/hour
DEHLP	;Help for days to keep errors question
MISC	;Misc cleanup
TPURGE	;Purge transactions from UIF
EZTSK	;Taskman can enter here with DAY=# of days to keep errors
DHLP	;Help for # of days question
AUTO	;Autopurge of transactions and errors
ZTSK	;Taskman entry point

External References

Name	Field # of Occurrence
C^%DTC	ZTSK+12, ZTSK+15, EZTSK+1
^%ZIS	TPURGE+3, EPURGE+2
$$CDATASC^%ZTFDT	TPURGE+12, TPURGE+20
^%ZTLOAD	TPURGE+23, EPURGE+8
^DIK	ZTSK+21, ZTSK+22, EZTSK+3
$$DELCRIT^INHUTC	CPURG+14
$$RELDT^INHUTC2	CPURG+5
SETDT^UTDT	ZTSK+12, EZTSK+1
$$SOC^UTIL	TPURGE+6
^UTSRD	TPURGE+9, EPURGE+5
$$YN^UTSRD	TPURGE+21, EPURGE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?27,"* Transaction Purge *",!! Line Location: TPURGE+4
Function Call: WRITE	Prompt: "This option will create a background job which will purge transactions of the",!,"type indicated.",!! Line Location: TPURGE+5
Function Call: WRITE	Prompt: !! Line Location: TPURGE+9
Function Call: WRITE	Prompt: !!," All interface transactions before "_$$CDATASC^%ZTFDT($H-DAY,1)_" with the status of",! Line Location: TPURGE+12
Function Call: WRITE	Prompt: " " Line Location: TPURGE+13
Function Call: WRITE	Prompt: $S(I=Y&(Y>2):" or ",1:"")_X_$S(I=Y!(Y<4):"",1:", ") Line Location: TPURGE+15
Function Call: WRITE	Prompt: " will be purged." Line Location: TPURGE+16
Function Call: WRITE	Prompt: !!," Maximum days to keep any interface transaction is",!," not set and no additional purging will be done.",! Line Location: TPURGE+19
Function Call: WRITE	Prompt: !!," All interface transactions older than "_$$CDATASC^%ZTFDT($H-INMAX,1)_" will be purged.",! Line Location: TPURGE+20
Function Call: WRITE	Prompt: !,"Request",$S($G(ZTSK):" ",1:" NOT "),"QUEUED!" Line Location: TPURGE+23
Function Call: WRITE	Prompt: !,"This is the number of days that must have passed since the last activity",!,"on a transaction has occurred. For example, entering a value of 3 here will" Line Location: DHLP+1
Function Call: WRITE	Prompt: !,"cause any transactions whose last activity was 4 or more days ago to be purged.",!!,"You may enter a number from 2 to 60." Line Location: DHLP+2
Function Call: WRITE	Prompt: ! Line Location: DHLP+3
Function Call: WRITE	Prompt: !,"This is the number of days that must have passed since the error was logged",!,"in order for it to be purged. For example, entering a value of 3 here will" Line Location: DEHLP+1
Function Call: WRITE	Prompt: !,"cause any errors that were created more than 4 days ago to be deleted.",!!,"You may enter a number from 2 to 60.",! Line Location: DEHLP+2
Function Call: WRITE	Prompt: @IOF,?30,"* Error Purge *",!! Line Location: EPURGE+3
Function Call: WRITE	Prompt: "This option will create a background job which will purge Interface Errors",!,"older than the number of days specified." Line Location: EPURGE+4
Function Call: WRITE	Prompt: !! Line Location: EPURGE+5
Function Call: WRITE	Prompt: !,"Request QUEUED!" Line Location: EPURGE+8
Routine Call	%ZIS Line Location: TPURGE+3 EPURGE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^INTHER - [#4003]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	CPURG+10
^DIJUSV(	MISC+2!
^INRHSITE(1	TPURGE+8, TPURGE+18, ZTSK+14, CPURG+5, AUTO+2, AUTO+4
^INTHER("B"	EZTSK+3
^INTHU - [#4001]	ZTSK+17, ZTSK+18!, ZTSK+19, ZTSK+21, ZTSK+22

Label References

Name	Line Occurrences
$$CPURG	MISC+4
EZTSK	AUTO+5
HANG	ZTSK+21, ZTSK+22, EZTSK+3
MISC	ZTSK+8
ZTSK	AUTO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TPURGE+2~, MISC+4, EPURGE+1~, CPURG+14
>> %ZIS	TPURGE+3, EPURGE+2
>> DA	ZTSK+21, ZTSK+22, EZTSK+3*
DAY	TPURGE+2~, TPURGE+8, TPURGE+9, TPURGE+10, TPURGE+12, ZTSK+11, ZTSK+12, EPURGE+1~, EPURGE+7, EZTSK+1 , EZTSK+3, AUTO+1~, AUTO+2, AUTO+4
DIK	ZTSK+10~, ZTSK+21, ZTSK+22, EZTSK+2*
DT	ZTSK+12, ZTSK+15, EZTSK+1
>> DTOUT	TPURGE+7
I	TPURGE+2~, TPURGE+6, TPURGE+13, TPURGE+14, TPURGE+15, TPURGE+22*, EPURGE+1~
INCOUNT	ZTSK+10~, ZTSK+11, HANG+1, HANG+2, EZTSK+2
INDA	CPURG+2~, CPURG+6*, CPURG+8, CPURG+14
INDAY	ZTSK+10~, ZTSK+11, ZTSK+12, ZTSK+22
INDT	ZTSK+10~, ZTSK+19*, ZTSK+22
INGL	CPURG+2~, CPURG+3*, CPURG+6, CPURG+8
INMAX	TPURGE+2~, TPURGE+18, TPURGE+19, TPURGE+20, ZTSK+10~, ZTSK+14, ZTSK+15*, ZTSK+21
INPDT	CPURG+2~, CPURG+5*, CPURG+12
INTYPE	ZTSK+10~, ZTSK+11*, ZTSK+22
INX	ZTSK+17, ZTSK+18, ZTSK+19, ZTSK+21, ZTSK+22, EZTSK+2, EZTSK+3, CPURG+2~, CPURG+8, CPURG+10* , CPURG+12
IOF	TPURGE+3, TPURGE+4, EPURGE+2, EPURGE+3
>> IOP	TPURGE+3, EPURGE+2
J	TPURGE+2~, EPURGE+1~
T	TPURGE+2~, EPURGE+1~
TYPE	TPURGE+2~, TPURGE+6, TPURGE+8, TPURGE+13, TPURGE+14, ZTSK+11, EPURGE+1~, AUTO+1~, AUTO+2*
U	TPURGE+6, TPURGE+8, TPURGE+13, TPURGE+18, ZTSK+14, ZTSK+19, ZTSK+22, CPURG+5, CPURG+10, CPURG+12 , AUTO+2, AUTO+4
X	TPURGE+2~, TPURGE+6, TPURGE+7, TPURGE+10, TPURGE+14, TPURGE+15, TPURGE+21, ZTSK+12, ZTSK+15, EPURGE+1~ , EPURGE+6, EPURGE+7, EZTSK+1
>> X1	ZTSK+12, ZTSK+15, EZTSK+1*
>> X2	ZTSK+12, ZTSK+15, EZTSK+1*
Y	TPURGE+2~, TPURGE+13*, TPURGE+15
ZTDESC	TPURGE+2~, TPURGE+23, EPURGE+8
ZTDTH	TPURGE+2~
>> ZTIO	TPURGE+22, EPURGE+8
ZTRTN	TPURGE+2~, TPURGE+22, EPURGE+8
ZTSAVE	TPURGE+2~
ZTSAVE(	TPURGE+22*
ZTSAVE("DAY"	EPURGE+8*
ZTSK	TPURGE+2~, TPURGE+23!, EPURGE+1~, EPURGE+8!

Customize PDF page

Package: IHS Generic Interface System

Routine: INHP

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: