DBA Data[Home] [Help]

APPS.AP_CREATE_PAY_SCHEDS_PKG dependencies on AP_PAYMENT_SCHEDULES

Line 159: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;

155: ) IS
156:
157: l_payment_schedule_index BINARY_INTEGER := 0;
158:
159: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;
160: l_sequence_num ap_terms_lines.sequence_num%TYPE := 0;
161: l_sign_due_amount ap_terms_lines.due_amount%TYPE;
162: l_sign_remaining_amount ap_terms_lines.due_amount%TYPE;
163: l_calendar ap_terms_lines.calendar%TYPE;

Line 169: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

165: l_due_date ap_other_periods.due_date%TYPE;
166: l_invoice_sign NUMBER;
167: l_pay_sched_total NUMBER := 0; -- 4537932
168: l_inv_curr_sched_total NUMBER;
169: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
170: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
171: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
172: l_last_line_flag BOOLEAN;
173: l_dummy VARCHAR2(200);

Line 170: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

166: l_invoice_sign NUMBER;
167: l_pay_sched_total NUMBER := 0; -- 4537932
168: l_inv_curr_sched_total NUMBER;
169: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
170: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
171: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
172: l_last_line_flag BOOLEAN;
173: l_dummy VARCHAR2(200);
174: current_calling_sequence VARCHAR2(2000);

Line 171: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;

167: l_pay_sched_total NUMBER := 0; -- 4537932
168: l_inv_curr_sched_total NUMBER;
169: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
170: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
171: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
172: l_last_line_flag BOOLEAN;
173: l_dummy VARCHAR2(200);
174: current_calling_sequence VARCHAR2(2000);
175: debug_info VARCHAR2(100);

Line 403: debug_info := 'Insert into ap_payment_schedules';

399: l_calendar,
400: l_sequence_num,
401: p_calling_sequence );
402:
403: debug_info := 'Insert into ap_payment_schedules';
404: l_payment_schedule_index := l_payment_schedule_index + 1;
405:
406: --Bug 7357218 Quick Pay and Dispute Resolution Project
407: debug_info := 'Calculating discount amounts by percent for slab type BEGIN';

Line 765: debug_info := 'Insert into ap_payment_schedules : term type is percent';

761: l_sequence_num,
762: p_calling_sequence);
763:
764:
765: debug_info := 'Insert into ap_payment_schedules : term type is percent';
766: l_payment_schedule_index := l_payment_schedule_index + 1;
767:
768: --Bug 7357218 Quick Pay and Dispute Resolution Project
769: debug_info := 'Calculating discount amounts by percent for Percent type BEGIN';

Line 1113: INSERT INTO ap_payment_schedules (

1109: END IF; --bug 8991699
1110:
1111: -- Insert the Payment Schedule Lines into the table
1112: FORALL i IN 1..l_payment_schedule_index
1113: INSERT INTO ap_payment_schedules (
1114: INVOICE_ID,
1115: PAYMENT_NUM,
1116: DUE_DATE,
1117: DISCOUNT_DATE,

Line 1189: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1185: RETURNING payment_num
1186: BULK COLLECT INTO l_dbi_key_value_list;
1187:
1188: AP_DBI_PKG.Maintain_DBI_Summary
1189: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1190: p_operation => 'I',
1191: p_key_value1 => P_invoice_id,
1192: p_key_value_list => l_dbi_key_value_list,
1193: p_calling_sequence => current_calling_sequence);

Line 1258: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;

1254: -- P_Amount_For_Discount invoice currency
1255: -- All amounts in AP_TERMS_LINES will be interpreted to be in the payment
1256: -- currency
1257:
1258: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;
1259: l_sequence_num ap_terms_lines.sequence_num%TYPE := 0;
1260: l_sign_due_amount ap_terms_lines.due_amount%TYPE;
1261: l_sign_remaining_amount ap_terms_lines.due_amount%TYPE;
1262: l_calendar ap_terms_lines.calendar%TYPE; -- for payment terms

Line 1268: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

1264: l_due_date ap_other_periods.due_date%TYPE; -- for payment terms
1265: l_invoice_sign NUMBER;
1266: l_pay_sched_total NUMBER;
1267: l_inv_curr_sched_total NUMBER;
1268: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1269: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1270: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1271: l_last_line_flag BOOLEAN;
1272: l_dummy VARCHAR2(200);

Line 1269: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

1265: l_invoice_sign NUMBER;
1266: l_pay_sched_total NUMBER;
1267: l_inv_curr_sched_total NUMBER;
1268: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1269: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1270: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1271: l_last_line_flag BOOLEAN;
1272: l_dummy VARCHAR2(200);
1273: current_calling_sequence VARCHAR2(2000);

Line 1270: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;

1266: l_pay_sched_total NUMBER;
1267: l_inv_curr_sched_total NUMBER;
1268: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1269: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1270: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1271: l_last_line_flag BOOLEAN;
1272: l_dummy VARCHAR2(200);
1273: current_calling_sequence VARCHAR2(2000);
1274: debug_info VARCHAR2(100);

Line 1339: FROM ap_payment_schedules

1335:
1336: CURSOR c_shed_total IS
1337: SELECT SUM(gross_amount),
1338: SIGN(SUM(gross_amount))
1339: FROM ap_payment_schedules
1340: WHERE invoice_id = P_Invoice_Id;
1341:
1342: CURSOR c_inv_curr_sched_total IS
1343: SELECT SUM(inv_curr_gross_amount),

Line 1345: FROM ap_payment_schedules

1341:
1342: CURSOR c_inv_curr_sched_total IS
1343: SELECT SUM(inv_curr_gross_amount),
1344: SIGN(SUM(inv_curr_gross_amount))
1345: FROM ap_payment_schedules
1346: WHERE invoice_id = P_Invoice_Id;
1347:
1348:
1349: -- if there is external bank account associated with the invoice associated

Line 1356: FROM ap_payment_schedules aps,

1352: -- on the invoice.
1353:
1354: CURSOR c_orig_bank_acct_vendor IS --BUG 1274099, checks at the vendor level
1355: SELECT ai.external_bank_account_id, 'Y' --modified for the bug 7261556/7375488
1356: FROM ap_payment_schedules aps,
1357: ap_invoices ai,
1358: --iby_payee_assigned_bankacct_v ipab, /* External Bank Uptake */
1359: po_vendors pv
1360: WHERE ai.invoice_id = p_invoice_id

Line 1373: FROM ap_payment_schedules aps,

1369: -- bug 1274099 checks for the vendor site level
1370:
1371: CURSOR c_orig_bank_acct_vend_site IS
1372: SELECT ai.external_bank_account_id, 'Y' --modified for the bug 7437597
1373: FROM ap_payment_schedules aps,
1374: ap_invoices ai,
1375: iby_payee_assigned_bankacct_v ipab, /* External Bank Uptake */
1376: po_vendors pv
1377: WHERE ai.invoice_id = p_invoice_id

Line 1429: FROM ap_payment_schedules

1425:
1426: BEGIN
1427: SELECT payment_priority
1428: INTO l_Payment_Priority
1429: FROM ap_payment_schedules
1430: WHERE Invoice_id = P_invoice_id
1431: AND Payment_num=1;
1432:
1433: EXCEPTION

Line 1465: FROM AP_PAYMENT_SCHEDULES

1461:
1462: --Bug 4539462 get list of payment nums first
1463: SELECT payment_num
1464: BULK COLLECT INTO l_dbi_key_value_list1
1465: FROM AP_PAYMENT_SCHEDULES
1466: WHERE invoice_id = P_invoice_id;
1467:
1468: debug_info := 'Delete from ap_payment_schedules';
1469: DELETE

Line 1468: debug_info := 'Delete from ap_payment_schedules';

1464: BULK COLLECT INTO l_dbi_key_value_list1
1465: FROM AP_PAYMENT_SCHEDULES
1466: WHERE invoice_id = P_invoice_id;
1467:
1468: debug_info := 'Delete from ap_payment_schedules';
1469: DELETE
1470: FROM ap_payment_schedules
1471: WHERE invoice_id = P_invoice_id;
1472:

Line 1470: FROM ap_payment_schedules

1466: WHERE invoice_id = P_invoice_id;
1467:
1468: debug_info := 'Delete from ap_payment_schedules';
1469: DELETE
1470: FROM ap_payment_schedules
1471: WHERE invoice_id = P_invoice_id;
1472:
1473: --Bug 4539462 DBI logging
1474: AP_DBI_PKG.Maintain_DBI_Summary

Line 1475: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1471: WHERE invoice_id = P_invoice_id;
1472:
1473: --Bug 4539462 DBI logging
1474: AP_DBI_PKG.Maintain_DBI_Summary
1475: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1476: p_operation => 'D',
1477: p_key_value1 => P_invoice_id,
1478: p_key_value_list => l_dbi_key_value_list1,
1479: p_calling_sequence => current_calling_sequence);

Line 1684: debug_info := 'Insert into ap_payment_schedules';

1680: G_MODULE_NAME||l_procedure_name,
1681: l_log_msg);
1682: END IF;
1683:
1684: debug_info := 'Insert into ap_payment_schedules';
1685: /*Bug 45632726.When we are recreating the payment schedules after deleting it
1686: * then the created-by and last-updated-by would be same i.e the person who
1687: * recreated
1688: * payment schedules and not the one who created the invoice*/

