PACKAGE BODY: APPS.CST_LANDEDCOSTHOOK_PUB

Source

1 PACKAGE BODY CST_LandedCostHook_PUB AS
2 /* $Header: CSTPLHKB.pls 120.1 2005/08/17 16:50:35 nnayak noship $ */
3 
4 -- FUNCTION
5 --  landed_cost_hook	Cover routine to get acquisition cost from
6 --                      Landed Cost Management. This function
7 --				is called by both CSTPPACQ.
8 --
9 --
10 -- RETURN VALUES
11 --  integer		1	Hook has been used.
12 --			0  	Hook has not been used.
13 --
14 
15 function landed_cost_hook(
16   I_PERIOD_ID		IN	NUMBER,
17   I_START_DATE          IN      DATE,
18   I_END_DATE            IN      DATE,
19   I_COST_TYPE_ID	IN 	NUMBER,
20   I_COST_GROUP_ID	IN	NUMBER,
21   I_USER_ID		IN	NUMBER,
22   I_LOGIN_ID    	IN	NUMBER,
23   I_REQ_ID		IN	NUMBER,
24   I_PROG_ID		IN 	NUMBER,
25   I_PROG_APPL_ID	IN	NUMBER,
26   O_Err_Num		OUT NOCOPY	NUMBER,
27   O_Err_Code		OUT NOCOPY	VARCHAR2,
28   O_Err_Msg		OUT NOCOPY	VARCHAR2
29 )
30 return integer  IS
31 BEGIN
32   o_err_num := 0;
33   o_err_code := '';
34   o_err_msg := '';
35 
36   return 0;
37 
38 EXCEPTION
39 
40   when others then
41     o_err_num := SQLCODE;
42     o_err_msg := 'CST_LandedCostHook_PUB.landed_cost_hook:' || substrb(SQLERRM,1,150);
43     return 0;
44 
45 END landed_cost_hook;
46 
47 END CST_LandedCostHook_PUB;