Routine: INHMG1

Package	Total	Call Graph
IHS Generic Interface System	3	(HEADER,INDXS)^INHMG INFIELD^INHMG2 $$QS^INHUTIL

Package	Total	Caller Graph
IHS Generic Interface System	6	INHMG INHPSA INHPSA2 INHPSA4 INHPSAM INXHR08

Entry Points

Name	Comments	DBIA/ICR reference
INSEG(INCOMSEG,D0,D1)	; get segment details and call INHMG2 for processing
GTRANS(D0,INRES)	; get the list of transacions for a given message
N
GTRNDATA(TRNIEN,INOSTAT,NAME,ACTIVE,DEST)	;get some field values for
INBUILD(INCOMSEG)	; Entry point
T
WTRANS(INRES,XHDR,INOSTAT)	;write the transactions
RPTRANS(D0,XHDR,INOSTAT)	;compile and display transaction types

External References

Name	Field # of Occurrence
HEADER^INHMG	T
INDXS^INHMG	INBUILD+16
INFIELD^INHMG2	INSEG+23
$$QS^INHUTIL	INBUILD+67

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?0 Line Location: INBUILD+17
Function Call: WRITE	Prompt: "*** Message ***************************************************************" Line Location: INBUILD+17
Function Call: WRITE	Prompt: $E($P(X,U),1,45) Line Location: INBUILD+19
Function Call: WRITE	Prompt: ?66,"Inactive:",?76 Line Location: INBUILD+20
Function Call: WRITE	Prompt: Y Line Location: INBUILD+20
Function Call: WRITE	Prompt: ?4,X Line Location: INBUILD+22
Function Call: WRITE	Prompt: ?5,"Standard:" Line Location: INBUILD+25
Function Call: WRITE	Prompt: ?15,$E($P(DXN(0),U,12),1,20) Line Location: INBUILD+26
Function Call: WRITE	Prompt: ?3,"Event Type:" Line Location: INBUILD+27
Function Call: WRITE	Prompt: ?15,$E($P(DXN(0),U,2),1,20) Line Location: INBUILD+28
Function Call: WRITE	Prompt: ?41,"Message Type:",?56,$E($P(DXN(0),U,6),1,3) Line Location: INBUILD+30
Function Call: WRITE	Prompt: ?1,"Send Applic.:" Line Location: INBUILD+31
Function Call: WRITE	Prompt: ?15,$E($P(X,U),1,25) Line Location: INBUILD+32
Function Call: WRITE	Prompt: ?41,"Rec. Applic.:",?55,$E($P(X,U,3),1,25) Line Location: INBUILD+33
Function Call: WRITE	Prompt: ?5,"Facility:",?15,$E($P(X,U,2),1,25) Line Location: INBUILD+34
Function Call: WRITE	Prompt: ?45,"Facility:",?55,$E($P(X,U,4),1,25) Line Location: INBUILD+35
Function Call: WRITE	Prompt: "Processing ID:" Line Location: INBUILD+36
Function Call: WRITE	Prompt: ?15 Line Location: INBUILD+37
Function Call: WRITE	Prompt: Y Line Location: INBUILD+37
Function Call: WRITE	Prompt: ?28,"HL7 Version:",?41,$E($P(X,U,4),1,5) Line Location: INBUILD+38
Function Call: WRITE	Prompt: ?48,"Lookup Parameter:",?66 Line Location: INBUILD+39
Function Call: WRITE	Prompt: Y Line Location: INBUILD+39
Function Call: WRITE	Prompt: ?3,"Accept Ack:",?15 Line Location: INBUILD+40
Function Call: WRITE	Prompt: Y Line Location: INBUILD+40
Function Call: WRITE	Prompt: ?49,"Application Ack:",?66 Line Location: INBUILD+41
Function Call: WRITE	Prompt: Y Line Location: INBUILD+41
Function Call: WRITE	Prompt: ?4,"Root File:",?15 Line Location: INBUILD+42
Function Call: WRITE	Prompt: $E(Y,1,40) Line Location: INBUILD+42
Function Call: WRITE	Prompt: ?57,"Audited:",?66 Line Location: INBUILD+43
Function Call: WRITE	Prompt: Y Line Location: INBUILD+43
Function Call: WRITE	Prompt: "Routine for Lookup/Store:" Line Location: INBUILD+44
Function Call: WRITE	Prompt: ?26,$E($E(X,1,200),1,54) Line Location: INBUILD+45
Function Call: WRITE	Prompt: "Transaction Types:" Line Location: INBUILD+46
Function Call: WRITE	Prompt: "MUMPS Code for Lookup:" Line Location: INBUILD+49
Function Call: WRITE	Prompt: ?4,X Line Location: INBUILD+51
Function Call: WRITE	Prompt: "Outgoing Initial MUMPS Code:" Line Location: INBUILD+53
Function Call: WRITE	Prompt: ?4,X Line Location: INBUILD+55
Function Call: WRITE	Prompt: "Generated Scripts -" Line Location: INBUILD+57
Function Call: WRITE	Prompt: ?3,"Input:" Line Location: INBUILD+58
Function Call: WRITE	Prompt: ?10 Line Location: INBUILD+59
Function Call: WRITE	Prompt: $E(Y,1,60) Line Location: INBUILD+59
Function Call: WRITE	Prompt: ?2,"Output:" Line Location: INBUILD+60
Function Call: WRITE	Prompt: ?10 Line Location: INBUILD+61
Function Call: WRITE	Prompt: $E(Y,1,60) Line Location: INBUILD+61
Function Call: WRITE	Prompt: ! Line Location: N+0
Function Call: WRITE	Prompt: ?22,"Destination: ",DEST Line Location: WTRANS+20
Function Call: WRITE	Prompt: ?22,"Destination: ",DEST Line Location: WTRANS+26

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	INBUILD+42, INSEG+14
^INRHD - [#4005]	GTRNDATA+12
^INRHD("B"	GTRANS+11
^INRHR(	GTRANS+25
^INRHR("AC"	GTRANS+24
^INRHS - [#4006]	INBUILD+59, INBUILD+61
^INRHT - [#4000]	GTRANS+18, GTRNDATA+9
^INTHL7M - [#4011]	INBUILD+19, INBUILD+21, INBUILD+22, INBUILD+26, INBUILD+32, INBUILD+45, INBUILD+50, INBUILD+51, INBUILD+54, INBUILD+55 , INBUILD+59, INBUILD+65, INSEG+1, INSEG+3, INSEG+7, INSEG+22, GTRANS+15, GTRANS+16
^INTHL7S - [#4010]	INSEG+3, INSEG+7, INSEG+13

Label References

Name	Line Occurrences
GTRANS	RPTRANS+12
GTRNDATA	WTRANS+17, WTRANS+23
INSEG	INBUILD+67
N	INBUILD+17, INBUILD+19, INBUILD+22, INBUILD+25, INBUILD+27, INBUILD+31, INBUILD+34, INBUILD+36, INBUILD+40, INBUILD+42 , INBUILD+44, INBUILD+46, INBUILD+49, INBUILD+51, INBUILD+53, INBUILD+55, INBUILD+57, INBUILD+58, INBUILD+59, INBUILD+60
RPTRANS	INBUILD+47
T	INBUILD+21, INBUILD+25, INBUILD+50, INBUILD+54, INBUILD+65
WTRANS	RPTRANS+13

Naked Globals

Name	Field # of Occurrence
^(	INBUILD+21, INBUILD+50, INBUILD+54, INBUILD+65
^(0	INBUILD+42, INBUILD+59, INBUILD+61, INSEG+7, INSEG+13, INSEG+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	WTRANS+14~, WTRANS+17, WTRANS+19, WTRANS+23, WTRANS+25, GTRNDATA~, GTRNDATA+11*
D0	INBUILD+19, INBUILD+21, INBUILD+22, INBUILD+26, INBUILD+32, INBUILD+45, INBUILD+47, INBUILD+50, INBUILD+51, INBUILD+54 , INBUILD+55, INBUILD+59, INBUILD+65, INBUILD+67, INSEG~, INSEG+1, INSEG+3, INSEG+7, INSEG+22, INSEG+23 , RPTRANS~, RPTRANS+12, GTRANS~, GTRANS+15, GTRANS+16, WTRANS+14~, WTRANS+15, WTRANS+16, WTRANS+17, WTRANS+22
D1	INBUILD+21, INBUILD+22, INBUILD+50, INBUILD+51, INBUILD+54, INBUILD+55, INBUILD+65, INBUILD+67, INSEG~, INSEG+1 , INSEG+3, INSEG+7, INSEG+8, INSEG+22, INSEG+23, GTRANS+10~, GTRANS+14, GTRANS+15, GTRANS+16, WTRANS+14~ , WTRANS+21, WTRANS+22, WTRANS+23
DEST	WTRANS+14~, WTRANS+17, WTRANS+20, WTRANS+23, WTRANS+26, GTRNDATA~, GTRNDATA+12*
DIOUT	INBUILD+15!, INBUILD+54
DIP	INSEG+8~!
DIWF	INBUILD+68!
>> DUOUT	INBUILD+19, INBUILD+21, INBUILD+22, INBUILD+23, INBUILD+25, INBUILD+27, INBUILD+31, INBUILD+34, INBUILD+36, INBUILD+40 , INBUILD+42, INBUILD+44, INBUILD+46, INBUILD+49, INBUILD+50, INBUILD+51, INBUILD+52, INBUILD+53, INBUILD+55, INBUILD+56 , INBUILD+57, INBUILD+58, INBUILD+60, INBUILD+65, WTRANS+16, WTRANS+22
DXN	INBUILD+68!
DXN("S"	INBUILD+59*
DXN(0	INBUILD+26, INBUILD+28, INBUILD+30, INBUILD+37, INSEG+7, INSEG+9
>> DXS	INBUILD+16
>> DXS(18	INBUILD+20, INBUILD+43, INSEG+10, INSEG+11, INSEG+12, INSEG+20
>> DXS(19	INBUILD+37
>> DXS(2	INSEG+8
>> DXS(20	INBUILD+39, INSEG+19
>> DXS(21	INBUILD+40
>> DXS(22	INBUILD+41
>> I(1	INSEG+8
>> INA	INSEG+3*
INCOMSEG	INBUILD~, INBUILD+67, INSEG~, INSEG+3, INSEG+23
INFD	INSEG+5!
>> INI	INBUILD+67*
INOSTAT	RPTRANS~, RPTRANS+13, WTRANS~, WTRANS+17, WTRANS+23, GTRNDATA~, GTRNDATA+11
INRES	RPTRANS+11~, RPTRANS+12, RPTRANS+13, GTRANS~, WTRANS~
INRES(	GTRANS+19, GTRANS+26, WTRANS+16, WTRANS+22
INSAR	INBUILD+63!
INSAR(	INBUILD+65*
INSG	INSEG+5!, INSEG+23
INSG("FL"	INSEG+14*
INSG("IF"	INSEG+16*
INSG("IV"	INSEG+17*
INSG("LP"	INSEG+19*
INSG("MF"	INSEG+15*
INSG("ML"	INSEG+20*
INSG("NM"	INSEG+7, INSEG+8, INSEG+9, INSEG+10, INSEG+11, INSEG+12
INSG("PS"	INSEG+13*
INSG("RT"	INSEG+22*
INSG("TP"	INSEG+21*
INSG("UD"	INSEG+18*
>> INX	INBUILD+65, INSEG+3, INSEG+7
>> INY	INSEG+3*
>> INZ	INSEG+3*
IOSL	T
MRPIEN	GTRANS+10~, GTRANS+23, GTRANS+24, GTRANS+25
NAME	WTRANS+14~, WTRANS+17, WTRANS+19, WTRANS+23, WTRANS+25, GTRNDATA~, GTRNDATA+10*
NODE	GTRNDATA+8~, GTRNDATA+9*, GTRNDATA+10, GTRNDATA+11, GTRNDATA+12
REPDEST	GTRANS+10~, GTRANS+11*, GTRANS+20
REPIEN	GTRANS+10~, GTRANS+25*, GTRANS+26
TRNIEN	GTRANS+10~, GTRANS+16*, GTRANS+17, GTRANS+18, GTRANS+19, GTRANS+24, GTRANS+26, GTRNDATA~, GTRNDATA+9
TRNODE	GTRANS+10~, GTRANS+18*, GTRANS+20
U	INBUILD+19, INBUILD+20, INBUILD+26, INBUILD+28, INBUILD+30, INBUILD+32, INBUILD+33, INBUILD+34, INBUILD+35, INBUILD+37 , INBUILD+38, INBUILD+39, INBUILD+40, INBUILD+41, INBUILD+42, INBUILD+43, INBUILD+59, INBUILD+61, INBUILD+65, INSEG+3 , INSEG+7, INSEG+9, INSEG+10, INSEG+11, INSEG+12, INSEG+13, INSEG+14, INSEG+15, INSEG+16, INSEG+17 , INSEG+18, INSEG+19, INSEG+20, INSEG+21, GTRANS+20, GTRANS+25, GTRNDATA+10, GTRNDATA+11, GTRNDATA+12
>> X	INBUILD+19, INBUILD+20, INBUILD+22, INBUILD+32, INBUILD+33, INBUILD+34, INBUILD+35, INBUILD+37, INBUILD+38, INBUILD+39 , INBUILD+40, INBUILD+41, INBUILD+42, INBUILD+43, INBUILD+45, INBUILD+51, INBUILD+55, INBUILD+59, INBUILD+61, INSEG+7* , INSEG+8, INSEG+9, INSEG+10, INSEG+11, INSEG+12, INSEG+13, INSEG+14, INSEG+15, INSEG+16, INSEG+17 , INSEG+18, INSEG+19, INSEG+20, INSEG+21, INSEG+22
XHDR	RPTRANS~, RPTRANS+13, WTRANS~, WTRANS+18, WTRANS+20, WTRANS+24, WTRANS+26
Y	INBUILD+20, INBUILD+37, INBUILD+39, INBUILD+40, INBUILD+41, INBUILD+42, INBUILD+43, INBUILD+59, INBUILD+61, INBUILD+68! , INSEG+7, INSEG+9, INSEG+10, INSEG+11, INSEG+12, INSEG+13, INSEG+14, INSEG+15, INSEG+19, INSEG+20* , INSEG+21*

Customize PDF page

Package: IHS Generic Interface System

Routine: INHMG1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: