[Home] [Help]
130: -- Parameters :
131: --
132: -- Standard IN Parameters :
133: -- p_api_version IN NUMBER Required
134: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
135: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
136: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
137: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
138: -- Based on this flag, the API will set the default attributes.
131: --
132: -- Standard IN Parameters :
133: -- p_api_version IN NUMBER Required
134: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
135: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
136: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
137: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
138: -- Based on this flag, the API will set the default attributes.
139: -- p_module_type In VARCHAR2 Default NULL
132: -- Standard IN Parameters :
133: -- p_api_version IN NUMBER Required
134: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
135: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
136: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
137: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
138: -- Based on this flag, the API will set the default attributes.
139: -- p_module_type In VARCHAR2 Default NULL
140: -- This will be null.
133: -- p_api_version IN NUMBER Required
134: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
135: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
136: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
137: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
138: -- Based on this flag, the API will set the default attributes.
139: -- p_module_type In VARCHAR2 Default NULL
140: -- This will be null.
141: -- Standard OUT Parameters :
155: --
156:
157: PROCEDURE Process_UnitEffectivity (
158: p_api_version IN NUMBER,
159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
162: p_default IN VARCHAR2 := FND_API.G_TRUE,
163: p_module_type IN VARCHAR2 := NULL,
156:
157: PROCEDURE Process_UnitEffectivity (
158: p_api_version IN NUMBER,
159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
162: p_default IN VARCHAR2 := FND_API.G_TRUE,
163: p_module_type IN VARCHAR2 := NULL,
164: x_return_status OUT NOCOPY VARCHAR2,
157: PROCEDURE Process_UnitEffectivity (
158: p_api_version IN NUMBER,
159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
162: p_default IN VARCHAR2 := FND_API.G_TRUE,
163: p_module_type IN VARCHAR2 := NULL,
164: x_return_status OUT NOCOPY VARCHAR2,
165: x_msg_count OUT NOCOPY NUMBER,
158: p_api_version IN NUMBER,
159: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
160: p_commit IN VARCHAR2 := FND_API.G_FALSE,
161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
162: p_default IN VARCHAR2 := FND_API.G_TRUE,
163: p_module_type IN VARCHAR2 := NULL,
164: x_return_status OUT NOCOPY VARCHAR2,
165: x_msg_count OUT NOCOPY NUMBER,
166: x_msg_data OUT NOCOPY VARCHAR2,
188: -- Standard start of API savepoint
189: SAVEPOINT Process_UnitEffectivity_PVT;
190:
191: -- Standard call to check for call compatibility
192: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
193: G_PKG_NAME) THEN
194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
195: END IF;
196:
190:
191: -- Standard call to check for call compatibility
192: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
193: G_PKG_NAME) THEN
194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
195: END IF;
196:
197: -- Initialize message list if p_init_msg_list is set to TRUE
198: IF FND_API.To_Boolean(p_init_msg_list) THEN
194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
195: END IF;
196:
197: -- Initialize message list if p_init_msg_list is set to TRUE
198: IF FND_API.To_Boolean(p_init_msg_list) THEN
199: FND_MSG_PUB.Initialize;
200: END IF;
201:
202: -- Initialize Procedure return status to success
199: FND_MSG_PUB.Initialize;
200: END IF;
201:
202: -- Initialize Procedure return status to success
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: -- Enable Debug.
206: IF G_DEBUG='Y' THEN
207: AHL_DEBUG_PUB.enable_debug;
213: END IF;
214:
215: -- Convert Value to IDs and validate.
216: -- For maintenance requirement.
217: IF (l_mr_id IS NULL OR l_mr_id = FND_API.G_MISS_NUM) THEN
218: Convert_MRID (l_mr_id, p_mr_title, p_mr_version_number);
219: END IF;
220:
221: -- For instance id.
219: END IF;
220:
221: -- For instance id.
222: IF (l_csi_item_instance_id IS NULL OR
223: l_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
224: Convert_Instance (l_csi_item_instance_id, p_csi_instance_number);
225: END IF;
226:
227: -- For unit name.
225: END IF;
226:
227: -- For unit name.
228: IF (l_unit_config_header_id IS NULL OR
229: l_unit_config_header_id = FND_API.G_MISS_NUM) THEN
230: Convert_Unit (l_unit_config_header_id, p_unit_name);
231: END IF;
232:
233: Validate_Input_Parameters (l_mr_id, l_csi_item_instance_id, l_unit_config_header_id);
234:
235: -- Check Error Message stack.
236: l_msg_count := FND_MSG_PUB.count_msg;
237: IF l_msg_count > 0 THEN
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
241: -- Depending on input parameters call procedures for processing.
242: IF (l_mr_id IS NOT NULL) THEN
265:
266: END IF;
267:
268: -- Check return status.
269: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
270: RAISE FND_API.G_EXC_ERROR;
271: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
266: END IF;
267:
268: -- Check return status.
269: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
270: RAISE FND_API.G_EXC_ERROR;
271: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
267:
268: -- Check return status.
269: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
270: RAISE FND_API.G_EXC_ERROR;
271: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Standard check of p_commit
268: -- Check return status.
269: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
270: RAISE FND_API.G_EXC_ERROR;
271: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Standard check of p_commit
276: IF FND_API.TO_BOOLEAN(p_commit) THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Standard check of p_commit
276: IF FND_API.TO_BOOLEAN(p_commit) THEN
277: COMMIT WORK;
278: END IF;
279:
280: -- Standard call to get message count and if count is 1, get message info
280: -- Standard call to get message count and if count is 1, get message info
281: FND_MSG_PUB.Count_And_Get
282: ( p_count => x_msg_count,
283: p_data => x_msg_data,
284: p_encoded => fnd_api.g_false
285: );
286:
287: --
288: EXCEPTION
285: );
286:
287: --
288: EXCEPTION
289: WHEN FND_API.G_EXC_ERROR THEN
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: Rollback to Process_UnitEffectivity_PVT;
292: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
293: p_data => x_msg_data,
286:
287: --
288: EXCEPTION
289: WHEN FND_API.G_EXC_ERROR THEN
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: Rollback to Process_UnitEffectivity_PVT;
292: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
293: p_data => x_msg_data,
294: p_encoded => fnd_api.g_false);
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: Rollback to Process_UnitEffectivity_PVT;
292: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
293: p_data => x_msg_data,
294: p_encoded => fnd_api.g_false);
295:
296: -- Disable debug
297: AHL_DEBUG_PUB.disable_debug;
298:
297: AHL_DEBUG_PUB.disable_debug;
298:
299:
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: Rollback to Process_UnitEffectivity_PVT;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
298:
299:
300:
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: Rollback to Process_UnitEffectivity_PVT;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
306: p_encoded => fnd_api.g_false);
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: Rollback to Process_UnitEffectivity_PVT;
304: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
305: p_data => x_msg_data,
306: p_encoded => fnd_api.g_false);
307:
308: -- Disable debug
309: AHL_DEBUG_PUB.disable_debug;
310:
308: -- Disable debug
309: AHL_DEBUG_PUB.disable_debug;
310:
311: WHEN OTHERS THEN
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: Rollback to Process_UnitEffectivity_PVT;
314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
316: p_procedure_name => 'Process_UnitEffectivity_PVT',
317: p_error_text => SUBSTR(SQLERRM,1,240));
318: END IF;
319: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
320: p_data => x_msg_data,
321: p_encoded => fnd_api.g_false);
322:
323: -- Disable debug
324: AHL_DEBUG_PUB.disable_debug;
325:
353: -- built for the unit configuration.
354: --
355:
356: PROCEDURE Build_UnitEffectivity (
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
359: p_default IN VARCHAR2 := FND_API.G_TRUE,
360: p_module_type IN VARCHAR2 := NULL,
361: x_return_status OUT NOCOPY VARCHAR2,
354: --
355:
356: PROCEDURE Build_UnitEffectivity (
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
359: p_default IN VARCHAR2 := FND_API.G_TRUE,
360: p_module_type IN VARCHAR2 := NULL,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
355:
356: PROCEDURE Build_UnitEffectivity (
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
359: p_default IN VARCHAR2 := FND_API.G_TRUE,
360: p_module_type IN VARCHAR2 := NULL,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2,
395:
396: BEGIN
397:
398: -- Initialize message list if p_init_msg_list is set to TRUE
399: IF FND_API.To_Boolean(p_init_msg_list) THEN
400: FND_MSG_PUB.Initialize;
401: END IF;
402:
403: -- Initialize Procedure return status to success
400: FND_MSG_PUB.Initialize;
401: END IF;
402:
403: -- Initialize Procedure return status to success
404: x_return_status := FND_API.G_RET_STS_SUCCESS;
405:
406: -- Enable Debug.
407: IF G_DEBUG='Y' THEN
408: AHL_DEBUG_PUB.enable_debug;
414: END IF;
415:
416: -- Convert Value to IDs and validate.
417: -- For maintenance requirement.
418: IF (l_mr_id IS NULL OR l_mr_id = FND_API.G_MISS_NUM) THEN
419: Convert_MRID (l_mr_id, p_mr_title, p_mr_version_number);
420: END IF;
421:
422: -- For instance id.
420: END IF;
421:
422: -- For instance id.
423: IF (l_csi_item_instance_id IS NULL OR
424: l_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
425: Convert_Instance (l_csi_item_instance_id, p_csi_instance_number);
426: END IF;
427:
428: -- For unit name.
426: END IF;
427:
428: -- For unit name.
429: IF (l_unit_config_header_id IS NULL OR
430: l_unit_config_header_id = FND_API.G_MISS_NUM) THEN
431: Convert_Unit (l_unit_config_header_id, p_unit_name);
432: END IF;
433:
434: --AMSRINIV: Bug #4360784
444:
445: -- Check Error Message stack.
446: l_msg_count := FND_MSG_PUB.count_msg;
447: IF l_msg_count > 0 THEN
448: RAISE FND_API.G_EXC_ERROR;
449: END IF;
450:
451: -- Depending on input parameters call procedures for processing.
452: -- Tamal: Bug #4207212, #4114368 Begin
453: IF (l_contract_number IS NOT NULL and ahl_util_pkg.is_pm_installed = 'Y') THEN
454: -- Process all units affected by the contract number...
455: AHL_UMP_ProcessUnit_PVT.Process_PM_Contracts
456: (
457: p_commit => FND_API.G_TRUE,
458: p_init_msg_list => FND_API.G_FALSE,
459: x_msg_count => x_msg_count,
460: x_msg_data => x_msg_data,
461: x_return_status => x_return_status,
454: -- Process all units affected by the contract number...
455: AHL_UMP_ProcessUnit_PVT.Process_PM_Contracts
456: (
457: p_commit => FND_API.G_TRUE,
458: p_init_msg_list => FND_API.G_FALSE,
459: x_msg_count => x_msg_count,
460: x_msg_data => x_msg_data,
461: x_return_status => x_return_status,
462: p_contract_number => l_contract_number,
466: -- Tamal: Bug #4207212, #4114368 End
467: ELSIF (l_mr_id IS NOT NULL) THEN
468: -- process all units affected by the MR.
469: AHL_UMP_ProcessUnit_PVT.Process_MRAffected_Units (
470: p_commit => FND_API.G_TRUE,
471: x_msg_count => x_msg_count,
472: x_msg_data => x_msg_data,
473: x_return_status => x_return_status,
474: p_mr_header_id => l_mr_id,
479:
480: ELSIF (l_csi_item_instance_id IS NOT NULL) THEN
481: -- Call Process Unit for the item instance.
482: AHL_UMP_ProcessUnit_PVT.Process_Unit (
483: p_commit => FND_API.G_TRUE,
484: x_msg_count => x_msg_count,
485: x_msg_data => x_msg_data,
486: x_return_status => x_return_status,
487: p_csi_item_instance_id => l_csi_item_instance_id,
491:
492: ELSE
493: -- process all units.
494: AHL_UMP_ProcessUnit_PVT.Process_All_Units (
495: p_commit => FND_API.G_TRUE,
496: x_msg_count => x_msg_count,
497: x_msg_data => x_msg_data,
498: x_return_status => x_return_status,
499: p_concurrent_flag => p_concurrent_flag,
505:
506: END IF;
507:
508: -- Check return status.
509: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513: END IF;
506: END IF;
507:
508: -- Check return status.
509: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513: END IF;
514:
507:
508: -- Check return status.
509: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513: END IF;
514:
515: -- Standard call to get message count and if count is 1, get message info
508: -- Check return status.
509: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
510: RAISE FND_API.G_EXC_ERROR;
511: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513: END IF;
514:
515: -- Standard call to get message count and if count is 1, get message info
516: FND_MSG_PUB.Count_And_Get
515: -- Standard call to get message count and if count is 1, get message info
516: FND_MSG_PUB.Count_And_Get
517: ( p_count => x_msg_count,
518: p_data => x_msg_data,
519: p_encoded => fnd_api.g_false
520: );
521:
522: --
523: EXCEPTION
520: );
521:
522: --
523: EXCEPTION
524: WHEN FND_API.G_EXC_ERROR THEN
525: x_return_status := FND_API.G_RET_STS_ERROR;
526: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
527: p_data => x_msg_data,
528: p_encoded => fnd_api.g_false);
521:
522: --
523: EXCEPTION
524: WHEN FND_API.G_EXC_ERROR THEN
525: x_return_status := FND_API.G_RET_STS_ERROR;
526: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
527: p_data => x_msg_data,
528: p_encoded => fnd_api.g_false);
529: IF (p_concurrent_flag = 'Y') THEN
524: WHEN FND_API.G_EXC_ERROR THEN
525: x_return_status := FND_API.G_RET_STS_ERROR;
526: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
527: p_data => x_msg_data,
528: p_encoded => fnd_api.g_false);
529: IF (p_concurrent_flag = 'Y') THEN
530: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
531: log_error_messages;
532: END IF;
534: AHL_DEBUG_PUB.disable_debug;
535:
536:
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
541: p_data => x_msg_data,
542: p_encoded => fnd_api.g_false);
535:
536:
537:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
541: p_data => x_msg_data,
542: p_encoded => fnd_api.g_false);
543:
538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
540: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
541: p_data => x_msg_data,
542: p_encoded => fnd_api.g_false);
543:
544: IF (p_concurrent_flag = 'Y') THEN
545: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
546: log_error_messages;
548: -- Disable debug
549: AHL_DEBUG_PUB.disable_debug;
550:
551: WHEN OTHERS THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
554: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
555: p_procedure_name => 'Build_UnitEffectivity_PVT',
556: p_error_text => SUBSTR(SQLERRM,1,240));
556: p_error_text => SUBSTR(SQLERRM,1,240));
557: END IF;
558: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
559: p_data => x_msg_data,
560: p_encoded => fnd_api.g_false);
561:
562: IF (p_concurrent_flag = 'Y') THEN
563: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
564: log_error_messages;
611:
612: IF(p_simulation_plan_id IS NULL) THEN
613: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BUE_SIMID_NOTFOUND');
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: Build_UnitEffectivity (
619: x_return_status => l_return_status,
625: p_concurrent_flag => 'Y'
626: );
627:
628: -- Check return status.
629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
630: retcode := 2; -- error based only on return status
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: retcode := 2; -- error based only on return status
627:
628: -- Check return status.
629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
630: retcode := 2; -- error based only on return status
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: retcode := 2; -- error based only on return status
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
628: -- Check return status.
629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
630: retcode := 2; -- error based only on return status
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: retcode := 2; -- error based only on return status
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
636:
630: retcode := 2; -- error based only on return status
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: retcode := 2; -- error based only on return status
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
636:
637: -- Standard call to get message count and if count is 1, get message info
638: FND_MSG_PUB.Count_And_Get
637: -- Standard call to get message count and if count is 1, get message info
638: FND_MSG_PUB.Count_And_Get
639: ( p_count => l_msg_count,
640: p_data => l_msg_data,
641: p_encoded => fnd_api.g_false
642: );
643:
644:
645: fnd_file.put_line(fnd_file.log, 'Completed building Simlation Unit Effectivity Sccessfully');
645: fnd_file.put_line(fnd_file.log, 'Completed building Simlation Unit Effectivity Sccessfully');
646:
647: --
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
650: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
651: p_data => l_msg_data,
652: p_encoded => fnd_api.g_false);
653:
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
650: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
651: p_data => l_msg_data,
652: p_encoded => fnd_api.g_false);
653:
654: fnd_file.put_line(fnd_file.log, 'Building Simlation Unit Effectivity failed. Refer to the error message below.');
655: log_error_messages;
656:
658: AHL_DEBUG_PUB.disable_debug;
659:
660:
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
664: p_data => l_msg_data,
665: p_encoded => fnd_api.g_false);
666:
661:
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
664: p_data => l_msg_data,
665: p_encoded => fnd_api.g_false);
666:
667:
668: fnd_file.put_line(fnd_file.log, 'Building Simlation Unit Effectivity failed. Refer to the error message below.');
669: log_error_messages;
678: p_error_text => SUBSTR(SQLERRM,1,240));
679: END IF;
680: FND_MSG_PUB.count_and_get( p_count => l_msg_count,
681: p_data => l_msg_data,
682: p_encoded => fnd_api.g_false);
683:
684:
685: fnd_file.put_line(fnd_file.log, 'Building Simlation Unit Effectivity failed. Refer to the error message below.');
686: log_error_messages;
695:
696: PROCEDURE Capture_MR_Updates
697: (
698: p_api_version IN NUMBER,
699: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_default IN VARCHAR2 := FND_API.G_TRUE,
703: p_module_type IN VARCHAR2 := NULL,
696: PROCEDURE Capture_MR_Updates
697: (
698: p_api_version IN NUMBER,
699: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_default IN VARCHAR2 := FND_API.G_TRUE,
703: p_module_type IN VARCHAR2 := NULL,
704: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
697: (
698: p_api_version IN NUMBER,
699: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_default IN VARCHAR2 := FND_API.G_TRUE,
703: p_module_type IN VARCHAR2 := NULL,
704: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
705: p_x_unit_threshold_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Threshold_tbl_type,
698: p_api_version IN NUMBER,
699: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_default IN VARCHAR2 := FND_API.G_TRUE,
703: p_module_type IN VARCHAR2 := NULL,
704: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
705: p_x_unit_threshold_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Threshold_tbl_type,
706: p_x_unit_accomplish_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Accomplish_tbl_type,
728: -- Standard start of API savepoint
729: SAVEPOINT Capture_MR_Updates_pvt;
730:
731: -- Standard call to check for call compatibility
732: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
733: G_PKG_NAME) THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
730:
731: -- Standard call to check for call compatibility
732: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
733: G_PKG_NAME) THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
737: -- Initialize message list if p_init_msg_list is set to TRUE
738: IF FND_API.To_Boolean(p_init_msg_list) THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736:
737: -- Initialize message list if p_init_msg_list is set to TRUE
738: IF FND_API.To_Boolean(p_init_msg_list) THEN
739: FND_MSG_PUB.Initialize;
740: END IF;
741:
742: -- Initialize API return status to success
739: FND_MSG_PUB.Initialize;
740: END IF;
741:
742: -- Initialize API return status to success
743: x_return_status := FND_API.G_RET_STS_SUCCESS;
744:
745: -- Begin Processing
746:
747: -- Enable Debug (optional)
767: END LOOP;
768: END IF;
769: END IF;
770:
771: IF FND_API.to_boolean( p_default ) THEN
772: -- No special default settings required in this API
773: null;
774: END IF;
775: IF G_DEBUG='Y' THEN
777: END IF;
778: -- Start processing
779: FOR i IN p_unit_Effectivity_tbl.FIRST..p_unit_Effectivity_tbl.LAST LOOP
780: -- Initialize Return Status for this Unit Effectivity to SUCCESS
781: l_temp_return_status := FND_API.G_RET_STS_SUCCESS;
782: l_unit_Effectivity_rec := p_unit_Effectivity_tbl(i);
783:
784: -- Resolve Values to Ids
785: convert_effectivity_val_to_id(l_unit_Effectivity_rec, l_temp_return_status);
786: IF G_DEBUG='Y' THEN
787: AHL_DEBUG_PUB.debug('Resolved Values to Id for Effectivity', 'UMP');
788: END IF;
789: -- Ignore errors from the resolution process
790: l_temp_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: -- Validate the current unit effectivity record
793: Validate_Effectivity(l_unit_Effectivity_rec, l_MR_Initialization_flag, l_temp_return_status);
794: IF G_DEBUG='Y' THEN
799: IF G_DEBUG='Y' THEN
800: AHL_DEBUG_PUB.debug('About to process thresholds', 'UMP');
801: AHL_DEBUG_PUB.debug('Count threshold:' || p_x_unit_threshold_tbl.count, 'UMP');
802: END IF;
803: IF l_temp_return_status = FND_API.G_RET_STS_SUCCESS THEN
804: -- Get all the thresholds for the current effectivity
805: IF (p_x_unit_threshold_tbl.COUNT > 0) THEN
806: l_counter_index := 0;
807: FOR j IN p_x_unit_threshold_tbl.FIRST..p_x_unit_threshold_tbl.LAST LOOP
836: END IF;
837: END IF;
838:
839: -- Proceed to updating the database only if there are no errors
840: IF l_temp_return_status = FND_API.G_RET_STS_SUCCESS THEN
841:
842: IF G_DEBUG='Y' THEN
843: AHL_DEBUG_PUB.debug('About to update thresholds', 'UMP');
844: END IF;
880: p_init_msg_list,
881: l_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID
882: );
883:
884: IF l_msg_count > 0 OR l_temp_return_status <> Fnd_Api.g_ret_sts_success THEN
885: IF G_DEBUG='Y' THEN
886: AHL_DEBUG_PUB.debug('Errors from AHL_UMP_ProcessUnit_PVT.Calculate_Init_DueDate.'
887: , 'Message count: ' ||
888: l_msg_count || ', Message data: ' || l_msg_data);
887: , 'Message count: ' ||
888: l_msg_count || ', Message data: ' || l_msg_data);
889: END IF;
890: FND_MSG_PUB.ADD;
891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
892: END IF;
893: -- Commit will happen at the end of this API when no errors.
894: -- SALOGAN added the following for Complex Mx - End
895: END IF;
906: END IF;
907: -- Check Error Message stack.
908: x_msg_count := FND_MSG_PUB.count_msg;
909: IF x_msg_count > 0 THEN
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
913: -- Standard check of p_commit
914: IF FND_API.TO_BOOLEAN(p_commit) THEN
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912:
913: -- Standard check of p_commit
914: IF FND_API.TO_BOOLEAN(p_commit) THEN
915: COMMIT WORK;
916: END IF;
917:
918: -- Standard call to get message count and if count is 1, get message info
918: -- Standard call to get message count and if count is 1, get message info
919: FND_MSG_PUB.Count_And_Get
920: ( p_count => x_msg_count,
921: p_data => x_msg_data,
922: p_encoded => fnd_api.g_false
923: );
924:
925: -- Disable debug (if enabled)
926: AHL_DEBUG_PUB.disable_debug;
925: -- Disable debug (if enabled)
926: AHL_DEBUG_PUB.disable_debug;
927:
928: EXCEPTION
929: WHEN FND_API.G_EXC_ERROR THEN
930: Rollback to Capture_MR_Updates_pvt;
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
933: p_data => x_msg_data,
927:
928: EXCEPTION
929: WHEN FND_API.G_EXC_ERROR THEN
930: Rollback to Capture_MR_Updates_pvt;
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
933: p_data => x_msg_data,
934: p_encoded => fnd_api.g_false);
935: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
930: Rollback to Capture_MR_Updates_pvt;
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
933: p_data => x_msg_data,
934: p_encoded => fnd_api.g_false);
935: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
936:
937:
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: p_encoded => fnd_api.g_false);
935: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
936:
937:
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: Rollback to Capture_MR_Updates_pvt;
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
942: p_data => x_msg_data,
936:
937:
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: Rollback to Capture_MR_Updates_pvt;
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
942: p_data => x_msg_data,
943: p_encoded => fnd_api.g_false);
944: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
939: Rollback to Capture_MR_Updates_pvt;
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
942: p_data => x_msg_data,
943: p_encoded => fnd_api.g_false);
944: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
945:
946: WHEN OTHERS THEN
947: Rollback to Capture_MR_Updates_pvt;
944: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
945:
946: WHEN OTHERS THEN
947: Rollback to Capture_MR_Updates_pvt;
948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
949: IF (SQLCODE = -54) THEN
950: FND_MESSAGE.Set_Name('AHL','AHL_UMP_RECORD_LOCKED');
951: FND_MSG_PUB.ADD;
952: ELSE
957: END IF;
958: END IF;
959: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
960: p_data => x_msg_data,
961: p_encoded => fnd_api.g_false);
962: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
963:
964: END Capture_MR_Updates;
965:
967:
968: PROCEDURE Validate_For_Initialize
969: (
970: p_api_version IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_commit IN VARCHAR2 := FND_API.G_FALSE,
973: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
974: p_default IN VARCHAR2 := FND_API.G_TRUE,
975: p_module_type IN VARCHAR2 := NULL,
968: PROCEDURE Validate_For_Initialize
969: (
970: p_api_version IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_commit IN VARCHAR2 := FND_API.G_FALSE,
973: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
974: p_default IN VARCHAR2 := FND_API.G_TRUE,
975: p_module_type IN VARCHAR2 := NULL,
976: p_unit_effectivity_id IN NUMBER,
969: (
970: p_api_version IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_commit IN VARCHAR2 := FND_API.G_FALSE,
973: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
974: p_default IN VARCHAR2 := FND_API.G_TRUE,
975: p_module_type IN VARCHAR2 := NULL,
976: p_unit_effectivity_id IN NUMBER,
977: x_return_status OUT NOCOPY VARCHAR2,
970: p_api_version IN NUMBER,
971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
972: p_commit IN VARCHAR2 := FND_API.G_FALSE,
973: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
974: p_default IN VARCHAR2 := FND_API.G_TRUE,
975: p_module_type IN VARCHAR2 := NULL,
976: p_unit_effectivity_id IN NUMBER,
977: x_return_status OUT NOCOPY VARCHAR2,
978: x_msg_count OUT NOCOPY NUMBER,
1032: --IF G_DEBUG='Y' THEN
1033: -- AHL_DEBUG_PUB.enable_debug;
1034: --END IF;
1035: -- Standard call to check for call compatibility
1036: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1037: G_PKG_NAME) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040:
1034: --END IF;
1035: -- Standard call to check for call compatibility
1036: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1037: G_PKG_NAME) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040:
1041: -- Initialize message list if p_init_msg_list is set to TRUE
1042: IF FND_API.To_Boolean(p_init_msg_list) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040:
1041: -- Initialize message list if p_init_msg_list is set to TRUE
1042: IF FND_API.To_Boolean(p_init_msg_list) THEN
1043: FND_MSG_PUB.Initialize;
1044: END IF;
1045:
1046: -- Initialize API return status to success
1043: FND_MSG_PUB.Initialize;
1044: END IF;
1045:
1046: -- Initialize API return status to success
1047: x_return_status := FND_API.G_RET_STS_SUCCESS;
1048:
1049: -- Begin Processing
1050:
1051: -- Ensure that the User is authorized to initialize
1051: -- Ensure that the User is authorized to initialize
1052: -- This functionality is not available now. So allow always
1053: l_MR_Initialization_flag := 'Y';
1054: IF (l_MR_Initialization_flag <> 'Y') THEN
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
1057: FND_MSG_PUB.ADD;
1058: --IF G_DEBUG='Y' THEN
1059: --AHL_DEBUG_PUB.debug('Unauthorized User', 'UMP:Validate_For_Initialize');
1057: FND_MSG_PUB.ADD;
1058: --IF G_DEBUG='Y' THEN
1059: --AHL_DEBUG_PUB.debug('Unauthorized User', 'UMP:Validate_For_Initialize');
1060: --END IF;
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063:
1064: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1060: --END IF;
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063:
1064: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1067: FND_MSG_PUB.ADD;
1068: --IF G_DEBUG='Y' THEN
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063:
1064: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1067: FND_MSG_PUB.ADD;
1068: --IF G_DEBUG='Y' THEN
1069: --AHL_DEBUG_PUB.debug('Null Effectivity', 'UMP:Validate_For_Initialize');
1067: FND_MSG_PUB.ADD;
1068: --IF G_DEBUG='Y' THEN
1069: --AHL_DEBUG_PUB.debug('Null Effectivity', 'UMP:Validate_For_Initialize');
1070: --END IF;
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1073:
1074: -- Ensure that this is not a repetitive MR
1075: OPEN l_ue_details_csr(p_unit_effectivity_id);
1074: -- Ensure that this is not a repetitive MR
1075: OPEN l_ue_details_csr(p_unit_effectivity_id);
1076: FETCH l_ue_details_csr INTO l_mr_id, l_item_instance_id, l_repetitive_mr_flag, l_status_code;
1077: IF (l_ue_details_csr%NOTFOUND) THEN
1078: x_return_status := FND_API.G_RET_STS_ERROR;
1079: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1080: FND_MESSAGE.Set_Token('UEID', p_unit_effectivity_id);
1081: FND_MSG_PUB.ADD;
1082: CLOSE l_ue_details_csr;
1082: CLOSE l_ue_details_csr;
1083: --IF G_DEBUG='Y' THEN
1084: --AHL_DEBUG_PUB.debug('Invalid Effectivity Id', 'UMP:Validate_For_Initialize');
1085: --END IF;
1086: RAISE FND_API.G_EXC_ERROR;
1087: ELSE
1088: --Ensure that unit is not locked
1089: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1085: --END IF;
1086: RAISE FND_API.G_EXC_ERROR;
1087: ELSE
1088: --Ensure that unit is not locked
1089: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1091: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1092: FND_MSG_PUB.ADD;
1093: CLOSE l_ue_details_csr;
1086: RAISE FND_API.G_EXC_ERROR;
1087: ELSE
1088: --Ensure that unit is not locked
1089: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1091: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1092: FND_MSG_PUB.ADD;
1093: CLOSE l_ue_details_csr;
1094: RAISE FND_API.G_EXC_ERROR;
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1091: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1092: FND_MSG_PUB.ADD;
1093: CLOSE l_ue_details_csr;
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096: IF (l_repetitive_mr_flag = 'Y') THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_MR_TYPE');
1093: CLOSE l_ue_details_csr;
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096: IF (l_repetitive_mr_flag = 'Y') THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_MR_TYPE');
1099: FND_MSG_PUB.ADD;
1100: --IF G_DEBUG='Y' THEN
1101: --AHL_DEBUG_PUB.debug('Repetitive Effectivity', 'UMP:Validate_For_Initialize');
1100: --IF G_DEBUG='Y' THEN
1101: --AHL_DEBUG_PUB.debug('Repetitive Effectivity', 'UMP:Validate_For_Initialize');
1102: --END IF;
1103: CLOSE l_ue_details_csr;
1104: RAISE FND_API.G_EXC_ERROR;
1105: ELSE
1106: CLOSE l_ue_details_csr;
1107: END IF;
1108: END IF;
1116: CLOSE l_child_mr_csr;
1117: --IF G_DEBUG='Y' THEN
1118: --AHL_DEBUG_PUB.debug('Child MR', 'UMP:Validate_For_Initialize');
1119: --END IF;
1120: RAISE FND_API.G_EXC_ERROR;
1121: ELSE
1122: CLOSE l_child_mr_csr;
1123: END IF;
1124:
1123: END IF;
1124:
1125: -- Ensure that the Current status is null, init-due or init-accomplished only
1126: IF ((l_status_code IS NOT NULL) AND (l_status_code <> 'INIT-DUE') AND (l_status_code <> 'INIT-ACCOMPLISHED')) THEN
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STATUS');
1129: FND_MESSAGE.Set_Token('STATUS', l_status_code);
1130: FND_MSG_PUB.ADD;
1131: --IF G_DEBUG='Y' THEN
1130: FND_MSG_PUB.ADD;
1131: --IF G_DEBUG='Y' THEN
1132: --AHL_DEBUG_PUB.debug('Invalid Status: ' || 'l_status_code', 'UMP:Validate_For_Initialize');
1133: --END IF;
1134: RAISE FND_API.G_EXC_ERROR;
1135: END IF;
1136:
1137: -- SALOGAN added the following NR cursor check to the existing code for Complex Mx - Begin
1138: OPEN is_NR_UE(p_unit_effectivity_id);
1140: IF is_NR_UE%NOTFOUND THEN
1141: -- Ensure that there are no prior accomplishments
1142: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplish_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1143: IF (l_temp_status = FALSE) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplish_date IS NOT null) THEN
1147: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1148: FND_MSG_PUB.ADD;
1148: FND_MSG_PUB.ADD;
1149: --IF G_DEBUG='Y' THEN
1150: --AHL_DEBUG_PUB.debug('Already Accomplished', 'UMP:Validate_For_Initialize');
1151: --END IF;
1152: RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154: END IF;
1155: CLOSE is_NR_UE;
1156: -- SALOGAN added the following NR cursor check to the existing code for Complex Mx - End
1158: -- Ensure that there are no prior initializations
1159: OPEN l_prior_initializations_csr(l_mr_id, l_item_instance_id, p_unit_effectivity_id);
1160: FETCH l_prior_initializations_csr INTO l_prior_ue_status;
1161: IF (l_prior_initializations_csr%FOUND) THEN
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: IF (l_prior_ue_status = 'DEFERRED') THEN
1164: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
1165: FND_MSG_PUB.ADD;
1166: ELSE
1170: CLOSE l_prior_initializations_csr;
1171: --IF G_DEBUG='Y' THEN
1172: --AHL_DEBUG_PUB.debug('Has prior Initializations', 'UMP:Validate_For_Initialize');
1173: --END IF;
1174: RAISE FND_API.G_EXC_ERROR;
1175: ELSE
1176: CLOSE l_prior_initializations_csr;
1177: END IF;
1178:
1177: END IF;
1178:
1179: x_msg_count := FND_MSG_PUB.count_msg;
1180: IF x_msg_count > 0 THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: x_msg_count := FND_MSG_PUB.count_msg;
1188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1189: p_data => x_msg_data,
1182: END IF;
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_ERROR THEN
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: x_msg_count := FND_MSG_PUB.count_msg;
1188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1189: p_data => x_msg_data,
1190: p_encoded => fnd_api.g_false);
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: x_msg_count := FND_MSG_PUB.count_msg;
1188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1189: p_data => x_msg_data,
1190: p_encoded => fnd_api.g_false);
1191:
1192:
1193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1189: p_data => x_msg_data,
1190: p_encoded => fnd_api.g_false);
1191:
1192:
1193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1195: x_msg_count := FND_MSG_PUB.count_msg;
1196: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1197: p_data => x_msg_data,
1190: p_encoded => fnd_api.g_false);
1191:
1192:
1193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1195: x_msg_count := FND_MSG_PUB.count_msg;
1196: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1197: p_data => x_msg_data,
1198: p_encoded => fnd_api.g_false);
1194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1195: x_msg_count := FND_MSG_PUB.count_msg;
1196: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1197: p_data => x_msg_data,
1198: p_encoded => fnd_api.g_false);
1199:
1200: WHEN OTHERS THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: x_msg_count := FND_MSG_PUB.count_msg;
1197: p_data => x_msg_data,
1198: p_encoded => fnd_api.g_false);
1199:
1200: WHEN OTHERS THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: x_msg_count := FND_MSG_PUB.count_msg;
1203: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1204: -- fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1205: -- p_procedure_name => 'Validate_For_Initialize',
1206: -- p_error_text => SUBSTR(SQLERRM,1,240));
1207: -- END IF;
1208: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1209: p_data => x_msg_data,
1210: p_encoded => fnd_api.g_false);
1211:
1212: END Validate_For_Initialize;
1213:
1214: ----------------------------------------
1242: l_status_code VARCHAR2(30);
1243:
1244: BEGIN
1245: -- Initialize API return status to success
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247:
1248: -- Resolve MR_ID
1249: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1250: IF((p_x_unit_Effectivity_rec.MR_TITLE IS NOT NULL AND p_x_unit_Effectivity_rec.MR_TITLE <> FND_API.G_MISS_CHAR) AND
1245: -- Initialize API return status to success
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247:
1248: -- Resolve MR_ID
1249: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1250: IF((p_x_unit_Effectivity_rec.MR_TITLE IS NOT NULL AND p_x_unit_Effectivity_rec.MR_TITLE <> FND_API.G_MISS_CHAR) AND
1251: (p_x_unit_Effectivity_rec.MR_VERSION_NUMBER IS NOT NULL AND p_x_unit_Effectivity_rec.MR_VERSION_NUMBER <> FND_API.G_MISS_NUM)) THEN
1252: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1253: FETCH l_get_mr_id_csr INTO l_mr_id;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247:
1248: -- Resolve MR_ID
1249: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1250: IF((p_x_unit_Effectivity_rec.MR_TITLE IS NOT NULL AND p_x_unit_Effectivity_rec.MR_TITLE <> FND_API.G_MISS_CHAR) AND
1251: (p_x_unit_Effectivity_rec.MR_VERSION_NUMBER IS NOT NULL AND p_x_unit_Effectivity_rec.MR_VERSION_NUMBER <> FND_API.G_MISS_NUM)) THEN
1252: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1253: FETCH l_get_mr_id_csr INTO l_mr_id;
1254: IF (l_get_mr_id_csr%FOUND) THEN
1247:
1248: -- Resolve MR_ID
1249: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1250: IF((p_x_unit_Effectivity_rec.MR_TITLE IS NOT NULL AND p_x_unit_Effectivity_rec.MR_TITLE <> FND_API.G_MISS_CHAR) AND
1251: (p_x_unit_Effectivity_rec.MR_VERSION_NUMBER IS NOT NULL AND p_x_unit_Effectivity_rec.MR_VERSION_NUMBER <> FND_API.G_MISS_NUM)) THEN
1252: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1253: FETCH l_get_mr_id_csr INTO l_mr_id;
1254: IF (l_get_mr_id_csr%FOUND) THEN
1255: p_x_unit_Effectivity_rec.MR_ID := l_mr_id;
1254: IF (l_get_mr_id_csr%FOUND) THEN
1255: p_x_unit_Effectivity_rec.MR_ID := l_mr_id;
1256: ELSE
1257: -- No match
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: END IF;
1260: CLOSE l_get_mr_id_csr;
1261: ELSE
1262: -- Insufficient information to retrieve mr_id
1259: END IF;
1260: CLOSE l_get_mr_id_csr;
1261: ELSE
1262: -- Insufficient information to retrieve mr_id
1263: x_return_status := FND_API.G_RET_STS_ERROR;
1264: END IF;
1265: END IF;
1266:
1267: -- Resolve CSI_ITEM_INSTANCE_ID
1264: END IF;
1265: END IF;
1266:
1267: -- Resolve CSI_ITEM_INSTANCE_ID
1268: IF(p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID IS NULL OR p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID = FND_API.G_MISS_NUM) THEN
1269: IF(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER IS NOT NULL AND p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER <> FND_API.G_MISS_CHAR) THEN
1270: OPEN l_get_item_instance_id_csr(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER);
1271: FETCH l_get_item_instance_id_csr INTO l_item_instance_id;
1272: IF (l_get_item_instance_id_csr%FOUND) THEN
1265: END IF;
1266:
1267: -- Resolve CSI_ITEM_INSTANCE_ID
1268: IF(p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID IS NULL OR p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID = FND_API.G_MISS_NUM) THEN
1269: IF(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER IS NOT NULL AND p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER <> FND_API.G_MISS_CHAR) THEN
1270: OPEN l_get_item_instance_id_csr(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER);
1271: FETCH l_get_item_instance_id_csr INTO l_item_instance_id;
1272: IF (l_get_item_instance_id_csr%FOUND) THEN
1273: p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID := l_item_instance_id;
1272: IF (l_get_item_instance_id_csr%FOUND) THEN
1273: p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID := l_item_instance_id;
1274: ELSE
1275: -- No match
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: END IF;
1278: CLOSE l_get_item_instance_id_csr;
1279: ELSE
1280: -- Insufficient information to retrieve item instance id
1277: END IF;
1278: CLOSE l_get_item_instance_id_csr;
1279: ELSE
1280: -- Insufficient information to retrieve item instance id
1281: x_return_status := FND_API.G_RET_STS_ERROR;
1282: END IF;
1283: END IF;
1284:
1285: -- Resolve STATUS_CODE
1282: END IF;
1283: END IF;
1284:
1285: -- Resolve STATUS_CODE
1286: IF(p_x_unit_Effectivity_rec.STATUS_CODE IS NULL OR p_x_unit_Effectivity_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1287: IF(p_x_unit_Effectivity_rec.STATUS IS NOT NULL AND p_x_unit_Effectivity_rec.STATUS <> FND_API.G_MISS_CHAR) THEN
1288: OPEN l_get_status_code_csr(p_x_unit_Effectivity_rec.STATUS);
1289: FETCH l_get_status_code_csr INTO l_status_code;
1290: IF (l_get_status_code_csr%FOUND) THEN
1283: END IF;
1284:
1285: -- Resolve STATUS_CODE
1286: IF(p_x_unit_Effectivity_rec.STATUS_CODE IS NULL OR p_x_unit_Effectivity_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1287: IF(p_x_unit_Effectivity_rec.STATUS IS NOT NULL AND p_x_unit_Effectivity_rec.STATUS <> FND_API.G_MISS_CHAR) THEN
1288: OPEN l_get_status_code_csr(p_x_unit_Effectivity_rec.STATUS);
1289: FETCH l_get_status_code_csr INTO l_status_code;
1290: IF (l_get_status_code_csr%FOUND) THEN
1291: p_x_unit_Effectivity_rec.STATUS_CODE := l_status_code;
1290: IF (l_get_status_code_csr%FOUND) THEN
1291: p_x_unit_Effectivity_rec.STATUS_CODE := l_status_code;
1292: ELSE
1293: -- No match
1294: x_return_status := FND_API.G_RET_STS_ERROR;
1295: END IF;
1296: CLOSE l_get_status_code_csr;
1297: ELSE
1298: -- Insufficient information to retrieve status code
1295: END IF;
1296: CLOSE l_get_status_code_csr;
1297: ELSE
1298: -- Insufficient information to retrieve status code
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: END IF;
1301: END IF;
1302:
1303: --
1352: l_counter_id NUMBER;
1353:
1354: BEGIN
1355: -- Initialize API return status to success
1356: x_return_status := FND_API.G_RET_STS_SUCCESS;
1357:
1358: -- Resolve Counter_ID
1359: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1360: IF ((p_x_unit_threshold_rec.counter_name IS NOT NULL AND p_x_unit_threshold_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1355: -- Initialize API return status to success
1356: x_return_status := FND_API.G_RET_STS_SUCCESS;
1357:
1358: -- Resolve Counter_ID
1359: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1360: IF ((p_x_unit_threshold_rec.counter_name IS NOT NULL AND p_x_unit_threshold_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1361: (p_x_unit_threshold_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_threshold_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1362: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1363: FETCH l_get_counter_id INTO l_counter_id;
1356: x_return_status := FND_API.G_RET_STS_SUCCESS;
1357:
1358: -- Resolve Counter_ID
1359: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1360: IF ((p_x_unit_threshold_rec.counter_name IS NOT NULL AND p_x_unit_threshold_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1361: (p_x_unit_threshold_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_threshold_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1362: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1363: FETCH l_get_counter_id INTO l_counter_id;
1364: IF (l_get_counter_id%FOUND) THEN
1357:
1358: -- Resolve Counter_ID
1359: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1360: IF ((p_x_unit_threshold_rec.counter_name IS NOT NULL AND p_x_unit_threshold_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1361: (p_x_unit_threshold_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_threshold_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1362: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1363: FETCH l_get_counter_id INTO l_counter_id;
1364: IF (l_get_counter_id%FOUND) THEN
1365: p_x_unit_threshold_rec.counter_id := l_counter_id;
1364: IF (l_get_counter_id%FOUND) THEN
1365: p_x_unit_threshold_rec.counter_id := l_counter_id;
1366: ELSE
1367: -- No match
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: CLOSE l_get_counter_id;
1371: ELSE
1372: -- Insufficient information to retrieve counter_id
1369: END IF;
1370: CLOSE l_get_counter_id;
1371: ELSE
1372: -- Insufficient information to retrieve counter_id
1373: x_return_status := FND_API.G_RET_STS_ERROR;
1374: END IF;
1375: END IF;
1376:
1377: END Convert_Threshold_Val_To_ID;
1420: l_counter_id NUMBER;
1421:
1422: BEGIN
1423: -- Initialize API return status to success
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425:
1426: -- Resolve Counter_ID
1427: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1428: IF ((p_x_unit_accomplish_rec.counter_name IS NOT NULL AND p_x_unit_accomplish_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1423: -- Initialize API return status to success
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425:
1426: -- Resolve Counter_ID
1427: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1428: IF ((p_x_unit_accomplish_rec.counter_name IS NOT NULL AND p_x_unit_accomplish_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1429: (p_x_unit_accomplish_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_accomplish_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1430: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1431: FETCH l_get_counter_id INTO l_counter_id;
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425:
1426: -- Resolve Counter_ID
1427: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1428: IF ((p_x_unit_accomplish_rec.counter_name IS NOT NULL AND p_x_unit_accomplish_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1429: (p_x_unit_accomplish_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_accomplish_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1430: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1431: FETCH l_get_counter_id INTO l_counter_id;
1432: IF (l_get_counter_id%FOUND) THEN
1425:
1426: -- Resolve Counter_ID
1427: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1428: IF ((p_x_unit_accomplish_rec.counter_name IS NOT NULL AND p_x_unit_accomplish_rec.counter_name <> FND_API.G_MISS_CHAR) AND
1429: (p_x_unit_accomplish_rec.unit_effectivity_id IS NOT NULL AND p_x_unit_accomplish_rec.unit_effectivity_id <> FND_API.G_MISS_NUM))THEN
1430: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1431: FETCH l_get_counter_id INTO l_counter_id;
1432: IF (l_get_counter_id%FOUND) THEN
1433: p_x_unit_accomplish_rec.counter_id := l_counter_id;
1432: IF (l_get_counter_id%FOUND) THEN
1433: p_x_unit_accomplish_rec.counter_id := l_counter_id;
1434: ELSE
1435: -- No match
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: END IF;
1438: CLOSE l_get_counter_id;
1439: ELSE
1440: -- Insufficient information to retrieve counter_id
1437: END IF;
1438: CLOSE l_get_counter_id;
1439: ELSE
1440: -- Insufficient information to retrieve counter_id
1441: x_return_status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443: END IF;
1444:
1445: END Convert_Accomplish_Val_To_ID;
1622: AHL_DEBUG_PUB.debug('Start Validation Set1:' || x_return_status, 'UMP');
1623: END IF;
1624:
1625: -- Check if the unit effectivity id is not null
1626: IF (p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID IS NULL OR p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID = FND_API.G_MISS_NUM) THEN
1627: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1628: FND_MSG_PUB.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1625: -- Check if the unit effectivity id is not null
1626: IF (p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID IS NULL OR p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID = FND_API.G_MISS_NUM) THEN
1627: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1628: FND_MSG_PUB.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1631:
1632: -- Check if the status is valid
1633: --IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL AND p_unit_Effectivity_rec.STATUS_CODE <> FND_API.G_MISS_CHAR) THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1631:
1632: -- Check if the status is valid
1633: --IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL AND p_unit_Effectivity_rec.STATUS_CODE <> FND_API.G_MISS_CHAR) THEN
1634: OPEN l_validate_status_csr(p_unit_Effectivity_rec.STATUS_CODE);
1635: FETCH l_validate_status_csr into l_junk;
1636: IF (l_validate_status_csr%NOTFOUND) THEN
1637: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1636: IF (l_validate_status_csr%NOTFOUND) THEN
1637: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1638: FND_MESSAGE.Set_Token('STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1639: FND_MSG_PUB.ADD;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: END IF;
1642: CLOSE l_validate_status_csr;
1643: --END IF;
1644:
1646: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1647: IF (p_authorized_user_flag = 'N') THEN
1648: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
1649: FND_MSG_PUB.ADD;
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: --RAISE USER_NOT_AUTHORIZED;
1652: END IF;
1653:
1654: -- validate that UE is not assigned to any visit.
1656: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1657: IF (l_visit_status IS NOT NULL) THEN
1658: FND_MESSAGE.Set_Name('AHL','AHL_UMP_VISIT_ASSIGNED');
1659: FND_MSG_PUB.ADD;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: END IF;
1662: END IF;
1663:
1664: -- validate that UE is not a child UE.
1666: FETCH l_child_mr_csr INTO l_junk;
1667: IF (l_child_mr_csr%FOUND) THEN
1668: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_MR');
1669: FND_MSG_PUB.ADD;
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: END IF;
1672: CLOSE l_child_mr_csr;
1673:
1674: END IF;
1672: CLOSE l_child_mr_csr;
1673:
1674: END IF;
1675:
1676: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1677: -- Cannot proceed further
1678: RETURN;
1679: END IF;
1680:
1687: IF (l_ue_details_csr%NOTFOUND) THEN
1688: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1689: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1690: FND_MSG_PUB.ADD;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: -- Cannot proceed further
1693: RETURN;
1694: END IF;
1695: CLOSE l_ue_details_csr;
1694: END IF;
1695: CLOSE l_ue_details_csr;
1696:
1697: --Ensure that unit is not locked
1698: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1699: x_return_status := FND_API.G_RET_STS_ERROR;
1700: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1701: FND_MSG_PUB.ADD;
1702: RETURN; -- cannot proceed further
1695: CLOSE l_ue_details_csr;
1696:
1697: --Ensure that unit is not locked
1698: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1699: x_return_status := FND_API.G_RET_STS_ERROR;
1700: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1701: FND_MSG_PUB.ADD;
1702: RETURN; -- cannot proceed further
1703: END IF;
1720: CLOSE get_title_csr;
1721: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CANNOT_DEFINE_FIRSTDUE');
1722: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1723: FND_MSG_PUB.ADD;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: END IF;
1726:
1727: -- check if the MR is already associated to a visit.
1728: OPEN chk_mr_unplan(l_mr_id, l_item_instance_id);
1733: CLOSE get_title_csr;
1734: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNPLAN_EXISTS');
1735: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1736: FND_MSG_PUB.ADD;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: END IF;
1739: CLOSE chk_mr_unplan;
1740: END IF;
1741:
1745: IF(l_prev_object_version_no <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
1746: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
1747: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1748: FND_MSG_PUB.ADD;
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1750: END IF;
1751:
1752: -- 07/03/2002: Allow termination even if visit is in execution
1753: -- -- Ensure that an in-progress MR is not terminated
1756: -- -- and if the visit is not in progress
1757: -- IF(AHL_UMP_UTIL_PKG.Is_UE_In_Execution(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID) = TRUE) THEN
1758: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_IN_EXEC');
1759: -- FND_MSG_PUB.ADD;
1760: -- x_return_status := FND_API.G_RET_STS_ERROR;
1761: -- END IF;
1762: -- END IF;
1763:
1764: IF G_DEBUG='Y' THEN
1768: END IF;
1769:
1770: -- Both the dates (due and accomplished) should not be set. Only one should be set.
1771: IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL) THEN
1772: IF ((p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) AND
1773: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1774: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1775: FND_MSG_PUB.ADD;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1769:
1770: -- Both the dates (due and accomplished) should not be set. Only one should be set.
1771: IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL) THEN
1772: IF ((p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) AND
1773: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1774: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1775: FND_MSG_PUB.ADD;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: END IF;
1772: IF ((p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) AND
1773: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1774: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1775: FND_MSG_PUB.ADD;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: END IF;
1778: END IF;
1779:
1780: -- If the status is INIT-ACCOMPLISHED, or ACCOMPLISHED, ensure that the accomplished date is set
1780: -- If the status is INIT-ACCOMPLISHED, or ACCOMPLISHED, ensure that the accomplished date is set
1781: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR
1782: (p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1783: -- validate ACCOMPLISHED_DATE = G_MISS_DATE for INIT-ACCOMPLISHED later in update_unit_effectivity proc.
1784: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NULL OR (p_unit_Effectivity_rec.ACCOMPLISHED_DATE = FND_API.G_MISS_DATE AND p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1785: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1786: FND_MSG_PUB.ADD;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1783: -- validate ACCOMPLISHED_DATE = G_MISS_DATE for INIT-ACCOMPLISHED later in update_unit_effectivity proc.
1784: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NULL OR (p_unit_Effectivity_rec.ACCOMPLISHED_DATE = FND_API.G_MISS_DATE AND p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1785: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1786: FND_MSG_PUB.ADD;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1790: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1791: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1784: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NULL OR (p_unit_Effectivity_rec.ACCOMPLISHED_DATE = FND_API.G_MISS_DATE AND p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1785: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1786: FND_MSG_PUB.ADD;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1790: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1791: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1792: FND_MSG_PUB.ADD;
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1790: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1791: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1792: FND_MSG_PUB.ADD;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: END IF;
1795: -- If this is a group MR, ensure that all descendents are accomplished
1796: /*
1797: OPEN l_invalid_descendents_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1798: FETCH l_invalid_descendents_csr INTO l_junk;
1799: IF (l_invalid_descendents_csr%FOUND) THEN
1800: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_UNACCMPLSHD');
1801: FND_MSG_PUB.ADD;
1802: x_return_status := FND_API.G_RET_STS_ERROR;
1803: END IF;
1804: CLOSE l_invalid_descendents_csr;
1805: */
1806: END IF;
1812: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1813: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1814: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1815: FND_MSG_PUB.ADD;
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: END IF;
1818:
1819: -- If initializing, ensure that there are no prior initializations or accomplishments
1820: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1823: IF(l_is_not_nr_ue) THEN
1824: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1825:
1826: IF (l_temp_status = FALSE) THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1831: FND_MSG_PUB.ADD;
1828: END IF;
1829: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1831: FND_MSG_PUB.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833: END IF;
1834: END IF;
1835: -- SALOGAN added the condition check to NR UE for Complex Mx - End
1836:
1844: ELSE
1845: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1846: FND_MSG_PUB.ADD;
1847: END IF;
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: END IF;
1850: CLOSE l_prior_initializations_csr;
1851: END IF;
1852:
1857: -- SALOGAN added the condition to skip the following for NR UE - Complex Mx
1858: IF (l_is_not_nr_ue AND (p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED' OR p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') AND l_mr_id IS NOT NULL) THEN
1859: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1860: IF (l_temp_status = FALSE) THEN
1861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1862: END IF;
1863: /* Commented validation of accomplished date to fix bug# 14588580 (avoid data fixes)
1864: IF (AHL_UTIL_PKG.IS_PM_INSTALLED = 'Y') THEN
1865: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE < l_last_accomplished_date) THEN
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1877: FND_MSG_PUB.ADD;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: END IF;
1880: END IF;
1881: end fix for bug# 14588580 */
1882: END IF;
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1917: FND_MSG_PUB.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: END IF;
1921: CLOSE l_prior_ue_csr;
1922: END IF;
1932: IF (l_get_pred_details_csr%FOUND) THEN
1933: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_pred_item_instance_id, l_pred_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1934: IF (l_temp_status = FALSE) THEN
1935: CLOSE l_get_pred_details_csr;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1938: END IF;
1939: IF (l_last_accomplished_date IS NULL) THEN
1940: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1933: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_pred_item_instance_id, l_pred_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1934: IF (l_temp_status = FALSE) THEN
1935: CLOSE l_get_pred_details_csr;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1938: END IF;
1939: IF (l_last_accomplished_date IS NULL) THEN
1940: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1941: FND_MSG_PUB.ADD;
1938: END IF;
1939: IF (l_last_accomplished_date IS NULL) THEN
1940: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1941: FND_MSG_PUB.ADD;
1942: x_return_status := FND_API.G_RET_STS_ERROR;
1943: END IF;
1944: END IF;
1945: CLOSE l_get_pred_details_csr;
1946: END IF;
1946: END IF;
1947:
1948: -- If terminating, ensure that the Accomplished Date if given, is in the past
1949: IF (p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED' OR p_unit_Effectivity_rec.STATUS_CODE = 'MR-TERMINATE') THEN
1950: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE) THEN
1951: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1952: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1953: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1954: FND_MSG_PUB.ADD;
1951: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1952: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1953: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1954: FND_MSG_PUB.ADD;
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: END IF;
1957: END IF;
1958: END IF;
1959:
1958: END IF;
1959:
1960: -- If INIT-DUE, ensure that the Set Due Date if given, is in the future
1961: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE') THEN
1962: IF (p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) THEN
1963: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1964: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1965: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1966: FND_MSG_PUB.ADD;
1963: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1964: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1965: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1966: FND_MSG_PUB.ADD;
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: END IF;
1969: END IF;
1970: END IF;
1971:
1970: END IF;
1971:
1972: -- Validate CollectionID if present.
1973: IF (p_unit_Effectivity_rec.qa_collection_id IS NOT NULL) AND
1974: (p_unit_Effectivity_rec.qa_collection_id <> FND_API.G_MISS_NUM) THEN
1975: OPEN l_qa_collection_csr (p_unit_Effectivity_rec.qa_collection_id);
1976: IF l_qa_collection_csr%NOTFOUND THEN
1977: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1978: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1976: IF l_qa_collection_csr%NOTFOUND THEN
1977: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1978: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1979: FND_MSG_PUB.ADD;
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END IF;
1982: CLOSE l_qa_collection_csr;
1983:
1984: -- This validation already done above.
1989: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1990: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1991: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1992: FND_MSG_PUB.ADD;
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: END IF;
1995:
1996: END IF;
1997:
1996: END IF;
1997:
1998: -- Validate Deferral ID if present.
1999: IF (p_unit_Effectivity_rec.unit_deferral_id IS NOT NULL) AND
2000: (p_unit_Effectivity_rec.unit_deferral_ID <> FND_API.G_MISS_NUM) THEN
2001: OPEN l_unit_deferral_csr (p_unit_Effectivity_rec.unit_deferral_id);
2002: FETCH l_unit_deferral_csr INTO l_junk;
2003: IF (l_unit_deferral_csr%NOTFOUND) THEN
2004: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
2003: IF (l_unit_deferral_csr%NOTFOUND) THEN
2004: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
2005: FND_MESSAGE.Set_Token('DEFERRAL_ID', p_unit_Effectivity_rec.unit_deferral_id);
2006: FND_MSG_PUB.ADD;
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2008: END IF;
2009:
2010: END IF;
2011:
2093: Convert_Threshold_Val_To_ID(p_unit_threshold_tbl(i), l_return_status);
2094:
2095: -- Ensure that for Modify or delete operation, the threshold id is present
2096: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'D') THEN
2097: IF (p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID IS NULL OR p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID = FND_API.G_MISS_NUM) THEN
2098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_ID_NULL');
2099: FND_MSG_PUB.ADD;
2100: x_return_status := FND_API.G_RET_STS_ERROR;
2101: END IF;
2096: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'D') THEN
2097: IF (p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID IS NULL OR p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID = FND_API.G_MISS_NUM) THEN
2098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_ID_NULL');
2099: FND_MSG_PUB.ADD;
2100: x_return_status := FND_API.G_RET_STS_ERROR;
2101: END IF;
2102: END IF;
2103:
2104: -- Ensure that for Modify operation, the unit effectivity Id matches the threshold
2109: IF (l_ue_id_check_csr%NOTFOUND) THEN
2110: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2111: FND_MESSAGE.Set_Token('UEID', p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
2112: FND_MSG_PUB.ADD;
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114: END IF;
2115: CLOSE l_ue_id_check_csr;
2116: END IF;
2117:
2115: CLOSE l_ue_id_check_csr;
2116: END IF;
2117:
2118: -- Ensure that the Counter ID is valid for a Create or Modify operation
2119: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NULL OR p_unit_threshold_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2120: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2121: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2122: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2123: FND_MSG_PUB.ADD;
2120: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2121: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2122: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2123: FND_MSG_PUB.ADD;
2124: x_return_status := FND_API.G_RET_STS_ERROR;
2125: END IF;
2126: END IF;
2127:
2128: -- Ensure that the counter is appropriate for the current item instance
2125: END IF;
2126: END IF;
2127:
2128: -- Ensure that the counter is appropriate for the current item instance
2129: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NOT NULL AND p_unit_threshold_tbl(i).COUNTER_ID <> FND_API.G_MISS_NUM) THEN
2130: OPEN l_validate_counter_csr(p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID, p_unit_threshold_tbl(i).COUNTER_ID);
2131: FETCH l_validate_counter_csr INTO l_junk;
2132: IF (l_validate_counter_csr%NOTFOUND) THEN
2133: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2132: IF (l_validate_counter_csr%NOTFOUND) THEN
2133: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2134: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2135: FND_MSG_PUB.ADD;
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: ELSE
2138: -- get counter reading.
2139: OPEN get_ctr_reading_csr(p_unit_threshold_tbl(i).COUNTER_ID);
2140: FETCH get_ctr_reading_csr INTO l_net_reading;
2146: CLOSE l_validate_counter_csr;
2147: END IF;
2148:
2149: -- Ensure that the Threshold has not changed
2150: IF (p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID IS NOT NULL AND p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID <> FND_API.G_MISS_NUM) THEN
2151: -- Retrieve object version no. for this threshold
2152: OPEN l_get_prev_ctr_csr(p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2153: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2154: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2155: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
2156: FND_MESSAGE.Set_Token('THRESHOLDID', p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2157: FND_MSG_PUB.ADD;
2158: CLOSE l_get_prev_ctr_csr;
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: RETURN;
2161: END IF;
2162: CLOSE l_get_prev_ctr_csr;
2163: -- Check if object version no is different
2165: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
2166: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2167: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: RETURN;
2171: END IF;
2172: -- For modify operation, ensure that the counter (id) has not changed
2173: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2173: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2174: IF (p_unit_threshold_tbl(i).COUNTER_ID <> l_prev_counter) THEN
2175: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THR_COUNTER_CHANGED');
2176: FND_MSG_PUB.ADD;
2177: x_return_status := FND_API.G_RET_STS_ERROR;
2178: END IF;
2179: END IF;
2180: END IF;
2181:
2180: END IF;
2181:
2182: -- Ensure that the counter value is valid
2183: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2184: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2185: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2186: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2187: FND_MSG_PUB.ADD;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2184: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2185: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2186: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2187: FND_MSG_PUB.ADD;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: ELSE
2190: -- Ensure that the entered value is not lesser than the Net Reading
2191: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
2192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
2193: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2194: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
2195: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2196: FND_MSG_PUB.ADD;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: END IF;
2199: END IF;
2200: END IF;
2201: END LOOP; -- All thresholds
2322: Convert_Accomplish_Val_To_ID(p_unit_accomplish_tbl(i), l_return_status);
2323:
2324: -- Ensure that for Modify or delete operation, the accomplishment id is present
2325: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'D') THEN
2326: IF (p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID IS NULL OR p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID = FND_API.G_MISS_NUM) THEN
2327: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCOMPLISH_ID_NULL');
2328: FND_MSG_PUB.ADD;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: END IF;
2325: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'D') THEN
2326: IF (p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID IS NULL OR p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID = FND_API.G_MISS_NUM) THEN
2327: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCOMPLISH_ID_NULL');
2328: FND_MSG_PUB.ADD;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: END IF;
2331: END IF;
2332:
2333: -- Ensure that for Modify operation, the UE Id matches the accomplishment
2338: IF (l_ue_id_check_csr%NOTFOUND) THEN
2339: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2340: FND_MESSAGE.Set_Token('UEID', p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2341: FND_MSG_PUB.ADD;
2342: x_return_status := FND_API.G_RET_STS_ERROR;
2343: END IF;
2344: CLOSE l_ue_id_check_csr;
2345: END IF;
2346:
2344: CLOSE l_ue_id_check_csr;
2345: END IF;
2346:
2347: -- Ensure that the Counter ID is valid for a Create or Modify operation
2348: IF (p_unit_accomplish_tbl(i).COUNTER_ID IS NULL OR p_unit_accomplish_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2349: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2350: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2351: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2352: FND_MSG_PUB.ADD;
2349: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2350: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2351: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2352: FND_MSG_PUB.ADD;
2353: x_return_status := FND_API.G_RET_STS_ERROR;
2354: END IF;
2355: END IF;
2356:
2357: -- Ensure that the counter is appropriate for the current item instance
2354: END IF;
2355: END IF;
2356:
2357: -- Ensure that the counter is appropriate for the current item instance
2358: IF (p_unit_accomplish_tbl(i).COUNTER_ID IS NOT NULL AND p_unit_accomplish_tbl(i).COUNTER_ID <> FND_API.G_MISS_NUM) THEN
2359: -- Add check for accomplishment date - need in the case of init-accomplishment update when the
2360: -- user passes G MISS date or NULL. We bypass date validation in validate_effectivity
2361: -- to allow for init-accomplishment deletion along with counter values; so there is a
2362: -- possibility for accomplishment date to be null or g-miss date.
2359: -- Add check for accomplishment date - need in the case of init-accomplishment update when the
2360: -- user passes G MISS date or NULL. We bypass date validation in validate_effectivity
2361: -- to allow for init-accomplishment deletion along with counter values; so there is a
2362: -- possibility for accomplishment date to be null or g-miss date.
2363: IF (p_accomplishment_date IS NULL OR p_accomplishment_date = FND_API.G_MISS_DATE)
2364: THEN
2365: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2366: FND_MSG_PUB.ADD;
2367: x_return_status := FND_API.G_RET_STS_ERROR;
2363: IF (p_accomplishment_date IS NULL OR p_accomplishment_date = FND_API.G_MISS_DATE)
2364: THEN
2365: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2366: FND_MSG_PUB.ADD;
2367: x_return_status := FND_API.G_RET_STS_ERROR;
2368: RETURN;
2369: END IF;
2370: -- Modified for IB uptake of R12 schema. Split original cursor into 2 cursors.
2371: OPEN l_validate_counter_csr(p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID,
2374: IF (l_validate_counter_csr%NOTFOUND) THEN
2375: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2376: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2377: FND_MSG_PUB.ADD;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: ELSE
2380: IF (p_ue_status_code = 'INIT-ACCOMPLISHED') THEN
2381: -- 11/03/09: modified validations to fix bug# 9075500
2382: -- get max counter reading.
2400: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2401: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2402: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2403: FND_MSG_PUB.ADD;
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2405: END IF;
2406: ELSIF ((get_nxt_max_ctr_reading_csr%FOUND) AND (get_max_ctr_reading_csr%NOTFOUND)) THEN
2407: -- no counter reading before and on accomplishment date
2408: l_net_reading := l_net_reading_more;
2415: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2416: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2417: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2418: FND_MSG_PUB.ADD;
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2420: END IF;
2421: END IF;
2422: CLOSE get_nxt_max_ctr_reading_csr;
2423: END IF;
2436: CLOSE l_validate_counter_csr;
2437: END IF;
2438:
2439: -- Ensure that the Accomplishment has not changed
2440: IF (p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID IS NOT NULL AND p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID <> FND_API.G_MISS_NUM) THEN
2441: -- Retrieve object version no. for this accomplishment
2442: OPEN l_get_prev_ctr_csr(p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2443: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2444: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2445: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
2446: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2447: FND_MSG_PUB.ADD;
2448: CLOSE l_get_prev_ctr_csr;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: RETURN;
2451: END IF;
2452: CLOSE l_get_prev_ctr_csr;
2453: -- Check if object version no is different
2455: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
2456: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2457: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2458: FND_MSG_PUB.ADD;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: RETURN;
2461: END IF;
2462: -- For modify operation, ensure that the counter (id) has not changed
2463: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2463: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2464: IF (p_unit_accomplish_tbl(i).COUNTER_ID <> l_prev_counter) THEN
2465: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_COUNTER_CHANGED');
2466: FND_MSG_PUB.ADD;
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: END IF;
2469: END IF;
2470: END IF;
2471:
2470: END IF;
2471:
2472: -- Ensure that the counter value is valid
2473: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2474: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2475: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2476: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2474: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2475: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2476: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: ELSE
2480: -- Ensure that the entered value is not greater than the Net Reading
2481: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2483: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2484: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2485: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2486: FND_MSG_PUB.ADD;
2487: x_return_status := FND_API.G_RET_STS_ERROR;
2488: END IF;
2489: END IF;
2490: END IF;
2491:
2656: IF (l_status_code = 'INIT-DUE') THEN
2657: OPEN l_threshold_exists_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
2658: FETCH l_threshold_exists_csr INTO l_junk;
2659: IF (l_threshold_exists_csr%NOTFOUND) THEN
2660: IF(l_set_due_date = FND_API.G_MISS_DATE) THEN
2661: l_status_code := null;
2662: l_unit_deferral_operation := 'D';
2663: ELSE
2664: l_unit_deferral_operation := 'U';
2671: ELSIF (l_status_code = 'INIT-ACCOMPLISHED') THEN
2672: OPEN l_accomplish_exists_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
2673: FETCH l_accomplish_exists_csr INTO l_junk;
2674: IF (l_accomplish_exists_csr%NOTFOUND) THEN
2675: IF(l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2676: l_status_code := null;
2677: END IF;
2678: -- raise error if date is null or g_miss.
2679: ELSIF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2675: IF(l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2676: l_status_code := null;
2677: END IF;
2678: -- raise error if date is null or g_miss.
2679: ELSIF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2680: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2681: FND_MSG_PUB.ADD;
2682: RETURN;
2683: END IF;
2688: l_ue_rec.latest_due_date := null;
2689: l_ue_rec.DUE_COUNTER_VALUE := null;
2690: l_ue_rec.MR_INTERVAL_ID := null;
2691: ELSIF (l_status_code = 'TERMINATED' OR l_status_code = 'MR-TERMINATE') THEN
2692: IF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2693: l_accomplished_date := sysdate;
2694: END IF;
2695: END IF;
2696:
2714: p_item_instance_id => l_ue_rec.CSI_ITEM_INSTANCE_ID,
2715: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
2716: x_counters => l_counters_msg,
2717: x_return_status => l_return_status);
2718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2719: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
2720: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
2721: FND_MSG_PUB.ADD;
2722: RETURN;
2725: END IF;
2726: */
2727:
2728: -- Handle G_MISS and null values
2729: IF l_accomplished_date = FND_API.G_MISS_DATE THEN
2730: l_accomplished_date := null;
2731: ELSIF l_accomplished_date IS NULL THEN
2732: l_accomplished_date := l_ue_rec.accomplished_date;
2733: END IF;
2732: l_accomplished_date := l_ue_rec.accomplished_date;
2733: END IF;
2734:
2735: -- For qa collection id.
2736: IF p_unit_Effectivity_rec.qa_collection_id = FND_API.G_MISS_NUM THEN
2737: l_ue_rec.qa_collection_id := null;
2738: ELSIF p_unit_Effectivity_rec.qa_collection_id IS NOT NULL THEN
2739: l_ue_rec.qa_collection_id := p_unit_Effectivity_rec.qa_collection_id ;
2740: END IF;
2738: ELSIF p_unit_Effectivity_rec.qa_collection_id IS NOT NULL THEN
2739: l_ue_rec.qa_collection_id := p_unit_Effectivity_rec.qa_collection_id ;
2740: END IF;
2741:
2742: IF p_unit_Effectivity_rec.REMARKS = FND_API.G_MISS_CHAR THEN
2743: l_ue_rec.REMARKS := null;
2744: ELSIF p_unit_Effectivity_rec.REMARKS IS NOT null THEN
2745: l_ue_rec.REMARKS := p_unit_Effectivity_rec.REMARKS;
2746: END IF;
2743: l_ue_rec.REMARKS := null;
2744: ELSIF p_unit_Effectivity_rec.REMARKS IS NOT null THEN
2745: l_ue_rec.REMARKS := p_unit_Effectivity_rec.REMARKS;
2746: END IF;
2747: IF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
2748: l_ue_rec.ATTRIBUTE_CATEGORY := null;
2749: ELSIF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY IS NOT null THEN
2750: l_ue_rec.ATTRIBUTE_CATEGORY := p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY;
2751: END IF;
2748: l_ue_rec.ATTRIBUTE_CATEGORY := null;
2749: ELSIF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY IS NOT null THEN
2750: l_ue_rec.ATTRIBUTE_CATEGORY := p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY;
2751: END IF;
2752: IF p_unit_Effectivity_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
2753: l_ue_rec.ATTRIBUTE1 := null;
2754: ELSIF p_unit_Effectivity_rec.ATTRIBUTE1 IS NOT null THEN
2755: l_ue_rec.ATTRIBUTE1 := p_unit_Effectivity_rec.ATTRIBUTE1;
2756: END IF;
2753: l_ue_rec.ATTRIBUTE1 := null;
2754: ELSIF p_unit_Effectivity_rec.ATTRIBUTE1 IS NOT null THEN
2755: l_ue_rec.ATTRIBUTE1 := p_unit_Effectivity_rec.ATTRIBUTE1;
2756: END IF;
2757: IF p_unit_Effectivity_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
2758: l_ue_rec.ATTRIBUTE2 := null;
2759: ELSIF p_unit_Effectivity_rec.ATTRIBUTE2 IS NOT null THEN
2760: l_ue_rec.ATTRIBUTE2 := p_unit_Effectivity_rec.ATTRIBUTE2;
2761: END IF;
2758: l_ue_rec.ATTRIBUTE2 := null;
2759: ELSIF p_unit_Effectivity_rec.ATTRIBUTE2 IS NOT null THEN
2760: l_ue_rec.ATTRIBUTE2 := p_unit_Effectivity_rec.ATTRIBUTE2;
2761: END IF;
2762: IF p_unit_Effectivity_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
2763: l_ue_rec.ATTRIBUTE3 := null;
2764: ELSIF p_unit_Effectivity_rec.ATTRIBUTE3 IS NOT null THEN
2765: l_ue_rec.ATTRIBUTE3 := p_unit_Effectivity_rec.ATTRIBUTE3;
2766: END IF;
2763: l_ue_rec.ATTRIBUTE3 := null;
2764: ELSIF p_unit_Effectivity_rec.ATTRIBUTE3 IS NOT null THEN
2765: l_ue_rec.ATTRIBUTE3 := p_unit_Effectivity_rec.ATTRIBUTE3;
2766: END IF;
2767: IF p_unit_Effectivity_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
2768: l_ue_rec.ATTRIBUTE4 := null;
2769: ELSIF p_unit_Effectivity_rec.ATTRIBUTE4 IS NOT null THEN
2770: l_ue_rec.ATTRIBUTE4 := p_unit_Effectivity_rec.ATTRIBUTE4;
2771: END IF;
2768: l_ue_rec.ATTRIBUTE4 := null;
2769: ELSIF p_unit_Effectivity_rec.ATTRIBUTE4 IS NOT null THEN
2770: l_ue_rec.ATTRIBUTE4 := p_unit_Effectivity_rec.ATTRIBUTE4;
2771: END IF;
2772: IF p_unit_Effectivity_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
2773: l_ue_rec.ATTRIBUTE5 := null;
2774: ELSIF p_unit_Effectivity_rec.ATTRIBUTE5 IS NOT null THEN
2775: l_ue_rec.ATTRIBUTE5 := p_unit_Effectivity_rec.ATTRIBUTE5;
2776: END IF;
2773: l_ue_rec.ATTRIBUTE5 := null;
2774: ELSIF p_unit_Effectivity_rec.ATTRIBUTE5 IS NOT null THEN
2775: l_ue_rec.ATTRIBUTE5 := p_unit_Effectivity_rec.ATTRIBUTE5;
2776: END IF;
2777: IF p_unit_Effectivity_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
2778: l_ue_rec.ATTRIBUTE6 := null;
2779: ELSIF p_unit_Effectivity_rec.ATTRIBUTE6 IS NOT null THEN
2780: l_ue_rec.ATTRIBUTE6 := p_unit_Effectivity_rec.ATTRIBUTE6;
2781: END IF;
2778: l_ue_rec.ATTRIBUTE6 := null;
2779: ELSIF p_unit_Effectivity_rec.ATTRIBUTE6 IS NOT null THEN
2780: l_ue_rec.ATTRIBUTE6 := p_unit_Effectivity_rec.ATTRIBUTE6;
2781: END IF;
2782: IF p_unit_Effectivity_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
2783: l_ue_rec.ATTRIBUTE7 := null;
2784: ELSIF p_unit_Effectivity_rec.ATTRIBUTE7 IS NOT null THEN
2785: l_ue_rec.ATTRIBUTE7 := p_unit_Effectivity_rec.ATTRIBUTE7;
2786: END IF;
2783: l_ue_rec.ATTRIBUTE7 := null;
2784: ELSIF p_unit_Effectivity_rec.ATTRIBUTE7 IS NOT null THEN
2785: l_ue_rec.ATTRIBUTE7 := p_unit_Effectivity_rec.ATTRIBUTE7;
2786: END IF;
2787: IF p_unit_Effectivity_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
2788: l_ue_rec.ATTRIBUTE8 := null;
2789: ELSIF p_unit_Effectivity_rec.ATTRIBUTE8 IS NOT null THEN
2790: l_ue_rec.ATTRIBUTE8 := p_unit_Effectivity_rec.ATTRIBUTE8;
2791: END IF;
2788: l_ue_rec.ATTRIBUTE8 := null;
2789: ELSIF p_unit_Effectivity_rec.ATTRIBUTE8 IS NOT null THEN
2790: l_ue_rec.ATTRIBUTE8 := p_unit_Effectivity_rec.ATTRIBUTE8;
2791: END IF;
2792: IF p_unit_Effectivity_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
2793: l_ue_rec.ATTRIBUTE9 := null;
2794: ELSIF p_unit_Effectivity_rec.ATTRIBUTE9 IS NOT null THEN
2795: l_ue_rec.ATTRIBUTE9 := p_unit_Effectivity_rec.ATTRIBUTE9;
2796: END IF;
2793: l_ue_rec.ATTRIBUTE9 := null;
2794: ELSIF p_unit_Effectivity_rec.ATTRIBUTE9 IS NOT null THEN
2795: l_ue_rec.ATTRIBUTE9 := p_unit_Effectivity_rec.ATTRIBUTE9;
2796: END IF;
2797: IF p_unit_Effectivity_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
2798: l_ue_rec.ATTRIBUTE10 := null;
2799: ELSIF p_unit_Effectivity_rec.ATTRIBUTE10 IS NOT null THEN
2800: l_ue_rec.ATTRIBUTE10 := p_unit_Effectivity_rec.ATTRIBUTE10;
2801: END IF;
2798: l_ue_rec.ATTRIBUTE10 := null;
2799: ELSIF p_unit_Effectivity_rec.ATTRIBUTE10 IS NOT null THEN
2800: l_ue_rec.ATTRIBUTE10 := p_unit_Effectivity_rec.ATTRIBUTE10;
2801: END IF;
2802: IF p_unit_Effectivity_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
2803: l_ue_rec.ATTRIBUTE11 := null;
2804: ELSIF p_unit_Effectivity_rec.ATTRIBUTE11 IS NOT null THEN
2805: l_ue_rec.ATTRIBUTE11 := p_unit_Effectivity_rec.ATTRIBUTE11;
2806: END IF;
2803: l_ue_rec.ATTRIBUTE11 := null;
2804: ELSIF p_unit_Effectivity_rec.ATTRIBUTE11 IS NOT null THEN
2805: l_ue_rec.ATTRIBUTE11 := p_unit_Effectivity_rec.ATTRIBUTE11;
2806: END IF;
2807: IF p_unit_Effectivity_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
2808: l_ue_rec.ATTRIBUTE12 := null;
2809: ELSIF p_unit_Effectivity_rec.ATTRIBUTE12 IS NOT null THEN
2810: l_ue_rec.ATTRIBUTE12 := p_unit_Effectivity_rec.ATTRIBUTE12;
2811: END IF;
2808: l_ue_rec.ATTRIBUTE12 := null;
2809: ELSIF p_unit_Effectivity_rec.ATTRIBUTE12 IS NOT null THEN
2810: l_ue_rec.ATTRIBUTE12 := p_unit_Effectivity_rec.ATTRIBUTE12;
2811: END IF;
2812: IF p_unit_Effectivity_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
2813: l_ue_rec.ATTRIBUTE13 := null;
2814: ELSIF p_unit_Effectivity_rec.ATTRIBUTE13 IS NOT null THEN
2815: l_ue_rec.ATTRIBUTE13 := p_unit_Effectivity_rec.ATTRIBUTE13;
2816: END IF;
2813: l_ue_rec.ATTRIBUTE13 := null;
2814: ELSIF p_unit_Effectivity_rec.ATTRIBUTE13 IS NOT null THEN
2815: l_ue_rec.ATTRIBUTE13 := p_unit_Effectivity_rec.ATTRIBUTE13;
2816: END IF;
2817: IF p_unit_Effectivity_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
2818: l_ue_rec.ATTRIBUTE14 := null;
2819: ELSIF p_unit_Effectivity_rec.ATTRIBUTE14 IS NOT null THEN
2820: l_ue_rec.ATTRIBUTE14 := p_unit_Effectivity_rec.ATTRIBUTE14;
2821: END IF;
2818: l_ue_rec.ATTRIBUTE14 := null;
2819: ELSIF p_unit_Effectivity_rec.ATTRIBUTE14 IS NOT null THEN
2820: l_ue_rec.ATTRIBUTE14 := p_unit_Effectivity_rec.ATTRIBUTE14;
2821: END IF;
2822: IF p_unit_Effectivity_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
2823: l_ue_rec.ATTRIBUTE15 := null;
2824: ELSIF p_unit_Effectivity_rec.ATTRIBUTE15 IS NOT null THEN
2825: l_ue_rec.ATTRIBUTE15 := p_unit_Effectivity_rec.ATTRIBUTE15;
2826: END IF;
2895: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2896: THEN
2897: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2898: FND_MSG_PUB.ADD;
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: END IF;
2901:
2902: AHL_UNIT_DEFERRALS_PKG.delete_row(x_unit_deferral_id => l_unit_def_rec.unit_deferral_id);
2903:
2907: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2908: THEN
2909: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2910: FND_MSG_PUB.ADD;
2911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2912: END IF;
2913:
2914: IF l_set_due_date = FND_API.G_MISS_DATE THEN
2915: l_set_due_date := null;
2910: FND_MSG_PUB.ADD;
2911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2912: END IF;
2913:
2914: IF l_set_due_date = FND_API.G_MISS_DATE THEN
2915: l_set_due_date := null;
2916: ELSIF l_set_due_date IS NULL THEN
2917: l_set_due_date := l_unit_def_rec.set_due_date;
2918: END IF;
3058: p_item_instance_id => l_ue_rec.CSI_ITEM_INSTANCE_ID,
3059: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
3060: x_counters => l_counters_msg,
3061: x_return_status => l_return_status);
3062: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3063: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
3064: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
3065: FND_MSG_PUB.ADD;
3066: --RETURN;
3284: RETURN;
3285: END IF;
3286: p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER := l_threshold_details.OBJECT_VERSION_NUMBER + 1;
3287: -- Handle G_MISS and null values
3288: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3289: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3290: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3291: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := l_threshold_details.ATTRIBUTE_CATEGORY;
3292: END IF;
3289: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3290: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3291: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := l_threshold_details.ATTRIBUTE_CATEGORY;
3292: END IF;
3293: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3294: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3295: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE1 IS null THEN
3296: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := l_threshold_details.ATTRIBUTE1;
3297: END IF;
3294: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3295: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE1 IS null THEN
3296: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := l_threshold_details.ATTRIBUTE1;
3297: END IF;
3298: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3299: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3300: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE2 IS null THEN
3301: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := l_threshold_details.ATTRIBUTE2;
3302: END IF;
3299: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3300: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE2 IS null THEN
3301: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := l_threshold_details.ATTRIBUTE2;
3302: END IF;
3303: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3304: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3305: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE3 IS null THEN
3306: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := l_threshold_details.ATTRIBUTE3;
3307: END IF;
3304: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3305: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE3 IS null THEN
3306: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := l_threshold_details.ATTRIBUTE3;
3307: END IF;
3308: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3309: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3310: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE4 IS null THEN
3311: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := l_threshold_details.ATTRIBUTE4;
3312: END IF;
3309: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3310: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE4 IS null THEN
3311: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := l_threshold_details.ATTRIBUTE4;
3312: END IF;
3313: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3314: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3315: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE5 IS null THEN
3316: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := l_threshold_details.ATTRIBUTE5;
3317: END IF;
3314: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3315: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE5 IS null THEN
3316: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := l_threshold_details.ATTRIBUTE5;
3317: END IF;
3318: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3319: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3320: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE6 IS null THEN
3321: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := l_threshold_details.ATTRIBUTE6;
3322: END IF;
3319: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3320: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE6 IS null THEN
3321: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := l_threshold_details.ATTRIBUTE6;
3322: END IF;
3323: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3324: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3325: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE7 IS null THEN
3326: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := l_threshold_details.ATTRIBUTE7;
3327: END IF;
3324: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3325: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE7 IS null THEN
3326: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := l_threshold_details.ATTRIBUTE7;
3327: END IF;
3328: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3329: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3330: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE8 IS null THEN
3331: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := l_threshold_details.ATTRIBUTE8;
3332: END IF;
3329: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3330: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE8 IS null THEN
3331: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := l_threshold_details.ATTRIBUTE8;
3332: END IF;
3333: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3334: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3335: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE9 IS null THEN
3336: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := l_threshold_details.ATTRIBUTE9;
3337: END IF;
3334: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3335: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE9 IS null THEN
3336: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := l_threshold_details.ATTRIBUTE9;
3337: END IF;
3338: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3339: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3340: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE10 IS null THEN
3341: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := l_threshold_details.ATTRIBUTE10;
3342: END IF;
3339: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3340: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE10 IS null THEN
3341: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := l_threshold_details.ATTRIBUTE10;
3342: END IF;
3343: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3344: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3345: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE11 IS null THEN
3346: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := l_threshold_details.ATTRIBUTE11;
3347: END IF;
3344: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3345: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE11 IS null THEN
3346: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := l_threshold_details.ATTRIBUTE11;
3347: END IF;
3348: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3349: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3350: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE12 IS null THEN
3351: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := l_threshold_details.ATTRIBUTE12;
3352: END IF;
3349: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3350: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE12 IS null THEN
3351: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := l_threshold_details.ATTRIBUTE12;
3352: END IF;
3353: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3354: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3355: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE13 IS null THEN
3356: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := l_threshold_details.ATTRIBUTE13;
3357: END IF;
3354: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3355: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE13 IS null THEN
3356: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := l_threshold_details.ATTRIBUTE13;
3357: END IF;
3358: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3359: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3360: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE14 IS null THEN
3361: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := l_threshold_details.ATTRIBUTE14;
3362: END IF;
3359: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3360: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE14 IS null THEN
3361: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := l_threshold_details.ATTRIBUTE14;
3362: END IF;
3363: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3364: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3365: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE15 IS null THEN
3366: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := l_threshold_details.ATTRIBUTE15;
3367: END IF;
3462: CLOSE l_get_def_csr;
3463:
3464: p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER := 1;
3465: -- Handle G_MISS and null values
3466: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3467: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3468: END IF;
3469: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3470: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3465: -- Handle G_MISS and null values
3466: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3467: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3468: END IF;
3469: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3470: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3471: END IF;
3472: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3473: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3468: END IF;
3469: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3470: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3471: END IF;
3472: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3473: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3474: END IF;
3475: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3476: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3471: END IF;
3472: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3473: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3474: END IF;
3475: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3476: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3477: END IF;
3478: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3479: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3474: END IF;
3475: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3476: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3477: END IF;
3478: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3479: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3480: END IF;
3481: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3482: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3477: END IF;
3478: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3479: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3480: END IF;
3481: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3482: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3483: END IF;
3484: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3485: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3480: END IF;
3481: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3482: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3483: END IF;
3484: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3485: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3486: END IF;
3487: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3488: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3483: END IF;
3484: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3485: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3486: END IF;
3487: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3488: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3489: END IF;
3490: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3491: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3486: END IF;
3487: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3488: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3489: END IF;
3490: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3491: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3492: END IF;
3493: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3494: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3489: END IF;
3490: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3491: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3492: END IF;
3493: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3494: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3495: END IF;
3496: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3497: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3492: END IF;
3493: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3494: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3495: END IF;
3496: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3497: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3498: END IF;
3499: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3500: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3495: END IF;
3496: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3497: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3498: END IF;
3499: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3500: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3501: END IF;
3502: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3503: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3498: END IF;
3499: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3500: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3501: END IF;
3502: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3503: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3504: END IF;
3505: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3506: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3501: END IF;
3502: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3503: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3504: END IF;
3505: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3506: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3507: END IF;
3508: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3509: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3504: END IF;
3505: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3506: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3507: END IF;
3508: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3509: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3510: END IF;
3511: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3512: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3507: END IF;
3508: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3509: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3510: END IF;
3511: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3512: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3513: END IF;
3514: -- Call table handler to insert
3515: AHL_UNIT_THRESHOLDS_PKG.insert_row (
3620: RETURN;
3621: END IF;
3622: p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER := l_accomplish_details.OBJECT_VERSION_NUMBER + 1;
3623: -- Handle G_MISS and null values
3624: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3625: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3626: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3627: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := l_accomplish_details.ATTRIBUTE_CATEGORY;
3628: END IF;
3625: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3626: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3627: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := l_accomplish_details.ATTRIBUTE_CATEGORY;
3628: END IF;
3629: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3630: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3631: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 IS null THEN
3632: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := l_accomplish_details.ATTRIBUTE1;
3633: END IF;
3630: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3631: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 IS null THEN
3632: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := l_accomplish_details.ATTRIBUTE1;
3633: END IF;
3634: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3635: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3636: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 IS null THEN
3637: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := l_accomplish_details.ATTRIBUTE2;
3638: END IF;
3635: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3636: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 IS null THEN
3637: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := l_accomplish_details.ATTRIBUTE2;
3638: END IF;
3639: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3640: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3641: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 IS null THEN
3642: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := l_accomplish_details.ATTRIBUTE3;
3643: END IF;
3640: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3641: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 IS null THEN
3642: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := l_accomplish_details.ATTRIBUTE3;
3643: END IF;
3644: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3645: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3646: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 IS null THEN
3647: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := l_accomplish_details.ATTRIBUTE4;
3648: END IF;
3645: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3646: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 IS null THEN
3647: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := l_accomplish_details.ATTRIBUTE4;
3648: END IF;
3649: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3650: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3651: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 IS null THEN
3652: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := l_accomplish_details.ATTRIBUTE5;
3653: END IF;
3650: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3651: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 IS null THEN
3652: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := l_accomplish_details.ATTRIBUTE5;
3653: END IF;
3654: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3655: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3656: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 IS null THEN
3657: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := l_accomplish_details.ATTRIBUTE6;
3658: END IF;
3655: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3656: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 IS null THEN
3657: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := l_accomplish_details.ATTRIBUTE6;
3658: END IF;
3659: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3660: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3661: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 IS null THEN
3662: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := l_accomplish_details.ATTRIBUTE7;
3663: END IF;
3660: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3661: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 IS null THEN
3662: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := l_accomplish_details.ATTRIBUTE7;
3663: END IF;
3664: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3665: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3666: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 IS null THEN
3667: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := l_accomplish_details.ATTRIBUTE8;
3668: END IF;
3665: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3666: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 IS null THEN
3667: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := l_accomplish_details.ATTRIBUTE8;
3668: END IF;
3669: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3670: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3671: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 IS null THEN
3672: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := l_accomplish_details.ATTRIBUTE9;
3673: END IF;
3670: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3671: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 IS null THEN
3672: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := l_accomplish_details.ATTRIBUTE9;
3673: END IF;
3674: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3675: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3676: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 IS null THEN
3677: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := l_accomplish_details.ATTRIBUTE10;
3678: END IF;
3675: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3676: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 IS null THEN
3677: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := l_accomplish_details.ATTRIBUTE10;
3678: END IF;
3679: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3680: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3681: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 IS null THEN
3682: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := l_accomplish_details.ATTRIBUTE11;
3683: END IF;
3680: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3681: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 IS null THEN
3682: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := l_accomplish_details.ATTRIBUTE11;
3683: END IF;
3684: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3685: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3686: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 IS null THEN
3687: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := l_accomplish_details.ATTRIBUTE12;
3688: END IF;
3685: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3686: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 IS null THEN
3687: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := l_accomplish_details.ATTRIBUTE12;
3688: END IF;
3689: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3690: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3691: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 IS null THEN
3692: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := l_accomplish_details.ATTRIBUTE13;
3693: END IF;
3690: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3691: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 IS null THEN
3692: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := l_accomplish_details.ATTRIBUTE13;
3693: END IF;
3694: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3695: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3696: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 IS null THEN
3697: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := l_accomplish_details.ATTRIBUTE14;
3698: END IF;
3695: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3696: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 IS null THEN
3697: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := l_accomplish_details.ATTRIBUTE14;
3698: END IF;
3699: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3700: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3701: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 IS null THEN
3702: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := l_accomplish_details.ATTRIBUTE15;
3703: END IF;
3747: END IF;
3748: CLOSE l_get_dup_counter_csr;
3749: p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER := 1;
3750: -- Handle G_MISS and null values
3751: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3752: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3753: END IF;
3754: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3755: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3750: -- Handle G_MISS and null values
3751: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3752: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3753: END IF;
3754: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3755: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3756: END IF;
3757: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3758: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3753: END IF;
3754: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3755: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3756: END IF;
3757: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3758: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3759: END IF;
3760: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3761: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3756: END IF;
3757: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3758: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3759: END IF;
3760: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3761: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3762: END IF;
3763: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3764: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3759: END IF;
3760: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3761: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3762: END IF;
3763: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3764: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3765: END IF;
3766: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3767: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3762: END IF;
3763: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3764: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3765: END IF;
3766: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3767: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3768: END IF;
3769: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3770: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3765: END IF;
3766: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3767: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3768: END IF;
3769: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3770: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3771: END IF;
3772: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3773: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3768: END IF;
3769: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3770: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3771: END IF;
3772: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3773: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3774: END IF;
3775: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3776: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3771: END IF;
3772: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3773: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3774: END IF;
3775: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3776: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3777: END IF;
3778: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3779: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3774: END IF;
3775: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3776: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3777: END IF;
3778: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3779: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3780: END IF;
3781: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3782: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3777: END IF;
3778: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3779: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3780: END IF;
3781: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3782: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3783: END IF;
3784: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3785: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3780: END IF;
3781: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3782: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3783: END IF;
3784: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3785: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3786: END IF;
3787: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3788: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3783: END IF;
3784: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3785: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3786: END IF;
3787: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3788: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3789: END IF;
3790: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3791: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3786: END IF;
3787: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3788: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3789: END IF;
3790: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3791: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3792: END IF;
3793: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3794: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3789: END IF;
3790: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3791: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3792: END IF;
3793: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3794: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3795: END IF;
3796: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3797: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3792: END IF;
3793: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3794: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3795: END IF;
3796: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3797: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3798: END IF;
3799: -- Call table handler to insert
3800: AHL_UNIT_ACCOMPLISH_PKG.insert_row (
3838:
3839: CSI_COUNTER_PUB.Create_Reading_Lock
3840: (
3841: p_api_version => 1.0,
3842: p_commit => FND_API.G_FALSE,
3843: p_init_msg_list => FND_API.G_FALSE,
3844: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3845: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3846: x_return_status => l_return_status,
3839: CSI_COUNTER_PUB.Create_Reading_Lock
3840: (
3841: p_api_version => 1.0,
3842: p_commit => FND_API.G_FALSE,
3843: p_init_msg_list => FND_API.G_FALSE,
3844: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3845: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3846: x_return_status => l_return_status,
3847: x_msg_count => l_msg_count,
3840: (
3841: p_api_version => 1.0,
3842: p_commit => FND_API.G_FALSE,
3843: p_init_msg_list => FND_API.G_FALSE,
3844: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3845: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3846: x_return_status => l_return_status,
3847: x_msg_count => l_msg_count,
3848: x_msg_data => l_msg_data,
3849: x_reading_lock_id => l_reading_lock_id
3850: );
3851:
3852: -- Raise errors if exception occurs
3853: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3856: RAISE FND_API.G_EXC_ERROR;
3857: END IF;
3850: );
3851:
3852: -- Raise errors if exception occurs
3853: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3856: RAISE FND_API.G_EXC_ERROR;
3857: END IF;
3858:
3851:
3852: -- Raise errors if exception occurs
3853: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3856: RAISE FND_API.G_EXC_ERROR;
3857: END IF;
3858:
3859: END IF;
3852: -- Raise errors if exception occurs
3853: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3856: RAISE FND_API.G_EXC_ERROR;
3857: END IF;
3858:
3859: END IF;
3860: */
3978: AHL_DEBUG_PUB.debug('Input CSI:MR:' || p_item_instance_id || ':' || p_mr_header_id, 'UMP');
3979: AHL_DEBUG_PUB.debug('p_unit_effectivity_id:' || p_unit_effectivity_id, 'UMP');
3980: END IF;
3981: -- Initialize API return status to success
3982: x_return_status := FND_API.G_RET_STS_SUCCESS;
3983:
3984: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3985: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3986: p_api_version => 1.0,
3983:
3984: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3985: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3986: p_api_version => 1.0,
3987: p_init_msg_list => FND_API.G_FALSE,
3988: p_commit => FND_API.G_FALSE,
3989: p_validation_level => 20,
3990: x_return_status => l_return_status,
3991: x_msg_count => l_msg_count,
3984: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3985: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3986: p_api_version => 1.0,
3987: p_init_msg_list => FND_API.G_FALSE,
3988: p_commit => FND_API.G_FALSE,
3989: p_validation_level => 20,
3990: x_return_status => l_return_status,
3991: x_msg_count => l_msg_count,
3992: x_msg_data => l_msg_data,
3996: x_applicable_mr_tbl => l_effectivities_tbl
3997: );
3998:
3999: -- Raise errors if exceptions occur
4000: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4004: END IF;
3997: );
3998:
3999: -- Raise errors if exceptions occur
4000: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4004: END IF;
4005:
3998:
3999: -- Raise errors if exceptions occur
4000: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4004: END IF;
4005:
4006: -- fix for bug number 6761311
3999: -- Raise errors if exceptions occur
4000: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4001: RAISE FND_API.G_EXC_ERROR;
4002: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4004: END IF;
4005:
4006: -- fix for bug number 6761311
4007:
4047: LOOP
4048: FETCH l_counters_csr INTO l_temp_counter_name;
4049: EXIT WHEN l_counters_csr%NOTFOUND;
4050: l_counters_msg := l_counters_msg || l_temp_counter_name || ', ';
4051: x_return_status := FND_API.G_RET_STS_ERROR;
4052: END LOOP;
4053: CLOSE l_counters_csr;
4054: l_counters_msg := rtrim(l_counters_msg);
4055: l_counters_msg := rtrim(l_counters_msg, ',');
4067: FOR i IN l_effectivities_tbl.FIRST..l_effectivities_tbl.LAST LOOP
4068: FOR counter_name_rec IN get_unmatched_counter(l_effectivities_tbl(i).MR_EFFECTIVITY_ID
4069: ,p_item_instance_id,p_unit_effectivity_id) LOOP
4070: l_counters_msg := l_counters_msg || counter_name_rec.counter_name || ', ';
4071: x_return_status := FND_API.G_RET_STS_ERROR;
4072: END LOOP;
4073: END LOOP;
4074: END IF;
4075: l_counters_msg := rtrim(l_counters_msg);
4091: -- Define Procedures --
4092: ------------------------
4093: PROCEDURE Terminate_MR_Instances (
4094: p_api_version IN NUMBER := 1.0,
4095: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4096: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4097: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4098: p_default IN VARCHAR2 := FND_API.G_TRUE,
4099: p_module_type IN VARCHAR2 := NULL,
4092: ------------------------
4093: PROCEDURE Terminate_MR_Instances (
4094: p_api_version IN NUMBER := 1.0,
4095: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4096: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4097: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4098: p_default IN VARCHAR2 := FND_API.G_TRUE,
4099: p_module_type IN VARCHAR2 := NULL,
4100: p_old_mr_header_id IN NUMBER,
4093: PROCEDURE Terminate_MR_Instances (
4094: p_api_version IN NUMBER := 1.0,
4095: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4096: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4097: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4098: p_default IN VARCHAR2 := FND_API.G_TRUE,
4099: p_module_type IN VARCHAR2 := NULL,
4100: p_old_mr_header_id IN NUMBER,
4101: p_old_mr_title IN VARCHAR2,
4094: p_api_version IN NUMBER := 1.0,
4095: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4096: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4097: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4098: p_default IN VARCHAR2 := FND_API.G_TRUE,
4099: p_module_type IN VARCHAR2 := NULL,
4100: p_old_mr_header_id IN NUMBER,
4101: p_old_mr_title IN VARCHAR2,
4102: p_old_version_number IN NUMBER,
4424: IF G_DEBUG='Y' THEN
4425: AHL_DEBUG_PUB.debug('Beginning Processing... ', 'UMP-TERMINATE: ');
4426: END IF;
4427: -- Standard call to check for call compatibility
4428: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
4429: G_PKG_NAME) THEN
4430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4431: END IF;
4432:
4426: END IF;
4427: -- Standard call to check for call compatibility
4428: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
4429: G_PKG_NAME) THEN
4430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4431: END IF;
4432:
4433: IF G_DEBUG='Y' THEN
4434: AHL_DEBUG_PUB.debug('After call compatible api ', 'UMP-TERMINATE:');
4442: AHL_DEBUG_PUB.debug('p_new_version_number: ' || p_new_version_number);
4443: END IF;
4444:
4445: -- Initialize message list if p_init_msg_list is set to TRUE
4446: IF FND_API.To_Boolean(p_init_msg_list) THEN
4447: FND_MSG_PUB.Initialize;
4448: END IF;
4449:
4450: -- Initialize API return status to success
4447: FND_MSG_PUB.Initialize;
4448: END IF;
4449:
4450: -- Initialize API return status to success
4451: x_return_status := FND_API.G_RET_STS_SUCCESS;
4452:
4453: -- Begin Processing
4454:
4455: l_new_mr_header_id := p_new_mr_header_id;
4457:
4458: --resolve new mr_header_id
4459: l_rev_date :=SYSDATE; -- marking time when revision update starts
4460:
4461: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4462: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4463: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4464:
4465: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4458: --resolve new mr_header_id
4459: l_rev_date :=SYSDATE; -- marking time when revision update starts
4460:
4461: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4462: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4463: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4464:
4465: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4466: FETCH l_get_mr_header_id INTO l_new_mr_header_id;
4459: l_rev_date :=SYSDATE; -- marking time when revision update starts
4460:
4461: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4462: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4463: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4464:
4465: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4466: FETCH l_get_mr_header_id INTO l_new_mr_header_id;
4467: -- IF (l_get_mr_header_id%NOTFOUND) THEN
4471:
4472:
4473: --resolve old mr_header_id
4474:
4475: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4476: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4477: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4478: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4479: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4472:
4473: --resolve old mr_header_id
4474:
4475: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4476: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4477: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4478: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4479: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4480: CLOSE l_get_mr_header_id;
4473: --resolve old mr_header_id
4474:
4475: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4476: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4477: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4478: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4479: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4480: CLOSE l_get_mr_header_id;
4481: END IF;
4481: END IF;
4482: END IF;
4483:
4484: IF (l_old_mr_header_id IS NULL) THEN
4485: x_return_status := FND_API.G_RET_STS_ERROR;
4486: FND_MESSAGE.Set_Name('AHL','AHL_UMP_TERMNT_MR_DET_MAND');
4487: FND_MSG_PUB.ADD;
4488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4489: -- RETURN;
4484: IF (l_old_mr_header_id IS NULL) THEN
4485: x_return_status := FND_API.G_RET_STS_ERROR;
4486: FND_MESSAGE.Set_Name('AHL','AHL_UMP_TERMNT_MR_DET_MAND');
4487: FND_MSG_PUB.ADD;
4488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4489: -- RETURN;
4490: END IF;
4491:
4492: /*
4490: END IF;
4491:
4492: /*
4493: IF (l_new_mr_header_id IS NULL) THEN
4494: x_return_status := FND_API.G_RET_STS_ERROR;
4495: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CUR_MR_DET_MAND');
4496: FND_MSG_PUB.ADD;
4497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4498: -- RETURN;
4493: IF (l_new_mr_header_id IS NULL) THEN
4494: x_return_status := FND_API.G_RET_STS_ERROR;
4495: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CUR_MR_DET_MAND');
4496: FND_MSG_PUB.ADD;
4497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4498: -- RETURN;
4499: END IF;
4500: */
4501:
4503: FETCH l_get_effective_to_date INTO l_effective_to_date, l_application_usg_code; --, l_effective_from_date;
4504: IF (l_get_effective_to_date%FOUND) THEN
4505: --check if effective to date has passed
4506: /* IF( TRUNC(l_effective_to_date) > TRUNC(SYSDATE)) THEN
4507: x_return_status := FND_API.G_RET_STS_ERROR;
4508: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4509: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4510: FND_MSG_PUB.ADD;
4511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4507: x_return_status := FND_API.G_RET_STS_ERROR;
4508: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4509: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4510: FND_MSG_PUB.ADD;
4511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4512: END IF; */
4513:
4514: -- Set the profile for due date calculation as the work flow user may not have this
4515: -- profile set.
4526: IF (l_new_mr_header_id IS NOT NULL) THEN
4527: OPEN l_get_effective_from_date(l_new_mr_header_id);
4528: FETCH l_get_effective_from_date INTO l_effective_from_date;
4529: IF (l_get_effective_from_date%NOTFOUND) THEN
4530: x_return_status := FND_API.G_RET_STS_ERROR;
4531: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4532: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4533: FND_MSG_PUB.ADD;
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4530: x_return_status := FND_API.G_RET_STS_ERROR;
4531: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4532: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4533: FND_MSG_PUB.ADD;
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: CLOSE l_get_effective_from_date;
4537: END IF;
4538:
4922: -- Check Error Message stack.
4923: x_msg_count := FND_MSG_PUB.count_msg;
4924: IF x_msg_count > 0 THEN
4925: x_return_status := 'U';
4926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4927: END IF;
4928:
4929: IF(l_new_mr_header_id IS NOT NULL)THEN
4930: UPDATE AHL_MR_HEADERS_B
4936: CLOSE get_mr_copy_dtls_csr;
4937: IF(l_COPY_FIRST_DUE_FLAG = 'Y' OR l_COPY_DEFERRALS_FLAG = 'Y') THEN
4938: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4939: p_api_version => 1.0,
4940: p_init_msg_list => FND_API.G_FALSE,
4941: p_commit => FND_API.G_FALSE,
4942: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4943: x_return_status => l_return_status,
4944: x_msg_count => l_msg_count,
4937: IF(l_COPY_FIRST_DUE_FLAG = 'Y' OR l_COPY_DEFERRALS_FLAG = 'Y') THEN
4938: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4939: p_api_version => 1.0,
4940: p_init_msg_list => FND_API.G_FALSE,
4941: p_commit => FND_API.G_FALSE,
4942: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4943: x_return_status => l_return_status,
4944: x_msg_count => l_msg_count,
4945: x_msg_data => l_msg_data,
4938: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4939: p_api_version => 1.0,
4940: p_init_msg_list => FND_API.G_FALSE,
4941: p_commit => FND_API.G_FALSE,
4942: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4943: x_return_status => l_return_status,
4944: x_msg_count => l_msg_count,
4945: x_msg_data => l_msg_data,
4946: p_mr_header_id => l_new_mr_header_id,
4950: p_sort_flag => 'N',
4951: x_mr_item_inst_tbl => l_new_mr_item_instance_tbl
4952: );
4953: IF(l_return_status = 'U') THEN
4954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4955: END IF;
4956: IF(l_return_status = 'E') THEN
4957: RAISE FND_API.G_EXC_ERROR;
4958: END IF;
4953: IF(l_return_status = 'U') THEN
4954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4955: END IF;
4956: IF(l_return_status = 'E') THEN
4957: RAISE FND_API.G_EXC_ERROR;
4958: END IF;
4959:
4960: IF (l_new_mr_item_instance_tbl.COUNT) > 0 THEN
4961: FOR i IN l_new_mr_item_instance_tbl.FIRST..l_new_mr_item_instance_tbl.LAST LOOP
5065: END IF; -- count > 0
5066: END IF;
5067:
5068: -- Standard check of p_commit
5069: IF FND_API.TO_BOOLEAN(p_commit) THEN
5070: COMMIT WORK;
5071: IF G_DEBUG='Y' THEN
5072: AHL_DEBUG_PUB.debug('Committed Changes', 'UMP');
5073: END IF;
5075:
5076: /* commented call from here as BUE api commits. Launching concurrent program instead.
5077: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
5078: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
5079: p_init_msg_list => FND_API.G_FALSE,
5080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5081: p_default => FND_API.G_TRUE,
5082: p_module_type => NULL,
5083: x_return_status => l_return_status,
5076: /* commented call from here as BUE api commits. Launching concurrent program instead.
5077: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
5078: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
5079: p_init_msg_list => FND_API.G_FALSE,
5080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5081: p_default => FND_API.G_TRUE,
5082: p_module_type => NULL,
5083: x_return_status => l_return_status,
5084: x_msg_count => l_msg_count,
5077: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
5078: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
5079: p_init_msg_list => FND_API.G_FALSE,
5080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5081: p_default => FND_API.G_TRUE,
5082: p_module_type => NULL,
5083: x_return_status => l_return_status,
5084: x_msg_count => l_msg_count,
5085: x_msg_data => l_msg_data,
5086: p_mr_header_id => l_new_mr_header_id
5087: ) ;
5088:
5089: IF(l_return_status = 'U') THEN
5090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5091: END IF;
5092: IF(l_return_status = 'E') THEN
5093: RAISE FND_API.G_EXC_ERROR;
5094: END IF;
5089: IF(l_return_status = 'U') THEN
5090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5091: END IF;
5092: IF(l_return_status = 'E') THEN
5093: RAISE FND_API.G_EXC_ERROR;
5094: END IF;
5095:
5096: END IF;
5097: */
5111: -- Standard call to get message count and if count is 1, get message info
5112: FND_MSG_PUB.Count_And_Get
5113: ( p_count => x_msg_count,
5114: p_data => x_msg_data,
5115: p_encoded => fnd_api.g_false
5116: );
5117:
5118: --
5119: EXCEPTION
5116: );
5117:
5118: --
5119: EXCEPTION
5120: WHEN FND_API.G_EXC_ERROR THEN
5121: x_return_status := FND_API.G_RET_STS_ERROR;
5122: Rollback to Terminate_MR_Instances_pvt;
5123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5124: p_data => x_msg_data,
5117:
5118: --
5119: EXCEPTION
5120: WHEN FND_API.G_EXC_ERROR THEN
5121: x_return_status := FND_API.G_RET_STS_ERROR;
5122: Rollback to Terminate_MR_Instances_pvt;
5123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5124: p_data => x_msg_data,
5125: p_encoded => fnd_api.g_false);
5121: x_return_status := FND_API.G_RET_STS_ERROR;
5122: Rollback to Terminate_MR_Instances_pvt;
5123: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5124: p_data => x_msg_data,
5125: p_encoded => fnd_api.g_false);
5126:
5127: -- Disable debug
5128: AHL_DEBUG_PUB.disable_debug;
5129:
5126:
5127: -- Disable debug
5128: AHL_DEBUG_PUB.disable_debug;
5129:
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: Rollback to Terminate_MR_Instances_pvt;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5127: -- Disable debug
5128: AHL_DEBUG_PUB.disable_debug;
5129:
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: Rollback to Terminate_MR_Instances_pvt;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5132: Rollback to Terminate_MR_Instances_pvt;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5136:
5137: -- Disable debug
5138: AHL_DEBUG_PUB.disable_debug;
5139:
5137: -- Disable debug
5138: AHL_DEBUG_PUB.disable_debug;
5139:
5140: WHEN OTHERS THEN
5141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5142: Rollback to Terminate_MR_Instances_pvt;
5143: IF (SQLCODE = -54) THEN
5144: FND_MESSAGE.Set_Name('AHL','AHL_UMP_RECORD_LOCKED');
5145: FND_MSG_PUB.ADD;
5151: END IF;
5152: END IF;
5153: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5154: p_data => x_msg_data,
5155: p_encoded => fnd_api.g_false);
5156:
5157:
5158: -- Disable debug
5159: AHL_DEBUG_PUB.disable_debug;
5188: l_version_number ahl_mr_headers_app_v.VERSION_NUMBER%TYPE;
5189:
5190: BEGIN
5191:
5192: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
5193: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
5194: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
5195: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5189:
5190: BEGIN
5191:
5192: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
5193: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
5194: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
5195: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5197: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5190: BEGIN
5191:
5192: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
5193: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
5194: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
5195: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5197: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5198: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_TITLE_INVALID');
5226: l_junk VARCHAR2(1);
5227:
5228: BEGIN
5229:
5230: IF (p_x_uc_header_id IS NULL OR p_x_uc_header_id = FND_API.G_MISS_NUM) THEN
5231: IF (p_unit_name IS NOT NULL AND p_unit_name <> FND_API.G_MISS_CHAR) THEN
5232: OPEN ahl_uc_headers_csr(p_unit_name);
5233: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
5234: IF (ahl_uc_headers_csr%NOTFOUND) THEN
5227:
5228: BEGIN
5229:
5230: IF (p_x_uc_header_id IS NULL OR p_x_uc_header_id = FND_API.G_MISS_NUM) THEN
5231: IF (p_unit_name IS NOT NULL AND p_unit_name <> FND_API.G_MISS_CHAR) THEN
5232: OPEN ahl_uc_headers_csr(p_unit_name);
5233: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
5234: IF (ahl_uc_headers_csr%NOTFOUND) THEN
5235: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_UNIT_INVALID');
5258:
5259: BEGIN
5260:
5261: IF (p_x_csi_item_instance_id IS NULL OR
5262: p_x_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
5263: IF (p_csi_instance_number IS NOT NULL AND
5264: p_csi_instance_number <> FND_API.G_MISS_CHAR) THEN
5265: -- get instance_id.
5266: OPEN csi_item_instances_csr (p_csi_instance_number);
5260:
5261: IF (p_x_csi_item_instance_id IS NULL OR
5262: p_x_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
5263: IF (p_csi_instance_number IS NOT NULL AND
5264: p_csi_instance_number <> FND_API.G_MISS_CHAR) THEN
5265: -- get instance_id.
5266: OPEN csi_item_instances_csr (p_csi_instance_number);
5267: FETCH csi_item_instances_csr INTO l_csi_item_instance_id;
5268: IF (csi_item_instances_csr%NOTFOUND) THEN
5339: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5340: FND_MSG_PUB.ADD;
5341: CLOSE ahl_mr_headers_csr;
5342: --dbms_output.put_line('MR not found.');
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5344: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5345: trunc(sysdate) > trunc(l_effective_to)) THEN
5346: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5347: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5362: FND_MESSAGE.Set_Token('INST_ID', p_x_csi_item_instance_id);
5363: FND_MSG_PUB.ADD;
5364: CLOSE csi_item_instances_csr;
5365: --dbms_output.put_line('Instance not found');
5366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5367: /* Bypass validation to fix bug# 8567880. If instance is expired, delete UMP.
5368: Done in procedure process_unit.
5369: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
5370: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5386: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_header_id);
5387: FND_MSG_PUB.ADD;
5388: --dbms_output.put_line('Unit not found');
5389: CLOSE ahl_unit_config_headers_csr;
5390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5391:
5392: -- Dates obsoleted 11.5.10.
5393: -- ELSIF (trunc(l_active_start_date) > trunc(sysdate) OR
5394: -- trunc(sysdate) > trunc(l_active_end_date)) THEN
5431: IF (ahl_simulation_plan_csr%NOTFOUND) THEN
5432: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BUE_SIMID_NOTFOUND');
5433: FND_MSG_PUB.ADD;
5434: CLOSE ahl_simulation_plan_csr;
5435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5436: END IF;
5437: CLOSE ahl_simulation_plan_csr;
5438: END IF;
5439:
5466: is
5467: select 'x'
5468: from okc_k_headers_all_b
5469: where contract_number = p_contract_number
5470: and nvl(contract_number_modifier, 'X') = nvl(decode(p_contract_modifier, FND_API.G_MISS_CHAR, null, p_contract_modifier), 'X');
5471:
5472: l_effective_from ahl_mr_headers_app_v.EFFECTIVE_FROM%TYPE;
5473: l_effective_to ahl_mr_headers_app_v.EFFECTIVE_TO%TYPE;
5474: l_mr_title ahl_mr_headers_app_v.TITLE%TYPE;
5490: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5491: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5492: FND_MSG_PUB.ADD;
5493: CLOSE ahl_mr_headers_csr;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5495: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5496: trunc(sysdate) > trunc(l_effective_to)) THEN
5497: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5498: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5511: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5512: FND_MESSAGE.Set_Token('INST_ID', p_csi_item_instance_id);
5513: FND_MSG_PUB.ADD;
5514: CLOSE csi_item_instances_csr;
5515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5516: /* Bypass validation to fix bug# 8567880. If instance is expired, validate and delete UMP.
5517: Done in procedure process_unit.
5518: ELSIF (l_active_end_date < sysdate) THEN
5519: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5525: END IF;
5526:
5527: -- Validate whether contract number + modifier combination exists
5528: -- Validate whether contract modifier is NOT NULL but contract number IS NULL
5529: IF (p_contract_number is not null and p_contract_number <> FND_API.G_MISS_CHAR)
5530: THEN
5531: OPEN contract_number_csr;
5532: FETCH contract_number_csr INTO l_dummy;
5533: IF (contract_number_csr%NOTFOUND)
5537: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5538: FND_MSG_PUB.ADD;
5539: END IF;
5540: CLOSE contract_number_csr;
5541: ELSIF (p_contract_modifier IS NOT NULL and p_contract_modifier <> FND_API.G_MISS_CHAR)
5542: THEN
5543: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_MOD_INV');
5544: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5545: FND_MSG_PUB.ADD;
5727: -- Initialize error message stack by default
5728: FND_MSG_PUB.Initialize;
5729:
5730: -- Standard call to check for call compatibility
5731: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
5732: THEN
5733: retcode := 2;
5734: errbuf := FND_MSG_PUB.Get;
5735:
5732: THEN
5733: retcode := 2;
5734: errbuf := FND_MSG_PUB.Get;
5735:
5736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5737: END IF;
5738:
5739: Build_UnitEffectivity (
5740: p_init_msg_list => FND_API.G_TRUE,
5736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5737: END IF;
5738:
5739: Build_UnitEffectivity (
5740: p_init_msg_list => FND_API.G_TRUE,
5741: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5742: p_default => FND_API.G_TRUE,
5743: p_module_type => NULL,
5744: x_return_status => l_return_status,
5737: END IF;
5738:
5739: Build_UnitEffectivity (
5740: p_init_msg_list => FND_API.G_TRUE,
5741: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5742: p_default => FND_API.G_TRUE,
5743: p_module_type => NULL,
5744: x_return_status => l_return_status,
5745: x_msg_count => l_msg_count,
5738:
5739: Build_UnitEffectivity (
5740: p_init_msg_list => FND_API.G_TRUE,
5741: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5742: p_default => FND_API.G_TRUE,
5743: p_module_type => NULL,
5744: x_return_status => l_return_status,
5745: x_msg_count => l_msg_count,
5746: x_msg_data => errbuf,
5752: p_num_of_workers => p_num_of_workers
5753: );
5754:
5755: l_msg_count := FND_MSG_PUB.Count_Msg;
5756: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5757: THEN
5758: retcode := 2; -- error based only on return status
5759: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5760: THEN
5755: l_msg_count := FND_MSG_PUB.Count_Msg;
5756: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5757: THEN
5758: retcode := 2; -- error based only on return status
5759: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5760: THEN
5761: retcode := 1; -- warning based on return status + msg count
5762: ELSE
5763: retcode := 0; -- success, since nothing is wrong
5789: -- Initialize error message stack by default
5790: FND_MSG_PUB.Initialize;
5791:
5792: Build_UnitEffectivity (
5793: p_init_msg_list => FND_API.G_TRUE,
5794: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5795: p_default => FND_API.G_TRUE,
5796: p_module_type => NULL,
5797: x_return_status => l_return_status,
5790: FND_MSG_PUB.Initialize;
5791:
5792: Build_UnitEffectivity (
5793: p_init_msg_list => FND_API.G_TRUE,
5794: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5795: p_default => FND_API.G_TRUE,
5796: p_module_type => NULL,
5797: x_return_status => l_return_status,
5798: x_msg_count => l_msg_count,
5791:
5792: Build_UnitEffectivity (
5793: p_init_msg_list => FND_API.G_TRUE,
5794: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5795: p_default => FND_API.G_TRUE,
5796: p_module_type => NULL,
5797: x_return_status => l_return_status,
5798: x_msg_count => l_msg_count,
5799: x_msg_data => errbuf,
5806: p_concurrent_flag => 'Y'
5807: );
5808:
5809: l_msg_count := FND_MSG_PUB.Count_Msg;
5810: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5811: THEN
5812: retcode := 2; -- error based only on return status
5813: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5814: THEN
5809: l_msg_count := FND_MSG_PUB.Count_Msg;
5810: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5811: THEN
5812: retcode := 2; -- error based only on return status
5813: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5814: THEN
5815: retcode := 1; -- warning based on return status + msg count
5816: ELSE
5817: retcode := 0; -- success, since nothing is wrong
5869: -- initialize error message stack
5870: FND_MSG_PUB.Initialize;
5871:
5872: -- standard call to check for call compatibility
5873: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
5874: l_api_name, G_PKG_NAME) THEN
5875: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5876: FND_LOG.string(FND_LOG.level_statement,l_full_name,
5877: ' Incompatible call. Raising exception.');
5878: END IF;
5879:
5880: retcode := 2;
5881: errbuf := FND_MSG_PUB.Get;
5882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5883: END IF;
5884:
5885: -- check for pc_header_id validity
5886: OPEN check_for_pc_csr(p_pc_header_id);
5897: FND_MSG_PUB.ADD;
5898:
5899: retcode := 2;
5900: errbuf := FND_MSG_PUB.Get;
5901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5902: END IF;
5903: CLOSE check_for_pc_csr;
5904:
5905: -- get all the applicable MRs for the PC
5915:
5916: -- get the top level applicable instances for the MR
5917: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5918: p_api_version => 1.0,
5919: p_init_msg_list => FND_API.G_FALSE,
5920: p_commit => FND_API.G_FALSE,
5921: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5922: x_return_status => l_return_status,
5923: x_msg_count => l_msg_count,
5916: -- get the top level applicable instances for the MR
5917: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5918: p_api_version => 1.0,
5919: p_init_msg_list => FND_API.G_FALSE,
5920: p_commit => FND_API.G_FALSE,
5921: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5922: x_return_status => l_return_status,
5923: x_msg_count => l_msg_count,
5924: x_msg_data => errbuf,
5917: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5918: p_api_version => 1.0,
5919: p_init_msg_list => FND_API.G_FALSE,
5920: p_commit => FND_API.G_FALSE,
5921: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5922: x_return_status => l_return_status,
5923: x_msg_count => l_msg_count,
5924: x_msg_data => errbuf,
5925: p_mr_header_id => l_get_mr_for_pc_rec.mr_header_id,
5928: p_unique_inst_flag => 'Y',
5929: x_mr_item_inst_tbl => l_mr_item_inst_tbl);
5930:
5931: -- check for the return status
5932: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5933: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5934: FND_LOG.string(FND_LOG.level_statement,l_full_name,
5935: ' Raising exception with x_return_status => '||l_return_status);
5936: END IF;
5937:
5938: retcode := 2;
5939: errbuf := FND_MSG_PUB.Get;
5940:
5941: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5943: ELSE
5944: RAISE FND_API.G_EXC_ERROR;
5945: END IF;
5938: retcode := 2;
5939: errbuf := FND_MSG_PUB.Get;
5940:
5941: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5943: ELSE
5944: RAISE FND_API.G_EXC_ERROR;
5945: END IF;
5946: END IF;
5940:
5941: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5943: ELSE
5944: RAISE FND_API.G_EXC_ERROR;
5945: END IF;
5946: END IF;
5947:
5948: -- populate the associative array of instances for the PC
5970: indx := l_pc_mr_item_inst_tbl.FIRST;
5971: WHILE indx IS NOT NULL LOOP
5972: -- call the API Build_UnitEffectivity
5973: Build_UnitEffectivity (
5974: p_init_msg_list => FND_API.G_TRUE,
5975: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5976: p_default => FND_API.G_TRUE,
5977: p_module_type => NULL,
5978: x_return_status => l_return_status,
5971: WHILE indx IS NOT NULL LOOP
5972: -- call the API Build_UnitEffectivity
5973: Build_UnitEffectivity (
5974: p_init_msg_list => FND_API.G_TRUE,
5975: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5976: p_default => FND_API.G_TRUE,
5977: p_module_type => NULL,
5978: x_return_status => l_return_status,
5979: x_msg_count => l_msg_count,
5972: -- call the API Build_UnitEffectivity
5973: Build_UnitEffectivity (
5974: p_init_msg_list => FND_API.G_TRUE,
5975: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5976: p_default => FND_API.G_TRUE,
5977: p_module_type => NULL,
5978: x_return_status => l_return_status,
5979: x_msg_count => l_msg_count,
5980: x_msg_data => errbuf,
5981: p_csi_item_instance_id => l_pc_mr_item_inst_tbl(indx),
5982: p_concurrent_flag => 'Y');
5983:
5984: l_msg_count := FND_MSG_PUB.Count_Msg;
5985: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5986: -- error based only on return status
5987: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5988: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_full_name,
5989: ' Build_UnitEffectivity failed for l_pc_mr_item_inst_tbl(indx) => '||
5991: END IF;
5992:
5993: retcode := 2;
5994: EXIT; -- stop building unit effectivities for rest of the instances
5995: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5996: -- warning based on return status + msg count
5997: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5998: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_full_name,
5999: ' Build_UnitEffectivity had warnings for l_pc_mr_item_inst_tbl(indx) => '||
6037:
6038: FOR i IN 1..l_msg_count LOOP
6039: FND_MSG_PUB.get (
6040: p_msg_index => i,
6041: p_encoded => FND_API.G_FALSE,
6042: p_data => l_msg_data,
6043: p_msg_index_out => l_msg_index_out );
6044:
6045: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);
6114: -- Initialize error message stack by default
6115: FND_MSG_PUB.Initialize;
6116:
6117: -- Standard call to check for call compatibility
6118: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
6119: THEN
6120: retcode := 2;
6121: errbuf := FND_MSG_PUB.Get;
6122: END IF;
6145: RETURN;
6146: ELSE
6147: Terminate_MR_Instances(
6148: p_api_version => l_api_version,
6149: p_init_msg_list => FND_API.G_FALSE,
6150: p_commit => FND_API.G_FALSE,
6151: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6152: p_default => FND_API.G_TRUE,
6153: p_module_type =>'API',
6146: ELSE
6147: Terminate_MR_Instances(
6148: p_api_version => l_api_version,
6149: p_init_msg_list => FND_API.G_FALSE,
6150: p_commit => FND_API.G_FALSE,
6151: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6152: p_default => FND_API.G_TRUE,
6153: p_module_type =>'API',
6154: p_old_mr_header_id => get_terminated_mr.mr_header_id,
6147: Terminate_MR_Instances(
6148: p_api_version => l_api_version,
6149: p_init_msg_list => FND_API.G_FALSE,
6150: p_commit => FND_API.G_FALSE,
6151: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6152: p_default => FND_API.G_TRUE,
6153: p_module_type =>'API',
6154: p_old_mr_header_id => get_terminated_mr.mr_header_id,
6155: p_old_mr_title => get_terminated_mr.title,
6148: p_api_version => l_api_version,
6149: p_init_msg_list => FND_API.G_FALSE,
6150: p_commit => FND_API.G_FALSE,
6151: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6152: p_default => FND_API.G_TRUE,
6153: p_module_type =>'API',
6154: p_old_mr_header_id => get_terminated_mr.mr_header_id,
6155: p_old_mr_title => get_terminated_mr.title,
6156: p_old_version_number => get_terminated_mr.version_number,
6159: p_new_version_number => l_new_mr_rec.version_number,
6160: x_return_status => l_return_Status,
6161: x_msg_count =>l_msg_count,
6162: x_msg_data =>l_msg_data);
6163: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6164: -- log a warning
6165: fnd_file.put_line(fnd_file.log, 'Maintenance Requirement -> '||get_terminated_mr.title||' is not processed for termination because of following error(s)');
6166: fnd_file.put_line(fnd_file.log, '---------------------------------------------------------------------------------');
6167: