Routine: INTENV

Package	Total	Call Graph
IHS Generic Interface System	2	$$CR^INHU1 ($$TTCONV,CLEAN,DPURGE,EPURGE,SHUT,TDPURGE,TPURGE)^INTENV1
Uncategorized	2	ENV^UTIL ($$CR,$$YN)^UTSRD
Kernel	1	^%ZTLOAD
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
YELLOW	; purge all by time
PDTT	;
TTYPE(INTTA)	; get transaction types to delete ; output: INTTA = array of TTs
PERRT	;
DATA()	; ask for amount of data
GREEN	; general daily clean up - GREEN purge
TASK(ZTRTN,ZTDESC,INSAVE)	; send routine to background ; input: ZTRTN = routine to run ; ZTDESC = Description of task
RED	; stop GIS and clean out all dynamic globals
ECONH	; help for consolidate question
GREENT	;
PDT	; purge trans by dest
PERR	; purge errors
SURE(INREP)	; are you sure question ; input: INREP = number of times to ask, max is three for now
PTT	; purge trans by TT
EN	;Main entry point
SITE()	; return # of days from GIS site parms
VAL	;Validate option
DEST()	; select destination
PAINT	;Paint screen
EX	;Execute option
TTLIST(INTTA)	; list out selected TT ; input: INTTA = array of Tranaaction Types
OPT	;List of options <- max name length
INITO	;Build option list
YELLOWT	;
PTTT	;

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+5
^DIC	DEST+3
$$CR^INHU1	EX+4
$$TTCONV^INTENV1	TTYPE+15
CLEAN^INTENV1	RED+7
DPURGE^INTENV1	GREENT+2, YELLOWT+2
EPURGE^INTENV1	PERRT+2, GREENT+2, YELLOWT+2
SHUT^INTENV1	RED+5
TDPURGE^INTENV1	PDTT+2
TPURGE^INTENV1	PTTT+2, GREENT+2, YELLOWT+2
ENV^UTIL	EN+1
$$CR^UTSRD	TTLIST+4
$$YN^UTSRD	PERR+5, SURE+3, TASK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: #,!!?15,"GIS Development Environment Management",! Line Location: PAINT+1
Function Call: WRITE	Prompt: !,?10,OCO,".",?15,$P(OPT(OCO),U),?50 Line Location: PAINT+4
Function Call: WRITE	Prompt: $S($L($P(OPT(OCO),U,2)):"("_$P(OPT(OCO),U,2,3)_")",1:"INACTIVE") Line Location: PAINT+4
Function Call: WRITE	Prompt: !!,?20,"Select Option NUMBER (1-",COUNT,"): " Line Location: PAINT+5
Function Call: WRITE	Prompt: *7 Line Location: VAL+2
Function Call: WRITE	Prompt: #,!!,?(80-$L($P(OPT(SEL),U))-8\2),"* ",$P(OPT(SEL),U,1)," *",!! Line Location: EX+1
Function Call: WRITE	Prompt: *7 Line Location: EX+2
Function Call: WRITE	Prompt: ! Line Location: EX+4
Function Call: WRITE	Prompt: !!,"Purge already running.",! Line Location: PTT+1
Function Call: WRITE	Prompt: !!,"Purge already running.",! Line Location: PDT+1
Function Call: WRITE	Prompt: !!,"Purge already running.",! Line Location: PERR+1
Function Call: WRITE	Prompt: !!,"Purge already running.",! Line Location: GREEN+1
Function Call: WRITE	Prompt: !!,"This option will purge GIS transactions and errors." Line Location: GREEN+4
Function Call: WRITE	Prompt: !,"It will keep "_(INPURGE*24)_" hours worth of transactions and errors." Line Location: GREEN+5
Function Call: WRITE	Prompt: !,"All broken entries in the destination queue will be removed.",! Line Location: GREEN+6
Function Call: WRITE	Prompt: !!,"Purge already running.",! Line Location: YELLOW+1
Function Call: WRITE	Prompt: !!,"This option will purge GIS transactions and errors." Line Location: YELLOW+3
Function Call: WRITE	Prompt: !,"It will keep 72 hours worth of transactions, purge all MFN's," Line Location: YELLOW+4
Function Call: WRITE	Prompt: !,"keep 24 hours of errors and consolidate remaining errors.",! Line Location: YELLOW+5
Function Call: WRITE	Prompt: !,"All broken entries in the destination queue will be removed.",! Line Location: YELLOW+6
Function Call: WRITE	Prompt: !!,"This will STOP all processes of the GIS and COMPLETELY" Line Location: RED+1
Function Call: WRITE	Prompt: !,"DELETE all transactions, errors, and CLEAR all queues.",! Line Location: RED+2
Function Call: WRITE	Prompt: !!,"Shutting down GIS..." Line Location: RED+4
Function Call: WRITE	Prompt: "done.",!!,"Clearing all transactions, errors, and queues..." Line Location: RED+6
Function Call: WRITE	Prompt: "done.",! Line Location: RED+8
Function Call: READ	Prompt: "Enter amount of data to keep: " Formatting: ! Timeout: $G(DTIME,300) Variable: INX Line Location: DATA+2
Function Call: WRITE	Prompt: !," Enter a code for the length of time to keep data." Line Location: DATA+7
Function Call: WRITE	Prompt: !," format: nL where n = number and L is a letter" Line Location: DATA+8
Function Call: WRITE	Prompt: !," D = days, H = hours, M = minute" Line Location: DATA+9
Function Call: WRITE	Prompt: !," You may also enter NONE to not keep any data.",! Line Location: DATA+10
Function Call: READ	Prompt: "Enter Transaction Type(s) to delete: " Formatting: ! Timeout: $G(DTIME,300) Variable: INTT Line Location: TTYPE+4
Function Call: WRITE	Prompt: !," Transactions can be deleted based on the Tranasaction" Line Location: TTYPE+9
Function Call: WRITE	Prompt: !," Types entered here. You can use wild cards ""*"" to select" Line Location: TTYPE+10
Function Call: WRITE	Prompt: !," many types. If you enter nothing, all transactions" Line Location: TTYPE+11
Function Call: WRITE	Prompt: !," within the purge date range will be deleted." Line Location: TTYPE+12
Function Call: WRITE	Prompt: !," Enter ""^L"" to see what is selected so far." Line Location: TTYPE+13
Function Call: WRITE	Prompt: !," Enter ""^"" to exit." Line Location: TTYPE+14
Function Call: WRITE	Prompt: " "_$TR(C,"-")_" "_$S($E(INTT)="-":"de",1:"")_"selected" Line Location: TTYPE+16
Function Call: WRITE	Prompt: !,INTTA(I) Line Location: TTLIST+4
Function Call: WRITE	Prompt: ! Line Location: SURE+5
Function Call: WRITE	Prompt: !," If YES, the error log will retain the most recent of each type of" Line Location: ECONH+1
Function Call: WRITE	Prompt: !," error and delete the duplicates after the purge date." Line Location: ECONH+2
Function Call: WRITE	Prompt: !," IF NO, only errors before the purge date will be deleted." Line Location: ECONH+3
Function Call: WRITE	Prompt: !,"Queued to background. ("_$G(ZTSK)_")" Line Location: TASK+5
Routine Call	DIC Line Location: DEST+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INRHD - [#4005]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^INRHB("PURGE"	PTT+1, PTT+2, PTTT+1, PTTT+3, PDT+1, PDT+2, PDTT+1, PDTT+3, PERR+1, PERR+2 , PERRT+1, PERRT+3, GREEN+1, GREEN+2, GREENT+1, GREENT+3, YELLOW+1, YELLOW+2, YELLOWT+1, YELLOWT+3
^INRHSITE(1	SITE+2

Label References

Name	Line Occurrences
$$DATA	PTT+4, PDT+4, PERR+4
$$DEST	PDT+5
$$SITE	GREEN+3
$$SURE	PTT+5, PDT+6, PERR+7, GREEN+7, YELLOW+7, RED+3
$$TTYPE	PTT+5
@(	EX+3, TASK+7
INITO	EX+2, EX+5
PAINT	VAL+2
TASK	PTT+6, PDT+7, PERR+8, GREEN+9, YELLOW+8
TTLIST	TTYPE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TTLIST+2~, TTLIST+3, TTLIST+4
C	TTYPE+3~, TTYPE+15*, TTYPE+16
>> COUNT	PAINT+3*, PAINT+5
DIC	DEST+1~, DEST+2*
DIC("S"	DEST+2*
DIC(0	DEST+2*
DTIME	PAINT+6, DATA+2, TTYPE+4
DUZ	EN+2
I	TTLIST+2~, TTLIST+3, TTLIST+4, SURE+2~, SURE+3, SURE+4, TASK+3~, TASK+6
INCON	PERR+3~, PERR+5*, PERR+6, PERRT+2
INDEST	PDT+3~, PDT+5*, PDTT+2
INOUT	DATA+1~, DATA+2, DATA+3, DATA+4, DATA+5, TTYPE+3~, TTYPE+4, TTYPE+6, TTYPE+7, TTYPE+17* , TTYPE+18
INPURGE	PTT+3~, PTT+4, PTTT+2, PDT+3~, PDT+4, PDTT+2, PERR+3~, PERR+4, PERRT+2, GREEN+3 , GREEN+5, GREEN+8*, GREENT+2
INREP	SURE~, SURE+3
INSAVE	TASK~, TASK+6
INTT	PTT+3~, PTT+5, PTTT+2, TTYPE+3~, TTYPE+4, TTYPE+5, TTYPE+6, TTYPE+7*, TTYPE+8, TTYPE+15 , TTYPE+16
INTTA	TTYPE~, TTYPE+5, TTYPE+15, TTYPE+17, TTLIST~
INTTA(	TTLIST+4
INX	DATA+1~, DATA+2, DATA+3, DATA+4*, DATA+5, DATA+6, DATA+11
IOSL	TTLIST+3
L	TTLIST+2~, TTLIST+3*, TTLIST+4
>> OCO	INITO+2, PAINT+2, PAINT+3*, PAINT+4
OPT	INITO+1!, INITO+2*
OPT(	INITO+2*, PAINT+3, PAINT+4, VAL+2, EX+1, EX+2, EX+3
P	SURE+2~, SURE+3, SURE+4*
>> SEL	PAINT+6*, VAL+1, VAL+2, EX+1, EX+2, EX+3
U	PAINT+4, VAL+1, EX+1, EX+2, EX+3, SITE+2
X	EX+4, SURE+2~, SURE+3, SURE+5, TASK+3~, TASK+4, TASK+5, TASK+6, SITE+1~, SITE+2* , SITE+3
Y	TTLIST+2~, TTLIST+4, DEST+1~, DEST+3, DEST+4
ZTDESC	TASK~
ZTDTH	TASK+5!
>> ZTIO	TASK+5*
ZTRTN	TASK~, TASK+7
>> ZTSAVE(	TASK+6*
>> ZTSK	TASK+5

Marked Items

Name	Field # of Occurrence
$T(OPT+OCO	INITO+2

Customize PDF page

Package: IHS Generic Interface System

Routine: INTENV

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items