Routine: INHVEXP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Uncategorized	2	(ENV,FORMAT)^UTIL $$YN^UTSRD
VA Fileman	2	DD^%DT Y^DIQ
IHS Generic Interface System	1	($$SYS,$$SYSNAME)^INHUTIL1

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Uncategorized

(ENV,FORMAT)^UTIL $$YN^UTSRD

VA Fileman

DD^%DT Y^DIQ

IHS Generic Interface System

($$SYS,$$SYSNAME)^INHUTIL1

Entry Points

Name	Comments	DBIA/ICR reference
LF	;Check each data element points to a valid NOT EXCLUDE reference
QUIT	;exit module
EN	;Main entry point
ENQUE	;Taskman entry point
DA	;DA MODULE - STARTS HERE
WRITE	;output a line
HEADER	;output header in local array INHDR(x)
ENUSE	;User input
RECID	;Processing at INRECID loop
WRITEL	;Output data exceptions
FUNC	;Verify map function exists and log error if not
HSET	;set up header
WRITEE	;output exclude problems

Name	Field # of Occurrence
DD^%DT	HSET+1
^%ZIS	ENUSE+14, ENUSE+16, QUIT+2
^%ZISC	QUIT+1
^%ZTLOAD	ENUSE+19
Y^DIQ	DA+20
$$SYS^INHUTIL1	ENUSE+6
$$SYSNAME^INHUTIL1	ENUSE+8, HSET+2
ENV^UTIL	ENUSE+2
FORMAT^UTIL	WRITE+4
$$YN^UTSRD	ENUSE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"Sorry, I don't know what kind of system we're on.",! Line Location: ENUSE+7
Function Call: WRITE	Prompt: !!," I think this is a ",$$SYSNAME^INHUTIL1(INSYS)," system" Line Location: ENUSE+8
Function Call: WRITE	Prompt: *7,!,"Sorry, unable to find device..." Line Location: ENUSE+16
Function Call: WRITE	Prompt: !!,"* End Of Report *",!,IOF Line Location: ENQUE+32
Function Call: READ	Prompt: "Press <RETURN> to continue " Formatting: ! Timeout: DTIME Variable: A Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,@INHDR(A) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?N,X Line Location: WRITE+3
Function Call: WRITE	Prompt: !?N,F(F) Line Location: WRITE+4
Routine Call	%ZIS Line Location: ENUSE+14 ENUSE+16 QUIT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DA+20
^DIC - [#1]	FUNC+5
^INVD(4090.1 - [#4090.1]	ENQUE+24, DA+3, DA+9, DA+17, DA+20, DA+24
^INVD(4090.2 - [#4090.2]	FUNC+1, DA+10
^UTILITY($J	EN+3!, ENQUE+12!, ENQUE+26, ENQUE+28, ENQUE+30, FUNC+2, FUNC+3, FUNC+6, DA+3, DA+6* , DA+11, DA+14, DA+17, DA+21, DA+24, DA+25, LF+1*, WRITEE+3, WRITEE+4, WRITEL+2 , QUIT+3!

Label References

Name	Line Occurrences
DA	ENQUE+11
FUNC	ENQUE+7
HEADER	ENQUE+16, WRITE+1
HSET	ENQUE+16
LF	ENQUE+13
QUIT	ENUSE+7, ENUSE+10, ENUSE+14, ENUSE+16, ENUSE+17, ENQUE+33
RECID	ENQUE+9
WRITE	ENQUE+22, ENQUE+23, ENQUE+24, ENQUE+26, WRITEE+1, WRITEE+4, WRITEL+1, WRITEL+2
WRITEE	ENQUE+28
WRITEL	ENQUE+30

Name	Field # of Occurrence
^(	ENQUE+21, ENQUE+23, DA+25, WRITEE+4, WRITEL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+2~, ENUSE+14, ENUSE+16, QUIT+2*
%ZIS("A"	ENUSE+14*
%ZIS("B"	ENUSE+14*
%ZIS("RM"	ENUSE+14*
A	EN+2~, ENQUE+21, ENQUE+26, ENQUE+31, HEADER+1~, HEADER+2, HEADER+4
>> BRCT	ENQUE+6*
>> C	DA+20*
DT	HSET+1
DTIME	ENQUE+31, HEADER+2
F	EN+2~, WRITE+4!*
F(	WRITE+4
F(1	WRITE+4
INDA	EN+2~, ENQUE+6, ENQUE+10, ENQUE+21, ENQUE+24, ENQUE+26, DA+3, DA+6, DA+9, DA+11 , DA+14, DA+17, DA+20, DA+21, DA+24, DA+25, WRITEE+4*
INDE	EN+2~, RECID+2, RECID+5, DA+14*, DA+20
INDIC	EN+2~, FUNC+1*, FUNC+3, FUNC+4, FUNC+5, FUNC+6, RECID+2, DA+14, DA+20, DA+21
>> INEX	ENQUE+9, ENQUE+12, DA+25
INEXIT	EN+2~, ENQUE+15, HEADER+2, WRITE+2
INFUNC	EN+2~, ENQUE+6, ENQUE+12, ENQUE+21, ENQUE+26, ENQUE+28, ENQUE+30, FUNC+1, FUNC+2, FUNC+3 , FUNC+6, DA+3, DA+6, DA+9, DA+11, DA+14, DA+17, DA+21, DA+24, DA+25 , LF+1, WRITEE+3, WRITEE+4, WRITEL+2
INFUNCN	EN+2~, FUNC+1*, FUNC+2, FUNC+3, DA+6, DA+11
INGL	EN+2~, ENQUE+13, FUNC+1, FUNC+5, FUNC+6, RECID+5, DA+14, LF+1
INHDR	EN+2~
INHDR(	HEADER+4
INHDR(1	HSET+2*
INHDR(2	HSET+3*
INHDR(4	HSET+4*
INOSYS	EN+2~, ENUSE+11*
INPAGE	EN+2~, ENQUE+15, HEADER+2, HEADER+3, WRITE+1
INRECID	EN+2~, ENQUE+6, ENQUE+8, ENQUE+12, ENQUE+21, ENQUE+23, ENQUE+24, ENQUE+26, RECID+5, DA+3 , DA+6, DA+11, DA+14, DA+17, DA+21, DA+24, DA+25, WRITEE+3, WRITEE+4, WRITEL+2
INSYS	EN+2~, ENUSE+6*, ENUSE+7, ENUSE+8, ENUSE+11, ENQUE+5, FUNC+1, DA+14, DA+17, DA+20 , DA+24, WRITEE+4, HSET+2
IO	ENUSE+16, ENUSE+17, ENQUE+31, HEADER+2, HEADER+4, QUIT+2
IO("Q"	ENQUE+31, HEADER+2, QUIT+2!
IO(0	ENUSE+16, ENUSE+17, ENQUE+31, HEADER+2
IOF	ENQUE+32, HEADER+3
IOM	ENUSE+15, ENQUE+15, HSET+4
ION	ENUSE+15
IOP	ENUSE+14!, ENUSE+15, ENUSE+17, QUIT+2!
IOSL	ENUSE+15, WRITE+1
IOST	ENUSE+15, ENQUE+31, HEADER+2
K	EN+2~
>> L	ENQUE+19, ENQUE+25, WRITE+1, WRITE+3, WRITE+5, WRITEE+1, WRITEL+1*
N	EN+2~, ENQUE+21, ENQUE+23, ENQUE+24, ENQUE+25, DA+10, DA+11, WRITE+3, WRITE+4, WRITEE+1 , WRITEE+3, WRITEL+1, WRITEL+2*
ND	ENQUE+4~, ENQUE+5, ENQUE+6, ENQUE+19, ENQUE+20, ENQUE+21
POP	ENUSE+14, ENUSE+16, QUIT+2!
>> T	RECID+5*
U	EN+3*, DA+20, HEADER+2
X	EN+2~, ENUSE+18, ENQUE+21, ENQUE+23, ENQUE+24, ENQUE+26, DA+9, DA+10, DA+11, DA+17* , DA+20, DA+21, LF+1, WRITE+3, WRITE+4, WRITEE+1, WRITEE+4, WRITEL+1, WRITEL+2
>> Y	ENUSE+10, DA+20, DA+21, HSET+1*, HSET+2
ZTDESC	EN+2~, ENUSE+17*
ZTIO	EN+2~, ENUSE+17*
ZTRTN	EN+2~, ENUSE+17*
ZTSAVE	EN+2~
ZTSAVE(	ENUSE+18*

Customize PDF page

Package: IHS Generic Interface System

Routine: INHVEXP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: