©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
SRHLUI ;B'ham ISC/DLR - Surgery Interface Utility to process incoming segments ; [ 02/06/01 9:53 PM ]
Source file <SRHLUI.m>
| Package | Total | Call Graph |
|---|---|---|
| Surgery | 2 | ($$DNAME,SETDSC)^SRHLU ^SROESHL |
| Health Level Seven | 1 | $$FMDATE^HLFNC |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRCHK | ;CHECK DR STRING (for debugging only)
|
|
| OBR(CASE,DFN,IEN,MSG) | ;process Observation Request Segment (OBR) fields 3-4,7-8,27
|
|
| NTE(MSG,OBR,CASE) | ;process Observation Segment (OBX) fields 3,5,14,16 and NTE-3
|
|
| VALUE(XX) | ;SET the value of the identified segment field in file 133.2
|
|
| OBX(MSG,OBR,CASE) | ;process Observation Segment (OBX) fields 3,5,14,16 and NTE-3
|
|
| DR(LVL,IEN) | ;set DR or DR(... string for the FileMan DIE call
|
|
| CHECK(IEN) | ;check universal id or observation id sequence to the Surgery Interface file
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRF - [#130] | NTE+8, NTE+9* |
| ^SRO(133.2 - [#133.2] | OBR+12, OBR+14, OBR+15, OBR+17, CHECK+2, VALUE+1, VALUE+4, VALUE+5, VALUE+6, VALUE+7 , DR+3, DR+5, NTE+5, OBX+4, OBX+6, OBX+7, OBX+8, OBX+9, OBX+12, OBX+15 , OBX+16 |
| ^TMP("SR7" | VALUE+1* |
| Name | Line Occurrences |
|---|---|
| $$CHECK | OBR+17, NTE+6, OBX+5, OBX+15 |
| $$VALUE | OBR+15, OBR+17, DR+3, DR+5, OBX+6, OBX+9, OBX+13, OBX+16 |
| DR | OBR+17, OBX+9, OBX+15, OBX+16 |
| DRCHK | OBR+20 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | OBR+15, VALUE+4, VALUE+5, VALUE+6, DR+3, DR+5, NTE+9*, OBX+8 |
| ^(1 | OBR+14, DR+3, DR+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CASE | OBR~, OBR+12, NTE~, NTE+8, NTE+9, OBX~, OBX+2 |
| DA | OBR+7!, OBR+12*, OBR+20!, OBX+2*, OBX+15! |
| DFN | OBR~ |
| DIE | OBR+7!, OBR+12*, OBR+20!, OBX+7!*, OBX+15! |
| DO | OBR+12!, OBR+20!, OBX+7!, OBX+15! |
| DR | OBR+7!, OBR+12!, OBR+15*, OBR+18, OBR+20!, DR+3*, OBX+7!, OBX+8*, OBX+15! |
| DR( | DR+5*, DRCHK+3 |
| DT | NTE+9 |
| >> HL | OBR+20, NTE+4, NTE+5, NTE+8, OBX+3, OBX+4, OBX+6, OBX+7, OBX+11, OBX+12 |
| >> HL("FS" | VALUE+4, VALUE+5, NTE+4, NTE+8, NTE+9, OBX+3, OBX+11 |
| >> HLCOMP | VALUE+4, NTE+4, OBX+3, OBX+11 |
| ID | OBR+20, NTE+3~, NTE+4*, NTE+5, NTE+7, OBX+1~, OBX+3*, OBX+4, OBX+6, OBX+7 , OBX+11*, OBX+12 |
| IEN | OBR~, OBR+12, OBR+14, OBR+15, OBR+17, CHECK~, CHECK+1, CHECK+2, DR~, DR+1 , DR+3, DR+5, NTE+5*, NTE+6, OBX+1~, OBX+4*, OBX+5, OBX+6, OBX+7, OBX+8 , OBX+9, OBX+12*, OBX+13, OBX+15, OBX+16 |
| LVL | OBR+8~, OBR+17*, DR~, DR+1, DR+3, DR+5, OBX+9*, OBX+15*, OBX+16* |
| MSG | OBR~, OBR+9, OBR+12, NTE~, NTE+2, NTE+8, NTE+9, OBX~, OBX+2, OBX+11 |
| NM | OBX+1~, OBX+6*, OBX+8, OBX+13* |
| OBR | OBR+8~, OBR+12*, OBR+21, NTE~, NTE+4, OBX~, OBX+3 |
| OBX | OBX+1~, OBX+2* |
| >> SRCNT | DRCHK+3* |
| >> SRDISC | OBR+20*, NTE+4*, NTE+5*, NTE+8*, OBX+3*, OBX+4*, OBX+6*, OBX+7*, OBX+11*, OBX+12* |
| SRESQ | OBR+18~, OBR+19, OBX+1~, OBX+15~ |
| >> SRHL | OBR+20, NTE+4, NTE+5, NTE+8, OBX+3, OBX+4, OBX+6, OBX+7, OBX+11, OBX+12 |
| >> SRJ | DRCHK+3* |
| >> SRK | DRCHK+3* |
| SRNOCON | OBR+8~, OBR+11* |
| SRX | OBR+8~, OBR+17*, OBX+9*, OBX+16* |
| TYPE | OBX+1~ |
| U | OBR+12, OBR+14, OBR+15, OBR+17, CHECK+2, VALUE+4, VALUE+5, VALUE+6, VALUE+7, DR+3 , DR+5, NTE+9, OBX+6, OBX+7, OBX+8, OBX+9, OBX+15, OBX+16 |
| VALUE | VALUE+2~, VALUE+4*, VALUE+5*, VALUE+6*, VALUE+7*, VALUE+8, DR+3*, DR+5* |
| XX | VALUE~, VALUE+1, VALUE+4, VALUE+5, VALUE+6, VALUE+7 |
| >> Y | OBR+20 |