©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
SRHLORU ;B'HAM ISC/DLR - Surgery Interface Receiver of ORU messages ; [ 02/06/01 9:27 AM ]
Source file <SRHLORU.m>
| Package | Total | Call Graph |
|---|---|---|
| Surgery | 3 | (DSCPANCY,SETDSC)^SRHLU ($$OBR,NTE,OBX)^SRHLUI MSA^SRHLUO |
| Health Level Seven | 2 | $$FMNAME^HLFNC GENACK^HLMA1 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBR | ;;OBR
|
|
| PICK | ;check routine for segment entry point
|
|
| PID | ;;PID
|
|
| EXIT | ;
|
|
| OBX | ;;OBX
|
|
| MSH | ;;MSH
|
|
| REC | ||
| NTE | ;;NTE
|
|
| GEN | ;generate the message
|
|
| CHECK(IEN) | ;check for valid receivable segments in file 133.2 (Surgery Interface)
|
| HL7 Protocol Name | Call Tags |
|---|---|
| SR Receiver of Unsolicited Requested Observation |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PID+4, OBR+8 |
| ^DPT("B" | PID+4 |
| ^SRF - [#130] | REC+2, OBR+5, OBR+8 |
| ^SRO(133.2 - [#133.2] | OBR+7, CHECK+2 |
| ^TMP("HLA" | EXIT+1! |
| Name | Line Occurrences |
|---|---|
| $$CHECK | OBR+12 |
| @( | PICK+1 |
| PICK | REC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CASE | REC+2, OBX+3, NTE+3, OBR+4*, OBR+5, OBR+6, OBR+7, OBR+8, OBR+9, OBR+12 |
| DFN | OBR+2~, OBR+8*, OBR+9, OBR+12 |
| >> HL | REC+5, OBR+4, OBR+5, OBR+6, OBR+7, OBR+10 |
| >> HL("ECH" | MSH+2*, MSH+3 |
| >> HL("EID" | GEN+12 |
| >> HL("EIDS" | GEN+12 |
| >> HL("FS" | MSH+2*, MSH+4, PID+3, OBR+4, OBR+5, OBR+6 |
| >> HLARYTYP | GEN+12*, GEN+13 |
| HLCOMP | REC~, MSH+3*, OBR+6 |
| HLECH | REC~, MSH+2* |
| >> HLEID | GEN+12*, GEN+13 |
| >> HLEIDS | GEN+12*, GEN+13 |
| >> HLFORMAT | GEN+12*, GEN+13 |
| HLFS | REC~, MSH+2* |
| HLMID | REC+1! |
| >> HLMTIENA | GEN+12*, GEN+13 |
| >> HLMTIENS | GEN+13 |
| >> HLNEXT | REC+3 |
| >> HLNODE | REC+3 |
| >> HLNODE( | REC+4 |
| >> HLP | GEN+12*, GEN+13 |
| >> HLP("ERRTEXT" | GEN+1 |
| >> HLQUIT | REC+3 |
| HLREP | REC~, MSH+3* |
| >> HLRESLTA | GEN+12*, GEN+13 |
| HLSUB | REC~, MSH+3* |
| I | REC+3*, REC+4, PID+2~, PID+4* |
| ID | OBR+2~, OBR+6*, OBR+7 |
| IEN | OBR+2~, OBR+7*, OBR+12, CHECK~, CHECK+1, CHECK+2 |
| II | REC~ |
| >> J | REC+3*, REC+4* |
| >> MSG | REC+3*, MSH+2, MSH+4, PID+3, OBX+3, NTE+3, OBR+4, OBR+5, OBR+6, OBR+12 |
| >> OBR | OBX+2, OBX+3, NTE+2, NTE+3, OBR+12* |
| PAT | PID+2~, PID+3*, PID+4 |
| PID | REC+1! |
| PID("DFN" | PID+4* |
| PID("SSN" | PID+3*, PID+4, OBR+8, OBR+9 |
| SG | REC~, REC+3*, PICK+1 |
| >> SRDISC | OBR+4*, OBR+5*, OBR+6*, OBR+7*, OBR+9*, OBR+10 |
| SRERR | REC~ |
| SRES | REC~ |
| SRESAR | REC~, REC+1*, REC+2* |
| SRESCNT | REC~, REC+1* |
| SRESNR | REC~, REC+1*, REC+2* |
| SRHL | REC~, REC+1!, EXIT+1!, OBR+4, OBR+5, OBR+6, OBR+7, OBR+10 |
| SRHL("E" | REC+1*, REC+5 |
| SRI | REC~ |
| SRII | OBR+2~ |
| SRNEXT | OBR+2~ |
| SRNON | REC~ |
| SROP | REC~ |
| SSN | REC~ |
| TYPE | REC~, MSH+4* |
| U | PID+4, OBR+8, CHECK+2 |
| >> X( | REC+3*, REC+4* |
| Z | REC~, REC+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(@SG | PICK+1, PICK+2 |