PACKAGE BODY: APPS.CSTPAPHK

Source

1 PACKAGE BODY CSTPAPHK AS
2 /* $Header: CSTAPHKB.pls 115.3 2002/11/08 02:34:46 awwang ship $ */
3 
4 
5 -- FUNCTION
6 --  get_account_id		Cover routine to allow users the flexbility
7 --				in determining the account they want to
8 --				post the inventory transaction to.
9 --
10 --
11 -- RETURN VALUES
12 --  integer		>0	User selected account number
13 --			-1  	Use the default account for distribution.
14 --
15 function get_account_id(
16   I_TXN_ID		IN 	NUMBER,
17   I_LEGAL_ENTITY	IN	NUMBER,
18   I_COST_TYPE_ID	IN	NUMBER,
19   I_COST_GROUP_ID	IN	NUMBER,
20   I_DR_FLAG		IN	BOOLEAN,
21   I_ACCT_LINE_TYPE	IN	NUMBER,
22   I_COST_ELEMENT_ID	IN	NUMBER,
23   I_RESOURCE_ID		IN	NUMBER,
24   I_SUBINV		IN	VARCHAR2,
25   I_EXP			IN	BOOLEAN,
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 -1;
37 
38 EXCEPTION
39 
40   when others then
41     o_err_num := SQLCODE;
42     o_err_msg := 'CSTPAPHK.GET_ACCOUNT_ID:' || substrb(SQLERRM,1,150);
43     return -1;
44 
45 END get_account_id;
46 
47 END CSTPAPHK;
48