CREATE OR REPLACE PROCEDURE APPS.cc_complete_batch (
   err_mesg   OUT   VARCHAR,
   err_code   OUT   NUMBER
   
)
-- request Create Cost Adjustment From AP Invoice
AS
   l_status           VARCHAR2 (10);
   l_return_status    VARCHAR2 (1):= fnd_api.g_ret_sts_success;
   l_count            NUMBER ;
   l_record_count     NUMBER (10)                                        := 0;
   l_loop_cnt         NUMBER (10)                                        := 0;
   l_dummy_cnt        NUMBER (10)                                        := 0;
   l_data             VARCHAR2 (2000);
   l_msg_index_out    NUMBER;
   
   l_in_batch_header_rec  gme_batch_header%ROWTYPE; 
   l_batch_header_rec     gme_batch_header%ROWTYPE; 
   l_exception_material_tbl   gme_common_pvt.exceptions_tab;
   
   x number;

   
   
BEGIN

    fnd_global.apps_initialize (user_id           => 1282,
                               resp_id           => 51110,
                               resp_appl_id      => 553
                              );
                              
    l_in_batch_header_rec.batch_type := 0;
    l_in_batch_header_rec.batch_id := '103237'; --batch_id
    l_in_batch_header_rec.update_inventory_ind := 'Y';
    l_in_batch_header_rec.actual_start_date := SYSDATE;                              
                             
                              
                              
      --l_in_batch_header_rec.batch_id:=84039;
      --l_in_batch_header_rec.ACTUAL_START_DATE:='19-NOV-2011';   

       gme_api_pub.complete_batch  (    p_api_version           => 2.0
                             ,p_validation_level      =>  gme_common_pvt.g_max_errors 
                             ,p_init_msg_list         => fnd_api.g_false 
                             ,p_commit                => fnd_api.g_false 
                             ,x_message_count         => l_count
                             ,x_message_list          => l_data
                             ,x_return_status         => l_status
                             ,p_batch_header_rec      => l_in_batch_header_rec 
                             ,p_org_code              => 'FC1' 
                             ,p_ignore_exception      => fnd_api.g_false
                             ,p_validate_flexfields   => fnd_api.g_false
                             ,x_batch_header_rec      => l_batch_header_rec 
                             ,x_exception_material_tb => l_exception_material_tbl
                           );
        
        commit;       
      
       DBMS_OUTPUT.put_line ('status: ' || l_status || ' msg Count ' || l_count);
       FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'status: ' || l_status || ' msg Count ' || l_count);
       

       IF l_status = 'S'
       THEN
          COMMIT;
    -- DBMS_OUTPUT.put_line ('success!!');
    --delete get_ins_test_tmp;delete adj_api_tmp;

    --update get_ins_test_tmp set st=1;
    --where ; commit;
       ELSE
          IF l_count = 1
          THEN
             DBMS_OUTPUT.put_line ('Error:' || l_data);
             FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error:' || l_data);
       
          ELSE
             DBMS_OUTPUT.put_line (   'status: '
                                   || l_status
                                   || ' Error Count '
                                   || l_count
                                  );
                                  
             FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'status: '
                                   || l_status
                                   || ' Error Count '
                                   || l_count
                                  );                     

             FOR i IN 1 .. 5
             LOOP
                fnd_msg_pub.get (p_msg_index          => i,
                                 p_data               => l_data,
                                 p_encoded            => fnd_api.g_false,
                                 p_msg_index_out      => l_msg_index_out
                                );
                DBMS_OUTPUT.put_line ('Error: ' || SUBSTR (l_data, 1, 255));
                
                FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Error: ' || SUBSTR (l_data, 1, 255));
             END LOOP;
          END IF;
       END IF;
       
       exception when others then null;
       end ;
/