Routine: INHMS1

Package	Total	Call Graph
IHS Generic Interface System	4	GETLINE^INHOU $$PN^INHUT $$HLPN^INHUT1 ($$INNCPAT,$$MSGSTD)^INHUTC51
Uncategorized	3	CLEAR^DW PRTLIST^DWPR $$CR^UTSRD
Kernel	1	^%ZIS

Package	Total	Caller Graph
IHS Generic Interface System	7	INHERR2 INHES1 INHMS INHMS2 INHOU2 INHUTC51 INHUTC52

Entry Points

Name	Comments	DBIA/ICR reference
INLSRCH(SRCHTEXT,MSGTEXT,INFOUND,INLOGIC)	; Test msg. for text-string ; match(one line) ; MODULE NAME: INLSRCH (Interface Message LINE Search) ; DESCRIPTION: To find a search string in a message which may be a ; continuation line or not. The search line MAY be ; split across multiple lines. ; RETURN= PASS/FAIL (1/0) ; PARAMETERS: ; SRCHTEXT= The array of search string containing less than a 70 char. ; count value and subscript nodes containing the strings ; MSGTEXT= NON-HL7 message text/array typical of those returned by ; GETLINE^INHOU. ; INFOUND= The array used to indicate strings matches found. ; INLOGIC= The flag indicating the type(OR/AND) of logic used with ; matching message data and the search strings. ; CODE BEGINS
MSGPACK(INMSGTXT)	; pack a subscripted array into 250 char./node ; MODULE NAME: MSGPACK (Interface Message Segment Packer) ; DESCRIPTION: Interface message segments can extend beyond ; 250 char. by spanning multiple nodes. These nodes ; are not required to be 250 char. long but string ; searchs are more efficient if larger strings are ; tested. This routine packs an extended message ; segment to the smallest num. of 250 char./node ; possible. Deleting empty nodes in the process. ; RETURN= none ; PARAMETERS: ; INMSGTXT= The array containing the message. ; CODE BEGINS
INMSRCH(INMSTEXT,INMIEN,INMLOGIC)	; Test msg. for text-string match(multi) ; MODULE NAME: INMSRCH (Interface Message MESSAGE Search) ; DESCRIPTION: Search ^INTHU( INMIEN ) message for matching values to ; the search string array: INMSTEXT. ; RETURN= PASS/FAIL (1/0) ; PARAMETERS: ; INMSTEXT= search string array with base node("INTEXT") set to ; subscript count value and subscript nodes containing ; the strings ; INMIEN= The IEN of the message in the ^INTHU message file ; INMLOGIC= The matching logic switch set to 1 or 0 ; 1= ANDing functionality RE:all strings must be found ; in the message ; 0= ORing functionality RE:only one string need match ; CODE BEGINS
EXPAND	;Expand-action logic on List Processor field ; MODULE NAME: EXPAND (Expand-action logic for ^DWL ) ; DESCRIPTION: Expand using INH MESSAGE DISPLAY print ; template. ; RETURN = none ; PARAMETERS = none ; CODE BEGINS
INMSPAT(INIEN,INPAT,INPATNAM)	; Test msg. for a patient match ; MODULE NAME: INMSPAT (Interface Message PATIENT Search) ; DESCRIPTION: Search ^INTHU( INIEN ) message PID segment for matching ; values to the string: INPAT. Using CHCS patient IEN for ; outbound messages and FMP/SSN for inbound messages ; RETURN= PASS/FAIL (1/0) and patient found set in INPATNAM ; PARAMETERS: ; INIEN= The IEN of the message in the ^INTHU message file ; INPAT= The patients internal IEN from the ^DPT file ; INPATNAM= The patient name found in the message ("" if none) ; CODE BEGINS

External References

