1 PACKAGE PA_MCB_INVOICE_PKG AS
2 /* $Header: PAXMCIUS.pls 120.2 2007/02/07 23:59:26 rmarcel ship $ */
3
4 G_LAST_UPDATE_LOGIN NUMBER;
5 G_REQUEST_ID NUMBER;
6 G_PROGRAM_APPLICATION_ID NUMBER;
7 G_PROGRAM_ID NUMBER;
8 G_LAST_UPDATED_BY NUMBER;
9 G_CREATED_BY NUMBER;
10 G_DEBUG_MODE VARCHAR2(1);
11
12
13 PROCEDURE Event_Convert_amount_bulk
14 (
15 p_agreement_id IN NUMBER DEFAULT 0,
16 p_project_id IN Number,
17 p_request_id IN NUMBER,
18 p_task_id IN PA_PLSQL_DATATYPES.NumTabTyp,
19 p_event_num IN PA_PLSQL_DATATYPES.NumTabTyp,
20 p_bill_trans_currency_code IN PA_PLSQL_DATATYPES.Char30TabTyp,
21 p_bill_trans_bill_amount IN PA_PLSQL_DATATYPES.Char30TabTyp,
22 p_invproc_currency_code IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
23 p_invproc_rate_type IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
24 p_invproc_rate_date IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
25 p_invproc_exchange_rate IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
26 p_invproc_bill_amount IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
27 p_project_currency_code IN PA_PLSQL_DATATYPES.Char30TabTyp,
28 p_project_rate_type IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
29 p_project_rate_date IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
30 p_project_exchange_rate IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
31 p_projfunc_currency_code IN PA_PLSQL_DATATYPES.Char30TabTyp,
32 p_projfunc_rate_type IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
33 p_projfunc_rate_date IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
34 p_projfunc_exchange_rate IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
35 p_funding_rate_type IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
36 p_funding_rate_date IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
37 p_funding_exchange_rate IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
38 p_shared_funds_consumption IN NUMBER,
39 p_completion_date IN PA_PLSQL_DATATYPES.Char30TabTyp,
40 x_status_tab IN OUT NOCOPY PA_PLSQL_DATATYPES.Char30TabTyp,
41 x_return_status IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
42 );
43 /* Procedure to Convert the Line Amount to Funding Amount */
44 PROCEDURE Convert_Line_Event_amount (
45 p_agreement_id IN NUMBER ,
46 p_project_id IN NUMBER ,
47 p_task_id IN NUMBER ,
48 p_event_num IN NUMBER ,
49 p_invproc_bill_amount IN VARCHAR2,
50 x_project_bill_amount OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
51 x_projfunc_bill_amount OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
52 x_funding_currency_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
53 x_funding_bill_amount OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
54 x_funding_rate_date OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
55 x_funding_exchange_rate OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
56 x_funding_rate_type OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
57 x_bill_trans_inv_amount OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
58 x_status_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
59 x_return_status IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
60 );
61
62 -- Procedure will check whether the BTC can be converted to funding
63 -- currency
64
65 PROCEDURE Check_Funding_Conv_Attributes (
66 p_funding_currency_code IN VARCHAR2 ,
67 p_bill_trans_currency_code IN VARCHAR2 ,
68 p_bill_trans_bill_amount IN VARCHAR2 ,
69 p_funding_rate_type IN VARCHAR2 ,
70 p_funding_rate_date IN VARCHAR2,
71 p_funding_exchange_rate IN VARCHAR2,
72 x_funding_bill_amount OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
73 x_status_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
74 x_return_status IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
75
76 );
77
78 PROCEDURE log_message (p_log_msg IN VARCHAR2);
79
80 PROCEDURE Init (
81 P_DEBUG_MODE VARCHAR2);
82
83 PROCEDURE Inv_by_Bill_Trans_Currency(
84 p_project_id IN NUMBER,
85 p_request_id IN NUMBER,
86 x_return_status IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
87 );
88
89
90 END PA_MCB_INVOICE_PKG;