Line 1690: INSERT INTO ap_payment_schedules (

1686: * then the created-by and last-updated-by would be same i.e the person who
1687: * recreated
1688: * payment schedules and not the one who created the invoice*/
1689:
1690: INSERT INTO ap_payment_schedules (
1691: invoice_id,
1692: payment_num,
1693: due_date,
1694: discount_date,

Line 1877: l_debug_info := 'After Insert into ap_payment_schedules- term type is not percent'; --bug 8991699

1873: AND ap_terms_lines.sequence_num = l_sequence_num
1874: AND ai.Invoice_Id = P_Invoice_Id
1875: AND ai.recurring_payment_id = arp.recurring_payment_id(+); --bug 5332569
1876:
1877: l_debug_info := 'After Insert into ap_payment_schedules- term type is not percent'; --bug 8991699
1878: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1879: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info); --bug 8991699
1880: END IF;
1881:

Line 1884: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1880: END IF;
1881:
1882: --Bug 4539462 DBI logging
1883: AP_DBI_PKG.Maintain_DBI_Summary
1884: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1885: p_operation => 'I',
1886: p_key_value1 => P_invoice_id,
1887: p_key_value2 => l_sequence_num,
1888: p_calling_sequence => current_calling_sequence);

Line 2009: debug_info := 'Insert into ap_payment_schedules : term type is percent';

