2514:
2515: BEGIN
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2519: THEN
2520: FND_LOG.String
2521: (
2522: fnd_log.level_procedure
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2519: THEN
2520: FND_LOG.String
2521: (
2522: fnd_log.level_procedure
2523: , L_LOG_MODULE || 'start'
2524: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
2518: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2519: THEN
2520: FND_LOG.String
2521: (
2522: fnd_log.level_procedure
2523: , L_LOG_MODULE || 'start'
2524: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
2525: );
2526: FND_LOG.String
2522: fnd_log.level_procedure
2523: , L_LOG_MODULE || 'start'
2524: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
2525: );
2526: FND_LOG.String
2527: (
2528: fnd_log.level_procedure
2529: , L_LOG_MODULE || 'param 1'
2530: , 'p_api_version_number:' || p_api_version_number
2524: , 'Inside ' || L_API_NAME_FULL || ', called with parameters below:'
2525: );
2526: FND_LOG.String
2527: (
2528: fnd_log.level_procedure
2529: , L_LOG_MODULE || 'param 1'
2530: , 'p_api_version_number:' || p_api_version_number
2531: );
2532: FND_LOG.String
2528: fnd_log.level_procedure
2529: , L_LOG_MODULE || 'param 1'
2530: , 'p_api_version_number:' || p_api_version_number
2531: );
2532: FND_LOG.String
2533: (
2534: fnd_log.level_procedure
2535: , L_LOG_MODULE || 'param 2'
2536: , 'p_init_msg_list:' || p_init_msg_list
2530: , 'p_api_version_number:' || p_api_version_number
2531: );
2532: FND_LOG.String
2533: (
2534: fnd_log.level_procedure
2535: , L_LOG_MODULE || 'param 2'
2536: , 'p_init_msg_list:' || p_init_msg_list
2537: );
2538: FND_LOG.String
2534: fnd_log.level_procedure
2535: , L_LOG_MODULE || 'param 2'
2536: , 'p_init_msg_list:' || p_init_msg_list
2537: );
2538: FND_LOG.String
2539: (
2540: fnd_log.level_procedure
2541: , L_LOG_MODULE || 'param 3'
2542: , 'p_commit:' || p_commit
2536: , 'p_init_msg_list:' || p_init_msg_list
2537: );
2538: FND_LOG.String
2539: (
2540: fnd_log.level_procedure
2541: , L_LOG_MODULE || 'param 3'
2542: , 'p_commit:' || p_commit
2543: );
2544: FND_LOG.String
2540: fnd_log.level_procedure
2541: , L_LOG_MODULE || 'param 3'
2542: , 'p_commit:' || p_commit
2543: );
2544: FND_LOG.String
2545: (
2546: fnd_log.level_procedure
2547: , L_LOG_MODULE || 'param 4'
2548: , 'p_object_type:' || p_object_type
2542: , 'p_commit:' || p_commit
2543: );
2544: FND_LOG.String
2545: (
2546: fnd_log.level_procedure
2547: , L_LOG_MODULE || 'param 4'
2548: , 'p_object_type:' || p_object_type
2549: );
2550: FND_LOG.String
2546: fnd_log.level_procedure
2547: , L_LOG_MODULE || 'param 4'
2548: , 'p_object_type:' || p_object_type
2549: );
2550: FND_LOG.String
2551: (
2552: fnd_log.level_procedure
2553: , L_LOG_MODULE || 'param 5'
2554: , 'p_processing_set_id:' || p_processing_set_id
2548: , 'p_object_type:' || p_object_type
2549: );
2550: FND_LOG.String
2551: (
2552: fnd_log.level_procedure
2553: , L_LOG_MODULE || 'param 5'
2554: , 'p_processing_set_id:' || p_processing_set_id
2555: );
2556: END IF ;
2581: ------------------------------------------------------------------------------
2582:
2583: IF NVL(p_object_type, 'X') <> 'SR'
2584: THEN
2585: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2586: THEN
2587: FND_LOG.String
2588: (
2589: fnd_log.level_unexpected
2583: IF NVL(p_object_type, 'X') <> 'SR'
2584: THEN
2585: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2586: THEN
2587: FND_LOG.String
2588: (
2589: fnd_log.level_unexpected
2590: , L_LOG_MODULE || 'object_type_invalid'
2591: , 'p_object_type has to be SR.'
2585: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2586: THEN
2587: FND_LOG.String
2588: (
2589: fnd_log.level_unexpected
2590: , L_LOG_MODULE || 'object_type_invalid'
2591: , 'p_object_type has to be SR.'
2592: );
2593: END IF ;
2604: ---
2605:
2606: IF p_processing_set_id IS NULL
2607: THEN
2608: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2609: THEN
2610: FND_LOG.String
2611: (
2612: fnd_log.level_unexpected
2606: IF p_processing_set_id IS NULL
2607: THEN
2608: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2609: THEN
2610: FND_LOG.String
2611: (
2612: fnd_log.level_unexpected
2613: , L_LOG_MODULE || 'proc_set_id_invalid'
2614: , 'p_processing_set_id should not be NULL.'
2608: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2609: THEN
2610: FND_LOG.String
2611: (
2612: fnd_log.level_unexpected
2613: , L_LOG_MODULE || 'proc_set_id_invalid'
2614: , 'p_processing_set_id should not be NULL.'
2615: );
2616: END IF ;
2627: ------------------------------------------------------------------------------
2628: -- Actual Logic starts below:
2629: ------------------------------------------------------------------------------
2630:
2631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2632: THEN
2633: FND_LOG.String
2634: (
2635: fnd_log.level_statement
2629: ------------------------------------------------------------------------------
2630:
2631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2632: THEN
2633: FND_LOG.String
2634: (
2635: fnd_log.level_statement
2636: , L_LOG_MODULE || 'del_sr_link_start'
2637: , 'deleting data in table cs_incident_links'
2631: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2632: THEN
2633: FND_LOG.String
2634: (
2635: fnd_log.level_statement
2636: , L_LOG_MODULE || 'del_sr_link_start'
2637: , 'deleting data in table cs_incident_links'
2638: );
2639: END IF ;
2664: );
2665:
2666: l_row_count := SQL%ROWCOUNT;
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2669: THEN
2670: FND_LOG.String
2671: (
2672: fnd_log.level_statement
2666: l_row_count := SQL%ROWCOUNT;
2667:
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2669: THEN
2670: FND_LOG.String
2671: (
2672: fnd_log.level_statement
2673: , L_LOG_MODULE || 'del_sr_link_end'
2674: , 'after deleting data in table cs_incident_links ' || l_row_count
2668: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2669: THEN
2670: FND_LOG.String
2671: (
2672: fnd_log.level_statement
2673: , L_LOG_MODULE || 'del_sr_link_end'
2674: , 'after deleting data in table cs_incident_links ' || l_row_count
2675: );
2676: END IF ;
2674: , 'after deleting data in table cs_incident_links ' || l_row_count
2675: );
2676: END IF ;
2677:
2678: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2679: THEN
2680: FND_LOG.String
2681: (
2682: fnd_log.level_procedure
2676: END IF ;
2677:
2678: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2679: THEN
2680: FND_LOG.String
2681: (
2682: fnd_log.level_procedure
2683: , L_LOG_MODULE || 'end'
2684: , 'Completed work in ' || L_API_NAME_FULL || ' successfully'
2678: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2679: THEN
2680: FND_LOG.String
2681: (
2682: fnd_log.level_procedure
2683: , L_LOG_MODULE || 'end'
2684: , 'Completed work in ' || L_API_NAME_FULL || ' successfully'
2685: );
2686: END IF ;
2689:
2690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2692:
2693: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2694: THEN
2695: FND_LOG.String
2696: (
2697: fnd_log.level_unexpected
2691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2692:
2693: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2694: THEN
2695: FND_LOG.String
2696: (
2697: fnd_log.level_unexpected
2698: , L_LOG_MODULE || 'unexpected_error'
2699: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
2693: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2694: THEN
2695: FND_LOG.String
2696: (
2697: fnd_log.level_unexpected
2698: , L_LOG_MODULE || 'unexpected_error'
2699: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
2700: );
2701:
2712: , p_encoded => 'F'
2713: , p_data => x_msg_data
2714: , p_msg_index_out => x_msg_index_out
2715: );
2716: FND_LOG.String
2717: (
2718: fnd_log.level_unexpected
2719: , L_LOG_MODULE || 'unexpected_error'
2720: , 'Error encountered is : ' || x_msg_data || ' [Index:'
2714: , p_msg_index_out => x_msg_index_out
2715: );
2716: FND_LOG.String
2717: (
2718: fnd_log.level_unexpected
2719: , L_LOG_MODULE || 'unexpected_error'
2720: , 'Error encountered is : ' || x_msg_data || ' [Index:'
2721: || x_msg_index_out || ']'
2722: );
2730: FND_MESSAGE.Set_Token('API_NAME', L_API_NAME_FULL);
2731: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
2732: FND_MSG_PUB.ADD;
2733:
2734: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2735: THEN
2736: FND_LOG.String
2737: (
2738: fnd_log.level_unexpected
2732: FND_MSG_PUB.ADD;
2733:
2734: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2735: THEN
2736: FND_LOG.String
2737: (
2738: fnd_log.level_unexpected
2739: , L_LOG_MODULE || 'when_others'
2740: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
2734: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2735: THEN
2736: FND_LOG.String
2737: (
2738: fnd_log.level_unexpected
2739: , L_LOG_MODULE || 'when_others'
2740: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
2741: );
2742: FND_LOG.String
2738: fnd_log.level_unexpected
2739: , L_LOG_MODULE || 'when_others'
2740: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
2741: );
2742: FND_LOG.String
2743: (
2744: fnd_log.level_unexpected
2745: , L_LOG_MODULE || 'when_others'
2746: , SQLERRM
2740: , 'Inside WHEN OTHERS of ' || L_API_NAME_FULL || '. Oracle Error was:'
2741: );
2742: FND_LOG.String
2743: (
2744: fnd_log.level_unexpected
2745: , L_LOG_MODULE || 'when_others'
2746: , SQLERRM
2747: );
2748: END IF ;