RAHLRU ;HISC/GJC - utilities for HL7 messaging ; Apr 26, 2023@12:41:24
Source file <RAHLRU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBR16 | ;set OBR-16 Requesting Physician from the exam 70.03;14
|
|
| OBX11 | ; set OBX-11, = 12th piece of string where piece 1 is "OBX"
|
|
| 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 |
|
| OBXPRC | ;Compile 'OBX' Segment for Procedure
|
|
| OBXMOD | ; Compile 'OBX' segments for both types of modifiers
; Procedure modifiers |
|
| OBXTCM | ; Compile 'OBX' segment for latest TECH COMMENT
|
|
| INIT | ; initialize HL7 variables; called from RAHLR & RAHLRPT
|
|
| DOB(X) | ;strip off trailing "0"'s from the date of birth
|
|
| CPTMOD(RAIEN,HLECH,DT) | ;return OBX-5 as it pertains to CPT Modifiers
|
|
| GETSFLAG(SAN,MTN,ETN,VER) | ;Return HL message flag (79.721,1)
|
|
| OBR21(HLECH,RA7002) | ;builds the OBR-21 field; called from RAHLR1A
|
|
| BLDHLP | ;build the HLP("EXCLUDE SUBSCRIBER",n) array
; is HLP("EXCLUDE SUBSCRIBER",n) defined? If yes get 'n' |
|
| HLPEXSUB(A) | ;determine the last subscript (n) of a local array
|
|
| GENERATE | ;Broadcast the HL7 message (courtesy of the VistA HL7 application)
|
|
| EXIT | ;kill the variables; exit the process...
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
