Routine: INXHR03

Package	Total	Call Graph
VA Fileman	4	$$OUT^DIALOGU CSTP^DIO2 ^DIWP A^DIWW
IHS Generic Interface System	2	$$LAST^INHB (,B1R)^INXHR031

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
A1R	;
M
A2R	;
N
A1	;
A2	;
T
DT
B1	;

External References

Name	Field # of Occurrence
$$OUT^DIALOGU	DT
CSTP^DIO2	T+1
^DIWP	A2+1
A^DIWW	BEGIN+19, A2+2
$$LAST^INHB	A1R+32
^INXHR031	B1+1
B1R^INXHR031	A1R+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: N+0
Function Call: WRITE	Prompt: $$OUT^DIALOGU(Y,"DD") Line Location: DT+0
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " Line Location: DT+1
Function Call: WRITE	Prompt: $J(Y#100\1,2)_"," Condition for execution: Y#100 Line Location: DT+1
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+1
Function Call: WRITE	Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+1
Function Call: WRITE	Prompt: Y Line Location: DT+2
Function Call: WRITE	Prompt: ?0 Line Location: BEGIN+3
Function Call: WRITE	Prompt: "Process Name:" Line Location: BEGIN+3
Function Call: WRITE	Prompt: ?14,$E($P(X,U,1),1,60) Line Location: BEGIN+4
Function Call: WRITE	Prompt: ?3 Line Location: BEGIN+5
Function Call: WRITE	Prompt: "Active/Inactive:" Line Location: BEGIN+5
Function Call: WRITE	Prompt: ?20 Line Location: BEGIN+6
Function Call: WRITE	Prompt: $S($D(DXS(3,Y)):DXS(3,Y),1:Y) Condition for execution: Y]"" Line Location: BEGIN+6
Function Call: WRITE	Prompt: ?35 Line Location: BEGIN+7
Function Call: WRITE	Prompt: "Routine:" Line Location: BEGIN+7
Function Call: WRITE	Prompt: ?44,$E($E(X,1,50),1,30) Line Location: BEGIN+8
Function Call: WRITE	Prompt: ?10 Line Location: BEGIN+9
Function Call: WRITE	Prompt: "Priority:" Line Location: BEGIN+9
Function Call: WRITE	Prompt: ?20,$E($P(X,U,6),1,2) Line Location: BEGIN+10
Function Call: WRITE	Prompt: ?36 Line Location: BEGIN+11
Function Call: WRITE	Prompt: "Device:" Line Location: BEGIN+11
Function Call: WRITE	Prompt: ?44,$E($P(X,U,3),1,20) Line Location: BEGIN+12
Function Call: WRITE	Prompt: ?3 Line Location: BEGIN+13
Function Call: WRITE	Prompt: "Connection Type:" Line Location: BEGIN+13
Function Call: WRITE	Prompt: ?20 Line Location: BEGIN+14
Function Call: WRITE	Prompt: $S($D(DXS(4,Y)):DXS(4,Y),1:Y) Condition for execution: Y]"" Line Location: BEGIN+14
Function Call: WRITE	Prompt: ?5 Line Location: BEGIN+15
Function Call: WRITE	Prompt: "Client/Server:" Line Location: BEGIN+15
Function Call: WRITE	Prompt: ?20 Line Location: BEGIN+16
Function Call: WRITE	Prompt: $S($D(DXS(5,Y)):DXS(5,Y),1:Y) Condition for execution: Y]"" Line Location: BEGIN+16
Function Call: WRITE	Prompt: ?42 Line Location: BEGIN+17
Function Call: WRITE	Prompt: "Server IP Port" Line Location: BEGIN+17
Function Call: WRITE	Prompt: ?5 Line Location: BEGIN+20
Function Call: WRITE	Prompt: "Client IP Address Client IP Port" Line Location: BEGIN+20
Function Call: WRITE	Prompt: ?7,$E($P(X,U,1),1,35) Line Location: A1+1
Function Call: WRITE	Prompt: ?2 Line Location: A1R+1
Function Call: WRITE	Prompt: "--------------------------- Parameters --------------------------------------" Line Location: A1R+1
Function Call: WRITE	Prompt: ?4 Line Location: A1R+2
Function Call: WRITE	Prompt: "Open Hang Time:" Line Location: A1R+2
Function Call: WRITE	Prompt: ?20,$E($P(X,U,2),1,6) Line Location: A1R+3
Function Call: WRITE	Prompt: ?30 Line Location: A1R+4
Function Call: WRITE	Prompt: "Open Retries:" Line Location: A1R+4
Function Call: WRITE	Prompt: ?44,$E($P(X,U,1),1,3) Line Location: A1R+5
Function Call: WRITE	Prompt: ?4 Line Location: A1R+6
Function Call: WRITE	Prompt: "Send Hang Time:" Line Location: A1R+6
Function Call: WRITE	Prompt: ?20,$E($P(X,U,12),1,5) Line Location: A1R+7
Function Call: WRITE	Prompt: ?30 Line Location: A1R+8
Function Call: WRITE	Prompt: "Send Retries:" Line Location: A1R+8
Function Call: WRITE	Prompt: ?44,$E($P(X,U,11),1,3) Line Location: A1R+9
Function Call: WRITE	Prompt: ?53 Line Location: A1R+10
Function Call: WRITE	Prompt: "Send Timeout:" Line Location: A1R+10
Function Call: WRITE	Prompt: ?67,$E($P(X,U,4),1,4) Line Location: A1R+11
Function Call: WRITE	Prompt: ?4 Line Location: A1R+12
Function Call: WRITE	Prompt: "Read Hang Time:" Line Location: A1R+12
Function Call: WRITE	Prompt: ?20,$E($P(X,U,6),1,5) Line Location: A1R+13
Function Call: WRITE	Prompt: ?30 Line Location: A1R+14
Function Call: WRITE	Prompt: "Read Retries:" Line Location: A1R+14
Function Call: WRITE	Prompt: ?44,$E($P(X,U,5),1,3) Line Location: A1R+15
Function Call: WRITE	Prompt: ?52 Line Location: A1R+16
Function Call: WRITE	Prompt: "Rec'v Timeout:" Line Location: A1R+16
Function Call: WRITE	Prompt: ?67,$E($P(X,U,3),1,4) Line Location: A1R+17
Function Call: WRITE	Prompt: ?2 Line Location: A1R+18
Function Call: WRITE	Prompt: "Transmitter Hang:" Line Location: A1R+18
Function Call: WRITE	Prompt: ?20,$E($P(X,U,10),1,6) Line Location: A1R+19
Function Call: WRITE	Prompt: ?7 Line Location: A1R+20
Function Call: WRITE	Prompt: "End of Line:" Line Location: A1R+20
Function Call: WRITE	Prompt: ?20,$E($P(X,U,7),1,60) Line Location: A1R+21
Function Call: WRITE	Prompt: ?7 Line Location: A1R+22
Function Call: WRITE	Prompt: "Init String:" Line Location: A1R+22
Function Call: WRITE	Prompt: ?20,$E($P(X,U,8),1,60) Line Location: A1R+23
Function Call: WRITE	Prompt: ?5 Line Location: A1R+24
Function Call: WRITE	Prompt: "Init Response:" Line Location: A1R+24
Function Call: WRITE	Prompt: ?20,$E($P(X,U,9),1,60) Line Location: A1R+25
Function Call: WRITE	Prompt: ?2 Line Location: A1R+26
Function Call: WRITE	Prompt: "------------------------------------------------------------------------------" Line Location: A1R+26
Function Call: WRITE	Prompt: ?0 Line Location: A1R+27
Function Call: WRITE	Prompt: "Status $JOB Last Run Update Last Started" Line Location: A1R+27
Function Call: WRITE	Prompt: ?0 Line Location: A1R+28
Function Call: WRITE	Prompt: "" Line Location: A1R+28
Function Call: WRITE	Prompt: ?27,$E($P(X,U,4),1,7) Line Location: A1R+30
Function Call: WRITE	Prompt: ?36 Line Location: A1R+31
Function Call: WRITE	Prompt: "" Line Location: A1R+31
Function Call: WRITE	Prompt: $$LAST^INHB(D0) Line Location: A1R+32
Function Call: WRITE	Prompt: ?59 Line Location: A1R+33
Function Call: WRITE	Prompt: ?0 Line Location: A1R+34
Function Call: WRITE	Prompt: "Errors:" Line Location: A1R+34
Function Call: WRITE	Prompt: ?3 Line Location: A1R+35
Function Call: WRITE	Prompt: "Date/Time Error" Line Location: A1R+35
Function Call: WRITE	Prompt: ?3 Line Location: A1R+36
Function Call: WRITE	Prompt: "--------- -----" Line Location: A1R+36
Routine Call	DIALOGU Line Location: DT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIPT(2830	BEGIN+2
^INTHPC - [#4004]	BEGIN+4, BEGIN+8, BEGIN+10, BEGIN+21, A1+1, A1+2, A2+1, A1R+3, A1R+30, A1R+33 , A1R+37
^UTILITY($J	T

Label References

Name	Line Occurrences
@(	M
A1	BEGIN+21
A1R	BEGIN+22
A2	A1+2
A2R	A1+3
B1	A1R+37
BEGIN	INXHR03+1
DT	A1R+33
N	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12 , BEGIN+13, BEGIN+14, BEGIN+15, BEGIN+16, BEGIN+17, BEGIN+18, BEGIN+20, A1+1, A2+1, A1R+1 , A1R+2, A1R+3, A1R+4, A1R+5, A1R+6, A1R+7, A1R+8, A1R+9, A1R+10, A1R+11 , A1R+12, A1R+13, A1R+14, A1R+15, A1R+16, A1R+17, A1R+18, A1R+19, A1R+20, A1R+21 , A1R+22, A1R+23, A1R+24, A1R+25, A1R+26, A1R+27, A1R+28, A1R+30, A1R+31, A1R+33 , A1R+34, A1R+35, A1R+36
T	BEGIN+5, BEGIN+9, BEGIN+13, BEGIN+15, BEGIN+18, BEGIN+20, BEGIN+21, A1+2, A1R+1, A1R+2 , A1R+6, A1R+12, A1R+18, A1R+20, A1R+22, A1R+24, A1R+26, A1R+27, A1R+28, A1R+34 , A1R+35, A1R+36, A1R+37

Naked Globals

Name	Field # of Occurrence
^(	BEGIN+2, BEGIN+21, A1+2, A1R+37
^(1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	BEGIN+4, BEGIN+8, BEGIN+10, BEGIN+18, BEGIN+21, A1+1, A1+2, A2+1, A1R+3, A1R+30 , A1R+32, A1R+33, A1R+37
>> D1	BEGIN+18, BEGIN+21, A1+1, A1+2, A2+1, A1R+37*
>> D2	A1+2*, A2+1
>> DICMX	BEGIN+18*
>> DILCT	T+1, BEGIN+1
>> DIOT(2	T
DIP	BEGIN+18~!, A1R+29!, A1R+32!
>> DISTP	T+1, BEGIN+1
>> DIWF	T
>> DIWL	BEGIN+18, A2+1
>> DIWR	BEGIN+18, A2+1
>> DIXX	M
>> DN	T, BEGIN+1*, BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, BEGIN+9, BEGIN+10 , BEGIN+11, BEGIN+12, BEGIN+13, BEGIN+14, BEGIN+15, BEGIN+16, BEGIN+17, BEGIN+18, BEGIN+20, BEGIN+21 , A1+1, A1+2, A2+1, A1R+1, A1R+2, A1R+3, A1R+4, A1R+5, A1R+6, A1R+7 , A1R+8, A1R+9, A1R+10, A1R+11, A1R+12, A1R+13, A1R+14, A1R+15, A1R+16, A1R+17 , A1R+18, A1R+19, A1R+20, A1R+21, A1R+22, A1R+23, A1R+24, A1R+25, A1R+26, A1R+27 , A1R+28, A1R+29, A1R+30, A1R+31, A1R+32, A1R+33, A1R+34, A1R+35, A1R+36, A1R+37
>> DSC(	BEGIN+21, A1+2, A1R+37
DUZ("LANG"	DT
>> DXS	BEGIN+2
>> DXS(	BEGIN+2*
>> DXS(1	BEGIN+18
>> DXS(2	A1R+29
>> DXS(3	BEGIN+6
>> DXS(4	BEGIN+14
>> DXS(5	BEGIN+16
>> I(1	BEGIN+18, BEGIN+21, A1R+37*
>> I(2	A1+2*
IOSL	T
>> J(1	BEGIN+21, A1R+37
>> J(2	A1+2*
U	DT+1, BEGIN+4, BEGIN+6, BEGIN+10, BEGIN+12, BEGIN+14, BEGIN+16, A1+1, A2+1, A1R+3 , A1R+5, A1R+7, A1R+9, A1R+11, A1R+13, A1R+15, A1R+17, A1R+19, A1R+21, A1R+23 , A1R+25, A1R+30, A1R+33
>> X	BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10, BEGIN+12, BEGIN+14, BEGIN+16, BEGIN+18, A1+1 , A2+1, A1R+3, A1R+5, A1R+7, A1R+9, A1R+11, A1R+13, A1R+15, A1R+17, A1R+19 , A1R+21, A1R+23, A1R+25, A1R+30, A1R+33
Y	DT, DT+1, DT+2, BEGIN+2, BEGIN+6, BEGIN+14, BEGIN+16, BEGIN+18!, A2+1, A1R+29! , A1R+32!, A1R+33

Customize PDF page

Package: IHS Generic Interface System

Routine: INXHR03

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: