R12 Oe_Order_Pub API

/*
OEXOEFRM
OE_OEXOEMOE.Key_Commit;
*/
declare
    l_header_rec             oe_order_pub.header_rec_type;
    l_line_tbl               oe_order_pub.line_tbl_type;
    l_line_tb2               oe_order_pub.line_tbl_type;
    l_action_request_tbl     oe_order_pub.request_tbl_type;
    l_return_status          varchar2(1000);
    l_msg_count              number;
    l_msg_data               varchar2(1000);
    v_line_number            varchar2(1000);
    l_index                  varchar2(1000);
    x_header_val_rec         oe_order_pub.header_val_rec_type;
    x_header_adj_tbl         oe_order_pub.header_adj_tbl_type;
    x_header_adj_val_tbl     oe_order_pub.header_adj_val_tbl_type;
    x_header_price_att_tbl   oe_order_pub.header_price_att_tbl_type;
    x_header_adj_att_tbl     oe_order_pub.header_adj_att_tbl_type;
    x_header_adj_assoc_tbl   oe_order_pub.header_adj_assoc_tbl_type;
    x_header_scredit_tbl     oe_order_pub.header_scredit_tbl_type;
    x_header_scredit_val_tbl oe_order_pub.header_scredit_val_tbl_type;
    x_line_val_tbl           oe_order_pub.line_val_tbl_type;
    x_line_adj_tbl           oe_order_pub.line_adj_tbl_type;
    x_line_adj_val_tbl       oe_order_pub.line_adj_val_tbl_type;
    x_line_price_att_tbl     oe_order_pub.line_price_att_tbl_type;
    x_line_adj_att_tbl       oe_order_pub.line_adj_att_tbl_type;
    x_line_adj_assoc_tbl     oe_order_pub.line_adj_assoc_tbl_type;
    x_line_scredit_tbl       oe_order_pub.line_scredit_tbl_type;
    x_line_scredit_val_tbl   oe_order_pub.line_scredit_val_tbl_type;
    x_lot_serial_tbl         oe_order_pub.lot_serial_tbl_type;
    x_lot_serial_val_tbl     oe_order_pub.lot_serial_val_tbl_type;
begin
    fnd_global.apps_initialize(user_id      => 20131 -- User name:hz00100
                              ,
                               resp_id      => 21623 -- Order Management Super User, Vision UK
                              ,
                               resp_appl_id => 660 --Order Management , ONT
                               );

    --mo_global.init('ONT');
    oe_msg_pub.initialize;
    oe_debug_pub.initialize;
    oe_debug_pub.debug_on;
    oe_debug_pub.setdebuglevel(5);
    --DBMS_APPLICATION_INFO.set_client_info (81);

    mo_global.set_policy_context('S', 81);
    --mo_global.set_org_context(81,'','ONT');

    l_header_rec           := oe_order_pub.g_miss_header_rec;
    l_header_rec.header_id := 2032; --in_header_rec.header_id;
    l_header_rec.operation := oe_globals.g_opr_update;

    l_line_tbl(1) := oe_order_pub.g_miss_line_rec;
    l_line_tbl(1).line_id := 1791; --1136;--in_line_tbl(i).line_id;
    l_line_tbl(1).operation := oe_globals.g_opr_update;
    --l_line_tbl (1).schedule_ship_date := sysdate;
    l_line_tbl(1).ordered_quantity := 5;

    dbms_output.put_line('l_line_tbl:' || l_line_tbl(1).open_flag);

    oe_order_pub.process_order(p_api_version_number     => 1.0,
                               p_init_msg_list          => fnd_api.g_false,
                               p_return_values          => fnd_api.g_false,
                               p_action_commit          => fnd_api.g_false,
                               x_return_status          => l_return_status,
                               x_msg_count              => l_msg_count,
                               x_msg_data               => l_msg_data,
                               p_header_rec             => l_header_rec,
                               p_line_tbl               => l_line_tbl,
                               p_action_request_tbl     => l_action_request_tbl,
                               x_header_rec             => l_header_rec,
                               x_header_val_rec         => x_header_val_rec,
                               x_header_adj_tbl         => x_header_adj_tbl,
                               x_header_adj_val_tbl     => x_header_adj_val_tbl,
                               x_header_price_att_tbl   => x_header_price_att_tbl,
                               x_header_adj_att_tbl     => x_header_adj_att_tbl,
                               x_header_adj_assoc_tbl   => x_header_adj_assoc_tbl,
                               x_header_scredit_tbl     => x_header_scredit_tbl,
                               x_header_scredit_val_tbl => x_header_scredit_val_tbl,
                               x_line_tbl               => l_line_tb2,
                               x_line_val_tbl           => x_line_val_tbl,
                               x_line_adj_tbl           => x_line_adj_tbl,
                               x_line_adj_val_tbl       => x_line_adj_val_tbl,
                               x_line_price_att_tbl     => x_line_price_att_tbl,
                               x_line_adj_att_tbl       => x_line_adj_att_tbl,
                               x_line_adj_assoc_tbl     => x_line_adj_assoc_tbl,
                               x_line_scredit_tbl       => x_line_scredit_tbl,
                               x_line_scredit_val_tbl   => x_line_scredit_val_tbl,
                               x_lot_serial_tbl         => x_lot_serial_tbl,
                               x_lot_serial_val_tbl     => x_lot_serial_val_tbl,
                               x_action_request_tbl     => l_action_request_tbl);
    dbms_output.put_line('l_index:' || l_index || 'l_msg_data1:' ||
                         l_msg_data);

    if l_msg_count > 0 then
        for l_index in 1 .. l_msg_count
        loop
            l_msg_data := oe_msg_pub.get(p_msg_index => l_index,
                                         p_encoded   => 'F');
        end loop;
    end if;

    dbms_output.put_line('l_index:' || l_index || 'l_msg_data:' ||
                         l_msg_data);

    if l_return_status = fnd_api.g_ret_sts_success then
        dbms_output.put_line('OK');
        commit;
    else
        dbms_output.put_line('Failed');
        rollback;
    end if;

    commit;
end;