[Home] [Help]
1990: -- to check if invoice is cancelled or paid
1991: CURSOR check_inv_cur(p_invoice_id NUMBER) is
1992: SELECT CANCELLED_DATE,
1993: CANCELLED_BY
1994: FROM ap_invoices_all
1995: WHERE invoice_id = p_invoice_id
1996: FOR UPDATE OF INVOICE_ID NOWAIT;
1997: -- to lock the invoice during validation
1998:
5810: IF p_invoice_id IS NOT NULL THEN
5811: IF x_transaction_source IS NULL THEN
5812: where_clause := where_clause ||
5813: ' and ei.transaction_source in ' ||
5814: ' (''AP INVOICE'',''INTERPROJECT_AP_INVOICES'',''AP VARIANCE'',''AP NRTAX'',''AP DISCOUNTS''' ||
5815: ' ,''AP EXPENSE'',''CSE_IPV_ADJUSTMENT'',''CSE_IPV_ADJUSTMENT_DEPR'',''AP ERV'') ';
5816: END IF;
5817: where_clause := where_clause || ' AND ei.document_header_id = :invoice_id ';
5818:
5878:
5879: IF p_rev_exp_items_req_adjust = 'Y' THEN
5880: where_clause := where_clause
5881: || ' AND ei.transaction_source IN (''AP VARIANCE'',''AP INVOICE'',''AP NRTAX'',''AP DISCOUNTS'',''AP ERV'''
5882: || ' ,''INTERCOMPANY_AP_INVOICES'',''INTERPROJECT_AP_INVOICES'',''AP EXPENSE'''
5883: || ' ,''PO RECEIPT'',''PO RECEIPT NRTAX'''
5884: || ' ,''PO RECEIPT NRTAX PRICE ADJ'''
5885: || ' ,''PO RECEIPT PRICE ADJ'')'
5886: || ' AND EXISTS (select NULL'
6649: , 'COST AND REV RECALC'
6650: , 'REVENUE RECALC'
6651: , 'PROJECT OR TASK CHANGE')
6652: and l_transaction_source in ( 'AP INVOICE'
6653: , 'INTERPROJECT_AP_INVOICES'
6654: , 'AP VARIANCE'
6655: , 'AP NRTAX'
6656: , 'AP DISCOUNTS'
6657: , 'AP EXPENSE'
6680: , 'INDIRECT COST RECALC'
6681: , 'COST AND REV RECALC'
6682: , 'REVENUE RECALC'
6683: , 'PROJECT OR TASK CHANGE')
6684: and l_transaction_source in ('AP INVOICE','AP EXPENSE','INTERPROJECT_AP_INVOICES','AP VARIANCE','AP NRTAX')
6685: and l_document_type = 'PREPAYMENT' then
6686: v_allow_adjustments := 'PA_SI_ADJ_PREPAY_NOT_ALLOW';
6687: end if;
6688:
6727: , 'INDIRECT COST RECALC'
6728: , 'COST AND REV RECALC'
6729: , 'REVENUE RECALC'
6730: , 'PROJECT OR TASK CHANGE')
6731: and l_transaction_source in ('AP INVOICE','AP EXPENSE','INTERPROJECT_AP_INVOICES','AP VARIANCE','AP NRTAX')
6732: and ( l_document_distribution_type = 'PREPAY'
6733: or IsRelatedToPrepayApp(l_document_distribution_id,l_document_distribution_type)) /*Self Assessed Tax Changes*/
6734: and l_document_payment_id is NULL then
6735: v_allow_adjustments := 'PA_SI_ADJ_PREPAY_APP_NOT_ALLOW';
6852: end if;
6853:
6854: if v_allow_adjustments = 'N'
6855: and ((v_system_linkage = 'VI'
6856: and l_transaction_source in ('AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'AP ERV', /* Bug 5235354 */
6857: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' , 'AP NRTAX' , 'AP DISCOUNTS'))
6858: or (v_system_linkage = 'ER' and l_transaction_source = 'AP EXPENSE')) then
6859: /* R12 Changes Start */
6860: IF X_adj_action not in ('BILLABLE RECLASS','NON-BILLABLE RECLASS') THEN
6853:
6854: if v_allow_adjustments = 'N'
6855: and ((v_system_linkage = 'VI'
6856: and l_transaction_source in ('AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'AP ERV', /* Bug 5235354 */
6857: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' , 'AP NRTAX' , 'AP DISCOUNTS'))
6858: or (v_system_linkage = 'ER' and l_transaction_source = 'AP EXPENSE')) then
6859: /* R12 Changes Start */
6860: IF X_adj_action not in ('BILLABLE RECLASS','NON-BILLABLE RECLASS') THEN
6861: v_allow_adjustments := InvStatus(X_system_reference2 => l_document_header_id
6894: END IF;
6895: /* Bug 5235354 - End */
6896:
6897: IF v_allow_adjustments = 'N'
6898: AND l_transaction_source IN ( 'AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP ERV' /* Bug 5235354 */
6899: , 'AP VARIANCE', 'AP NRTAX', 'AP DISCOUNTS', 'AP EXPENSE', 'PO RECEIPT'
6900: , 'PO RECEIPT NRTAX', 'PO RECEIPT NRTAX PRICE ADJ', 'PO RECEIPT PRICE ADJ')
6901: AND ( X_adj_action IN ( 'PROJECT OR TASK CHANGE'
6902: , 'BILLABLE RECLASS'
10646: CURSOR C_Inv_Info_Cur IS
10647: SELECT ap.invoice_type_lookup_code
10648: , ap.invoice_num
10649: , ap.invoice_date
10650: FROM ap_invoices ap
10651: WHERE ap.invoice_id = p_invoice_id;
10652:
10653: BEGIN
10654:
10812:
10813: END IF;
10814:
10815: IF p_transaction_source IN ('AP INVOICE'
10816: ,'INTERCOMPANY_AP_INVOICES'
10817: ,'INTERPROJECT_AP_INVOICES'
10818: ,'AP VARIANCE'
10819: ,'AP NRTAX'
10820: ,'AP DISCOUNTS'
10813: END IF;
10814:
10815: IF p_transaction_source IN ('AP INVOICE'
10816: ,'INTERCOMPANY_AP_INVOICES'
10817: ,'INTERPROJECT_AP_INVOICES'
10818: ,'AP VARIANCE'
10819: ,'AP NRTAX'
10820: ,'AP DISCOUNTS'
10821: ,'AP EXPENSE'
10855: END IF;
10856: /* Bug 5386471 - End */
10857:
10858: l_pa_item_info_tbl(1).APPLICATION_ID := 200; --(Oracle payables application Id)
10859: l_pa_item_info_tbl(1).ENTITY_CODE := 'AP_INVOICES';
10860: CASE p_document_type
10861: WHEN 'STANDARD' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'STANDARD INVOICES';
10862: WHEN 'PREPAYMENT' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'PREPAYMENT INVOICES';
10863: WHEN 'EXPENSE REPORT' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'EXPENSE REPORTS';
11037: AND apdist1.reversal_flag = 'Y'
11038: AND apdist1.parent_reversal_id = apdist2.invoice_distribution_id
11039: AND apdist2.old_distribution_id IS NOT NULL
11040: AND p_transaction_source IN ('AP VARIANCE','AP INVOICE'
11041: ,'AP DISCOUNTS','INTERCOMPANY_AP_INVOICES','INTERPROJECT_AP_INVOICES'
11042: ,'AP NRTAX','AP EXPENSE','AP ERV') /* Bug 5235354 */
11043: UNION ALL
11044: SELECT apdist2.invoice_id, apdist2.invoice_distribution_id /*Self Assessed Tax Changes*/
11045: FROM ap_self_assessed_tax_dist_all apdist1,
11048: AND apdist1.reversal_flag = 'Y'
11049: AND apdist1.parent_reversal_id = apdist2.invoice_distribution_id
11050: --AND apdist2.old_distribution_id IS NOT NULL
11051: AND p_transaction_source IN ('AP VARIANCE','AP INVOICE'
11052: ,'AP DISCOUNTS','INTERCOMPANY_AP_INVOICES','INTERPROJECT_AP_INVOICES'
11053: ,'AP NRTAX','AP EXPENSE','AP ERV')
11054: UNION ALL
11055: SELECT rcv2.po_header_id, rcv2.transaction_id
11056: FROM rcv_transactions rcv1