DBA Data[Home] [Help]

APPS.AHL_FMP_MR_VISIT_TYPES_PVT dependencies on FND_MSG_PUB

Line 109: FND_MSG_PUB.ADD;

105: and object_version_number=P_MR_VISIT_TYPE_REC.object_version_number;
106: if (sql%ROWCOUNT=0)
107: then
108: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
109: FND_MSG_PUB.ADD;
110: end if;
111:
112: END;
113:

Line 127: FND_MSG_PUB.ADD;

123:
124: if (sql%ROWCOUNT=0)
125: then
126: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
127: FND_MSG_PUB.ADD;
128: end if;
129: END;
130:
131:

Line 410: FND_MSG_PUB.ADD;

406: IF p_x_mr_visit_type_rec.mr_visit_type is null
407: OR p_x_mr_visit_type_rec.mr_visit_type=FND_API.G_MISS_CHAR
408: THEN
409: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRVSTTYPE_CODE_NULL');
410: FND_MSG_PUB.ADD;
411: ELSE
412: OPEN get_lookup_meaning_to_code('AHL_PLANNING_VISIT_TYPE',p_x_mr_visit_type_rec.mr_visit_type);
413: FETCH get_lookup_meaning_to_code INTO p_x_mr_visit_type_rec.mr_visit_type_CODE;
414:

Line 419: FND_MSG_PUB.ADD;

415: IF get_lookup_meaning_to_code%NOTFOUND
416: THEN
417: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRVSTYPE_CODE_INVALID');
418: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_visit_type_rec.mr_visit_type,false);
419: FND_MSG_PUB.ADD;
420: END IF;
421: CLOSE get_lookup_meaning_to_code;
422: END IF;
423: END;

Line 479: FND_MSG_PUB.ADD;

475: -- Check Profile value
476: IF (G_APPLN_USAGE IS NULL)
477: THEN
478: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
479: FND_MSG_PUB.ADD;
480: RETURN;
481: ELSIF (G_APPLN_USAGE = 'PM')
482: THEN
483: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PM_MRV_PM_INSTALL' );

Line 484: FND_MSG_PUB.add;

480: RETURN;
481: ELSIF (G_APPLN_USAGE = 'PM')
482: THEN
483: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PM_MRV_PM_INSTALL' );
484: FND_MSG_PUB.add;
485: x_return_status := FND_API.G_RET_STS_ERROR;
486: RETURN;
487: END IF;
488:

Line 493: FND_MSG_PUB.ADD;

489: IF (p_mr_visit_type_rec.mr_visit_type_ID IS NULL OR p_mr_visit_type_rec.mr_visit_type_ID=FND_API.G_MISS_NUM)
490: AND p_mr_visit_type_rec.dml_operation<>'C'
491: THEN
492: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_VSTYPE_ID_NULL');
493: FND_MSG_PUB.ADD;
494: END IF;
495:
496: IF (p_mr_visit_type_rec.mr_visit_type_ID IS NOT NULL and p_mr_visit_type_rec.mr_visit_type_ID<>FND_API.G_MISS_NUM)
497: AND p_mr_visit_type_rec.dml_operation<>'C'

Line 505: FND_MSG_PUB.ADD;

501:
502: IF GET_VISIT_ID%NOTFOUND
503: THEN
504: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
505: FND_MSG_PUB.ADD;
506: END IF;
507: CLOSE get_visit_id;
508: END IF;
509:

Line 514: FND_MSG_PUB.ADD;

510: IF (p_mr_visit_type_rec.OBJECT_VERSION_NUMBER IS NULL OR p_mr_visit_type_rec.OBJECT_vERSION_NUMBER=FND_API.G_MISS_num)
511: and p_mr_visit_type_rec.dml_operation<>'C'
512: THEN
513: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRA_OBJ_VERSION_NULL');
514: FND_MSG_PUB.ADD;
515: END IF;
516:
517: IF p_mr_visit_type_rec.MR_HEADER_ID IS NULL OR p_mr_visit_type_rec.MR_HEADER_ID=FND_API.G_MISS_NUM
518: THEN

Line 520: FND_MSG_PUB.ADD;

516:
517: IF p_mr_visit_type_rec.MR_HEADER_ID IS NULL OR p_mr_visit_type_rec.MR_HEADER_ID=FND_API.G_MISS_NUM
518: THEN
519: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
520: FND_MSG_PUB.ADD;
521: ELSE
522: OPEN GetMrDet(p_mr_visit_type_rec.MR_HEADER_ID);
523:
524: FETCH GetMrDet into l_mr_rec;

Line 529: FND_MSG_PUB.ADD;

525:
526: IF GetMrDet%NOTFOUND
527: THEN
528: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
529: FND_MSG_PUB.ADD;
530: ELSE
531: IF l_mr_rec.IMPLEMENT_STATUS_CODE<>'OPTIONAL_DO_NOT_IMPLEMENT'
532: AND p_mr_visit_type_rec.dml_operation<>'D'
533: THEN

