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 |