DBA Data[Home] [Help]

APPS.AP_INVOICE_LINES_PKG dependencies on AP_INVOICE_LINES

Line 1: PACKAGE BODY AP_INVOICE_LINES_PKG as

1: PACKAGE BODY AP_INVOICE_LINES_PKG as
2: /* $Header: apinlinb.pls 120.109.12020000.4 2012/11/23 12:03:45 cmaredup ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_INVOICE_LINES_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_INVOICE_LINES_PKG';

1: PACKAGE BODY AP_INVOICE_LINES_PKG as
2: /* $Header: apinlinb.pls 120.109.12020000.4 2012/11/23 12:03:45 cmaredup ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_INVOICE_LINES_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;

Line 20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_INVOICE_LINES_PKG.';

16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_INVOICE_LINES_PKG.';
21:
22: --Bug14383132: Start
23: l_user_id ap_invoices_all.created_by%TYPE := FND_GLOBAL.user_id;
24: l_reverse_dist_count NUMBER := 0; --Bug14383132

Line 48: X_dist_tab IN OUT NOCOPY AP_INVOICE_LINES_PKG.dist_tab_type,

44: X_vendor_id IN AP_INVOICES.VENDOR_ID%TYPE,
45: X_invoice_date IN AP_INVOICES.INVOICE_DATE%TYPE,
46: X_invoice_lines_rec IN AP_INVOICES_PKG.r_invoice_line_rec,
47: X_line_source IN VARCHAR2,
48: X_dist_tab IN OUT NOCOPY AP_INVOICE_LINES_PKG.dist_tab_type,
49: X_dist_set_total_percent IN NUMBER,
50: X_exchange_rate IN AP_INVOICES.EXCHANGE_RATE%TYPE,
51: X_exchange_rate_type IN AP_INVOICES.EXCHANGE_RATE_TYPE%TYPE,
52: X_exchange_date IN AP_INVOICES.EXCHANGE_DATE%TYPE,

Line 185: 'AP_INVOICE_LINES_PKG.generate_dist_tab_for_dist_set<-'

181:
182: -- Update the calling sequence
183: --
184: current_calling_sequence :=
185: 'AP_INVOICE_LINES_PKG.generate_dist_tab_for_dist_set<-'
186: ||X_calling_sequence;
187: l_api_name := 'Generate_Dist_Tab_For_Dist_Set';
188:
189: --Bug 10182226: Populate line base amount.

Line 1207: FROM AP_INVOICE_LINES

1203: --bugfix:4674194
1204: ship_to_location_id,
1205: --bugfix:7022001
1206: pay_awt_group_id
1207: FROM AP_INVOICE_LINES
1208: WHERE invoice_id = X_invoice_id
1209: AND line_number = X_line_number;
1210:
1211:

Line 1256: y_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;

1252: l_msg_count NUMBER;
1253: l_msg_data VARCHAR2(30);
1254: l_error_code VARCHAR2(4000); --Bug7539216
1255:
1256: y_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
1257:
1258: current_calling_sequence VARCHAR2(1000);
1259: debug_info VARCHAR2(2000);
1260: debug_context VARCHAR2(1000);

Line 1266: current_calling_sequence := 'AP_INVOICE_LINES_PKG.insert_from_dist_set<-'

1262:
1263: BEGIN
1264: -- Update the calling sequence
1265: --
1266: current_calling_sequence := 'AP_INVOICE_LINES_PKG.insert_from_dist_set<-'
1267: ||X_calling_sequence;
1268: --------------------------------------------------------------
1269: -- Step 1 - Validate that distribution set was passed or
1270: -- get it from the line IF line already exists.

Line 1663: l_line_base_amount ap_invoice_lines.base_amount%TYPE;

1659: RETURN BOOLEAN IS
1660: l_rounded_amt NUMBER := 0;
1661: l_round_dist_id_list distribution_id_tab_type;
1662: l_base_currency_code ap_system_parameters.base_currency_code%TYPE;
1663: l_line_base_amount ap_invoice_lines.base_amount%TYPE;
1664: l_line_amount ap_invoice_lines.amount%TYPE;
1665: l_invoice_currency_code ap_invoices.invoice_currency_code%TYPE;
1666: l_reporting_currency_code ap_invoices.invoice_currency_code%TYPE;
1667: l_sum_base_amt NUMBER;

Line 1664: l_line_amount ap_invoice_lines.amount%TYPE;

1660: l_rounded_amt NUMBER := 0;
1661: l_round_dist_id_list distribution_id_tab_type;
1662: l_base_currency_code ap_system_parameters.base_currency_code%TYPE;
1663: l_line_base_amount ap_invoice_lines.base_amount%TYPE;
1664: l_line_amount ap_invoice_lines.amount%TYPE;
1665: l_invoice_currency_code ap_invoices.invoice_currency_code%TYPE;
1666: l_reporting_currency_code ap_invoices.invoice_currency_code%TYPE;
1667: l_sum_base_amt NUMBER;
1668: l_sum_rpt_base_amt NUMBER;

Line 1679: FROM ap_invoices AI, ap_system_parameters ASP, ap_invoice_lines AIL

1675: SELECT decode(x_reporting_ledger_id, null, AIL.base_amount, null),
1676: AIL.amount, -- line_amount
1677: AI.invoice_currency_code, -- invoice_currency_code
1678: ASP.base_currency_code -- base_currency_code
1679: FROM ap_invoices AI, ap_system_parameters ASP, ap_invoice_lines AIL
1680: WHERE AI.invoice_id = X_invoice_id
1681: AND AIL.invoice_id = AI.invoice_id
1682: AND AIL.line_number = X_line_number
1683: AND ASP.org_id = AI.org_id;

Line 1828: P_line_rec IN ap_invoice_lines%ROWTYPE,

1824: |
1825: *============================================================================*/
1826:
1827: Function Discard_Inv_Line(
1828: P_line_rec IN ap_invoice_lines%ROWTYPE,
1829: P_calling_mode IN VARCHAR2,
1830: P_inv_cancellable IN VARCHAR2 DEFAULT NULL,
1831: P_last_updated_by IN NUMBER,
1832: P_last_update_login IN NUMBER,

Line 1870: l_included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE;

1866: l_error_code VARCHAR2(4000);
1867: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
1868: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
1869: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
1870: l_included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE;
1871: l_tax_distribution_count NUMBER;
1872:
1873: --Contract Payments
1874: l_prepay_dist_info AP_PREPAY_PKG.prepay_dist_tab_type;

Line 1966: ,ap_invoice_lines_all ail

1962: CURSOR c_charge_lines(c_invoice_id number,
1963: c_item_line_number number) Is
1964: SELECT ail.*
1965: FROM ap_allocation_rule_lines arl
1966: ,ap_invoice_lines_all ail
1967: WHERE arl.invoice_id = c_invoice_id
1968: AND arl.to_invoice_line_number = c_item_line_number
1969: AND arl.invoice_id = ail.invoice_id
1970: AND arl.chrg_invoice_line_number = ail.line_number

Line 1978: l_chrg_line_rec ap_invoice_lines_all%rowtype;

1974: from ap_invoice_distributions_all aid
1975: where aid.invoice_id = ail.invoice_id
1976: and aid.invoice_line_number = ail.line_number);
1977:
1978: l_chrg_line_rec ap_invoice_lines_all%rowtype;
1979:
1980: -- Bug 5396138 Start
1981: cursor c_recouped_shipment IS
1982: select pll.line_location_id

