RMPRL22 ;PHX/DWL-LIST ISSUE FROM STOCK IN 660 ;8/29/1994
 ;;3.0;PROSTHETICS;;Feb 09, 1996
HDR W !?3,"ENTRIES FOR ",RMPRNAM,!!!?3,"TYPE",!?4,"OF",?8,"ITEM",?32,"SERIAL",?52,"DELIVERY",?71,"TOTAL",!?3,"TRAN",?9,"NO. - DESCRIPTION",?28,"QTY",?32,"NUMBER",?39,"SCE",?43,"VENDOR",?54,"DATE",?62,"REMARKS",?71,"COST"
LOOP F  S RMPRA=$O(^RMPR(660,"C",RMPRDFN,RMPRA)) Q:RMPRA=""  D PRT
 I RC=0 W !,"NO OUTSTANDING 2237 ENTRIES."
 Q
PRT S Y=^RMPR(660,RMPRA,0)
 I $P(Y,U,13)'="3" Q
 S RC=RC+1,RMPRA(RC)=RMPRA
 S RMPRDT=$P(Y,U,3),RMPRT=$P(Y,U,4),RMPRI=$P(Y,U,6),RMPRI=$P(^RMPR(661,RMPRI,0),U,1),RMPRDS=$P(^PRC(441,RMPRI,0),U,2),RMPRQTY=$P(Y,U,7),RMPRSN=$P(Y,U,11),RMPRSO=$P(Y,U,14),RMPRV=$P(Y,U,9),RMPRDD=$P(Y,U,12),RMPRR=$P(Y,U,18)
 S RMPRCT(RMPRA)=$S($D(RMPRCT(RMPRA)):RMPRCT(RMPRA),1:0)
 S RMPRTO=RMPRCT(RMPRA)*RMPRQTY,$P(Y,U,16)=RMPRTO,RMPRV=$S(RMPRV="":"",$D(^PRC(440,RMPRV,0)):$P(^(0),U,1),1:""),RMPRDD=$E(RMPRDD,4,5)_"/"_$E(RMPRDD,6,7)_"/"_$E(RMPRDD,2,3)
 W !,RC,".",?4,RMPRT,?8,RMPRI," - ",$E(RMPRDS,1,12),?29,RMPRQTY,?32,$E(RMPRSN,1,6),?39,RMPRSO,?43,$E(RMPRV,1,7),?52,RMPRDD,?62,$E(RMPRR,1,7),?71,"$",RMPRTO
 Q