1 package body PA_Costing_Client_Extns as
2 -- $Header: PAXCHCEB.pls 120.2 2007/02/06 09:29:11 rshaik ship $
3
4
5 procedure Add_Transactions_Hook( x_expenditure_item_id in number,
6 x_sys_linkage_function in varchar2,
7 x_status in out NOCOPY number)
8 is
9 begin
10
11 PA_Client_Extn_Txn.Add_Transactions(x_expenditure_item_id,
12 x_sys_linkage_function,
13 x_status);
14
15 exception
16 when others then
17 x_status := SQLCODE;
18
19 end Add_Transactions_Hook;
20
21
22 procedure Calc_Raw_Cost_Hook(
23 x_transaction_type in varchar2 default 'ACTUAL',
24 x_expenditure_item_id in number,
25 x_sys_linkage_function in varchar2,
26 x_raw_cost_amount in out NOCOPY pa_expenditure_items.raw_cost%type, --Changed for Bug#3858467
27 x_currency_code in out NOCOPY pa_expenditure_items.denom_currency_code%type, -- Added for bug#5594124
28 x_status in out NOCOPY number)
29 is
30 /* Added the following parameters for bug 5594124 */
31 l_denom_currency_code pa_expenditure_items.denom_currency_code%type;
32
33 begin
34
35 l_denom_currency_code := x_currency_code; /* Added for bug 5594124 */
36 /* Added the parameter x_currency_code in the call to Calc_Raw_Cost */
37 PA_Client_Extn_Costing.Calc_Raw_Cost(x_transaction_type,
38 x_expenditure_item_id,
39 x_sys_linkage_function,
40 x_raw_cost_amount,
41 x_currency_code,
42 x_status);
43
44 /* Rounding off tmount depending on the currency */
45 /* x_raw_cost_amount := pa_currency.round_currency_amt(x_raw_cost_amount); commented for bug#2573989 */
46
47
48 if (NVL(x_currency_code, l_denom_currency_code) = l_denom_currency_code) then
49
50 x_currency_code := l_denom_currency_code;
51
52 end if;
53
54 exception
55 when others then
56 x_status := SQLCODE;
57
58 end Calc_Raw_Cost_Hook;
59
60
61 end PA_Costing_Client_Extns;