©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSJHLERR ;BIR/LDT-PATIENT ID AND VISIT SEGMENTS FOR ERRORS ; 20 Apr 98 / 9:58 AM
Source file <PSJHLERR.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Inpatient Medications | 1 | (CALL,INIT,SEGMENT)^PSJHLU |
| Registration | 1 | (,INP)^VADPT |
| VA Fileman | 1 | NOW^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Inpatient Medications | 4 | PSJHL10 PSJHL5 PSJHL6 PSJHL9 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PV1 | ; get patient visit information, format PV1 segment
|
|
| PID | ; get patient data, format PID SEGMENT
|
|
| 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) |
|
| DISPLAY | ; just for testing
|
|
| 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. |
|
| ORC | ; order control segment - modified for use with error messages.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PV1+5, PV1+6 |
| ^SC("B" | PV1+5 |
| ^TMP("PSJHLS" | START+1! |
| ^VA(200 - [#200] | ORC+7 |
| Name | Line Occurrences |
|---|---|
| DISPLAY | INIT+8, PID+5, PV1+10, ORC+12 |
| INIT | START+3 |
| ORC | START+3 |
| PID | START+3 |
| PV1 | START+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | INIT+7 |
| >> CLASS | PV1+8 |
| CLERK | START+2~, ORC+7*, ORC+8 |
| DFN | PID+4~*, PV1+9~* |
| DUZ | ORC+7, ORC+8 |
| FIELD | START+2~ |
| FIELD(0 | INIT+6*, PID+2*, PV1+2*, ORC+3* |
| FIELD(1 | INIT+6*, ORC+4* |
| FIELD(10 | ORC+8* |
| FIELD(16 | ORC+11* |
| FIELD(19 | PV1+9* |
| FIELD(2 | INIT+6*, PV1+8*, PV1+9, ORC+5* |
| FIELD(3 | INIT+6*, INIT+7, PID+3*, PV1+3*, PV1+7*, ORC+6* |
| FIELD(4 | INIT+7* |
| FIELD(5 | INIT+7*, PID+4* |
| FIELD(6 | INIT+7* |
| FIELD(8 | INIT+6* |
| J | START+5! |
| LIMIT | START+2~, INIT+5*, INIT+8, PID+1*, PID+5, PV1+1*, PV1+10, ORC+1*, ORC+12 |
| >> LOC | PV1+3, PV1+5*, PV1+6*, PV1+7 |
| NEXT | START+5! |
| PSJCLEAR | START+5!, INIT+5, PID+1, PV1+1, ORC+1 |
| PSJHINST | START+2~, INIT+6 |
| PSJHLDFN | EN1~, PID+3, PID+4, PV1+5, PV1+6, PV1+9 |
| PSJHLMTN | START+2~, INIT+3*, INIT+6, PV1+3, PV1+4 |
| PSJHLSDT | START+2~ |
| PSJI | START+2~, START+4, START+5!, INIT+3* |
| PSOC | EN1~, START+5!, ORC+2, ORC+4, ORC+6, ORC+11 |
| PSREASON | EN1~, START+5!, ORC+11 |
| ROOMBED | START+2~, PV1+6* |
| >> RXON | ORC+6 |
| RXORDER | EN1~, START+5!, ORC+2, ORC+5 |
| U | ORC+11 |
| >> VADM(1 | PID+4 |
| >> VAIN(1 | PV1+9 |
| WARD | START+2~, PV1+5* |