[Home] [Help]
1: PACKAGE BODY AP_IMPORT_INVOICES_PKG AS
2: /* $Header: apiimptb.pls 120.64.12010000.11 2008/12/11 10:31:37 imandal ship $ */
3:
4: --==============================================================
5: -- delete attachment association
32: EXCEPTION
33:
34: WHEN OTHERS then
35: IF (SQLCODE < 0) then
36: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
37: AP_IMPORT_UTILITIES_PKG.Print(
38: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
39: END IF;
40: END IF;
34: WHEN OTHERS then
35: IF (SQLCODE < 0) then
36: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
37: AP_IMPORT_UTILITIES_PKG.Print(
38: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
39: END IF;
40: END IF;
41: RETURN 0;
42: END delete_attachments;
448: vendor_site_code,
449: invoice_num
450: For UPDATE of invoice_id NOWAIT;
451:
452: l_invoice_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
453: l_invoice_lines_tab AP_IMPORT_INVOICES_PKG.t_lines_table;
454: l_default_last_updated_by NUMBER;
455: l_default_last_update_login NUMBER;
456: l_multi_currency_flag VARCHAR2(1);
449: invoice_num
450: For UPDATE of invoice_id NOWAIT;
451:
452: l_invoice_rec AP_IMPORT_INVOICES_PKG.r_invoice_info_rec;
453: l_invoice_lines_tab AP_IMPORT_INVOICES_PKG.t_lines_table;
454: l_default_last_updated_by NUMBER;
455: l_default_last_update_login NUMBER;
456: l_multi_currency_flag VARCHAR2(1);
457: l_make_rate_mandatory_flag VARCHAR2(1);
557: l_reset_match_status VARCHAR2(50);
558: l_liability_adjusted_flag VARCHAR2(50);
559: l_revalidate_ps VARCHAR2(50);
560: -- Bug 5448579
561: l_moac_org_table AP_IMPORT_INVOICES_PKG.moac_ou_tab_type;
562: l_fsp_org_table AP_IMPORT_INVOICES_PKG.fsp_org_tab_type;
563: l_index_org_id NUMBER;
564: l_asset_book_type FA_BOOK_CONTROLS.book_type_code%TYPE;
565:
558: l_liability_adjusted_flag VARCHAR2(50);
559: l_revalidate_ps VARCHAR2(50);
560: -- Bug 5448579
561: l_moac_org_table AP_IMPORT_INVOICES_PKG.moac_ou_tab_type;
562: l_fsp_org_table AP_IMPORT_INVOICES_PKG.fsp_org_tab_type;
563: l_index_org_id NUMBER;
564: l_asset_book_type FA_BOOK_CONTROLS.book_type_code%TYPE;
565:
566: -- Bug 5645581.
583:
584: p_batch_error_flag := 'N';
585: l_gl_date_from_get_info := TRUNC(p_gl_date);
586:
587: AP_IMPORT_INVOICES_PKG.g_debug_switch := p_debug_switch;
588: AP_IMPORT_INVOICES_PKG.g_source := p_source;
589: AP_IMPORT_INVOICES_PKG.g_program_application_id := FND_GLOBAL.prog_appl_id;
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
584: p_batch_error_flag := 'N';
585: l_gl_date_from_get_info := TRUNC(p_gl_date);
586:
587: AP_IMPORT_INVOICES_PKG.g_debug_switch := p_debug_switch;
588: AP_IMPORT_INVOICES_PKG.g_source := p_source;
589: AP_IMPORT_INVOICES_PKG.g_program_application_id := FND_GLOBAL.prog_appl_id;
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
585: l_gl_date_from_get_info := TRUNC(p_gl_date);
586:
587: AP_IMPORT_INVOICES_PKG.g_debug_switch := p_debug_switch;
588: AP_IMPORT_INVOICES_PKG.g_source := p_source;
589: AP_IMPORT_INVOICES_PKG.g_program_application_id := FND_GLOBAL.prog_appl_id;
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
593: debug_info := 'Request_id'||p_conc_request_id;
586:
587: AP_IMPORT_INVOICES_PKG.g_debug_switch := p_debug_switch;
588: AP_IMPORT_INVOICES_PKG.g_source := p_source;
589: AP_IMPORT_INVOICES_PKG.g_program_application_id := FND_GLOBAL.prog_appl_id;
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
593: debug_info := 'Request_id'||p_conc_request_id;
594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
587: AP_IMPORT_INVOICES_PKG.g_debug_switch := p_debug_switch;
588: AP_IMPORT_INVOICES_PKG.g_source := p_source;
589: AP_IMPORT_INVOICES_PKG.g_program_application_id := FND_GLOBAL.prog_appl_id;
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
593: debug_info := 'Request_id'||p_conc_request_id;
594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
595: AP_IMPORT_UTILITIES_PKG.Print(
590: AP_IMPORT_INVOICES_PKG.g_program_id := FND_GLOBAL.conc_program_id;
591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
593: debug_info := 'Request_id'||p_conc_request_id;
594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
595: AP_IMPORT_UTILITIES_PKG.Print(
596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
597: END IF;
598: -- Retropricing
592:
593: debug_info := 'Request_id'||p_conc_request_id;
594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
595: AP_IMPORT_UTILITIES_PKG.Print(
596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
597: END IF;
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
595: AP_IMPORT_UTILITIES_PKG.Print(
596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
597: END IF;
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
597: END IF;
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
597: END IF;
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
606: AP_IMPORT_INVOICES_PKG.g_instructions_table := NULL;
600: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_PPA_INVOICES_GT';
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
606: AP_IMPORT_INVOICES_PKG.g_instructions_table := NULL;
607: END IF;
608:
601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_PPA_INVOICE_LINES_GT';
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
606: AP_IMPORT_INVOICES_PKG.g_instructions_table := NULL;
607: END IF;
608:
609: -- Bug 5448579
602: AP_IMPORT_INVOICES_PKG.g_instructions_table := 'AP_PPA_INSTRUCTIONS_GT';
603: ELSE
604: AP_IMPORT_INVOICES_PKG.g_invoices_table := 'AP_INVOICES_INTERFACE';
605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table := 'AP_INVOICE_LINES_INTERFACE';
606: AP_IMPORT_INVOICES_PKG.g_instructions_table := NULL;
607: END IF;
608:
609: -- Bug 5448579
610: ----------------------------------------------------------------
608:
609: -- Bug 5448579
610: ----------------------------------------------------------------
611: debug_info := '(Import_invoice 0.1) Calling Caching Function for Org Id/Name';
612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
613: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
610: ----------------------------------------------------------------
611: debug_info := '(Import_invoice 0.1) Calling Caching Function for Org Id/Name';
612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
613: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
613: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
621: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
621: AP_IMPORT_UTILITIES_PKG.Print(
622: AP_IMPORT_INVOICES_PKG.g_debug_switch,
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
621: AP_IMPORT_UTILITIES_PKG.Print(
622: AP_IMPORT_INVOICES_PKG.g_debug_switch,
623: 'Cache_Org_Id_Name <-'||current_calling_sequence);
624: END IF;
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
621: AP_IMPORT_UTILITIES_PKG.Print(
622: AP_IMPORT_INVOICES_PKG.g_debug_switch,
623: 'Cache_Org_Id_Name <-'||current_calling_sequence);
624: END IF;
625: Raise import_invoice_failure;
626: END IF;
625: Raise import_invoice_failure;
626: END IF;
627:
628: debug_info := '(Import_Invoices 0.2) Calling Caching Function for Currency';
629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
630: AP_IMPORT_UTILITIES_PKG.Print(
631: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
627:
628: debug_info := '(Import_Invoices 0.2) Calling Caching Function for Currency';
629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
630: AP_IMPORT_UTILITIES_PKG.Print(
631: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
630: AP_IMPORT_UTILITIES_PKG.Print(
631: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
637: AP_IMPORT_UTILITIES_PKG.Print(
638: AP_IMPORT_INVOICES_PKG.g_debug_switch,
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
637: AP_IMPORT_UTILITIES_PKG.Print(
638: AP_IMPORT_INVOICES_PKG.g_debug_switch,
639: 'Cache_Fnd_Currency <-'||current_calling_sequence);
640: END IF;
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
637: AP_IMPORT_UTILITIES_PKG.Print(
638: AP_IMPORT_INVOICES_PKG.g_debug_switch,
639: 'Cache_Fnd_Currency <-'||current_calling_sequence);
640: END IF;
641: Raise import_invoice_failure;
642: END IF;
642: END IF;
643:
644:
645: debug_info := '(Import_Invoices 0.3) Calling Caching Function for Payment Method';
646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
647: AP_IMPORT_UTILITIES_PKG.Print(
648: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
644:
645: debug_info := '(Import_Invoices 0.3) Calling Caching Function for Payment Method';
646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
647: AP_IMPORT_UTILITIES_PKG.Print(
648: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
647: AP_IMPORT_UTILITIES_PKG.Print(
648: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
654: AP_IMPORT_UTILITIES_PKG.Print(
655: AP_IMPORT_INVOICES_PKG.g_debug_switch,
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
654: AP_IMPORT_UTILITIES_PKG.Print(
655: AP_IMPORT_INVOICES_PKG.g_debug_switch,
656: 'Cache_Payment_Method <-'||current_calling_sequence);
657: END IF;
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
654: AP_IMPORT_UTILITIES_PKG.Print(
655: AP_IMPORT_INVOICES_PKG.g_debug_switch,
656: 'Cache_Payment_Method <-'||current_calling_sequence);
657: END IF;
658: Raise import_invoice_failure;
659: END IF;
658: Raise import_invoice_failure;
659: END IF;
660:
661: debug_info := '(Import_Invoices 0.4) Calling Caching Function for Payment Group';
662: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
663: AP_IMPORT_UTILITIES_PKG.Print(
664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
660:
661: debug_info := '(Import_Invoices 0.4) Calling Caching Function for Payment Group';
662: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
663: AP_IMPORT_UTILITIES_PKG.Print(
664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
663: AP_IMPORT_UTILITIES_PKG.Print(
664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
669: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
670: AP_IMPORT_UTILITIES_PKG.Print(
671: AP_IMPORT_INVOICES_PKG.g_debug_switch,
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
669: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
670: AP_IMPORT_UTILITIES_PKG.Print(
671: AP_IMPORT_INVOICES_PKG.g_debug_switch,
672: 'Cache_Pay_Group <-'||current_calling_sequence);
673: END IF;
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
669: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
670: AP_IMPORT_UTILITIES_PKG.Print(
671: AP_IMPORT_INVOICES_PKG.g_debug_switch,
672: 'Cache_Pay_Group <-'||current_calling_sequence);
673: END IF;
674: Raise import_invoice_failure;
675: END IF;
674: Raise import_invoice_failure;
675: END IF;
676:
677: debug_info := '(Import_Invoices 0.5) Caching Structure Id';
678: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
679: AP_IMPORT_UTILITIES_PKG.Print(
680: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
681: END IF;
682:
676:
677: debug_info := '(Import_Invoices 0.5) Caching Structure Id';
678: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
679: AP_IMPORT_UTILITIES_PKG.Print(
680: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
681: END IF;
682:
683: BEGIN
684:
682:
683: BEGIN
684:
685: SELECT structure_id
686: INTO AP_IMPORT_INVOICES_PKG.g_structure_id
687: FROM mtl_default_sets_view
688: WHERE functional_area_id = 2;
689:
690: EXCEPTION WHEN OTHERS THEN
726: --------------------------------------------------------
727:
728: debug_info := '(Import_invoice 1) Check control table for the import batch';
729:
730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
731: AP_IMPORT_UTILITIES_PKG.Print(
732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
733: END IF;
734: /*
728: debug_info := '(Import_invoice 1) Check control table for the import batch';
729:
730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
731: AP_IMPORT_UTILITIES_PKG.Print(
732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
733: END IF;
734: /*
735: IF (AP_IMPORT_UTILITIES_PKG.check_control_table(
736: p_source,
736: p_source,
737: p_group_id,
738: current_calling_sequence) <> TRUE) THEN
739:
740: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
741: AP_IMPORT_UTILITIES_PKG.Print(
742: AP_IMPORT_INVOICES_PKG.g_debug_switch,'check_control_table<-'
743: ||current_calling_sequence);
744: END IF;
738: current_calling_sequence) <> TRUE) THEN
739:
740: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
741: AP_IMPORT_UTILITIES_PKG.Print(
742: AP_IMPORT_INVOICES_PKG.g_debug_switch,'check_control_table<-'
743: ||current_calling_sequence);
744: END IF;
745: Raise import_invoice_failure;
746: END IF;
751: -- get default last updated by and last update login information.
752: --------------------------------------------------------
753: debug_info := '(Import_invoice 2) Print Source';
754:
755: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
756: AP_IMPORT_UTILITIES_PKG.Print(
757: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
758: END IF;
759:
753: debug_info := '(Import_invoice 2) Print Source';
754:
755: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
756: AP_IMPORT_UTILITIES_PKG.Print(
757: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
758: END IF;
759:
760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
761: AP_IMPORT_UTILITIES_PKG.Print(
756: AP_IMPORT_UTILITIES_PKG.Print(
757: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
758: END IF;
759:
760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
761: AP_IMPORT_UTILITIES_PKG.Print(
762: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'p_source' || p_source);
763: END IF;
764:
758: END IF;
759:
760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
761: AP_IMPORT_UTILITIES_PKG.Print(
762: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'p_source' || p_source);
763: END IF;
764:
765: l_default_last_updated_by := to_number(FND_GLOBAL.USER_ID);
766: l_default_last_update_login := to_number(FND_GLOBAL.LOGIN_ID);
771: ----------------------------------------------------------------
772:
773: debug_info := '(Import Invoice 3) Delete Rejections from previous failed '||
774: 'imports';
775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
776: AP_IMPORT_UTILITIES_PKG.Print(
777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
778: END IF;
779:
773: debug_info := '(Import Invoice 3) Delete Rejections from previous failed '||
774: 'imports';
775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
776: AP_IMPORT_UTILITIES_PKG.Print(
777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
778: END IF;
779:
780: debug_info := '(Check_lines 3a) Select all the Rejected Invoices';
781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
778: END IF;
779:
780: debug_info := '(Check_lines 3a) Select all the Rejected Invoices';
781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
782: AP_IMPORT_UTILITIES_PKG.Print(
783: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
784: END IF;
785:
779:
780: debug_info := '(Check_lines 3a) Select all the Rejected Invoices';
781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
782: AP_IMPORT_UTILITIES_PKG.Print(
783: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
784: END IF;
785:
786: -- Bug 4145391. To improve the performance of the import program coding two
787: -- different select stmts based on the parameter p_group_id
829: END IF;
830:
831: debug_info := '(Check_lines 3b) Delete invoices from ap_interface_rejections';
832:
833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
834: AP_IMPORT_UTILITIES_PKG.Print(
835: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
836: END IF;
837:
831: debug_info := '(Check_lines 3b) Delete invoices from ap_interface_rejections';
832:
833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
834: AP_IMPORT_UTILITIES_PKG.Print(
835: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
836: END IF;
837:
838: -- Retropricing
839: --The PPA Rejections will be deleted from ap_interface_rejections
854: END IF;
855: --Start of Bug 6801046
856: debug_info := '(Check_lines 3c) Update requestid on the Selected Invoices';
857:
858: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
859: AP_IMPORT_UTILITIES_PKG.Print(
860: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
861: END IF;
862:
856: debug_info := '(Check_lines 3c) Update requestid on the Selected Invoices';
857:
858: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
859: AP_IMPORT_UTILITIES_PKG.Print(
860: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
861: END IF;
862:
863: IF enums.COUNT > 0 THEN
864: ForALL i IN enums.FIRST .. enums.LAST
862:
863: IF enums.COUNT > 0 THEN
864: ForALL i IN enums.FIRST .. enums.LAST
865: UPDATE AP_INVOICES_INTERFACE
866: SET request_id = AP_IMPORT_INVOICES_PKG.g_conc_request_id
867: WHERE invoice_id = enums(i);
868: END IF;
869: --End of Bug 6801046
870: ----------------------------------------------------------------
871: -- Step 4 Update the org_id whenever null IF operating unit
872: -- is not null.
873: ----------------------------------------------------------------
874: debug_info := '(Import Invoice 4) Update the org_id';
875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
876: AP_IMPORT_UTILITIES_PKG.Print(
877: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
878: END IF;
879:
873: ----------------------------------------------------------------
874: debug_info := '(Import Invoice 4) Update the org_id';
875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
876: AP_IMPORT_UTILITIES_PKG.Print(
877: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
878: END IF;
879:
880: debug_info := '(Import_Invoices 4a) Updating Interface WHERE org_id '||
881: 'is null but operating unit is not null';
878: END IF;
879:
880: debug_info := '(Import_Invoices 4a) Updating Interface WHERE org_id '||
881: 'is null but operating unit is not null';
882: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
883: AP_IMPORT_UTILITIES_PKG.Print(
884: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
885: END IF;
886:
880: debug_info := '(Import_Invoices 4a) Updating Interface WHERE org_id '||
881: 'is null but operating unit is not null';
882: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
883: AP_IMPORT_UTILITIES_PKG.Print(
884: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
885: END IF;
886:
887:
888: --Bug 6839034 Added additional filters to the update below
928: END IF;
929:
930: debug_info := '(Import_Invoices 4b) Getting Deafult Operating Unit '||
931: 'Information';
932: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
933: AP_IMPORT_UTILITIES_PKG.Print(
934: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
935: END IF;
936:
930: debug_info := '(Import_Invoices 4b) Getting Deafult Operating Unit '||
931: 'Information';
932: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
933: AP_IMPORT_UTILITIES_PKG.Print(
934: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
935: END IF;
936:
937:
938: Mo_Utils.get_default_ou(
944: -- Step 5 Get number of invoices to process.
945: ----------------------------------------------------------------
946: debug_info := '(Import Invoices 5) Get The Total Number of Invoices '||
947: 'In Interface';
948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
949: AP_IMPORT_UTILITIES_PKG.Print(
950: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
951: END IF;
952:
946: debug_info := '(Import Invoices 5) Get The Total Number of Invoices '||
947: 'In Interface';
948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
949: AP_IMPORT_UTILITIES_PKG.Print(
950: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
951: END IF;
952:
953: -- Bug 4145391. To improve the performance of the import program coding two
954: -- different select stmts based on the parameter p_group_id
1019: END IF;
1020:
1021: -- Bug 5448579
1022: debug_info := '(Import_invoice 5.5) Unwinding Caching Org Id/Name';
1023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1024: AP_IMPORT_UTILITIES_PKG.Print(
1025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1026: END IF;
1027:
1021: -- Bug 5448579
1022: debug_info := '(Import_invoice 5.5) Unwinding Caching Org Id/Name';
1023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1024: AP_IMPORT_UTILITIES_PKG.Print(
1025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1026: END IF;
1027:
1028: FOR i IN 1..g_moac_ou_tab.COUNT
1029: LOOP
1034: debug_info := 'Index Value: '||l_index_org_id
1035: ||', MOAC Cached Org_Id: '||l_moac_org_table(l_index_org_id).org_id
1036: ||', MOAC Cached Operating Unit: '|| l_moac_org_table(l_index_org_id).org_name;
1037:
1038: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1039: AP_IMPORT_UTILITIES_PKG.Print(
1040: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1041: END IF;
1042: END LOOP;
1036: ||', MOAC Cached Operating Unit: '|| l_moac_org_table(l_index_org_id).org_name;
1037:
1038: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1039: AP_IMPORT_UTILITIES_PKG.Print(
1040: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1041: END IF;
1042: END LOOP;
1043:
1044: FOR i IN 1..g_fsp_ou_tab.COUNT
1048:
1049: debug_info := 'Index Value: '||l_index_org_id
1050: ||', FSP Cached Org_Id: '||l_fsp_org_table(l_index_org_id).org_id;
1051:
1052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1053: AP_IMPORT_UTILITIES_PKG.Print(
1054: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1055: END IF;
1056:
1050: ||', FSP Cached Org_Id: '||l_fsp_org_table(l_index_org_id).org_id;
1051:
1052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1053: AP_IMPORT_UTILITIES_PKG.Print(
1054: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1055: END IF;
1056:
1057: END LOOP;
1058:
1061: ----------------------------------------------------------------
1062: WHILE (l_continue_flag = 'Y') LOOP
1063:
1064: debug_info := '(Import_invoice 6) Open import_invoices cursor';
1065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1066: AP_IMPORT_UTILITIES_PKG.Print(
1067: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1068: END IF;
1069:
1063:
1064: debug_info := '(Import_invoice 6) Open import_invoices cursor';
1065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1066: AP_IMPORT_UTILITIES_PKG.Print(
1067: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1068: END IF;
1069:
1070: -- Bug 4145391. To improve the performance of the import program coding two
1071: -- different cursors based on the parameter p_group_id
1083: -- Step 7 FETCH invoice interface record INTO invoice record
1084: ---------------------------------------------------------------
1085:
1086: debug_info := '(Import_invoice 7) FETCH import_invoices';
1087: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1088: AP_IMPORT_UTILITIES_PKG.Print(
1089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1090: END IF;
1091:
1085:
1086: debug_info := '(Import_invoice 7) FETCH import_invoices';
1087: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1088: AP_IMPORT_UTILITIES_PKG.Print(
1089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1090: END IF;
1091:
1092: -- Bug 4145391
1093: IF (p_group_id IS NULL) THEN
1100: OR import_invoices_group%NOTFOUND IS NULL;
1101: END IF;
1102:
1103: --
1104: AP_IMPORT_INVOICES_PKG.g_inv_sysdate := TRUNC(sysdate);
1105:
1106: -- Set invoice counter to get invoice count for fetched invoices
1107:
1108: l_invoices_fetched := l_invoices_fetched + 1;
1107:
1108: l_invoices_fetched := l_invoices_fetched + 1;
1109: -- show output values (only IF debug_switch = 'Y')
1110:
1111: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1112: AP_IMPORT_UTILITIES_PKG.Print(
1113: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1114: '------------------> invoice_id = '
1115: ||to_char(l_invoice_rec.invoice_id)
1109: -- show output values (only IF debug_switch = 'Y')
1110:
1111: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1112: AP_IMPORT_UTILITIES_PKG.Print(
1113: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1114: '------------------> invoice_id = '
1115: ||to_char(l_invoice_rec.invoice_id)
1116: ||' invoice_num = ' ||l_invoice_rec.invoice_num
1117: ||' invoice_type_lookup_code = '
1215: ---------------------------------------------------------------
1216: -- Step 8 Check for inconsistent OU
1217: ----------------------------------------------------------------
1218: debug_info := '(Import Invoices 8) Checking for Inconsistent OU';
1219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1220: AP_IMPORT_UTILITIES_PKG.Print(
1221: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1222: END IF;
1223:
1217: ----------------------------------------------------------------
1218: debug_info := '(Import Invoices 8) Checking for Inconsistent OU';
1219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1220: AP_IMPORT_UTILITIES_PKG.Print(
1221: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1222: END IF;
1223:
1224: IF l_invoice_rec.org_id is NULL THEN
1225: IF (l_ou_count > 1 AND p_org_id is NULL) THEN
1223:
1224: IF l_invoice_rec.org_id is NULL THEN
1225: IF (l_ou_count > 1 AND p_org_id is NULL) THEN
1226: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1227: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1228: l_invoice_rec.invoice_id,
1229: 'NO OPERATING UNIT',
1230: l_default_last_updated_by,
1231: l_default_last_update_login,
1230: l_default_last_updated_by,
1231: l_default_last_update_login,
1232: current_calling_sequence) <> TRUE) THEN
1233:
1234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1235: AP_IMPORT_UTILITIES_PKG.Print(
1236: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1237: 'insert_rejections<- '||current_calling_sequence);
1238: END IF;
1232: current_calling_sequence) <> TRUE) THEN
1233:
1234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1235: AP_IMPORT_UTILITIES_PKG.Print(
1236: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1237: 'insert_rejections<- '||current_calling_sequence);
1238: END IF;
1239: Raise import_invoice_failure;
1240: END IF; --Insert rejections
1276:
1277: EXCEPTION
1278: WHEN NO_DATA_FOUND THEN
1279: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1280: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1281: l_invoice_rec.invoice_id,
1282: 'UNDEFINED OPERATING UNIT',
1283: l_default_last_updated_by,
1284: l_default_last_update_login,
1283: l_default_last_updated_by,
1284: l_default_last_update_login,
1285: current_calling_sequence) <> TRUE) THEN
1286:
1287: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1288: AP_IMPORT_UTILITIES_PKG.Print(
1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1290: 'insert_rejections<- '||current_calling_sequence);
1291: END IF;
1285: current_calling_sequence) <> TRUE) THEN
1286:
1287: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1288: AP_IMPORT_UTILITIES_PKG.Print(
1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1290: 'insert_rejections<- '||current_calling_sequence);
1291: END IF;
1292: Raise import_invoice_failure;
1293: END IF; -- Insert rejections
1304:
1305: ELSE
1306:
1307: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1308: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1309: l_invoice_rec.invoice_id,
1310: 'UNDEFINED OPERATING UNIT',
1311: l_default_last_updated_by,
1312: l_default_last_update_login,
1311: l_default_last_updated_by,
1312: l_default_last_update_login,
1313: current_calling_sequence) <> TRUE) THEN
1314:
1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1316: AP_IMPORT_UTILITIES_PKG.Print(
1317: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1318: 'insert_rejections<- '||current_calling_sequence);
1319: END IF;
1313: current_calling_sequence) <> TRUE) THEN
1314:
1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1316: AP_IMPORT_UTILITIES_PKG.Print(
1317: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1318: 'insert_rejections<- '||current_calling_sequence);
1319: END IF;
1320: Raise import_invoice_failure;
1321: END IF; -- Insert rejections
1331: -- mo_global.get_ou_name(l_invoice_rec.org_id);
1332: l_derived_operating_unit := l_moac_org_table(l_invoice_rec.org_id).org_name;
1333:
1334: debug_info := ' Derived Operating Unit: '||l_derived_operating_unit;
1335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1336: AP_IMPORT_UTILITIES_PKG.Print(
1337: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1338: END IF;
1339:
1333:
1334: debug_info := ' Derived Operating Unit: '||l_derived_operating_unit;
1335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1336: AP_IMPORT_UTILITIES_PKG.Print(
1337: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1338: END IF;
1339:
1340: IF l_invoice_rec.operating_unit <> l_derived_operating_unit THEN
1341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1338: END IF;
1339:
1340: IF l_invoice_rec.operating_unit <> l_derived_operating_unit THEN
1341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1342: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1343: l_invoice_rec.invoice_id,
1344: 'INCONSISTENT OPERATING UNITS',
1345: l_default_last_updated_by,
1346: l_default_last_update_login,
1345: l_default_last_updated_by,
1346: l_default_last_update_login,
1347: current_calling_sequence) <> TRUE) THEN
1348:
1349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1350: AP_IMPORT_UTILITIES_PKG.Print(
1351: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1352: 'insert_rejections<- '||current_calling_sequence);
1353: END IF;
1347: current_calling_sequence) <> TRUE) THEN
1348:
1349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1350: AP_IMPORT_UTILITIES_PKG.Print(
1351: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1352: 'insert_rejections<- '||current_calling_sequence);
1353: END IF;
1354: Raise import_invoice_failure;
1355: END IF; -- Insert rejections
1379: -- AND parameters. IF batch control enabled, get batch
1380: -- id IF org id has changed.
1381: -----------------------------------------------------
1382: debug_info := '(Import Invoice 9a) Setting the org Context';
1383: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1384: AP_IMPORT_UTILITIES_PKG.Print(
1385: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1386: END IF;
1387:
1381: -----------------------------------------------------
1382: debug_info := '(Import Invoice 9a) Setting the org Context';
1383: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1384: AP_IMPORT_UTILITIES_PKG.Print(
1385: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1386: END IF;
1387:
1388: IF l_invoice_status = 'Y' THEN
1389: IF l_invoice_rec.org_id <> NVL(l_old_org_id, -3115) THEN
1390: Mo_Global.set_policy_context('S', l_invoice_rec.org_id);
1391:
1392: debug_info := '(Import_invoice 9b) Call get_info to get '||
1393: 'required info';
1394: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1395: AP_IMPORT_UTILITIES_PKG.Print(
1396: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1397: END IF;
1398:
1392: debug_info := '(Import_invoice 9b) Call get_info to get '||
1393: 'required info';
1394: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1395: AP_IMPORT_UTILITIES_PKG.Print(
1396: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1397: END IF;
1398:
1399: IF (AP_IMPORT_UTILITIES_PKG.get_info(
1400: l_invoice_rec.org_id, -- IN
1424: l_freight_code_combination_id, -- OUT NOCOPY
1425: l_allow_interest_invoices, -- OUT NOCOPY
1426: l_add_days_settlement_date, -- OUT NOCOPY --bug4930111
1427: l_disc_is_inv_less_tax_flag, -- OUT NOCOPY --bug4931755
1428: AP_IMPORT_INVOICES_PKG.g_source, -- IN --bug5382889 LE TimeZone
1429: l_invoice_rec.invoice_date, -- IN --bug5382889 LE TimeZone
1430: l_invoice_rec.goods_received_date, -- IN --bug5382889 LE TimeZone
1431: l_asset_book_type -- OUT NOCOPY --Bug 5448579
1432: ) <> TRUE) THEN
1429: l_invoice_rec.invoice_date, -- IN --bug5382889 LE TimeZone
1430: l_invoice_rec.goods_received_date, -- IN --bug5382889 LE TimeZone
1431: l_asset_book_type -- OUT NOCOPY --Bug 5448579
1432: ) <> TRUE) THEN
1433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1434: AP_IMPORT_UTILITIES_PKG.Print(
1435: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1436: 'get_info<-'||current_calling_sequence);
1437: END IF;
1431: l_asset_book_type -- OUT NOCOPY --Bug 5448579
1432: ) <> TRUE) THEN
1433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1434: AP_IMPORT_UTILITIES_PKG.Print(
1435: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1436: 'get_info<-'||current_calling_sequence);
1437: END IF;
1438: Raise import_invoice_failure;
1439: END IF;
1436: 'get_info<-'||current_calling_sequence);
1437: END IF;
1438: Raise import_invoice_failure;
1439: END IF;
1440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1441: AP_IMPORT_UTILITIES_PKG.Print(
1442: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1443: '------------------> '
1444: ||' p_org_id = '||to_char(l_invoice_rec.org_id)
1438: Raise import_invoice_failure;
1439: END IF;
1440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1441: AP_IMPORT_UTILITIES_PKG.Print(
1442: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1443: '------------------> '
1444: ||' p_org_id = '||to_char(l_invoice_rec.org_id)
1445: ||' p_set_of_books_id = '|| to_char(l_set_of_books_id)
1446: ||' l_multi_currency_flag = '||l_multi_currency_flag
1472: ||' l_allow_interest_invoices = ' ||l_allow_interest_invoices);
1473: END IF;
1474:
1475: -- Retek Integration bug 6349739
1476: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
1477: -- get the segment delimiter
1478: AP_IMPORT_INVOICES_PKG.g_segment_delimiter := FND_FLEX_EXT.GET_DELIMITER(
1479: 'SQLGL',
1480: 'GL#',
1474:
1475: -- Retek Integration bug 6349739
1476: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
1477: -- get the segment delimiter
1478: AP_IMPORT_INVOICES_PKG.g_segment_delimiter := FND_FLEX_EXT.GET_DELIMITER(
1479: 'SQLGL',
1480: 'GL#',
1481: l_chart_of_accounts_id);
1482: END IF;
1491: --------------------------------------------------------
1492: IF (NVL(l_batch_control_flag,'N') = 'Y' ) THEN
1493: debug_info := '(Import_invoice 9c) Get batch_id IF '||
1494: 'batch_control is on';
1495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1496: AP_IMPORT_UTILITIES_PKG.Print(
1497: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1498: END IF;
1499:
1493: debug_info := '(Import_invoice 9c) Get batch_id IF '||
1494: 'batch_control is on';
1495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1496: AP_IMPORT_UTILITIES_PKG.Print(
1497: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1498: END IF;
1499:
1500: IF (AP_IMPORT_UTILITIES_PKG.get_batch_id(
1501: p_batch_name,
1502: l_batch_id,
1503: l_batch_type,
1504: current_calling_sequence) <> TRUE) THEN
1505:
1506: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1507: AP_IMPORT_UTILITIES_PKG.Print(
1508: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1509: 'get_batch_id<-'||current_calling_sequence);
1510: END IF;
1504: current_calling_sequence) <> TRUE) THEN
1505:
1506: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1507: AP_IMPORT_UTILITIES_PKG.Print(
1508: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1509: 'get_batch_id<-'||current_calling_sequence);
1510: END IF;
1511: Raise import_invoice_failure;
1512:
1511: Raise import_invoice_failure;
1512:
1513: END IF;
1514: --
1515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1516: AP_IMPORT_UTILITIES_PKG.Print(
1517: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1518: '------------------> l_batch_id = ' || to_char(l_batch_id)
1519: ||' l_batch_type = '||l_batch_type);
1513: END IF;
1514: --
1515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1516: AP_IMPORT_UTILITIES_PKG.Print(
1517: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1518: '------------------> l_batch_id = ' || to_char(l_batch_id)
1519: ||' l_batch_type = '||l_batch_type);
1520: END IF;
1521:
1539:
1540: ----------------------------------------------------------------
1541: -- Retropricing: IF source = 'PPA' Go to Step 16.
1542: ----------------------------------------------------------------
1543: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
1544: --
1545: -----------------------------------------------------
1546: -- Step 10 Get GL Date
1547: -----------------------------------------------------
1547: -----------------------------------------------------
1548: --
1549: IF (l_invoice_rec.gl_date is NOT NULL) THEN
1550: debug_info := '(Import Invoice 10a) Default GL Date From Invoice ';
1551: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1552: AP_IMPORT_UTILITIES_PKG.Print(
1553: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1554: END IF;
1555: ELSE
1549: IF (l_invoice_rec.gl_date is NOT NULL) THEN
1550: debug_info := '(Import Invoice 10a) Default GL Date From Invoice ';
1551: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1552: AP_IMPORT_UTILITIES_PKG.Print(
1553: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1554: END IF;
1555: ELSE
1556: debug_info := '(Import Invoice 10b) Default GL Date Based on Calculation ';
1557: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1553: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1554: END IF;
1555: ELSE
1556: debug_info := '(Import Invoice 10b) Default GL Date Based on Calculation ';
1557: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1558: AP_IMPORT_UTILITIES_PKG.Print(
1559: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1560: END IF;
1561:
1555: ELSE
1556: debug_info := '(Import Invoice 10b) Default GL Date Based on Calculation ';
1557: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1558: AP_IMPORT_UTILITIES_PKG.Print(
1559: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1560: END IF;
1561:
1562: -- Bug 5654581. Moving Gl_Date Related code here
1563: IF AP_IMPORT_INVOICES_PKG.g_source = 'ERS' THEN -- bug 5382889, LE TimeZone
1559: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1560: END IF;
1561:
1562: -- Bug 5654581. Moving Gl_Date Related code here
1563: IF AP_IMPORT_INVOICES_PKG.g_source = 'ERS' THEN -- bug 5382889, LE TimeZone
1564:
1565: debug_info := 'Determine gl_date for ERS invoice';
1566:
1567: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1563: IF AP_IMPORT_INVOICES_PKG.g_source = 'ERS' THEN -- bug 5382889, LE TimeZone
1564:
1565: debug_info := 'Determine gl_date for ERS invoice';
1566:
1567: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1568: AP_IMPORT_UTILITIES_PKG.Print
1569: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1570: END IF;
1571:
1565: debug_info := 'Determine gl_date for ERS invoice';
1566:
1567: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1568: AP_IMPORT_UTILITIES_PKG.Print
1569: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1570: END IF;
1571:
1572: l_rts_txn_le_date := INV_LE_TIMEZONE_PUB.Get_Le_Day_For_Ou(
1573: p_trxn_date => nvl(l_invoice_rec.goods_received_date,
1591: Note here that the Invoice date is no longer the same as the receipt_date,
1592: i.e. the RETURN tranasaction_date , so case I and N are no longer the same */
1593:
1594: debug_info := 'Determine invoice gl_date from LE Timezone API ';
1595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1596: AP_IMPORT_UTILITIES_PKG.Print
1597: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1598: END IF;
1599:
1593:
1594: debug_info := 'Determine invoice gl_date from LE Timezone API ';
1595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1596: AP_IMPORT_UTILITIES_PKG.Print
1597: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1598: END IF;
1599:
1600: If (l_gl_date_from_receipt_flag = 'I') Then
1601: l_inv_gl_date := l_inv_le_date;
1614: IF p_gl_date IS NULL THEN
1615:
1616: IF (l_gl_date_from_receipt_flag IN ('S', 'Y')) THEN
1617: debug_info := ' GL Date is Sysdate based on gl_date_reciept_flaf option';
1618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1619: AP_IMPORT_UTILITIES_PKG.Print
1620: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1621: END IF;
1622:
1616: IF (l_gl_date_from_receipt_flag IN ('S', 'Y')) THEN
1617: debug_info := ' GL Date is Sysdate based on gl_date_reciept_flaf option';
1618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1619: AP_IMPORT_UTILITIES_PKG.Print
1620: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1621: END IF;
1622:
1623: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1624:
1619: AP_IMPORT_UTILITIES_PKG.Print
1620: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1621: END IF;
1622:
1623: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1624:
1625: ELSE
1626:
1627: IF l_invoice_rec.invoice_date is NOT NULL THEN
1625: ELSE
1626:
1627: IF l_invoice_rec.invoice_date is NOT NULL THEN
1628: debug_info := ' GL Date is Invoice Date';
1629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1630: AP_IMPORT_UTILITIES_PKG.Print
1631: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1632: END IF;
1633:
1627: IF l_invoice_rec.invoice_date is NOT NULL THEN
1628: debug_info := ' GL Date is Invoice Date';
1629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1630: AP_IMPORT_UTILITIES_PKG.Print
1631: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1632: END IF;
1633:
1634: l_invoice_rec.gl_date := l_invoice_rec.invoice_date;
1635: ELSE
1633:
1634: l_invoice_rec.gl_date := l_invoice_rec.invoice_date;
1635: ELSE
1636: debug_info := ' GL Date is Sysdate Date';
1637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1638: AP_IMPORT_UTILITIES_PKG.Print
1639: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1640: END IF;
1641:
1635: ELSE
1636: debug_info := ' GL Date is Sysdate Date';
1637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1638: AP_IMPORT_UTILITIES_PKG.Print
1639: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1640: END IF;
1641:
1642: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1643: END IF;
1638: AP_IMPORT_UTILITIES_PKG.Print
1639: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1640: END IF;
1641:
1642: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1643: END IF;
1644:
1645: END IF;
1646:
1646:
1647: ELSE
1648:
1649: debug_info := ' GL Date is Parameter Gl Date';
1650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1651: AP_IMPORT_UTILITIES_PKG.Print
1652: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1653: END IF;
1654:
1648:
1649: debug_info := ' GL Date is Parameter Gl Date';
1650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1651: AP_IMPORT_UTILITIES_PKG.Print
1652: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1653: END IF;
1654:
1655: l_invoice_rec.gl_date := p_gl_date;
1656: END IF;
1661: IF l_gl_date_from_get_info is NULL THEN
1662: IF l_invoice_rec.invoice_date is NOT NULL THEN
1663: l_invoice_rec.gl_date := l_invoice_rec.invoice_date;
1664: ELSE
1665: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1666: END IF;
1667: ELSIF l_gl_date_from_get_info is NOT NULL THEN
1668: l_invoice_rec.gl_date := l_gl_date_from_get_info;
1669: END IF; */
1701: -- Validate invoice level
1702: ----------------------------
1703:
1704: debug_info := '(Import_invoice 11) Validate invoice ';
1705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1706: AP_IMPORT_UTILITIES_PKG.Print(
1707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1708: END IF;
1709: AP_IMPORT_UTILITIES_PKG.Print(
1703:
1704: debug_info := '(Import_invoice 11) Validate invoice ';
1705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1706: AP_IMPORT_UTILITIES_PKG.Print(
1707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1708: END IF;
1709: AP_IMPORT_UTILITIES_PKG.Print(
1710: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||
1711: l_invoice_rec.set_of_books_id);
1706: AP_IMPORT_UTILITIES_PKG.Print(
1707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1708: END IF;
1709: AP_IMPORT_UTILITIES_PKG.Print(
1710: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||
1711: l_invoice_rec.set_of_books_id);
1712:
1713: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_validation
1714: (l_invoice_rec, -- IN OUT
1746: l_prepay_case_name, -- OUT --Contract Payments
1747: p_conc_request_id,
1748: l_allow_interest_invoices, -- IN
1749: current_calling_sequence) <> TRUE) THEN
1750: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1751: AP_IMPORT_UTILITIES_PKG.Print(
1752: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1753: 'v_check_invoice_validation<-'||current_calling_sequence);
1754: END IF;
1748: l_allow_interest_invoices, -- IN
1749: current_calling_sequence) <> TRUE) THEN
1750: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1751: AP_IMPORT_UTILITIES_PKG.Print(
1752: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1753: 'v_check_invoice_validation<-'||current_calling_sequence);
1754: END IF;
1755: Raise import_invoice_failure;
1756: END IF;
1756: END IF;
1757: --
1758: -- show output values (only IF debug_switch = 'Y')
1759: --
1760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1761: AP_IMPORT_UTILITIES_PKG.Print( AP_IMPORT_INVOICES_PKG.g_debug_switch,
1762: '------------------> vendor_id = '||to_char(l_invoice_rec.vendor_id)
1763: ||' vendor_site_id = ' ||to_char(l_invoice_rec.vendor_site_id)
1764: ||' invoice_status = ' ||l_invoice_status
1757: --
1758: -- show output values (only IF debug_switch = 'Y')
1759: --
1760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1761: AP_IMPORT_UTILITIES_PKG.Print( AP_IMPORT_INVOICES_PKG.g_debug_switch,
1762: '------------------> vendor_id = '||to_char(l_invoice_rec.vendor_id)
1763: ||' vendor_site_id = ' ||to_char(l_invoice_rec.vendor_site_id)
1764: ||' invoice_status = ' ||l_invoice_status
1765: ||' terms_id = ' ||to_char(l_invoice_rec.terms_id)
1776: -- Step 12
1777: -- Validate invoice lines
1778: --------------------------
1779: debug_info := '(Import_invoice 12) Validate line';
1780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1781: AP_IMPORT_UTILITIES_PKG.Print(
1782: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1783: END IF;
1784: AP_IMPORT_UTILITIES_PKG.Print(
1778: --------------------------
1779: debug_info := '(Import_invoice 12) Validate line';
1780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1781: AP_IMPORT_UTILITIES_PKG.Print(
1782: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1783: END IF;
1784: AP_IMPORT_UTILITIES_PKG.Print(
1785: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1786:
1781: AP_IMPORT_UTILITIES_PKG.Print(
1782: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1783: END IF;
1784: AP_IMPORT_UTILITIES_PKG.Print(
1785: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1786:
1787: IF (AP_IMPORT_VALIDATION_PKG.v_check_lines_validation (
1788: l_invoice_rec, -- IN
1789: l_invoice_lines_tab, -- OUT NOCOPY
1810: l_default_last_update_login, -- IN
1811: l_invoice_status, -- OUT NOCOPY
1812: current_calling_sequence) <> TRUE) THEN
1813:
1814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1815: AP_IMPORT_UTILITIES_PKG.Print(
1816: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1817: 'v_check_lines_validation<-'||current_calling_sequence);
1818: END IF;
1812: current_calling_sequence) <> TRUE) THEN
1813:
1814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1815: AP_IMPORT_UTILITIES_PKG.Print(
1816: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1817: 'v_check_lines_validation<-'||current_calling_sequence);
1818: END IF;
1819: Raise import_invoice_failure;
1820: END IF;
1820: END IF;
1821: END IF;
1822:
1823: AP_IMPORT_UTILITIES_PKG.Print(
1824: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'invoice_status is:'||l_invoice_status);
1825:
1826: -- Payment Request: Do not call eTax API for Payment Requests
1827: IF ((l_invoice_status = 'Y') AND
1828: (l_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST')) THEN
1831: -- tax information for taxable and tax lines.
1832: --------------------------------------------------------------
1833: debug_info := '(Import_invoice 13) Validate tax info for '||
1834: 'tax and taxable lines';
1835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1836: AP_IMPORT_UTILITIES_PKG.Print(
1837: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1838: END IF;
1839:
1833: debug_info := '(Import_invoice 13) Validate tax info for '||
1834: 'tax and taxable lines';
1835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1836: AP_IMPORT_UTILITIES_PKG.Print(
1837: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1838: END IF;
1839:
1840:
1841: AP_IMPORT_UTILITIES_PKG.Print(
1838: END IF;
1839:
1840:
1841: AP_IMPORT_UTILITIES_PKG.Print(
1842: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1843: -- assigning the following variable that was included in the
1844: -- header rec (denormalized)
1845: -- this variable will be used by Tax
1846: l_invoice_rec.set_of_books_id := l_set_of_books_id;
1858: p_invoice_status => l_invoice_status,
1859: p_error_code => l_error_code,
1860: p_calling_sequence => current_calling_sequence)) THEN
1861:
1862: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1863: AP_IMPORT_UTILITIES_PKG.Print(
1864: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1865: 'ap_etax_services_pkg.validate_default_import<-'||current_calling_sequence);
1866:
1860: p_calling_sequence => current_calling_sequence)) THEN
1861:
1862: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1863: AP_IMPORT_UTILITIES_PKG.Print(
1864: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1865: 'ap_etax_services_pkg.validate_default_import<-'||current_calling_sequence);
1866:
1867: END IF;
1868:
1905: -- Step 14
1906: -- Call Sequential Numbering Routine
1907: ------------------------------------
1908: debug_info := '(Import_invoice 14) Get Doc Sequence';
1909: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1910: AP_IMPORT_UTILITIES_PKG.Print(
1911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1912: END IF;
1913:
1907: ------------------------------------
1908: debug_info := '(Import_invoice 14) Get Doc Sequence';
1909: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1910: AP_IMPORT_UTILITIES_PKG.Print(
1911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1912: END IF;
1913:
1914: AP_IMPORT_UTILITIES_PKG.Print(
1915: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1912: END IF;
1913:
1914: AP_IMPORT_UTILITIES_PKG.Print(
1915: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1916:
1917: IF (AP_IMPORT_UTILITIES_PKG.get_doc_sequence (
1918: l_invoice_rec, -- IN OUT
1919: l_inv_doc_cat_override, -- IN
1926: l_dbseqid, -- OUT NOCOPY
1927: l_invoice_status, -- OUT NOCOPY
1928: current_calling_sequence)<> TRUE) THEN
1929:
1930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1931: AP_IMPORT_UTILITIES_PKG.Print(
1932: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1933: 'get_doc_sequence<-'||current_calling_sequence);
1934: END IF;
1928: current_calling_sequence)<> TRUE) THEN
1929:
1930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1931: AP_IMPORT_UTILITIES_PKG.Print(
1932: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1933: 'get_doc_sequence<-'||current_calling_sequence);
1934: END IF;
1935: Raise import_invoice_failure;
1936: END IF;
1936: END IF;
1937:
1938: -- show output values (only IF debug_switch = 'Y')
1939:
1940: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1941: AP_IMPORT_UTILITIES_PKG.Print(
1942: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1943: '------------------> l_invoice_status = '|| l_invoice_status
1944: ||' l_seqval = '||to_char(l_seqval)
1938: -- show output values (only IF debug_switch = 'Y')
1939:
1940: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1941: AP_IMPORT_UTILITIES_PKG.Print(
1942: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1943: '------------------> l_invoice_status = '|| l_invoice_status
1944: ||' l_seqval = '||to_char(l_seqval)
1945: ||' l_dbseqnm = '||l_dbseqnm
1946: ||' l_dbseqid = '||to_char(l_dbseqid));
1958: -- Get some required fields for creating invoices
1959: -- most of them are from po_vendor_sites
1960: -----------------------------------------------------
1961: debug_info := '(Import_invoice 15.1a) Call get_invoice_info';
1962: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1963: AP_IMPORT_UTILITIES_PKG.Print(
1964: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1965: END IF;
1966:
1960: -----------------------------------------------------
1961: debug_info := '(Import_invoice 15.1a) Call get_invoice_info';
1962: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1963: AP_IMPORT_UTILITIES_PKG.Print(
1964: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1965: END IF;
1966:
1967: IF (AP_IMPORT_UTILITIES_PKG.get_invoice_info(
1968: l_invoice_rec, -- IN OUT NOCOPY
1974: l_hold_future_payments_flag, -- OUT NOCOPY
1975: l_supplier_hold_reason, -- OUT NOCOPY
1976: l_exclude_freight_from_disc, -- OUT NOCOPY /* bug 4931755 */
1977: current_calling_sequence ) <> TRUE) THEN
1978: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1979: AP_IMPORT_UTILITIES_PKG.Print(
1980: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1981: 'get_invoice_info<-'||current_calling_sequence);
1982: END IF;
1976: l_exclude_freight_from_disc, -- OUT NOCOPY /* bug 4931755 */
1977: current_calling_sequence ) <> TRUE) THEN
1978: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1979: AP_IMPORT_UTILITIES_PKG.Print(
1980: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1981: 'get_invoice_info<-'||current_calling_sequence);
1982: END IF;
1983: Raise import_invoice_failure;
1984:
1985: END IF;
1986:
1987: -- show output values (only IF debug_switch = 'Y')
1988:
1989: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1991: '------------------> l_pay_curr_invoice_amount = '
1992: ||to_char(l_pay_curr_invoice_amount)
1993: ||' l_payment_priority = ' ||to_char(l_payment_priority)
1986:
1987: -- show output values (only IF debug_switch = 'Y')
1988:
1989: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1991: '------------------> l_pay_curr_invoice_amount = '
1992: ||to_char(l_pay_curr_invoice_amount)
1993: ||' l_payment_priority = ' ||to_char(l_payment_priority)
1994: ||' l_invoice_amount_limit = ' ||to_char(l_invoice_amount_limit)
2003: -- Update global_context_code with the right
2004: -- value corresponding to flexfield JG_AP_INVOICES
2005: -----------------------------------------------------
2006: debug_info := '(Import_invoice 15.1b) Update global context code';
2007: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2008: AP_IMPORT_UTILITIES_PKG.Print(
2009: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2010: END IF;
2011:
2005: -----------------------------------------------------
2006: debug_info := '(Import_invoice 15.1b) Update global context code';
2007: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2008: AP_IMPORT_UTILITIES_PKG.Print(
2009: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2010: END IF;
2011:
2012: -- > IN global context code in interface table
2013: -- > OUT NOCOPY global context code in base table
2015:
2016: IF ( jg_globe_flex_val.reassign_context_code(
2017: l_invoice_rec.global_attribute_category) <> TRUE) THEN
2018:
2019: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2020: AP_IMPORT_UTILITIES_PKG.Print(
2021: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2022: 'reassign_context_code<-'||current_calling_sequence);
2023: END IF;
2017: l_invoice_rec.global_attribute_category) <> TRUE) THEN
2018:
2019: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2020: AP_IMPORT_UTILITIES_PKG.Print(
2021: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2022: 'reassign_context_code<-'||current_calling_sequence);
2023: END IF;
2024: Raise import_invoice_failure;
2025: END IF;
2028: -- Step 15.2
2029: -- Insert record INTO ap_invoices
2030: ----------------------------------------------------------
2031: debug_info := '(Import_invoice 15.2) Insert record INTO ap_invoices';
2032: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2033: AP_IMPORT_UTILITIES_PKG.Print(
2034: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
2035: END IF;
2036:
2030: ----------------------------------------------------------
2031: debug_info := '(Import_invoice 15.2) Insert record INTO ap_invoices';
2032: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2033: AP_IMPORT_UTILITIES_PKG.Print(
2034: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
2035: END IF;
2036:
2037: -- Payment Request: Added p_needs_invoice_approval for payment requests
2038: IF (AP_IMPORT_UTILITIES_PKG.insert_ap_invoices(
2048: l_add_days_settlement_date, -- IN --bug 4930111
2049: l_disc_is_inv_less_tax_flag, -- IN --bug 4931755
2050: l_exclude_freight_from_disc, -- IN --bug 4931755
2051: current_calling_sequence) <> TRUE) THEN
2052: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2053: AP_IMPORT_UTILITIES_PKG.Print(
2054: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2055: '<-'||current_calling_sequence);
2056: END IF;
2050: l_exclude_freight_from_disc, -- IN --bug 4931755
2051: current_calling_sequence) <> TRUE) THEN
2052: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2053: AP_IMPORT_UTILITIES_PKG.Print(
2054: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2055: '<-'||current_calling_sequence);
2056: END IF;
2057:
2058: Raise import_invoice_failure;
2068: l_invoice_rec.invoice_amount;
2069:
2070: g_invoice_id := l_base_invoice_id;
2071:
2072: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2073: AP_IMPORT_UTILITIES_PKG.Print(
2074: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2075: '------------------> l_base_invoice_id = '
2076: || to_char(l_base_invoice_id)
2070: g_invoice_id := l_base_invoice_id;
2071:
2072: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2073: AP_IMPORT_UTILITIES_PKG.Print(
2074: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2075: '------------------> l_base_invoice_id = '
2076: || to_char(l_base_invoice_id)
2077: ||' l_valid_invoices_count = '||to_char(l_valid_invoices_count));
2078: END IF;
2083: ---------------------------------------------------------------
2084:
2085: debug_info := '(Import_invoice 15.3) Insert payment schedules '||
2086: 'from terms';
2087: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2088: AP_IMPORT_UTILITIES_PKG.Print(
2089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2090: END IF;
2091:
2085: debug_info := '(Import_invoice 15.3) Insert payment schedules '||
2086: 'from terms';
2087: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2088: AP_IMPORT_UTILITIES_PKG.Print(
2089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2090: END IF;
2091:
2092: AP_CREATE_PAY_SCHEDS_PKG.Create_payment_schedules(
2093: p_invoice_id =>l_base_invoice_id,
2113: -- There are 2 holds FROM supplier site AND 1 hold FROM input
2114: -- parameter.
2115: -------------------------------------------------------------
2116: debug_info := '(Import_invoice 15.4) Insert holds for this invoice';
2117: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121:
2115: -------------------------------------------------------------
2116: debug_info := '(Import_invoice 15.4) Insert holds for this invoice';
2117: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121:
2122: IF (AP_IMPORT_UTILITIES_PKG.insert_holds(
2123: l_base_invoice_id,
2133: l_invoice_rec.invoice_currency_code)),
2134: l_invoice_rec.last_updated_by,
2135: current_calling_sequence ) <> TRUE) THEN
2136:
2137: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2138: AP_IMPORT_UTILITIES_PKG.Print(
2139: AP_IMPORT_INVOICES_PKG.g_debug_switch,'<-'||
2140: current_calling_sequence);
2141: END IF;
2135: current_calling_sequence ) <> TRUE) THEN
2136:
2137: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2138: AP_IMPORT_UTILITIES_PKG.Print(
2139: AP_IMPORT_INVOICES_PKG.g_debug_switch,'<-'||
2140: current_calling_sequence);
2141: END IF;
2142: Raise import_invoice_failure;
2143: END IF;
2146: -- Step 15.5:
2147: -- Create invoice lines
2148: --------------------------------------------------------------
2149: debug_info := '(Import_invoice 15.5) Create invoice lines';
2150: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2151: AP_IMPORT_UTILITIES_PKG.Print(
2152: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2153: END IF;
2154:
2148: --------------------------------------------------------------
2149: debug_info := '(Import_invoice 15.5) Create invoice lines';
2150: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2151: AP_IMPORT_UTILITIES_PKG.Print(
2152: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2153: END IF;
2154:
2155:
2156: AP_IMPORT_UTILITIES_PKG.Print(
2153: END IF;
2154:
2155:
2156: AP_IMPORT_UTILITIES_PKG.Print(
2157: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
2158:
2159: IF (AP_IMPORT_UTILITIES_PKG.create_lines(
2160: l_batch_id,
2161: l_base_invoice_id,
2168: l_default_last_updated_by,
2169: l_default_last_update_login,
2170: current_calling_sequence) <> TRUE) THEN
2171:
2172: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2173: AP_IMPORT_UTILITIES_PKG.Print(
2174: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2175: 'create_lines<-'||current_calling_sequence);
2176: Raise import_invoice_failure;
2170: current_calling_sequence) <> TRUE) THEN
2171:
2172: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2173: AP_IMPORT_UTILITIES_PKG.Print(
2174: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2175: 'create_lines<-'||current_calling_sequence);
2176: Raise import_invoice_failure;
2177: END IF;
2178: END IF;
2182: -- Execute the Argentine/Colombian defaulting procedure
2183: --------------------------------------------------------------
2184: debug_info := '(Import_invoice 15.6) Execute the '||
2185: 'Argentine/Colombian defaulting procedure';
2186: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2187: AP_IMPORT_UTILITIES_PKG.Print(
2188: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2189: END IF;
2190:
2184: debug_info := '(Import_invoice 15.6) Execute the '||
2185: 'Argentine/Colombian defaulting procedure';
2186: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2187: AP_IMPORT_UTILITIES_PKG.Print(
2188: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2189: END IF;
2190:
2191: --Bugfix:4674229
2192: DECLARE
2199: P_calling_module => 'IMPORT',
2200: P_Parent_Dist_Id => NULL,
2201: P_Awt_Success => l_awt_success);
2202: IF (l_awt_success <> 'SUCCESS') THEN
2203: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2204: AP_IMPORT_UTILITIES_PKG.Print(
2205: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2206: 'ap_ext_withholding_default<-'||current_calling_sequence);
2207: END IF;
2201: P_Awt_Success => l_awt_success);
2202: IF (l_awt_success <> 'SUCCESS') THEN
2203: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2204: AP_IMPORT_UTILITIES_PKG.Print(
2205: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2206: 'ap_ext_withholding_default<-'||current_calling_sequence);
2207: END IF;
2208: Raise import_invoice_failure;
2209: END IF;
2221:
2222: debug_info := '(Import_invoice 15.7) Call import before any prepayment '||
2223: 'application if the user intention is to import TAX';
2224:
2225: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2226: AP_IMPORT_UTILITIES_PKG.Print(
2227: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2228: END IF;
2229:
2223: 'application if the user intention is to import TAX';
2224:
2225: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2226: AP_IMPORT_UTILITIES_PKG.Print(
2227: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2228: END IF;
2229:
2230:
2231: IF ( l_invoice_rec.calc_tax_during_import_flag = 'N') THEN
2236: -- recovery right after because tax-only lines had been created
2237: --------------------------------------------------------------
2238: debug_info := '(Import_invoice 15.7a) User intention is to import TAX';
2239:
2240: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2241: AP_IMPORT_UTILITIES_PKG.Print(
2242: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2243: END IF;
2244:
2238: debug_info := '(Import_invoice 15.7a) User intention is to import TAX';
2239:
2240: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2241: AP_IMPORT_UTILITIES_PKG.Print(
2242: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2243: END IF;
2244:
2245: IF ( NVL(l_invoice_rec.tax_only_rcv_matched_flag, 'N') = 'Y') THEN
2246: -----------------------------------------------------------------
2250:
2251: debug_info := '(Import_invoice 15.7b) Invoice is tax only and is matched to receipt '||
2252: 'so calculate shoould be called instead of import';
2253:
2254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2255: AP_IMPORT_UTILITIES_PKG.Print(
2256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2257: END IF;
2258:
2252: 'so calculate shoould be called instead of import';
2253:
2254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2255: AP_IMPORT_UTILITIES_PKG.Print(
2256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2257: END IF;
2258:
2259: IF NOT (ap_etax_pkg.calling_etax(
2260: p_invoice_id => l_base_invoice_id,
2268:
2269: -- If the call to calculate fails, the import process will
2270: -- fail. In this case the invoice cannot be imported since
2271: -- user is trying to import tax lines
2272: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2273: AP_IMPORT_UTILITIES_PKG.Print(
2274: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2275: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2276:
2270: -- fail. In this case the invoice cannot be imported since
2271: -- user is trying to import tax lines
2272: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2273: AP_IMPORT_UTILITIES_PKG.Print(
2274: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2275: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2276:
2277: END IF;
2278:
2316:
2317: debug_info := '(Import_invoice 15.7c) Invoice is tax only '||
2318: 'but not matched to receipt so call IMPORT TAX';
2319:
2320: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2321: AP_IMPORT_UTILITIES_PKG.Print(
2322: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2323: END IF;
2324:
2318: 'but not matched to receipt so call IMPORT TAX';
2319:
2320: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2321: AP_IMPORT_UTILITIES_PKG.Print(
2322: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2323: END IF;
2324:
2325: IF NOT (ap_etax_pkg.calling_etax(
2326: p_invoice_id => l_base_invoice_id,
2332: p_error_code => l_error_code,
2333: p_calling_sequence => current_calling_sequence)) THEN
2334:
2335: -- If the import of tax fails, the import process will fail.
2336: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2337: AP_IMPORT_UTILITIES_PKG.Print(
2338: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2339: 'ap_etax_pkg.calling_etax(IMPORT INTERFACE)<-'||current_calling_sequence);
2340:
2334:
2335: -- If the import of tax fails, the import process will fail.
2336: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2337: AP_IMPORT_UTILITIES_PKG.Print(
2338: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2339: 'ap_etax_pkg.calling_etax(IMPORT INTERFACE)<-'||current_calling_sequence);
2340:
2341: END IF;
2342:
2374: IF (NVL(l_invoice_rec.tax_only_flag, 'N') = 'Y') THEN
2375: debug_info := '(Import_invoice 15.7d) Invoice is tax only so we will '||
2376: 'call determine_recovery';
2377:
2378: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2379: AP_IMPORT_UTILITIES_PKG.Print(
2380: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2381: END IF;
2382:
2376: 'call determine_recovery';
2377:
2378: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2379: AP_IMPORT_UTILITIES_PKG.Print(
2380: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2381: END IF;
2382:
2383: IF NOT (ap_etax_pkg.calling_etax(
2384: p_invoice_id => l_base_invoice_id,
2392:
2393: -- If the call to determine recovery fails, the import process
2394: -- will fail. In this case the invoice cannot be imported since
2395: -- user is trying to import tax lines
2396: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2397: AP_IMPORT_UTILITIES_PKG.Print(
2398: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2399: 'ap_etax_pkg.calling_etax(DISTRIBUTE IMPORT)<-'||current_calling_sequence);
2400:
2394: -- will fail. In this case the invoice cannot be imported since
2395: -- user is trying to import tax lines
2396: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2397: AP_IMPORT_UTILITIES_PKG.Print(
2398: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2399: 'ap_etax_pkg.calling_etax(DISTRIBUTE IMPORT)<-'||current_calling_sequence);
2400:
2401: END IF;
2402:
2442:
2443: debug_info := '(Import_invoice 15.8) Call calculate or the prepayment '||
2444: 'application';
2445:
2446: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2447: AP_IMPORT_UTILITIES_PKG.Print(
2448: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2449: END IF;
2450:
2444: 'application';
2445:
2446: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2447: AP_IMPORT_UTILITIES_PKG.Print(
2448: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2449: END IF;
2450:
2451: IF ( l_invoice_rec.prepay_num IS NULL AND
2452: l_invoice_rec.prepay_line_num IS NULL AND
2470: -- ap_invoice_lines_all table
2471: --------------------------------------------------------------
2472: debug_info := '(Import_invoice 15.8a) Call calculate tax';
2473:
2474: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2475: AP_IMPORT_UTILITIES_PKG.Print(
2476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2477: END IF;
2478:
2472: debug_info := '(Import_invoice 15.8a) Call calculate tax';
2473:
2474: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2475: AP_IMPORT_UTILITIES_PKG.Print(
2476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2477: END IF;
2478:
2479: IF NOT (ap_etax_pkg.calling_etax(
2480: p_invoice_id => l_base_invoice_id,
2490: -- anyway, and the error(s) will be included in the log file.
2491: -- Tax can be later be calculated from the invoice workbench or
2492: -- during the validation of the invoice.
2493:
2494: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2495: AP_IMPORT_UTILITIES_PKG.Print(
2496: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2497: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2498:
2492: -- during the validation of the invoice.
2493:
2494: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2495: AP_IMPORT_UTILITIES_PKG.Print(
2496: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2497: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2498:
2499: END IF;
2500:
2535: -- Fix using invoice record
2536: --------------------------------------------------------------
2537: debug_info := '(Import_invoice 15.8b) Apply Prepayment(s) to invoice.';
2538:
2539: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2540: AP_IMPORT_UTILITIES_PKG.Print(
2541: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2542: END IF;
2543:
2537: debug_info := '(Import_invoice 15.8b) Apply Prepayment(s) to invoice.';
2538:
2539: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2540: AP_IMPORT_UTILITIES_PKG.Print(
2541: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2542: END IF;
2543:
2544:
2545: SELECT sum(nvl(amount_remaining,0))
2583: 'if flag add_tax_to_inv_amt_flag is set with the '||
2584: 'total of the exclusive tax lines created for the '||
2585: 'invoice';
2586:
2587: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2588: AP_IMPORT_UTILITIES_PKG.Print(
2589: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2590: END IF;
2591:
2585: 'invoice';
2586:
2587: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2588: AP_IMPORT_UTILITIES_PKG.Print(
2589: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2590: END IF;
2591:
2592: IF (NVL(l_invoice_rec.add_tax_to_inv_amt_flag, 'N') = 'Y') THEN
2593:
2644: --------------------------------------------------------------
2645: debug_info := '(Import_invoice 15.10) Delete the contents of '||
2646: 'the l_invoice_lines_tab Lines Table';
2647:
2648: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2649: AP_IMPORT_UTILITIES_PKG.Print(
2650: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2651: END IF;
2652:
2646: 'the l_invoice_lines_tab Lines Table';
2647:
2648: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2649: AP_IMPORT_UTILITIES_PKG.Print(
2650: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2651: END IF;
2652:
2653: l_invoice_lines_tab.DELETE;
2654:
2658: --------------------------------------------------------------
2659: debug_info := '(Import_invoice 15.11) Delete the contents of '||
2660: 'the eTax global temp tables';
2661:
2662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2663: AP_IMPORT_UTILITIES_PKG.Print(
2664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2665: END IF;
2666:
2660: 'the eTax global temp tables';
2661:
2662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2663: AP_IMPORT_UTILITIES_PKG.Print(
2664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2665: END IF;
2666:
2667: BEGIN DELETE zx_trx_headers_gt;
2668: EXCEPTION WHEN NO_DATA_FOUND THEN null;
2686: -- Step 16. Retropricing.
2687: ----------------------------------------------------------------
2688: ELSE
2689: debug_info := '(Import Invoice 16) Import_Retroprice_Adjustments';
2690: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2691: AP_IMPORT_UTILITIES_PKG.Print(
2692: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2693: END IF;
2694: --
2688: ELSE
2689: debug_info := '(Import Invoice 16) Import_Retroprice_Adjustments';
2690: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2691: AP_IMPORT_UTILITIES_PKG.Print(
2692: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2693: END IF;
2694: --
2695: IF (AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(
2696: l_invoice_rec, -- IN p_instr_header_rec
2717: l_valid_invoices_count, -- OUT p_invoices_count
2718: l_total_invoice_amount, -- OUT p_invoices_total
2719: current_calling_sequence) <> TRUE) THEN
2720: --
2721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2722: AP_IMPORT_UTILITIES_PKG.Print(
2723: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2724: 'Import_Retroprice_Adjustments<-'||current_calling_sequence);
2725: END IF;
2719: current_calling_sequence) <> TRUE) THEN
2720: --
2721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2722: AP_IMPORT_UTILITIES_PKG.Print(
2723: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2724: 'Import_Retroprice_Adjustments<-'||current_calling_sequence);
2725: END IF;
2726: Raise import_invoice_failure;
2727: --
2734: -- AP_IMPORT_UTILITIES_PKG.Update_ap_batches.
2735: -- Ideally they shud be the same.
2736: l_actual_invoice_total := l_total_invoice_amount;
2737: --
2738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2739: AP_IMPORT_UTILITIES_PKG.Print(
2740: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2741: '------------------> l_instruction_id = '
2742: || to_char(l_invoice_rec.invoice_id));
2736: l_actual_invoice_total := l_total_invoice_amount;
2737: --
2738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2739: AP_IMPORT_UTILITIES_PKG.Print(
2740: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2741: '------------------> l_instruction_id = '
2742: || to_char(l_invoice_rec.invoice_id));
2743: END IF;
2744: --
2759: -- Step 17.1. Change the invoice status to 'REJECTING'
2760: -----------------------------------------------------
2761: debug_info := '(Import_invoice 17.1) Change the invoice status to '||
2762: 'REJECTING';
2763: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2764: AP_IMPORT_UTILITIES_PKG.Print(
2765: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2766: END IF;
2767:
2761: debug_info := '(Import_invoice 17.1) Change the invoice status to '||
2762: 'REJECTING';
2763: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2764: AP_IMPORT_UTILITIES_PKG.Print(
2765: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2766: END IF;
2767:
2768: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2769: 'REJECTING',
2768: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2769: 'REJECTING',
2770: l_invoice_rec.invoice_id,
2771: current_calling_sequence) <> TRUE) THEN
2772: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2773: AP_IMPORT_UTILITIES_PKG.Print(
2774: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2775: 'change_invoice_status<-'||current_calling_sequence);
2776: END IF;
2770: l_invoice_rec.invoice_id,
2771: current_calling_sequence) <> TRUE) THEN
2772: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2773: AP_IMPORT_UTILITIES_PKG.Print(
2774: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2775: 'change_invoice_status<-'||current_calling_sequence);
2776: END IF;
2777: Raise import_invoice_failure;
2778: END IF;
2781: -- Step 17.2 Change the invoice status to 'PROCESSING'
2782: ------------------------------------------------------
2783: debug_info := '(Import_invoice 17.2) Change the invoice status to '||
2784: 'PROCESSIPRNG';
2785: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2786: AP_IMPORT_UTILITIES_PKG.Print(
2787: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2788: END IF;
2789:
2783: debug_info := '(Import_invoice 17.2) Change the invoice status to '||
2784: 'PROCESSIPRNG';
2785: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2786: AP_IMPORT_UTILITIES_PKG.Print(
2787: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2788: END IF;
2789:
2790: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2791: 'PROCESSING',
2790: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2791: 'PROCESSING',
2792: l_invoice_rec.invoice_id,
2793: current_calling_sequence) <> TRUE) THEN
2794: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2795: AP_IMPORT_UTILITIES_PKG.Print(
2796: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2797: 'change_invoice_status<-'||current_calling_sequence);
2798: END IF;
2792: l_invoice_rec.invoice_id,
2793: current_calling_sequence) <> TRUE) THEN
2794: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2795: AP_IMPORT_UTILITIES_PKG.Print(
2796: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2797: 'change_invoice_status<-'||current_calling_sequence);
2798: END IF;
2799: Raise import_invoice_failure;
2800: END IF;
2809:
2810: END LOOP; -- invoice LOOP
2811:
2812: debug_info := '(Import_invoice) CLOSE import_invoices';
2813: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2814: AP_IMPORT_UTILITIES_PKG.Print(
2815: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2816: END IF;
2817:
2811:
2812: debug_info := '(Import_invoice) CLOSE import_invoices';
2813: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2814: AP_IMPORT_UTILITIES_PKG.Print(
2815: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2816: END IF;
2817:
2818: -- Bug 4145391
2819: IF (p_group_id IS NULL) THEN
2828: -- Create batch only the first time, in subsequent commit cycles
2829: -- do not try to create the batch again.
2830: ---------------------------------------------------------------------
2831: debug_info := '(Import_invoice 18a) Get/Initialize batch name';
2832: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2833: AP_IMPORT_UTILITIES_PKG.Print(
2834: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2835: END IF;
2836: BEGIN--veramach bug 7121842
2830: ---------------------------------------------------------------------
2831: debug_info := '(Import_invoice 18a) Get/Initialize batch name';
2832: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2833: AP_IMPORT_UTILITIES_PKG.Print(
2834: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2835: END IF;
2836: BEGIN--veramach bug 7121842
2837: IF (p_batch_name IS NULL AND
2838: l_batch_name IS NULL AND
2859: (l_valid_invoices_count >0 ) AND
2860: (l_batch_type = 'NEW BATCH')) THEN
2861:
2862: debug_info := '(Import_invoice 18b) Create ap_batches';
2863: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2864: AP_IMPORT_UTILITIES_PKG.Print(
2865: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2866: END IF;
2867:
2861:
2862: debug_info := '(Import_invoice 18b) Create ap_batches';
2863: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2864: AP_IMPORT_UTILITIES_PKG.Print(
2865: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2866: END IF;
2867:
2868: IF (AP_IMPORT_UTILITIES_PKG.Insert_ap_batches(
2869: l_batch_id,
2873: l_valid_invoices_count,-- bug1721820
2874: l_actual_invoice_total,-- bug1721820
2875: l_default_last_updated_by,
2876: current_calling_sequence) <> TRUE) THEN
2877: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2878: AP_IMPORT_UTILITIES_PKG.Print(
2879: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2880: 'Insert_ap_batches<-'||current_calling_sequence);
2881: END IF;
2875: l_default_last_updated_by,
2876: current_calling_sequence) <> TRUE) THEN
2877: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2878: AP_IMPORT_UTILITIES_PKG.Print(
2879: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2880: 'Insert_ap_batches<-'||current_calling_sequence);
2881: END IF;
2882: Raise import_invoice_failure;
2883: END IF;
2882: Raise import_invoice_failure;
2883: END IF;
2884:
2885: debug_info := '(Import_invoice 18c) Set batch exists flag to Y';
2886: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2887: AP_IMPORT_UTILITIES_PKG.Print(
2888: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2889: END IF;
2890:
2884:
2885: debug_info := '(Import_invoice 18c) Set batch exists flag to Y';
2886: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2887: AP_IMPORT_UTILITIES_PKG.Print(
2888: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2889: END IF;
2890:
2891: l_batch_exists_flag := 'Y';
2892:
2897: (l_batch_type = 'OLD BATCH')) AND
2898: (l_valid_invoices_count >0 )) THEN
2899:
2900: debug_info := '(Import_invoice 18d) Create ap_batches';
2901: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2902: AP_IMPORT_UTILITIES_PKG.Print(
2903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2904: END IF;
2905:
2899:
2900: debug_info := '(Import_invoice 18d) Create ap_batches';
2901: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2902: AP_IMPORT_UTILITIES_PKG.Print(
2903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2904: END IF;
2905:
2906: IF (AP_IMPORT_UTILITIES_PKG.Update_Ap_Batches(
2907: l_batch_id,
2909: l_valid_invoices_count,
2910: l_actual_invoice_total,
2911: l_default_last_updated_by,
2912: current_calling_sequence) <> TRUE) THEN
2913: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2914: AP_IMPORT_UTILITIES_PKG.Print(
2915: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2916: 'Update_Ap_Batches<-'||current_calling_sequence);
2917: END IF;
2911: l_default_last_updated_by,
2912: current_calling_sequence) <> TRUE) THEN
2913: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2914: AP_IMPORT_UTILITIES_PKG.Print(
2915: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2916: 'Update_Ap_Batches<-'||current_calling_sequence);
2917: END IF;
2918: Raise import_invoice_failure;
2919: END IF;
2918: Raise import_invoice_failure;
2919: END IF;
2920:
2921: debug_info := '(Import_invoice 18e) Set batch exists flag to Y';
2922: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2923: AP_IMPORT_UTILITIES_PKG.Print(
2924: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2925: END IF;
2926:
2920:
2921: debug_info := '(Import_invoice 18e) Set batch exists flag to Y';
2922: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2923: AP_IMPORT_UTILITIES_PKG.Print(
2924: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2925: END IF;
2926:
2927: l_batch_exists_flag := 'Y';
2928: ELSE
2926:
2927: l_batch_exists_flag := 'Y';
2928: ELSE
2929: debug_info := '(Import_invoice 18f) Do Not create batch';
2930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2931: AP_IMPORT_UTILITIES_PKG.Print(
2932: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2933: END IF;
2934: END IF;
2928: ELSE
2929: debug_info := '(Import_invoice 18f) Do Not create batch';
2930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2931: AP_IMPORT_UTILITIES_PKG.Print(
2932: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2933: END IF;
2934: END IF;
2935:
2936: -----------------------------------------------------------
2937: -- Step 19
2938: -- For each commit cycle, do a commit.
2939: -----------------------------------------------------------
2940: debug_info := '(Import_invoice 19) COMMIT to the database';
2941: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2942: AP_IMPORT_UTILITIES_PKG.Print(
2943: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2944: END IF;
2945:
2939: -----------------------------------------------------------
2940: debug_info := '(Import_invoice 19) COMMIT to the database';
2941: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2942: AP_IMPORT_UTILITIES_PKG.Print(
2943: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2944: END IF;
2945:
2946: IF NVL(p_commit,'Y') = 'Y' THEN
2947: COMMIT;
2951: -- Step 20 Check IF there's still any record left
2952: --
2953: -----------------------------------------------------
2954: debug_info := '(Import_purge 20) Check IF there is still any record left';
2955: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2956: AP_IMPORT_UTILITIES_PKG.Print(
2957: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2958: END IF;
2959:
2953: -----------------------------------------------------
2954: debug_info := '(Import_purge 20) Check IF there is still any record left';
2955: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2956: AP_IMPORT_UTILITIES_PKG.Print(
2957: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2958: END IF;
2959:
2960: IF l_total_count > l_invoices_fetched THEN
2961: l_continue_flag := 'Y';
2962: ELSE
2963: l_continue_flag := 'N';
2964: END IF;
2965:
2966: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2967: AP_IMPORT_UTILITIES_PKG.Print(
2968: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2969: '------------------> l_continue_flag = '|| l_continue_flag);
2970: END IF;
2964: END IF;
2965:
2966: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2967: AP_IMPORT_UTILITIES_PKG.Print(
2968: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2969: '------------------> l_continue_flag = '|| l_continue_flag);
2970: END IF;
2971: --veramach bug 7121842 start
2972: EXCEPTION
2983: -- 'REJECTING' to 'REJECTED'
2984: ----------------------------------------------------------------------
2985:
2986: debug_info := '(Import_invoice 21) Update temporary status';
2987: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2988: AP_IMPORT_UTILITIES_PKG.Print(
2989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2990: END IF;
2991: BEGIN--veramach bug 7121842
2985:
2986: debug_info := '(Import_invoice 21) Update temporary status';
2987: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2988: AP_IMPORT_UTILITIES_PKG.Print(
2989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2990: END IF;
2991: BEGIN--veramach bug 7121842
2992: IF (AP_IMPORT_UTILITIES_PKG.Update_temp_invoice_status(
2993: p_source,
2992: IF (AP_IMPORT_UTILITIES_PKG.Update_temp_invoice_status(
2993: p_source,
2994: p_group_id,
2995: current_calling_sequence) <> TRUE) THEN
2996: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2997: AP_IMPORT_UTILITIES_PKG.Print(
2998: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2999: 'Update_temp_invoice_statu<-'||current_calling_sequence);
3000: END IF;
2994: p_group_id,
2995: current_calling_sequence) <> TRUE) THEN
2996: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2997: AP_IMPORT_UTILITIES_PKG.Print(
2998: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2999: 'Update_temp_invoice_statu<-'||current_calling_sequence);
3000: END IF;
3001: Raise import_invoice_failure;
3002: END IF;
3011: p_total_invoice_amount := l_total_invoice_amount; -- for bug 989221
3012:
3013: debug_info := '(Import_invoice 22) Return No of invoices fetched '||
3014: 'during process ,p_invoices_fetched'||l_invoices_fetched;
3015: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3016: AP_IMPORT_UTILITIES_PKG.Print(
3017: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3018: END IF;
3019:
3013: debug_info := '(Import_invoice 22) Return No of invoices fetched '||
3014: 'during process ,p_invoices_fetched'||l_invoices_fetched;
3015: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3016: AP_IMPORT_UTILITIES_PKG.Print(
3017: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3018: END IF;
3019:
3020:
3021: debug_info := 'Now Block to Raise the Business event to pass the Concurrent request_id'
3018: END IF;
3019:
3020:
3021: debug_info := 'Now Block to Raise the Business event to pass the Concurrent request_id'
3022: ||AP_IMPORT_INVOICES_PKG.g_conc_request_id;
3023: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3024: AP_IMPORT_UTILITIES_PKG.Print(
3025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3026: END IF;
3019:
3020:
3021: debug_info := 'Now Block to Raise the Business event to pass the Concurrent request_id'
3022: ||AP_IMPORT_INVOICES_PKG.g_conc_request_id;
3023: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3024: AP_IMPORT_UTILITIES_PKG.Print(
3025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3026: END IF;
3027:
3021: debug_info := 'Now Block to Raise the Business event to pass the Concurrent request_id'
3022: ||AP_IMPORT_INVOICES_PKG.g_conc_request_id;
3023: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3024: AP_IMPORT_UTILITIES_PKG.Print(
3025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3026: END IF;
3027:
3028: --7567527 PL/SQL Block for Enhancement to raise Business events after invoices are imported
3029: BEGIN
3029: BEGIN
3030:
3031:
3032: l_parameter_list := wf_parameter_list_t( wf_parameter_t('REQUEST_ID',
3033: to_char(AP_IMPORT_INVOICES_PKG.g_conc_request_id)
3034: )
3035: );
3036:
3037:
3052:
3053: debug_info := 'After raising workflow event : '
3054: || 'event_name = ' || l_event_name
3055: || ' event_key = ' || l_event_key ;
3056: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3057: AP_IMPORT_UTILITIES_PKG.Print(
3058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3059: END IF;
3060:
3054: || 'event_name = ' || l_event_name
3055: || ' event_key = ' || l_event_key ;
3056: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3057: AP_IMPORT_UTILITIES_PKG.Print(
3058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3059: END IF;
3060:
3061: EXCEPTION
3062:
3062:
3063:
3064: WHEN OTHERS THEN
3065: debug_info := 'Error Was Raised in raising event';
3066: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3067: AP_IMPORT_UTILITIES_PKG.Print(
3068: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3069: END IF;
3070: WF_CORE.CONTEXT('AP_IMPORT_INVOICES_PKG', 'IMPORT_INVOICES', l_event_name,
3064: WHEN OTHERS THEN
3065: debug_info := 'Error Was Raised in raising event';
3066: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3067: AP_IMPORT_UTILITIES_PKG.Print(
3068: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3069: END IF;
3070: WF_CORE.CONTEXT('AP_IMPORT_INVOICES_PKG', 'IMPORT_INVOICES', l_event_name,
3071: l_event_key);
3072: RAISE;
3066: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3067: AP_IMPORT_UTILITIES_PKG.Print(
3068: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3069: END IF;
3070: WF_CORE.CONTEXT('AP_IMPORT_INVOICES_PKG', 'IMPORT_INVOICES', l_event_name,
3071: l_event_key);
3072: RAISE;
3073: END;
3074:
3075: RETURN (TRUE);
3076: EXCEPTION
3077: WHEN OTHERS THEN
3078: IF (SQLCODE < 0) THEN
3079: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3080: AP_IMPORT_UTILITIES_PKG.Print(
3081: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3082: END IF;
3083: END IF;
3077: WHEN OTHERS THEN
3078: IF (SQLCODE < 0) THEN
3079: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3080: AP_IMPORT_UTILITIES_PKG.Print(
3081: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3082: END IF;
3083: END IF;
3084:
3085: IF (SQLCODE = -54) THEN
3082: END IF;
3083: END IF;
3084:
3085: IF (SQLCODE = -54) THEN
3086: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3087: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3088: '(Import_invoice:EXCEPTION) The invoices to be SELECTed by this ' ||
3089: 'process are locked');
3090: END IF;
3083: END IF;
3084:
3085: IF (SQLCODE = -54) THEN
3086: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3087: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3088: '(Import_invoice:EXCEPTION) The invoices to be SELECTed by this ' ||
3089: 'process are locked');
3090: END IF;
3091: END IF;
3173: current_calling_sequence := 'Import_purge<- '||p_calling_sequence;
3174:
3175: debug_info := '(Import_purge ) Deleting records in interface tables...';
3176:
3177: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3178: AP_IMPORT_UTILITIES_PKG.Print(
3179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3180: END IF;
3181:
3175: debug_info := '(Import_purge ) Deleting records in interface tables...';
3176:
3177: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3178: AP_IMPORT_UTILITIES_PKG.Print(
3179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3180: END IF;
3181:
3182: -- Outside while loop for commit cycle
3183:
3228: -- Step 1, Open cursor
3229: ---------------------------------------------------------------
3230:
3231: debug_info := '(Import_purge 1) Open purge_invoices cursor';
3232: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3233: AP_IMPORT_UTILITIES_PKG.Print(
3234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3235: END IF;
3236:
3230:
3231: debug_info := '(Import_purge 1) Open purge_invoices cursor';
3232: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3233: AP_IMPORT_UTILITIES_PKG.Print(
3234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3235: END IF;
3236:
3237: -- Bug 4145391. To improve the performance of the import program coding two
3238: -- different cursors based on the parameter p_group_id
3250: -- Step 2, Fetch invoice interface record into local variables
3251: --
3252: ----------------------------------------------------------------
3253: debug_info := '(Import_puege 2) Fetch purge_invoices';
3254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3255: AP_IMPORT_UTILITIES_PKG.Print(
3256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3257: END IF;
3258:
3252: ----------------------------------------------------------------
3253: debug_info := '(Import_puege 2) Fetch purge_invoices';
3254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3255: AP_IMPORT_UTILITIES_PKG.Print(
3256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3257: END IF;
3258:
3259: -- Bug 4145391
3260: IF (p_group_id IS NULL) THEN
3270: --
3271: -- show output values (only if debug_switch = 'Y')
3272: --
3273: debug_info := '---------> l_invoice_id = '|| to_char(l_invoice_id);
3274: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3275: AP_IMPORT_UTILITIES_PKG.Print(
3276: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3277: END IF;
3278:
3272: --
3273: debug_info := '---------> l_invoice_id = '|| to_char(l_invoice_id);
3274: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3275: AP_IMPORT_UTILITIES_PKG.Print(
3276: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3277: END IF;
3278:
3279: ------------------------------------------------------------------------
3280: -- Step 3, Delete records for ap_invoice_lines_interface
3281: -- Multiple lines
3282: ------------------------------------------------------------------------
3283: debug_info := '(Import_purge 3) Delete records in ' ||
3284: 'ap_invoice_lines_interface...';
3285: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3286: AP_IMPORT_UTILITIES_PKG.Print(
3287: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3288: END IF;
3289:
3283: debug_info := '(Import_purge 3) Delete records in ' ||
3284: 'ap_invoice_lines_interface...';
3285: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3286: AP_IMPORT_UTILITIES_PKG.Print(
3287: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3288: END IF;
3289:
3290: DELETE FROM AP_INVOICE_LINES_INTERFACE
3291: WHERE invoice_id = l_invoice_id;
3295: -- Only one line
3296: ------------------------------------------------------------------------
3297: -- also delete attachments if any
3298: debug_info := '(Import_purge 4.1) Delete attachments if any...';
3299: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3300: AP_IMPORT_UTILITIES_PKG.Print(
3301: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3302: END IF;
3303:
3297: -- also delete attachments if any
3298: debug_info := '(Import_purge 4.1) Delete attachments if any...';
3299: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3300: AP_IMPORT_UTILITIES_PKG.Print(
3301: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3302: END IF;
3303:
3304: -- delete attachments for the invoice
3305: debug_info := '(Import_purge 4.2) before delete attachments: '||
3303:
3304: -- delete attachments for the invoice
3305: debug_info := '(Import_purge 4.2) before delete attachments: '||
3306: 'source = ' || p_source || ', invoice_id = ' || l_invoice_id;
3307: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3308: AP_IMPORT_UTILITIES_PKG.Print(
3309: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3310: END IF;
3311:
3305: debug_info := '(Import_purge 4.2) before delete attachments: '||
3306: 'source = ' || p_source || ', invoice_id = ' || l_invoice_id;
3307: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3308: AP_IMPORT_UTILITIES_PKG.Print(
3309: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3310: END IF;
3311:
3312: -- not necessary to restrict to souce
3313: l_attachments_count := delete_attachments(l_invoice_id);
3312: -- not necessary to restrict to souce
3313: l_attachments_count := delete_attachments(l_invoice_id);
3314: debug_info := '(Import_purge 4.2) delete attachments done: '||
3315: l_attachments_count;
3316: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3317: AP_IMPORT_UTILITIES_PKG.Print(
3318: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3319: END IF;
3320:
3314: debug_info := '(Import_purge 4.2) delete attachments done: '||
3315: l_attachments_count;
3316: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3317: AP_IMPORT_UTILITIES_PKG.Print(
3318: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3319: END IF;
3320:
3321: -- delete the invoice_interface record now
3322: debug_info := '(Import_purge 4) Delete records in ' ||
3320:
3321: -- delete the invoice_interface record now
3322: debug_info := '(Import_purge 4) Delete records in ' ||
3323: 'ap_invoices_interface...';
3324: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3325: AP_IMPORT_UTILITIES_PKG.Print(
3326: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3327: END IF;
3328:
3322: debug_info := '(Import_purge 4) Delete records in ' ||
3323: 'ap_invoices_interface...';
3324: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3325: AP_IMPORT_UTILITIES_PKG.Print(
3326: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3327: END IF;
3328:
3329: DELETE FROM AP_INVOICES_INTERFACE
3330: WHERE invoice_id = l_invoice_id
3343:
3344: END LOOP; -- invoice loop
3345:
3346: debug_info := '(Import_purge ) Close purge_invoices cursor';
3347: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3348: AP_IMPORT_UTILITIES_PKG.Print(
3349: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3350: END IF;
3351:
3345:
3346: debug_info := '(Import_purge ) Close purge_invoices cursor';
3347: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3348: AP_IMPORT_UTILITIES_PKG.Print(
3349: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3350: END IF;
3351:
3352: -- Bug 4145391
3353: IF (p_group_id IS NULL) THEN
3359: -----------------------------------------------------
3360: -- Step 5, COMMIT for each commit cycle
3361: -----------------------------------------------------
3362: debug_info := '(Import_purge 5) Commit to the database';
3363: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3364: AP_IMPORT_UTILITIES_PKG.Print(
3365: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3366: END IF;
3367: COMMIT;
3361: -----------------------------------------------------
3362: debug_info := '(Import_purge 5) Commit to the database';
3363: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3364: AP_IMPORT_UTILITIES_PKG.Print(
3365: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3366: END IF;
3367: COMMIT;
3368:
3369: -----------------------------------------------------
3369: -----------------------------------------------------
3370: -- Step 6, Check if there's still any record left
3371: -----------------------------------------------------
3372: debug_info := '(Import_purge 6) Check if there is still any record left';
3373: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3374: AP_IMPORT_UTILITIES_PKG.Print(
3375: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3376: END IF;
3377:
3371: -----------------------------------------------------
3372: debug_info := '(Import_purge 6) Check if there is still any record left';
3373: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3374: AP_IMPORT_UTILITIES_PKG.Print(
3375: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3376: END IF;
3377:
3378: If l_total_count > l_counter THEN
3379: l_continue_flag := 'Y';
3381: l_continue_flag := 'N';
3382: End If;
3383:
3384: debug_info := '---------> l_continue_flag = '|| l_continue_flag;
3385: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3386: AP_IMPORT_UTILITIES_PKG.Print(
3387: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3388: END IF;
3389: END LOOP; -- Outside commit cycle loop
3383:
3384: debug_info := '---------> l_continue_flag = '|| l_continue_flag;
3385: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3386: AP_IMPORT_UTILITIES_PKG.Print(
3387: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3388: END IF;
3389: END LOOP; -- Outside commit cycle loop
3390: RETURN (TRUE);
3391:
3391:
3392: EXCEPTION
3393: WHEN OTHERS THEN
3394:
3395: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3396: AP_IMPORT_UTILITIES_PKG.Print(
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3398: END IF;
3399:
3393: WHEN OTHERS THEN
3394:
3395: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3396: AP_IMPORT_UTILITIES_PKG.Print(
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3398: END IF;
3399:
3400: IF (SQLCODE < 0) then
3401: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3398: END IF;
3399:
3400: IF (SQLCODE < 0) then
3401: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3402: AP_IMPORT_UTILITIES_PKG.Print(
3403: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3404: END IF;
3405: END IF;
3399:
3400: IF (SQLCODE < 0) then
3401: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3402: AP_IMPORT_UTILITIES_PKG.Print(
3403: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3404: END IF;
3405: END IF;
3406:
3407: IF (purge_invoices%ISOPEN) THEN
3432: -- update calling_sequence
3433: current_calling_sequence := 'xml_import_purge<--'||p_calling_sequence;
3434:
3435: debug_info := '(XML Import Purge 1) before getting list of invoice_id';
3436: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3437: AP_IMPORT_UTILITIES_PKG.Print(
3438: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3439: END IF;
3440:
3434:
3435: debug_info := '(XML Import Purge 1) before getting list of invoice_id';
3436: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3437: AP_IMPORT_UTILITIES_PKG.Print(
3438: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3439: END IF;
3440:
3441: -- get all XML invoices with supplier rejections
3442:
3487:
3488:
3489: debug_info := '(XML Import Purge 1.1) number of invoices to delete: '
3490: || nvl(h_list.count,0);
3491: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3492: AP_IMPORT_UTILITIES_PKG.Print(
3493: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3494: END IF;
3495:
3489: debug_info := '(XML Import Purge 1.1) number of invoices to delete: '
3490: || nvl(h_list.count,0);
3491: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3492: AP_IMPORT_UTILITIES_PKG.Print(
3493: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3494: END IF;
3495:
3496: debug_info := '(XML Import Purge 2) before deleting header rejections';
3497: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3493: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3494: END IF;
3495:
3496: debug_info := '(XML Import Purge 2) before deleting header rejections';
3497: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3498: AP_IMPORT_UTILITIES_PKG.Print(
3499: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3500: END IF;
3501:
3495:
3496: debug_info := '(XML Import Purge 2) before deleting header rejections';
3497: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3498: AP_IMPORT_UTILITIES_PKG.Print(
3499: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3500: END IF;
3501:
3502: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
3503: DELETE FROM ap_interface_rejections r
3504: WHERE r.parent_id = h_list(i)
3505: AND r.parent_table = 'AP_INVOICES_INTERFACE';
3506:
3507: debug_info := '(XML Import Purge 3) before deleting line rejections';
3508: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3509: AP_IMPORT_UTILITIES_PKG.Print(
3510: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3511: END IF;
3512:
3506:
3507: debug_info := '(XML Import Purge 3) before deleting line rejections';
3508: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3509: AP_IMPORT_UTILITIES_PKG.Print(
3510: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3511: END IF;
3512:
3513: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
3514: DELETE FROM ap_interface_rejections r
3517: WHERE l.invoice_id = h_list(i) )
3518: AND r.parent_table = 'AP_INVOICE_LINES_INTERFACE';
3519:
3520: debug_info := '(XML Import Purge 4) before deleting header interface';
3521: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3522: AP_IMPORT_UTILITIES_PKG.Print(
3523: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3524: END IF;
3525:
3519:
3520: debug_info := '(XML Import Purge 4) before deleting header interface';
3521: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3522: AP_IMPORT_UTILITIES_PKG.Print(
3523: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3524: END IF;
3525:
3526: -- Delete from ap_invoice_lines_interface table
3527: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
3528: DELETE FROM ap_invoice_lines_interface l
3529: WHERE l.invoice_id = h_list(i);
3530:
3531: debug_info := '(XML Import Purge 5) before deleting line interface';
3532: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3533: AP_IMPORT_UTILITIES_PKG.Print(
3534: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3535: END IF;
3536:
3530:
3531: debug_info := '(XML Import Purge 5) before deleting line interface';
3532: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3533: AP_IMPORT_UTILITIES_PKG.Print(
3534: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3535: END IF;
3536:
3537: -- Delete from ap_invoices_interface table
3538: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)
3539: DELETE FROM ap_invoices_interface h
3540: WHERE h.invoice_id = h_list(i);
3541:
3542: debug_info := '(XML Import Purge 6) COMMIT';
3543: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3544: AP_IMPORT_UTILITIES_PKG.Print(
3545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3546: END IF;
3547:
3541:
3542: debug_info := '(XML Import Purge 6) COMMIT';
3543: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3544: AP_IMPORT_UTILITIES_PKG.Print(
3545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3546: END IF;
3547:
3548: COMMIT;
3549:
3552: EXCEPTION
3553: WHEN OTHERS THEN
3554:
3555: debug_info := 'Failed after ' || debug_info;
3556: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3557: AP_IMPORT_UTILITIES_PKG.Print(
3558: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3559: END IF;
3560: RETURN(false);
3554:
3555: debug_info := 'Failed after ' || debug_info;
3556: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3557: AP_IMPORT_UTILITIES_PKG.Print(
3558: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3559: END IF;
3560: RETURN(false);
3561:
3562: END xml_import_purge;
3617:
3618: -- Give error message if the interface invoice id is not provided
3619: IF p_invoice_interface_id IS NULL THEN
3620:
3621: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3622: AP_IMPORT_UTILITIES_PKG.Print(
3623: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3624: 'No invoice_id<- '||current_calling_sequence);
3625: END IF;
3619: IF p_invoice_interface_id IS NULL THEN
3620:
3621: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3622: AP_IMPORT_UTILITIES_PKG.Print(
3623: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3624: 'No invoice_id<- '||current_calling_sequence);
3625: END IF;
3626:
3627: FND_MESSAGE.Set_Name('SQLAP', 'AP_IMP_NO_INVOICE_ID');
3637: FROM ap_invoices_interface
3638: WHERE invoice_id = p_invoice_interface_id;
3639:
3640:
3641: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3642: AP_IMPORT_UTILITIES_PKG.Print(
3643: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3644: 'Calling Import_Invoices<- '||current_calling_sequence);
3645: END IF;
3639:
3640:
3641: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3642: AP_IMPORT_UTILITIES_PKG.Print(
3643: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3644: 'Calling Import_Invoices<- '||current_calling_sequence);
3645: END IF;
3646:
3647: -- Calling the import invoices routine to import the payment request
3666: p_invoice_interface_id,
3667: p_needs_invoice_approval,
3668: p_commit) <> TRUE) THEN
3669:
3670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3671: AP_IMPORT_UTILITIES_PKG.Print(
3672: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3673: 'Error during import<- '||current_calling_sequence);
3674: END IF;
3668: p_commit) <> TRUE) THEN
3669:
3670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3671: AP_IMPORT_UTILITIES_PKG.Print(
3672: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3673: 'Error during import<- '||current_calling_sequence);
3674: END IF;
3675:
3676: Raise payment_request_failure;
3680: -- If no invoices are created then get the list of rejections and
3681: -- send rejections to the calling routine
3682: IF l_invoices_created = 0 THEN
3683:
3684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3685: AP_IMPORT_UTILITIES_PKG.Print(
3686: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3687: 'No invoices created<- '||current_calling_sequence);
3688: END IF;
3682: IF l_invoices_created = 0 THEN
3683:
3684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3685: AP_IMPORT_UTILITIES_PKG.Print(
3686: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3687: 'No invoices created<- '||current_calling_sequence);
3688: END IF;
3689:
3690: x_return_status := 'R';
3703:
3704: l_invoice_id := g_invoice_id;
3705: p_invoice_id := g_invoice_id;
3706:
3707: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3708: AP_IMPORT_UTILITIES_PKG.Print(
3709: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3710: 'Calling invoice validation<- '||current_calling_sequence);
3711: END IF;
3705: p_invoice_id := g_invoice_id;
3706:
3707: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3708: AP_IMPORT_UTILITIES_PKG.Print(
3709: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3710: 'Calling invoice validation<- '||current_calling_sequence);
3711: END IF;
3712:
3713:
3735: p_commit);
3736:
3737: x_return_status := 'S';
3738:
3739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3740: AP_IMPORT_UTILITIES_PKG.Print(
3741: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3742: 'Validation complete<- '||current_calling_sequence);
3743: END IF;
3737: x_return_status := 'S';
3738:
3739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3740: AP_IMPORT_UTILITIES_PKG.Print(
3741: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3742: 'Validation complete<- '||current_calling_sequence);
3743: END IF;
3744:
3745: END IF;
3755: x_return_status := 'F';
3756:
3757: WHEN OTHERS THEN
3758: IF (SQLCODE < 0) THEN
3759: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3760: AP_IMPORT_UTILITIES_PKG.Print(
3761: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3762: END IF;
3763: x_msg_data := SQLERRM;
3757: WHEN OTHERS THEN
3758: IF (SQLCODE < 0) THEN
3759: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3760: AP_IMPORT_UTILITIES_PKG.Print(
3761: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3762: END IF;
3763: x_msg_data := SQLERRM;
3764: x_return_status := 'F';
3765: END IF;
3767: END SUBMIT_PAYMENT_REQUEST;
3768:
3769:
3770:
3771: END AP_IMPORT_INVOICES_PKG;