Routine: INXHR08

Package	Total	Call Graph
VA Fileman	4	$$OUT^DIALOGU CSTP^DIO2 ^DIWP A^DIWW
IHS Generic Interface System	3	RPTRANS^INHMG1 ^INXHR081 D1R^INXHR082

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
A1R	;
M
N
A1	;
B1R	;
T
C1R	;
DT
D1	;
C1	;
B1	;

External References

Name	Field # of Occurrence
$$OUT^DIALOGU	DT
CSTP^DIO2	T+1
^DIWP	A1+1, B1+1, C1+1
A^DIWW	A1R+1, B1R+1, C1R+1
RPTRANS^INHMG1	A1R+34
^INXHR081	D1+3
D1R^INXHR082	C1R+8

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: "*** Message ***************************************************************" Line Location: BEGIN+3
Function Call: WRITE	Prompt: ?0,$E($P(X,U,1),1,45) Line Location: BEGIN+4
Function Call: WRITE	Prompt: ?66 Line Location: BEGIN+5
Function Call: WRITE	Prompt: "Inactive:" Line Location: BEGIN+5
Function Call: WRITE	Prompt: ?76 Line Location: BEGIN+6
Function Call: WRITE	Prompt: $S($D(DXS(17,Y)):DXS(17,Y),1:Y) Condition for execution: Y]"" Line Location: BEGIN+6
Function Call: WRITE	Prompt: ?5 Line Location: A1R+2
Function Call: WRITE	Prompt: "Standard:" Line Location: A1R+2
Function Call: WRITE	Prompt: ?15 Line Location: A1R+3
Function Call: WRITE	Prompt: $S($D(DXS(18,Y)):DXS(18,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+3
Function Call: WRITE	Prompt: ?3 Line Location: A1R+4
Function Call: WRITE	Prompt: "Event Type:" Line Location: A1R+4
Function Call: WRITE	Prompt: ?15,$E($P(X,U,2),1,20) Line Location: A1R+5
Function Call: WRITE	Prompt: ?41 Line Location: A1R+6
Function Call: WRITE	Prompt: "Message Type:" Line Location: A1R+6
Function Call: WRITE	Prompt: ?56,$E($P(X,U,6),1,3) Line Location: A1R+7
Function Call: WRITE	Prompt: ?1 Line Location: A1R+8
Function Call: WRITE	Prompt: "Send Applic.:" Line Location: A1R+8
Function Call: WRITE	Prompt: ?15,$E($P(X,U,1),1,25) Line Location: A1R+9
Function Call: WRITE	Prompt: ?41 Line Location: A1R+10
Function Call: WRITE	Prompt: "Rec. Applic.:" Line Location: A1R+10
Function Call: WRITE	Prompt: ?55,$E($P(X,U,3),1,25) Line Location: A1R+11
Function Call: WRITE	Prompt: ?5 Line Location: A1R+12
Function Call: WRITE	Prompt: "Facility:" Line Location: A1R+12
Function Call: WRITE	Prompt: ?15,$E($P(X,U,2),1,25) Line Location: A1R+13
Function Call: WRITE	Prompt: ?45 Line Location: A1R+14
Function Call: WRITE	Prompt: "Facility:" Line Location: A1R+14
Function Call: WRITE	Prompt: ?55,$E($P(X,U,4),1,25) Line Location: A1R+15
Function Call: WRITE	Prompt: ?0 Line Location: A1R+16
Function Call: WRITE	Prompt: "Processing ID:" Line Location: A1R+16
Function Call: WRITE	Prompt: ?15 Line Location: A1R+17
Function Call: WRITE	Prompt: $S($D(DXS(19,Y)):DXS(19,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+17
Function Call: WRITE	Prompt: ?28 Line Location: A1R+18
Function Call: WRITE	Prompt: "HL7 Version:" Line Location: A1R+18
Function Call: WRITE	Prompt: ?41,$E($P(X,U,4),1,5) Line Location: A1R+19
Function Call: WRITE	Prompt: ?48 Line Location: A1R+20
Function Call: WRITE	Prompt: "Lookup Parameter:" Line Location: A1R+20
Function Call: WRITE	Prompt: ?66 Line Location: A1R+21
Function Call: WRITE	Prompt: $S($D(DXS(20,Y)):DXS(20,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+21
Function Call: WRITE	Prompt: ?3 Line Location: A1R+22
Function Call: WRITE	Prompt: "Accept Ack:" Line Location: A1R+22
Function Call: WRITE	Prompt: ?15 Line Location: A1R+23
Function Call: WRITE	Prompt: $S($D(DXS(21,Y)):DXS(21,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+23
Function Call: WRITE	Prompt: ?49 Line Location: A1R+24
Function Call: WRITE	Prompt: "Application Ack:" Line Location: A1R+24
Function Call: WRITE	Prompt: ?66 Line Location: A1R+25
Function Call: WRITE	Prompt: $S($D(DXS(22,Y)):DXS(22,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+25
Function Call: WRITE	Prompt: ?4 Line Location: A1R+26
Function Call: WRITE	Prompt: "Root File:" Line Location: A1R+26
Function Call: WRITE	Prompt: ?15 Line Location: A1R+27
Function Call: WRITE	Prompt: $E(Y,1,40) Line Location: A1R+27
Function Call: WRITE	Prompt: ?57 Line Location: A1R+28
Function Call: WRITE	Prompt: "Audited:" Line Location: A1R+28
Function Call: WRITE	Prompt: ?66 Line Location: A1R+29
Function Call: WRITE	Prompt: $S($D(DXS(23,Y)):DXS(23,Y),1:Y) Condition for execution: Y]"" Line Location: A1R+29
Function Call: WRITE	Prompt: ?0 Line Location: A1R+30
Function Call: WRITE	Prompt: "Routine for Lookup/Store:" Line Location: A1R+30
Function Call: WRITE	Prompt: ?26,$E($E(X,1,200),1,54) Line Location: A1R+31
Function Call: WRITE	Prompt: ?0 Line Location: A1R+32
Function Call: WRITE	Prompt: "Transaction Types:" Line Location: A1R+32
Function Call: WRITE	Prompt: ?3 Line Location: A1R+33
Function Call: WRITE	Prompt: "" Line Location: A1R+33
Function Call: WRITE	Prompt: ?0 Line Location: A1R+35
Function Call: WRITE	Prompt: "MUMPS Code for Lookup:" Line Location: A1R+35
Function Call: WRITE	Prompt: ?0 Line Location: B1R+2
Function Call: WRITE	Prompt: "Outgoing Initial MUMPS Code:" Line Location: B1R+2
Function Call: WRITE	Prompt: ?0 Line Location: C1R+2
Function Call: WRITE	Prompt: "Generated Scripts -" Line Location: C1R+2
Function Call: WRITE	Prompt: ?3 Line Location: C1R+3
Function Call: WRITE	Prompt: "Input:" Line Location: C1R+3
Function Call: WRITE	Prompt: ?10 Line Location: C1R+4
Function Call: WRITE	Prompt: $E(Y,1,60) Line Location: C1R+4
Function Call: WRITE	Prompt: ?2 Line Location: C1R+5
Function Call: WRITE	Prompt: "Output:" Line Location: C1R+5
Function Call: WRITE	Prompt: ?10 Line Location: C1R+6
Function Call: WRITE	Prompt: $E(Y,1,60) Line Location: C1R+6
Function Call: WRITE	Prompt: ?0 Line Location: D1+1
Function Call: WRITE	Prompt: "=====Segment Name==================================ID=====Seq No==Req==Rep==OF==" Line Location: D1+1
Function Call: WRITE	Prompt: ?0 Line Location: D1+2
Function Call: WRITE	Prompt: $E(Y,1,45) Line Location: D1+2
Routine Call	DIALOGU Line Location: DT

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	A1R+27
^DIPT(2828	BEGIN+2
^INRHS - [#4006]	C1R+4, C1R+6
^INTHL7M - [#4011]	BEGIN+4, BEGIN+7, A1+1, A1R+3, A1R+9, A1R+17, A1R+31, A1R+36, B1+1, B1R+3 , C1+1, C1R+4, C1R+7, D1+2
^INTHL7S - [#4010]	D1+2
^UTILITY($J	T

Name	Line Occurrences
@(	M
A1	BEGIN+7
A1R	BEGIN+8
B1	A1R+36
B1R	A1R+37
BEGIN	INXHR08+1
C1	B1R+3
C1R	B1R+4
D1	C1R+7
N	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, 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+35, B1R+2, C1R+2, C1R+3 , C1R+4, C1R+5, C1R+6, D1+1, D1+2
T	BEGIN+4, BEGIN+7, A1R+2, A1R+4, A1R+8, A1R+12, A1R+16, A1R+22, A1R+26, A1R+30 , A1R+32, A1R+33, A1R+35, A1R+36, B1R+2, B1R+3, C1R+2, C1R+3, C1R+5, C1R+7 , D1+1, D1+2

Name	Field # of Occurrence
^(	BEGIN+2, BEGIN+7, A1R+36, B1R+3, C1R+7
^(0	A1R+27, C1R+4, C1R+6, D1+2
^(1	T

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	BEGIN+4, BEGIN+7, A1+1, A1R+3, A1R+9, A1R+17, A1R+31, A1R+34, A1R+36, B1+1 , B1R+3, C1+1, C1R+4, C1R+7, D1+2
>> D1	BEGIN+7, A1+1, A1R+36, B1+1, B1R+3, C1+1, C1R+7, D1+2
>> DILCT	T+1, BEGIN+1
>> DIOT(2	T
DIP	A1R+34!
>> DISTP	T+1, BEGIN+1
>> DIWF	T, A1R+36, B1R+3
>> DIWL	A1+1, B1+1, C1+1*
>> DIWR	A1+1, B1+1, C1+1*
>> DIXX	M
>> DN	T, BEGIN+1*, BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, 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, B1R+2, B1R+3, C1R+2, C1R+3, C1R+4, C1R+5, C1R+6, C1R+7 , D1+1, D1+2
>> DSC(	C1R+7
DUZ("LANG"	DT
>> DXS	BEGIN+2
>> DXS(	BEGIN+2*
>> DXS(17	BEGIN+6
>> DXS(18	A1R+3
>> DXS(19	A1R+17
>> DXS(20	A1R+21
>> DXS(21	A1R+23
>> DXS(22	A1R+25
>> DXS(23	A1R+29
>> I(1	BEGIN+7, A1R+36, B1R+3, C1R+7
IOSL	T
>> J(1	BEGIN+7, A1R+36, B1R+3, C1R+7
U	DT+1, BEGIN+4, BEGIN+6, 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+27, A1R+29, C1R+4, C1R+6, D1+2
>> X	BEGIN+2, BEGIN+4, BEGIN+6, A1+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+27, A1R+29, A1R+31, A1R+36 , B1+1, B1R+3, C1+1, C1R+4, C1R+6, D1+2*
Y	DT, DT+1, DT+2, BEGIN+2, BEGIN+6, A1R+3, A1R+17, A1R+21, A1R+23, A1R+25* , A1R+27, A1R+29, A1R+34!, C1R+4, C1R+6, D1+2*

Customize PDF page

Package: IHS Generic Interface System

Routine: INXHR08

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: