203:
204: IF p_x_mr_relation_rec.RELATED_MR_TITLE IS NULL OR p_x_mr_relation_rec.RELATED_MR_TITLE=FND_API.G_MISS_CHAR
205: THEN
206: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TITLE_NULL');
207: FND_MSG_PUB.ADD;
208: check_flag:='N';
209: ELSE
210: check_flag:='Y';
211: END IF;
234:
235: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATED_TITLE_INVAL');
236: FND_MESSAGE.SET_TOKEN('FIELD',l_title,false);
237: FND_MESSAGE.SET_TOKEN('RECORD', p_x_mr_relation_rec.RELATED_MR_TITLE, false);
238: FND_MSG_PUB.ADD;
239: ELSE
240: p_x_mr_relation_rec.related_mr_header_id:=l_rel_mr_header_id;
241: END IF;
242: CLOSE title_to_relmr_header_id;
275: EXCEPTION
276: WHEN l_cyclic_loop THEN
277: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATION_CYCLIC');
278: FND_MESSAGE.SET_TOKEN('RECORD', P_RELATED_MR_TITLE ,false);
279: FND_MSG_PUB.ADD;
280: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
279: FND_MSG_PUB.ADD;
280: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
284: p_count => x_msg_count,
285: p_data => x_msg_data);
286:
287: WHEN FND_API.G_EXC_ERROR THEN
285: p_data => x_msg_data);
286:
287: WHEN FND_API.G_EXC_ERROR THEN
288: X_return_status := FND_API.G_RET_STS_ERROR;
289: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
290: p_count => x_msg_count,
291: p_data => X_msg_data);
292: WHEN OTHERS THEN
293: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: p_count => x_msg_count,
291: p_data => X_msg_data);
292: WHEN OTHERS THEN
293: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: fnd_msg_pub.add_exc_msg(p_pkg_name =>'AHL_FMP_MR_RELATION_PVT',
297: p_procedure_name =>'NON_CYCLIC_ENF',
298: p_error_text =>SUBSTR(SQLERRM,1,240));
292: WHEN OTHERS THEN
293: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: fnd_msg_pub.add_exc_msg(p_pkg_name =>'AHL_FMP_MR_RELATION_PVT',
297: p_procedure_name =>'NON_CYCLIC_ENF',
298: p_error_text =>SUBSTR(SQLERRM,1,240));
299: END IF;
300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
296: fnd_msg_pub.add_exc_msg(p_pkg_name =>'AHL_FMP_MR_RELATION_PVT',
297: p_procedure_name =>'NON_CYCLIC_ENF',
298: p_error_text =>SUBSTR(SQLERRM,1,240));
299: END IF;
300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
301: p_count => x_msg_count,
302: p_data => X_msg_data);
303: END;
304:
415: IF p_mr_relation_rec.MR_HEADER_ID IS NULL or
416: p_mr_relation_rec.MR_HEADER_ID=FND_API.G_MISS_NUM
417: THEN
418: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
419: FND_MSG_PUB.ADD;
420: ELSE
421: OPEN Check_mr_header_stat(p_mr_relation_rec.mr_header_id);
422: FETCH Check_mr_header_stat INTO l_head_rec;
423: IF Check_mr_header_stat%FOUND
430: END IF;
431: l_mr_check_flag:='Y';
432: ELSE
433: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INVALID_MR_STATUS');
434: FND_MSG_PUB.ADD;
435: IF G_DEBUG='Y' THEN
436: AHL_DEBUG_PUB.debug( 'mr_Status_code'||l_head_rec.mr_status_code,'+DEBUG_RELATIONS+');
437: END IF;
438: l_mr_check_flag:='N';
441: IF ltrim(rtrim(l_head_rec.title))=rtrim(ltrim(p_mr_relation_rec.RELATED_MR_TITLE))
442: THEN
443: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATION_CYCLIC');
444: FND_MESSAGE.SET_TOKEN('RECORD',rtrim(ltrim(p_mr_relation_rec.RELATED_MR_TITLE)),false);
445: FND_MSG_PUB.ADD;
446: l_mr_check_flag:='N';
447: END IF;
448:
449: ELSE
447: END IF;
448:
449: ELSE
450: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
451: FND_MSG_PUB.ADD;
452: l_mr_check_flag:='N';
453: END IF;
454: CLOSE Check_mr_header_stat;
455: END IF;
461: IF p_mr_relation_rec.RELATED_MR_HEADER_ID IS NULL OR
462: p_mr_relation_rec.RELATED_MR_HEADER_ID=FND_API.G_MISS_NUM
463: THEN
464: FND_MESSAGE.SET_NAME('AHL','AHL_MR_HEADER_ID_NULL');
465: FND_MSG_PUB.ADD;
466: ELSE
467: OPEN Check_mr_header_stat(p_mr_relation_rec.RELATED_MR_HEADER_ID);
468: FETCH Check_mr_header_stat INTO l_rel_head_rec;
469: IF Check_mr_header_stat%FOUND
475: p_mr_relation_rec.relationship_code='PARENT'
476: THEN
477: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_PROGRM_RELCODE_INV');
478: FND_MESSAGE.SET_TOKEN('FIELD', l_head_rec.TITLE,false);
479: FND_MSG_PUB.ADD;
480: ELSIF l_head_rec.TYPE_CODE='ACTIVITY' and p_mr_relation_rec.relationship_code='CHILD'
481: THEN
482: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_ACTVTY_RELCODE_INV');
483: FND_MESSAGE.SET_TOKEN('FIELD', l_head_rec.TITLE,false);
480: ELSIF l_head_rec.TYPE_CODE='ACTIVITY' and p_mr_relation_rec.relationship_code='CHILD'
481: THEN
482: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_ACTVTY_RELCODE_INV');
483: FND_MESSAGE.SET_TOKEN('FIELD', l_head_rec.TITLE,false);
484: FND_MSG_PUB.ADD;
485: END IF;
486:
487: IF l_head_rec.TYPE_CODE='PROGRAM' and l_rel_head_rec.TYPE_CODE='PROGRAM'
488: THEN
487: IF l_head_rec.TYPE_CODE='PROGRAM' and l_rel_head_rec.TYPE_CODE='PROGRAM'
488: THEN
489: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_PROG_2_PROG_INV');
490: FND_MESSAGE.SET_TOKEN('FIELD', p_mr_relation_rec.RELATED_MR_TITLE,false);
491: FND_MSG_PUB.ADD;
492: ELSIF l_head_rec.TYPE_CODE='ACTIVITY' and l_rel_head_rec.TYPE_CODE='ACTIVITY'
493: THEN
494: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_ACTV_2_ACTV_INV');
495: FND_MESSAGE.SET_TOKEN('FIELD', p_mr_relation_rec.RELATED_MR_TITLE,false);
492: ELSIF l_head_rec.TYPE_CODE='ACTIVITY' and l_rel_head_rec.TYPE_CODE='ACTIVITY'
493: THEN
494: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_PM_ACTV_2_ACTV_INV');
495: FND_MESSAGE.SET_TOKEN('FIELD', p_mr_relation_rec.RELATED_MR_TITLE,false);
496: FND_MSG_PUB.ADD;
497: END IF;
498: END IF;
499: END IF;
500: CLOSE Check_mr_header_stat;
507: p_mr_relation_rec.MR_RELATIONSHIP_ID=FND_API.G_MISS_NUM)
508: THEN
509: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATIONSHIPID_NULL');
510: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE,false);
511: FND_MSG_PUB.ADD;
512: END IF;
513:
514: IF (p_mr_relation_rec.OBJECT_VERSION_NUMBER IS NULL OR
515: p_mr_relation_rec.OBJECT_vERSION_NUMBER=FND_API.G_MISS_NUM)
515: p_mr_relation_rec.OBJECT_vERSION_NUMBER=FND_API.G_MISS_NUM)
516: THEN
517: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_REL_OBJ_VERSION_NULL');
518: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE,false);
519: FND_MSG_PUB.ADD;
520: END IF;
521: END IF;
522:
523:
536: IF l_return_status<>'S'
537: THEN
538: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATION_INVALID');
539: FND_MESSAGE.SET_TOKEN('FIELD',p_mr_relation_rec.relationship_code,false);
540: FND_MSG_PUB.ADD;
541: END IF;
542: END IF;
543:
544: IF p_mr_relation_rec.relationship_code = 'CHILD' OR p_mr_relation_rec.relationship_code ='PARENT' THEN
549: IF l_result IN ('LOOP','CHAIN') THEN
550: select TITLE into l_mr_title from AHL_MR_HEADERS_B where mr_header_id = p_mr_relation_rec.mr_header_id;
551: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_LOOP_OR_CHAIN');
552: FND_MESSAGE.SET_TOKEN('RECORD', l_mr_title, false);
553: FND_MSG_PUB.ADD;
554:
555: END IF;
556: IF l_result1 IN ('LOOP','CHAIN') THEN
557: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_LOOP_OR_CHAIN');
555: END IF;
556: IF l_result1 IN ('LOOP','CHAIN') THEN
557: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_LOOP_OR_CHAIN');
558: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE, false);
559: FND_MSG_PUB.ADD;
560:
561: END IF;
562:
563: END IF;
568:
569: IF CHECK_ACCOM_TRIGGER%FOUND THEN
570: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ACCOM_TRIGGER');
571: FND_MESSAGE.SET_TOKEN('TITLE', p_mr_relation_rec.RELATED_MR_TITLE, false);
572: FND_MSG_PUB.ADD;
573: END IF;
574: CLOSE CHECK_ACCOM_TRIGGER;
575:
576:
580: IF CHECK_ACCOM_TRIGGER%FOUND THEN
581: select title into l_mr_title from AHL_MR_HEADERS_B where MR_HEADER_ID = P_MR_RELATION_REC.mr_header_id;
582: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_ACCOM_TRIGGER');
583: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
584: FND_MSG_PUB.ADD;
585: END IF;
586: CLOSE CHECK_ACCOM_TRIGGER;
587:
588: END IF;
623: IF p_mr_relation_rec.dml_operation='C'
624: THEN
625: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATION_DUPLICATE');
626: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE, false);
627: FND_MSG_PUB.ADD;
628: ELSIF P_mr_relation_rec.dml_operation='U'
629: THEN
630: IF l_rel_rec.MR_RELATIONSHIP_ID<>p_mr_relation_rec.MR_RELATIONSHIP_ID
631: THEN
630: IF l_rel_rec.MR_RELATIONSHIP_ID<>p_mr_relation_rec.MR_RELATIONSHIP_ID
631: THEN
632: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_RELATION_DUPLICATE');
633: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE, false);
634: FND_MSG_PUB.ADD;
635: END IF;
636: END IF;
637: END IF;
638: CLOSE check_UNIQ;
666: IF p_mr_relation_rec.dml_operation='C'
667: THEN
668: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_MANY_RELNS');
669: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE, false);
670: FND_MSG_PUB.ADD;
671: ELSIF P_mr_relation_rec.dml_operation='U'
672: THEN
673: IF l_rel_rec.MR_RELATIONSHIP_ID<>p_mr_relation_rec.MR_RELATIONSHIP_ID
674: THEN
673: IF l_rel_rec.MR_RELATIONSHIP_ID<>p_mr_relation_rec.MR_RELATIONSHIP_ID
674: THEN
675: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_MANY_RELNS');
676: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_relation_rec.RELATED_MR_TITLE, false);
677: FND_MSG_PUB.ADD;
678: END IF;
679: END IF;
680:
681: END IF;
687:
688: IF Check_Unplanned_MR%FOUND THEN
689: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_UNPLANNED');
690: FND_MESSAGE.SET_TOKEN('TITLE', l_title, false);
691: FND_MSG_PUB.ADD;
692: END IF;
693: close CHECK_UNPLANNED_MR;
694:
695: l_result := AHL_MR_LOOP_CHAIN_RELNS_PVT.IS_MR_IN_LOOP_OR_CHAIN(p_mr_relation_rec.mr_header_id);
702: IF l_result = 'LOOP' OR l_result1 ='LOOP' THEN
703: IF l_result1 = 'LOOP' THEN
704: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_LOOP');
705: FND_MESSAGE.SET_TOKEN('TITLE', l_title, false);
706: FND_MSG_PUB.ADD;
707:
708: ELSIF l_result = 'LOOP' THEN
709: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_LOOP');
710: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
707:
708: ELSIF l_result = 'LOOP' THEN
709: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_LOOP');
710: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
711: FND_MSG_PUB.ADD;
712:
713: END IF;
714: ELSIF l_result = 'CHAIN' OR l_result1 ='CHAIN' THEN
715: IF l_result1 ='CHAIN' THEN
721: IF CHK_START_MR_IN_CHAIN%NOTFOUND THEN
722:
723: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_CHAIN');
724: FND_MESSAGE.SET_TOKEN('TITLE', l_title, false);
725: FND_MSG_PUB.ADD;
726:
727: END IF;
728: CLOSE CHK_START_MR_IN_CHAIN;
729:
730: ELSE
731:
732: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_CHAIN');
733: FND_MESSAGE.SET_TOKEN('TITLE', l_title, false);
734: FND_MSG_PUB.ADD;
735:
736: END IF;
737: ELSIF l_result ='CHAIN' THEN
738: IF P_MR_RELATION_REC.RELATIONSHIP_CODE = 'INITIATEDBY' THEN
743: IF CHK_START_MR_IN_CHAIN%NOTFOUND THEN
744:
745: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_CHAIN');
746: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
747: FND_MSG_PUB.ADD;
748:
749: END IF;
750: CLOSE CHK_START_MR_IN_CHAIN;
751:
752: ELSE
753:
754: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_IN_CHAIN');
755: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
756: FND_MSG_PUB.ADD;
757:
758: END IF;
759:
760: END IF;
770:
771: IF CHECK_GROUP_MR%FOUND THEN
772: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_GROUP_MR');
773: FND_MESSAGE.SET_TOKEN('TITLE', p_mr_relation_rec.RELATED_MR_TITLE, false);
774: FND_MSG_PUB.ADD;
775: END IF;
776: CLOSE CHECK_GROUP_MR;
777:
778: OPEN CHECK_GROUP_MR(p_mr_relation_rec.mr_header_id);
781: IF CHECK_GROUP_MR%FOUND THEN
782: select title into l_mr_title from AHL_MR_HEADERS_B where MR_HEADER_ID = P_MR_RELATION_REC.mr_header_id;
783: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_GROUP_MR');
784: FND_MESSAGE.SET_TOKEN('TITLE', l_mr_title, false);
785: FND_MSG_PUB.ADD;
786: END IF;
787: CLOSE CHECK_GROUP_MR;
788: END IF;
789: -- pdoki added for SBE Project, End.
794: IF (check_mo_proc%FOUND)
795: THEN
796: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MRL_MO_PROC');
797: -- Relationships are not available for a Maintenance Requirement of (M) and (0) procedure program type.
798: FND_MSG_PUB.ADD;
799: END IF;
800: -- Tamal [MEL/CDL] -- End changes
801: --sukhwsin::Complex Assembly Changes - starts
802: IF (p_mr_relation_rec.dml_operation<>'D') THEN
810: IF (l_implement_sts_code IS NOT NULL AND l_implement_sts_code = 'SOFT_LIMIT') THEN
811: FND_MESSAGE.SET_NAME('AHL','AHL_CAM_MR_IMP_STS_ERR2');
812: FND_MESSAGE.SET_TOKEN('TITLE', l_title);
813: FND_MESSAGE.SET_TOKEN('VRSN', l_mr_version_number);
814: FND_MSG_PUB.ADD;
815: END IF;
816: --Perform this validation on related_mr_header_id
817: l_implement_sts_code := NULL;
818: l_title := NULL;
823: IF (l_implement_sts_code IS NOT NULL AND l_implement_sts_code = 'SOFT_LIMIT') THEN
824: FND_MESSAGE.SET_NAME('AHL','AHL_CAM_MR_IMP_STS_ERR2');
825: FND_MESSAGE.SET_TOKEN('TITLE', l_title);
826: FND_MESSAGE.SET_TOKEN('VRSN', l_mr_version_number);
827: FND_MSG_PUB.ADD;
828: END IF;
829: END IF;
830: --sukhwsin::Complex Assembly Changes - ends
831: END IF;
865: END IF;
866:
867:
868: IF FND_API.to_boolean(p_init_msg_list) THEN
869: FND_MSG_PUB.initialize;
870: END IF;
871:
872:
873: x_return_status:=FND_API.G_RET_STS_SUCCESS;
941: p_x_mr_relation_tbl(i).RELATED_MR_HEADER_ID:=l_mr_relation_rec.RELATED_MR_HEADER_ID;
942:
943: END LOOP;
944:
945: l_msg_count := FND_MSG_PUB.count_msg;
946: IF l_msg_count > 0
947: THEN
948: X_msg_count := l_msg_count;
949: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
964: x_return_status =>x_return_Status,
965: p_mr_relation_rec =>p_x_mr_relation_tbl(i));
966:
967: END IF;
968: l_msg_count := FND_MSG_PUB.count_msg;
969: IF l_msg_count > 0
970: THEN
971: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: END IF;
1018:
1019: if sql%rowcount=0 then
1020: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_RECORD_CHANGED');
1021: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_relation_tbl(i).related_mr_title,false);
1022: FND_MSG_PUB.ADD;
1023: end if;
1024: ELSIF p_x_mr_relation_tbl(i).DML_operation='U'
1025: then
1026:
1056: and OBJECT_VERSION_NUMBER=p_x_mr_relation_tbl(i).OBJECT_VERSION_NUMBER;
1057:
1058: if sql%rowcount=0 then
1059: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1060: FND_MSG_PUB.ADD;
1061: end if;
1062: END IF;
1063:
1064: ELSIF p_x_mr_relation_tbl(i).DML_operation='C'
1147: p_relationship_code =>p_x_mr_relation_tbl(i).RELATIONSHIP_CODE);
1148: END IF;
1149: END LOOP;
1150:
1151: l_msg_count := FND_MSG_PUB.count_msg;
1152: IF l_msg_count > 0 THEN
1153: X_msg_count := l_msg_count;
1154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155: RAISE FND_API.G_EXC_ERROR;
1166: EXCEPTION
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: ROLLBACK TO PROCESS_MR_RELATION;
1169: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1171: p_count => x_msg_count,
1172: p_data => x_msg_data);
1173:
1174: WHEN FND_API.G_EXC_ERROR THEN
1173:
1174: WHEN FND_API.G_EXC_ERROR THEN
1175: ROLLBACK TO PROCESS_MR_RELATION;
1176: X_return_status := FND_API.G_RET_STS_ERROR;
1177: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1178: p_count => x_msg_count,
1179: p_data => X_msg_data);
1180: WHEN OTHERS THEN
1181: ROLLBACK TO PROCESS_MR_RELATION;
1182: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1183: IF G_DEBUG='Y' THEN
1184: AHL_DEBUG_PUB.debug( 'PROCESS-->'||sqlerrm,'DEBUG RELATIONS');
1185: END IF;
1186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
1189: p_procedure_name =>L_API_NAME,
1190: p_error_text =>SUBSTR(SQLERRM,1,240));
1184: AHL_DEBUG_PUB.debug( 'PROCESS-->'||sqlerrm,'DEBUG RELATIONS');
1185: END IF;
1186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
1189: p_procedure_name =>L_API_NAME,
1190: p_error_text =>SUBSTR(SQLERRM,1,240));
1191: END IF;
1192: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1188: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
1189: p_procedure_name =>L_API_NAME,
1190: p_error_text =>SUBSTR(SQLERRM,1,240));
1191: END IF;
1192: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
1193: p_count => x_msg_count,
1194: p_data => X_msg_data);
1195:
1196: END;