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.64.12010000.10 2008/12/04 11:47:49 njakkula 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.64.12010000.10 2008/12/04 11:47:49 njakkula 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: PROCEDURE Print (p_api_name IN VARCHAR2, p_debug_info IN VARCHAR2);
23:
24: -----------------------------------------------------------------------

Line 34: X_dist_tab IN OUT NOCOPY AP_INVOICE_LINES_PKG.dist_tab_type,

30: X_vendor_id IN AP_INVOICES.VENDOR_ID%TYPE,
31: X_invoice_date IN AP_INVOICES.INVOICE_DATE%TYPE,
32: X_invoice_lines_rec IN AP_INVOICES_PKG.r_invoice_line_rec,
33: X_line_source IN VARCHAR2,
34: X_dist_tab IN OUT NOCOPY AP_INVOICE_LINES_PKG.dist_tab_type,
35: X_dist_set_total_percent IN NUMBER,
36: X_exchange_rate IN AP_INVOICES.EXCHANGE_RATE%TYPE,
37: X_exchange_rate_type IN AP_INVOICES.EXCHANGE_RATE_TYPE%TYPE,
38: X_exchange_date IN AP_INVOICES.EXCHANGE_DATE%TYPE,

Line 171: 'AP_INVOICE_LINES_PKG.generate_dist_tab_for_dist_set<-'

167:
168: -- Update the calling sequence
169: --
170: current_calling_sequence :=
171: 'AP_INVOICE_LINES_PKG.generate_dist_tab_for_dist_set<-'
172: ||X_calling_sequence;
173: l_api_name := 'Generate_Dist_Tab_For_Dist_Set';
174: --------------------------------------------------------------
175: -- Step 1

Line 1153: FROM AP_INVOICE_LINES

1149: --bugfix:4674194
1150: ship_to_location_id,
1151: --bugfix:7022001
1152: pay_awt_group_id
1153: FROM AP_INVOICE_LINES
1154: WHERE invoice_id = X_invoice_id
1155: AND line_number = X_line_number;
1156:
1157:

Line 1202: y_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;

1198: l_msg_count NUMBER;
1199: l_msg_data VARCHAR2(30);
1200: l_error_code VARCHAR2(30);
1201:
1202: y_dist_tab AP_INVOICE_LINES_PKG.dist_tab_type;
1203:
1204: current_calling_sequence VARCHAR2(1000);
1205: debug_info VARCHAR2(2000);
1206: debug_context VARCHAR2(1000);

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

1208:
1209: BEGIN
1210: -- Update the calling sequence
1211: --
1212: current_calling_sequence := 'AP_INVOICE_LINES_PKG.insert_from_dist_set<-'
1213: ||X_calling_sequence;
1214: --------------------------------------------------------------
1215: -- Step 1 - Validate that distribution set was passed or
1216: -- get it from the line IF line already exists.

Line 1609: l_line_base_amount ap_invoice_lines.base_amount%TYPE;

1605: RETURN BOOLEAN IS
1606: l_rounded_amt NUMBER := 0;
1607: l_round_dist_id_list distribution_id_tab_type;
1608: l_base_currency_code ap_system_parameters.base_currency_code%TYPE;
1609: l_line_base_amount ap_invoice_lines.base_amount%TYPE;
1610: l_line_amount ap_invoice_lines.amount%TYPE;
1611: l_invoice_currency_code ap_invoices.invoice_currency_code%TYPE;
1612: l_reporting_currency_code ap_invoices.invoice_currency_code%TYPE;
1613: l_sum_base_amt NUMBER;

Line 1610: l_line_amount ap_invoice_lines.amount%TYPE;

1606: l_rounded_amt NUMBER := 0;
1607: l_round_dist_id_list distribution_id_tab_type;
1608: l_base_currency_code ap_system_parameters.base_currency_code%TYPE;
1609: l_line_base_amount ap_invoice_lines.base_amount%TYPE;
1610: l_line_amount ap_invoice_lines.amount%TYPE;
1611: l_invoice_currency_code ap_invoices.invoice_currency_code%TYPE;
1612: l_reporting_currency_code ap_invoices.invoice_currency_code%TYPE;
1613: l_sum_base_amt NUMBER;
1614: l_sum_rpt_base_amt NUMBER;

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

1621: SELECT decode(x_reporting_ledger_id, null, AIL.base_amount, null),
1622: AIL.amount, -- line_amount
1623: AI.invoice_currency_code, -- invoice_currency_code
1624: ASP.base_currency_code -- base_currency_code
1625: FROM ap_invoices AI, ap_system_parameters ASP, ap_invoice_lines AIL
1626: WHERE AI.invoice_id = X_invoice_id
1627: AND AIL.invoice_id = AI.invoice_id
1628: AND AIL.line_number = X_line_number
1629: AND ASP.org_id = AI.org_id;

Line 1773: P_line_rec IN ap_invoice_lines%ROWTYPE,

1769: |
1770: *============================================================================*/
1771:
1772: Function Discard_Inv_Line(
1773: P_line_rec IN ap_invoice_lines%ROWTYPE,
1774: P_calling_mode IN VARCHAR2,
1775: P_inv_cancellable IN VARCHAR2 DEFAULT NULL,
1776: P_last_updated_by IN NUMBER,
1777: P_last_update_login IN NUMBER,

Line 1815: l_included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE;

1811: l_error_code VARCHAR2(4000);
1812: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
1813: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
1814: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
1815: l_included_tax_amount AP_INVOICE_LINES_ALL.INCLUDED_TAX_AMOUNT%TYPE;
1816: l_tax_distribution_count NUMBER;
1817:
1818: --Contract Payments
1819: l_prepay_dist_info AP_PREPAY_PKG.prepay_dist_tab_type;

Line 1884: ,ap_invoice_lines_all ail

1880: CURSOR c_charge_lines(c_invoice_id number,
1881: c_item_line_number number) Is
1882: SELECT ail.*
1883: FROM ap_allocation_rule_lines arl
1884: ,ap_invoice_lines_all ail
1885: WHERE arl.invoice_id = c_invoice_id
1886: AND arl.to_invoice_line_number = c_item_line_number
1887: AND arl.invoice_id = ail.invoice_id
1888: AND arl.chrg_invoice_line_number = ail.line_number

Line 1895: l_chrg_line_rec ap_invoice_lines_all%rowtype;

1891: from ap_invoice_distributions_all aid
1892: where aid.invoice_id = ail.invoice_id
1893: and aid.invoice_line_number = ail.line_number);
1894:
1895: l_chrg_line_rec ap_invoice_lines_all%rowtype;
1896:
1897: -- Bug 5396138 Start
1898: cursor c_recouped_shipment IS
1899: select pll.line_location_id

Line 1908: from ap_invoice_lines_all ail

1904: 'AMOUNT_CORRECTION', 0,
1905: 'ITEM_TO_SERVICE_PO', 0,
1906: 'ITEM_TO_SERVICE_RECEIPT', 0,
1907: NVL(AID.corrected_quantity, 0) + NVL(AID.quantity_invoiced,0))) quantity
1908: from ap_invoice_lines_all ail
1909: ,ap_invoice_distributions_all aid
1910: ,po_distributions_all pod
1911: ,po_line_locations_all pll
1912: where ail.invoice_id = p_line_rec.invoice_id

Line 1948: l_prepay_included ap_invoice_lines_all.invoice_includes_prepay_flag%type;

1944: l_unapplied_tax_amt_pay_curr number;
1945: l_invoice_currency_code ap_invoices_all.invoice_currency_code%type;
1946: l_payment_cross_rate_date ap_invoices_all.payment_cross_rate_date%type;
1947: l_payment_cross_rate_type ap_invoices_all.payment_cross_rate_type%type;
1948: l_prepay_included ap_invoice_lines_all.invoice_includes_prepay_flag%type;
1949:
1950: BEGIN
1951:
1952: l_shipment_amt_billed := 0;

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

1960: l_shipment_qty_financed := 0;
1961:
1962: l_api_name := 'Discard_Inv_Line';
1963:
1964: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
1965: P_calling_sequence;
1966:
1967: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1968: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');

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

1964: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Discard_Inv_Line <-' ||
1965: P_calling_sequence;
1966:
1967: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1968: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_INVOICE_LINES_PKG.Discard_Inv_Line(+)');
1969: END IF;
1970:
1971:
1972: SELECT invoice_type_lookup_code,

