LA7VORM2 ;DALOI/JMC - LAB ORM (Order) message builder cont'd ; 11-21-986
;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994
;
; Observation/Result segment for Lab Results sent with Order Message
; Build OBX segments for orders that have required info to be sent
; with order.
; e.g. patient height/weight, specimen weight
;
PTHT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient height
; Call with LA7VAL = patient height
; LA764061 = IEN of units in file #64.061
; LA7953 = LOINC code
; LA74 = performing institution
; LA7OBXSN = sequence id of this OBX segment
; LA7HLSN = segment counter for message (pass by reference)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA76249 = IEN of entry in #62.49
;
N LA7OBX
S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.11)
S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; height value
S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
D GEN
Q
;
PTWT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient weight
; Call with LA7VAL = patient weight
; LA764061 = IEN of units in file #64.061
; LA7953 = LOINC code
; LA74 = performing institution
; LA7OBXSN = sequence id of this OBX segment
; LA7HLSN = segment counter for message (pass by reference)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA76249 = IEN of entry in #62.49
;
N LA7OBX
S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.21)
S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; weight value
S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
D GEN
Q
;
SPWT(LA7VAL,LA764061,LA7DUR,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send specimen weight
; Call with LA7VAL = specimen weight
; LA764061 = IEN of units in file #64.061
; LA7DUR = collection duration
; LA7953 = LOINC code
; LA74 = performing institution
; LA7OBXSN = sequence id of this OBX segment (pass by reference)
; LA7HLSN = segment counter for message (pass by reference)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA76249 = IEN of entry in #62.49
;
N LA7LOINC,LA7OBX
S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.31)
S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; weight value
S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
D GEN
Q
;
;
SPCV(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection volume
; Call with LA7VAL = collection volume
; LA764061 = IEN of units in file #64.061
; LA7953 = LOINC code
; LA74 = performing institution
; LA7OBXSN = sequence id of this OBX segment
; LA7HLSN = segment counter for message (pass by reference)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA76249 = IEN of entry in #62.49
;
N LA7OBX
;
S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.11)
; LOINC code
S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
; Collection volume
S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
D GEN
Q
;
;
SPDUR(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection duration
; Call with LA7VAL = collection duration
; LA764061 = IEN of units in file #64.061
; LA7953 = LOINC code
; LA74 = performing institution
; LA7OBXSN = sequence id of this OBX segment
; LA7HLSN = segment counter for message (pass by reference)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA76249 = IEN of entry in #62.49
;
N LA7OBX
;
S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.22)
; LOINC code
S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
; Collection duration
S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
D GEN
Q
;
;
GEN ; Fields common to OBX segment
;
N LA7DATA
;
S LA7OBX(0)="OBX"
; OBX segment id
S LA7OBX(1)=$$OBX1^LA7VOBX(.LA7OBXSN)
S LA7OBX(11)="F"
; Facility that performed the testing
S LA7OBX(15)=$$OBX15^LA7VOBX(LA74,LA7FS,LA7ECH)
;
D BUILDSEG^LA7VHLU(.LA7OBX,.LA7DATA,LA7FS)
D FILESEG^LA7VHLU(GBL,.LA7DATA)
D FILE6249^LA7VHLU(LA76249,.LA7DATA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7VORM2 5014 printed Oct 16, 2024@17:41:50 Page 2
LA7VORM2 ;DALOI/JMC - LAB ORM (Order) message builder cont'd ; 11-21-986
+1 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994
+2 ;
+3 ; Observation/Result segment for Lab Results sent with Order Message
+4 ; Build OBX segments for orders that have required info to be sent
+5 ; with order.
+6 ; e.g. patient height/weight, specimen weight
+7 ;
PTHT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient height
+1 ; Call with LA7VAL = patient height
+2 ; LA764061 = IEN of units in file #64.061
+3 ; LA7953 = LOINC code
+4 ; LA74 = performing institution
+5 ; LA7OBXSN = sequence id of this OBX segment
+6 ; LA7HLSN = segment counter for message (pass by reference)
+7 ; LA7FS = HL field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA76249 = IEN of entry in #62.49
+10 ;
+11 NEW LA7OBX
+12 SET LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.11)
+13 ; LOINC code
SET LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
+14 ; height value
SET LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
+15 ; unit
SET LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH)
+16 DO GEN
+17 QUIT
+18 ;
PTWT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient weight
+1 ; Call with LA7VAL = patient weight
+2 ; LA764061 = IEN of units in file #64.061
+3 ; LA7953 = LOINC code
+4 ; LA74 = performing institution
+5 ; LA7OBXSN = sequence id of this OBX segment
+6 ; LA7HLSN = segment counter for message (pass by reference)
+7 ; LA7FS = HL field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA76249 = IEN of entry in #62.49
+10 ;
+11 NEW LA7OBX
+12 SET LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.21)
+13 ; LOINC code
SET LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
+14 ; weight value
SET LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
+15 ; unit
SET LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH)
+16 DO GEN
+17 QUIT
+18 ;
SPWT(LA7VAL,LA764061,LA7DUR,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send specimen weight
+1 ; Call with LA7VAL = specimen weight
+2 ; LA764061 = IEN of units in file #64.061
+3 ; LA7DUR = collection duration
+4 ; LA7953 = LOINC code
+5 ; LA74 = performing institution
+6 ; LA7OBXSN = sequence id of this OBX segment (pass by reference)
+7 ; LA7HLSN = segment counter for message (pass by reference)
+8 ; LA7FS = HL field separator
+9 ; LA7ECH = HL encoding characters
+10 ; LA76249 = IEN of entry in #62.49
+11 ;
+12 NEW LA7LOINC,LA7OBX
+13 SET LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.31)
+14 ; LOINC code
SET LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
+15 ; weight value
SET LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
+16 ; unit
SET LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH)
+17 DO GEN
+18 QUIT
+19 ;
+20 ;
SPCV(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection volume
+1 ; Call with LA7VAL = collection volume
+2 ; LA764061 = IEN of units in file #64.061
+3 ; LA7953 = LOINC code
+4 ; LA74 = performing institution
+5 ; LA7OBXSN = sequence id of this OBX segment
+6 ; LA7HLSN = segment counter for message (pass by reference)
+7 ; LA7FS = HL field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA76249 = IEN of entry in #62.49
+10 ;
+11 NEW LA7OBX
+12 ;
+13 SET LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.11)
+14 ; LOINC code
+15 SET LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
+16 ; Collection volume
+17 SET LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
+18 ; unit
SET LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH)
+19 DO GEN
+20 QUIT
+21 ;
+22 ;
SPDUR(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection duration
+1 ; Call with LA7VAL = collection duration
+2 ; LA764061 = IEN of units in file #64.061
+3 ; LA7953 = LOINC code
+4 ; LA74 = performing institution
+5 ; LA7OBXSN = sequence id of this OBX segment
+6 ; LA7HLSN = segment counter for message (pass by reference)
+7 ; LA7FS = HL field separator
+8 ; LA7ECH = HL encoding characters
+9 ; LA76249 = IEN of entry in #62.49
+10 ;
+11 NEW LA7OBX
+12 ;
+13 SET LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.22)
+14 ; LOINC code
+15 SET LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
+16 ; Collection duration
+17 SET LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
+18 ; unit
SET LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH)
+19 DO GEN
+20 QUIT
+21 ;
+22 ;
GEN ; Fields common to OBX segment
+1 ;
+2 NEW LA7DATA
+3 ;
+4 SET LA7OBX(0)="OBX"
+5 ; OBX segment id
+6 SET LA7OBX(1)=$$OBX1^LA7VOBX(.LA7OBXSN)
+7 SET LA7OBX(11)="F"
+8 ; Facility that performed the testing
+9 SET LA7OBX(15)=$$OBX15^LA7VOBX(LA74,LA7FS,LA7ECH)
+10 ;
+11 DO BUILDSEG^LA7VHLU(.LA7OBX,.LA7DATA,LA7FS)
+12 DO FILESEG^LA7VHLU(GBL,.LA7DATA)
+13 DO FILE6249^LA7VHLU(LA76249,.LA7DATA)
+14 QUIT
