| 1 | PRCPAGRI ;WISC/RFJ-autogen print items not on order ;01 Dec 92
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | ITEMSNOT ; print items not on order
|
|---|
| 8 | ; for ^tmp($j,"prcpag","not",vendorname,vendorda,groupname,
|
|---|
| 9 | ; xxx,itemda) where xxx equals whse:nsn; prim or seco:descr
|
|---|
| 10 | N %,%H,%I,D,DESCNSN,GNM,ITEMDA,NOW,PAGE,SCREEN,VDA,VNM,X,Y
|
|---|
| 11 | D NOW^%DTC S Y=% D DD^%DT S NOW=Y,PAGE=1,SCREEN=$$SCRPAUSE^PRCPUREP U IO
|
|---|
| 12 | S VNM="" F S VNM=$O(^TMP($J,"PRCPAG","NOT",VNM)) Q:VNM=""!($G(PRCPFLAG)) S VDA=0 F S VDA=$O(^TMP($J,"PRCPAG","NOT",VNM,VDA)) Q:'VDA!($G(PRCPFLAG)) D
|
|---|
| 13 | . I PAGE>1 D:SCREEN P^PRCPUREP Q:$G(PRCPFLAG)
|
|---|
| 14 | . D H
|
|---|
| 15 | . S GNM="" F S GNM=$O(^TMP($J,"PRCPAG","NOT",VNM,VDA,GNM)) Q:GNM=""!($G(PRCPFLAG)) D
|
|---|
| 16 | . . I $Y>(IOSL-8) D:SCREEN P^PRCPUREP Q:$G(PRCPFLAG) D H
|
|---|
| 17 | . . W !!?12,"GROUP CATEGORY: ",$S(GNM=" ":"<< NOT SPECIFIED >>",1:GNM)
|
|---|
| 18 | . . S DESCNSN="" F S DESCNSN=$O(^TMP($J,"PRCPAG","NOT",VNM,VDA,GNM,DESCNSN)) Q:DESCNSN=""!($G(PRCPFLAG)) D
|
|---|
| 19 | . . . S ITEMDA=0 F S ITEMDA=$O(^TMP($J,"PRCPAG","NOT",VNM,VDA,GNM,DESCNSN,ITEMDA)) Q:'ITEMDA!($G(PRCPFLAG)) S D=^(ITEMDA) D
|
|---|
| 20 | . . . . S %=$$DESCR^PRCPUX1(PRCP("I"),ITEMDA)
|
|---|
| 21 | . . . . W !!,ITEMDA,?7 W:PRCP("DPTYPE")'="W" $E(%,1,35) W:PRCP("DPTYPE")="W" $E(%,1,20),?31,$$NSN^PRCPUX1(ITEMDA) W ?50,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),9),$J($P(D,"^",12),9),$J($P(D,"^",15),6),$J($P(D,"^",16),6)
|
|---|
| 22 | . . . . W !,$J("ONHAND",8),$J("+DUEIN",8),$J("-DUEOUT",8),$J("=AVAIL",8),$J("STAND",7),$J("OPTN",8),$J("LEVEL",8),$J("CONV",7),$J("ORDER",8),$J("UNIT$",10)
|
|---|
| 23 | . . . . W !,$J(+$P(D,"^"),8),$J(+$P(D,"^",2),8),$J(+$P(D,"^",3),8),$J(+$P(D,"^",4),8),$J(+$P(D,"^",5),7),$S($P(D,"^",7)="STA":"*",1:" "),$J(+$P(D,"^",6),7),$S($P(D,"^",7)="OPT":"*",1:" ")
|
|---|
| 24 | . . . . W $J(+$P(D,"^",8),7),$S($P(D,"^",9)="*":"*",1:" "),$J(+$P(D,"^",10),6),$J(+$P(D,"^",11),8),$J(+$P(D,"^",14),10,3)
|
|---|
| 25 | . . . . I $Y>(IOSL-7) D:SCREEN P^PRCPUREP Q:$G(PRCPFLAG) D H W !!?12,"GROUP CATEGORY: ",$S(GNM=" ":"<< NOT SPECIFIED >>",1:GNM)
|
|---|
| 26 | I $G(PRCPFLAG) Q
|
|---|
| 27 | D END^PRCPUREP
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | ;
|
|---|
| 31 | H S %=NOW_" PAGE "_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF
|
|---|
| 32 | W $C(13),"AUTO-GENERATION: ITEMS NOT ON SUGGESTED ORDERS",?(80-$L(%)),%
|
|---|
| 33 | W !?5,"FOR INVENTORY POINT: ",PRCP("IN")
|
|---|
| 34 | W !?5,"MANDATORY OR REQUESTED SOURCE: ",VNM
|
|---|
| 35 | W !?50,$J($S(PRCP("DPTYPE")="S":"SECONDARY",PRCP("DPTYPE")="P":"PRIMARY",1:"WHSE"),9),$J($S(PRCP("DPTYPE")="S":"PRIMARY",1:"VENDOR"),9),$J("ISSUE",6),$J("ISSUE",6)
|
|---|
| 36 | W !,"MI#",?7,"DESCRIPTION" W:PRCP("DPTYPE")="W" ?31,"NSN" W ?50,$J("UNIT/ISS",9),$J("UNIT/ISS",9),$J("MINIM",6),$J("MULT",6)
|
|---|
| 37 | S %="",$P(%,"-",81)="" W !,%
|
|---|
| 38 | Q
|
|---|
