75: -- Parameters :
76: --
77: -- Standard IN Parameters :
78: -- p_api_version IN NUMBER Required
79: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
80: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
81: --
82: -- Standard OUT Parameters :
83: -- x_return_status OUT VARCHAR2 Required
76: --
77: -- Standard IN Parameters :
78: -- p_api_version IN NUMBER Required
79: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
80: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
81: --
82: -- Standard OUT Parameters :
83: -- x_return_status OUT VARCHAR2 Required
84: -- x_msg_count OUT NUMBER Required
96:
97: PROCEDURE Process_Mrl_Req_Forecast
98: (
99: p_api_version IN NUMBER,
100: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
103: x_return_status OUT NOCOPY VARCHAR2,
104: x_msg_count OUT NOCOPY NUMBER,
97: PROCEDURE Process_Mrl_Req_Forecast
98: (
99: p_api_version IN NUMBER,
100: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
103: x_return_status OUT NOCOPY VARCHAR2,
104: x_msg_count OUT NOCOPY NUMBER,
105: x_msg_data OUT NOCOPY VARCHAR2,
98: (
99: p_api_version IN NUMBER,
100: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
103: x_return_status OUT NOCOPY VARCHAR2,
104: x_msg_count OUT NOCOPY NUMBER,
105: x_msg_data OUT NOCOPY VARCHAR2,
106: P_applicable_instances_tbl IN AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type
194: -- Standard start of API savepoint
195: SAVEPOINT Process_Mrl_Req_Forecast;
196:
197: -- Initialize message list if p_init_msg_list is set to TRUE
198: IF FND_API.To_Boolean( p_init_msg_list) THEN
199: FND_MSG_PUB.Initialize;
200: END IF;
201:
202: -- Initialize API return status to success
199: FND_MSG_PUB.Initialize;
200: END IF;
201:
202: -- Initialize API return status to success
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: -- perform orphan forcast delete. Which ones? refer to comments for cursor.
206: -- delete operation transferred to due date calculation API
207: /*FOR delete_mtl_forecast_rec IN delete_schedule_mtl_csr LOOP
276:
277: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
278: (
279: p_api_version => 1.0,
280: p_init_msg_list => FND_API.G_FALSE,
281: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
282: x_return_status => x_return_status,
283: x_msg_count => x_msg_count,
284: x_msg_data => x_msg_data,
277: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
278: (
279: p_api_version => 1.0,
280: p_init_msg_list => FND_API.G_FALSE,
281: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
282: x_return_status => x_return_status,
283: x_msg_count => x_msg_count,
284: x_msg_data => x_msg_data,
285: p_route_id => ue_mr_routes_rec.route_id,
292: );
293: l_previous_route_id := ue_mr_routes_rec.route_id;
294: l_previous_req_date := l_requirement_date;
295:
296: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
297: IF(fnd_log.level_error >= G_DEBUG_LEVEL)THEN
298: fnd_log.string
299: (
300: fnd_log.level_error,
301: 'ahl.plsql.AHL_UMP_FORECAST_REQ_PVT.Process_Mrl_Req_Forecast',
302: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error'
303: );
304: END IF;
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
307: END IF;
308:
309: IF (l_Route_Mtl_Req_Tbl IS NOT NULL AND l_Route_Mtl_Req_Tbl.COUNT > 0)THEN
542: END IF;
543: -- Check Error Message stack.
544: x_msg_count := FND_MSG_PUB.count_msg;
545: IF x_msg_count > 0 THEN
546: RAISE FND_API.G_EXC_ERROR;
547: END IF;
548:
549: -- Standard check of p_commit
550: IF FND_API.TO_BOOLEAN(p_commit) THEN
546: RAISE FND_API.G_EXC_ERROR;
547: END IF;
548:
549: -- Standard check of p_commit
550: IF FND_API.TO_BOOLEAN(p_commit) THEN
551: COMMIT WORK;
552: END IF;
553:
554: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)THEN
560: );
561: END IF;
562:
563: EXCEPTION
564: WHEN FND_API.G_EXC_ERROR THEN
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: ROLLBACK TO Process_Mrl_Req_Forecast;
567: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
568: p_data => x_msg_data,
561: END IF;
562:
563: EXCEPTION
564: WHEN FND_API.G_EXC_ERROR THEN
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: ROLLBACK TO Process_Mrl_Req_Forecast;
567: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
568: p_data => x_msg_data,
569: p_encoded => fnd_api.g_false);
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: ROLLBACK TO Process_Mrl_Req_Forecast;
567: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
568: p_data => x_msg_data,
569: p_encoded => fnd_api.g_false);
570:
571:
572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: p_data => x_msg_data,
569: p_encoded => fnd_api.g_false);
570:
571:
572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: ROLLBACK TO Process_Mrl_Req_Forecast;
575: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
576: p_data => x_msg_data,
569: p_encoded => fnd_api.g_false);
570:
571:
572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: ROLLBACK TO Process_Mrl_Req_Forecast;
575: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
576: p_data => x_msg_data,
577: p_encoded => fnd_api.g_false);
573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574: ROLLBACK TO Process_Mrl_Req_Forecast;
575: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
576: p_data => x_msg_data,
577: p_encoded => fnd_api.g_false);
578:
579:
580: WHEN OTHERS THEN
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: p_encoded => fnd_api.g_false);
578:
579:
580: WHEN OTHERS THEN
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: ROLLBACK TO Process_Mrl_Req_Forecast;
583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
584: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
585: p_procedure_name => 'Process_Mrl_Req_Forecast',
586: p_error_text => SUBSTR(SQLERRM,1,500));
587: END IF;
588: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
589: p_data => x_msg_data,
590: p_encoded => fnd_api.g_false);
591:
592: END Process_Mrl_Req_Forecast;
593:
594: ---
786: --call for material requirement forecast
787: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
788: (
789: p_api_version => 1.0,
790: p_init_msg_list => FND_API.G_TRUE,
791: p_commit => FND_API.G_FALSE,
792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
787: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
788: (
789: p_api_version => 1.0,
790: p_init_msg_list => FND_API.G_TRUE,
791: p_commit => FND_API.G_FALSE,
792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
795: x_msg_data => l_msg_data,
788: (
789: p_api_version => 1.0,
790: p_init_msg_list => FND_API.G_TRUE,
791: p_commit => FND_API.G_FALSE,
792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
793: x_return_status => l_return_status,
794: x_msg_count => l_msg_count,
795: x_msg_data => l_msg_data,
796: p_applicable_instances_tbl => l_config_node_tbl
796: p_applicable_instances_tbl => l_config_node_tbl
797: );
798:
799: l_msg_count := FND_MSG_PUB.Count_Msg;
800: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
801: THEN
802: retcode := 2; -- error based only on return status
803: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
804: THEN
799: l_msg_count := FND_MSG_PUB.Count_Msg;
800: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
801: THEN
802: retcode := 2; -- error based only on return status
803: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
804: THEN
805: retcode := 1; -- warning based on return status + msg count
806: END IF;
807:
805: retcode := 1; -- warning based on return status + msg count
806: END IF;
807:
808: -- success.
809: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
810: COMMIT WORK;
811: END IF;
812:
813: END IF; -- p_unit_config_hdr_id IS NOT NULL OR p_item_instance_id IS NOT NULL
874: END IF;
875:
876:
877: EXCEPTION
878: WHEN FND_API.G_EXC_ERROR THEN
879: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
880: retcode := 2;
881: log_error_messages;
882:
879: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
880: retcode := 2;
881: log_error_messages;
882:
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
885: retcode := 2;
886: log_error_messages;
887:
1120:
1121: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
1122: (
1123: p_api_version => 1.0,
1124: p_init_msg_list => FND_API.G_FALSE,
1125: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1126: x_return_status => l_return_status,
1127: x_msg_count => l_msg_count,
1128: x_msg_data => l_msg_data,
1121: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
1122: (
1123: p_api_version => 1.0,
1124: p_init_msg_list => FND_API.G_FALSE,
1125: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1126: x_return_status => l_return_status,
1127: x_msg_count => l_msg_count,
1128: x_msg_data => l_msg_data,
1129: p_route_id => p_route_id,
1137:
1138: --G_previous_route_id := p_route_id;
1139: --G_previous_req_date := l_requirement_date;
1140:
1141: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1142: IF (fnd_log.level_error >= G_DEBUG_LEVEL) THEN
1143: fnd_log.string(fnd_log.level_error, l_debug_module,
1144: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error');
1145: END IF;
1142: IF (fnd_log.level_error >= G_DEBUG_LEVEL) THEN
1143: fnd_log.string(fnd_log.level_error, l_debug_module,
1144: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error');
1145: END IF;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148:
1149: -- END IF; -- (NVL(G_previous_route_id,-1)
1150:
1339:
1340: FOR i IN 1..l_msg_count LOOP
1341: FND_MSG_PUB.get (
1342: p_msg_index => i,
1343: p_encoded => FND_API.G_FALSE,
1344: p_data => l_msg_data,
1345: p_msg_index_out => l_msg_index_out );
1346:
1347: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);