594:
595: G_concurrent_flag := p_concurrent_flag;
596:
597: IF (p_concurrent_flag = 'Y') THEN
598: fnd_file.put_line(fnd_file.log, 'Starting Process Unit for item instance: '|| p_csi_item_instance_id);
599: --fnd_file.put_line(fnd_file.log, 'G_IS_PM_INSTALLED: '|| G_IS_PM_INSTALLED);
600: END IF;
601:
602: -- Initialize temporary tables.
595: G_concurrent_flag := p_concurrent_flag;
596:
597: IF (p_concurrent_flag = 'Y') THEN
598: fnd_file.put_line(fnd_file.log, 'Starting Process Unit for item instance: '|| p_csi_item_instance_id);
599: --fnd_file.put_line(fnd_file.log, 'G_IS_PM_INSTALLED: '|| G_IS_PM_INSTALLED);
600: END IF;
601:
602: -- Initialize temporary tables.
603:
613: END IF;
614:
615: -- Log success message if called by concurrent program.
616: IF (p_concurrent_flag = 'Y') THEN
617: fnd_file.put_line (FND_FILE.LOG, 'Validated Instance:'||p_csi_item_instance_id);
618: END IF;
619:
620: -- set instance variable.
621: l_csi_item_instance_id := p_csi_item_instance_id;
731:
732: /*
733: -- Log success message if called by concurrent program.
734: IF (p_concurrent_flag = 'Y') THEN
735: fnd_file.put_line (FND_FILE.LOG, 'G Config Tbl:' || G_config_node_tbl.COUNT);
736: fnd_file.put_line (FND_FILE.LOG, 'G_forecast_details_tbl:' || G_forecast_details_tbl.count);
737: fnd_file.put_line (FND_FILE.LOG, 'Last Day window:' || G_last_day_of_window);
738: fnd_file.put_line (FND_FILE.LOG, 'UC Header ID:' || l_uc_header_id);
739: END IF;
732: /*
733: -- Log success message if called by concurrent program.
734: IF (p_concurrent_flag = 'Y') THEN
735: fnd_file.put_line (FND_FILE.LOG, 'G Config Tbl:' || G_config_node_tbl.COUNT);
736: fnd_file.put_line (FND_FILE.LOG, 'G_forecast_details_tbl:' || G_forecast_details_tbl.count);
737: fnd_file.put_line (FND_FILE.LOG, 'Last Day window:' || G_last_day_of_window);
738: fnd_file.put_line (FND_FILE.LOG, 'UC Header ID:' || l_uc_header_id);
739: END IF;
740: */
733: -- Log success message if called by concurrent program.
734: IF (p_concurrent_flag = 'Y') THEN
735: fnd_file.put_line (FND_FILE.LOG, 'G Config Tbl:' || G_config_node_tbl.COUNT);
736: fnd_file.put_line (FND_FILE.LOG, 'G_forecast_details_tbl:' || G_forecast_details_tbl.count);
737: fnd_file.put_line (FND_FILE.LOG, 'Last Day window:' || G_last_day_of_window);
738: fnd_file.put_line (FND_FILE.LOG, 'UC Header ID:' || l_uc_header_id);
739: END IF;
740: */
741:
734: IF (p_concurrent_flag = 'Y') THEN
735: fnd_file.put_line (FND_FILE.LOG, 'G Config Tbl:' || G_config_node_tbl.COUNT);
736: fnd_file.put_line (FND_FILE.LOG, 'G_forecast_details_tbl:' || G_forecast_details_tbl.count);
737: fnd_file.put_line (FND_FILE.LOG, 'Last Day window:' || G_last_day_of_window);
738: fnd_file.put_line (FND_FILE.LOG, 'UC Header ID:' || l_uc_header_id);
739: END IF;
740: */
741:
742: -- Note: Both of the procedures Process_ASO_Unit and Process_PM_Unit use global variables
787: END IF;
788:
789: -- Log success message if called by concurrent program.
790: IF (p_concurrent_flag = 'Y') THEN
791: fnd_file.put_line (FND_FILE.LOG, 'Message-Successfully processed:'||p_csi_item_instance_id);
792: END IF;
793:
794: -- Standard call to get message count and if count is 1, get message info
795: FND_MSG_PUB.Count_And_Get
808: p_encoded => fnd_api.g_false);
809:
810: IF (p_concurrent_flag = 'Y') THEN
811:
812: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
813: log_error_messages;
814: END IF;
815:
816: -- Disable debug
823: p_data => x_msg_data,
824: p_encoded => fnd_api.g_false);
825:
826: IF (p_concurrent_flag = 'Y') THEN
827: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
828: log_error_messages;
829: END IF;
830:
831: -- Disable debug
845: p_encoded => fnd_api.g_false);
846:
847:
848: IF (p_concurrent_flag = 'Y') THEN
849: fnd_file.put_line(fnd_file.log, 'Process Unit failed for item instance: '|| p_csi_item_instance_id);
850: log_error_messages;
851: END IF;
852:
853: -- Disable debug
977: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
978: IF G_debug = 'Y' THEN
979: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
980: END IF;
981: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
982: fnd_file.new_line(FND_FILE.LOG,1);
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
984: EXIT; -- abort and return to calling pgm.
985:
978: IF G_debug = 'Y' THEN
979: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
980: END IF;
981: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
982: fnd_file.new_line(FND_FILE.LOG,1);
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
984: EXIT; -- abort and return to calling pgm.
985:
986: ELSE
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
984: EXIT; -- abort and return to calling pgm.
985:
986: ELSE
987: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id);
988: IF G_debug = 'Y' THEN
989: AHL_DEBUG_PUB.debug('Concurrent request ID:' || l_req_id );
990: END IF;
991: END IF; -- l_req_id = 0 OR ..
1128: AHL_DEBUG_PUB.debug('p_commit:' || p_commit );
1129: END IF;
1130:
1131: IF (p_concurrent_flag = 'Y') THEN
1132: fnd_file.put_line(fnd_file.log, 'Starting processing for contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1133: -- If the call is from concurrent program, then commit should default to TRUE
1134: l_commit := FND_API.G_TRUE;
1135: END IF;
1136:
1184: LOOP
1185: IF (l_ent_cont_tbl(i).coverage_level_code = 'COVER_PROD')
1186: THEN
1187: IF (p_concurrent_flag = 'Y') THEN
1188: fnd_file.put_line(fnd_file.log, 'Calling Process_Unit for instance: ' || l_ent_cont_tbl(i).coverage_level_id);
1189: END IF;
1190: AHL_UMP_ProcessUnit_PVT.Process_Unit
1191: (
1192: p_commit => l_commit,
1196: p_csi_item_instance_id => l_ent_cont_tbl(i).coverage_level_id,
1197: p_concurrent_flag => p_concurrent_flag
1198: );
1199: IF (p_concurrent_flag = 'Y' and (FND_MSG_PUB.count_msg > 0 or x_return_status <> FND_API.G_RET_STS_SUCCESS)) THEN
1200: fnd_file.put_line(fnd_file.log, 'Process_Unit failed for instance: ' || l_ent_cont_tbl(i).coverage_level_id);
1201: END IF;
1202: END IF;
1203: END LOOP;
1204: END IF;
1215: END IF;
1216:
1217: -- Log success message if called by concurrent program.
1218: IF (p_concurrent_flag = 'Y') THEN
1219: fnd_file.put_line(fnd_file.log, 'Message-Successfully processed: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1220: END IF;
1221:
1222: -- Standard call to get message count and if count is 1, get message info
1223: FND_MSG_PUB.Count_And_Get
1237: p_data => x_msg_data,
1238: p_encoded => fnd_api.g_false
1239: );
1240: IF (p_concurrent_flag = 'Y') THEN
1241: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1242: log_error_messages;
1243: END IF;
1244: AHL_DEBUG_PUB.disable_debug;
1245:
1252: p_data => x_msg_data,
1253: p_encoded => fnd_api.g_false
1254: );
1255: IF (p_concurrent_flag = 'Y') THEN
1256: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1257: log_error_messages;
1258: END IF;
1259: AHL_DEBUG_PUB.disable_debug;
1260:
1275: p_data => x_msg_data,
1276: p_encoded => fnd_api.g_false
1277: );
1278: IF (p_concurrent_flag = 'Y') THEN
1279: fnd_file.put_line(fnd_file.log, 'Process_PM_Contracts failed for: contract Number '|| p_contract_number || ' and contract modifier' || p_contract_modifier);
1280: log_error_messages;
1281: END IF;
1282: AHL_DEBUG_PUB.disable_debug;
1283: END Process_PM_Contracts;
1484: CLOSE ahl_unit_config_header_csr;
1485: END IF;
1486:
1487: IF (G_concurrent_flag = 'Y') THEN
1488: fnd_file.put_line (FND_FILE.LOG, 'Unit Config Name:' || l_name);
1489: END IF;
1490:
1491: IF G_DEBUG = 'Y' THEN
1492: AHL_DEBUG_PUB.debug('Unit Config ID:' || x_uc_header_id);
2145: END IF;
2146:
2147: /*
2148: IF (G_concurrent_flag = 'Y') THEN
2149: fnd_file.put_line (FND_FILE.LOG, 'Found applicable MR-ID:title:' || l_appl_rec.mr_header_id || ':'
2150: || l_appl_rec.title);
2151: END IF;
2152: */
2153:
6672: p_encoded => FND_API.G_FALSE,
6673: p_data => l_msg_data,
6674: p_msg_index_out => l_msg_index_out );
6675:
6676: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);
6677: IF G_DEBUG = 'Y' THEN
6678: AHL_DEBUG_PUB.Debug('Err message-'||l_msg_index_out||':' || substr(l_msg_data,1,240));
6679: END IF;
6680:
10432: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
10433: IF l_debug = 'Y' THEN
10434: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10435: END IF;
10436: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10437: fnd_file.new_line(FND_FILE.LOG,1);
10438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10439:
10440: ELSE
10433: IF l_debug = 'Y' THEN
10434: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10435: END IF;
10436: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10437: fnd_file.new_line(FND_FILE.LOG,1);
10438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10439:
10440: ELSE
10441: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || l_start_csi_id || ' and ' || l_end_csi_id);
10437: fnd_file.new_line(FND_FILE.LOG,1);
10438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10439:
10440: ELSE
10441: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || l_start_csi_id || ' and ' || l_end_csi_id);
10442:
10443: IF l_debug = 'Y' THEN
10444: AHL_DEBUG_PUB.debug('Concurrent request ID:' || l_req_id || ' launched to process instances between:' || l_start_csi_id || ' and ' || l_end_csi_id);
10445: END IF;
10508: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
10509: IF l_debug = 'Y' THEN
10510: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10511: END IF;
10512: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10513: fnd_file.new_line(FND_FILE.LOG,1);
10514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10515:
10516: ELSE
10509: IF l_debug = 'Y' THEN
10510: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10511: END IF;
10512: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10513: fnd_file.new_line(FND_FILE.LOG,1);
10514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10515:
10516: ELSE
10517: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || p_csi_min_id || ' and ' || p_csi_min_id);
10513: fnd_file.new_line(FND_FILE.LOG,1);
10514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10515:
10516: ELSE
10517: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id || ' launched to process instances between:' || p_csi_min_id || ' and ' || p_csi_min_id);
10518:
10519: IF l_debug = 'Y' THEN
10520: AHL_DEBUG_PUB.debug('Concurrent request ID:' || l_req_id || ' launched to process instances between:' || p_csi_min_id || ' and ' || p_csi_min_id);
10521: END IF;
10588: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
10589: IF l_debug = 'Y' THEN
10590: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10591: END IF;
10592: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10593: fnd_file.new_line(FND_FILE.LOG,1);
10594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10595:
10596: ELSE
10589: IF l_debug = 'Y' THEN
10590: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10591: END IF;
10592: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10593: fnd_file.new_line(FND_FILE.LOG,1);
10594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10595:
10596: ELSE
10597: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10593: fnd_file.new_line(FND_FILE.LOG,1);
10594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10595:
10596: ELSE
10597: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10598: ' launched to process instances between:' || l_begin_count_csi_id || ' and ' ||
10599: l_mid_point_inst_id);
10600:
10601: IF l_debug = 'Y' THEN
10614: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
10615: IF l_debug = 'Y' THEN
10616: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10617: END IF;
10618: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10619: fnd_file.new_line(FND_FILE.LOG,1);
10620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10621:
10622: ELSE
10615: IF l_debug = 'Y' THEN
10616: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10617: END IF;
10618: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10619: fnd_file.new_line(FND_FILE.LOG,1);
10620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10621:
10622: ELSE
10623: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10619: fnd_file.new_line(FND_FILE.LOG,1);
10620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10621:
10622: ELSE
10623: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id ||
10624: ' launched to process instances between:' || l_begin_count_csi_id || ' and ' ||
10625: l_mid_point_inst_id);
10626:
10627: IF l_debug = 'Y' THEN
10714:
10715: BEGIN
10716:
10717: IF G_DEBUG = 'Y' THEN
10718: fnd_file.put_line(FND_FILE.LOG,'MR Header ID = '||p_mr_header_id);
10719: fnd_file.put_line(FND_FILE.LOG,'CSI Start Instance = '||p_start_instance_id);
10720: fnd_file.put_line(FND_FILE.LOG,'CSI End Instance = '||p_end_instance_id);
10721: fnd_file.put_line(FND_FILE.LOG,'Start Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10722: fnd_file.new_line(FND_FILE.LOG,1);
10715: BEGIN
10716:
10717: IF G_DEBUG = 'Y' THEN
10718: fnd_file.put_line(FND_FILE.LOG,'MR Header ID = '||p_mr_header_id);
10719: fnd_file.put_line(FND_FILE.LOG,'CSI Start Instance = '||p_start_instance_id);
10720: fnd_file.put_line(FND_FILE.LOG,'CSI End Instance = '||p_end_instance_id);
10721: fnd_file.put_line(FND_FILE.LOG,'Start Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10722: fnd_file.new_line(FND_FILE.LOG,1);
10723: END IF;
10716:
10717: IF G_DEBUG = 'Y' THEN
10718: fnd_file.put_line(FND_FILE.LOG,'MR Header ID = '||p_mr_header_id);
10719: fnd_file.put_line(FND_FILE.LOG,'CSI Start Instance = '||p_start_instance_id);
10720: fnd_file.put_line(FND_FILE.LOG,'CSI End Instance = '||p_end_instance_id);
10721: fnd_file.put_line(FND_FILE.LOG,'Start Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10722: fnd_file.new_line(FND_FILE.LOG,1);
10723: END IF;
10724:
10717: IF G_DEBUG = 'Y' THEN
10718: fnd_file.put_line(FND_FILE.LOG,'MR Header ID = '||p_mr_header_id);
10719: fnd_file.put_line(FND_FILE.LOG,'CSI Start Instance = '||p_start_instance_id);
10720: fnd_file.put_line(FND_FILE.LOG,'CSI End Instance = '||p_end_instance_id);
10721: fnd_file.put_line(FND_FILE.LOG,'Start Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10722: fnd_file.new_line(FND_FILE.LOG,1);
10723: END IF;
10724:
10725: -- initialize return status.
10718: fnd_file.put_line(FND_FILE.LOG,'MR Header ID = '||p_mr_header_id);
10719: fnd_file.put_line(FND_FILE.LOG,'CSI Start Instance = '||p_start_instance_id);
10720: fnd_file.put_line(FND_FILE.LOG,'CSI End Instance = '||p_end_instance_id);
10721: fnd_file.put_line(FND_FILE.LOG,'Start Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10722: fnd_file.new_line(FND_FILE.LOG,1);
10723: END IF;
10724:
10725: -- initialize return status.
10726: retcode := 0;
10778: CLOSE get_all_inst;
10779: END IF;
10780:
10781: IF G_DEBUG = 'Y' THEN
10782: fnd_file.new_line(FND_FILE.LOG,1);
10783: fnd_file.put_line(FND_FILE.LOG,'End Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10784: END IF;
10785:
10786: --
10779: END IF;
10780:
10781: IF G_DEBUG = 'Y' THEN
10782: fnd_file.new_line(FND_FILE.LOG,1);
10783: fnd_file.put_line(FND_FILE.LOG,'End Time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10784: END IF;
10785:
10786: --
10787: EXCEPTION
10858: IF (l_req_id = 0 OR l_req_id IS NULL) THEN
10859: IF G_debug = 'Y' THEN
10860: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10861: END IF;
10862: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10863: fnd_file.new_line(FND_FILE.LOG,1);
10864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10865:
10866: ELSE
10859: IF G_debug = 'Y' THEN
10860: AHL_DEBUG_PUB.debug('Tried to submit concurrent request but failed');
10861: END IF;
10862: fnd_file.put_line(FND_FILE.LOG, 'Failed submit concurrent request');
10863: fnd_file.new_line(FND_FILE.LOG,1);
10864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10865:
10866: ELSE
10867: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id );
10863: fnd_file.new_line(FND_FILE.LOG,1);
10864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10865:
10866: ELSE
10867: fnd_file.put_line(FND_FILE.LOG, 'Concurrent request ID:' || l_req_id );
10868: IF G_debug = 'Y' THEN
10869: AHL_DEBUG_PUB.debug('Concurrent request ID:' || l_req_id );
10870: END IF;
10871: END IF; -- l_req_id = 0 OR ..
10941: l_return_status VARCHAR2(1);
10942:
10943: BEGIN
10944:
10945: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10946:
10947: G_DEBUG_LINE_NUM := 1;
10948:
10949: -- initialize return status.
10975: END IF;
10976:
10977: EXIT WHEN (l_instance_id IS NULL);
10978:
10979: fnd_file.new_line(FND_FILE.LOG,1);
10980: fnd_file.put_line(FND_FILE.LOG,'Now processing..:' || l_instance_id);
10981: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10982:
10983: G_DEBUG_LINE_NUM := 20;
10976:
10977: EXIT WHEN (l_instance_id IS NULL);
10978:
10979: fnd_file.new_line(FND_FILE.LOG,1);
10980: fnd_file.put_line(FND_FILE.LOG,'Now processing..:' || l_instance_id);
10981: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10982:
10983: G_DEBUG_LINE_NUM := 20;
10984:
10977: EXIT WHEN (l_instance_id IS NULL);
10978:
10979: fnd_file.new_line(FND_FILE.LOG,1);
10980: fnd_file.put_line(FND_FILE.LOG,'Now processing..:' || l_instance_id);
10981: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10982:
10983: G_DEBUG_LINE_NUM := 20;
10984:
10985: -- Call Process Unit for the item instance.
10991: x_return_status => l_return_status,
10992: p_csi_item_instance_id => l_instance_id,
10993: p_concurrent_flag => 'Y');
10994:
10995: fnd_file.put_line(FND_FILE.LOG,'End time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
10996:
10997: l_msg_count := FND_MSG_PUB.Count_Msg;
10998: IF (retcode <> 2 AND l_return_status <> FND_API.G_RET_STS_SUCCESS)
10999: THEN
11056: l_msg_data varchar2(2000);
11057:
11058: BEGIN
11059:
11060: fnd_file.put_line(FND_FILE.LOG,'Start time:' || to_char(sysdate, 'Month DD, YYYY HH24:MI:SS'));
11061:
11062: IF G_debug = 'Y' THEN
11063: AHL_DEBUG_PUB.debug('Start Process_Unit_Range for MR: Old ID:New ID:' || p_old_mr_header_id || ':' || p_new_mr_header_id);
11064: END IF;
11447:
11448: x_return_status := 'E';
11449:
11450: IF (p_concurrent_flag = 'Y') THEN
11451: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
11452: FOR j IN 1..sql%bulk_exceptions.count
11453: LOOP
11454: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
11455: sqlerrm(-sql%bulk_exceptions(j).error_code) );
11450: IF (p_concurrent_flag = 'Y') THEN
11451: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
11452: FOR j IN 1..sql%bulk_exceptions.count
11453: LOOP
11454: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
11455: sqlerrm(-sql%bulk_exceptions(j).error_code) );
11456: END LOOP;
11457: END IF;
11458:
12072:
12073: x_return_status := 'E';
12074:
12075: IF (p_concurrent_flag = 'Y') THEN
12076: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
12077: FOR j IN 1..sql%bulk_exceptions.count
12078: LOOP
12079: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
12080: sqlerrm(-sql%bulk_exceptions(j).error_code) );
12075: IF (p_concurrent_flag = 'Y') THEN
12076: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
12077: FOR j IN 1..sql%bulk_exceptions.count
12078: LOOP
12079: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
12080: sqlerrm(-sql%bulk_exceptions(j).error_code) );
12081: END LOOP;
12082: END IF;
12083:
12135: END IF;
12136: x_return_status := 'E';
12137:
12138: IF (p_concurrent_flag = 'Y') THEN
12139: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
12140: FOR j IN 1..sql%bulk_exceptions.count
12141: LOOP
12142: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
12143: sqlerrm(-sql%bulk_exceptions(j).error_code) );
12138: IF (p_concurrent_flag = 'Y') THEN
12139: fnd_file.put_line(fnd_file.log, 'Following error(s) occured while inserting into table ahl_bue_worker_data');
12140: FOR j IN 1..sql%bulk_exceptions.count
12141: LOOP
12142: fnd_file.put_line(fnd_file.log, sql%bulk_exceptions(j).error_index || ', ' ||
12143: sqlerrm(-sql%bulk_exceptions(j).error_code) );
12144: END LOOP;
12145: END IF;
12146: