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 |