[Home] [Help]
7: PROCEDURE Create_Route
8: (
9: -- standard IN params
10: p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
12: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_default IN VARCHAR2 :=FND_API.G_FALSE,
15: p_module_type IN VARCHAR2 :=NULL,
8: (
9: -- standard IN params
10: p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
12: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_default IN VARCHAR2 :=FND_API.G_FALSE,
15: p_module_type IN VARCHAR2 :=NULL,
16: -- standard OUT params
9: -- standard IN params
10: p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
12: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_default IN VARCHAR2 :=FND_API.G_FALSE,
15: p_module_type IN VARCHAR2 :=NULL,
16: -- standard OUT params
17: x_return_status OUT NOCOPY VARCHAR2,
10: p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
12: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_default IN VARCHAR2 :=FND_API.G_FALSE,
15: p_module_type IN VARCHAR2 :=NULL,
16: -- standard OUT params
17: x_return_status OUT NOCOPY VARCHAR2,
18: x_msg_count OUT NOCOPY NUMBER,
33:
34: BEGIN
35:
36: -- Initialize API return status to success
37: x_return_status := FND_API.G_RET_STS_SUCCESS;
38:
39: -- Standard Start of API savepoint
40: SAVEPOINT create_route_pub;
41:
39: -- Standard Start of API savepoint
40: SAVEPOINT create_route_pub;
41:
42: -- Standard call to check for call compatibility.
43: IF NOT FND_API.compatible_api_call
44: (
45: l_api_version,
46: p_api_version,
47: l_api_name,
47: l_api_name,
48: G_PKG_NAME
49: )
50: THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_boolean( p_init_msg_list ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_boolean( p_init_msg_list ) THEN
56: FND_MSG_PUB.initialize;
57: END IF;
58:
59: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
82:
83: AHL_RM_ROUTE_PVT.process_route
84: (
85: p_api_version => 1.0,
86: p_init_msg_list => FND_API.G_FALSE,
87: p_commit => FND_API.G_FALSE,
88: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
89: p_default => p_default,
90: p_module_type => p_module_type,
83: AHL_RM_ROUTE_PVT.process_route
84: (
85: p_api_version => 1.0,
86: p_init_msg_list => FND_API.G_FALSE,
87: p_commit => FND_API.G_FALSE,
88: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
89: p_default => p_default,
90: p_module_type => p_module_type,
91: x_return_status => x_return_status,
84: (
85: p_api_version => 1.0,
86: p_init_msg_list => FND_API.G_FALSE,
87: p_commit => FND_API.G_FALSE,
88: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
89: p_default => p_default,
90: p_module_type => p_module_type,
91: x_return_status => x_return_status,
92: x_msg_count => x_msg_count,
97: -- to raise errors from AHL_RM_ROUTE_PVT.process_ROUTE
98: x_msg_count := FND_MSG_PUB.count_msg;
99:
100: IF x_msg_count > 0 THEN
101: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105: -- if the ROUTE ID returned is null then throw error
98: x_msg_count := FND_MSG_PUB.count_msg;
99:
100: IF x_msg_count > 0 THEN
101: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105: -- if the ROUTE ID returned is null then throw error
106: IF p_x_route_rec.ROUTE_ID IS NULL THEN
104:
105: -- if the ROUTE ID returned is null then throw error
106: IF p_x_route_rec.ROUTE_ID IS NULL THEN
107:
108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
109:
110: END IF;
111:
112:
121: l_debug_module ,
122: 'Invalid DML Operation is specified....DML Operation should be create'
123: );
124: END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: END IF;
127:
128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
129:
165: AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION
166: (
167:
168: p_api_version => 1.0,
169: p_init_msg_list => FND_API.G_FALSE,
170: p_commit => FND_API.G_FALSE,
171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
172: p_default => p_default,
173: p_module_type => p_module_type,
166: (
167:
168: p_api_version => 1.0,
169: p_init_msg_list => FND_API.G_FALSE,
170: p_commit => FND_API.G_FALSE,
171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
172: p_default => p_default,
173: p_module_type => p_module_type,
174: x_return_status => x_return_status,
167:
168: p_api_version => 1.0,
169: p_init_msg_list => FND_API.G_FALSE,
170: p_commit => FND_API.G_FALSE,
171: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
172: p_default => p_default,
173: p_module_type => p_module_type,
174: x_return_status => x_return_status,
175: x_msg_count => x_msg_count,
180: -- to raise errors from AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION
181: x_msg_count := FND_MSG_PUB.count_msg;
182:
183: IF x_msg_count > 0 THEN
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: END IF;
181: x_msg_count := FND_MSG_PUB.count_msg;
182:
183: IF x_msg_count > 0 THEN
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: END IF;
189:
199:
200: AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
201: (
202: p_api_version => 1.0,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: p_default => p_default,
207: p_module_type => p_module_type,
200: AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
201: (
202: p_api_version => 1.0,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: p_default => p_default,
207: p_module_type => p_module_type,
208: x_return_status => x_return_status,
201: (
202: p_api_version => 1.0,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: p_default => p_default,
207: p_module_type => p_module_type,
208: x_return_status => x_return_status,
209: x_msg_count => x_msg_count,
216: -- to raise errors from AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
217: x_msg_count := FND_MSG_PUB.count_msg;
218:
219: IF x_msg_count > 0 THEN
220: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223: -- populate the cost rec from the resource rec and call the cost api to add costing info
224: -- per resource rec
217: x_msg_count := FND_MSG_PUB.count_msg;
218:
219: IF x_msg_count > 0 THEN
220: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223: -- populate the cost rec from the resource rec and call the cost api to add costing info
224: -- per resource rec
225: FOR i IN 1..p_x_route_resource_tbl.count LOOP
239:
240: AHL_RM_RT_OPER_RESOURCE_PVT.define_cost_parameter
241: (
242: p_api_version => 1.0,
243: p_init_msg_list => FND_API.G_FALSE,
244: p_commit => FND_API.G_FALSE,
245: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
246: p_default => FND_API.G_FALSE,
247: p_module_type => NULL,
240: AHL_RM_RT_OPER_RESOURCE_PVT.define_cost_parameter
241: (
242: p_api_version => 1.0,
243: p_init_msg_list => FND_API.G_FALSE,
244: p_commit => FND_API.G_FALSE,
245: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
246: p_default => FND_API.G_FALSE,
247: p_module_type => NULL,
248: x_return_status => x_return_status,
241: (
242: p_api_version => 1.0,
243: p_init_msg_list => FND_API.G_FALSE,
244: p_commit => FND_API.G_FALSE,
245: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
246: p_default => FND_API.G_FALSE,
247: p_module_type => NULL,
248: x_return_status => x_return_status,
249: x_msg_count => x_msg_count,
242: p_api_version => 1.0,
243: p_init_msg_list => FND_API.G_FALSE,
244: p_commit => FND_API.G_FALSE,
245: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
246: p_default => FND_API.G_FALSE,
247: p_module_type => NULL,
248: x_return_status => x_return_status,
249: x_msg_count => x_msg_count,
250: x_msg_data => x_msg_data,
253:
254: x_msg_count := FND_MSG_PUB.count_msg;
255:
256: IF x_msg_count > 0 THEN
257: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: RAISE FND_API.G_EXC_ERROR;
259: END IF;
260:
261: END LOOP;
254: x_msg_count := FND_MSG_PUB.count_msg;
255:
256: IF x_msg_count > 0 THEN
257: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: RAISE FND_API.G_EXC_ERROR;
259: END IF;
260:
261: END LOOP;
262:
275:
276: AHL_RM_MATERIAL_AS_PVT.process_material_req
277: (
278: p_api_version => 1.0,
279: p_init_msg_list => FND_API.G_FALSE,
280: p_commit => FND_API.G_FALSE,
281: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
282: p_default => p_default,
283: p_module_type => p_module_type,
276: AHL_RM_MATERIAL_AS_PVT.process_material_req
277: (
278: p_api_version => 1.0,
279: p_init_msg_list => FND_API.G_FALSE,
280: p_commit => FND_API.G_FALSE,
281: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
282: p_default => p_default,
283: p_module_type => p_module_type,
284: x_return_status => x_return_status,
277: (
278: p_api_version => 1.0,
279: p_init_msg_list => FND_API.G_FALSE,
280: p_commit => FND_API.G_FALSE,
281: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
282: p_default => p_default,
283: p_module_type => p_module_type,
284: x_return_status => x_return_status,
285: x_msg_count => x_msg_count,
291: -- to raise errors from AHL_RM_MATERIAL_AS_PVT.process_material_req
292: x_msg_count := FND_MSG_PUB.count_msg;
293:
294: IF x_msg_count > 0 THEN
295: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: RAISE FND_API.G_EXC_ERROR;
297: END IF;
298:
299: END IF;
292: x_msg_count := FND_MSG_PUB.count_msg;
293:
294: IF x_msg_count > 0 THEN
295: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: RAISE FND_API.G_EXC_ERROR;
297: END IF;
298:
299: END IF;
300:
310:
311: AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
312: (
313: p_api_version => 1.0,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: p_default => p_default,
318: p_module_type => p_module_type,
311: AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
312: (
313: p_api_version => 1.0,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: p_default => p_default,
318: p_module_type => p_module_type,
319: x_return_status => x_return_status,
312: (
313: p_api_version => 1.0,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: p_default => p_default,
318: p_module_type => p_module_type,
319: x_return_status => x_return_status,
320: x_msg_count => x_msg_count,
326: -- to raise errors from AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
327: x_msg_count := FND_MSG_PUB.count_msg;
328:
329: IF x_msg_count > 0 THEN
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: RAISE FND_API.G_EXC_ERROR;
332: END IF;
333:
334: END IF;
327: x_msg_count := FND_MSG_PUB.count_msg;
328:
329: IF x_msg_count > 0 THEN
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: RAISE FND_API.G_EXC_ERROR;
332: END IF;
333:
334: END IF;
335:
345:
346: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
347: (
348: p_api_version => 1.0,
349: p_init_msg_list => FND_API.G_FALSE,
350: p_commit => FND_API.G_FALSE,
351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
352: p_default => p_default,
353: p_module_type => p_module_type,
346: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
347: (
348: p_api_version => 1.0,
349: p_init_msg_list => FND_API.G_FALSE,
350: p_commit => FND_API.G_FALSE,
351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
352: p_default => p_default,
353: p_module_type => p_module_type,
354: x_return_status => x_return_status,
347: (
348: p_api_version => 1.0,
349: p_init_msg_list => FND_API.G_FALSE,
350: p_commit => FND_API.G_FALSE,
351: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
352: p_default => p_default,
353: p_module_type => p_module_type,
354: x_return_status => x_return_status,
355: x_msg_count => x_msg_count,
361: -- to raise errors from AHL_RM_MATERIAL_AS_PVT.process_material_req
362: x_msg_count := FND_MSG_PUB.count_msg;
363:
364: IF x_msg_count > 0 THEN
365: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
369: END IF;
362: x_msg_count := FND_MSG_PUB.count_msg;
363:
364: IF x_msg_count > 0 THEN
365: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
369: END IF;
370:
377: );
378: END IF;
379:
380: -- Check Error Message stack.
381: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
382: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
383: fnd_log.string
384: (
385: fnd_log.level_error,
386: l_debug_module ,
387: 'Private API raised expected error....'
388: );
389: END IF;
390: RAISE FND_API.G_EXC_ERROR;
391: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
387: 'Private API raised expected error....'
388: );
389: END IF;
390: RAISE FND_API.G_EXC_ERROR;
391: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_error,
396: l_debug_module ,
397: 'Private API raised unexpected error....'
398: );
399: END IF;
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402:
403: -- Standard check of p_commit
404: IF FND_API.To_Boolean(p_commit) THEN
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402:
403: -- Standard check of p_commit
404: IF FND_API.To_Boolean(p_commit) THEN
405: COMMIT WORK;
406: END IF;
407:
408: --
406: END IF;
407:
408: --
409: EXCEPTION
410: WHEN FND_API.G_EXC_ERROR THEN
411: x_return_status := FND_API.G_RET_STS_ERROR;
412: Rollback to create_route_pub;
413: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
414: p_data => x_msg_data,
407:
408: --
409: EXCEPTION
410: WHEN FND_API.G_EXC_ERROR THEN
411: x_return_status := FND_API.G_RET_STS_ERROR;
412: Rollback to create_route_pub;
413: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
414: p_data => x_msg_data,
415: p_encoded => fnd_api.g_false);
411: x_return_status := FND_API.G_RET_STS_ERROR;
412: Rollback to create_route_pub;
413: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
414: p_data => x_msg_data,
415: p_encoded => fnd_api.g_false);
416:
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: p_data => x_msg_data,
415: p_encoded => fnd_api.g_false);
416:
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: Rollback to create_route_pub;
421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
422: p_data => x_msg_data,
415: p_encoded => fnd_api.g_false);
416:
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: Rollback to create_route_pub;
421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
422: p_data => x_msg_data,
423: p_encoded => fnd_api.g_false);
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: Rollback to create_route_pub;
421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
422: p_data => x_msg_data,
423: p_encoded => fnd_api.g_false);
424:
425: WHEN OTHERS THEN
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: Rollback to create_route_pub;
422: p_data => x_msg_data,
423: p_encoded => fnd_api.g_false);
424:
425: WHEN OTHERS THEN
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: Rollback to create_route_pub;
428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
429: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
430: p_procedure_name => 'CREATE_ROUTE',
431: p_error_text => SQLERRM);
432: END IF;
433: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
434: p_data => x_msg_data,
435: p_encoded => fnd_api.g_false);
436:
437: END Create_Route;
438:
439:
442: PROCEDURE Modify_Route
443: (
444: -- standard IN params
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
447: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
448: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
449: p_default IN VARCHAR2 :=FND_API.G_FALSE,
450: p_module_type IN VARCHAR2 :=NULL,
443: (
444: -- standard IN params
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
447: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
448: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
449: p_default IN VARCHAR2 :=FND_API.G_FALSE,
450: p_module_type IN VARCHAR2 :=NULL,
451: -- standard OUT params
444: -- standard IN params
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
447: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
448: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
449: p_default IN VARCHAR2 :=FND_API.G_FALSE,
450: p_module_type IN VARCHAR2 :=NULL,
451: -- standard OUT params
452: x_return_status OUT NOCOPY VARCHAR2,
445: p_api_version IN NUMBER,
446: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
447: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
448: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
449: p_default IN VARCHAR2 :=FND_API.G_FALSE,
450: p_module_type IN VARCHAR2 :=NULL,
451: -- standard OUT params
452: x_return_status OUT NOCOPY VARCHAR2,
453: x_msg_count OUT NOCOPY NUMBER,
470:
471: BEGIN
472:
473: -- Initialize API return status to success
474: x_return_status := FND_API.G_RET_STS_SUCCESS;
475:
476: -- Standard Start of API savepoint
477: SAVEPOINT modify_route_pub;
478:
476: -- Standard Start of API savepoint
477: SAVEPOINT modify_route_pub;
478:
479: -- Standard call to check for call compatibility.
480: IF NOT FND_API.compatible_api_call
481: (
482: l_api_version,
483: p_api_version,
484: l_api_name,
484: l_api_name,
485: G_PKG_NAME
486: )
487: THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: END IF;
490:
491: -- Initialize message list if p_init_msg_list is set to TRUE.
492: IF FND_API.to_boolean( p_init_msg_list ) THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
489: END IF;
490:
491: -- Initialize message list if p_init_msg_list is set to TRUE.
492: IF FND_API.to_boolean( p_init_msg_list ) THEN
493: FND_MSG_PUB.initialize;
494: END IF;
495:
496:
525: p_route_revision => p_route_rec.revision_number,
526: x_route_id => l_route_id ,
527: x_return_status => x_return_status
528: );
529: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
530: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
531: fnd_log.string
532: (
533: fnd_log.level_error,
534: l_debug_module ,
535: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
536: );
537: END IF;
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540:
541: END IF;
542:
558: l_route_rec := p_route_rec ;
559: AHL_RM_ROUTE_PVT.process_route
560: (
561: p_api_version => 1.0,
562: p_init_msg_list => FND_API.G_FALSE,
563: p_commit => FND_API.G_FALSE,
564: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
565: p_default => p_default,
566: p_module_type => p_module_type,
559: AHL_RM_ROUTE_PVT.process_route
560: (
561: p_api_version => 1.0,
562: p_init_msg_list => FND_API.G_FALSE,
563: p_commit => FND_API.G_FALSE,
564: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
565: p_default => p_default,
566: p_module_type => p_module_type,
567: x_return_status => x_return_status,
560: (
561: p_api_version => 1.0,
562: p_init_msg_list => FND_API.G_FALSE,
563: p_commit => FND_API.G_FALSE,
564: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
565: p_default => p_default,
566: p_module_type => p_module_type,
567: x_return_status => x_return_status,
568: x_msg_count => x_msg_count,
572: -- to raise errors from AHL_RM_ROUTE_PVT.process_route
573: x_msg_count := FND_MSG_PUB.count_msg;
574:
575: IF x_msg_count > 0 THEN
576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579:
580: ElSIF p_route_rec.DML_OPERATION IS NOT NULL THEN
573: x_msg_count := FND_MSG_PUB.count_msg;
574:
575: IF x_msg_count > 0 THEN
576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579:
580: ElSIF p_route_rec.DML_OPERATION IS NOT NULL THEN
581: -- If the DML operation is not 'U' and is also not NULL, then throw an error
588: l_debug_module ,
589: 'Invalid DML Operation is specified....DML Operation should be Update'
590: );
591: END IF;
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
594:
595:
596:
623: AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION
624: (
625:
626: p_api_version => 1.0,
627: p_init_msg_list => FND_API.G_FALSE,
628: p_commit => FND_API.G_FALSE,
629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
630: p_default => p_default,
631: p_module_type => p_module_type,
624: (
625:
626: p_api_version => 1.0,
627: p_init_msg_list => FND_API.G_FALSE,
628: p_commit => FND_API.G_FALSE,
629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
630: p_default => p_default,
631: p_module_type => p_module_type,
632: x_return_status => x_return_status,
625:
626: p_api_version => 1.0,
627: p_init_msg_list => FND_API.G_FALSE,
628: p_commit => FND_API.G_FALSE,
629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
630: p_default => p_default,
631: p_module_type => p_module_type,
632: x_return_status => x_return_status,
633: x_msg_count => x_msg_count,
639: x_msg_count := FND_MSG_PUB.count_msg;
640:
641:
642: IF x_msg_count > 0 THEN
643: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: END IF;
640:
641:
642: IF x_msg_count > 0 THEN
643: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: END IF;
648:
651:
652: AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
653: (
654: p_api_version => 1.0,
655: p_init_msg_list => FND_API.G_FALSE,
656: p_commit => FND_API.G_FALSE,
657: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
658: p_default => p_default,
659: p_module_type => p_module_type,
652: AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
653: (
654: p_api_version => 1.0,
655: p_init_msg_list => FND_API.G_FALSE,
656: p_commit => FND_API.G_FALSE,
657: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
658: p_default => p_default,
659: p_module_type => p_module_type,
660: x_return_status => x_return_status,
653: (
654: p_api_version => 1.0,
655: p_init_msg_list => FND_API.G_FALSE,
656: p_commit => FND_API.G_FALSE,
657: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
658: p_default => p_default,
659: p_module_type => p_module_type,
660: x_return_status => x_return_status,
661: x_msg_count => x_msg_count,
668: -- to raise errors from AHL_RM_RT_OPER_RESOURCE_PVT.process_rt_oper_resource
669: x_msg_count := FND_MSG_PUB.count_msg;
670:
671: IF x_msg_count > 0 THEN
672: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675:
676: -- populate the cost rec from the resource rec and call the cost api to add costing info
669: x_msg_count := FND_MSG_PUB.count_msg;
670:
671: IF x_msg_count > 0 THEN
672: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675:
676: -- populate the cost rec from the resource rec and call the cost api to add costing info
677: -- per resource rec
692:
693: AHL_RM_RT_OPER_RESOURCE_PVT.define_cost_parameter
694: (
695: p_api_version => 1.0,
696: p_init_msg_list => FND_API.G_FALSE,
697: p_commit => FND_API.G_FALSE,
698: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
699: p_default => FND_API.G_FALSE,
700: p_module_type => NULL,
693: AHL_RM_RT_OPER_RESOURCE_PVT.define_cost_parameter
694: (
695: p_api_version => 1.0,
696: p_init_msg_list => FND_API.G_FALSE,
697: p_commit => FND_API.G_FALSE,
698: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
699: p_default => FND_API.G_FALSE,
700: p_module_type => NULL,
701: x_return_status => x_return_status,
694: (
695: p_api_version => 1.0,
696: p_init_msg_list => FND_API.G_FALSE,
697: p_commit => FND_API.G_FALSE,
698: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
699: p_default => FND_API.G_FALSE,
700: p_module_type => NULL,
701: x_return_status => x_return_status,
702: x_msg_count => x_msg_count,
695: p_api_version => 1.0,
696: p_init_msg_list => FND_API.G_FALSE,
697: p_commit => FND_API.G_FALSE,
698: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
699: p_default => FND_API.G_FALSE,
700: p_module_type => NULL,
701: x_return_status => x_return_status,
702: x_msg_count => x_msg_count,
703: x_msg_data => x_msg_data,
706:
707: x_msg_count := FND_MSG_PUB.count_msg;
708:
709: IF x_msg_count > 0 THEN
710: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: END LOOP;
707: x_msg_count := FND_MSG_PUB.count_msg;
708:
709: IF x_msg_count > 0 THEN
710: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: END LOOP;
715: END IF;
721:
722: AHL_RM_MATERIAL_AS_PVT.process_material_req
723: (
724: p_api_version => 1.0,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_commit => FND_API.G_FALSE,
727: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
728: p_default => p_default,
729: p_module_type => p_module_type,
722: AHL_RM_MATERIAL_AS_PVT.process_material_req
723: (
724: p_api_version => 1.0,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_commit => FND_API.G_FALSE,
727: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
728: p_default => p_default,
729: p_module_type => p_module_type,
730: x_return_status => x_return_status,
723: (
724: p_api_version => 1.0,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_commit => FND_API.G_FALSE,
727: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
728: p_default => p_default,
729: p_module_type => p_module_type,
730: x_return_status => x_return_status,
731: x_msg_count => x_msg_count,
737: -- to raise errors from AHL_RM_MATERIAL_AS_PVT.process_material_req
738: x_msg_count := FND_MSG_PUB.count_msg;
739:
740: IF x_msg_count > 0 THEN
741: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: RAISE FND_API.G_EXC_ERROR;
743: END IF;
744:
745: END IF;
738: x_msg_count := FND_MSG_PUB.count_msg;
739:
740: IF x_msg_count > 0 THEN
741: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: RAISE FND_API.G_EXC_ERROR;
743: END IF;
744:
745: END IF;
746:
751:
752: AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
753: (
754: p_api_version => 1.0,
755: p_init_msg_list => FND_API.G_FALSE,
756: p_commit => FND_API.G_FALSE,
757: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
758: p_default => p_default,
759: p_module_type => p_module_type,
752: AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
753: (
754: p_api_version => 1.0,
755: p_init_msg_list => FND_API.G_FALSE,
756: p_commit => FND_API.G_FALSE,
757: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
758: p_default => p_default,
759: p_module_type => p_module_type,
760: x_return_status => x_return_status,
753: (
754: p_api_version => 1.0,
755: p_init_msg_list => FND_API.G_FALSE,
756: p_commit => FND_API.G_FALSE,
757: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
758: p_default => p_default,
759: p_module_type => p_module_type,
760: x_return_status => x_return_status,
761: x_msg_count => x_msg_count,
767: -- to raise errors from AHL_RM_RT_OPER_PANEL_PVT.process_rt_oper_panel
768: x_msg_count := FND_MSG_PUB.count_msg;
769:
770: IF x_msg_count > 0 THEN
771: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: END IF;
768: x_msg_count := FND_MSG_PUB.count_msg;
769:
770: IF x_msg_count > 0 THEN
771: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: END IF;
776:
779:
780: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
781: (
782: p_api_version => 1.0,
783: p_init_msg_list => FND_API.G_FALSE,
784: p_commit => FND_API.G_FALSE,
785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
786: p_default => p_default,
787: p_module_type => p_module_type,
780: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
781: (
782: p_api_version => 1.0,
783: p_init_msg_list => FND_API.G_FALSE,
784: p_commit => FND_API.G_FALSE,
785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
786: p_default => p_default,
787: p_module_type => p_module_type,
788: x_return_status => x_return_status,
781: (
782: p_api_version => 1.0,
783: p_init_msg_list => FND_API.G_FALSE,
784: p_commit => FND_API.G_FALSE,
785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
786: p_default => p_default,
787: p_module_type => p_module_type,
788: x_return_status => x_return_status,
789: x_msg_count => x_msg_count,
795: -- to raise errors from AHL_RM_MATERIAL_AS_PVT.process_material_req
796: x_msg_count := FND_MSG_PUB.count_msg;
797:
798: IF x_msg_count > 0 THEN
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: END IF;
796: x_msg_count := FND_MSG_PUB.count_msg;
797:
798: IF x_msg_count > 0 THEN
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: END IF;
804:
811: );
812: END IF;
813:
814: -- Check Error Message stack.
815: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
816: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
817: fnd_log.string
818: (
819: fnd_log.level_error,
820: l_debug_module ,
821: 'Private API raised expected error....'
822: );
823: END IF;
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
827: fnd_log.string
828: (
821: 'Private API raised expected error....'
822: );
823: END IF;
824: RAISE FND_API.G_EXC_ERROR;
825: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
827: fnd_log.string
828: (
829: fnd_log.level_error,
830: l_debug_module ,
831: 'Private API raised unexpected error....'
832: );
833: END IF;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
836:
837: -- Standard check of p_commit
838: IF FND_API.To_Boolean(p_commit) THEN
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
836:
837: -- Standard check of p_commit
838: IF FND_API.To_Boolean(p_commit) THEN
839: COMMIT WORK;
840: END IF;
841:
842: --
840: END IF;
841:
842: --
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_ERROR;
846: Rollback to modify_route_pub;
847: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
848: p_data => x_msg_data,
841:
842: --
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: x_return_status := FND_API.G_RET_STS_ERROR;
846: Rollback to modify_route_pub;
847: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
848: p_data => x_msg_data,
849: p_encoded => fnd_api.g_false);
845: x_return_status := FND_API.G_RET_STS_ERROR;
846: Rollback to modify_route_pub;
847: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
848: p_data => x_msg_data,
849: p_encoded => fnd_api.g_false);
850:
851:
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: p_data => x_msg_data,
849: p_encoded => fnd_api.g_false);
850:
851:
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: Rollback to modify_route_pub;
855: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
856: p_data => x_msg_data,
849: p_encoded => fnd_api.g_false);
850:
851:
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: Rollback to modify_route_pub;
855: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
856: p_data => x_msg_data,
857: p_encoded => fnd_api.g_false);
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: Rollback to modify_route_pub;
855: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
856: p_data => x_msg_data,
857: p_encoded => fnd_api.g_false);
858:
859: WHEN OTHERS THEN
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: Rollback to modify_route_pub;
856: p_data => x_msg_data,
857: p_encoded => fnd_api.g_false);
858:
859: WHEN OTHERS THEN
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: Rollback to modify_route_pub;
862: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
863: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
864: p_procedure_name => 'MODIFY_ROUTE',
865: p_error_text => SQLERRM);
866: END IF;
867: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
868: p_data => x_msg_data,
869: p_encoded => fnd_api.g_false);
870:
871: END Modify_Route;
872:
873:
875: PROCEDURE Delete_Route
876: (
877: -- standard IN params
878: p_api_version IN NUMBER,
879: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
880: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
881: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
882: p_default IN VARCHAR2 :=FND_API.G_FALSE,
883: p_module_type IN VARCHAR2 :=NULL,
876: (
877: -- standard IN params
878: p_api_version IN NUMBER,
879: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
880: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
881: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
882: p_default IN VARCHAR2 :=FND_API.G_FALSE,
883: p_module_type IN VARCHAR2 :=NULL,
884: -- standard OUT params
877: -- standard IN params
878: p_api_version IN NUMBER,
879: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
880: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
881: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
882: p_default IN VARCHAR2 :=FND_API.G_FALSE,
883: p_module_type IN VARCHAR2 :=NULL,
884: -- standard OUT params
885: x_return_status OUT NOCOPY VARCHAR2,
878: p_api_version IN NUMBER,
879: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
880: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
881: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
882: p_default IN VARCHAR2 :=FND_API.G_FALSE,
883: p_module_type IN VARCHAR2 :=NULL,
884: -- standard OUT params
885: x_return_status OUT NOCOPY VARCHAR2,
886: x_msg_count OUT NOCOPY NUMBER,
898: l_route_id NUMBER;
899: BEGIN
900:
901: -- Initialize API return status to success
902: x_return_status := FND_API.G_RET_STS_SUCCESS;
903:
904: -- Standard Start of API savepoint
905: SAVEPOINT delete_operation_pub;
906:
904: -- Standard Start of API savepoint
905: SAVEPOINT delete_operation_pub;
906:
907: -- Standard call to check for call compatibility.
908: IF NOT FND_API.compatible_api_call
909: (
910: l_api_version,
911: p_api_version,
912: l_api_name,
912: l_api_name,
913: G_PKG_NAME
914: )
915: THEN
916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
917: END IF;
918:
919: -- Initialize message list if p_init_msg_list is set to TRUE.
920: IF FND_API.to_boolean( p_init_msg_list ) THEN
916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
917: END IF;
918:
919: -- Initialize message list if p_init_msg_list is set to TRUE.
920: IF FND_API.to_boolean( p_init_msg_list ) THEN
921: FND_MSG_PUB.initialize;
922: END IF;
923:
924: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
951: p_route_revision => p_route_revision,
952: x_route_id => l_route_id,
953: x_return_status => x_return_status
954: );
955: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
956: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
957: fnd_log.string
958: (
959: fnd_log.level_error,
960: l_debug_module ,
961: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
962: );
963: END IF;
964: RAISE FND_API.G_EXC_ERROR;
965: END IF;
966:
967: END IF;
968:
980:
981: AHL_RM_ROUTE_PVT.delete_route
982: (
983: p_api_version => 1.0,
984: p_init_msg_list => FND_API.G_FALSE,
985: p_commit => FND_API.G_FALSE,
986: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
987: p_default => p_default,
988: p_module_type => p_module_type,
981: AHL_RM_ROUTE_PVT.delete_route
982: (
983: p_api_version => 1.0,
984: p_init_msg_list => FND_API.G_FALSE,
985: p_commit => FND_API.G_FALSE,
986: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
987: p_default => p_default,
988: p_module_type => p_module_type,
989: x_return_status => x_return_status,
982: (
983: p_api_version => 1.0,
984: p_init_msg_list => FND_API.G_FALSE,
985: p_commit => FND_API.G_FALSE,
986: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
987: p_default => p_default,
988: p_module_type => p_module_type,
989: x_return_status => x_return_status,
990: x_msg_count => x_msg_count,
995: -- to raise errors from AHL_RM_ROUTE_PVT.process_route
996: x_msg_count := FND_MSG_PUB.count_msg;
997:
998: IF x_msg_count > 0 THEN
999: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002:
1003:
996: x_msg_count := FND_MSG_PUB.count_msg;
997:
998: IF x_msg_count > 0 THEN
999: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002:
1003:
1004: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1010: );
1011: END IF;
1012:
1013: -- Check Error Message stack.
1014: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1015: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1016: fnd_log.string
1017: (
1018: fnd_log.level_error,
1019: l_debug_module ,
1020: 'Private API raised expected error....'
1021: );
1022: END IF;
1023: RAISE FND_API.G_EXC_ERROR;
1024: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1025: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1026: fnd_log.string
1027: (
1020: 'Private API raised expected error....'
1021: );
1022: END IF;
1023: RAISE FND_API.G_EXC_ERROR;
1024: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1025: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1026: fnd_log.string
1027: (
1028: fnd_log.level_error,
1029: l_debug_module ,
1030: 'Private API raised unexpected error....'
1031: );
1032: END IF;
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: END IF;
1035:
1036: -- Standard check of p_commit
1037: IF FND_API.To_Boolean(p_commit) THEN
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: END IF;
1035:
1036: -- Standard check of p_commit
1037: IF FND_API.To_Boolean(p_commit) THEN
1038: COMMIT WORK;
1039: END IF;
1040:
1041: --
1039: END IF;
1040:
1041: --
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045: Rollback to delete_route_pub;
1046: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1047: p_data => x_msg_data,
1040:
1041: --
1042: EXCEPTION
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045: Rollback to delete_route_pub;
1046: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1047: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045: Rollback to delete_route_pub;
1046: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1047: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1049:
1050:
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1047: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1049:
1050:
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: Rollback to delete_route_pub;
1054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1055: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1049:
1050:
1051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: Rollback to delete_route_pub;
1054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1055: p_data => x_msg_data,
1056: p_encoded => fnd_api.g_false);
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: Rollback to delete_route_pub;
1054: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1055: p_data => x_msg_data,
1056: p_encoded => fnd_api.g_false);
1057:
1058: WHEN OTHERS THEN
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: Rollback to delete_route_pub;
1055: p_data => x_msg_data,
1056: p_encoded => fnd_api.g_false);
1057:
1058: WHEN OTHERS THEN
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: Rollback to delete_route_pub;
1061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1062: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1063: p_procedure_name => 'DELETE_ROUTE',
1064: p_error_text => SQLERRM);
1065: END IF;
1066: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1067: p_data => x_msg_data,
1068: p_encoded => fnd_api.g_false);
1069:
1070: END Delete_Route;
1071:
1072:
1075: PROCEDURE Process_Route_Dispositions
1076: (
1077: -- standard IN params
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1081: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1082: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1083: p_module_type IN VARCHAR2 :=NULL,
1076: (
1077: -- standard IN params
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1081: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1082: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1083: p_module_type IN VARCHAR2 :=NULL,
1084: -- standard OUT params
1077: -- standard IN params
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1081: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1082: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1083: p_module_type IN VARCHAR2 :=NULL,
1084: -- standard OUT params
1085: x_return_status OUT NOCOPY VARCHAR2,
1078: p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1080: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1081: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1082: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1083: p_module_type IN VARCHAR2 :=NULL,
1084: -- standard OUT params
1085: x_return_status OUT NOCOPY VARCHAR2,
1086: x_msg_count OUT NOCOPY NUMBER,
1100: l_route_id NUMBER;
1101: BEGIN
1102:
1103: -- Initialize API return status to success
1104: x_return_status := FND_API.G_RET_STS_SUCCESS;
1105:
1106: -- Standard Start of API savepoint
1107: SAVEPOINT route_disp_pub;
1108:
1106: -- Standard Start of API savepoint
1107: SAVEPOINT route_disp_pub;
1108:
1109: -- Standard call to check for call compatibility.
1110: IF NOT FND_API.compatible_api_call
1111: (
1112: l_api_version,
1113: p_api_version,
1114: l_api_name,
1114: l_api_name,
1115: G_PKG_NAME
1116: )
1117: THEN
1118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1119: END IF;
1120:
1121: -- Initialize message list if p_init_msg_list is set to TRUE.
1122: IF FND_API.to_boolean( p_init_msg_list ) THEN
1118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1119: END IF;
1120:
1121: -- Initialize message list if p_init_msg_list is set to TRUE.
1122: IF FND_API.to_boolean( p_init_msg_list ) THEN
1123: FND_MSG_PUB.initialize;
1124: END IF;
1125:
1126:
1136: l_route_id := p_route_id;
1137:
1138: -- If Id is null derive object id from object Number and revision
1139: IF ( l_route_id IS NULL OR
1140: l_route_id = FND_API.G_MISS_NUM )
1141: THEN
1142:
1143: -- Function to convert Operation number, operation revision to id
1144: AHL_RM_ROUTE_UTIL.Route_Number_To_Id
1147: p_route_revision => p_route_revision,
1148: x_route_id => l_route_id,
1149: x_return_status => x_return_status
1150: );
1151: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1152: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1153: fnd_log.string
1154: (
1155: fnd_log.level_error,
1156: l_debug_module ,
1157: 'Error in converting Object Number, Object Revision to ID'
1158: );
1159: END IF;
1160: RAISE FND_API.G_EXC_ERROR;
1161: END IF;
1162: END IF;
1163:
1164:
1177:
1178: AHL_RM_MATERIAL_AS_PVT.process_route_efcts
1179: (
1180: p_api_version => 1.0,
1181: p_init_msg_list => FND_API.G_FALSE,
1182: p_commit => FND_API.G_FALSE,
1183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1184: p_default => p_default,
1185: p_module_type => p_module_type,
1178: AHL_RM_MATERIAL_AS_PVT.process_route_efcts
1179: (
1180: p_api_version => 1.0,
1181: p_init_msg_list => FND_API.G_FALSE,
1182: p_commit => FND_API.G_FALSE,
1183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1184: p_default => p_default,
1185: p_module_type => p_module_type,
1186: p_object_id => l_route_id ,
1179: (
1180: p_api_version => 1.0,
1181: p_init_msg_list => FND_API.G_FALSE,
1182: p_commit => FND_API.G_FALSE,
1183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1184: p_default => p_default,
1185: p_module_type => p_module_type,
1186: p_object_id => l_route_id ,
1187: x_return_status => x_return_status,
1202: l_debug_module ,
1203: 'Error Effectivity id is null'
1204: );
1205: END IF;
1206: RAISE FND_API.G_EXC_ERROR;
1207:
1208: END IF;
1209:
1210: --Call the private API to create/modify effectivity details for the header above.
1210: --Call the private API to create/modify effectivity details for the header above.
1211: AHL_RM_MATERIAL_AS_PVT.process_material_req
1212: (
1213: p_api_version => 1.0,
1214: p_init_msg_list => FND_API.G_FALSE,
1215: p_commit => FND_API.G_FALSE,
1216: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1217: p_default => p_default,
1218: p_module_type => p_module_type,
1211: AHL_RM_MATERIAL_AS_PVT.process_material_req
1212: (
1213: p_api_version => 1.0,
1214: p_init_msg_list => FND_API.G_FALSE,
1215: p_commit => FND_API.G_FALSE,
1216: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1217: p_default => p_default,
1218: p_module_type => p_module_type,
1219: x_return_status => x_return_status,
1212: (
1213: p_api_version => 1.0,
1214: p_init_msg_list => FND_API.G_FALSE,
1215: p_commit => FND_API.G_FALSE,
1216: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1217: p_default => p_default,
1218: p_module_type => p_module_type,
1219: x_return_status => x_return_status,
1220: x_msg_count => x_msg_count,
1233: );
1234: END IF;
1235:
1236: -- Check Error Message stack.
1237: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1238: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1239: fnd_log.string
1240: (
1241: fnd_log.level_error,
1242: l_debug_module ,
1243: 'Private API raised expected error....'
1244: );
1245: END IF;
1246: RAISE FND_API.G_EXC_ERROR;
1247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1248: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1249: fnd_log.string
1250: (
1243: 'Private API raised expected error....'
1244: );
1245: END IF;
1246: RAISE FND_API.G_EXC_ERROR;
1247: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1248: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1249: fnd_log.string
1250: (
1251: fnd_log.level_error,
1252: l_debug_module ,
1253: 'Private API raised unexpected error....'
1254: );
1255: END IF;
1256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1257: END IF;
1258:
1259: -- Standard check of p_commit
1260: IF FND_API.To_Boolean(p_commit) THEN
1256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1257: END IF;
1258:
1259: -- Standard check of p_commit
1260: IF FND_API.To_Boolean(p_commit) THEN
1261: COMMIT WORK;
1262: END IF;
1263:
1264: --
1262: END IF;
1263:
1264: --
1265: EXCEPTION
1266: WHEN FND_API.G_EXC_ERROR THEN
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: Rollback to route_disp_pub;
1269: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1270: p_data => x_msg_data,
1263:
1264: --
1265: EXCEPTION
1266: WHEN FND_API.G_EXC_ERROR THEN
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: Rollback to route_disp_pub;
1269: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1270: p_data => x_msg_data,
1271: p_encoded => fnd_api.g_false);
1267: x_return_status := FND_API.G_RET_STS_ERROR;
1268: Rollback to route_disp_pub;
1269: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1270: p_data => x_msg_data,
1271: p_encoded => fnd_api.g_false);
1272:
1273:
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: p_data => x_msg_data,
1271: p_encoded => fnd_api.g_false);
1272:
1273:
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: Rollback to route_disp_pub;
1277: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1278: p_data => x_msg_data,
1271: p_encoded => fnd_api.g_false);
1272:
1273:
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: Rollback to route_disp_pub;
1277: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1278: p_data => x_msg_data,
1279: p_encoded => fnd_api.g_false);
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: Rollback to route_disp_pub;
1277: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1278: p_data => x_msg_data,
1279: p_encoded => fnd_api.g_false);
1280:
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: Rollback to route_disp_pub;
1278: p_data => x_msg_data,
1279: p_encoded => fnd_api.g_false);
1280:
1281: WHEN OTHERS THEN
1282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1283: Rollback to route_disp_pub;
1284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1285: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1286: p_procedure_name => 'PROCESS_ROUTE_DISPOSITION',
1287: p_error_text => SQLERRM);
1288: END IF;
1289: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1290: p_data => x_msg_data,
1291: p_encoded => fnd_api.g_false);
1292:
1293: END Process_Route_Dispositions;
1294:
1295:
1298:
1299: PROCEDURE Create_Route_Revision
1300: (
1301: p_api_version IN NUMBER ,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1304: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1305: p_default IN VARCHAR2 := FND_API.G_FALSE,
1306: p_module_type IN VARCHAR2 := NULL,
1299: PROCEDURE Create_Route_Revision
1300: (
1301: p_api_version IN NUMBER ,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1304: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1305: p_default IN VARCHAR2 := FND_API.G_FALSE,
1306: p_module_type IN VARCHAR2 := NULL,
1307: x_return_status OUT NOCOPY VARCHAR2,
1300: (
1301: p_api_version IN NUMBER ,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1304: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1305: p_default IN VARCHAR2 := FND_API.G_FALSE,
1306: p_module_type IN VARCHAR2 := NULL,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1301: p_api_version IN NUMBER ,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1304: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1305: p_default IN VARCHAR2 := FND_API.G_FALSE,
1306: p_module_type IN VARCHAR2 := NULL,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1309: x_msg_data OUT NOCOPY VARCHAR2,
1322:
1323: BEGIN
1324:
1325: -- Initialize API return status to success
1326: x_return_status := FND_API.G_RET_STS_SUCCESS;
1327:
1328: -- Standard Start of API savepoint
1329: SAVEPOINT create_route_revision_pub;
1330:
1328: -- Standard Start of API savepoint
1329: SAVEPOINT create_route_revision_pub;
1330:
1331: -- Standard call to check for call compatibility.
1332: IF NOT FND_API.compatible_api_call
1333: (
1334: l_api_version,
1335: p_api_version,
1336: l_api_name,
1336: l_api_name,
1337: G_PKG_NAME
1338: )
1339: THEN
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342:
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1341: END IF;
1342:
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1345: IF FND_API.to_boolean( p_init_msg_list ) THEN
1346: FND_MSG_PUB.initialize;
1347: END IF;
1348:
1349: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1357:
1358: -- If Id is null derive Route id from Route Number and revision
1359: l_route_id := p_route_id;
1360: IF ( p_route_id IS NULL OR
1361: p_route_id = FND_API.G_MISS_NUM )
1362: THEN
1363: -- Function to convert Operation number, operation revision to id
1364: AHL_RM_ROUTE_UTIL.Route_Number_To_Id
1365: (
1367: p_route_revision => p_route_revision,
1368: x_route_id => l_route_id,
1369: x_return_status => x_return_status
1370: );
1371: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1372: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1373: fnd_log.string
1374: (
1375: fnd_log.level_error,
1376: l_debug_module ,
1377: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1378: );
1379: END IF;
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382: END IF;
1383:
1384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1393: -- Call the corresponding private API
1394: AHL_RM_ROUTE_PVT.create_route_revision
1395: (
1396: p_api_version => 1.0,
1397: p_init_msg_list => FND_API.G_FALSE,
1398: p_commit => FND_API.G_FALSE,
1399: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1400: p_default => p_default,
1401: p_module_type => p_module_type,
1394: AHL_RM_ROUTE_PVT.create_route_revision
1395: (
1396: p_api_version => 1.0,
1397: p_init_msg_list => FND_API.G_FALSE,
1398: p_commit => FND_API.G_FALSE,
1399: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1400: p_default => p_default,
1401: p_module_type => p_module_type,
1402: x_return_status => x_return_status,
1395: (
1396: p_api_version => 1.0,
1397: p_init_msg_list => FND_API.G_FALSE,
1398: p_commit => FND_API.G_FALSE,
1399: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1400: p_default => p_default,
1401: p_module_type => p_module_type,
1402: x_return_status => x_return_status,
1403: x_msg_count => x_msg_count,
1416: );
1417: END IF;
1418:
1419: -- Check Error Message stack.
1420: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1421: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1422: fnd_log.string
1423: (
1424: fnd_log.level_error,
1425: l_debug_module ,
1426: 'Private API raised expected error....'
1427: );
1428: END IF;
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1431: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1426: 'Private API raised expected error....'
1427: );
1428: END IF;
1429: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1431: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1432: fnd_log.string
1433: (
1434: fnd_log.level_error,
1435: l_debug_module ,
1436: 'Private API raised unexpected error....'
1437: );
1438: END IF;
1439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1440: END IF;
1441:
1442: -- Standard check of p_commit
1443: IF FND_API.To_Boolean(p_commit) THEN
1439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1440: END IF;
1441:
1442: -- Standard check of p_commit
1443: IF FND_API.To_Boolean(p_commit) THEN
1444: COMMIT WORK;
1445: END IF;
1446:
1447:
1446:
1447:
1448: --
1449: EXCEPTION
1450: WHEN FND_API.G_EXC_ERROR THEN
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: Rollback to create_route_revision_pub;
1453: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1454: p_data => x_msg_data,
1447:
1448: --
1449: EXCEPTION
1450: WHEN FND_API.G_EXC_ERROR THEN
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: Rollback to create_route_revision_pub;
1453: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1454: p_data => x_msg_data,
1455: p_encoded => fnd_api.g_false);
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: Rollback to create_route_revision_pub;
1453: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1454: p_data => x_msg_data,
1455: p_encoded => fnd_api.g_false);
1456:
1457:
1458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1454: p_data => x_msg_data,
1455: p_encoded => fnd_api.g_false);
1456:
1457:
1458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1460: Rollback to create_route_revision_pub;
1461: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1462: p_data => x_msg_data,
1455: p_encoded => fnd_api.g_false);
1456:
1457:
1458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1460: Rollback to create_route_revision_pub;
1461: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1462: p_data => x_msg_data,
1463: p_encoded => fnd_api.g_false);
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1460: Rollback to create_route_revision_pub;
1461: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1462: p_data => x_msg_data,
1463: p_encoded => fnd_api.g_false);
1464:
1465: WHEN OTHERS THEN
1466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1467: Rollback to create_route_revision_pub;
1462: p_data => x_msg_data,
1463: p_encoded => fnd_api.g_false);
1464:
1465: WHEN OTHERS THEN
1466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1467: Rollback to create_route_revision_pub;
1468: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1469: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1470: p_procedure_name => 'create_route_revision',
1471: p_error_text => SQLERRM);
1472: END IF;
1473: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1474: p_data => x_msg_data,
1475: p_encoded => fnd_api.g_false);
1476:
1477:
1478: END Create_Route_Revision;
1479:
1483:
1484: PROCEDURE Initiate_Route_Approval
1485: (
1486: p_api_version IN NUMBER ,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1489: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1490: p_default IN VARCHAR2 := FND_API.G_FALSE,
1491: p_module_type IN VARCHAR2 := NULL,
1484: PROCEDURE Initiate_Route_Approval
1485: (
1486: p_api_version IN NUMBER ,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1489: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1490: p_default IN VARCHAR2 := FND_API.G_FALSE,
1491: p_module_type IN VARCHAR2 := NULL,
1492: x_return_status OUT NOCOPY VARCHAR2,
1485: (
1486: p_api_version IN NUMBER ,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1489: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1490: p_default IN VARCHAR2 := FND_API.G_FALSE,
1491: p_module_type IN VARCHAR2 := NULL,
1492: x_return_status OUT NOCOPY VARCHAR2,
1493: x_msg_count OUT NOCOPY NUMBER,
1486: p_api_version IN NUMBER ,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1489: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1490: p_default IN VARCHAR2 := FND_API.G_FALSE,
1491: p_module_type IN VARCHAR2 := NULL,
1492: x_return_status OUT NOCOPY VARCHAR2,
1493: x_msg_count OUT NOCOPY NUMBER,
1494: x_msg_data OUT NOCOPY VARCHAR2,
1506:
1507: BEGIN
1508:
1509: -- Initialize API return status to success
1510: x_return_status := FND_API.G_RET_STS_SUCCESS;
1511:
1512: -- Standard Start of API savepoint
1513: SAVEPOINT initiate_route_approval_pub;
1514:
1512: -- Standard Start of API savepoint
1513: SAVEPOINT initiate_route_approval_pub;
1514:
1515: -- Standard call to check for call compatibility.
1516: IF NOT FND_API.compatible_api_call
1517: (
1518: l_api_version,
1519: p_api_version,
1520: l_api_name,
1520: l_api_name,
1521: G_PKG_NAME
1522: )
1523: THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: END IF;
1526:
1527: -- Initialize message list if p_init_msg_list is set to TRUE.
1528: IF FND_API.to_boolean( p_init_msg_list ) THEN
1524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1525: END IF;
1526:
1527: -- Initialize message list if p_init_msg_list is set to TRUE.
1528: IF FND_API.to_boolean( p_init_msg_list ) THEN
1529: FND_MSG_PUB.initialize;
1530: END IF;
1531:
1532: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1539: END IF;
1540: -- If Id is null derive Route id from Route Number and revision
1541: l_source_route_id := p_route_id ;
1542: IF ( p_route_id IS NULL OR
1543: p_route_id = FND_API.G_MISS_NUM )
1544: THEN
1545: -- Function to convert Operation number, operation revision to id
1546: AHL_RM_ROUTE_UTIL.Route_Number_To_Id
1547: (
1549: p_route_revision => p_route_revision,
1550: x_route_id => l_source_route_id,
1551: x_return_status => x_return_status
1552: );
1553: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1554: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1555: fnd_log.string
1556: (
1557: fnd_log.level_error,
1558: l_debug_module ,
1559: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1560: );
1561: END IF;
1562: RAISE FND_API.G_EXC_ERROR;
1563: END IF;
1564: END IF;
1565:
1566: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1576: -- Call the private API
1577: AHL_RM_APPROVAL_PVT.INITIATE_ROUTE_APPROVAL
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_FALSE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => p_default,
1584: p_module_type => p_module_type,
1577: AHL_RM_APPROVAL_PVT.INITIATE_ROUTE_APPROVAL
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_FALSE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => p_default,
1584: p_module_type => p_module_type,
1585: x_return_status => x_return_status,
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_FALSE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => p_default,
1584: p_module_type => p_module_type,
1585: x_return_status => x_return_status,
1586: x_msg_count => x_msg_count,
1600: );
1601: END IF;
1602:
1603: -- Check Error Message stack.
1604: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1605: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1606: fnd_log.string
1607: (
1608: fnd_log.level_error,
1609: l_debug_module ,
1610: 'Private API raised expected error....'
1611: );
1612: END IF;
1613: RAISE FND_API.G_EXC_ERROR;
1614: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1615: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1616: fnd_log.string
1617: (
1610: 'Private API raised expected error....'
1611: );
1612: END IF;
1613: RAISE FND_API.G_EXC_ERROR;
1614: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1615: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1616: fnd_log.string
1617: (
1618: fnd_log.level_error,
1619: l_debug_module ,
1620: 'Private API raised unexpected error....'
1621: );
1622: END IF;
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: -- Standard check of p_commit
1627: IF FND_API.To_Boolean(p_commit) THEN
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1626: -- Standard check of p_commit
1627: IF FND_API.To_Boolean(p_commit) THEN
1628: COMMIT WORK;
1629: END IF;
1630:
1631: --
1629: END IF;
1630:
1631: --
1632: EXCEPTION
1633: WHEN FND_API.G_EXC_ERROR THEN
1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: Rollback to initiate_route_approval_pub;
1636: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1637: p_data => x_msg_data,
1630:
1631: --
1632: EXCEPTION
1633: WHEN FND_API.G_EXC_ERROR THEN
1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: Rollback to initiate_route_approval_pub;
1636: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1637: p_data => x_msg_data,
1638: p_encoded => fnd_api.g_false);
1634: x_return_status := FND_API.G_RET_STS_ERROR;
1635: Rollback to initiate_route_approval_pub;
1636: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1637: p_data => x_msg_data,
1638: p_encoded => fnd_api.g_false);
1639:
1640:
1641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1637: p_data => x_msg_data,
1638: p_encoded => fnd_api.g_false);
1639:
1640:
1641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643: Rollback to initiate_route_approval_pub;
1644: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1645: p_data => x_msg_data,
1638: p_encoded => fnd_api.g_false);
1639:
1640:
1641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643: Rollback to initiate_route_approval_pub;
1644: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1645: p_data => x_msg_data,
1646: p_encoded => fnd_api.g_false);
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643: Rollback to initiate_route_approval_pub;
1644: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1645: p_data => x_msg_data,
1646: p_encoded => fnd_api.g_false);
1647:
1648: WHEN OTHERS THEN
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1650: Rollback to initiate_route_approval_pub;
1645: p_data => x_msg_data,
1646: p_encoded => fnd_api.g_false);
1647:
1648: WHEN OTHERS THEN
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1650: Rollback to initiate_route_approval_pub;
1651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1652: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1653: p_procedure_name => 'INITIATE_ROUTE_APPROVAL',
1654: p_error_text => SQLERRM);
1655: END IF;
1656: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1657: p_data => x_msg_data,
1658: p_encoded => fnd_api.g_false);
1659:
1660: END Initiate_Route_Approval;
1661:
1662: PROCEDURE Process_Route_Oper_Assoc
1661:
1662: PROCEDURE Process_Route_Oper_Assoc
1663: (
1664: p_api_version IN NUMBER := 1.0,
1665: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1668: p_default IN VARCHAR2 := FND_API.G_FALSE,
1669: p_module_type IN VARCHAR2 := NULL,
1662: PROCEDURE Process_Route_Oper_Assoc
1663: (
1664: p_api_version IN NUMBER := 1.0,
1665: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1668: p_default IN VARCHAR2 := FND_API.G_FALSE,
1669: p_module_type IN VARCHAR2 := NULL,
1670: x_return_status OUT NOCOPY VARCHAR2,
1663: (
1664: p_api_version IN NUMBER := 1.0,
1665: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1668: p_default IN VARCHAR2 := FND_API.G_FALSE,
1669: p_module_type IN VARCHAR2 := NULL,
1670: x_return_status OUT NOCOPY VARCHAR2,
1671: x_msg_count OUT NOCOPY NUMBER,
1664: p_api_version IN NUMBER := 1.0,
1665: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1668: p_default IN VARCHAR2 := FND_API.G_FALSE,
1669: p_module_type IN VARCHAR2 := NULL,
1670: x_return_status OUT NOCOPY VARCHAR2,
1671: x_msg_count OUT NOCOPY NUMBER,
1672: x_msg_data OUT NOCOPY VARCHAR2,
1683:
1684: BEGIN
1685:
1686: -- Initialize API return status to success
1687: x_return_status := FND_API.G_RET_STS_SUCCESS;
1688:
1689: -- Standard Start of API savepoint
1690: SAVEPOINT process_route_operation_as_pub;
1691:
1689: -- Standard Start of API savepoint
1690: SAVEPOINT process_route_operation_as_pub;
1691:
1692: -- Standard call to check for call compatibility.
1693: IF NOT FND_API.compatible_api_call
1694: (
1695: l_api_version,
1696: p_api_version,
1697: l_api_name,
1697: l_api_name,
1698: G_PKG_NAME
1699: )
1700: THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703:
1704: -- Initialize message list if p_init_msg_list is set to TRUE.
1705: IF FND_API.to_boolean( p_init_msg_list ) THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703:
1704: -- Initialize message list if p_init_msg_list is set to TRUE.
1705: IF FND_API.to_boolean( p_init_msg_list ) THEN
1706: FND_MSG_PUB.initialize;
1707: END IF;
1708:
1709: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1717:
1718: -- If Id is null derive Route id from Route Number and revision
1719: l_route_id := p_route_id;
1720: IF ( l_route_id IS NULL OR
1721: l_route_id = FND_API.G_MISS_NUM )
1722: THEN
1723: -- Function to convert Route number, Route revision to id
1724: AHL_RM_ROUTE_UTIL.Route_Number_To_Id
1725: (
1727: p_route_revision => p_route_revision,
1728: x_route_id => l_route_id,
1729: x_return_status => x_return_status
1730: );
1731: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1732: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1733: fnd_log.string
1734: (
1735: fnd_log.level_error,
1736: l_debug_module ,
1737: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1738: );
1739: END IF;
1740: RAISE FND_API.G_EXC_ERROR;
1741: END IF;
1742: END IF;
1743:
1744: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1753: -- Call the private API
1754: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
1755: (
1756: p_api_version => 1.0,
1757: p_init_msg_list => FND_API.G_FALSE,
1758: p_commit => FND_API.G_FALSE,
1759: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1760: p_default => p_default,
1761: p_module_type => p_module_type,
1754: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
1755: (
1756: p_api_version => 1.0,
1757: p_init_msg_list => FND_API.G_FALSE,
1758: p_commit => FND_API.G_FALSE,
1759: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1760: p_default => p_default,
1761: p_module_type => p_module_type,
1762: x_return_status => x_return_status,
1755: (
1756: p_api_version => 1.0,
1757: p_init_msg_list => FND_API.G_FALSE,
1758: p_commit => FND_API.G_FALSE,
1759: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1760: p_default => p_default,
1761: p_module_type => p_module_type,
1762: x_return_status => x_return_status,
1763: x_msg_count => x_msg_count,
1775: );
1776: END IF;
1777:
1778: -- Check Error Message stack.
1779: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1780: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1781: fnd_log.string
1782: (
1783: fnd_log.level_error,
1784: l_debug_module ,
1785: 'Private API raised expected error....'
1786: );
1787: END IF;
1788: RAISE FND_API.G_EXC_ERROR;
1789: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1790: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1791: fnd_log.string
1792: (
1785: 'Private API raised expected error....'
1786: );
1787: END IF;
1788: RAISE FND_API.G_EXC_ERROR;
1789: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1790: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1791: fnd_log.string
1792: (
1793: fnd_log.level_error,
1794: l_debug_module ,
1795: 'Private API raised unexpected error....'
1796: );
1797: END IF;
1798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1801: -- Standard check of p_commit
1802: IF FND_API.To_Boolean(p_commit) THEN
1798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1801: -- Standard check of p_commit
1802: IF FND_API.To_Boolean(p_commit) THEN
1803: COMMIT WORK;
1804: END IF;
1805:
1806:
1806:
1807:
1808: --
1809: EXCEPTION
1810: WHEN FND_API.G_EXC_ERROR THEN
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: Rollback to process_route_operation_as_pub;
1813: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1814: p_data => x_msg_data,
1807:
1808: --
1809: EXCEPTION
1810: WHEN FND_API.G_EXC_ERROR THEN
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: Rollback to process_route_operation_as_pub;
1813: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1814: p_data => x_msg_data,
1815: p_encoded => fnd_api.g_false);
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: Rollback to process_route_operation_as_pub;
1813: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1814: p_data => x_msg_data,
1815: p_encoded => fnd_api.g_false);
1816:
1817:
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1814: p_data => x_msg_data,
1815: p_encoded => fnd_api.g_false);
1816:
1817:
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820: Rollback to process_route_operation_as_pub;
1821: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1822: p_data => x_msg_data,
1815: p_encoded => fnd_api.g_false);
1816:
1817:
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820: Rollback to process_route_operation_as_pub;
1821: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1822: p_data => x_msg_data,
1823: p_encoded => fnd_api.g_false);
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820: Rollback to process_route_operation_as_pub;
1821: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1822: p_data => x_msg_data,
1823: p_encoded => fnd_api.g_false);
1824:
1825: WHEN OTHERS THEN
1826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: Rollback to process_route_operation_as_pub;
1822: p_data => x_msg_data,
1823: p_encoded => fnd_api.g_false);
1824:
1825: WHEN OTHERS THEN
1826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: Rollback to process_route_operation_as_pub;
1828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1830: p_procedure_name => 'Process_Route_Oper_Assoc',
1831: p_error_text => SQLERRM);
1832: END IF;
1833: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1834: p_data => x_msg_data,
1835: p_encoded => fnd_api.g_false);
1836:
1837: END Process_Route_Oper_Assoc;
1838:
1839:
1840: PROCEDURE Process_Route_Alt_Resources
1841: (
1842: -- standard IN params
1843: p_api_version IN NUMBER,
1844: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1845: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1846: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1847: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1848: p_module_type IN VARCHAR2 :=NULL,
1841: (
1842: -- standard IN params
1843: p_api_version IN NUMBER,
1844: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1845: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1846: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1847: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1848: p_module_type IN VARCHAR2 :=NULL,
1849: -- standard OUT params
1842: -- standard IN params
1843: p_api_version IN NUMBER,
1844: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1845: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1846: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1847: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1848: p_module_type IN VARCHAR2 :=NULL,
1849: -- standard OUT params
1850: x_return_status OUT NOCOPY VARCHAR2,
1843: p_api_version IN NUMBER,
1844: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1845: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1846: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1847: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1848: p_module_type IN VARCHAR2 :=NULL,
1849: -- standard OUT params
1850: x_return_status OUT NOCOPY VARCHAR2,
1851: x_msg_count OUT NOCOPY NUMBER,
1892:
1893:
1894:
1895: -- Initialize API return status to success
1896: x_return_status := FND_API.G_RET_STS_SUCCESS;
1897:
1898: -- Standard Start of API savepoint
1899: SAVEPOINT Process_Alt_Resources;
1900:
1898: -- Standard Start of API savepoint
1899: SAVEPOINT Process_Alt_Resources;
1900:
1901: -- Standard call to check for call compatibility.
1902: IF NOT FND_API.compatible_api_call
1903: (
1904: l_api_version,
1905: p_api_version,
1906: l_api_name,
1906: l_api_name,
1907: G_PKG_NAME
1908: )
1909: THEN
1910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1911: END IF;
1912:
1913: -- Initialize message list if p_init_msg_list is set to TRUE.
1914: IF FND_API.to_boolean( p_init_msg_list ) THEN
1910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1911: END IF;
1912:
1913: -- Initialize message list if p_init_msg_list is set to TRUE.
1914: IF FND_API.to_boolean( p_init_msg_list ) THEN
1915: FND_MSG_PUB.initialize;
1916: END IF;
1917:
1918: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1936: x_route_id => l_route_id,
1937: x_return_status => x_return_status
1938: );
1939:
1940: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1941: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1942: fnd_log.string
1943: (
1944: fnd_log.level_error,
1945: l_debug_module ||':',
1946: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
1947: );
1948: END IF;
1949: RAISE FND_API.G_EXC_ERROR;
1950: END IF;
1951: END IF;
1952:
1953: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1971: -- PRITHWI : please run this message and check what it displays.
1972: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ASO_RES_ID' );
1973: FND_MESSAGE.set_token( 'RECORD', p_resource_name );
1974: FND_MSG_PUB.add;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977:
1978: CLOSE get_res_id;
1979:
1985: IF get_rt_oper_resource%NOTFOUND THEN
1986: -- PRITHWI : please run this message and check what it displays.
1987: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
1988: FND_MSG_PUB.add;
1989: RAISE FND_API.G_EXC_ERROR;
1990: END IF;
1991:
1992: CLOSE get_rt_oper_resource;
1993:
2037: );
2038: END IF;
2039:
2040: -- Check Error Message stack.
2041: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2042: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
2043: fnd_log.string
2044: (
2045: fnd_log.level_error,
2046: l_debug_module ,
2047: 'Public API raised expected error....'
2048: );
2049: END IF;
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2052: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2053: fnd_log.string
2054: (
2047: 'Public API raised expected error....'
2048: );
2049: END IF;
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2052: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2053: fnd_log.string
2054: (
2055: fnd_log.level_error,
2056: l_debug_module ,
2057: 'Public API raised unexpected error....'
2058: );
2059: END IF;
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062:
2063: -- Standard check of p_commit
2064: IF FND_API.To_Boolean(p_commit) THEN
2060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2061: END IF;
2062:
2063: -- Standard check of p_commit
2064: IF FND_API.To_Boolean(p_commit) THEN
2065: COMMIT WORK;
2066: END IF;
2067:
2068:
2068:
2069:
2070: --
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: x_return_status := FND_API.G_RET_STS_ERROR;
2074: Rollback to Process_Alt_Resources;
2075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2076: p_data => x_msg_data,
2069:
2070: --
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: x_return_status := FND_API.G_RET_STS_ERROR;
2074: Rollback to Process_Alt_Resources;
2075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2076: p_data => x_msg_data,
2077: p_encoded => fnd_api.g_false);
2073: x_return_status := FND_API.G_RET_STS_ERROR;
2074: Rollback to Process_Alt_Resources;
2075: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2076: p_data => x_msg_data,
2077: p_encoded => fnd_api.g_false);
2078:
2079:
2080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2076: p_data => x_msg_data,
2077: p_encoded => fnd_api.g_false);
2078:
2079:
2080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2082: Rollback to Process_Alt_Resources;
2083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2084: p_data => x_msg_data,
2077: p_encoded => fnd_api.g_false);
2078:
2079:
2080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2082: Rollback to Process_Alt_Resources;
2083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2084: p_data => x_msg_data,
2085: p_encoded => fnd_api.g_false);
2081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2082: Rollback to Process_Alt_Resources;
2083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2084: p_data => x_msg_data,
2085: p_encoded => fnd_api.g_false);
2086:
2087: WHEN OTHERS THEN
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: Rollback to Process_Alt_Resources;
2084: p_data => x_msg_data,
2085: p_encoded => fnd_api.g_false);
2086:
2087: WHEN OTHERS THEN
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: Rollback to Process_Alt_Resources;
2090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2091: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2092: p_procedure_name => 'Process_Route_Alt_Resources',
2093: p_error_text => SQLERRM);
2094: END IF;
2095: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2096: p_data => x_msg_data,
2097: p_encoded => fnd_api.g_false);
2098:
2099: END Process_Route_Alt_Resources;
2100:
2101: