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

LA7VORM2.m

Go to the documentation of this file. 
  1. LA7VORM2 ;DALOI/JMC - LAB ORM (Order) message builder cont'd ; 11-21-986
  1.  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46**;Sep 27, 1994
  1.  ;
  1.  ; Observation/Result segment for Lab Results sent with Order Message
  1.  ; Build OBX segments for orders that have required info to be sent
  1.  ; with order.
  1.  ; e.g. patient height/weight, specimen weight
  1.  ;
  1. PTHT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient height
  1.  ; Call with    LA7VAL = patient height
  1.  ;            LA764061 = IEN of units in file #64.061
  1.  ;              LA7953 = LOINC code
  1.  ;                LA74 = performing institution
  1.  ;            LA7OBXSN = sequence id of this OBX segment
  1.  ;             LA7HLSN = segment counter for message (pass by reference)
  1.  ;               LA7FS = HL field separator
  1.  ;              LA7ECH = HL encoding characters
  1.  ;             LA76249 = IEN of entry in #62.49
  1.  ;
  1.  N LA7OBX
  1.  S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.11)
  1.  S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
  1.  S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; height value
  1.  S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
  1.  D GEN
  1.  Q
  1.  ;
  1. PTWT(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send patient weight
  1.  ; Call with    LA7VAL = patient weight
  1.  ;            LA764061 = IEN of units in file #64.061
  1.  ;              LA7953 = LOINC code
  1.  ;                LA74 = performing institution
  1.  ;            LA7OBXSN = sequence id of this OBX segment
  1.  ;             LA7HLSN = segment counter for message (pass by reference)
  1.  ;               LA7FS = HL field separator
  1.  ;              LA7ECH = HL encoding characters
  1.  ;             LA76249 = IEN of entry in #62.49
  1.  ;
  1.  N LA7OBX
  1.  S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,1.21)
  1.  S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
  1.  S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; weight value
  1.  S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
  1.  D GEN
  1.  Q
  1.  ;
  1. SPWT(LA7VAL,LA764061,LA7DUR,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Send specimen weight
  1.  ; Call with    LA7VAL = specimen weight
  1.  ;            LA764061 = IEN of units in file #64.061
  1.  ;              LA7DUR = collection duration
  1.  ;              LA7953 = LOINC code
  1.  ;                LA74 = performing institution
  1.  ;            LA7OBXSN = sequence id of this OBX segment (pass by reference)
  1.  ;             LA7HLSN = segment counter for message (pass by reference)
  1.  ;               LA7FS = HL field separator
  1.  ;              LA7ECH = HL encoding characters
  1.  ;             LA76249 = IEN of entry in #62.49
  1.  ;
  1.  N LA7LOINC,LA7OBX
  1.  S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.31)
  1.  S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH) ; LOINC code
  1.  S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH) ; weight value
  1.  S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
  1.  D GEN
  1.  Q
  1.  ;
  1.  ;
  1. SPCV(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection volume
  1.  ; Call with    LA7VAL = collection volume
  1.  ;            LA764061 = IEN of units in file #64.061
  1.  ;              LA7953 = LOINC code
  1.  ;                LA74 = performing institution
  1.  ;            LA7OBXSN = sequence id of this OBX segment
  1.  ;             LA7HLSN = segment counter for message (pass by reference)
  1.  ;               LA7FS = HL field separator
  1.  ;              LA7ECH = HL encoding characters
  1.  ;             LA76249 = IEN of entry in #62.49
  1.  ;
  1.  N LA7OBX
  1.  ;
  1.  S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.11)
  1.  ; LOINC code
  1.  S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
  1.  ; Collection volume
  1.  S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
  1.  S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
  1.  D GEN
  1.  Q
  1.  ;
  1.  ;
  1. SPDUR(LA7VAL,LA764061,LA7953,LA74,LA7OBXSN,LA7HLSN,LA7FS,LA7ECH,LA76249) ; Specimen collection duration
  1.  ; Call with    LA7VAL = collection duration
  1.  ;            LA764061 = IEN of units in file #64.061
  1.  ;              LA7953 = LOINC code
  1.  ;                LA74 = performing institution
  1.  ;            LA7OBXSN = sequence id of this OBX segment
  1.  ;             LA7HLSN = segment counter for message (pass by reference)
  1.  ;               LA7FS = HL field separator
  1.  ;              LA7ECH = HL encoding characters
  1.  ;             LA76249 = IEN of entry in #62.49
  1.  ;
  1.  N LA7OBX
  1.  ;
  1.  S LA7OBX(2)=$$OBX2^LA7VOBX(62.801,2.22)
  1.  ; LOINC code
  1.  S LA7OBX(3)=$$OBX3^LA7VOBX("",LA7953,"",LA7FS,LA7ECH)
  1.  ; Collection duration
  1.  S LA7OBX(5)=$$OBX5^LA7VOBX(LA7VAL,LA7OBX(2),LA7FS,LA7ECH)
  1.  S LA7OBX(6)=$$OBX6^LA7VOBX("",LA764061,LA7FS,LA7ECH) ; unit
  1.  D GEN
  1.  Q
  1.  ;
  1.  ;
  1. GEN ; Fields common to OBX segment
  1.  ;
  1.  N LA7DATA
  1.  ;
  1.  S LA7OBX(0)="OBX"
  1.  ; OBX segment id
  1.  S LA7OBX(1)=$$OBX1^LA7VOBX(.LA7OBXSN)
  1.  S LA7OBX(11)="F"
  1.  ; Facility that performed the testing
  1.  S LA7OBX(15)=$$OBX15^LA7VOBX(LA74,LA7FS,LA7ECH)
  1.  ;
  1.  D BUILDSEG^LA7VHLU(.LA7OBX,.LA7DATA,LA7FS)
  1.  D FILESEG^LA7VHLU(GBL,.LA7DATA)
  1.  D FILE6249^LA7VHLU(LA76249,.LA7DATA)
  1.  Q