[Home] [Help]
PACKAGE BODY: APPS.MSC_CL_ISP_SUPPLIER
Source
1 PACKAGE BODY MSC_CL_ISP_SUPPLIER AS -- body
2 /* $Header: MSCXISPB.pls 115.0 2002/05/21 22:41:38 pkm ship $ */
3
4 FUNCTION GET_PO_VENDOR_ID(p_user_name varchar2) return NUMBER IS
5 user_id NUMBER;
9
6 dpl_string varchar2(2000);
7
8 BEGIN
10 dpl_string := 'SELECT POS_VENDOR_UTIL_PKG.get_po_vendor_id_for_user(:user_name) from dual';
11
12 execute immediate dpl_string into user_id using p_user_name;
13
14 RETURN user_id;
15
16 EXCEPTION WHEN OTHERS THEN
17
18 if SQLCODE = -904 THEN
19 --dbms_output.put_line('Error while getting supplier_id');
20 --dbms_output.put_line(SQLERRM);
21 return -1;
22 end if;
23
24 END;
25
26
27 END MSC_CL_ISP_SUPPLIER;