FA COST UPDATE API

206474.1

Oracle Assets Common API Documentation Supplement [ID 206449.1]
139407

KS FA

http://docs.oracle.com/cd/E18727_01/doc.121/e13586/T293142T471917.htm#adjapwoinvscr

1.63

basic_rate
adjusted_rate
deprn_amount
----------------------------
declare
   l_trans_rec                 FA_API_TYPES.trans_rec_type;
   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;
   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;
   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;
   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type;
   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;
   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;
   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;
   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;
   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;
   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;
   l_inv_rec                   FA_API_TYPES.inv_rec_type;
   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
   l_return_status             VARCHAR2(1);
   l_mesg_count                number;
   l_mesg                      varchar2(512);
begin
   dbms_output.enable(10000000);
   FA_SRVR_MSG.Init_Server_Message;
   -- asset header info
   l_asset_hdr_rec.asset_id       := &asset_id;
   l_asset_hdr_rec.book_type_code := '&book';
   -- fin rec info
   l_asset_fin_rec_adj.cost       := &delta_cost;
   l_asset_fin_rec_adj.basic_rate   :=&basic;
   l_asset_fin_rec_adj.adjusted_rate:=&adje;
 
 
   FA_ADJUSTMENT_PUB.do_adjustment(
          -- std parameters
          p_api_version               => 1.0,
          p_init_msg_list             => FND_API.G_FALSE,
          p_commit                    => FND_API.G_FALSE,
          p_validation_level          => FND_API.G_VALID_LEVEL_FULL,
          p_calling_fn                => null,
          x_return_status             => l_return_status,
          x_msg_count                 => l_mesg_count,
          x_msg_data                  => l_mesg,
          -- api parameters
          px_trans_rec                => l_trans_rec,
          px_asset_hdr_rec            => l_asset_hdr_rec,
          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,
          x_asset_fin_rec_new         => l_asset_fin_rec_new,
          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,
          px_inv_trans_rec            => l_inv_trans_rec,
          px_inv_tbl                  => l_inv_tbl,
          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,
          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,
          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,
          p_group_reclass_options_rec => l_group_reclass_options_rec
         );
   --dump messages
   l_mesg_count := fnd_msg_pub.count_msg;
   if l_mesg_count > 0 then
      l_mesg := chr(10) || substr(fnd_msg_pub.get
                                    (fnd_msg_pub.G_FIRST, fnd_api.G_FALSE),
                                     1, 250);
      dbms_output.put_line(l_mesg);
      for i in 1..(l_mesg_count - 1) loop
         l_mesg :=
                     substr(fnd_msg_pub.get
                            (fnd_msg_pub.G_NEXT,
                             fnd_api.G_FALSE), 1, 250);
         dbms_output.put_line(l_mesg);
      end loop;
      fnd_msg_pub.delete_msg();
   end if;
   if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
     dbms_output.put_line('FAILURE');
   else
     dbms_output.put_line('SUCCESS');
     dbms_output.put_line('THID' || to_char(l_trans_rec.transaction_header_id));
     dbms_output.put_line('ASSET_ID' || to_char(l_asset_hdr_rec.asset_id));
   end if;
end;
/
---------------------------------



declare
   l_trans_rec                 FA_API_TYPES.trans_rec_type;
   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;
   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;
   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;
   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type;
   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;
   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;
   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;
   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;
   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;
   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;
   l_inv_rec                   FA_API_TYPES.inv_rec_type;
   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;
   l_return_status             VARCHAR2(1);
   l_mesg_count                number;
   l_mesg                      varchar2(512);
begin
   dbms_output.enable(10000000);
   FA_SRVR_MSG.Init_Server_Message;
   -- asset header info
   l_asset_hdr_rec.asset_id       := &asset_id;
   l_asset_hdr_rec.book_type_code := '&book';
   -- fin rec info
   l_asset_fin_rec_adj.cost       := &delta_cost;
   --l_asset_deprn_rec_adj.deprn_amount:=&depramt
   --l_asset_fin_rec_adj.basic_rate   :=&basic;
   --l_asset_fin_rec_adj.adjusted_rate:=&adje;
 
 
   FA_ADJUSTMENT_PUB.do_adjustment(
          -- std parameters
          p_api_version               => 1.0,
          p_init_msg_list             => FND_API.G_FALSE,
          p_commit                    => FND_API.G_FALSE,
          p_validation_level          => FND_API.G_VALID_LEVEL_FULL,
          p_calling_fn                => null,
          x_return_status             => l_return_status,
          x_msg_count                 => l_mesg_count,
          x_msg_data                  => l_mesg,
          -- api parameters
          px_trans_rec                => l_trans_rec,
          px_asset_hdr_rec            => l_asset_hdr_rec,
          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,
          x_asset_fin_rec_new         => l_asset_fin_rec_new,
          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,
          px_inv_trans_rec            => l_inv_trans_rec,
          px_inv_tbl                  => l_inv_tbl,
          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,
          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,
          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,
          p_group_reclass_options_rec => l_group_reclass_options_rec
         );
   --dump messages
   l_mesg_count := fnd_msg_pub.count_msg;
   if l_mesg_count > 0 then
      l_mesg := chr(10) || substr(fnd_msg_pub.get
                                    (fnd_msg_pub.G_FIRST, fnd_api.G_FALSE),
                                     1, 250);
      dbms_output.put_line(l_mesg);
      for i in 1..(l_mesg_count - 1) loop
         l_mesg :=
                     substr(fnd_msg_pub.get
                            (fnd_msg_pub.G_NEXT,
                             fnd_api.G_FALSE), 1, 250);
         dbms_output.put_line(l_mesg);
      end loop;
      fnd_msg_pub.delete_msg();
   end if;
   if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
     dbms_output.put_line('FAILURE');
   else
     dbms_output.put_line('SUCCESS');
     dbms_output.put_line('THID' || to_char(l_trans_rec.transaction_header_id));
     dbms_output.put_line('ASSET_ID' || to_char(l_asset_hdr_rec.asset_id));
   end if;
end;