[Home] [Help]
1934: -- to check if invoice is cancelled or paid
1935: CURSOR check_inv_cur(p_invoice_id NUMBER) is
1936: SELECT CANCELLED_DATE,
1937: CANCELLED_BY
1938: FROM ap_invoices_all
1939: WHERE invoice_id = p_invoice_id
1940: FOR UPDATE OF INVOICE_ID NOWAIT;
1941: -- to lock the invoice during validation
1942:
5680: IF p_invoice_id IS NOT NULL THEN
5681: IF x_transaction_source IS NULL THEN
5682: where_clause := where_clause ||
5683: ' and ei.transaction_source in ' ||
5684: ' (''AP INVOICE'',''INTERPROJECT_AP_INVOICES'',''AP VARIANCE'',''AP NRTAX'',''AP DISCOUNTS''' ||
5685: ' ,''AP EXPENSE'',''CSE_IPV_ADJUSTMENT'',''CSE_IPV_ADJUSTMENT_DEPR'',''AP ERV'') ';
5686: END IF;
5687: where_clause := where_clause || ' AND ei.document_header_id = :invoice_id ';
5688:
5734:
5735: IF p_rev_exp_items_req_adjust = 'Y' THEN
5736: where_clause := where_clause
5737: || ' AND ei.transaction_source IN (''AP VARIANCE'',''AP INVOICE'',''AP NRTAX'',''AP DISCOUNTS'',''AP ERV'''
5738: || ' ,''INTERCOMPANY_AP_INVOICES'',''INTERPROJECT_AP_INVOICES'',''AP EXPENSE'''
5739: || ' ,''PO RECEIPT'',''PO RECEIPT NRTAX'''
5740: || ' ,''PO RECEIPT NRTAX PRICE ADJ'''
5741: || ' ,''PO RECEIPT PRICE ADJ'')'
5742: || ' AND EXISTS (select NULL'
6485: , 'COST AND REV RECALC'
6486: , 'REVENUE RECALC'
6487: , 'PROJECT OR TASK CHANGE')
6488: and l_transaction_source in ( 'AP INVOICE'
6489: , 'INTERPROJECT_AP_INVOICES'
6490: , 'AP VARIANCE'
6491: , 'AP NRTAX'
6492: , 'AP DISCOUNTS'
6493: , 'AP EXPENSE'
6516: , 'INDIRECT COST RECALC'
6517: , 'COST AND REV RECALC'
6518: , 'REVENUE RECALC'
6519: , 'PROJECT OR TASK CHANGE')
6520: and l_transaction_source in ('AP INVOICE','AP EXPENSE','INTERPROJECT_AP_INVOICES','AP VARIANCE','AP NRTAX')
6521: and l_document_type = 'PREPAYMENT' then
6522: v_allow_adjustments := 'PA_SI_ADJ_PREPAY_NOT_ALLOW';
6523: end if;
6524:
6563: , 'INDIRECT COST RECALC'
6564: , 'COST AND REV RECALC'
6565: , 'REVENUE RECALC'
6566: , 'PROJECT OR TASK CHANGE')
6567: and l_transaction_source in ('AP INVOICE','AP EXPENSE','INTERPROJECT_AP_INVOICES','AP VARIANCE','AP NRTAX')
6568: and ( l_document_distribution_type = 'PREPAY'
6569: or IsRelatedToPrepayApp(l_document_distribution_id))
6570: and l_document_payment_id is NULL then
6571: v_allow_adjustments := 'PA_SI_ADJ_PREPAY_APP_NOT_ALLOW';
6688: end if;
6689:
6690: if v_allow_adjustments = 'N'
6691: and ((v_system_linkage = 'VI'
6692: and l_transaction_source in ('AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'AP ERV', /* Bug 5235354 */
6693: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' , 'AP NRTAX' , 'AP DISCOUNTS'))
6694: or (v_system_linkage = 'ER' and l_transaction_source = 'AP EXPENSE')) then
6695: /* R12 Changes Start */
6696: IF X_adj_action not in ('BILLABLE RECLASS','NON-BILLABLE RECLASS') THEN
6689:
6690: if v_allow_adjustments = 'N'
6691: and ((v_system_linkage = 'VI'
6692: and l_transaction_source in ('AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'AP ERV', /* Bug 5235354 */
6693: 'INTERPROJECT_AP_INVOICES', 'AP VARIANCE' , 'AP NRTAX' , 'AP DISCOUNTS'))
6694: or (v_system_linkage = 'ER' and l_transaction_source = 'AP EXPENSE')) then
6695: /* R12 Changes Start */
6696: IF X_adj_action not in ('BILLABLE RECLASS','NON-BILLABLE RECLASS') THEN
6697: v_allow_adjustments := InvStatus(X_system_reference2 => l_document_header_id
6730: END IF;
6731: /* Bug 5235354 - End */
6732:
6733: IF v_allow_adjustments = 'N'
6734: AND l_transaction_source IN ( 'AP INVOICE', 'INTERCOMPANY_AP_INVOICES', 'INTERPROJECT_AP_INVOICES', 'AP ERV' /* Bug 5235354 */
6735: , 'AP VARIANCE', 'AP NRTAX', 'AP DISCOUNTS', 'AP EXPENSE', 'PO RECEIPT'
6736: , 'PO RECEIPT NRTAX', 'PO RECEIPT NRTAX PRICE ADJ', 'PO RECEIPT PRICE ADJ')
6737: AND ( X_adj_action IN ( 'PROJECT OR TASK CHANGE'
6738: , 'BILLABLE RECLASS'
10358: CURSOR C_Inv_Info_Cur IS
10359: SELECT ap.invoice_type_lookup_code
10360: , ap.invoice_num
10361: , ap.invoice_date
10362: FROM ap_invoices ap
10363: WHERE ap.invoice_id = p_invoice_id;
10364:
10365: BEGIN
10366:
10512:
10513: END IF;
10514:
10515: IF p_transaction_source IN ('AP INVOICE'
10516: ,'INTERCOMPANY_AP_INVOICES'
10517: ,'INTERPROJECT_AP_INVOICES'
10518: ,'AP VARIANCE'
10519: ,'AP NRTAX'
10520: ,'AP DISCOUNTS'
10513: END IF;
10514:
10515: IF p_transaction_source IN ('AP INVOICE'
10516: ,'INTERCOMPANY_AP_INVOICES'
10517: ,'INTERPROJECT_AP_INVOICES'
10518: ,'AP VARIANCE'
10519: ,'AP NRTAX'
10520: ,'AP DISCOUNTS'
10521: ,'AP EXPENSE'
10537: END IF;
10538: /* Bug 5386471 - End */
10539:
10540: l_pa_item_info_tbl(1).APPLICATION_ID := 200; --(Oracle payables application Id)
10541: l_pa_item_info_tbl(1).ENTITY_CODE := 'AP_INVOICES';
10542: CASE p_document_type
10543: WHEN 'STANDARD' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'STANDARD INVOICES';
10544: WHEN 'PREPAYMENT' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'PREPAYMENT INVOICES';
10545: WHEN 'EXPENSE REPORT' THEN l_pa_item_info_tbl(1).EVENT_CLASS_CODE := 'EXPENSE REPORTS';
10719: AND apdist1.reversal_flag = 'Y'
10720: AND apdist1.parent_reversal_id = apdist2.invoice_distribution_id
10721: AND apdist2.old_distribution_id IS NOT NULL
10722: AND p_transaction_source IN ('AP VARIANCE','AP INVOICE'
10723: ,'AP DISCOUNTS','INTERCOMPANY_AP_INVOICES','INTERPROJECT_AP_INVOICES'
10724: ,'AP NRTAX','AP EXPENSE','AP ERV') /* Bug 5235354 */
10725: UNION ALL
10726: SELECT rcv2.po_header_id, rcv2.transaction_id
10727: FROM rcv_transactions rcv1