PACKAGE BODY: APPS.POR_RCV_VALIDATION_PKG

Source

1 PACKAGE BODY POR_RCV_VALIDATION_PKG AS
2 /* $Header: PORRCVVB.pls 115.4 2002/12/24 20:41:19 mrjiang noship $ */
3 
4 -- Calculates TolerableQty for Receiving
5 procedure getTolerableQty(pLineLocationId	IN NUMBER,
6 		     	  pTotalQty		IN NUMBER,
7 			  pTolerableQty		OUT NOCOPY NUMBER,
8 			  pExceptionCode	OUT NOCOPY VARCHAR2) IS
9   xTolerableQty		NUMBER;
10   xQuantityOrdered	NUMBER;
11   xQuantityReceived	NUMBER;
12   xQuantityCancelled	NUMBER;
13   xRcvTolerance		NUMBER;
14   xExceptionCode	VARCHAR2(25);
15   xPoUOMCode 		VARCHAR2(25);
16 BEGIN
17 
18   begin
19     select nvl(pll.quantity, 0),
20            nvl(pll.quantity_received, 0),
21        	   nvl(pll.quantity_cancelled, 0),
22            1 + (nvl(pll.qty_rcv_tolerance, 0)/100),
23            pll.qty_rcv_exception_code,
24            pl.unit_meas_lookup_code
25     into   xQuantityOrdered, xQuantityReceived,
26 	   xQuantityCancelled, xRcvTolerance,
27 	   pExceptionCode, xPoUOMCode
28     from   po_line_locations pll,
29            po_lines pl
30     where  pll.line_location_id = pLineLocationId
31     and    pll.po_line_id = pl.po_line_id;
32   exception
33     when no_data_found then
34 	null;
35   end;
36 
37   pTolerableQty :=  xQuantityOrdered * xRcvTolerance -
38 		    xQuantityReceived - xQuantityCancelled -
39 		    pTotalQty;
40 
41 END;
42 
43 END POR_RCV_VALIDATION_PKG;