Line 535: FND_MSG_PUB.ADD;

531: IF l_mr_rec.IMPLEMENT_STATUS_CODE<>'OPTIONAL_DO_NOT_IMPLEMENT'
532: AND p_mr_visit_type_rec.dml_operation<>'D'
533: THEN
534: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_NOTOPT_DONOT_IMPL');
535: FND_MSG_PUB.ADD;
536: END IF;
537: NULL;
538: END IF;
539: CLOSE GetMrDet;

Line 554: FND_MSG_PUB.ADD;

550: IF p_mr_visit_type_rec.dml_operation='C'
551: THEN
552: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRVSTYOE_CODE_DUP');
553: FND_MESSAGE.SET_TOKEN('RECORD',NVL(p_mr_visit_type_rec.mr_visit_type,'')||'-''-',false);
554: FND_MSG_PUB.ADD;
555: ELSIF p_mr_visit_type_rec.dml_operation='U'
556: and l_act_Rec.mr_visit_type_id<>p_mr_visit_type_rec.mr_visit_type_ID
557: THEN
558: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRVSTYPE_CODE_DUP');

Line 560: FND_MSG_PUB.ADD;

556: and l_act_Rec.mr_visit_type_id<>p_mr_visit_type_rec.mr_visit_type_ID
557: THEN
558: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRVSTYPE_CODE_DUP');
559: FND_MESSAGE.SET_TOKEN('RECORD',p_mr_visit_type_rec.mr_visit_type,false);
560: FND_MSG_PUB.ADD;
561: END IF;
562: END IF;
563: CLOSE CHECK_DUP_VISIT_CODE;
564:

Line 572: FND_MSG_PUB.ADD;

568: IF (check_mo_proc%FOUND)
569: THEN
570: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MRV_MO_PROC');
571: -- Cannot associate visit types to a Maintenance Requirement of (M) and (0) procedure program type.
572: FND_MSG_PUB.ADD;
573: END IF;
574: -- Tamal [MEL/CDL] -- End changes
575:
576: END IF;

Line 617: FND_MSG_PUB.initialize;

613:
614: -- Initialize message list if p_init_msg_list is set to TRUE.
615:
616: IF FND_API.to_boolean(p_init_msg_list) THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619:
620: -- Initialize API return status to success
621:

Line 720: x_msg_count := FND_MSG_PUB.count_msg;

716: END IF;
717:
718: END LOOP;
719:
720: x_msg_count := FND_MSG_PUB.count_msg;
721: IF x_msg_count > 0 THEN
722:
723: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
724: THEN

Line 749: x_msg_count := FND_MSG_PUB.count_msg;

745: );
746:
747: --END IF;
748:
749: x_msg_count := FND_MSG_PUB.count_msg;
750:
751: IF p_x_mr_visit_type_tbl(i).DML_OPERATION='D' AND x_msg_count <1
752: THEN
753:

Line 764: x_msg_count := FND_MSG_PUB.count_msg;

760: INSERT_ROW (p_x_mr_visit_type_tbl(i) );
761: END IF;
762: END LOOP;
763:
764: x_msg_count := FND_MSG_PUB.count_msg;
765: IF x_msg_count > 0 THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768:

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

775: EXCEPTION
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777: ROLLBACK TO process_mr_visit_types_pvt;
778: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
780: p_count => x_msg_count,
781: p_data => x_msg_data);
782:
783: WHEN FND_API.G_EXC_ERROR THEN

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

782:
783: WHEN FND_API.G_EXC_ERROR THEN
784: ROLLBACK TO process_mr_visit_types_pvt;
785: X_return_status := FND_API.G_RET_STS_ERROR;
786: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => X_msg_data);
789: WHEN OTHERS THEN
790: ROLLBACK TO process_mr_visit_types_pvt;

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

788: p_data => X_msg_data);
789: WHEN OTHERS THEN
790: ROLLBACK TO process_mr_visit_types_pvt;
791: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
795: p_procedure_name =>l_api_name,
796: p_error_text =>SUBSTR(SQLERRM,1,240)

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

790: ROLLBACK TO process_mr_visit_types_pvt;
791: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
793: THEN
794: fnd_msg_pub.add_exc_msg(p_pkg_name =>G_PKG_NAME,
795: p_procedure_name =>l_api_name,
796: p_error_text =>SUBSTR(SQLERRM,1,240)
797: );
798: END IF;

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

795: p_procedure_name =>l_api_name,
796: p_error_text =>SUBSTR(SQLERRM,1,240)
797: );
798: END IF;
799: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
800: p_count => x_msg_count,
801: p_data => X_msg_data);
802: END;
803: END AHL_FMP_MR_VISIT_TYPES_PVT;