85: FND_MSG_PUB.add;
86: IF (PV_DEBUG_HIGH_ON) THEN
87: PVX_UTILITY_PVT.debug_message('No Data found for the payment method description in Get_Pmnt_Mode_Desc');
88: END IF;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
91: CLOSE c_get_pv_prgm_pmt_mode;
92: END IF;
93: CLOSE c_get_oe_prgm_pmt_mode;
140: IF (PV_DEBUG_HIGH_ON) THEN
141:
142: PVX_UTILITY_PVT.debug_message('No Data found for the payment method description');
143: END IF;
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: CLOSE c_get_geo_hierarchy;
147:
148:
159:
160:
161: PROCEDURE Create_Prgm_Pmt_Mode(
162: p_api_version_number IN NUMBER
163: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
164: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
165: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
166:
167: ,x_return_status OUT NOCOPY VARCHAR2
160:
161: PROCEDURE Create_Prgm_Pmt_Mode(
162: p_api_version_number IN NUMBER
163: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
164: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
165: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
166:
167: ,x_return_status OUT NOCOPY VARCHAR2
168: ,x_msg_count OUT NOCOPY NUMBER
161: PROCEDURE Create_Prgm_Pmt_Mode(
162: p_api_version_number IN NUMBER
163: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
164: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
165: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
166:
167: ,x_return_status OUT NOCOPY VARCHAR2
168: ,x_msg_count OUT NOCOPY NUMBER
169: ,x_msg_data OUT NOCOPY VARCHAR2
208: -- Standard Start of API savepoint
209: SAVEPOINT Create_Prgm_Pmt_Mode_PVT;
210:
211: -- Initialize message list if p_init_msg_list is set to TRUE.
212: IF FND_API.to_Boolean( p_init_msg_list )
213: THEN
214: FND_MSG_PUB.initialize;
215: END IF;
216:
214: FND_MSG_PUB.initialize;
215: END IF;
216:
217: -- Standard call to check for call compatibility.
218: IF NOT FND_API.Compatible_API_Call (
219: l_api_version_number
220: ,p_api_version_number
221: ,l_api_name
222: ,G_PKG_NAME
221: ,l_api_name
222: ,G_PKG_NAME
223: )
224: THEN
225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
226: END IF;
227:
228: -- Debug Message
229: IF (PV_DEBUG_HIGH_ON) THEN
232: END IF;
233:
234:
235: -- Initialize API return status to SUCCESS
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237:
238: --------------- validate -------------------------
239:
240: IF (PV_DEBUG_HIGH_ON) THEN
247:
248: IF FND_GLOBAL.User_Id IS NULL THEN
249: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
250: FND_MSG_PUB.add;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253:
254: l_create := true;
255: IF l_prgm_pmt_mode_rec.mode_of_payment = 'PO_NUM_DISABLED' or l_prgm_pmt_mode_rec.mode_of_payment = 'PO_NUM_ENABLED' THEN
282: END IF;
283:
284: IF l_create THEN
285: IF l_prgm_pmt_mode_rec.program_payment_mode_id IS NULL OR
286: l_prgm_pmt_mode_rec.program_payment_mode_id = FND_API.g_miss_num THEN
287: LOOP
288: -- Get the identifier
289: OPEN c_prgm_pmt_mode_id_seq;
290: FETCH c_prgm_pmt_mode_id_seq INTO l_prgm_pmt_mode_rec.program_payment_mode_id;
304:
305: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - program_payment_mode_id = '|| l_prgm_pmt_mode_rec.program_payment_mode_id);
306: END IF;
307:
308: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
309: -- Debug message
310: IF (PV_DEBUG_HIGH_ON) THEN
311:
312: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - Validate_Prgm_Pmt_Mode');
322:
323: -- Invoke validation procedures
324: Validate_Prgm_Pmt_Mode(
325: p_api_version_number => 1.0
326: ,p_init_msg_list => FND_API.G_FALSE
327: ,p_validation_level => p_validation_level
328: ,p_validation_mode => JTF_PLSQL_API.g_create
329: ,p_prgm_pmt_mode_rec => l_prgm_pmt_mode_rec
330: ,x_return_status => x_return_status
337: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - Validate_Prgm_Pmt_Mode return_status = ' || x_return_status );
338: END IF;
339: END IF;
340:
341: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
338: END IF;
339: END IF;
340:
341: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
346: RAISE FND_API.g_exc_error;
341: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
346: RAISE FND_API.g_exc_error;
347: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
348: RAISE FND_API.g_exc_unexpected_error;
349: END IF;
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
346: RAISE FND_API.g_exc_error;
347: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
348: RAISE FND_API.g_exc_unexpected_error;
349: END IF;
350:
343: END IF;
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
346: RAISE FND_API.g_exc_error;
347: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
348: RAISE FND_API.g_exc_unexpected_error;
349: END IF;
350:
351: -- Debug Message
344:
345: IF x_return_status = FND_API.g_ret_sts_error THEN
346: RAISE FND_API.g_exc_error;
347: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
348: RAISE FND_API.g_exc_unexpected_error;
349: END IF;
350:
351: -- Debug Message
352: IF (PV_DEBUG_HIGH_ON) THEN
371:
372: x_program_payment_mode_id := l_prgm_pmt_mode_rec.program_payment_mode_id;
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
372: x_program_payment_mode_id := l_prgm_pmt_mode_rec.program_payment_mode_id;
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
373: END IF;
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
381: FND_MSG_PUB.count_and_get(
374:
375: IF x_return_status = FND_API.g_ret_sts_error THEN
376: RAISE FND_API.g_exc_error;
377: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
381: FND_MSG_PUB.count_and_get(
382: p_encoded => FND_API.g_false
378: RAISE FND_API.g_exc_unexpected_error;
379: END IF;
380:
381: FND_MSG_PUB.count_and_get(
382: p_encoded => FND_API.g_false
383: ,p_count => x_msg_count
384: ,p_data => x_msg_data
385: );
386:
390: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
391: END IF;
392:
393: -- Standard check for p_commit
394: IF FND_API.to_Boolean( p_commit ) THEN
395: COMMIT WORK;
396: END IF;
397:
398: EXCEPTION
395: COMMIT WORK;
396: END IF;
397:
398: EXCEPTION
399: WHEN FND_API.G_EXC_ERROR THEN
400: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
397:
398: EXCEPTION
399: WHEN FND_API.G_EXC_ERROR THEN
400: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE
405: ,p_count => x_msg_count
400: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE
405: ,p_count => x_msg_count
406: ,p_data => x_msg_data
407: );
408:
405: ,p_count => x_msg_count
406: ,p_data => x_msg_data
407: );
408:
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: -- Standard call to get message count and if count=1, get the message
413: FND_MSG_PUB.Count_And_Get (
407: );
408:
409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
410: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: -- Standard call to get message count and if count=1, get the message
413: FND_MSG_PUB.Count_And_Get (
414: p_encoded => FND_API.G_FALSE
415: ,p_count => x_msg_count
410: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: -- Standard call to get message count and if count=1, get the message
413: FND_MSG_PUB.Count_And_Get (
414: p_encoded => FND_API.G_FALSE
415: ,p_count => x_msg_count
416: ,p_data => x_msg_data
417: );
418:
417: );
418:
419: WHEN OTHERS THEN
420: ROLLBACK TO Create_Prgm_Pmt_Mode_PVT;
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
423: THEN
424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
425: END IF;
424: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
425: END IF;
426: -- Standard call to get message count and if count=1, get the message
427: FND_MSG_PUB.Count_And_Get (
428: p_encoded => FND_API.G_FALSE
429: ,p_count => x_msg_count
430: ,p_data => x_msg_data
431: );
432:
434:
435:
436: PROCEDURE Update_Prgm_Pmt_Mode(
437: p_api_version_number IN NUMBER
438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
439: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
440: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
441:
442: ,x_return_status OUT NOCOPY VARCHAR2
435:
436: PROCEDURE Update_Prgm_Pmt_Mode(
437: p_api_version_number IN NUMBER
438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
439: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
440: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
441:
442: ,x_return_status OUT NOCOPY VARCHAR2
443: ,x_msg_count OUT NOCOPY NUMBER
436: PROCEDURE Update_Prgm_Pmt_Mode(
437: p_api_version_number IN NUMBER
438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
439: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
440: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
441:
442: ,x_return_status OUT NOCOPY VARCHAR2
443: ,x_msg_count OUT NOCOPY NUMBER
444: ,x_msg_data OUT NOCOPY VARCHAR2
485: -- Standard Start of API savepoint
486: SAVEPOINT Update_Prgm_Pmt_Mode_PVT;
487:
488: -- Standard call to check for call compatibility.
489: IF NOT FND_API.Compatible_API_Call (l_api_version_number
490: ,p_api_version_number
491: ,l_api_name
492: ,G_PKG_NAME
493: )
491: ,l_api_name
492: ,G_PKG_NAME
493: )
494: THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: END IF;
497:
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean( p_init_msg_list )
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: END IF;
497:
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean( p_init_msg_list )
500: THEN
501: FND_MSG_PUB.initialize;
502: END IF;
503:
501: FND_MSG_PUB.initialize;
502: END IF;
503:
504: -- Initialize API return status to SUCCESS
505: x_return_status := FND_API.G_RET_STS_SUCCESS;
506:
507: OPEN c_get_prgm_pmt_mode( l_tar_prgm_pmt_mode_rec.program_payment_mode_id);
508: FETCH c_get_prgm_pmt_mode INTO l_ref_prgm_pmt_mode_rec ;
509:
512: FND_MESSAGE.set_token('MODE','Update');
513: FND_MESSAGE.set_token('ENTITY','prgm_pmt_mode');
514: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_prgm_pmt_mode_rec.program_payment_mode_id));
515: FND_MSG_PUB.add;
516: RAISE FND_API.G_EXC_ERROR;
517: END IF;
518:
519: -- Debug Message
520: IF (PV_DEBUG_HIGH_ON) THEN
523: END IF;
524: CLOSE c_get_prgm_pmt_mode;
525:
526: If (l_tar_prgm_pmt_mode_rec.object_version_number is NULL or
527: l_tar_prgm_pmt_mode_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
528:
529: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
530: FND_MESSAGE.set_token('COLUMN','object_version_number');
531: FND_MSG_PUB.add;
528:
529: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
530: FND_MESSAGE.set_token('COLUMN','object_version_number');
531: FND_MSG_PUB.add;
532: RAISE FND_API.G_EXC_ERROR;
533: END IF;
534:
535:
536:
538: IF (l_tar_prgm_pmt_mode_rec.object_version_number <> l_ref_prgm_pmt_mode_rec.object_version_number) THEN
539: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
540: FND_MESSAGE.set_token('VALUE','prgm_pmt_mode');
541: FND_MSG_PUB.add;
542: RAISE FND_API.G_EXC_ERROR;
543: END IF;
544:
545:
546:
549: if(x.geo_hierarchy_id <> p_prgm_pmt_mode_rec.geo_hierarchy_id) then
550: FOR y in c_prgm_duplicate_pmt_mode(p_prgm_pmt_mode_rec.geo_hierarchy_id) LOOP
551: Delete_Prgm_Pmt_Mode(
552: p_api_version_number => l_api_version_number
553: ,p_init_msg_list => FND_API.G_FALSE
554: ,p_commit => FND_API.G_FALSE
555: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
556: ,x_return_status => x_return_status
557: ,x_msg_count => x_msg_count
550: FOR y in c_prgm_duplicate_pmt_mode(p_prgm_pmt_mode_rec.geo_hierarchy_id) LOOP
551: Delete_Prgm_Pmt_Mode(
552: p_api_version_number => l_api_version_number
553: ,p_init_msg_list => FND_API.G_FALSE
554: ,p_commit => FND_API.G_FALSE
555: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
556: ,x_return_status => x_return_status
557: ,x_msg_count => x_msg_count
558: ,x_msg_data => x_msg_data
551: Delete_Prgm_Pmt_Mode(
552: p_api_version_number => l_api_version_number
553: ,p_init_msg_list => FND_API.G_FALSE
554: ,p_commit => FND_API.G_FALSE
555: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
556: ,x_return_status => x_return_status
557: ,x_msg_count => x_msg_count
558: ,x_msg_data => x_msg_data
559: ,p_program_payment_mode_id => y.program_payment_mode_id
565: PVX_UTILITY_PVT.debug_message('x_msg_count from delete api to delete the duplicate record ' || x_msg_count);
566: PVX_UTILITY_PVT.debug_message('x_msg_data from delete api to delete the duplicate record ' || x_msg_data);
567: END IF;
568:
569: IF x_return_status = FND_API.g_ret_sts_error THEN
570: RAISE FND_API.g_exc_error;
571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
572: RAISE FND_API.g_exc_unexpected_error;
573: END IF;
566: PVX_UTILITY_PVT.debug_message('x_msg_data from delete api to delete the duplicate record ' || x_msg_data);
567: END IF;
568:
569: IF x_return_status = FND_API.g_ret_sts_error THEN
570: RAISE FND_API.g_exc_error;
571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
572: RAISE FND_API.g_exc_unexpected_error;
573: END IF;
574: END LOOP;
567: END IF;
568:
569: IF x_return_status = FND_API.g_ret_sts_error THEN
570: RAISE FND_API.g_exc_error;
571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
572: RAISE FND_API.g_exc_unexpected_error;
573: END IF;
574: END LOOP;
575:
568:
569: IF x_return_status = FND_API.g_ret_sts_error THEN
570: RAISE FND_API.g_exc_error;
571: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
572: RAISE FND_API.g_exc_unexpected_error;
573: END IF;
574: END LOOP;
575:
576: elsif (x.mode_of_payment = p_prgm_pmt_mode_rec.mode_of_payment) then
583: if(l_update) then
584:
585:
586:
587: IF ( p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
588: -- Debug message
589: IF (PV_DEBUG_HIGH_ON) THEN
590:
591: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Validate_Prgm_Pmt_Mode');
593:
594: -- Invoke validation procedures
595: Validate_Prgm_Pmt_Mode(
596: p_api_version_number => 1.0
597: ,p_init_msg_list => FND_API.G_FALSE
598: ,p_validation_level => p_validation_level
599: ,p_validation_mode => JTF_PLSQL_API.g_update
600: ,p_prgm_pmt_mode_rec => p_prgm_pmt_mode_rec
601: ,x_return_status => x_return_status
603: ,x_msg_data => x_msg_data
604: );
605: END IF;
606:
607: IF x_return_status = FND_API.g_ret_sts_error THEN
608: RAISE FND_API.g_exc_error;
609: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
610: RAISE FND_API.g_exc_unexpected_error;
611: END IF;
604: );
605: END IF;
606:
607: IF x_return_status = FND_API.g_ret_sts_error THEN
608: RAISE FND_API.g_exc_error;
609: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
610: RAISE FND_API.g_exc_unexpected_error;
611: END IF;
612:
605: END IF;
606:
607: IF x_return_status = FND_API.g_ret_sts_error THEN
608: RAISE FND_API.g_exc_error;
609: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
610: RAISE FND_API.g_exc_unexpected_error;
611: END IF;
612:
613: -- replace g_miss_char/num/date with current column values
606:
607: IF x_return_status = FND_API.g_ret_sts_error THEN
608: RAISE FND_API.g_exc_error;
609: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
610: RAISE FND_API.g_exc_unexpected_error;
611: END IF;
612:
613: -- replace g_miss_char/num/date with current column values
614: Complete_Rec(
637:
638: End if;
639:
640: -- Check for commit
641: IF FND_API.to_boolean(p_commit) THEN
642: COMMIT;
643: END IF;
644:
645: FND_MSG_PUB.count_and_get(
642: COMMIT;
643: END IF;
644:
645: FND_MSG_PUB.count_and_get(
646: p_encoded => FND_API.g_false
647: ,p_count => x_msg_count
648: ,p_data => x_msg_data
649: );
650:
654: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
655: END IF;
656:
657: EXCEPTION
658: WHEN FND_API.G_EXC_ERROR THEN
659: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: -- Standard call to get message count and if count=1, get the message
662: FND_MSG_PUB.Count_And_Get (
656:
657: EXCEPTION
658: WHEN FND_API.G_EXC_ERROR THEN
659: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: -- Standard call to get message count and if count=1, get the message
662: FND_MSG_PUB.Count_And_Get (
663: p_encoded => FND_API.G_FALSE
664: ,p_count => x_msg_count
659: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
660: x_return_status := FND_API.G_RET_STS_ERROR;
661: -- Standard call to get message count and if count=1, get the message
662: FND_MSG_PUB.Count_And_Get (
663: p_encoded => FND_API.G_FALSE
664: ,p_count => x_msg_count
665: ,p_data => x_msg_data
666: );
667:
664: ,p_count => x_msg_count
665: ,p_data => x_msg_data
666: );
667:
668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
669: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: -- Standard call to get message count and if count=1, get the message
672: FND_MSG_PUB.Count_And_Get (
666: );
667:
668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
669: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: -- Standard call to get message count and if count=1, get the message
672: FND_MSG_PUB.Count_And_Get (
673: p_encoded => FND_API.G_FALSE
674: ,p_count => x_msg_count
669: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671: -- Standard call to get message count and if count=1, get the message
672: FND_MSG_PUB.Count_And_Get (
673: p_encoded => FND_API.G_FALSE
674: ,p_count => x_msg_count
675: ,p_data => x_msg_data
676: );
677:
676: );
677:
678: WHEN OTHERS THEN
679: ROLLBACK TO Update_Prgm_Pmt_Mode_PVT;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
681: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
682: THEN
683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
684: END IF;
683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
684: END IF;
685: -- Standard call to get message count and if count=1, get the message
686: FND_MSG_PUB.Count_And_Get (
687: p_encoded => FND_API.G_FALSE
688: ,p_count => x_msg_count
689: ,p_data => x_msg_data
690: );
691: End Update_Prgm_Pmt_Mode;
693:
694:
695: PROCEDURE Delete_Prgm_Pmt_Mode(
696: p_api_version_number IN NUMBER
697: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
698: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
699: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
700: ,x_return_status OUT NOCOPY VARCHAR2
701: ,x_msg_count OUT NOCOPY NUMBER
694:
695: PROCEDURE Delete_Prgm_Pmt_Mode(
696: p_api_version_number IN NUMBER
697: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
698: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
699: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
700: ,x_return_status OUT NOCOPY VARCHAR2
701: ,x_msg_count OUT NOCOPY NUMBER
702: ,x_msg_data OUT NOCOPY VARCHAR2
695: PROCEDURE Delete_Prgm_Pmt_Mode(
696: p_api_version_number IN NUMBER
697: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
698: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
699: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
700: ,x_return_status OUT NOCOPY VARCHAR2
701: ,x_msg_count OUT NOCOPY NUMBER
702: ,x_msg_data OUT NOCOPY VARCHAR2
703: ,p_program_payment_mode_id IN NUMBER
723: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
724: END IF;
725:
726: -- Standard call to check for call compatibility.
727: IF NOT FND_API.Compatible_API_Call (l_api_version_number
728: ,p_api_version_number
729: ,l_api_name
730: ,G_PKG_NAME
731: )
729: ,l_api_name
730: ,G_PKG_NAME
731: )
732: THEN
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735:
736: -- Initialize message list if p_init_msg_list is set to TRUE.
737: IF FND_API.to_Boolean( p_init_msg_list )
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735:
736: -- Initialize message list if p_init_msg_list is set to TRUE.
737: IF FND_API.to_Boolean( p_init_msg_list )
738: THEN
739: FND_MSG_PUB.initialize;
740: END IF;
741:
739: FND_MSG_PUB.initialize;
740: END IF;
741:
742: -- Initialize API return status to SUCCESS
743: x_return_status := FND_API.G_RET_STS_SUCCESS;
744:
745: -- Debug Message
746: IF (PV_DEBUG_HIGH_ON) THEN
747:
754: ,p_object_version_number => p_object_version_number
755: );
756:
757: -- Check for commit
758: IF FND_API.to_boolean(p_commit) THEN
759: COMMIT;
760: END IF;
761:
762: FND_MSG_PUB.count_and_get(
759: COMMIT;
760: END IF;
761:
762: FND_MSG_PUB.count_and_get(
763: p_encoded => FND_API.g_false
764: ,p_count => x_msg_count
765: ,p_data => x_msg_data
766: );
767:
771: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
772: END IF;
773:
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
777: x_return_status := FND_API.G_RET_STS_ERROR;
778: -- Standard call to get message count and if count=1, get the message
779: FND_MSG_PUB.Count_And_Get (
773:
774: EXCEPTION
775: WHEN FND_API.G_EXC_ERROR THEN
776: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
777: x_return_status := FND_API.G_RET_STS_ERROR;
778: -- Standard call to get message count and if count=1, get the message
779: FND_MSG_PUB.Count_And_Get (
780: p_encoded => FND_API.G_FALSE
781: ,p_count => x_msg_count
776: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
777: x_return_status := FND_API.G_RET_STS_ERROR;
778: -- Standard call to get message count and if count=1, get the message
779: FND_MSG_PUB.Count_And_Get (
780: p_encoded => FND_API.G_FALSE
781: ,p_count => x_msg_count
782: ,p_data => x_msg_data
783: );
784:
781: ,p_count => x_msg_count
782: ,p_data => x_msg_data
783: );
784:
785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788: -- Standard call to get message count and if count=1, get the message
789: FND_MSG_PUB.Count_And_Get (
783: );
784:
785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788: -- Standard call to get message count and if count=1, get the message
789: FND_MSG_PUB.Count_And_Get (
790: p_encoded => FND_API.G_FALSE
791: ,p_count => x_msg_count
786: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788: -- Standard call to get message count and if count=1, get the message
789: FND_MSG_PUB.Count_And_Get (
790: p_encoded => FND_API.G_FALSE
791: ,p_count => x_msg_count
792: ,p_data => x_msg_data
793: );
794:
793: );
794:
795: WHEN OTHERS THEN
796: ROLLBACK TO Delete_Prgm_Pmt_Mode_PVT;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
799: THEN
800: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
801: END IF;
800: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
801: END IF;
802: -- Standard call to get message count and if count=1, get the message
803: FND_MSG_PUB.Count_And_Get (
804: p_encoded => FND_API.G_FALSE
805: ,p_count => x_msg_count
806: ,p_data => x_msg_data
807: );
808:
811:
812:
813: PROCEDURE Lock_Prgm_Pmt_Mode(
814: p_api_version_number IN NUMBER
815: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
816:
817: ,x_return_status OUT NOCOPY VARCHAR2
818: ,x_msg_count OUT NOCOPY NUMBER
819: ,x_msg_data OUT NOCOPY VARCHAR2
843: PVX_UTILITY_PVT.debug_message('Private API: '||l_full_name||' - start');
844: END IF;
845:
846: -- Initialize message list if p_init_msg_list is set to TRUE.
847: IF FND_API.to_Boolean( p_init_msg_list )
848: THEN
849: FND_MSG_PUB.initialize;
850: END IF;
851:
849: FND_MSG_PUB.initialize;
850: END IF;
851:
852: -- Standard call to check for call compatibility.
853: IF NOT FND_API.Compatible_API_Call (
854: l_api_version_number
855: ,p_api_version_number
856: ,l_api_name
857: ,G_PKG_NAME
856: ,l_api_name
857: ,G_PKG_NAME
858: )
859: THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862:
863:
864: -- Initialize API return status to SUCCESS
861: END IF;
862:
863:
864: -- Initialize API return status to SUCCESS
865: x_return_status := FND_API.G_RET_STS_SUCCESS;
866:
867:
868: ------------------------ lock -------------------------
869:
883: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
884: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
885: FND_MSG_PUB.add;
886: END IF;
887: RAISE FND_API.g_exc_error;
888: END IF;
889:
890: CLOSE c_prgm_pmt_mode;
891:
890: CLOSE c_prgm_pmt_mode;
891:
892: -------------------- finish --------------------------
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.g_false
895: ,p_count => x_msg_count
896: ,p_data => x_msg_data
897: );
898:
904:
905: EXCEPTION
906: /*
907: WHEN PVX_UTILITY_PVT.resource_locked THEN
908: x_return_status := FND_API.g_ret_sts_error;
909: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
910: */
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
907: WHEN PVX_UTILITY_PVT.resource_locked THEN
908: x_return_status := FND_API.g_ret_sts_error;
909: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
910: */
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
909: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
910: */
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
916: p_encoded => FND_API.G_FALSE
917: ,p_count => x_msg_count
912: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
916: p_encoded => FND_API.G_FALSE
917: ,p_count => x_msg_count
918: ,p_data => x_msg_data
919: );
920:
917: ,p_count => x_msg_count
918: ,p_data => x_msg_data
919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE
927: ,p_count => x_msg_count
922: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE
927: ,p_count => x_msg_count
928: ,p_data => x_msg_data
929: );
930:
930:
931:
932: WHEN OTHERS THEN
933: ROLLBACK TO Lock_Prgm_Pmt_Mode_PVT;
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
936: THEN
937: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
938: END IF;
937: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
938: END IF;
939: -- Standard call to get message count and if count=1, get the message
940: FND_MSG_PUB.Count_And_Get (
941: p_encoded => FND_API.G_FALSE
942: ,p_count => x_msg_count
943: ,p_data => x_msg_data
944: );
945:
978:
979:
980: BEGIN
981:
982: x_return_status := FND_API.g_ret_sts_success;
983: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
984:
985: l_valid_flag := PVX_UTILITY_PVT.check_uniqueness(
986: 'PV_PROGRAM_PAYMENT_MODE',
986: 'PV_PROGRAM_PAYMENT_MODE',
987: 'program_payment_mode_id = ''' || p_prgm_pmt_mode_rec.program_payment_mode_id ||''''
988: );
989:
990: IF l_valid_flag = FND_API.g_false THEN
991: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
992: FND_MESSAGE.set_token('ID',to_char(p_prgm_pmt_mode_rec.program_payment_mode_id) );
993: FND_MESSAGE.set_token('ENTITY','PRGM_PMT_MODE');
994: FND_MSG_PUB.add;
991: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
992: FND_MESSAGE.set_token('ID',to_char(p_prgm_pmt_mode_rec.program_payment_mode_id) );
993: FND_MESSAGE.set_token('ENTITY','PRGM_PMT_MODE');
994: FND_MSG_PUB.add;
995: x_return_status := FND_API.g_ret_sts_error;
996: RETURN;
997: END IF;
998:
999: END IF;
1013: ''' AND GEO_HIERARCHY_ID = ''' ||
1014: p_prgm_pmt_mode_rec.GEO_HIERARCHY_ID||''' '
1015: );
1016:
1017: IF l_valid_flag = FND_API.g_false THEN
1018: FND_MESSAGE.set_name('PV', 'PV_PMNT_MODE_DUPLICATE_ENTITY');
1019: OPEN c_payment_code(p_prgm_pmt_mode_rec.mode_of_payment);
1020: FETCH c_payment_code into l_mode_of_payment;
1021: FND_MESSAGE.set_token('ENTITY1', l_mode_of_payment);
1028: FND_MESSAGE.set_token('ENTITY3', l_geo_area_name);
1029: CLOSE c_geo_area_name;
1030:
1031: FND_MSG_PUB.ADD;
1032: x_return_status := Fnd_Api.g_ret_sts_error;
1033: RETURN;
1034:
1035: /*
1036: Get_Pmnt_Mode_Desc ( p_prgm_pmt_mode_rec.mode_of_payment
1053: FND_MESSAGE.set_token('ENTITY2',x_location_type_name);
1054: FND_MESSAGE.set_token('ENTITY3',x_geo_area_name);
1055: FND_MSG_PUB.add;
1056:
1057: x_return_status := FND_API.g_ret_sts_error;
1058: RETURN;
1059: */
1060: END IF;
1061:
1073: IS
1074:
1075: BEGIN
1076:
1077: x_return_status := FND_API.g_ret_sts_success;
1078:
1079: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1080:
1081: IF p_prgm_pmt_mode_rec.program_payment_mode_id = FND_API.g_miss_num
1077: x_return_status := FND_API.g_ret_sts_success;
1078:
1079: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1080:
1081: IF p_prgm_pmt_mode_rec.program_payment_mode_id = FND_API.g_miss_num
1082: OR p_prgm_pmt_mode_rec.program_payment_mode_id IS NULL THEN
1083: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1084: FND_MESSAGE.set_token('COLUMN','PROGRAM_PAYMENT_MODE_ID');
1085: FND_MSG_PUB.add;
1082: OR p_prgm_pmt_mode_rec.program_payment_mode_id IS NULL THEN
1083: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1084: FND_MESSAGE.set_token('COLUMN','PROGRAM_PAYMENT_MODE_ID');
1085: FND_MSG_PUB.add;
1086: x_return_status := FND_API.g_ret_sts_error;
1087: RETURN;
1088: END IF;
1089:
1090: /**
1087: RETURN;
1088: END IF;
1089:
1090: /**
1091: IF p_prgm_pmt_mode_rec.program_id = FND_API.g_miss_num OR
1092: p_prgm_pmt_mode_rec.program_id IS NULL THEN
1093: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1094: FND_MESSAGE.set_token('COLUMN','PROGRAM_ID');
1095: FND_MSG_PUB.add;
1092: p_prgm_pmt_mode_rec.program_id IS NULL THEN
1093: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1094: FND_MESSAGE.set_token('COLUMN','PROGRAM_ID');
1095: FND_MSG_PUB.add;
1096: x_return_status := FND_API.g_ret_sts_error;
1097: RETURN;
1098: END IF;
1099:
1100: */
1097: RETURN;
1098: END IF;
1099:
1100: */
1101: IF p_prgm_pmt_mode_rec.geo_hierarchy_id = FND_API.g_miss_num OR
1102: p_prgm_pmt_mode_rec.geo_hierarchy_id IS NULL THEN
1103: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1104: FND_MESSAGE.set_token('COLUMN','geo_hierarchy_id');
1105: FND_MSG_PUB.add;
1102: p_prgm_pmt_mode_rec.geo_hierarchy_id IS NULL THEN
1103: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1104: FND_MESSAGE.set_token('COLUMN','geo_hierarchy_id');
1105: FND_MSG_PUB.add;
1106: x_return_status := FND_API.g_ret_sts_error;
1107: RETURN;
1108: END IF;
1109:
1110:
1107: RETURN;
1108: END IF;
1109:
1110:
1111: IF p_prgm_pmt_mode_rec.mode_of_payment = FND_API.g_miss_char OR
1112: p_prgm_pmt_mode_rec.mode_of_payment IS NULL THEN
1113: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1114: FND_MESSAGE.set_token('COLUMN','MODE_OF_PAYMENT');
1115: FND_MSG_PUB.add;
1112: p_prgm_pmt_mode_rec.mode_of_payment IS NULL THEN
1113: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1114: FND_MESSAGE.set_token('COLUMN','MODE_OF_PAYMENT');
1115: FND_MSG_PUB.add;
1116: x_return_status := FND_API.g_ret_sts_error;
1117: RETURN;
1118: END IF;
1119:
1120: IF p_prgm_pmt_mode_rec.mode_type = FND_API.g_miss_char OR
1116: x_return_status := FND_API.g_ret_sts_error;
1117: RETURN;
1118: END IF;
1119:
1120: IF p_prgm_pmt_mode_rec.mode_type = FND_API.g_miss_char OR
1121: p_prgm_pmt_mode_rec.mode_type IS NULL THEN
1122: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1123: FND_MESSAGE.set_token('COLUMN','mode_type');
1124: FND_MSG_PUB.add;
1121: p_prgm_pmt_mode_rec.mode_type IS NULL THEN
1122: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1123: FND_MESSAGE.set_token('COLUMN','mode_type');
1124: FND_MSG_PUB.add;
1125: x_return_status := FND_API.g_ret_sts_error;
1126: RETURN;
1127: END IF;
1128:
1129: IF p_prgm_pmt_mode_rec.last_update_date = FND_API.g_miss_date OR
1125: x_return_status := FND_API.g_ret_sts_error;
1126: RETURN;
1127: END IF;
1128:
1129: IF p_prgm_pmt_mode_rec.last_update_date = FND_API.g_miss_date OR
1130: p_prgm_pmt_mode_rec.last_update_date IS NULL THEN
1131: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1132: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
1133: FND_MSG_PUB.add;
1130: p_prgm_pmt_mode_rec.last_update_date IS NULL THEN
1131: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1132: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_DATE');
1133: FND_MSG_PUB.add;
1134: x_return_status := FND_API.g_ret_sts_error;
1135: RETURN;
1136: END IF;
1137:
1138:
1135: RETURN;
1136: END IF;
1137:
1138:
1139: IF p_prgm_pmt_mode_rec.last_updated_by = FND_API.g_miss_num OR
1140: p_prgm_pmt_mode_rec.last_updated_by IS NULL THEN
1141: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1142: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
1143: FND_MSG_PUB.add;
1140: p_prgm_pmt_mode_rec.last_updated_by IS NULL THEN
1141: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1142: FND_MESSAGE.set_token('COLUMN','LAST_UPDATED_BY');
1143: FND_MSG_PUB.add;
1144: x_return_status := FND_API.g_ret_sts_error;
1145: RETURN;
1146: END IF;
1147:
1148:
1145: RETURN;
1146: END IF;
1147:
1148:
1149: IF p_prgm_pmt_mode_rec.creation_date = FND_API.g_miss_date OR
1150: p_prgm_pmt_mode_rec.creation_date IS NULL THEN
1151: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1152: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
1153: FND_MSG_PUB.add;
1150: p_prgm_pmt_mode_rec.creation_date IS NULL THEN
1151: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1152: FND_MESSAGE.set_token('COLUMN','CREATION_DATE');
1153: FND_MSG_PUB.add;
1154: x_return_status := FND_API.g_ret_sts_error;
1155: RETURN;
1156: END IF;
1157:
1158: -- Debug message
1160:
1161: PVX_UTILITY_PVT.debug_message('- In Check_Req_Items API Before Created_by Check' );
1162: END IF;
1163:
1164: IF p_prgm_pmt_mode_rec.created_by = FND_API.g_miss_num OR
1165: p_prgm_pmt_mode_rec.created_by IS NULL THEN
1166: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1167: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
1168: FND_MSG_PUB.add;
1165: p_prgm_pmt_mode_rec.created_by IS NULL THEN
1166: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1167: FND_MESSAGE.set_token('COLUMN','CREATED_BY');
1168: FND_MSG_PUB.add;
1169: x_return_status := FND_API.g_ret_sts_error;
1170: RETURN;
1171: END IF;
1172:
1173:
1170: RETURN;
1171: END IF;
1172:
1173:
1174: IF p_prgm_pmt_mode_rec.last_update_login = FND_API.g_miss_num OR
1175: p_prgm_pmt_mode_rec.last_update_login IS NULL THEN
1176: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1177: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
1178: FND_MSG_PUB.add;
1175: p_prgm_pmt_mode_rec.last_update_login IS NULL THEN
1176: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1177: FND_MESSAGE.set_token('COLUMN','LAST_UPDATE_LOGIN');
1178: FND_MSG_PUB.add;
1179: x_return_status := FND_API.g_ret_sts_error;
1180: RETURN;
1181: END IF;
1182:
1183:
1180: RETURN;
1181: END IF;
1182:
1183:
1184: IF p_prgm_pmt_mode_rec.object_version_number = FND_API.g_miss_num OR
1185: p_prgm_pmt_mode_rec.object_version_number IS NULL THEN
1186: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1187: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
1188: FND_MSG_PUB.add;
1185: p_prgm_pmt_mode_rec.object_version_number IS NULL THEN
1186: FND_MESSAGE.set_name('PV','PV_API_MISSING_REQ_COLUMN');
1187: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
1188: FND_MSG_PUB.add;
1189: x_return_status := FND_API.g_ret_sts_error;
1190: RETURN;
1191: END IF;
1192: ELSE
1193:
1194: IF p_prgm_pmt_mode_rec.program_payment_mode_id IS NULL THEN
1195: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1196: FND_MESSAGE.set_token('COLUMN','PROGRAM_PAYMENT_MODE_ID');
1197: FND_MSG_PUB.add;
1198: x_return_status := FND_API.g_ret_sts_error;
1199: RETURN;
1200: END IF;
1201:
1202: IF p_prgm_pmt_mode_rec.object_version_number IS NULL THEN
1202: IF p_prgm_pmt_mode_rec.object_version_number IS NULL THEN
1203: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1204: FND_MESSAGE.set_token('COLUMN','OBJECT_VERSION_NUMBER');
1205: FND_MSG_PUB.add;
1206: x_return_status := FND_API.g_ret_sts_error;
1207: RETURN;
1208: END IF;
1209: END IF;
1210:
1220: IS
1221:
1222: BEGIN
1223:
1224: x_return_status := FND_API.g_ret_sts_success;
1225:
1226: ----------------------- PROGRAM_ID ------------------------
1227: IF (p_prgm_pmt_mode_rec.PROGRAM_ID <> FND_API.g_miss_num
1228: AND p_prgm_pmt_mode_rec.PROGRAM_ID IS NOT NULL ) THEN
1223:
1224: x_return_status := FND_API.g_ret_sts_success;
1225:
1226: ----------------------- PROGRAM_ID ------------------------
1227: IF (p_prgm_pmt_mode_rec.PROGRAM_ID <> FND_API.g_miss_num
1228: AND p_prgm_pmt_mode_rec.PROGRAM_ID IS NOT NULL ) THEN
1229:
1230: -- Debug message
1231: IF (PV_DEBUG_HIGH_ON) THEN
1238: 'PROGRAM_ID', -- Column name in the parent object that maps to the fk value
1239: p_prgm_pmt_mode_rec.PROGRAM_ID, -- Value of fk to be validated against the parent object's pk column
1240: PVX_utility_PVT.g_number, -- datatype of fk
1241: NULL
1242: ) = FND_API.g_false
1243: THEN
1244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1245: THEN
1246: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PARTNER_PROGRAM');
1246: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_PARTNER_PROGRAM');
1247: FND_MSG_PUB.add;
1248: END IF;
1249:
1250: x_return_status := FND_API.g_ret_sts_error;
1251: RETURN;
1252: END IF;
1253: END IF;
1254:
1260:
1261: END IF;
1262:
1263: ----------------------- GEO_HIERARCHY_ID ------------------------
1264: IF (p_prgm_pmt_mode_rec.GEO_HIERARCHY_ID <> FND_API.g_miss_num
1265: AND p_prgm_pmt_mode_rec.GEO_HIERARCHY_ID IS NOT NULL ) THEN
1266:
1267: -- Debug message
1268: IF (PV_DEBUG_HIGH_ON) THEN
1275: 'LOCATION_HIERARCHY_ID', -- Column name in the parent object that maps to the fk value
1276: p_prgm_pmt_mode_rec.GEO_HIERARCHY_ID, -- Value of fk to be validated against the parent object's pk column
1277: PVX_UTILITY_PVT.g_number, -- datatype of fk
1278: NULL
1279: ) = FND_API.g_false
1280: THEN
1281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1282: THEN
1283: FND_MESSAGE.set_name('PV', 'PV_NOT_A_GEO_HIERARCHY');
1283: FND_MESSAGE.set_name('PV', 'PV_NOT_A_GEO_HIERARCHY');
1284: FND_MSG_PUB.add;
1285: END IF;
1286:
1287: x_return_status := FND_API.g_ret_sts_error;
1288: RETURN;
1289: END IF;
1290: END IF;
1291:
1298: ,x_return_status OUT NOCOPY VARCHAR2
1299: )
1300: IS
1301: BEGIN
1302: x_return_status := FND_API.g_ret_sts_success;
1303:
1304: IF p_prgm_pmt_mode_rec.mode_type <> FND_API.g_miss_char THEN
1305:
1306: IF PVX_Utility_PVT.check_lookup_exists(
1300: IS
1301: BEGIN
1302: x_return_status := FND_API.g_ret_sts_success;
1303:
1304: IF p_prgm_pmt_mode_rec.mode_type <> FND_API.g_miss_char THEN
1305:
1306: IF PVX_Utility_PVT.check_lookup_exists(
1307: 'PV_LOOKUPS', -- Look up Table Name
1308: 'PV_MODE_TYPE', -- Lookup Type
1306: IF PVX_Utility_PVT.check_lookup_exists(
1307: 'PV_LOOKUPS', -- Look up Table Name
1308: 'PV_MODE_TYPE', -- Lookup Type
1309: p_prgm_pmt_mode_rec.mode_type -- Lookup Code
1310: ) = FND_API.g_false
1311: THEN
1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1313: THEN
1314: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_MODE_TYPE');
1313: THEN
1314: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_MODE_TYPE');
1315: FND_MSG_PUB.add;
1316: END IF;
1317: x_return_status := FND_API.g_ret_sts_error;
1318: RETURN;
1319:
1320: END IF;
1321: END IF;
1361:
1362: PVX_UTILITY_PVT.debug_message('- After Check_Req_Items. return status = ' || x_return_status);
1363: END IF;
1364:
1365: IF x_return_status <> FND_API.g_ret_sts_success THEN
1366: RETURN;
1367: END IF;
1368:
1369: -- Debug message
1384:
1385: PVX_UTILITY_PVT.debug_message('- After Check_UK_Items. return status = ' || x_return_status);
1386: END IF;
1387:
1388: IF x_return_status <> FND_API.g_ret_sts_success THEN
1389: RETURN;
1390: END IF;
1391:
1392: -- Debug message
1406:
1407: PVX_UTILITY_PVT.debug_message('- After Check_FK_Items. return status = ' || x_return_status);
1408: END IF;
1409:
1410: IF x_return_status <> FND_API.g_ret_sts_success THEN
1411: RETURN;
1412: END IF;
1413:
1414: -- Debug message
1428:
1429: PVX_UTILITY_PVT.debug_message('- After Check_Lookup_Items. return status = ' || x_return_status);
1430: END IF;
1431:
1432: IF x_return_status <> FND_API.g_ret_sts_success THEN
1433: RETURN;
1434: END IF;
1435:
1436: END Check_Items;
1467: END IF;
1468:
1469: -- program_payment_mode_id
1470:
1471: -- IF p_prgm_pmt_mode_rec.program_payment_mode_id = FND_API.g_miss_num THEN
1472:
1473: IF p_prgm_pmt_mode_rec.program_payment_mode_id IS NULL THEN
1474: x_complete_rec.program_payment_mode_id := l_prgm_pmt_mode_rec.program_payment_mode_id;
1475: END IF;
1474: x_complete_rec.program_payment_mode_id := l_prgm_pmt_mode_rec.program_payment_mode_id;
1475: END IF;
1476:
1477: -- program_id
1478: -- IF p_prgm_pmt_mode_rec.program_id = FND_API.g_miss_num THEN
1479:
1480: IF p_prgm_pmt_mode_rec.program_id IS NULL THEN
1481: x_complete_rec.program_id := l_prgm_pmt_mode_rec.program_id;
1482: END IF;
1481: x_complete_rec.program_id := l_prgm_pmt_mode_rec.program_id;
1482: END IF;
1483:
1484: -- geo_hierarchy_id
1485: -- IF p_prgm_pmt_mode_rec.geo_hierarchy_id = FND_API.g_miss_num THEN
1486:
1487: IF p_prgm_pmt_mode_rec.geo_hierarchy_id IS NULL THEN
1488: x_complete_rec.geo_hierarchy_id := l_prgm_pmt_mode_rec.geo_hierarchy_id;
1489: END IF;
1488: x_complete_rec.geo_hierarchy_id := l_prgm_pmt_mode_rec.geo_hierarchy_id;
1489: END IF;
1490:
1491: -- mode_of_payment
1492: -- IF p_prgm_pmt_mode_rec.mode_of_payment = FND_API.g_miss_char THEN
1493:
1494: IF p_prgm_pmt_mode_rec.mode_of_payment IS NULL THEN
1495: x_complete_rec.mode_of_payment := l_prgm_pmt_mode_rec.mode_of_payment;
1496: END IF;
1495: x_complete_rec.mode_of_payment := l_prgm_pmt_mode_rec.mode_of_payment;
1496: END IF;
1497:
1498: -- mode_type
1499: -- IF p_prgm_pmt_mode_rec.mode_type = FND_API.g_miss_char THEN
1500:
1501: IF p_prgm_pmt_mode_rec.mode_type IS NULL THEN
1502: x_complete_rec.mode_type := l_prgm_pmt_mode_rec.mode_type;
1503: END IF;
1502: x_complete_rec.mode_type := l_prgm_pmt_mode_rec.mode_type;
1503: END IF;
1504:
1505: -- last_update_date
1506: -- IF p_prgm_pmt_mode_rec.last_update_date = FND_API.g_miss_date THEN
1507:
1508: IF p_prgm_pmt_mode_rec.last_update_date IS NULL THEN
1509: x_complete_rec.last_update_date := l_prgm_pmt_mode_rec.last_update_date;
1510: END IF;
1509: x_complete_rec.last_update_date := l_prgm_pmt_mode_rec.last_update_date;
1510: END IF;
1511:
1512: -- last_updated_by
1513: -- IF p_prgm_pmt_mode_rec.last_updated_by = FND_API.g_miss_num THEN
1514:
1515: IF p_prgm_pmt_mode_rec.last_updated_by IS NULL THEN
1516: x_complete_rec.last_updated_by := l_prgm_pmt_mode_rec.last_updated_by;
1517: END IF;
1516: x_complete_rec.last_updated_by := l_prgm_pmt_mode_rec.last_updated_by;
1517: END IF;
1518:
1519: -- creation_date
1520: -- IF p_prgm_pmt_mode_rec.creation_date = FND_API.g_miss_date THEN
1521:
1522: IF p_prgm_pmt_mode_rec.creation_date IS NULL THEN
1523: x_complete_rec.creation_date := l_prgm_pmt_mode_rec.creation_date;
1524: END IF;
1523: x_complete_rec.creation_date := l_prgm_pmt_mode_rec.creation_date;
1524: END IF;
1525:
1526: -- created_by
1527: -- IF p_prgm_pmt_mode_rec.created_by = FND_API.g_miss_num THEN
1528:
1529: IF p_prgm_pmt_mode_rec.created_by IS NULL THEN
1530: x_complete_rec.created_by := l_prgm_pmt_mode_rec.created_by;
1531: END IF;
1530: x_complete_rec.created_by := l_prgm_pmt_mode_rec.created_by;
1531: END IF;
1532:
1533: -- last_update_login
1534: -- IF p_prgm_pmt_mode_rec.last_update_login = FND_API.g_miss_num THEN
1535:
1536: IF p_prgm_pmt_mode_rec.last_update_login IS NULL THEN
1537: x_complete_rec.last_update_login := l_prgm_pmt_mode_rec.last_update_login;
1538: END IF;
1537: x_complete_rec.last_update_login := l_prgm_pmt_mode_rec.last_update_login;
1538: END IF;
1539:
1540: -- object_version_number
1541: -- IF p_prgm_pmt_mode_rec.object_version_number = FND_API.g_miss_num THEN
1542:
1543: IF p_prgm_pmt_mode_rec.object_version_number IS NULL THEN
1544: x_complete_rec.object_version_number := l_prgm_pmt_mode_rec.object_version_number;
1545: END IF;
1549:
1550:
1551: PROCEDURE Validate_Prgm_Pmt_Mode(
1552: p_api_version_number IN NUMBER
1553: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_prgm_pmt_mode_rec IN prgm_pmt_mode_rec_type
1556: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1557: ,x_return_status OUT NOCOPY VARCHAR2
1550:
1551: PROCEDURE Validate_Prgm_Pmt_Mode(
1552: p_api_version_number IN NUMBER
1553: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1554: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1555: ,p_prgm_pmt_mode_rec IN prgm_pmt_mode_rec_type
1556: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1557: ,x_return_status OUT NOCOPY VARCHAR2
1558: ,x_msg_count OUT NOCOPY NUMBER
1572: -- Standard Start of API savepoint
1573: SAVEPOINT Validate_Prgm_Pmt_Mode_;
1574:
1575: -- Initialize API return status to SUCCESS
1576: x_return_status := FND_API.G_RET_STS_SUCCESS;
1577:
1578: -- Standard call to check for call compatibility.
1579: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1580: p_api_version_number,
1575: -- Initialize API return status to SUCCESS
1576: x_return_status := FND_API.G_RET_STS_SUCCESS;
1577:
1578: -- Standard call to check for call compatibility.
1579: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1580: p_api_version_number,
1581: l_api_name,
1582: G_PKG_NAME)
1583: THEN
1580: p_api_version_number,
1581: l_api_name,
1582: G_PKG_NAME)
1583: THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586:
1587: -- Initialize message list if p_init_msg_list is set to TRUE.
1588: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586:
1587: -- Initialize message list if p_init_msg_list is set to TRUE.
1588: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1589: FND_MSG_PUB.initialize;
1590: END IF;
1591:
1592: -- Debug Message
1613:
1614: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1615: END IF;
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1614: PVX_UTILITY_PVT.debug_message(' Private API: ' || l_full_name || ' - return status after Check_Items call ' || x_return_status);
1615: END IF;
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622: END IF;
1615: END IF;
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622: END IF;
1623:
1616:
1617: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622: END IF;
1623:
1624: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1623:
1624: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1625: Validate_Rec(
1626: p_api_version_number => 1.0
1627: ,p_init_msg_list => FND_API.G_FALSE
1628: ,x_return_status => x_return_status
1629: ,x_msg_count => x_msg_count
1630: ,x_msg_data => x_msg_data
1631: ,p_prgm_pmt_mode_rec => l_prgm_pmt_mode_rec
1630: ,x_msg_data => x_msg_data
1631: ,p_prgm_pmt_mode_rec => l_prgm_pmt_mode_rec
1632: );
1633:
1634: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1635: RAISE FND_API.G_EXC_ERROR;
1636: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1631: ,p_prgm_pmt_mode_rec => l_prgm_pmt_mode_rec
1632: );
1633:
1634: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1635: RAISE FND_API.G_EXC_ERROR;
1636: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639: END IF;
1632: );
1633:
1634: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1635: RAISE FND_API.G_EXC_ERROR;
1636: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639: END IF;
1640:
1633:
1634: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1635: RAISE FND_API.G_EXC_ERROR;
1636: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1637: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1638: END IF;
1639: END IF;
1640:
1641:
1646: END IF;
1647:
1648: -- Standard call to get message count and if count is 1, get message info.
1649: FND_MSG_PUB.Count_And_Get
1650: ( p_encoded => FND_API.G_FALSE,
1651: p_count => x_msg_count,
1652: p_data => x_msg_data
1653: );
1654:
1652: p_data => x_msg_data
1653: );
1654:
1655: EXCEPTION
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1658: x_return_status := FND_API.G_RET_STS_ERROR;
1659: -- Standard call to get message count and if count=1, get the message
1660: FND_MSG_PUB.Count_And_Get (
1654:
1655: EXCEPTION
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1658: x_return_status := FND_API.G_RET_STS_ERROR;
1659: -- Standard call to get message count and if count=1, get the message
1660: FND_MSG_PUB.Count_And_Get (
1661: p_encoded => FND_API.G_FALSE
1662: ,p_count => x_msg_count
1657: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1658: x_return_status := FND_API.G_RET_STS_ERROR;
1659: -- Standard call to get message count and if count=1, get the message
1660: FND_MSG_PUB.Count_And_Get (
1661: p_encoded => FND_API.G_FALSE
1662: ,p_count => x_msg_count
1663: ,p_data => x_msg_data
1664: );
1665:
1662: ,p_count => x_msg_count
1663: ,p_data => x_msg_data
1664: );
1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: -- Standard call to get message count and if count=1, get the message
1670: FND_MSG_PUB.Count_And_Get (
1664: );
1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: -- Standard call to get message count and if count=1, get the message
1670: FND_MSG_PUB.Count_And_Get (
1671: p_encoded => FND_API.G_FALSE
1672: ,p_count => x_msg_count
1667: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: -- Standard call to get message count and if count=1, get the message
1670: FND_MSG_PUB.Count_And_Get (
1671: p_encoded => FND_API.G_FALSE
1672: ,p_count => x_msg_count
1673: ,p_data => x_msg_data
1674: );
1675:
1674: );
1675:
1676: WHEN OTHERS THEN
1677: ROLLBACK TO Validate_Prgm_Pmt_Mode_;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1680: THEN
1681: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1682: END IF;
1681: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1682: END IF;
1683: -- Standard call to get message count and if count=1, get the message
1684: FND_MSG_PUB.Count_And_Get (
1685: p_encoded => FND_API.G_FALSE
1686: ,p_count => x_msg_count
1687: ,p_data => x_msg_data
1688: );
1689:
1692:
1693:
1694: PROCEDURE Validate_Rec(
1695: p_api_version_number IN NUMBER
1696: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1697: ,x_return_status OUT NOCOPY VARCHAR2
1698: ,x_msg_count OUT NOCOPY NUMBER
1699: ,x_msg_data OUT NOCOPY VARCHAR2
1700: ,p_prgm_pmt_mode_rec IN prgm_pmt_mode_rec_type
1702: )
1703: IS
1704: BEGIN
1705: -- Initialize message list if p_init_msg_list is set to TRUE.
1706: IF FND_API.to_Boolean( p_init_msg_list )
1707: THEN
1708: FND_MSG_PUB.initialize;
1709: END IF;
1710:
1708: FND_MSG_PUB.initialize;
1709: END IF;
1710:
1711: -- Initialize API return status to SUCCESS
1712: x_return_status := FND_API.G_RET_STS_SUCCESS;
1713:
1714: -- Hint: Validate data
1715: -- If data not valid
1716: -- THEN
1713:
1714: -- Hint: Validate data
1715: -- If data not valid
1716: -- THEN
1717: -- x_return_status := FND_API.G_RET_STS_ERROR;
1718:
1719: -- Debug Message
1720: IF (PV_DEBUG_HIGH_ON) THEN
1721: