[Home] [Help]
PACKAGE: APPS.PA_INVOICE_CURRENCY
Source
1 PACKAGE PA_INVOICE_CURRENCY as
2 /* $Header: PAXICURS.pls 120.1 2005/08/19 17:14:09 mwasowic noship $ */
3
4
5 g_currency_code VARCHAR2(15);
6
7 --
8 -- This package will populate the invoice currency code,conversion
9 -- attributes of PA_DRAFT_INVOICES and inv_amount of PA_DRAFT_INVOICE
10 -- _ITEMS.
11 -- Procedure : RECALCULATE
12 -- Parameter :
13 -- P_Project_Id - Project Id
14 -- P_Draft_Inv_Num - Draft Invoice
15 -- P_Calling_Module - Calling Program
16 -- P_Customer_Id - Customer Id
17 -- P_Inv_currency_code - Invoice Currency Code
18 -- P_Inv_Rate_Type - Invoice Rate Type
19 -- P_Inv_Rate_Date - Invoice Rate Date
20 -- P_Inv_Exchange_Rate - Invoice Exchange Rate
21 -- P_User_Id - User Id ( For Future Enhancement )
22 -- P_Bill_Thru_Date - Bill Thru Date
23 -- X_Status - Output Status = NULL - Successful
24 -- = Application Error Code
25 -- for PAXINRVW
26 --
27 -- Note :
28 -- This procedure will not lock any table explicitly. For PAXINRVW, PA_DRAFT
29 -- _INVOICES should be locked for that invoices by the calling program. For
30 -- PAIGEN, PA_PROJECTS should be locked by the calling program.
31 --
32
33 --- Function to format currency for Multi Radix changes
34 --- global currency code is fetched from invoice program (paisql.lpc)
35
36 FUNCTION format_proj_curr_code RETURN VARCHAR2;
37 pragma RESTRICT_REFERENCES ( format_proj_curr_code, WNDS );
38
39
40 PROCEDURE RECALCULATE ( P_Project_Id IN NUMBER,
41 P_Draft_Inv_Num IN NUMBER,
42 P_Calling_Module IN VARCHAR2,
43 P_Customer_Id IN NUMBER,
44 P_Inv_currency_code IN VARCHAR2,
45 P_Inv_Rate_Type IN VARCHAR2,
46 P_Inv_Rate_Date IN DATE,
47 P_Inv_Exchange_Rate IN NUMBER,
48 P_User_Id IN NUMBER,
49 P_Bill_Thru_Date IN DATE,
50 X_Status OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
51
52
53 -- Procedure : get_inv_curr_info
54 -- Usage : This procedure fetches the invoice currency and currency
55 -- attribute for the input Invoice.
56 -- Parameter : P_Project_Id -- Project Id
57 -- P_Draft_Inv_Num -- Draft Invoice Number
58 -- X_Inv_curr_code -- out Invoice Currency Code
59 -- X_Inv_rate_type -- out Invoice Rate Type
60 -- X_Inv_rate_date -- out Invoice Rate date
61 -- X_Inv_exchange_rate -- out Invoice Exchange rate
62
63 PROCEDURE get_inv_curr_info ( P_Project_Id IN NUMBER,
64 P_Draft_Inv_Num IN NUMBER,
65 X_Inv_curr_code OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
66 X_Inv_rate_type OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
67 X_Inv_rate_date OUT NOCOPY DATE, --File.Sql.39 bug 4440895
68 X_Inv_exchange_rate OUT NOCOPY NUMBER); --File.Sql.39 bug 4440895
69
70 /* Bug 3051294 */
71 -- Procedure : get_projfunc_inv_curr_info
72 -- Usage : This procedure fetches the currency attributes for the project functional currency
73 -- and input Invoice.
74 -- Parameter : P_Project_Id -- Project Id
75 -- P_Draft_Inv_Num -- Draft Invoice Number
76 -- X_Projfunc_Inv_rate_type -- out Project Functional Invoice Rate Type
77 -- X_Projfunc_Inv_rate_date -- out Project Functional Invoice Rate date
78 -- X_Projfunc_Inv_ex_rate -- out Project Functional Invoice Exchange rate
79
80 PROCEDURE get_projfunc_inv_curr_info ( P_Project_Id IN NUMBER,
81 P_Draft_Inv_Num IN NUMBER,
82 X_Projfunc_Inv_rate_type OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
83 X_Projfunc_Inv_rate_date OUT NOCOPY DATE, --File.Sql.39 bug 4440895
84 X_Projfunc_Inv_ex_rate OUT NOCOPY NUMBER); --File.Sql.39 bug 4440895
85
86 -- Procedure : get_proj_curr_info
87 -- Usage : This procedure will return the project currency
88 -- for the input project.
89 -- Parameter : P_Project_Id -- Project Id
90 -- X_Inv_curr_code -- out Project Currency
91
92 PROCEDURE get_proj_curr_info ( P_Project_Id IN NUMBER,
93 X_Inv_curr_code OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
94
95
96 -- Procedure : Update_CRMemo_Invamt
97 -- Usage : This procedure will update the credit memo line amt
98 -- for Invoicing currency.
99 -- Parameter : P_Project_Id -- Project Id
100 -- P_Draft_Inv_Num -- Draft Invoice Number
101 -- P_Draft_Inv_Num_Credited -- Credited Invoice Number
102 PROCEDURE Update_CRMemo_Invamt ( P_Project_Id IN NUMBER,
103 P_Draft_Inv_Num IN NUMBER,
104 P_Draft_Inv_Num_Credited IN NUMBER) ;
105
106
107 -- Procedure : Recalculate_Driver
108 -- Usage : Used to populate the invoice line amount in
109 -- invoice currency.
110 -- Parameters :
111 -- IN P_Request_ID IN NUMBER Required
112 -- Request ID of the Generate Draft Invoice Process.
113 -- Corresponds to REQUEST_ID of PA_DRAFT_INVOICES_ALL
114 -- P_User_ID IN NUMBER Required
115 -- Logged in UserId.
116 -- P_Project_ID IN NUMBER Optional
117 -- Project Identifier. Corresponds to the Column
118 -- PROJECT_ID of PA_PROJECTS_ALL Table
119 --
120 Procedure Recalculate_Driver( P_Request_ID in number,
121 P_User_ID in number,
122 P_Project_ID in number,
123 P_calling_Process IN VARCHAR2 DEFAULT 'PROJECT_INVOICES');
124
125
126 END PA_INVOICE_CURRENCY;