DBA Data[Home] [Help]

APPS.AP_INTEREST_INVOICE_PKG dependencies on AP_INVOICE_DISTRIBUTIONS

Line 162: * Step 5. Create ap_invoice_distributions line

158: * Step 1. Call ap_int_inv_get_info to get some required fields
159: * Step 2. Create interest ap_invoices line
160: * Step 3. Create ap_invoice_relationships line
161: * Step 4. Create ap_invoice_lines line
162: * Step 5. Create ap_invoice_distributions line
163: * Step 6. Create ap_payment_schedules line
164: * Step 7. Create ap_invoice_payemnts line (Call ap_pay_invoice_pkg.ap_pay_
165: insert_invoice_payments)
166:

Line 419: -- Call ap_int_inv_insert_ap_inv_dist: Insert AP_INVOICE_DISTRIBUTIONS

415: P_calling_sequence);
416:
417: ---------------------------------------------------------------------------
418: -- Step 5: Case for Pay : for Pay interest invoice only
419: -- Call ap_int_inv_insert_ap_inv_dist: Insert AP_INVOICE_DISTRIBUTIONS
420: ---------------------------------------------------------------------------
421:
422: AP_INTEREST_INVOICE_PKG.ap_int_inv_insert_ap_inv_dist(
423: P_int_invoice_id,

Line 1226: Insert AP_INVOICE_DISTRIBUTIONS

1222: END ap_int_inv_insert_ap_inv_line;
1223:
1224:
1225: /*==========================================================================
1226: Insert AP_INVOICE_DISTRIBUTIONS
1227: *=====================================================================*/
1228:
1229: PROCEDURE ap_int_inv_insert_ap_inv_dist(
1230: P_int_invoice_id IN NUMBER,

Line 1263: ap_invoice_distributions.invoice_distribution_id%TYPE;

1259:
1260: debug_info VARCHAR2(100);
1261: current_calling_sequence VARCHAR2(2000);
1262: l_invoice_distribution_id
1263: ap_invoice_distributions.invoice_distribution_id%TYPE;
1264: l_proration_divisor number;
1265: l_inv_distribution_line_number number;
1266: l_distribution_total number;
1267: l_distribution_base_total number;

Line 1293: FROM ap_invoice_distributions AID

1289: P_base_currency_code) prorated_dist_base_amt,
1290: dist_code_combination_id,
1291: type_1099,
1292: income_tax_region
1293: FROM ap_invoice_distributions AID
1294: WHERE AID.invoice_id = P_invoice_id
1295: AND AID.line_type_lookup_code IN ('ITEM', 'IPV','ACCRUAL')
1296: ORDER BY AID.invoice_distribution_id;
1297:

Line 1316: -- Modify INSERT INTO AP_INVOICE_DISTRIBUTIONS:

1312: -- 2. Round interest amount before using it in calculating the base
1313: -- currency interest amount.
1314: -- 3. Add 'IPV' type along with 'ITEM' type distributions.
1315: -- Modify SELECT nvl(sum(AID.amount),0) to include 'IPV' type.
1316: -- Modify INSERT INTO AP_INVOICE_DISTRIBUTIONS:
1317: -- Add invoice_line_number, Remove exchange columns, Add a few
1318: -- other Columns.
1319:
1320: -- In 11ix we will always prorate distributions. We will not have

Line 1351: INSERT INTO AP_INVOICE_DISTRIBUTIONS

1347: ap_system_parameters ;
1348: debug_info := 'inserting tax dsitribution using system defined account in ap_system_parameters';
1349: l_inv_distribution_line_number :=
1350: NVL(l_inv_distribution_line_number,0) + 1;
1351: INSERT INTO AP_INVOICE_DISTRIBUTIONS
1352: (INVOICE_ID,
1353: DIST_CODE_COMBINATION_ID,
1354: INVOICE_DISTRIBUTION_ID,
1355: INVOICE_LINE_NUMBER,

Line 1406: ap_invoice_distributions_s.NEXTVAL,

1402: RCV_CHARGE_ADDITION_FLAG)
1403: VALUES (
1404: P_int_invoice_id,
1405: l_system_interest_account ,
1406: ap_invoice_distributions_s.NEXTVAL,
1407: 1,
1408: SYSDATE,
1409: P_last_updated_by,
1410: SYSDATE,

Line 1461: FROM ap_invoice_distributions AID

1457:
1458: debug_info := 'Selecting distribution for proration';
1459: SELECT nvl(sum(AID.amount),0)
1460: INTO l_proration_divisor
1461: FROM ap_invoice_distributions AID
1462: WHERE AID.invoice_id = P_invoice_id
1463: AND AID.line_type_lookup_code IN ('ITEM', 'IPV','ACCRUAL');
1464:
1465: debug_info := 'Opening the prorate cursor';

Line 1483: INSERT INTO AP_INVOICE_DISTRIBUTIONS

1479: rec_prorate_int_inv.prorated_dist_base_amt;
1480:
1481:
1482: debug_info := 'Inserting invoice ditsributions';
1483: INSERT INTO AP_INVOICE_DISTRIBUTIONS
1484: (INVOICE_ID,
1485: DIST_CODE_COMBINATION_ID,
1486: INVOICE_DISTRIBUTION_ID,
1487: INVOICE_LINE_NUMBER,

Line 1538: ap_invoice_distributions_s.NEXTVAL,

1534: RCV_CHARGE_ADDITION_FLAG)
1535: VALUES (
1536: P_int_invoice_id,
1537: rec_prorate_int_inv.dist_code_combination_id,
1538: ap_invoice_distributions_s.NEXTVAL,
1539: 1,
1540: SYSDATE,
1541: P_last_updated_by,
1542: SYSDATE,

Line 1593: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',

1589:
1590: debug_info := 'Calling DBI Pkg';
1591: --Bug 4539462 DBI logging
1592: AP_DBI_PKG.Maintain_DBI_Summary
1593: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',
1594: p_operation => 'I',
1595: p_key_value1 => P_int_invoice_id,
1596: p_key_value2 => l_invoice_distribution_id,
1597: p_calling_sequence => current_calling_sequence);

Line 1604: -- ap_invoice_distributions is equal to the invoice_amount

1600: CLOSE c_prorate_int_inv;
1601: END IF ;
1602:
1603: -- Make sure that the total of amount and base amount in
1604: -- ap_invoice_distributions is equal to the invoice_amount
1605: -- and base_amount of ap_invoices table
1606:
1607: IF (p_interest_amount <> l_distribution_total OR
1608: p_interest_base_amount <> l_distribution_base_total ) THEN

Line 1610: debug_info := 'Update AP_INVOICE_DISTRIBUTIONS (invoice_id = '||

1606:
1607: IF (p_interest_amount <> l_distribution_total OR
1608: p_interest_base_amount <> l_distribution_base_total ) THEN
1609:
1610: debug_info := 'Update AP_INVOICE_DISTRIBUTIONS (invoice_id = '||
1611: p_int_invoice_id||')';
1612:
1613:
1614: -- Perf Bug 5059000

Line 1615: UPDATE ap_invoice_distributions_all aid

1611: p_int_invoice_id||')';
1612:
1613:
1614: -- Perf Bug 5059000
1615: UPDATE ap_invoice_distributions_all aid
1616: set amount = amount - l_distribution_total + p_interest_amount,
1617: base_amount = base_amount - l_distribution_base_total
1618: + p_interest_base_amount
1619: WHERE aid.rowid =(

Line 1625: from ap_invoice_distributions aid3

1621: (
1622: select rowid row_id,
1623: rank() over(order by abs(aid3.amount) desc,
1624: aid3.distribution_line_number desc) r
1625: from ap_invoice_distributions aid3
1626: WHERE aid3.invoice_id = p_int_invoice_id
1627: )
1628: where r=1 )
1629: RETURNING aid.invoice_distribution_id

Line 1633: UPDATE ap_invoice_distributions aid1

1629: RETURNING aid.invoice_distribution_id
1630: BULK COLLECT INTO l_dbi_key_value_list; -- bug 4539462
1631:
1632: /* -- Perf Bug 5059000 - commented older UPDATE below
1633: UPDATE ap_invoice_distributions aid1
1634: SET amount = amount -
1635: l_distribution_total +
1636: p_interest_amount,
1637: base_amount = base_amount -

Line 1643: FROM ap_invoice_distributions aid2

1639: p_interest_base_amount
1640: WHERE invoice_id = p_int_invoice_id
1641: AND distribution_line_number =
1642: (SELECT MAX(distribution_line_number)
1643: FROM ap_invoice_distributions aid2
1644: WHERE aid2.invoice_id = p_int_invoice_id
1645: AND ABS(aid2.amount) =
1646: (SELECT MAX(ABS(aid3.amount))
1647: FROM ap_invoice_distributions aid3

Line 1647: FROM ap_invoice_distributions aid3

1643: FROM ap_invoice_distributions aid2
1644: WHERE aid2.invoice_id = p_int_invoice_id
1645: AND ABS(aid2.amount) =
1646: (SELECT MAX(ABS(aid3.amount))
1647: FROM ap_invoice_distributions aid3
1648: WHERE aid3.invoice_id = p_int_invoice_id))
1649: RETURNING aid1.invoice_distribution_id
1650: BULK COLLECT INTO l_dbi_key_value_list; -- bug 4539462
1651: */

Line 1654: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',

1650: BULK COLLECT INTO l_dbi_key_value_list; -- bug 4539462
1651: */
1652: --Bug 4539462 DBI logging
1653: AP_DBI_PKG.Maintain_DBI_Summary
1654: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',
1655: p_operation => 'U',
1656: p_key_value1 => p_int_invoice_id,
1657: p_key_value_list => l_dbi_key_value_list,
1658: p_calling_sequence => current_calling_sequence);

Line 1838: ap_invoice_distributions_s.NEXTVAL Invoice_Distribution_Id,

1834:
1835: CURSOR C_Interest_Inv_Cur is
1836: SELECT AID.invoice_id Invoice_Id,
1837: AID.dist_code_combination_id Dist_Code_Combination_Id,
1838: ap_invoice_distributions_s.NEXTVAL Invoice_Distribution_Id,
1839: AID.invoice_line_number Invoice_Line_Number,
1840: AID.set_of_books_id Set_Of_Books_Id,
1841: 0-AID.amount Amount,
1842: AID.line_type_lookup_code Line_Type_Lookup_code,

Line 1848: FROM ap_invoice_distributions AID,

1844: ALC.displayed_field || ' '||AID.description Description,
1845: DECODE(GL.account_type, 'A', 'Y', 'N') Assets_Tracking_Flag,
1846: AID.accts_pay_code_combination_id Accts_Pay_Code_Combination_Id,
1847: AID.org_id Org_Id
1848: FROM ap_invoice_distributions AID,
1849: gl_code_combinations GL,
1850: ap_invoice_payments AIP,
1851: ap_invoice_relationships AIR,
1852: ap_lookup_codes ALC

Line 1875: -- Modify INSERT INTO AP_INVOICE_DISTRIBUTIONS

1871: -- Add cursor C_Interest_Inv_Cur and define Interest_Inv_Cur of rowtype
1872: -- Use cursor to loop and insert an equivalent number of distributions
1873: -- to the original interest invoice in order to cancel them all. It used
1874: -- insert only one distribution which is wrong.
1875: -- Modify INSERT INTO AP_INVOICE_DISTRIBUTIONS
1876:
1877:
1878: l_Curr_Calling_Sequence := 'AP_INTEREST_INVOICE_PKG.AP_REVERSE_INTEREST_INVOICE<-'||
1879: P_Calling_Sequence;

Line 1981: FROM ap_invoice_distributions aid,

1977: l_Debug_Info := 'Reverse related invoice distributions';
1978:
1979: SELECT max(aid.distribution_line_number)
1980: INTO l_max_dist_line_num
1981: FROM ap_invoice_distributions aid,
1982: gl_code_combinations gl,
1983: ap_invoice_payments aip,
1984: ap_invoice_relationships air,
1985: ap_lookup_codes alc

Line 2002: INSERT INTO ap_invoice_distributions(

1998: EXIT WHEN C_Interest_Inv_Cur%NOTFOUND;
1999:
2000: l_max_dist_line_num := l_max_dist_line_num + 1;
2001:
2002: INSERT INTO ap_invoice_distributions(
2003: INVOICE_ID,
2004: DIST_CODE_COMBINATION_ID,
2005: INVOICE_DISTRIBUTION_ID,
2006: INVOICE_LINE_NUMBER,

Line 2712: l_login_id ap_invoice_distributions.last_update_login%TYPE;

2708:
2709:
2710: rec_select_int_invoices c_select_interest_invoices%rowtype;
2711: debug_info VARCHAR2(100);
2712: l_login_id ap_invoice_distributions.last_update_login%TYPE;
2713:
2714: BEGIN
2715:
2716: -- Interest Invoices project - Invoice Lines