PACKAGE BODY: APPS.CSP_EXCESS_PARTS_CUST

Source

1 PACKAGE BODY CSP_EXCESS_PARTS_CUST AS
2 /* $Header: cspexccustb.pls 120.1 2010/12/07 06:18:57 hhaugeru noship $ */
3 
4 
5 -- Start of Comments
6 -- Package name     : CSP_EXCESS_PARTS_CUST
7 -- Purpose          :
8 -- History          :
9 -- NOTE             :
10 -- End of Comments
11 
12 FUNCTION excess_parts (
13    p_excess_part  IN CSP_EXCESS_LISTS_PKG.EXCESS_RECORD_TYPE
14    ) RETURN CSP_EXCESS_LISTS_PKG.EXCESS_TBL_TYPE
15 IS
16    x_excess_parts    CSP_EXCESS_LISTS_PKG.EXCESS_TBL_TYPE;
17    --v_tmp_excess_part  CSP_EXCESS_LISTS_PKG.EXCESS_RECORD_TYPE;
18 BEGIN
19 
20   if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
21      FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
22                 'csp.plsql.CSP_EXCESS_PARTS_CUST.excess_parts',
23                 'Begin...');
24   end if;
25 
26   x_excess_parts(1) := p_excess_part;
27   /*
28   if p_excess_part.ORGANIZATION_ID = 207 and
29     p_excess_part.INVENTORY_ITEM_ID = 257023 then
30 
31     v_tmp_excess_part := p_excess_part;
32     v_tmp_excess_part.EXCESS_QUANTITY := 1;
33     v_tmp_excess_part.RETURN_ORGANIZATION_ID := 209;
34     x_excess_parts(1) := v_tmp_excess_part;
35 
36     v_tmp_excess_part := p_excess_part;
37     v_tmp_excess_part.EXCESS_QUANTITY := p_excess_part.EXCESS_QUANTITY - 1;
38     v_tmp_excess_part.RETURN_ORGANIZATION_ID := 5703;
39     x_excess_parts(2) := v_tmp_excess_part;
40   end if;
41   */
42 
43   if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
44      FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
45                 'csp.plsql.CSP_EXCESS_PARTS_CUST.excess_parts',
46                 'Returning...');
47   end if;
48 
49   RETURN x_excess_parts;
50 END excess_parts;
51 
52 End CSP_EXCESS_PARTS_CUST;