PSJHLERR ;BIR/LDT-PATIENT ID AND VISIT SEGMENTS FOR ERRORS ; 20 Apr 98 / 9:58 AM
Source file <PSJHLERR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(PSJHLDFN,PSOC,RXORDER,PSREASON) | ; start here
; passed in are PSJHLDFN (patient ien) ; RXORDER (order number from OE/RR) ; PSOC (order control code) ; PSREASON (text reason) |
|
| START | ;
|
|
| INIT | ; initialize HL7 variables, set master file identification segment
; PSJHLMTN = message type - ORR for messages sent as a response to ; an OE/RR event; ORM for "unsolicited" messages. |
|
| PID | ; get patient data, format PID SEGMENT
|
|
| PV1 | ; get patient visit information, format PV1 segment
|
|
| ORC | ; order control segment - modified for use with error messages.
|
|
| DISPLAY | ; just for testing
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
