20: G_PKG_NAME CONSTANT VARCHAR2(30) :='WIP_EAM_WORKREQUEST_PUB';
21: procedure work_request_import
22: (
23: p_api_version in NUMBER := 1.0,
24: p_init_msg_list in VARCHAR2 := FND_API.G_FALSE,
25: p_commit in VARCHAR2 := FND_API.G_TRUE,
26: p_validation_level in NUMBER := FND_API.G_VALID_LEVEL_FULL,
27: p_mode in VARCHAR2,
28: p_work_request_rec in WIP_EAM_WORK_REQUESTS%ROWTYPE,
21: procedure work_request_import
22: (
23: p_api_version in NUMBER := 1.0,
24: p_init_msg_list in VARCHAR2 := FND_API.G_FALSE,
25: p_commit in VARCHAR2 := FND_API.G_TRUE,
26: p_validation_level in NUMBER := FND_API.G_VALID_LEVEL_FULL,
27: p_mode in VARCHAR2,
28: p_work_request_rec in WIP_EAM_WORK_REQUESTS%ROWTYPE,
29: p_request_log in VARCHAR2,
22: (
23: p_api_version in NUMBER := 1.0,
24: p_init_msg_list in VARCHAR2 := FND_API.G_FALSE,
25: p_commit in VARCHAR2 := FND_API.G_TRUE,
26: p_validation_level in NUMBER := FND_API.G_VALID_LEVEL_FULL,
27: p_mode in VARCHAR2,
28: p_work_request_rec in WIP_EAM_WORK_REQUESTS%ROWTYPE,
29: p_request_log in VARCHAR2,
30: p_user_id in NUMBER,
56:
57: l_stmt_num := 10;
58:
59: -- Standard call to check for call compatibility.
60: IF NOT fnd_api.compatible_api_call(
61: l_api_version
62: ,p_api_version
63: ,l_api_name
64: ,g_pkg_name) THEN
61: l_api_version
62: ,p_api_version
63: ,l_api_name
64: ,g_pkg_name) THEN
65: RAISE fnd_api.g_exc_unexpected_error;
66: END IF;
67:
68: l_stmt_num := 20;
69:
67:
68: l_stmt_num := 20;
69:
70: -- Initialize message list if p_init_msg_list is set to TRUE.
71: IF fnd_api.to_boolean(p_init_msg_list) THEN
72: fnd_msg_pub.initialize;
73: END IF;
74:
75: l_stmt_num := 30;
74:
75: l_stmt_num := 30;
76:
77: -- Initialize API return status to success
78: x_return_status := fnd_api.g_ret_sts_success;
79:
80: -- call validate api
81: WIP_EAM_WORKREQUEST_PVT.validate_work_request (
82: p_api_version => p_api_version,
275: END IF;
276:
277: -- raise an error flag if any of the called procedures fails
278: IF l_return_status = 'E' THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = 'U' THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
277: -- raise an error flag if any of the called procedures fails
278: IF l_return_status = 'E' THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = 'U' THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
284: IF fnd_api.to_boolean(p_commit) THEN
285: COMMIT WORK;
280: ELSIF l_return_status = 'U' THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
284: IF fnd_api.to_boolean(p_commit) THEN
285: COMMIT WORK;
286: END IF;
287:
288: EXCEPTION
285: COMMIT WORK;
286: END IF;
287:
288: EXCEPTION
289: WHEN fnd_api.g_exc_error THEN
290: ROLLBACK TO work_request_import_pvt;
291: x_return_status := fnd_api.g_ret_sts_error;
292: fnd_msg_pub.count_and_get(
293: p_encoded => fnd_api.g_false
287:
288: EXCEPTION
289: WHEN fnd_api.g_exc_error THEN
290: ROLLBACK TO work_request_import_pvt;
291: x_return_status := fnd_api.g_ret_sts_error;
292: fnd_msg_pub.count_and_get(
293: p_encoded => fnd_api.g_false
294: ,p_count => x_msg_count
295: ,p_data => x_msg_data);
289: WHEN fnd_api.g_exc_error THEN
290: ROLLBACK TO work_request_import_pvt;
291: x_return_status := fnd_api.g_ret_sts_error;
292: fnd_msg_pub.count_and_get(
293: p_encoded => fnd_api.g_false
294: ,p_count => x_msg_count
295: ,p_data => x_msg_data);
296: WHEN fnd_api.g_exc_unexpected_error THEN
297: ROLLBACK TO work_request_import_pvt;
292: fnd_msg_pub.count_and_get(
293: p_encoded => fnd_api.g_false
294: ,p_count => x_msg_count
295: ,p_data => x_msg_data);
296: WHEN fnd_api.g_exc_unexpected_error THEN
297: ROLLBACK TO work_request_import_pvt;
298: x_return_status := fnd_api.g_ret_sts_unexp_error;
299: fnd_msg_pub.count_and_get(
300: p_encoded => fnd_api.g_false
294: ,p_count => x_msg_count
295: ,p_data => x_msg_data);
296: WHEN fnd_api.g_exc_unexpected_error THEN
297: ROLLBACK TO work_request_import_pvt;
298: x_return_status := fnd_api.g_ret_sts_unexp_error;
299: fnd_msg_pub.count_and_get(
300: p_encoded => fnd_api.g_false
301: ,p_count => x_msg_count
302: ,p_data => x_msg_data);
296: WHEN fnd_api.g_exc_unexpected_error THEN
297: ROLLBACK TO work_request_import_pvt;
298: x_return_status := fnd_api.g_ret_sts_unexp_error;
299: fnd_msg_pub.count_and_get(
300: p_encoded => fnd_api.g_false
301: ,p_count => x_msg_count
302: ,p_data => x_msg_data);
303: WHEN OTHERS THEN
304: ROLLBACK TO work_request_import_pvt;
301: ,p_count => x_msg_count
302: ,p_data => x_msg_data);
303: WHEN OTHERS THEN
304: ROLLBACK TO work_request_import_pvt;
305: x_return_status := fnd_api.g_ret_sts_unexp_error;
306: IF fnd_msg_pub.check_msg_level(
307: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name||'('||l_stmt_num||')');
309: END IF;
307: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
308: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name||'('||l_stmt_num||')');
309: END IF;
310: fnd_msg_pub.count_and_get(
311: p_encoded => fnd_api.g_false
312: ,p_count => x_msg_count
313: ,p_data => x_msg_data);
314:
315: end work_request_import;