RAHLBMS ;HIRMFO/REL,GJC-Bridge, MedSpeak compatible to HL7 v1.6 ;11/18/97 12:12
Source file <RAHLBMS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; Build the ^TMP("RARPT-REC" global when we receive the
; message from HL7. |
|
| PID | ; Pick data off the 'PID' segment.
|
|
| OBR | ; Pick data off the 'OBR' segment.
|
|
| OBX | ; Pick data off the 'OBX' segments
|
|
| XIT | ; Clean up environment, quit
|
|
| XIT1 | ||
| RPT | ; Save off Report Text data.
|
|
| PAR | ; Build text paragraph
|
|
| P1 | ||
| P2 | ; Set node
|
|
| GENACK | ; Compile the 'ACK' segment, generate the 'ACK' message.
|
|
| VFIER | ; Check if the RAVERF string is a partial match to an entry in file
; 200. If if is, check to see that is a partial match to only ONE ; active provider entry in file 200. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("RARPT-HL7" | EN1+3!, EN1+7*, EN1+8, OBR+1, OBX+1, XIT1+1!, RPT+3 |
| ^TMP("RARPT-REC" | EN1+4!, EN1+5*, EN1+6*, PID+4*, PID+7*, PID+12*, OBR+6*, OBR+7*, OBR+8*, OBR+13* , OBR+27*, XIT+3, XIT1!, P2+2* |
| ^VA(200 - [#200] | OBR+18, OBR+22, VFIER+7, VFIER+11, VFIER+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | EN1+8*, OBR+1*, OBR+10, OBR+14, OBX+1*, XIT1+2!, RPT+3 |
| DT | VFIER+13 |
| >> HL | XIT+1 |
| >> HL("ECH" | PID+3, PID+4, OBR+6, OBR+7, OBR+8 |
| >> HL("EID" | GENACK+2 |
| >> HL("EIDS" | GENACK+2 |
| >> HL("ESIG" | PID+12 |
| >> HL("FS" | PID+1, PID+2, PID+3, PID+4, PID+6, PID+7, OBR+1, OBR+2, OBR+3, OBR+4 , OBR+5, OBR+10, OBR+14, OBX+1, OBX+2, OBX+3, OBX+4, RPT+2, GENACK+1 |
| >> HL("MID" | EN1+2, GENACK+1, GENACK+2 |
| >> HLA("HLA" | GENACK+1* |
| >> HLARYTYP | GENACK+2*, GENACK+3 |
| >> HLEID | GENACK+2*, GENACK+3 |
| >> HLEIDS | GENACK+2*, GENACK+3 |
| >> HLFORMAT | GENACK+2*, GENACK+3 |
| >> HLMTIENS | GENACK+3 |
| >> HLNEXT | EN1+7 |
| >> HLNODE | EN1+7 |
| >> HLNODE( | EN1+7 |
| >> HLQUIT | EN1+7 |
| >> HLRESLTA | GENACK+2* |
| >> HLRESTLA | GENACK+3 |
| >> I | EN1+7* |
| >> J | EN1+7*, RPT+3* |
| >> L | RPT+4*, P1+1*, P1+2, P2+2 |
| LIN | XIT1+2!, RPT+1*, RPT+4, PAR+1*, P1, P1+1, P1+2*, P2+2 |
| >> OBXTYP | OBX+4*, OBX+5, RPT+1, P2+1, P2+2 |
| OBXTYPE | XIT1+2! |
| RADATE | XIT1+2! |
| RADTCN | OBR+5~*, OBR+6, OBR+7, OBR+8, XIT1+2! |
| RAERR | EN1+2!, PID+10*, OBR+2*, OBR+11*, OBR+12*, OBR+15*, OBR+23*, OBR+25, OBX+1, OBX+3* , OBX+5*, XIT+2, XIT+3, XIT1+2!, GENACK+1, VFIER+3*, VFIER+19*, VFIER+20*, VFIER+21* |
| RAESIG | XIT1+2! |
| RAHL70 | OBR+10!, OBR+14! |
| RAHLD | OBR+10*, OBR+11, OBR+12, OBR+13, OBR+14*, OBR+15, OBR+16, XIT1+2! |
| RANODE | XIT1+2!, RPT+1*, P2+2 |
| RARCNT | XIT1+2! |
| RARCNT( | P2+1*, P2+2 |
| RASUB | EN1+2*, EN1+4, EN1+5, EN1+6, PID+4, PID+7, PID+12, OBR+6, OBR+7, OBR+8 , OBR+13, OBR+27, XIT1+3!, P2+2 |
| RAVCNT | VFIER+4!, VFIER+6*, VFIER+7, VFIER+11, VFIER+13*, VFIER+14, VFIER+19, VFIER+20, VFIER+22! |
| RAVERF | OBR+16*, OBR+18, OBR+22*, OBR+23, OBR+27, XIT1+3!, VFIER+3, VFIER+5, VFIER+6, VFIER+7 , VFIER+21* |
| RAVIEN | VFIER+4!, VFIER+10*, VFIER+11*, VFIER+12, VFIER+14, VFIER+22! |
| RAVIEN( | VFIER+14* |
| RAVIEN(1 | VFIER+21 |
| RAVLGTH | VFIER+4!, VFIER+5*, VFIER+7, VFIER+22! |
| RAVPS | VFIER+4!, VFIER+12*, VFIER+13, VFIER+22! |
| >> RAVS1 | VFIER+6*, VFIER+7*, VFIER+11 |
| SEGMNT | EN1+8*, PID+1, PID+2*, PID+3, PID+4, PID+6, PID+7, OBR+1!*, OBR+2, OBR+3* , OBR+4, OBR+5, OBR+10, OBR+14, OBX+1!*, OBX+2*, OBX+3, OBX+4, XIT1+3!, RPT+2 |
| >> X | RPT+2*, RPT+3*, RPT+4, PAR+1 |
| X1 | XIT1+2!, RPT+3* |
