PACKAGE BODY: APPS.OE_RMA_TOTAL

Source

1 PACKAGE BODY OE_RMA_TOTAL as
2 /* $Header: oexrtotb.pls 115.0 99/07/16 08:30:11 porting ship $ */
3 
4 
5   /*
6   ** Used by running total API
7   */
8   PROCEDURE SELECT_SUMMARY (
9 			P_HEADER_ID 	IN OUT	NUMBER,
10 			P_TOTAL		IN OUT  NUMBER,
11 			P_TOTAL_RTOT_DB IN OUT  NUMBER ) IS
12 
13   BEGIN
14 
15     SELECT NVL(SUM(L.SELLING_PRICE *
16 	           (NVL(ORDERED_QUANTITY, 0)
17                      - NVL(L.CANCELLED_QUANTITY,0))), 0)
18     INTO   P_TOTAL
19     FROM   SO_LINES L
20     WHERE  L.HEADER_ID = P_HEADER_ID;
21 
22     P_TOTAL_RTOT_DB := P_TOTAL;
23 
24 
25   END;
26 
27 END OE_RMA_TOTAL;