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