©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
RAHLRU ;HISC/GJC - utilities for HL7 messaging ;03/16/98 11:03
Source file <RAHLRU.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 5 | $$BASICMOD^RACPTMSC GSTATUS^RAHLACK $$ESCAPE^RAHLRU $$GETTCOM^RAUTL11 MODS^RAUTL2 |
| Health Level Seven | 3 | $$HLDATE^HLFNC INIT^HLFNC2 GENERATE^HLMA |
| Kernel | 2 | $$NOW^XLFDT ($$PATCH,$$VERSION)^XPDUTL |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBR21(HLECH,RA7002) | ;builds the OBR-21 field; called from RAHLR1A
|
|
| DOB(X) | ;strip off trailing "0"'s from the date of birth
|
|
| OBXMOD | ; Compile 'OBX' segments for both types of modifiers
; Procedure modifiers |
|
| ESCAPE(XDTA) | ;apply the appropriate escape sequence to a string of data
; Insert a escape sequence place holder, then swap the escape sequence ; place holder with the real escape sequence. This action requires two ; passes because the escape sequence uses the escape ("\") character. ; Input: XDTA=data string to be escaped (if necessary) ; HLFS=field separator (global scope; set in INIT^RAHLR) ; HLECH=encoding characters (global scope; set in INIT^RAHLR) ; Return: XDTA=an escaped data string |
|
| OBXTCM | ; Compile 'OBX' segment for latest TECH COMMENT
|
|
| INIT | ; initialize HL7 variables; called from RAHLR & RAHLRPT
|
|
| CPTMOD(RAIEN,HLECH,DT) | ;return OBX-5 as it pertains to CPT Modifiers
|
|
| EXIT | ;kill the variables; exit the process...
|
|
| OBXPRC | ;Compile 'OBX' Segment for Procedure
|
|
| GETSFLAG(SAN,MTN,ETN,VER) | ;Return HL message flag (79.721,1)
|
|
| GENERATE | ;Broadcast the HL7 message (courtesy of the VistA HL7 application)
|
|
| OBX11 | ; set OBX-11, = 12th piece of string where piece 1 is "OBX"
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | OBR21+26, OBR21+28 |
| $$HLDATE^HLFNC | INIT+2 |
| INIT^HLFNC2 | INIT+4 |
| GENERATE^HLMA | GENERATE+4 |
| $$BASICMOD^RACPTMSC | OBXMOD+8, CPTMOD+5 |
| GSTATUS^RAHLACK | GENERATE+5 |
| $$ESCAPE^RAHLRU | CPTMOD+9, OBR21+31 |
| $$GETTCOM^RAUTL11 | OBXTCM+6 |
| MODS^RAUTL2 | OBXMOD+3 |
| $$NOW^XLFDT | INIT+2 |
| $$PATCH^XPDUTL | OBXTCM+3 |
| $$VERSION^XPDUTL | OBXTCM+3 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(771 - [#771] | GETSFLAG+2 |
| ^HL(771.2 - [#771.2] | GETSFLAG+3 |
| ^HL(771.5 - [#771.5] | GETSFLAG+5 |
| ^HL(779.001 - [#779.001] | GETSFLAG+4 |
| ^RA(79.1 - [#79.1] | OBR21+25 |
| ^RA(79.2 - [#79.2] | OBR21+20 |
| ^RA(79.7 - [#79.7] | GETSFLAG+6 |
| ^RAMIS(71 - [#71] | OBXPRC+2 |
| ^RARPT - [#74] | OBX11+3, OBX11+9 |
| ^UTILITY($J | EXIT+6! |
| Name | Line Occurrences |
|---|---|
| OBX11 | OBXPRC+2, OBXMOD+3, OBXMOD+15, OBXTCM+10 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | OBXPRC+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | OBXMOD+8, CPTMOD~, CPTMOD+5 |
| EID | INIT+2*, INIT+4, INIT+6! |
| ETN | GETSFLAG~, GETSFLAG+1, GETSFLAG+4*, GETSFLAG+6 |
| >> HL | INIT+3*, INIT+4 |
| >> HL("ECH" | INIT+6, INIT+7, INIT+8, INIT+9 |
| >> HL("FS" | INIT+6 |
| >> HL("Q" | INIT+5, INIT+6 |
| HL771RF | EXIT+1! |
| HL771SF | EXIT+1! |
| HL7STRG | EXIT+1! |
| HLA | EXIT+1! |
| HLA("HLS" | OBX11+7*, OBX11+10*, OBXPRC+1*, OBXPRC+2*, OBXMOD+3*, OBXMOD+9*, OBXMOD+12*, OBXTCM+9*, OBXTCM+11, OBXTCM+12* , OBXTCM+17, OBXTCM+20*, OBXTCM+21*, OBXTCM+22* |
| HLARYTYP | GENERATE+1~, GENERATE+2*, GENERATE+4, EXIT+1! |
| HLCS | INIT+7*, EXIT+1! |
| HLDOM | EXIT+1! |
| >> HLDT | INIT+2* |
| >> HLDT1 | INIT+2* |
| HLECH | ESCAPE+10, OBXPRC+1, OBXPRC+2, OBXMOD+3, OBXMOD+9, OBXMOD+12, OBXTCM+9, INIT+6*, CPTMOD~, CPTMOD+9 , OBR21~, EXIT+1! |
| HLEID | GENERATE+1~, GENERATE+2*, EXIT+1! |
| HLES | EXIT+1! |
| HLES2 | EXIT+1! |
| HLFORMAT | GENERATE+1~, GENERATE+2*, GENERATE+4, EXIT+1! |
| HLFS | OBX11+7, OBX11+10, ESCAPE+10, OBXPRC+1, OBXMOD+3, OBXMOD+9, OBXTCM+9, OBXTCM+12, OBXTCM+20, OBXTCM+21 , OBXTCM+22, INIT+6*, EXIT+2! |
| HLINSTN | EXIT+2! |
| HLMTIEN | GENERATE+1~, GENERATE+2*, GENERATE+4, EXIT+2! |
| HLN | EXIT+2! |
| HLP | GENERATE+1~, GENERATE+4, EXIT+2! |
| HLP("PRIORITY" | GENERATE+2* |
| HLPARAM | EXIT+2! |
| HLPID | EXIT+2! |
| HLQ | INIT+6*, EXIT+2! |
| HLREC | EXIT+2! |
| HLREP | INIT+9*, EXIT+2! |
| HLRESLT | GENERATE+4, GENERATE+5!, EXIT+5! |
| HLRFREQ | EXIT+2! |
| HLSAN | EXIT+2! |
| HLSCS | INIT+8*, EXIT+2! |
| HLSFREQ | EXIT+3! |
| HLTYPE | EXIT+3! |
| HLX | EXIT+3! |
| INT | INIT+3*, INIT+4, INIT+6! |
| MTN | GETSFLAG~, GETSFLAG+1, GETSFLAG+3*, GETSFLAG+6 |
| OCXSEG | EXIT+3! |
| OCXTSPI | EXIT+3! |
| RA44Q | OBR21+25*, OBR21+26, OBR21+30! |
| RA44Q(0 | OBR21+26*, OBR21+29 |
| RA4Q | OBR21+27*, OBR21+28, OBR21+29, OBR21+30! |
| RA4Q(0 | OBR21+28*, OBR21+29 |
| RA7002 | OBR21~, OBR21+19, OBR21+24, OBR21+27 |
| RA791Q | OBR21+24*, OBR21+25, OBR21+29, OBR21+30! |
| RA792Q | OBR21+19*, OBR21+20, OBR21+30! |
| RA792Q(0 | OBR21+20*, OBR21+22 |
| >> RACN0 | OBXPRC+1, OBXPRC+2 |
| >> RACNI | OBXTCM+6 |
| >> RADFN | OBXTCM+6 |
| >> RADTI | OBXTCM+6 |
| >> RAEID | INIT+1, INIT+2, GENERATE+2, GENERATE+4, GENERATE+5 |
| >> RAI | OBXMOD+6* |
| RAIEN | CPTMOD~, CPTMOD+5 |
| >> RAN | OBX11+7, OBX11+10, OBXPRC+1, OBXPRC+2, OBXMOD+3, OBXMOD+7*, OBXMOD+9, OBXMOD+12, OBXTCM+8*, OBXTCM+9 , OBXTCM+11, OBXTCM+12, OBXTCM+17, OBXTCM+20, OBXTCM+21, OBXTCM+22 |
| RAOBR | EXIT+3! |
| RAORC | EXIT+3! |
| RAPCS | OBR21+18*, OBR21+29, OBR21+30! |
| RAPID | EXIT+3! |
| RAPSS | OBR21+18*, OBR21+22, OBR21+29, OBR21+30! |
| RAPURGE | EXIT+3! |
| RAPV1 | EXIT+3! |
| RAREFDOC | EXIT+3! |
| >> RARPT | OBX11+2 |
| RARPTIEN | OBX11+1~, OBX11+2*, OBX11+3, OBX11+9 |
| RAX | OBR21+18~*, OBR21+22*, OBR21+29*, OBR21+31 |
| RAZCPT | EXIT+3! |
| RAZDAYCS | EXIT+4! |
| RAZDTE | EXIT+4! |
| RAZMODE | EXIT+4! |
| RAZNME | EXIT+4! |
| RAZORD | EXIT+4! |
| RAZORD1 | EXIT+4! |
| RAZPHONE | EXIT+4! |
| RAZPMOD | EXIT+4! |
| RAZPREG | EXIT+4! |
| RAZPROC | EXIT+4! |
| RAZRPT | EXIT+5! |
| RAZRXAM | EXIT+5! |
| RAZTRANS | EXIT+5! |
| RAZXAM | EXIT+5! |
| SAN | GETSFLAG~, GETSFLAG+1, GETSFLAG+2*, GETSFLAG+6 |
| U | OBX11+3, CPTMOD+9, GETSFLAG+6, OBR21+19, OBR21+22, OBR21+24, OBR21+25, OBR21+27 |
| UCS | ESCAPE+9~, ESCAPE+10*, ESCAPE+12 |
| UEC | ESCAPE+9~, ESCAPE+10*, ESCAPE+14, ESCAPE+16, ESCAPE+17, ESCAPE+18, ESCAPE+19, ESCAPE+20 |
| UFS | ESCAPE+9~, ESCAPE+10*, ESCAPE+11 |
| URS | ESCAPE+9~, ESCAPE+10*, ESCAPE+13 |
| USS | ESCAPE+9~, ESCAPE+10*, ESCAPE+15 |
| VER | GETSFLAG~, GETSFLAG+1, GETSFLAG+5*, GETSFLAG+6 |
| X | OBXPRC+2*, DOB~, DOB+1*, DOB+2*, DOB+3, CPTMOD+5~*, CPTMOD+9 |
| >> X0 | OBXMOD+6*, OBXMOD+9 |
| >> X1 | OBXMOD+6*, OBXMOD+8 |
| X3 | OBXMOD+2~, OBXMOD+8*, OBXMOD+9, OBXMOD+12, OBXTCM+5~, OBXTCM+17*, OBXTCM+18*, OBXTCM+19, OBXTCM+20 |
| X4 | OBXTCM+5~, OBXTCM+6*, OBXTCM+7, OBXTCM+11, OBXTCM+12, OBXTCM+17, OBXTCM+19*, OBXTCM+21 |
| XDTA | ESCAPE~, ESCAPE+11*, ESCAPE+12*, ESCAPE+13*, ESCAPE+14*, ESCAPE+15*, ESCAPE+16*, ESCAPE+17*, ESCAPE+18*, ESCAPE+19* , ESCAPE+20*, ESCAPE+21 |
| Y | OBX11+1~, OBX11+3*, OBX11+7, OBXMOD+3 |
| Y(1 | OBXMOD+4, OBXMOD+6 |
| Y(2 | OBXMOD+6 |