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;