更新物料批次到期日

DECLARE
   l_api_version      NUMBER := 1.0;
   l_init_msg_list    VARCHAR2(100) := fnd_api.g_false; -- bug 7513308;
   l_commit           VARCHAR2(100) := fnd_api.g_false;
   l_validation_level NUMBER := fnd_api.g_valid_level_full;
   l_origin_txn_id    NUMBER := NULL;
   l_source           NUMBER := 2;
   l_return_status    VARCHAR2(1);
   l_msg_data         VARCHAR2(3000);
   l_msg_count        NUMBER;
   l_row_id           ROWID;

   l_count           NUMBER;
   x_mtl_lot_numbers mtl_lot_numbers%ROWTYPE;
   l_mtl_lot_numbers mtl_lot_numbers%ROWTYPE;

   CURSOR cur_mtl IS
      SELECT l.inventory_item_id,
             l.organization_id,
             l.lot_number,
             l.origination_date,
             to_char(l.origination_date, 'YYYY-MM-DD'),
             msib.segment1,
             msib.segment2,
             msib.description,
             ood.organization_code,
             ood.organization_name,