[Home] [Help]
128: -- Parameters :
129: --
130: -- Standard IN Parameters :
131: -- p_api_version IN NUMBER Required
132: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
133: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
134: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
135: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
136: -- Based on this flag, the API will set the default attributes.
129: --
130: -- Standard IN Parameters :
131: -- p_api_version IN NUMBER Required
132: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
133: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
134: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
135: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
136: -- Based on this flag, the API will set the default attributes.
137: -- p_module_type In VARCHAR2 Default NULL
130: -- Standard IN Parameters :
131: -- p_api_version IN NUMBER Required
132: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
133: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
134: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
135: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
136: -- Based on this flag, the API will set the default attributes.
137: -- p_module_type In VARCHAR2 Default NULL
138: -- This will be null.
131: -- p_api_version IN NUMBER Required
132: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
133: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
134: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
135: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
136: -- Based on this flag, the API will set the default attributes.
137: -- p_module_type In VARCHAR2 Default NULL
138: -- This will be null.
139: -- Standard OUT Parameters :
153: --
154:
155: PROCEDURE Process_UnitEffectivity (
156: p_api_version IN NUMBER,
157: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158: p_commit IN VARCHAR2 := FND_API.G_FALSE,
159: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
160: p_default IN VARCHAR2 := FND_API.G_TRUE,
161: p_module_type IN VARCHAR2 := NULL,
154:
155: PROCEDURE Process_UnitEffectivity (
156: p_api_version IN NUMBER,
157: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158: p_commit IN VARCHAR2 := FND_API.G_FALSE,
159: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
160: p_default IN VARCHAR2 := FND_API.G_TRUE,
161: p_module_type IN VARCHAR2 := NULL,
162: x_return_status OUT NOCOPY VARCHAR2,
155: PROCEDURE Process_UnitEffectivity (
156: p_api_version IN NUMBER,
157: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158: p_commit IN VARCHAR2 := FND_API.G_FALSE,
159: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
160: p_default IN VARCHAR2 := FND_API.G_TRUE,
161: p_module_type IN VARCHAR2 := NULL,
162: x_return_status OUT NOCOPY VARCHAR2,
163: x_msg_count OUT NOCOPY NUMBER,
156: p_api_version IN NUMBER,
157: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158: p_commit IN VARCHAR2 := FND_API.G_FALSE,
159: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
160: p_default IN VARCHAR2 := FND_API.G_TRUE,
161: p_module_type IN VARCHAR2 := NULL,
162: x_return_status OUT NOCOPY VARCHAR2,
163: x_msg_count OUT NOCOPY NUMBER,
164: x_msg_data OUT NOCOPY VARCHAR2,
186: -- Standard start of API savepoint
187: SAVEPOINT Process_UnitEffectivity_PVT;
188:
189: -- Standard call to check for call compatibility
190: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
191: G_PKG_NAME) THEN
192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193: END IF;
194:
188:
189: -- Standard call to check for call compatibility
190: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
191: G_PKG_NAME) THEN
192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193: END IF;
194:
195: -- Initialize message list if p_init_msg_list is set to TRUE
196: IF FND_API.To_Boolean(p_init_msg_list) THEN
192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
193: END IF;
194:
195: -- Initialize message list if p_init_msg_list is set to TRUE
196: IF FND_API.To_Boolean(p_init_msg_list) THEN
197: FND_MSG_PUB.Initialize;
198: END IF;
199:
200: -- Initialize Procedure return status to success
197: FND_MSG_PUB.Initialize;
198: END IF;
199:
200: -- Initialize Procedure return status to success
201: x_return_status := FND_API.G_RET_STS_SUCCESS;
202:
203: -- Enable Debug.
204: IF G_DEBUG='Y' THEN
205: AHL_DEBUG_PUB.enable_debug;
211: END IF;
212:
213: -- Convert Value to IDs and validate.
214: -- For maintenance requirement.
215: IF (l_mr_id IS NULL OR l_mr_id = FND_API.G_MISS_NUM) THEN
216: Convert_MRID (l_mr_id, p_mr_title, p_mr_version_number);
217: END IF;
218:
219: -- For instance id.
217: END IF;
218:
219: -- For instance id.
220: IF (l_csi_item_instance_id IS NULL OR
221: l_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
222: Convert_Instance (l_csi_item_instance_id, p_csi_instance_number);
223: END IF;
224:
225: -- For unit name.
223: END IF;
224:
225: -- For unit name.
226: IF (l_unit_config_header_id IS NULL OR
227: l_unit_config_header_id = FND_API.G_MISS_NUM) THEN
228: Convert_Unit (l_unit_config_header_id, p_unit_name);
229: END IF;
230:
231: Validate_Input_Parameters (l_mr_id, l_csi_item_instance_id, l_unit_config_header_id);
232:
233: -- Check Error Message stack.
234: l_msg_count := FND_MSG_PUB.count_msg;
235: IF l_msg_count > 0 THEN
236: RAISE FND_API.G_EXC_ERROR;
237: END IF;
238:
239: -- Depending on input parameters call procedures for processing.
240: IF (l_mr_id IS NOT NULL) THEN
263:
264: END IF;
265:
266: -- Check return status.
267: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
264: END IF;
265:
266: -- Check return status.
267: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
265:
266: -- Check return status.
267: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: -- Standard check of p_commit
266: -- Check return status.
267: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: -- Standard check of p_commit
274: IF FND_API.TO_BOOLEAN(p_commit) THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: -- Standard check of p_commit
274: IF FND_API.TO_BOOLEAN(p_commit) THEN
275: COMMIT WORK;
276: END IF;
277:
278: -- Standard call to get message count and if count is 1, get message info
278: -- Standard call to get message count and if count is 1, get message info
279: FND_MSG_PUB.Count_And_Get
280: ( p_count => x_msg_count,
281: p_data => x_msg_data,
282: p_encoded => fnd_api.g_false
283: );
284:
285: --
286: EXCEPTION
283: );
284:
285: --
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR;
289: Rollback to Process_UnitEffectivity_PVT;
290: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
291: p_data => x_msg_data,
284:
285: --
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: x_return_status := FND_API.G_RET_STS_ERROR;
289: Rollback to Process_UnitEffectivity_PVT;
290: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
291: p_data => x_msg_data,
292: p_encoded => fnd_api.g_false);
288: x_return_status := FND_API.G_RET_STS_ERROR;
289: Rollback to Process_UnitEffectivity_PVT;
290: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
291: p_data => x_msg_data,
292: p_encoded => fnd_api.g_false);
293:
294: -- Disable debug
295: AHL_DEBUG_PUB.disable_debug;
296:
295: AHL_DEBUG_PUB.disable_debug;
296:
297:
298:
299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: Rollback to Process_UnitEffectivity_PVT;
302: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
303: p_data => x_msg_data,
296:
297:
298:
299: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: Rollback to Process_UnitEffectivity_PVT;
302: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
303: p_data => x_msg_data,
304: p_encoded => fnd_api.g_false);
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: Rollback to Process_UnitEffectivity_PVT;
302: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
303: p_data => x_msg_data,
304: p_encoded => fnd_api.g_false);
305:
306: -- Disable debug
307: AHL_DEBUG_PUB.disable_debug;
308:
306: -- Disable debug
307: AHL_DEBUG_PUB.disable_debug;
308:
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: Rollback to Process_UnitEffectivity_PVT;
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
313: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
314: p_procedure_name => 'Process_UnitEffectivity_PVT',
315: p_error_text => SUBSTR(SQLERRM,1,240));
316: END IF;
317: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
318: p_data => x_msg_data,
319: p_encoded => fnd_api.g_false);
320:
321: -- Disable debug
322: AHL_DEBUG_PUB.disable_debug;
323:
351: -- built for the unit configuration.
352: --
353:
354: PROCEDURE Build_UnitEffectivity (
355: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
356: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
357: p_default IN VARCHAR2 := FND_API.G_TRUE,
358: p_module_type IN VARCHAR2 := NULL,
359: x_return_status OUT NOCOPY VARCHAR2,
352: --
353:
354: PROCEDURE Build_UnitEffectivity (
355: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
356: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
357: p_default IN VARCHAR2 := FND_API.G_TRUE,
358: p_module_type IN VARCHAR2 := NULL,
359: x_return_status OUT NOCOPY VARCHAR2,
360: x_msg_count OUT NOCOPY NUMBER,
353:
354: PROCEDURE Build_UnitEffectivity (
355: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
356: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
357: p_default IN VARCHAR2 := FND_API.G_TRUE,
358: p_module_type IN VARCHAR2 := NULL,
359: x_return_status OUT NOCOPY VARCHAR2,
360: x_msg_count OUT NOCOPY NUMBER,
361: x_msg_data OUT NOCOPY VARCHAR2,
389:
390: BEGIN
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE
393: IF FND_API.To_Boolean(p_init_msg_list) THEN
394: FND_MSG_PUB.Initialize;
395: END IF;
396:
397: -- Initialize Procedure return status to success
394: FND_MSG_PUB.Initialize;
395: END IF;
396:
397: -- Initialize Procedure return status to success
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400: -- Enable Debug.
401: IF G_DEBUG='Y' THEN
402: AHL_DEBUG_PUB.enable_debug;
408: END IF;
409:
410: -- Convert Value to IDs and validate.
411: -- For maintenance requirement.
412: IF (l_mr_id IS NULL OR l_mr_id = FND_API.G_MISS_NUM) THEN
413: Convert_MRID (l_mr_id, p_mr_title, p_mr_version_number);
414: END IF;
415:
416: -- For instance id.
414: END IF;
415:
416: -- For instance id.
417: IF (l_csi_item_instance_id IS NULL OR
418: l_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
419: Convert_Instance (l_csi_item_instance_id, p_csi_instance_number);
420: END IF;
421:
422: -- For unit name.
420: END IF;
421:
422: -- For unit name.
423: IF (l_unit_config_header_id IS NULL OR
424: l_unit_config_header_id = FND_API.G_MISS_NUM) THEN
425: Convert_Unit (l_unit_config_header_id, p_unit_name);
426: END IF;
427:
428: --AMSRINIV: Bug #4360784
437:
438: -- Check Error Message stack.
439: l_msg_count := FND_MSG_PUB.count_msg;
440: IF l_msg_count > 0 THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
444: -- Depending on input parameters call procedures for processing.
445: -- Tamal: Bug #4207212, #4114368 Begin
446: IF (l_contract_number IS NOT NULL and ahl_util_pkg.is_pm_installed = 'Y') THEN
447: -- Process all units affected by the contract number...
448: AHL_UMP_ProcessUnit_PVT.Process_PM_Contracts
449: (
450: p_commit => FND_API.G_TRUE,
451: p_init_msg_list => FND_API.G_FALSE,
452: x_msg_count => x_msg_count,
453: x_msg_data => x_msg_data,
454: x_return_status => x_return_status,
447: -- Process all units affected by the contract number...
448: AHL_UMP_ProcessUnit_PVT.Process_PM_Contracts
449: (
450: p_commit => FND_API.G_TRUE,
451: p_init_msg_list => FND_API.G_FALSE,
452: x_msg_count => x_msg_count,
453: x_msg_data => x_msg_data,
454: x_return_status => x_return_status,
455: p_contract_number => l_contract_number,
459: -- Tamal: Bug #4207212, #4114368 End
460: ELSIF (l_mr_id IS NOT NULL) THEN
461: -- process all units affected by the MR.
462: AHL_UMP_ProcessUnit_PVT.Process_MRAffected_Units (
463: p_commit => FND_API.G_TRUE,
464: x_msg_count => x_msg_count,
465: x_msg_data => x_msg_data,
466: x_return_status => x_return_status,
467: p_mr_header_id => l_mr_id,
472:
473: ELSIF (l_csi_item_instance_id IS NOT NULL) THEN
474: -- Call Process Unit for the item instance.
475: AHL_UMP_ProcessUnit_PVT.Process_Unit (
476: p_commit => FND_API.G_TRUE,
477: x_msg_count => x_msg_count,
478: x_msg_data => x_msg_data,
479: x_return_status => x_return_status,
480: p_csi_item_instance_id => l_csi_item_instance_id,
482:
483: ELSE
484: -- process all units.
485: AHL_UMP_ProcessUnit_PVT.Process_All_Units (
486: p_commit => FND_API.G_TRUE,
487: x_msg_count => x_msg_count,
488: x_msg_data => x_msg_data,
489: x_return_status => x_return_status,
490: p_concurrent_flag => p_concurrent_flag,
494:
495: END IF;
496:
497: -- Check return status.
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
495: END IF;
496:
497: -- Check return status.
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
496:
497: -- Check return status.
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: -- Standard call to get message count and if count is 1, get message info
497: -- Check return status.
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: -- Standard call to get message count and if count is 1, get message info
505: FND_MSG_PUB.Count_And_Get
504: -- Standard call to get message count and if count is 1, get message info
505: FND_MSG_PUB.Count_And_Get
506: ( p_count => x_msg_count,
507: p_data => x_msg_data,
508: p_encoded => fnd_api.g_false
509: );
510:
511: --
512: EXCEPTION
509: );
510:
511: --
512: EXCEPTION
513: WHEN FND_API.G_EXC_ERROR THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
516: p_data => x_msg_data,
517: p_encoded => fnd_api.g_false);
510:
511: --
512: EXCEPTION
513: WHEN FND_API.G_EXC_ERROR THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
516: p_data => x_msg_data,
517: p_encoded => fnd_api.g_false);
518: IF (p_concurrent_flag = 'Y') THEN
513: WHEN FND_API.G_EXC_ERROR THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
516: p_data => x_msg_data,
517: p_encoded => fnd_api.g_false);
518: IF (p_concurrent_flag = 'Y') THEN
519: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
520: log_error_messages;
521: END IF;
523: AHL_DEBUG_PUB.disable_debug;
524:
525:
526:
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
530: p_data => x_msg_data,
531: p_encoded => fnd_api.g_false);
524:
525:
526:
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
530: p_data => x_msg_data,
531: p_encoded => fnd_api.g_false);
532:
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
530: p_data => x_msg_data,
531: p_encoded => fnd_api.g_false);
532:
533: IF (p_concurrent_flag = 'Y') THEN
534: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
535: log_error_messages;
537: -- Disable debug
538: AHL_DEBUG_PUB.disable_debug;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
543: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
544: p_procedure_name => 'Build_UnitEffectivity_PVT',
545: p_error_text => SUBSTR(SQLERRM,1,240));
545: p_error_text => SUBSTR(SQLERRM,1,240));
546: END IF;
547: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
548: p_data => x_msg_data,
549: p_encoded => fnd_api.g_false);
550:
551: IF (p_concurrent_flag = 'Y') THEN
552: fnd_file.put_line(fnd_file.log, 'Building Unit Effectivity failed. Refer to the error message below.');
553: log_error_messages;
562:
563: PROCEDURE Capture_MR_Updates
564: (
565: p_api_version IN NUMBER,
566: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
567: p_commit IN VARCHAR2 := FND_API.G_FALSE,
568: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
569: p_default IN VARCHAR2 := FND_API.G_TRUE,
570: p_module_type IN VARCHAR2 := NULL,
563: PROCEDURE Capture_MR_Updates
564: (
565: p_api_version IN NUMBER,
566: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
567: p_commit IN VARCHAR2 := FND_API.G_FALSE,
568: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
569: p_default IN VARCHAR2 := FND_API.G_TRUE,
570: p_module_type IN VARCHAR2 := NULL,
571: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
564: (
565: p_api_version IN NUMBER,
566: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
567: p_commit IN VARCHAR2 := FND_API.G_FALSE,
568: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
569: p_default IN VARCHAR2 := FND_API.G_TRUE,
570: p_module_type IN VARCHAR2 := NULL,
571: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
572: p_x_unit_threshold_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Threshold_tbl_type,
565: p_api_version IN NUMBER,
566: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
567: p_commit IN VARCHAR2 := FND_API.G_FALSE,
568: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
569: p_default IN VARCHAR2 := FND_API.G_TRUE,
570: p_module_type IN VARCHAR2 := NULL,
571: p_unit_Effectivity_tbl IN AHL_UMP_UNITMAINT_PVT.Unit_Effectivity_tbl_type,
572: p_x_unit_threshold_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Threshold_tbl_type,
573: p_x_unit_accomplish_tbl IN OUT NOCOPY AHL_UMP_UNITMAINT_PVT.Unit_Accomplish_tbl_type,
591: -- Standard start of API savepoint
592: SAVEPOINT Capture_MR_Updates_pvt;
593:
594: -- Standard call to check for call compatibility
595: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
596: G_PKG_NAME) THEN
597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
598: END IF;
599:
593:
594: -- Standard call to check for call compatibility
595: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
596: G_PKG_NAME) THEN
597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
598: END IF;
599:
600: -- Initialize message list if p_init_msg_list is set to TRUE
601: IF FND_API.To_Boolean(p_init_msg_list) THEN
597: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
598: END IF;
599:
600: -- Initialize message list if p_init_msg_list is set to TRUE
601: IF FND_API.To_Boolean(p_init_msg_list) THEN
602: FND_MSG_PUB.Initialize;
603: END IF;
604:
605: -- Initialize API return status to success
602: FND_MSG_PUB.Initialize;
603: END IF;
604:
605: -- Initialize API return status to success
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607:
608: -- Begin Processing
609:
610: -- Enable Debug (optional)
630: END LOOP;
631: END IF;
632: END IF;
633:
634: IF FND_API.to_boolean( p_default ) THEN
635: -- No special default settings required in this API
636: null;
637: END IF;
638: IF G_DEBUG='Y' THEN
640: END IF;
641: -- Start processing
642: FOR i IN p_unit_Effectivity_tbl.FIRST..p_unit_Effectivity_tbl.LAST LOOP
643: -- Initialize Return Status for this Unit Effectivity to SUCCESS
644: l_temp_return_status := FND_API.G_RET_STS_SUCCESS;
645: l_unit_Effectivity_rec := p_unit_Effectivity_tbl(i);
646:
647: -- Resolve Values to Ids
648: convert_effectivity_val_to_id(l_unit_Effectivity_rec, l_temp_return_status);
649: IF G_DEBUG='Y' THEN
650: AHL_DEBUG_PUB.debug('Resolved Values to Id for Effectivity', 'UMP');
651: END IF;
652: -- Ignore errors from the resolution process
653: l_temp_return_status := FND_API.G_RET_STS_SUCCESS;
654:
655: -- Validate the current unit effectivity record
656: Validate_Effectivity(l_unit_Effectivity_rec, l_MR_Initialization_flag, l_temp_return_status);
657: IF G_DEBUG='Y' THEN
662: IF G_DEBUG='Y' THEN
663: AHL_DEBUG_PUB.debug('About to process thresholds', 'UMP');
664: AHL_DEBUG_PUB.debug('Count threshold:' || p_x_unit_threshold_tbl.count, 'UMP');
665: END IF;
666: IF l_temp_return_status = FND_API.G_RET_STS_SUCCESS THEN
667: -- Get all the thresholds for the current effectivity
668: IF (p_x_unit_threshold_tbl.COUNT > 0) THEN
669: l_counter_index := 0;
670: FOR j IN p_x_unit_threshold_tbl.FIRST..p_x_unit_threshold_tbl.LAST LOOP
699: END IF;
700: END IF;
701:
702: -- Proceed to updating the database only if there are no errors
703: IF l_temp_return_status = FND_API.G_RET_STS_SUCCESS THEN
704:
705: IF G_DEBUG='Y' THEN
706: AHL_DEBUG_PUB.debug('About to update thresholds', 'UMP');
707: END IF;
747: END IF;
748: -- Check Error Message stack.
749: x_msg_count := FND_MSG_PUB.count_msg;
750: IF x_msg_count > 0 THEN
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754: -- Standard check of p_commit
755: IF FND_API.TO_BOOLEAN(p_commit) THEN
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754: -- Standard check of p_commit
755: IF FND_API.TO_BOOLEAN(p_commit) THEN
756: COMMIT WORK;
757: END IF;
758:
759: -- Standard call to get message count and if count is 1, get message info
759: -- Standard call to get message count and if count is 1, get message info
760: FND_MSG_PUB.Count_And_Get
761: ( p_count => x_msg_count,
762: p_data => x_msg_data,
763: p_encoded => fnd_api.g_false
764: );
765:
766: -- Disable debug (if enabled)
767: AHL_DEBUG_PUB.disable_debug;
766: -- Disable debug (if enabled)
767: AHL_DEBUG_PUB.disable_debug;
768:
769: EXCEPTION
770: WHEN FND_API.G_EXC_ERROR THEN
771: Rollback to Capture_MR_Updates_pvt;
772: x_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
774: p_data => x_msg_data,
768:
769: EXCEPTION
770: WHEN FND_API.G_EXC_ERROR THEN
771: Rollback to Capture_MR_Updates_pvt;
772: x_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
774: p_data => x_msg_data,
775: p_encoded => fnd_api.g_false);
776: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
771: Rollback to Capture_MR_Updates_pvt;
772: x_return_status := FND_API.G_RET_STS_ERROR;
773: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
774: p_data => x_msg_data,
775: p_encoded => fnd_api.g_false);
776: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
777:
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
775: p_encoded => fnd_api.g_false);
776: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
777:
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: Rollback to Capture_MR_Updates_pvt;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
783: p_data => x_msg_data,
777:
778:
779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
780: Rollback to Capture_MR_Updates_pvt;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
783: p_data => x_msg_data,
784: p_encoded => fnd_api.g_false);
785: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
780: Rollback to Capture_MR_Updates_pvt;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
783: p_data => x_msg_data,
784: p_encoded => fnd_api.g_false);
785: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
786:
787: WHEN OTHERS THEN
788: Rollback to Capture_MR_Updates_pvt;
785: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
786:
787: WHEN OTHERS THEN
788: Rollback to Capture_MR_Updates_pvt;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
791: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
792: p_procedure_name => 'Capture_MR_Updates',
793: p_error_text => SUBSTR(SQLERRM,1,240));
793: p_error_text => SUBSTR(SQLERRM,1,240));
794: END IF;
795: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
796: p_data => x_msg_data,
797: p_encoded => fnd_api.g_false);
798: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
799:
800:
801: END Capture_MR_Updates;
804:
805: PROCEDURE Validate_For_Initialize
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: p_default IN VARCHAR2 := FND_API.G_TRUE,
812: p_module_type IN VARCHAR2 := NULL,
805: PROCEDURE Validate_For_Initialize
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: p_default IN VARCHAR2 := FND_API.G_TRUE,
812: p_module_type IN VARCHAR2 := NULL,
813: p_unit_effectivity_id IN NUMBER,
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: p_default IN VARCHAR2 := FND_API.G_TRUE,
812: p_module_type IN VARCHAR2 := NULL,
813: p_unit_effectivity_id IN NUMBER,
814: x_return_status OUT NOCOPY VARCHAR2,
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: p_default IN VARCHAR2 := FND_API.G_TRUE,
812: p_module_type IN VARCHAR2 := NULL,
813: p_unit_effectivity_id IN NUMBER,
814: x_return_status OUT NOCOPY VARCHAR2,
815: x_msg_count OUT NOCOPY NUMBER,
860: --IF G_DEBUG='Y' THEN
861: -- AHL_DEBUG_PUB.enable_debug;
862: --END IF;
863: -- Standard call to check for call compatibility
864: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
865: G_PKG_NAME) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868:
862: --END IF;
863: -- Standard call to check for call compatibility
864: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
865: G_PKG_NAME) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868:
869: -- Initialize message list if p_init_msg_list is set to TRUE
870: IF FND_API.To_Boolean(p_init_msg_list) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868:
869: -- Initialize message list if p_init_msg_list is set to TRUE
870: IF FND_API.To_Boolean(p_init_msg_list) THEN
871: FND_MSG_PUB.Initialize;
872: END IF;
873:
874: -- Initialize API return status to success
871: FND_MSG_PUB.Initialize;
872: END IF;
873:
874: -- Initialize API return status to success
875: x_return_status := FND_API.G_RET_STS_SUCCESS;
876:
877: -- Begin Processing
878:
879: -- Ensure that the User is authorized to initialize
879: -- Ensure that the User is authorized to initialize
880: -- This functionality is not available now. So allow always
881: l_MR_Initialization_flag := 'Y';
882: IF (l_MR_Initialization_flag <> 'Y') THEN
883: x_return_status := FND_API.G_RET_STS_ERROR;
884: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
885: FND_MSG_PUB.ADD;
886: --IF G_DEBUG='Y' THEN
887: --AHL_DEBUG_PUB.debug('Unauthorized User', 'UMP:Validate_For_Initialize');
885: FND_MSG_PUB.ADD;
886: --IF G_DEBUG='Y' THEN
887: --AHL_DEBUG_PUB.debug('Unauthorized User', 'UMP:Validate_For_Initialize');
888: --END IF;
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
891:
892: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
888: --END IF;
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
891:
892: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
895: FND_MSG_PUB.ADD;
896: --IF G_DEBUG='Y' THEN
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
891:
892: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
895: FND_MSG_PUB.ADD;
896: --IF G_DEBUG='Y' THEN
897: --AHL_DEBUG_PUB.debug('Null Effectivity', 'UMP:Validate_For_Initialize');
895: FND_MSG_PUB.ADD;
896: --IF G_DEBUG='Y' THEN
897: --AHL_DEBUG_PUB.debug('Null Effectivity', 'UMP:Validate_For_Initialize');
898: --END IF;
899: RAISE FND_API.G_EXC_ERROR;
900: END IF;
901:
902: -- Ensure that this is not a repetitive MR
903: OPEN l_ue_details_csr(p_unit_effectivity_id);
902: -- Ensure that this is not a repetitive MR
903: OPEN l_ue_details_csr(p_unit_effectivity_id);
904: FETCH l_ue_details_csr INTO l_mr_id, l_item_instance_id, l_repetitive_mr_flag, l_status_code;
905: IF (l_ue_details_csr%NOTFOUND) THEN
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
908: FND_MESSAGE.Set_Token('UEID', p_unit_effectivity_id);
909: FND_MSG_PUB.ADD;
910: CLOSE l_ue_details_csr;
910: CLOSE l_ue_details_csr;
911: --IF G_DEBUG='Y' THEN
912: --AHL_DEBUG_PUB.debug('Invalid Effectivity Id', 'UMP:Validate_For_Initialize');
913: --END IF;
914: RAISE FND_API.G_EXC_ERROR;
915: ELSE
916: --Ensure that unit is not locked
917: 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
918: x_return_status := FND_API.G_RET_STS_ERROR;
913: --END IF;
914: RAISE FND_API.G_EXC_ERROR;
915: ELSE
916: --Ensure that unit is not locked
917: 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
918: x_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
920: FND_MSG_PUB.ADD;
921: CLOSE l_ue_details_csr;
914: RAISE FND_API.G_EXC_ERROR;
915: ELSE
916: --Ensure that unit is not locked
917: 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
918: x_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
920: FND_MSG_PUB.ADD;
921: CLOSE l_ue_details_csr;
922: RAISE FND_API.G_EXC_ERROR;
918: x_return_status := FND_API.G_RET_STS_ERROR;
919: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
920: FND_MSG_PUB.ADD;
921: CLOSE l_ue_details_csr;
922: RAISE FND_API.G_EXC_ERROR;
923: END IF;
924: IF (l_repetitive_mr_flag = 'Y') THEN
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_MR_TYPE');
921: CLOSE l_ue_details_csr;
922: RAISE FND_API.G_EXC_ERROR;
923: END IF;
924: IF (l_repetitive_mr_flag = 'Y') THEN
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_MR_TYPE');
927: FND_MSG_PUB.ADD;
928: --IF G_DEBUG='Y' THEN
929: --AHL_DEBUG_PUB.debug('Repetitive Effectivity', 'UMP:Validate_For_Initialize');
928: --IF G_DEBUG='Y' THEN
929: --AHL_DEBUG_PUB.debug('Repetitive Effectivity', 'UMP:Validate_For_Initialize');
930: --END IF;
931: CLOSE l_ue_details_csr;
932: RAISE FND_API.G_EXC_ERROR;
933: ELSE
934: CLOSE l_ue_details_csr;
935: END IF;
936: END IF;
944: CLOSE l_child_mr_csr;
945: --IF G_DEBUG='Y' THEN
946: --AHL_DEBUG_PUB.debug('Child MR', 'UMP:Validate_For_Initialize');
947: --END IF;
948: RAISE FND_API.G_EXC_ERROR;
949: ELSE
950: CLOSE l_child_mr_csr;
951: END IF;
952:
951: END IF;
952:
953: -- Ensure that the Current status is null, init-due or init-accomplished only
954: IF ((l_status_code IS NOT NULL) AND (l_status_code <> 'INIT-DUE') AND (l_status_code <> 'INIT-ACCOMPLISHED')) THEN
955: x_return_status := FND_API.G_RET_STS_ERROR;
956: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STATUS');
957: FND_MESSAGE.Set_Token('STATUS', l_status_code);
958: FND_MSG_PUB.ADD;
959: --IF G_DEBUG='Y' THEN
958: FND_MSG_PUB.ADD;
959: --IF G_DEBUG='Y' THEN
960: --AHL_DEBUG_PUB.debug('Invalid Status: ' || 'l_status_code', 'UMP:Validate_For_Initialize');
961: --END IF;
962: RAISE FND_API.G_EXC_ERROR;
963: END IF;
964:
965: -- Ensure that there are no prior accomplishments
966: 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);
964:
965: -- Ensure that there are no prior accomplishments
966: 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);
967: IF (l_temp_status = FALSE) THEN
968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
969: END IF;
970: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplish_date IS NOT null) THEN
971: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
972: FND_MSG_PUB.ADD;
972: FND_MSG_PUB.ADD;
973: --IF G_DEBUG='Y' THEN
974: --AHL_DEBUG_PUB.debug('Already Accomplished', 'UMP:Validate_For_Initialize');
975: --END IF;
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
978:
979: -- Ensure that there are no prior initializations
980: OPEN l_prior_initializations_csr(l_mr_id, l_item_instance_id, p_unit_effectivity_id);
979: -- Ensure that there are no prior initializations
980: OPEN l_prior_initializations_csr(l_mr_id, l_item_instance_id, p_unit_effectivity_id);
981: FETCH l_prior_initializations_csr INTO l_prior_ue_status;
982: IF (l_prior_initializations_csr%FOUND) THEN
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: IF (l_prior_ue_status = 'DEFERRED') THEN
985: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
986: FND_MSG_PUB.ADD;
987: ELSE
991: CLOSE l_prior_initializations_csr;
992: --IF G_DEBUG='Y' THEN
993: --AHL_DEBUG_PUB.debug('Has prior Initializations', 'UMP:Validate_For_Initialize');
994: --END IF;
995: RAISE FND_API.G_EXC_ERROR;
996: ELSE
997: CLOSE l_prior_initializations_csr;
998: END IF;
999:
998: END IF;
999:
1000: x_msg_count := FND_MSG_PUB.count_msg;
1001: IF x_msg_count > 0 THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
1005: EXCEPTION
1006: WHEN FND_API.G_EXC_ERROR THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
1005: EXCEPTION
1006: WHEN FND_API.G_EXC_ERROR THEN
1007: x_return_status := FND_API.G_RET_STS_ERROR;
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1010: p_data => x_msg_data,
1003: END IF;
1004:
1005: EXCEPTION
1006: WHEN FND_API.G_EXC_ERROR THEN
1007: x_return_status := FND_API.G_RET_STS_ERROR;
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1010: p_data => x_msg_data,
1011: p_encoded => fnd_api.g_false);
1007: x_return_status := FND_API.G_RET_STS_ERROR;
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1010: p_data => x_msg_data,
1011: p_encoded => fnd_api.g_false);
1012:
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: p_data => x_msg_data,
1011: p_encoded => fnd_api.g_false);
1012:
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: x_msg_count := FND_MSG_PUB.count_msg;
1017: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1018: p_data => x_msg_data,
1011: p_encoded => fnd_api.g_false);
1012:
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: x_msg_count := FND_MSG_PUB.count_msg;
1017: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1018: p_data => x_msg_data,
1019: p_encoded => fnd_api.g_false);
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: x_msg_count := FND_MSG_PUB.count_msg;
1017: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1018: p_data => x_msg_data,
1019: p_encoded => fnd_api.g_false);
1020:
1021: WHEN OTHERS THEN
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1023: x_msg_count := FND_MSG_PUB.count_msg;
1018: p_data => x_msg_data,
1019: p_encoded => fnd_api.g_false);
1020:
1021: WHEN OTHERS THEN
1022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1023: x_msg_count := FND_MSG_PUB.count_msg;
1024: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1025: -- fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1026: -- p_procedure_name => 'Validate_For_Initialize',
1027: -- p_error_text => SUBSTR(SQLERRM,1,240));
1028: -- END IF;
1029: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1030: p_data => x_msg_data,
1031: p_encoded => fnd_api.g_false);
1032:
1033: END Validate_For_Initialize;
1034:
1035: ----------------------------------------
1063: l_status_code VARCHAR2(30);
1064:
1065: BEGIN
1066: -- Initialize API return status to success
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1068:
1069: -- Resolve MR_ID
1070: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1071: 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
1066: -- Initialize API return status to success
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1068:
1069: -- Resolve MR_ID
1070: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1071: 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
1072: (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
1073: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1074: FETCH l_get_mr_id_csr INTO l_mr_id;
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1068:
1069: -- Resolve MR_ID
1070: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1071: 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
1072: (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
1073: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1074: FETCH l_get_mr_id_csr INTO l_mr_id;
1075: IF (l_get_mr_id_csr%FOUND) THEN
1068:
1069: -- Resolve MR_ID
1070: IF(p_x_unit_Effectivity_rec.MR_ID IS NULL OR p_x_unit_Effectivity_rec.MR_ID = FND_API.G_MISS_NUM) THEN
1071: 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
1072: (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
1073: OPEN l_get_mr_id_csr(p_x_unit_Effectivity_rec.MR_TITLE, p_x_unit_Effectivity_rec.MR_VERSION_NUMBER);
1074: FETCH l_get_mr_id_csr INTO l_mr_id;
1075: IF (l_get_mr_id_csr%FOUND) THEN
1076: p_x_unit_Effectivity_rec.MR_ID := l_mr_id;
1075: IF (l_get_mr_id_csr%FOUND) THEN
1076: p_x_unit_Effectivity_rec.MR_ID := l_mr_id;
1077: ELSE
1078: -- No match
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: END IF;
1081: CLOSE l_get_mr_id_csr;
1082: ELSE
1083: -- Insufficient information to retrieve mr_id
1080: END IF;
1081: CLOSE l_get_mr_id_csr;
1082: ELSE
1083: -- Insufficient information to retrieve mr_id
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: END IF;
1086: END IF;
1087:
1088: -- Resolve CSI_ITEM_INSTANCE_ID
1085: END IF;
1086: END IF;
1087:
1088: -- Resolve CSI_ITEM_INSTANCE_ID
1089: 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
1090: 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
1091: OPEN l_get_item_instance_id_csr(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER);
1092: FETCH l_get_item_instance_id_csr INTO l_item_instance_id;
1093: IF (l_get_item_instance_id_csr%FOUND) THEN
1086: END IF;
1087:
1088: -- Resolve CSI_ITEM_INSTANCE_ID
1089: 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
1090: 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
1091: OPEN l_get_item_instance_id_csr(p_x_unit_Effectivity_rec.CSI_INSTANCE_NUMBER);
1092: FETCH l_get_item_instance_id_csr INTO l_item_instance_id;
1093: IF (l_get_item_instance_id_csr%FOUND) THEN
1094: p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID := l_item_instance_id;
1093: IF (l_get_item_instance_id_csr%FOUND) THEN
1094: p_x_unit_Effectivity_rec.CSI_ITEM_INSTANCE_ID := l_item_instance_id;
1095: ELSE
1096: -- No match
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098: END IF;
1099: CLOSE l_get_item_instance_id_csr;
1100: ELSE
1101: -- Insufficient information to retrieve item instance id
1098: END IF;
1099: CLOSE l_get_item_instance_id_csr;
1100: ELSE
1101: -- Insufficient information to retrieve item instance id
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: END IF;
1104: END IF;
1105:
1106: -- Resolve STATUS_CODE
1103: END IF;
1104: END IF;
1105:
1106: -- Resolve STATUS_CODE
1107: IF(p_x_unit_Effectivity_rec.STATUS_CODE IS NULL OR p_x_unit_Effectivity_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1108: IF(p_x_unit_Effectivity_rec.STATUS IS NOT NULL AND p_x_unit_Effectivity_rec.STATUS <> FND_API.G_MISS_CHAR) THEN
1109: OPEN l_get_status_code_csr(p_x_unit_Effectivity_rec.STATUS);
1110: FETCH l_get_status_code_csr INTO l_status_code;
1111: IF (l_get_status_code_csr%FOUND) THEN
1104: END IF;
1105:
1106: -- Resolve STATUS_CODE
1107: IF(p_x_unit_Effectivity_rec.STATUS_CODE IS NULL OR p_x_unit_Effectivity_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1108: IF(p_x_unit_Effectivity_rec.STATUS IS NOT NULL AND p_x_unit_Effectivity_rec.STATUS <> FND_API.G_MISS_CHAR) THEN
1109: OPEN l_get_status_code_csr(p_x_unit_Effectivity_rec.STATUS);
1110: FETCH l_get_status_code_csr INTO l_status_code;
1111: IF (l_get_status_code_csr%FOUND) THEN
1112: p_x_unit_Effectivity_rec.STATUS_CODE := l_status_code;
1111: IF (l_get_status_code_csr%FOUND) THEN
1112: p_x_unit_Effectivity_rec.STATUS_CODE := l_status_code;
1113: ELSE
1114: -- No match
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: END IF;
1117: CLOSE l_get_status_code_csr;
1118: ELSE
1119: -- Insufficient information to retrieve status code
1116: END IF;
1117: CLOSE l_get_status_code_csr;
1118: ELSE
1119: -- Insufficient information to retrieve status code
1120: x_return_status := FND_API.G_RET_STS_ERROR;
1121: END IF;
1122: END IF;
1123:
1124: --
1173: l_counter_id NUMBER;
1174:
1175: BEGIN
1176: -- Initialize API return status to success
1177: x_return_status := FND_API.G_RET_STS_SUCCESS;
1178:
1179: -- Resolve Counter_ID
1180: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1181: 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
1176: -- Initialize API return status to success
1177: x_return_status := FND_API.G_RET_STS_SUCCESS;
1178:
1179: -- Resolve Counter_ID
1180: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1181: 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
1182: (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
1183: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1184: FETCH l_get_counter_id INTO l_counter_id;
1177: x_return_status := FND_API.G_RET_STS_SUCCESS;
1178:
1179: -- Resolve Counter_ID
1180: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1181: 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
1182: (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
1183: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1184: FETCH l_get_counter_id INTO l_counter_id;
1185: IF (l_get_counter_id%FOUND) THEN
1178:
1179: -- Resolve Counter_ID
1180: IF (p_x_unit_threshold_rec.counter_id IS NULL) OR (p_x_unit_threshold_rec.counter_id = FND_API.G_MISS_NUM) THEN
1181: 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
1182: (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
1183: OPEN l_get_counter_id(p_x_unit_threshold_rec.counter_name, p_x_unit_threshold_rec.unit_effectivity_id);
1184: FETCH l_get_counter_id INTO l_counter_id;
1185: IF (l_get_counter_id%FOUND) THEN
1186: p_x_unit_threshold_rec.counter_id := l_counter_id;
1185: IF (l_get_counter_id%FOUND) THEN
1186: p_x_unit_threshold_rec.counter_id := l_counter_id;
1187: ELSE
1188: -- No match
1189: x_return_status := FND_API.G_RET_STS_ERROR;
1190: END IF;
1191: CLOSE l_get_counter_id;
1192: ELSE
1193: -- Insufficient information to retrieve counter_id
1190: END IF;
1191: CLOSE l_get_counter_id;
1192: ELSE
1193: -- Insufficient information to retrieve counter_id
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195: END IF;
1196: END IF;
1197:
1198: END Convert_Threshold_Val_To_ID;
1241: l_counter_id NUMBER;
1242:
1243: BEGIN
1244: -- Initialize API return status to success
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1247: -- Resolve Counter_ID
1248: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1249: 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
1244: -- Initialize API return status to success
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1247: -- Resolve Counter_ID
1248: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1249: 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
1250: (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
1251: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1252: FETCH l_get_counter_id INTO l_counter_id;
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1247: -- Resolve Counter_ID
1248: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1249: 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
1250: (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
1251: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1252: FETCH l_get_counter_id INTO l_counter_id;
1253: IF (l_get_counter_id%FOUND) THEN
1246:
1247: -- Resolve Counter_ID
1248: IF (p_x_unit_accomplish_rec.counter_id IS NULL) OR (p_x_unit_accomplish_rec.counter_id = FND_API.G_MISS_NUM) THEN
1249: 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
1250: (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
1251: OPEN l_get_counter_id(p_x_unit_accomplish_rec.counter_name, p_x_unit_accomplish_rec.unit_effectivity_id);
1252: FETCH l_get_counter_id INTO l_counter_id;
1253: IF (l_get_counter_id%FOUND) THEN
1254: p_x_unit_accomplish_rec.counter_id := l_counter_id;
1253: IF (l_get_counter_id%FOUND) THEN
1254: p_x_unit_accomplish_rec.counter_id := l_counter_id;
1255: ELSE
1256: -- No match
1257: x_return_status := FND_API.G_RET_STS_ERROR;
1258: END IF;
1259: CLOSE l_get_counter_id;
1260: ELSE
1261: -- Insufficient information to retrieve counter_id
1258: END IF;
1259: CLOSE l_get_counter_id;
1260: ELSE
1261: -- Insufficient information to retrieve counter_id
1262: x_return_status := FND_API.G_RET_STS_ERROR;
1263: END IF;
1264: END IF;
1265:
1266: END Convert_Accomplish_Val_To_ID;
1413: AHL_DEBUG_PUB.debug('Start Validation Set1:' || x_return_status, 'UMP');
1414: END IF;
1415:
1416: -- Check if the unit effectivity id is not null
1417: IF (p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID IS NULL OR p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID = FND_API.G_MISS_NUM) THEN
1418: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1419: FND_MSG_PUB.ADD;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: END IF;
1416: -- Check if the unit effectivity id is not null
1417: IF (p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID IS NULL OR p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID = FND_API.G_MISS_NUM) THEN
1418: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1419: FND_MSG_PUB.ADD;
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: END IF;
1422:
1423: -- Check if the status is valid
1424: --IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL AND p_unit_Effectivity_rec.STATUS_CODE <> FND_API.G_MISS_CHAR) THEN
1420: x_return_status := FND_API.G_RET_STS_ERROR;
1421: END IF;
1422:
1423: -- Check if the status is valid
1424: --IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL AND p_unit_Effectivity_rec.STATUS_CODE <> FND_API.G_MISS_CHAR) THEN
1425: OPEN l_validate_status_csr(p_unit_Effectivity_rec.STATUS_CODE);
1426: FETCH l_validate_status_csr into l_junk;
1427: IF (l_validate_status_csr%NOTFOUND) THEN
1428: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1427: IF (l_validate_status_csr%NOTFOUND) THEN
1428: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1429: FND_MESSAGE.Set_Token('STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1430: FND_MSG_PUB.ADD;
1431: x_return_status := FND_API.G_RET_STS_ERROR;
1432: END IF;
1433: CLOSE l_validate_status_csr;
1434: --END IF;
1435:
1437: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1438: IF (p_authorized_user_flag = 'N') THEN
1439: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
1440: FND_MSG_PUB.ADD;
1441: x_return_status := FND_API.G_RET_STS_ERROR;
1442: --RAISE USER_NOT_AUTHORIZED;
1443: END IF;
1444:
1445: -- validate that UE is not assigned to any visit.
1447: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1448: IF (l_visit_status IS NOT NULL) THEN
1449: FND_MESSAGE.Set_Name('AHL','AHL_UMP_VISIT_ASSIGNED');
1450: FND_MSG_PUB.ADD;
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: END IF;
1453: END IF;
1454:
1455: -- validate that UE is not a child UE.
1457: FETCH l_child_mr_csr INTO l_junk;
1458: IF (l_child_mr_csr%FOUND) THEN
1459: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_MR');
1460: FND_MSG_PUB.ADD;
1461: x_return_status := FND_API.G_RET_STS_ERROR;
1462: END IF;
1463: CLOSE l_child_mr_csr;
1464:
1465: END IF;
1463: CLOSE l_child_mr_csr;
1464:
1465: END IF;
1466:
1467: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1468: -- Cannot proceed further
1469: RETURN;
1470: END IF;
1471:
1478: IF (l_ue_details_csr%NOTFOUND) THEN
1479: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1480: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1481: FND_MSG_PUB.ADD;
1482: x_return_status := FND_API.G_RET_STS_ERROR;
1483: -- Cannot proceed further
1484: RETURN;
1485: END IF;
1486: CLOSE l_ue_details_csr;
1485: END IF;
1486: CLOSE l_ue_details_csr;
1487:
1488: --Ensure that unit is not locked
1489: 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
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1492: FND_MSG_PUB.ADD;
1493: RETURN; -- cannot proceed further
1486: CLOSE l_ue_details_csr;
1487:
1488: --Ensure that unit is not locked
1489: 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
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1492: FND_MSG_PUB.ADD;
1493: RETURN; -- cannot proceed further
1494: END IF;
1499: IF(l_prev_object_version_no <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
1500: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
1501: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1502: FND_MSG_PUB.ADD;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: END IF;
1505:
1506: -- 07/03/2002: Allow termination even if visit is in execution
1507: -- -- Ensure that an in-progress MR is not terminated
1510: -- -- and if the visit is not in progress
1511: -- IF(AHL_UMP_UTIL_PKG.Is_UE_In_Execution(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID) = TRUE) THEN
1512: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_IN_EXEC');
1513: -- FND_MSG_PUB.ADD;
1514: -- x_return_status := FND_API.G_RET_STS_ERROR;
1515: -- END IF;
1516: -- END IF;
1517:
1518: IF G_DEBUG='Y' THEN
1522: END IF;
1523:
1524: -- Both the dates (due and accomplished) should not be set. Only one should be set.
1525: IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL) THEN
1526: 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
1527: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1528: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1529: FND_MSG_PUB.ADD;
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1523:
1524: -- Both the dates (due and accomplished) should not be set. Only one should be set.
1525: IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL) THEN
1526: 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
1527: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1528: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1529: FND_MSG_PUB.ADD;
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1531: END IF;
1526: 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
1527: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1528: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1529: FND_MSG_PUB.ADD;
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1531: END IF;
1532: END IF;
1533:
1534: -- If the status is INIT-ACCOMPLISHED, or ACCOMPLISHED, ensure that the accomplished date is set
1534: -- If the status is INIT-ACCOMPLISHED, or ACCOMPLISHED, ensure that the accomplished date is set
1535: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR
1536: (p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1537: -- validate ACCOMPLISHED_DATE = G_MISS_DATE for INIT-ACCOMPLISHED later in update_unit_effectivity proc.
1538: 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
1539: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1540: FND_MSG_PUB.ADD;
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1537: -- validate ACCOMPLISHED_DATE = G_MISS_DATE for INIT-ACCOMPLISHED later in update_unit_effectivity proc.
1538: 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
1539: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1540: FND_MSG_PUB.ADD;
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1543: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1544: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1545: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1538: 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
1539: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1540: FND_MSG_PUB.ADD;
1541: x_return_status := FND_API.G_RET_STS_ERROR;
1542: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1543: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1544: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1545: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1546: FND_MSG_PUB.ADD;
1543: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1544: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1545: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1546: FND_MSG_PUB.ADD;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: END IF;
1549: -- If this is a group MR, ensure that all descendents are accomplished
1550: /*
1551: OPEN l_invalid_descendents_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1552: FETCH l_invalid_descendents_csr INTO l_junk;
1553: IF (l_invalid_descendents_csr%FOUND) THEN
1554: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_UNACCMPLSHD');
1555: FND_MSG_PUB.ADD;
1556: x_return_status := FND_API.G_RET_STS_ERROR;
1557: END IF;
1558: CLOSE l_invalid_descendents_csr;
1559: */
1560: END IF;
1566: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1567: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1568: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1569: FND_MSG_PUB.ADD;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: END IF;
1572:
1573: -- If initializing, ensure that there are no prior initializations or accomplishments
1574: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1574: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1575: -- Ensure that there are no prior accomplishments
1576: 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);
1577: IF (l_temp_status = FALSE) THEN
1578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1579: END IF;
1580: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1581: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1582: FND_MSG_PUB.ADD;
1579: END IF;
1580: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1581: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1582: FND_MSG_PUB.ADD;
1583: x_return_status := FND_API.G_RET_STS_ERROR;
1584: END IF;
1585: -- Ensure that there are no prior initializations
1586: OPEN l_prior_initializations_csr(l_mr_id, l_item_instance_id, p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1587: FETCH l_prior_initializations_csr INTO l_prior_ue_status;
1592: ELSE
1593: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1594: FND_MSG_PUB.ADD;
1595: END IF;
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: END IF;
1598: CLOSE l_prior_initializations_csr;
1599: END IF;
1600:
1604: -- Check for l_mr_id not null for Service Request accomplishment.
1605: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED' OR p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') AND l_mr_id IS NOT NULL) THEN
1606: 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);
1607: IF (l_temp_status = FALSE) THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1610: IF (AHL_UTIL_PKG.IS_PM_INSTALLED = 'Y') THEN
1611: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE < l_last_accomplished_date) THEN
1612: -- Get service request number.
1620: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1621: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1622: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1623: FND_MSG_PUB.ADD;
1624: x_return_status := FND_API.G_RET_STS_ERROR;
1625: END IF;
1626: END IF;
1627: END IF;
1628:
1658: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1659: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1660: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1661: FND_MSG_PUB.ADD;
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: END IF;
1664: END IF;
1665: CLOSE l_prior_ue_csr;
1666: END IF;
1676: IF (l_get_pred_details_csr%FOUND) THEN
1677: 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);
1678: IF (l_temp_status = FALSE) THEN
1679: CLOSE l_get_pred_details_csr;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683: IF (l_last_accomplished_date IS NULL) THEN
1684: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1677: 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);
1678: IF (l_temp_status = FALSE) THEN
1679: CLOSE l_get_pred_details_csr;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683: IF (l_last_accomplished_date IS NULL) THEN
1684: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1685: FND_MSG_PUB.ADD;
1682: END IF;
1683: IF (l_last_accomplished_date IS NULL) THEN
1684: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1685: FND_MSG_PUB.ADD;
1686: x_return_status := FND_API.G_RET_STS_ERROR;
1687: END IF;
1688: END IF;
1689: CLOSE l_get_pred_details_csr;
1690: END IF;
1690: END IF;
1691:
1692: -- If terminating, ensure that the Accomplished Date if given, is in the past
1693: IF (p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED' OR p_unit_Effectivity_rec.STATUS_CODE = 'MR-TERMINATE') THEN
1694: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE) THEN
1695: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1696: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1697: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1698: FND_MSG_PUB.ADD;
1695: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1696: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1697: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1698: FND_MSG_PUB.ADD;
1699: x_return_status := FND_API.G_RET_STS_ERROR;
1700: END IF;
1701: END IF;
1702: END IF;
1703:
1702: END IF;
1703:
1704: -- If INIT-DUE, ensure that the Set Due Date if given, is in the future
1705: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE') THEN
1706: 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
1707: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1708: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1709: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1710: FND_MSG_PUB.ADD;
1707: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1708: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1709: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1710: FND_MSG_PUB.ADD;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1713: END IF;
1714: END IF;
1715:
1714: END IF;
1715:
1716: -- Validate CollectionID if present.
1717: IF (p_unit_Effectivity_rec.qa_collection_id IS NOT NULL) AND
1718: (p_unit_Effectivity_rec.qa_collection_id <> FND_API.G_MISS_NUM) THEN
1719: OPEN l_qa_collection_csr (p_unit_Effectivity_rec.qa_collection_id);
1720: IF l_qa_collection_csr%NOTFOUND THEN
1721: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1722: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1720: IF l_qa_collection_csr%NOTFOUND THEN
1721: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1722: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1723: FND_MSG_PUB.ADD;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: END IF;
1726: CLOSE l_qa_collection_csr;
1727:
1728: -- This validation already done above.
1733: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1734: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1735: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1736: FND_MSG_PUB.ADD;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: END IF;
1739:
1740: END IF;
1741:
1740: END IF;
1741:
1742: -- Validate Deferral ID if present.
1743: IF (p_unit_Effectivity_rec.unit_deferral_id IS NOT NULL) AND
1744: (p_unit_Effectivity_rec.unit_deferral_ID <> FND_API.G_MISS_NUM) THEN
1745: OPEN l_unit_deferral_csr (p_unit_Effectivity_rec.unit_deferral_id);
1746: FETCH l_unit_deferral_csr INTO l_junk;
1747: IF (l_unit_deferral_csr%NOTFOUND) THEN
1748: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
1747: IF (l_unit_deferral_csr%NOTFOUND) THEN
1748: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
1749: FND_MESSAGE.Set_Token('DEFERRAL_ID', p_unit_Effectivity_rec.unit_deferral_id);
1750: FND_MSG_PUB.ADD;
1751: x_return_status := FND_API.G_RET_STS_ERROR;
1752: END IF;
1753:
1754: END IF;
1755:
1834: Convert_Threshold_Val_To_ID(p_unit_threshold_tbl(i), l_return_status);
1835:
1836: -- Ensure that for Modify or delete operation, the threshold id is present
1837: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'D') THEN
1838: 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
1839: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_ID_NULL');
1840: FND_MSG_PUB.ADD;
1841: x_return_status := FND_API.G_RET_STS_ERROR;
1842: END IF;
1837: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'D') THEN
1838: 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
1839: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_ID_NULL');
1840: FND_MSG_PUB.ADD;
1841: x_return_status := FND_API.G_RET_STS_ERROR;
1842: END IF;
1843: END IF;
1844:
1845: -- Ensure that for Modify operation, the unit effectivity Id matches the threshold
1850: IF (l_ue_id_check_csr%NOTFOUND) THEN
1851: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1852: FND_MESSAGE.Set_Token('UEID', p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
1853: FND_MSG_PUB.ADD;
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: END IF;
1856: CLOSE l_ue_id_check_csr;
1857: END IF;
1858:
1856: CLOSE l_ue_id_check_csr;
1857: END IF;
1858:
1859: -- Ensure that the Counter ID is valid for a Create or Modify operation
1860: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NULL OR p_unit_threshold_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
1861: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
1862: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
1863: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1864: FND_MSG_PUB.ADD;
1861: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
1862: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
1863: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1864: FND_MSG_PUB.ADD;
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866: END IF;
1867: END IF;
1868:
1869: -- Ensure that the counter is appropriate for the current item instance
1866: END IF;
1867: END IF;
1868:
1869: -- Ensure that the counter is appropriate for the current item instance
1870: 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
1871: OPEN l_validate_counter_csr(p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID, p_unit_threshold_tbl(i).COUNTER_ID);
1872: FETCH l_validate_counter_csr INTO l_junk;
1873: IF (l_validate_counter_csr%NOTFOUND) THEN
1874: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
1873: IF (l_validate_counter_csr%NOTFOUND) THEN
1874: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
1875: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1876: FND_MSG_PUB.ADD;
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: ELSE
1879: -- get counter reading.
1880: OPEN get_ctr_reading_csr(p_unit_threshold_tbl(i).COUNTER_ID);
1881: FETCH get_ctr_reading_csr INTO l_net_reading;
1887: CLOSE l_validate_counter_csr;
1888: END IF;
1889:
1890: -- Ensure that the Threshold has not changed
1891: 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
1892: -- Retrieve object version no. for this threshold
1893: OPEN l_get_prev_ctr_csr(p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
1894: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
1895: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
1896: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
1897: FND_MESSAGE.Set_Token('THRESHOLDID', p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
1898: FND_MSG_PUB.ADD;
1899: CLOSE l_get_prev_ctr_csr;
1900: x_return_status := FND_API.G_RET_STS_ERROR;
1901: RETURN;
1902: END IF;
1903: CLOSE l_get_prev_ctr_csr;
1904: -- Check if object version no is different
1906: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
1907: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1908: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
1909: FND_MSG_PUB.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: RETURN;
1912: END IF;
1913: -- For modify operation, ensure that the counter (id) has not changed
1914: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
1914: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
1915: IF (p_unit_threshold_tbl(i).COUNTER_ID <> l_prev_counter) THEN
1916: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THR_COUNTER_CHANGED');
1917: FND_MSG_PUB.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: END IF;
1921: END IF;
1922:
1921: END IF;
1922:
1923: -- Ensure that the counter value is valid
1924: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
1925: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
1926: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
1927: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1928: FND_MSG_PUB.ADD;
1929: x_return_status := FND_API.G_RET_STS_ERROR;
1925: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
1926: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
1927: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1928: FND_MSG_PUB.ADD;
1929: x_return_status := FND_API.G_RET_STS_ERROR;
1930: ELSE
1931: -- Ensure that the entered value is not lesser than the Net Reading
1932: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
1933: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
1934: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
1935: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
1936: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
1937: FND_MSG_PUB.ADD;
1938: x_return_status := FND_API.G_RET_STS_ERROR;
1939: END IF;
1940: END IF;
1941: END IF;
1942: END LOOP; -- All thresholds
2043: Convert_Accomplish_Val_To_ID(p_unit_accomplish_tbl(i), l_return_status);
2044:
2045: -- Ensure that for Modify or delete operation, the accomplishment id is present
2046: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'D') THEN
2047: 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
2048: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCOMPLISH_ID_NULL');
2049: FND_MSG_PUB.ADD;
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051: END IF;
2046: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'D') THEN
2047: 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
2048: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCOMPLISH_ID_NULL');
2049: FND_MSG_PUB.ADD;
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051: END IF;
2052: END IF;
2053:
2054: -- Ensure that for Modify operation, the UE Id matches the accomplishment
2059: IF (l_ue_id_check_csr%NOTFOUND) THEN
2060: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2061: FND_MESSAGE.Set_Token('UEID', p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2062: FND_MSG_PUB.ADD;
2063: x_return_status := FND_API.G_RET_STS_ERROR;
2064: END IF;
2065: CLOSE l_ue_id_check_csr;
2066: END IF;
2067:
2065: CLOSE l_ue_id_check_csr;
2066: END IF;
2067:
2068: -- Ensure that the Counter ID is valid for a Create or Modify operation
2069: IF (p_unit_accomplish_tbl(i).COUNTER_ID IS NULL OR p_unit_accomplish_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2070: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2071: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2072: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2073: FND_MSG_PUB.ADD;
2070: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2071: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2072: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2073: FND_MSG_PUB.ADD;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: END IF;
2076: END IF;
2077:
2078: -- Ensure that the counter is appropriate for the current item instance
2075: END IF;
2076: END IF;
2077:
2078: -- Ensure that the counter is appropriate for the current item instance
2079: 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
2080: -- Add check for accomplishment date - need in the case of init-accomplishment update when the
2081: -- user passes G MISS date or NULL. We bypass date validation in validate_effectivity
2082: -- to allow for init-accomplishment deletion along with counter values; so there is a
2083: -- possibility for accomplishment date to be null or g-miss date.
2080: -- Add check for accomplishment date - need in the case of init-accomplishment update when the
2081: -- user passes G MISS date or NULL. We bypass date validation in validate_effectivity
2082: -- to allow for init-accomplishment deletion along with counter values; so there is a
2083: -- possibility for accomplishment date to be null or g-miss date.
2084: IF (p_accomplishment_date IS NULL OR p_accomplishment_date = FND_API.G_MISS_DATE)
2085: THEN
2086: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2087: FND_MSG_PUB.ADD;
2088: x_return_status := FND_API.G_RET_STS_ERROR;
2084: IF (p_accomplishment_date IS NULL OR p_accomplishment_date = FND_API.G_MISS_DATE)
2085: THEN
2086: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2087: FND_MSG_PUB.ADD;
2088: x_return_status := FND_API.G_RET_STS_ERROR;
2089: RETURN;
2090: END IF;
2091: -- Modified for IB uptake of R12 schema. Split original cursor into 2 cursors.
2092: OPEN l_validate_counter_csr(p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID,
2095: IF (l_validate_counter_csr%NOTFOUND) THEN
2096: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2097: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2098: FND_MSG_PUB.ADD;
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2100: ELSE
2101: IF (p_ue_status_code = 'INIT-ACCOMPLISHED') THEN
2102: -- get max counter reading.
2103: -- Added accomplishment date to fix bug# 6750836.
2127: CLOSE l_validate_counter_csr;
2128: END IF;
2129:
2130: -- Ensure that the Accomplishment has not changed
2131: 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
2132: -- Retrieve object version no. for this accomplishment
2133: OPEN l_get_prev_ctr_csr(p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2134: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2135: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2136: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
2137: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2138: FND_MSG_PUB.ADD;
2139: CLOSE l_get_prev_ctr_csr;
2140: x_return_status := FND_API.G_RET_STS_ERROR;
2141: RETURN;
2142: END IF;
2143: CLOSE l_get_prev_ctr_csr;
2144: -- Check if object version no is different
2146: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
2147: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2148: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2149: FND_MSG_PUB.ADD;
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: RETURN;
2152: END IF;
2153: -- For modify operation, ensure that the counter (id) has not changed
2154: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2154: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2155: IF (p_unit_accomplish_tbl(i).COUNTER_ID <> l_prev_counter) THEN
2156: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_COUNTER_CHANGED');
2157: FND_MSG_PUB.ADD;
2158: x_return_status := FND_API.G_RET_STS_ERROR;
2159: END IF;
2160: END IF;
2161: END IF;
2162:
2161: END IF;
2162:
2163: -- Ensure that the counter value is valid
2164: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2165: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2166: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2167: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2165: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2166: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2167: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: ELSE
2171: -- Ensure that the entered value is not greater than the Net Reading
2172: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2173: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2174: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2175: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2176: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2177: FND_MSG_PUB.ADD;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: END IF;
2180: END IF;
2181: END IF;
2182:
2346: IF (l_status_code = 'INIT-DUE') THEN
2347: OPEN l_threshold_exists_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
2348: FETCH l_threshold_exists_csr INTO l_junk;
2349: IF (l_threshold_exists_csr%NOTFOUND) THEN
2350: IF(l_set_due_date = FND_API.G_MISS_DATE) THEN
2351: l_status_code := null;
2352: l_unit_deferral_operation := 'D';
2353: ELSE
2354: l_unit_deferral_operation := 'U';
2361: ELSIF (l_status_code = 'INIT-ACCOMPLISHED') THEN
2362: OPEN l_accomplish_exists_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
2363: FETCH l_accomplish_exists_csr INTO l_junk;
2364: IF (l_accomplish_exists_csr%NOTFOUND) THEN
2365: IF(l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2366: l_status_code := null;
2367: END IF;
2368: -- raise error if date is null or g_miss.
2369: ELSIF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2365: IF(l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2366: l_status_code := null;
2367: END IF;
2368: -- raise error if date is null or g_miss.
2369: ELSIF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2370: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2371: FND_MSG_PUB.ADD;
2372: RETURN;
2373: END IF;
2378: l_ue_rec.latest_due_date := null;
2379: l_ue_rec.DUE_COUNTER_VALUE := null;
2380: l_ue_rec.MR_INTERVAL_ID := null;
2381: ELSIF (l_status_code = 'TERMINATED' OR l_status_code = 'MR-TERMINATE') THEN
2382: IF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2383: l_accomplished_date := sysdate;
2384: END IF;
2385: END IF;
2386:
2404: p_item_instance_id => l_ue_rec.CSI_ITEM_INSTANCE_ID,
2405: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
2406: x_counters => l_counters_msg,
2407: x_return_status => l_return_status);
2408: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2409: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
2410: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
2411: FND_MSG_PUB.ADD;
2412: RETURN;
2415: END IF;
2416: */
2417:
2418: -- Handle G_MISS and null values
2419: IF l_accomplished_date = FND_API.G_MISS_DATE THEN
2420: l_accomplished_date := null;
2421: ELSIF l_accomplished_date IS NULL THEN
2422: l_accomplished_date := l_ue_rec.accomplished_date;
2423: END IF;
2422: l_accomplished_date := l_ue_rec.accomplished_date;
2423: END IF;
2424:
2425: -- For qa collection id.
2426: IF p_unit_Effectivity_rec.qa_collection_id = FND_API.G_MISS_NUM THEN
2427: l_ue_rec.qa_collection_id := null;
2428: ELSIF p_unit_Effectivity_rec.qa_collection_id IS NOT NULL THEN
2429: l_ue_rec.qa_collection_id := p_unit_Effectivity_rec.qa_collection_id ;
2430: END IF;
2428: ELSIF p_unit_Effectivity_rec.qa_collection_id IS NOT NULL THEN
2429: l_ue_rec.qa_collection_id := p_unit_Effectivity_rec.qa_collection_id ;
2430: END IF;
2431:
2432: IF p_unit_Effectivity_rec.REMARKS = FND_API.G_MISS_CHAR THEN
2433: l_ue_rec.REMARKS := null;
2434: ELSIF p_unit_Effectivity_rec.REMARKS IS NOT null THEN
2435: l_ue_rec.REMARKS := p_unit_Effectivity_rec.REMARKS;
2436: END IF;
2433: l_ue_rec.REMARKS := null;
2434: ELSIF p_unit_Effectivity_rec.REMARKS IS NOT null THEN
2435: l_ue_rec.REMARKS := p_unit_Effectivity_rec.REMARKS;
2436: END IF;
2437: IF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
2438: l_ue_rec.ATTRIBUTE_CATEGORY := null;
2439: ELSIF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY IS NOT null THEN
2440: l_ue_rec.ATTRIBUTE_CATEGORY := p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY;
2441: END IF;
2438: l_ue_rec.ATTRIBUTE_CATEGORY := null;
2439: ELSIF p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY IS NOT null THEN
2440: l_ue_rec.ATTRIBUTE_CATEGORY := p_unit_Effectivity_rec.ATTRIBUTE_CATEGORY;
2441: END IF;
2442: IF p_unit_Effectivity_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
2443: l_ue_rec.ATTRIBUTE1 := null;
2444: ELSIF p_unit_Effectivity_rec.ATTRIBUTE1 IS NOT null THEN
2445: l_ue_rec.ATTRIBUTE1 := p_unit_Effectivity_rec.ATTRIBUTE1;
2446: END IF;
2443: l_ue_rec.ATTRIBUTE1 := null;
2444: ELSIF p_unit_Effectivity_rec.ATTRIBUTE1 IS NOT null THEN
2445: l_ue_rec.ATTRIBUTE1 := p_unit_Effectivity_rec.ATTRIBUTE1;
2446: END IF;
2447: IF p_unit_Effectivity_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
2448: l_ue_rec.ATTRIBUTE2 := null;
2449: ELSIF p_unit_Effectivity_rec.ATTRIBUTE2 IS NOT null THEN
2450: l_ue_rec.ATTRIBUTE2 := p_unit_Effectivity_rec.ATTRIBUTE2;
2451: END IF;
2448: l_ue_rec.ATTRIBUTE2 := null;
2449: ELSIF p_unit_Effectivity_rec.ATTRIBUTE2 IS NOT null THEN
2450: l_ue_rec.ATTRIBUTE2 := p_unit_Effectivity_rec.ATTRIBUTE2;
2451: END IF;
2452: IF p_unit_Effectivity_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
2453: l_ue_rec.ATTRIBUTE3 := null;
2454: ELSIF p_unit_Effectivity_rec.ATTRIBUTE3 IS NOT null THEN
2455: l_ue_rec.ATTRIBUTE3 := p_unit_Effectivity_rec.ATTRIBUTE3;
2456: END IF;
2453: l_ue_rec.ATTRIBUTE3 := null;
2454: ELSIF p_unit_Effectivity_rec.ATTRIBUTE3 IS NOT null THEN
2455: l_ue_rec.ATTRIBUTE3 := p_unit_Effectivity_rec.ATTRIBUTE3;
2456: END IF;
2457: IF p_unit_Effectivity_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
2458: l_ue_rec.ATTRIBUTE4 := null;
2459: ELSIF p_unit_Effectivity_rec.ATTRIBUTE4 IS NOT null THEN
2460: l_ue_rec.ATTRIBUTE4 := p_unit_Effectivity_rec.ATTRIBUTE4;
2461: END IF;
2458: l_ue_rec.ATTRIBUTE4 := null;
2459: ELSIF p_unit_Effectivity_rec.ATTRIBUTE4 IS NOT null THEN
2460: l_ue_rec.ATTRIBUTE4 := p_unit_Effectivity_rec.ATTRIBUTE4;
2461: END IF;
2462: IF p_unit_Effectivity_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
2463: l_ue_rec.ATTRIBUTE5 := null;
2464: ELSIF p_unit_Effectivity_rec.ATTRIBUTE5 IS NOT null THEN
2465: l_ue_rec.ATTRIBUTE5 := p_unit_Effectivity_rec.ATTRIBUTE5;
2466: END IF;
2463: l_ue_rec.ATTRIBUTE5 := null;
2464: ELSIF p_unit_Effectivity_rec.ATTRIBUTE5 IS NOT null THEN
2465: l_ue_rec.ATTRIBUTE5 := p_unit_Effectivity_rec.ATTRIBUTE5;
2466: END IF;
2467: IF p_unit_Effectivity_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
2468: l_ue_rec.ATTRIBUTE6 := null;
2469: ELSIF p_unit_Effectivity_rec.ATTRIBUTE6 IS NOT null THEN
2470: l_ue_rec.ATTRIBUTE6 := p_unit_Effectivity_rec.ATTRIBUTE6;
2471: END IF;
2468: l_ue_rec.ATTRIBUTE6 := null;
2469: ELSIF p_unit_Effectivity_rec.ATTRIBUTE6 IS NOT null THEN
2470: l_ue_rec.ATTRIBUTE6 := p_unit_Effectivity_rec.ATTRIBUTE6;
2471: END IF;
2472: IF p_unit_Effectivity_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
2473: l_ue_rec.ATTRIBUTE7 := null;
2474: ELSIF p_unit_Effectivity_rec.ATTRIBUTE7 IS NOT null THEN
2475: l_ue_rec.ATTRIBUTE7 := p_unit_Effectivity_rec.ATTRIBUTE7;
2476: END IF;
2473: l_ue_rec.ATTRIBUTE7 := null;
2474: ELSIF p_unit_Effectivity_rec.ATTRIBUTE7 IS NOT null THEN
2475: l_ue_rec.ATTRIBUTE7 := p_unit_Effectivity_rec.ATTRIBUTE7;
2476: END IF;
2477: IF p_unit_Effectivity_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
2478: l_ue_rec.ATTRIBUTE8 := null;
2479: ELSIF p_unit_Effectivity_rec.ATTRIBUTE8 IS NOT null THEN
2480: l_ue_rec.ATTRIBUTE8 := p_unit_Effectivity_rec.ATTRIBUTE8;
2481: END IF;
2478: l_ue_rec.ATTRIBUTE8 := null;
2479: ELSIF p_unit_Effectivity_rec.ATTRIBUTE8 IS NOT null THEN
2480: l_ue_rec.ATTRIBUTE8 := p_unit_Effectivity_rec.ATTRIBUTE8;
2481: END IF;
2482: IF p_unit_Effectivity_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
2483: l_ue_rec.ATTRIBUTE9 := null;
2484: ELSIF p_unit_Effectivity_rec.ATTRIBUTE9 IS NOT null THEN
2485: l_ue_rec.ATTRIBUTE9 := p_unit_Effectivity_rec.ATTRIBUTE9;
2486: END IF;
2483: l_ue_rec.ATTRIBUTE9 := null;
2484: ELSIF p_unit_Effectivity_rec.ATTRIBUTE9 IS NOT null THEN
2485: l_ue_rec.ATTRIBUTE9 := p_unit_Effectivity_rec.ATTRIBUTE9;
2486: END IF;
2487: IF p_unit_Effectivity_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
2488: l_ue_rec.ATTRIBUTE10 := null;
2489: ELSIF p_unit_Effectivity_rec.ATTRIBUTE10 IS NOT null THEN
2490: l_ue_rec.ATTRIBUTE10 := p_unit_Effectivity_rec.ATTRIBUTE10;
2491: END IF;
2488: l_ue_rec.ATTRIBUTE10 := null;
2489: ELSIF p_unit_Effectivity_rec.ATTRIBUTE10 IS NOT null THEN
2490: l_ue_rec.ATTRIBUTE10 := p_unit_Effectivity_rec.ATTRIBUTE10;
2491: END IF;
2492: IF p_unit_Effectivity_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
2493: l_ue_rec.ATTRIBUTE11 := null;
2494: ELSIF p_unit_Effectivity_rec.ATTRIBUTE11 IS NOT null THEN
2495: l_ue_rec.ATTRIBUTE11 := p_unit_Effectivity_rec.ATTRIBUTE11;
2496: END IF;
2493: l_ue_rec.ATTRIBUTE11 := null;
2494: ELSIF p_unit_Effectivity_rec.ATTRIBUTE11 IS NOT null THEN
2495: l_ue_rec.ATTRIBUTE11 := p_unit_Effectivity_rec.ATTRIBUTE11;
2496: END IF;
2497: IF p_unit_Effectivity_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
2498: l_ue_rec.ATTRIBUTE12 := null;
2499: ELSIF p_unit_Effectivity_rec.ATTRIBUTE12 IS NOT null THEN
2500: l_ue_rec.ATTRIBUTE12 := p_unit_Effectivity_rec.ATTRIBUTE12;
2501: END IF;
2498: l_ue_rec.ATTRIBUTE12 := null;
2499: ELSIF p_unit_Effectivity_rec.ATTRIBUTE12 IS NOT null THEN
2500: l_ue_rec.ATTRIBUTE12 := p_unit_Effectivity_rec.ATTRIBUTE12;
2501: END IF;
2502: IF p_unit_Effectivity_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
2503: l_ue_rec.ATTRIBUTE13 := null;
2504: ELSIF p_unit_Effectivity_rec.ATTRIBUTE13 IS NOT null THEN
2505: l_ue_rec.ATTRIBUTE13 := p_unit_Effectivity_rec.ATTRIBUTE13;
2506: END IF;
2503: l_ue_rec.ATTRIBUTE13 := null;
2504: ELSIF p_unit_Effectivity_rec.ATTRIBUTE13 IS NOT null THEN
2505: l_ue_rec.ATTRIBUTE13 := p_unit_Effectivity_rec.ATTRIBUTE13;
2506: END IF;
2507: IF p_unit_Effectivity_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
2508: l_ue_rec.ATTRIBUTE14 := null;
2509: ELSIF p_unit_Effectivity_rec.ATTRIBUTE14 IS NOT null THEN
2510: l_ue_rec.ATTRIBUTE14 := p_unit_Effectivity_rec.ATTRIBUTE14;
2511: END IF;
2508: l_ue_rec.ATTRIBUTE14 := null;
2509: ELSIF p_unit_Effectivity_rec.ATTRIBUTE14 IS NOT null THEN
2510: l_ue_rec.ATTRIBUTE14 := p_unit_Effectivity_rec.ATTRIBUTE14;
2511: END IF;
2512: IF p_unit_Effectivity_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
2513: l_ue_rec.ATTRIBUTE15 := null;
2514: ELSIF p_unit_Effectivity_rec.ATTRIBUTE15 IS NOT null THEN
2515: l_ue_rec.ATTRIBUTE15 := p_unit_Effectivity_rec.ATTRIBUTE15;
2516: END IF;
2585: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2586: THEN
2587: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2588: FND_MSG_PUB.ADD;
2589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2590: END IF;
2591:
2592: AHL_UNIT_DEFERRALS_PKG.delete_row(x_unit_deferral_id => l_unit_def_rec.unit_deferral_id);
2593:
2597: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2598: THEN
2599: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2600: FND_MSG_PUB.ADD;
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603:
2604: IF l_set_due_date = FND_API.G_MISS_DATE THEN
2605: l_set_due_date := null;
2600: FND_MSG_PUB.ADD;
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603:
2604: IF l_set_due_date = FND_API.G_MISS_DATE THEN
2605: l_set_due_date := null;
2606: ELSIF l_set_due_date IS NULL THEN
2607: l_set_due_date := l_unit_def_rec.set_due_date;
2608: END IF;
2746: p_item_instance_id => l_ue_rec.CSI_ITEM_INSTANCE_ID,
2747: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
2748: x_counters => l_counters_msg,
2749: x_return_status => l_return_status);
2750: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2751: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
2752: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
2753: FND_MSG_PUB.ADD;
2754: --RETURN;
2972: RETURN;
2973: END IF;
2974: p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER := l_threshold_details.OBJECT_VERSION_NUMBER + 1;
2975: -- Handle G_MISS and null values
2976: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
2977: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
2978: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
2979: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := l_threshold_details.ATTRIBUTE_CATEGORY;
2980: END IF;
2977: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
2978: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
2979: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := l_threshold_details.ATTRIBUTE_CATEGORY;
2980: END IF;
2981: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
2982: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
2983: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE1 IS null THEN
2984: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := l_threshold_details.ATTRIBUTE1;
2985: END IF;
2982: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
2983: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE1 IS null THEN
2984: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := l_threshold_details.ATTRIBUTE1;
2985: END IF;
2986: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
2987: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
2988: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE2 IS null THEN
2989: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := l_threshold_details.ATTRIBUTE2;
2990: END IF;
2987: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
2988: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE2 IS null THEN
2989: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := l_threshold_details.ATTRIBUTE2;
2990: END IF;
2991: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
2992: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
2993: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE3 IS null THEN
2994: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := l_threshold_details.ATTRIBUTE3;
2995: END IF;
2992: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
2993: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE3 IS null THEN
2994: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := l_threshold_details.ATTRIBUTE3;
2995: END IF;
2996: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
2997: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
2998: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE4 IS null THEN
2999: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := l_threshold_details.ATTRIBUTE4;
3000: END IF;
2997: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
2998: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE4 IS null THEN
2999: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := l_threshold_details.ATTRIBUTE4;
3000: END IF;
3001: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3002: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3003: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE5 IS null THEN
3004: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := l_threshold_details.ATTRIBUTE5;
3005: END IF;
3002: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3003: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE5 IS null THEN
3004: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := l_threshold_details.ATTRIBUTE5;
3005: END IF;
3006: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3007: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3008: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE6 IS null THEN
3009: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := l_threshold_details.ATTRIBUTE6;
3010: END IF;
3007: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3008: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE6 IS null THEN
3009: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := l_threshold_details.ATTRIBUTE6;
3010: END IF;
3011: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3012: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3013: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE7 IS null THEN
3014: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := l_threshold_details.ATTRIBUTE7;
3015: END IF;
3012: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3013: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE7 IS null THEN
3014: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := l_threshold_details.ATTRIBUTE7;
3015: END IF;
3016: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3017: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3018: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE8 IS null THEN
3019: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := l_threshold_details.ATTRIBUTE8;
3020: END IF;
3017: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3018: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE8 IS null THEN
3019: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := l_threshold_details.ATTRIBUTE8;
3020: END IF;
3021: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3022: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3023: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE9 IS null THEN
3024: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := l_threshold_details.ATTRIBUTE9;
3025: END IF;
3022: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3023: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE9 IS null THEN
3024: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := l_threshold_details.ATTRIBUTE9;
3025: END IF;
3026: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3027: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3028: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE10 IS null THEN
3029: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := l_threshold_details.ATTRIBUTE10;
3030: END IF;
3027: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3028: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE10 IS null THEN
3029: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := l_threshold_details.ATTRIBUTE10;
3030: END IF;
3031: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3032: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3033: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE11 IS null THEN
3034: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := l_threshold_details.ATTRIBUTE11;
3035: END IF;
3032: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3033: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE11 IS null THEN
3034: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := l_threshold_details.ATTRIBUTE11;
3035: END IF;
3036: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3037: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3038: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE12 IS null THEN
3039: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := l_threshold_details.ATTRIBUTE12;
3040: END IF;
3037: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3038: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE12 IS null THEN
3039: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := l_threshold_details.ATTRIBUTE12;
3040: END IF;
3041: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3042: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3043: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE13 IS null THEN
3044: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := l_threshold_details.ATTRIBUTE13;
3045: END IF;
3042: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3043: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE13 IS null THEN
3044: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := l_threshold_details.ATTRIBUTE13;
3045: END IF;
3046: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3047: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3048: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE14 IS null THEN
3049: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := l_threshold_details.ATTRIBUTE14;
3050: END IF;
3047: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3048: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE14 IS null THEN
3049: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := l_threshold_details.ATTRIBUTE14;
3050: END IF;
3051: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3052: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3053: ELSIF p_x_unit_threshold_tbl(i).ATTRIBUTE15 IS null THEN
3054: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := l_threshold_details.ATTRIBUTE15;
3055: END IF;
3149: CLOSE l_get_def_csr;
3150:
3151: p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER := 1;
3152: -- Handle G_MISS and null values
3153: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3154: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3155: END IF;
3156: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3157: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3152: -- Handle G_MISS and null values
3153: IF p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3154: p_x_unit_threshold_tbl(i).ATTRIBUTE_CATEGORY := null;
3155: END IF;
3156: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3157: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3158: END IF;
3159: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3160: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3155: END IF;
3156: IF p_x_unit_threshold_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3157: p_x_unit_threshold_tbl(i).ATTRIBUTE1 := null;
3158: END IF;
3159: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3160: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3161: END IF;
3162: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3163: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3158: END IF;
3159: IF p_x_unit_threshold_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3160: p_x_unit_threshold_tbl(i).ATTRIBUTE2 := null;
3161: END IF;
3162: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3163: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3164: END IF;
3165: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3166: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3161: END IF;
3162: IF p_x_unit_threshold_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3163: p_x_unit_threshold_tbl(i).ATTRIBUTE3 := null;
3164: END IF;
3165: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3166: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3167: END IF;
3168: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3169: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3164: END IF;
3165: IF p_x_unit_threshold_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3166: p_x_unit_threshold_tbl(i).ATTRIBUTE4 := null;
3167: END IF;
3168: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3169: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3170: END IF;
3171: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3172: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3167: END IF;
3168: IF p_x_unit_threshold_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3169: p_x_unit_threshold_tbl(i).ATTRIBUTE5 := null;
3170: END IF;
3171: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3172: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3173: END IF;
3174: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3175: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3170: END IF;
3171: IF p_x_unit_threshold_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3172: p_x_unit_threshold_tbl(i).ATTRIBUTE6 := null;
3173: END IF;
3174: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3175: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3176: END IF;
3177: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3178: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3173: END IF;
3174: IF p_x_unit_threshold_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3175: p_x_unit_threshold_tbl(i).ATTRIBUTE7 := null;
3176: END IF;
3177: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3178: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3179: END IF;
3180: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3181: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3176: END IF;
3177: IF p_x_unit_threshold_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3178: p_x_unit_threshold_tbl(i).ATTRIBUTE8 := null;
3179: END IF;
3180: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3181: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3182: END IF;
3183: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3184: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3179: END IF;
3180: IF p_x_unit_threshold_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3181: p_x_unit_threshold_tbl(i).ATTRIBUTE9 := null;
3182: END IF;
3183: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3184: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3185: END IF;
3186: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3187: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3182: END IF;
3183: IF p_x_unit_threshold_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3184: p_x_unit_threshold_tbl(i).ATTRIBUTE10 := null;
3185: END IF;
3186: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3187: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3188: END IF;
3189: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3190: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3185: END IF;
3186: IF p_x_unit_threshold_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3187: p_x_unit_threshold_tbl(i).ATTRIBUTE11 := null;
3188: END IF;
3189: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3190: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3191: END IF;
3192: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3193: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3188: END IF;
3189: IF p_x_unit_threshold_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3190: p_x_unit_threshold_tbl(i).ATTRIBUTE12 := null;
3191: END IF;
3192: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3193: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3194: END IF;
3195: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3196: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3191: END IF;
3192: IF p_x_unit_threshold_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3193: p_x_unit_threshold_tbl(i).ATTRIBUTE13 := null;
3194: END IF;
3195: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3196: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3197: END IF;
3198: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3199: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3194: END IF;
3195: IF p_x_unit_threshold_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3196: p_x_unit_threshold_tbl(i).ATTRIBUTE14 := null;
3197: END IF;
3198: IF p_x_unit_threshold_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3199: p_x_unit_threshold_tbl(i).ATTRIBUTE15 := null;
3200: END IF;
3201: -- Call table handler to insert
3202: AHL_UNIT_THRESHOLDS_PKG.insert_row (
3307: RETURN;
3308: END IF;
3309: p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER := l_accomplish_details.OBJECT_VERSION_NUMBER + 1;
3310: -- Handle G_MISS and null values
3311: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3312: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3313: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3314: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := l_accomplish_details.ATTRIBUTE_CATEGORY;
3315: END IF;
3312: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3313: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY IS null THEN
3314: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := l_accomplish_details.ATTRIBUTE_CATEGORY;
3315: END IF;
3316: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3317: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3318: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 IS null THEN
3319: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := l_accomplish_details.ATTRIBUTE1;
3320: END IF;
3317: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3318: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 IS null THEN
3319: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := l_accomplish_details.ATTRIBUTE1;
3320: END IF;
3321: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3322: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3323: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 IS null THEN
3324: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := l_accomplish_details.ATTRIBUTE2;
3325: END IF;
3322: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3323: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 IS null THEN
3324: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := l_accomplish_details.ATTRIBUTE2;
3325: END IF;
3326: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3327: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3328: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 IS null THEN
3329: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := l_accomplish_details.ATTRIBUTE3;
3330: END IF;
3327: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3328: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 IS null THEN
3329: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := l_accomplish_details.ATTRIBUTE3;
3330: END IF;
3331: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3332: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3333: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 IS null THEN
3334: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := l_accomplish_details.ATTRIBUTE4;
3335: END IF;
3332: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3333: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 IS null THEN
3334: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := l_accomplish_details.ATTRIBUTE4;
3335: END IF;
3336: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3337: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3338: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 IS null THEN
3339: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := l_accomplish_details.ATTRIBUTE5;
3340: END IF;
3337: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3338: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 IS null THEN
3339: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := l_accomplish_details.ATTRIBUTE5;
3340: END IF;
3341: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3342: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3343: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 IS null THEN
3344: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := l_accomplish_details.ATTRIBUTE6;
3345: END IF;
3342: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3343: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 IS null THEN
3344: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := l_accomplish_details.ATTRIBUTE6;
3345: END IF;
3346: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3347: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3348: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 IS null THEN
3349: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := l_accomplish_details.ATTRIBUTE7;
3350: END IF;
3347: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3348: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 IS null THEN
3349: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := l_accomplish_details.ATTRIBUTE7;
3350: END IF;
3351: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3352: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3353: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 IS null THEN
3354: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := l_accomplish_details.ATTRIBUTE8;
3355: END IF;
3352: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3353: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 IS null THEN
3354: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := l_accomplish_details.ATTRIBUTE8;
3355: END IF;
3356: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3357: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3358: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 IS null THEN
3359: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := l_accomplish_details.ATTRIBUTE9;
3360: END IF;
3357: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3358: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 IS null THEN
3359: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := l_accomplish_details.ATTRIBUTE9;
3360: END IF;
3361: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3362: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3363: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 IS null THEN
3364: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := l_accomplish_details.ATTRIBUTE10;
3365: END IF;
3362: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3363: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 IS null THEN
3364: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := l_accomplish_details.ATTRIBUTE10;
3365: END IF;
3366: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3367: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3368: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 IS null THEN
3369: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := l_accomplish_details.ATTRIBUTE11;
3370: END IF;
3367: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3368: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 IS null THEN
3369: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := l_accomplish_details.ATTRIBUTE11;
3370: END IF;
3371: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3372: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3373: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 IS null THEN
3374: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := l_accomplish_details.ATTRIBUTE12;
3375: END IF;
3372: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3373: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 IS null THEN
3374: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := l_accomplish_details.ATTRIBUTE12;
3375: END IF;
3376: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3377: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3378: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 IS null THEN
3379: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := l_accomplish_details.ATTRIBUTE13;
3380: END IF;
3377: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3378: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 IS null THEN
3379: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := l_accomplish_details.ATTRIBUTE13;
3380: END IF;
3381: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3382: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3383: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 IS null THEN
3384: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := l_accomplish_details.ATTRIBUTE14;
3385: END IF;
3382: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3383: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 IS null THEN
3384: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := l_accomplish_details.ATTRIBUTE14;
3385: END IF;
3386: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3387: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3388: ELSIF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 IS null THEN
3389: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := l_accomplish_details.ATTRIBUTE15;
3390: END IF;
3434: END IF;
3435: CLOSE l_get_dup_counter_csr;
3436: p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER := 1;
3437: -- Handle G_MISS and null values
3438: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3439: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3440: END IF;
3441: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3442: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3437: -- Handle G_MISS and null values
3438: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR THEN
3439: p_x_unit_accomplish_tbl(i).ATTRIBUTE_CATEGORY := null;
3440: END IF;
3441: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3442: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3443: END IF;
3444: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3445: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3440: END IF;
3441: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE1 = FND_API.G_MISS_CHAR THEN
3442: p_x_unit_accomplish_tbl(i).ATTRIBUTE1 := null;
3443: END IF;
3444: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3445: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3446: END IF;
3447: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3448: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3443: END IF;
3444: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE2 = FND_API.G_MISS_CHAR THEN
3445: p_x_unit_accomplish_tbl(i).ATTRIBUTE2 := null;
3446: END IF;
3447: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3448: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3449: END IF;
3450: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3451: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3446: END IF;
3447: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE3 = FND_API.G_MISS_CHAR THEN
3448: p_x_unit_accomplish_tbl(i).ATTRIBUTE3 := null;
3449: END IF;
3450: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3451: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3452: END IF;
3453: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3454: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3449: END IF;
3450: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE4 = FND_API.G_MISS_CHAR THEN
3451: p_x_unit_accomplish_tbl(i).ATTRIBUTE4 := null;
3452: END IF;
3453: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3454: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3455: END IF;
3456: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3457: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3452: END IF;
3453: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE5 = FND_API.G_MISS_CHAR THEN
3454: p_x_unit_accomplish_tbl(i).ATTRIBUTE5 := null;
3455: END IF;
3456: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3457: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3458: END IF;
3459: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3460: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3455: END IF;
3456: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE6 = FND_API.G_MISS_CHAR THEN
3457: p_x_unit_accomplish_tbl(i).ATTRIBUTE6 := null;
3458: END IF;
3459: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3460: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3461: END IF;
3462: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3463: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3458: END IF;
3459: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE7 = FND_API.G_MISS_CHAR THEN
3460: p_x_unit_accomplish_tbl(i).ATTRIBUTE7 := null;
3461: END IF;
3462: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3463: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3464: END IF;
3465: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3466: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3461: END IF;
3462: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE8 = FND_API.G_MISS_CHAR THEN
3463: p_x_unit_accomplish_tbl(i).ATTRIBUTE8 := null;
3464: END IF;
3465: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3466: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3467: END IF;
3468: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3469: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3464: END IF;
3465: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE9 = FND_API.G_MISS_CHAR THEN
3466: p_x_unit_accomplish_tbl(i).ATTRIBUTE9 := null;
3467: END IF;
3468: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3469: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3470: END IF;
3471: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3472: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3467: END IF;
3468: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE10 = FND_API.G_MISS_CHAR THEN
3469: p_x_unit_accomplish_tbl(i).ATTRIBUTE10 := null;
3470: END IF;
3471: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3472: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3473: END IF;
3474: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3475: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3470: END IF;
3471: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE11 = FND_API.G_MISS_CHAR THEN
3472: p_x_unit_accomplish_tbl(i).ATTRIBUTE11 := null;
3473: END IF;
3474: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3475: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3476: END IF;
3477: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3478: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3473: END IF;
3474: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE12 = FND_API.G_MISS_CHAR THEN
3475: p_x_unit_accomplish_tbl(i).ATTRIBUTE12 := null;
3476: END IF;
3477: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3478: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3479: END IF;
3480: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3481: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3476: END IF;
3477: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE13 = FND_API.G_MISS_CHAR THEN
3478: p_x_unit_accomplish_tbl(i).ATTRIBUTE13 := null;
3479: END IF;
3480: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3481: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3482: END IF;
3483: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3484: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3479: END IF;
3480: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE14 = FND_API.G_MISS_CHAR THEN
3481: p_x_unit_accomplish_tbl(i).ATTRIBUTE14 := null;
3482: END IF;
3483: IF p_x_unit_accomplish_tbl(i).ATTRIBUTE15 = FND_API.G_MISS_CHAR THEN
3484: p_x_unit_accomplish_tbl(i).ATTRIBUTE15 := null;
3485: END IF;
3486: -- Call table handler to insert
3487: AHL_UNIT_ACCOMPLISH_PKG.insert_row (
3525:
3526: CSI_COUNTER_PUB.Create_Reading_Lock
3527: (
3528: p_api_version => 1.0,
3529: p_commit => FND_API.G_FALSE,
3530: p_init_msg_list => FND_API.G_FALSE,
3531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3532: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3533: x_return_status => l_return_status,
3526: CSI_COUNTER_PUB.Create_Reading_Lock
3527: (
3528: p_api_version => 1.0,
3529: p_commit => FND_API.G_FALSE,
3530: p_init_msg_list => FND_API.G_FALSE,
3531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3532: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3533: x_return_status => l_return_status,
3534: x_msg_count => l_msg_count,
3527: (
3528: p_api_version => 1.0,
3529: p_commit => FND_API.G_FALSE,
3530: p_init_msg_list => FND_API.G_FALSE,
3531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3532: p_ctr_reading_lock_rec => l_counter_reading_lock_rec,
3533: x_return_status => l_return_status,
3534: x_msg_count => l_msg_count,
3535: x_msg_data => l_msg_data,
3536: x_reading_lock_id => l_reading_lock_id
3537: );
3538:
3539: -- Raise errors if exception occurs
3540: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3542: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3543: RAISE FND_API.G_EXC_ERROR;
3544: END IF;
3537: );
3538:
3539: -- Raise errors if exception occurs
3540: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3542: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3543: RAISE FND_API.G_EXC_ERROR;
3544: END IF;
3545:
3538:
3539: -- Raise errors if exception occurs
3540: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3542: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3543: RAISE FND_API.G_EXC_ERROR;
3544: END IF;
3545:
3546: END IF;
3539: -- Raise errors if exception occurs
3540: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3542: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3543: RAISE FND_API.G_EXC_ERROR;
3544: END IF;
3545:
3546: END IF;
3547: */
3665: AHL_DEBUG_PUB.debug('Input CSI:MR:' || p_item_instance_id || ':' || p_mr_header_id, 'UMP');
3666: AHL_DEBUG_PUB.debug('p_unit_effectivity_id:' || p_unit_effectivity_id, 'UMP');
3667: END IF;
3668: -- Initialize API return status to success
3669: x_return_status := FND_API.G_RET_STS_SUCCESS;
3670:
3671: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3672: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3673: p_api_version => 1.0,
3670:
3671: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3672: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3673: p_api_version => 1.0,
3674: p_init_msg_list => FND_API.G_FALSE,
3675: p_commit => FND_API.G_FALSE,
3676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3677: x_return_status => l_return_status,
3678: x_msg_count => l_msg_count,
3671: -- Call FMP API to get the list of effectivities for this MR_ID and item_instance_id
3672: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3673: p_api_version => 1.0,
3674: p_init_msg_list => FND_API.G_FALSE,
3675: p_commit => FND_API.G_FALSE,
3676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3677: x_return_status => l_return_status,
3678: x_msg_count => l_msg_count,
3679: x_msg_data => l_msg_data,
3672: AHL_FMP_PVT.GET_APPLICABLE_MRS(
3673: p_api_version => 1.0,
3674: p_init_msg_list => FND_API.G_FALSE,
3675: p_commit => FND_API.G_FALSE,
3676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3677: x_return_status => l_return_status,
3678: x_msg_count => l_msg_count,
3679: x_msg_data => l_msg_data,
3680: p_item_instance_id => p_item_instance_id,
3683: x_applicable_mr_tbl => l_effectivities_tbl
3684: );
3685:
3686: -- Raise errors if exceptions occur
3687: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3688: RAISE FND_API.G_EXC_ERROR;
3689: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3691: END IF;
3684: );
3685:
3686: -- Raise errors if exceptions occur
3687: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3688: RAISE FND_API.G_EXC_ERROR;
3689: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3691: END IF;
3692:
3685:
3686: -- Raise errors if exceptions occur
3687: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3688: RAISE FND_API.G_EXC_ERROR;
3689: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3691: END IF;
3692:
3693: -- fix for bug number 6761311
3686: -- Raise errors if exceptions occur
3687: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3688: RAISE FND_API.G_EXC_ERROR;
3689: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3691: END IF;
3692:
3693: -- fix for bug number 6761311
3694:
3734: LOOP
3735: FETCH l_counters_csr INTO l_temp_counter_name;
3736: EXIT WHEN l_counters_csr%NOTFOUND;
3737: l_counters_msg := l_counters_msg || l_temp_counter_name || ', ';
3738: x_return_status := FND_API.G_RET_STS_ERROR;
3739: END LOOP;
3740: CLOSE l_counters_csr;
3741: l_counters_msg := rtrim(l_counters_msg);
3742: l_counters_msg := rtrim(l_counters_msg, ',');
3753: FOR i IN l_effectivities_tbl.FIRST..l_effectivities_tbl.LAST LOOP
3754: FOR counter_name_rec IN get_unmatched_counter(l_effectivities_tbl(i).MR_EFFECTIVITY_ID
3755: ,p_item_instance_id,p_unit_effectivity_id) LOOP
3756: l_counters_msg := l_counters_msg || counter_name_rec.counter_name || ', ';
3757: x_return_status := FND_API.G_RET_STS_ERROR;
3758: END LOOP;
3759: END LOOP;
3760: END IF;
3761: l_counters_msg := rtrim(l_counters_msg);
3777: -- Define Procedures --
3778: ------------------------
3779: PROCEDURE Terminate_MR_Instances (
3780: p_api_version IN NUMBER := 1.0,
3781: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3782: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3783: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3784: p_default IN VARCHAR2 := FND_API.G_TRUE,
3785: p_module_type IN VARCHAR2 := NULL,
3778: ------------------------
3779: PROCEDURE Terminate_MR_Instances (
3780: p_api_version IN NUMBER := 1.0,
3781: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3782: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3783: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3784: p_default IN VARCHAR2 := FND_API.G_TRUE,
3785: p_module_type IN VARCHAR2 := NULL,
3786: p_old_mr_header_id IN NUMBER,
3779: PROCEDURE Terminate_MR_Instances (
3780: p_api_version IN NUMBER := 1.0,
3781: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3782: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3783: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3784: p_default IN VARCHAR2 := FND_API.G_TRUE,
3785: p_module_type IN VARCHAR2 := NULL,
3786: p_old_mr_header_id IN NUMBER,
3787: p_old_mr_title IN VARCHAR2,
3780: p_api_version IN NUMBER := 1.0,
3781: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3782: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3783: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3784: p_default IN VARCHAR2 := FND_API.G_TRUE,
3785: p_module_type IN VARCHAR2 := NULL,
3786: p_old_mr_header_id IN NUMBER,
3787: p_old_mr_title IN VARCHAR2,
3788: p_old_version_number IN NUMBER,
4101: IF G_DEBUG='Y' THEN
4102: AHL_DEBUG_PUB.debug('Beginning Processing... ', 'UMP-TERMINATE: ');
4103: END IF;
4104: -- Standard call to check for call compatibility
4105: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
4106: G_PKG_NAME) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4103: END IF;
4104: -- Standard call to check for call compatibility
4105: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
4106: G_PKG_NAME) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4110: IF G_DEBUG='Y' THEN
4111: AHL_DEBUG_PUB.debug('After call compatible api ', 'UMP-TERMINATE:');
4119: AHL_DEBUG_PUB.debug('p_new_version_number: ' || p_new_version_number);
4120: END IF;
4121:
4122: -- Initialize message list if p_init_msg_list is set to TRUE
4123: IF FND_API.To_Boolean(p_init_msg_list) THEN
4124: FND_MSG_PUB.Initialize;
4125: END IF;
4126:
4127: -- Initialize API return status to success
4124: FND_MSG_PUB.Initialize;
4125: END IF;
4126:
4127: -- Initialize API return status to success
4128: x_return_status := FND_API.G_RET_STS_SUCCESS;
4129:
4130: -- Begin Processing
4131:
4132: l_new_mr_header_id := p_new_mr_header_id;
4133: l_old_mr_header_id := p_old_mr_header_id;
4134:
4135: --resolve new mr_header_id
4136:
4137: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4138: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4139: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4140:
4141: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4134:
4135: --resolve new mr_header_id
4136:
4137: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4138: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4139: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4140:
4141: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4142: FETCH l_get_mr_header_id INTO l_new_mr_header_id;
4135: --resolve new mr_header_id
4136:
4137: IF(p_new_mr_header_id IS NULL OR p_new_mr_header_id = FND_API.G_MISS_NUM) THEN
4138: IF((p_new_mr_title IS NOT NULL AND p_new_mr_title <> FND_API.G_MISS_CHAR) AND
4139: (p_new_version_number IS NOT NULL AND p_new_version_number <> FND_API.G_MISS_NUM)) THEN
4140:
4141: OPEN l_get_mr_header_id(p_new_mr_title, p_new_version_number);
4142: FETCH l_get_mr_header_id INTO l_new_mr_header_id;
4143: -- IF (l_get_mr_header_id%NOTFOUND) THEN
4147:
4148:
4149: --resolve old mr_header_id
4150:
4151: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4152: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4153: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4154: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4155: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4148:
4149: --resolve old mr_header_id
4150:
4151: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4152: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4153: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4154: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4155: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4156: CLOSE l_get_mr_header_id;
4149: --resolve old mr_header_id
4150:
4151: IF(p_old_mr_header_id IS NULL OR p_old_mr_header_id = FND_API.G_MISS_NUM) THEN
4152: IF((p_old_mr_title IS NOT NULL AND p_old_mr_title <> FND_API.G_MISS_CHAR) AND
4153: (p_old_version_number IS NOT NULL AND p_old_version_number <> FND_API.G_MISS_NUM)) THEN
4154: OPEN l_get_mr_header_id(p_old_mr_title, p_old_version_number);
4155: FETCH l_get_mr_header_id INTO l_old_mr_header_id;
4156: CLOSE l_get_mr_header_id;
4157: END IF;
4157: END IF;
4158: END IF;
4159:
4160: IF (l_old_mr_header_id IS NULL) THEN
4161: x_return_status := FND_API.G_RET_STS_ERROR;
4162: FND_MESSAGE.Set_Name('AHL','AHL_UMP_TERMNT_MR_DET_MAND');
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4165: -- RETURN;
4160: IF (l_old_mr_header_id IS NULL) THEN
4161: x_return_status := FND_API.G_RET_STS_ERROR;
4162: FND_MESSAGE.Set_Name('AHL','AHL_UMP_TERMNT_MR_DET_MAND');
4163: FND_MSG_PUB.ADD;
4164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4165: -- RETURN;
4166: END IF;
4167:
4168: /*
4166: END IF;
4167:
4168: /*
4169: IF (l_new_mr_header_id IS NULL) THEN
4170: x_return_status := FND_API.G_RET_STS_ERROR;
4171: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CUR_MR_DET_MAND');
4172: FND_MSG_PUB.ADD;
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: -- RETURN;
4169: IF (l_new_mr_header_id IS NULL) THEN
4170: x_return_status := FND_API.G_RET_STS_ERROR;
4171: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CUR_MR_DET_MAND');
4172: FND_MSG_PUB.ADD;
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174: -- RETURN;
4175: END IF;
4176: */
4177:
4179: FETCH l_get_effective_to_date INTO l_effective_to_date, l_application_usg_code; --, l_effective_from_date;
4180: IF (l_get_effective_to_date%FOUND) THEN
4181: --check if effective to date has passed
4182: /* IF( TRUNC(l_effective_to_date) > TRUNC(SYSDATE)) THEN
4183: x_return_status := FND_API.G_RET_STS_ERROR;
4184: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4185: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4186: FND_MSG_PUB.ADD;
4187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4183: x_return_status := FND_API.G_RET_STS_ERROR;
4184: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4185: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4186: FND_MSG_PUB.ADD;
4187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4188: END IF; */
4189:
4190: -- Set the profile for due date calculation as the work flow user may not have this
4191: -- profile set.
4202: IF (l_new_mr_header_id IS NOT NULL) THEN
4203: OPEN l_get_effective_from_date(l_new_mr_header_id);
4204: FETCH l_get_effective_from_date INTO l_effective_from_date;
4205: IF (l_get_effective_from_date%NOTFOUND) THEN
4206: x_return_status := FND_API.G_RET_STS_ERROR;
4207: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4208: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4209: FND_MSG_PUB.ADD;
4210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4206: x_return_status := FND_API.G_RET_STS_ERROR;
4207: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4208: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4209: FND_MSG_PUB.ADD;
4210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4211: END IF;
4212: CLOSE l_get_effective_from_date;
4213: END IF;
4214:
4594: -- Check Error Message stack.
4595: x_msg_count := FND_MSG_PUB.count_msg;
4596: IF x_msg_count > 0 THEN
4597: x_return_status := 'U';
4598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4599: END IF;
4600:
4601: IF(l_new_mr_header_id IS NOT NULL)THEN
4602: OPEN get_mr_copy_dtls_csr(l_new_mr_header_id);
4604: CLOSE get_mr_copy_dtls_csr;
4605: IF(l_COPY_FIRST_DUE_FLAG = 'Y' OR l_COPY_DEFERRALS_FLAG = 'Y') THEN
4606: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4607: p_api_version => 1.0,
4608: p_init_msg_list => FND_API.G_FALSE,
4609: p_commit => FND_API.G_FALSE,
4610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4611: x_return_status => l_return_status,
4612: x_msg_count => l_msg_count,
4605: IF(l_COPY_FIRST_DUE_FLAG = 'Y' OR l_COPY_DEFERRALS_FLAG = 'Y') THEN
4606: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4607: p_api_version => 1.0,
4608: p_init_msg_list => FND_API.G_FALSE,
4609: p_commit => FND_API.G_FALSE,
4610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4611: x_return_status => l_return_status,
4612: x_msg_count => l_msg_count,
4613: x_msg_data => l_msg_data,
4606: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
4607: p_api_version => 1.0,
4608: p_init_msg_list => FND_API.G_FALSE,
4609: p_commit => FND_API.G_FALSE,
4610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4611: x_return_status => l_return_status,
4612: x_msg_count => l_msg_count,
4613: x_msg_data => l_msg_data,
4614: p_mr_header_id => l_new_mr_header_id,
4618: p_sort_flag => 'N',
4619: x_mr_item_inst_tbl => l_new_mr_item_instance_tbl
4620: );
4621: IF(l_return_status = 'U') THEN
4622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4623: END IF;
4624: IF(l_return_status = 'E') THEN
4625: RAISE FND_API.G_EXC_ERROR;
4626: END IF;
4621: IF(l_return_status = 'U') THEN
4622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4623: END IF;
4624: IF(l_return_status = 'E') THEN
4625: RAISE FND_API.G_EXC_ERROR;
4626: END IF;
4627:
4628: IF (l_new_mr_item_instance_tbl.COUNT) > 0 THEN
4629: FOR i IN l_new_mr_item_instance_tbl.FIRST..l_new_mr_item_instance_tbl.LAST LOOP
4731: END IF; -- count > 0
4732: END IF;
4733:
4734: -- Standard check of p_commit
4735: IF FND_API.TO_BOOLEAN(p_commit) THEN
4736: COMMIT WORK;
4737: IF G_DEBUG='Y' THEN
4738: AHL_DEBUG_PUB.debug('Committed Changes', 'UMP');
4739: END IF;
4741:
4742: /* commented call from here as BUE api commits. Launching concurrent program instead.
4743: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
4744: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
4745: p_init_msg_list => FND_API.G_FALSE,
4746: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4747: p_default => FND_API.G_TRUE,
4748: p_module_type => NULL,
4749: x_return_status => l_return_status,
4742: /* commented call from here as BUE api commits. Launching concurrent program instead.
4743: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
4744: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
4745: p_init_msg_list => FND_API.G_FALSE,
4746: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4747: p_default => FND_API.G_TRUE,
4748: p_module_type => NULL,
4749: x_return_status => l_return_status,
4750: x_msg_count => l_msg_count,
4743: IF (l_new_mr_header_id IS NOT NULL AND trunc(l_effective_from_date) <= trunc(sysdate)) THEN
4744: AHL_UMP_UNITMAINT_PVT.Build_UnitEffectivity (
4745: p_init_msg_list => FND_API.G_FALSE,
4746: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4747: p_default => FND_API.G_TRUE,
4748: p_module_type => NULL,
4749: x_return_status => l_return_status,
4750: x_msg_count => l_msg_count,
4751: x_msg_data => l_msg_data,
4752: p_mr_header_id => l_new_mr_header_id
4753: ) ;
4754:
4755: IF(l_return_status = 'U') THEN
4756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4757: END IF;
4758: IF(l_return_status = 'E') THEN
4759: RAISE FND_API.G_EXC_ERROR;
4760: END IF;
4755: IF(l_return_status = 'U') THEN
4756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4757: END IF;
4758: IF(l_return_status = 'E') THEN
4759: RAISE FND_API.G_EXC_ERROR;
4760: END IF;
4761:
4762: END IF;
4763: */
4777: -- Standard call to get message count and if count is 1, get message info
4778: FND_MSG_PUB.Count_And_Get
4779: ( p_count => x_msg_count,
4780: p_data => x_msg_data,
4781: p_encoded => fnd_api.g_false
4782: );
4783:
4784: --
4785: EXCEPTION
4782: );
4783:
4784: --
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_ERROR THEN
4787: x_return_status := FND_API.G_RET_STS_ERROR;
4788: Rollback to Terminate_MR_Instances_pvt;
4789: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4790: p_data => x_msg_data,
4783:
4784: --
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_ERROR THEN
4787: x_return_status := FND_API.G_RET_STS_ERROR;
4788: Rollback to Terminate_MR_Instances_pvt;
4789: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4790: p_data => x_msg_data,
4791: p_encoded => fnd_api.g_false);
4787: x_return_status := FND_API.G_RET_STS_ERROR;
4788: Rollback to Terminate_MR_Instances_pvt;
4789: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4790: p_data => x_msg_data,
4791: p_encoded => fnd_api.g_false);
4792:
4793: -- Disable debug
4794: AHL_DEBUG_PUB.disable_debug;
4795:
4792:
4793: -- Disable debug
4794: AHL_DEBUG_PUB.disable_debug;
4795:
4796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4798: Rollback to Terminate_MR_Instances_pvt;
4799: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4800: p_data => x_msg_data,
4793: -- Disable debug
4794: AHL_DEBUG_PUB.disable_debug;
4795:
4796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4798: Rollback to Terminate_MR_Instances_pvt;
4799: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4800: p_data => x_msg_data,
4801: p_encoded => fnd_api.g_false);
4797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4798: Rollback to Terminate_MR_Instances_pvt;
4799: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4800: p_data => x_msg_data,
4801: p_encoded => fnd_api.g_false);
4802:
4803: -- Disable debug
4804: AHL_DEBUG_PUB.disable_debug;
4805:
4803: -- Disable debug
4804: AHL_DEBUG_PUB.disable_debug;
4805:
4806: WHEN OTHERS THEN
4807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4808: Rollback to Terminate_MR_Instances_pvt;
4809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4810: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4811: p_procedure_name => 'Terminate_MR_Instances_pvt',
4812: p_error_text => SUBSTR(SQLERRM,1,240));
4813: END IF;
4814: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4815: p_data => x_msg_data,
4816: p_encoded => fnd_api.g_false);
4817:
4818:
4819: -- Disable debug
4820: AHL_DEBUG_PUB.disable_debug;
4850: l_version_number ahl_mr_headers_app_v.VERSION_NUMBER%TYPE;
4851:
4852: BEGIN
4853:
4854: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
4855: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
4856: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
4857: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
4858: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
4851:
4852: BEGIN
4853:
4854: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
4855: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
4856: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
4857: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
4858: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
4859: IF (ahl_mr_headers_csr%NOTFOUND) THEN
4852: BEGIN
4853:
4854: IF (p_x_mr_id IS NULL OR p_x_mr_id = FND_API.G_MISS_NUM) THEN
4855: IF (p_mr_title IS NOT NULL AND p_mr_title <> FND_API.G_MISS_CHAR) AND
4856: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
4857: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
4858: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
4859: IF (ahl_mr_headers_csr%NOTFOUND) THEN
4860: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_TITLE_INVALID');
4888: l_junk VARCHAR2(1);
4889:
4890: BEGIN
4891:
4892: IF (p_x_uc_header_id IS NULL OR p_x_uc_header_id = FND_API.G_MISS_NUM) THEN
4893: IF (p_unit_name IS NOT NULL AND p_unit_name <> FND_API.G_MISS_CHAR) THEN
4894: OPEN ahl_uc_headers_csr(p_unit_name);
4895: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
4896: IF (ahl_uc_headers_csr%NOTFOUND) THEN
4889:
4890: BEGIN
4891:
4892: IF (p_x_uc_header_id IS NULL OR p_x_uc_header_id = FND_API.G_MISS_NUM) THEN
4893: IF (p_unit_name IS NOT NULL AND p_unit_name <> FND_API.G_MISS_CHAR) THEN
4894: OPEN ahl_uc_headers_csr(p_unit_name);
4895: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
4896: IF (ahl_uc_headers_csr%NOTFOUND) THEN
4897: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_UNIT_INVALID');
4919:
4920: BEGIN
4921:
4922: IF (p_x_csi_item_instance_id IS NULL OR
4923: p_x_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
4924: IF (p_csi_instance_number IS NOT NULL AND
4925: p_csi_instance_number <> FND_API.G_MISS_CHAR) THEN
4926: -- get instance_id.
4927: OPEN csi_item_instances_csr (p_csi_instance_number);
4921:
4922: IF (p_x_csi_item_instance_id IS NULL OR
4923: p_x_csi_item_instance_id = FND_API.G_MISS_NUM) THEN
4924: IF (p_csi_instance_number IS NOT NULL AND
4925: p_csi_instance_number <> FND_API.G_MISS_CHAR) THEN
4926: -- get instance_id.
4927: OPEN csi_item_instances_csr (p_csi_instance_number);
4928: FETCH csi_item_instances_csr INTO l_csi_item_instance_id;
4929: IF (csi_item_instances_csr%NOTFOUND) THEN
4986: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
4987: FND_MSG_PUB.ADD;
4988: CLOSE ahl_mr_headers_csr;
4989: --dbms_output.put_line('MR not found.');
4990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4991: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
4992: trunc(sysdate) > trunc(l_effective_to)) THEN
4993: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
4994: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5009: FND_MESSAGE.Set_Token('INST_ID', p_x_csi_item_instance_id);
5010: FND_MSG_PUB.ADD;
5011: CLOSE csi_item_instances_csr;
5012: --dbms_output.put_line('Instance not found');
5013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5014: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
5015: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5016: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5017: FND_MSG_PUB.ADD;
5030: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_header_id);
5031: FND_MSG_PUB.ADD;
5032: --dbms_output.put_line('Unit not found');
5033: CLOSE ahl_unit_config_headers_csr;
5034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5035:
5036: -- Dates obsoleted 11.5.10.
5037: -- ELSIF (trunc(l_active_start_date) > trunc(sysdate) OR
5038: -- trunc(sysdate) > trunc(l_active_end_date)) THEN
5098: is
5099: select 'x'
5100: from okc_k_headers_all_b
5101: where contract_number = p_contract_number
5102: and nvl(contract_number_modifier, 'X') = nvl(decode(p_contract_modifier, FND_API.G_MISS_CHAR, null, p_contract_modifier), 'X');
5103:
5104: l_effective_from ahl_mr_headers_app_v.EFFECTIVE_FROM%TYPE;
5105: l_effective_to ahl_mr_headers_app_v.EFFECTIVE_TO%TYPE;
5106: l_mr_title ahl_mr_headers_app_v.TITLE%TYPE;
5122: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5123: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5124: FND_MSG_PUB.ADD;
5125: CLOSE ahl_mr_headers_csr;
5126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5127: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5128: trunc(sysdate) > trunc(l_effective_to)) THEN
5129: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5130: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5143: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5144: FND_MESSAGE.Set_Token('INST_ID', p_csi_item_instance_id);
5145: FND_MSG_PUB.ADD;
5146: CLOSE csi_item_instances_csr;
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
5149: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5150: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5151: FND_MSG_PUB.ADD;
5154: END IF;
5155:
5156: -- Validate whether contract number + modifier combination exists
5157: -- Validate whether contract modifier is NOT NULL but contract number IS NULL
5158: IF (p_contract_number is not null and p_contract_number <> FND_API.G_MISS_CHAR)
5159: THEN
5160: OPEN contract_number_csr;
5161: FETCH contract_number_csr INTO l_dummy;
5162: IF (contract_number_csr%NOTFOUND)
5166: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5167: FND_MSG_PUB.ADD;
5168: END IF;
5169: CLOSE contract_number_csr;
5170: ELSIF (p_contract_modifier IS NOT NULL and p_contract_modifier <> FND_API.G_MISS_CHAR)
5171: THEN
5172: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_MOD_INV');
5173: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5174: FND_MSG_PUB.ADD;
5356: -- Initialize error message stack by default
5357: FND_MSG_PUB.Initialize;
5358:
5359: -- Standard call to check for call compatibility
5360: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
5361: THEN
5362: retcode := 2;
5363: errbuf := FND_MSG_PUB.Get;
5364:
5361: THEN
5362: retcode := 2;
5363: errbuf := FND_MSG_PUB.Get;
5364:
5365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5366: END IF;
5367:
5368: Build_UnitEffectivity (
5369: p_init_msg_list => FND_API.G_TRUE,
5365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5366: END IF;
5367:
5368: Build_UnitEffectivity (
5369: p_init_msg_list => FND_API.G_TRUE,
5370: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5371: p_default => FND_API.G_TRUE,
5372: p_module_type => NULL,
5373: x_return_status => l_return_status,
5366: END IF;
5367:
5368: Build_UnitEffectivity (
5369: p_init_msg_list => FND_API.G_TRUE,
5370: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5371: p_default => FND_API.G_TRUE,
5372: p_module_type => NULL,
5373: x_return_status => l_return_status,
5374: x_msg_count => l_msg_count,
5367:
5368: Build_UnitEffectivity (
5369: p_init_msg_list => FND_API.G_TRUE,
5370: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5371: p_default => FND_API.G_TRUE,
5372: p_module_type => NULL,
5373: x_return_status => l_return_status,
5374: x_msg_count => l_msg_count,
5375: x_msg_data => errbuf,
5380: p_concurrent_flag => 'Y'
5381: );
5382:
5383: l_msg_count := FND_MSG_PUB.Count_Msg;
5384: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5385: THEN
5386: retcode := 2; -- error based only on return status
5387: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5388: THEN
5383: l_msg_count := FND_MSG_PUB.Count_Msg;
5384: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5385: THEN
5386: retcode := 2; -- error based only on return status
5387: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
5388: THEN
5389: retcode := 1; -- warning based on return status + msg count
5390: ELSE
5391: retcode := 0; -- success, since nothing is wrong
5443: -- initialize error message stack
5444: FND_MSG_PUB.Initialize;
5445:
5446: -- standard call to check for call compatibility
5447: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
5448: l_api_name, G_PKG_NAME) THEN
5449: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5450: FND_LOG.string(FND_LOG.level_statement,l_full_name,
5451: ' Incompatible call. Raising exception.');
5452: END IF;
5453:
5454: retcode := 2;
5455: errbuf := FND_MSG_PUB.Get;
5456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5457: END IF;
5458:
5459: -- check for pc_header_id validity
5460: OPEN check_for_pc_csr(p_pc_header_id);
5471: FND_MSG_PUB.ADD;
5472:
5473: retcode := 2;
5474: errbuf := FND_MSG_PUB.Get;
5475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5476: END IF;
5477: CLOSE check_for_pc_csr;
5478:
5479: -- get all the applicable MRs for the PC
5489:
5490: -- get the top level applicable instances for the MR
5491: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5492: p_api_version => 1.0,
5493: p_init_msg_list => FND_API.G_FALSE,
5494: p_commit => FND_API.G_FALSE,
5495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5496: x_return_status => l_return_status,
5497: x_msg_count => l_msg_count,
5490: -- get the top level applicable instances for the MR
5491: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5492: p_api_version => 1.0,
5493: p_init_msg_list => FND_API.G_FALSE,
5494: p_commit => FND_API.G_FALSE,
5495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5496: x_return_status => l_return_status,
5497: x_msg_count => l_msg_count,
5498: x_msg_data => errbuf,
5491: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS(
5492: p_api_version => 1.0,
5493: p_init_msg_list => FND_API.G_FALSE,
5494: p_commit => FND_API.G_FALSE,
5495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5496: x_return_status => l_return_status,
5497: x_msg_count => l_msg_count,
5498: x_msg_data => errbuf,
5499: p_mr_header_id => l_get_mr_for_pc_rec.mr_header_id,
5502: p_unique_inst_flag => 'Y',
5503: x_mr_item_inst_tbl => l_mr_item_inst_tbl);
5504:
5505: -- check for the return status
5506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5507: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5508: FND_LOG.string(FND_LOG.level_statement,l_full_name,
5509: ' Raising exception with x_return_status => '||l_return_status);
5510: END IF;
5511:
5512: retcode := 2;
5513: errbuf := FND_MSG_PUB.Get;
5514:
5515: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5517: ELSE
5518: RAISE FND_API.G_EXC_ERROR;
5519: END IF;
5512: retcode := 2;
5513: errbuf := FND_MSG_PUB.Get;
5514:
5515: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5517: ELSE
5518: RAISE FND_API.G_EXC_ERROR;
5519: END IF;
5520: END IF;
5514:
5515: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5517: ELSE
5518: RAISE FND_API.G_EXC_ERROR;
5519: END IF;
5520: END IF;
5521:
5522: -- populate the associative array of instances for the PC
5544: indx := l_pc_mr_item_inst_tbl.FIRST;
5545: WHILE indx IS NOT NULL LOOP
5546: -- call the API Build_UnitEffectivity
5547: Build_UnitEffectivity (
5548: p_init_msg_list => FND_API.G_TRUE,
5549: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5550: p_default => FND_API.G_TRUE,
5551: p_module_type => NULL,
5552: x_return_status => l_return_status,
5545: WHILE indx IS NOT NULL LOOP
5546: -- call the API Build_UnitEffectivity
5547: Build_UnitEffectivity (
5548: p_init_msg_list => FND_API.G_TRUE,
5549: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5550: p_default => FND_API.G_TRUE,
5551: p_module_type => NULL,
5552: x_return_status => l_return_status,
5553: x_msg_count => l_msg_count,
5546: -- call the API Build_UnitEffectivity
5547: Build_UnitEffectivity (
5548: p_init_msg_list => FND_API.G_TRUE,
5549: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5550: p_default => FND_API.G_TRUE,
5551: p_module_type => NULL,
5552: x_return_status => l_return_status,
5553: x_msg_count => l_msg_count,
5554: x_msg_data => errbuf,
5555: p_csi_item_instance_id => l_pc_mr_item_inst_tbl(indx),
5556: p_concurrent_flag => 'Y');
5557:
5558: l_msg_count := FND_MSG_PUB.Count_Msg;
5559: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5560: -- error based only on return status
5561: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5562: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_full_name,
5563: ' Build_UnitEffectivity failed for l_pc_mr_item_inst_tbl(indx) => '||
5565: END IF;
5566:
5567: retcode := 2;
5568: EXIT; -- stop building unit effectivities for rest of the instances
5569: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5570: -- warning based on return status + msg count
5571: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5572: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_full_name,
5573: ' Build_UnitEffectivity had warnings for l_pc_mr_item_inst_tbl(indx) => '||
5611:
5612: FOR i IN 1..l_msg_count LOOP
5613: FND_MSG_PUB.get (
5614: p_msg_index => i,
5615: p_encoded => FND_API.G_FALSE,
5616: p_data => l_msg_data,
5617: p_msg_index_out => l_msg_index_out );
5618:
5619: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_msg_data);