SRHLVORU ;B'HAM ISC/DLR - Surgery Interface Receiver of ORU message ; [ 05/06/98 7:14 AM ]
Source file <SRHLVORU.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REC | ||
| EXIT | ;
|
|
| PICK | ;check routine for segment entry point
|
|
| MSH | ;process the MSH segment
|
|
| PID | ;process PID segment
|
|
| OBX | ;OBX segments processing
|
|
| NTE | ;NTE segment processing
|
|
| DSC | ||
| OBR | ;OBR segment processing
|
|
| CHECK(IEN) | ;check for valid receivable segments in file 133.2 (Surgery Interface)
|
|
| REPORT(HLMID) | ;creates discrepancy report to be mailed to SR HL7 mailgroup
|
|
| SET(ECODE,OBR,OBX,SRHLX) | ;sets up discrepancy global
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("B" | PID+3 |
| ^DPT("SSN" | PID+4 |
| ^HL(772 - [#772] | REC+5 |
| ^SRF - [#130] | OBR+8, OBR+9 |
| ^SRO(133.2 - [#133.2] | OBR+6, OBR+12, CHECK+2 |
| ^TMP("SRHL" | REC+3!, EXIT+7, PID+6*, SET+1* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | REC+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CASE | OBR+2~, OBR+7*, OBR+8, OBR+9, OBR+12 |
| CDFN | OBR+2~, OBR+9* |
| >> DA | OBR+12* |
| DFN | REC~, PID+3*, PID+5, PID+6, OBR+9 |
| DFN1 | REC~, PID+4*, PID+5, PID+6, OBR+9 |
| DIC | EXIT+7!* |
| DIE | REC+6!, OBR+1!, OBR+12* |
| DO | REC+6!, OBX+1!, NTE+1!, OBR+1! |
| DR | REC+6!, OBX+1!, NTE+1!, OBR+1! |
| ECODE | SET~, SET+1 |
| HLCOMP | REC~, MSH+2*, OBR+5 |
| >> HLDA | REC+5 |
| >> HLECH | MSH+1*, MSH+2 |
| >> HLERR | REC+5, REC+6, EXIT+2, EXIT+3, EXIT+4, EXIT+5, PICK+2*, PID+5*, OBX+1, NTE+1 , NTE+2, OBR+1, OBR+5*, OBR+7*, OBR+8*, OBR+9*, OBR+14 |
| >> HLFS | MSH+1*, MSH+3, PID+2, OBR+5, OBR+7, SET+1 |
| HLMID | EXIT+7, REPORT~, REPORT+1 |
| >> HLMTN | EXIT+1* |
| HLREP | REC~, MSH+2* |
| >> HLSDT | EXIT+1* |
| HLSUB | REC~, MSH+2* |
| I | PID+1~, PID+3* |
| ID | OBR+2~, OBR+5*, OBR+6 |
| IEN | OBR+2~, OBR+6*, OBR+11, OBR+12, OBR+14, CHECK~, CHECK+1, CHECK+2 |
| II | REC~, REC+5* |
| >> MSG | REC+5*, MSH+1, MSH+3, PID+2, OBX+1, NTE+2, OBR+5, OBR+7, OBR+14 |
| OBR | OBX+1, NTE+2, OBR+6, OBR+14*, SET~, SET+1 |
| OBX | SET~, SET+1 |
| PAT | PID+1~, PID+2*, PID+3, PID+6 |
| QOBR | REC~, REC+1*, REC+6, OBX+1, NTE+1, NTE+2, OBR+1, OBR+3*, OBR+11* |
| SG | REC~, REC+5*, PICK+1, PICK+2 |
| SRERR | REC~, EXIT+3 |
| SRHLX | REC~, REC+3*, PID+6*, OBR+6, SET~, SET+1* |
| SRI | REC~, EXIT+1*, EXIT+2, EXIT+3 |
| >> SRNOCON | REC+4* |
| >> SRTN | OBR+12* |
| SSN | REC~, PID+1~, PID+2*, PID+4, PID+6 |
| TYPE | REC~, PICK+2, MSH+3* |
| U | OBR+9, OBR+12, CHECK+2 |
| >> UPDATE | REC+2*, OBX+1* |
| >> X | EXIT+7* |
| >> XMSUB | REPORT+1* |
| >> XMTEXT | REPORT+3* |
| >> XMY("G.SRHL D | ISCREPANCY" , REPORT+2* |
| >> Y | EXIT+7 |