Line 1991: from ap_invoice_lines_all ail

1987: 'AMOUNT_CORRECTION', 0,
1988: 'ITEM_TO_SERVICE_PO', 0,
1989: 'ITEM_TO_SERVICE_RECEIPT', 0,
1990: NVL(AID.corrected_quantity, 0) + NVL(AID.quantity_invoiced,0))) quantity
1991: from ap_invoice_lines_all ail
1992: ,ap_invoice_distributions_all aid
1993: ,po_distributions_all pod
1994: ,po_line_locations_all pll
1995: where ail.invoice_id = p_line_rec.invoice_id

Line 2025: TYPE r_ppay_incl_arr IS TABLE OF ap_invoice_lines_all.invoice_includes_prepay_flag%TYPE; /*Bug 9841966*/

2021: l_payment_currency_code ap_invoices_all.payment_currency_code%TYPE;
2022: l_amount_remaining number;
2023:
2024: TYPE r_line_number_arr IS TABLE OF ap_invoice_distributions.distribution_line_number%TYPE; /*Bug 9841966*/
2025: TYPE r_ppay_incl_arr IS TABLE OF ap_invoice_lines_all.invoice_includes_prepay_flag%TYPE; /*Bug 9841966*/
2026:
2027: --bugfix:5697764
2028: l_tax_line_number r_line_number_arr; --number; /*Bug 9841966: Commented old datatype and changed it to pl/sql array*/
2029: l_unapplied_tax_amount number;

