Routine: INHES1

Package	Total	Call Graph
IHS Generic Interface System	3	$$INERSRCH^INHERR1 CODETBL^INHERR3 $$INMSPAT^INHMS1
VA Fileman	2	DD^%DT Y^DIQ

Package

Total

Call Graph

IHS Generic Interface System

$$INERSRCH^INHERR1 CODETBL^INHERR3 $$INMSPAT^INHMS1

VA Fileman

DD^%DT Y^DIQ

Package	Total	Caller Graph
IHS Generic Interface System	1	INHES

Package

Total

Caller Graph

IHS Generic Interface System

INHES

Entry Points

Name	Comments	DBIA/ICR reference
CRIHDR(INSRCH)	; Display the criteria header ; Reuse code from the INHERR
LIST(INSRCH,DWLRF,INL)	; Build the error array ; ; Module Name: LIST ( Build the list of matching errors )
MSGTEST(INEIEN,INLIST,INSRCH,INFNDCT)	; Add matching error to array ; ; Description: MSGTEST (Interface Error Match Criteria Test). Tests ; the error for matches to values passed in INSRCH ; array and save the IEN to the INLIST array.

Name	Field # of Occurrence
DD^%DT	CRIHDR+28, CRIHDR+30
Y^DIQ	CRIHDR+13, CRIHDR+15, CRIHDR+17, CRIHDR+34, CRIHDR+40
$$INERSRCH^INHERR1	MSGTEST+22
CODETBL^INHERR3	CRIHDR+19, CRIHDR+24, CRIHDR+36
$$INMSPAT^INHMS1	MSGTEST+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DESTINATION",?30," : ",Y Line Location: CRIHDR+13
Function Call: WRITE	Prompt: !,"ORIGINAL TRANSACTION TYPE",?30," : ",Y Line Location: CRIHDR+15
Function Call: WRITE	Prompt: !,"ERROR LOCATION",?30," : ",Y Line Location: CRIHDR+17
Function Call: WRITE	Prompt: !,"ERROR RESOLUTION STATUS",?30," : ",ERSTAT(INSRCH("INERSTAT")) Line Location: CRIHDR+19
Function Call: WRITE	Prompt: ?34,$G(INSRCH("INTEXT",INT)),! Line Location: CRIHDR+23
Function Call: WRITE	Prompt: !,"MESSAGE START DATE",?30," : ",Y Line Location: CRIHDR+28
Function Call: WRITE	Prompt: !,"MESSAGE END DATE",?30," : ",Y Line Location: CRIHDR+30
Function Call: WRITE	Prompt: !,"MESSAGE ID",?30," : ",$G(INSRCH("INID")) Line Location: CRIHDR+32
Function Call: WRITE	Prompt: !,"DIRECTION",?30," : ",Y Line Location: CRIHDR+34
Function Call: WRITE	Prompt: !,"STATUS",?30," : ",STAT(INSRCH("INSTAT")) Line Location: CRIHDR+36
Function Call: WRITE	Prompt: !,"SOURCE",?30," : ",$G(INSRCH("INSOURCE")) Line Location: CRIHDR+38
Function Call: WRITE	Prompt: !,"PATIENT",?30," : ",Y Line Location: CRIHDR+40
Function Call: WRITE	Prompt: !,"EXTRACT TEXT LENGTH",?30," : ",INSRCH("TEXTLEN") Line Location: CRIHDR+41
Function Call: WRITE	Prompt: !?5,"NOTE : ACTUAL TEXT LENGTH MUST NOT EXCEED 120" Condition for execution: INSRCH("TEXTLEN")>120 Line Location: CRIHDR+41
Function Call: WRITE	Prompt: ! Line Location: CRIHDR+42

Name	Line Occurrences (* Changed, ! Killed)
^DD(4001.1	CRIHDR+13, CRIHDR+15, CRIHDR+17, CRIHDR+34, CRIHDR+40
^INTHER - [#4003]	MSGTEST+15
^INTHER("B"	LIST+22, LIST+24
^INTHU - [#4001]	MSGTEST+16

Name	Line Occurrences
MSGTEST	LIST+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	CRIHDR+13, CRIHDR+15, CRIHDR+17, CRIHDR+34, CRIHDR+40*
DWLRF	LIST~, LIST+24
>> ERSTAT(	CRIHDR+19
IND	LIST+15~, LIST+19, LIST+22, LIST+24
INEIEN	MSGTEST~, MSGTEST+15, MSGTEST+22, MSGTEST+35
INFNDCT	LIST+15~, LIST+17, LIST+24, LIST+26, MSGTEST~, MSGTEST+33, MSGTEST+35
INL	LIST~
INLIST	MSGTEST~, MSGTEST+33*, MSGTEST+35
INM	LIST+15~, LIST+24*
INMAXSZ	MSGTEST+14~, MSGTEST+15*, MSGTEST+33
INMIEN	MSGTEST+14~, MSGTEST+16*, MSGTEST+30
>> INRVSRCH	LIST+20*, LIST+22, LIST+24
INSRCH	LIST~, LIST+24, MSGTEST~, MSGTEST+22, CRIHDR~
INSRCH("FOUND"	LIST+26*
INSRCH("INDEST"	MSGTEST+18, CRIHDR+13
INSRCH("INDIR"	MSGTEST+27, CRIHDR+34
INSRCH("INEND"	LIST+19, LIST+22
INSRCH("INERLOC"	MSGTEST+20, CRIHDR+17
INSRCH("INERSTAT"	MSGTEST+21, CRIHDR+19
INSRCH("INID"	MSGTEST+26, CRIHDR+32
INSRCH("INMSGEND"	MSGTEST+25, CRIHDR+30
INSRCH("INMSGSTART"	MSGTEST+24, MSGTEST+25, CRIHDR+28
INSRCH("INORDER"	LIST+18*, LIST+19, LIST+20
INSRCH("INORIG"	MSGTEST+19, CRIHDR+15
INSRCH("INPAT"	MSGTEST+30, CRIHDR+40
INSRCH("INSOURCE"	MSGTEST+29, CRIHDR+38
INSRCH("INSTART"	LIST+19, LIST+22
INSRCH("INSTAT"	MSGTEST+28, CRIHDR+36
INSRCH("INTEXT"	MSGTEST+22, CRIHDR+20, CRIHDR+22, CRIHDR+23
INSRCH("INTYPE"	MSGTEST+22, CRIHDR+25
INSRCH("TEXTLEN"	CRIHDR+41
>> INT	CRIHDR+22*, CRIHDR+23
INTEMPX	MSGTEST+14~, MSGTEST+15*, MSGTEST+16, MSGTEST+18, MSGTEST+19, MSGTEST+20, MSGTEST+21
INTEMPY	MSGTEST+14~, MSGTEST+16, MSGTEST+18, MSGTEST+19, MSGTEST+24, MSGTEST+25, MSGTEST+26, MSGTEST+27, MSGTEST+28, MSGTEST+29 , MSGTEST+33~!
>> MTYPE(	CRIHDR+25
>> STAT(	CRIHDR+36
U	MSGTEST+16, MSGTEST+18, MSGTEST+19, MSGTEST+20, MSGTEST+21, MSGTEST+24, MSGTEST+25, MSGTEST+26, MSGTEST+27, MSGTEST+28 , MSGTEST+29, MSGTEST+33, CRIHDR+13, CRIHDR+15, CRIHDR+17, CRIHDR+34, CRIHDR+40
>> Y	CRIHDR+13, CRIHDR+15, CRIHDR+17, CRIHDR+28, CRIHDR+30, CRIHDR+34, CRIHDR+40*

Customize PDF page

Package: IHS Generic Interface System

Routine: INHES1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: