zoukankan      html  css  js  c++  java
  • OE_HOLDS_PUB.RELEASE_HOLDS Release Holds Script

    Below script will help you to Release Order level or Line Level hold in Oracle Order Management through API OE_HOLDS_PUB.RELEASE_HOLDS

    This script was tested in R12.1.1 

    SET serveroutput ON;
    DECLARE

    v_return_status    VARCHAR2(30);
    v_msg_data         VARCHAR2(4000);
    v_msg_count        NUMBER;
    v_order_tbl        OE_HOLDS_PVT.order_tbl_type;
    v_hold_id          NUMBER DEFAULT 50;
    v_header_id        NUMBER DEFAULT 1705;

    v_context          VARCHAR2 (2);

    FUNCTION set_context( i_user_name    IN VARCHAR2
                         ,i_resp_name    IN VARCHAR2
                         ,i_org_id       IN NUMBER)
    RETURN VARCHAR2
    IS
    BEGIN
     NULL;
        -- In order to reduce the content of the post I moved the implementation part of this function to another post and it is   available here  
    END set_context;
     
    BEGIN

    -- Setting the context ----

    v_context := set_context ('&user', '&responsibility', 2038);
    IF v_context = 'F'
       THEN
       DBMS_OUTPUT.put_line ('Error while setting the context');
    END IF;

    --- context done ------------

    BEGIN

    v_order_tbl(1).header_id           := v_header_id;
    v_return_status                    := NULL;
    v_msg_data                         := NULL;
    v_msg_count                        := NULL;

    dbms_output.put_line('Calling the API to Release hold' );

    OE_HOLDS_PUB.RELEASE_HOLDS (
                             p_api_version         => 1.0,
                             p_order_tbl           => v_order_tbl,
                             p_hold_id             => v_hold_id,
                             p_release_reason_code => 'AR_AUTOMATIC',
                             p_release_comment     => 'TESTING',
                             x_return_status       => v_return_status,
                             x_msg_count           => v_msg_count,
                             x_msg_data            => v_msg_data
                               );


    IF v_return_status = FND_API.G_RET_STS_SUCCESS THEN
    dbms_output.put_line('success:');
    COMMIT;
    ELSIF v_return_status IS NULL THEN
    dbms_output.put_line('Status is null');
    ELSE
    dbms_output.put_line('Failed: '|| v_msg_data );


    FOR i IN 1 .. oe_msg_pub.count_msg
         LOOP
            v_msg_data := oe_msg_pub.get( p_msg_index => i, p_encoded => 'F');
            dbms_output.put_line( i|| ') '|| v_msg_data);
         END LOOP;
        
    ROLLBACK;
    END IF;

    EXCEPTION
    WHEN OTHERS THEN
     dbms_output.put_line('Error is '||SQLCODE||'---'||SQLERRM);
    END;
  • 相关阅读:
    缺省源
    MySQL曹操外卖一
    MySQL曹操外卖二
    正确使用MySQL外键约束
    html大部分实用标签(结构型)
    html超级基础标签
    我的简单作业
    章节课程复习笔记
    FC超级玛丽研究(NES游戏)
    二维码生成
  • 原文地址:https://www.cnblogs.com/benio/p/2541566.html
Copyright © 2011-2022 走看看