LA7VOBX ;VA/DALOI/JMC - LAB OBX Segment message builder ; 13-Aug-2013 09:09 ; MKK
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,1018,64,1027,68,1033**;NOV 01, 1997
;
; Reference to $$LOSVUID^HDISVAP supported by DBIA #4801
;
OBX(LRDFN,LRSS,LRIDT,LRSB,LA7ARRAY,LA7OBXSN,LA7FS,LA7ECH,LA7NVAF) ; Observation/Result segment for Lab Results.
; Call with LRDFN = ien of entry in file #63
; LRSS = file #63 subscript
; LRIDT = inverse date/time of specimen
; LRSB = ien of dataname if "CH" subscript or global subscript for others
; LA7ARRAY = array to return OBX segment, pass by reference
; LA7OBXSN = OBX segment sequence number, pass by reference
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA7NVAF = flag indicating type of receiving facility (see NVAF^LA7VHLU2)
;
; Returns LA7OBXSN = current OBX segment sequence number
; LA7ARRAY = array containing OBX segment
;
N LA7OBX,LA7VAL,LA7X
;
; No subscript/patient/specimen
I $G(LRSS)=""!('$G(LRDFN))!('$G(LRIDT)) Q
;
S LA7NVAF=$G(LA7NVAF)
;
; "CH" subscript
I LRSS="CH" D CH^LA7VOBX1 Q
;
; "MI" subscript
I LRSS="MI" D MI^LA7VOBX3 Q
;
; "SP" subscript
I LRSS="SP" D AP^LA7VOBX2 Q
;
; "CY" subscript
I LRSS="CY" D AP^LA7VOBX2 Q
;
; "EM" subscript
I LRSS="EM" D AP^LA7VOBX2 Q
;
Q
;
;
OBX1(LA7OBXSN) ; Build OBX-1 sequence - Set ID (sequence number)
; Call with LA7OBXSN = sequence number (pass by reference)
;
N LA7Y
;
; increment sequence number
S (LA7OBXSN,LA7Y)=$G(LA7OBXSN)+1
;
Q LA7Y
;
;
OBX2(LA7FILE,LA7FIELD) ; Build OBX-2 sequence - Value type
; Call with LA7FILE = FileMan DD file/subfield number
; LA7FIELD = Fileman DD field number
;
; Returns LA7VAL = value type (HL7 table 0125)
;
N LA7ERR,LA7TYP,LA7VAL
;
D OBX2^LA7VOBXA
;
Q LA7VAL
;
;
OBX3(LA7NLT,LA7953,LA7ALT,LA7FS,LA7ECH,LA7INTYP) ; Build OBX-3 sequence - Observation identifier field
; Call with LA7NLT = NLT code.
; LA7953 = LOINC code
; LA7ALT = alternate code - local/non-VA (code^text^system^local code^local text^99VAnn)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA7INTYP = type of interface from 62.48
;
N LA764,LA7I,LA7J,LA7LN,LA7X,LA7Y
;
D OBX3^LA7VOBXA
;
Q LA7Y
;
;
OBX4(LA7VAL,LA7FS,LA7ECH) ; Build OBX-4 sequence - Observation sub-ID
; Call with LA7VAL = value of the observation
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = Observation sub-ID checked for escape encoding
;
N LA7Y
;
S LA7Y=$$CHKDATA^LA7VHLU3(LA7VAL,LA7FS_LA7ECH)
;
Q LA7Y
;
;
OBX5(LA7VAL,LA7OBX2,LA7FS,LA7ECH) ; Build OBX-5 sequence - Observation value
; Call with LA7VAL = value of the observation
; LA7OBX2 = value type
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
N LA7Y
;
D OBX5^LA7VOBXA
;
Q LA7Y
;
;
OBX5M(LA7FN,LA7IENS,LA7FLD,LA7WP,LA7FS,LA7ECH) ; Build OBX-5 sequence - Observation value - multi-line textual result
; Call with LA7FN = File number or subfile
; LA7IENS = Standard FileMan IENS indicating internal entry numbers
; LA7FLD = Field number
; LA7WP = array passed by reference to return text
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7WP = subscripted array containing text of results
; LA7WP(0), LA7WP(1), LA7WP(2),...
;
N LA7ERR,LA7I,LA7J,LA7TYPE,LA7X,LA7Y
;
D OBX5M^LA7VOBXA
;
Q
;
;
OBX5R(LA7VAL,LA7OBX2,LA7FS,LA7ECH) ; Build OBX-5 sequence with repetition - Observation value
; Call with LA7VAL = array passed by reference
; LA7OBX2 = value type
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
N LA7I,LA7Y
;
D OBX5R^LA7VOBXA
;
Q LA7Y
;
;
OBX6(LA7VAL,LA764061,LA7FS,LA7ECH,LA7INTYP) ; Build OBX-6 sequence - Units
; Call with LA7VAL = Units if in external format
; LA764061 = ien of units in #64.061
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA7INTYP = type of interface from 62.48
; Returns units
;
N LA7Y
;
D OBX6^LA7VOBXA
;
Q LA7Y
;
;
OBX7(LA7LOW,LA7HIGH,LA7FS,LA7ECH) ; Build OBX-7 sequence - Reference range
; Call with LA7LOW = lower limit
; LA7HIGH = upper limit
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; Returns reference range
;
N LA7Y
;
D OBX7^LA7VOBXA
;
Q LA7Y
;
;
OBX8(LA7FLAG) ; Build OBX-8 sequence - Abnormal flags
; Call with LA7FLAG = DHCP Lab normalcy flag
; Returns abnormal flags based on HL7 table 0078
;
N LA7Y
;
S LA7Y=$TR(LA7FLAG,"*",$E(LA7FLAG,1)) ; abnormal flag
Q LA7Y
;
;
OBX11(LA7FLAG) ; Build OBX-11 sequence - Observation result status
; Call with LA7FLAG = DHCP Lab status flag
; Returns result status based on HL7 table 0085
;
N LA7Y
;
S LA7Y=""
;
I LA7FLAG="canc" S LA7Y="X"
I LA7FLAG="comment" S LA7Y="F"
I LA7FLAG="pending" S LA7Y="I"
I LA7FLAG="F" S LA7Y="F"
I LA7FLAG="P" S LA7Y="P"
I LA7FLAG="A" S LA7Y="C"
I LA7FLAG="C" S LA7Y="C"
I LA7FLAG="W" S LA7Y="W"
;
Q LA7Y
;
;
OBX13(LA7VAL,LA7SRC,LA7FS,LA7ECH) ; Build OBX-13 sequence - User defined access checks
; Call with LA7VAL = access screen to expand
; LA7SRC = source of access screen
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = access screen text or VUID
;
N LA7Y
S LA7Y=""
;
; Expanding antibiotic susceptibility display screen
; Send VUID instead of text for this code to HDR
I $E(LA7SRC,1,3)="MIS" D
. I LA7SRC="MIS-HDR",$T(LOSVUID^HDISVAP)'="" S LA7Y=$$LOSVUID^HDISVAP(LA7VAL) Q
. S LA7Y=$S(LA7VAL="A":"ALWAYS DISPLAY",LA7VAL="N":"NEVER DISPLAY",LA7VAL="R":"RESTRICT DISPLAY",1:"")
;
S LA7Y=$$CHKDATA^LA7VHLU3(LA7Y,LA7FS_LA7ECH)
;
Q LA7Y
;
;
OBX14(LA7DT) ; Build OBX-14 sequence - date/time of observation
; Call with LA7DT = FileMan date/time
; Returns OBX-14 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBX15(LA74,LA7FS,LA7ECH) ; Build OBX-15 sequence - Producer's ID field
; Call with LA74 = ien of institution in file #4
; if null/undefined then use Kernel Site file.
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns facility that performed the testing (ID^text^99VA4^CLIA id^^99VACLIA)
;
N LA7X,LA7Y
S LA7Y=$$INST^LA7VHLU4(LA74,LA7FS,LA7ECH)
;
; Include CLIA identifier if found.
S LA7X=$$ID^XUAF4("CLIA",LA74)
I LA7X'="" S $P(LA7Y,$E(LA7ECH),4)=LA7X,$P(LA7Y,$E(LA7ECH),6)="99VACLIA"
;
Q LA7Y
;
;
OBX16(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBX-16 sequence - Responsible observer field
; Call with LA7DUZ = DUZ of verifying user
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBX-16 sequence
;
Q $$XCN^LA7VHLU9(LA7DUZ,LA7DIV,LA7FS,LA7ECH,0,1)
;
;
OBX17(LA7VAL,LA7NLT,LA7FS,LA7ECH) ; Build OBX-17 sequence - Observation method field
; Call with LA7VAL = WKLD SUFFIX CODES #64.2 with leading decimal
; LA7NLT = Result NLT code
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = OBX-17 sequence
;
N LA764,LA7X,LA7Y,LA7Z
;
D OBX17^LA7VOBXA
;
Q LA7Y
;
;
OBX18(LA7VAL,LA7FS,LA7ECH) ; Build OBX-18 sequence - Equipment entity identifier field
; Call with LA7VAL = Equipment entity identifier
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7X = OBX-18 sequence
;
N LA7I,LA7J,LA7X,LA7Y
;
D OBX18^LA7VOBXA
;
Q LA7X
;
;
OBX19(LA7DT) ; Build OBX-19 sequence - date/time of the analysis
; Call with LA7DT = FileMan date/time
; Returns OBX-19 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBX23(LA7FN,LA7DA,LA7FS,LA7ECH) ; Build OBX-23 sequence - Performing organization name
; Call with LA7FN = Source File number
; Presently #4 (INSTITUTION)
; LA7DA = Entry in source file
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBX-23 sequence
;
Q $$XON^LA7VHLU4(LA7FN,LA7DA,1,LA7FS,LA7ECH)
;
;
OBX24(LA7FN,LA7DA,LA7DT,LA7FS,LA7ECH) ; Build OBX-24 sequence - Performing organization address
; Call with LA7FN = Source File number
; Presently file #2 (PATIENT), #4 (INSTITUTION) or #200 (NEW PERSON)
; LA7DA = Entry in source file
; LA7DT = As of date in FileMan format
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBX-24 sequence
;
Q $$XAD^LA7VHLU4(LA7FN,LA7DA,LA7DT,LA7FS,LA7ECH)
;
;
OBX25(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBX-25 sequence - Performing organization medical director
; Call with LA7DUZ = DUZ of medical director
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBX-25 sequence
;
Q $$XCN^LA7VHLU9(LA7DUZ,LA7DIV,LA7FS,LA7ECH)
LA7VOBX ;VA/DALOI/JMC - LAB OBX Segment message builder ; 13-Aug-2013 09:09 ; MKK
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,1018,64,1027,68,1033**;NOV 01, 1997
+2 ;
+3 ; Reference to $$LOSVUID^HDISVAP supported by DBIA #4801
+4 ;
OBX(LRDFN,LRSS,LRIDT,LRSB,LA7ARRAY,LA7OBXSN,LA7FS,LA7ECH,LA7NVAF) ; Observation/Result segment for Lab Results.
+1 ; Call with LRDFN = ien of entry in file #63
+2 ; LRSS = file #63 subscript
+3 ; LRIDT = inverse date/time of specimen
+4 ; LRSB = ien of dataname if "CH" subscript or global subscript for others
+5 ; LA7ARRAY = array to return OBX segment, pass by reference
+6 ; LA7OBXSN = OBX segment sequence number, pass by reference
+7 ; LA7FS = HL field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA7NVAF = flag indicating type of receiving facility (see NVAF^LA7VHLU2)
+10 ;
+11 ; Returns LA7OBXSN = current OBX segment sequence number
+12 ; LA7ARRAY = array containing OBX segment
+13 ;
+14 NEW LA7OBX,LA7VAL,LA7X
+15 ;
+16 ; No subscript/patient/specimen
+17 IF $GET(LRSS)=""!('$GET(LRDFN))!('$GET(LRIDT))
QUIT
+18 ;
+19 SET LA7NVAF=$GET(LA7NVAF)
+20 ;
+21 ; "CH" subscript
+22 IF LRSS="CH"
DO CH^LA7VOBX1
QUIT
+23 ;
+24 ; "MI" subscript
+25 IF LRSS="MI"
DO MI^LA7VOBX3
QUIT
+26 ;
+27 ; "SP" subscript
+28 IF LRSS="SP"
DO AP^LA7VOBX2
QUIT
+29 ;
+30 ; "CY" subscript
+31 IF LRSS="CY"
DO AP^LA7VOBX2
QUIT
+32 ;
+33 ; "EM" subscript
+34 IF LRSS="EM"
DO AP^LA7VOBX2
QUIT
+35 ;
+36 QUIT
+37 ;
+38 ;
OBX1(LA7OBXSN) ; Build OBX-1 sequence - Set ID (sequence number)
+1 ; Call with LA7OBXSN = sequence number (pass by reference)
+2 ;
+3 NEW LA7Y
+4 ;
+5 ; increment sequence number
+6 SET (LA7OBXSN,LA7Y)=$GET(LA7OBXSN)+1
+7 ;
+8 QUIT LA7Y
+9 ;
+10 ;
OBX2(LA7FILE,LA7FIELD) ; Build OBX-2 sequence - Value type
+1 ; Call with LA7FILE = FileMan DD file/subfield number
+2 ; LA7FIELD = Fileman DD field number
+3 ;
+4 ; Returns LA7VAL = value type (HL7 table 0125)
+5 ;
+6 NEW LA7ERR,LA7TYP,LA7VAL
+7 ;
+8 DO OBX2^LA7VOBXA
+9 ;
+10 QUIT LA7VAL
+11 ;
+12 ;
OBX3(LA7NLT,LA7953,LA7ALT,LA7FS,LA7ECH,LA7INTYP) ; Build OBX-3 sequence - Observation identifier field
+1 ; Call with LA7NLT = NLT code.
+2 ; LA7953 = LOINC code
+3 ; LA7ALT = alternate code - local/non-VA (code^text^system^local code^local text^99VAnn)
+4 ; LA7FS = HL field separator
+5 ; LA7ECH = HL encoding characters
+6 ; LA7INTYP = type of interface from 62.48
+7 ;
+8 NEW LA764,LA7I,LA7J,LA7LN,LA7X,LA7Y
+9 ;
+10 DO OBX3^LA7VOBXA
+11 ;
+12 QUIT LA7Y
+13 ;
+14 ;
OBX4(LA7VAL,LA7FS,LA7ECH) ; Build OBX-4 sequence - Observation sub-ID
+1 ; Call with LA7VAL = value of the observation
+2 ; LA7FS = HL field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns LA7Y = Observation sub-ID checked for escape encoding
+6 ;
+7 NEW LA7Y
+8 ;
+9 SET LA7Y=$$CHKDATA^LA7VHLU3(LA7VAL,LA7FS_LA7ECH)
+10 ;
+11 QUIT LA7Y
+12 ;
+13 ;
OBX5(LA7VAL,LA7OBX2,LA7FS,LA7ECH) ; Build OBX-5 sequence - Observation value
+1 ; Call with LA7VAL = value of the observation
+2 ; LA7OBX2 = value type
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 NEW LA7Y
+7 ;
+8 DO OBX5^LA7VOBXA
+9 ;
+10 QUIT LA7Y
+11 ;
+12 ;
OBX5M(LA7FN,LA7IENS,LA7FLD,LA7WP,LA7FS,LA7ECH) ; Build OBX-5 sequence - Observation value - multi-line textual result
+1 ; Call with LA7FN = File number or subfile
+2 ; LA7IENS = Standard FileMan IENS indicating internal entry numbers
+3 ; LA7FLD = Field number
+4 ; LA7WP = array passed by reference to return text
+5 ; LA7FS = HL field separator
+6 ; LA7ECH = HL encoding characters
+7 ;
+8 ; Returns LA7WP = subscripted array containing text of results
+9 ; LA7WP(0), LA7WP(1), LA7WP(2),...
+10 ;
+11 NEW LA7ERR,LA7I,LA7J,LA7TYPE,LA7X,LA7Y
+12 ;
+13 DO OBX5M^LA7VOBXA
+14 ;
+15 QUIT
+16 ;
+17 ;
OBX5R(LA7VAL,LA7OBX2,LA7FS,LA7ECH) ; Build OBX-5 sequence with repetition - Observation value
+1 ; Call with LA7VAL = array passed by reference
+2 ; LA7OBX2 = value type
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 NEW LA7I,LA7Y
+7 ;
+8 DO OBX5R^LA7VOBXA
+9 ;
+10 QUIT LA7Y
+11 ;
+12 ;
OBX6(LA7VAL,LA764061,LA7FS,LA7ECH,LA7INTYP) ; Build OBX-6 sequence - Units
+1 ; Call with LA7VAL = Units if in external format
+2 ; LA764061 = ien of units in #64.061
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ; LA7INTYP = type of interface from 62.48
+6 ; Returns units
+7 ;
+8 NEW LA7Y
+9 ;
+10 DO OBX6^LA7VOBXA
+11 ;
+12 QUIT LA7Y
+13 ;
+14 ;
OBX7(LA7LOW,LA7HIGH,LA7FS,LA7ECH) ; Build OBX-7 sequence - Reference range
+1 ; Call with LA7LOW = lower limit
+2 ; LA7HIGH = upper limit
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ; Returns reference range
+6 ;
+7 NEW LA7Y
+8 ;
+9 DO OBX7^LA7VOBXA
+10 ;
+11 QUIT LA7Y
+12 ;
+13 ;
OBX8(LA7FLAG) ; Build OBX-8 sequence - Abnormal flags
+1 ; Call with LA7FLAG = DHCP Lab normalcy flag
+2 ; Returns abnormal flags based on HL7 table 0078
+3 ;
+4 NEW LA7Y
+5 ;
+6 ; abnormal flag
SET LA7Y=$TRANSLATE(LA7FLAG,"*",$EXTRACT(LA7FLAG,1))
+7 QUIT LA7Y
+8 ;
+9 ;
OBX11(LA7FLAG) ; Build OBX-11 sequence - Observation result status
+1 ; Call with LA7FLAG = DHCP Lab status flag
+2 ; Returns result status based on HL7 table 0085
+3 ;
+4 NEW LA7Y
+5 ;
+6 SET LA7Y=""
+7 ;
+8 IF LA7FLAG="canc"
SET LA7Y="X"
+9 IF LA7FLAG="comment"
SET LA7Y="F"
+10 IF LA7FLAG="pending"
SET LA7Y="I"
+11 IF LA7FLAG="F"
SET LA7Y="F"
+12 IF LA7FLAG="P"
SET LA7Y="P"
+13 IF LA7FLAG="A"
SET LA7Y="C"
+14 IF LA7FLAG="C"
SET LA7Y="C"
+15 IF LA7FLAG="W"
SET LA7Y="W"
+16 ;
+17 QUIT LA7Y
+18 ;
+19 ;
OBX13(LA7VAL,LA7SRC,LA7FS,LA7ECH) ; Build OBX-13 sequence - User defined access checks
+1 ; Call with LA7VAL = access screen to expand
+2 ; LA7SRC = source of access screen
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns LA7Y = access screen text or VUID
+7 ;
+8 NEW LA7Y
+9 SET LA7Y=""
+10 ;
+11 ; Expanding antibiotic susceptibility display screen
+12 ; Send VUID instead of text for this code to HDR
+13 IF $EXTRACT(LA7SRC,1,3)="MIS"
Begin DoDot:1
+14 IF LA7SRC="MIS-HDR"
IF $TEXT(LOSVUID^HDISVAP)'=""
SET LA7Y=$$LOSVUID^HDISVAP(LA7VAL)
QUIT
+15 SET LA7Y=$SELECT(LA7VAL="A":"ALWAYS DISPLAY",LA7VAL="N":"NEVER DISPLAY",LA7VAL="R":"RESTRICT DISPLAY",1:"")
End DoDot:1
+16 ;
+17 SET LA7Y=$$CHKDATA^LA7VHLU3(LA7Y,LA7FS_LA7ECH)
+18 ;
+19 QUIT LA7Y
+20 ;
+21 ;
OBX14(LA7DT) ; Build OBX-14 sequence - date/time of observation
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBX-14 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBX15(LA74,LA7FS,LA7ECH) ; Build OBX-15 sequence - Producer's ID field
+1 ; Call with LA74 = ien of institution in file #4
+2 ; if null/undefined then use Kernel Site file.
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns facility that performed the testing (ID^text^99VA4^CLIA id^^99VACLIA)
+7 ;
+8 NEW LA7X,LA7Y
+9 SET LA7Y=$$INST^LA7VHLU4(LA74,LA7FS,LA7ECH)
+10 ;
+11 ; Include CLIA identifier if found.
+12 SET LA7X=$$ID^XUAF4("CLIA",LA74)
+13 IF LA7X'=""
SET $PIECE(LA7Y,$EXTRACT(LA7ECH),4)=LA7X
SET $PIECE(LA7Y,$EXTRACT(LA7ECH),6)="99VACLIA"
+14 ;
+15 QUIT LA7Y
+16 ;
+17 ;
OBX16(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBX-16 sequence - Responsible observer field
+1 ; Call with LA7DUZ = DUZ of verifying user
+2 ; LA7DIV = Institution of user
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns OBX-16 sequence
+7 ;
+8 QUIT $$XCN^LA7VHLU9(LA7DUZ,LA7DIV,LA7FS,LA7ECH,0,1)
+9 ;
+10 ;
OBX17(LA7VAL,LA7NLT,LA7FS,LA7ECH) ; Build OBX-17 sequence - Observation method field
+1 ; Call with LA7VAL = WKLD SUFFIX CODES #64.2 with leading decimal
+2 ; LA7NLT = Result NLT code
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns LA7Y = OBX-17 sequence
+7 ;
+8 NEW LA764,LA7X,LA7Y,LA7Z
+9 ;
+10 DO OBX17^LA7VOBXA
+11 ;
+12 QUIT LA7Y
+13 ;
+14 ;
OBX18(LA7VAL,LA7FS,LA7ECH) ; Build OBX-18 sequence - Equipment entity identifier field
+1 ; Call with LA7VAL = Equipment entity identifier
+2 ; LA7FS = HL field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns LA7X = OBX-18 sequence
+6 ;
+7 NEW LA7I,LA7J,LA7X,LA7Y
+8 ;
+9 DO OBX18^LA7VOBXA
+10 ;
+11 QUIT LA7X
+12 ;
+13 ;
OBX19(LA7DT) ; Build OBX-19 sequence - date/time of the analysis
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBX-19 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBX23(LA7FN,LA7DA,LA7FS,LA7ECH) ; Build OBX-23 sequence - Performing organization name
+1 ; Call with LA7FN = Source File number
+2 ; Presently #4 (INSTITUTION)
+3 ; LA7DA = Entry in source file
+4 ; LA7FS = HL field separator
+5 ; LA7ECH = HL encoding characters
+6 ;
+7 ; Returns OBX-23 sequence
+8 ;
+9 QUIT $$XON^LA7VHLU4(LA7FN,LA7DA,1,LA7FS,LA7ECH)
+10 ;
+11 ;
OBX24(LA7FN,LA7DA,LA7DT,LA7FS,LA7ECH) ; Build OBX-24 sequence - Performing organization address
+1 ; Call with LA7FN = Source File number
+2 ; Presently file #2 (PATIENT), #4 (INSTITUTION) or #200 (NEW PERSON)
+3 ; LA7DA = Entry in source file
+4 ; LA7DT = As of date in FileMan format
+5 ; LA7FS = HL field separator
+6 ; LA7ECH = HL encoding characters
+7 ;
+8 ; Returns OBX-24 sequence
+9 ;
+10 QUIT $$XAD^LA7VHLU4(LA7FN,LA7DA,LA7DT,LA7FS,LA7ECH)
+11 ;
+12 ;
OBX25(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBX-25 sequence - Performing organization medical director
+1 ; Call with LA7DUZ = DUZ of medical director
+2 ; LA7DIV = Institution of user
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns OBX-25 sequence
+7 ;
+8 QUIT $$XCN^LA7VHLU9(LA7DUZ,LA7DIV,LA7FS,LA7ECH)
