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 397: debug_info := 'Insert into ap_payment_schedules';

393: l_calendar,
394: l_sequence_num,
395: p_calling_sequence );
396:
397: debug_info := 'Insert into ap_payment_schedules';
398: l_payment_schedule_index := l_payment_schedule_index + 1;
399:
400: --Bug 7357218 Quick Pay and Dispute Resolution Project
401: debug_info := 'Calculating discount amounts by percent for slab type BEGIN';

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

737: l_sequence_num,
738: p_calling_sequence);
739:
740:
741: debug_info := 'Insert into ap_payment_schedules : term type is percent';
742: l_payment_schedule_index := l_payment_schedule_index + 1;
743:
744: --Bug 7357218 Quick Pay and Dispute Resolution Project
745: debug_info := 'Calculating discount amounts by percent for Percent type BEGIN';

Line 1069: INSERT INTO ap_payment_schedules (

1065: END IF;
1066:
1067: -- Insert the Payment Schedule Lines into the table
1068: FORALL i IN 1..l_payment_schedule_index
1069: INSERT INTO ap_payment_schedules (
1070: INVOICE_ID,
1071: PAYMENT_NUM,
1072: DUE_DATE,
1073: DISCOUNT_DATE,

Line 1145: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1141: RETURNING payment_num
1142: BULK COLLECT INTO l_dbi_key_value_list;
1143:
1144: AP_DBI_PKG.Maintain_DBI_Summary
1145: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1146: p_operation => 'I',
1147: p_key_value1 => P_invoice_id,
1148: p_key_value_list => l_dbi_key_value_list,
1149: p_calling_sequence => current_calling_sequence);

Line 1214: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;

1210: -- P_Amount_For_Discount invoice currency
1211: -- All amounts in AP_TERMS_LINES will be interpreted to be in the payment
1212: -- currency
1213:
1214: l_payment_cross_rate ap_payment_schedules.payment_cross_rate%TYPE;
1215: l_sequence_num ap_terms_lines.sequence_num%TYPE := 0;
1216: l_sign_due_amount ap_terms_lines.due_amount%TYPE;
1217: l_sign_remaining_amount ap_terms_lines.due_amount%TYPE;
1218: l_calendar ap_terms_lines.calendar%TYPE; -- for payment terms

Line 1224: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

1220: l_due_date ap_other_periods.due_date%TYPE; -- for payment terms
1221: l_invoice_sign NUMBER;
1222: l_pay_sched_total NUMBER;
1223: l_inv_curr_sched_total NUMBER;
1224: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1225: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1226: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1227: l_last_line_flag BOOLEAN;
1228: l_dummy VARCHAR2(200);

Line 1225: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;

1221: l_invoice_sign NUMBER;
1222: l_pay_sched_total NUMBER;
1223: l_inv_curr_sched_total NUMBER;
1224: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1225: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1226: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1227: l_last_line_flag BOOLEAN;
1228: l_dummy VARCHAR2(200);
1229: current_calling_sequence VARCHAR2(2000);

Line 1226: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;

1222: l_pay_sched_total NUMBER;
1223: l_inv_curr_sched_total NUMBER;
1224: l_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1225: l_old_remaining_amount ap_payment_schedules.amount_remaining%TYPE;
1226: l_ins_gross_amount ap_payment_schedules.gross_amount%TYPE;
1227: l_last_line_flag BOOLEAN;
1228: l_dummy VARCHAR2(200);
1229: current_calling_sequence VARCHAR2(2000);
1230: debug_info VARCHAR2(100);

Line 1290: FROM ap_payment_schedules

1286:
1287: CURSOR c_shed_total IS
1288: SELECT SUM(gross_amount),
1289: SIGN(SUM(gross_amount))
1290: FROM ap_payment_schedules
1291: WHERE invoice_id = P_Invoice_Id;
1292:
1293: CURSOR c_inv_curr_sched_total IS
1294: SELECT SUM(inv_curr_gross_amount),

Line 1296: FROM ap_payment_schedules

1292:
1293: CURSOR c_inv_curr_sched_total IS
1294: SELECT SUM(inv_curr_gross_amount),
1295: SIGN(SUM(inv_curr_gross_amount))
1296: FROM ap_payment_schedules
1297: WHERE invoice_id = P_Invoice_Id;
1298:
1299:
1300: -- if there is external bank account associated with the invoice associated

Line 1308: FROM ap_payment_schedules aps,

1304:
1305: CURSOR c_orig_bank_acct_vendor IS --BUG 1274099, checks at the vendor level
1306:
1307: SELECT ai.external_bank_account_id, 'Y' --modified for the bug 7437597
1308: FROM ap_payment_schedules aps,
1309: ap_invoices ai,
1310: iby_payee_assigned_bankacct_v ipab, /* External Bank Uptake */
1311: po_vendors pv
1312: WHERE ai.invoice_id = p_invoice_id

Line 1322: FROM ap_payment_schedules aps,

1318: -- bug 1274099 checks for the vendor site level
1319:
1320: CURSOR c_orig_bank_acct_vend_site IS
1321: SELECT ai.external_bank_account_id, 'Y' --modified for the bug 7437597
1322: FROM ap_payment_schedules aps,
1323: ap_invoices ai,
1324: iby_payee_assigned_bankacct_v ipab, /* External Bank Uptake */
1325: po_vendors pv
1326: WHERE ai.invoice_id = p_invoice_id

Line 1371: FROM ap_payment_schedules

1367:
1368: BEGIN
1369: SELECT payment_priority
1370: INTO l_Payment_Priority
1371: FROM ap_payment_schedules
1372: WHERE Invoice_id = P_invoice_id
1373: AND Payment_num=1;
1374:
1375: EXCEPTION

Line 1407: FROM AP_PAYMENT_SCHEDULES

1403:
1404: --Bug 4539462 get list of payment nums first
1405: SELECT payment_num
1406: BULK COLLECT INTO l_dbi_key_value_list1
1407: FROM AP_PAYMENT_SCHEDULES
1408: WHERE invoice_id = P_invoice_id;
1409:
1410: debug_info := 'Delete from ap_payment_schedules';
1411: DELETE

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

1406: BULK COLLECT INTO l_dbi_key_value_list1
1407: FROM AP_PAYMENT_SCHEDULES
1408: WHERE invoice_id = P_invoice_id;
1409:
1410: debug_info := 'Delete from ap_payment_schedules';
1411: DELETE
1412: FROM ap_payment_schedules
1413: WHERE invoice_id = P_invoice_id;
1414:

Line 1412: FROM ap_payment_schedules

1408: WHERE invoice_id = P_invoice_id;
1409:
1410: debug_info := 'Delete from ap_payment_schedules';
1411: DELETE
1412: FROM ap_payment_schedules
1413: WHERE invoice_id = P_invoice_id;
1414:
1415: --Bug 4539462 DBI logging
1416: AP_DBI_PKG.Maintain_DBI_Summary

Line 1417: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1413: WHERE invoice_id = P_invoice_id;
1414:
1415: --Bug 4539462 DBI logging
1416: AP_DBI_PKG.Maintain_DBI_Summary
1417: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1418: p_operation => 'D',
1419: p_key_value1 => P_invoice_id,
1420: p_key_value_list => l_dbi_key_value_list1,
1421: p_calling_sequence => current_calling_sequence);

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

1607: G_MODULE_NAME||l_procedure_name,
1608: l_log_msg);
1609: END IF;
1610:
1611: debug_info := 'Insert into ap_payment_schedules';
1612: /*Bug 45632726.When we are recreating the payment schedules after deleting it
1613: * then the created-by and last-updated-by would be same i.e the person who
1614: * recreated
1615: * payment schedules and not the one who created the invoice*/

Line 1617: INSERT INTO ap_payment_schedules (

1613: * then the created-by and last-updated-by would be same i.e the person who
1614: * recreated
1615: * payment schedules and not the one who created the invoice*/
1616:
1617: INSERT INTO ap_payment_schedules (
1618: invoice_id,
1619: payment_num,
1620: due_date,
1621: discount_date,

Line 1807: (p_table_name => 'AP_PAYMENT_SCHEDULES',

1803:
1804:
1805: --Bug 4539462 DBI logging
1806: AP_DBI_PKG.Maintain_DBI_Summary
1807: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1808: p_operation => 'I',
1809: p_key_value1 => P_invoice_id,
1810: p_key_value2 => l_sequence_num,
1811: p_calling_sequence => current_calling_sequence);

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

1925: G_MODULE_NAME||l_procedure_name,
1926: l_log_msg);
1927: END IF;
1928:
1929: debug_info := 'Insert into ap_payment_schedules : term type is percent';
1930:
1931:
1932: INSERT INTO ap_payment_schedules (
1933: invoice_id,

Line 1932: INSERT INTO ap_payment_schedules (

1928:
1929: debug_info := 'Insert into ap_payment_schedules : term type is percent';
1930:
1931:
1932: INSERT INTO ap_payment_schedules (
1933: invoice_id,
1934: payment_num,
1935: due_date,
1936: discount_date,

Line 2139: (p_table_name => 'AP_PAYMENT_SCHEDULES',

2135: AND ai.recurring_payment_id = arp.recurring_payment_id(+);
2136:
2137: --Bug 4539462 DBI logginG
2138: AP_DBI_PKG.Maintain_DBI_Summary
2139: (p_table_name => 'AP_PAYMENT_SCHEDULES',
2140: p_operation => 'I',
2141: p_key_value1 => P_invoice_id,
2142: p_key_value2 => l_sequence_num,
2143: p_calling_sequence => current_calling_sequence);

Line 2161: debug_info := 'Update ap_payment_schedules - set gross_amount';

2157: -- Adjust Payment Schedules for rounding errors
2158:
2159: IF (l_pay_sched_total <> P_Pay_Curr_Invoice_Amount) THEN
2160:
2161: debug_info := 'Update ap_payment_schedules - set gross_amount';
2162:
2163: UPDATE AP_PAYMENT_SCHEDULES
2164: SET gross_amount = gross_amount +
2165: TO_NUMBER(P_Pay_Curr_Invoice_Amount) -

Line 2163: UPDATE AP_PAYMENT_SCHEDULES

2159: IF (l_pay_sched_total <> P_Pay_Curr_Invoice_Amount) THEN
2160:
2161: debug_info := 'Update ap_payment_schedules - set gross_amount';
2162:
2163: UPDATE AP_PAYMENT_SCHEDULES
2164: SET gross_amount = gross_amount +
2165: TO_NUMBER(P_Pay_Curr_Invoice_Amount) -
2166: TO_NUMBER(l_pay_sched_total),
2167: amount_remaining = amount_remaining +

Line 2172: FROM ap_payment_schedules

2168: TO_NUMBER(P_Pay_Curr_Invoice_Amount) -
2169: TO_NUMBER(l_pay_sched_total)
2170: WHERE invoice_id = P_Invoice_Id
2171: AND payment_num = (SELECT MAX(payment_num)
2172: FROM ap_payment_schedules
2173: WHERE invoice_id = P_Invoice_Id);
2174: END IF;
2175: END IF;
2176:

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

2176:
2177: debug_info := 'Close cursor c_terms_percent';
2178: CLOSE c_terms_percent;
2179:
2180: debug_info := 'Update ap_payment_schedules - set discount amounts';
2181:
2182: UPDATE ap_payment_schedules
2183: SET discount_amount_available = DECODE(discount_date, '', '',
2184: discount_amount_available),

Line 2182: UPDATE ap_payment_schedules

2178: CLOSE c_terms_percent;
2179:
2180: debug_info := 'Update ap_payment_schedules - set discount amounts';
2181:
2182: UPDATE ap_payment_schedules
2183: SET discount_amount_available = DECODE(discount_date, '', '',
2184: discount_amount_available),
2185: second_disc_amt_available = DECODE(second_discount_date, '', '',
2186: second_disc_amt_available),

Line 2195: (p_table_name => 'AP_PAYMENT_SCHEDULES',

2191: BULK COLLECT INTO l_dbi_key_value_list2;
2192:
2193: --Bug 4539462 DBI logging
2194: AP_DBI_PKG.Maintain_DBI_Summary
2195: (p_table_name => 'AP_PAYMENT_SCHEDULES',
2196: p_operation => 'U',
2197: p_key_value1 => P_invoice_id,
2198: p_key_value_list => l_dbi_key_value_list2,
2199: p_calling_sequence => current_calling_sequence);

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

2201:
2202: -- Change for cross currency
2203: -- Populate the inv_curr_gross_amount
2204:
2205: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2206:
2207: IF l_min_acc_unit_inv_curr IS NULL THEN
2208: UPDATE ap_payment_schedules
2209: SET inv_curr_gross_amount = ROUND(gross_amount/P_Payment_Cross_Rate,

Line 2208: UPDATE ap_payment_schedules

2204:
2205: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2206:
2207: IF l_min_acc_unit_inv_curr IS NULL THEN
2208: UPDATE ap_payment_schedules
2209: SET inv_curr_gross_amount = ROUND(gross_amount/P_Payment_Cross_Rate,
2210: l_precision_inv_curr)
2211: WHERE invoice_id = P_Invoice_Id;
2212: ELSE

Line 2213: UPDATE ap_payment_schedules

2209: SET inv_curr_gross_amount = ROUND(gross_amount/P_Payment_Cross_Rate,
2210: l_precision_inv_curr)
2211: WHERE invoice_id = P_Invoice_Id;
2212: ELSE
2213: UPDATE ap_payment_schedules
2214: SET inv_curr_gross_amount = (ROUND(gross_amount/P_Payment_Cross_Rate
2215: /l_min_acc_unit_inv_curr)
2216: * l_min_acc_unit_inv_curr)
2217: WHERE invoice_id = P_Invoice_Id;

Line 2221: UPDATE ap_payment_schedules

2217: WHERE invoice_id = P_Invoice_Id;
2218: END IF;
2219:
2220: /*
2221: UPDATE ap_payment_schedules
2222: SET inv_curr_gross_amount = (
2223: SELECT DECODE(F.minimum_accountable_unit,NULL,
2224: ROUND( gross_amount / P_Payment_Cross_Rate
2225: , F.precision),

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

2245: -- Adjust inv_curr_gross_amount for rounding errors
2246:
2247: IF (l_inv_curr_sched_total <> P_Invoice_Amount) THEN
2248:
2249: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2250:
2251: UPDATE AP_PAYMENT_SCHEDULES
2252: SET inv_curr_gross_amount = inv_curr_gross_amount +
2253: TO_NUMBER(P_Invoice_Amount) -

Line 2251: UPDATE AP_PAYMENT_SCHEDULES

2247: IF (l_inv_curr_sched_total <> P_Invoice_Amount) THEN
2248:
2249: debug_info := 'Update ap_payment_schedules - set inv_curr_gross_amount';
2250:
2251: UPDATE AP_PAYMENT_SCHEDULES
2252: SET inv_curr_gross_amount = inv_curr_gross_amount +
2253: TO_NUMBER(P_Invoice_Amount) -
2254: TO_NUMBER(l_inv_curr_sched_total)
2255: WHERE invoice_id = P_Invoice_Id

Line 2257: FROM ap_payment_schedules

2253: TO_NUMBER(P_Invoice_Amount) -
2254: TO_NUMBER(l_inv_curr_sched_total)
2255: WHERE invoice_id = P_Invoice_Id
2256: AND payment_num = (SELECT MAX(payment_num)
2257: FROM ap_payment_schedules
2258: WHERE invoice_id = P_Invoice_Id);
2259: END IF;
2260:
2261: