Routine: INHOA1

Package	Total	Call Graph
IHS Generic Interface System	1	($$FORMAT,$$FT0,$$FT1,$$TDIF)^INHUTS
Uncategorized	1	($$CDATASC,$$NOW)^UTDT

Package	Total	Caller Graph
IHS Generic Interface System	1	INHOA

Name	Comments	DBIA/ICR reference
HDV	;Verify Status Header
FTR	;Display footer
DIST	;Display TOP Entries
HD1	;Verify Status, Display warning message
DISV	;Display Verify Status
DISQ	;Display Queue Size
OVF()	;Handle overflow
HDQ	;Queue Size Header
DET	;Verify Status, Detail Report Header
DPRI(INQ,P,T,IN0)	;Display queue size by priority level
DTOT(INQ,IN0)	;Display queue totals
MSG	;Verify Status, special message ; Diplay legend if at least one process has RUN status equal to "Q".
HDT(TAB)	;TOP entries header
DISV1(DA)	;Display Stats
BRF	;Verify Status, Brief Report Header
HD	;Display main header

Name	Field # of Occurrence
$$FORMAT^INHUTS	HD+3, HD+5
$$FT0^INHUTS	DISV1+5
$$FT1^INHUTS	DISV1+6, DISV1+7, DISV1+8, DISV1+9
$$TDIF^INHUTS	HD+3
$$CDATASC^UTDT	HD+7, HD+8
$$NOW^UTDT	HD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Y" Line Location: DISV+9
Function Call: WRITE	Prompt: ?1,INDAT(INQ,INK,"RUN") Line Location: DISV+10
Function Call: WRITE	Prompt: ! Line Location: DISV1+4
Function Call: WRITE	Prompt: ?TAB(2),$J($$FT0^INHUTS($G(INDAT(INQ,INK,DA,"LRU"))),10) Line Location: DISV1+5
Function Call: WRITE	Prompt: ?TAB(3),$J($$FT1^INHUTS($G(INDAT(INQ,INK,DA,"ELS")),1),7) Line Location: DISV1+6
Function Call: WRITE	Prompt: ?TAB(4),$J($$FT1^INHUTS($G(INDAT(INQ,INK,DA,"MIN")),2),6) Line Location: DISV1+7
Function Call: WRITE	Prompt: ?TAB(5),$J($$FT1^INHUTS($G(INDAT(INQ,INK,DA,"MAX")),2),6) Line Location: DISV1+8
Function Call: WRITE	Prompt: ?TAB(6),$J($$FT1^INHUTS($G(INDAT(INQ,INK,DA,"AET")),2),6) Line Location: DISV1+9
Function Call: WRITE	Prompt: !!,"RUN STATUS $JOB: ",$P(^INTHPC(BPC,0),U,4) Line Location: HDV+1
Function Call: WRITE	Prompt: !,"---" Line Location: HDV+4
Function Call: WRITE	Prompt: ?TAB(1),"------------------------------",?TAB(2),"----------" Line Location: HDV+5
Function Call: WRITE	Prompt: ?TAB(3),"-------" Line Location: HDV+6
Function Call: WRITE	Prompt: ?X,"------" Line Location: HDV+7
Function Call: WRITE	Prompt: !,"Run",?TAB(1),"Server/",?TAB(2),"Last Run/" Line Location: DET+1
Function Call: WRITE	Prompt: ?TAB(3)+6,"(defaults in seconds)" Line Location: DET+2
Function Call: WRITE	Prompt: !,?TAB(1)+2,"Message",?TAB(2)," Last Msg",?TAB(3),"Elapsed" Line Location: DET+3
Function Call: WRITE	Prompt: ?TAB(4)," Min",?TAB(5)," Max",?TAB(6)," Avg" Line Location: DET+4
Function Call: WRITE	Prompt: !,?TAB(3)+6,"(defaults in seconds)",! Line Location: BRF+1
Function Call: WRITE	Prompt: "Run",?TAB(1),"Server",?TAB(2),"Last Run" Line Location: BRF+2
Function Call: WRITE	Prompt: ?TAB(3),"Elapsed" Line Location: BRF+3
Function Call: WRITE	Prompt: ?TAB(4)," Min",?TAB(5)," Max",?TAB(6)," Avg" Line Location: BRF+4
Function Call: WRITE	Prompt: !," WARNING: Report being run elsewhere. Results may not be accurate." Line Location: HD1+2
Function Call: WRITE	Prompt: ! Line Location: DPRI+1
Function Call: WRITE	Prompt: ?TAB(2)+5,P Line Location: DPRI+3
Function Call: WRITE	Prompt: " STAT" Condition for execution: T="ST" Line Location: DPRI+3
Function Call: WRITE	Prompt: ?TAB(3)+1,$J(INDAT(INQ,P,T,"COUNT"),6) Line Location: DPRI+4
Function Call: WRITE	Prompt: ?TAB(4),$J(INDAT(INQ,P,T,"MIN"),6) Line Location: DPRI+5
Function Call: WRITE	Prompt: ?TAB(5),$J(INDAT(INQ,P,T,"MAX"),6) Line Location: DPRI+6
Function Call: WRITE	Prompt: ?TAB(6),$J(INDAT(INQ,P,T,"AVG"),6) Line Location: DPRI+7
Function Call: WRITE	Prompt: ! Line Location: DTOT+11
Function Call: WRITE	Prompt: ?TAB(3)+1,$J(INDAT(INQ,"COUNT"),6),?TAB(4),$J(INDAT(INQ,"MIN"),6) Line Location: DTOT+13
Function Call: WRITE	Prompt: ?TAB(5),$J(INDAT(INQ,"MAX"),6),?TAB(6),$J(INDAT(INQ,"AVG"),6) Line Location: DTOT+14
Function Call: WRITE	Prompt: !!,"QUEUE SIZE (#entries)" Line Location: HDQ+2
Function Call: WRITE	Prompt: ?TAB(3)," Curr",?TAB(4)," Min",?TAB(5)," Max",?TAB(6)," Avg" Line Location: HDQ+4
Function Call: WRITE	Prompt: ! Line Location: HDQ+5
Function Call: WRITE	Prompt: ?TAB(3)+1,"------" Line Location: HDQ+7
Function Call: WRITE	Prompt: ?TAB(T),"------" Line Location: HDQ+8
Function Call: WRITE	Prompt: !,$J(P,3),?TAB(1),$J(INDAT(INQ,P,T),10) Line Location: DIST+11
Function Call: WRITE	Prompt: ?TAB(2),$J(INDAT(INQ,P,T,"DIFF"),7) Line Location: DIST+12
Function Call: WRITE	Prompt: ?TAB(3),$J($E(INDAT(INQ,P,T,"MSGID"),1,10),10) Line Location: DIST+13
Function Call: WRITE	Prompt: ?TAB(4),$J(INDAT(INQ,P,T,"DA"),9) Line Location: DIST+14
Function Call: WRITE	Prompt: ?TAB(5),$E(INDAT(INQ,P,T,"TT"),1,29) Line Location: DIST+15
Function Call: WRITE	Prompt: !!,"TOP ENTRIES" Line Location: HDT+1
Function Call: WRITE	Prompt: !,"Prio",?TAB(1),"Scheduled",?TAB(2)," Age",?TAB(3),"Message Id" Line Location: HDT+2
Function Call: WRITE	Prompt: ?TAB(4)," Record",?TAB(5),"Transaction Type" Line Location: HDT+3
Function Call: WRITE	Prompt: !,"-----",?TAB(1),"----------",?TAB(2),"-------",?TAB(3),"----------",?TAB(4),"---------",?TAB(5),"-----------------------------" Line Location: HDT+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+6
Function Call: WRITE	Prompt: $P(INPAR("PROCESS"),U,2),?55,$$CDATASC^UTDT($$NOW^UTDT,1,1) Line Location: HD+7
Function Call: WRITE	Prompt: !,?5,"Start Time: ",$$CDATASC^UTDT(INPAR("START"),1,1) Line Location: HD+8
Function Call: WRITE	Prompt: ?40," Number of Iterations: ",INITER Line Location: HD+9
Function Call: WRITE	Prompt: !,?5," Run Time: ",INRUNASC,?40,"Avg Time per Iteration: ",INRUNAVG Line Location: HD+10
Function Call: WRITE	Prompt: !!!,"End of Report." Line Location: FTR+1
Function Call: WRITE	Prompt: !!,"Press any key to exit: " Line Location: FTR+2
Function Call: READ	Timeout: 1 Variable: *% Line Location: OVF+2
Function Call: WRITE	Prompt: !,"More..." Line Location: OVF+2

