source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRBLSTR.m@ 792

Last change on this file since 792 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 857 bytes
Line 
1LRBLSTR ;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
5QUE 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
8C F A=0:0 S A=$O(^LR(LRDFN,LRS,A)) Q:'A S LRT=LRT+$L(^(A,0))
9 Q
10H 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
11END D V^LRU Q
Note: See TracBrowser for help on using the repository browser.