| [613] | 1 | LRBLSTR ;AVAMC/REG - BB SUPERVISOR ;2/18/93 09:51 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
|
|---|
| 3 | ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
|
|---|
| 4 | S ZTRTN="QUE^LRBLSTR" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
|---|
| 5 | QUE U IO D L^LRU,S^LRU S (LRT,LRP,LRB)=0
|
|---|
| 6 | 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
|
|---|
| 7 | 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
|
|---|
| 8 | C F A=0:0 S A=$O(^LR(LRDFN,LRS,A)) Q:'A S LRT=LRT+$L(^(A,0))
|
|---|
| 9 | Q
|
|---|
| 10 | 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
|
|---|
| 11 | END D V^LRU Q
|
|---|