Name	Line Occurrences (* Changed, ! Killed)
^INTHPC - [#4004]	HDV+1

Name	Line Occurrences
$$OVF	DISV+7, DISQ+2, DPRI+8, DTOT+11, DIST+3, DIST+16
@(	HDV+3
DISV1	DISV+14, DISV+17
DPRI	DISQ+7
DTOT	DISQ+13
FTR	DISQ+15
HD	DISV+4, OVF+3
HD1	HDV+2
HDQ	DISQ+3, DPRI+8, DTOT+11
HDT	DIST+5, DIST+16
HDV	DISV+4, DISV+7
MSG	DISV+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OVF+2*
>> BPC	HDV+1
DA	DISV1~, DISV1+4, DISV1+5, DISV1+6, DISV1+7, DISV1+8, DISV1+9
IN0	DISQ+1~, DISQ+6, DISQ+7, DISQ+13, DPRI~, DPRI+2, DTOT~, DTOT+6
IN1	DIST+1~
>> INDAT(	DISV+6, DISV+9, DISV+10, DISV+15, DISV+17, DISV1+4, DISV1+5, DISV1+6, DISV1+7, DISV1+8 , DISV1+9, DISQ+6, DISQ+7, DISQ+13, DPRI+4, DPRI+5, DPRI+6, DPRI+7, DTOT+12, DTOT+13 , DTOT+14, DIST+9, DIST+10, DIST+11, DIST+12, DIST+13, DIST+14, DIST+15
>> INITER	HD+5, HD+9
INK	DISV+1~, DISV+6*, DISV+9, DISV+10, DISV+11, DISV+12, DISV+15, DISV+17, DISV1+4, DISV1+5 , DISV1+6, DISV1+7, DISV1+8, DISV1+9
>> INPAR("DETAIL"	HDV+3, DISQ+7, DISQ+13, HDQ+3, HDQ+6
>> INPAR("PROCESS"	HD+7
>> INPAR("REPAINT"	OVF+2
>> INPAR("START"	HD+3, HD+8
INQ	DISV+1~, DISV+6, DISV+9, DISV+10, DISV+15, DISV+17, DISV1+4, DISV1+5, DISV1+6, DISV1+7 , DISV1+8, DISV1+9, DISQ+1~, DISQ+6, DISQ+7, DISQ+13, DPRI~, DPRI+4, DPRI+5, DPRI+6 , DPRI+7, DTOT~, DTOT+4, DTOT+8, DTOT+11, DTOT+12, DTOT+13, DTOT+14, DIST+1~, DIST+9* , DIST+10, DIST+11, DIST+12, DIST+13, DIST+14, DIST+15
>> INRUN	HD+3*, HD+5
>> INRUNASC	HD+3*, HD+10
>> INRUNAVG	HD+5*, HD+10
>> INSIG	MSG+2
>> INTASKED	FTR+1, OVF+2
>> INWARN	HD1+1
IOF	HD+6
IOSL	OVF+1
P	DISQ+1~, DISQ+7, DPRI~, DPRI+3, DPRI+4, DPRI+5, DPRI+6, DPRI+7, DIST+1~, DIST+9 , DIST+10, DIST+11, DIST+12, DIST+13, DIST+14, DIST+15
>> SEL	HDV+3*
T	DISQ+1~, DISQ+7, DPRI~, DPRI+3, DPRI+4, DPRI+5, DPRI+6, DPRI+7, HDQ+1~, HDQ+8 , DIST+1~, DIST+10*, DIST+11, DIST+12, DIST+13, DIST+14, DIST+15
TAB	DIST+1~, DIST+5, DIST+16, HDT~
TAB(	HDQ+8
TAB(1	DISV+11, DISV+12, DISV+15, HDV+5, DET+1, DET+3, BRF+2, DIST+2*, DIST+11, HDT+2 , HDT+4
TAB(2	DISV1+5, HDV+5, DET+1, DET+3, BRF+2, DPRI+3, DTOT+6, HDQ+3, HDQ+6, DIST+2* , DIST+12, HDT+2, HDT+4
TAB(3	DISV1+6, HDV+6, DET+2, DET+3, BRF+1, BRF+3, DPRI+4, DTOT+13, HDQ+4, HDQ+7 , DIST+2*, DIST+13, HDT+2, HDT+4
TAB(4	DISV1+7, HDV+7, DET+4, BRF+4, DPRI+5, DTOT+13, HDQ+4, DIST+2*, DIST+14, HDT+3 , HDT+4
TAB(5	DISV1+8, HDV+7, DET+4, BRF+4, DPRI+6, DTOT+14, HDQ+4, DIST+2*, DIST+15, HDT+3 , HDT+4
TAB(6	DISV1+9, HDV+7, DET+4, BRF+4, DPRI+7, DTOT+14, HDQ+4
U	HDV+1, HD+7
>> X	HDV+7, OVF+2

Customize PDF page

Package: IHS Generic Interface System

Routine: INHOA1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: