©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
PSJHL2 ;BIR/RLW-PATIENT ID AND VISIT SEGMENTS ;22 Nov 1999 9:27 AM
Source file <PSJHL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 3 | (INIT,SEGMENT)^PSJHLU ($$LASTREN,$$LASTRNBY)^PSJLMPRI ENBKOUT^PSJOREN |
| Order Entry Results Reporting | 2 | EN^ORERR $$ESC^ORHLESC |
| Kernel | 1 | $$FMTHL7^XLFDT |
| Registration | 1 | (DEM,INP)^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PV1 | ; get patient visit information, format PV1 segment
|
|
| A | ||
| E | ||
| D | ||
| P | ||
| I | ||
| H | ||
| DE | ||
| PID | ; get patient data, format PID SEGMENT
|
|
| UNDO | ;Undo Renew if Pending Renewal is dc'd
|
|
| 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. |
|
| R | ||
| U | ||
| RE | ||
| O | ||
| 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 |
|
| N | ||
| DR | ||
| ORC | ; order control segment
|
| Name | Field # of Occurrence |
|---|---|
| EN^ORERR | START+4 |
| $$ESC^ORHLESC | PID+5, PV1+12, ORC+21, ORC+22 |
| INIT^PSJHLU | INIT+3 |
| SEGMENT^PSJHLU | INIT+6, PID+6, PV1+16, ORC+32 |
| $$LASTREN^PSJLMPRI | ORC+29 |
| $$LASTRNBY^PSJLMPRI | ORC+29 |
| ENBKOUT^PSJOREN | UNDO+1 |
| DEM^VADPT | PID+4 |
| INP^VADPT | PV1+15 |
| $$FMTHL7^XLFDT | PV1+13, ORC+18, ORC+22, ORC+26, ORC+29 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | START+4 |
| ^DPT - [#2] | PV1+6, PV1+12 |
| ^PS(53.1 - [#53.1] | PV1+9 |
| ^PS(55 - [#55] | PV1+10, PV1+11 |
| ^SC("B" | PV1+6 |
| ^TMP("PSJHLS" | START+1!, START+9! |
| ^VA(200 - [#200] | ORC+20, ORC+22, ORC+24 |
| Name | Line Occurrences |
|---|---|
| @( | START+7, ORC+14, ORC+15 |
| DISPLAY | INIT+6, PID+6, PV1+16, ORC+32 |
| INIT | START+6 |
| ORC | START+6 |
| PID | START+6 |
| PV1 | START+6 |
| UNDO | START+8 |
| Name | Field # of Occurrence |
|---|---|
| ^("DSS" | PV1+9, PV1+10 |
| ^(8 | PV1+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PV1+8~, PV1+9*, PV1+10*, PV1+11* |
| >> CLASS | PV1+14 |
| CLERK | START+2~, ORC+19*, ORC+20, ORC+21 |
| DFN | PID+4~*, PV1+15~* |
| DUR | START+2~ |
| FIELD | START+9! |
| FIELD( | DISPLAY+1 |
| FIELD(0 | INIT+5*, PID+2*, PV1+3*, ORC+7* |
| FIELD(1 | INIT+5*, ORC+8* |
| FIELD(10 | ORC+21*, ORC+29* |
| FIELD(11 | ORC+22* |
| FIELD(12 | ORC+25* |
| FIELD(15 | ORC+26*, ORC+29* |
| FIELD(16 | ORC+31* |
| FIELD(19 | PV1+15* |
| FIELD(2 | INIT+5*, PV1+14*, PV1+15, ORC+9* |
| FIELD(3 | INIT+5*, PID+3*, PV1+4*, PV1+13*, ORC+10*, ORC+16* |
| FIELD(44 | PV1+13* |
| FIELD(5 | PID+4*, PID+5*, A*, D*, I*, N*, U*, P*, DE*, E* , H*, R*, RE*, DR*, O* |
| FIELD(7 | ORC+17* |
| FIELD(8 | INIT+5* |
| FIELD(9 | ORC+18*, ORC+22*, ORC+29* |
| FIELD9 | ORC+29~* |
| J | START+2~ |
| LIMIT | START+2~, INIT+4*, INIT+6, PID+1*, PID+6, PV1+2*, PV1+16, ORC+1*, ORC+32, DISPLAY+1 |
| >> LOC | PV1+4, PV1+6*, PV1+7, PV1+9*, PV1+10*, PV1+11*, PV1+12*, PV1+13 |
| >> MSGTEST | DISPLAY+1 |
| NAME | START+2~, ORC+20*, ORC+21, ORC+24*, ORC+25 |
| NEXT | START+2~, DISPLAY+1* |
| NODE1 | START+2~, ORC+3*, ORC+6, ORC+9, ORC+12, ORC+17, ORC+18, ORC+23, ORC+26, ORC+27 , UNDO+1 |
| NODE2 | START+2~, ORC+3*, ORC+17, ORC+18, ORC+19, ORC+26, ORC+27 |
| NODE4 | START+2~, ORC+4*, ORC+19, ORC+22 |
| NOO | START+2~, ORC+30*, ORC+31 |
| >> ORDCON | START+4* |
| >> P("NAT" | ORC+30 |
| PROVIDER | START+2~, ORC+23*, ORC+24, ORC+25 |
| PSGST | START+2~, ORC+5~, ORC+6*, ORC+17 |
| >> PSIVCOPY | ORC+12 |
| PSJAPPT | PV1+1~, PV1+9*, PV1+10*, PV1+11*, PV1+13 |
| >> PSJBCBU | PID+5, PV1+12, ORC+21, ORC+22 |
| PSJCLEAR | START+2~, INIT+4, PID+1, PV1+2, ORC+1 |
| PSJDCPRV | ORC+23! |
| >> PSJEXPOE | ORC+12 |
| PSJHINST | START+2~, INIT+5 |
| PSJHLDFN | EN1~, START+3, START+4, PID+3, PID+4, PV1+6, PV1+10, PV1+11, PV1+12, PV1+15 , ORC+29, UNDO+1 |
| >> PSJHLMTN | INIT+2*, INIT+5, PV1+4, PV1+5 |
| PSJHLSDT | START+2~ |
| PSJI | START+2~, INIT+2* |
| >> PSJNOO | ORC+30, UNDO+1 |
| PSJORDER | EN1~, START+3*, START+4, ORC+2, ORC+3, ORC+4, ORC+30 |
| PSOC | EN1~, START+5, START+7, ORC+2, ORC+8, ORC+9, ORC+22 |
| PSREASON | EN1~, ORC+30*, ORC+31 |
| ROOMBED | START+2~, PV1+12* |
| RXORDER | START+2~, START+3*, START+4, PV1+9, PV1+10, PV1+11, ORC+10, ORC+12, ORC+14, ORC+16 , ORC+17, ORC+18, ORC+19, ORC+23, ORC+26, ORC+27, ORC+29, UNDO+1 |
| STATUS | START+2~, ORC+12*, ORC+14*, ORC+15, ORC+16, UNDO+1 |
| U | START+4, ORC+31, UNDO+1 |
| UNDO | START+2~, START+5*, START+8 |
| >> VADM(1 | PID+4 |
| >> VAIN(1 | PV1+15 |
| VERIFY | START+2~, ORC+22* |
| WARD | START+2~, PV1+6* |
| >> X | START+4* |