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;
6         dpl_string varchar2(2000);
7 
8     BEGIN
9 
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;