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

LA7VOBX3.m

Go to the documentation of this file. 
  1. LA7VOBX3 ;DALOI/JMC - LAB OBX Segment message builder (MI subscripts) cont'd ;Dec 4, 2008
  1.  ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,64,68,74**;Sep 27, 1994;Build 229
  1.  ;
  1.  ; Reference to ^DD supported by DBIA #999
  1.  ;
  1. MI ; Build OBX segments for results that are microbiology subscript.
  1.  ; Called by LA7VOBX
  1.  ;
  1.  N I,LA761,LA76305,LA7ALT,LA7CODE,LA7DIV,LA7IENS,LA7LOINC,LA7NLT,LA7OBX,LA7PARNT,LA7PLREF,LA7SAVID,LA7SUBFL,LA7VAL,LA7VERP
  1.  ;
  1.  I $P(LRIDT,",",2) S LRIDT(2)=$P(LRIDT,",",2),LRIDT(3)=$P(LRIDT,",",3),LRIDT=$P(LRIDT,",")
  1.  ;
  1.  I '$D(^LR(LRDFN,LRSS,LRIDT)) Q
  1.  ;
  1.  S LA76305(0)=$G(^LR(LRDFN,LRSS,LRIDT,0))
  1.  S (LA7ALT,LA7CODE,LA7ISOID,LA7LOINC,LA7NLT,LA7SAVID,LA7SUBFL,LA7VAL,LA7VERP)=""
  1.  S LA7NLT=$G(LA("NLT")),LA7CODE=LA7NLT_"!"
  1.  ;
  1.  ; Specimen topography
  1.  S LA761=$P(LA76305(0),"^",5)
  1.  ; Default codes
  1.  S LA7CODE=$$DEFCODE^LA7VHLU5(LRSS,LRSB,LA7CODE,LA761)
  1.  ; Initialize performing lab reference
  1.  S LA7PLREF=""
  1.  ;
  1.  D SEC
  1.  ; Don't build segment if no value to send
  1.  I LA7VAL="" Q
  1.  D GEN^LA7VOBX4
  1.  Q
  1.  ;
  1.  ;
  1. SEC ; Build section specific fields
  1.  N LA7X,LA7Y
  1.  ;
  1.  ; Bacteriology report
  1.  I $P(LRSB,",")=11 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,13)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.33,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.33,.01,"","LABEL")_"^99VA63"
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",1"
  1.  ;
  1.  ; Urine screen
  1.  I LRSB=11.57 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3),LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,11.57)
  1.  . S LA7IENS=LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.29,LA7IENS,11.57,"","LA7ERR")
  1.  . S LA7X=$P(^LR(LRDFN,LRSS,LRIDT,1),"^",6)
  1.  . S LA7Y=$S(LA7X="P":10828004,LA7X="N":260385009,1:"")
  1.  . I LA7Y S LA7X=LA7VAL D MTSCT^LA7VOBX4
  1.  . S LA7Y="MI-"_LRSB_"^"_$$GET1^DID(63.05,11.57,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",1;6"
  1.  ;
  1.  ; Sputum Screen
  1.  I LRSB=11.58 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,11.58)
  1.  . S LA7VAL=$P(^LR(LRDFN,LRSS,LRIDT,1),"^",5)
  1.  . S LA7Y="MI-"_LRSB_"^"_$$GET1^DID(63.05,11.58,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",1;5"
  1.  ;
  1.  ; Gram stain
  1.  I LRSB=11.6 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,11.6)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.29,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_LRSB_"^"_$$GET1^DID(63.29,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",2,"_LRIDT(2)_",0"
  1.  ;
  1.  ; Micro organism
  1.  I $P(LRSB,",")=12 D  Q
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7SUBFL=63.3
  1.  . ; Working on colony count
  1.  . I $P(LRSB,",",2)=1 D CC^LA7VOBX4 Q
  1.  . ; Working on organism
  1.  . I $G(LRIDT(3))="" D ORG^LA7VOBX4 Q
  1.  . ; Working on susceptibilities
  1.  . I $P(LA76305(1),"^",4) S LA7VERP=$P(LA76305(1),"^",4)
  1.  . I $P(LRSB,",",2)<3 D MIC^LA7VOBX4 Q
  1.  . I $P(LRSB,",",2)=3 D MICA^LA7VOBX4 Q
  1.  ;
  1.  ; Parasitology report
  1.  I $P(LRSB,",")=14 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(5)=$G(^LR(LRDFN,LRSS,LRIDT,5))
  1.  . I $P(LA76305(5),"^",3) S LA7VERP=$P(LA76305(5),"^",3)
  1.  . S LA7ORS=$P(LA76305(5),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.36,.01)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.36,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.36,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",4"
  1.  ;
  1.  ; Parasite organism
  1.  I $P(LRSB,",")=16 D  Q
  1.  . S LA76305(5)=$G(^LR(LRDFN,LRSS,LRIDT,5))
  1.  . S LA7ORS=$P(LA76305(5),"^",2)
  1.  . I $P(LA76305(5),"^",3) S LA7VERP=$P(LA76305(5),"^",3)
  1.  . ; Working on parasite
  1.  . I $G(LRIDT(3))="" S LA7SUBFL=63.34 D ORG^LA7VOBX4 Q
  1.  . ; Working on parasite's stages/quantity
  1.  . S LA7SUBFL=63.35
  1.  . I $P(LRSB,",",2)=.01 D PSTAGE^LA7VOBX4 Q
  1.  . I $P(LRSB,",",2)=1 D PQTY^LA7VOBX4 Q
  1.  ;
  1.  ; Mycology report
  1.  I $P(LRSB,",")=18 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(8)=$G(^LR(LRDFN,LRSS,LRIDT,8))
  1.  . S LA7VERP=$P(LA76305(8),"^",3)
  1.  . S LA7ORS=$P(LA76305(8),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.38,.01)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.38,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.38,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",8"
  1.  ;
  1.  ; Mycology organism
  1.  I $P(LRSB,",")=20 D  Q
  1.  . S LA76305(8)=$G(^LR(LRDFN,LRSS,LRIDT,8))
  1.  . S LA7ORS=$P(LA76305(8),"^",2)
  1.  . S LA7VERP=$P(LA76305(8),"^",3)
  1.  . S LA7SUBFL=63.37
  1.  . ; Working on colony count
  1.  . I $P(LRSB,",",2)=1 D CC^LA7VOBX4 Q
  1.  . ; Working on organism
  1.  . D ORG^LA7VOBX4
  1.  ;
  1.  ; Mycobacterium report
  1.  I $P(LRSB,",")=22 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(11)=$G(^LR(LRDFN,LRSS,LRIDT,11))
  1.  . S LA7VERP=$P(LA76305(11),"^",3)
  1.  . S LA7ORS=$P(LA76305(11),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.41,.01)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.41,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.41,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",12"
  1.  ;
  1.  ; Acid Fast stain
  1.  I LRSB=24 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(11)=$G(^LR(LRDFN,LRSS,LRIDT,11))
  1.  . S LA7VERP=$P(LA76305(11),"^",3)
  1.  . S LA7ORS=$P(LA76305(11),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,24)
  1.  . S LA7IENS=LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.05,LA7IENS,24,"","LA7ERR")
  1.  . S LA7Y="MI-"_LRSB_"^"_$$GET1^DID(63.05,24,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",12;3"
  1.  ;
  1.  ; Acid Fast stain quantity
  1.  I LRSB=25 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(11)=$G(^LR(LRDFN,LRSS,LRIDT,11))
  1.  . S LA7VERP=$P(LA76305(11),"^",3)
  1.  . S LA7ORS=$P(LA76305(11),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.05,25)
  1.  . S LA7IENS=LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.05,LA7IENS,25,"","LA7ERR")
  1.  . S LA7Y="MI-"_LRSB_"^"_$$GET1^DID(63.05,25,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",12;3"
  1.  ;
  1.  ; TB organism
  1.  I $P(LRSB,",")=26 D  Q
  1.  . S LA76305(11)=$G(^LR(LRDFN,LRSS,LRIDT,11))
  1.  . S LA7ORS=$P(LA76305(11),"^",2)
  1.  . S LA7VERP=$P(LA76305(11),"^",5)
  1.  . S LA7SUBFL=63.39
  1.  . ; Working on colony count
  1.  . I $P(LRSB,",",2)=1 D CC^LA7VOBX4 Q
  1.  . ; Working on organism
  1.  . I $G(LRIDT(3))="" D ORG^LA7VOBX4 Q
  1.  . ; Working on susceptibilities
  1.  . D MIC^LA7VOBX4
  1.  ;
  1.  ; Virology report
  1.  I $P(LRSB,",")=33 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(16)=$G(^LR(LRDFN,LRSS,LRIDT,16))
  1.  . S LA7VERP=$P(LA76305(16),"^",3)
  1.  . S LA7ORS=$P(LA76305(16),"^",2)
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(63.44,.01)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(63.44,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.44,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",16"
  1.  ;
  1.  ; Virology virus
  1.  I $P(LRSB,",")=36 D  Q
  1.  . S LA76305(16)=$G(^LR(LRDFN,LRSS,LRIDT,16))
  1.  . S LA7ORS=$P(LA76305(16),"^",2)
  1.  . S LA7VERP=$P(LA76305(16),"^",3)
  1.  . ; Working on virus
  1.  . S LA7SUBFL=63.43
  1.  . D ORG^LA7VOBX4
  1.  ;
  1.  ; Antibiotic levels
  1.  I $P(LRSB,",")=28 D  Q
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7SUBFL=63.42
  1.  . S LA7OBX(2)="SN"
  1.  . S LA7X=$G(^LR(LRDFN,LRSS,LRIDT,14,LRIDT(2),0))
  1.  . S $P(LA7CODE,"!",2)="93978.0000"
  1.  . S $P(LA7CODE,"!",3)=$S($P(LA7X,"^",2)="P":44433,$P(LA7X,"^",2)="T":44434,1:23816)
  1.  . S LA7VAL=$P(LA7X,"^",3)
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"-"_$P(LRSB,",",2)_"^"_$P(LA7X,"^")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",14"
  1.  ;
  1.  ; Sterility report
  1.  I LRSB=11.52 D  Q
  1.  . N LA7ERR
  1.  . S LA76305(1)=$G(^LR(LRDFN,LRSS,LRIDT,1))
  1.  . S LA7VERP=$P(LA76305(1),"^",3)
  1.  . S LA7ORS=$P(LA76305(1),"^",2)
  1.  . S LA7SUBFL=63.292
  1.  . S LA7OBX(2)=$$OBX2^LA7VOBX(LA7SUBFL,.01)
  1.  . S LA7IENS=LRIDT(2)_","_LRIDT_","_LRDFN_","
  1.  . S LA7VAL=$$GET1^DIQ(LA7SUBFL,LA7IENS,.01,"","LA7ERR")
  1.  . S LA7Y="MI-"_$P(LRSB,",")_"^"_$$GET1^DID(63.292,.01,"","LABEL")_"^99VA63"
  1.  . S LA7ALT=LA7Y_"^"_LA7Y
  1.  . S LA7PLREF=LRDFN_",MI,"_LRIDT_",31"
  1.  ;
  1.  ;
  1.  Q