1039: IF G_DEBUG = 'Y' THEN
1040: AHL_DEBUG_PUB.debug(G_PKG_NAME || '.' || l_api_name || '::Fleet - Unit Assocition is Updated with SR_ID::'||l_nr_task_rec.incident_id );
1041: END IF;
1042:
1043: fnd_file.put_line(FND_FILE.LOG, 'SR created for Unit ::'||l_cur_item_instance_det.name);
1044: fnd_file.put_line(FND_FILE.LOG, 'SR created for Fleet ::'||l_fleet_unit_asso_rec.name);
1045:
1046: END IF; -- end reconfig_mr count
1047:
1040: AHL_DEBUG_PUB.debug(G_PKG_NAME || '.' || l_api_name || '::Fleet - Unit Assocition is Updated with SR_ID::'||l_nr_task_rec.incident_id );
1041: END IF;
1042:
1043: fnd_file.put_line(FND_FILE.LOG, 'SR created for Unit ::'||l_cur_item_instance_det.name);
1044: fnd_file.put_line(FND_FILE.LOG, 'SR created for Fleet ::'||l_fleet_unit_asso_rec.name);
1045:
1046: END IF; -- end reconfig_mr count
1047:
1048: ELSIF(l_fleet_unit_asso_rec.reconfig_sr_id IS NOT NULL)
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: END IF;
1288: END IF;
1289:
1290: fnd_file.put_line(FND_FILE.LOG, 'SR Updated for Unit ::'||l_cur_item_instance_det.name);
1291: fnd_file.put_line(FND_FILE.LOG, 'SR Updated for Fleet ::'||l_fleet_unit_asso_rec.name);
1292:
1293: -- If all the reconfiguaration MRs deleted Close/Cancel the SR
1294: ELSE
1287: END IF;
1288: END IF;
1289:
1290: fnd_file.put_line(FND_FILE.LOG, 'SR Updated for Unit ::'||l_cur_item_instance_det.name);
1291: fnd_file.put_line(FND_FILE.LOG, 'SR Updated for Fleet ::'||l_fleet_unit_asso_rec.name);
1292:
1293: -- If all the reconfiguaration MRs deleted Close/Cancel the SR
1294: ELSE
1295: --l_nr_task_rec.status_id := 1178; -- Status Id for Cancelled
1400: FND_MSG_PUB.ADD;
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402: END IF;
1403:
1404: fnd_file.put_line(FND_FILE.LOG, 'SR Closed for Unit ::'||l_cur_item_instance_det.name);
1405: fnd_file.put_line(FND_FILE.LOG, 'SR Closed for Fleet ::'||l_fleet_unit_asso_rec.name);
1406: END IF;
1407:
1408: END IF;
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402: END IF;
1403:
1404: fnd_file.put_line(FND_FILE.LOG, 'SR Closed for Unit ::'||l_cur_item_instance_det.name);
1405: fnd_file.put_line(FND_FILE.LOG, 'SR Closed for Fleet ::'||l_fleet_unit_asso_rec.name);
1406: END IF;
1407:
1408: END IF;
1409: CLOSE is_sr_planned;
1410: END IF;
1411: EXCEPTION
1412: WHEN OTHERS THEN
1413:
1414: fnd_file.put_line(FND_FILE.LOG, '**************************Warning Messages**********************');
1415: fnd_file.put_line(FND_FILE.LOG, 'Message Count '||FND_MSG_PUB.Count_Msg);
1416: -- Standard call to get message count.
1417: l_msg_count := FND_MSG_PUB.Count_Msg;
1418:
1411: EXCEPTION
1412: WHEN OTHERS THEN
1413:
1414: fnd_file.put_line(FND_FILE.LOG, '**************************Warning Messages**********************');
1415: fnd_file.put_line(FND_FILE.LOG, 'Message Count '||FND_MSG_PUB.Count_Msg);
1416: -- Standard call to get message count.
1417: l_msg_count := FND_MSG_PUB.Count_Msg;
1418:
1419: fnd_file.put_line(FND_FILE.LOG, 'Exception occured for Unit ::'||l_cur_item_instance_det.name);
1415: fnd_file.put_line(FND_FILE.LOG, 'Message Count '||FND_MSG_PUB.Count_Msg);
1416: -- Standard call to get message count.
1417: l_msg_count := FND_MSG_PUB.Count_Msg;
1418:
1419: fnd_file.put_line(FND_FILE.LOG, 'Exception occured for Unit ::'||l_cur_item_instance_det.name);
1420: fnd_file.put_line(FND_FILE.LOG, 'Exception occured for Fleet ::'||l_fleet_unit_asso_rec.name);
1421:
1422: FOR i IN 1..l_msg_count LOOP
1423: FND_MSG_PUB.get (
1416: -- Standard call to get message count.
1417: l_msg_count := FND_MSG_PUB.Count_Msg;
1418:
1419: fnd_file.put_line(FND_FILE.LOG, 'Exception occured for Unit ::'||l_cur_item_instance_det.name);
1420: fnd_file.put_line(FND_FILE.LOG, 'Exception occured for Fleet ::'||l_fleet_unit_asso_rec.name);
1421:
1422: FOR i IN 1..l_msg_count LOOP
1423: FND_MSG_PUB.get (
1424: p_msg_index => i,
1425: p_encoded => FND_API.G_FALSE,
1426: p_data => l_msg_data,
1427: p_msg_index_out => j );
1428:
1429: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||j||':' || l_msg_data);
1430: IF G_DEBUG = 'Y' THEN
1431: AHL_DEBUG_PUB.Debug('Err message-'||j||':' || substr(l_msg_data,1,240));
1432: END IF;
1433: END LOOP;
1430: IF G_DEBUG = 'Y' THEN
1431: AHL_DEBUG_PUB.Debug('Err message-'||j||':' || substr(l_msg_data,1,240));
1432: END IF;
1433: END LOOP;
1434: fnd_file.put_line(FND_FILE.LOG, 'End of Warning messages');
1435:
1436: END;
1437:
1438:
1517:
1518: -- Initialize error message stack by default
1519: FND_MSG_PUB.Initialize;
1520:
1521: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1522: fnd_file.put_line(fnd_file.log, 'API inputs p_fleet_id -> '||p_fleet_id);
1523: fnd_file.put_line(fnd_file.log, 'API inputs p_unit_config_id -> '||p_unit_config_id);
1524: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1525:
1518: -- Initialize error message stack by default
1519: FND_MSG_PUB.Initialize;
1520:
1521: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1522: fnd_file.put_line(fnd_file.log, 'API inputs p_fleet_id -> '||p_fleet_id);
1523: fnd_file.put_line(fnd_file.log, 'API inputs p_unit_config_id -> '||p_unit_config_id);
1524: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1525:
1526: process_reconfig_mrs
1519: FND_MSG_PUB.Initialize;
1520:
1521: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1522: fnd_file.put_line(fnd_file.log, 'API inputs p_fleet_id -> '||p_fleet_id);
1523: fnd_file.put_line(fnd_file.log, 'API inputs p_unit_config_id -> '||p_unit_config_id);
1524: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1525:
1526: process_reconfig_mrs
1527: (
1520:
1521: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1522: fnd_file.put_line(fnd_file.log, 'API inputs p_fleet_id -> '||p_fleet_id);
1523: fnd_file.put_line(fnd_file.log, 'API inputs p_unit_config_id -> '||p_unit_config_id);
1524: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
1525:
1526: process_reconfig_mrs
1527: (
1528: p_api_version => 1.0,
1547: THEN
1548: retcode := 1; -- warning based on return status + msg count
1549: ELSE
1550: retcode := 0;
1551: fnd_file.put_line(fnd_file.log, 'Reconfiguration MRS API executed successfully');
1552: END IF;
1553:
1554:
1555: END process_reconfiguration_mrs;