1 package body PA_Client_Extn_Costing as
2 /* $Header: PAXCCECB.pls 120.2 2007/02/06 09:28:07 rshaik ship $ */
3
4 procedure Calc_Raw_Cost(
5 x_transaction_type in varchar2 default 'ACTUAL',
6 x_expenditure_item_id in number,
7 x_sys_linkage_function in varchar2,
8 x_denom_raw_cost in out NOCOPY pa_expenditure_items.raw_cost%type, --Changed for Bug#3858467
9 x_denom_currency_code in out NOCOPY pa_expenditure_items.denom_currency_code%type, --Added for Bug#5594124
10 x_status in out NOCOPY number )
11 is
12 begin
13 -- Reset the output parameters.
14 x_denom_raw_cost := NULL;
15 x_denom_currency_code := NULL; -- Added for bug#5594124
16 x_status := 0;
17 if ( x_transaction_type = 'ACTUAL') then
18 if (x_sys_linkage_function = 'ST') then
19 -- Add your calculation of straight time expenditure item.
20 -- Do not add 'commit' or 'rollback' in your code, since Oracle
21 -- Project Accounting controls the transaction for you.
22 -- If the processing for straight time and overtime expenditure
23 -- items are identical, remove this 'if' statement.
24 null;
25 else
26 -- Add your calculation of overtime expenditure item.
27 null;
28 end if;
29 elsif ( x_transaction_type = 'FORECAST') then
30 -- Add your calculation for forecast
31 null;
32 end if;
33 exception
34 when others then
35 -- Add your exception handler here.
36 -- To raise an application error, assign a positive number to x_status.
37 -- To raise an ORACLE error, assign SQLCODE to x_status.
38 x_status := SQLCODE;
39 null;
40
41 end Calc_Raw_Cost;
42
43 end PA_Client_Extn_Costing;