33: --OUT:
34: --x_return_status
35: -- Standard API specification parameter
36: -- Can hold one of the following values:
37: -- FND_API.G_RET_STS_SUCCESS (='S')
38: -- FND_API.G_RET_STS_ERROR (='E')
39: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
40: --x_msg_count
41: -- Standard API specification parameter. Not used
34: --x_return_status
35: -- Standard API specification parameter
36: -- Can hold one of the following values:
37: -- FND_API.G_RET_STS_SUCCESS (='S')
38: -- FND_API.G_RET_STS_ERROR (='E')
39: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
40: --x_msg_count
41: -- Standard API specification parameter. Not used
42: --x_msg_data
35: -- Standard API specification parameter
36: -- Can hold one of the following values:
37: -- FND_API.G_RET_STS_SUCCESS (='S')
38: -- FND_API.G_RET_STS_ERROR (='E')
39: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
40: --x_msg_count
41: -- Standard API specification parameter. Not used
42: --x_msg_data
43: -- Standard API specification parameter
77: END IF;
78:
79: d_progress := 0;
80: -- By default return status is SUCCESS if no exception occurs
81: x_return_status := FND_API.G_RET_STS_SUCCESS;
82:
83: IF NOT (FND_API.compatible_api_call(l_api_version,
84: p_api_version,
85: l_module_name,
79: d_progress := 0;
80: -- By default return status is SUCCESS if no exception occurs
81: x_return_status := FND_API.G_RET_STS_SUCCESS;
82:
83: IF NOT (FND_API.compatible_api_call(l_api_version,
84: p_api_version,
85: l_module_name,
86: g_package_name)) THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
83: IF NOT (FND_API.compatible_api_call(l_api_version,
84: p_api_version,
85: l_module_name,
86: g_package_name)) THEN
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END IF;
89:
90: IF p_doc_type = 'PO' THEN
91: d_progress := 10;
116: END IF;
117:
118: d_progress := 50;
119: EXCEPTION
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
123: p_data => x_msg_data);
124: IF (PO_LOG.d_exc) THEN
117:
118: d_progress := 50;
119: EXCEPTION
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
123: p_data => x_msg_data);
124: IF (PO_LOG.d_exc) THEN
125: PO_LOG.exc(d_module_base, d_progress, 'Unexpected error in '||l_module_name);
130: PO_LOG.proc_end(d_module_base, 'x_entity_code', x_entity_code);
131: PO_LOG.proc_end(d_module_base, 'x_event_class_code', x_event_class_code);
132: END IF;
133: WHEN OTHERS THEN
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135:
136: IF (PO_LOG.d_exc) THEN
137: PO_LOG.exc(d_module_base, d_progress, 'Unhandled exception in '||l_module_name);
138: PO_LOG.proc_end(d_module_base, 'x_return_status', x_return_status);