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* |