©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
INHMS1 ;DJL; 18 Jun 99 13:51;Interface - Message Search
Source file <INHMS1.m>
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | INMSPAT+35 |
| ^INTHU - [#4001] | INMSPAT+31, INMSPAT+32 |
| Name | Line Occurrences |
|---|---|
| $$INLSRCH | INMSRCH+21 |
| MSGPACK | INLSRCH+18, INLSRCH+31 |
| >> | 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* |