2005: G_MODULE_NAME||l_procedure_name,
2006: l_log_msg);
2007: END IF;
2008:
2009: debug_info := 'Insert into ap_payment_schedules : term type is percent';
2010:
2011:
2012: INSERT INTO ap_payment_schedules (
2013: invoice_id,

Line 2012: INSERT INTO ap_payment_schedules (

2008:
2009: debug_info := 'Insert into ap_payment_schedules : term type is percent';
2010:
2011:
2012: INSERT INTO ap_payment_schedules (
2013: invoice_id,
2014: payment_num,
2015: due_date,
2016: discount_date,

Line 2217: l_debug_info := 'l_due_date'||to_char(l_due_date,'dd-mm-yyyy')||'Insert into ap_payment_schedules : term type is percent';

2213: AND ap_terms_lines.sequence_num = l_sequence_num
2214: AND ai.invoice_id = P_Invoice_Id
2215: AND ai.recurring_payment_id = arp.recurring_payment_id(+);
2216:
2217: l_debug_info := 'l_due_date'||to_char(l_due_date,'dd-mm-yyyy')||'Insert into ap_payment_schedules : term type is percent';
2218: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2220: END IF;
2221:

Line 2224: (p_table_name => 'AP_PAYMENT_SCHEDULES',

2220: END IF;
2221:
2222: --Bug 4539462 DBI logginG
2223: AP_DBI_PKG.Maintain_DBI_Summary
2224: (p_table_name => 'AP_PAYMENT_SCHEDULES',
2225: p_operation => 'I',
2226: p_key_value1 => P_invoice_id,
2227: p_key_value2 => l_sequence_num,
2228: p_calling_sequence => current_calling_sequence);

Line 2252: l_debug_info := 'Update ap_payment_schedules - set gross_amount->P_Pay_Curr_Invoice_Amount:'||P_Pay_Curr_Invoice_Amount||

2248: -- Adjust Payment Schedules for rounding errors
2249:
2250: IF (l_pay_sched_total <> P_Pay_Curr_Invoice_Amount) THEN
2251:
2252: l_debug_info := 'Update ap_payment_schedules - set gross_amount->P_Pay_Curr_Invoice_Amount:'||P_Pay_Curr_Invoice_Amount||
2253: 'l_pay_sched_total->'||l_pay_sched_total; --bug 8991699
2254: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2256: END IF; --bug 8991699

Line 2258: UPDATE AP_PAYMENT_SCHEDULES

2254: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2255: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2256: END IF; --bug 8991699
2257:
2258: UPDATE AP_PAYMENT_SCHEDULES
2259: SET gross_amount = gross_amount +
2260: TO_NUMBER(P_Pay_Curr_Invoice_Amount) -
2261: TO_NUMBER(l_pay_sched_total),
2262: amount_remaining = amount_remaining +

Line 2267: FROM ap_payment_schedules

2263: TO_NUMBER(P_Pay_Curr_Invoice_Amount) -
2264: TO_NUMBER(l_pay_sched_total)
2265: WHERE invoice_id = P_Invoice_Id
2266: AND payment_num = (SELECT MAX(payment_num)
2267: FROM ap_payment_schedules
2268: WHERE invoice_id = P_Invoice_Id);
2269: END IF;
2270: END IF;
2271:

Line 2275: debug_info := 'Update ap_payment_schedules - set discount amounts';

2271:
2272: debug_info := 'Close cursor c_terms_percent';
2273: CLOSE c_terms_percent;
2274:
2275: debug_info := 'Update ap_payment_schedules - set discount amounts';
2276:
2277: UPDATE ap_payment_schedules
2278: SET discount_amount_available = DECODE(discount_date, '', '',
2279: discount_amount_available),

Line 2277: UPDATE ap_payment_schedules

2273: CLOSE c_terms_percent;
2274:
2275: debug_info := 'Update ap_payment_schedules - set discount amounts';
2276:
2277: UPDATE ap_payment_schedules
2278: SET discount_amount_available = DECODE(discount_date, '', '',
2279: discount_amount_available),
2280: second_disc_amt_available = DECODE(second_discount_date, '', '',
2281: second_disc_amt_available),

Line 2290: (p_table_name => 'AP_PAYMENT_SCHEDULES',

2286: BULK COLLECT INTO l_dbi_key_value_list2;
2287:
2288: --Bug 4539462 DBI logging
2289: AP_DBI_PKG.Maintain_DBI_Summary
2290: (p_table_name => 'AP_PAYMENT_SCHEDULES',
2291: p_operation => 'U',
2292: p_key_value1 => P_invoice_id,
2293: p_key_value_list => l_dbi_key_value_list2,
2294: p_calling_sequence => current_calling_sequence);

Line 2300: l_debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount'; --bug 8991699

2296:
2297: -- Change for cross currency
2298: -- Populate the inv_curr_gross_amount
2299:
2300: l_debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount'; --bug 8991699
2301: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2303: END IF; --bug 8991699
2304:

Line 2306: UPDATE ap_payment_schedules

2302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2303: END IF; --bug 8991699
2304:
2305: IF l_min_acc_unit_inv_curr IS NULL THEN
2306: UPDATE ap_payment_schedules
2307: SET inv_curr_gross_amount = ROUND(gross_amount/P_Payment_Cross_Rate,
2308: l_precision_inv_curr)
2309: WHERE invoice_id = P_Invoice_Id;
2310: ELSE

Line 2311: UPDATE ap_payment_schedules

2307: SET inv_curr_gross_amount = ROUND(gross_amount/P_Payment_Cross_Rate,
2308: l_precision_inv_curr)
2309: WHERE invoice_id = P_Invoice_Id;
2310: ELSE
2311: UPDATE ap_payment_schedules
2312: SET inv_curr_gross_amount = (ROUND(gross_amount/P_Payment_Cross_Rate
2313: /l_min_acc_unit_inv_curr)
2314: * l_min_acc_unit_inv_curr)
2315: WHERE invoice_id = P_Invoice_Id;

Line 2319: UPDATE ap_payment_schedules

2315: WHERE invoice_id = P_Invoice_Id;
2316: END IF;
2317:
2318: /*
2319: UPDATE ap_payment_schedules
2320: SET inv_curr_gross_amount = (
2321: SELECT DECODE(F.minimum_accountable_unit,NULL,
2322: ROUND( gross_amount / P_Payment_Cross_Rate
2323: , F.precision),

Line 2344: l_debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount:P_Invoice_Amount->'||P_Invoice_Amount||

2340: debug_info := 'Close cursor c_inv_curr_sched_total';
2341: CLOSE c_inv_curr_sched_total;
2342:
2343:
2344: l_debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount:P_Invoice_Amount->'||P_Invoice_Amount||
2345: 'l_inv_curr_sched_total->'||l_inv_curr_sched_total; --bug 8991699
2346: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2347: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2348: END IF; --bug 8991699

Line 2375: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';

2371: -- Adjust inv_curr_gross_amount for rounding errors
2372:
2373: IF (l_inv_curr_sched_total <> P_Invoice_Amount) THEN
2374:
2375: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2376:
2377: UPDATE AP_PAYMENT_SCHEDULES
2378: SET inv_curr_gross_amount = inv_curr_gross_amount +
2379: TO_NUMBER(P_Invoice_Amount) -

Line 2377: UPDATE AP_PAYMENT_SCHEDULES

2373: IF (l_inv_curr_sched_total <> P_Invoice_Amount) THEN
2374:
2375: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2376:
2377: UPDATE AP_PAYMENT_SCHEDULES
2378: SET inv_curr_gross_amount = inv_curr_gross_amount +
2379: TO_NUMBER(P_Invoice_Amount) -
2380: TO_NUMBER(l_inv_curr_sched_total)
2381: WHERE invoice_id = P_Invoice_Id

Line 2383: FROM ap_payment_schedules

2379: TO_NUMBER(P_Invoice_Amount) -
2380: TO_NUMBER(l_inv_curr_sched_total)
2381: WHERE invoice_id = P_Invoice_Id
2382: AND payment_num = (SELECT MAX(payment_num)
2383: FROM ap_payment_schedules
2384: WHERE invoice_id = P_Invoice_Id);
2385: END IF;
2386:
2387: