LRBLSTR ;AVAMC/REG - BB SUPERVISOR ;2/18/93 09:51 ;
;;5.2;LAB SERVICE;**247**;Sep 27, 1994
;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
S ZTRTN="QUE^LRBLSTR" D BEG^LRUTL G:POP!($D(ZTSK)) END
QUE U IO D L^LRU,S^LRU S (LRT,LRP,LRB)=0
F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN S LRP=LRP+1 S:$D(^LR(LRDFN,"BB")) LRB=LRB+1 F LRS=1,1.5,1.6,1.7,2,2.1,3,"BB" I $D(^LR(LRDFN,LRS)) S LRT=LRT+$L(^(LRS,0)) D C
W !,"# of bytes: ",LRT,!,"# of patients: ",LRP,!,"Average # of bytes per patient: " W:LRP LRT\LRP W !,"# of patients with Blood Bank data: ",LRB,!,"Average # of bytes per Blood Bank patient: " W:LRB LRT\LRB Q
C F A=0:0 S A=$O(^LR(LRDFN,LRS,A)) Q:'A S LRT=LRT+$L(^(A,0))
Q
H S LRQ=LRQ+1,X="T",%DT="" D ^%DT,D^LRU W @IOF,Y," BLOOD BANK BYTE COUNT",?(IOM-10),"Pg: ",LRQ,!,LRQ(1),!,LR("%") Q
END D V^LRU Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRBLSTR 868 printed Sep 23, 2025@19:47:58 Page 2
LRBLSTR ;AVAMC/REG - BB SUPERVISOR ;2/18/93 09:51 ;
+1 ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
+2 ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
+3 SET ZTRTN="QUE^LRBLSTR"
DO BEG^LRUTL
if POP!($DATA(ZTSK))
GOTO END
QUE USE IO
DO L^LRU
DO S^LRU
SET (LRT,LRP,LRB)=0
+1 FOR LRDFN=0:0
SET LRDFN=$ORDER(^LR(LRDFN))
if 'LRDFN
QUIT
SET LRP=LRP+1
if $DATA(^LR(LRDFN,"BB"))
SET LRB=LRB+1
FOR LRS=1,1.5,1.6,1.7,2,2.1,3,"BB"
IF $DATA(^LR(LRDFN,LRS))
SET LRT=LRT+$LENGTH(^(LRS,0))
DO C
+2 WRITE !,"# of bytes: ",LRT,!,"# of patients: ",LRP,!,"Average # of bytes per patient: "
if LRP
WRITE LRT\LRP
WRITE !,"# of patients with Blood Bank data: ",LRB,!,"Average # of bytes per Blood Bank patient: "
if LRB
WRITE LRT\LRB
QUIT
C FOR A=0:0
SET A=$ORDER(^LR(LRDFN,LRS,A))
if 'A
QUIT
SET LRT=LRT+$LENGTH(^(A,0))
+1 QUIT
H SET LRQ=LRQ+1
SET X="T"
SET %DT=""
DO ^%DT
DO D^LRU
WRITE @IOF,Y," BLOOD BANK BYTE COUNT",?(IOM-10),"Pg: ",LRQ,!,LRQ(1),!,LR("%")
QUIT
END DO V^LRU
QUIT
