PACKAGE BODY: APPS.POR_AUTOSOURCE_CUSTOM_PKG

Source

1 PACKAGE BODY POR_AUTOSOURCE_CUSTOM_PKG AS
2     /* $Header: PORSRCCB.pls 115.7 2003/02/21 22:39:56 jjessup ship $ */
3 
4 
5     FUNCTION  autosource(p_item_id                    IN                NUMBER,
6                          p_category_id                IN                NUMBER,
7                          p_dest_organization_id       IN                NUMBER,
8                          p_dest_subinventory          IN                VARCHAR2,
9                          p_vendor_id                  IN                NUMBER,
10                          p_vendor_site_id             IN                NUMBER,
11                          p_not_purchasable_override   IN                VARCHAR2,
12                          p_unit_of_issue              IN OUT  NOCOPY    VARCHAR2,
13                          p_source_organization_id     OUT     NOCOPY    NUMBER,
14                          p_source_subinventory        OUT     NOCOPY    VARCHAR2,
15                          p_sourcing_type              OUT     NOCOPY    VARCHAR2,
16                          p_cost_price                 OUT     NOCOPY    NUMBER,
17                          p_error_message              OUT     NOCOPY    VARCHAR2
18     ) RETURN BOOLEAN
19 
20     IS
21 
22       --if customized, need to change to TRUE
23       l_is_customized_flag VARCHAR2(1) := 'N';
24 
25     BEGIN
26 
27       if l_is_customized_flag = 'N' then
28          return FALSE;
29       end if;
30 
31       -- Enter custom PL/SQL here
32 
33       RETURN TRUE;
34 
35     EXCEPTION
36        WHEN OTHERS THEN
37           RETURN FALSE;
38 
39     END autosource;
40 
41 
42 END POR_AUTOSOURCE_CUSTOM_PKG;