ORA-06533: Subscript beyond count.

Question

Hi ,
I am getting an error ORA-06533: Subscript beyond count.
I read a few post and tried extending the collections as suggested in various post but it doesnt seem to be helping.
Can anyone suggest where i am going wrong. below is my piece of code.
  PROCEDURE validate_records ( p_retcode                 OUT VARCHAR2
                             , p_errbuf                  OUT VARCHAR2
  IS
  g_ret_success                     CONSTANT  VARCHAR2(1)    := '0';
  g_ret_exception                   CONSTANT  VARCHAR2(1)    := '2';
  g_procedure                       VARCHAR2(30)             := g_validate_rec;
  l_batch_name                      ra_batch_sources_all.name%TYPE;
  l_supplier_payee_code             hz_cust_accounts_all.cust_account_id%TYPE;
  l_supplier_code                   hz_cust_accounts_all.cust_account_id%TYPE;
  l_term_name                       ra_terms.name%TYPE;
  l_term                            ra_terms.name%TYPE;
  l_receipt_method                  fnd_lookup_values.meaning%TYPE;
  l_func_seg                        fnd_flex_values_vl.attribute1%TYPE;
  l_tax_inc_flag                    fnd_flex_values_vl.attribute3%TYPE;
  l_set_of_books_id                 gl_ledgers.ledger_id%TYPE;
  l_cust_bill_to_add_ref            hz_cust_acct_sites.orig_system_reference%TYPE;
  l_cust_ship_to_add_ref            hz_cust_acct_sites.orig_system_reference%TYPE;
  l_costcenter                      fnd_flex_values_vl.attribute1%TYPE;
  l_company                         fnd_flex_values_vl.attribute2%TYPE;
  l_account                         fnd_flex_values_vl.attribute1%TYPE;
  l_function                        fnd_flex_values_vl.attribute2%TYPE;
  l_cust_trx_type_name              fnd_flex_values_vl.attribute4%TYPE;
  l_bill_sku                        fnd_flex_values_vl.attribute5%TYPE;
  l_ship_from                       fnd_flex_values_vl.attribute6%TYPE;
  l_inventory_id                    NUMBER;
  l_warehouse_id                    NUMBER;
  l_date                            DATE;
  l_date_term                       DATE;
  l_combination_check               VARCHAR2(10);
  l_location_ship                   VARCHAR2(10);
  l_location_bill                   VARCHAR2(10);
  l_line_type                       VARCHAR2(10);
  l_error_message                   VARCHAR2(4000);
  l_err_stage                       VARCHAR2(4000);
  l_return_status                   VARCHAR2(1);
  l_errbuf                          VARCHAR2(4000);
  l_retcode                         VARCHAR2(10);
  l_cnt                             NUMBER;
  l_update_tax                      VARCHAR2(1);
  l_error_count                     NUMBER;
  ex_dml_errors                     EXCEPTION;
  PRAGMA EXCEPTION_INIT(ex_dml_errors, -24381);
  CURSOR c_get_bill_data
      IS
  SELECT program_type
         , dc
         , CONCAT(supplier_code,'SMF') supplier_code1
         , CONCAT(substr(supplier_payee_code,0,4),'SMF')supplier_payee_code1
         , supplier_code
         , supplier_payee_code
         , line_type
         , payment_type
         , sfm_bill_number
         , due_date
         , ROUND(total_inv_recv_amt,2)  invoice_amount
         , record_status
         , ROWID
    FROM xxom_ar_sfs03_bill_info_stg
   WHERE record_status     = g_new_rec_status
     AND  conc_request_id  = fnd_global.conc_request_id;
  CURSOR c_new_rec_count
      IS
  SELECT COUNT(*)
    FROM xxom_ar_sfs03_bill_info_stg
   WHERE record_status      = g_new_rec_status
     AND conc_request_id    = fnd_global.conc_request_id;
-- to fetch total invoice lines for an invoice
  CURSOR c_get_invoice_no(p_bill in varchar2)
      IS
  SELECT sfm_bill_number
    FROM xxom_ar_sfs03_bill_info_stg
   WHERE sfm_bill_number   = p_bill
     AND conc_request_id   = fnd_global.conc_request_id;
-- to fetch total err lines for an invoice
  CURSOR c_get_err_line
      IS
  SELECT sfm_bill_number
    FROM xxom_ar_sfs03_bill_info_stg
   WHERE record_status    = 'E'
     AND conc_request_id  = fnd_global.conc_request_id;
  CURSOR c_batch_src_exist
      IS
  SELECT name
    FROM ra_batch_sources
   WHERE name                = g_batch_source_name
     AND batch_source_type   = 'FOREIGN'
     AND status              = 'A';
  CURSOR c_set_book_id_exist
      IS
  SELECT gl.ledger_id
    FROM gl_ledgers          gl
       , hr_operating_units  hru
   WHERE gl.ledger_id        = hru.set_of_books_id
     AND hru.organization_id = g_org_id
     AND gl.name             = g_ledger_name;
  CURSOR c_cust_num_exist( p_cust_no   IN hz_cust_accounts.orig_system_reference%TYPE
      IS
  SELECT cust_account_id 
    FROM hz_parties       HP 
       , hz_cust_accounts HCC 
   WHERE HP.party_id               = HCC.party_id 
     AND HP.status                 = 'A'
     AND HCC.status                = 'A'
     AND HCC.orig_system_reference LIKE p_cust_no;
    CURSOR c_cust_payee_exist( p_cust_no   IN hz_cust_accounts.attribute2%TYPE)
      IS
     SELECT cust_account_id 
    FROM hz_parties       HP 
       , hz_cust_accounts HCC 
   WHERE HP.party_id               = HCC.party_id 
     AND HP.status                 = 'A'
     AND HCC.status                = 'A'
     AND HCC.orig_system_reference = p_cust_no;
  CURSOR c_pgm_type_exist(p_pgm_type IN VARCHAR)
      IS
  SELECT FFVV.attribute1
       , FFVV.attribute2
       , FFVV.attribute3
       , FFVV.attribute4
       , FFVV.attribute5
       , FFVV.attribute6
   FROM fnd_flex_value_sets FFVS
      , fnd_flex_values_vl  FFVV
   WHERE flex_value_set_name    = g_pgm_valueset
     AND FFVV.flex_value_set_id = FFVS.flex_value_set_id
     AND FFVV.flex_value        = p_pgm_type
     AND enabled_flag           = 'Y'
     AND TRUNC(SYSDATE) BETWEEN NVL(start_date_active,TRUNC(SYSDATE))
                            AND NVL(end_date_active,TRUNC(SYSDATE));
  CURSOR c_validate_dc(p_dc IN fnd_flex_values_vl.flex_value%TYPE)
      IS 
  SELECT FFVV.attribute1
       , FFVV.attribute2
    FROM fnd_flex_value_sets FFVS
       , fnd_flex_values_vl  FFVV
   WHERE flex_value_set_name    = 'OM_LEGACY_DC'
     AND FFVV.flex_value_set_id = FFVS.flex_value_set_id
     AND FFVV.flex_value        = p_dc
     AND enabled_flag           = 'Y';
  CURSOR c_get_location( p_cust_id   IN hz_cust_accounts.cust_account_id%TYPE
                       , p_location_use  IN  VARCHAR2
      IS
  SELECT  HCAS.orig_system_reference
    FROM  hz_cust_acct_sites  HCAS
       ,  hz_cust_site_uses   HCSU
   WHERE  cust_account_id        = p_cust_id
     AND  HCAS.cust_acct_site_id = HCSU.cust_acct_site_id
     AND  HCAS.status            = 'A'
     AND  primary_flag           = 'Y'
     AND  HCSU.site_use_code     = p_location_use;
  CURSOR c_validate_line_type(p_line_type IN VARCHAR2)
      IS
  SELECT flv.lookup_code
    FROM fnd_lookup_values flv
   WHERE flv.lookup_type   = g_line_typ_lookup
     AND flv.lookup_code   = p_line_type
     AND flv.enabled_flag  = 'Y'
     AND TRUNC(SYSDATE) BETWEEN NVL(flv.start_date_active,TRUNC(SYSDATE))
                            AND NVL(flv.end_date_active,TRUNC(SYSDATE));
  CURSOR c_validate_receipt_type(p_receipt_method IN  VARCHAR2)
      IS
  SELECT flv.meaning
    FROM fnd_lookup_values flv
   WHERE flv.lookup_type   = g_receipt_lookup
     AND flv.lookup_code   = p_receipt_method
     AND flv.enabled_flag  = 'Y'
     AND TRUNC(SYSDATE) BETWEEN NVL(flv.start_date_active,TRUNC(SYSDATE))
                            AND NVL(flv.end_date_active,TRUNC(SYSDATE));
  CURSOR c_validate_term_name (p_term_name IN ra_terms.name%TYPE)
      IS
  SELECT name
    FROM ra_terms
   WHERE name = p_term_name
     AND TRUNC(SYSDATE) BETWEEN NVL(start_date_active,TRUNC(SYSDATE))
                            AND TRUNC(SYSDATE);
  CURSOR c_check_combination( p_attribute IN ra_customer_trx_all.attribute1%TYPE
      IS
  SELECT 1
    FROM ra_customer_trx_all
   WHERE attribute1         = p_attribute
     AND attribute_category = 'SFM';
  CURSOR c_get_inventory_item_id (p_org_code IN VARCHAR2
                                 ,p_item_description IN VARCHAR2)
    IS
  SELECT msi.inventory_item_id
       , msi.organization_id warehouse_id
    FROM mtl_system_items_b msi
       , hr_all_organization_units haou
       , org_organization_definitions ood
   WHERE  haou.organization_id  = msi.organization_id
     AND haou.organization_id   = ood.organization_id
     AND ood.disable_date IS NULL
     AND msi.enabled_flag       = 'Y'
     AND ood.organization_code  = p_org_code
     AND segment1               = p_item_description
     AND TRUNC(SYSDATE) BETWEEN NVL(msi.start_date_active,TRUNC(SYSDATE))
                            AND NVL(msi.end_date_active,TRUNC(SYSDATE));
  TYPE type_bill_dtl_update_tbl IS RECORD
    ledger_id                 gl_ledgers.ledger_id%TYPE                      
  , cust_ship_to_add_ref      hz_cust_acct_sites_all.orig_system_reference%TYPE
  , pay_term_name             ra_terms.name%TYPE
  , receipt_method            fnd_lookup_values.meaning%TYPE
  , cust_bill_to_add_ref      hz_cust_acct_sites_all.orig_system_reference%TYPE
  , company_seg               gl_code_combinations.segment1%TYPE
  , costcenter_seg            gl_code_combinations.segment2%TYPE
  , function_seg              gl_code_combinations.segment3%TYPE
  , account_seg               gl_code_combinations.segment4%TYPE
  , cust_trx_type             fnd_flex_values_vl.attribute4%TYPE
  , inventory_item_id         fnd_flex_values_vl.attribute5%TYPE
  , warehouse_id              fnd_flex_values_vl.attribute6%TYPE
  , tax_flag                  VARCHAR2(1)
  , invoice_amount            NUMBER
  , record_status             VARCHAR2(1)
  , error_message             VARCHAR2(1000)
  , row_id                    ROWID
  TYPE t_get_bill_data IS TABLE OF c_get_bill_data%ROWTYPE;
  l_get_bill_data t_get_bill_data:= t_get_bill_data() ;
  TYPE t_bill_dtl_update_tbl IS TABLE OF type_bill_dtl_update_tbl;-- INDEX BY BINARY_INTEGER;
  l_bill_dtl_update_rec t_bill_dtl_update_tbl:= t_bill_dtl_update_tbl() ;
  TYPE t_bill_no  IS TABLE OF c_get_invoice_no%ROWTYPE;
  l_bill_no t_bill_no;
  TYPE t_bill_err_lines  IS TABLE OF c_get_err_line%ROWTYPE;
  l_bill_err_lines t_bill_err_lines;
  BEGIN
  p_retcode                := g_ret_success;
  p_errbuf                 := NULL;
  g_procedure              := g_validate_rec;
  l_set_of_books_id        := NULL;
  l_cnt                    := 1;
  OPEN c_new_rec_count;
  FETCH c_new_rec_count INTO g_new_rec_count;
  CLOSE c_new_rec_count;
  OPEN c_get_bill_data;
  FETCH c_get_bill_data BULK COLLECT INTO l_get_bill_data;
  CLOSE c_get_bill_data;
  FOR i IN 1..l_get_bill_data.COUNT LOOP
   FND_FILE.PUT_LINE (FND_FILE.LOG,'count'||i);
  l_get_bill_data.EXTEND;
  l_return_status          := NULL;
  l_batch_name             := NULL;
  l_supplier_code          := NULL;
  l_supplier_payee_code    := NULL;
  l_cust_bill_to_add_ref   := NULL;
  l_cust_ship_to_add_ref   := NULL;
  l_line_type              := NULL;
  l_combination_check      := NULL;
  l_term_name              := NULL;
  l_receipt_method         := NULL;
  l_tax_inc_flag           := NULL;
  l_update_tax             := NULL;
  l_date_term              := NULL;
  l_date                   := NULL;
  l_term                   := NULL;
  l_cust_trx_type_name     := NULL;
  l_bill_sku               := NULL;
  l_ship_from              := NULL;
  l_inventory_id           := NULL;
  l_warehouse_id           := NULL;
  l_location_ship          := 'SHIP_TO';
  l_location_bill          := 'BILL_TO';
  l_err_stage              := NULL;
  l_error_message          := NULL;
  l_costcenter             := NULL;
  l_company                := NULL;
  l_account                := NULL; 
  l_function               := NULL;
  -- Validation for set_of_books and org_id
  l_err_stage := 'Validation for Set_of_books_id and org_id .' ;
  IF (g_ledger_name IS NOT NULL) AND (g_org_id IS NOT NULL) THEN
    OPEN c_set_book_id_exist;
    FETCH c_set_book_id_exist into l_set_of_books_id;
    CLOSE c_set_book_id_exist;
    IF l_set_of_books_id IS NULL THEN
      p_errbuf        := 'Please check the setup for set_of_books name'||g_ledger_name;
      p_retcode       := g_ret_exception;
      xxom_int_common.post_record_msg( p_message  => 'Please check the setup for set_of_books name :'||g_ledger_name
                                     , p_severity => xxom_int_common.c_level_error
    END IF;--set of books
  ELSE
    p_errbuf        := 'Please check the setup for set_of_books name'||g_ledger_name||'and org_id '||g_org_id||'cannot be null';
    p_retcode       := g_ret_exception;
    xxom_int_common.post_record_msg( p_message  => 'Please check the setup for set_of_books name'||g_ledger_name||'and org_id '||g_org_id||'cannot be null'
                                   , p_severity => xxom_int_common.c_level_error
  END IF;--Validation for set_of_books and org_id
  --Validation for batch name
  l_err_stage := 'Validation for batch name.' ;
  IF g_batch_source_name IS NOT NULL THEN
    OPEN c_batch_src_exist;
    FETCH c_batch_src_exist INTO l_batch_name ;
    CLOSE c_batch_src_exist;
    IF l_batch_name IS NULL THEN
      p_errbuf        := 'Please check the setup for batch_source_name'||g_batch_source_name;
      p_retcode       := g_ret_exception;
      xxom_int_common.post_record_msg( p_message  => 'Please check the setup for batch_source_name'||g_batch_source_name
                                     , p_severity => xxom_int_common.c_level_error
    END IF;
  END IF ;--l_get_bill_data(i).batch_source_name IS NOT NULL
  --Validation for supplier code
  l_err_stage := 'Validation for Supplier Code.';
  IF l_get_bill_data(i).supplier_code IS NOT NULL THEN
    OPEN c_cust_num_exist( p_cust_no => l_get_bill_data(i).supplier_code1
    FETCH c_cust_num_exist INTO l_supplier_code;
    CLOSE c_cust_num_exist;
    IF l_supplier_code IS NULL THEN
      l_error_message := l_error_message||'Supplier Code ('||l_get_bill_data(i).supplier_code||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'Supplier Code is not valid : '||l_get_bill_data(i).supplier_code||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    ELSE
      OPEN c_get_location( p_cust_id      => l_supplier_code
                         , p_location_use => l_location_ship);
      FETCH c_get_location INTO l_cust_ship_to_add_ref;
      CLOSE c_get_location;
      IF l_cust_ship_to_add_ref IS NULL THEN
        l_error_message := l_error_message||'Customer ship to location is null.';
        xxom_int_common.post_record_msg( p_message  => 'Customer ship to location is null. '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                       , p_severity => xxom_int_common.c_level_warning
      END IF;
    END IF ;
  END IF;-- l_get_bill_data(i).supplier_code IS NOT NULL
  --Validation for Supplier payee code
  l_err_stage := 'Validation for Supplier payee code.';
  IF l_get_bill_data(i).supplier_payee_code IS NOT NULL THEN
    OPEN c_cust_payee_exist ( p_cust_no => l_get_bill_data(i).supplier_payee_code1);
    FETCH c_cust_payee_exist INTO l_supplier_payee_code;
    CLOSE c_cust_payee_exist;
    IF l_supplier_payee_code IS NULL THEN
      l_error_message := l_error_message||'Supplier Payee Code ('||l_get_bill_data(i).supplier_payee_code||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'Supplier Payee Code is not valid: '||l_get_bill_data(i).supplier_payee_code||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    ELSE
      OPEN c_get_location( p_cust_id      => l_supplier_payee_code
                         , p_location_use => l_location_bill);
      FETCH c_get_location INTO l_cust_bill_to_add_ref;
      CLOSE c_get_location;
      IF l_cust_bill_to_add_ref IS NULL THEN
        l_error_message := l_error_message||'Customer bill to location is null.';
        xxom_int_common.post_record_msg( p_message  => 'Customer bill to location is null. '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                       , p_severity => xxom_int_common.c_level_warning
      END IF;
    END IF;
  ELSE
    l_error_message := l_error_message ||' Supplier Payee code is null';
    xxom_int_common.post_record_msg( p_message  => 'Supplier Payee code is null. '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF ;--supplier_payee_code IS NOT NULL
  --Validation for DC
  l_err_stage := 'Validation for DC.';
  IF l_get_bill_data(i).dc IS NOT NULL THEN
    OPEN c_validate_dc(p_dc => l_get_bill_data(i).dc);
    FETCH c_validate_dc INTO l_costcenter
                           , l_company;
    CLOSE c_validate_dc;
    IF l_costcenter IS NULL THEN
      l_error_message := l_error_message||'DC ('||l_get_bill_data(i).dc||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'DC is not valid : '||l_get_bill_data(i).dc||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    END IF;
  ELSE
    l_error_message := l_error_message||'DC is null';
    xxom_int_common.post_record_msg( p_message  => 'DC is null. '||l_get_bill_data(i).dc||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF;
  --Validation for program type
  l_err_stage := 'Validation for program type.';
  IF l_get_bill_data(i).program_type IS NOT NULL THEN
    OPEN c_pgm_type_exist(p_pgm_type => l_get_bill_data(i).program_type);
    FETCH c_pgm_type_exist INTO l_account
                              , l_function
                              , l_tax_inc_flag
                              , l_cust_trx_type_name
                              , l_bill_sku
                              , l_ship_from;
    CLOSE c_pgm_type_exist;
  --to fetch warehouse_id and inventory_id
    OPEN c_get_inventory_item_id(p_org_code => l_ship_from
                                ,p_item_description =>l_bill_sku  );                       
    FETCH c_get_inventory_item_id INTO l_inventory_id
                                      ,l_warehouse_id; 
    CLOSE c_get_inventory_item_id;
    IF l_tax_inc_flag IS NULL THEN
      l_error_message := l_error_message||'Program type ('||l_get_bill_data(i).program_type||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'Program type is not valid : '||l_get_bill_data(i).program_type||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    ELSIF l_tax_inc_flag ='No' THEN
      l_update_tax   := 'N';
    ELSE
      l_update_tax   := 'Y';
    END IF;
  ELSE
    l_error_message := l_error_message||'Program type is null';
    xxom_int_common.post_record_msg( p_message  => 'Program type is null. '||l_get_bill_data(i).program_type||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF; --IF l_get_bill_data.program_type IS NOT NULL
  --Validation for Line type
  l_err_stage := 'Validation for Line type.'; 
  IF l_get_bill_data(i).line_type IS NOT NULL THEN
    OPEN c_validate_line_type(p_line_type => l_get_bill_data(i).line_type);
    FETCH c_validate_line_type INTO l_line_type;
    CLOSE c_validate_line_type;
    IF l_line_type IS NULL THEN
      l_error_message := l_error_message||'Line type ('||l_get_bill_data(i).line_type||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'Line type is not valid : '||l_get_bill_data(i).line_type||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    END IF;
  ELSE
    l_error_message := l_error_message ||' Line type is null';
    xxom_int_common.post_record_msg( p_message  => 'Line type is null '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF;--l_get_bill_data(i).line_type IS NOT NULL
  --Validation for Payment Type
  l_err_stage := 'Validation for Payment Type.';
  IF l_get_bill_data(i).payment_type IS NOT NULL AND l_get_bill_data(i).payment_type IN ('D') THEN
  debug_print('Receipt'||i||l_get_bill_data(i).payment_type);
    OPEN c_validate_receipt_type(p_receipt_method => l_get_bill_data(i).payment_type);
    FETCH c_validate_receipt_type INTO l_receipt_method;
    CLOSE c_validate_receipt_type;
    IF l_receipt_method IS NULL THEN
      l_error_message := l_error_message||'Payment type ('||l_get_bill_data(i).payment_type||' ) is not valid.';
      xxom_int_common.post_record_msg( p_message  => 'Payment type is not valid : '||l_get_bill_data(i).payment_type||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                     , p_severity => xxom_int_common.c_level_warning
    END IF ;
  END IF;--l_get_bill_data(i).payment_type NOT NULL
  --Validation for term name
  IF l_get_bill_data(i).due_date IS NOT NULL THEN
    IF l_get_bill_data(i).due_date <= 0 THEN
      l_term_name:='IMMEDIATE';
    ELSIF l_get_bill_data(i).due_date BETWEEN 1 AND 30 THEN
      l_term_name:='NET30';
    ELSIF l_get_bill_data(i).due_date BETWEEN 31 AND 60 THEN
      l_term_name:='NET60';
    ELSIF l_get_bill_data(i).due_date BETWEEN 61 AND 90 THEN
      l_term_name:='NET90';
    ELSIF l_get_bill_data(i).due_date BETWEEN 91 AND 120 THEN
      l_term_name:='NET120';
    ELSIF l_get_bill_data(i).due_date BETWEEN 121 AND 150 THEN
      l_term_name:='NET150';
    ELSIF l_get_bill_data(i).due_date BETWEEN 151 AND 180 THEN
      l_term_name:='NET180';
    ELSIF l_get_bill_data(i).due_date BETWEEN 181 AND 210 THEN
      l_term_name:='NET210';
    ELSIF l_get_bill_data(i).due_date BETWEEN 211 AND 240 THEN
      l_term_name:='NET240';
    ELSE
      l_term_name:='NET365';
    END IF;  
    IF l_term_name IS NOT NULL THEN
      OPEN c_validate_term_name(p_term_name =>l_term_name);
      FETCH c_validate_term_name INTO l_term;
      CLOSE c_validate_term_name;
      IF l_term IS NULL THEN
        l_error_message := l_error_message ||'The term name is not a valid term';
        xxom_int_common.post_record_msg( p_message  => 'The term name is not a valid term '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                       , p_severity => xxom_int_common.c_level_warning
      END IF;
    END IF;--l_term_name IS NOT NULL THEN 
  ELSE
    l_error_message := l_error_message ||'The data provided for term name is null';
    xxom_int_common.post_record_msg( p_message  => 'The data provided for term name is null '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF; --l_get_bill_data(i).due_date IS NOT NULL */
  --Validation for unique interface_line_context and interface_line_attribute1 combination AND Amount
IF l_get_bill_data(i).invoice_amount IS NOT NULL THEN
    OPEN c_check_combination( p_attribute=> l_get_bill_data(i).sfm_bill_number
    FETCH c_check_combination INTO l_combination_check;
    CLOSE c_check_combination;
    IF l_combination_check IS NOT NULL THEN
      l_error_message := l_error_message||'The interface_line_context and interface_header_attribute1 combination ('||l_get_bill_data(i).sfm_bill_number||' and '|| ' SFM' ||' ) already exist .Please provide different combination';
      xxom_int_common.post_record_msg( p_message  => 'The interface_line_context and interface_header_attribute1 combination already exist .Please provide different combination ' ||l_get_bill_data(i).sfm_bill_number ||' and '||'SFM'
                                     , p_severity => xxom_int_common.c_level_warning
    END IF;
  ELSE
    l_error_message := l_error_message||'Amount cannot be null';
    xxom_int_common.post_record_msg( p_message  => 'Amount cannot be null '||' (Sfm Bill Number : '||l_get_bill_data(i).sfm_bill_number||')'
                                   , p_severity => xxom_int_common.c_level_warning
  END IF; --l_get_bill_data(i).total_inv_recv_amt IS NOT NULL 
  /* end of validation*/
  l_bill_dtl_update_rec.EXTEND;
  l_bill_dtl_update_rec(l_cnt).ledger_id              := l_set_of_books_id;
  l_bill_dtl_update_rec(l_cnt).cust_ship_to_add_ref   := l_cust_ship_to_add_ref;
  l_bill_dtl_update_rec(l_cnt).cust_bill_to_add_ref   := l_cust_bill_to_add_ref;
  l_bill_dtl_update_rec(l_cnt).receipt_method         := l_receipt_method;
  l_bill_dtl_update_rec(l_cnt).company_seg            := l_company;
  l_bill_dtl_update_rec(l_cnt).account_seg            := l_account;
  l_bill_dtl_update_rec(l_cnt).costcenter_seg         := l_costcenter;
  l_bill_dtl_update_rec(l_cnt).function_seg           := l_function;
  l_bill_dtl_update_rec(l_cnt).tax_flag               := l_update_tax;
  l_bill_dtl_update_rec(l_cnt).pay_term_name          := l_term;       
  l_bill_dtl_update_rec(l_cnt).cust_trx_type          := l_cust_trx_type_name;
  l_bill_dtl_update_rec(l_cnt).inventory_item_id      := l_inventory_id;
  l_bill_dtl_update_rec(l_cnt).warehouse_id           := l_warehouse_id;
  l_bill_dtl_update_rec(l_cnt).invoice_amount         := l_get_bill_data(i).invoice_amount;
  l_bill_dtl_update_rec(l_cnt).row_id                 := l_get_bill_data(i).rowid;
  IF l_error_message IS NULL THEN
    l_bill_dtl_update_rec(l_cnt).record_status           := g_valid_status;
    l_bill_dtl_update_rec(l_cnt).error_message           := NULL;
  ELSE
    l_bill_dtl_update_rec(l_cnt).record_status           := g_err_status;
    l_bill_dtl_update_rec(l_cnt).error_message           := l_error_message;
  END IF;
  l_cnt := l_cnt + 1;
  END LOOP;
  FORALL i in 1..l_bill_dtl_update_rec.COUNT SAVE EXCEPTIONS
  UPDATE xxom_ar_sfs03_bill_info_stg
     SET cust_bill_to_add_ref      = l_bill_dtl_update_rec(i).cust_bill_to_add_ref
       , cust_ship_to_add_ref      = l_bill_dtl_update_rec(i).cust_ship_to_add_ref
       , term_name                 = l_bill_dtl_update_rec(i).pay_term_name
       , receipt_method            = l_bill_dtl_update_rec(i).receipt_method
       , set_of_books_id           = l_bill_dtl_update_rec(i).ledger_id
       , company_seg               = l_bill_dtl_update_rec(i).company_seg
       , account_seg               = l_bill_dtl_update_rec(i).account_seg
       , costcenter_seg            = l_bill_dtl_update_rec(i).costcenter_seg
       , function_seg              = l_bill_dtl_update_rec(i).function_seg
       , cust_trx_type             = l_bill_dtl_update_rec(i).cust_trx_type  
       , inventory_item_id         = l_bill_dtl_update_rec(i).inventory_item_id
       , warehouse_id              = l_bill_dtl_update_rec(i).warehouse_id
       , tax_flag                  = l_bill_dtl_update_rec(i).tax_flag
       , total_inv_recv_amt        = l_bill_dtl_update_rec(i).invoice_amount
       , record_status             = l_bill_dtl_update_rec(i).record_status
       , error_message             = l_bill_dtl_update_rec(i).error_message
       , conc_request_id           = fnd_global.conc_request_id
       , last_update_date          = SYSDATE
       , last_updated_by           = FND_GLOBAL.USER_ID
   WHERE ROWID = l_bill_dtl_update_rec(i).row_id;
  COMMIT;
  -- Submitting the invoice_error procedure at end of validate procedure.
  debug_print('Submitting the invoice_error procedure at end of validate_records procedure. ');
  --reject all line of an invoice with a single error line
  OPEN c_get_err_line;
  FETCH c_get_err_line BULK COLLECT INTO  l_bill_err_lines;
  CLOSE c_get_err_line;
  FOR i IN 1..l_bill_err_lines.COUNT LOOP
OPEN c_get_invoice_no(p_bill =>l_bill_err_lines(i).sfm_bill_number );
FETCH c_get_invoice_no BULK COLLECT INTO  l_bill_no;
CLOSE c_get_invoice_no;
  FOR j IN 1..l_bill_no.COUNT LOOP
  UPDATE xxom_ar_sfs03_bill_info_stg
     SET error_message    = NULL
       , record_status    ='E'
       , last_update_date = SYSDATE
   WHERE record_status    = 'V'
     AND sfm_bill_number = l_bill_no(i).sfm_bill_number;
  COMMIT;
END LOOP;
END LOOP;
  EXCEPTION
    WHEN ex_dml_errors THEN
    l_error_count := SQL%BULK_EXCEPTIONS.count;
    FOR i IN 1 .. l_error_count LOOP
     l_error_message := l_error_message||SQLERRM(-SQL%BULK_EXCEPTIONS(i).ERROR_CODE);
    END LOOP;--OR i IN 1 .. l_error_count LOOP
    WHEN OTHERS THEN
      IF c_get_bill_data%ISOPEN THEN
        CLOSE c_get_bill_data;
      END IF;
    IF c_batch_src_exist%ISOPEN THEN
      CLOSE c_batch_src_exist;
    END IF;
    IF c_set_book_id_exist%ISOPEN THEN
     CLOSE c_set_book_id_exist;
    END IF;
    IF c_get_location%ISOPEN THEN
      CLOSE c_get_location;
    END IF;
    IF c_validate_line_type%ISOPEN THEN
     CLOSE c_validate_line_type;
    END IF;
    IF c_validate_receipt_type%ISOPEN THEN
     CLOSE c_validate_receipt_type;
    END IF;
    IF c_check_combination%ISOPEN THEN
     CLOSE c_check_combination;
    END IF;
    IF c_validate_receipt_type%ISOPEN THEN
     CLOSE c_validate_receipt_type;
    END IF;
    IF c_pgm_type_exist%ISOPEN THEN
     CLOSE c_pgm_type_exist;
    END IF;
    IF c_validate_term_name%ISOPEN THEN
     CLOSE c_validate_term_name;
    END IF;
    IF c_new_rec_count%ISOPEN THEN
     CLOSE c_new_rec_count;
    END IF;
    IF c_cust_payee_exist%ISOPEN THEN
     CLOSE c_cust_payee_exist;
    END IF;
    IF c_get_invoice_no%ISOPEN THEN
     CLOSE c_get_invoice_no;
    END IF;
    IF c_get_err_line%ISOPEN THEN
      CLOSE c_get_err_line;
    END IF;
  p_retcode := g_ret_exception;
  p_errbuf  := 'The Error at XXOM_SFS_03_BILL_INFO_PKG.validate_records ' || l_err_stage|| '-'|| SUBSTR ( SQLERRM ,1,240 );
  END validate_records;
Thanks in advance.

Answer 1

Another version
SET SERVEROUTPUT ON
DECLARE
   TYPE empno_nt IS TABLE OF VARCHAR2 (40);
   l_empno_nt   empno_nt;
BEGIN
   l_empno_nt := empno_nt ('Suri');
   dbms_output.put_line(l_empno_nt(1));
END;
Enhanced version:
DECLARE
   TYPE empno_nt IS TABLE OF VARCHAR2 (40);
   l_empno_nt   empno_nt;
BEGIN
   l_empno_nt := empno_nt ('Suri', 'Test','Ranit');
   FOR rec IN l_empno_nt.FIRST .. l_empno_nt.LAST
   LOOP
      DBMS_OUTPUT.put_line (l_empno_nt (rec));
   END LOOP;
END;
Simplified version :
select * from table( sys.odcivarchar2list('Suri','Test','Ranit') ) ;
Cheers,
Manik.
Message was edited by: Manik