Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LA7VOBX

LA7VOBX.m

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