Deleting the Sourcing Rule Assignments API

Deleting the Sourcing Rule Assignments API

DECLARE
       l_return_status VARCHAR2(200);
       l_msg_count  NUMBER;
       l_msg_data VARCHAR2(2000);
       l_assignment_set_rec mrp_src_assignment_pub.assignment_set_rec_type;
       l_assignment_set_val_rec mrp_src_assignment_pub.assignment_set_val_rec_type;
       l_assignment_tbl mrp_src_assignment_pub.assignment_tbl_type;
       l_assignment_val_tbl mrp_src_assignment_pub.assignment_val_tbl_type;
       o_assignment_set_rec mrp_src_assignment_pub.assignment_set_rec_type;
       o_assignment_set_val_rec mrp_src_assignment_pub.assignment_set_val_rec_type;
       o_assignment_tbl mrp_src_assignment_pub.assignment_tbl_type;
       o_assignment_val_tbl mrp_src_assignment_pub.assignment_val_tbl_type;
BEGIN

fnd_message.CLEAR;
       l_assignment_tbl (1).assignment_set_id := 3030;
       l_assignment_tbl (1).assignment_type := '6';
       l_assignment_tbl (1).operation := 'DELETE';
       l_assignment_tbl (1).organization_id := 364;
       l_assignment_tbl (1).inventory_item_id := 747300;
       l_assignment_tbl (1).sourcing_rule_id := 156127;
       l_assignment_tbl (1).sourcing_rule_type := '1';
       l_assignment_tbl (1).Assignment_Id := 662481;
     

   mrp_src_assignment_pub.process_assignment
                       (p_api_version_number          => 1.0,
                        p_init_msg_list               => fnd_api.g_false,
                        p_return_values               => fnd_api.g_false,
                        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_assignment_set_rec          => l_assignment_set_rec,
                        p_assignment_set_val_rec      => l_assignment_set_val_rec,
                        p_assignment_tbl              => l_assignment_tbl,
                        p_assignment_val_tbl          => l_assignment_val_tbl,
                        x_assignment_set_rec          => o_assignment_set_rec,
                        x_assignment_set_val_rec      => o_assignment_set_val_rec,
                        x_assignment_tbl              => o_assignment_tbl,
                        x_assignment_val_tbl          => o_assignment_val_tbl
                       );

   IF l_return_status = fnd_api.g_ret_sts_success
   THEN
      DBMS_OUTPUT.put_line ('Success!');
   ELSE
      DBMS_OUTPUT.put_line ('count:' || l_msg_count);

      IF l_msg_count > 0
      THEN
         FOR l_index IN 1 .. l_msg_count
         LOOP
            l_msg_data :=
               fnd_msg_pub.get (p_msg_index      => l_index,
                                p_encoded        => fnd_api.g_false
                               );
            DBMS_OUTPUT.put_line (SUBSTR (l_msg_data, 1, 250));
         END LOOP;

         DBMS_OUTPUT.put_line ('MSG:' || o_assignment_set_rec.return_status);
      END IF;

      DBMS_OUTPUT.put_line ('Failure!');
   END IF;
END;
/