36: --------------------------------------------------------------------
37:
38: PROCEDURE Process_Space_Restriction (
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
41: p_commit IN VARCHAR2 := FND_API.g_false,
42: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
43: p_module_type IN VARCHAR2 := 'JSP',
44: p_x_space_restriction_tbl IN OUT NOCOPY Space_Restriction_Tbl,
37:
38: PROCEDURE Process_Space_Restriction (
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
41: p_commit IN VARCHAR2 := FND_API.g_false,
42: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
43: p_module_type IN VARCHAR2 := 'JSP',
44: p_x_space_restriction_tbl IN OUT NOCOPY Space_Restriction_Tbl,
45: x_return_status OUT NOCOPY VARCHAR2,
38: PROCEDURE Process_Space_Restriction (
39: p_api_version IN NUMBER,
40: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
41: p_commit IN VARCHAR2 := FND_API.g_false,
42: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
43: p_module_type IN VARCHAR2 := 'JSP',
44: p_x_space_restriction_tbl IN OUT NOCOPY Space_Restriction_Tbl,
45: x_return_status OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
65: IF G_DEBUG='Y' THEN
66: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_space_unavl_pub.Process Space Restriction','+SUAVL+');
67: END IF;
68: -- Standard call to check for call compatibility.
69: IF FND_API.to_boolean(p_init_msg_list)
70: THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73: -- Initialize API return status to success
70: THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73: -- Initialize API return status to success
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: -- Initialize message list if p_init_msg_list is set to TRUE.
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
77: p_api_version,
78: l_api_name,G_PKG_NAME)
72: END IF;
73: -- Initialize API return status to success
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: -- Initialize message list if p_init_msg_list is set to TRUE.
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
77: p_api_version,
78: l_api_name,G_PKG_NAME)
79: THEN
80: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
76: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
77: p_api_version,
78: l_api_name,G_PKG_NAME)
79: THEN
80: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81: END IF;
82: --------------------Start of API Body-----------------------------------
83: IF p_x_space_restriction_tbl.COUNT > 0
84: THEN
132: l_msg_count := Fnd_Msg_Pub.count_msg;
133:
134: IF l_msg_count > 0 THEN
135: X_msg_count := l_msg_count;
136: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
137: RAISE Fnd_Api.G_EXC_ERROR;
138: END IF;
139:
140: --Standard check for commit
133:
134: IF l_msg_count > 0 THEN
135: X_msg_count := l_msg_count;
136: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
137: RAISE Fnd_Api.G_EXC_ERROR;
138: END IF;
139:
140: --Standard check for commit
141: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
137: RAISE Fnd_Api.G_EXC_ERROR;
138: END IF;
139:
140: --Standard check for commit
141: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
142: COMMIT;
143: END IF;
144: -- Debug info
145: IF G_DEBUG='Y' THEN
148: Ahl_Debug_Pub.disable_debug;
149: END IF;
150:
151: EXCEPTION
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO process_space_restriction;
154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
150:
151: EXCEPTION
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO process_space_restriction;
154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
158:
151: EXCEPTION
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO process_space_restriction;
154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
158:
159: IF G_DEBUG='Y' THEN
163: END IF;
164: -- Check if API is called in debug mode. If yes, disable debug.
165: AHL_DEBUG_PUB.disable_debug;
166:
167: WHEN FND_API.G_EXC_ERROR THEN
168: ROLLBACK TO process_space_restriction;
169: X_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
171: p_count => x_msg_count,
165: AHL_DEBUG_PUB.disable_debug;
166:
167: WHEN FND_API.G_EXC_ERROR THEN
168: ROLLBACK TO process_space_restriction;
169: X_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
171: p_count => x_msg_count,
172: p_data => X_msg_data);
173: -- Debug info.
166:
167: WHEN FND_API.G_EXC_ERROR THEN
168: ROLLBACK TO process_space_restriction;
169: X_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
171: p_count => x_msg_count,
172: p_data => X_msg_data);
173: -- Debug info.
174: IF G_DEBUG='Y' THEN
180: AHL_DEBUG_PUB.disable_debug;
181:
182: WHEN OTHERS THEN
183: ROLLBACK TO process_space_restriction;
184: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
186: THEN
187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_UNAVL_PUB',
188: p_procedure_name => 'PROCESS_SPACE_RESTRICTION',
187: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SPACE_UNAVL_PUB',
188: p_procedure_name => 'PROCESS_SPACE_RESTRICTION',
189: p_error_text => SUBSTR(SQLERRM,1,240));
190: END IF;
191: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
192: p_count => x_msg_count,
193: p_data => X_msg_data);
194:
195: -- Debug info.