[Home] [Help]
40:
41: -- Check for API comptability
42: l_stage := '10: API check';
43:
44: IF fnd_api.compatible_api_call(
45: p_current_version_number => l_api_version
46: ,p_caller_version_number => p_api_version
47: ,p_api_name => l_api_name
48: ,p_pkg_name => g_pkg_name)
48: ,p_pkg_name => g_pkg_name)
49: THEN
50: NULL;
51: ELSE
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: -- Check for input parameters
56: l_stage := '20: input parameter check';
60: IF p_price_element_code IS NULL THEN
61: l_query_ind := 'N'; -- query by name
62: IF p_name IS NULL THEN
63: -- all input parameters are null, raise error
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66: END IF;
67: END IF;
68:
74: FOR SELECT * FROM pon_price_element_types_vl
75: WHERE price_element_type_id = p_price_element_id;
76: FETCH cost_factor_cur INTO x_cost_factor_rec;
77: IF cost_factor_cur%NOTFOUND THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: ELSE
80: CLOSE cost_factor_cur;
81: END IF;
82:
86: FOR SELECT * FROM pon_price_element_types_vl
87: WHERE price_element_code = p_price_element_code;
88: FETCH cost_factor_cur INTO x_cost_factor_rec;
89: IF cost_factor_cur%NOTFOUND THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: ELSE
92: CLOSE cost_factor_cur;
93: END IF;
94:
98: FOR SELECT * FROM pon_price_element_types_vl
99: WHERE name = p_name;
100: FETCH cost_factor_cur INTO x_cost_factor_rec;
101: IF cost_factor_cur%NOTFOUND THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: ELSE
104: CLOSE cost_factor_cur;
105: END IF;
106: END IF;
104: CLOSE cost_factor_cur;
105: END IF;
106: END IF;
107:
108: x_return_status := fnd_api.G_RET_STS_SUCCESS;
109:
110: EXCEPTION
111: WHEN OTHERS THEN
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
108: x_return_status := fnd_api.G_RET_STS_SUCCESS;
109:
110: EXCEPTION
111: WHEN OTHERS THEN
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: IF cost_factor_cur%ISOPEN THEN
114: CLOSE cost_factor_cur;
115: END IF;
116: IF fnd_msg_pub.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
176: -- Check for API comptability
177:
178: l_stage := '10: API check';
179:
180: IF fnd_api.compatible_api_call(
181: p_current_version_number => l_api_version
182: ,p_caller_version_number => p_api_version
183: ,p_api_name => l_api_name
184: ,p_pkg_name => g_pkg_name)
184: ,p_pkg_name => g_pkg_name)
185: THEN
186: NULL;
187: ELSE
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: l_stage := '20: PE Code check';
192: -- Check if the code exists. If it does, we need to update the information
227: EXCEPTION
228:
229: WHEN NO_DATA_FOUND
230: THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: END;
233:
234: -- Validate the cost analysis code
235:
245: EXCEPTION
246: WHEN NO_DATA_FOUND
247: THEN
248: -- Raise fatal error for invalid cost analysis code
249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
250: END;
251:
252: -- Validate the cost component class id
253:
263: EXCEPTION
264: WHEN NO_DATA_FOUND
265: THEN
266: -- raise error for invalid cost component class id
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END;
269:
270: -- Get the installed language
271:
381: l_stage := '160: Check rows update';
382:
383: IF SQL%NOTFOUND
384: THEN
385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
386: END IF;
387:
388: END IF;
389:
386: END IF;
387:
388: END IF;
389:
390: x_return_status := fnd_api.G_RET_STS_SUCCESS;
391:
392: EXCEPTION
393: WHEN OTHERS THEN
394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: x_return_status := fnd_api.G_RET_STS_SUCCESS;
391:
392: EXCEPTION
393: WHEN OTHERS THEN
394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
395: IF fnd_msg_pub.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
396: THEN
397: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name,SQLERRM);
398: IF ( fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)