利用API批量删除资产

declare
  p_asset_id    IN NUMBER;
  x_status_code VARCHAR2;
  x_message     VARCHAR2;
  --exception_known EXCEPTION;
  l_api_version      NUMBER := 1;
  l_init_msg_list    VARCHAR2(1) := apps.fnd_api.g_false;
  l_commit           VARCHAR2(1) := apps.fnd_api.g_false;
  l_validation_level NUMBER := fnd_api.g_valid_level_full;
  l_return_status    VARCHAR2(1);
  l_msg_count        NUMBER := 0;
  l_msg_data         VARCHAR2(512);
  l_asset_hdr_rec    apps.fa_api_types.asset_hdr_rec_type;
  temp_str           VARCHAR2(512);
BEGIN
  --SAVEPOINT delete_fa;
  l_asset_hdr_rec.asset_id := p_asset_id;
  fa_deletion_pub.do_delete(p_api_version      => l_api_version,
                            p_init_msg_list    => l_init_msg_list,
                            p_commit           => l_commit,
                            p_validation_level => l_validation_level,
                            p_calling_fn       =>