PSULRHL2 ;HCIOFO/BH - File real time HL7 messages ; 24 Aug 2005 5:23 PM
Source file <PSULRHL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEMO() | ; Get the demographic data and file a zero node entry in the
; message global |
|
| ERROR(CODE,FAC,MESSAGE) | ; Files any errors found within the processing
|
|
| OBR(STR,IEN) | ; Extracts required OBR fields and files into the global
|
|
| FILE | ||
| WRITE(IEN) | ;--- Find the OBR/OBX segments
|
|
| PARAMS() | ; Get HL7 Parameters and facility # from the MSH segment
|
|
| OBX(STR1,IEN,IEN1) | ; Extracts required OBX fields and files into
; the global |
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | ERROR+20, OBX+31, OBR+9, DEMO+35 |
| Name | Line Occurrences |
|---|---|
| $$DEMO | FILE+36 |
| $$OBR | WRITE+9 |
| $$PARAMS | FILE+34 |
| ERROR | OBX+34, OBR+11, DEMO+27, DEMO+37 |
| OBX | WRITE+17 |
| WRITE | FILE+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | ERROR+9~ |
| CNT | PARAMS+1~, PARAMS+2*, PARAMS+3*, PARAMS+4, PARAMS+6, DEMO+3~, DEMO+5*, DEMO+6*, DEMO+7, DEMO+9 |
| CODE | ERROR~, ERROR+10, ERROR+12, ERROR+14, ERROR+16 |
| DD | OBR+1~, OBR+3*, OBR+4 |
| DFN | DEMO+3~, DEMO+4*, DEMO+24*, DEMO+27, DEMO+31 |
| DT | ERROR+10, ERROR+12, ERROR+14, ERROR+16 |
| END | DEMO+3~, DEMO+11*, DEMO+13, DEMO+15* |
| FAC | FILE+22~, ERROR~, ERROR+10, ERROR+12, ERROR+18, OBX+34, OBR+11, PARAMS+12*, PARAMS+15, DEMO+27 , DEMO+34, DEMO+37 |
| FDA | ERROR+9~, DEMO+3~, DEMO+29! |
| FDA(99999 | ERROR+18*, ERROR+19*, DEMO+31*, DEMO+32*, DEMO+33*, DEMO+34* |
| FDA1 | OBR+1~ |
| FDA1( | OBR+7*, OBR+8* |
| FDA2 | OBX+3~ |
| FDA2( | OBX+23*, OBX+24*, OBX+25*, OBX+26*, OBX+27*, OBX+28*, OBX+29*, OBX+30* |
| HLCS | FILE+22~, OBX+7, OBX+9, OBX+11, OBX+12, OBX+14, OBX+15, PARAMS+10*, PARAMS+12, DEMO+16 , DEMO+17, DEMO+18, DEMO+20, DEMO+21, DEMO+23, DEMO+24 |
| HLCSS | FILE+22~, PARAMS+11*, DEMO+14 |
| HLECH | FILE+22~, PARAMS+9*, PARAMS+10, PARAMS+11 |
| HLFILE | FILE+22~, FILE+23!, FILE+29*, FILE+31, FILE+40!, WRITE+4, WRITE+5, WRITE+7, WRITE+12, WRITE+13 , WRITE+15, PARAMS+3, PARAMS+4, PARAMS+6, DEMO+6, DEMO+7, DEMO+9 |
| HLFILE( | FILE+26*, FILE+27* |
| HLFS | FILE+22~, OBX+5, OBX+17, OBX+19, OBX+20, OBR+2, OBR+5, PARAMS+8*, PARAMS+9, PARAMS+12 , PARAMS+13, DEMO+11 |
| >> HLNEXT | FILE+25 |
| >> HLNODE | FILE+26 |
| >> HLNODE( | FILE+27 |
| >> HLQUIT | FILE+25 |
| I | FILE+22~, WRITE+2~, WRITE+3*, WRITE+4*, WRITE+5, WRITE+7, WRITE+12*, WRITE+13, WRITE+15, WRITE+18* , DEMO+3~, DEMO+13*, DEMO+14 |
| I2 | FILE+22~, FILE+25*, FILE+26, FILE+27 |
| ICN | DEMO+3~, DEMO+4*, DEMO+18*, DEMO+32 |
| ID | FILE+22~, OBX+34, OBR+11, PARAMS+13*, DEMO+27, DEMO+37 |
| IDSTR | DEMO+3~, DEMO+11*, DEMO+14 |
| IEN | FILE+22~, FILE+36*, FILE+38, WRITE~, WRITE+9, WRITE+17, OBX~, OBX+22, OBR~, OBR+7 , OBR+8, OBR+11 |
| IEN1 | WRITE+2~, WRITE+9*, WRITE+10, WRITE+17, OBX~, OBX+22 |
| IEN2 | WRITE+2~ |
| IENS | OBX+3~, OBX+22*, OBX+23, OBX+24, OBX+25, OBX+26, OBX+27, OBX+28, OBX+29, OBX+30 , OBX+34 |
| INDEX | OBX+3~, OBX+6*, OBX+7, OBX+9, OBX+11, OBX+12, OBX+14, OBX+15 |
| J | WRITE+2~, WRITE+6*, WRITE+7* |
| J1 | WRITE+2~, WRITE+14*, WRITE+15* |
| J2 | FILE+22~, FILE+26*, FILE+27*, PARAMS+1~, PARAMS+5*, PARAMS+6* |
| J3 | DEMO+3~, DEMO+8*, DEMO+9* |
| LABS | OBX+3~, OBX+5*, OBX+7, OBX+9, OBX+11, OBX+12, OBX+14, OBX+15 |
| LOCAL | OBX+3~, OBX+9*, OBX+28 |
| LOINCC | OBX+3~, OBX+14*, OBX+26 |
| LOINCNME | OBX+3~, OBX+15*, OBX+27 |
| MESSAGE | ERROR~, ERROR+10, ERROR+12, ERROR+14, ERROR+16 |
| MM | OBR+1~, OBR+3*, OBR+4 |
| MSG | DEMO+3~, DEMO+29!, DEMO+37 |
| MSG1 | OBR+1~, OBR+11 |
| MSG2 | OBX+3~, OBX+34 |
| NLTCODE | OBX+3~, OBX+11*, OBX+24 |
| NLTNAME | OBX+3~, OBX+12*, OBX+25 |
| OUT | DEMO+3~, DEMO+29! |
| OUT(1 | DEMO+39 |
| OUT1 | OBR+1~ |
| OUT1(1 | OBR+13 |
| OUT2 | OBX+3~ |
| PREV | WRITE+2~, WRITE+12*, WRITE+18 |
| QUIT | WRITE+2~, WRITE+11*, WRITE+12, WRITE+16*, PARAMS+1~, PARAMS+2*, PARAMS+3, PARAMS+14*, DEMO+3~, DEMO+5* , DEMO+6, DEMO+25* |
| RANGE | OBX+3~, OBX+20*, OBX+30 |
| REC | PARAMS+1~, PARAMS+4*, PARAMS+6*, PARAMS+7, PARAMS+8, PARAMS+9, PARAMS+12, PARAMS+13, DEMO+3~, DEMO+7* , DEMO+9*, DEMO+10, DEMO+11 |
| RESULT | OBX+3~, OBX+17*, OBX+23 |
| >> RESULTS | OBX+18 |
| SPEC | OBR+1~, OBR+5*, OBR+7 |
| SPECDATE | OBR+1~, OBR+2*, OBR+3, OBR+4*, OBR+8 |
| SSN | DEMO+3~, DEMO+4*, DEMO+21*, DEMO+33 |
| STR | WRITE+2~, WRITE+5*, WRITE+7*, WRITE+8, WRITE+9, ERROR+9~, ERROR+10*, ERROR+12*, ERROR+14*, ERROR+16* , ERROR+19, OBR~, OBR+2, OBR+5 |
| STR1 | WRITE+2~, WRITE+13*, WRITE+15*, WRITE+16, WRITE+17, OBX~, OBX+5, OBX+17, OBX+19, OBX+20 |
| SUB | DEMO+3~, DEMO+14*, DEMO+15, DEMO+16, DEMO+17, DEMO+18, DEMO+20, DEMO+21, DEMO+23, DEMO+24 |
| UNITS | OBX+3~, OBX+19*, OBX+29 |
| VALUE | OBX+3~, OBX+7*, OBX+8, OBX+10, OBX+13 |
| X2 | FILE+23!, FILE+40! |
| YY | OBR+1~, OBR+3*, OBR+4* |