[Home] [Help]
65:
66: BEGIN
67: -- Initialize API return status to SUCCESS
68: ---------------Initialize --------------------
69: -- Standard Start of API savepoint
70: SAVEPOINT Get_Pmnt_Mode_Desc;
71: OPEN c_get_oe_prgm_pmt_mode(p_program_payment_mode , p_program_id, p_geo_hierarchy_id);
72: FETCH c_get_oe_prgm_pmt_mode INTO x_pmt_mode_desc ;
73: IF c_get_oe_prgm_pmt_mode%NOTFOUND THEN
124: -- Initialize API return status to SUCCESS
125:
126:
127: ---------------Initialize --------------------
128: -- Standard Start of API savepoint
129: SAVEPOINT GET_pmnt_method_PVT;
130:
131:
132: OPEN c_get_geo_hierarchy(p_program_payment_mode , p_program_id, p_geo_hierarchy_id);
204: AND MODE_OF_PAYMENT in ('PO_NUM_DISABLED', 'PO_NUM_ENABLED');
205:
206: BEGIN
207: ---------------Initialize --------------------
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:
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
389:
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
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
406: ,p_data => x_msg_data
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
416: ,p_data => x_msg_data
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;
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
481:
482:
483: ---------Initialize ------------------
484:
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
484:
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
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
665: ,p_data => x_msg_data
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
675: ,p_data => x_msg_data
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;
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
713: BEGIN
714:
715: ---- Initialize----------------
716:
717: -- Standard Start of API savepoint
718: SAVEPOINT Delete_Prgm_Pmt_Mode_PVT;
719:
720: -- Debug Message
721: IF (PV_DEBUG_HIGH_ON) THEN
722:
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
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
782: ,p_data => x_msg_data
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
792: ,p_data => x_msg_data
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;
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
848: THEN
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
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
918: ,p_data => x_msg_data
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
928: ,p_data => x_msg_data
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;
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
1568: l_prgm_pmt_mode_rec PV_PRGM_PMT_MODE_PVT.prgm_pmt_mode_rec_type;
1569:
1570: BEGIN
1571:
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;
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,
1581: l_api_name,
1582: G_PKG_NAME)
1644:
1645: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - end');
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
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
1663: ,p_data => x_msg_data
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
1673: ,p_data => x_msg_data
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;
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
1721:
1722: PVX_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1723: END IF;
1724:
1725: -- Standard call to get message count and if count is 1, get message info.
1726: FND_MSG_PUB.Count_And_Get (
1727: p_count => x_msg_count
1728: ,p_data => x_msg_data
1729: );