129 lines
4.8 KiB
Mathematica
129 lines
4.8 KiB
Mathematica
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
|