[Home] [Help]
PACKAGE BODY: APPS.PA_FUND_RC_CLIENT_EXTN
Source
1 PACKAGE BODY PA_FUND_RC_CLIENT_EXTN AS
2 /* $Header: PAFUNDCB.pls 120.1 2005/08/04 23:59:07 rgandhi noship $ */
3
4 -------------------------------------------------------------------------------
5 -- Client extension to override Currency Conversion attributes
6
7 PROCEDURE Override_Rob_Conv_attributes(
8 p_calling_mode IN VARCHAR2 ,
9 p_funding_line_rec_old IN PA_MC_FUNDINGS_PKG.FundingLineRecord,
10 p_funding_line_rec_new IN PA_MC_FUNDINGS_PKG.FundingLineRecord,
11 p_primary_set_of_books_id IN NUMBER ,
12 p_primary_currency_code IN VARCHAR2 ,
13 p_reporting_set_of_books_id IN NUMBER ,
14 p_reporting_currency_code IN VARCHAR2 ,
15 p_funding_currency_code IN VARCHAR2 ,
16 p_conversion_type IN VARCHAR2 ,
17 p_conversion_date IN DATE ,
18 p_exchange_rate IN NUMBER,
19 p_project_id IN NUMBER,
20 p_agreement_id IN NUMBER,
21 p_task_id IN NUMBER,
22 p_project_funding_id IN NUMBER, /* Added for Funding Reval */
23 p_rc_realized_gains_amt IN NUMBER, /* Added for Funding Reval */
24 p_rc_realized_losses_amt IN NUMBER, /* Added for Funding Reval */
25 p_rc_inv_applied_amount IN NUMBER, /* Added for Funding Reval */
26 p_rc_inv_due_amount IN NUMBER, /* Added for Funding Reval */
27 p_rc_backlog_amount IN NUMBER, /* Added for Funding Reval */
28 p_rc_reval_amount IN NUMBER, /* Added for Funding Reval */
29 p_rc_revalued_amount IN NUMBER, /* Added for Funding Reval */
30 x_rate_type OUT NOCOPY VARCHAR2,/*File.sql.39*/
31 x_rate_date OUT NOCOPY DATE,/*File.sql.39*/
32 x_exchange_rate OUT NOCOPY NUMBER,/*File.sql.39*/
33 x_rc_funding_amount OUT NOCOPY NUMBER,/*File.sql.39*/
34 /* x_accpt_calc_reval_amt_flag OUT VARCHAR2, Added for Funding Reval,
35 commented for bug 2562551 */
36 x_error_message OUT NOCOPY VARCHAR2,/*File.sql.39*/
37 x_status OUT NOCOPY NUMBER /*File.sql.39*/
38 )
39
40 IS
41 BEGIN
42
43 x_status := 0;
44
45 EXCEPTION
46 WHEN OTHERS THEN
47 x_rate_type :=NULL;
48 x_rate_date := NULL;
49 x_exchange_rate := NULL;
50 x_rc_funding_amount := NULL;
51 x_error_message := NULL;
52 x_status := -1;
53
54 END Override_Rob_Conv_attributes;
55
56 --------------------------------------------------------------------------------
57
58 END PA_FUND_RC_CLIENT_EXTN ;