DBA Data[Home] [Help]

APPS.AHL_FMP_MR_RELATION_PVT dependencies on FND_MSG_PUB

Line 207: FND_MSG_PUB.ADD;

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;

Line 238: FND_MSG_PUB.ADD;

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;

Line 279: FND_MSG_PUB.ADD;

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,

Line 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

Line 289: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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;

Line 294: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_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));

Line 296: fnd_msg_pub.add_exc_msg(p_pkg_name =>'AHL_FMP_MR_RELATION_PVT',

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,

Line 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:

Line 419: FND_MSG_PUB.ADD;

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

Line 434: FND_MSG_PUB.ADD;

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';

Line 445: FND_MSG_PUB.ADD;

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

Line 451: FND_MSG_PUB.ADD;

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;

Line 465: FND_MSG_PUB.ADD;

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

Line 479: FND_MSG_PUB.ADD;

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);

Line 484: 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);
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

Line 491: FND_MSG_PUB.ADD;

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);

Line 496: 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);
496: FND_MSG_PUB.ADD;
497: END IF;
498: END IF;
499: END IF;
500: CLOSE Check_mr_header_stat;

Line 511: FND_MSG_PUB.ADD;

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)

Line 519: FND_MSG_PUB.ADD;

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:

Line 540: FND_MSG_PUB.ADD;

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

Line 553: FND_MSG_PUB.ADD;

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');

Line 559: FND_MSG_PUB.ADD;

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;

Line 572: FND_MSG_PUB.ADD;

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:

Line 584: FND_MSG_PUB.ADD;

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;

Line 627: FND_MSG_PUB.ADD;

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

Line 634: FND_MSG_PUB.ADD;

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;

Line 670: FND_MSG_PUB.ADD;

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

Line 677: FND_MSG_PUB.ADD;

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;

Line 691: FND_MSG_PUB.ADD;

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);

Line 706: FND_MSG_PUB.ADD;

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);

Line 711: 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);
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

Line 725: FND_MSG_PUB.ADD;

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:

Line 734: FND_MSG_PUB.ADD;

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

Line 747: FND_MSG_PUB.ADD;

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:

Line 756: FND_MSG_PUB.ADD;

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;

Line 774: FND_MSG_PUB.ADD;

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);

Line 785: FND_MSG_PUB.ADD;

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.

Line 798: FND_MSG_PUB.ADD;

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

Line 814: FND_MSG_PUB.ADD;

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;

Line 827: FND_MSG_PUB.ADD;

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;

Line 869: FND_MSG_PUB.initialize;

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;

Line 945: l_msg_count := FND_MSG_PUB.count_msg;

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;

Line 968: l_msg_count := FND_MSG_PUB.count_msg;

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;

Line 1022: FND_MSG_PUB.ADD;

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:

Line 1060: FND_MSG_PUB.ADD;

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'

Line 1151: l_msg_count := FND_MSG_PUB.count_msg;

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;

Line 1170: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,

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

Line 1177: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,

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;

Line 1186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

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));

Line 1188: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,

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,

Line 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;