source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLDPAW.m@ 623

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

initial load of WorldVistAEHR

File size: 926 bytes
Line 
1LRBLDPAW ;AVAMC/REG - BLOOD DONOR PRINT ;6/24/90 20:57 ;
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 D:$Y>(IOSL-6) M^LRBLDPA1 Q:LR("Q") W !! D T
5 F LRT=0:0 S LRT=$O(^LRE(LR,5,LRI,99,LRT)) Q:'LRT!(LR("Q")) F LRD=0:0 S LRD=$O(^LRE(LR,5,LRI,99,LRT,1,LRD)) Q:'LRD!(LR("Q")) S LRX=^(LRD,0) D W
6 Q
7W D:$Y>(IOSL-6) H Q:LR("Q") S Y=LRD D A^LRU S X=+$P(LRX,"^",2),X=$S($D(^VA(200,X,0)):$P(^(0),"^"),1:X),LRX(1)=Y,LRX(2)=X W !,$P(^LAB(60,LRT,0),"^"),?32,Y,?49,X
8 F LRC=0:0 S LRC=$O(^LRE(LR,5,LRI,99,LRT,1,LRD,1,LRC)) Q:'LRC!(LR("Q")) S LRW=^(LRC,0) D:$Y>(IOSL-6) H1 Q:LR("Q") W !?2,$P(^LAM(LRC,0),"^"),?35,"CAP Count:",$J($P(LRW,"^",2),3),?50,"Counted: ",$S($P(LRW,"^",3):"YES",1:"NO")
9 Q
10 ;
11H D M^LRBLDPA1 Q:LR("Q") D T Q
12H1 D H Q:LR("Q") W !,$P(^LAB(60,LRT,0),"^"),?32,LRX(1),?49,LRX(2) Q
13T W !,"Workload Entry",?36,"Date",?54,"Tech" Q
Note: See TracBrowser for help on using the repository browser.