Routine: INHOU3

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC $$UPCASE^%ZTF ($$CDATASC,$$CDATF2H)^%ZTFDT ^%ZTLOAD
VA Fileman	4	^DDS HLP^DDSUTL ^DIC ^DIK
Uncategorized	3	^DWC MESS^DWD $$DATEFMT^UTDT
IHS Generic Interface System	2	ERR^INHMS2 $$SC^INHUTIL1

Package	Total	Caller Graph
IHS Generic Interface System	1	INHOU

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;Print header
TEXT	;Set up status array
HELP1	;Help text for IHS
1	;^INLHDEST QUEUE
0	;^INLHSCH QUEUE
SHDR	;set header
QZTSK	;TaskMan entry point
CR	;
DIPA	;
CLOSE	;Close device
QUE	;Select que
SEL	;Display selection criteria
DTCHK(INBEG1,INEND1,INH)	;check queue entry to see if it's in time range
QTSK	;Display currently queued entries
HELP	;

External References

Name	Field # of Occurrence
^%ZIS	QTSK+17, QTSK+27
^%ZISC	QTSK+28, CLOSE+1, CLOSE+4
$$UPCASE^%ZTF	QUE+3
$$CDATASC^%ZTFDT	SHDR+1, SHDR+3, SHDR+5
$$CDATF2H^%ZTFDT	QZTSK+23, QZTSK+24
^%ZTLOAD	QTSK+25
^DDS	QTSK+16
HLP^DDSUTL	HELP1+3
^DIC	QTSK+7
^DIK	QTSK+26
^DWC	QTSK+12
MESS^DWD	QUE+8
ERR^INHMS2	QTSK+8
$$SC^INHUTIL1	QTSK+11, QTSK+13
$$DATEFMT^UTDT	DIPA+6, DIPA+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Unable to find device" Line Location: QTSK+28
Function Call: WRITE	Prompt: ! Line Location: CLOSE+2
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X Line Location: CLOSE+3
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X,! Line Location: 0+12
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X,! Line Location: 0+13
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X,! Line Location: 1+13
Function Call: WRITE	Prompt: ?IOM-$L(X)\2,X,! Line Location: 1+14
Function Call: WRITE	Prompt: $$DATEFMT^UTDT($P(DETL,U),"MM/DD@HH:II") Line Location: DIPA+12
Function Call: WRITE	Prompt: ?14,$E($P(DETL,U,16),1,4) Line Location: DIPA+14
Function Call: WRITE	Prompt: ?19,$S(PC="":PC,$D(INDX(PC)):INDX(PC),1:PC) Line Location: DIPA+17
Function Call: WRITE	Prompt: ?24,$E($P(DETL,U,5),1,18) Line Location: DIPA+19
Function Call: WRITE	Prompt: ?35,$E(PC,1,35) Line Location: DIPA+23
Function Call: WRITE	Prompt: !?35,$P(^INRHT($P(DETL,U,11),0),U) Line Location: DIPA+25
Function Call: WRITE	Prompt: ! Line Location: DIPA+27
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,INLN(6) Line Location: HDR+4
Function Call: WRITE	Prompt: ?IOM-$L(X)-1,X,! Line Location: HDR+6
Function Call: WRITE	Prompt: !?IOM-$L(INLN(I))\2,INLN(I) Line Location: HDR+7
Function Call: WRITE	Prompt: !,INLN(7),!,INLN,! Line Location: HDR+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: CR+2
Function Call: WRITE	Prompt: !,"Press <RETURN> to continue. " Line Location: CR+2
Function Call: WRITE	Prompt: !,"Selection Criteria: " Line Location: SEL+1
Function Call: WRITE	Prompt: !,"Queue: ",$S(QUE=0:"INLHSCH",QUE=1:"INLHDEST",1:"All") Line Location: SEL+2
Function Call: WRITE	Prompt: !,"Cut Off Priority: ",$S(PRIO?1.N:PRIO,1:"All") Line Location: SEL+3
Function Call: WRITE	Prompt: !,"Direction: ",$S(DIRC="I":"In",DIRC="O":"Out",1:"All") Line Location: SEL+4
Function Call: WRITE	Prompt: !,"Destination: ",$S(DEST="":"All",$D(^INRHD(DEST,0))#2:$P(^(0),U),1:" "_DEST) Line Location: SEL+5
Function Call: WRITE	Prompt: !,"Detailed: ",$S(INDET=0:"No",1:"Yes"),! Line Location: SEL+6
Function Call: WRITE	Prompt: " ",QUE1 Line Location: QUE+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: QUE+8
Function Call: WRITE	Prompt: ?10,QUE1_" is empty",!,?10,"Press <RETURN> to continue. " Line Location: QUE+8
Function Call: WRITE	Prompt: !,"Select Queue: 0=INLHSCH" Line Location: HELP+1
Function Call: WRITE	Prompt: !," 1=INLHDEST" Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Press 'Enter' to select all queues" Line Location: HELP+3
Routine Call	DDS Line Location: QTSK+16
Routine Call	DIC Line Location: QTSK+7
Routine Call	%ZIS Line Location: QTSK+17 QTSK+27

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	SHDR+8
^DIC(4 - [#4]	SHDR+8
^DIZ(4001.1 - [#4001.1]	QTSK+19
^INLHDEST(	1+3, 1+7, 1+10, 1+12
^INLHDEST(""	QTSK+4
^INLHSCH	0+2, 0+5, 0+7
^INLHSCH(""	QTSK+4
^INRHD - [#4005]	1+6, DIPA+9, DIPA+22, SEL+5
^INRHT - [#4000]	DIPA+25
^INTHU - [#4001]	0+8, DIPA+2, DIPA+3
^INTHU("B"	QZTSK+16
^UTILITY($J	QTSK+1!

Label References

Name	Line Occurrences
$$DTCHK	0+5, 1+10
@(	QZTSK+26, QZTSK+27
CLOSE	QZTSK+25
CR	0+14, 1+15, HDR+2
DIPA	QZTSK+26, QZTSK+27, 0+11, 1+12
HDR	0+1, 1+2, 1+4, DIPA+11, DIPA+26
SEL	HDR+11
SHDR	QZTSK+21
TEXT	SHDR+13

Naked Globals

Name	Field # of Occurrence
^(0	DIPA+9, DIPA+22, SHDR+8, SEL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QZTSK+1~
>> %ZIS	QTSK+17, QTSK+27
>> CNT	0+1, 0+11, 0+12, 0+13, 1+2, 1+12, 1+13, 1+14
COUNT	QZTSK+2~
D0	QZTSK+1~, 0+4, 0+7, 0+8, 1+9, 1+12, DIPA+1
DA	QTSK+2~, QTSK+9, QTSK+26, QZTSK+2~
DDSFILE	QTSK+3~, QTSK+15*
DDSPAGE	QTSK+3~, QTSK+15*
DDSPARM	QTSK+3~, QTSK+15*
DDSSAVE	QTSK+3~, QTSK+13
DES	QZTSK+2~, 1+2, 1+3, 1+5, 1+6, 1+7, 1+10, 1+12
DEST	QZTSK+2~, QZTSK+13*, 0+10, 1+5, SEL+5
DETL	QZTSK+2~, 0+8, 0+9, 0+10, DIPA+3, DIPA+5, DIPA+7, DIPA+8, DIPA+9, DIPA+12 , DIPA+14, DIPA+16, DIPA+19, DIPA+21, DIPA+25
DIC	QTSK+2~, QTSK+6, QTSK+14~, QTSK+26
DIC(0	QTSK+6*
DIE	QTSK+2~, QTSK+9*, QTSK+15
DIK	QTSK+2~, QTSK+26*
DIOUT	QZTSK+1~
DIP	DIPA+12!
DIRC	QZTSK+2~, QZTSK+11*, 0+9, 1+1, SEL+4
DIZ	QTSK+19~
DIZ(	QTSK+19*, QZTSK+5, QZTSK+7, QZTSK+9, QZTSK+11, QZTSK+13, QZTSK+15, QZTSK+19
>> DLAYGO	QTSK+6*
DR	QTSK+3~, QTSK+15*
DT	QZTSK+20
DTIME	CR+2, QUE+8
DUOUT	QZTSK+1~
DUZ	QTSK+6
>> DWASK	QTSK+12*
>> DWFILE	QTSK+11
>> DWN	QTSK+9*, QTSK+15
>> I	CLOSE+2, HDR+7
INBEG	QZTSK+2~, QZTSK+15, QZTSK+16, QZTSK+17*, QZTSK+23, SHDR+3
INBEG1	QZTSK+2~, QZTSK+23*, 0+4, 0+5, 0+6, 1+9, 1+10, 1+11, DTCHK~, DTCHK+7 , DTCHK+8
>> INDA	QTSK+7*, QTSK+9, QTSK+19, QTSK+25, QTSK+26, QZTSK+5, QZTSK+7, QZTSK+9, QZTSK+11, QZTSK+13 , QZTSK+15, QZTSK+19
INDET	QZTSK+2~, QZTSK+5*, DIPA+4, SHDR+12, SEL+6
INDIC	QTSK+14~*
INDX	QZTSK+1~
INDX(	DIPA+17
INDX("A"	TEXT+1*
INDX("C"	TEXT+2*
INDX("E"	TEXT+3*
INDX("K"	TEXT+4*
INDX("N"	TEXT+5*
INDX("P"	TEXT+6*
INDX("S"	TEXT+7*
INE	QZTSK+2~, DIPA+1*, DIPA+2, DIPA+3
INEND	QZTSK+2~, QZTSK+19, QZTSK+20, QZTSK+24, SHDR+4, SHDR+5
INEND1	QZTSK+2~, QZTSK+24*, 0+5, 1+10, DTCHK~, DTCHK+7, DTCHK+9
INH	QZTSK+1~, 0+4, 0+5, 0+6, 0+7, 1+9, 1+10, 1+11, 1+12, DTCHK~ , DTCHK+7, DTCHK+8, DTCHK+9
INH1	QZTSK+2~, DIPA+5*, DIPA+6
INLN	QZTSK+2~, SHDR+1!, SHDR+10*, HDR+12
INLN(	HDR+7
INLN(0	SHDR+1*, HDR+5
INLN(1	SHDR+2*
INLN(2	SHDR+6*
INLN(6	SHDR+8, SHDR+9, HDR+4
INLN(7	SHDR+11, SHDR+12, HDR+12
INLOOP	QZTSK+1~
INMSG	HELP1+1~, HELP1+2*, HELP1+3
INQUE	QZTSK+2~, QZTSK+26*
INSEL	QZTSK+2~, HDR+11, SEL+7*
INX	QUE+2~*, QUE+7
IO	QTSK+20, HDR+2, CR+1
IO(0	QTSK+20, HDR+2, CR+1
IOF	HDR+3
IOM	QTSK+18, CLOSE+3, 0+12, 0+13, 1+13, 1+14, SHDR+10, HDR+6, HDR+7, HDR+11
ION	QTSK+18
IOP	QTSK+17!, QTSK+18*, QTSK+20
IOSL	QTSK+18, CLOSE+2, 1+4, DIPA+11, DIPA+26, HDR+2
IOST	QTSK+18, HDR+2, HDR+3, CR+1
PAG	QZTSK+2~, SHDR+1, HDR+3, HDR+5
PC	QZTSK+2~, DIPA+9, DIPA+10, DIPA+16~, DIPA+17, DIPA+21, DIPA+22, DIPA+23
>> POP	QTSK+17, QTSK+28, QZTSK+21, CLOSE+1, 0+1, 0+2, 0+5, 0+7, 1+1, 1+2* , 1+3, 1+4, 1+7, 1+10, 1+12, HDR+2, CR+2, QUE+1*
PRI	QZTSK+2~, 0+1, 0+2, 0+3, 0+5, 0+7, 1+7*, 1+8, 1+10, 1+12
PRIO	QZTSK+2~, QZTSK+9*, 0+3, 1+8, SEL+3
QUE	QZTSK+2~, QZTSK+7*, QZTSK+25, QZTSK+27, SEL+2
QUE1	QZTSK+2~, 0+1, 1+2, HDR+10, QUE+2~, QUE+6*, QUE+7, QUE+8
U	QZTSK+5, QZTSK+9, 0+9, 0+10, 1+6, DIPA+5, DIPA+7, DIPA+8, DIPA+9, DIPA+12 , DIPA+14, DIPA+16, DIPA+19, DIPA+21, DIPA+22, DIPA+25, SHDR+9, CR+2, SEL+5, QUE+1
X	QTSK+6, QZTSK+1~, CLOSE+3, 0+12, 0+13, 1+13, 1+14, SHDR+1, SHDR+3, SHDR+5* , SHDR+6, HDR+5, HDR+6, HDR+10, HDR+11, CR+2, QUE+1, QUE+2, QUE+3, QUE+4* , QUE+5!, QUE+6, QUE+8*!
Y	QTSK+7, QTSK+8, QZTSK+1~
>> ZTDESC	QTSK+22*
>> ZTIO	QTSK+20*
>> ZTRTN	QTSK+21*
>> ZTSAVE("DIZ("	QTSK+24*
>> ZTSAVE("INDA"	QTSK+25*

Customize PDF page

Package: IHS Generic Interface System

Routine: INHOU3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: