1 PACKAGE AP_INVOICE_CORRECTIONS_PKG AUTHID CURRENT_USER AS
2 /*$Header: apinvcos.pls 120.2 2006/10/20 22:07:33 bghose noship $*/
3
4
5 TYPE r_corr_dist_info IS RECORD
6 (corrected_inv_dist_id AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE,--INDEX column
7 invoice_distribution_id AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE,
8 amount AP_INVOICE_DISTRIBUTIONS_ALL.AMOUNT%TYPE,
9 base_amount AP_INVOICE_DISTRIBUTIONS_ALL.BASE_AMOUNT%TYPE,
10 rounding_amt AP_INVOICE_DISTRIBUTIONS_ALL.ROUNDING_AMT%TYPE
11 );
12
13 TYPE dist_tab_type IS TABLE OF r_corr_dist_info INDEX BY BINARY_INTEGER;
14
15 -- Bug 5597409, Added included_tax_amount
16 TYPE r_corr_line_info IS RECORD
17 (corrected_line_number AP_INVOICE_LINES_ALL.LINE_NUMBER%TYPE, --INDEX column
18 line_amount AP_INVOICE_LINES_ALL.AMOUNT%TYPE,
19 base_amount AP_INVOICE_LINES_ALL.BASE_AMOUNT%TYPE,
20 rounding_amt AP_INVOICE_LINES_ALL.ROUNDING_AMT%TYPE,
21 line_number AP_INVOICE_LINES_ALL.LINE_NUMBER%TYPE,
22 included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE);
23
24 TYPE line_tab_type IS TABLE OF r_corr_line_info INDEX BY BINARY_INTEGER;
25
26 Procedure Invoice_Correction(
27 X_Invoice_Id IN NUMBER,
28 X_Invoice_Line_Number IN NUMBER,
29 X_Corrected_Invoice_Id IN NUMBER,
30 X_Corrected_Line_Number IN NUMBER,
31 X_Prorate_Lines_Flag IN VARCHAR2,
32 X_Prorate_Dists_Flag IN VARCHAR2,
33 X_Correction_Quantity IN NUMBER,
34 X_Correction_Amount IN NUMBER,
35 X_Correction_Price IN NUMBER,
36 X_Line_Tab IN OUT NOCOPY LINE_TAB_TYPE,
37 X_Dist_Tab IN OUT NOCOPY DIST_TAB_TYPE,
38 X_Calling_Sequence IN VARCHAR2);
39
40
41 END AP_INVOICE_CORRECTIONS_PKG;