EBS关于LPN的API【OM】

PROCEDURE create_lpn(x_return_status OUT NOCOPY VARCHAR2,
                       p_box_item_id   IN NUMBER,
                       p_box_number    IN VARCHAR2) IS

    -- Parameters for WSH_CONTAINER_PUB.create_containers

    p_container_item_name VARCHAR2(2000);
    p_container_item_seg  fnd_flex_ext.segmentarray;

    --  p_organization_code     VARCHAR2(2000) ;
    p_name_prefix VARCHAR2(2000);
    p_name_suffix VARCHAR2(2000);
    p_base_number NUMBER;
    p_num_digits  NUMBER;
    p_quantity    NUMBER;
    --P_CONTAINER_ITEM_ID        number;
    x_container_ids wsh_util_core.id_tab_type;
    --out parameters

    x_msg_details VARCHAR2(3000);
    x_msg_summary VARCHAR2(3000);

    l_msg_count     NUMBER;
    l_msg_data      VARCHAR2(4000);
    l_return_status VARCHAR2(240);
    l_lpn_dd_id     NUMBER;

    --Handle exceptions
    --fail_api                EXCEPTION;
  BEGIN
    -- Initialize return status

    p_quantity := 1;

    log('>>> Create LPN begin');
    /* log('LPN name: ' || p_box_number);*/

    wsh_container_pub.create_containers(p_api_version         => 1.0,
                                        p_init_msg_list       => fnd_api.g_true,
                                        p_commit              => fnd_api.g_false,
                                        x_return_status       => l_return_status,
                                        x_msg_count           => l_msg_count,
                                        x_msg_data            => l_msg_data,
                                        p_container_item_id   => p_box_item_id,
                                        p_container_item_name => p_container_item_name,
                                        p_container_item_seg  => p_container_item_seg,
                                        p_organization_id     => g_organization_id,
                                        p_organization_code   => 'SH',
                                        p_name_prefix         => p_name_prefix,
                                        p_name_suffix         => p_name_suffix,
                                        p_base_number         => p_base_number,
                                        p_num_digits          => p_num_digits,
                                        p_quantity            => p_quantity,
                                        p_container_name      => p_box_number,
                                        x_container_ids       => x_container_ids);

    IF (l_return_status <> wsh_util_core.g_ret_sts_success) THEN
      x_return_status := 'E';

      wsh_util_core.get_messages('Y',
                                 x_msg_summary,
                                 x_msg_details,
                                 l_msg_count);
      IF l_msg_count > 1 THEN
        l_msg_data := x_msg_summary || x_msg_details;
        dbms_output.put_line('Message Data : ' || l_msg_data);
      ELSE
        l_msg_data := x_msg_summary;
        dbms_output.put_line('Message Data : ' || l_msg_data);
      END IF;

      log('Failed to create LPN:' || p_box_number);
      --RETURN - 99;
    ELSE
      x_return_status := 'S';

      l_lpn_dd_id := x_container_ids(1);

      log('Create lpn success. LPN number:[' || p_box_number || '].Delivery detail id: ' || l_lpn_dd_id);
      log('>>> Create LPN end');
      --RETURN l_lpn_dd_id;

    END IF;

  END create_lpn;

给LPN分配交货

--给item分配交货也可以，都是使用delivery_Detail_id
PROCEDURE assign_lpn(x_return_status      OUT NOCOPY VARCHAR2,
                       p_delivery_detail_id IN NUMBER,
                       p_delivery_id        IN NUMBER) IS

    l_msg_count     NUMBER;
    l_msg_data      VARCHAR2(4000);
    l_msg_summary   VARCHAR2(4000);
    l_return_status VARCHAR2(240);

    g_dlvb_recs_tab    wsh_glbl_var_strct_grp.delivery_details_attr_tbl_type;
    g_dlvb_action_prms wsh_glbl_var_strct_grp.dd_action_parameters_rec_type;
    g_dlvb_defaults    wsh_glbl_var_strct_grp.dd_default_parameters_rec_type;
    g_dlvb_out_rec     wsh_glbl_var_strct_grp.dd_action_out_rec_type;

    l_true  CONSTANT VARCHAR2(1) := 'T';
    l_false CONSTANT VARCHAR2(1) := 'F';
    l_phase NUMBER := 2;

    l_container_name VARCHAR2(40);
    l_delivery_name  wsh_new_deliveries.name%TYPE;

  BEGIN
    x_return_status := 'S';

    BEGIN

      SELECT wdd.container_name
        INTO l_container_name
        FROM wsh_delivery_details wdd
       WHERE wdd.delivery_detail_id = p_delivery_detail_id;
    EXCEPTION
      WHEN OTHERS THEN
        l_container_name := NULL;
    END;
    BEGIN
      SELECT wnd.name
        INTO l_delivery_name
        FROM wsh_new_deliveries wnd
       WHERE wnd.delivery_id = p_delivery_id;
    EXCEPTION
      WHEN OTHERS THEN
        l_delivery_name := NULL;
    END;

    log('>>> Assign start');
    log('LPN Number: ' || l_container_name || '  Delivery: ' || l_delivery_name || 'Delivery ID: ' || p_delivery_id);

    -- delivetry_detail_id of lpn
    g_dlvb_recs_tab(1).delivery_detail_id := p_delivery_detail_id;

    g_dlvb_action_prms.action_code      := 'ASSIGN';
    g_dlvb_action_prms.caller           := 'WSH_FSTRX';
    g_dlvb_action_prms.phase            := l_phase;
    g_dlvb_action_prms.wv_override_flag := 'Y';
    g_dlvb_action_prms.delivery_id      := p_delivery_id;

    --call api
    wsh_delivery_details_grp.delivery_detail_action(p_api_version_number => 1.0,
                                                    p_init_msg_list      => l_true,
                                                    p_commit             => l_false,
                                                    x_return_status      => l_return_status,
                                                    x_msg_count          => l_msg_count,
                                                    x_msg_data           => l_msg_data,
                                                    p_rec_attr_tab       => g_dlvb_recs_tab,
                                                    p_action_prms        => g_dlvb_action_prms,
                                                    x_defaults           => g_dlvb_defaults,
                                                    x_action_out_rec     => g_dlvb_out_rec);

    IF l_return_status = 'S' THEN
      x_return_status := 'S';
      log('LPN assign to delivery successfully ');
      log('>>> Assign end');
    ELSE
      x_return_status := 'E';
      log('Failed to assign LPN to delivery');

      IF l_msg_count = 1 THEN
        l_msg_summary := l_msg_data;
        log(l_msg_data);
      ELSIF l_msg_count > 1 THEN
        LOOP

          l_msg_data := fnd_msg_pub.get(fnd_msg_pub.g_next,
                                        fnd_api.g_false);
          IF l_msg_data IS NULL THEN
            EXIT;
          END IF;

          log('Message' || '---' || l_msg_data);
          l_msg_summary := l_msg_summary || l_msg_data;
        END LOOP;
      END IF;

    END IF;

  EXCEPTION
    WHEN OTHERS THEN
      x_return_status := 'E';    

  END assign_lpn;