113: * x_contact_preference_id Contact Preference ID
114: * IN/ OUT:
115: * p_contact_preference_rec Contact Preference Record
116: * x_return_status Return status after the call. The status can
117: * be FND_API.G_RET_STS_SUCCESS (success),
118: * FND_API.G_RET_STS_ERROR (error),
119: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
120: *
121: * RETURNS : NONE
114: * IN/ OUT:
115: * p_contact_preference_rec Contact Preference Record
116: * x_return_status Return status after the call. The status can
117: * be FND_API.G_RET_STS_SUCCESS (success),
118: * FND_API.G_RET_STS_ERROR (error),
119: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
120: *
121: * RETURNS : NONE
122: *
115: * p_contact_preference_rec Contact Preference Record
116: * x_return_status Return status after the call. The status can
117: * be FND_API.G_RET_STS_SUCCESS (success),
118: * FND_API.G_RET_STS_ERROR (error),
119: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
120: *
121: * RETURNS : NONE
122: *
123: * NOTES
148: ----------------------------------------------
149: -- if preference_start_date is null, give sysdate
150: ----------------------------------------------
151: IF p_contact_preference_rec.preference_start_date is null or
152: p_contact_preference_rec.preference_start_date = FND_API.G_MISS_DATE THEN
153: p_contact_preference_rec.preference_start_date := sysdate;
154: END IF;
155:
156:
160: p_contact_preference_rec,
161: l_rowid,
162: x_return_status);
163:
164: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: -- Debug info.
161: l_rowid,
162: x_return_status);
163:
164: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: -- Debug info.
169: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
239: * IN/ OUT:
240: * p_contact_preference_rec Contact preference record
241: * p_object_version_number Used for locking the being updated record.
242: * x_return_status Return status after the call. The status can
243: * be FND_API.G_RET_STS_SUCCESS (success),
244: * FND_API.G_RET_STS_ERROR (error),
245: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
246: *
247: * RETURNS : NONE
240: * p_contact_preference_rec Contact preference record
241: * p_object_version_number Used for locking the being updated record.
242: * x_return_status Return status after the call. The status can
243: * be FND_API.G_RET_STS_SUCCESS (success),
244: * FND_API.G_RET_STS_ERROR (error),
245: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
246: *
247: * RETURNS : NONE
248: *
241: * p_object_version_number Used for locking the being updated record.
242: * x_return_status Return status after the call. The status can
243: * be FND_API.G_RET_STS_SUCCESS (success),
244: * FND_API.G_RET_STS_ERROR (error),
245: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
246: *
247: * RETURNS : NONE
248: *
249: * NOTES
294: THEN
295: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
296: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_contact_preferences');
297: FND_MSG_PUB.ADD;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300:
301: p_object_version_number := nvl(l_object_version_number, 1) + 1;
302:
304: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
305: FND_MESSAGE.SET_TOKEN('RECORD', 'contact_preference');
306: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR( p_contact_preference_rec.contact_preference_id), 'null'));
307: FND_MSG_PUB.ADD;
308: RAISE FND_API.G_EXC_ERROR;
309: END;
310:
311: ----------------------------------------------
312: -- if preference_start_date is null, give sysdate
310:
311: ----------------------------------------------
312: -- if preference_start_date is null, give sysdate
313: ----------------------------------------------
314: IF p_contact_preference_rec.preference_start_date = FND_API.G_MISS_DATE THEN
315: p_contact_preference_rec.preference_start_date := sysdate;
316: END IF;
317:
318: -- validate contact preference record
321: p_contact_preference_rec,
322: l_rowid,
323: x_return_status);
324:
325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- Debug info.
322: l_rowid,
323: x_return_status);
324:
325: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328:
329: -- Debug info.
330: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
391: *
392: * ARGUMENTS
393: * IN:
394: * p_init_msg_list Initialize message stack if it is set to
395: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
396: * p_contact_preference_rec Contact preference record.
397: * IN/OUT:
398: * OUT:
399: * x_contact_preference_id contact preference ID.
397: * IN/OUT:
398: * OUT:
399: * x_contact_preference_id contact preference ID.
400: * x_return_status Return status after the call. The status can
401: * be FND_API.G_RET_STS_SUCCESS (success),
402: * FND_API.G_RET_STS_ERROR (error),
403: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
404: * x_msg_count Number of messages in message stack.
405: * x_msg_data Message text if x_msg_count is 1.
398: * OUT:
399: * x_contact_preference_id contact preference ID.
400: * x_return_status Return status after the call. The status can
401: * be FND_API.G_RET_STS_SUCCESS (success),
402: * FND_API.G_RET_STS_ERROR (error),
403: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
404: * x_msg_count Number of messages in message stack.
405: * x_msg_data Message text if x_msg_count is 1.
406: *
399: * x_contact_preference_id contact preference ID.
400: * x_return_status Return status after the call. The status can
401: * be FND_API.G_RET_STS_SUCCESS (success),
402: * FND_API.G_RET_STS_ERROR (error),
403: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
404: * x_msg_count Number of messages in message stack.
405: * x_msg_data Message text if x_msg_count is 1.
406: *
407: * NOTES
412: *
413: */
414:
415: PROCEDURE create_contact_preference(
416: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
417: p_contact_preference_rec IN CONTACT_PREFERENCE_REC_TYPE,
418: x_contact_preference_id OUT NOCOPY NUMBER,
419: x_return_status OUT NOCOPY VARCHAR2,
420: x_msg_count OUT NOCOPY NUMBER,
438: p_msg_level=>fnd_log.level_procedure);
439: END IF;
440:
441: --Initialize message list if p_init_msg_list is set to TRUE.
442: IF FND_API.to_Boolean(p_init_msg_list) THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445:
446: --Initialize API return status to success.
443: FND_MSG_PUB.initialize;
444: END IF;
445:
446: --Initialize API return status to success.
447: x_return_status := FND_API.G_RET_STS_SUCCESS;
448:
449: -- Call to business logic.
450: do_create_contact_preference(
451: l_contact_preference_rec,
451: l_contact_preference_rec,
452: x_contact_preference_id,
453: x_return_status);
454:
455: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
456: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
457: -- Invoke business event system.
458: HZ_BUSINESS_EVENT_V2PVT.create_contact_prefer_event (
459: l_contact_preference_rec );
467: END IF;
468:
469: --Standard call to get message count and if count is 1, get message info.
470: FND_MSG_PUB.Count_And_Get(
471: p_encoded => FND_API.G_FALSE,
472: p_count => x_msg_count,
473: p_data => x_msg_data);
474:
475: -- Debug info.
488: -- Check if API is called in debug mode. If yes, disable debug.
489: --disable_debug;
490:
491: EXCEPTION
492: WHEN FND_API.G_EXC_ERROR THEN
493: ROLLBACK TO create_contact_preference_pub;
494: x_return_status := FND_API.G_RET_STS_ERROR;
495: FND_MSG_PUB.Count_And_Get(
496: p_encoded => FND_API.G_FALSE,
490:
491: EXCEPTION
492: WHEN FND_API.G_EXC_ERROR THEN
493: ROLLBACK TO create_contact_preference_pub;
494: x_return_status := FND_API.G_RET_STS_ERROR;
495: FND_MSG_PUB.Count_And_Get(
496: p_encoded => FND_API.G_FALSE,
497: p_count => x_msg_count,
498: p_data => x_msg_data);
492: WHEN FND_API.G_EXC_ERROR THEN
493: ROLLBACK TO create_contact_preference_pub;
494: x_return_status := FND_API.G_RET_STS_ERROR;
495: FND_MSG_PUB.Count_And_Get(
496: p_encoded => FND_API.G_FALSE,
497: p_count => x_msg_count,
498: p_data => x_msg_data);
499:
500: -- Debug info.
513: -- Check if API is called in debug mode. If yes, disable debug.
514: --disable_debug;
515:
516:
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO create_contact_preference_pub;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: FND_MSG_PUB.Count_And_Get(
521: p_encoded => FND_API.G_FALSE,
515:
516:
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO create_contact_preference_pub;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: FND_MSG_PUB.Count_And_Get(
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518: ROLLBACK TO create_contact_preference_pub;
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
520: FND_MSG_PUB.Count_And_Get(
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data);
524:
525: -- Debug info.
539: --disable_debug;
540:
541: WHEN OTHERS THEN
542: ROLLBACK TO create_contact_preference_pub;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
549: p_count => x_msg_count,
550: p_data => x_msg_data);
551:
552: -- Debug info.
578: *
579: * ARGUMENTS
580: * IN:
581: * p_init_msg_list Initialize message stack if it is set to
582: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
583: * p_contact_preference_rec Contact Preference record.
584: * IN/OUT:
585: * p_object_version_number Used for locking the being updated record.
586: * OUT:
584: * IN/OUT:
585: * p_object_version_number Used for locking the being updated record.
586: * OUT:
587: * x_return_status Return status after the call. The status can
588: * be FND_API.G_RET_STS_SUCCESS (success),
589: * FND_API.G_RET_STS_ERROR (error),
590: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
591: * x_msg_count Number of messages in message stack.
592: * x_msg_data Message text if x_msg_count is 1.
585: * p_object_version_number Used for locking the being updated record.
586: * OUT:
587: * x_return_status Return status after the call. The status can
588: * be FND_API.G_RET_STS_SUCCESS (success),
589: * FND_API.G_RET_STS_ERROR (error),
590: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
591: * x_msg_count Number of messages in message stack.
592: * x_msg_data Message text if x_msg_count is 1.
593: *
586: * OUT:
587: * x_return_status Return status after the call. The status can
588: * be FND_API.G_RET_STS_SUCCESS (success),
589: * FND_API.G_RET_STS_ERROR (error),
590: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
591: * x_msg_count Number of messages in message stack.
592: * x_msg_data Message text if x_msg_count is 1.
593: *
594: * NOTES
599: *
600: */
601:
602: PROCEDURE update_contact_preference(
603: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
604: p_contact_preference_rec IN CONTACT_PREFERENCE_REC_TYPE,
605: p_object_version_number IN OUT NOCOPY NUMBER,
606: x_return_status OUT NOCOPY VARCHAR2,
607: x_msg_count OUT NOCOPY NUMBER,
627: p_msg_level=>fnd_log.level_procedure);
628: END IF;
629:
630: --Initialize message list if p_init_msg_list is set to TRUE.
631: IF FND_API.to_Boolean(p_init_msg_list) THEN
632: FND_MSG_PUB.initialize;
633: END IF;
634:
635: --Initialize API return status to success.
632: FND_MSG_PUB.initialize;
633: END IF;
634:
635: --Initialize API return status to success.
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
637:
638: --2290537
639: get_contact_preference_rec (
640: p_contact_preference_id => p_contact_preference_rec.contact_preference_id,
642: x_return_status => x_return_status,
643: x_msg_count => x_msg_count,
644: x_msg_data => x_msg_data);
645:
646: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
643: x_msg_count => x_msg_count,
644: x_msg_data => x_msg_data);
645:
646: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
644: x_msg_data => x_msg_data);
645:
646: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
652: -- Call to business logic.
645:
646: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
647: RAISE FND_API.G_EXC_ERROR;
648: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
652: -- Call to business logic.
653: do_update_contact_preference(
654: l_contact_preference_rec,
655: p_object_version_number,
656: x_return_status);
657:
658: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
659: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
660: -- Invoke business event system.
661: HZ_BUSINESS_EVENT_V2PVT.update_contact_prefer_event (
662: l_contact_preference_rec , l_old_contact_preference_rec );
670: END IF;
671:
672: --Standard call to get message count and if count is 1, get message info.
673: FND_MSG_PUB.Count_And_Get(
674: p_encoded => FND_API.G_FALSE,
675: p_count => x_msg_count,
676: p_data => x_msg_data);
677:
678: -- Debug info.
691: -- Check if API is called in debug mode. If yes, disable debug.
692: --disable_debug;
693:
694: EXCEPTION
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO update_contact_preference_pub;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: FND_MSG_PUB.Count_And_Get(
699: p_encoded => FND_API.G_FALSE,
693:
694: EXCEPTION
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO update_contact_preference_pub;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: FND_MSG_PUB.Count_And_Get(
699: p_encoded => FND_API.G_FALSE,
700: p_count => x_msg_count,
701: p_data => x_msg_data);
695: WHEN FND_API.G_EXC_ERROR THEN
696: ROLLBACK TO update_contact_preference_pub;
697: x_return_status := FND_API.G_RET_STS_ERROR;
698: FND_MSG_PUB.Count_And_Get(
699: p_encoded => FND_API.G_FALSE,
700: p_count => x_msg_count,
701: p_data => x_msg_data);
702:
703: -- Debug info.
715:
716: -- Check if API is called in debug mode. If yes, disable debug.
717: --disable_debug;
718:
719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO update_contact_preference_pub;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
717: --disable_debug;
718:
719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO update_contact_preference_pub;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
719: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
720: ROLLBACK TO update_contact_preference_pub;
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: FND_MSG_PUB.Count_And_Get(
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
726:
727: -- Debug info.
741: --disable_debug;
742:
743: WHEN OTHERS THEN
744: ROLLBACK TO update_contact_preference_pub;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
747: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
748: FND_MSG_PUB.ADD;
749: FND_MSG_PUB.Count_And_Get(
746: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
747: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
748: FND_MSG_PUB.ADD;
749: FND_MSG_PUB.Count_And_Get(
750: p_encoded => FND_API.G_FALSE,
751: p_count => x_msg_count,
752: p_data => x_msg_data);
753:
754: -- Debug info.
779: *
780: * ARGUMENTS
781: * IN:
782: * p_init_msg_list Initialize message stack if it is set to
783: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
784: * p_contact_preference_id Contact preference id.
785: * IN/OUT:
786: * OUT:
787: * x_contact_preference_rec Returned contact preference record.
785: * IN/OUT:
786: * OUT:
787: * x_contact_preference_rec Returned contact preference record.
788: * x_return_status Return status after the call. The status can
789: * be FND_API.G_RET_STS_SUCCESS (success),
790: * FND_API.G_RET_STS_ERROR (error),
791: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
792: * x_msg_count Number of messages in message stack.
793: * x_msg_data Message text if x_msg_count is 1.
786: * OUT:
787: * x_contact_preference_rec Returned contact preference record.
788: * x_return_status Return status after the call. The status can
789: * be FND_API.G_RET_STS_SUCCESS (success),
790: * FND_API.G_RET_STS_ERROR (error),
791: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
792: * x_msg_count Number of messages in message stack.
793: * x_msg_data Message text if x_msg_count is 1.
794: *
787: * x_contact_preference_rec Returned contact preference record.
788: * x_return_status Return status after the call. The status can
789: * be FND_API.G_RET_STS_SUCCESS (success),
790: * FND_API.G_RET_STS_ERROR (error),
791: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
792: * x_msg_count Number of messages in message stack.
793: * x_msg_data Message text if x_msg_count is 1.
794: *
795: * NOTES
800: *
801: */
802:
803: PROCEDURE get_contact_preference_rec (
804: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
805: p_contact_preference_id IN NUMBER,
806: x_contact_preference_rec OUT NOCOPY CONTACT_PREFERENCE_REC_TYPE,
807: x_return_status OUT NOCOPY VARCHAR2,
808: x_msg_count OUT NOCOPY NUMBER,
821: p_msg_level=>fnd_log.level_procedure);
822: END IF;
823:
824: --Initialize message list if p_init_msg_list is set to TRUE.
825: IF FND_API.to_Boolean(p_init_msg_list) THEN
826: FND_MSG_PUB.initialize;
827: END IF;
828:
829: --Initialize API return status to success.
826: FND_MSG_PUB.initialize;
827: END IF;
828:
829: --Initialize API return status to success.
830: x_return_status := FND_API.G_RET_STS_SUCCESS;
831:
832: --Check whether primary key has been passed in.
833: IF p_contact_preference_id IS NULL OR
834: p_contact_preference_id = FND_API.G_MISS_NUM THEN
830: x_return_status := FND_API.G_RET_STS_SUCCESS;
831:
832: --Check whether primary key has been passed in.
833: IF p_contact_preference_id IS NULL OR
834: p_contact_preference_id = FND_API.G_MISS_NUM THEN
835: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
836: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'contact_preference_id' );
837: FND_MSG_PUB.ADD;
838: RAISE FND_API.G_EXC_ERROR;
834: p_contact_preference_id = FND_API.G_MISS_NUM THEN
835: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
836: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'contact_preference_id' );
837: FND_MSG_PUB.ADD;
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
841: x_contact_preference_rec.contact_preference_id := p_contact_preference_id;
842:
877: END IF;
878:
879: --Standard call to get message count and if count is 1, get message info.
880: FND_MSG_PUB.Count_And_Get(
881: p_encoded => FND_API.G_FALSE,
882: p_count => x_msg_count,
883: p_data => x_msg_data );
884:
885: -- Debug info.
899: --disable_debug;
900:
901:
902: EXCEPTION
903: WHEN FND_API.G_EXC_ERROR THEN
904: x_return_status := FND_API.G_RET_STS_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
907: p_encoded => FND_API.G_FALSE,
900:
901:
902: EXCEPTION
903: WHEN FND_API.G_EXC_ERROR THEN
904: x_return_status := FND_API.G_RET_STS_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
903: WHEN FND_API.G_EXC_ERROR THEN
904: x_return_status := FND_API.G_RET_STS_ERROR;
905:
906: FND_MSG_PUB.Count_And_Get(
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
909: p_data => x_msg_data );
910:
911: -- Debug info.
923:
924: -- Check if API is called in debug mode. If yes, disable debug.
925: --disable_debug;
926:
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929:
930: FND_MSG_PUB.Count_And_Get(
931: p_encoded => FND_API.G_FALSE,
924: -- Check if API is called in debug mode. If yes, disable debug.
925: --disable_debug;
926:
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929:
930: FND_MSG_PUB.Count_And_Get(
931: p_encoded => FND_API.G_FALSE,
932: p_count => x_msg_count,
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
929:
930: FND_MSG_PUB.Count_And_Get(
931: p_encoded => FND_API.G_FALSE,
932: p_count => x_msg_count,
933: p_data => x_msg_data );
934:
935: -- Debug info.
948: -- Check if API is called in debug mode. If yes, disable debug.
949: --disable_debug;
950:
951: WHEN OTHERS THEN
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953:
954: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
955: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
956: FND_MSG_PUB.ADD;
955: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
956: FND_MSG_PUB.ADD;
957:
958: FND_MSG_PUB.Count_And_Get(
959: p_encoded => FND_API.G_FALSE,
960: p_count => x_msg_count,
961: p_data => x_msg_data );
962:
963: -- Debug info.