1 PACKAGE AP_ACCOUNTING_PAY_PKG AUTHID CURRENT_USER AS
2 /* $Header: apacpays.pls 120.17 2011/08/30 00:18:19 vasvenka ship $ */
3
4
5 -- Public Variables declared here
6
7 G_Base_Currency_Code AP_SYSTEM_PARAMETERS.Base_Currency_Code%TYPE;
8
9 G_Pay_Pmt_History_ID AP_PAYMENT_HISTORY.Payment_History_ID%TYPE;
10 G_Pmt_To_Base_XRate_Type AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Type%TYPE;
11 G_Pmt_To_Base_XRate_Date AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Date%TYPE;
12 G_Pmt_To_Base_XRate AP_PAYMENT_HISTORY.Pmt_To_Base_XRate%TYPE;
13
14 G_Mat_Pmt_History_ID AP_PAYMENT_HISTORY.Payment_History_ID%TYPE;
15 G_Mat_To_Base_XRate_Type AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Type%TYPE;
16 G_Mat_To_Base_XRate_Date AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Date%TYPE;
17 G_Mat_To_Base_XRate AP_PAYMENT_HISTORY.Pmt_To_Base_XRate%TYPE;
18
19 G_Clr_Pmt_History_ID AP_PAYMENT_HISTORY.Payment_History_ID%TYPE;
20 G_Clr_To_Base_XRate_Type AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Type%TYPE;
21 G_Clr_To_Base_XRate_Date AP_PAYMENT_HISTORY.Pmt_To_Base_XRate_Date%TYPE;
22 G_Clr_To_Base_XRate AP_PAYMENT_HISTORY.Pmt_To_Base_XRate%TYPE;
23
24 /* added for Bug10183934 */
25 G_TOTAL_PAY CONSTANT VARCHAR2(15) := 'TOTAL_PAY';
26 G_TOTAL_APPL CONSTANT VARCHAR2(15) := 'TOTAL_APPL';
27 G_FINAL_PAY CONSTANT VARCHAR2(15) := 'FINAL_PAY';
28 G_FINAL_APPL CONSTANT VARCHAR2(15) := 'FINAL_APPL';
29 G_COMPARE_PAY CONSTANT VARCHAR2(15) := 'COMPARE_PAY';
30
31 -- Record for cursor xla_events_cur
32 -- bug9716573, added budgetary control flag to the record structure
33 -- bug11772495, removed budgetary control flag from the record structure
34 -- bug10412623, added entity_id and ledger_id to record structure
35 -- bug12918263, removed entity_id, ledger_id to the cursor
36 TYPE r_xla_event_info IS RECORD
37 (event_id XLA_EVENTS_GT.event_id%TYPE
38 ,event_type_code XLA_EVENTS_GT.event_type_code%TYPE
39 ,event_date XLA_EVENTS_GT.event_date%TYPE
40 ,event_number XLA_EVENTS_GT.event_number%TYPE
41 ,event_status_code XLA_EVENTS_GT.event_status_code%TYPE
42 ,entity_code XLA_EVENTS_GT.entity_code%TYPE
43 ,source_id_int_1 XLA_EVENTS_GT.source_id_int_1%TYPE
44 -- ,entity_id XLA_EVENTS_GT.entity_id%TYPE
45 -- ,ledger_id XLA_EVENTS_GT.ledger_id%TYPE
46 );
47
48
49 -- Record for cursor payment_history
50 TYPE r_pay_hist_info IS RECORD
51 (Payment_History_ID AP_Payment_History.Payment_History_ID%TYPE
52 ,Accounting_Date AP_Payment_History.Accounting_Date%TYPE --bug9271242
53 ,Pmt_Currency_Code AP_Payment_History.Pmt_Currency_Code%TYPE
54 ,Pmt_To_Base_XRate_Type AP_Payment_History.Pmt_To_Base_XRate_Type%TYPE
55 ,Pmt_To_Base_XRate_Date AP_Payment_History.Pmt_To_Base_XRate_Date%TYPE
56 ,Pmt_To_Base_XRate AP_Payment_History.Pmt_To_Base_XRate%TYPE
57 ,Bank_Currency_Code AP_Payment_History.Bank_Currency_Code%TYPE
58 ,Bank_To_Base_XRate_Type AP_Payment_History.Bank_To_Base_XRate_Type%TYPE
59 ,Bank_To_Base_XRate_Date AP_Payment_History.Bank_To_Base_XRate_Date%TYPE
60 ,Bank_To_Base_XRate AP_Payment_History.Bank_To_Base_XRate%TYPE
61 ,Errors_Bank_Amount AP_Payment_History.Errors_Bank_Amount%TYPE
62 ,Charges_Bank_Amount AP_Payment_History.Charges_Bank_Amount%TYPE
63 ,Rev_Pmt_Hist_ID AP_Payment_History.Rev_Pmt_Hist_ID%TYPE
64 ,Related_Event_ID AP_Payment_History.Related_Event_ID%TYPE
65 ,Invoice_Adjustment_Event_ID AP_Payment_History.Invoice_Adjustment_Event_ID%TYPE
66 );
67
68
69 -- Record for cursor invoice_header
70 TYPE r_invoices_info IS RECORD
71 (Invoice_ID AP_Invoices.Invoice_ID%TYPE
72 ,GL_Date AP_Invoices.GL_Date%TYPE --bug9271242
73 ,Invoice_Amount AP_Invoices.Invoice_Amount%TYPE
74 ,Invoice_Currency_Code AP_Invoices.Invoice_Currency_Code%TYPE
75 ,Payment_Currency_Code AP_Invoices.Payment_Currency_Code%TYPE
76 ,Base_Currency_Code AP_System_Parameters.Base_Currency_Code%TYPE
77 ,Pay_Curr_Invoice_Amount AP_Invoices.Pay_Curr_Invoice_Amount%TYPE
78 ,Payment_Cross_Rate_Type AP_Invoices.Payment_Cross_Rate_Type%TYPE
79 ,Payment_Cross_Rate_Date AP_Invoices.Payment_Cross_Rate_Date%TYPE
80 ,Payment_Cross_Rate AP_Invoices.Payment_Cross_Rate%TYPE
81 ,Exchange_Rate_Type AP_Invoices.Exchange_Rate_Type%TYPE
82 ,Exchange_Date AP_Invoices.Exchange_Date%TYPE
83 ,Exchange_Rate AP_Invoices.Exchange_Rate%TYPE
84 ,Disc_Is_Inv_Less_Tax_Flag AP_Invoices.Disc_Is_Inv_Less_Tax_Flag%TYPE
85 ,Exclude_Freight_From_Discount AP_Invoices.Exclude_Freight_From_Discount%TYPE
86 );
87
88
89 -- Record for cursor invoice_dists
90 TYPE r_inv_dist_info IS RECORD
91 (Invoice_Distribution_ID AP_Invoice_Distributions.Invoice_Distribution_ID%TYPE
92 ,Line_Type_Lookup_Code AP_Invoice_Distributions.Line_Type_Lookup_Code%TYPE
93 ,Amount AP_Invoice_Distributions.Amount%TYPE
94 ,Base_Amount AP_Invoice_Distributions.Base_Amount%TYPE
95 ,PO_Distribution_ID AP_Invoice_Distributions.PO_Distribution_ID%TYPE
96 ,RCV_Transaction_ID AP_Invoice_Distributions.RCV_Transaction_ID%TYPE
97 ,Reversal_Flag AP_Invoice_Distributions.Reversal_Flag%TYPE
98 ,Parent_Reversal_ID AP_Invoice_Distributions.Parent_Reversal_ID%TYPE
99 ,AWT_Related_ID AP_Invoice_Distributions.AWT_Related_ID%TYPE
100 ,AWT_Invoice_Payment_ID AP_Invoice_Distributions.AWT_Invoice_Payment_ID%TYPE
101 ,Quantity_Variance AP_Invoice_Distributions.Quantity_Variance%TYPE
102 ,Base_Quantity_Variance AP_Invoice_Distributions.Base_Quantity_Variance%TYPE
103 ,Amount_Variance AP_Invoice_Distributions.Amount_Variance%TYPE
104 ,Base_Amount_Variance AP_Invoice_Distributions.Base_Amount_Variance%TYPE
105 ,Historical_Flag AP_Invoice_Distributions.Historical_Flag%TYPE
106 ,Accounting_Event_Id AP_Invoice_Distributions.Accounting_Event_id%TYPE
107 );
108
109 -- Main procedure to create payment hist dists and prepay appl payment dists
110 PROCEDURE Do_Pay_Accounting
111 (P_Calling_Sequence IN VARCHAR2
112 );
113
114 PROCEDURE Delete_Hist_Dists
115 (P_Calling_Sequence IN VARCHAR2
116 );
117
118 -- bug9256922
119 PROCEDURE Prorate_Historical_Dists
120 (P_calling_sequence IN VARCHAR2
121 );
122
123
124 FUNCTION Get_Casc_Pay_Sum
125 (P_Invoice_Distribution_ID IN NUMBER
126 ,P_Related_Event_ID IN NUMBER
127 ,P_Invoice_Payment_ID IN NUMBER
128 ,P_Calling_Sequence IN VARCHAR2
129 ) RETURN NUMBER;
130
131
132 FUNCTION Get_Casc_Inv_Dist_Sum
133 (P_Invoice_Distribution_ID IN NUMBER
134 ,P_Related_Event_ID IN NUMBER
135 ,P_Invoice_Payment_ID IN NUMBER
136 ,P_Calling_Sequence IN VARCHAR2
137 ) RETURN NUMBER;
138
139
140 FUNCTION Get_Casc_Bank_Curr_Sum
141 (P_Invoice_Distribution_ID IN NUMBER
142 ,P_Related_Event_ID IN NUMBER
143 ,P_Invoice_Payment_ID IN NUMBER
144 ,P_Calling_Sequence IN VARCHAR2
145 ) RETURN NUMBER;
146
147
148 FUNCTION Get_Casc_Prepay_Sum
149 (P_Invoice_Distribution_ID IN NUMBER
150 ,P_Prepay_App_Dist_ID IN NUMBER
151 ,P_Calling_Sequence IN VARCHAR2
152 ) RETURN NUMBER;
153
154
155 FUNCTION Get_Casc_Tax_Diff_Sum
156 (P_Invoice_Distribution_ID IN NUMBER
157 ,P_Prepay_App_Dist_ID IN NUMBER
158 ,P_Calling_Sequence IN VARCHAR2
159 ) RETURN NUMBER;
160
161
162 FUNCTION Get_Casc_Discount_Sum
163 (P_Invoice_Distribution_ID IN NUMBER
164 ,P_Related_Event_ID IN NUMBER
165 ,P_Invoice_Payment_ID IN NUMBER
166 ,P_Calling_Sequence IN VARCHAR2
167 ) RETURN NUMBER;
168
169
170 FUNCTION Get_Casc_Inv_Dist_Disc_Sum
171 (P_Invoice_Distribution_ID IN NUMBER
172 ,P_Related_Event_ID IN NUMBER
173 ,P_Invoice_Payment_ID IN NUMBER
174 ,P_Calling_Sequence IN VARCHAR2
175 ) RETURN NUMBER;
176
177
178 FUNCTION Get_Casc_Bank_Curr_Disc_Sum
179 (P_Invoice_Distribution_ID IN NUMBER
180 ,P_Related_Event_ID IN NUMBER
181 ,P_Invoice_Payment_ID IN NUMBER
182 ,P_Calling_Sequence IN VARCHAR2
183 ) RETURN NUMBER;
184
185
186 PROCEDURE Get_Pay_Sum
187 (P_Invoice_Distribution_ID IN NUMBER
188 ,P_Transaction_Type IN VARCHAR2
189 ,P_Payment_Sum OUT NOCOPY NUMBER
190 ,P_Inv_Dist_Sum OUT NOCOPY NUMBER
191 ,P_Bank_Curr_Sum OUT NOCOPY NUMBER
192 ,P_Calling_Sequence IN VARCHAR2
193 );
194 --Bug 9282465
195 PROCEDURE Get_Pay_Base_Sum
196 (P_Invoice_Distribution_ID IN NUMBER
197 ,P_Transaction_Type IN VARCHAR2
198 ,P_Payment_Sum OUT NOCOPY NUMBER
199 ,P_Inv_Dist_Sum OUT NOCOPY NUMBER
200 ,P_Bank_Curr_Sum OUT NOCOPY NUMBER
201 ,P_Calling_Sequence IN VARCHAR2
202 );
203
204 FUNCTION Get_Prepay_Sum
205 (P_Invoice_Distribution_ID IN NUMBER
206 ,P_Calling_Sequence IN VARCHAR2
207 ) RETURN NUMBER;
208
209 --Bug 9282465
210 PROCEDURE Get_Prepay_Base_Sum
211 (P_Invoice_Distribution_ID IN NUMBER
212 ,P_Paid_Base_Sum OUT NOCOPY NUMBER
213 ,P_Inv_Dist_Base_Sum OUT NOCOPY NUMBER
214 ,P_Clr_Base_Curr_Sum OUT NOCOPY NUMBER
215 ,P_Calling_Sequence IN VARCHAR2
216 );
217
218 /* added for bug10183934 */
219 FUNCTION Is_Upgrade_Proration_Exists
220 (P_Rounding_Method IN VARCHAR2
221 ,P_Inv_Rec IN r_invoices_info
222 ,P_Invoice_payment_id IN NUMBER
223 ,P_Prepay_Appl_Distribution_Id IN NUMBER
224 ,P_Prepay_Distribution_id IN NUMBER
225 ,P_Transaction_Type IN VARCHAR2
226 ,P_Calling_Sequence IN VARCHAR2
227 ) RETURN BOOLEAN;
228
229 FUNCTION Is_Final_Payment
230 (P_Inv_Rec IN r_invoices_info
231 ,P_Payment_Amount IN NUMBER
232 ,P_Discount_Amount IN NUMBER
233 ,P_Prepay_Amount IN NUMBER
234 ,P_Transaction_Type IN VARCHAR2
235 ,P_Calling_Sequence IN VARCHAR2
236 ) RETURN BOOLEAN;
237
238 FUNCTION Get_Base_Amount
239 (P_amount IN NUMBER
240 ,P_currency_code IN VARCHAR2
241 ,P_base_currency_code IN VARCHAR2
242 ,P_exchange_rate_type IN VARCHAR2
243 ,P_exchange_rate_date IN DATE
244 ,P_exchange_rate IN NUMBER
245 ,P_calling_sequence IN VARCHAR2
246 ) RETURN NUMBER;
247
248 --bug 9108925
249 FUNCTION Is_Final_Event
250 (P_Inv_Rec IN r_invoices_info
251 ,P_XLA_Event_Rec IN r_xla_event_info
252 ,P_Prepay_App_Dist_Id IN AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE
253 ,P_Calling_Sequence IN VARCHAR2
254 ) RETURN BOOLEAN;
255
256 END AP_ACCOUNTING_PAY_PKG;