| [613] | 1 | RMPRL22 ;PHX/DWL-LIST ISSUE FROM STOCK IN 660 ;8/29/1994
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | 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"
|
|---|
| 4 | LOOP F S RMPRA=$O(^RMPR(660,"C",RMPRDFN,RMPRA)) Q:RMPRA="" D PRT
|
|---|
| 5 | I RC=0 W !,"NO OUTSTANDING 2237 ENTRIES."
|
|---|
| 6 | Q
|
|---|
| 7 | PRT S Y=^RMPR(660,RMPRA,0)
|
|---|
| 8 | I $P(Y,U,13)'="3" Q
|
|---|
| 9 | S RC=RC+1,RMPRA(RC)=RMPRA
|
|---|
| 10 | 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)
|
|---|
| 11 | S RMPRCT(RMPRA)=$S($D(RMPRCT(RMPRA)):RMPRCT(RMPRA),1:0)
|
|---|
| 12 | 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)
|
|---|
| 13 | 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
|
|---|
| 14 | Q
|
|---|