Line 2033: l_ok_to_discard := AP_INVOICE_LINES_UTILITY_PKG.Is_Line_Discardable(

2029:
2030: IF ( NVL( P_calling_mode, 'DISCARD' ) IN ( 'DISCARD', 'UNAPPLY_PREPAY' ) ) THEN
2031: IF ( NVL(P_line_rec.discarded_flag, 'N') <> 'Y' ) THEN
2032: /* Base Line ARU Issue */
2033: l_ok_to_discard := AP_INVOICE_LINES_UTILITY_PKG.Is_Line_Discardable(
2034: P_line_rec,
2035: l_error_code,
2036: l_curr_calling_sequence );
2037:

Line 2103: update ap_invoice_lines_all ail

2099: l_debug_info := 'Reset generate distributions flag on related charge lines';
2100: Print (l_api_name, l_debug_info);
2101: ----------------------------------------------------------------------------
2102:
2103: update ap_invoice_lines_all ail
2104: set generate_dists = 'Y'
2105: where ail.invoice_id = p_line_rec.invoice_id
2106: and exists (select arl.chrg_invoice_line_number
2107: from ap_allocation_rule_lines arl

Line 2124: if not ap_invoice_lines_pkg.reverse_charge_distributions

2120: l_debug_info := 'Reverse charge distributions';
2121: Print (l_api_name,l_debug_info);
2122: ----------------------------------------------------------------------------
2123:
2124: if not ap_invoice_lines_pkg.reverse_charge_distributions
2125: (p_inv_line_rec => l_chrg_line_rec
2126: ,p_calling_mode => p_calling_mode
2127: ,x_error_code => l_error_code
2128: ,x_debug_info => l_debug_info

Line 2192: FROM ap_invoice_lines

2188: END IF;
2189:
2190: SELECT included_tax_amount
2191: INTO l_included_tax_amount
2192: FROM ap_invoice_lines
2193: WHERE invoice_id = p_line_rec.invoice_id
2194: AND line_number = p_line_rec.line_number;
2195:
2196: END IF; /* if l_ok_to_discard = 'Y' */

Line 2490: UPDATE ap_invoice_lines_all

2486: IF p_line_rec.line_type_lookup_code = 'RETAINAGE RELEASE' AND
2487: p_line_rec.retained_invoice_id IS NOT NULL AND
2488: p_line_rec.retained_line_number IS NOT NULL THEN
2489:
2490: UPDATE ap_invoice_lines_all
2491: SET retained_amount_remaining = nvl(retained_amount_remaining, 0) + p_line_rec.amount
2492: WHERE invoice_id = p_line_rec.retained_invoice_id
2493: AND line_number = p_line_rec.retained_line_number;
2494:

Line 2541: UPDATE ap_invoice_lines

2537:
2538: /*-----------------------------------------------------------------+
2539: | Step 2. Zero out line level data and MRC data maintainence |
2540: +-----------------------------------------------------------------*/
2541: UPDATE ap_invoice_lines
2542: SET original_amount = amount
2543: ,original_base_amount = base_amount
2544: ,original_rounding_amt = rounding_amt
2545: ,amount = 0

Line 2584: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num(

2580:
2581: IF ( l_distribution_count <> 0 ) THEN
2582:
2583: l_debug_info := 'Get the maximum distribution line number';
2584: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num(
2585: p_line_rec.invoice_id,
2586: p_line_rec.line_number);
2587:
2588: /*-----------------------------------------------------------------+

Line 3129: ap_invoice_lines ail1, --item line

3125:
3126: SELECT aid.invoice_line_number,nvl(ail1.invoice_includes_prepay_flag,'N')
3127: INTO l_tax_line_number,l_prepay_included
3128: FROM ap_invoice_distributions aid, --tax dists
3129: ap_invoice_lines ail1, --item line
3130: ap_invoice_distributions aid1 --item distributions
3131: WHERE ail1.invoice_id = aid1.invoice_id
3132: AND ail1.invoice_id = p_line_rec.invoice_id
3133: AND ail1.line_number = p_line_rec.line_number

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

3269: END IF;
3270:
3271: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3272: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
3273: 'AP_INVOICE_LINES_PKG.Discard_Inv_Line(-)');
3274: END IF;
3275:
3276: p_error_code := NULL;
3277: RETURN (TRUE);

Line 3309: (p_inv_line_rec IN AP_INVOICE_LINES_ALL%rowtype,

3305:
3306: END Discard_Inv_line;
3307:
3308: FUNCTION Reverse_Charge_Distributions
3309: (p_inv_line_rec IN AP_INVOICE_LINES_ALL%rowtype,
3310: p_calling_mode IN VARCHAR2,
3311: x_error_code OUT NOCOPY VARCHAR2,
3312: x_debug_info OUT NOCOPY VARCHAR2,
3313: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN IS

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

3322: l_api_name := 'Reverse_Charge_Distributions';
3323: ------------------------------------------------------
3324: Print (l_api_name,'Reverse_Charge_Distributions (+)');
3325: ------------------------------------------------------
3326: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
3327:
3328:
3329: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
3330: (p_inv_line_rec.invoice_id,

Line 3329: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num

3325: ------------------------------------------------------
3326: l_curr_calling_sequence := 'AP_INVOICE_LINES_PKG.Reverse_Charge_Distributions <-' || p_calling_sequence;
3327:
3328:
3329: l_max_line_num := AP_INVOICE_LINES_PKG.get_max_dist_line_num
3330: (p_inv_line_rec.invoice_id,
3331: p_inv_line_rec.line_number);
3332:
3333: ------------------------------------------------------

Line 3686: END AP_INVOICE_LINES_PKG;

3682: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||p_api_name,p_debug_info);
3683: END IF;
3684: END Print;
3685:
3686: END AP_INVOICE_LINES_PKG;
3687: