1 PACKAGE BODY PA_Client_Extn_Funding_Reval AS
2 /* $Header: PAXBFRCB.pls 120.2 2005/08/19 17:09:01 mwasowic noship $ */
3
4 /*----------------------------------------------------------------------------*/
5 -- Start of Comments
6 -- API Name : Funding_Revaluation_factor
7 -- Type : Public
8 -- Pre-Reqs : None
9 -- Function : Oracle Projects Billing Client Extension for
10 -- Funding Revalution Factor.
11 -- Parameters :
12 -- IN P_Project_ID IN NUMBER Required
13 -- Project Identifier. Corresponds to the Column
14 -- PROJECT_ID of PA_PROJECTS_ALL Table
15 -- P_Top_Task_ID IN NUMBER Optional
16 -- Top Task Identifier. Corresponds to the Column
17 -- TASK_ID of PA_TASKS Table
18 -- P_Agreement_ID IN NUMBER Required
19 -- Agreement Identifier. Corresponds to the Column
20 -- AGREEMENT_ID of the PA_AGREEMENTS_ALL Table
21 -- P_Funding_Currency IN VARCHAR2 Required
22 -- Funding Currency .
23 -- FUNDING_CURRENCY_CODE of the PA_SUMMARY_PROJECT_FUNDINGS Table
24 -- P_InvProc_Currency IN VARCHAR2 Required
25 -- Invoice Processing Currency .
26 -- INVPROC_CURRENCY_CODE of the PA_SUMMARY_PROJECT_FUNDINGS Table
27 -- P_reval_through_date IN DATE Required
28 -- Revaluation Through Date
29 -- P_reval_rate_date IN DATE Required
30 -- Revaluation Rate Date
31 -- P_reval_rate_type IN VARCHAR2 Required
32 -- Revaluation Rate Type
33 -- P_revaluation_rate IN NUMBER Required
34 -- Revaluation Exchange Rate
35 -- P_Funding_Backlog_Amount IN NUMBER Required
36 -- Backlog Amount in Funding Currency .
37 -- P_Funding_paid_Amount IN NUMBER Required
38 -- Paid Amount in Funding Currency .
39 -- P_Funding_Unpaid_Amount IN NUMBER Required
40 -- Unpaid Amount in Funding Currency .
41 -- P_Projfunc_Backlog_Amount IN NUMBER Required
42 -- Backlog Amount in Project Functional Currency .
43 -- P_Projfunc_paid_Amount IN NUMBER Required
44 -- Paid Amount in Project Functional Currency .
45 -- P_Projfunc_Unpaid_Amount IN NUMBER Required
46 -- Unpaid Amount in Project Functional Currency .
47 -- P_Invproc_Backlog_amount IN NUMBER Optional
48 -- Backlog Amount in Invoice Processing Currency .
49 -- X_funding_reval_factor OUT NUMBER DEFAULT 1
50 -- X_Status OUT VARCHAR2 Optional
51 -- Return Status of the Procedure. Values are
52 -- = 0 - Successfull Execution
53 -- < 0 - Oracle Error
54 -- > 0 - Application Error
55 --
56 -- End of Comments
57 /*----------------------------------------------------------------------------*/
58 Procedure Funding_Revaluation_factor (
59 P_Project_ID IN NUMBER,
60 P_Top_Task_ID IN NUMBER,
61 P_Agreement_ID IN NUMBER,
62 P_Funding_Currency IN VARCHAR2,
63 P_ProjFunc_Currency IN VARCHAR2,
64 P_InvProc_Currency IN VARCHAR2,
65 P_reval_through_date IN DATE,
66 P_reval_rate_date IN DATE,
67 P_projfunc_rate_type IN VARCHAR2,
68 P_reval_projfunc_rate IN NUMBER,
69 P_invproc_rate_type IN VARCHAR2,
70 P_reval_invproc_rate IN NUMBER,
71 P_Funding_Backlog_Amount IN NUMBER ,
72 P_Funding_paid_Amount IN NUMBER,
73 P_Funding_Unpaid_Amount IN NUMBER,
74 P_Projfunc_Backlog_Amount IN NUMBER,
75 P_Projfunc_paid_Amount IN NUMBER,
76 P_Projfunc_Unpaid_Amount IN NUMBER,
77 P_Invproc_Backlog_amount IN NUMBER,
78 X_funding_reval_factor OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
79 X_Status OUT NOCOPY NUMBER) IS --File.Sql.39 bug 4440895
80
81 l_funding_reval_factor NUMBER:=1;
82 x1_funding_reval_factor NUMBER:= x_funding_reval_factor;
83
84 BEGIN
85 x_funding_reval_factor := l_funding_reval_factor;
86 x_status :=0;
87 EXCEPTION
88 when others then
89 x_funding_reval_factor := x1_funding_reval_factor; -- NOCOPY
90 END Funding_Revaluation_Factor;
91
92 END PA_Client_Extn_Funding_Reval;