LRBLSTR.m

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 ---LRBLSTR   868     printed  Apr 09, 2024@21:09:44                                                                                                                                                                                                      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