How Can One Create a Price Adjustment for More than One Line on a Return Order Using Process Order API

Metalink Ref: How Can One Create a Price Adjustment for More than One Line on a Return Order Using Process Order API? (Doc ID 2113054.1)

SET SERVEROUTPUT ON

DECLARE
   l_header_rec                                 oe_order_pub.header_rec_type;
   l_line_tbl                                   oe_order_pub.line_tbl_type;
   l_action_request_tbl                         oe_order_pub.request_tbl_type;
   l_header_adj_tbl                             oe_order_pub.header_adj_tbl_type;
   l_line_adj_tbl                               oe_order_pub.line_adj_tbl_type;
   l_header_scr_tbl                             oe_order_pub.header_scredit_tbl_type;
   l_line_scredit_tbl                           oe_order_pub.line_scredit_tbl_type;
   l_request_rec                                oe_order_pub.request_rec_type;
   l_return_status                              VARCHAR2(1000);
   l_msg_count                                  NUMBER;
   l_msg_data                                   VARCHAR2(1000);
   p_api_version_number                         NUMBER := 1.0;
   p_init_msg_list                              VARCHAR2(10) := fnd_api.g_false;
   p_return_values                              VARCHAR2(10) := fnd_api.g_false;
   p_action_commit                              VARCHAR2(10) := fnd_api.g_false;
   x_return_status                              VARCHAR2(1);
   x_msg_count                                  NUMBER;
   x_msg_data                                   VARCHAR2(100);
   p_header_rec                                 oe_order_pub.header_rec_type := oe_order_pub.g_miss_header_rec;
   p_old_header_rec                             oe_order_pub.header_rec_type := oe_order_pub.g_miss_header_rec;
   p_header_val_rec                             oe_order_pub.header_val_rec_type := oe_order_pub.g_miss_header_val_rec;
   p_old_header_val_rec                         oe_order_pub.header_val_rec_type := oe_order_pub.g_miss_header_val_rec;
   p_header_adj_tbl                             oe_order_pub.header_adj_tbl_type := oe_order_pub.g_miss_header_adj_tbl;
   p_old_header_adj_tbl                         oe_order_pub.header_adj_tbl_type := oe_order_pub.g_miss_header_adj_tbl;
   p_header_adj_val_tbl                         oe_order_pub.header_adj_val_tbl_type := oe_order_pub.g_miss_header_adj_val_tbl;
   p_old_header_adj_val_tbl                     oe_order_pub.header_adj_val_tbl_type := oe_order_pub.g_miss_header_adj_val_tbl;
   p_header_price_att_tbl                       oe_order_pub.header_price_att_tbl_type := oe_order_pub.g_miss_header_price_att_tbl;
   p_old_header_price_att_tbl                   oe_order_pub.header_price_att_tbl_type := oe_order_pub.g_miss_header_price_att_tbl;
   p_header_adj_att_tbl                         oe_order_pub.header_adj_att_tbl_type := oe_order_pub.g_miss_header_adj_att_tbl;
   p_old_header_adj_att_tbl                     oe_order_pub.header_adj_att_tbl_type := oe_order_pub.g_miss_header_adj_att_tbl;
   p_header_adj_assoc_tbl                       oe_order_pub.header_adj_assoc_tbl_type := oe_order_pub.g_miss_header_adj_assoc_tbl;
   p_old_header_adj_assoc_tbl                   oe_order_pub.header_adj_assoc_tbl_type := oe_order_pub.g_miss_header_adj_assoc_tbl;
   p_header_scredit_tbl                         oe_order_pub.header_scredit_tbl_type := oe_order_pub.g_miss_header_scredit_tbl;
   p_old_header_scredit_tbl                     oe_order_pub.header_scredit_tbl_type := oe_order_pub.g_miss_header_scredit_tbl;
   p_header_scredit_val_tbl                     oe_order_pub.header_scredit_val_tbl_type := oe_order_pub.g_miss_header_scredit_val_tbl;
   p_old_header_scredit_val_tbl                 oe_order_pub.header_scredit_val_tbl_type := oe_order_pub.g_miss_header_scredit_val_tbl;
   p_line_tbl                                   oe_order_pub.line_tbl_type := oe_order_pub.g_miss_line_tbl;
   p_old_line_tbl                               oe_order_pub.line_tbl_type := oe_order_pub.g_miss_line_tbl;
   p_line_val_tbl                               oe_order_pub.line_val_tbl_type := oe_order_pub.g_miss_line_val_tbl;
   p_old_line_val_tbl                           oe_order_pub.line_val_tbl_type := oe_order_pub.g_miss_line_val_tbl;
   p_line_adj_tbl                               oe_order_pub.line_adj_tbl_type := oe_order_pub.g_miss_line_adj_tbl;
   p_old_line_adj_tbl                           oe_order_pub.line_adj_tbl_type := oe_order_pub.g_miss_line_adj_tbl;
   p_line_adj_val_tbl                           oe_order_pub.line_adj_val_tbl_type := oe_order_pub.g_miss_line_adj_val_tbl;
   p_old_line_adj_val_tbl                       oe_order_pub.line_adj_val_tbl_type := oe_order_pub.g_miss_line_adj_val_tbl;
   p_line_price_att_tbl                         oe_order_pub.line_price_att_tbl_type := oe_order_pub.g_miss_line_price_att_tbl;
   p_old_line_price_att_tbl                     oe_order_pub.line_price_att_tbl_type := oe_order_pub.g_miss_line_price_att_tbl;
   p_line_adj_att_tbl                           oe_order_pub.line_adj_att_tbl_type := oe_order_pub.g_miss_line_adj_att_tbl;
   p_old_line_adj_att_tbl                       oe_order_pub.line_adj_att_tbl_type := oe_order_pub.g_miss_line_adj_att_tbl;
   p_line_adj_assoc_tbl                         oe_order_pub.line_adj_assoc_tbl_type := oe_order_pub.g_miss_line_adj_assoc_tbl;
   p_old_line_adj_assoc_tbl                     oe_order_pub.line_adj_assoc_tbl_type := oe_order_pub.g_miss_line_adj_assoc_tbl;
   p_line_scredit_tbl                           oe_order_pub.line_scredit_tbl_type := oe_order_pub.g_miss_line_scredit_tbl;
   p_old_line_scredit_tbl                       oe_order_pub.line_scredit_tbl_type := oe_order_pub.g_miss_line_scredit_tbl;
   p_line_scredit_val_tbl                       oe_order_pub.line_scredit_val_tbl_type := oe_order_pub.g_miss_line_scredit_val_tbl;
   p_old_line_scredit_val_tbl                   oe_order_pub.line_scredit_val_tbl_type := oe_order_pub.g_miss_line_scredit_val_tbl;
   p_lot_serial_tbl                             oe_order_pub.lot_serial_tbl_type := oe_order_pub.g_miss_lot_serial_tbl;
   p_old_lot_serial_tbl                         oe_order_pub.lot_serial_tbl_type := oe_order_pub.g_miss_lot_serial_tbl;
   p_lot_serial_val_tbl                         oe_order_pub.lot_serial_val_tbl_type := oe_order_pub.g_miss_lot_serial_val_tbl;
   p_old_lot_serial_val_tbl                     oe_order_pub.lot_serial_val_tbl_type := oe_order_pub.g_miss_lot_serial_val_tbl;
   p_action_request_tbl                         oe_order_pub.request_tbl_type := oe_order_pub.g_miss_request_tbl;
   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;
   x_action_request_tbl                         oe_order_pub.request_tbl_type;
   x_debug_file                                 VARCHAR2(500);
   l_line_tbl_index                             NUMBER;
   l_msg_index_out                              NUMBER(10);
BEGIN
   DBMS_OUTPUT.enable(1000000);
   fnd_global.apps_initialize(1013419
                            , 21623
                            , 660); -- user_id , resp_id,resp_appl_id
   mo_global.init('ONT'); --Muti-org context setting
   mo_global.set_policy_context('S'
                              , 204); -- org_id
   --
   oe_debug_pub.g_file                                                          := '';
   oe_debug_pub.debug_on;
   oe_debug_pub.initialize;
   x_debug_file                                                                 := oe_debug_pub.set_debug_mode('FILE');
   oe_debug_pub.setdebuglevel(5); -- Use 5 for the most debugging output
   oe_debug_pub.add('START OF NEW DEBUG');
   --
   --This is to UPDATE order line
   l_line_tbl_index                                                             := 1;
   --
   -- Changed attributes Header
   l_header_rec                                                                 := oe_order_pub.g_miss_header_rec;
   l_header_rec.header_id                                                       := 398596; -- pass header_id of the Sales Order
   l_header_rec.operation                                                       := oe_globals.g_opr_update;
   --
   -- Changed attributes Lines
   l_line_tbl(l_line_tbl_index)                                                 := oe_order_pub.g_miss_line_rec;
   l_line_tbl(l_line_tbl_index).operation                                       := oe_globals.g_opr_update;
   l_line_tbl(l_line_tbl_index).header_id                                       := 398596; -- pass header id of sales order
   l_line_tbl(l_line_tbl_index).line_id                                         := 694738; -- pass line_id of the Sales Order Line
   --
   -- Adjustments attributes for Line
   l_line_adj_tbl(1)                                                            := oe_order_pub.g_miss_line_adj_rec;
   l_line_adj_tbl(1).header_id                                                  := 398596; -- header_id of the Sales Order
   l_line_adj_tbl(1).line_id                                                    := 694738; -- line_id of the Sales Order Line
   l_line_adj_tbl(1).list_header_id                                             := 238373; -- list_header_id of adjustment
   l_line_adj_tbl(1).list_line_id                                               := 304906; -- list_line_id of adjustment
   l_line_adj_tbl(1).automatic_flag                                             := 'N';
   l_line_adj_tbl(1).list_line_type_code                                        := 'DIS';
   l_line_adj_tbl(1).arithmetic_operator                                        := 'NEWPRICE';
   l_line_adj_tbl(1).operand                                                    := -50.00;
   l_line_adj_tbl(1).applied_flag                                               := 'Y';
   l_line_adj_tbl(1).updated_flag                                               := 'Y';
   l_line_adj_tbl(1).line_index                                                 := 1;
   --l_line_adj_tbl(1).charge_type_code := <>;
   l_line_adj_tbl(1).modifier_level_code                                        := 'LINE';
   l_line_adj_tbl(1).operation                                                  := oe_globals.g_opr_create;
   --

   l_line_tbl_index                                                             := 2;
   --
   -- Changed attributes Header
   l_header_rec                                                                 := oe_order_pub.g_miss_header_rec;
   l_header_rec.header_id                                                       := 398596; -- pass header_id of the Sales Order
   l_header_rec.operation                                                       := oe_globals.g_opr_update;
   --
   -- Changed attributes Lines
   l_line_tbl(l_line_tbl_index)                                                 := oe_order_pub.g_miss_line_rec;
   l_line_tbl(l_line_tbl_index).operation                                       := oe_globals.g_opr_update;
   l_line_tbl(l_line_tbl_index).header_id                                       := 398596; -- pass header_id of sales order
   l_line_tbl(l_line_tbl_index).line_id                                         := 694739; -- pass line_id of the Sales Order Line
   --
   -- Adjustments attributes for Line
   l_line_adj_tbl(2)                                                            := oe_order_pub.g_miss_line_adj_rec;
   l_line_adj_tbl(2).header_id                                                  := 398596; -- header_id of the Sales Order
   l_line_adj_tbl(2).line_id                                                    := 694739; -- line_id of the Sales Order Line
   l_line_adj_tbl(2).list_header_id                                             := 238373; -- list_header_id of adjustment
   l_line_adj_tbl(2).list_line_id                                               := 304906; -- list_line_id of adjustment
   l_line_adj_tbl(2).automatic_flag                                             := 'N';
   l_line_adj_tbl(2).list_line_type_code                                        := 'DIS';
   l_line_adj_tbl(2).arithmetic_operator                                        := 'NEWPRICE';
   l_line_adj_tbl(2).operand                                                    := 50.00;
   l_line_adj_tbl(2).applied_flag                                               := 'Y';
   l_line_adj_tbl(2).updated_flag                                               := 'Y';
   l_line_adj_tbl(2).line_index                                                 := 1;
   --l_line_adj_tbl(2).charge_type_code := <>;
   l_line_adj_tbl(2).modifier_level_code                                        := 'LINE';
   l_line_adj_tbl(2).operation                                                  := oe_globals.g_opr_create;
   --
   --
   -- CALL TO PROCESS ORDER
   --
   oe_order_pub.process_order(p_api_version_number                      => 1.0
                            , p_init_msg_list                           => fnd_api.g_true
                            , p_return_values                           => fnd_api.g_true
                            , 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_line_adj_tbl                            => l_line_adj_tbl
                            , p_action_request_tbl                      => l_action_request_tbl
                            -- OUT PARAMETERS
                            , x_header_rec                              => p_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                                => p_line_tbl
                            , 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                      => p_action_request_tbl);
   DBMS_OUTPUT.put_line(   'OM Debug file: '
                        || oe_debug_pub.g_dir
                        || '/'
                        || oe_debug_pub.g_file);

   -- Retrieve messages
   FOR i IN 1 .. l_msg_count
   LOOP
      oe_msg_pub.get(p_msg_index                               => i
                   , p_encoded                                 => fnd_api.g_false
                   , p_data                                    => l_msg_data
                   , p_msg_index_out                           => l_msg_index_out);
      DBMS_OUTPUT.put_line(   'message is: '
                           || l_msg_data);
      DBMS_OUTPUT.put_line(   'message index is: '
                           || l_msg_index_out);
   END LOOP;

   -- Check the return status
   IF l_return_status = fnd_api.g_ret_sts_success
   THEN
      DBMS_OUTPUT.put_line('Unit Selling Price Update Successful');
   ELSE
      DBMS_OUTPUT.put_line('Unit Selling Price Failed');
   END IF;
END;
/