Routine: INHES

Package	Total	Call Graph
IHS Generic Interface System	4	$$BGNSRCH^INHERR $$SRCHSIZE^INHERR4 (CRIHDR,LIST)^INHES1 (INSUM,INSUMP,SEARCH)^INHES2
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	DD^%DT NOW^%DTC
Uncategorized	1	^UTSRD

Package

Total

Call Graph

$$BGNSRCH^INHERR $$SRCHSIZE^INHERR4 (CRIHDR,LIST)^INHES1 (INSUM,INSUMP,SEARCH)^INHES2

DD^%DT NOW^%DTC

Package	Total	Caller Graph
IHS Generic Interface System	2	INHERR INHES2

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
QUIT	;exit module
HEADER	; Output header in local array HDR(x)
ENQUE	; Taskman entry point
QUEUE(INSRCH)	;Device handling & Tasking logic ; return array INKA for programmer use
PGUSE(INKA)	; Programmer input
ENUSE	; User's entry point for the Interface Error Summary
HSET	; set up header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,INSRSZ," MESSAGES TO SEARCH.",! Line Location: QUEUE+12
Function Call: WRITE	Prompt: *7,!,"Sorry, unable to find device..." Line Location: QUEUE+17
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+16
Function Call: WRITE	Prompt: @HDR(INA) Line Location: HEADER+17
Function Call: WRITE	Prompt: !,@HDR(INA) Line Location: HEADER+20
Routine Call	%ZIS Line Location: QUEUE+15 QUEUE+17

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	HSET+11
^DIC(4 - [#4]	HSET+11

Name	Line Occurrences
QUIT	ENUSE+16, PGUSE+16, QUEUE+15, QUEUE+17, QUEUE+18, ENQUE+18

Name	Field # of Occurrence
^(0	HSET+11

Name	Field # of Occurrence
>> %	HSET+12
%ZIS	ENUSE+14~, QUEUE+15, QUEUE+17
%ZIS("A"	QUEUE+15*
%ZIS("B"	QUEUE+15*
A	ENUSE+14~
>> DUOUT	HEADER+12, HEADER+13*, HEADER+14
EXIT	ENUSE+14~, ENQUE+10*
HDR	ENUSE+14~
HDR(	HEADER+17, HEADER+20
HDR(1	HSET+25*
HDR(2	HSET+26*
HDR(3	HSET+27*
HDR(4	HSET+28*
HDR(5	HSET+29*
HDR(6	HSET+30*
HDR(7	HSET+31*
HDR(8	HSET+32*
INA	HEADER+10~, HEADER+17, HEADER+20
>> INARIEN	QUEUE+5, ENQUE+15
>> INDT	HSET+12*
>> INED	HSET+23*
INKA	PGUSE~, QUEUE+8
INKL	QUEUE+3, QUEUE+5, QUEUE+8, ENQUE+11~, ENQUE+12, ENQUE+15, ENQUE+17!
INPAGE	ENUSE+14~, ENQUE+10, HEADER+12, HEADER+16, HEADER+19
INQUIT	PGUSE+13~, PGUSE+15, ENQUE+11~, ENQUE+12
>> INSD	HSET+17*
>> INSITE	HSET+11*
INSRCH	PGUSE+15, QUEUE~, QUEUE+5, QUEUE+8, QUEUE+10, ENQUE+15, ENQUE+17, HEADER+19
INSRCH("INEND"	HSET+18
INSRCH("INSTART"	HSET+14
INSRCH("TOTAL"	QUEUE+13*
INSRSZ	QUEUE+10~*, QUEUE+11, QUEUE+12, QUEUE+13
>> INTY	HSET+14, HSET+15, HSET+18, HSET+20, HSET+22
IO	QUEUE+17, QUEUE+18, HEADER+12, HEADER+20
IO("Q"	HEADER+12, QUIT+11!
IO(0	QUEUE+17, QUEUE+18, HEADER+12
IOF	HEADER+16
IOM	QUEUE+16, HSET+28, HSET+32
ION	QUEUE+16
IOP	QUEUE+15!, QUEUE+16*, QUEUE+18, QUIT+11!
IOSL	QUEUE+16
IOST	QUEUE+16, HEADER+12, HEADER+16
POP	QUEUE+15, QUEUE+17, QUIT+11!
PROG	PGUSE+13~, PGUSE+15*, QUEUE+2
X	ENUSE+14~, QUEUE+19*, HEADER+13
>> Y	HSET+12, HSET+14, HSET+15, HSET+16, HSET+17, HSET+18, HSET+20, HSET+22*, HSET+23
ZTDESC	ENUSE+14~, QUEUE+18*
ZTIO	ENUSE+14~, QUEUE+18*
ZTRTN	ENUSE+14~, QUEUE+18*
ZTSAVE	ENUSE+14~
ZTSAVE(	QUEUE+19*

Information