SRHLVUO ;B'HAM ISC/DLR - Surgery Interface Utilities for building Outgoing HL7 Segment ; [ 05/06/98 7:14 AM ]
Source file <SRHLVUO.m>
Package | Total | Call Graph |
---|---|---|
Surgery | 2 | $$HNAME^SRHLVU ($$ICD,$$ICDSYS)^SROICD |
VA FileMan | 2 | C^%DTC Y^DIQ |
Adverse Reaction Tracking | 1 | ^GMRADPT |
General Medical Record - Vitals | 1 | EN6^GMRVUTL |
Health Level Seven | 1 | $$HLDATE^HLFNC |
Registration | 1 | $$EN^VAFHLPID |
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 |
---|---|---|
AL1(SRI) | ;AL1 segment(s) builder returns allergy information from the generic call to (GMRADPT)
|
|
DG1(SRI) | ;DG1 segment(s) builder returns surgery diagnosis information
|
|
ERR(SRI,SRERR) | ||
MSA(SRI,SRAC) | ;MSA segment builder
; SRAC = Acknowledgement code (ID) ; AA = Application Accepted (responsed with information) ; AE = Application Error (bad data send error response) ; AR = Application Reject |
|
OBX(SRI) | ;OBX segment(s) builder
; This segment builds OBX segments for the following Preoperative data ; - vitals\measurements ^GMRVUTL routine: ; height, weight, blood pressure, pulse rate, and temperature ; - IN\OUT-PATIENT STATUS field in File #130 ; - CANCEL DATE and CANCEL REASON for cancelled and aborted cases ; - SURGICAL SPECIALTY (OR) or MEDICAL SPECIALTY (NON OR) ; - SURGEON PGY and ANES SUPERVISE CODE |
|
SOBX | ;sets the OBX segment
|
|
PID(SRI) | ;PID segment builder returns patient information
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | AL1+2, OBX+16 |
^DD(130 | OBX+15 |
^ECC(723 - [#723] | OBX+11 |
^SRF - [#130] | DG1+3, DG1+4, DG1+7, DG1+8, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+23 , OBX+24 |
^SRO(135 - [#135] | OBX+24 |
^SRO(137.45 - [#137.45] | OBX+12 |
^TMP("HLS" | AL1+9*, DG1+6*, DG1+9*, ERR+4*, MSA+8*, SOBX+3*, PID+2* |
Name | Line Occurrences |
---|---|
SOBX | OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22 , OBX+24 |
Name | Field # of Occurrence |
---|---|
^( | OBX+14 |
^("NON" | OBX+11 |
^(0 | DG1+8, OBX+12, OBX+15 |
^(200 | OBX+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AL1 | AL1+3~ |
AL1( | AL1+8*, AL1+9 |
>> C | OBX+15* |
>> CASE | DG1+1, DG1+3, DG1+4, DG1+7, DG1+8, OBX+8, OBX+11, OBX+12, OBX+13, OBX+14 , OBX+15, OBX+23, OBX+24 |
CNT | AL1+3~, AL1+6*, AL1+8, AL1+9*, OBX+9~, OBX+10*, SOBX+2, SOBX+4* |
>> DFN | AL1+1, PID+1, PID+2 |
DG1 | DG1+2~, DG1+5*, DG1+6* |
DT | OBX+16 |
GMRAL | AL1+10! |
GMRAL( | AL1+7, AL1+8 |
>> GMRVSTR | OBX+16* |
>> HLCOMP | AL1+8, ERR+4, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20 , OBX+21, OBX+22, OBX+24 |
>> HLERR | ERR+4 |
>> HLFS | AL1+8, DG1+5, DG1+9, ERR+4, MSA+8, SOBX+3 |
>> HLMID | MSA+7 |
>> HLSDT | AL1+9, DG1+6, DG1+9, ERR+4, MSA+8, SOBX+3, PID+2 |
I9 | DG1+2~, DG1+4*, DG1+5, DG1+8*, DG1+9 |
MSA | MSA+6~ |
MSA( | MSA+8 |
MSA(1 | MSA+7* |
MSA(2 | MSA+7* |
MSA(3 | MSA+7* |
OBX | OBX+9~ |
OBX( | SOBX+3* |
OBX(1 | SOBX+2* |
OBX(11 | OBX+17*, SOBX+1* |
OBX(14 | OBX+17*, OBX+24* |
OBX(16 | OBX+17*, OBX+24* |
OBX(2 | OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+17*, OBX+24* |
OBX(3 | OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+18*, OBX+19*, OBX+20*, OBX+21*, OBX+22* , OBX+24* |
OBX(5 | OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+17*, OBX+18*, OBX+19*, OBX+20*, OBX+21* , OBX+24* |
OBX(6 | OBX+19*, OBX+20*, OBX+21*, OBX+22* |
SRAC | MSA~, MSA+7 |
SRERR | ERR~, MSA+7 |
SRERR(1 | ERR+4 |
SRERR(2 | ERR+4 |
SRI | AL1~, AL1+9*, DG1~, DG1+6*, DG1+9*, ERR~, ERR+4*, MSA~, MSA+8, MSA+9* , OBX~, SOBX+3, SOBX+4*, PID~, PID+2* |
SRSYS | DG1+2~, DG1+4*, DG1+5, DG1+9 |
>> SRX | OBX+16*, OBX+17, OBX+18 |
TYPE | AL1+3~, AL1+8*, OBX+9~, OBX+16*, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22 |
U | DG1+3, DG1+4, DG1+5, DG1+8, DG1+9, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15 , OBX+17, OBX+23, OBX+24 |
X | AL1+2*, AL1+3~, AL1+7*, AL1+8, AL1+9, DG1+2~, DG1+7*, OBX+9~, OBX+16* |
X1 | DG1+2~, DG1+7*, DG1+9*, OBX+16* |
>> X2 | OBX+16* |
>> XX | MSA+8*, SOBX+3* |
Y | OBX+9~, OBX+15* |