Line 2034: l_prepay_included r_ppay_incl_arr;--ap_invoice_lines_all.invoice_includes_prepay_flag%type; /*Bug 9841966: Commented old datatype and changed it to pl/sql array*/

2030: l_unapplied_tax_amt_pay_curr number;
2031: l_invoice_currency_code ap_invoices_all.invoice_currency_code%type;
2032: l_payment_cross_rate_date ap_invoices_all.payment_cross_rate_date%type;
2033: l_payment_cross_rate_type ap_invoices_all.payment_cross_rate_type%type;
2034: l_prepay_included r_ppay_incl_arr;--ap_invoice_lines_all.invoice_includes_prepay_flag%type; /*Bug 9841966: Commented old datatype and changed it to pl/sql array*/
2035:
2036: --bug 8361741
2037: l_itm_dist_count NUMBER;
2038: l_invoice_rec AP_APPROVAL_PKG.Invoice_Rec;

Line 2068: AP_INVOICE_LINES_PKG.get_max_dist_line_num(

2064: 'N' accrual_posted_flag,
2065: 'U' assets_addition_flag,
2066: tax_dist.assets_tracking_flag assets_tracking_flag, --Bug14772756
2067: 'N' cash_posted_flag,
2068: AP_INVOICE_LINES_PKG.get_max_dist_line_num(
2069: p_line_rec.invoice_id,
2070: tax_dist.invoice_line_number)+1
2071: distribution_line_number,
2072: tax_dist.dist_code_combination_id dist_code_combination_id,

Line 2502: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||

2498:
2499:
2500: l_api_name := 'Discard_Inv_Line';
2501:
2502: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
2503: P_calling_sequence;
2504:
2505: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2506: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');

Line 2506: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');

2502: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
2503: P_calling_sequence;
2504:
2505: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2506: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');
2507: END IF;
2508:
2509: -- Added additional columns for bug 8361741
2510: SELECT ai.invoice_type_lookup_code,

Line 2646: l_ok_to_discard := AP_INVOICE_LINES_UTILITY_PKG.Is_Line_Discardable(

2642:
2643: IF ( NVL( P_calling_mode, 'DISCARD' ) IN ( 'DISCARD', 'UNAPPLY_PREPAY' ) ) THEN
2644: IF ( NVL(P_line_rec.discarded_flag, 'N') <> 'Y' ) THEN
2645: /* Base Line ARU Issue */
2646: l_ok_to_discard := AP_INVOICE_LINES_UTILITY_PKG.Is_Line_Discardable(
2647: P_line_rec,
2648: l_error_code,
2649: l_curr_calling_sequence );
2650:

Line 2660: FROM ap_invoice_lines_all ail

2656: ELSE
2657:
2658: SELECT COUNT(1)
2659: INTO l_manual_tax_lines
2660: FROM ap_invoice_lines_all ail
2661: WHERE invoice_id = P_line_rec.invoice_id
2662: AND line_type_lookup_code = 'TAX'
2663: AND summary_tax_line_id IS NULL;
2664:

Line 2775: update ap_invoice_lines_all ail

2771: l_debug_info := 'Reset generate distributions flag on related charge lines';
2772: Print (l_api_name, l_debug_info);
2773: ----------------------------------------------------------------------------
2774:
2775: update ap_invoice_lines_all ail
2776: set generate_dists = 'Y'
2777: where ail.invoice_id = p_line_rec.invoice_id
2778: and exists (select arl.chrg_invoice_line_number
2779: from ap_allocation_rule_lines arl

Line 2798: if not ap_invoice_lines_pkg.reverse_charge_distributions

2794: l_debug_info := 'Reverse charge distributions';
2795: Print (l_api_name,l_debug_info);
2796: ----------------------------------------------------------------------------
2797:
2798: if not ap_invoice_lines_pkg.reverse_charge_distributions
2799: (p_inv_line_rec => l_chrg_line_rec
2800: ,p_calling_mode => p_calling_mode
2801: ,x_error_code => l_error_code
2802: ,x_debug_info => l_debug_info

Line 3805: FROM ap_invoice_lines

3801: END IF;
3802:
3803: SELECT included_tax_amount
3804: INTO l_included_tax_amount
3805: FROM ap_invoice_lines
3806: WHERE invoice_id = p_line_rec.invoice_id
3807: AND line_number = p_line_rec.line_number;
3808:
3809: END IF; /* if l_ok_to_discard = 'Y' */

Line 4106: UPDATE ap_invoice_lines_all

4102: IF p_line_rec.line_type_lookup_code = 'RETAINAGE RELEASE' AND
4103: p_line_rec.retained_invoice_id IS NOT NULL AND
4104: p_line_rec.retained_line_number IS NOT NULL THEN
4105:
4106: UPDATE ap_invoice_lines_all
4107: SET retained_amount_remaining = nvl(retained_amount_remaining, 0) + p_line_rec.amount
4108: WHERE invoice_id = p_line_rec.retained_invoice_id
4109: AND line_number = p_line_rec.retained_line_number;
4110:

Line 4159: UPDATE ap_invoice_lines

4155:
4156: /*-----------------------------------------------------------------+
4157: | Step 2. Zero out line level data and MRC data maintainence |
4158: +-----------------------------------------------------------------*/
4159: UPDATE ap_invoice_lines
4160: SET original_amount = amount
4161: ,original_base_amount = base_amount
4162: ,original_rounding_amt = rounding_amt
4163: ,amount = 0

Line 4210: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num(

4206:
4207: IF ( l_distribution_count <> 0 ) THEN
4208:
4209: l_debug_info := 'Get the maximum distribution line number';
4210: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num(
4211: p_line_rec.invoice_id,
4212: p_line_rec.line_number);
4213:
4214: -- Bug fix 4748638

Line 4806: ap_invoice_lines ail1, --item line

4802:
4803: SELECT aid.invoice_line_number,nvl(ail1.invoice_includes_prepay_flag,'N')
4804: BULK COLLECT INTO l_tax_line_number,l_prepay_included /*Bug 9841966: Change to bulk collect*/
4805: FROM ap_invoice_distributions aid, --tax dists
4806: ap_invoice_lines ail1, --item line
4807: ap_invoice_distributions aid1 --item distributions
4808: WHERE ail1.invoice_id = aid1.invoice_id
4809: AND ail1.invoice_id = p_line_rec.invoice_id
4810: AND ail1.line_number = p_line_rec.line_number

Line 5050: 'AP_INVOICE_LINES_PKG.Discard_Inv_Line(-)');

5046: END IF;
5047:
5048: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5049: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
5050: 'AP_INVOICE_LINES_PKG.Discard_Inv_Line(-)');
5051: END IF;
5052:
5053: p_error_code := NULL;
5054: RETURN (TRUE);

Line 5086: (p_inv_line_rec IN AP_INVOICE_LINES_ALL%rowtype,

5082:
5083: END Discard_Inv_line;
5084:
5085: FUNCTION Reverse_Charge_Distributions
5086: (p_inv_line_rec IN AP_INVOICE_LINES_ALL%rowtype,
5087: p_calling_mode IN VARCHAR2,
5088: x_error_code OUT NOCOPY VARCHAR2,
5089: x_debug_info OUT NOCOPY VARCHAR2,
5090: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN IS

Line 5104: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;

5100: l_api_name := 'Reverse_Charge_Distributions';
5101: ------------------------------------------------------
5102: Print (l_api_name,'Reverse_Charge_Distributions (+)');
5103: ------------------------------------------------------
5104: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
5105:
5106: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
5107: (p_inv_line_rec.invoice_id,
5108: p_inv_line_rec.line_number);

Line 5106: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num

5102: Print (l_api_name,'Reverse_Charge_Distributions (+)');
5103: ------------------------------------------------------
5104: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
5105:
5106: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
5107: (p_inv_line_rec.invoice_id,
5108: p_inv_line_rec.line_number);
5109:
5110: --Bug 8733916

Line 5710: END AP_INVOICE_LINES_PKG;

5706: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name,p_debug_info);
5707: END IF;
5708: END Print;
5709:
5710: END AP_INVOICE_LINES_PKG;
5711: