DBA Data[Home] [Help]

APPS.AHL_SIMULATION_PVT dependencies on FND_API

Line 25: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

21: */
22: PROCEDURE Delete_Simulation_Plan
23: (
24: p_api_version IN NUMBER,
25: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
26: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
27: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
28: p_module_type IN VARCHAR2 := NULL,
29: p_simulation_plan_id IN NUMBER,

Line 26: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,

22: PROCEDURE Delete_Simulation_Plan
23: (
24: p_api_version IN NUMBER,
25: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
26: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
27: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
28: p_module_type IN VARCHAR2 := NULL,
29: p_simulation_plan_id IN NUMBER,
30: x_return_status OUT NOCOPY VARCHAR2,

Line 27: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

23: (
24: p_api_version IN NUMBER,
25: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
26: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
27: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
28: p_module_type IN VARCHAR2 := NULL,
29: p_simulation_plan_id IN NUMBER,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,

Line 60: x_return_status := FND_API.G_RET_STS_SUCCESS;

56:
57: ---------------------------------------- Start of the procedure Delete_Simulation_Plan ----------------------------------------------------------------------
58: BEGIN
59: -- initialize return status.
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61: -- Standard start of API savepoint
62: SAVEPOINT Delete_Simulation_Plan;
63: -- Initialize message list if p_init_msg_list is set to TRUE
64: IF FND_API.To_Boolean(p_init_msg_list) THEN

Line 64: IF FND_API.To_Boolean(p_init_msg_list) THEN

60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61: -- Standard start of API savepoint
62: SAVEPOINT Delete_Simulation_Plan;
63: -- Initialize message list if p_init_msg_list is set to TRUE
64: IF FND_API.To_Boolean(p_init_msg_list) THEN
65: FND_MSG_PUB.Initialize;
66: END IF;
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,G_PKG_NAME) THEN

Line 68: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN

64: IF FND_API.To_Boolean(p_init_msg_list) THEN
65: FND_MSG_PUB.Initialize;
66: END IF;
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,G_PKG_NAME) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Check for Required Parameters

Line 69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

65: FND_MSG_PUB.Initialize;
66: END IF;
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,G_PKG_NAME) THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Check for Required Parameters
73: IF(p_simulation_plan_id IS NULL) THEN

Line 79: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

75: FND_MSG_PUB.ADD;
76: IF (l_log_unexpected >= l_log_current_level) THEN
77: fnd_log.string ( l_log_unexpected, 'ahl.plsql.', 'For this API flow, Simulation Plan Id is mandatory but found null in input ' );
78: END IF;
79: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80: END IF;
81:
82: --Logging
83: IF (l_log_statement >= l_log_current_level) THEN

Line 132: RAISE FND_API.G_EXC_ERROR;

128: ELSE
129: ROLLBACK TO Delete_Simulation_Plan;
130: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134: -- End of processing for Sim Ues
135:
136: -- Start processing fleet unit assocs

Line 146: RAISE FND_API.G_EXC_ERROR;

142: ELSE
143: ROLLBACK TO Delete_Simulation_Plan;
144: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
145: FND_MSG_PUB.ADD;
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148: -- End of processing for Fleet unit association
149:
150: -- Deletion of simulation plan should also remove the UMP BOM entries for the plan

Line 170: RAISE FND_API.G_EXC_ERROR;

166: ELSE
167: ROLLBACK TO Delete_Simulation_Plan;
168: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
169: FND_MSG_PUB.ADD;
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: -- Standard check of p_commit
174: IF FND_API.TO_BOOLEAN(p_commit) THEN

Line 174: IF FND_API.TO_BOOLEAN(p_commit) THEN

170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172:
173: -- Standard check of p_commit
174: IF FND_API.TO_BOOLEAN(p_commit) THEN
175: COMMIT;
176: END IF;
177:
178: -- Logging

Line 184: WHEN FND_API.G_EXC_ERROR THEN

180: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure Delete_Simulation_Plan');
181: END IF;
182:
183: EXCEPTION
184: WHEN FND_API.G_EXC_ERROR THEN
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: ROLLBACK TO Delete_Simulation_Plan;
187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 185: x_return_status := FND_API.G_RET_STS_ERROR;

181: END IF;
182:
183: EXCEPTION
184: WHEN FND_API.G_EXC_ERROR THEN
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: ROLLBACK TO Delete_Simulation_Plan;
187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

183: EXCEPTION
184: WHEN FND_API.G_EXC_ERROR THEN
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: ROLLBACK TO Delete_Simulation_Plan;
187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: ROLLBACK TO Delete_Simulation_Plan;
191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

Line 188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

184: WHEN FND_API.G_EXC_ERROR THEN
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: ROLLBACK TO Delete_Simulation_Plan;
187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: ROLLBACK TO Delete_Simulation_Plan;
191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
192: WHEN OTHERS THEN

Line 189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

185: x_return_status := FND_API.G_RET_STS_ERROR;
186: ROLLBACK TO Delete_Simulation_Plan;
187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: ROLLBACK TO Delete_Simulation_Plan;
191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
192: WHEN OTHERS THEN
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

187: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: ROLLBACK TO Delete_Simulation_Plan;
191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
192: WHEN OTHERS THEN
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: ROLLBACK TO Delete_Simulation_Plan;
195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: ROLLBACK TO Delete_Simulation_Plan;
191: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
192: WHEN OTHERS THEN
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: ROLLBACK TO Delete_Simulation_Plan;
195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
196: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Delete_Simulation_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
197: END IF;

Line 198: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

194: ROLLBACK TO Delete_Simulation_Plan;
195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
196: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Delete_Simulation_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
197: END IF;
198: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
199: END Delete_Simulation_Plan;
200:
201: ----------------------------------------- End of the procedure Delete_Simulation_Plan---------------------------------------------------------------------
202:

Line 210: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

206: */
207: PROCEDURE Implement_Simulation_Plan
208: (
209: p_api_version IN NUMBER,
210: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
211: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
212: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
213: p_module_type IN VARCHAR2 := NULL,
214: p_simulation_plan_id IN NUMBER,

Line 211: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,

207: PROCEDURE Implement_Simulation_Plan
208: (
209: p_api_version IN NUMBER,
210: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
211: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
212: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
213: p_module_type IN VARCHAR2 := NULL,
214: p_simulation_plan_id IN NUMBER,
215: p_run_bue_flag IN VARCHAR2 := 'N',

Line 212: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

208: (
209: p_api_version IN NUMBER,
210: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
211: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
212: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
213: p_module_type IN VARCHAR2 := NULL,
214: p_simulation_plan_id IN NUMBER,
215: p_run_bue_flag IN VARCHAR2 := 'N',
216: x_return_status OUT NOCOPY VARCHAR2,

Line 288: x_return_status := FND_API.G_RET_STS_SUCCESS;

284:
285: ------------------------------------------- Start of the procedure Implement_Simulation_Plan -------------------------------------------------------
286: BEGIN
287: -- initialize return status.
288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289: -- Standard start of API savepoint
290: SAVEPOINT Implement_Simulation_Plan;
291: -- Initialize message list if p_init_msg_list is set to TRUE
292: IF FND_API.To_Boolean(p_init_msg_list) THEN

Line 292: IF FND_API.To_Boolean(p_init_msg_list) THEN

288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289: -- Standard start of API savepoint
290: SAVEPOINT Implement_Simulation_Plan;
291: -- Initialize message list if p_init_msg_list is set to TRUE
292: IF FND_API.To_Boolean(p_init_msg_list) THEN
293: FND_MSG_PUB.Initialize;
294: END IF;
295: -- Standard call to check for call compatibility.
296: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN

Line 296: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN

292: IF FND_API.To_Boolean(p_init_msg_list) THEN
293: FND_MSG_PUB.Initialize;
294: END IF;
295: -- Standard call to check for call compatibility.
296: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;
299:
300: -- Check for Required Parameters

Line 297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

293: FND_MSG_PUB.Initialize;
294: END IF;
295: -- Standard call to check for call compatibility.
296: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;
299:
300: -- Check for Required Parameters
301: IF(p_simulation_plan_id IS NULL) THEN

Line 309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

305: -- Logging
306: IF (l_log_unexpected >= l_log_current_level) THEN
307: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Implement_Simulation_Plan', 'For this API flow, Simulation Plan Id is mandatory but found null in input ' );
308: END IF;
309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
310: END IF;
311:
312: -- Logging
313: IF (l_log_statement >= l_log_current_level) THEN

Line 335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

331: WHEN NO_DATA_FOUND THEN
332: IF (l_log_unexpected >= l_log_current_level) THEN
333: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Implement_Simulation_Plan', 'No primary plan data' );
334: END IF;
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336: END;
337:
338: --Remove the unit - plan association for the primary plan for the relevant units
339: IF (l_primary_plan_id IS NOT NULL) THEN

Line 473: RAISE FND_API.G_EXC_ERROR;

469: -- Already lock exists on the rows
470: ROLLBACK TO Implement_Simulation_Plan;
471: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
472: FND_MSG_PUB.ADD;
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: -- End of processing fleet unit assocs rows
476:
477: -- Start processing UEs

Line 495: RAISE FND_API.G_EXC_ERROR;

491: ELSE
492: ROLLBACK TO Implement_Simulation_Plan;
493: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
494: FND_MSG_PUB.ADD;
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497: END IF;
498: -- End of processing UE rows
499:

Line 501: IF FND_API.TO_BOOLEAN(p_commit) THEN

497: END IF;
498: -- End of processing UE rows
499:
500: -- Standard check of p_commit
501: IF FND_API.TO_BOOLEAN(p_commit) THEN
502: COMMIT;
503: SAVEPOINT Implement_Simulation_Plan;
504: --Logging
505: IF (l_log_statement >= l_log_current_level) THEN

Line 547: WHEN FND_API.G_EXC_ERROR THEN

543: IF (l_log_procedure >= l_log_current_level) THEN
544: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure Implement_Simulation_Plan');
545: END IF;
546: EXCEPTION
547: WHEN FND_API.G_EXC_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: ROLLBACK TO Implement_Simulation_Plan;
550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 548: x_return_status := FND_API.G_RET_STS_ERROR;

544: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure Implement_Simulation_Plan');
545: END IF;
546: EXCEPTION
547: WHEN FND_API.G_EXC_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: ROLLBACK TO Implement_Simulation_Plan;
550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

546: EXCEPTION
547: WHEN FND_API.G_EXC_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: ROLLBACK TO Implement_Simulation_Plan;
550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: ROLLBACK TO Implement_Simulation_Plan;
554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

Line 551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

547: WHEN FND_API.G_EXC_ERROR THEN
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: ROLLBACK TO Implement_Simulation_Plan;
550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: ROLLBACK TO Implement_Simulation_Plan;
554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
555: WHEN OTHERS THEN

Line 552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

548: x_return_status := FND_API.G_RET_STS_ERROR;
549: ROLLBACK TO Implement_Simulation_Plan;
550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: ROLLBACK TO Implement_Simulation_Plan;
554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
555: WHEN OTHERS THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

550: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: ROLLBACK TO Implement_Simulation_Plan;
554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
555: WHEN OTHERS THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: ROLLBACK TO Implement_Simulation_Plan;
558: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: ROLLBACK TO Implement_Simulation_Plan;
554: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
555: WHEN OTHERS THEN
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: ROLLBACK TO Implement_Simulation_Plan;
558: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
559: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Implement_Simulation_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
560: END IF;

Line 561: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

557: ROLLBACK TO Implement_Simulation_Plan;
558: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
559: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Implement_Simulation_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
560: END IF;
561: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
562: END Implement_Simulation_Plan;
563:
564: -------------------------------------------------------- End of the procedure Implement_Simulation_Plan -----------------------------------------------------
565:

Line 573: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

569: */
570: PROCEDURE Remove_Unit_From_Plan
571: (
572: p_api_version IN NUMBER,
573: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
574: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
575: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
576: p_module_type IN VARCHAR2 := NULL,
577: p_simulation_ue_id IN NUMBER,

Line 574: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,

570: PROCEDURE Remove_Unit_From_Plan
571: (
572: p_api_version IN NUMBER,
573: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
574: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
575: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
576: p_module_type IN VARCHAR2 := NULL,
577: p_simulation_ue_id IN NUMBER,
578: x_return_status OUT NOCOPY VARCHAR2,

Line 575: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

571: (
572: p_api_version IN NUMBER,
573: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
574: p_commit IN VARCHAR2 := Fnd_Api.G_TRUE,
575: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
576: p_module_type IN VARCHAR2 := NULL,
577: p_simulation_ue_id IN NUMBER,
578: x_return_status OUT NOCOPY VARCHAR2,
579: x_msg_count OUT NOCOPY NUMBER,

Line 613: x_return_status := FND_API.G_RET_STS_SUCCESS;

609:
610: --------------------------------------------------- Start of procedure Remove_Unit_From_Plan ------------------------------------------------------------------
611: BEGIN
612: -- initialize return status.
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: -- Standard start of API savepoint
615: SAVEPOINT Remove_Unit_From_Plan;
616: -- Initialize message list if p_init_msg_list is set to TRUE
617: IF FND_API.To_Boolean(p_init_msg_list) THEN

Line 617: IF FND_API.To_Boolean(p_init_msg_list) THEN

613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: -- Standard start of API savepoint
615: SAVEPOINT Remove_Unit_From_Plan;
616: -- Initialize message list if p_init_msg_list is set to TRUE
617: IF FND_API.To_Boolean(p_init_msg_list) THEN
618: FND_MSG_PUB.Initialize;
619: END IF;
620: -- Standard call to check for call compatibility.
621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN

Line 621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN

617: IF FND_API.To_Boolean(p_init_msg_list) THEN
618: FND_MSG_PUB.Initialize;
619: END IF;
620: -- Standard call to check for call compatibility.
621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: -- Check for Required Parameters

Line 622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

618: FND_MSG_PUB.Initialize;
619: END IF;
620: -- Standard call to check for call compatibility.
621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name,G_PKG_NAME) THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: -- Check for Required Parameters
626: IF(p_simulation_ue_id IS NULL) THEN

Line 632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

628: FND_MSG_PUB.ADD;
629: IF (l_log_unexpected >= l_log_current_level) THEN
630: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Remove_Unit_From_Plan', 'For this API flow, Simulation Ue Id is mandatory but found null in input ' );
631: END IF;
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634:
635: --Logging
636: IF (l_log_statement >= l_log_current_level) THEN

Line 655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

651: FND_MSG_PUB.ADD;
652: IF (l_log_unexpected >= l_log_current_level) THEN
653: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Remove_Unit_From_Plan', 'There are no rows for the selected simulation effectivity id' );
654: END IF;
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656: END;
657: IF (l_sim_plan_id IS NULL) THEN
658: FND_MESSAGE.Set_Name('AHL','AHL_SIM_INVALID_SIM_PLAN_ID');
659: FND_MSG_PUB.ADD;

Line 663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

659: FND_MSG_PUB.ADD;
660: IF (l_log_unexpected >= l_log_current_level)THEN
661: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Remove_Unit_From_Plan', 'NULL Simulation Plan id ' );
662: END IF;
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
665: IF (l_unit_config_header_id IS NULL) THEN
666: FND_MESSAGE.Set_Name('AHL','AHL_SIM_INVALID_UNIT_HEADER_ID');
667: FND_MSG_PUB.ADD;

Line 671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

667: FND_MSG_PUB.ADD;
668: IF (l_log_unexpected >= l_log_current_level) THEN
669: fnd_log.string ( l_log_unexpected, 'ahl.plsql.Remove_Unit_From_Plan', 'NULL Unit id ' );
670: END IF;
671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
672: END IF;
673:
674: -- Check for existing locks in assocs table records
675: FOR i IN 1..2

Line 717: RAISE FND_API.G_EXC_ERROR;

713: ELSE
714: ROLLBACK TO Remove_Unit_From_Plan;
715: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
716: FND_MSG_PUB.ADD;
717: RAISE FND_API.G_EXC_ERROR;
718: END IF;
719: -- Processed assocs table records
720: -- Remove ue records if no lock is there
721: IF (l_locked_rows = 'N') THEN

Line 731: RAISE FND_API.G_EXC_ERROR;

727: ELSE
728: ROLLBACK TO Remove_Unit_From_Plan;
729: FND_MESSAGE.Set_Name('AHL','AHL_SIM_ROWS_LOCKED');
730: FND_MSG_PUB.ADD;
731: RAISE FND_API.G_EXC_ERROR;
732: END IF;
733: -- End of processing for ue records
734:
735: -- Standard check of p_commit

Line 736: IF FND_API.TO_BOOLEAN(p_commit) THEN

732: END IF;
733: -- End of processing for ue records
734:
735: -- Standard check of p_commit
736: IF FND_API.TO_BOOLEAN(p_commit) THEN
737: IF (l_log_procedure >= l_log_current_level) THEN
738: fnd_log.string ( l_log_procedure,L_DEBUG_KEY,'Committing changes');
739: END IF;
740: COMMIT;

Line 747: WHEN FND_API.G_EXC_ERROR THEN

743: IF (l_log_procedure >= l_log_current_level) THEN
744: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
745: END IF;
746: EXCEPTION
747: WHEN FND_API.G_EXC_ERROR THEN
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: ROLLBACK TO Remove_Unit_From_Plan;
750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 748: x_return_status := FND_API.G_RET_STS_ERROR;

744: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
745: END IF;
746: EXCEPTION
747: WHEN FND_API.G_EXC_ERROR THEN
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: ROLLBACK TO Remove_Unit_From_Plan;
750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

746: EXCEPTION
747: WHEN FND_API.G_EXC_ERROR THEN
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: ROLLBACK TO Remove_Unit_From_Plan;
750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: ROLLBACK TO Remove_Unit_From_Plan;
754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

Line 751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

747: WHEN FND_API.G_EXC_ERROR THEN
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: ROLLBACK TO Remove_Unit_From_Plan;
750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: ROLLBACK TO Remove_Unit_From_Plan;
754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
755: WHEN OTHERS THEN

Line 752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

748: x_return_status := FND_API.G_RET_STS_ERROR;
749: ROLLBACK TO Remove_Unit_From_Plan;
750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: ROLLBACK TO Remove_Unit_From_Plan;
754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
755: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

750: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: ROLLBACK TO Remove_Unit_From_Plan;
754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
755: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: ROLLBACK TO Remove_Unit_From_Plan;
758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: ROLLBACK TO Remove_Unit_From_Plan;
754: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
755: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: ROLLBACK TO Remove_Unit_From_Plan;
758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
759: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Remove_Unit_From_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
760: END IF;

Line 761: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);

757: ROLLBACK TO Remove_Unit_From_Plan;
758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
759: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME, p_procedure_name => 'Remove_Unit_From_Plan', p_error_text => SUBSTR(SQLERRM,1,500));
760: END IF;
761: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
762: END Remove_Unit_From_Plan;
763: -------------------------------------------------------------- End of procedure Remove_Unit_From_Plan ----------------------------------------------------------
764:
765: END Ahl_Simulation_Pvt;