- LRMITSPO ; IHS/DIR/FJE - MICRO TREND PROCESS ORGANISMS 14:54 ;
- ;;5.2;LR;**1013**;JUL 15, 2002
- ;
- ;;5.2;LAB SERVICE;**96,116**;Sep 27, 1994
- ; from LRMITSPE
- ;
- ; bacteria
- I $D(LROTYPE("B")),+$G(^LR(LRDFN,"MI",LRIDT,1)),$O(^(3,0)) S LROTYPE="B" D
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,3,LRSUBN)) Q:LRSUBN="" S LRORGN=+^(LRSUBN,0) D
- ..; if specific organisms required and not valid quit
- ..I $D(LRSORG),'$D(LRSORG(LROTYPE,LRORGN)) Q
- ..S LRORGNM=$E($P($G(^LAB(61.2,+LRORGN,0)),U),1,30) I '$L(LRORGNM) S LRORGNM=LRUNK
- ..; if antibiotic pattern required and not valid quit
- ..I $D(LRAP) S LROK=1 D Q:'LROK
- ...S LRDN=0 F S LRDN=$O(LRAP(LRDN)) Q:LRDN="" S LRX=$G(^LR(LRDFN,"MI",LRIDT,3,LRSUBN,LRDN)) D Q:'LROK
- ....S LRX=$$SENS(LRDN,LRX)
- ....I '$L(LRX) S LROK=0 Q
- ....I LRX=LRAP(LRDN) Q
- ....I LRX'=LRAP(LRDN) S LROK=0
- ..K LRANTIM S LRDN=0 F S LRDN=$O(^LR(LRDFN,"MI",LRIDT,3,LRSUBN,LRDN)) Q:LRDN="" S LRX=$G(^(LRDN)) I $L(LRX) D
- ...S LRINTERP=$$SENS(LRDN,LRX) I $L(LRINTERP) S LRANTIM(LRDN)=LRINTERP_U_LRX
- ..S LRORGNM="("_LROTYPE_") "_LRORGNM D ^LRMITSPS
- K LRANTIM
- ; fungus
- I $D(LROTYPE("F")),+$G(^LR(LRDFN,"MI",LRIDT,8)),$O(^(9,0)) S LROTYPE="F" D
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,9,LRSUBN)) Q:LRSUBN<1 S LRORGN=+^(LRSUBN,0) D SETUP
- ; mycobacteria
- I $D(LROTYPE("M")),+$G(^LR(LRDFN,"MI",LRIDT,11)),$O(^(12,0)) S LROTYPE="M" D
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,12,LRSUBN)) Q:LRSUBN<1 S LRORGN=+^(LRSUBN,0) D
- ..K LRTB S LRDN=2 F S LRDN=$O(^LR(LRDFN,"MI",LRIDT,12,LRSUBN,LRDN)) Q:LRDN="" S LRTB(LRDN)=$P(^(LRDN),U)
- ..D SETUP
- K LRTB
- ; parasite
- I $D(LROTYPE("P")),+$G(^LR(LRDFN,"MI",LRIDT,5)),$O(^(6,0)) S LROTYPE="P" D
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,6,LRSUBN)) Q:LRSUBN<1 S LRORGN=+^(LRSUBN,0) D SETUP
- ; virus
- I $D(LROTYPE("V")),+$G(^LR(LRDFN,"MI",LRIDT,16)),$O(^(17,0)) S LROTYPE="V" D
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,17,LRSUBN)) Q:LRSUBN<1 S LRORGN=+^(LRSUBN,0) D SETUP
- ; Expanded Search
- I '$D(LROTYPE("B")),+$G(^LR(LRDFN,"MI",LRIDT,0)),$O(^(3,0)) D
- .S LROTYPE=$S($D(LROTYPE("V")):"V",$D(LROTYPE("P")):"P",$D(LROTYPE("F")):"F",$D(LROTYPE("M")):"M",1:"")
- .Q:LROTYPE=""
- .S LRSUBN=0 F S LRSUBN=$O(^LR(LRDFN,"MI",LRIDT,3,LRSUBN)) Q:LRSUBN<1 S LRORGN=+^(LRSUBN,0) D:LROTYPE=$P(^LAB(61.2,+LRORGN,0),U,5) SETUP
- Q
- SETUP ; if specific organisms are required, do not setup unless valid organism
- I $D(LRSORG),'$D(LRSORG(LROTYPE,LRORGN)) Q
- S LRORGNM=$E($P($G(^LAB(61.2,+LRORGN,0)),U),1,30) I '$L(LRORGNM) S LRORGNM=LRUNK
- S LRORGNM="("_LROTYPE_") "_LRORGNM
- ; setup data on isolate
- D ^LRMITSPS
- Q
- SENS(DRUGNODE,VALUES) ; $$(antibiotic,susceptibility) -> "S","R" or ""
- N INTERP,RESULT
- S INTERP=$P(VALUES,U,2),RESULT=$P(VALUES,U)
- I '$L(INTERP),$L(RESULT) S INTERP=$G(^LAB(62.06,"AI",DRUGNODE,RESULT))
- I '$L(INTERP) S INTERP=RESULT
- I '$L(INTERP) Q ""
- I $D(LRSUSS(INTERP)) Q "S"
- I $D(LRSUSR(INTERP)) Q "R"
- I INTERP["S" Q "S"
- Q ""
- LRMITSPO ; IHS/DIR/FJE - MICRO TREND PROCESS ORGANISMS 14:54 ;
- +1 ;;5.2;LR;**1013**;JUL 15, 2002
- +2 ;
- +3 ;;5.2;LAB SERVICE;**96,116**;Sep 27, 1994
- +4 ; from LRMITSPE
- +5 ;
- +6 ; bacteria
- +7 IF $DATA(LROTYPE("B"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,1))
- IF $ORDER(^(3,0))
- SET LROTYPE="B"
- Begin DoDot:1
- +8 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,3,LRSUBN))
- IF LRSUBN=""
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- Begin DoDot:2
- +9 ; if specific organisms required and not valid quit
- +10 IF $DATA(LRSORG)
- IF '$DATA(LRSORG(LROTYPE,LRORGN))
- QUIT
- +11 SET LRORGNM=$EXTRACT($PIECE($GET(^LAB(61.2,+LRORGN,0)),U),1,30)
- IF '$LENGTH(LRORGNM)
- SET LRORGNM=LRUNK
- +12 ; if antibiotic pattern required and not valid quit
- +13 IF $DATA(LRAP)
- SET LROK=1
- Begin DoDot:3
- +14 SET LRDN=0
- FOR
- SET LRDN=$ORDER(LRAP(LRDN))
- IF LRDN=""
- QUIT
- SET LRX=$GET(^LR(LRDFN,"MI",LRIDT,3,LRSUBN,LRDN))
- Begin DoDot:4
- +15 SET LRX=$$SENS(LRDN,LRX)
- +16 IF '$LENGTH(LRX)
- SET LROK=0
- QUIT
- +17 IF LRX=LRAP(LRDN)
- QUIT
- +18 IF LRX'=LRAP(LRDN)
- SET LROK=0
- End DoDot:4
- IF 'LROK
- QUIT
- End DoDot:3
- IF 'LROK
- QUIT
- +19 KILL LRANTIM
- SET LRDN=0
- FOR
- SET LRDN=$ORDER(^LR(LRDFN,"MI",LRIDT,3,LRSUBN,LRDN))
- IF LRDN=""
- QUIT
- SET LRX=$GET(^(LRDN))
- IF $LENGTH(LRX)
- Begin DoDot:3
- +20 SET LRINTERP=$$SENS(LRDN,LRX)
- IF $LENGTH(LRINTERP)
- SET LRANTIM(LRDN)=LRINTERP_U_LRX
- End DoDot:3
- +21 SET LRORGNM="("_LROTYPE_") "_LRORGNM
- DO ^LRMITSPS
- End DoDot:2
- End DoDot:1
- +22 KILL LRANTIM
- +23 ; fungus
- +24 IF $DATA(LROTYPE("F"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,8))
- IF $ORDER(^(9,0))
- SET LROTYPE="F"
- Begin DoDot:1
- +25 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,9,LRSUBN))
- IF LRSUBN<1
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- DO SETUP
- End DoDot:1
- +26 ; mycobacteria
- +27 IF $DATA(LROTYPE("M"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,11))
- IF $ORDER(^(12,0))
- SET LROTYPE="M"
- Begin DoDot:1
- +28 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,12,LRSUBN))
- IF LRSUBN<1
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- Begin DoDot:2
- +29 KILL LRTB
- SET LRDN=2
- FOR
- SET LRDN=$ORDER(^LR(LRDFN,"MI",LRIDT,12,LRSUBN,LRDN))
- IF LRDN=""
- QUIT
- SET LRTB(LRDN)=$PIECE(^(LRDN),U)
- +30 DO SETUP
- End DoDot:2
- End DoDot:1
- +31 KILL LRTB
- +32 ; parasite
- +33 IF $DATA(LROTYPE("P"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,5))
- IF $ORDER(^(6,0))
- SET LROTYPE="P"
- Begin DoDot:1
- +34 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,6,LRSUBN))
- IF LRSUBN<1
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- DO SETUP
- End DoDot:1
- +35 ; virus
- +36 IF $DATA(LROTYPE("V"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,16))
- IF $ORDER(^(17,0))
- SET LROTYPE="V"
- Begin DoDot:1
- +37 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,17,LRSUBN))
- IF LRSUBN<1
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- DO SETUP
- End DoDot:1
- +38 ; Expanded Search
- +39 IF '$DATA(LROTYPE("B"))
- IF +$GET(^LR(LRDFN,"MI",LRIDT,0))
- IF $ORDER(^(3,0))
- Begin DoDot:1
- +40 SET LROTYPE=$SELECT($DATA(LROTYPE("V")):"V",$DATA(LROTYPE("P")):"P",$DATA(LROTYPE("F")):"F",$DATA(LROTYPE("M")):"M",1:"")
- +41 IF LROTYPE=""
- QUIT
- +42 SET LRSUBN=0
- FOR
- SET LRSUBN=$ORDER(^LR(LRDFN,"MI",LRIDT,3,LRSUBN))
- IF LRSUBN<1
- QUIT
- SET LRORGN=+^(LRSUBN,0)
- IF LROTYPE=$PIECE(^LAB(61.2,+LRORGN,0),U,5)
- DO SETUP
- End DoDot:1
- +43 QUIT
- SETUP ; if specific organisms are required, do not setup unless valid organism
- +1 IF $DATA(LRSORG)
- IF '$DATA(LRSORG(LROTYPE,LRORGN))
- QUIT
- +2 SET LRORGNM=$EXTRACT($PIECE($GET(^LAB(61.2,+LRORGN,0)),U),1,30)
- IF '$LENGTH(LRORGNM)
- SET LRORGNM=LRUNK
- +3 SET LRORGNM="("_LROTYPE_") "_LRORGNM
- +4 ; setup data on isolate
- +5 DO ^LRMITSPS
- +6 QUIT
- SENS(DRUGNODE,VALUES) ; $$(antibiotic,susceptibility) -> "S","R" or ""
- +1 NEW INTERP,RESULT
- +2 SET INTERP=$PIECE(VALUES,U,2)
- SET RESULT=$PIECE(VALUES,U)
- +3 IF '$LENGTH(INTERP)
- IF $LENGTH(RESULT)
- SET INTERP=$GET(^LAB(62.06,"AI",DRUGNODE,RESULT))
- +4 IF '$LENGTH(INTERP)
- SET INTERP=RESULT
- +5 IF '$LENGTH(INTERP)
- QUIT ""
- +6 IF $DATA(LRSUSS(INTERP))
- QUIT "S"
- +7 IF $DATA(LRSUSR(INTERP))
- QUIT "R"
- +8 IF INTERP["S"
- QUIT "S"
- +9 QUIT ""
