LRMITSPS ;SLC/STAFF - MICRO TREND PROCESS SETUP ;10/12/92 20:07
;;5.2;LAB SERVICE;**257**;Sep 27, 1994
; from LRMITSPO
;
S LRMERGEV=$S(LRMERGE="S":LRSPECN,LRMERGE="C":LRCOLN,1:0)
; setup data for each report type
;MULTIDIVISIONAL PATCH LR*5.2*257 02/01
F LRTYPE="O;LRORGN;LRORGNM","S;LRSPECN;LRSPECNM","L;LRLOCN;LRLOCNM","D;LRDOCN;LRDOCNM","P;LRPATN;LRPATNM","C;LRCOLN;LRCOLNM","DIV;LRDIV;LRDIVNM" I $D(LRM($P(LRTYPE,";"))) D
.S LRRTYPE=$P(LRTYPE,";"),LRGPN=@$P(LRTYPE,";",2),LRGPNM=@$P(LRTYPE,";",3)
.; count patients for report type
.I $D(LRM(LRRTYPE,"A")) S ^TMP($J,"PAT",LRRTYPE,LRPATN)=""
.I $D(LRM(LRRTYPE,"S",LRGPN)) S ^TMP($J,"PAT",LRRTYPE,LRPATN)=""
.; setup isolate data
.S LRN1=$G(^TMP($J,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN))
.I 'LRN1 D
..S (LRN1,LRSEQN)=LRSEQN+1
..S ^TMP($J,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN)=LRN1
.S LRN2=$G(^TMP($J,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN))
.I 'LRN2 D
..S (LRN2,LRSEQN)=LRSEQN+1
..S ^TMP($J,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN)=LRN2
.S (LRN3,LRSEQN)=LRSEQN+1
.S ^(LRGPN)=$G(^TMP($J,LRRTYPE,LRGPNM,LRGPN))+1
.S ^TMP($J,LRN2,LRCDATE,LRSUBN)=LRN3_U_LRACC_U_LRPLOS_U_LRCOLN
.S ^TMP($J,"M",LRN1,LRPATN_";"_LRORGN_";"_LRMERGEV,-LRN3)=LRN2_U_LRCDATE_U_LRSUBN
.; setup bacteria antibiotic data
.S LRDN=0 F S LRDN=$O(LRANTIM(LRDN)) Q:LRDN<2 D
..S LRANTINM=$P($G(^TMP($J,"A",LRDN)),U,2) Q:'$L(LRANTINM)
..S ^TMP($J,LRN3,"A",LRANTINM)=LRANTIM(LRDN)
.; setup mycobatcteria antibiotic data
.S LRDN=0 F S LRDN=$O(LRTB(LRDN)) Q:LRDN<2 D
..S LRANTINM=$P($G(^TMP($J,"T",LRDN)),U) Q:'$L(LRANTINM)
..S ^TMP($J,LRN3,"T",LRANTINM)=LRTB(LRDN)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRMITSPS 1651 printed Nov 22, 2024@17:27:40 Page 2
LRMITSPS ;SLC/STAFF - MICRO TREND PROCESS SETUP ;10/12/92 20:07
+1 ;;5.2;LAB SERVICE;**257**;Sep 27, 1994
+2 ; from LRMITSPO
+3 ;
+4 SET LRMERGEV=$SELECT(LRMERGE="S":LRSPECN,LRMERGE="C":LRCOLN,1:0)
+5 ; setup data for each report type
+6 ;MULTIDIVISIONAL PATCH LR*5.2*257 02/01
+7 FOR LRTYPE="O;LRORGN;LRORGNM","S;LRSPECN;LRSPECNM","L;LRLOCN;LRLOCNM","D;LRDOCN;LRDOCNM","P;LRPATN;LRPATNM","C;LRCOLN;LRCOLNM","DIV;LRDIV;LRDIVNM"
IF $DATA(LRM($PIECE(LRTYPE,";")))
Begin DoDot:1
+8 SET LRRTYPE=$PIECE(LRTYPE,";")
SET LRGPN=@$PIECE(LRTYPE,";",2)
SET LRGPNM=@$PIECE(LRTYPE,";",3)
+9 ; count patients for report type
+10 IF $DATA(LRM(LRRTYPE,"A"))
SET ^TMP($JOB,"PAT",LRRTYPE,LRPATN)=""
+11 IF $DATA(LRM(LRRTYPE,"S",LRGPN))
SET ^TMP($JOB,"PAT",LRRTYPE,LRPATN)=""
+12 ; setup isolate data
+13 SET LRN1=$GET(^TMP($JOB,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN))
+14 IF 'LRN1
Begin DoDot:2
+15 SET (LRN1,LRSEQN)=LRSEQN+1
+16 SET ^TMP($JOB,LRRTYPE,LRGPNM,LRGPN,LRORGNM,LRORGN)=LRN1
End DoDot:2
+17 SET LRN2=$GET(^TMP($JOB,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN))
+18 IF 'LRN2
Begin DoDot:2
+19 SET (LRN2,LRSEQN)=LRSEQN+1
+20 SET ^TMP($JOB,LRN1,"P",LRPATNM,LRPATN,LRSPECNM,LRSPECN)=LRN2
End DoDot:2
+21 SET (LRN3,LRSEQN)=LRSEQN+1
+22 SET ^(LRGPN)=$GET(^TMP($JOB,LRRTYPE,LRGPNM,LRGPN))+1
+23 SET ^TMP($JOB,LRN2,LRCDATE,LRSUBN)=LRN3_U_LRACC_U_LRPLOS_U_LRCOLN
+24 SET ^TMP($JOB,"M",LRN1,LRPATN_";"_LRORGN_";"_LRMERGEV,-LRN3)=LRN2_U_LRCDATE_U_LRSUBN
+25 ; setup bacteria antibiotic data
+26 SET LRDN=0
FOR
SET LRDN=$ORDER(LRANTIM(LRDN))
if LRDN<2
QUIT
Begin DoDot:2
+27 SET LRANTINM=$PIECE($GET(^TMP($JOB,"A",LRDN)),U,2)
if '$LENGTH(LRANTINM)
QUIT
+28 SET ^TMP($JOB,LRN3,"A",LRANTINM)=LRANTIM(LRDN)
End DoDot:2
+29 ; setup mycobatcteria antibiotic data
+30 SET LRDN=0
FOR
SET LRDN=$ORDER(LRTB(LRDN))
if LRDN<2
QUIT
Begin DoDot:2
+31 SET LRANTINM=$PIECE($GET(^TMP($JOB,"T",LRDN)),U)
if '$LENGTH(LRANTINM)
QUIT
+32 SET ^TMP($JOB,LRN3,"T",LRANTINM)=LRTB(LRDN)
End DoDot:2
End DoDot:1
+33 QUIT
