Ship-Confirm API

CREATE OR REPLACE PROCEDURE ship_confirm (p_delivery_id     IN     NUMBER,
                                          p_shipment_date   IN     DATE,
                                          x_return_status      OUT VARCHAR2,
                                          x_error_message      OUT VARCHAR2)
IS
   v_api_version_number        NUMBER := 1;
   v_init_msg_list             VARCHAR2 (300);
   v_commit                    VARCHAR2 (300);
   v_msg_data                  VARCHAR2 (10000);
   v_msg_summary               VARCHAR2 (32766);
   v_msg_details               VARCHAR2 (32766);
   v_errbuf                    VARCHAR2 (1000);
   v_retcode                   VARCHAR2 (1000);
   v_mode                      VARCHAR2 (100);
   v_action_code               VARCHAR2 (15);
   v_delivery_name             VARCHAR2 (30);
   v_detail_id                 VARCHAR2 (20);
   v_shipped_quantity          NUMBER (10);
   v_ordered_quantity          NUMBER (10);
   v_counter_wsh_del_leg       NUMBER (10);
   v_temp_ship_quant           NUMBER (10);
   v_update_flg                VARCHAR2 (1);
   v_header_id                 NUMBER;
   v_line_id                   NUMBER;
   v_interface_all_result      NUMBER;
   v_ship_confirm_api_result   VARCHAR2 (100);
   v_source_code               VARCHAR2 (150);
   v_delivery_detail_id        NUMBER;
   v_lot_number                VARCHAR2 (32);
   v_subinventory              VARCHAR2 (10);
   v_delivery_id               NUMBER;
   v_msg_count                 NUMBER;
   v_shipped_date              DATE;
   -------------------------------------------------------------------------------
   /* OUT Parameters */
   -------------------------------------------------------------------------------
   v_trip_id                   VARCHAR2 (30);
   v_trip_name                 VARCHAR2 (30);
   v_rowid                     VARCHAR2 (30);
BEGIN
   v_delivery_id := p_delivery_id;
   v_action_code := 'CONFIRM';
   -- The action code for creating trip
   v_shipped_date := p_shipment_date;                              -- sysdate;

   -------------------------------------------------------------------------------
   -- Call to WSH_DELIVERIES_PUB.Delivery_Action.
   -------------------------------------------------------------------------------
   DBMS_OUTPUT.put_line ('In  ship_confirm Delivery ID:' || v_delivery_id);
   wsh_deliveries_pub.delivery_action (
      p_api_version_number        => 1.0,
      p_init_msg_list             => v_init_msg_list,
      x_return_status             => x_return_status,
      x_msg_count                 => v_msg_count,
      x_msg_data                  => v_msg_data,
      p_action_code               => v_action_code,
      p_delivery_id               => v_delivery_id,
      p_delivery_name             => NULL,
      p_asg_trip_id               => NULL,
      p_asg_trip_name             => NULL,
      p_asg_pickup_stop_id        => NULL,
      p_asg_pickup_loc_id         => NULL,
      p_asg_pickup_loc_code       => NULL,
      p_asg_pickup_arr_date       => NULL,
      p_asg_pickup_dep_date       => NULL,
      p_asg_dropoff_stop_id       => NULL,
      p_asg_dropoff_loc_id        => NULL,
      p_asg_dropoff_loc_code      => NULL,
      p_asg_dropoff_arr_date      => NULL,
      p_asg_dropoff_dep_date      => NULL,
      p_sc_action_flag            => 'S',
      p_sc_intransit_flag         => 'Y',
      p_sc_close_trip_flag        => 'Y',
      p_sc_create_bol_flag        => 'N',
      p_sc_stage_del_flag         => 'Y',
      p_sc_trip_ship_method       => NULL,
      p_sc_actual_dep_date        => v_shipped_date,
      --Provide Actual Ship Date
      p_sc_report_set_id          => NULL,
      p_sc_report_set_name        => NULL,
      p_sc_defer_interface_flag   => 'N',
      p_wv_override_flag          => NULL,
      x_trip_id                   => v_trip_id,
      x_trip_name                 => v_trip_name);
   DBMS_OUTPUT.put_line (
      'delivery_action SHIP-CONFIRM x_return_status  : ' || x_return_status);

   IF (x_return_status <> fnd_api.g_ret_sts_success)
   THEN
      wsh_util_core.get_messages ('Y',
                                  v_msg_summary,
                                  v_msg_details,
                                  v_msg_count);

      IF v_msg_count > 1
      THEN
         v_msg_data := v_msg_summary || v_msg_details;
      ELSE
         v_msg_data := v_msg_summary;
      END IF;

      x_error_message := v_msg_data;
      x_return_status := 'E';
      DBMS_OUTPUT.put_line (
            'Error message from wsh_deliveries_pub.delivery_action v_msg_data:'
         || v_msg_data);

      IF     v_msg_data LIKE
                '%Delivery ' || TRIM (v_delivery_id) || ' has null Weight%'
         AND INSTR (UPPER (v_msg_data),
                    'ERROR',
                    1,
                    2) = 0
      THEN
         x_return_status := 'S';
         x_error_message := NULL;
      ELSE
         ROLLBACK;
      END IF;
   ELSE
      x_return_status := 'S';
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      x_return_status := 'E';
      x_error_message := SQLCODE || ':' || SUBSTR (SQLERRM, 1, 200);
      DBMS_OUTPUT.put_line ('Error :' || x_error_message);
END;