LA7VOBR ;DALOI/JMC - LAB OBR segment builder ;Feb 26, 2008
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,68,74**;Sep 27, 1994;Build 229
;
Q
;
;
OBR1(LA7OBRSN) ; Build OBR-1 sequence - set segment id
; Call with LA7OBRSN = segment id (pass by reference)
;
S LA7OBRSN=$G(LA7OBRSN)+1
Q LA7OBRSN
;
;
OBR2(LA7ID,LA7FS,LA7ECH) ; Build OBR-2 sequence - placer's specimen id
; Call with LA7ID = placer's specimen id (accn number/UID)
; LA7ID("NMSP") = application namespace (optional)
; LA7ID("SITE") = placer facility
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
N LA7X,LA7Y
D OBR2^LA7VOBRA
Q LA7Y
;
;
OBR3(LA7ID,LA7FS,LA7ECH) ; Build OBR-3 sequence - filler's specimen id
; Call with LA7ID = filler's specimen id (accn number/UID)
; LA7ID("NMSP") = application namespace (optional)
; LA7ID("SITE") = filler facility
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
N LA7X,LA7Y
D OBR3^LA7VOBRA
Q LA7Y
;
;
OBR4(LA7NLT,LA760,LA7ALT,LA7FS,LA7ECH) ; Build OBR-4 sequence - Universal service ID
; Call with LA7NLT = NLT test code
; LA760 = file #60 ien if known
; LA7ALT = alternate order code and system in form
; test code^test name^coding system
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = OBR-4 sequence
;
N LA764,LA7COMP,LA7ERR,LA7TN,LA7X,LA7Y,LA7Z
D OBR4^LA7VOBRA
Q LA7Y
;
;
OBR6(LA7DT) ; Build OBR-6 sequence - requested date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-6 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBR7(LA7DT) ; Build OBR-7 sequence - collection date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-7 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBR8(LA7DT) ; Build OBR-8 sequence - collection end date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-8 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBR9(LA7VOL,LA764061,LA7FS,LA7ECH) ; Build OBR-9 sequence - collection volume
; Call with LA7VOL = collection volume
; LA764061 = units (pointer to #64.061)
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
; Returns OBR-9 sequence
;
N LA7IENS,LA7X,LA7Y
D OBR9^LA7VOBRA
Q LA7Y
;
;
OBR11(LA7X) ; Build OBR-11 sequence - specimen action code
; Call with LA7X = HL7 Table 0065 entry
; Returns OBR-11 sequence
;
; JMC-12/09/99 Need to expand this function to determine based on collection status
;
Q LA7X
;
;
OBR12(LRDFN,LA7FS,LA7ECH) ; Build OBR-12 sequence - patient info
; Call with LRDFN = ien of patient in #63
; LA7FS = HL7 field separator
; LA7ECH = HL7 encoding characters
; Returns OBR-12 sequence
;
N LA7X
S LRDFN=$G(LRDFN),LA7ECH=$G(LA7ECH)
; Infection Warning
S LA7X=$P($G(^LR(LRDFN,.091)),"^")
I LA7X'="" D
. S LA7X=$$CHKDATA^LA7VHLU3(LA7X,LA7FS_LA7ECH)
. S LA7X=$E(LA7ECH,1)_LA7X
Q LA7X
;
;
OBR13(LA7TXT,LA7FS,LA7ECH) ; Build OBR-13 sequence - relevant clinical info
; Call with LA7TXT = text to place into OBR-13
; LA7FS = HL7 field separator
; LA7ECH = HL7 encoding characters
; Returns OBR-12 sequence
;
N LA7X
S LA7X=$$CHKDATA^LA7VHLU3(LA7TXT,LA7FS_LA7ECH)
Q LA7X
;
;
OBR14(LA7DT) ; Build OBR-14 sequence - specimen arrival date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-14 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBR15(LA761,LA762,LA7ALT,LA7FS,LA7ECH,LA7CM,LA7SNM) ; Build OBR-15 sequence - specimen source
; Call with LA761 = ien of topography file #61
; LA762 = ien of collection sample in file #62
; LA7ALT = alternate non-HL7 codes/text/coding system in form -
; specimen code^specimen text^specimen system^CONTROL^collection sample code^collection sample^collection system^alt specimen SNOMED^alt collection SNOMED.
; "CONTROL" only present when specimen is a lab control from file #62.3.
; presence of these will override standard HL7 tables
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
; LA7CM = ien of shipping condition file #62.93 (collection method)
; LA7SNM = 1-flag to send SNOMED CT instead of HL7 table 0070
;
; Returns OBR-15 sequence in LA7Y
;
N LA764061,LA7COMP,LA7ERR,LA7X,LA7Y,LA7Z,X,Y
D OBR15^LA7VOBRB
Q LA7Y
;
;
OBR18(LA7X,LA7FS,LA7ECH) ; Build OBR-18 sequence - Placer's field #1
; Call with LA7X = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-18 sequence
;
N LA7I,LA7Y,LA7Z
D OBRPF^LA7VOBRA
Q LA7Y
;
;
OBR19(LA7X,LA7FS,LA7ECH) ; Build OBR-19 sequence - Placer's field #2
; Call with LA7X() = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-19 sequence
;
N LA7I,LA7Y,LA7Z
D OBRPF^LA7VOBRA
Q LA7Y
;
;
OBR20(LA7X,LA7FS,LA7ECH) ; Build OBR-20 sequence - Filler's field #1
; Call with LA7X = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-20 sequence
;
N LA7I,LA7Y,LA7Z
D OBRPF^LA7VOBRA
Q LA7Y
;
;
OBR21(LA7X,LA7FS,LA7ECH) ; Build OBR-21 sequence - Filler's field #2
; Call with LA7X() = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-21 sequence
;
N LA7I,LA7Y,LA7Z
D OBRPF^LA7VOBRA
Q LA7Y
;
;
OBR22(LA7DT) ; Build OBR-22 sequence - date report completed
; Call with LA7DT = FileMan date/time
;
; Returns OBR-22 sequence
;
S LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
Q $$FMTHL7^XLFDT(LA7DT)
;
;
OBR24(LA7SS) ; Build OBR-24 sequence - diagnostic service id
; Call with LA7SS = File #63 subscript^section within subscript
;
; Returns OBR-24 sequence
;
N LA7Y,LA7X
D OBR24^LA7VOBRA
Q LA7Y
;
;
OBR25(LA7FLAG) ; Build OBR-25 sequence - Result status
; Call with LA7FLAG = VistA Lab status flag
; Returns result status based on HL7 table 0123
;
N LA7Y
D OBR25^LA7VOBRA
Q LA7Y
;
;
OBR26(LA7OBX3,LA7OBX4,LA7OBX5,LA7FS,LA7ECH) ; Build OBR-26 sequence - Parent result
; Call with LA7OBX3 = OBX-3 observation id of parent result
; LA7OBX4 = OBX-4 sub-id of parent result
; LA7OBX5 = OBX-5 parent result
; LA7FS = HL7 Field separator
; LA7ECH = HL7 encoding characters
;
N LA7C,LA7SC,LA7Y,LA7Z
D OBR26^LA7VOBRA
Q LA7Y
;
;
OBR27(LA7DUR,LA7DURU,LA76205,LA7FS,LA7ECH) ; Build OBR-27 sequence - Quantity/Timing
; Call with LA7DUR = collection duration
; LA7DURU = duration units (pointer to #64.061)
; LA76205 = test urgency
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-27 sequence
; Since field is same as ORC-7, use builder for ORC-7 field.
;
Q $$ORC7^LA7VORC(LA7DUR,LA7DURU,LA76205,LA7FS,LA7ECH)
;
;
OBR29(LA7PON,LA7FON,LA7FS,LA7ECH) ; Build OBR-29 sequence - Parent
; Call with LA7PON = parent's placer order number
; LA7FON = parent's filler order number
; LA7FS = HL7 field separator
; LA7ECH = HL7 encoding characters
;
N LA7Y,LA7Z
D OBR29^LA7VOBRA
Q LA7Y
;
;
OBR32(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Principle Result Interpreter field
; Call with LA7DUZ = DUZ of verifying user
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-32 sequence
;
N LA7PRI,LA7X
D OBR32^LA7VOBRA
Q LA7PRI
;
;
OBR33(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Assistant Result Interpreter field
; Call with LA7DUZ = DUZ of assistant interpreter
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-33 sequence
;
N LA7ARI,LA7X
D OBR33^LA7VOBRA
Q LA7ARI
;
;
OBR34(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-34 sequence - Technician field
; Call with LA7DUZ = DUZ of technician
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-34 sequence
;
N LA7TECH,LA7X
D OBR34^LA7VOBRA
Q LA7TECH
;
;
OBR35(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-35 sequence - Transcriptionist field
; Call with LA7DUZ = DUZ of transcriptionist
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-35 sequence
;
N LA7TSPT,LA7X
D OBR35^LA7VOBRA
Q LA7TSPT
;
;
OBR44(LA7VAL,LA7FS,LA7ECH) ; Build OBR-44 sequence - Procedure Code
; Call with LA7VAL = Order NLT code
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = OBR-44 sequence
;
N LA764,LA781,LA7X,LA7Y,LA7Z
D OBR44^LA7VOBRA
Q LA7Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7VOBR 9721 printed Sep 02, 2024@18:26:09 Page 2
LA7VOBR ;DALOI/JMC - LAB OBR segment builder ;Feb 26, 2008
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,68,74**;Sep 27, 1994;Build 229
+2 ;
+3 QUIT
+4 ;
+5 ;
OBR1(LA7OBRSN) ; Build OBR-1 sequence - set segment id
+1 ; Call with LA7OBRSN = segment id (pass by reference)
+2 ;
+3 SET LA7OBRSN=$GET(LA7OBRSN)+1
+4 QUIT LA7OBRSN
+5 ;
+6 ;
OBR2(LA7ID,LA7FS,LA7ECH) ; Build OBR-2 sequence - placer's specimen id
+1 ; Call with LA7ID = placer's specimen id (accn number/UID)
+2 ; LA7ID("NMSP") = application namespace (optional)
+3 ; LA7ID("SITE") = placer facility
+4 ; LA7FS = HL7 field separator
+5 ; LA7ECH = HL encoding characters
+6 ;
+7 NEW LA7X,LA7Y
+8 DO OBR2^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR3(LA7ID,LA7FS,LA7ECH) ; Build OBR-3 sequence - filler's specimen id
+1 ; Call with LA7ID = filler's specimen id (accn number/UID)
+2 ; LA7ID("NMSP") = application namespace (optional)
+3 ; LA7ID("SITE") = filler facility
+4 ; LA7FS = HL7 field separator
+5 ; LA7ECH = HL encoding characters
+6 ;
+7 NEW LA7X,LA7Y
+8 DO OBR3^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR4(LA7NLT,LA760,LA7ALT,LA7FS,LA7ECH) ; Build OBR-4 sequence - Universal service ID
+1 ; Call with LA7NLT = NLT test code
+2 ; LA760 = file #60 ien if known
+3 ; LA7ALT = alternate order code and system in form
+4 ; test code^test name^coding system
+5 ; LA7FS = HL7 field separator
+6 ; LA7ECH = HL encoding characters
+7 ;
+8 ; Returns LA7Y = OBR-4 sequence
+9 ;
+10 NEW LA764,LA7COMP,LA7ERR,LA7TN,LA7X,LA7Y,LA7Z
+11 DO OBR4^LA7VOBRA
+12 QUIT LA7Y
+13 ;
+14 ;
OBR6(LA7DT) ; Build OBR-6 sequence - requested date/time
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBR-6 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBR7(LA7DT) ; Build OBR-7 sequence - collection date/time
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBR-7 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBR8(LA7DT) ; Build OBR-8 sequence - collection end date/time
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBR-8 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBR9(LA7VOL,LA764061,LA7FS,LA7ECH) ; Build OBR-9 sequence - collection volume
+1 ; Call with LA7VOL = collection volume
+2 ; LA764061 = units (pointer to #64.061)
+3 ; LA7FS = HL7 field separator
+4 ; LA7ECH = HL encoding characters
+5 ; Returns OBR-9 sequence
+6 ;
+7 NEW LA7IENS,LA7X,LA7Y
+8 DO OBR9^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR11(LA7X) ; Build OBR-11 sequence - specimen action code
+1 ; Call with LA7X = HL7 Table 0065 entry
+2 ; Returns OBR-11 sequence
+3 ;
+4 ; JMC-12/09/99 Need to expand this function to determine based on collection status
+5 ;
+6 QUIT LA7X
+7 ;
+8 ;
OBR12(LRDFN,LA7FS,LA7ECH) ; Build OBR-12 sequence - patient info
+1 ; Call with LRDFN = ien of patient in #63
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL7 encoding characters
+4 ; Returns OBR-12 sequence
+5 ;
+6 NEW LA7X
+7 SET LRDFN=$GET(LRDFN)
SET LA7ECH=$GET(LA7ECH)
+8 ; Infection Warning
+9 SET LA7X=$PIECE($GET(^LR(LRDFN,.091)),"^")
+10 IF LA7X'=""
Begin DoDot:1
+11 SET LA7X=$$CHKDATA^LA7VHLU3(LA7X,LA7FS_LA7ECH)
+12 SET LA7X=$EXTRACT(LA7ECH,1)_LA7X
End DoDot:1
+13 QUIT LA7X
+14 ;
+15 ;
OBR13(LA7TXT,LA7FS,LA7ECH) ; Build OBR-13 sequence - relevant clinical info
+1 ; Call with LA7TXT = text to place into OBR-13
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL7 encoding characters
+4 ; Returns OBR-12 sequence
+5 ;
+6 NEW LA7X
+7 SET LA7X=$$CHKDATA^LA7VHLU3(LA7TXT,LA7FS_LA7ECH)
+8 QUIT LA7X
+9 ;
+10 ;
OBR14(LA7DT) ; Build OBR-14 sequence - specimen arrival date/time
+1 ; Call with LA7DT = FileMan date/time
+2 ; Returns OBR-14 sequence
+3 ;
+4 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+5 QUIT $$FMTHL7^XLFDT(LA7DT)
+6 ;
+7 ;
OBR15(LA761,LA762,LA7ALT,LA7FS,LA7ECH,LA7CM,LA7SNM) ; Build OBR-15 sequence - specimen source
+1 ; Call with LA761 = ien of topography file #61
+2 ; LA762 = ien of collection sample in file #62
+3 ; LA7ALT = alternate non-HL7 codes/text/coding system in form -
+4 ; specimen code^specimen text^specimen system^CONTROL^collection sample code^collection sample^collection system^alt specimen SNOMED^alt collection SNOMED.
+5 ; "CONTROL" only present when specimen is a lab control from file #62.3.
+6 ; presence of these will override standard HL7 tables
+7 ; LA7FS = HL7 field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA7CM = ien of shipping condition file #62.93 (collection method)
+10 ; LA7SNM = 1-flag to send SNOMED CT instead of HL7 table 0070
+11 ;
+12 ; Returns OBR-15 sequence in LA7Y
+13 ;
+14 NEW LA764061,LA7COMP,LA7ERR,LA7X,LA7Y,LA7Z,X,Y
+15 DO OBR15^LA7VOBRB
+16 QUIT LA7Y
+17 ;
+18 ;
OBR18(LA7X,LA7FS,LA7ECH) ; Build OBR-18 sequence - Placer's field #1
+1 ; Call with LA7X = array containing components to store, pass by reference.
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns OBR-18 sequence
+6 ;
+7 NEW LA7I,LA7Y,LA7Z
+8 DO OBRPF^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR19(LA7X,LA7FS,LA7ECH) ; Build OBR-19 sequence - Placer's field #2
+1 ; Call with LA7X() = array containing components to store, pass by reference.
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns OBR-19 sequence
+6 ;
+7 NEW LA7I,LA7Y,LA7Z
+8 DO OBRPF^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR20(LA7X,LA7FS,LA7ECH) ; Build OBR-20 sequence - Filler's field #1
+1 ; Call with LA7X = array containing components to store, pass by reference.
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns OBR-20 sequence
+6 ;
+7 NEW LA7I,LA7Y,LA7Z
+8 DO OBRPF^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR21(LA7X,LA7FS,LA7ECH) ; Build OBR-21 sequence - Filler's field #2
+1 ; Call with LA7X() = array containing components to store, pass by reference.
+2 ; LA7FS = HL7 field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns OBR-21 sequence
+6 ;
+7 NEW LA7I,LA7Y,LA7Z
+8 DO OBRPF^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR22(LA7DT) ; Build OBR-22 sequence - date report completed
+1 ; Call with LA7DT = FileMan date/time
+2 ;
+3 ; Returns OBR-22 sequence
+4 ;
+5 SET LA7DT=$$CHKDT^LA7VHLU1(LA7DT)
+6 QUIT $$FMTHL7^XLFDT(LA7DT)
+7 ;
+8 ;
OBR24(LA7SS) ; Build OBR-24 sequence - diagnostic service id
+1 ; Call with LA7SS = File #63 subscript^section within subscript
+2 ;
+3 ; Returns OBR-24 sequence
+4 ;
+5 NEW LA7Y,LA7X
+6 DO OBR24^LA7VOBRA
+7 QUIT LA7Y
+8 ;
+9 ;
OBR25(LA7FLAG) ; Build OBR-25 sequence - Result status
+1 ; Call with LA7FLAG = VistA Lab status flag
+2 ; Returns result status based on HL7 table 0123
+3 ;
+4 NEW LA7Y
+5 DO OBR25^LA7VOBRA
+6 QUIT LA7Y
+7 ;
+8 ;
OBR26(LA7OBX3,LA7OBX4,LA7OBX5,LA7FS,LA7ECH) ; Build OBR-26 sequence - Parent result
+1 ; Call with LA7OBX3 = OBX-3 observation id of parent result
+2 ; LA7OBX4 = OBX-4 sub-id of parent result
+3 ; LA7OBX5 = OBX-5 parent result
+4 ; LA7FS = HL7 Field separator
+5 ; LA7ECH = HL7 encoding characters
+6 ;
+7 NEW LA7C,LA7SC,LA7Y,LA7Z
+8 DO OBR26^LA7VOBRA
+9 QUIT LA7Y
+10 ;
+11 ;
OBR27(LA7DUR,LA7DURU,LA76205,LA7FS,LA7ECH) ; Build OBR-27 sequence - Quantity/Timing
+1 ; Call with LA7DUR = collection duration
+2 ; LA7DURU = duration units (pointer to #64.061)
+3 ; LA76205 = test urgency
+4 ; LA7FS = HL7 field separator
+5 ; LA7ECH = HL encoding characters
+6 ;
+7 ; Returns OBR-27 sequence
+8 ; Since field is same as ORC-7, use builder for ORC-7 field.
+9 ;
+10 QUIT $$ORC7^LA7VORC(LA7DUR,LA7DURU,LA76205,LA7FS,LA7ECH)
+11 ;
+12 ;
OBR29(LA7PON,LA7FON,LA7FS,LA7ECH) ; Build OBR-29 sequence - Parent
+1 ; Call with LA7PON = parent's placer order number
+2 ; LA7FON = parent's filler order number
+3 ; LA7FS = HL7 field separator
+4 ; LA7ECH = HL7 encoding characters
+5 ;
+6 NEW LA7Y,LA7Z
+7 DO OBR29^LA7VOBRA
+8 QUIT LA7Y
+9 ;
+10 ;
OBR32(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Principle Result Interpreter 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 OBR-32 sequence
+7 ;
+8 NEW LA7PRI,LA7X
+9 DO OBR32^LA7VOBRA
+10 QUIT LA7PRI
+11 ;
+12 ;
OBR33(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Assistant Result Interpreter field
+1 ; Call with LA7DUZ = DUZ of assistant interpreter
+2 ; LA7DIV = Institution of user
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns OBR-33 sequence
+7 ;
+8 NEW LA7ARI,LA7X
+9 DO OBR33^LA7VOBRA
+10 QUIT LA7ARI
+11 ;
+12 ;
OBR34(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-34 sequence - Technician field
+1 ; Call with LA7DUZ = DUZ of technician
+2 ; LA7DIV = Institution of user
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns OBR-34 sequence
+7 ;
+8 NEW LA7TECH,LA7X
+9 DO OBR34^LA7VOBRA
+10 QUIT LA7TECH
+11 ;
+12 ;
OBR35(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-35 sequence - Transcriptionist field
+1 ; Call with LA7DUZ = DUZ of transcriptionist
+2 ; LA7DIV = Institution of user
+3 ; LA7FS = HL field separator
+4 ; LA7ECH = HL encoding characters
+5 ;
+6 ; Returns OBR-35 sequence
+7 ;
+8 NEW LA7TSPT,LA7X
+9 DO OBR35^LA7VOBRA
+10 QUIT LA7TSPT
+11 ;
+12 ;
OBR44(LA7VAL,LA7FS,LA7ECH) ; Build OBR-44 sequence - Procedure Code
+1 ; Call with LA7VAL = Order NLT code
+2 ; LA7FS = HL field separator
+3 ; LA7ECH = HL encoding characters
+4 ;
+5 ; Returns LA7Y = OBR-44 sequence
+6 ;
+7 NEW LA764,LA781,LA7X,LA7Y,LA7Z
+8 DO OBR44^LA7VOBRA
+9 QUIT LA7Y