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 ;