1 package body PA_CLIENT_EXTN_BURDEN as
2 /* $Header: PAXCCEBB.pls 120.1 2005/08/17 13:09:53 vgade noship $ */
3 procedure Override_Rate_Rev_Id(
4 p_transaction_type IN varchar2 DEFAULT 'ACTUAL',
5 p_tran_item_id IN number DEFAULT NULL,
6 p_tran_type IN Varchar2 DEFAULT NULL,
7 p_task_id IN number DEFAULT NULL,
8 p_schedule_type IN Varchar2 DEFAULT NULL,
9 p_exp_item_date IN Date DEFAULT NULL,
10 x_sch_fixed_date OUT NOCOPY Date,
11 x_rate_sch_rev_id OUT NOCOPY number,
12 x_status OUT NOCOPY number ) is
13 begin
14 -- Add your logic to override rate_sch_rev_id
15 /* Comments for bug fix 2563364 start */
16 -- When this procedure is called from the transaction import process,
17 -- p_tran_item_id has the value txn_interface_id from pa_transaction_interface_all
18 -- table. In this case, p_tran_type will have the value 'TRANSACTION_IMPORT'.
19 -- When this procedure is called by any other process,
20 -- p_tran_item_id has the value expenditure_item_id and p_tran_type
21 -- has the value 'PA'.
22 /* Comments for bug fix 2563363 end */
23 -- valid values for p_schedule_types are
24 -- C - Costing Schedule
25 -- R - Revenue Schedule
26 -- I - Invoice Schedule
27 --
28 -- This procedure will return rate_sch_rev_id and status
29 -- All parameter names start with p_ will be input variables
30 -- All parameter names start with x_ will be output variables
31 --
32 -- Note : rate_sch_rev_id and sch_fixed_date should be passed
33 -- together (i.e. both variables has to NOT NULL or both has
34 -- to be NULL)
35 --
36 -- Do not add 'commit' or 'rollback' in your code, since Oracle
37 -- Project Accounting controls the transaction for you.
38 --
39 -- After the logic assign appropriate values for out variables
40 --
41 x_sch_fixed_date := NULL;
42 x_rate_sch_rev_id := NULL;
43 x_status := NULL;
44
45 exception
46 when others then
47 -- Add your exception handler here.
48 -- To raise an application error, assign a positive number to x_status.
49 -- To raise an ORACLE error, assign SQLCODE to x_status.
50 --
51 x_sch_fixed_date := NULL;
52 x_rate_sch_rev_id := NULL;
53 x_status := NULL;
54
55 end Override_Rate_Rev_Id;
56
57 end PA_CLIENT_EXTN_BURDEN ;