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;
73:
97: 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:
127: WHERE STATUS_ID = l_setup_data_rec.STATUS_ID;
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
147: AND LOOKUP_CODE = l_setup_data_rec.REMOVAL_CODE;
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
189: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Status Id Passed -- ERROR ... ' || l_setup_data_rec.STATUS_ID);
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
219: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Removal Code Passed -- ERROR ... ' || l_setup_data_rec.REMOVAL_CODE);
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;
293: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_SETUP_DATA -------END-----------');
294: END IF;
295:
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:
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);
313:
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
320:
321: WHEN OTHERS THEN
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;
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,
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;
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;
398:
414: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_setup_data_rec.OBJECT_VERSION_NUMBER);
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
435: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
448: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
466: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_SETUP_DATA -------END-----------');
467: END IF;
468:
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:
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);
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
493:
494: WHEN OTHERS THEN
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;
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,
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;
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;
571:
588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OP Flag-');
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
610: END IF;
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
635: END IF;
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
661: END IF;
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
691: END IF;
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
713: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Validation Failed: Uniqnuess Check --');
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
815: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_RELIABILITY_DATA -------END-----------');
816: END IF;
817:
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:
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);
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
842:
843: WHEN OTHERS THEN
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;
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,
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;
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;
919:
926: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
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
941: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
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
967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
980: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || p_reliability_data_rec.OBJECT_VERSION_NUMBER);
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.
1010: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_RELIABILITY_DATA -------END-----------');
1011: END IF;
1012:
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:
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);
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1037:
1038: WHEN OTHERS THEN
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;
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,
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;
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;
1120:
1135: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
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
1151: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - OBJECT_VERSION_NUMBER -'||l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
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
1163: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
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
1215: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
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
1227: END IF;
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
1247: END IF;
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
1275: 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
1288: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
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
1391: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_MTBF_DATA -------END-----------');
1392: END IF;
1393:
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:
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);
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1418:
1419: WHEN OTHERS THEN
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;
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,
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;
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;
1510:
1525: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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:
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;
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.
1553: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
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
1575: FETCH get_mtbf_data_cur INTO l_mtbf_data_old_rec;
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:
1585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) 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.
1660: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - COUNTER_ID -' || l_ra_def_dtl_rec.COUNTER_ID);
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
1691: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
1704: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
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
1771: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_MTBF_DATA -------END-----------');
1772: END IF;
1773:
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:
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);
1791:
1792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1798:
1799: WHEN OTHERS THEN
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;
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,
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;
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;
1880:
1887: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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:
1906: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- Detail RA_DEFINITION_HDR_ID:' || l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
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.
1919: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - RA_DEFINITION_HDR_ID CHILD-'||l_ra_def_dtl_rec.RA_DEFINITION_HDR_ID);
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
1952: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
1963: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
1985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
1998: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Master Record has changed : OVN passed : ' || l_ra_def_hdr_rec.OBJECT_VERSION_NUMBER);
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
2025: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_MTBF_DATA -------END-----------');
2026: END IF;
2027:
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:
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);
2045:
2046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2052:
2053: WHEN OTHERS THEN
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;
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,
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;
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;
2136:
2152: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
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
2160: --Mandatory validation for the Since New Counter
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:
2194: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_NEW_COUNTER_ID -' || l_counter_assoc_rec.SINCE_NEW_COUNTER_ID);
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
2228: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - SINCE_OVERHAUL_COUNTER_ID -' || l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID);
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:
2239: IF(l_counter_assoc_rec.SINCE_NEW_COUNTER_ID IS NOT NULL AND l_counter_assoc_rec.SINCE_OVERHAUL_COUNTER_ID IS NOT NULL) THEN
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:
2254: FND_MESSAGE.Set_Token('NEW_COUNTER', l_new_cou_name);
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;
2275: END IF;
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
2301: END IF;
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
2330:
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
2433: END IF;
2434:
2435:
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:
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);
2453:
2454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2460:
2461: WHEN OTHERS THEN
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;
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,
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;
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;
2537:
2544: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed --');
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
2559: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_counter_assoc_rec.OBJECT_VERSION_NUMBER);
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
2581: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
2592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
2610: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_COUNTER_ASSOC -------END-----------');
2611: END IF;
2612:
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:
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);
2630:
2631: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2637:
2638: WHEN OTHERS THEN
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;
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,
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;
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;
2715:
2741: 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:
2755: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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:
2786: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
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
2813: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
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:
2838: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
2852: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
2882: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
2912: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
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
2998: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- CREATE_FCT_ASSOC_DATA -------END-----------');
2999: END IF;
3000:
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:
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);
3018:
3019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3025:
3026: WHEN OTHERS THEN
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;
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,
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;
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;
3109:
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
3182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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:
3194: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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.
3216: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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:
3239: END IF;
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:
3269: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - ORGANIZATION_ID -' || l_fct_assoc_rec.ORGANIZATION_ID);
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
3296: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed - FORECAST_DESIGNATOR -' || l_fct_assoc_rec.FORECAST_DESIGNATOR);
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:
3321: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
3335: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
3366: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.PROBABILITY_TO --------- '||l_fct_assoc_rec.PROBABILITY_TO);
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
3398: fnd_log.string(fnd_log.level_statement,l_full_name,'-- l_fct_assoc_rec.FORECAST_DESIGNATOR --------- '||l_fct_assoc_rec.FORECAST_DESIGNATOR);
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
3467: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- UPDATE_FCT_ASSOC_DATA -------END-----------');
3468: END IF;
3469:
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:
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);
3487:
3488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3494:
3495: WHEN OTHERS THEN
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;
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,
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;
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;
3573:
3588: fnd_log.string(fnd_log.level_statement,l_full_name,'-- Invalid Param Passed -- OVN :' || p_fct_assoc_rec.OBJECT_VERSION_NUMBER);
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
3610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
3621: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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
3639: fnd_log.string(fnd_log.level_statement,l_full_name,'DS -- PVT -- DELETE_FCT_ASSOC_DATA -------END-----------');
3640: END IF;
3641:
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:
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);
3659:
3660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3666:
3667: WHEN OTHERS THEN
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;
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,
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;