Routine: INHUT8

Package	Total	Call Graph
Kernel	4	^%ZIS $$DISPDEV^%ZIS2 ^%ZISC ^%ZTLOAD
IHS Generic Interface System	1	MSG^INTSUT2
Uncategorized	1	(,$$MESS1)^UTSRD

Package	Total	Caller Graph
IHS Generic Interface System	2	INTSTRT INTSTRT1

Entry Points

Name	Comments	DBIA/ICR reference
ZIS2(INDEV,INOUT,DWPNT)	;Lookup for device
HDASK()	;-- Writes the Question prompt to ask for Output Device ; INCHOICE -- User choice for device type ; INQUIT -- Var set if user '^', or timed out ; 0 = normal exit ; 1,2,3 user responded by '^', or was too slow in choice
HELP	; This is help for the 'Device: ' prompt field. ; Local variables ; INDEVTYP -- Used for determining whether user wants to see a list ; all devices or just printers. Returned from HDASK^ ; 0 = none, 1 - for printers only, 2 - for all devices
OPENIT	; Internal routine to open device
ZIS(INRTN,INVARS,INLIM,HDR,INIOM,INIOP)	;Main entry point ; Input: ; INRTN - routine/subroutine that does report output ; INVARS-=Names of variables to pass ZTRTN. Separate names ; with "^". Example: "INTS^INDA(^INTYPE". Or can be array by ; ref. like the ZTSAVE taskman array. ; INLIM - 0 - Allow Queing but not forced 1 - don't allow queing ; 2 - Force queing ; INIOM - Width - Default=80 ; INIOP - Force Device selection - See Birp for IOP format
DISPDEV(XPARNAM,XX,XY,XD,XW,INPOS)	;old entry point for device help
WRITE	;output a line
HEADER	;output header in local array HDR(x)
PRNTLST(INDTYPE)	; Output list of printer devices ; Input: ; INDTYPE --- Filter var used to determine list type. ; Local variables: ; INDONE -- Flag to test when done looping ; INNOPRT -- Flag used to ensure non-printer devices are not ; shown in list of devices. ; INPRDEV -- Used to get data piece to determine if a printer device. ; INDEVNAM -- Name of device as listed in %ZIS cross-ref, 'B'. ; INDEVNUM -- The number of the device as listed in ^%ZIS(1,DEVNUM. ; INYLINE -- Keeps track of Y-cordinate. ; INNODE -- Temp variable to hold node - less disk hits ; INRESULT -- Var to check if user wants to ^ out.
CLOSE	;exit module
ZTSAVE

External References

Name	Field # of Occurrence
^%ZIS	ZIS+21, CLOSE+2, OPENIT+1, OPENIT+2, ZIS2+15
$$DISPDEV^%ZIS2	ZIS2+16, DISPDEV+1
^%ZISC	CLOSE+1, ZIS2+23
^%ZTLOAD	ZIS+28
MSG^INTSUT2	ZIS2+11, ZIS2+18
^UTSRD	HDASK+8
$$MESS1^UTSRD	PRNTLST+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queing not allowed with this option",!,"report will be sent directly to device",!,*7 Line Location: ZIS+30
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: !,@HDR(A) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,@DATA Line Location: WRITE+3
Function Call: WRITE	Prompt: *7,!?5,"Device busy." Line Location: OPENIT+2
Function Call: WRITE	Prompt: " OUT OF SERVICE " Line Location: PRNTLST+35
Function Call: WRITE	Prompt: ! Line Location: HDASK+7
Function Call: WRITE	Prompt: ! Line Location: HDASK+9
Routine Call	%ZIS Line Location: ZIS+21 CLOSE+2 OPENIT+1 OPENIT+2 ZIS2+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	PRNTLST+17, PRNTLST+19, PRNTLST+22, PRNTLST+25, PRNTLST+29, PRNTLST+33
^%ZIS(2 - [#3.2]	PRNTLST+26, PRNTLST+27

Label References

Name	Line Occurrences
$$HDASK	HELP+7
@(	ZIS+32
CLOSE	ZIS+21, ZIS+29, ZIS+31, ZIS+33
HEADER	WRITE+1
OPENIT	ZIS+31
PRNTLST	HELP+11
ZTSAVE	ZIS+27

Naked Globals

Name	Field # of Occurrence
^(0	PRNTLST+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ZIS+16, ZIS+17, ZIS+18, ZTSAVE+2*
%ZIS	ZIS+11~, ZIS+20, ZIS+21, CLOSE+2, OPENIT+1, ZIS2+7~, ZIS2+8!*
%ZIS("B"	ZIS+20*
A	ZIS+11~, HEADER+1~, HEADER+2, HEADER+4
COUNT	ZIS+11~
DATA	ZIS+11~, WRITE+3
DIC	ZIS+12~
>> DIJC("IOSL"	PRNTLST+38
DTIME	HEADER+2
DTOUT	ZIS+21!
DWPNT	ZIS2~, ZIS2+20*
EXIT	ZIS+11~, HEADER+2*, WRITE+2
HDR	ZIS~, ZIS+11~
HDR(	HEADER+4
I	ZTSAVE~, ZTSAVE+2, ZTSAVE+3
INCHOICE	HDASK+6~, HDASK+9*, HDASK+13
INDEV	ZIS2~, ZIS2+9, ZIS2+10, ZIS2+12, ZIS2+13, ZIS2+14, ZIS2+16
INDEVNAM	PRNTLST+14~, PRNTLST+15, PRNTLST+17, PRNTLST+18, PRNTLST+19
INDEVNUM	PRNTLST+14~, PRNTLST+19*, PRNTLST+22, PRNTLST+25, PRNTLST+29, PRNTLST+33
INDEVTYP	HELP+6~, HELP+7*, HELP+8, HELP+9, HELP+11
INDONE	PRNTLST+14~, PRNTLST+15, PRNTLST+16, PRNTLST+18, PRNTLST+41*
INDTYPE	PRNTLST~, PRNTLST+24
INIOM	ZIS~, ZIS+13, ZIS+14, ZIS+18, ZIS+23
INIOP	ZIS~, ZIS+15, ZIS+16
INLIM	ZIS~, ZIS+13*, ZIS+26, ZIS+30
INLIST	ZIS2+7~
INNODE	PRNTLST+14~, PRNTLST+29*, PRNTLST+31, PRNTLST+35
INNOPRT	PRNTLST+14~, PRNTLST+23, PRNTLST+24, PRNTLST+26, PRNTLST+27*
INOUT	ZIS2~, ZIS2+9, ZIS2+12, ZIS2+15, ZIS2+16, ZIS2+17, ZIS2+19*
INPOS	DISPDEV~, DISPDEV+1
INPRDEV	PRNTLST+14~, PRNTLST+25*, PRNTLST+26, PRNTLST+27
INQUIT	HDASK+6~, HDASK+11
INRESULT	PRNTLST+14~, PRNTLST+39*, PRNTLST+41
INRTN	ZIS~, ZIS+13
INVARS	ZIS~, ZTSAVE+1*, ZTSAVE+2
INVARS(	ZTSAVE+3
INYLINE	PRNTLST+14~, PRNTLST+15, PRNTLST+37, PRNTLST+38, PRNTLST+42*
IO	ZIS+26, HEADER+2, HEADER+4, CLOSE+2, OPENIT+3
IO("Q"	ZIS+26, ZIS+30, HEADER+2, CLOSE+2!
IO(0	ZIS+26, HEADER+2
IOF	HEADER+3
IOM	ZIS+23*, ZIS+24, ZIS2+15
ION	ZIS+24, ZIS2+7~, ZIS2+15
IOP	ZIS+11~, ZIS+16, ZIS+17, ZIS+18, ZIS+21, ZIS+24, ZIS+26, CLOSE+2!, OPENIT+2, ZIS2+7~ , ZIS2+14*
IOSL	ZIS+24, WRITE+1, ZIS2+15
IOST	ZIS+24, HEADER+2, ZIS2+15
LOOP	ZIS+11~
PAGE	ZIS+11~, HEADER+2, HEADER+3*, WRITE+1
POP	ZIS+21, ZIS+31, CLOSE+2!, OPENIT+1*, OPENIT+2, ZIS2+7~, ZIS2+15
U	HEADER+2, ZTSAVE+2
X	ZIS+11~, HDASK+9
XD	DISPDEV~, DISPDEV+1
XPARNAM	DISPDEV~, DISPDEV+1
XW	DISPDEV~, DISPDEV+1
XX	DISPDEV~, DISPDEV+1
XY	DISPDEV~, DISPDEV+1
Y	ZIS+12~
ZTDESC	ZIS+11~, ZIS+24!, ZIS+26*
ZTIO	ZIS+11~, ZIS+24!, ZIS+26*
ZTRTN	ZIS+11~, ZIS+13*, ZIS+32
ZTSAVE	ZIS+11~, ZTSAVE!
ZTSAVE(	ZTSAVE+2, ZTSAVE+3
ZTSK	ZIS+24!
ZTUCI	ZIS+24!

Customize PDF page

Package: IHS Generic Interface System

Routine: INHUT8

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: