25: --*********************** Public procedures ******************************--
26:
27: PROCEDURE do_delete
28: (p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
30: p_commit IN VARCHAR2 := FND_API.G_FALSE,
31: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: p_calling_fn IN VARCHAR2,
33: x_return_status OUT NOCOPY VARCHAR2,
26:
27: PROCEDURE do_delete
28: (p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
30: p_commit IN VARCHAR2 := FND_API.G_FALSE,
31: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: p_calling_fn IN VARCHAR2,
33: x_return_status OUT NOCOPY VARCHAR2,
34: x_msg_count OUT NOCOPY NUMBER,
27: PROCEDURE do_delete
28: (p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
30: p_commit IN VARCHAR2 := FND_API.G_FALSE,
31: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: p_calling_fn IN VARCHAR2,
33: x_return_status OUT NOCOPY VARCHAR2,
34: x_msg_count OUT NOCOPY NUMBER,
35: x_msg_data OUT NOCOPY VARCHAR2,
78: end if;
79: end if;
80:
81: -- Initialize message list if p_init_msg_list is set to TRUE.
82: if (fnd_api.to_boolean(p_init_msg_list)) then
83: -- initialize error message stack.
84: fa_srvr_msg.init_server_message;
85:
86: -- initialize debug message stack.
88: end if;
89:
90: -- Check version of the API
91: -- Standard call to check for API call compatibility.
92: if NOT fnd_api.compatible_api_call (
93: G_API_VERSION,
94: p_api_version,
95: G_API_NAME,
96: G_PKG_NAME) then
93: G_API_VERSION,
94: p_api_version,
95: G_API_NAME,
96: G_PKG_NAME) then
97: x_return_status := FND_API.G_RET_STS_ERROR;
98: raise del_err;
99: end if;
100:
101: -- check to see if the asset is populated
249:
250: end if; -- corporate book
251:
252: -- commit if p_commit is TRUE.
253: if (fnd_api.to_boolean (p_commit)) then
254: COMMIT WORK;
255: end if;
256:
257: x_return_status := FND_API.G_RET_STS_SUCCESS;
253: if (fnd_api.to_boolean (p_commit)) then
254: COMMIT WORK;
255: end if;
256:
257: x_return_status := FND_API.G_RET_STS_SUCCESS;
258:
259:
260: EXCEPTION
261:
273: FND_MSG_PUB.count_and_get (
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277: x_return_status := FND_API.G_RET_STS_ERROR;
278:
279: when others then
280: ROLLBACK TO do_delete;
281:
292: p_count => x_msg_count,
293: p_data => x_msg_data
294: );
295:
296: x_return_status := FND_API.G_RET_STS_ERROR;
297:
298: END do_delete;
299:
300: -----------------------------------------------------------------------------
371:
372: -- handle needed validation
373: -- bypass if validation level <> FULL
374:
375: if (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
376: if not fa_deletion_pvt.do_validation
377: (px_asset_hdr_rec => px_asset_hdr_rec,
378: p_asset_type_rec => p_asset_type_rec,
379: p_asset_desc_rec => p_asset_desc_rec,