[Home] [Help]
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:
167: +=============================================================================+
449: P_last_update_login,
450: p_accounting_event_id);
451: ---------------------------------------------------------------------------
452: -- Step 6: Case for Pay : for Pay interest invoice only
453: -- Call ap_int_inv_insert_ap_pay_sche : Insert AP_PAYMENT_SCHEDULES
454: ---------------------------------------------------------------------------
455:
456: -- Bug 5139574
457: if P_payment_priority is not null then
693: P_party_id,
694: P_party_site_id,
695: P_payment_priority
696: FROM ap_invoices ai,
697: ap_payment_schedules ps
698: WHERE ai.invoice_id = P_invoice_id
699: AND ps.invoice_id = P_invoice_id
700: AND ps.payment_num = P_payment_num;
701:
1694: END ap_int_inv_insert_ap_inv_dist;
1695:
1696:
1697: /*==========================================================================
1698: Insert AP_PAYMENT_SCHEDULES
1699: *==========================================================================*/
1700:
1701: PROCEDURE ap_int_inv_insert_ap_pay_sche(
1702: P_int_invoice_id IN NUMBER,
1727: current_calling_sequence := 'ap_int_inv_insert_ap_pay_sche<-'||
1728: P_calling_sequence;
1729:
1730: IF (P_payment_mode = 'PAY') THEN
1731: debug_info := 'Insert into ap_payment_schedules';
1732:
1733: INSERT INTO AP_PAYMENT_SCHEDULES(
1734: INVOICE_ID,
1735: PAYMENT_NUM,
1729:
1730: IF (P_payment_mode = 'PAY') THEN
1731: debug_info := 'Insert into ap_payment_schedules';
1732:
1733: INSERT INTO AP_PAYMENT_SCHEDULES(
1734: INVOICE_ID,
1735: PAYMENT_NUM,
1736: LAST_UPDATE_DATE,
1737: LAST_UPDATED_BY,
1774: P_last_update_login);
1775:
1776: --Bug 4539462 DBI logging
1777: AP_DBI_PKG.Maintain_DBI_Summary
1778: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1779: p_operation => 'I',
1780: p_key_value1 => P_int_invoice_id,
1781: p_key_value2 => 1,
1782: p_calling_sequence => current_calling_sequence);
1898: -----------------------------------------------------------------
1899: l_Debug_Info := 'Zero related payment schedules';
1900:
1901: --Bug 4539462 DBI logging
1902: UPDATE ap_payment_schedules_all APS
1903: SET APS.last_updated_by = P_Last_Updated_By,
1904: APS.gross_amount = 0,
1905: APS.inv_curr_gross_amount = 0,
1906: APS.last_update_date = sysdate,
1919: END IF;
1920:
1921: --Bug 4539462 DBI logging
1922: AP_DBI_PKG.Maintain_DBI_Summary
1923: (p_table_name => 'AP_PAYMENT_SCHEDULES',
1924: p_operation => 'U',
1925: p_key_value_list => l_dbi_key_value_list1,
1926: p_calling_sequence => l_curr_calling_sequence);
1927:
2248: ---------------------------
2249:
2250: debug_info := 'Get invoice_due_date';
2251: SELECT due_date INTO C_due_date
2252: FROM ap_payment_schedules
2253: WHERE P_sys_auto_calc_int_flag = 'Y'
2254: AND P_auto_calculate_interest_flag = 'Y'
2255: AND trunc(P_check_date) > trunc(due_date)
2256: AND payment_num = P_payment_num
2303: -due_date), 30)))) -
2304: NVL(P_amount_remaining - least(nvl(P_discount_taken, 0),
2305: P_discount_available), 0)
2306: INTO C_interest_amount
2307: FROM ap_payment_schedules, ap_interest_periods
2308: WHERE P_sys_auto_calc_int_flag = 'Y'
2309: AND P_auto_calculate_interest_flag = 'Y'
2310: AND TRUNC(P_check_date) > TRUNC(due_date)
2311: AND payment_num = P_payment_num