624: l_bal_segment VARCHAR2(30);
625:
626: CURSOR c_prepay_dist IS
627: SELECT sum(nvl(prepay_amount_remaining,total_dist_amount)),
628: AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
629: aip.dist_code_combination_id, X_Sob_Id)
630: FROM ap_invoice_distributions aip
631: WHERE aip.invoice_id = X_Prepay_Id
632: AND aip.line_type_lookup_code IN ('ITEM', 'ACCRUAL')
631: WHERE aip.invoice_id = X_Prepay_Id
632: AND aip.line_type_lookup_code IN ('ITEM', 'ACCRUAL')
633: AND nvl(aip.reversal_flag,'N') <> 'Y'
634: AND nvl(aip.prepay_amount_remaining,amount) > 0
635: AND AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
636: aip.dist_code_combination_id, X_Sob_Id) IN
637: (SELECT AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
638: aid.dist_code_combination_id, X_Sob_Id)
639: FROM ap_invoice_distributions aid
633: AND nvl(aip.reversal_flag,'N') <> 'Y'
634: AND nvl(aip.prepay_amount_remaining,amount) > 0
635: AND AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
636: aip.dist_code_combination_id, X_Sob_Id) IN
637: (SELECT AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
638: aid.dist_code_combination_id, X_Sob_Id)
639: FROM ap_invoice_distributions aid
640: WHERE aid.invoice_id = X_Invoice_ID)
641: GROUP BY AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
637: (SELECT AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
638: aid.dist_code_combination_id, X_Sob_Id)
639: FROM ap_invoice_distributions aid
640: WHERE aid.invoice_id = X_Invoice_ID)
641: GROUP BY AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
642: aip.dist_code_combination_id, X_Sob_Id)
643: ORDER BY AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
644: aip.dist_code_combination_id, X_Sob_Id);
645:
639: FROM ap_invoice_distributions aid
640: WHERE aid.invoice_id = X_Invoice_ID)
641: GROUP BY AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
642: aip.dist_code_combination_id, X_Sob_Id)
643: ORDER BY AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
644: aip.dist_code_combination_id, X_Sob_Id);
645:
646: BEGIN
647:
658: FROM ap_invoice_distributions
659: WHERE invoice_id = X_Invoice_ID
660: AND line_type_lookup_code IN ('ITEM','PREPAY')
661: AND nvl(reversal_flag,'N') <> 'Y'
662: AND AP_INVOICE_DISTRIBUTIONS_PKG.get_balancing_segment_value(
663: dist_code_combination_id, X_Sob_Id)
664: = l_bal_segment;
665:
666: IF l_invoice_amount <> 0 THEN