- LA7VOBX ;DALOI/JMC - LAB OBX Segment message builder;Jan 7, 2008
- ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,68,74**;Sep 27, 1994;Build 229
- ;
- ; 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)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7VOBX 9718 printed Jan 18, 2025@02:42:04 Page 2
- LA7VOBX ;DALOI/JMC - LAB OBX Segment message builder;Jan 7, 2008
- +1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,68,74**;Sep 27, 1994;Build 229
- +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)