[Home] [Help]
15: ------------------------------------
16: PROCEDURE Process_Route_Details
17: (
18: p_api_version IN NUMBER := '1.0',
19: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
20: p_commit IN VARCHAR2 := FND_API.G_FALSE,
21: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
22: p_default IN VARCHAR2 := FND_API.G_FALSE,
23: p_module_type IN VARCHAR2 := NULL,
16: PROCEDURE Process_Route_Details
17: (
18: p_api_version IN NUMBER := '1.0',
19: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
20: p_commit IN VARCHAR2 := FND_API.G_FALSE,
21: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
22: p_default IN VARCHAR2 := FND_API.G_FALSE,
23: p_module_type IN VARCHAR2 := NULL,
24: x_return_status OUT NOCOPY VARCHAR2,
17: (
18: p_api_version IN NUMBER := '1.0',
19: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
20: p_commit IN VARCHAR2 := FND_API.G_FALSE,
21: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
22: p_default IN VARCHAR2 := FND_API.G_FALSE,
23: p_module_type IN VARCHAR2 := NULL,
24: x_return_status OUT NOCOPY VARCHAR2,
25: x_msg_count OUT NOCOPY NUMBER,
18: p_api_version IN NUMBER := '1.0',
19: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
20: p_commit IN VARCHAR2 := FND_API.G_FALSE,
21: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
22: p_default IN VARCHAR2 := FND_API.G_FALSE,
23: p_module_type IN VARCHAR2 := NULL,
24: x_return_status OUT NOCOPY VARCHAR2,
25: x_msg_count OUT NOCOPY NUMBER,
26: x_msg_data OUT NOCOPY VARCHAR2,
35: ------------------------------------
36: PROCEDURE Process_OP_Details
37: (
38: p_api_version IN NUMBER := '1.0',
39: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_default IN VARCHAR2 := FND_API.G_FALSE,
43: p_module_type IN VARCHAR2 := NULL,
36: PROCEDURE Process_OP_Details
37: (
38: p_api_version IN NUMBER := '1.0',
39: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_default IN VARCHAR2 := FND_API.G_FALSE,
43: p_module_type IN VARCHAR2 := NULL,
44: x_return_status OUT NOCOPY VARCHAR2,
37: (
38: p_api_version IN NUMBER := '1.0',
39: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_default IN VARCHAR2 := FND_API.G_FALSE,
43: p_module_type IN VARCHAR2 := NULL,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
38: p_api_version IN NUMBER := '1.0',
39: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
40: p_commit IN VARCHAR2 := FND_API.G_FALSE,
41: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
42: p_default IN VARCHAR2 := FND_API.G_FALSE,
43: p_module_type IN VARCHAR2 := NULL,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
46: x_msg_data OUT NOCOPY VARCHAR2,
67: ------------------------------------------------------------------------------------------------------------------
68: PROCEDURE Process_Route_Operations
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_module_type IN VARCHAR2,
75: p_context IN VARCHAR2,
68: PROCEDURE Process_Route_Operations
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_module_type IN VARCHAR2,
75: p_context IN VARCHAR2,
76: p_pub_date IN DATE,
69: (
70: p_api_version IN NUMBER := 1.0,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: p_module_type IN VARCHAR2,
75: p_context IN VARCHAR2,
76: p_pub_date IN DATE,
77: p_enigma_route_rec IN enigma_route_rec_type,
131: l_api_version CONSTANT NUMBER := 1.0;
132: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'AHL_ENIGMA_ROUTE_OP_PUB'||'.'||l_api_name;
133:
134: l_dummy VARCHAR2(1);
135: l_route_exists VARCHAR2(1) := FND_API.G_FALSE;
136: l_route_id VARCHAR2(2000);
137:
138:
139: l_route_data_rec get_route_data%ROWTYPE;
144: -- Standard start of API savepoint
145: SAVEPOINT Process_Route_Operations_SP;
146:
147: -- Initialize return status to success before any code logic/validation
148: x_return_status:= FND_API.G_RET_STS_SUCCESS;
149:
150: -- Standard call to check for call compatibility
151: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
152: THEN
147: -- Initialize return status to success before any code logic/validation
148: x_return_status:= FND_API.G_RET_STS_SUCCESS;
149:
150: -- Standard call to check for call compatibility
151: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
152: THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
149:
150: -- Standard call to check for call compatibility
151: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
152: THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
157: IF FND_API.TO_BOOLEAN(p_init_msg_list)
152: THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
157: IF FND_API.TO_BOOLEAN(p_init_msg_list)
158: THEN
159: FND_MSG_PUB.INITIALIZE;
160: END IF;
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: END IF;
155:
156: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
157: IF FND_API.TO_BOOLEAN(p_init_msg_list)
158: THEN
159: FND_MSG_PUB.INITIALIZE;
160: END IF;
161:
245: -- Calling the procedure to process the route and operation details
246: PROCESS_ROUTE_DETAILS
247: (
248: '1.0',
249: FND_API.G_TRUE,
250: FND_API.G_FALSE,
251: FND_API.G_VALID_LEVEL_FULL,
252: FND_API.G_FALSE,
253: NULL,
246: PROCESS_ROUTE_DETAILS
247: (
248: '1.0',
249: FND_API.G_TRUE,
250: FND_API.G_FALSE,
251: FND_API.G_VALID_LEVEL_FULL,
252: FND_API.G_FALSE,
253: NULL,
254: x_return_status,
247: (
248: '1.0',
249: FND_API.G_TRUE,
250: FND_API.G_FALSE,
251: FND_API.G_VALID_LEVEL_FULL,
252: FND_API.G_FALSE,
253: NULL,
254: x_return_status,
255: x_msg_count,
248: '1.0',
249: FND_API.G_TRUE,
250: FND_API.G_FALSE,
251: FND_API.G_VALID_LEVEL_FULL,
252: FND_API.G_FALSE,
253: NULL,
254: x_return_status,
255: x_msg_count,
256: x_msg_data,
326: END IF;
327:
328: -- Process the incoming enigma record.
329: -- Validate if the Enigma Route Id is null throw an error if the id is null.
330: IF (p_enigma_route_rec.route_ID IS NULL OR p_enigma_route_rec.ROUTE_ID = FND_API.G_MISS_CHAR)
331: THEN
332: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_ID_NULL');
333: FND_MSG_PUB.ADD;
334: RAISE FND_API.G_EXC_ERROR;
330: IF (p_enigma_route_rec.route_ID IS NULL OR p_enigma_route_rec.ROUTE_ID = FND_API.G_MISS_CHAR)
331: THEN
332: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_ID_NULL');
333: FND_MSG_PUB.ADD;
334: RAISE FND_API.G_EXC_ERROR;
335: END IF;
336:
337: -- Calling the procedure to process the route and operation details passing the input record
338: -- p_enigma_route_rec, irrespective of whether the route is in the staging table or not.
340: -- staging table and the operation is not delete ?!?!
341: PROCESS_ROUTE_DETAILS
342: (
343: '1.0',
344: FND_API.G_TRUE,
345: FND_API.G_FALSE,
346: FND_API.G_VALID_LEVEL_FULL,
347: FND_API.G_FALSE,
348: NULL,
341: PROCESS_ROUTE_DETAILS
342: (
343: '1.0',
344: FND_API.G_TRUE,
345: FND_API.G_FALSE,
346: FND_API.G_VALID_LEVEL_FULL,
347: FND_API.G_FALSE,
348: NULL,
349: x_return_status,
342: (
343: '1.0',
344: FND_API.G_TRUE,
345: FND_API.G_FALSE,
346: FND_API.G_VALID_LEVEL_FULL,
347: FND_API.G_FALSE,
348: NULL,
349: x_return_status,
350: x_msg_count,
343: '1.0',
344: FND_API.G_TRUE,
345: FND_API.G_FALSE,
346: FND_API.G_VALID_LEVEL_FULL,
347: FND_API.G_FALSE,
348: NULL,
349: x_return_status,
350: x_msg_count,
351: x_msg_data,
359: -- Check Error Message stack.
360: x_msg_count := FND_MSG_PUB.count_msg;
361: IF x_msg_count > 0
362: THEN
363: RAISE FND_API.G_EXC_ERROR;
364: END IF;
365:
366: -- Standard check for p_commit
367: IF FND_API.To_Boolean (p_commit)
363: RAISE FND_API.G_EXC_ERROR;
364: END IF;
365:
366: -- Standard check for p_commit
367: IF FND_API.To_Boolean (p_commit)
368: THEN
369: COMMIT WORK;
370: END IF;
371:
371:
372: -- Standard call to get message count and if count is 1, get message info
373: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
374: p_data => x_msg_data,
375: p_encoded => fnd_api.g_false );
376:
377: EXCEPTION
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := FND_API.G_RET_STS_ERROR;
374: p_data => x_msg_data,
375: p_encoded => fnd_api.g_false );
376:
377: EXCEPTION
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: Rollback to Process_Route_Operations_SP;
381: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
382: p_data => x_msg_data,
375: p_encoded => fnd_api.g_false );
376:
377: EXCEPTION
378: WHEN FND_API.G_EXC_ERROR THEN
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: Rollback to Process_Route_Operations_SP;
381: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
382: p_data => x_msg_data,
383: p_encoded => fnd_api.g_false);
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: Rollback to Process_Route_Operations_SP;
381: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
382: p_data => x_msg_data,
383: p_encoded => fnd_api.g_false);
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Process_Route_Operations_SP;
381: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
382: p_data => x_msg_data,
383: p_encoded => fnd_api.g_false);
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Process_Route_Operations_SP;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
382: p_data => x_msg_data,
383: p_encoded => fnd_api.g_false);
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Process_Route_Operations_SP;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
390: p_encoded => fnd_api.g_false);
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Process_Route_Operations_SP;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
390: p_encoded => fnd_api.g_false);
391:
392: WHEN OTHERS THEN
393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: Rollback to Process_Route_Operations_SP;
389: p_data => x_msg_data,
390: p_encoded => fnd_api.g_false);
391:
392: WHEN OTHERS THEN
393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: Rollback to Process_Route_Operations_SP;
395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
396: THEN
397: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
399: p_error_text => SUBSTR(SQLERRM,1,240));
400: END IF;
401: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
402: p_data => x_msg_data,
403: p_encoded => fnd_api.g_false);
404:
405: END Process_Route_Operations;
406:
407:
407:
408: PROCEDURE Process_Route_Details
409: (
410: p_api_version IN NUMBER := '1.0',
411: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
412: p_commit IN VARCHAR2 := FND_API.G_FALSE,
413: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
414: p_default IN VARCHAR2 := FND_API.G_FALSE,
415: p_module_type IN VARCHAR2 := NULL,
408: PROCEDURE Process_Route_Details
409: (
410: p_api_version IN NUMBER := '1.0',
411: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
412: p_commit IN VARCHAR2 := FND_API.G_FALSE,
413: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
414: p_default IN VARCHAR2 := FND_API.G_FALSE,
415: p_module_type IN VARCHAR2 := NULL,
416: x_return_status OUT NOCOPY VARCHAR2,
409: (
410: p_api_version IN NUMBER := '1.0',
411: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
412: p_commit IN VARCHAR2 := FND_API.G_FALSE,
413: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
414: p_default IN VARCHAR2 := FND_API.G_FALSE,
415: p_module_type IN VARCHAR2 := NULL,
416: x_return_status OUT NOCOPY VARCHAR2,
417: x_msg_count OUT NOCOPY NUMBER,
410: p_api_version IN NUMBER := '1.0',
411: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
412: p_commit IN VARCHAR2 := FND_API.G_FALSE,
413: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
414: p_default IN VARCHAR2 := FND_API.G_FALSE,
415: p_module_type IN VARCHAR2 := NULL,
416: x_return_status OUT NOCOPY VARCHAR2,
417: x_msg_count OUT NOCOPY NUMBER,
418: x_msg_data OUT NOCOPY VARCHAR2,
455: -- Standard start of API savepoint
456: SAVEPOINT Process_Route_Details_SP;
457:
458: -- Initialize return status to success before any code logic/validation
459: x_return_status:= FND_API.G_RET_STS_SUCCESS;
460:
461: -- Standard call to check for call compatibility
462: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
463: THEN
458: -- Initialize return status to success before any code logic/validation
459: x_return_status:= FND_API.G_RET_STS_SUCCESS;
460:
461: -- Standard call to check for call compatibility
462: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
463: THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
460:
461: -- Standard call to check for call compatibility
462: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
463: THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
467: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
468: IF FND_API.TO_BOOLEAN(p_init_msg_list)
463: THEN
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
467: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
468: IF FND_API.TO_BOOLEAN(p_init_msg_list)
469: THEN
470: FND_MSG_PUB.INITIALIZE;
471: END IF;
464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
465: END IF;
466:
467: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
468: IF FND_API.TO_BOOLEAN(p_init_msg_list)
469: THEN
470: FND_MSG_PUB.INITIALIZE;
471: END IF;
472:
533: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
534: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_route_rec.change_flag);
535: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_route_rec.route_id);
536: FND_MSG_PUB.ADD;
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539:
540: -- When all clear, process the route rec by checking the change_flag (DML Operation).
541: -- Check if the flag id delete and if so delete the route from the CMRO system .
655: -- Call delete_route procedure to delete the route from CMRO End.
656: AHL_RM_ROUTE_PVT.delete_route
657: (
658: '1.0',
659: FND_API.G_TRUE,
660: FND_API.G_FALSE,
661: FND_API.G_VALID_LEVEL_FULL,
662: FND_API.G_FALSE,
663: 'ENIGMA',
656: AHL_RM_ROUTE_PVT.delete_route
657: (
658: '1.0',
659: FND_API.G_TRUE,
660: FND_API.G_FALSE,
661: FND_API.G_VALID_LEVEL_FULL,
662: FND_API.G_FALSE,
663: 'ENIGMA',
664: x_return_status,
657: (
658: '1.0',
659: FND_API.G_TRUE,
660: FND_API.G_FALSE,
661: FND_API.G_VALID_LEVEL_FULL,
662: FND_API.G_FALSE,
663: 'ENIGMA',
664: x_return_status,
665: x_msg_count,
658: '1.0',
659: FND_API.G_TRUE,
660: FND_API.G_FALSE,
661: FND_API.G_VALID_LEVEL_FULL,
662: FND_API.G_FALSE,
663: 'ENIGMA',
664: x_return_status,
665: x_msg_count,
666: x_msg_data,
688: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_ROUTE_PVT.create_route_revision');
689: END IF;
690:
691: -- Check the return status , and if the status is not success , then raise an error
692: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
693: IF (l_log_statement >= l_log_current_level) THEN
694: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.delete_route Error');
695: END IF;
696: RAISE FND_API.G_EXC_ERROR;
692: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
693: IF (l_log_statement >= l_log_current_level) THEN
694: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.delete_route Error');
695: END IF;
696: RAISE FND_API.G_EXC_ERROR;
697: END IF;
698:
699: IF (l_log_statement >= l_log_current_level) THEN
700: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.delete_route -> Deleted');
705: -- Raise an error if the route is not found in CMRO..
706: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_DONOT_EXIST');
707: FND_MSG_PUB.ADD;
708: CLOSE get_latest_route_rev;
709: RAISE FND_API.G_EXC_ERROR;
710: END IF; -- Cursor
711: CLOSE get_latest_route_rev;
712: END IF; -- change Flag
713:
884: -- Call the API to create a new revision of the route
885: AHL_RM_ROUTE_PVT.create_route_revision
886: (
887: '1.0',
888: FND_API.G_TRUE,
889: FND_API.G_FALSE,
890: FND_API.G_VALID_LEVEL_FULL,
891: FND_API.G_FALSE,
892: NULL,
885: AHL_RM_ROUTE_PVT.create_route_revision
886: (
887: '1.0',
888: FND_API.G_TRUE,
889: FND_API.G_FALSE,
890: FND_API.G_VALID_LEVEL_FULL,
891: FND_API.G_FALSE,
892: NULL,
893: x_return_status,
886: (
887: '1.0',
888: FND_API.G_TRUE,
889: FND_API.G_FALSE,
890: FND_API.G_VALID_LEVEL_FULL,
891: FND_API.G_FALSE,
892: NULL,
893: x_return_status,
894: x_msg_count,
887: '1.0',
888: FND_API.G_TRUE,
889: FND_API.G_FALSE,
890: FND_API.G_VALID_LEVEL_FULL,
891: FND_API.G_FALSE,
892: NULL,
893: x_return_status,
894: x_msg_count,
895: x_msg_data,
918: IF (l_log_statement >= l_log_current_level) THEN
919: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_ROUTE_PVT.create_route_revision');
920: END IF;
921:
922: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
923: IF (l_log_statement >= l_log_current_level) THEN
924: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.create_route_revision Error');
925: END IF;
926: RAISE FND_API.G_EXC_ERROR;
922: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
923: IF (l_log_statement >= l_log_current_level) THEN
924: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.create_route_revision Error');
925: END IF;
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
929: IF (l_log_statement >= l_log_current_level) THEN
930: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.create_route_revision -> revision Created');
942: );
943: END IF;
944:
945: -- If the return status is success, populate the input rec for process_route for updation
946: IF ( x_route_id <> FND_API.G_MISS_NUM AND x_route_id IS NOT NULL) THEN
947: p_process_route_input_rec.ROUTE_ID := x_route_id ;
948: END IF;
949:
950: IF p_enigma_route_rec.pdf IS NOT NULL
961: IF (l_log_statement >= l_log_current_level) THEN
962: fnd_log.string(fnd_log.level_statement,l_debug_module,'After UPLOAD_REVISION_REPORT Call ');
963: END IF;
964:
965: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
966: IF (l_log_statement >= l_log_current_level) THEN
967: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
968: END IF;
969: RAISE FND_API.G_EXC_ERROR;
965: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
966: IF (l_log_statement >= l_log_current_level) THEN
967: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
968: END IF;
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972: IF (l_log_statement >= l_log_current_level) THEN
973: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT-> File upload done');
974: fnd_log.string(fnd_log.level_statement,l_debug_module,'File Id -> = ' || x_file_id);
975: END IF;
976:
977: -- If the return status is success, populate the input rec for process_route for updation
978: IF ( x_file_id <> FND_API.G_MISS_NUM AND x_file_id IS NOT NULL) THEN
979:
980: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
981: THEN
982:
1004:
1005: SELECT object_version_number INTO l_ovn from
1006: AHL_ROUTES_V where route_id = x_route_id;
1007:
1008: IF (l_ovn <> FND_API.G_MISS_NUM AND l_ovn IS NOT NULL ) THEN
1009: p_process_route_input_rec.object_version_number := l_ovn;
1010: END IF;
1011:
1012: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1008: IF (l_ovn <> FND_API.G_MISS_NUM AND l_ovn IS NOT NULL ) THEN
1009: p_process_route_input_rec.object_version_number := l_ovn;
1010: END IF;
1011:
1012: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1013: p_process_route_input_rec.model_code := p_context;
1014: END IF;
1015:
1016: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1012: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1013: p_process_route_input_rec.model_code := p_context;
1014: END IF;
1015:
1016: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1017: p_process_route_input_rec.enigma_publish_date := p_pub_date ;
1018: END IF;
1019: /*
1020: Route No is not updatable
1017: p_process_route_input_rec.enigma_publish_date := p_pub_date ;
1018: END IF;
1019: /*
1020: Route No is not updatable
1021: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1022: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1023: END IF;
1024: */
1025:
1022: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1023: END IF;
1024: */
1025:
1026: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1027: p_process_route_input_rec.TITLE := p_enigma_route_rec.description;
1028: END IF;
1029:
1030: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1026: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1027: p_process_route_input_rec.TITLE := p_enigma_route_rec.description;
1028: END IF;
1029:
1030: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1031: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1032: END IF;
1033:
1034: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1030: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1031: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1032: END IF;
1033:
1034: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1035: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1036: END IF;
1037:
1038: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1034: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1035: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1036: END IF;
1037:
1038: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1039: p_process_route_input_rec.enigma_route_id := p_enigma_route_rec.route_id;
1040: END IF;
1041:
1042: p_process_route_input_rec.dml_operation := 'U';
1055: -- Call the API for update
1056: AHL_RM_ROUTE_PVT.process_route
1057: (
1058: '1.0',
1059: FND_API.G_TRUE,
1060: FND_API.G_FALSE,
1061: FND_API.G_VALID_LEVEL_FULL,
1062: FND_API.G_FALSE,
1063: NULL,
1056: AHL_RM_ROUTE_PVT.process_route
1057: (
1058: '1.0',
1059: FND_API.G_TRUE,
1060: FND_API.G_FALSE,
1061: FND_API.G_VALID_LEVEL_FULL,
1062: FND_API.G_FALSE,
1063: NULL,
1064: x_return_status,
1057: (
1058: '1.0',
1059: FND_API.G_TRUE,
1060: FND_API.G_FALSE,
1061: FND_API.G_VALID_LEVEL_FULL,
1062: FND_API.G_FALSE,
1063: NULL,
1064: x_return_status,
1065: x_msg_count,
1058: '1.0',
1059: FND_API.G_TRUE,
1060: FND_API.G_FALSE,
1061: FND_API.G_VALID_LEVEL_FULL,
1062: FND_API.G_FALSE,
1063: NULL,
1064: x_return_status,
1065: x_msg_count,
1066: x_msg_data,
1087: IF (l_log_statement >= l_log_current_level) THEN
1088: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_ROUTE_PVT.process_route');
1089: END IF;
1090:
1091: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1092: IF (l_log_statement >= l_log_current_level) THEN
1093: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1094: END IF;
1095: RAISE FND_API.G_EXC_ERROR;
1091: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1092: IF (l_log_statement >= l_log_current_level) THEN
1093: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1094: END IF;
1095: RAISE FND_API.G_EXC_ERROR;
1096: END IF;
1097:
1098: IF (l_log_statement >= l_log_current_level) THEN
1099: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route -> updation Successful');
1169:
1170: Process_OP_Details
1171: (
1172: '1.0',
1173: FND_API.G_TRUE,
1174: FND_API.G_FALSE,
1175: FND_API.G_VALID_LEVEL_FULL,
1176: FND_API.G_FALSE,
1177: NULL,
1170: Process_OP_Details
1171: (
1172: '1.0',
1173: FND_API.G_TRUE,
1174: FND_API.G_FALSE,
1175: FND_API.G_VALID_LEVEL_FULL,
1176: FND_API.G_FALSE,
1177: NULL,
1178: x_return_status,
1171: (
1172: '1.0',
1173: FND_API.G_TRUE,
1174: FND_API.G_FALSE,
1175: FND_API.G_VALID_LEVEL_FULL,
1176: FND_API.G_FALSE,
1177: NULL,
1178: x_return_status,
1179: x_msg_count,
1172: '1.0',
1173: FND_API.G_TRUE,
1174: FND_API.G_FALSE,
1175: FND_API.G_VALID_LEVEL_FULL,
1176: FND_API.G_FALSE,
1177: NULL,
1178: x_return_status,
1179: x_msg_count,
1180: x_msg_data,
1198: IF (l_log_statement >= l_log_current_level) THEN
1199: fnd_log.string(fnd_log.level_statement,l_debug_module,'After Process_OP_Details');
1200: END IF;
1201:
1202: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1203: IF (l_log_statement >= l_log_current_level) THEN
1204: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1205: END IF;
1206: RAISE FND_API.G_EXC_ERROR;
1202: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1203: IF (l_log_statement >= l_log_current_level) THEN
1204: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1205: END IF;
1206: RAISE FND_API.G_EXC_ERROR;
1207: END IF;
1208: END LOOP;
1209: END IF; -- oper table count
1210:
1223: 'Inside Draft'
1224: );
1225: END IF;
1226:
1227: IF (p_pub_date IS NULL AND p_pub_date = FND_API.G_MISS_DATE)
1228: THEN
1229: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_PUB_DATE_NULL');
1230: FND_MSG_PUB.ADD;
1231: END IF;
1230: FND_MSG_PUB.ADD;
1231: END IF;
1232:
1233: -- Validate is context is Null and If so throw an error
1234: IF (p_context IS NULL AND p_context = FND_API.G_MISS_CHAR)
1235: THEN
1236: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
1237: FND_MSG_PUB.ADD;
1238: END IF;
1237: FND_MSG_PUB.ADD;
1238: END IF;
1239:
1240: -- Validate is Enigma_Id is Null and If so throw an error
1241: IF (p_enigma_route_rec.enigma_ID IS NULL AND p_enigma_route_rec.enigma_ID = FND_API.G_MISS_CHAR)
1242: THEN
1243: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ENIGMA_ID_NULL');
1244: FND_MSG_PUB.ADD;
1245: END IF;
1247: -- Check the error stack and raise error messages , if any
1248: x_msg_count := FND_MSG_PUB.count_msg;
1249: IF x_msg_count > 0
1250: THEN
1251: RAISE FND_API.G_EXC_ERROR;
1252: END IF;
1253:
1254: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1255: THEN
1277: IF (l_log_statement >= l_log_current_level) THEN
1278: fnd_log.string(fnd_log.level_statement,l_debug_module,'After UPLOAD_REVISION_REPORT Call ');
1279: END IF;
1280:
1281: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1282: IF (l_log_statement >= l_log_current_level) THEN
1283: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
1284: END IF;
1285: RAISE FND_API.G_EXC_ERROR;
1281: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1282: IF (l_log_statement >= l_log_current_level) THEN
1283: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
1284: END IF;
1285: RAISE FND_API.G_EXC_ERROR;
1286: END IF;
1287:
1288: IF (l_log_statement >= l_log_current_level) THEN
1289: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT-> File upload done');
1301: );
1302: END IF;
1303:
1304: -- If the return status is success, populate the input rec for process_route for updation
1305: IF ( x_file_id <> FND_API.G_MISS_NUM AND x_file_id IS NOT NULL) THEN
1306: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1307: THEN
1308:
1309: fnd_log.string
1315: END IF;
1316: p_process_route_input_rec.FILE_ID := x_file_id ;
1317: END IF;
1318:
1319: IF ( l_get_latest_route_rev.route_id <> FND_API.G_MISS_NUM AND l_get_latest_route_rev.route_id IS NOT NULL) THEN
1320: p_process_route_input_rec.ROUTE_ID := l_get_latest_route_rev.route_id;
1321: END IF;
1322:
1323: IF (l_get_latest_route_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_route_rev.object_version_number IS NOT NULL ) THEN
1319: IF ( l_get_latest_route_rev.route_id <> FND_API.G_MISS_NUM AND l_get_latest_route_rev.route_id IS NOT NULL) THEN
1320: p_process_route_input_rec.ROUTE_ID := l_get_latest_route_rev.route_id;
1321: END IF;
1322:
1323: IF (l_get_latest_route_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_route_rev.object_version_number IS NOT NULL ) THEN
1324: p_process_route_input_rec.object_version_number := l_get_latest_route_rev.object_version_number;
1325: END IF;
1326:
1327: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1323: IF (l_get_latest_route_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_route_rev.object_version_number IS NOT NULL ) THEN
1324: p_process_route_input_rec.object_version_number := l_get_latest_route_rev.object_version_number;
1325: END IF;
1326:
1327: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1328: p_process_route_input_rec.model_code := p_context;
1329: END IF;
1330:
1331: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1327: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1328: p_process_route_input_rec.model_code := p_context;
1329: END IF;
1330:
1331: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1332: p_process_route_input_rec.enigma_publish_date := p_pub_date;
1333: END IF;
1334:
1335: /* Route no is not updatable
1332: p_process_route_input_rec.enigma_publish_date := p_pub_date;
1333: END IF;
1334:
1335: /* Route no is not updatable
1336: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1337: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1338: END IF;
1339: */
1340: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1336: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1337: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1338: END IF;
1339: */
1340: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1341: p_process_route_input_rec.title := p_enigma_route_rec.description;
1342: END IF;
1343:
1344: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1340: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1341: p_process_route_input_rec.title := p_enigma_route_rec.description;
1342: END IF;
1343:
1344: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1345: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1346: END IF;
1347:
1348: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1344: IF (p_enigma_route_rec.revision_date <> FND_API.G_MISS_DATE AND p_enigma_route_rec.revision_date IS NOT NULL ) THEN
1345: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1346: END IF;
1347:
1348: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1349: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1350: END IF;
1351:
1352: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1348: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1349: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1350: END IF;
1351:
1352: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1353: p_process_route_input_rec.enigma_route_id := p_enigma_route_rec.route_id;
1354: END IF;
1355:
1356: p_process_route_input_rec.dml_operation := 'U';
1369: -- Call the API for update.
1370: AHL_RM_ROUTE_PVT.process_route
1371: (
1372: '1.0',
1373: FND_API.G_TRUE,
1374: FND_API.G_FALSE,
1375: FND_API.G_VALID_LEVEL_FULL,
1376: FND_API.G_FALSE,
1377: NULL,
1370: AHL_RM_ROUTE_PVT.process_route
1371: (
1372: '1.0',
1373: FND_API.G_TRUE,
1374: FND_API.G_FALSE,
1375: FND_API.G_VALID_LEVEL_FULL,
1376: FND_API.G_FALSE,
1377: NULL,
1378: x_return_status,
1371: (
1372: '1.0',
1373: FND_API.G_TRUE,
1374: FND_API.G_FALSE,
1375: FND_API.G_VALID_LEVEL_FULL,
1376: FND_API.G_FALSE,
1377: NULL,
1378: x_return_status,
1379: x_msg_count,
1372: '1.0',
1373: FND_API.G_TRUE,
1374: FND_API.G_FALSE,
1375: FND_API.G_VALID_LEVEL_FULL,
1376: FND_API.G_FALSE,
1377: NULL,
1378: x_return_status,
1379: x_msg_count,
1380: x_msg_data,
1395: IF (l_log_statement >= l_log_current_level) THEN
1396: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_ROUTE_PVT.process_route');
1397: END IF;
1398:
1399: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1400: IF (l_log_statement >= l_log_current_level) THEN
1401: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1402: END IF;
1403: RAISE FND_API.G_EXC_ERROR;
1399: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1400: IF (l_log_statement >= l_log_current_level) THEN
1401: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1402: END IF;
1403: RAISE FND_API.G_EXC_ERROR;
1404: END IF;
1405:
1406: -- If the return status is success, then add the transaction to the stating table and status as "Success"
1407: INSERT INTO AHL_RT_OPER_INTERFACE
1440:
1441: Process_OP_Details
1442: (
1443: '1.0',
1444: FND_API.G_TRUE,
1445: FND_API.G_FALSE,
1446: FND_API.G_VALID_LEVEL_FULL,
1447: FND_API.G_FALSE,
1448: NULL,
1441: Process_OP_Details
1442: (
1443: '1.0',
1444: FND_API.G_TRUE,
1445: FND_API.G_FALSE,
1446: FND_API.G_VALID_LEVEL_FULL,
1447: FND_API.G_FALSE,
1448: NULL,
1449: x_return_status,
1442: (
1443: '1.0',
1444: FND_API.G_TRUE,
1445: FND_API.G_FALSE,
1446: FND_API.G_VALID_LEVEL_FULL,
1447: FND_API.G_FALSE,
1448: NULL,
1449: x_return_status,
1450: x_msg_count,
1443: '1.0',
1444: FND_API.G_TRUE,
1445: FND_API.G_FALSE,
1446: FND_API.G_VALID_LEVEL_FULL,
1447: FND_API.G_FALSE,
1448: NULL,
1449: x_return_status,
1450: x_msg_count,
1451: x_msg_data,
1458: IF (l_log_statement >= l_log_current_level) THEN
1459: fnd_log.string(fnd_log.level_statement,l_debug_module,'After Process_OP_Details');
1460: END IF;
1461:
1462: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1463: IF (l_log_statement >= l_log_current_level) THEN
1464: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1465: END IF;
1466: RAISE FND_API.G_EXC_ERROR;
1462: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1463: IF (l_log_statement >= l_log_current_level) THEN
1464: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1465: END IF;
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: --END LOOP;
1469: END IF; -- oper table count
1470:
1473: CLOSE get_latest_route_rev;
1474: -- Raise an error if the route is not found in CMRO..
1475: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ROUTE_DONOT_EXIST1');
1476: FND_MSG_PUB.ADD;
1477: RAISE FND_API.G_EXC_ERROR;
1478: END IF; -- Cursor
1479: CLOSE get_latest_route_rev;
1480: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1481: THEN
1505:
1506: -- Start of Validations for all the mandatory common attributes.
1507: -- Validate is publish_date is Null and If so throw an error
1508:
1509: IF (p_pub_date IS NULL AND p_pub_date = FND_API.G_MISS_DATE)
1510: THEN
1511: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_PUB_DATE_NULL');
1512: FND_MSG_PUB.ADD;
1513: END IF;
1512: FND_MSG_PUB.ADD;
1513: END IF;
1514:
1515: -- Validate is context is Null and If so throw an error
1516: IF (p_context IS NULL AND p_context = FND_API.G_MISS_CHAR)
1517: THEN
1518: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
1519: FND_MSG_PUB.ADD;
1520: END IF;
1519: FND_MSG_PUB.ADD;
1520: END IF;
1521:
1522: -- Validate is Enigma_Id is Null and If so throw an error
1523: IF (p_enigma_route_rec.enigma_ID IS NULL AND p_enigma_route_rec.enigma_ID = FND_API.G_MISS_CHAR)
1524: THEN
1525: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_ENIGMA_ID_NULL');
1526: FND_MSG_PUB.ADD;
1527: END IF;
1529: -- Check the error stack and raise error messages , if any
1530: x_msg_count := FND_MSG_PUB.count_msg;
1531: IF x_msg_count > 0
1532: THEN
1533: RAISE FND_API.G_EXC_ERROR;
1534: END IF;
1535:
1536: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1537: THEN
1592: );
1593: END IF;
1594:
1595: -- Populate the input record with values.
1596: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
1597: p_process_route_input_rec.model_code := p_context;
1598: END IF;
1599:
1600: -- If revision date is not being passed, then set it to sysdate
1597: p_process_route_input_rec.model_code := p_context;
1598: END IF;
1599:
1600: -- If revision date is not being passed, then set it to sysdate
1601: IF (p_enigma_route_rec.revision_date IS NULL AND p_enigma_route_rec.revision_date = FND_API.G_MISS_DATE)
1602: THEN
1603: p_process_route_input_rec.ACTIVE_START_DATE := sysdate;
1604: ELSE
1605: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1604: ELSE
1605: p_process_route_input_rec.ACTIVE_START_DATE := p_enigma_route_rec.revision_date;
1606: END IF;
1607:
1608: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1609: p_process_route_input_rec.enigma_publish_date := p_pub_date;
1610: END IF;
1611:
1612: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1608: IF (p_pub_date <> FND_API.G_MISS_DATE AND p_pub_date IS NOT NULL ) THEN
1609: p_process_route_input_rec.enigma_publish_date := p_pub_date;
1610: END IF;
1611:
1612: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1613: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1614: END IF;
1615:
1616: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1612: IF (p_enigma_route_rec.ata_code <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.ata_code IS NOT NULL ) THEN
1613: p_process_route_input_rec.route_no := p_enigma_route_rec.ata_code;
1614: END IF;
1615:
1616: IF (p_enigma_route_rec.description <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.description IS NOT NULL ) THEN
1617: p_process_route_input_rec.title := p_enigma_route_rec.description;
1618: ELSE
1619: p_process_route_input_rec.title := p_enigma_route_rec.ata_code;
1620: END IF;
1618: ELSE
1619: p_process_route_input_rec.title := p_enigma_route_rec.ata_code;
1620: END IF;
1621:
1622: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1623: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1624: END IF;
1625:
1626: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1622: IF (p_enigma_route_rec.enigma_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.enigma_id IS NOT NULL ) THEN
1623: p_process_route_input_rec.enigma_doc_id := p_enigma_route_rec.enigma_id;
1624: END IF;
1625:
1626: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1627: p_process_route_input_rec.enigma_route_id := p_enigma_route_rec.route_id;
1628: END IF;
1629:
1630: IF (p_enigma_route_rec.change_flag <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.change_flag IS NOT NULL ) THEN
1626: IF (p_enigma_route_rec.route_id <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.route_id IS NOT NULL ) THEN
1627: p_process_route_input_rec.enigma_route_id := p_enigma_route_rec.route_id;
1628: END IF;
1629:
1630: IF (p_enigma_route_rec.change_flag <> FND_API.G_MISS_CHAR AND p_enigma_route_rec.change_flag IS NOT NULL ) THEN
1631: p_process_route_input_rec.dml_operation := p_enigma_route_rec.change_flag;
1632: END IF;
1633:
1634: IF p_enigma_route_rec.pdf IS NOT NULL
1646: IF (l_log_statement >= l_log_current_level) THEN
1647: fnd_log.string(fnd_log.level_statement,l_debug_module,'After UPLOAD_REVISION_REPORT Call ');
1648: END IF;
1649:
1650: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1651: IF (l_log_statement >= l_log_current_level) THEN
1652: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
1653: END IF;
1654: RAISE FND_API.G_EXC_ERROR;
1650: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1651: IF (l_log_statement >= l_log_current_level) THEN
1652: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT Error');
1653: END IF;
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656:
1657: IF (l_log_statement >= l_log_current_level) THEN
1658: fnd_log.string(fnd_log.level_statement,l_debug_module,'UPLOAD_REVISION_REPORT-> File upload done');
1670: );
1671: END IF;
1672:
1673: -- If the return status is success, populate the input rec for process_route for updation
1674: IF ( x_file_id <> FND_API.G_MISS_NUM AND x_file_id IS NOT NULL) THEN
1675: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1676: THEN
1677:
1678: fnd_log.string
1753: -- Call the API for update.
1754: AHL_RM_ROUTE_PVT.process_route
1755: (
1756: '1.0',
1757: FND_API.G_TRUE,
1758: FND_API.G_FALSE,
1759: FND_API.G_VALID_LEVEL_FULL,
1760: FND_API.G_FALSE,
1761: NULL,
1754: AHL_RM_ROUTE_PVT.process_route
1755: (
1756: '1.0',
1757: FND_API.G_TRUE,
1758: FND_API.G_FALSE,
1759: FND_API.G_VALID_LEVEL_FULL,
1760: FND_API.G_FALSE,
1761: NULL,
1762: x_return_status,
1755: (
1756: '1.0',
1757: FND_API.G_TRUE,
1758: FND_API.G_FALSE,
1759: FND_API.G_VALID_LEVEL_FULL,
1760: FND_API.G_FALSE,
1761: NULL,
1762: x_return_status,
1763: x_msg_count,
1756: '1.0',
1757: FND_API.G_TRUE,
1758: FND_API.G_FALSE,
1759: FND_API.G_VALID_LEVEL_FULL,
1760: FND_API.G_FALSE,
1761: NULL,
1762: x_return_status,
1763: x_msg_count,
1764: x_msg_data,
1775: 'After Calling process_route in Create mode'
1776: );
1777: END IF;
1778:
1779: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1780: IF (l_log_statement >= l_log_current_level) THEN
1781: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1782: END IF;
1783: RAISE FND_API.G_EXC_ERROR;
1779: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1780: IF (l_log_statement >= l_log_current_level) THEN
1781: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route Error');
1782: END IF;
1783: RAISE FND_API.G_EXC_ERROR;
1784: END IF;
1785:
1786: IF (l_log_statement >= l_log_current_level) THEN
1787: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.process_route -> creation Successful');
1857:
1858: Process_OP_Details
1859: (
1860: '1.0',
1861: FND_API.G_TRUE,
1862: FND_API.G_FALSE,
1863: FND_API.G_VALID_LEVEL_FULL,
1864: FND_API.G_FALSE,
1865: NULL,
1858: Process_OP_Details
1859: (
1860: '1.0',
1861: FND_API.G_TRUE,
1862: FND_API.G_FALSE,
1863: FND_API.G_VALID_LEVEL_FULL,
1864: FND_API.G_FALSE,
1865: NULL,
1866: x_return_status,
1859: (
1860: '1.0',
1861: FND_API.G_TRUE,
1862: FND_API.G_FALSE,
1863: FND_API.G_VALID_LEVEL_FULL,
1864: FND_API.G_FALSE,
1865: NULL,
1866: x_return_status,
1867: x_msg_count,
1860: '1.0',
1861: FND_API.G_TRUE,
1862: FND_API.G_FALSE,
1863: FND_API.G_VALID_LEVEL_FULL,
1864: FND_API.G_FALSE,
1865: NULL,
1866: x_return_status,
1867: x_msg_count,
1868: x_msg_data,
1875: IF (l_log_statement >= l_log_current_level) THEN
1876: fnd_log.string(fnd_log.level_statement,l_debug_module,'After Process_OP_Details');
1877: END IF;
1878:
1879: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1880: IF (l_log_statement >= l_log_current_level) THEN
1881: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1882: END IF;
1883: RAISE FND_API.G_EXC_ERROR;
1879: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
1880: IF (l_log_statement >= l_log_current_level) THEN
1881: fnd_log.string(fnd_log.level_statement,l_debug_module,'Process_OP_Details Error');
1882: END IF;
1883: RAISE FND_API.G_EXC_ERROR;
1884: END IF;
1885: --END LOOP;
1886: END IF; -- oper table count
1887:
1891: -- Check Error Message stack.
1892: x_msg_count := FND_MSG_PUB.count_msg;
1893: IF x_msg_count > 0
1894: THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1898: -- Standard check for p_commit
1899: IF FND_API.To_Boolean (p_commit)
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1898: -- Standard check for p_commit
1899: IF FND_API.To_Boolean (p_commit)
1900: THEN
1901: COMMIT WORK;
1902: END IF;
1903:
1903:
1904: -- Standard call to get message count and if count is 1, get message info
1905: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1906: p_data => x_msg_data,
1907: p_encoded => fnd_api.g_false );
1908:
1909: EXCEPTION
1910: WHEN FND_API.G_EXC_ERROR THEN
1911: x_return_status := FND_API.G_RET_STS_ERROR;
1906: p_data => x_msg_data,
1907: p_encoded => fnd_api.g_false );
1908:
1909: EXCEPTION
1910: WHEN FND_API.G_EXC_ERROR THEN
1911: x_return_status := FND_API.G_RET_STS_ERROR;
1912: Rollback to Process_Route_Details_SP;
1913: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1914: p_data => x_msg_data,
1907: p_encoded => fnd_api.g_false );
1908:
1909: EXCEPTION
1910: WHEN FND_API.G_EXC_ERROR THEN
1911: x_return_status := FND_API.G_RET_STS_ERROR;
1912: Rollback to Process_Route_Details_SP;
1913: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1914: p_data => x_msg_data,
1915: p_encoded => fnd_api.g_false);
1911: x_return_status := FND_API.G_RET_STS_ERROR;
1912: Rollback to Process_Route_Details_SP;
1913: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1914: p_data => x_msg_data,
1915: p_encoded => fnd_api.g_false);
1916:
1917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: Rollback to Process_Route_Details_SP;
1913: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1914: p_data => x_msg_data,
1915: p_encoded => fnd_api.g_false);
1916:
1917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: Rollback to Process_Route_Details_SP;
1920: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1921: p_data => x_msg_data,
1914: p_data => x_msg_data,
1915: p_encoded => fnd_api.g_false);
1916:
1917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: Rollback to Process_Route_Details_SP;
1920: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1921: p_data => x_msg_data,
1922: p_encoded => fnd_api.g_false);
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: Rollback to Process_Route_Details_SP;
1920: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1921: p_data => x_msg_data,
1922: p_encoded => fnd_api.g_false);
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1926: Rollback to Process_Route_Details_SP;
1921: p_data => x_msg_data,
1922: p_encoded => fnd_api.g_false);
1923:
1924: WHEN OTHERS THEN
1925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1926: Rollback to Process_Route_Details_SP;
1927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1928: THEN
1929: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1931: p_error_text => SUBSTR(SQLERRM,1,240));
1932: END IF;
1933: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1934: p_data => x_msg_data,
1935: p_encoded => fnd_api.g_false);
1936:
1937: END Process_Route_Details;
1938:
1939:
1939:
1940: PROCEDURE Process_OP_Details
1941: (
1942: p_api_version IN NUMBER := '1.0',
1943: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1945: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1946: p_default IN VARCHAR2 := FND_API.G_FALSE,
1947: p_module_type IN VARCHAR2 := NULL,
1940: PROCEDURE Process_OP_Details
1941: (
1942: p_api_version IN NUMBER := '1.0',
1943: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1945: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1946: p_default IN VARCHAR2 := FND_API.G_FALSE,
1947: p_module_type IN VARCHAR2 := NULL,
1948: x_return_status OUT NOCOPY VARCHAR2,
1941: (
1942: p_api_version IN NUMBER := '1.0',
1943: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1945: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1946: p_default IN VARCHAR2 := FND_API.G_FALSE,
1947: p_module_type IN VARCHAR2 := NULL,
1948: x_return_status OUT NOCOPY VARCHAR2,
1949: x_msg_count OUT NOCOPY NUMBER,
1942: p_api_version IN NUMBER := '1.0',
1943: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1944: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1945: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1946: p_default IN VARCHAR2 := FND_API.G_FALSE,
1947: p_module_type IN VARCHAR2 := NULL,
1948: x_return_status OUT NOCOPY VARCHAR2,
1949: x_msg_count OUT NOCOPY NUMBER,
1950: x_msg_data OUT NOCOPY VARCHAR2,
1997: -- Standard start of API savepoint
1998: SAVEPOINT Process_OP_Details_SP;
1999:
2000: -- Initialize return status to success before any code logic/validation
2001: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2002:
2003: -- Standard call to check for call compatibility
2004: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2005: THEN
2000: -- Initialize return status to success before any code logic/validation
2001: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2002:
2003: -- Standard call to check for call compatibility
2004: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2005: THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2002:
2003: -- Standard call to check for call compatibility
2004: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2005: THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2009: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2010: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2005: THEN
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2009: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2010: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2011: THEN
2012: FND_MSG_PUB.INITIALIZE;
2013: END IF;
2006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: END IF;
2008:
2009: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
2010: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2011: THEN
2012: FND_MSG_PUB.INITIALIZE;
2013: END IF;
2014:
2049: 'Inside Process_OP_Details -> Operations Found i->'||i
2050: );
2051: END IF;
2052:
2053: IF ( p_enigma_op_tbl(i).parent_route_id IS NULL OR p_enigma_op_tbl(i).parent_route_id = FND_API.G_MISS_CHAR )
2054: THEN
2055: parent_route_id := p_parent_route_id;
2056: ELSE
2057: parent_route_id := p_enigma_op_tbl(i).parent_route_id;
2074: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML');
2075: FND_MESSAGE.SET_TOKEN('FIELD', p_enigma_op_tbl(i).change_flag);
2076: FND_MESSAGE.SET_TOKEN('RECORD', p_enigma_op_tbl(i).operation_id);
2077: FND_MSG_PUB.ADD;
2078: RAISE FND_API.G_EXC_ERROR;
2079: END IF;
2080:
2081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2082: THEN
2089: );
2090: END IF;
2091:
2092: -- Vefify is the operation_id null, if so throw an error .
2093: IF ( p_enigma_op_tbl(i).operation_id IS NULL OR p_enigma_op_tbl(i).operation_id = FND_API.G_MISS_CHAR)
2094: THEN
2095: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2096: FND_MSG_PUB.ADD;
2097: RAISE FND_API.G_EXC_ERROR;
2093: IF ( p_enigma_op_tbl(i).operation_id IS NULL OR p_enigma_op_tbl(i).operation_id = FND_API.G_MISS_CHAR)
2094: THEN
2095: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2096: FND_MSG_PUB.ADD;
2097: RAISE FND_API.G_EXC_ERROR;
2098: END IF;
2099:
2100: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2101: THEN
2208: -- Call the delete operation API
2209: AHL_RM_OPERATION_PVT.delete_operation
2210: (
2211: 1.0,
2212: FND_API.G_TRUE,
2213: FND_API.G_FALSE,
2214: FND_API.G_VALID_LEVEL_FULL,
2215: FND_API.G_FALSE,
2216: NULL,
2209: AHL_RM_OPERATION_PVT.delete_operation
2210: (
2211: 1.0,
2212: FND_API.G_TRUE,
2213: FND_API.G_FALSE,
2214: FND_API.G_VALID_LEVEL_FULL,
2215: FND_API.G_FALSE,
2216: NULL,
2217: x_return_status,
2210: (
2211: 1.0,
2212: FND_API.G_TRUE,
2213: FND_API.G_FALSE,
2214: FND_API.G_VALID_LEVEL_FULL,
2215: FND_API.G_FALSE,
2216: NULL,
2217: x_return_status,
2218: x_msg_count,
2211: 1.0,
2212: FND_API.G_TRUE,
2213: FND_API.G_FALSE,
2214: FND_API.G_VALID_LEVEL_FULL,
2215: FND_API.G_FALSE,
2216: NULL,
2217: x_return_status,
2218: x_msg_count,
2219: x_msg_data,
2224: IF (l_log_statement >= l_log_current_level) THEN
2225: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.delete_operation');
2226: END IF;
2227:
2228: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2229: IF (l_log_statement >= l_log_current_level) THEN
2230: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.delete_operation Error');
2231: END IF;
2232: RAISE FND_API.G_EXC_ERROR;
2228: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2229: IF (l_log_statement >= l_log_current_level) THEN
2230: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.delete_operation Error');
2231: END IF;
2232: RAISE FND_API.G_EXC_ERROR;
2233: END IF;
2234:
2235: IF (l_log_statement >= l_log_current_level) THEN
2236: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.delete_operation -> deletion Successful');
2242: -- If the operation is not found, then raise an error
2243: CLOSE get_latest_oper_rev;
2244: FND_MESSAGE.SET_NAME('AHL', 'AHL_ENIGMA_OPER_DONOT_EXIST');
2245: FND_MSG_PUB.ADD;
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF; -- Cursor Found
2248: END IF; -- Change Flag "D"
2249:
2250: -- If the operation change flag is "U" then process the operation accordingly .
2343: -- Call the API to create a new revision of the operation.
2344: AHL_RM_OPERATION_PVT.create_oper_revision
2345: (
2346: '1.0',
2347: FND_API.G_TRUE,
2348: FND_API.G_FALSE,
2349: FND_API.G_VALID_LEVEL_FULL,
2350: FND_API.G_FALSE,
2351: NULL,
2344: AHL_RM_OPERATION_PVT.create_oper_revision
2345: (
2346: '1.0',
2347: FND_API.G_TRUE,
2348: FND_API.G_FALSE,
2349: FND_API.G_VALID_LEVEL_FULL,
2350: FND_API.G_FALSE,
2351: NULL,
2352: x_return_status,
2345: (
2346: '1.0',
2347: FND_API.G_TRUE,
2348: FND_API.G_FALSE,
2349: FND_API.G_VALID_LEVEL_FULL,
2350: FND_API.G_FALSE,
2351: NULL,
2352: x_return_status,
2353: x_msg_count,
2346: '1.0',
2347: FND_API.G_TRUE,
2348: FND_API.G_FALSE,
2349: FND_API.G_VALID_LEVEL_FULL,
2350: FND_API.G_FALSE,
2351: NULL,
2352: x_return_status,
2353: x_msg_count,
2354: x_msg_data,
2360: IF (l_log_statement >= l_log_current_level) THEN
2361: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.create_oper_revision');
2362: END IF;
2363:
2364: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2365: IF (l_log_statement >= l_log_current_level) THEN
2366: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.create_oper_revision Error');
2367: END IF;
2368: RAISE FND_API.G_EXC_ERROR;
2364: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2365: IF (l_log_statement >= l_log_current_level) THEN
2366: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.create_oper_revision Error');
2367: END IF;
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371: IF (l_log_statement >= l_log_current_level) THEN
2372: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.create_oper_revision -> revision Created');
2375:
2376: -- If the return status is success, populate the input rec for process_operation for updation
2377: -- Do the mandatory validations
2378:
2379: IF (p_enigma_op_tbl(i).operation_id IS NULL AND p_enigma_op_tbl(i).operation_id = FND_API.G_MISS_DATE)
2380: THEN
2381: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2382: FND_MSG_PUB.ADD;
2383: END IF;
2381: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2382: FND_MSG_PUB.ADD;
2383: END IF;
2384:
2385: IF (p_context IS NULL AND p_context = FND_API.G_MISS_DATE)
2386: THEN
2387: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
2388: FND_MSG_PUB.ADD;
2389: END IF;
2391: -- Check the error stack and raise error messages , if any
2392: x_msg_count := FND_MSG_PUB.count_msg;
2393: IF x_msg_count > 0
2394: THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: END IF;
2397:
2398: IF ( x_operation_id <> FND_API.G_MISS_NUM AND x_operation_id IS NOT NULL) THEN
2399: p_process_oper_input_rec.OPERATION_ID := x_operation_id ;
2394: THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: END IF;
2397:
2398: IF ( x_operation_id <> FND_API.G_MISS_NUM AND x_operation_id IS NOT NULL) THEN
2399: p_process_oper_input_rec.OPERATION_ID := x_operation_id ;
2400: END IF;
2401:
2402: IF (l_get_latest_oper_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.object_version_number IS NOT NULL ) THEN
2398: IF ( x_operation_id <> FND_API.G_MISS_NUM AND x_operation_id IS NOT NULL) THEN
2399: p_process_oper_input_rec.OPERATION_ID := x_operation_id ;
2400: END IF;
2401:
2402: IF (l_get_latest_oper_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.object_version_number IS NOT NULL ) THEN
2403: p_process_oper_input_rec.OBJECT_VERSION_NUMBER := l_get_latest_oper_rev.object_version_number;
2404: END IF;
2405:
2406: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
2402: IF (l_get_latest_oper_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.object_version_number IS NOT NULL ) THEN
2403: p_process_oper_input_rec.OBJECT_VERSION_NUMBER := l_get_latest_oper_rev.object_version_number;
2404: END IF;
2405:
2406: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
2407: p_process_oper_input_rec.MODEL_CODE := p_context;
2408: p_process_oper_input_rec.SEGMENT1 := p_context;
2409: END IF;
2410:
2407: p_process_oper_input_rec.MODEL_CODE := p_context;
2408: p_process_oper_input_rec.SEGMENT1 := p_context;
2409: END IF;
2410:
2411: IF (p_enigma_op_tbl(i).description <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).description IS NOT NULL ) THEN
2412: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).description;
2413: END IF;
2414:
2415: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2411: IF (p_enigma_op_tbl(i).description <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).description IS NOT NULL ) THEN
2412: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).description;
2413: END IF;
2414:
2415: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2416: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2417: END IF;
2418:
2419: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2415: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2416: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2417: END IF;
2418:
2419: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2420: p_process_oper_input_rec.SEGMENT2 := p_enigma_op_tbl(i).ATA_CODE;
2421: END IF;
2422:
2423:
2426: -- Call the API for update
2427: AHL_RM_OPERATION_PVT.process_operation
2428: (
2429: '1.0',
2430: FND_API.G_TRUE,
2431: FND_API.G_FALSE,
2432: FND_API.G_VALID_LEVEL_FULL,
2433: FND_API.G_FALSE,
2434: NULL,
2427: AHL_RM_OPERATION_PVT.process_operation
2428: (
2429: '1.0',
2430: FND_API.G_TRUE,
2431: FND_API.G_FALSE,
2432: FND_API.G_VALID_LEVEL_FULL,
2433: FND_API.G_FALSE,
2434: NULL,
2435: x_return_status,
2428: (
2429: '1.0',
2430: FND_API.G_TRUE,
2431: FND_API.G_FALSE,
2432: FND_API.G_VALID_LEVEL_FULL,
2433: FND_API.G_FALSE,
2434: NULL,
2435: x_return_status,
2436: x_msg_count,
2429: '1.0',
2430: FND_API.G_TRUE,
2431: FND_API.G_FALSE,
2432: FND_API.G_VALID_LEVEL_FULL,
2433: FND_API.G_FALSE,
2434: NULL,
2435: x_return_status,
2436: x_msg_count,
2437: x_msg_data,
2441: IF (l_log_statement >= l_log_current_level) THEN
2442: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.process_operation');
2443: END IF;
2444:
2445: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2446: IF (l_log_statement >= l_log_current_level) THEN
2447: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2448: END IF;
2449: RAISE FND_API.G_EXC_ERROR;
2445: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2446: IF (l_log_statement >= l_log_current_level) THEN
2447: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2448: END IF;
2449: RAISE FND_API.G_EXC_ERROR;
2450: END IF;
2451:
2452: IF (l_log_statement >= l_log_current_level) THEN
2453: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation -> updation Successful');
2496: );
2497: END IF;
2498:
2499: -- Do the mandatory validations
2500: IF (p_enigma_op_tbl(i).operation_id IS NULL AND p_enigma_op_tbl(i).operation_id = FND_API.G_MISS_DATE)
2501: THEN
2502: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2503: FND_MSG_PUB.ADD;
2504: END IF;
2502: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_OPER_ID_NULL');
2503: FND_MSG_PUB.ADD;
2504: END IF;
2505:
2506: IF (p_context IS NULL AND p_context = FND_API.G_MISS_DATE)
2507: THEN
2508: FND_MESSAGE.Set_Name('AHL','AHL_ENIGMA_CONTEXT_NULL');
2509: FND_MSG_PUB.ADD;
2510: END IF;
2512: -- Check the error stack and raise error messages , if any
2513: x_msg_count := FND_MSG_PUB.count_msg;
2514: IF x_msg_count > 0
2515: THEN
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518:
2519: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2520: THEN
2527: );
2528: END IF;
2529:
2530: -- If the return status is success, populate the input rec for process_operation for updation
2531: IF ( l_get_latest_oper_rev.operation_id <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.operation_id IS NOT NULL) THEN
2532: p_process_oper_input_rec.OPERATION_ID := l_get_latest_oper_rev.operation_id ;
2533: END IF;
2534:
2535: IF (l_get_latest_oper_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.object_version_number IS NOT NULL ) THEN
2531: IF ( l_get_latest_oper_rev.operation_id <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.operation_id IS NOT NULL) THEN
2532: p_process_oper_input_rec.OPERATION_ID := l_get_latest_oper_rev.operation_id ;
2533: END IF;
2534:
2535: IF (l_get_latest_oper_rev.object_version_number <> FND_API.G_MISS_NUM AND l_get_latest_oper_rev.object_version_number IS NOT NULL ) THEN
2536: p_process_oper_input_rec.OBJECT_VERSION_NUMBER := l_get_latest_oper_rev.object_version_number;
2537: END IF;
2538:
2539:
2536: p_process_oper_input_rec.OBJECT_VERSION_NUMBER := l_get_latest_oper_rev.object_version_number;
2537: END IF;
2538:
2539:
2540: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
2541: p_process_oper_input_rec.MODEL_CODE := p_context;
2542: p_process_oper_input_rec.SEGMENT1 := p_context;
2543: END IF;
2544:
2541: p_process_oper_input_rec.MODEL_CODE := p_context;
2542: p_process_oper_input_rec.SEGMENT1 := p_context;
2543: END IF;
2544:
2545: IF (p_enigma_op_tbl(i).description <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).description IS NOT NULL ) THEN
2546: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).description;
2547: END IF;
2548:
2549: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2545: IF (p_enigma_op_tbl(i).description <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).description IS NOT NULL ) THEN
2546: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).description;
2547: END IF;
2548:
2549: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2550: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2551: END IF;
2552:
2553: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2549: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2550: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2551: END IF;
2552:
2553: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2554: p_process_oper_input_rec.SEGMENT2 := p_enigma_op_tbl(i).ATA_CODE;
2555: END IF;
2556:
2557: p_process_oper_input_rec.DML_OPERATION := 'U';
2606: -- Call the API for update
2607: AHL_RM_OPERATION_PVT.process_operation
2608: (
2609: '1.0',
2610: FND_API.G_TRUE,
2611: FND_API.G_FALSE,
2612: FND_API.G_VALID_LEVEL_FULL,
2613: FND_API.G_FALSE,
2614: NULL,
2607: AHL_RM_OPERATION_PVT.process_operation
2608: (
2609: '1.0',
2610: FND_API.G_TRUE,
2611: FND_API.G_FALSE,
2612: FND_API.G_VALID_LEVEL_FULL,
2613: FND_API.G_FALSE,
2614: NULL,
2615: x_return_status,
2608: (
2609: '1.0',
2610: FND_API.G_TRUE,
2611: FND_API.G_FALSE,
2612: FND_API.G_VALID_LEVEL_FULL,
2613: FND_API.G_FALSE,
2614: NULL,
2615: x_return_status,
2616: x_msg_count,
2609: '1.0',
2610: FND_API.G_TRUE,
2611: FND_API.G_FALSE,
2612: FND_API.G_VALID_LEVEL_FULL,
2613: FND_API.G_FALSE,
2614: NULL,
2615: x_return_status,
2616: x_msg_count,
2617: x_msg_data,
2621: IF (l_log_statement >= l_log_current_level) THEN
2622: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.process_operation');
2623: END IF;
2624:
2625: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2626: IF (l_log_statement >= l_log_current_level) THEN
2627: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2628: END IF;
2629: RAISE FND_API.G_EXC_ERROR;
2625: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2626: IF (l_log_statement >= l_log_current_level) THEN
2627: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2628: END IF;
2629: RAISE FND_API.G_EXC_ERROR;
2630: END IF;
2631:
2632: IF (l_log_statement >= l_log_current_level) THEN
2633: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation -> updation Successful');
2689: -- If the operation is not found, then raise an error
2690: CLOSE get_latest_oper_rev;
2691: FND_MESSAGE.SET_NAME('AHL', 'AHL_ENIGMA_OPER_DONOT_EXIST');
2692: FND_MSG_PUB.ADD;
2693: RAISE FND_API.G_EXC_ERROR;
2694: END IF; -- Cursor Found
2695: END IF; -- Change Flag "U"
2696:
2697: -- If the change flag is C then create a new operation.
2709: );
2710: END IF;
2711:
2712: -- Populate the input records
2713: IF (p_context <> FND_API.G_MISS_CHAR AND p_context IS NOT NULL ) THEN
2714: p_process_oper_input_rec.MODEL_CODE := p_context;
2715: p_process_oper_input_rec.SEGMENT1 := p_context;
2716: END IF;
2717:
2714: p_process_oper_input_rec.MODEL_CODE := p_context;
2715: p_process_oper_input_rec.SEGMENT1 := p_context;
2716: END IF;
2717:
2718: IF (p_enigma_op_tbl(i).description <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).description IS NOT NULL ) THEN
2719: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).description;
2720: ELSE
2721: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).ATA_CODE;
2722: END IF;
2720: ELSE
2721: p_process_oper_input_rec.DESCRIPTION := p_enigma_op_tbl(i).ATA_CODE;
2722: END IF;
2723:
2724: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2725: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2726: END IF;
2727:
2728: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2724: IF (p_enigma_op_tbl(i).operation_id <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).operation_id IS NOT NULL ) THEN
2725: p_process_oper_input_rec.ENIGMA_OP_ID := p_enigma_op_tbl(i).operation_id;
2726: END IF;
2727:
2728: IF (p_enigma_op_tbl(i).ATA_CODE <> FND_API.G_MISS_CHAR AND p_enigma_op_tbl(i).ATA_CODE IS NOT NULL ) THEN
2729: p_process_oper_input_rec.SEGMENT2 := p_enigma_op_tbl(i).ATA_CODE;
2730: END IF;
2731:
2732: p_process_oper_input_rec.ACTIVE_START_DATE := sysdate;
2747: -- Call the API for update
2748: AHL_RM_OPERATION_PVT.process_operation
2749: (
2750: '1.0',
2751: FND_API.G_TRUE,
2752: FND_API.G_FALSE,
2753: FND_API.G_VALID_LEVEL_FULL,
2754: FND_API.G_FALSE,
2755: NULL,
2748: AHL_RM_OPERATION_PVT.process_operation
2749: (
2750: '1.0',
2751: FND_API.G_TRUE,
2752: FND_API.G_FALSE,
2753: FND_API.G_VALID_LEVEL_FULL,
2754: FND_API.G_FALSE,
2755: NULL,
2756: x_return_status,
2749: (
2750: '1.0',
2751: FND_API.G_TRUE,
2752: FND_API.G_FALSE,
2753: FND_API.G_VALID_LEVEL_FULL,
2754: FND_API.G_FALSE,
2755: NULL,
2756: x_return_status,
2757: x_msg_count,
2750: '1.0',
2751: FND_API.G_TRUE,
2752: FND_API.G_FALSE,
2753: FND_API.G_VALID_LEVEL_FULL,
2754: FND_API.G_FALSE,
2755: NULL,
2756: x_return_status,
2757: x_msg_count,
2758: x_msg_data,
2788: IF (l_log_statement >= l_log_current_level) THEN
2789: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.process_operation');
2790: END IF;
2791:
2792: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2793: IF (l_log_statement >= l_log_current_level) THEN
2794: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2795: END IF;
2796: RAISE FND_API.G_EXC_ERROR;
2792: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2793: IF (l_log_statement >= l_log_current_level) THEN
2794: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation Error');
2795: END IF;
2796: RAISE FND_API.G_EXC_ERROR;
2797: END IF;
2798:
2799: IF (l_log_statement >= l_log_current_level) THEN
2800: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.process_operation -> creation Successful');
2894:
2895: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
2896: (
2897: 1.0,
2898: FND_API.G_TRUE,
2899: FND_API.G_FALSE,
2900: FND_API.G_VALID_LEVEL_FULL,
2901: FND_API.G_TRUE,
2902: NULL,
2895: AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as
2896: (
2897: 1.0,
2898: FND_API.G_TRUE,
2899: FND_API.G_FALSE,
2900: FND_API.G_VALID_LEVEL_FULL,
2901: FND_API.G_TRUE,
2902: NULL,
2903: x_return_status,
2896: (
2897: 1.0,
2898: FND_API.G_TRUE,
2899: FND_API.G_FALSE,
2900: FND_API.G_VALID_LEVEL_FULL,
2901: FND_API.G_TRUE,
2902: NULL,
2903: x_return_status,
2904: x_msg_count ,
2897: 1.0,
2898: FND_API.G_TRUE,
2899: FND_API.G_FALSE,
2900: FND_API.G_VALID_LEVEL_FULL,
2901: FND_API.G_TRUE,
2902: NULL,
2903: x_return_status,
2904: x_msg_count ,
2905: x_msg_data ,
2921: IF (l_log_statement >= l_log_current_level) THEN
2922: fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as');
2923: END IF;
2924:
2925: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2926: IF (l_log_statement >= l_log_current_level) THEN
2927: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as Error');
2928: END IF;
2929: RAISE FND_API.G_EXC_ERROR;
2925: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2926: IF (l_log_statement >= l_log_current_level) THEN
2927: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OP_ROUTE_AS_PVT.process_route_operation_as Error');
2928: END IF;
2929: RAISE FND_API.G_EXC_ERROR;
2930: END IF;
2931:
2932: l_step_count := l_step_count + 1;
2933:
2942: -- Check Error Message stack.
2943: x_msg_count := FND_MSG_PUB.count_msg;
2944: IF x_msg_count > 0
2945: THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949: -- Standard check for p_commit
2950: IF FND_API.To_Boolean (p_commit)
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949: -- Standard check for p_commit
2950: IF FND_API.To_Boolean (p_commit)
2951: THEN
2952: COMMIT WORK;
2953: END IF;
2954:
2954:
2955: -- Standard call to get message count and if count is 1, get message info
2956: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2957: p_data => x_msg_data,
2958: p_encoded => fnd_api.g_false );
2959:
2960: EXCEPTION
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: x_return_status := FND_API.G_RET_STS_ERROR;
2957: p_data => x_msg_data,
2958: p_encoded => fnd_api.g_false );
2959:
2960: EXCEPTION
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: x_return_status := FND_API.G_RET_STS_ERROR;
2963: Rollback to Process_OP_Details_SP;
2964: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2965: p_data => x_msg_data,
2958: p_encoded => fnd_api.g_false );
2959:
2960: EXCEPTION
2961: WHEN FND_API.G_EXC_ERROR THEN
2962: x_return_status := FND_API.G_RET_STS_ERROR;
2963: Rollback to Process_OP_Details_SP;
2964: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2965: p_data => x_msg_data,
2966: p_encoded => fnd_api.g_false);
2962: x_return_status := FND_API.G_RET_STS_ERROR;
2963: Rollback to Process_OP_Details_SP;
2964: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2965: p_data => x_msg_data,
2966: p_encoded => fnd_api.g_false);
2967:
2968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: Rollback to Process_OP_Details_SP;
2964: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2965: p_data => x_msg_data,
2966: p_encoded => fnd_api.g_false);
2967:
2968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: Rollback to Process_OP_Details_SP;
2971: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2972: p_data => x_msg_data,
2965: p_data => x_msg_data,
2966: p_encoded => fnd_api.g_false);
2967:
2968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: Rollback to Process_OP_Details_SP;
2971: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2972: p_data => x_msg_data,
2973: p_encoded => fnd_api.g_false);
2969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2970: Rollback to Process_OP_Details_SP;
2971: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2972: p_data => x_msg_data,
2973: p_encoded => fnd_api.g_false);
2974:
2975: WHEN OTHERS THEN
2976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2977: Rollback to Process_OP_Details_SP;
2972: p_data => x_msg_data,
2973: p_encoded => fnd_api.g_false);
2974:
2975: WHEN OTHERS THEN
2976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2977: Rollback to Process_OP_Details_SP;
2978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2979: THEN
2980: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2982: p_error_text => SUBSTR(SQLERRM,1,240));
2983: END IF;
2984: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2985: p_data => x_msg_data,
2986: p_encoded => fnd_api.g_false);
2987:
2988:
2989: END Process_OP_Details;
2990:
3003: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'AHL_ENIGMA_ROUTE_OP_PUB'||'.'||l_api_name;
3004:
3005: BEGIN
3006:
3007: x_return_status := FND_API.G_RET_STS_SUCCESS;
3008:
3009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3010: THEN
3011:
3020:
3021: IF p_file_name IS NULL THEN
3022: FND_MESSAGE.set_name( 'AHL','AHL_COM_REQD_PARAM_MISSING' );
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025:
3026: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3027: fnd_log.string
3028: (
3069:
3070:
3071: EXCEPTION
3072: WHEN OTHERS THEN
3073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3075: THEN
3076: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3077: p_procedure_name => 'UPLOAD_REVISION_REPORT',