29: -- NOTES
30: --------------------------------------------------------------------
31: PROCEDURE Derive_Resource_Capacity (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36: p_module_type IN VARCHAR2 := 'JSP',
37: p_req_resources IN Req_Resources_Rec,
30: --------------------------------------------------------------------
31: PROCEDURE Derive_Resource_Capacity (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36: p_module_type IN VARCHAR2 := 'JSP',
37: p_req_resources IN Req_Resources_Rec,
38: x_aval_resources_tbl OUT NOCOPY Aval_Resources_Tbl,
31: PROCEDURE Derive_Resource_Capacity (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36: p_module_type IN VARCHAR2 := 'JSP',
37: p_req_resources IN Req_Resources_Rec,
38: x_aval_resources_tbl OUT NOCOPY Aval_Resources_Tbl,
39: x_return_status OUT NOCOPY VARCHAR2,
63: IF G_DEBUG='Y' THEN
64: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_resrc_levl_pub. derive resource capacity','+RESLG+');
65: END IF;
66: -- Standard call to check for call compatibility.
67: IF FND_API.to_boolean(p_init_msg_list)
68: THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71: -- Initialize API return status to success
68: THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71: -- Initialize API return status to success
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
75: p_api_version,
76: l_api_name,G_PKG_NAME)
70: END IF;
71: -- Initialize API return status to success
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73: -- Initialize message list if p_init_msg_list is set to TRUE.
74: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
75: p_api_version,
76: l_api_name,G_PKG_NAME)
77: THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
74: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
75: p_api_version,
76: l_api_name,G_PKG_NAME)
77: THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80: --------------------Start of API Body-----------------------------------
81: /*
82: IF (p_x_req_resources.org_name IS NOT NULL AND
79: END IF;
80: --------------------Start of API Body-----------------------------------
81: /*
82: IF (p_x_req_resources.org_name IS NOT NULL AND
83: p_x_req_resources.org_name <> FND_API.G_MISS_CHAR) THEN
84: --
85: IF (p_x_req_resources.dept_name IS NOT NULL AND
86: p_x_req_resources.dept_name <> FND_API.G_MISS_CHAR) THEN
87: --
82: IF (p_x_req_resources.org_name IS NOT NULL AND
83: p_x_req_resources.org_name <> FND_API.G_MISS_CHAR) THEN
84: --
85: IF (p_x_req_resources.dept_name IS NOT NULL AND
86: p_x_req_resources.dept_name <> FND_API.G_MISS_CHAR) THEN
87: --
88: SELECT department_id INTO l_department_id
89: FROM BOM_DEPARTMENTS A, HR_ALL_ORGANIZATION_UNITS B
90: WHERE A.ORGANIZATION_ID = B.ORGANIZATION_ID
93: --
94: IF l_department_id IS NULL THEN
95: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INVALID');
96: Fnd_Msg_Pub.ADD;
97: RAISE Fnd_Api.G_EXC_ERROR;
98: END IF;
99: ELSE
100: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
101: Fnd_Msg_Pub.ADD;
98: END IF;
99: ELSE
100: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
101: Fnd_Msg_Pub.ADD;
102: RAISE Fnd_Api.G_EXC_ERROR;
103: END IF;
104: --
105: */
106: AHL_LTP_RESRC_LEVL_PVT.Get_Rsrc_Req_By_Period
155: l_msg_count := Fnd_Msg_Pub.count_msg;
156:
157: IF l_msg_count > 0 THEN
158: X_msg_count := l_msg_count;
159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
160: RAISE Fnd_Api.G_EXC_ERROR;
161: END IF;
162:
163: --Standard check for commit
156:
157: IF l_msg_count > 0 THEN
158: X_msg_count := l_msg_count;
159: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
160: RAISE Fnd_Api.G_EXC_ERROR;
161: END IF;
162:
163: --Standard check for commit
164: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
160: RAISE Fnd_Api.G_EXC_ERROR;
161: END IF;
162:
163: --Standard check for commit
164: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
165: COMMIT;
166: END IF;
167: -- Debug info
168: IF G_DEBUG='Y' THEN
171: Ahl_Debug_Pub.disable_debug;
172: --
173: END IF;
174: EXCEPTION
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: ROLLBACK TO derive_resource_capacity;
177: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
179: p_count => x_msg_count,
173: END IF;
174: EXCEPTION
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: ROLLBACK TO derive_resource_capacity;
177: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
179: p_count => x_msg_count,
180: p_data => x_msg_data);
181: IF G_DEBUG='Y' THEN
174: EXCEPTION
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: ROLLBACK TO derive_resource_capacity;
177: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
179: p_count => x_msg_count,
180: p_data => x_msg_data);
181: IF G_DEBUG='Y' THEN
182:
185: AHL_DEBUG_PUB.debug( 'ahl_ltp_resrc_levl_pub. Derive Resource Capacity','+RSRLG+');
186: -- Check if API is called in debug mode. If yes, disable debug.
187: AHL_DEBUG_PUB.disable_debug;
188: END IF;
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO derive_resource_capacity;
191: X_return_status := FND_API.G_RET_STS_ERROR;
192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
193: p_count => x_msg_count,
187: AHL_DEBUG_PUB.disable_debug;
188: END IF;
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO derive_resource_capacity;
191: X_return_status := FND_API.G_RET_STS_ERROR;
192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
193: p_count => x_msg_count,
194: p_data => X_msg_data);
195: IF G_DEBUG='Y' THEN
188: END IF;
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO derive_resource_capacity;
191: X_return_status := FND_API.G_RET_STS_ERROR;
192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
193: p_count => x_msg_count,
194: p_data => X_msg_data);
195: IF G_DEBUG='Y' THEN
196:
202: AHL_DEBUG_PUB.disable_debug;
203: END IF;
204: WHEN OTHERS THEN
205: ROLLBACK TO derive_resource_capacity;
206: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
208: THEN
209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_RESRC_LEVL_PUB',
210: p_procedure_name => 'DERIVE_RESOURCE_CAPACITY',
209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_RESRC_LEVL_PUB',
210: p_procedure_name => 'DERIVE_RESOURCE_CAPACITY',
211: p_error_text => SUBSTR(SQLERRM,1,240));
212: END IF;
213: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
214: p_count => x_msg_count,
215: p_data => X_msg_data);
216: IF G_DEBUG='Y' THEN
217:
239: -- NOTES
240: --------------------------------------------------------------------
241: PROCEDURE Derive_Resource_Consum (
242: p_api_version IN NUMBER,
243: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
244: p_commit IN VARCHAR2 := FND_API.g_false,
245: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
246: p_module_type IN VARCHAR2 := 'JSP',
247: p_req_resources IN Req_Resources_Rec,
240: --------------------------------------------------------------------
241: PROCEDURE Derive_Resource_Consum (
242: p_api_version IN NUMBER,
243: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
244: p_commit IN VARCHAR2 := FND_API.g_false,
245: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
246: p_module_type IN VARCHAR2 := 'JSP',
247: p_req_resources IN Req_Resources_Rec,
248: x_resource_con_tbl OUT NOCOPY Resource_Con_Tbl,
241: PROCEDURE Derive_Resource_Consum (
242: p_api_version IN NUMBER,
243: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
244: p_commit IN VARCHAR2 := FND_API.g_false,
245: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
246: p_module_type IN VARCHAR2 := 'JSP',
247: p_req_resources IN Req_Resources_Rec,
248: x_resource_con_tbl OUT NOCOPY Resource_Con_Tbl,
249: x_return_status OUT NOCOPY VARCHAR2,
272: IF G_DEBUG='Y' THEN
273: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_resrc_levl_pub. derive resource consum','+RESLG+');
274: END IF;
275: -- Standard call to check for call compatibility.
276: IF FND_API.to_boolean(p_init_msg_list)
277: THEN
278: FND_MSG_PUB.initialize;
279: END IF;
280: -- Initialize API return status to success
277: THEN
278: FND_MSG_PUB.initialize;
279: END IF;
280: -- Initialize API return status to success
281: x_return_status := FND_API.G_RET_STS_SUCCESS;
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
284: p_api_version,
285: l_api_name,G_PKG_NAME)
279: END IF;
280: -- Initialize API return status to success
281: x_return_status := FND_API.G_RET_STS_SUCCESS;
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
284: p_api_version,
285: l_api_name,G_PKG_NAME)
286: THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
284: p_api_version,
285: l_api_name,G_PKG_NAME)
286: THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289: --------------------Start of API Body-----------------------------------
290:
291: IF (p_req_resources.org_name IS NOT NULL AND
288: END IF;
289: --------------------Start of API Body-----------------------------------
290:
291: IF (p_req_resources.org_name IS NOT NULL AND
292: p_req_resources.org_name <> FND_API.G_MISS_CHAR) THEN
293: --
294: IF (p_req_resources.dept_name IS NOT NULL AND
295: p_req_resources.dept_name <> FND_API.G_MISS_CHAR) THEN
296: --
291: IF (p_req_resources.org_name IS NOT NULL AND
292: p_req_resources.org_name <> FND_API.G_MISS_CHAR) THEN
293: --
294: IF (p_req_resources.dept_name IS NOT NULL AND
295: p_req_resources.dept_name <> FND_API.G_MISS_CHAR) THEN
296: --
297: SELECT department_id INTO l_department_id
298: FROM BOM_DEPARTMENTS A, HR_ALL_ORGANIZATION_UNITS B
299: WHERE A.ORGANIZATION_ID = B.ORGANIZATION_ID
302: --
303: IF l_department_id IS NULL THEN
304: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INVALID');
305: Fnd_Msg_Pub.ADD;
306: RAISE Fnd_Api.G_EXC_ERROR;
307: END IF;
308: ELSE
309: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_ID_NOT_EXIST');
310: Fnd_Msg_Pub.ADD;
307: END IF;
308: ELSE
309: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_ID_NOT_EXIST');
310: Fnd_Msg_Pub.ADD;
311: RAISE Fnd_Api.G_EXC_ERROR;
312: END IF;
313: IF G_DEBUG='Y' THEN
314: AHL_DEBUG_PUB.debug( 'before public CallRID:'||p_req_resources.resource_id);
315: AHL_DEBUG_PUB.debug( 'before public CallRTY:'||p_req_resources.resource_type_meaning);
375: l_msg_count := Fnd_Msg_Pub.count_msg;
376:
377: IF l_msg_count > 0 THEN
378: X_msg_count := l_msg_count;
379: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
380: RAISE Fnd_Api.G_EXC_ERROR;
381: END IF;
382:
383: --Standard check for commit
376:
377: IF l_msg_count > 0 THEN
378: X_msg_count := l_msg_count;
379: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
380: RAISE Fnd_Api.G_EXC_ERROR;
381: END IF;
382:
383: --Standard check for commit
384: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
380: RAISE Fnd_Api.G_EXC_ERROR;
381: END IF;
382:
383: --Standard check for commit
384: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
385: COMMIT;
386: END IF;
387: -- Debug info
388: IF G_DEBUG='Y' THEN
391: Ahl_Debug_Pub.disable_debug;
392: END IF;
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO derive_resource_consum;
397: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO derive_resource_consum;
397: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
400: p_data => x_msg_data);
401: IF G_DEBUG='Y' THEN
394: EXCEPTION
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO derive_resource_consum;
397: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
399: p_count => x_msg_count,
400: p_data => x_msg_data);
401: IF G_DEBUG='Y' THEN
402:
406: -- Check if API is called in debug mode. If yes, disable debug.
407: AHL_DEBUG_PUB.disable_debug;
408: END IF;
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO derive_resource_consum;
412: X_return_status := FND_API.G_RET_STS_ERROR;
413: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
414: p_count => x_msg_count,
408: END IF;
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO derive_resource_consum;
412: X_return_status := FND_API.G_RET_STS_ERROR;
413: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
414: p_count => x_msg_count,
415: p_data => X_msg_data);
416: IF G_DEBUG='Y' THEN
409:
410: WHEN FND_API.G_EXC_ERROR THEN
411: ROLLBACK TO derive_resource_consum;
412: X_return_status := FND_API.G_RET_STS_ERROR;
413: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
414: p_count => x_msg_count,
415: p_data => X_msg_data);
416: IF G_DEBUG='Y' THEN
417:
424: END IF;
425:
426: WHEN OTHERS THEN
427: ROLLBACK TO derive_resource_consum;
428: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
430: THEN
431: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_RESRC_LEVL_PUB',
432: p_procedure_name => 'DERIVE_RESOURCE_CAPACITY',
431: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_RESRC_LEVL_PUB',
432: p_procedure_name => 'DERIVE_RESOURCE_CAPACITY',
433: p_error_text => SUBSTR(SQLERRM,1,240));
434: END IF;
435: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
436: p_count => x_msg_count,
437: p_data => X_msg_data);
438: IF G_DEBUG='Y' THEN
439: