[Home] [Help]
158: /*========================================================================
159: * Main Procedure: Create Interest Invoice and pay it
160: * Step 1. Call ap_int_inv_get_info to get some required fields
161: * Step 2. Create interest ap_invoices line
162: * Step 3. Create ap_invoice_relationships line
163: * Step 4. Create ap_invoice_lines line
164: * Step 5. Create ap_invoice_distributions line
165: * Step 6. Create ap_payment_schedules line
166: * Step 7. Create ap_invoice_payemnts line (Call ap_pay_invoice_pkg.ap_pay_
381: -- commented p_invoice_id as part of bug 8557334
382: ); --8249618
383: ---------------------------------------------------------------------------
384: -- Step 3: Case for Pay : for Pay interest invoice only
385: -- Call ap_int_inv_insert_ap_inv_rel : Insert AP_INVOICE_RELATIONSHIPS
386: ---------------------------------------------------------------------------
387:
388: AP_INTEREST_INVOICE_PKG.ap_int_inv_insert_ap_inv_rel(
389: P_invoice_id,
1015: END ap_int_inv_insert_ap_invoices;
1016:
1017:
1018: /*==========================================================================
1019: Insert AP_INVOICE_RELATIONSHIPS
1020: *=====================================================================*/
1021:
1022: PROCEDURE ap_int_inv_insert_ap_inv_rel(
1023: P_invoice_id IN NUMBER,
1041: IF (P_payment_mode = 'PAY') THEN
1042:
1043: debug_info := 'Insert into ap_invoice_relations';
1044:
1045: INSERT INTO AP_INVOICE_RELATIONSHIPS(
1046: ORIGINAL_INVOICE_ID,
1047: RELATED_INVOICE_ID,
1048: CREATED_BY,
1049: CREATION_DATE,
1943: AID.org_id Org_Id
1944: FROM ap_invoice_distributions AID,
1945: gl_code_combinations GL,
1946: ap_invoice_payments AIP,
1947: ap_invoice_relationships AIR,
1948: ap_lookup_codes ALC
1949: WHERE AIR.related_invoice_id = AID.invoice_id
1950: AND GL.code_combination_id = AID.dist_code_combination_id
1951: AND AID.invoice_id = AIP.invoice_id
2002: APS.last_update_date = sysdate,
2003: APS.amount_remaining = 0
2004: WHERE APS.invoice_id IN
2005: (SELECT AIR.related_invoice_id
2006: FROM ap_invoice_relationships AIR,
2007: ap_invoice_payments_all AIP
2008: WHERE AIP.invoice_payment_id = P_Invoice_Payment_Id
2009: AND AIR.related_invoice_id = AIP.invoice_id)
2010: RETURNING APS.invoice_id
2033: AI.amount_paid = 0,
2034: AI.invoice_distribution_total = 0
2035: WHERE AI.invoice_id IN
2036: (SELECT /*+ UNNEST */ AIR.related_invoice_id
2037: FROM ap_invoice_relationships AIR,
2038: ap_invoice_payments_all AIP
2039: WHERE AIP.invoice_payment_id = P_Invoice_Payment_Id
2040: AND AIR.related_invoice_id = AIP.invoice_id)
2041: RETURNING invoice_id
2059: AIL.amount = 0,
2060: AIL.base_amount = 0
2061: WHERE AIL.invoice_id IN
2062: (SELECT /*+ UNNEST */ AIR.related_invoice_id
2063: FROM ap_invoice_relationships AIR,
2064: ap_invoice_payments_all AIP
2065: WHERE AIP.invoice_payment_id = P_Invoice_Payment_Id
2066: AND AIR.related_invoice_id = AIP.invoice_id);
2067:
2076: INTO l_max_dist_line_num
2077: FROM ap_invoice_distributions aid,
2078: gl_code_combinations gl,
2079: ap_invoice_payments aip,
2080: ap_invoice_relationships air,
2081: ap_lookup_codes alc
2082: WHERE AIR.related_invoice_id = AID.invoice_id
2083: AND GL.code_combination_id = AID.dist_code_combination_id
2084: AND AID.invoice_id = AIP.invoice_id
2310: debug_info := 'Get the interest invoice NUM EXT';
2311:
2312: SELECT count(*)
2313: INTO C_int_inv_num_ext
2314: FROM ap_invoice_relationships
2315: WHERE original_invoice_id = P_invoice_id;
2316:
2317: -----------------------------------------------------------
2318: -- Get the int_inv_num_ext2 - Use for interest_invoice_name
2599: WHEN NO_DATA_FOUND then null;
2600: END;
2601:
2602: debug_info :=
2603: 'Count from ap_invoice_relationships for P_reference_invoice_id';
2604:
2605: BEGIN
2606: SELECT count(*)
2607: INTO C_int_num2
2604:
2605: BEGIN
2606: SELECT count(*)
2607: INTO C_int_num2
2608: FROM ap_invoice_relationships
2609: WHERE original_invoice_id = P_reference_invoice_id;
2610:
2611: EXCEPTION
2612: WHEN No_Data_Found THEN NULL;