PSJHL2 ;BIR/RLW-PATIENT ID AND VISIT SEGMENTS ; 9/24/12 3:17pm
Source file <PSJHL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(PSJHLDFN,PSOC,PSJORDER,PSREASON) | ; start here
; passed in are PSJHLDFN (patient ien) ; PSJORDER* (order_file (N,P,V, etc)) ; PSOC* (order control code - NW for new order, OK to return filler number to OE/RR, OC for order canceled, SC for status change) ; PSREASON* (text reason) ; *=optional, only required if an order segment is also to be generated |
|
| 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
|
|
| DISPLAY | ; just for testing
|
|
| UNDO | ;Undo Renew if Pending Renewal is dc'd
|
|
| A | ||
| D | ||
| I | ||
| N | ||
| U | ||
| P | ||
| DE | ||
| E | ||
| H | ||
| R | ||
| RE | ||
| DR | ||
| O |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
