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 |
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 |
---|---|---|
OBR(CASE,DFN,IEN,MSG) | ;process Observation Request Segment (OBR) fields 3-4,7-8,27
|
|
CHECK(IEN) | ;check universal id or observation id sequence to the Surgery Interface file
|
|
VALUE(XX) | ;SET the value of the identified segment field in file 133.2
|
|
DR(LVL,IEN) | ;set DR or DR(... string for the FileMan DIE call
|
|
NTE(MSG,OBR,CASE) | ;process Observation Segment (OBX) fields 3,5,14,16 and NTE-3
|
|
OBX(MSG,OBR,CASE) | ;process Observation Segment (OBX) fields 3,5,14,16 and NTE-3
|
|
DRCHK | ;CHECK DR STRING (for debugging only)
|
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 |