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 |
|---|---|---|
| VA Fileman | 2 | C^%DTC Y^DIQ |
| Adverse Reaction Tracking | 1 | ^GMRADPT |
| DRG Grouper | 1 | $$ICDDX^ICDCODE |
| General Medical Record - Vitals | 1 | EN6^GMRVUTL |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Registration | 1 | $$EN^VAFHLPID |
| Surgery | 1 | $$HNAME^SRHLVU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DG1(SRI) | ;DG1 segment(s) builder returns surgery diagnosis information
|
|
| 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 |
|
| PID(SRI) | ;PID segment builder returns patient information
|
|
| AL1(SRI) | ;AL1 segment(s) builder returns allergy information from the generic call to (GMRADPT)
|
|
| ERR(SRI,SRERR) | ||
| SOBX | ;sets the OBX segment
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | AL1+2, OBX+16 |
| ^DD(130 | OBX+15 |
| ^ECC(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* |
| >> 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* |