Apps 11i - Import Items - Unable to Send Email

Question

Hello Experts,
Oracle Apps Version - 11i
SQL> select banner from V$version;
BANNER
Oracle8i Enterprise Edition Release 8.1.7.4.0 - Production
PL/SQL Release 8.1.7.4.0 - Production
CORE 8.1.7.0.0 Production
TNS for IBM/AIX RISC System/6000: Version 8.1.7.4.0 - Production
NLSRTL Version 3.4.1.0.0 - Production
I am calling the program(Query-1) for Import Items(i.e from Interface tables to Main Tables).
After this, i am using the (Query-2) logic to send e-mail to user.
But the email is not getting triggered after "Import Items " been run.
When i comment the Import Items code; e-mail has been send across.
Please help...
Query - 1
-- Start of Item Import
    BEGIN
        --Getting Responsbility and Application Id
        BEGIN
            SELECT    responsibility_id, application_id
              INTO    v_responsibility_id_1, v_application_id_1
              FROM    fnd_responsibility_tl
             WHERE    responsibility_name = v_responsibility_name_1
                  AND language = userenv ('LANG');
        ----Getting User Id
        BEGIN
            SELECT    user_id
              INTO    v_user_id_1
              FROM    fnd_user
             WHERE    user_name = v_user_name_1;
        END;
        IF v_flag_1 = 0
        THEN
            fnd_global.apps_initialize (v_user_id_1, v_responsibility_id_1,
            v_application_id_1);
        END IF;
    END;       
    --End of Initialzing the Apps
    -- Submitting the Import Items Request
    l_request_id_1 :=  
            FND_REQUEST.SUBMIT_REQUEST (application => 'INV',
                                        program => 'INCOIN',
                                    description =>  NULL,
                                     start_time =>  SYSDATE,
                                    sub_request =>  FALSE,
                                      argument1 =>  1,
                                      argument2 =>  1,
                                      argument3 =>  1,
                                      argument4 =>  1,
                                      argument5 =>  1,
                                      argument6 =>  111,     -- Group ID passed in Interface table
                                      argument7 =>  1        -- 1 - Create 2- Update
    COMMIT;
    -- Wait for request to run the import Program to Finish
    v_finished_1 :=
        FND_CONCURRENT.WAIT_FOR_REQUEST (
                                     request_id     => l_request_id_1,
                                     interval     => 60,
                                     max_wait     => 0,
                                     phase     => v_phase_1,
                                     status      => v_status_1,
                                     dev_phase     => v_request_phase_1,
                                     dev_status    => v_request_status_1,
                                     message     => v_message_1);
END;
Query - 2
BEGIN
-- Interface table for Items
SELECT    COUNT ( * )
FROM      mtl_system_items_interface
WHERE     set_process_id = 111
-- Interface table for Categories
SELECT    COUNT ( * )
FROM      mtl_item_categories_interface
WHERE     set_process_id = 111
If Above returns value then                            
        -- Send Mail to the Customer fr all error items in interface tables
End if;
END;
                            

Answer 1

Sandeep there is exception part added in the code.
Since the code look so vast, i have removed the exception and copied in the Message.
Moreover the Import Items Status is "Completed", whereas there are some errors in the "Items"
Here is the exact query...
BEGIN
                                    --Initialzing the Apps
                                    BEGIN
                                        --Getting Responsbility and Application Id
                                        BEGIN
                                            SELECT    responsibility_id, application_id
                                              INTO    v_responsibility_id_1, v_application_id_1
                                              FROM    fnd_responsibility_tl
                                             WHERE    responsibility_name = v_responsibility_name_1
                                                  AND language = userenv ('LANG');
                                        EXCEPTION
                                            WHEN OTHERS
                                            THEN
                                                apps.fnd_file.put_line (apps.fnd_file.LOG,
                                                'Error in getting Responsibility information and error is '
                                                || SUBSTR (SQLERRM, 1, 200));
                                                v_flag_1 := 1;
                                        END;
                                        ----Getting User Id
                                        BEGIN
                                            SELECT    user_id
                                              INTO    v_user_id_1
                                              FROM    fnd_user
                                             WHERE    user_name = v_user_name_1;
                                        EXCEPTION
                                            WHEN OTHERS
                                            THEN
                                                apps.fnd_file.put_line (apps.fnd_file.LOG,
                                                'Error in getting User information and error is '
                                                || SUBSTR (SQLERRM, 1, 200));
                                                v_flag_1 := 1;
                                        END;
                                        IF v_flag_1 = 0
                                        THEN
                                            fnd_global.apps_initialize (v_user_id_1, v_responsibility_id_1,
                                            v_application_id_1);
                                        END IF;
                                    EXCEPTION
                                        WHEN OTHERS
                                        THEN
                                            apps.fnd_file.put_line (apps.fnd_file.LOG,
                                            'Error in procedure apps initialize and error is '
                                            || SUBSTR (SQLERRM, 1, 200));
                                    END;       
                                    --End of Initialzing the Apps
                                    -- Submitting the Import Items Request
                                    l_request_id_1 :=   FND_REQUEST.SUBMIT_REQUEST (application => 'INV',
                                                                                        program => 'INCOIN',
                                                                                    description =>  NULL,
                                                                                     start_time =>  SYSDATE,
                                                                                    sub_request =>  FALSE,
                                                                                      argument1 =>  1,
                                                                                      argument2 =>  1,
                                                                                      argument3 =>  1,
                                                                                      argument4 =>  1,
                                                                                      argument5 =>  1,
                                                                                      argument6 =>  111,     -- Group ID passed in Interface table
                                                                                      argument7 =>  1        -- 1 - Create 2- Update
                                    COMMIT;
                                    IF (l_request_id_1 = 0)
                                    THEN
                                        apps.fnd_file.put_line (apps.fnd_file.LOG,'Submission of Import failed ');
                                    END IF;
                                    -- Wait for request to run the import Program to Finish
                                    v_finished_1 := FND_CONCURRENT.WAIT_FOR_REQUEST (
                                                                                     request_id     => l_request_id_1,
                                                                                       interval     => 60,
                                                                                       max_wait     => 0,
                                                                                          phase     => v_phase_1,
                                                                                        status      => v_status_1,
                                                                                      dev_phase     => v_request_phase_1,
                                                                                      dev_status    => v_request_status_1,
                                                                                        message     => v_message_1);
                                    apps.fnd_file.put_line (apps.fnd_file.LOG,  'Phase -->'   || v_phase_1);
                                    apps.fnd_file.put_line (apps.fnd_file.LOG,  'Status -->'  || v_status_1);
                                    apps.fnd_file.put_line (apps.fnd_file.LOG,  'Message -->' || v_message_1);
                                    apps.fnd_file.put_line (apps.fnd_file.LOG,  'Request Phase --> ' || v_request_phase_1);
                                    apps.fnd_file.put_line (apps.fnd_file.LOG,  'Request Status --> ' || v_request_status_1);
                                EXCEPTION
                                    WHEN OTHERS
                                    THEN
                                        apps.fnd_file.put_line (apps.fnd_file.LOG,
                                        'Submission of Import failed ');
                                END;