[Home] [Help]
14: -- Pre-reqs :
15: --
16: -- Standard IN Parameters :
17: -- p_api_version IN NUMBER Required
18: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
19: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
20: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
21: --
22: -- Standard OUT Parameters :
15: --
16: -- Standard IN Parameters :
17: -- p_api_version IN NUMBER Required
18: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
19: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
20: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
21: --
22: -- Standard OUT Parameters :
23: -- x_return_status OUT VARCHAR2 Required
16: -- Standard IN Parameters :
17: -- p_api_version IN NUMBER Required
18: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
19: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
20: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
21: --
22: -- Standard OUT Parameters :
23: -- x_return_status OUT VARCHAR2 Required
24: -- x_msg_count OUT NUMBER Required
59: -- Standard start of API savepoint
60: SAVEPOINT CREATE_SETUP_DATA_SP;
61:
62: -- Standard call to check for call compatibility
63: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE
60: SAVEPOINT CREATE_SETUP_DATA_SP;
61:
62: -- Standard call to check for call compatibility
63: IF NOT FND_API.Compatible_API_Call(l_api_version,p_api_version, l_api_name, G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE
68: IF FND_API.To_Boolean(p_init_msg_list) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: -- Initialize message list if p_init_msg_list is set to TRUE
68: IF FND_API.To_Boolean(p_init_msg_list) THEN
69: FND_MSG_PUB.Initialize;
70: END IF;
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
68: IF FND_API.To_Boolean(p_init_msg_list) THEN
69: FND_MSG_PUB.Initialize;
70: END IF;
71:
72: x_return_status := FND_API.G_RET_STS_SUCCESS;
73:
74: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
75: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------BEGIN-----------');
76: END IF;
98:
99: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
100: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
101: FND_MSG_PUB.ADD;
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103:
104: END IF;
105:
106: -- Check for duplicate Setup Data in AHL_RA_SETUPS
128:
129: FND_MESSAGE.Set_Name('AHL','AHL_RA_DUP_STATUS_CODE');
130: FND_MESSAGE.Set_Token('ITEM_STATUS',l_code);
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: EXCEPTION
134: WHEN NO_DATA_FOUND THEN
135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
136: fnd_log.string(fnd_log.level_statement,l_full_name,'-- MTL STATUS Data Corruption -- ERROR ... ');
134: WHEN NO_DATA_FOUND THEN
135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
136: fnd_log.string(fnd_log.level_statement,l_full_name,'-- MTL STATUS Data Corruption -- ERROR ... ');
137: END IF;
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END;
140:
141: ELSIF l_setup_data_rec.SETUP_CODE = 'REMOVAL_CODE' THEN
142: BEGIN
148:
149: FND_MESSAGE.Set_Name('AHL','AHL_RA_DUP_REMOVAL_CODE');
150: FND_MESSAGE.Set_Token('REMOVAL_CODE',l_code);
151: FND_MSG_PUB.ADD;
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
156: fnd_log.string(fnd_log.level_statement,l_full_name,'-- AHL LOOKUP Data Corruption -- ERROR ... ');
154: WHEN NO_DATA_FOUND THEN
155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
156: fnd_log.string(fnd_log.level_statement,l_full_name,'-- AHL LOOKUP Data Corruption -- ERROR ... ');
157: END IF;
158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
159: END;
160: END IF;
161:
162: EXCEPTION
190: END IF;
191: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
192: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
193: FND_MSG_PUB.ADD;
194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
195: END;
196:
197: ELSIF l_setup_data_rec.SETUP_CODE = 'REMOVAL_CODE' THEN
198:
220: END IF;
221: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
222: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_SETUP_DATA');
223: FND_MSG_PUB.ADD;
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: END;
226:
227: END IF;
228:
284: -- Set the Out Param
285: p_x_setup_data_rec := l_setup_data_rec;
286:
287: -- Standard check for p_commit
288: IF FND_API.To_Boolean (p_commit) THEN
289: COMMIT;
290: END IF;
291:
292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
296: -- Standard call to get message count and if count is 1, get message
297: FND_MSG_PUB.Count_And_Get
298: ( p_count => x_msg_count,
299: p_data => x_msg_data,
300: p_encoded => fnd_api.g_false);
301:
302: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
303: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
304: END IF;
303: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
304: END IF;
305:
306: EXCEPTION
307: WHEN FND_API.G_EXC_ERROR THEN
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: ROLLBACK TO CREATE_SETUP_DATA_SP;
310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
311: p_data => x_msg_data,
304: END IF;
305:
306: EXCEPTION
307: WHEN FND_API.G_EXC_ERROR THEN
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: ROLLBACK TO CREATE_SETUP_DATA_SP;
310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
311: p_data => x_msg_data,
312: p_encoded => fnd_api.g_false);
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: ROLLBACK TO CREATE_SETUP_DATA_SP;
310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
311: p_data => x_msg_data,
312: p_encoded => fnd_api.g_false);
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: ROLLBACK TO CREATE_SETUP_DATA_SP;
310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
311: p_data => x_msg_data,
312: p_encoded => fnd_api.g_false);
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: ROLLBACK TO CREATE_SETUP_DATA_SP;
317: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
318: p_data => x_msg_data,
311: p_data => x_msg_data,
312: p_encoded => fnd_api.g_false);
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: ROLLBACK TO CREATE_SETUP_DATA_SP;
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);
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: ROLLBACK TO CREATE_SETUP_DATA_SP;
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: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: ROLLBACK TO CREATE_SETUP_DATA_SP;
318: p_data => x_msg_data,
319: p_encoded => fnd_api.g_false);
320:
321: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: ROLLBACK TO CREATE_SETUP_DATA_SP;
324: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
325: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
326: p_procedure_name => 'CREATE_SETUP_DATA',
327: p_error_text => SUBSTR(SQLERRM,1,240));
328: END IF;
329: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
330: p_data => x_msg_data,
331: p_encoded => fnd_api.g_false);
332:
333: END CREATE_SETUP_DATA;
334:
335: -- Start of Comments --
340: -- Pre-reqs :
341: --
342: -- Standard IN Parameters :
343: -- p_api_version IN NUMBER Required
344: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
345: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
346: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
347: --
348: -- Standard OUT Parameters :
341: --
342: -- Standard IN Parameters :
343: -- p_api_version IN NUMBER Required
344: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
345: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
346: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
347: --
348: -- Standard OUT Parameters :
349: -- x_return_status OUT VARCHAR2 Required
342: -- Standard IN Parameters :
343: -- p_api_version IN NUMBER Required
344: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
345: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
346: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
347: --
348: -- Standard OUT Parameters :
349: -- x_return_status OUT VARCHAR2 Required
350: -- x_msg_count OUT NUMBER Required
384: -- Standard start of API savepoint
385: SAVEPOINT DELETE_SETUP_DATA_SP;
386:
387: -- Standard call to check for call compatibility
388: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE
385: SAVEPOINT DELETE_SETUP_DATA_SP;
386:
387: -- Standard call to check for call compatibility
388: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
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
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
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: x_return_status := FND_API.G_RET_STS_SUCCESS;
393: IF FND_API.To_Boolean(p_init_msg_list) THEN
394: FND_MSG_PUB.Initialize;
395: END IF;
396:
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
399: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
400: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------BEGIN-----------');
401: END IF;
415: END IF;
416: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
417: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_SETUP_DATA');
418: FND_MSG_PUB.ADD;
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
422: BEGIN
423: SELECT OBJECT_VERSION_NUMBER
436: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_setup_data_rec.RA_SETUP_ID);
437: END IF;
438: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
439: FND_MSG_PUB.ADD;
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END;
442:
443: -- Validate input setup data in p_setup_data_rec
444: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
449: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
450: END IF;
451: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
452: FND_MSG_PUB.ADD;
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: -- Delete Record from AHL_RA_SETUPS
457: DELETE AHL_RA_SETUPS
457: DELETE AHL_RA_SETUPS
458: WHERE RA_SETUP_ID = p_setup_data_rec.RA_SETUP_ID;
459:
460: -- Standard check for p_commit
461: IF FND_API.To_Boolean (p_commit) THEN
462: COMMIT;
463: END IF;
464:
465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
469: -- Standard call to get message count and if count is 1, get message
470: FND_MSG_PUB.Count_And_Get
471: ( p_count => x_msg_count,
472: p_data => x_msg_data,
473: p_encoded => fnd_api.g_false);
474:
475: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
476: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
477: END IF;
476: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
477: END IF;
478:
479: EXCEPTION
480: WHEN FND_API.G_EXC_ERROR THEN
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: ROLLBACK TO DELETE_SETUP_DATA_SP;
483: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
484: p_data => x_msg_data,
477: END IF;
478:
479: EXCEPTION
480: WHEN FND_API.G_EXC_ERROR THEN
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: ROLLBACK TO DELETE_SETUP_DATA_SP;
483: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
484: p_data => x_msg_data,
485: p_encoded => fnd_api.g_false);
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: ROLLBACK TO DELETE_SETUP_DATA_SP;
483: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
484: p_data => x_msg_data,
485: p_encoded => fnd_api.g_false);
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: ROLLBACK TO DELETE_SETUP_DATA_SP;
483: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
484: p_data => x_msg_data,
485: p_encoded => fnd_api.g_false);
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: ROLLBACK TO DELETE_SETUP_DATA_SP;
490: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
491: p_data => x_msg_data,
484: p_data => x_msg_data,
485: p_encoded => fnd_api.g_false);
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: ROLLBACK TO DELETE_SETUP_DATA_SP;
490: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
491: p_data => x_msg_data,
492: p_encoded => fnd_api.g_false);
488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
489: ROLLBACK TO DELETE_SETUP_DATA_SP;
490: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
491: p_data => x_msg_data,
492: p_encoded => fnd_api.g_false);
493:
494: WHEN OTHERS THEN
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: ROLLBACK TO DELETE_SETUP_DATA_SP;
491: p_data => x_msg_data,
492: p_encoded => fnd_api.g_false);
493:
494: WHEN OTHERS THEN
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: ROLLBACK TO DELETE_SETUP_DATA_SP;
497: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
498: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
499: p_procedure_name => 'DELETE_SETUP_DATA',
500: p_error_text => SUBSTR(SQLERRM,1,240));
501: END IF;
502: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
503: p_data => x_msg_data,
504: p_encoded => fnd_api.g_false);
505:
506: END DELETE_SETUP_DATA;
507:
508: -- Start of Comments --
513: -- Pre-reqs :
514: --
515: -- Standard IN Parameters :
516: -- p_api_version IN NUMBER Required
517: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
518: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
520: --
521: -- Standard OUT Parameters :
514: --
515: -- Standard IN Parameters :
516: -- p_api_version IN NUMBER Required
517: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
518: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
520: --
521: -- Standard OUT Parameters :
522: -- x_return_status OUT VARCHAR2 Required
515: -- Standard IN Parameters :
516: -- p_api_version IN NUMBER Required
517: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
518: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
520: --
521: -- Standard OUT Parameters :
522: -- x_return_status OUT VARCHAR2 Required
523: -- x_msg_count OUT NUMBER Required
531: --
532: -- End of Comments --
533: PROCEDURE CREATE_RELIABILITY_DATA (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_module_type IN VARCHAR2,
539: x_return_status OUT NOCOPY VARCHAR2,
532: -- End of Comments --
533: PROCEDURE CREATE_RELIABILITY_DATA (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_module_type IN VARCHAR2,
539: x_return_status OUT NOCOPY VARCHAR2,
540: x_msg_count OUT NOCOPY NUMBER,
533: PROCEDURE CREATE_RELIABILITY_DATA (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
536: p_commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_module_type IN VARCHAR2,
539: x_return_status OUT NOCOPY VARCHAR2,
540: x_msg_count OUT NOCOPY NUMBER,
541: x_msg_data OUT NOCOPY VARCHAR2,
557: -- Standard start of API savepoint
558: SAVEPOINT CREATE_RELIABILITY_DATA_SP;
559:
560: -- Standard call to check for call compatibility
561: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE
558: SAVEPOINT CREATE_RELIABILITY_DATA_SP;
559:
560: -- Standard call to check for call compatibility
561: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE
566: IF FND_API.To_Boolean(p_init_msg_list) THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564:
565: -- Initialize message list if p_init_msg_list is set to TRUE
566: IF FND_API.To_Boolean(p_init_msg_list) THEN
567: FND_MSG_PUB.Initialize;
568: END IF;
569:
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
566: IF FND_API.To_Boolean(p_init_msg_list) THEN
567: FND_MSG_PUB.Initialize;
568: END IF;
569:
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
573: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------BEGIN-----------');
574: END IF;
589: END IF;
590: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
591: FND_MESSAGE.Set_Token('FIELD',l_ra_def_hdr_rec.OPERATION_FLAG);
592: FND_MSG_PUB.ADD;
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595:
596: -- Validate input reliability data in l_ra_def_hdr_rec
597: /*
611:
612: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
613: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: --Validate MC_HEADER_ID
619: BEGIN
636:
637: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
638: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END;
642:
643: --Validate RELATIONSHIP_ID
644: BEGIN
662:
663: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
664: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
665: FND_MSG_PUB.ADD;
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END;
668:
669: --Validate INVENTORY_ITEM_ID, INVENTORY_ORG_ID, ITEM_REVISION from AHL_ITEM_ASSOCIATIONS_B
670: BEGIN
676: WHERE mcr.relationship_id = l_ra_def_hdr_rec.RELATIONSHIP_ID
677: AND mcr.item_group_id = ia.item_group_id
678: AND ia.inventory_item_id = l_ra_def_hdr_rec.INVENTORY_ITEM_ID
679: AND ia.inventory_org_id = l_ra_def_hdr_rec.INVENTORY_ORG_ID
680: AND nvl(ia.revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
681:
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
684: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation successful: Item --');
692:
693: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
694: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DATA');
695: FND_MSG_PUB.ADD;
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END;
698:
699: --Uniquness Check for MC_HEADER_ID, RELATIONSHIP_ID, INVENTORY_ITEM_ID, INVENTORY_ORG_ID, ITEM_REVISION
700: BEGIN
706: WHERE mc_header_id = l_ra_def_hdr_rec.MC_HEADER_ID
707: AND relationship_id = l_ra_def_hdr_rec.RELATIONSHIP_ID
708: AND inventory_item_id = l_ra_def_hdr_rec.INVENTORY_ITEM_ID
709: AND inventory_org_id = l_ra_def_hdr_rec.INVENTORY_ORG_ID
710: AND nvl(item_revision,FND_API.G_MISS_CHAR) = nvl(l_ra_def_hdr_rec.ITEM_REVISION,FND_API.G_MISS_CHAR));
711:
712: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
713: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Uniqnuess Check --');
714: END IF;
714: END IF;
715:
716: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DEF_EXISTS');
717: FND_MSG_PUB.ADD;
718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
719:
720: EXCEPTION
721: WHEN NO_DATA_FOUND THEN
722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
806: );
807:
808: p_x_reliability_data_rec := l_ra_def_hdr_rec;
809: -- Standard check for p_commit
810: IF FND_API.To_Boolean (p_commit) THEN
811: COMMIT;
812: END IF;
813:
814: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
818: -- Standard call to get message count and if count is 1, get message
819: FND_MSG_PUB.Count_And_Get
820: ( p_count => x_msg_count,
821: p_data => x_msg_data,
822: p_encoded => fnd_api.g_false);
823:
824: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
825: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
826: END IF;
825: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
826: END IF;
827:
828: EXCEPTION
829: WHEN FND_API.G_EXC_ERROR THEN
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
832: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
833: p_data => x_msg_data,
826: END IF;
827:
828: EXCEPTION
829: WHEN FND_API.G_EXC_ERROR THEN
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
832: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
833: p_data => x_msg_data,
834: p_encoded => fnd_api.g_false);
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
832: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
833: p_data => x_msg_data,
834: p_encoded => fnd_api.g_false);
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
832: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
833: p_data => x_msg_data,
834: p_encoded => fnd_api.g_false);
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
839: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
840: p_data => x_msg_data,
833: p_data => x_msg_data,
834: p_encoded => fnd_api.g_false);
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
839: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
840: p_data => x_msg_data,
841: p_encoded => fnd_api.g_false);
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
839: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
840: p_data => x_msg_data,
841: p_encoded => fnd_api.g_false);
842:
843: WHEN OTHERS THEN
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
840: p_data => x_msg_data,
841: p_encoded => fnd_api.g_false);
842:
843: WHEN OTHERS THEN
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: ROLLBACK TO CREATE_RELIABILITY_DATA_SP;
846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
847: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
848: p_procedure_name => 'CREATE_RELIABILITY_DATA',
849: p_error_text => SUBSTR(SQLERRM,1,240));
850: END IF;
851: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
852: p_data => x_msg_data,
853: p_encoded => fnd_api.g_false);
854:
855: END CREATE_RELIABILITY_DATA;
856:
857: -- Start of Comments --
862: -- Pre-reqs :
863: --
864: -- Standard IN Parameters :
865: -- p_api_version IN NUMBER Required
866: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
867: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
868: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
869: --
870: -- Standard OUT Parameters :
863: --
864: -- Standard IN Parameters :
865: -- p_api_version IN NUMBER Required
866: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
867: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
868: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
869: --
870: -- Standard OUT Parameters :
871: -- x_return_status OUT VARCHAR2 Required
864: -- Standard IN Parameters :
865: -- p_api_version IN NUMBER Required
866: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
867: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
868: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
869: --
870: -- Standard OUT Parameters :
871: -- x_return_status OUT VARCHAR2 Required
872: -- x_msg_count OUT NUMBER Required
905: -- Standard start of API savepoint
906: SAVEPOINT DELETE_RELIABILITY_DATA_SP;
907:
908: -- Standard call to check for call compatibility
909: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list is set to TRUE
906: SAVEPOINT DELETE_RELIABILITY_DATA_SP;
907:
908: -- Standard call to check for call compatibility
909: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list is set to TRUE
914: IF FND_API.To_Boolean(p_init_msg_list) THEN
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: -- Initialize message list if p_init_msg_list is set to TRUE
914: IF FND_API.To_Boolean(p_init_msg_list) THEN
915: FND_MSG_PUB.Initialize;
916: END IF;
917:
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
914: IF FND_API.To_Boolean(p_init_msg_list) THEN
915: FND_MSG_PUB.Initialize;
916: END IF;
917:
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919:
920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
921: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------BEGIN-----------');
922: END IF;
927: END IF;
928: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
929: FND_MESSAGE.Set_Token('FIELD', p_reliability_data_rec.OPERATION_FLAG);
930: FND_MSG_PUB.ADD;
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: -- Validate input data in p_reliability_data_rec
935: -- A. p_reliability_data_rec. RA_DEFINITION_HDR_ID Cannot be NULL
942: END IF;
943: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
944: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DATA');
945: FND_MSG_PUB.ADD;
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
950: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Delete counter-MTBF records for RA_DEFINITION_HDR_ID -- ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
968: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_reliability_data_rec.RA_DEFINITION_HDR_ID);
969: END IF;
970: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
971: FND_MSG_PUB.ADD;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: END;
974:
975: -- Validate input data in p_reliability_data_rec
976: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
981: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_obj_version_num);
982: END IF;
983: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
984: FND_MSG_PUB.ADD;
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
987:
988: --Delete the child records before deleting the master record.
989: DELETE AHL_RA_DEFINITION_DTLS
1001: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has been deleted --');
1002: END IF;
1003:
1004: -- Standard check for p_commit
1005: IF FND_API.To_Boolean (p_commit) THEN
1006: COMMIT;
1007: END IF;
1008:
1009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1013: -- Standard call to get message count and if count is 1, get message
1014: FND_MSG_PUB.Count_And_Get
1015: ( p_count => x_msg_count,
1016: p_data => x_msg_data,
1017: p_encoded => fnd_api.g_false);
1018:
1019: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1021: END IF;
1020: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1021: END IF;
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1027: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1028: p_data => x_msg_data,
1021: END IF;
1022:
1023: EXCEPTION
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1027: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1028: p_data => x_msg_data,
1029: p_encoded => fnd_api.g_false);
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1027: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1028: p_data => x_msg_data,
1029: p_encoded => fnd_api.g_false);
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1027: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1028: p_data => x_msg_data,
1029: p_encoded => fnd_api.g_false);
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1034: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1035: p_data => x_msg_data,
1028: p_data => x_msg_data,
1029: p_encoded => fnd_api.g_false);
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1034: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1035: p_data => x_msg_data,
1036: p_encoded => fnd_api.g_false);
1032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1034: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1035: p_data => x_msg_data,
1036: p_encoded => fnd_api.g_false);
1037:
1038: WHEN OTHERS THEN
1039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1035: p_data => x_msg_data,
1036: p_encoded => fnd_api.g_false);
1037:
1038: WHEN OTHERS THEN
1039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: ROLLBACK TO DELETE_RELIABILITY_DATA_SP;
1041: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1043: p_procedure_name => 'DELETE_RELIABILITY_DATA',
1044: p_error_text => SUBSTR(SQLERRM,1,240));
1045: END IF;
1046: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1047: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1049:
1050: END DELETE_RELIABILITY_DATA;
1051:
1052:
1058: -- Pre-reqs :
1059: --
1060: -- Standard IN Parameters :
1061: -- p_api_version IN NUMBER Required
1062: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1063: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1064: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1065: --
1066: -- Standard OUT Parameters :
1059: --
1060: -- Standard IN Parameters :
1061: -- p_api_version IN NUMBER Required
1062: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1063: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1064: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1065: --
1066: -- Standard OUT Parameters :
1067: -- x_return_status OUT VARCHAR2 Required
1060: -- Standard IN Parameters :
1061: -- p_api_version IN NUMBER Required
1062: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1063: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1064: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1065: --
1066: -- Standard OUT Parameters :
1067: -- x_return_status OUT VARCHAR2 Required
1068: -- x_msg_count OUT NUMBER Required
1106: -- Standard start of API savepoint
1107: SAVEPOINT CREATE_MTBF_DATA_SP;
1108:
1109: -- Standard call to check for call compatibility
1110: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: -- Initialize message list if p_init_msg_list is set to TRUE
1107: SAVEPOINT CREATE_MTBF_DATA_SP;
1108:
1109: -- Standard call to check for call compatibility
1110: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: -- Initialize message list if p_init_msg_list is set to TRUE
1115: IF FND_API.To_Boolean(p_init_msg_list) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: -- Initialize message list if p_init_msg_list is set to TRUE
1115: IF FND_API.To_Boolean(p_init_msg_list) THEN
1116: FND_MSG_PUB.Initialize;
1117: END IF;
1118:
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1115: IF FND_API.To_Boolean(p_init_msg_list) THEN
1116: FND_MSG_PUB.Initialize;
1117: END IF;
1118:
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120:
1121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1122: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------BEGIN-----------');
1123: END IF;
1136: END IF;
1137: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1138: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1139: FND_MSG_PUB.ADD;
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142:
1143: --Mandatory validations for CounterId and RA_DEFINITION_HDR_ID
1144: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL) OR
1152: END IF;
1153: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1154: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1155: FND_MSG_PUB.ADD;
1156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1157: END IF;
1158:
1159: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1160: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID <> l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID)) THEN
1164: END IF;
1165: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1166: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1167: FND_MSG_PUB.ADD;
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1172: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1216: END IF;
1217: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1218: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_RA_DEF_DTL_DATA');
1219: FND_MSG_PUB.ADD;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END;
1222:
1223: --MTBF should be >= 0 if not null
1224: IF(l_ra_def_dtl_rec.MTBF_VALUE IS NOT NULL and l_ra_def_dtl_rec.MTBF_VALUE < 0) THEN
1228: FND_MESSAGE.Set_Name('AHL','AHL_RA_MTBF_INV');
1229: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1230: FND_MESSAGE.Set_Token('MTBF', l_ra_def_dtl_rec.MTBF_VALUE);
1231: FND_MSG_PUB.ADD;
1232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1233: END IF;
1234:
1235: --Uniqueness Check for the counterId
1236: BEGIN
1248:
1249: FND_MESSAGE.Set_Name('AHL','AHL_RA_REL_DTL_EXISTS');
1250: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1251: FND_MSG_PUB.ADD;
1252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1253:
1254: EXCEPTION
1255: WHEN NO_DATA_FOUND THEN
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1276: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1277: END IF;
1278: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1279: FND_MSG_PUB.ADD;
1280: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1281: END;
1282:
1283: -- Validate input data in p_x_reliability_data_rec
1284: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1289: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN in db : ' || l_m_obj_version_num);
1290: END IF;
1291: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1292: FND_MSG_PUB.ADD;
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: END IF;
1295:
1296: -- Initialize RA_DEFINITION_DTL_ID to sequence next val for insert
1297: SELECT AHL_RA_DEFINITION_DTLS_S.NEXTVAL into l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID from dual;
1382:
1383: p_x_reliability_data_rec := l_ra_def_hdr_rec;
1384:
1385: -- Standard check for p_commit
1386: IF FND_API.To_Boolean (p_commit) THEN
1387: COMMIT;
1388: END IF;
1389:
1390: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1394: -- Standard call to get message count and if count is 1, get message
1395: FND_MSG_PUB.Count_And_Get
1396: ( p_count => x_msg_count,
1397: p_data => x_msg_data,
1398: p_encoded => fnd_api.g_false);
1399:
1400: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1401: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
1402: END IF;
1401: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
1402: END IF;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: ROLLBACK TO CREATE_MTBF_DATA_SP;
1408: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1409: p_data => x_msg_data,
1402: END IF;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: ROLLBACK TO CREATE_MTBF_DATA_SP;
1408: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1409: p_data => x_msg_data,
1410: p_encoded => fnd_api.g_false);
1406: x_return_status := FND_API.G_RET_STS_ERROR;
1407: ROLLBACK TO CREATE_MTBF_DATA_SP;
1408: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1409: p_data => x_msg_data,
1410: p_encoded => fnd_api.g_false);
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: ROLLBACK TO CREATE_MTBF_DATA_SP;
1408: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1409: p_data => x_msg_data,
1410: p_encoded => fnd_api.g_false);
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: ROLLBACK TO CREATE_MTBF_DATA_SP;
1415: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1416: p_data => x_msg_data,
1409: p_data => x_msg_data,
1410: p_encoded => fnd_api.g_false);
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: ROLLBACK TO CREATE_MTBF_DATA_SP;
1415: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1416: p_data => x_msg_data,
1417: p_encoded => fnd_api.g_false);
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: ROLLBACK TO CREATE_MTBF_DATA_SP;
1415: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1416: p_data => x_msg_data,
1417: p_encoded => fnd_api.g_false);
1418:
1419: WHEN OTHERS THEN
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: ROLLBACK TO CREATE_MTBF_DATA_SP;
1416: p_data => x_msg_data,
1417: p_encoded => fnd_api.g_false);
1418:
1419: WHEN OTHERS THEN
1420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: ROLLBACK TO CREATE_MTBF_DATA_SP;
1422: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1423: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1424: p_procedure_name => 'CREATE_MTBF_DATA',
1425: p_error_text => SUBSTR(SQLERRM,1,240));
1426: END IF;
1427: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1428: p_data => x_msg_data,
1429: p_encoded => fnd_api.g_false);
1430:
1431: END CREATE_MTBF_DATA;
1432:
1433:
1439: -- Pre-reqs :
1440: --
1441: -- Standard IN Parameters :
1442: -- p_api_version IN NUMBER Required
1443: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1444: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1445: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1446: --
1447: -- Standard OUT Parameters :
1440: --
1441: -- Standard IN Parameters :
1442: -- p_api_version IN NUMBER Required
1443: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1444: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1445: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1446: --
1447: -- Standard OUT Parameters :
1448: -- x_return_status OUT VARCHAR2 Required
1441: -- Standard IN Parameters :
1442: -- p_api_version IN NUMBER Required
1443: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1444: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1445: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1446: --
1447: -- Standard OUT Parameters :
1448: -- x_return_status OUT VARCHAR2 Required
1449: -- x_msg_count OUT NUMBER Required
1457: --
1458: -- End of Comments --
1459: PROCEDURE UPDATE_MTBF_DATA (
1460: p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_module_type IN VARCHAR2,
1465: x_return_status OUT NOCOPY VARCHAR2,
1458: -- End of Comments --
1459: PROCEDURE UPDATE_MTBF_DATA (
1460: p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_module_type IN VARCHAR2,
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1459: PROCEDURE UPDATE_MTBF_DATA (
1460: p_api_version IN NUMBER,
1461: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1462: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1463: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1464: p_module_type IN VARCHAR2,
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1467: x_msg_data OUT NOCOPY VARCHAR2,
1496: -- Standard start of API savepoint
1497: SAVEPOINT UPDATE_MTBF_DATA_SP;
1498:
1499: -- Standard call to check for call compatibility
1500: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502: END IF;
1503:
1504: -- Initialize message list if p_init_msg_list is set to TRUE
1497: SAVEPOINT UPDATE_MTBF_DATA_SP;
1498:
1499: -- Standard call to check for call compatibility
1500: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502: END IF;
1503:
1504: -- Initialize message list if p_init_msg_list is set to TRUE
1505: IF FND_API.To_Boolean(p_init_msg_list) THEN
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502: END IF;
1503:
1504: -- Initialize message list if p_init_msg_list is set to TRUE
1505: IF FND_API.To_Boolean(p_init_msg_list) THEN
1506: FND_MSG_PUB.Initialize;
1507: END IF;
1508:
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1505: IF FND_API.To_Boolean(p_init_msg_list) THEN
1506: FND_MSG_PUB.Initialize;
1507: END IF;
1508:
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1510:
1511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1512: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------BEGIN-----------');
1513: END IF;
1526: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1527: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1528: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1529: FND_MSG_PUB.ADD;
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532: END IF;
1533:
1534: --RA_DEFINITION_DTL_ID and OBJECT_VERSION_NUMBER are mandatory
1532: END IF;
1533:
1534: --RA_DEFINITION_DTL_ID and OBJECT_VERSION_NUMBER are mandatory
1535: IF( l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID IS NULL OR
1536: l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID = FND_API.G_MISS_NUM OR
1537: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL OR
1538: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM OR
1539: l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1540: l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1534: --RA_DEFINITION_DTL_ID and OBJECT_VERSION_NUMBER are mandatory
1535: IF( l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID IS NULL OR
1536: l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID = FND_API.G_MISS_NUM OR
1537: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL OR
1538: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM OR
1539: l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1540: l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1541: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL)) THEN
1542: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1535: IF( l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID IS NULL OR
1536: l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID = FND_API.G_MISS_NUM OR
1537: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL OR
1538: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM OR
1539: l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1540: l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1541: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL)) THEN
1542: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1543: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1536: l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID = FND_API.G_MISS_NUM OR
1537: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER IS NULL OR
1538: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM OR
1539: l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1540: l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID = FND_API.G_MISS_NUM OR
1541: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL)) THEN
1542: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1543: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1544: FND_MSG_PUB.ADD;
1541: (l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NULL)) THEN
1542: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1543: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1544: FND_MSG_PUB.ADD;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: END IF;
1547:
1548: --Check that both the HDR_ID is same in both the master and child records.
1549: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID IS NOT NULL AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1554: END IF;
1555: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1556: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1557: FND_MSG_PUB.ADD;
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1562: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1576: IF(get_mtbf_data_cur%NOTFOUND) THEN
1577: CLOSE get_mtbf_data_cur;
1578: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1579: FND_MSG_PUB.ADD;
1580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1581: END IF;
1582: CLOSE get_mtbf_data_cur;
1583:
1584: IF(l_mtbf_data_old_rec.OBJECT_VERSION_NUMBER <> l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER) THEN
1586: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1587: END IF;
1588: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1589: FND_MSG_PUB.ADD;
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591: END IF;
1592:
1593: -- Default missing and unchanged attributes.
1594: IF (p_module_type <> 'OAF') THEN
1606:
1607: -- Default COUNTER_ID
1608: IF (l_ra_def_dtl_rec.COUNTER_ID IS NULL) THEN
1609: l_ra_def_dtl_rec.COUNTER_ID := l_mtbf_data_old_rec.COUNTER_ID;
1610: ELSIF l_ra_def_dtl_rec.COUNTER_ID = FND_API.G_MISS_NUM THEN
1611: l_ra_def_dtl_rec.COUNTER_ID := NULL;
1612: END IF;
1613:
1614: -- Default MTBF_VALUE
1613:
1614: -- Default MTBF_VALUE
1615: IF (l_ra_def_dtl_rec.MTBF_VALUE IS NULL) THEN
1616: l_ra_def_dtl_rec.MTBF_VALUE := l_mtbf_data_old_rec.MTBF_VALUE;
1617: ELSIF l_ra_def_dtl_rec.MTBF_VALUE = FND_API.G_MISS_NUM THEN
1618: l_ra_def_dtl_rec.MTBF_VALUE := NULL;
1619: END IF;
1620:
1621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1661: END IF;
1662: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1663: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_RA_DEF_DTL_DATA');
1664: FND_MSG_PUB.ADD;
1665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1666: END;
1667:
1668: --MTBF should be >= 0 if not null
1669: IF(l_ra_def_dtl_rec.MTBF_VALUE IS NOT NULL AND l_ra_def_dtl_rec.MTBF_VALUE < 0) THEN
1670: FND_MESSAGE.Set_Name('AHL','AHL_RA_MTBF_INV');
1671: FND_MESSAGE.Set_Token('COUNTER',l_cou_name);
1672: FND_MESSAGE.Set_Token('MTBF', l_ra_def_dtl_rec.MTBF_VALUE);
1673: FND_MSG_PUB.ADD;
1674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1675: END IF;
1676:
1677: -- Check for existence of record and fetch OVN of Master Rec for change record validation and bump up
1678: BEGIN
1692: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1693: END IF;
1694: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1695: FND_MSG_PUB.ADD;
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END;
1698:
1699: -- Validate input data in p_x_reliability_data_rec
1700: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1705: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
1706: END IF;
1707: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1708: FND_MSG_PUB.ADD;
1709: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712: -- Increment object version number
1713: l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER := l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER + 1;
1762:
1763: p_x_reliability_data_rec := l_ra_def_hdr_rec;
1764:
1765: -- Standard check for p_commit
1766: IF FND_API.To_Boolean (p_commit) THEN
1767: COMMIT;
1768: END IF;
1769:
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1774: -- Standard call to get message count and if count is 1, get message
1775: FND_MSG_PUB.Count_And_Get
1776: ( p_count => x_msg_count,
1777: p_data => x_msg_data,
1778: p_encoded => fnd_api.g_false);
1779:
1780: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1781: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1782: END IF;
1781: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
1782: END IF;
1783:
1784: EXCEPTION
1785: WHEN FND_API.G_EXC_ERROR THEN
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: Rollback to UPDATE_MTBF_DATA_SP;
1788: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1789: p_data => x_msg_data,
1782: END IF;
1783:
1784: EXCEPTION
1785: WHEN FND_API.G_EXC_ERROR THEN
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: Rollback to UPDATE_MTBF_DATA_SP;
1788: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1789: p_data => x_msg_data,
1790: p_encoded => fnd_api.g_false);
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: Rollback to UPDATE_MTBF_DATA_SP;
1788: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1789: p_data => x_msg_data,
1790: p_encoded => fnd_api.g_false);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: Rollback to UPDATE_MTBF_DATA_SP;
1788: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1789: p_data => x_msg_data,
1790: p_encoded => fnd_api.g_false);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: Rollback to UPDATE_MTBF_DATA_SP;
1795: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1796: p_data => x_msg_data,
1789: p_data => x_msg_data,
1790: p_encoded => fnd_api.g_false);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: Rollback to UPDATE_MTBF_DATA_SP;
1795: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1796: p_data => x_msg_data,
1797: p_encoded => fnd_api.g_false);
1793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: Rollback to UPDATE_MTBF_DATA_SP;
1795: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1796: p_data => x_msg_data,
1797: p_encoded => fnd_api.g_false);
1798:
1799: WHEN OTHERS THEN
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801: Rollback to UPDATE_MTBF_DATA_SP;
1796: p_data => x_msg_data,
1797: p_encoded => fnd_api.g_false);
1798:
1799: WHEN OTHERS THEN
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801: Rollback to UPDATE_MTBF_DATA_SP;
1802: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1803: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1804: p_procedure_name => 'UPDATE_MTBF_DATA',
1805: p_error_text => SUBSTR(SQLERRM,1,240));
1806: END IF;
1807: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1808: p_data => x_msg_data,
1809: p_encoded => fnd_api.g_false);
1810:
1811: END UPDATE_MTBF_DATA;
1812:
1813:
1819: -- Pre-reqs :
1820: --
1821: -- Standard IN Parameters :
1822: -- p_api_version IN NUMBER Required
1823: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1824: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1825: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1826: --
1827: -- Standard OUT Parameters :
1820: --
1821: -- Standard IN Parameters :
1822: -- p_api_version IN NUMBER Required
1823: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1824: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1825: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1826: --
1827: -- Standard OUT Parameters :
1828: -- x_return_status OUT VARCHAR2 Required
1821: -- Standard IN Parameters :
1822: -- p_api_version IN NUMBER Required
1823: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1824: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1825: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1826: --
1827: -- Standard OUT Parameters :
1828: -- x_return_status OUT VARCHAR2 Required
1829: -- x_msg_count OUT NUMBER Required
1837: --
1838: -- End of Comments --
1839: PROCEDURE DELETE_MTBF_DATA (
1840: p_api_version IN NUMBER,
1841: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1842: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1843: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1844: p_module_type IN VARCHAR2,
1845: x_return_status OUT NOCOPY VARCHAR2,
1838: -- End of Comments --
1839: PROCEDURE DELETE_MTBF_DATA (
1840: p_api_version IN NUMBER,
1841: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1842: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1843: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1844: p_module_type IN VARCHAR2,
1845: x_return_status OUT NOCOPY VARCHAR2,
1846: x_msg_count OUT NOCOPY NUMBER,
1839: PROCEDURE DELETE_MTBF_DATA (
1840: p_api_version IN NUMBER,
1841: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1842: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1843: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1844: p_module_type IN VARCHAR2,
1845: x_return_status OUT NOCOPY VARCHAR2,
1846: x_msg_count OUT NOCOPY NUMBER,
1847: x_msg_data OUT NOCOPY VARCHAR2,
1866: -- Standard start of API savepoint
1867: SAVEPOINT DELETE_MTBF_DATA_SP;
1868:
1869: -- Standard call to check for call compatibility
1870: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1872: END IF;
1873:
1874: -- Initialize message list if p_init_msg_list is set to TRUE
1867: SAVEPOINT DELETE_MTBF_DATA_SP;
1868:
1869: -- Standard call to check for call compatibility
1870: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1872: END IF;
1873:
1874: -- Initialize message list if p_init_msg_list is set to TRUE
1875: IF FND_API.To_Boolean(p_init_msg_list) THEN
1871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1872: END IF;
1873:
1874: -- Initialize message list if p_init_msg_list is set to TRUE
1875: IF FND_API.To_Boolean(p_init_msg_list) THEN
1876: FND_MSG_PUB.Initialize;
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1875: IF FND_API.To_Boolean(p_init_msg_list) THEN
1876: FND_MSG_PUB.Initialize;
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1882: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------BEGIN-----------');
1883: END IF;
1888: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
1889: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
1890: FND_MESSAGE.Set_Token('FIELD',l_ra_def_dtl_rec.OPERATION_FLAG);
1891: FND_MSG_PUB.ADD;
1892: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1893: END IF;
1894: END IF;
1895:
1896: -- Validate input data in l_ra_def_dtl_rec
1907: END IF;
1908: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1909: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DET_DATA');
1910: FND_MSG_PUB.ADD;
1911: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1912: END IF;
1913:
1914: --Check that both the HDR_ID is same in both the master and child records.
1915: IF ((l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID is not null AND l_ra_def_hdr_rec.RA_DEFINITION_HDR_ID IS NOT NULL) AND
1920: END IF;
1921: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
1922: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_RA_DEF_DTL_DATA');
1923: FND_MSG_PUB.ADD;
1924: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1925: END IF;
1926:
1927: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Default RA_DEFINITION_HDR_ID in child rec from header rec and vice-versa- if passed as null. -- ');
1953: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_DTL_ID);
1954: END IF;
1955: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1956: FND_MSG_PUB.ADD;
1957: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1958: END;
1959:
1960: -- Validate input data in l_ra_def_dtl_rec
1961: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
1964: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_dtl_rec.OBJECT_VERSION_NUMBER);
1965: END IF;
1966: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1967: FND_MSG_PUB.ADD;
1968: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1969: END IF;
1970:
1971: -- Check for existence of record and fetch OVN of Master Rec for change record validation and bump up
1972: BEGIN
1986: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master DATA DOES NOT EXISTS -- ERROR ... ' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
1987: END IF;
1988: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
1989: FND_MSG_PUB.ADD;
1990: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1991: END;
1992:
1993: -- Validate input data in p_x_reliability_data_rec
1994: -- A. RECORD SHOULD NOT HAVE CHANGED. i.e. object_version_number should not change.
1999: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN in db : ' || l_m_obj_version_num);
2000: END IF;
2001: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2002: FND_MSG_PUB.ADD;
2003: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2004: END IF;
2005:
2006: -- Delete Record from AHL_RA_DEFINITION_DTLS
2007: DELETE AHL_RA_DEFINITION_DTLS
2016:
2017: p_x_reliability_data_rec := l_ra_def_hdr_rec;
2018:
2019: -- Standard check for p_commit
2020: IF FND_API.To_Boolean (p_commit) THEN
2021: COMMIT;
2022: END IF;
2023:
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2028: -- Standard call to get message count and if count is 1, get message
2029: FND_MSG_PUB.Count_And_Get
2030: ( p_count => x_msg_count,
2031: p_data => x_msg_data,
2032: p_encoded => fnd_api.g_false);
2033:
2034: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2035: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2036: END IF;
2035: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2036: END IF;
2037:
2038: EXCEPTION
2039: WHEN FND_API.G_EXC_ERROR THEN
2040: x_return_status := FND_API.G_RET_STS_ERROR;
2041: Rollback to DELETE_MTBF_DATA_SP;
2042: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2043: p_data => x_msg_data,
2036: END IF;
2037:
2038: EXCEPTION
2039: WHEN FND_API.G_EXC_ERROR THEN
2040: x_return_status := FND_API.G_RET_STS_ERROR;
2041: Rollback to DELETE_MTBF_DATA_SP;
2042: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2043: p_data => x_msg_data,
2044: p_encoded => fnd_api.g_false);
2040: x_return_status := FND_API.G_RET_STS_ERROR;
2041: Rollback to DELETE_MTBF_DATA_SP;
2042: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2043: p_data => x_msg_data,
2044: p_encoded => fnd_api.g_false);
2045:
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: Rollback to DELETE_MTBF_DATA_SP;
2042: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2043: p_data => x_msg_data,
2044: p_encoded => fnd_api.g_false);
2045:
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: Rollback to DELETE_MTBF_DATA_SP;
2049: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2050: p_data => x_msg_data,
2043: p_data => x_msg_data,
2044: p_encoded => fnd_api.g_false);
2045:
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: Rollback to DELETE_MTBF_DATA_SP;
2049: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2050: p_data => x_msg_data,
2051: p_encoded => fnd_api.g_false);
2047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2048: Rollback to DELETE_MTBF_DATA_SP;
2049: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2050: p_data => x_msg_data,
2051: p_encoded => fnd_api.g_false);
2052:
2053: WHEN OTHERS THEN
2054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2055: Rollback to DELETE_MTBF_DATA_SP;
2050: p_data => x_msg_data,
2051: p_encoded => fnd_api.g_false);
2052:
2053: WHEN OTHERS THEN
2054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2055: Rollback to DELETE_MTBF_DATA_SP;
2056: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2057: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2058: p_procedure_name => 'DELETE_MTBF_DATA',
2059: p_error_text => SUBSTR(SQLERRM,1,240));
2060: END IF;
2061: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2062: p_data => x_msg_data,
2063: p_encoded => fnd_api.g_false);
2064:
2065: END DELETE_MTBF_DATA;
2066:
2067:
2074: -- Pre-reqs :
2075: --
2076: -- Standard IN Parameters :
2077: -- p_api_version IN NUMBER Required
2078: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2079: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2080: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2081: --
2082: -- Standard OUT Parameters :
2075: --
2076: -- Standard IN Parameters :
2077: -- p_api_version IN NUMBER Required
2078: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2079: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2080: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2081: --
2082: -- Standard OUT Parameters :
2083: -- x_return_status OUT VARCHAR2 Required
2076: -- Standard IN Parameters :
2077: -- p_api_version IN NUMBER Required
2078: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2079: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2080: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2081: --
2082: -- Standard OUT Parameters :
2083: -- x_return_status OUT VARCHAR2 Required
2084: -- x_msg_count OUT NUMBER Required
2092: --
2093: -- End of Comments --
2094: PROCEDURE CREATE_COUNTER_ASSOC (
2095: p_api_version IN NUMBER,
2096: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2097: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2098: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2099: p_module_type IN VARCHAR2,
2100: x_return_status OUT NOCOPY VARCHAR2,
2093: -- End of Comments --
2094: PROCEDURE CREATE_COUNTER_ASSOC (
2095: p_api_version IN NUMBER,
2096: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2097: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2098: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2099: p_module_type IN VARCHAR2,
2100: x_return_status OUT NOCOPY VARCHAR2,
2101: x_msg_count OUT NOCOPY NUMBER,
2094: PROCEDURE CREATE_COUNTER_ASSOC (
2095: p_api_version IN NUMBER,
2096: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2097: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2098: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2099: p_module_type IN VARCHAR2,
2100: x_return_status OUT NOCOPY VARCHAR2,
2101: x_msg_count OUT NOCOPY NUMBER,
2102: x_msg_data OUT NOCOPY VARCHAR2,
2122: -- Standard start of API savepoint
2123: SAVEPOINT CREATE_COUNTER_ASSOC_SP;
2124:
2125: -- Standard call to check for call compatibility
2126: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- Initialize message list if p_init_msg_list is set to TRUE
2123: SAVEPOINT CREATE_COUNTER_ASSOC_SP;
2124:
2125: -- Standard call to check for call compatibility
2126: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- Initialize message list if p_init_msg_list is set to TRUE
2131: IF FND_API.To_Boolean(p_init_msg_list) THEN
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- Initialize message list if p_init_msg_list is set to TRUE
2131: IF FND_API.To_Boolean(p_init_msg_list) THEN
2132: FND_MSG_PUB.Initialize;
2133: END IF;
2134:
2135: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131: IF FND_API.To_Boolean(p_init_msg_list) THEN
2132: FND_MSG_PUB.Initialize;
2133: END IF;
2134:
2135: x_return_status := FND_API.G_RET_STS_SUCCESS;
2136:
2137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2138: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_COUNTER_ASSOC -------BEGIN-----------');
2139: END IF;
2153: END IF;
2154: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2155: FND_MESSAGE.Set_Token('FIELD',l_counter_assoc_rec.OPERATION_FLAG);
2156: FND_MSG_PUB.ADD;
2157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2158: END IF;
2159:
2160: --Mandatory validation for the Since New Counter
2161: IF(l_counter_assoc_rec.SINCE_NEW_COUNTER_ID is null) THEN
2161: IF(l_counter_assoc_rec.SINCE_NEW_COUNTER_ID is null) THEN
2162: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2163: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2164: FND_MSG_PUB.ADD;
2165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2166: END IF;
2167:
2168:
2169: --Validate value of the since new counter passed
2195: END IF;
2196: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2197: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2198: FND_MSG_PUB.ADD;
2199: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2200: END;
2201:
2202: --Validate Since overhaul counter id passed
2203: IF(l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID IS NOT NULL) THEN
2229: END IF;
2230: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2231: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_COU_DATA');
2232: FND_MSG_PUB.ADD;
2233: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2234: END;
2235: END IF;
2236:
2237:
2240: IF(l_counter_assoc_rec.SINCE_NEW_COUNTER_ID = l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID) THEN
2241: FND_MESSAGE.Set_Name('AHL','AHL_RA_NEW_OHAUL_COU_SAME');
2242: FND_MESSAGE.Set_Token('COUNTER', l_new_cou_name);
2243: FND_MSG_PUB.ADD;
2244: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2245: END IF;
2246: END IF;
2247:
2248: --UOM of Since New and Since Overhaul Counters should be same
2255: FND_MESSAGE.Set_Token('OHAUL_COUNTER', l_overhaul_cou_name);
2256: FND_MESSAGE.Set_Token('NEW_COU_UOM', l_new_cou_uom);
2257: FND_MESSAGE.Set_Token('OHAUL_COU_UOM', l_overhaul_cou_uom);
2258: FND_MSG_PUB.ADD;
2259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2260: END IF;
2261: END IF;
2262: END IF;
2263:
2276:
2277: FND_MESSAGE.Set_Name('AHL','AHL_RA_NEW_COU_DEF_OHAUL');
2278: FND_MESSAGE.Set_Token('COUNTER', l_new_cou_name);
2279: FND_MSG_PUB.ADD;
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281:
2282: EXCEPTION
2283: WHEN NO_DATA_FOUND THEN
2284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2302:
2303: FND_MESSAGE.Set_Name('AHL','AHL_RA_OHAUL_COU_DEF_NEW');
2304: FND_MESSAGE.Set_Token('COUNTER', l_overhaul_cou_name);
2305: FND_MSG_PUB.ADD;
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307:
2308: EXCEPTION
2309: WHEN NO_DATA_FOUND THEN
2310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2331: FND_MESSAGE.Set_Name('AHL','AHL_RA_DUP_COU_ASSOC');
2332: FND_MESSAGE.Set_Token('NEW_COUNTER',l_new_cou_name );
2333: FND_MESSAGE.Set_Token('OHAUL_COUNTER', l_overhaul_cou_name);
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336:
2337: EXCEPTION
2338: WHEN NO_DATA_FOUND THEN
2339: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2422: -- Set the Out Param
2423: p_x_counter_assoc_rec := l_counter_assoc_rec;
2424:
2425: -- Standard check for p_commit
2426: IF FND_API.To_Boolean (p_commit) THEN
2427: COMMIT;
2428: END IF;
2429:
2430:
2436: -- Standard call to get message count and if count is 1, get message
2437: FND_MSG_PUB.Count_And_Get
2438: ( p_count => x_msg_count,
2439: p_data => x_msg_data,
2440: p_encoded => fnd_api.g_false);
2441:
2442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2443: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2444: END IF;
2443: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
2444: END IF;
2445:
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: Rollback to CREATE_COUNTER_ASSOC_SP;
2450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2451: p_data => x_msg_data,
2444: END IF;
2445:
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: Rollback to CREATE_COUNTER_ASSOC_SP;
2450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2451: p_data => x_msg_data,
2452: p_encoded => fnd_api.g_false);
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: Rollback to CREATE_COUNTER_ASSOC_SP;
2450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2451: p_data => x_msg_data,
2452: p_encoded => fnd_api.g_false);
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to CREATE_COUNTER_ASSOC_SP;
2450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2451: p_data => x_msg_data,
2452: p_encoded => fnd_api.g_false);
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to CREATE_COUNTER_ASSOC_SP;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2451: p_data => x_msg_data,
2452: p_encoded => fnd_api.g_false);
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to CREATE_COUNTER_ASSOC_SP;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2456: Rollback to CREATE_COUNTER_ASSOC_SP;
2457: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2460:
2461: WHEN OTHERS THEN
2462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2463: Rollback to CREATE_COUNTER_ASSOC_SP;
2458: p_data => x_msg_data,
2459: p_encoded => fnd_api.g_false);
2460:
2461: WHEN OTHERS THEN
2462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2463: Rollback to CREATE_COUNTER_ASSOC_SP;
2464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2465: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2466: p_procedure_name => 'CREATE_COUNTER_ASSOC',
2467: p_error_text => SUBSTR(SQLERRM,1,240));
2468: END IF;
2469: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2470: p_data => x_msg_data,
2471: p_encoded => fnd_api.g_false);
2472:
2473: END CREATE_COUNTER_ASSOC;
2474:
2475: -- Start of Comments --
2480: -- Pre-reqs :
2481: --
2482: -- Standard IN Parameters :
2483: -- p_api_version IN NUMBER Required
2484: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2485: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2486: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2487: --
2488: -- Standard OUT Parameters :
2481: --
2482: -- Standard IN Parameters :
2483: -- p_api_version IN NUMBER Required
2484: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2485: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2486: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2487: --
2488: -- Standard OUT Parameters :
2489: -- x_return_status OUT VARCHAR2 Required
2482: -- Standard IN Parameters :
2483: -- p_api_version IN NUMBER Required
2484: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2485: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2486: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2487: --
2488: -- Standard OUT Parameters :
2489: -- x_return_status OUT VARCHAR2 Required
2490: -- x_msg_count OUT NUMBER Required
2498: --
2499: -- End of Comments --
2500: PROCEDURE DELETE_COUNTER_ASSOC (
2501: p_api_version IN NUMBER,
2502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2505: p_module_type IN VARCHAR2,
2506: x_return_status OUT NOCOPY VARCHAR2,
2499: -- End of Comments --
2500: PROCEDURE DELETE_COUNTER_ASSOC (
2501: p_api_version IN NUMBER,
2502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2505: p_module_type IN VARCHAR2,
2506: x_return_status OUT NOCOPY VARCHAR2,
2507: x_msg_count OUT NOCOPY NUMBER,
2500: PROCEDURE DELETE_COUNTER_ASSOC (
2501: p_api_version IN NUMBER,
2502: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2503: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2504: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2505: p_module_type IN VARCHAR2,
2506: x_return_status OUT NOCOPY VARCHAR2,
2507: x_msg_count OUT NOCOPY NUMBER,
2508: x_msg_data OUT NOCOPY VARCHAR2,
2523: -- Standard start of API savepoint
2524: SAVEPOINT DELETE_COUNTER_ASSOC_SP;
2525:
2526: -- Standard call to check for call compatibility
2527: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END IF;
2530:
2531: -- Initialize message list if p_init_msg_list is set to TRUE
2524: SAVEPOINT DELETE_COUNTER_ASSOC_SP;
2525:
2526: -- Standard call to check for call compatibility
2527: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END IF;
2530:
2531: -- Initialize message list if p_init_msg_list is set to TRUE
2532: IF FND_API.To_Boolean(p_init_msg_list) THEN
2528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END IF;
2530:
2531: -- Initialize message list if p_init_msg_list is set to TRUE
2532: IF FND_API.To_Boolean(p_init_msg_list) THEN
2533: FND_MSG_PUB.Initialize;
2534: END IF;
2535:
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2532: IF FND_API.To_Boolean(p_init_msg_list) THEN
2533: FND_MSG_PUB.Initialize;
2534: END IF;
2535:
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2539: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------BEGIN-----------');
2540: END IF;
2545: END IF;
2546: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_DML_REC');
2547: FND_MESSAGE.Set_Token('FIELD',p_counter_assoc_rec.OPERATION_FLAG);
2548: FND_MSG_PUB.ADD;
2549: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2550: END IF;
2551:
2552: -- Validate input data in p_counter_assoc_rec
2553: -- A. p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID Cannot be NULL
2560: END IF;
2561: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2562: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_COU_DATA');
2563: FND_MSG_PUB.ADD;
2564: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2565: END IF;
2566:
2567: -- Check for existence of record and fetch OVN for change record validation
2568: BEGIN
2582: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID);
2583: END IF;
2584: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
2585: FND_MSG_PUB.ADD;
2586: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2587: END;
2588:
2589: -- Validate input data in p_counter_assoc_rec
2590: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
2593: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
2594: END IF;
2595: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2596: FND_MSG_PUB.ADD;
2597: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2598: END IF;
2599:
2600: -- Delete Record from AHL_RA_CTR_ASSOCIATIONS
2601: DELETE AHL_RA_CTR_ASSOCIATIONS
2601: DELETE AHL_RA_CTR_ASSOCIATIONS
2602: WHERE RA_COUNTER_ASSOCIATION_ID = p_counter_assoc_rec.RA_COUNTER_ASSOCIATION_ID;
2603:
2604: -- Standard check for p_commit
2605: IF FND_API.To_Boolean (p_commit) THEN
2606: COMMIT;
2607: END IF;
2608:
2609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2613: -- Standard call to get message count and if count is 1, get message
2614: FND_MSG_PUB.Count_And_Get
2615: ( p_count => x_msg_count,
2616: p_data => x_msg_data,
2617: p_encoded => fnd_api.g_false);
2618:
2619: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2620: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
2621: END IF;
2620: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','At the start of PLSQL procedure');
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN FND_API.G_EXC_ERROR THEN
2625: x_return_status := FND_API.G_RET_STS_ERROR;
2626: Rollback to DELETE_COUNTER_ASSOC_SP;
2627: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2628: p_data => x_msg_data,
2621: END IF;
2622:
2623: EXCEPTION
2624: WHEN FND_API.G_EXC_ERROR THEN
2625: x_return_status := FND_API.G_RET_STS_ERROR;
2626: Rollback to DELETE_COUNTER_ASSOC_SP;
2627: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2628: p_data => x_msg_data,
2629: p_encoded => fnd_api.g_false);
2625: x_return_status := FND_API.G_RET_STS_ERROR;
2626: Rollback to DELETE_COUNTER_ASSOC_SP;
2627: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2628: p_data => x_msg_data,
2629: p_encoded => fnd_api.g_false);
2630:
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: Rollback to DELETE_COUNTER_ASSOC_SP;
2627: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2628: p_data => x_msg_data,
2629: p_encoded => fnd_api.g_false);
2630:
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: Rollback to DELETE_COUNTER_ASSOC_SP;
2634: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2635: p_data => x_msg_data,
2628: p_data => x_msg_data,
2629: p_encoded => fnd_api.g_false);
2630:
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: Rollback to DELETE_COUNTER_ASSOC_SP;
2634: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2635: p_data => x_msg_data,
2636: p_encoded => fnd_api.g_false);
2632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: Rollback to DELETE_COUNTER_ASSOC_SP;
2634: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2635: p_data => x_msg_data,
2636: p_encoded => fnd_api.g_false);
2637:
2638: WHEN OTHERS THEN
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: Rollback to DELETE_COUNTER_ASSOC_SP;
2635: p_data => x_msg_data,
2636: p_encoded => fnd_api.g_false);
2637:
2638: WHEN OTHERS THEN
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: Rollback to DELETE_COUNTER_ASSOC_SP;
2641: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2642: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2643: p_procedure_name => 'DELETE_COUNTER_ASSOC',
2644: p_error_text => SUBSTR(SQLERRM,1,240));
2645: END IF;
2646: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2647: p_data => x_msg_data,
2648: p_encoded => fnd_api.g_false);
2649:
2650: END DELETE_COUNTER_ASSOC;
2651:
2652: -- Start of Comments --
2657: -- Pre-reqs :
2658: --
2659: -- Standard IN Parameters :
2660: -- p_api_version IN NUMBER Required
2661: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2662: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2663: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2664: --
2665: -- Standard OUT Parameters :
2658: --
2659: -- Standard IN Parameters :
2660: -- p_api_version IN NUMBER Required
2661: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2662: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2663: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2664: --
2665: -- Standard OUT Parameters :
2666: -- x_return_status OUT VARCHAR2 Required
2659: -- Standard IN Parameters :
2660: -- p_api_version IN NUMBER Required
2661: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
2662: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
2663: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
2664: --
2665: -- Standard OUT Parameters :
2666: -- x_return_status OUT VARCHAR2 Required
2667: -- x_msg_count OUT NUMBER Required
2675: --
2676: -- End of Comments --
2677: PROCEDURE CREATE_FCT_ASSOC_DATA (
2678: p_api_version IN NUMBER,
2679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2682: p_module_type IN VARCHAR2,
2683: x_return_status OUT NOCOPY VARCHAR2,
2676: -- End of Comments --
2677: PROCEDURE CREATE_FCT_ASSOC_DATA (
2678: p_api_version IN NUMBER,
2679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2682: p_module_type IN VARCHAR2,
2683: x_return_status OUT NOCOPY VARCHAR2,
2684: x_msg_count OUT NOCOPY NUMBER,
2677: PROCEDURE CREATE_FCT_ASSOC_DATA (
2678: p_api_version IN NUMBER,
2679: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2680: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2681: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2682: p_module_type IN VARCHAR2,
2683: x_return_status OUT NOCOPY VARCHAR2,
2684: x_msg_count OUT NOCOPY NUMBER,
2685: x_msg_data OUT NOCOPY VARCHAR2,
2701: -- Standard start of API savepoint
2702: SAVEPOINT CREATE_FCT_ASSOC_DATA_SP;
2703:
2704: -- Standard call to check for call compatibility
2705: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2707: END IF;
2708:
2709: -- Initialize message list if p_init_msg_list is set to TRUE
2702: SAVEPOINT CREATE_FCT_ASSOC_DATA_SP;
2703:
2704: -- Standard call to check for call compatibility
2705: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2707: END IF;
2708:
2709: -- Initialize message list if p_init_msg_list is set to TRUE
2710: IF FND_API.To_Boolean(p_init_msg_list) THEN
2706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2707: END IF;
2708:
2709: -- Initialize message list if p_init_msg_list is set to TRUE
2710: IF FND_API.To_Boolean(p_init_msg_list) THEN
2711: FND_MSG_PUB.Initialize;
2712: END IF;
2713:
2714: x_return_status := FND_API.G_RET_STS_SUCCESS;
2710: IF FND_API.To_Boolean(p_init_msg_list) THEN
2711: FND_MSG_PUB.Initialize;
2712: END IF;
2713:
2714: x_return_status := FND_API.G_RET_STS_SUCCESS;
2715:
2716: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2717: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------BEGIN-----------');
2718: END IF;
2742:
2743: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2744: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2745: FND_MSG_PUB.ADD;
2746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2747:
2748: END IF;
2749:
2750: IF (l_fct_assoc_rec.ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL' AND (l_fct_assoc_rec.PROBABILITY_FROM IS NULL OR
2756: END IF;
2757:
2758: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
2759: FND_MSG_PUB.ADD;
2760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2761:
2762: END IF;
2763:
2764:
2787: END IF;
2788: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2789: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2790: FND_MSG_PUB.ADD;
2791: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2792: END;
2793:
2794: -- Validate value of FORECAST_DESIGNATOR passed
2795: BEGIN
2814: END IF;
2815: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
2816: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.C_FCT_DATA');
2817: FND_MSG_PUB.ADD;
2818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2819: END;
2820:
2821:
2822: -- When ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL'
2839: END IF;
2840:
2841: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
2842: FND_MSG_PUB.ADD;
2843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2844: END IF;
2845:
2846: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
2847: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
2853: END IF;
2854:
2855: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
2856: FND_MSG_PUB.ADD;
2857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2858: END IF;
2859:
2860: -- 3. records with Overlapping values of probablities should not exist for the Org Id in AHL_RA_FCT_ASSOCIATIONS
2861: BEGIN
2883: END IF;
2884:
2885: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
2886: FND_MSG_PUB.ADD;
2887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2888:
2889: EXCEPTION
2890: WHEN NO_DATA_FOUND THEN
2891: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2913: END IF;
2914:
2915: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
2916: FND_MSG_PUB.ADD;
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918:
2919: EXCEPTION
2920: WHEN No_Data_Found THEN
2921: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2989: -- Set the Out Param
2990: p_x_fct_assoc_rec := l_fct_assoc_rec;
2991:
2992: -- Standard check for p_commit
2993: IF FND_API.To_Boolean (p_commit) THEN
2994: COMMIT;
2995: END IF;
2996:
2997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3001: -- Standard call to get message count and if count is 1, get message
3002: FND_MSG_PUB.Count_And_Get
3003: ( p_count => x_msg_count,
3004: p_data => x_msg_data,
3005: p_encoded => fnd_api.g_false);
3006:
3007: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3008: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3009: END IF;
3008: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3009: END IF;
3010:
3011: EXCEPTION
3012: WHEN FND_API.G_EXC_ERROR THEN
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3015: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3016: p_data => x_msg_data,
3009: END IF;
3010:
3011: EXCEPTION
3012: WHEN FND_API.G_EXC_ERROR THEN
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3015: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3016: p_data => x_msg_data,
3017: p_encoded => fnd_api.g_false);
3013: x_return_status := FND_API.G_RET_STS_ERROR;
3014: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3015: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3016: p_data => x_msg_data,
3017: p_encoded => fnd_api.g_false);
3018:
3019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3021: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3015: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3016: p_data => x_msg_data,
3017: p_encoded => fnd_api.g_false);
3018:
3019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3021: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3022: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3023: p_data => x_msg_data,
3016: p_data => x_msg_data,
3017: p_encoded => fnd_api.g_false);
3018:
3019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3021: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3022: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3023: p_data => x_msg_data,
3024: p_encoded => fnd_api.g_false);
3020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3021: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3022: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3023: p_data => x_msg_data,
3024: p_encoded => fnd_api.g_false);
3025:
3026: WHEN OTHERS THEN
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3028: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3023: p_data => x_msg_data,
3024: p_encoded => fnd_api.g_false);
3025:
3026: WHEN OTHERS THEN
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3028: ROLLBACK TO CREATE_FCT_ASSOC_DATA_SP;
3029: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3030: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3031: p_procedure_name => 'CREATE_FCT_ASSOC_DATA',
3032: p_error_text => SUBSTR(SQLERRM,1,240));
3033: END IF;
3034: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3035: p_data => x_msg_data,
3036: p_encoded => fnd_api.g_false);
3037:
3038: END CREATE_FCT_ASSOC_DATA;
3039:
3040:
3050: -- Pre-reqs :
3051: --
3052: -- Standard IN Parameters :
3053: -- p_api_version IN NUMBER Required
3054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3057: --
3058: -- Standard OUT Parameters :
3051: --
3052: -- Standard IN Parameters :
3053: -- p_api_version IN NUMBER Required
3054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3057: --
3058: -- Standard OUT Parameters :
3059: -- x_return_status OUT VARCHAR2 Required
3052: -- Standard IN Parameters :
3053: -- p_api_version IN NUMBER Required
3054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3057: --
3058: -- Standard OUT Parameters :
3059: -- x_return_status OUT VARCHAR2 Required
3060: -- x_msg_count OUT NUMBER Required
3068: --
3069: -- End of Comments --
3070: PROCEDURE UPDATE_FCT_ASSOC_DATA (
3071: p_api_version IN NUMBER,
3072: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3073: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3074: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3075: p_module_type IN VARCHAR2,
3076: x_return_status OUT NOCOPY VARCHAR2,
3069: -- End of Comments --
3070: PROCEDURE UPDATE_FCT_ASSOC_DATA (
3071: p_api_version IN NUMBER,
3072: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3073: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3074: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3075: p_module_type IN VARCHAR2,
3076: x_return_status OUT NOCOPY VARCHAR2,
3077: x_msg_count OUT NOCOPY NUMBER,
3070: PROCEDURE UPDATE_FCT_ASSOC_DATA (
3071: p_api_version IN NUMBER,
3072: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3073: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3074: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3075: p_module_type IN VARCHAR2,
3076: x_return_status OUT NOCOPY VARCHAR2,
3077: x_msg_count OUT NOCOPY NUMBER,
3078: x_msg_data OUT NOCOPY VARCHAR2,
3095: -- Standard start of API savepoint
3096: SAVEPOINT UPDATE_FCT_ASSOC_DATA_SP;
3097:
3098: -- Standard call to check for call compatibility
3099: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: -- Initialize message list if p_init_msg_list is set to TRUE
3096: SAVEPOINT UPDATE_FCT_ASSOC_DATA_SP;
3097:
3098: -- Standard call to check for call compatibility
3099: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: -- Initialize message list if p_init_msg_list is set to TRUE
3104: IF FND_API.To_Boolean(p_init_msg_list) THEN
3100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3101: END IF;
3102:
3103: -- Initialize message list if p_init_msg_list is set to TRUE
3104: IF FND_API.To_Boolean(p_init_msg_list) THEN
3105: FND_MSG_PUB.Initialize;
3106: END IF;
3107:
3108: x_return_status := FND_API.G_RET_STS_SUCCESS;
3104: IF FND_API.To_Boolean(p_init_msg_list) THEN
3105: FND_MSG_PUB.Initialize;
3106: END IF;
3107:
3108: x_return_status := FND_API.G_RET_STS_SUCCESS;
3109:
3110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3111: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------BEGIN-----------');
3112: END IF;
3110: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3111: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------BEGIN-----------');
3112: END IF;
3113:
3114: -- Instead of FND_API.G_MISS_NUM, "-1001" is being passed from UI to indicate nullifying of Probability from
3115: -- and Probability To Columns. Translation being done below.
3116: IF (l_fct_assoc_rec.PROBABILITY_FROM = -1001) THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - FROM');
3116: IF (l_fct_assoc_rec.PROBABILITY_FROM = -1001) THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3118: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - FROM');
3119: END IF;
3120: l_fct_assoc_rec.PROBABILITY_FROM := FND_API.G_MISS_NUM;
3121: END IF;
3122:
3123: IF (l_fct_assoc_rec.PROBABILITY_TO = -1001) THEN
3124: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3123: IF (l_fct_assoc_rec.PROBABILITY_TO = -1001) THEN
3124: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3125: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Translating -1001 to G_MISS_NUM - TO');
3126: END IF;
3127: l_fct_assoc_rec.PROBABILITY_TO := FND_API.G_MISS_NUM;
3128: END IF;
3129:
3130: -- Validate input data in l_fct_assoc_rec
3131: -- A. l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID Cannot be NULL
3132: -- B. OPERATIONS_FLAG should be U
3133: -- C. Object Version Number should not be NULL
3134: IF ((l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID IS NULL) OR
3135: ((l_fct_assoc_rec.OPERATION_FLAG IS NULL) OR (l_fct_assoc_rec.OPERATION_FLAG <> G_DML_UPDATE)) OR
3136: (l_fct_assoc_rec.OBJECT_VERSION_NUMBER IS NULL OR l_fct_assoc_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM))THEN
3137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3138: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- RA_FCT_ASSOCIATION_ID :' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3139: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OP FLAG :' || l_fct_assoc_rec.OPERATION_FLAG);
3140: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3141: END IF;
3142: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3143: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCST_DATA');
3144: FND_MSG_PUB.ADD;
3145: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3146: END IF;
3147:
3148: -- Check for existence of record and fetch details for change record validation and data defaulting
3149: BEGIN
3147:
3148: -- Check for existence of record and fetch details for change record validation and data defaulting
3149: BEGIN
3150: SELECT OBJECT_VERSION_NUMBER
3151: ,DECODE(l_fct_assoc_rec.FORECAST_DESIGNATOR,FND_API.G_MISS_CHAR,NULL
3152: ,NULL,FORECAST_DESIGNATOR
3153: ,l_fct_assoc_rec.FORECAST_DESIGNATOR)
3154: ,DECODE(l_fct_assoc_rec.ASSOCIATION_TYPE_CODE,FND_API.G_MISS_CHAR,NULL
3155: ,NULL,ASSOCIATION_TYPE_CODE
3150: SELECT OBJECT_VERSION_NUMBER
3151: ,DECODE(l_fct_assoc_rec.FORECAST_DESIGNATOR,FND_API.G_MISS_CHAR,NULL
3152: ,NULL,FORECAST_DESIGNATOR
3153: ,l_fct_assoc_rec.FORECAST_DESIGNATOR)
3154: ,DECODE(l_fct_assoc_rec.ASSOCIATION_TYPE_CODE,FND_API.G_MISS_CHAR,NULL
3155: ,NULL,ASSOCIATION_TYPE_CODE
3156: ,l_fct_assoc_rec.ASSOCIATION_TYPE_CODE)
3157: ,DECODE(l_fct_assoc_rec.ORGANIZATION_ID,FND_API.G_MISS_NUM,NULL
3158: ,NULL,ORGANIZATION_ID
3153: ,l_fct_assoc_rec.FORECAST_DESIGNATOR)
3154: ,DECODE(l_fct_assoc_rec.ASSOCIATION_TYPE_CODE,FND_API.G_MISS_CHAR,NULL
3155: ,NULL,ASSOCIATION_TYPE_CODE
3156: ,l_fct_assoc_rec.ASSOCIATION_TYPE_CODE)
3157: ,DECODE(l_fct_assoc_rec.ORGANIZATION_ID,FND_API.G_MISS_NUM,NULL
3158: ,NULL,ORGANIZATION_ID
3159: ,l_fct_assoc_rec.ORGANIZATION_ID)
3160: ,DECODE(l_fct_assoc_rec.PROBABILITY_FROM,FND_API.G_MISS_NUM,NULL
3161: ,NULL,PROBABILITY_FROM
3156: ,l_fct_assoc_rec.ASSOCIATION_TYPE_CODE)
3157: ,DECODE(l_fct_assoc_rec.ORGANIZATION_ID,FND_API.G_MISS_NUM,NULL
3158: ,NULL,ORGANIZATION_ID
3159: ,l_fct_assoc_rec.ORGANIZATION_ID)
3160: ,DECODE(l_fct_assoc_rec.PROBABILITY_FROM,FND_API.G_MISS_NUM,NULL
3161: ,NULL,PROBABILITY_FROM
3162: ,l_fct_assoc_rec.PROBABILITY_FROM)
3163: ,DECODE(l_fct_assoc_rec.PROBABILITY_TO,FND_API.G_MISS_NUM,NULL
3164: ,NULL,PROBABILITY_TO
3159: ,l_fct_assoc_rec.ORGANIZATION_ID)
3160: ,DECODE(l_fct_assoc_rec.PROBABILITY_FROM,FND_API.G_MISS_NUM,NULL
3161: ,NULL,PROBABILITY_FROM
3162: ,l_fct_assoc_rec.PROBABILITY_FROM)
3163: ,DECODE(l_fct_assoc_rec.PROBABILITY_TO,FND_API.G_MISS_NUM,NULL
3164: ,NULL,PROBABILITY_TO
3165: ,l_fct_assoc_rec.PROBABILITY_TO)
3166: INTO l_obj_version_num
3167: ,l_fct_assoc_rec.FORECAST_DESIGNATOR
3183: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || l_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3184: END IF;
3185: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3188: END;
3189:
3190:
3191: -- Validate input data in p_x_fct_assoc_rec
3195: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3196: END IF;
3197: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3198: FND_MSG_PUB.ADD;
3199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3200: END IF;
3201:
3202: -- Due to the decode statements used above the l_fct_assoc_rec record will not contain the final state to data that will exist in the db.
3203: -- Validate input fct association data in l_fct_assoc_rec
3217: END IF;
3218:
3219: FND_MESSAGE.Set_Name('AHL','AHL_RA_HIST_PROB_NULL');
3220: FND_MSG_PUB.ADD;
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222:
3223: END IF;
3224:
3225: IF ((l_fct_assoc_rec.ASSOCIATION_TYPE_CODE IS NULL) OR
3240:
3241: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3242: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3243: FND_MSG_PUB.ADD;
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: END IF;
3247:
3248: -- Validate value of ORGANIZATION_ID passed
3270: END IF;
3271: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3272: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3273: FND_MSG_PUB.ADD;
3274: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3275: END;
3276:
3277: -- Validate value of FORECAST_DESIGNATOR passed
3278: BEGIN
3297: END IF;
3298: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3299: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.U_FCT_DATA');
3300: FND_MSG_PUB.ADD;
3301: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3302: END;
3303:
3304:
3305: -- When ASSOCIATION_TYPE_CODE = 'ASSOC_HISTORICAL'
3322: END IF;
3323:
3324: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_VALID_RANGE');
3325: FND_MSG_PUB.ADD;
3326: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3327: END IF;
3328:
3329: -- 2. PROBABILITY_TO should be >= PROBABILITY_FROM
3330: IF (NOT(l_fct_assoc_rec.PROBABILITY_FROM <= l_fct_assoc_rec.PROBABILITY_TO)) THEN
3336: END IF;
3337:
3338: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_RELATIONSHIP');
3339: FND_MSG_PUB.ADD;
3340: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3341: END IF;
3342:
3343: -- 3. records with Overlapping values of probablities should not exist for the Org Id and forecast designator in AHL_RA_FCT_ASSOCIATIONS
3344: BEGIN
3367: END IF;
3368:
3369: FND_MESSAGE.Set_Name('AHL','AHL_RA_PROB_OVERLAP');
3370: FND_MSG_PUB.ADD;
3371: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3372:
3373: EXCEPTION
3374: WHEN NO_DATA_FOUND THEN
3375: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3399: END IF;
3400:
3401: FND_MESSAGE.Set_Name('AHL','AHL_RA_FCT_ASSOC_MTBF_DUP');
3402: FND_MSG_PUB.ADD;
3403: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3404:
3405: EXCEPTION
3406: When No_Data_Found then
3407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3458: -- Set the Out Param
3459: p_x_fct_assoc_rec := l_fct_assoc_rec;
3460:
3461: -- Standard check for p_commit
3462: IF FND_API.To_Boolean (p_commit) THEN
3463: COMMIT;
3464: END IF;
3465:
3466: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3470: -- Standard call to get message count and if count is 1, get message
3471: FND_MSG_PUB.Count_And_Get
3472: ( p_count => x_msg_count,
3473: p_data => x_msg_data,
3474: p_encoded => fnd_api.g_false);
3475:
3476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3477: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3478: END IF;
3477: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3478: END IF;
3479:
3480: EXCEPTION
3481: WHEN FND_API.G_EXC_ERROR THEN
3482: x_return_status := FND_API.G_RET_STS_ERROR;
3483: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3484: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3485: p_data => x_msg_data,
3478: END IF;
3479:
3480: EXCEPTION
3481: WHEN FND_API.G_EXC_ERROR THEN
3482: x_return_status := FND_API.G_RET_STS_ERROR;
3483: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3484: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3485: p_data => x_msg_data,
3486: p_encoded => fnd_api.g_false);
3482: x_return_status := FND_API.G_RET_STS_ERROR;
3483: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3484: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3485: p_data => x_msg_data,
3486: p_encoded => fnd_api.g_false);
3487:
3488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3484: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3485: p_data => x_msg_data,
3486: p_encoded => fnd_api.g_false);
3487:
3488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3491: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3492: p_data => x_msg_data,
3485: p_data => x_msg_data,
3486: p_encoded => fnd_api.g_false);
3487:
3488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3491: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3492: p_data => x_msg_data,
3493: p_encoded => fnd_api.g_false);
3489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3490: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3491: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3492: p_data => x_msg_data,
3493: p_encoded => fnd_api.g_false);
3494:
3495: WHEN OTHERS THEN
3496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3497: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3492: p_data => x_msg_data,
3493: p_encoded => fnd_api.g_false);
3494:
3495: WHEN OTHERS THEN
3496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3497: Rollback to UPDATE_FCT_ASSOC_DATA_SP;
3498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3499: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3500: p_procedure_name => 'UPDATE_FCT_ASSOC_DATA',
3501: p_error_text => SUBSTR(SQLERRM,1,240));
3502: END IF;
3503: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3504: p_data => x_msg_data,
3505: p_encoded => fnd_api.g_false);
3506:
3507: END UPDATE_FCT_ASSOC_DATA;
3508:
3509:
3516: -- Pre-reqs :
3517: --
3518: -- Standard IN Parameters :
3519: -- p_api_version IN NUMBER Required
3520: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3521: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3522: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3523: --
3524: -- Standard OUT Parameters :
3517: --
3518: -- Standard IN Parameters :
3519: -- p_api_version IN NUMBER Required
3520: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3521: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3522: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3523: --
3524: -- Standard OUT Parameters :
3525: -- x_return_status OUT VARCHAR2 Required
3518: -- Standard IN Parameters :
3519: -- p_api_version IN NUMBER Required
3520: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
3521: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
3522: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
3523: --
3524: -- Standard OUT Parameters :
3525: -- x_return_status OUT VARCHAR2 Required
3526: -- x_msg_count OUT NUMBER Required
3534: --
3535: -- End of Comments --
3536: PROCEDURE DELETE_FCT_ASSOC_DATA (
3537: p_api_version IN NUMBER,
3538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3541: p_module_type IN VARCHAR2,
3542: x_return_status OUT NOCOPY VARCHAR2,
3535: -- End of Comments --
3536: PROCEDURE DELETE_FCT_ASSOC_DATA (
3537: p_api_version IN NUMBER,
3538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3541: p_module_type IN VARCHAR2,
3542: x_return_status OUT NOCOPY VARCHAR2,
3543: x_msg_count OUT NOCOPY NUMBER,
3536: PROCEDURE DELETE_FCT_ASSOC_DATA (
3537: p_api_version IN NUMBER,
3538: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3539: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3541: p_module_type IN VARCHAR2,
3542: x_return_status OUT NOCOPY VARCHAR2,
3543: x_msg_count OUT NOCOPY NUMBER,
3544: x_msg_data OUT NOCOPY VARCHAR2,
3559: -- Standard start of API savepoint
3560: SAVEPOINT DELETE_FCT_ASSOC_DATA_SP;
3561:
3562: -- Standard call to check for call compatibility
3563: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3565: END IF;
3566:
3567: -- Initialize message list if p_init_msg_list is set to TRUE
3560: SAVEPOINT DELETE_FCT_ASSOC_DATA_SP;
3561:
3562: -- Standard call to check for call compatibility
3563: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3565: END IF;
3566:
3567: -- Initialize message list if p_init_msg_list is set to TRUE
3568: IF FND_API.To_Boolean(p_init_msg_list) THEN
3564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3565: END IF;
3566:
3567: -- Initialize message list if p_init_msg_list is set to TRUE
3568: IF FND_API.To_Boolean(p_init_msg_list) THEN
3569: FND_MSG_PUB.Initialize;
3570: END IF;
3571:
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3568: IF FND_API.To_Boolean(p_init_msg_list) THEN
3569: FND_MSG_PUB.Initialize;
3570: END IF;
3571:
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3573:
3574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3575: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------BEGIN-----------');
3576: END IF;
3589: END IF;
3590: FND_MESSAGE.Set_Name('AHL','AHL_RA_INV_PARAM_PASSED');
3591: FND_MESSAGE.Set_Token('NAME','SETUP_PVT.D_FCST_DATA');
3592: FND_MSG_PUB.ADD;
3593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3594: END IF;
3595:
3596: -- Check for existence of record and fetch OVN for change record validation
3597: BEGIN
3611: fnd_log.string(fnd_log.level_statement,l_full_name,'-- DATA DOES NOT EXISTS -- ERROR ... ' || p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID);
3612: END IF;
3613: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_DELETED');
3614: FND_MSG_PUB.ADD;
3615: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
3616: END;
3617:
3618: -- Validate input data in p_fct_assoc_rec
3619: -- A. RECORD MUST NOT HAVE CHANGED. i.e. object_version_number should not change.
3622: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
3623: END IF;
3624: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3625: FND_MSG_PUB.ADD;
3626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3627: END IF;
3628:
3629: -- Delete Record from AHL_RA_FCT_ASSOCIATIONS
3630: DELETE AHL_RA_FCT_ASSOCIATIONS
3630: DELETE AHL_RA_FCT_ASSOCIATIONS
3631: WHERE RA_FCT_ASSOCIATION_ID = p_fct_assoc_rec.RA_FCT_ASSOCIATION_ID;
3632:
3633: -- Standard check for p_commit
3634: IF FND_API.To_Boolean (p_commit) THEN
3635: COMMIT;
3636: END IF;
3637:
3638: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3642: -- Standard call to get message count and if count is 1, get message
3643: FND_MSG_PUB.Count_And_Get
3644: ( p_count => x_msg_count,
3645: p_data => x_msg_data,
3646: p_encoded => fnd_api.g_false);
3647:
3648: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3649: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3650: END IF;
3649: fnd_log.string(fnd_log.level_procedure,L_FULL_NAME||'.end','Return Status = ' || x_return_status);
3650: END IF;
3651:
3652: EXCEPTION
3653: WHEN FND_API.G_EXC_ERROR THEN
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3656: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3657: p_data => x_msg_data,
3650: END IF;
3651:
3652: EXCEPTION
3653: WHEN FND_API.G_EXC_ERROR THEN
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3656: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3657: p_data => x_msg_data,
3658: p_encoded => fnd_api.g_false);
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3656: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3657: p_data => x_msg_data,
3658: p_encoded => fnd_api.g_false);
3659:
3660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3656: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3657: p_data => x_msg_data,
3658: p_encoded => fnd_api.g_false);
3659:
3660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3663: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3664: p_data => x_msg_data,
3657: p_data => x_msg_data,
3658: p_encoded => fnd_api.g_false);
3659:
3660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3663: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3664: p_data => x_msg_data,
3665: p_encoded => fnd_api.g_false);
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3662: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3663: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3664: p_data => x_msg_data,
3665: p_encoded => fnd_api.g_false);
3666:
3667: WHEN OTHERS THEN
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3669: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3664: p_data => x_msg_data,
3665: p_encoded => fnd_api.g_false);
3666:
3667: WHEN OTHERS THEN
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3669: ROLLBACK TO DELETE_FCT_ASSOC_DATA_SP;
3670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3671: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3672: p_procedure_name => 'DELETE_FCT_ASSOC_DATA',
3673: p_error_text => SUBSTR(SQLERRM,1,240));
3674: END IF;
3675: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3676: p_data => x_msg_data,
3677: p_encoded => fnd_api.g_false);
3678:
3679: END DELETE_FCT_ASSOC_DATA;
3680:
3681: END AHL_RA_SETUPS_PVT;