16: -- Parameters :
17: --
18: -- Standard IN Parameters :
19: -- p_api_version IN NUMBER Default 1.0
20: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
21: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
22: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
23: -- Standard OUT Parameters :
24: -- x_return_status OUT VARCHAR2 Required
17: --
18: -- Standard IN Parameters :
19: -- p_api_version IN NUMBER Default 1.0
20: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
21: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
22: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
23: -- Standard OUT Parameters :
24: -- x_return_status OUT VARCHAR2 Required
25: -- x_msg_count OUT NUMBER Required
18: -- Standard IN Parameters :
19: -- p_api_version IN NUMBER Default 1.0
20: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
21: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
22: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
23: -- Standard OUT Parameters :
24: -- x_return_status OUT VARCHAR2 Required
25: -- x_msg_count OUT NUMBER Required
26: -- x_msg_data OUT VARCHAR2 Required
45: -- End of Comments.
46:
47: PROCEDURE process_utilization_forecast (
48: p_api_version IN NUMBER := 1.0,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_x_uf_header_rec IN OUT NOCOPY AHL_UMP_UF_PVT.uf_header_rec_type,
46:
47: PROCEDURE process_utilization_forecast (
48: p_api_version IN NUMBER := 1.0,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_x_uf_header_rec IN OUT NOCOPY AHL_UMP_UF_PVT.uf_header_rec_type,
54: p_x_uf_details_tbl IN OUT NOCOPY AHL_UMP_UF_PVT.uf_details_tbl_type,
47: PROCEDURE process_utilization_forecast (
48: p_api_version IN NUMBER := 1.0,
49: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
50: p_commit IN VARCHAR2 := FND_API.G_FALSE,
51: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_x_uf_header_rec IN OUT NOCOPY AHL_UMP_UF_PVT.uf_header_rec_type,
54: p_x_uf_details_tbl IN OUT NOCOPY AHL_UMP_UF_PVT.uf_details_tbl_type,
55: x_return_status OUT NOCOPY VARCHAR2,
64: -- Standard start of API savepoint
65: SAVEPOINT process_uf_Pub;
66:
67: -- Standard call to check for call compatibility
68: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
69: G_PKG_NAME) THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END IF;
72:
66:
67: -- Standard call to check for call compatibility
68: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
69: G_PKG_NAME) THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END IF;
72:
73: -- Initialize message list if p_init_msg_list is set to TRUE
74: IF FND_API.To_Boolean(p_init_msg_list) THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END IF;
72:
73: -- Initialize message list if p_init_msg_list is set to TRUE
74: IF FND_API.To_Boolean(p_init_msg_list) THEN
75: FND_MSG_PUB.Initialize;
76: END IF;
77:
78: -- Initialize API return status to success
75: FND_MSG_PUB.Initialize;
76: END IF;
77:
78: -- Initialize API return status to success
79: x_return_status := FND_API.G_RET_STS_SUCCESS;
80:
81: -- Call Private API.
82: AHL_UMP_UF_PVT.process_utilization_forecast (
83: p_api_version => 1.0,
88: x_msg_data => x_msg_data );
89:
90:
91:
92: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
89:
90:
91:
92: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97:
90:
91:
92: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97:
98: -- Standard check of p_commit
91:
92: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
93: RAISE FND_API.G_EXC_ERROR;
94: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97:
98: -- Standard check of p_commit
99: IF FND_API.To_Boolean(p_commit) THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97:
98: -- Standard check of p_commit
99: IF FND_API.To_Boolean(p_commit) THEN
100: COMMIT WORK;
101: END IF;
102:
103: -- Standard call to get message count and if count is 1, get message
103: -- Standard call to get message count and if count is 1, get message
104: FND_MSG_PUB.Count_And_Get
105: ( p_count => x_msg_count,
106: p_data => x_msg_data,
107: p_encoded => fnd_api.g_false);
108:
109: --
110: EXCEPTION
111: WHEN FND_API.G_EXC_ERROR THEN
107: p_encoded => fnd_api.g_false);
108:
109: --
110: EXCEPTION
111: WHEN FND_API.G_EXC_ERROR THEN
112: x_return_status := FND_API.G_RET_STS_ERROR;
113: Rollback to process_uf_Pub;
114: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
115: p_data => x_msg_data,
108:
109: --
110: EXCEPTION
111: WHEN FND_API.G_EXC_ERROR THEN
112: x_return_status := FND_API.G_RET_STS_ERROR;
113: Rollback to process_uf_Pub;
114: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
115: p_data => x_msg_data,
116: p_encoded => fnd_api.g_false);
112: x_return_status := FND_API.G_RET_STS_ERROR;
113: Rollback to process_uf_Pub;
114: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
115: p_data => x_msg_data,
116: p_encoded => fnd_api.g_false);
117: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
118:
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
116: p_encoded => fnd_api.g_false);
117: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
118:
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: Rollback to process_uf_Pub;
123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
124: p_data => x_msg_data,
117: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
118:
119:
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: Rollback to process_uf_Pub;
123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
124: p_data => x_msg_data,
125: p_encoded => fnd_api.g_false);
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: Rollback to process_uf_Pub;
123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
124: p_data => x_msg_data,
125: p_encoded => fnd_api.g_false);
126: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
127:
128: WHEN OTHERS THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
125: p_encoded => fnd_api.g_false);
126: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
127:
128: WHEN OTHERS THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: Rollback to process_uf_Pub;
131: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
133: p_procedure_name => 'process_utilization_forecast',
134: p_error_text => SQLERRM);
135: --END IF;
136: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
137: p_data => x_msg_data,
138: p_encoded => fnd_api.g_false);
139: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
140:
141:
142: END process_utilization_forecast;