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,
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,
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,
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
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
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
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
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
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
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
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
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
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
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;
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);
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
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;
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
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;
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:
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,
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',
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,
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
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
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
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
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
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
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
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:
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
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
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;
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);
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
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;
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
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;
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:
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,
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,
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,
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
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
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
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
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
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;
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;
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
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
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
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;
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
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;
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);
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
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;
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
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;
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;