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
186: -- Standard start of API savepoint
187: SAVEPOINT Process_Mrl_Req_Forecast;
188:
189: -- Initialize message list if p_init_msg_list is set to TRUE
190: IF FND_API.To_Boolean( p_init_msg_list) THEN
191: FND_MSG_PUB.Initialize;
192: END IF;
193:
194: -- Initialize API return status to success
191: FND_MSG_PUB.Initialize;
192: END IF;
193:
194: -- Initialize API return status to success
195: x_return_status := FND_API.G_RET_STS_SUCCESS;
196:
197: -- perform orphan forcast delete. Which ones? refer to comments for cursor.
198: -- delete operation transferred to due date calculation API
199: /*FOR delete_mtl_forecast_rec IN delete_schedule_mtl_csr LOOP
263:
264: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
265: (
266: p_api_version => 1.0,
267: p_init_msg_list => FND_API.G_FALSE,
268: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
269: x_return_status => x_return_status,
270: x_msg_count => x_msg_count,
271: x_msg_data => x_msg_data,
264: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
265: (
266: p_api_version => 1.0,
267: p_init_msg_list => FND_API.G_FALSE,
268: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
269: x_return_status => x_return_status,
270: x_msg_count => x_msg_count,
271: x_msg_data => x_msg_data,
272: p_route_id => ue_mr_routes_rec.route_id,
278: );
279: l_previous_route_id := ue_mr_routes_rec.route_id;
280: l_previous_req_date := l_requirement_date;
281:
282: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
283: IF(fnd_log.level_error >= G_DEBUG_LEVEL)THEN
284: fnd_log.string
285: (
286: fnd_log.level_error,
287: 'ahl.plsql.AHL_UMP_FORECAST_REQ_PVT.Process_Mrl_Req_Forecast',
288: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error'
289: );
290: END IF;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
293: END IF;
294:
295: IF (l_Route_Mtl_Req_Tbl IS NOT NULL AND l_Route_Mtl_Req_Tbl.COUNT > 0)THEN
522: END IF;
523: -- Check Error Message stack.
524: x_msg_count := FND_MSG_PUB.count_msg;
525: IF x_msg_count > 0 THEN
526: RAISE FND_API.G_EXC_ERROR;
527: END IF;
528:
529: -- Standard check of p_commit
530: IF FND_API.TO_BOOLEAN(p_commit) THEN
526: RAISE FND_API.G_EXC_ERROR;
527: END IF;
528:
529: -- Standard check of p_commit
530: IF FND_API.TO_BOOLEAN(p_commit) THEN
531: COMMIT WORK;
532: END IF;
533:
534: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)THEN
540: );
541: END IF;
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: ROLLBACK TO Process_Mrl_Req_Forecast;
547: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
548: p_data => x_msg_data,
541: END IF;
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: ROLLBACK TO Process_Mrl_Req_Forecast;
547: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
548: p_data => x_msg_data,
549: p_encoded => fnd_api.g_false);
545: x_return_status := FND_API.G_RET_STS_ERROR;
546: ROLLBACK TO Process_Mrl_Req_Forecast;
547: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
548: p_data => x_msg_data,
549: p_encoded => fnd_api.g_false);
550:
551:
552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: p_data => x_msg_data,
549: p_encoded => fnd_api.g_false);
550:
551:
552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: ROLLBACK TO Process_Mrl_Req_Forecast;
555: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
556: p_data => x_msg_data,
549: p_encoded => fnd_api.g_false);
550:
551:
552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: ROLLBACK TO Process_Mrl_Req_Forecast;
555: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => fnd_api.g_false);
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: ROLLBACK TO Process_Mrl_Req_Forecast;
555: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => fnd_api.g_false);
558:
559:
560: WHEN OTHERS THEN
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: p_encoded => fnd_api.g_false);
558:
559:
560: WHEN OTHERS THEN
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: ROLLBACK TO Process_Mrl_Req_Forecast;
563: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
564: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
565: p_procedure_name => 'Process_Mrl_Req_Forecast',
566: p_error_text => SUBSTR(SQLERRM,1,500));
567: END IF;
568: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
569: p_data => x_msg_data,
570: p_encoded => fnd_api.g_false);
571:
572: END Process_Mrl_Req_Forecast;
573:
574: ---
763: --call for material requirement forecast
764: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => l_return_status,
771: x_msg_count => l_msg_count,
764: AHL_UMP_FORECAST_REQ_PVT.process_mrl_req_forecast
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => l_return_status,
771: x_msg_count => l_msg_count,
772: x_msg_data => l_msg_data,
765: (
766: p_api_version => 1.0,
767: p_init_msg_list => FND_API.G_TRUE,
768: p_commit => FND_API.G_FALSE,
769: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
770: x_return_status => l_return_status,
771: x_msg_count => l_msg_count,
772: x_msg_data => l_msg_data,
773: p_applicable_instances_tbl => l_config_node_tbl
773: p_applicable_instances_tbl => l_config_node_tbl
774: );
775:
776: l_msg_count := FND_MSG_PUB.Count_Msg;
777: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
778: THEN
779: retcode := 2; -- error based only on return status
780: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
781: THEN
776: l_msg_count := FND_MSG_PUB.Count_Msg;
777: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
778: THEN
779: retcode := 2; -- error based only on return status
780: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
781: THEN
782: retcode := 1; -- warning based on return status + msg count
783: END IF;
784:
782: retcode := 1; -- warning based on return status + msg count
783: END IF;
784:
785: -- success.
786: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
787: COMMIT WORK;
788: END IF;
789:
790: END IF; -- p_unit_config_hdr_id IS NOT NULL OR p_item_instance_id IS NOT NULL
851: END IF;
852:
853:
854: EXCEPTION
855: WHEN FND_API.G_EXC_ERROR THEN
856: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
857: retcode := 2;
858: log_error_messages;
859:
856: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
857: retcode := 2;
858: log_error_messages;
859:
860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
861: ROLLBACK TO Build_Mrl_Forecast_Stream_s;
862: retcode := 2;
863: log_error_messages;
864:
1084:
1085: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
1086: (
1087: p_api_version => 1.0,
1088: p_init_msg_list => FND_API.G_FALSE,
1089: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1090: x_return_status => l_return_status,
1091: x_msg_count => l_msg_count,
1092: x_msg_data => l_msg_data,
1085: AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req
1086: (
1087: p_api_version => 1.0,
1088: p_init_msg_list => FND_API.G_FALSE,
1089: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1090: x_return_status => l_return_status,
1091: x_msg_count => l_msg_count,
1092: x_msg_data => l_msg_data,
1093: p_route_id => p_route_id,
1100:
1101: --G_previous_route_id := p_route_id;
1102: --G_previous_req_date := l_requirement_date;
1103:
1104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1105: IF (fnd_log.level_error >= G_DEBUG_LEVEL) THEN
1106: fnd_log.string(fnd_log.level_error, l_debug_module,
1107: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error');
1108: END IF;
1105: IF (fnd_log.level_error >= G_DEBUG_LEVEL) THEN
1106: fnd_log.string(fnd_log.level_error, l_debug_module,
1107: 'AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req Threw error');
1108: END IF;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1112: -- END IF; -- (NVL(G_previous_route_id,-1)
1113:
1296:
1297: FOR i IN 1..l_msg_count LOOP
1298: FND_MSG_PUB.get (
1299: p_msg_index => i,
1300: p_encoded => FND_API.G_FALSE,
1301: p_data => l_msg_data,
1302: p_msg_index_out => l_msg_index_out );
1303:
1304: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);