Name	Field # of Occurrence
^%ZIS	EXPAND+10
CLEAR^DW	EXPAND+9
PRTLIST^DWPR	EXPAND+12
GETLINE^INHOU	INMSPAT+16, INMSPAT+21, INMSRCH+18
$$PN^INHUT	INMSPAT+36
$$HLPN^INHUT1	INMSPAT+37
$$INNCPAT^INHUTC51	INMSPAT+14
$$MSGSTD^INHUTC51	INMSPAT+14
$$CR^UTSRD	EXPAND+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INMSPAT+35
^INTHU - [#4001]	INMSPAT+31, INMSPAT+32

Label References

Name	Line Occurrences
$$INLSRCH	INMSRCH+21
MSGPACK	INLSRCH+18, INLSRCH+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EXPAND+10*
BUF	INLSRCH+16~, INLSRCH+19, INLSRCH+24, INLSRCH+31
DA	EXPAND+7~
DA(	EXPAND+11*
DHD	EXPAND+7~, EXPAND+12*
DIC	EXPAND+7~, EXPAND+12*
DIE	EXPAND+7~
DR	EXPAND+7~, EXPAND+12*
DW	EXPAND+7~
DWCP	EXPAND+7~
>> DWLRF	EXPAND+8, EXPAND+11
I	EXPAND+7~
INBLDCT	INMSPAT+13~, INMSPAT+16*, INMSPAT+21
INBLDTXT	INMSPAT+13~, INMSPAT+16*, INMSPAT+17, INMSPAT+20, INMSPAT+21, INMSPAT+22, INMSPAT+23, INMSPAT+29, INMSPAT+31, INMSPAT+36
INBUFLEN	MSGPACK+13~, MSGPACK+16, MSGPACK+17, MSGPACK+18, MSGPACK+23, MSGPACK+25, MSGPACK+28
INDEL	INMSPAT+13~, INMSPAT+20*, INMSPAT+29, INMSPAT+31, INMSPAT+36
INDPTNAM	INMSPAT+13~, INMSPAT+35*, INMSPAT+36
INDPTSSN	INMSPAT+13~, INMSPAT+35*, INMSPAT+36
INFOUND	INLSRCH~, INLSRCH+19, INLSRCH+20, INLSRCH+24, INLSRCH+27, INLSRCH+33, MSGPACK+13~
INFOUND(	INLSRCH+24*
INIEN	INMSPAT~, INMSPAT+12, INMSPAT+14, INMSPAT+16, INMSPAT+21, INMSPAT+31, INMSPAT+32
INIO	EXPAND+7~, EXPAND+10*, EXPAND+13
INLINE	MSGPACK+13~, MSGPACK+16, MSGPACK+17, MSGPACK+18, MSGPACK+19, MSGPACK+22, MSGPACK+23, MSGPACK+25, MSGPACK+32*
INLOGIC	INLSRCH~, INLSRCH+24, INLSRCH+27
INMCT	INMSRCH+15~, INMSRCH+16*, INMSRCH+18
INMFOUND	INMSRCH+15~, INMSRCH+16, INMSRCH+17, INMSRCH+21, INMSRCH+24*, INMSRCH+25
INMFOUND(	INMSRCH+24
INMIEN	INMSRCH~, INMSRCH+18
INMLINE	INMSRCH+15~, INMSRCH+16*, INMSRCH+18, INMSRCH+19, INMSRCH+21
INMLOGIC	INMSRCH~, INMSRCH+21, INMSRCH+24
INMNODE	INMSRCH+15~, INMSRCH+16*
INMQUIT	INMSRCH+15~, INMSRCH+16, INMSRCH+17, INMSRCH+19
INMSGTXT	MSGPACK~, MSGPACK+16, MSGPACK+17*
INMSGTXT(	MSGPACK+17, MSGPACK+18, MSGPACK+19!, MSGPACK+22, MSGPACK+23, MSGPACK+25, MSGPACK+28*, MSGPACK+31!, MSGPACK+32
INMSGTXT(""	MSGPACK+16
INMSGTXT(0	MSGPACK+15
INMSTEXT	INMSRCH~, INMSRCH+21
INMSTEXT("INTEXT"	INMSRCH+24
INNEXT	MSGPACK+13~, MSGPACK+23*, MSGPACK+25, MSGPACK+28, MSGPACK+31
INNODE	INLSRCH+16~, INLSRCH+24*
INPAT	INMSPAT~, INMSPAT+11*, INMSPAT+31, INMSPAT+35
INPATFND	INMSPAT+13~, INMSPAT+16, INMSPAT+31, INMSPAT+36*, INMSPAT+38
INPATNAM	INMSPAT~, INMSPAT+11, INMSPAT+29, INMSPAT+36, INMSPAT+37*
INPIDFND	INMSPAT+13~, INMSPAT+16, INMSPAT+23, INMSPAT+27
INQUIT	INMSPAT+13~, INMSPAT+20, INMSPAT+22, INMSPAT+23, INLSRCH+16~, INLSRCH+19, INLSRCH+20, INLSRCH+29, MSGPACK+13~, MSGPACK+22
>> INSRCH("INPAT"	INMSPAT+14
INSUBDEL	INMSPAT+13~, INMSPAT+20*, INMSPAT+37
IO	EXPAND+10, EXPAND+13
IOM	EXPAND+10
ION	EXPAND+10
>> IOP	EXPAND+10*
IOSL	EXPAND+10
IOST	EXPAND+10
MSGTEXT	INLSRCH~, INLSRCH+18, INLSRCH+19, INLSRCH+31*
MSGTEXT(""	INLSRCH+29
>> POP	EXPAND+10
SRCHTEXT	INLSRCH~
SRCHTEXT("INTEXT"	INLSRCH+24
U	EXPAND+8, EXPAND+11, INMSPAT+31, INMSPAT+32, INMSPAT+35
X	EXPAND+7~, EXPAND+13, INMSRCH+15~, INMSRCH+24

Customize PDF page

Package: IHS Generic Interface System

Routine: INHMS1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: