©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
SRHLVUI ;B'ham ISC/DLR - Surgery Interface Utility to process incoming segments ; [ 05/06/98 7:14 AM ]
Source file <SRHLVUI.m>
| Package | Total | Call Graph |
|---|---|---|
| Surgery | 2 | SET^SRHLVORU $$DNAME^SRHLVU |
| Health Level Seven | 1 | $$FMDATE^HLFNC |
| VA Fileman | 1 | CHK^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBR(IEN,OBR) | ;process Observation Request Segment (OBR) fields 3-4,7-8,27
|
|
| CHKV(IEN,VALUE) | ;check for invalid field values
|
|
| START | ||
| VALUE(XX) | ;SET the value of the identified segment field in file 133.2
|
|
| ERR(MSG,IEN) | ;setup the error message for the acknowledgement message
|
|
| 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) |
|---|---|
| ^SRO(133.2 - [#133.2] | OBR+8, START, START+1, START+3, START+4, START+5, START+6, CHECK+2, VALUE+4, VALUE+5 , VALUE+7, VALUE+9, DR+3, DR+4, DR+6, CHKV+4, CHKV+6, CHKV+8, CHKV+10 |
| Name | Line Occurrences |
|---|---|
| $$CHECK | OBR+12, START+5 |
| $$CHKV | START+1, START+5 |
| $$VALUE | START+1, START+5, DR+3 |
| DR | START+1, START+5, START+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | VALUE+4, VALUE+5, VALUE+6, CHKV+6 |
| ^(1 | START, START+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CVALUE | CHKV+5~, CHKV+6*, CHKV+8 |
| D0 | CHKV+5~, CHKV+7* |
| DR | DR+4*, CHKV+10! |
| DR( | DR+6* |
| FIELD | DR+2~, CHKV+5~, CHKV+6*, CHKV+8, CHKV+10 |
| FILE | DR+2~, CHKV+5~, CHKV+6*, CHKV+8 |
| FLAG | DR+2~, CHKV+5~, CHKV+6*, CHKV+8 |
| >> HLCOMP | OBR+7, VALUE+4 |
| >> HLERR | OBR+7*, START+3, ERR+1* |
| >> HLFS | OBR+7, ERR+1, VALUE+4, VALUE+5, CHKV+7 |
| >> ID | OBR+7*, OBR+8, ERR+1 |
| IEN | OBR~, OBR+6, OBR+8*, OBR+12, START, START+1, START+3, START+6, ERR~, CHECK~ , CHECK+1, CHECK+2, DR~, DR+1, DR+3, DR+4, DR+6, CHKV~, CHKV+2, CHKV+4 , CHKV+6, CHKV+8, CHKV+10 |
| LVL | OBR+5~, START+1*, START+3*, START+5, START+6*, DR~, DR+1, DR+4, DR+5, DR+6 |
| MSG | ERR~, ERR+1 |
| OBR | OBR~, OBR+7, OBR+8, CHKV+7, CHKV+8 |
| >> OBX | CHKV+8 |
| >> QOBR | OBR+12*, START+3, CHKV+10* |
| RESULT | DR+2~, CHKV+5~, CHKV+6*, CHKV+8, CHKV+10, CHKV+11 |
| RESULT(0 | CHKV+11 |
| >> SRERR(1 | ERR+1* |
| >> SRERR(2 | ERR+1* |
| >> SRHLX | OBR+8, CHKV+8 |
| SRIEN | START+4*, START+6! |
| >> SRX | START+3*, START+4, START+5 |
| TEXT | CHKV+1~, CHKV+8* |
| TYPE | DR+2~, DR+3*, DR+4, DR+6 |
| U | START, START+1, START+3, START+5, START+6, CHECK+2, VALUE+4, VALUE+5, VALUE+6, VALUE+7 , VALUE+9, DR+3, DR+4, DR+6, CHKV+4, CHKV+6, CHKV+8, CHKV+10 |
| VALUE | OBR+5~, START+1*, VALUE+2~, VALUE+4*, VALUE+5*, VALUE+6*, VALUE+7*, VALUE+9*, VALUE+10, DR+2~ , DR+3*, DR+4, DR+6, CHKV~, CHKV+2, CHKV+4, CHKV+6, CHKV+8 |
| XX | VALUE~, VALUE+1, VALUE+4, VALUE+5, VALUE+7, VALUE+9 |