PSULRHL1 ;HCIOFO/BH/RDC - Process real time HL7 Lab messages ; 1/10/11 8:10am
Source file <PSULRHL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HL7 | ; Entry point for PBM processing - triggered by lab protocol
; LR7O ALL EVSEND RESULTS. |
|
| LOOP | ;
|
|
| PID | ; Create the PID segment using the standard builder
|
|
| ORC | ; ORC needed to send Station Number. PSU*4*18
|
|
| OBR(REC) | ; Re-forms lab OBR to only send required data
|
|
| OBX(REC) | ; Reforms lab OBX to only send the data needed
|
|
| STRING(HLSTR,CNT) | ; Loops through sub nodes to create a full data string
|
|
| PARAMS | ; Get the delimiters used in the lab data
|
|
| GENERATE | ; Generate HL7 message
|
|
| SETSEG(SEG) | ;
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
