1978: l_api_version CONSTANT NUMBER := 1.0;
1979: l_debug_module CONSTANT VARCHAR2(100) := 'ahl.plsql.'||'AHL_ENIGMA_ROUTE_OP_PUB'||'.'||l_api_name;
1980:
1981: l_get_latest_oper_rev get_latest_oper_rev%ROWTYPE;
1982: p_process_oper_input_rec AHL_RM_OPERATION_PVT.operation_rec_type;
1983: route_operation_tbl_type AHL_RM_OP_ROUTE_AS_PVT.route_operation_tbl_type;
1984:
1985: x_operation_id NUMBER;
1986: parent_route_id VARCHAR2(2000);
2205: );
2206: END IF;
2207:
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,
2221: l_get_latest_oper_rev.object_version_number
2222: );
2223:
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
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;
2233: END IF;
2234:
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');
2237: END IF;
2238:
2239: CLOSE get_latest_oper_rev;
2240: END IF;
2340:
2341: -- When the operation is in complete, do the following process
2342: ELSIF (upper(l_get_latest_oper_rev.revision_status) = 'COMPLETE' ) THEN
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,
2357: x_operation_id
2358: );
2359:
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
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;
2369: END IF;
2370:
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');
2373: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.create_oper_revision -> x_operation_id= ' || x_operation_id);
2374: END IF;
2375:
2376: -- If the return status is success, populate the input rec for process_operation for updation
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');
2373: fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.create_oper_revision -> x_operation_id= ' || x_operation_id);
2374: END IF;
2375:
2376: -- If the return status is success, populate the input rec for process_operation for updation
2377: -- Do the mandatory validations
2423:
2424: p_process_oper_input_rec.DML_OPERATION := 'U';
2425:
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,
2438: p_process_oper_input_rec
2439: );
2440:
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
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;
2450: END IF;
2451:
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');
2454: END IF;
2455:
2456: -- Insert the transaction record into the staging table, with status as success
2457: INSERT INTO AHL_RT_OPER_INTERFACE
2598: fnd_log.string
2599: (
2600: fnd_log.level_statement,
2601: l_debug_module,
2602: 'Calling AHL_RM_OPERATION_PVT.process_operation '
2603: );
2604: END IF;
2605:
2606: -- Call the API for update
2603: );
2604: END IF;
2605:
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,
2618: p_process_oper_input_rec
2619: );
2620:
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
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;
2630: END IF;
2631:
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');
2634: END IF;
2635:
2636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2637: THEN
2744: );
2745: END IF;
2746:
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,
2785: );
2786: END IF;
2787:
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
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;
2797: END IF;
2798:
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');
2801: END IF;
2802:
2803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2804: THEN