LRMITRZ3 ;AVAMC/REG,SLC/BA- MICRO TRENDS CONTINUED ; 10/7/87 08:23 ;
;;V~5.0~;LAB;;02/27/90 17:09
;from LRMITRZ2
REPORT S LRT="O" I LRM(LRT)'="N" S LRSINGLE=$S(LRM(LRT)="S":1,1:0) S LRPG=0 D HDR,BUG
F LRT="S","L","D","P","C" I LRM(LRT)'="N" S LRSINGLE=$S(LRM(LRT)="S":1,1:0) S LRPG=0 D HDR,C
Q
BUG S LRBI=0 F I=0:0 S LRBI=$O(^UTILITY($J,"B",LRBI)) Q:LRBI="" S LRBG=$O(^UTILITY($J,"B",LRBI,0)) I LRM(LRT)="A"!(LRSINGLE&(LRBG=LRM(LRT,"S"))) D:$Y>60 HDR W !!,$E(LRBI,2,99),!,?18,$J(^UTILITY($J,"BG",LRBG),5) D ANTI
Q
ANTI S LRLIN="",$P(LRLIN,"| ",O+1)="|",LRTOT=LRLIN,LRANTI=0 F I=0:0 S LRANTI=$O(^UTILITY($J,"BAS",LRBG,LRANTI)) Q:LRANTI="" S LRND=^UTILITY($J,LRBA,LRBG,LRANTI),LRSM=+LRND D WRT
D NUM
Q
C S LRCT=LRT_"T",LRCBA=LRT_"BA",LRCTB=LRT_"TB"
S S=0 F I=0:0 S S=$O(^UTILITY($J,LRCBA,S)) Q:S="" I LRM(LRT)="A"!(LRSINGLE&(S=LRM(LRT,"S"))) D:$Y>60 HDR W !!,S W:LRT="S"!(LRT="C") " (",^UTILITY($J,LRCT,S),"):" W !,"---------------" D B
Q
B S LRBI=0 F I=0:0 S LRBI=$O(^UTILITY($J,LRCBA,S,LRBI)) Q:LRBI="" D:$Y>60 HDR W !!,$P(^LAB(61.2,LRBI,0),U),!,?18,$J(^UTILITY($J,LRCTB,S,LRBI),5) D A
Q
A S LRLIN="",$P(LRLIN,"| ",O+1)="|",LRTOT=LRLIN,LRANTI=0 F I=0:0 S LRANTI=$O(^UTILITY($J,LRCBA,S,LRBI,LRANTI)) Q:LRANTI="" S LRND=^UTILITY($J,LRCBA,S,LRBI,LRANTI),LRSM=+LRND D WRT
D NUM
Q
WRT S $P(LRLIN,"|",LRZ(LRANTI)+1)=$J($P(LRND,U,2)/LRSM*100,5,1),$P(LRTOT,"|",LRZ(LRANTI)+1)=LRSM_$E(" ",1,5-$L(LRSM))
Q
NUM W ?23,LRLIN,!
D:$Y>60 HDR W !?5,"# tested",?23,LRTOT
Q
HDR S LRPG=LRPG+1,%DT="T",X="N" D ^%DT,D^LRU W @IOF,Y,?21,"ANTIBIOTIC TREND REPORT (from: ",LRBEG," to: ",LRFIN," ",+^UTILITY($J,0)," patients)"
W ?100,$S(LRT="O":"BY ORGANISM",LRT="S":"BY SITE/SPECIMEN",LRT="L":"BY LOCATION",LRT="P":"BY PATIENT",LRT="C":"BY COLLECTION SAMPLE",1:"BY PHYSICIAN"),?122,"PAGE ",$J(LRPG,5)
I LRLOS W !,?2,"** Reports only those specimens collected > ",LRLOS,$S(LRLOS>1:" days",1:" day")," from admission date **"
W !?23 F I=0:0 S I=$O(B(I)) Q:I="" W "| ",$P(B(I),U,2)," "
I $D(LRAP) W "|",!,"* ANTIBIOTIC PATTERN *",?23 F I=0:0 S I=$O(B(I)) Q:I="" W "| ",$S($L($P(B(I),U,3)):$P(B(I),U,3),1:" ")," "
W "|",! F X=1:1:IOM-1 W "-"
Q
LRMITRZ3 ;AVAMC/REG,SLC/BA- MICRO TRENDS CONTINUED ; 10/7/87 08:23 ;
+1 ;;V~5.0~;LAB;;02/27/90 17:09
+2 ;from LRMITRZ2
REPORT SET LRT="O"
IF LRM(LRT)'="N"
SET LRSINGLE=$SELECT(LRM(LRT)="S":1,1:0)
SET LRPG=0
DO HDR
DO BUG
+1 FOR LRT="S","L","D","P","C"
IF LRM(LRT)'="N"
SET LRSINGLE=$SELECT(LRM(LRT)="S":1,1:0)
SET LRPG=0
DO HDR
DO C
+2 QUIT
BUG SET LRBI=0
FOR I=0:0
SET LRBI=$ORDER(^UTILITY($JOB,"B",LRBI))
IF LRBI=""
QUIT
SET LRBG=$ORDER(^UTILITY($JOB,"B",LRBI,0))
IF LRM(LRT)="A"!(LRSINGLE&(LRBG=LRM(LRT,"S")))
IF $Y>60
DO HDR
WRITE !!,$EXTRACT(LRBI,2,99),!,?18,$JUSTIFY(^UTILITY($JOB,"BG",LRBG),5)
DO ANTI
+1 QUIT
ANTI SET LRLIN=""
SET $PIECE(LRLIN,"| ",O+1)="|"
SET LRTOT=LRLIN
SET LRANTI=0
FOR I=0:0
SET LRANTI=$ORDER(^UTILITY($JOB,"BAS",LRBG,LRANTI))
IF LRANTI=""
QUIT
SET LRND=^UTILITY($JOB,LRBA,LRBG,LRANTI)
SET LRSM=+LRND
DO WRT
+1 DO NUM
+2 QUIT
C SET LRCT=LRT_"T"
SET LRCBA=LRT_"BA"
SET LRCTB=LRT_"TB"
+1 SET S=0
FOR I=0:0
SET S=$ORDER(^UTILITY($JOB,LRCBA,S))
IF S=""
QUIT
IF LRM(LRT)="A"!(LRSINGLE&(S=LRM(LRT,"S")))
IF $Y>60
DO HDR
WRITE !!,S
IF LRT="S"!(LRT="C")
WRITE " (",^UTILITY($JOB,LRCT,S),"):"
WRITE !,"---------------"
DO B
+2 QUIT
B SET LRBI=0
FOR I=0:0
SET LRBI=$ORDER(^UTILITY($JOB,LRCBA,S,LRBI))
IF LRBI=""
QUIT
IF $Y>60
DO HDR
WRITE !!,$PIECE(^LAB(61.2,LRBI,0),U),!,?18,$JUSTIFY(^UTILITY($JOB,LRCTB,S,LRBI),5)
DO A
+1 QUIT
A SET LRLIN=""
SET $PIECE(LRLIN,"| ",O+1)="|"
SET LRTOT=LRLIN
SET LRANTI=0
FOR I=0:0
SET LRANTI=$ORDER(^UTILITY($JOB,LRCBA,S,LRBI,LRANTI))
IF LRANTI=""
QUIT
SET LRND=^UTILITY($JOB,LRCBA,S,LRBI,LRANTI)
SET LRSM=+LRND
DO WRT
+1 DO NUM
+2 QUIT
WRT SET $PIECE(LRLIN,"|",LRZ(LRANTI)+1)=$JUSTIFY($PIECE(LRND,U,2)/LRSM*100,5,1)
SET $PIECE(LRTOT,"|",LRZ(LRANTI)+1)=LRSM_$EXTRACT(" ",1,5-$LENGTH(LRSM))
+1 QUIT
NUM WRITE ?23,LRLIN,!
+1 IF $Y>60
DO HDR
WRITE !?5,"# tested",?23,LRTOT
+2 QUIT
HDR SET LRPG=LRPG+1
SET %DT="T"
SET X="N"
DO ^%DT
DO D^LRU
WRITE @IOF,Y,?21,"ANTIBIOTIC TREND REPORT (from: ",LRBEG," to: ",LRFIN," ",+^UTILITY($JOB,0)," patients)"
+1 WRITE ?100,$SELECT(LRT="O":"BY ORGANISM",LRT="S":"BY SITE/SPECIMEN",LRT="L":"BY LOCATION",LRT="P":"BY PATIENT",LRT="C":"BY COLLECTION SAMPLE",1:"BY PHYSICIAN"),?122,"PAGE ",$JUSTIFY(LRPG,5)
+2 IF LRLOS
WRITE !,?2,"** Reports only those specimens collected > ",LRLOS,$SELECT(LRLOS>1:" days",1:" day")," from admission date **"
+3 WRITE !?23
FOR I=0:0
SET I=$ORDER(B(I))
IF I=""
QUIT
WRITE "| ",$PIECE(B(I),U,2)," "
+4 IF $DATA(LRAP)
WRITE "|",!,"* ANTIBIOTIC PATTERN *",?23
FOR I=0:0
SET I=$ORDER(B(I))
IF I=""
QUIT
WRITE "| ",$SELECT($LENGTH($PIECE(B(I),U,3)):$PIECE(B(I),U,3),1:" ")," "
+5 WRITE "|",!
FOR X=1:1:IOM-1
WRITE "-"
+6 QUIT
