RAHLTCPX ;HIRMFO/RTK,RVD,GJC - Rad/Nuc Med HL7 TCP/IP Bridge;02/11/08
Source file <RAHLTCPX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PV1 | ;Ignored at this time.
|
|
| ERR | ;
|
|
| PROCESS | ; -- pull message text
|
|
| 112 | ;
|
|
| PID | ; Pick data off the 'PID' segment.
|
|
| OBX3 | ;set the values for OBX-3.1 & OBX-3.2
|
|
| XIT1 | ||
| EN1 | ; Main entry point; Build the ^TMP("RARPT-REC" global
|
|
| INIT | ; -- initialize
|
|
| XIT | ;
|
|
| DEESC(RASTR) | ;Replace escape sequences with their field separator and escape character
|
|
| OBX | ; Pick data off the 'OBX' segments
|
|
| MSH | ;
|
|
| GENACK | ; Compile the 'ACK' segment, generate the 'ACK' message.
|
|
| OBR | ; Pick data off the 'OBR' segment.
|
|
| ORC | ; Pick data off the 'ORC' segment
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("SSN" | PID+16 |
| ^RADPT("ADC" | OBR+17, OBR+18 |
| ^RADPT("ADC1" | OBR+20, OBR+21 |
| ^TMP( | OBR+8!*, OBR+14*, OBR+24*, OBR+25*, OBR+31*, OBR+39*, OBR+40*, OBR+48*, OBR+49*, OBR+50* , OBR+56*, OBR+59, OBR+60*, 112+1!*, OBX+35*, XIT+3, XIT+4!, XIT1+1! |
| ^TMP("RARPT-REC" | INIT+3!, INIT+4*, INIT+5*, INIT+6*, PID+19*, PID+22*, OBR+8, OBX+34*, XIT+2, XIT+4!* , XIT1! |
| ^TMP("RARPT-REC-" | 112+1! |
| ^XUSEC("RA VERIFY" | OBR+35 |
| Name | Line Occurrences |
|---|---|
| $$DEESC | OBX+29 |
| 112 | OBR+32 |
| @( | PROCESS+7 |
| ERR | XIT+1, XIT+2, XIT+5 |
| GENACK | ERR+5 |
| INIT | EN1+5 |
| PROCESS | EN1+5 |
| XIT | EN1+5, OBR+26, OBR+27 |
| XIT1 | XIT+1, XIT+2, XIT+5 |
| Name | Field # of Occurrence |
|---|---|
| ^("RAWHOCHANGE" | OBR+40* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | EN1+2~, PROCESS+6!, OBR+10~ |
| ARR(1 | PROCESS+6* |
| CNT | 112+3~ |
| >> HL("DTM" | INIT+9 |
| >> HL("ECH" | INIT+11, INIT+12, INIT+13, INIT+14 |
| >> HL("EID" | GENACK+10 |
| >> HL("EIDS" | GENACK+10 |
| >> HL("ESIG" | INIT+6 |
| >> HL("ETN" | INIT+7 |
| >> HL("FS" | INIT+10, GENACK+9 |
| >> HL("MID" | INIT+2, GENACK+9 |
| >> HL("MTN" | INIT+7 |
| >> HL("SAN" | INIT+5, INIT+7, GENACK+4, GENACK+5, GENACK+13 |
| >> HL("VER" | INIT+7 |
| >> HLA("HLA" | GENACK+9* |
| HLARYTYP | GENACK+2~, GENACK+10*, GENACK+11 |
| HLCS | EN1+2~, INIT+11*, OBR+14, OBR+54, OBX+15, OBX+18, OBX+21, OBX+24, OBX+25 |
| HLDTM | EN1+2~, INIT+9*, ERR+4 |
| >> HLECH | INIT+14*, DEESC+19, DEESC+20, DEESC+21, DEESC+22 |
| >> HLEID | GENACK+10*, GENACK+11 |
| >> HLEIDS | GENACK+10*, GENACK+11 |
| HLFORMAT | GENACK+2~, GENACK+10*, GENACK+11 |
| HLFS | EN1+2~, INIT+10*, PROCESS+4, PROCESS+5, PROCESS+7, DEESC+18 |
| >> HLMTIENS | GENACK+11 |
| >> HLNEXT | PROCESS+2 |
| >> HLNODE | PROCESS+3*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7 |
| >> HLNODE( | PROCESS+3*! |
| >> HLNODE(1 | PROCESS+3! |
| >> HLQUIT | PROCESS+2 |
| >> HLREP | INIT+13*, OBR+44 |
| HLRESLT | GENACK+11! |
| HLSCS | EN1+2~, INIT+12* |
| I | OBR+44*, OBR+49, OBR+50, OBR+59*, XIT+5~ |
| >> J | PROCESS+3* |
| MSA1 | EN1+2~, GENACK+3*, GENACK+5*, GENACK+9 |
| PAR | EN1+2~, PROCESS+6! |
| PAR(2 | ORC+10, ORC+11 |
| PAR(20 | PID+22 |
| PAR(26 | OBR+29, OBR+30, OBR+31, OBR+34, OBR+55 |
| PAR(3 | PID+17 |
| PAR(33 | OBR+34 |
| PAR(34 | OBR+42, OBR+44 |
| PAR(36 | OBR+54 |
| PAR(4 | PID+16, OBR+13, OBR+14, OBX+14, OBX+15, OBX+18, OBX+21 |
| PAR(6 | OBX+27 |
| RACKYES | EN1+4~, INIT+2*, XIT+2*, XIT+5*, ERR+3*, GENACK+1 |
| RACN | 112+3~ |
| >> RACNI | OBR+18*, OBR+21*, OBR+23, OBR+25, OBR+27, 112+1, 112+4 |
| RACNPPP | EN1+4~, INIT+2*, ORC+11*, OBR+59, 112+1*, OBX+35, XIT+2, XIT+3, XIT+5, XIT1+1 |
| RACSESC | DEESC+13~, DEESC+14*, DEESC+19 |
| >> RADFN | PID+16*, PID+17*, PID+18, PID+19, OBR+17, OBR+18, OBR+20, OBR+21 |
| >> RADTI | OBR+17*, OBR+18, OBR+20*, OBR+21, OBR+22, OBR+24, OBR+26, 112+1, 112+2, 112+4 |
| RAERR | EN1+3~, INIT+2!, PROCESS+9*, PROCESS+10*, PROCESS+11*, PID+18*, OBR+26*, OBR+27*, OBR+29*, OBR+30* , OBR+34*, OBR+35*, OBR+37*, OBR+38*, OBR+55*, OBX+14*, OBX+15*, OBX+20*, OBX+25*, ERR+2 , GENACK+5, GENACK+9 |
| >> RAERRCHK | XIT+1, XIT+2, XIT+5, ERR+1*, ERR+3* |
| RAESESC | DEESC+13~, DEESC+14*, DEESC+21 |
| RAESIG | EN1+3~ |
| RAEXIT | EN1+2~, PROCESS+2, PROCESS+8, PID+18*, OBR+29*, OBR+30*, OBR+34*, OBR+35*, OBR+37*, OBR+38* , OBR+55*, OBX+14*, OBX+15*, OBX+20*, ERR+3* |
| RAFSESC | DEESC+13~, DEESC+14*, DEESC+18 |
| RAHLTCPB | EN1+3~, INIT+2* |
| RAI | EN1+2~, OBR+10~, OBX+18*, OBX+24*, OBX+35*, XIT+3*, XIT+5, XIT1+1* |
| >> RALONGCN | OBR+14*, OBR+15, OBR+16, OBR+17, OBR+18, OBR+19, OBR+20, OBR+21 |
| RANODE | EN1+3~, OBX+27*, OBX+34, OBX+35 |
| RANOSEND | EN1+3~, INIT+7* |
| RAOBX3 | OBX+13*, OBX+15, OBX+18, OBX+36! |
| RAOBX3( | OBX+18* |
| RAOBX3(1 | OBX+27, OBX+28, OBX+33, OBX+34, OBX+35 |
| RAOBX3(3 | OBX+20 |
| RAPRSET | EN1+4~ |
| RAPRSET( | 112+1!, 112+2, 112+4*! |
| RAPRTSET | 112+3~ |
| RARCNT | EN1+2~ |
| RARCNT( | OBX+28*, OBX+34, OBX+35 |
| RARE33 | EN1+4~, OBR+44*, OBR+45, OBR+48, OBR+49, OBR+50 |
| RARR | OBR+10~, OBR+44* |
| RARRR | EN1+4~, INIT+2*, ORC+10*, ORC+11*, OBR+8, OBR+9*, OBR+14, OBR+24, OBR+25, OBR+31 , OBR+32, OBR+39, OBR+40, OBR+48, OBR+49, OBR+50, OBR+56, OBR+59, OBR+60, 112+1 , OBX+35*, XIT+3*, XIT+4, XIT1+1* |
| RARSDNT | OBR+10~, OBR+48*, OBR+56 |
| RARSESC | DEESC+13~, DEESC+14*, DEESC+20 |
| RASCESC | DEESC+13~, DEESC+14*, DEESC+22 |
| RASEG | EN1+3~ |
| RASEG("OBR" | PROCESS+10, OBR+7* |
| RASEG("OBX" | PROCESS+11, OBX+14* |
| RASEG("ORC" | ORC+10* |
| RASEG("PID" | PROCESS+9, PID+23* |
| >> RASSN | PID+22* |
| >> RASSNVAL | PID+16* |
| >> RAST32 | OBR+34* |
| RASTR | OBX+21*, OBX+24*, OBX+25, OBX+36!, DEESC~, DEESC+18*, DEESC+19*, DEESC+20*, DEESC+21*, DEESC+22* , DEESC+24 |
| RASTR(0 | OBX+21*, OBX+25 |
| RASTRE | EN1+4~, OBR+37, OBR+38, OBR+45, OBR+46, OBR+48, OBR+49, OBR+50 |
| RASUB | EN1+3~, INIT+2*, INIT+3, INIT+4, INIT+5, INIT+6, PID+19, PID+22, OBR+14, OBR+24 , OBR+25, OBR+31, OBR+39, OBR+40, OBR+48, OBR+49, OBR+50, OBR+56, OBR+59, OBR+60 , 112+3~, OBX+34, OBX+35, ERR+4, GENACK+13 |
| RAT35 | EN1+4~, OBR+55* |
| >> RATELE | GENACK+5 |
| RATRANSC | OBR+10~, OBR+54*, OBR+55, OBR+56 |
| RAVERF | EN1+3~, OBR+10~, OBR+34*, OBR+35, OBR+36, OBR+39, OBR+40, OBR+56 |
| RAX | EN1+2~, OBR+10~, OBX+13~, OBX+24*, OBX+27*, OBX+29*, OBX+33*, OBX+34, OBX+35 |
| RAX1 | OBR+10~ |
| RAX2 | OBR+10~ |
| RAXX | EN1+2~, OBR+59!*, OBR+60, 112+4! |
| RAXXX | OBR+60~* |
| RAY | EN1+2~ |
| RAYES | DEESC+15~, DEESC+16, DEESC+17*, DEESC+18*, DEESC+19*, DEESC+20*, DEESC+21*, DEESC+22* |
| RESULT | GENACK+2~, GENACK+11, GENACK+12, GENACK+13 |
| U | PROCESS+5, PID+16, PID+17, OBR+37, GENACK+13 |
| Name | Field # of Occurrence |
|---|---|
| $T(OBX3+RAI | OBX+24 |