[Home] [Help]
620:
621: PVX_UTILITY_PVT.debug_message('IN CREATE BLOCK : l_msg_data : ' || l_msg_data);
622: END IF;
623:
624: -- Standard call to get message count and if count=1, get the message
625: -- OE_MSG_PUB.Count_And_Get (
626: -- p_encoded => FND_API.G_FALSE
627: -- ,p_count => x_msg_count
628: -- ,p_data => x_msg_data
702: PVX_UTILITY_PVT.debug_message('In CREATE_PRICE_LINE API ERROR BLOCK');
703:
704: END IF;
705:
706: -- Standard call to get message count and if count=1, get the message
707: -- OE_MSG_PUB.Count_And_Get (
708: -- p_encoded => FND_API.G_FALSE
709: -- ,p_count => x_msg_count
710: -- ,p_data => x_msg_data
718: -- END LOOP;
719:
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: -- Standard call to get message count and if count=1, get the message
723: OE_MSG_PUB.Count_And_Get (
724: p_encoded => FND_API.G_FALSE
725: ,p_count => x_msg_count
726: ,p_data => x_msg_data
731: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
732: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'CREATE_PAROGRAM');
733: END IF;
734:
735: -- Standard call to get message count and if count=1, get the message
736: FND_MSG_PUB.Count_And_Get (
737: p_encoded => FND_API.G_FALSE
738: ,p_count => x_msg_count
739: ,p_data => x_msg_data
1034: WHERE USER_ID=p_user_id;
1035:
1036: BEGIN
1037: ---------------Initialize --------------------
1038: -- Standard Start of API savepoint
1039: SAVEPOINT CREATE_Partner_Program_PVT;
1040:
1041: -- Initialize message list if p_init_msg_list is set to TRUE.
1042: IF FND_API.to_Boolean( p_init_msg_list )
1043: THEN
1044: FND_MSG_PUB.initialize;
1045: END IF;
1046:
1047: -- Standard call to check for call compatibility.
1048: IF NOT FND_API.Compatible_API_Call (
1049: l_api_version_number
1050: ,p_api_version_number
1051: ,l_api_name
1637:
1638: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
1639: END IF;
1640:
1641: -- Standard check for p_commit
1642: IF FND_API.to_Boolean( p_commit ) THEN
1643: COMMIT WORK;
1644: END IF;
1645:
1657: PVX_UTILITY_PVT.debug_message('In CREATE_PARTNER_PROGRAM API ERROR BLOCK');
1658:
1659: END IF;
1660:
1661: -- Standard call to get message count and if count=1, get the message
1662: FND_MSG_PUB.Count_And_Get (
1663: p_encoded => FND_API.G_FALSE
1664: ,p_count => x_msg_count
1665: ,p_data => x_msg_data
1675:
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: ROLLBACK TO CREATE_Partner_Program_PVT;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: -- Standard call to get message count and if count=1, get the message
1680: FND_MSG_PUB.Count_And_Get (
1681: p_encoded => FND_API.G_FALSE
1682: ,p_count => x_msg_count
1683: ,p_data => x_msg_data
1689: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1691: END IF;
1692:
1693: -- Standard call to get message count and if count=1, get the message
1694: FND_MSG_PUB.Count_And_Get (
1695: p_encoded => FND_API.G_FALSE
1696: ,p_count => x_msg_count
1697: ,p_data => x_msg_data
1768:
1769: ---------Initialize ------------------
1770: get_program_status_code(l_tar_ptr_prgm_rec.user_status_id,l_tar_ptr_prgm_rec.program_status_code,x_return_status);
1771:
1772: -- Standard Start of API savepoint
1773: SAVEPOINT UPDATE_Partner_Program_PVT;
1774:
1775: -- Debug Message
1776: IF (PV_DEBUG_HIGH_ON) THEN
1777:
1778: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
1779: END IF;
1780:
1781: -- Standard call to check for call compatibility.
1782: IF NOT FND_API.Compatible_API_Call (l_api_version_number
1783: ,p_api_version_number
1784: ,l_api_name
1785: ,G_PKG_NAME
2201: EXCEPTION
2202: WHEN FND_API.G_EXC_ERROR THEN
2203: ROLLBACK TO UPDATE_Partner_Program_PVT;
2204: x_return_status := FND_API.G_RET_STS_ERROR;
2205: -- Standard call to get message count and if count=1, get the message
2206: FND_MSG_PUB.Count_And_Get (
2207: p_encoded => FND_API.G_FALSE
2208: ,p_count => x_msg_count
2209: ,p_data => x_msg_data
2211:
2212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2213: ROLLBACK TO UPDATE_Partner_Program_PVT;
2214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2215: -- Standard call to get message count and if count=1, get the message
2216: FND_MSG_PUB.Count_And_Get (
2217: p_encoded => FND_API.G_FALSE
2218: ,p_count => x_msg_count
2219: ,p_data => x_msg_data
2225: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2226: THEN
2227: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2228: END IF;
2229: -- Standard call to get message count and if count=1, get the message
2230: FND_MSG_PUB.Count_And_Get (
2231: p_encoded => FND_API.G_FALSE
2232: ,p_count => x_msg_count
2233: ,p_data => x_msg_data
2271: l_is_deletable boolean:=true;
2272: BEGIN
2273: ---------Initialize ------------------
2274:
2275: -- Standard Start of API savepoint
2276: SAVEPOINT DELETE_Partner_Program_PVT;
2277:
2278: -- Debug Message
2279: IF (PV_DEBUG_HIGH_ON) THEN
2280:
2281: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
2282: END IF;
2283:
2284: -- Standard call to check for call compatibility.
2285: IF NOT FND_API.Compatible_API_Call (l_api_version_number
2286: ,p_api_version_number
2287: ,l_api_name
2288: ,G_PKG_NAME
2400: EXCEPTION
2401: WHEN FND_API.G_EXC_ERROR THEN
2402: ROLLBACK TO DELETE_Partner_Program_PVT;
2403: x_return_status := FND_API.G_RET_STS_ERROR;
2404: -- Standard call to get message count and if count=1, get the message
2405: FND_MSG_PUB.Count_And_Get (
2406: p_encoded => FND_API.G_FALSE
2407: ,p_count => x_msg_count
2408: ,p_data => x_msg_data
2410:
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: ROLLBACK TO DELETE_Partner_Program_PVT;
2413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2414: -- Standard call to get message count and if count=1, get the message
2415: FND_MSG_PUB.Count_And_Get (
2416: p_encoded => FND_API.G_FALSE
2417: ,p_count => x_msg_count
2418: ,p_data => x_msg_data
2424: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2425: THEN
2426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2427: END IF;
2428: -- Standard call to get message count and if count=1, get the message
2429: FND_MSG_PUB.Count_And_Get (
2430: p_encoded => FND_API.G_FALSE
2431: ,p_count => x_msg_count
2432: ,p_data => x_msg_data
2474: THEN
2475: FND_MSG_PUB.initialize;
2476: END IF;
2477:
2478: -- Standard call to check for call compatibility.
2479: IF NOT FND_API.Compatible_API_Call (
2480: l_api_version_number
2481: ,p_api_version_number
2482: ,l_api_name
2528: */
2529: WHEN FND_API.G_EXC_ERROR THEN
2530: ROLLBACK TO LOCK_Partner_Program_PVT;
2531: x_return_status := FND_API.G_RET_STS_ERROR;
2532: -- Standard call to get message count and if count=1, get the message
2533: FND_MSG_PUB.Count_And_Get (
2534: p_encoded => FND_API.G_FALSE
2535: ,p_count => x_msg_count
2536: ,p_data => x_msg_data
2538:
2539: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2540: ROLLBACK TO LOCK_Partner_Program_PVT;
2541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2542: -- Standard call to get message count and if count=1, get the message
2543: FND_MSG_PUB.Count_And_Get (
2544: p_encoded => FND_API.G_FALSE
2545: ,p_count => x_msg_count
2546: ,p_data => x_msg_data
2552: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2553: THEN
2554: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2555: END IF;
2556: -- Standard call to get message count and if count=1, get the message
2557: FND_MSG_PUB.Count_And_Get (
2558: p_encoded => FND_API.G_FALSE
2559: ,p_count => x_msg_count
2560: ,p_data => x_msg_data
3607: l_ptr_prgm_rec PV_Partner_Program_PVT.ptr_prgm_rec_type;
3608:
3609: BEGIN
3610:
3611: -- Standard Start of API savepoint
3612: SAVEPOINT VALIDATE_Partner_Program_;
3613:
3614: -- Initialize API return status to SUCCESS
3615: x_return_status := FND_API.G_RET_STS_SUCCESS;
3613:
3614: -- Initialize API return status to SUCCESS
3615: x_return_status := FND_API.G_RET_STS_SUCCESS;
3616:
3617: -- Standard call to check for call compatibility.
3618: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3619: p_api_version_number,
3620: l_api_name,
3621: G_PKG_NAME)
3683:
3684: PVX_UTILITY_PVT.debug_message('Private API: ' || l_full_name || ' - end');
3685: END IF;
3686:
3687: -- Standard call to get message count and if count is 1, get message info.
3688: FND_MSG_PUB.Count_And_Get
3689: ( p_encoded => FND_API.G_FALSE,
3690: p_count => x_msg_count,
3691: p_data => x_msg_data
3699: IF (PV_DEBUG_HIGH_ON) THEN
3700:
3701: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM ERROR BLOCK');
3702: END IF;
3703: -- Standard call to get message count and if count=1, get the message
3704: FND_MSG_PUB.Count_And_Get (
3705: p_encoded => FND_API.G_FALSE,
3706: p_count => x_msg_count,
3707: p_data => x_msg_data
3713: IF (PV_DEBUG_HIGH_ON) THEN
3714:
3715: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM UNEXPECTED ERROR BLOCK');
3716: END IF;
3717: -- Standard call to get message count and if count=1, get the message
3718: FND_MSG_PUB.Count_And_Get (
3719: p_encoded => FND_API.G_FALSE,
3720: p_count => x_msg_count,
3721: p_data => x_msg_data
3731: IF (PV_DEBUG_HIGH_ON) THEN
3732:
3733: PVX_UTILITY_PVT.debug_message('IN VALIDATE PROGRAM WHEN OTHERS BLOCK');
3734: END IF;
3735: -- Standard call to get message count and if count=1, get the message
3736: FND_MSG_PUB.Count_And_Get (
3737: p_encoded => FND_API.G_FALSE
3738: ,p_count => x_msg_count
3739: ,p_data => x_msg_data
3768: -- If data not valid
3769: -- THEN
3770: -- x_return_status := FND_API.G_RET_STS_ERROR;
3771:
3772: -- Standard call to get message count and if count is 1, get message info.
3773: FND_MSG_PUB.Count_And_Get
3774: (p_count => x_msg_count,
3775: p_data => x_msg_data
3776: );
4073: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
4074:
4075:
4076: BEGIN
4077: -- Standard Start of API savepoint
4078: SAVEPOINT Copy_Program;
4079:
4080: -- Standard call to check for call compatibility.
4081: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4076: BEGIN
4077: -- Standard Start of API savepoint
4078: SAVEPOINT Copy_Program;
4079:
4080: -- Standard call to check for call compatibility.
4081: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4082: p_api_version_number,
4083: l_api_name,
4084: G_PKG_NAME)
4413:
4414: WHEN FND_API.G_EXC_ERROR THEN
4415: ROLLBACK TO Copy_Program;
4416: x_return_status := FND_API.G_RET_STS_ERROR;
4417: -- Standard call to get message count and if count=1, get the message
4418: FND_MSG_PUB.Count_And_Get (
4419: p_encoded => FND_API.G_FALSE,
4420: p_count => x_msg_count,
4421: p_data => x_msg_data
4423:
4424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4425: ROLLBACK TO Copy_Program;
4426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4427: -- Standard call to get message count and if count=1, get the message
4428: FND_MSG_PUB.Count_And_Get (
4429: p_encoded => FND_API.G_FALSE,
4430: p_count => x_msg_count,
4431: p_data => x_msg_data
4437: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4438: THEN
4439: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4440: END IF;
4441: -- Standard call to get message count and if count=1, get the message
4442: FND_MSG_PUB.Count_And_Get (
4443: p_encoded => FND_API.G_FALSE,
4444: p_count => x_msg_count,
4445: p_data => x_msg_data
4514: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Qualifications';
4515: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
4516:
4517: BEGIN
4518: -- Standard Start of API savepoint
4519: SAVEPOINT Copy_Qualifications;
4520:
4521: -- Standard call to check for call compatibility.
4522: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4517: BEGIN
4518: -- Standard Start of API savepoint
4519: SAVEPOINT Copy_Qualifications;
4520:
4521: -- Standard call to check for call compatibility.
4522: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4523: p_api_version_number,
4524: l_api_name,
4525: G_PKG_NAME)
4700:
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: ROLLBACK TO Copy_Qualifications;
4703: x_return_status := FND_API.G_RET_STS_ERROR;
4704: -- Standard call to get message count and if count=1, get the message
4705: FND_MSG_PUB.Count_And_Get (
4706: p_encoded => FND_API.G_FALSE,
4707: p_count => x_msg_count,
4708: p_data => x_msg_data
4710:
4711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4712: ROLLBACK TO Copy_Qualifications;
4713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4714: -- Standard call to get message count and if count=1, get the message
4715: FND_MSG_PUB.Count_And_Get (
4716: p_encoded => FND_API.G_FALSE,
4717: p_count => x_msg_count,
4718: p_data => x_msg_data
4724: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4725: THEN
4726: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4727: END IF;
4728: -- Standard call to get message count and if count=1, get the message
4729: FND_MSG_PUB.Count_And_Get (
4730: p_encoded => FND_API.G_FALSE,
4731: p_count => x_msg_count,
4732: p_data => x_msg_data
4767: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Benefits';
4768: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
4769:
4770: BEGIN
4771: -- Standard Start of API savepoint
4772: SAVEPOINT Copy_Benefits;
4773:
4774: -- Standard call to check for call compatibility.
4775: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4770: BEGIN
4771: -- Standard Start of API savepoint
4772: SAVEPOINT Copy_Benefits;
4773:
4774: -- Standard call to check for call compatibility.
4775: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4776: p_api_version_number,
4777: l_api_name,
4778: G_PKG_NAME)
4852:
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Copy_Benefits;
4855: x_return_status := FND_API.G_RET_STS_ERROR;
4856: -- Standard call to get message count and if count=1, get the message
4857: FND_MSG_PUB.Count_And_Get (
4858: p_encoded => FND_API.G_FALSE,
4859: p_count => x_msg_count,
4860: p_data => x_msg_data
4862:
4863: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4864: ROLLBACK TO Copy_Benefits;
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4866: -- Standard call to get message count and if count=1, get the message
4867: FND_MSG_PUB.Count_And_Get (
4868: p_encoded => FND_API.G_FALSE,
4869: p_count => x_msg_count,
4870: p_data => x_msg_data
4876: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4877: THEN
4878: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4879: END IF;
4880: -- Standard call to get message count and if count=1, get the message
4881: FND_MSG_PUB.Count_And_Get (
4882: p_encoded => FND_API.G_FALSE,
4883: p_count => x_msg_count,
4884: p_data => x_msg_data
4918: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Payments';
4919: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
4920:
4921: BEGIN
4922: -- Standard Start of API savepoint
4923: SAVEPOINT Copy_Payments;
4924:
4925: -- Standard call to check for call compatibility.
4926: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4921: BEGIN
4922: -- Standard Start of API savepoint
4923: SAVEPOINT Copy_Payments;
4924:
4925: -- Standard call to check for call compatibility.
4926: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4927: p_api_version_number,
4928: l_api_name,
4929: G_PKG_NAME)
4999:
5000: WHEN FND_API.G_EXC_ERROR THEN
5001: ROLLBACK TO Copy_Payments;
5002: x_return_status := FND_API.G_RET_STS_ERROR;
5003: -- Standard call to get message count and if count=1, get the message
5004: FND_MSG_PUB.Count_And_Get (
5005: p_encoded => FND_API.G_FALSE,
5006: p_count => x_msg_count,
5007: p_data => x_msg_data
5009:
5010: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5011: ROLLBACK TO Copy_Payments;
5012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5013: -- Standard call to get message count and if count=1, get the message
5014: FND_MSG_PUB.Count_And_Get (
5015: p_encoded => FND_API.G_FALSE,
5016: p_count => x_msg_count,
5017: p_data => x_msg_data
5023: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5024: THEN
5025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5026: END IF;
5027: -- Standard call to get message count and if count=1, get the message
5028: FND_MSG_PUB.Count_And_Get (
5029: p_encoded => FND_API.G_FALSE,
5030: p_count => x_msg_count,
5031: p_data => x_msg_data
5065: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Legal_Terms';
5066: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
5067:
5068: BEGIN
5069: -- Standard Start of API savepoint
5070: SAVEPOINT Copy_Legal_Terms;
5071:
5072: -- Standard call to check for call compatibility.
5073: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5068: BEGIN
5069: -- Standard Start of API savepoint
5070: SAVEPOINT Copy_Legal_Terms;
5071:
5072: -- Standard call to check for call compatibility.
5073: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5074: p_api_version_number,
5075: l_api_name,
5076: G_PKG_NAME)
5142:
5143: WHEN FND_API.G_EXC_ERROR THEN
5144: ROLLBACK TO Copy_Legal_Terms;
5145: x_return_status := FND_API.G_RET_STS_ERROR;
5146: -- Standard call to get message count and if count=1, get the message
5147: FND_MSG_PUB.Count_And_Get (
5148: p_encoded => FND_API.G_FALSE,
5149: p_count => x_msg_count,
5150: p_data => x_msg_data
5152:
5153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5154: ROLLBACK TO Copy_Legal_Terms;
5155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5156: -- Standard call to get message count and if count=1, get the message
5157: FND_MSG_PUB.Count_And_Get (
5158: p_encoded => FND_API.G_FALSE,
5159: p_count => x_msg_count,
5160: p_data => x_msg_data
5166: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5167: THEN
5168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5169: END IF;
5170: -- Standard call to get message count and if count=1, get the message
5171: FND_MSG_PUB.Count_And_Get (
5172: p_encoded => FND_API.G_FALSE,
5173: p_count => x_msg_count,
5174: p_data => x_msg_data
5201: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Questionnaire';
5202: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
5203:
5204: BEGIN
5205: -- Standard Start of API savepoint
5206: SAVEPOINT Copy_Questionnaire;
5207:
5208: -- Standard call to check for call compatibility.
5209: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5204: BEGIN
5205: -- Standard Start of API savepoint
5206: SAVEPOINT Copy_Questionnaire;
5207:
5208: -- Standard call to check for call compatibility.
5209: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5210: p_api_version_number,
5211: l_api_name,
5212: G_PKG_NAME)
5261:
5262: WHEN FND_API.G_EXC_ERROR THEN
5263: ROLLBACK TO Copy_Questionnaire;
5264: x_return_status := FND_API.G_RET_STS_ERROR;
5265: -- Standard call to get message count and if count=1, get the message
5266: FND_MSG_PUB.Count_And_Get (
5267: p_encoded => FND_API.G_FALSE,
5268: p_count => x_msg_count,
5269: p_data => x_msg_data
5271:
5272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5273: ROLLBACK TO Copy_Questionnaire;
5274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5275: -- Standard call to get message count and if count=1, get the message
5276: FND_MSG_PUB.Count_And_Get (
5277: p_encoded => FND_API.G_FALSE,
5278: p_count => x_msg_count,
5279: p_data => x_msg_data
5285: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5286: THEN
5287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5288: END IF;
5289: -- Standard call to get message count and if count=1, get the message
5290: FND_MSG_PUB.Count_And_Get (
5291: p_encoded => FND_API.G_FALSE,
5292: p_count => x_msg_count,
5293: p_data => x_msg_data
5322: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Checklist';
5323: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
5324:
5325: BEGIN
5326: -- Standard Start of API savepoint
5327: SAVEPOINT Copy_Checklist;
5328: --dbms_output.put_line('Copy_Checklist');
5329:
5330: -- Standard call to check for call compatibility.
5326: -- Standard Start of API savepoint
5327: SAVEPOINT Copy_Checklist;
5328: --dbms_output.put_line('Copy_Checklist');
5329:
5330: -- Standard call to check for call compatibility.
5331: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5332: p_api_version_number,
5333: l_api_name,
5334: G_PKG_NAME)
5384:
5385: WHEN FND_API.G_EXC_ERROR THEN
5386: ROLLBACK TO Copy_Checklist;
5387: x_return_status := FND_API.G_RET_STS_ERROR;
5388: -- Standard call to get message count and if count=1, get the message
5389: FND_MSG_PUB.Count_And_Get (
5390: p_encoded => FND_API.G_FALSE,
5391: p_count => x_msg_count,
5392: p_data => x_msg_data
5394:
5395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5396: ROLLBACK TO Copy_Checklist;
5397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5398: -- Standard call to get message count and if count=1, get the message
5399: FND_MSG_PUB.Count_And_Get (
5400: p_encoded => FND_API.G_FALSE,
5401: p_count => x_msg_count,
5402: p_data => x_msg_data
5408: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5409: THEN
5410: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5411: END IF;
5412: -- Standard call to get message count and if count=1, get the message
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.G_FALSE,
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5444: L_API_NAME CONSTANT VARCHAR2(30) := 'Copy_Notif_Rules';
5445: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
5446:
5447: BEGIN
5448: -- Standard Start of API savepoint
5449: SAVEPOINT Copy_Notif_Rules;
5450:
5451: -- Standard call to check for call compatibility.
5452: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5447: BEGIN
5448: -- Standard Start of API savepoint
5449: SAVEPOINT Copy_Notif_Rules;
5450:
5451: -- Standard call to check for call compatibility.
5452: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5453: p_api_version_number,
5454: l_api_name,
5455: G_PKG_NAME)
5510:
5511: WHEN FND_API.G_EXC_ERROR THEN
5512: ROLLBACK TO Copy_Notif_Rules;
5513: x_return_status := FND_API.G_RET_STS_ERROR;
5514: -- Standard call to get message count and if count=1, get the message
5515: FND_MSG_PUB.Count_And_Get (
5516: p_encoded => FND_API.G_FALSE,
5517: p_count => x_msg_count,
5518: p_data => x_msg_data
5520:
5521: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5522: ROLLBACK TO Copy_Notif_Rules;
5523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524: -- Standard call to get message count and if count=1, get the message
5525: FND_MSG_PUB.Count_And_Get (
5526: p_encoded => FND_API.G_FALSE,
5527: p_count => x_msg_count,
5528: p_data => x_msg_data
5534: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5535: THEN
5536: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5537: END IF;
5538: -- Standard call to get message count and if count=1, get the message
5539: FND_MSG_PUB.Count_And_Get (
5540: p_encoded => FND_API.G_FALSE,
5541: p_count => x_msg_count,
5542: p_data => x_msg_data
5592: END IF;
5593:
5594:
5595:
5596: -- Standard Start of API savepoint
5597: SAVEPOINT UPDATE_Partner_Program_PVT;
5598: -- Debug Message
5599: IF (PV_DEBUG_HIGH_ON) THEN
5600: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
5599: IF (PV_DEBUG_HIGH_ON) THEN
5600: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
5601: END IF;
5602:
5603: -- Standard call to check for call compatibility.
5604: IF NOT FND_API.Compatible_API_Call (l_api_version_number
5605: ,p_api_version_number
5606: ,l_api_name
5607: ,G_PKG_NAME
5707: IF (PV_DEBUG_HIGH_ON) THEN
5708: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
5709: END IF;
5710:
5711: -- Standard check for p_commit
5712: IF FND_API.to_Boolean( p_commit ) THEN
5713: COMMIT WORK;
5714: END IF;
5715:
5749: IF (PV_DEBUG_HIGH_ON) THEN
5750: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
5751: END IF;
5752:
5753: -- Standard call to check for call compatibility.
5754: IF NOT FND_API.Compatible_API_Call (l_api_version_number
5755: ,p_api_version_number
5756: ,l_api_name
5757: ,G_PKG_NAME
5824: EXCEPTION
5825:
5826: WHEN FND_API.G_EXC_ERROR THEN
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828: -- Standard call to get message count and if count=1, get the message
5829: FND_MSG_PUB.Count_And_Get (
5830: p_encoded => FND_API.G_FALSE,
5831: p_count => x_msg_count,
5832: p_data => x_msg_data
5833: );
5834:
5835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5837: -- Standard call to get message count and if count=1, get the message
5838: FND_MSG_PUB.Count_And_Get (
5839: p_encoded => FND_API.G_FALSE,
5840: p_count => x_msg_count,
5841: p_data => x_msg_data
5846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5847: THEN
5848: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5849: END IF;
5850: -- Standard call to get message count and if count=1, get the message
5851: FND_MSG_PUB.Count_And_Get (
5852: p_encoded => FND_API.G_FALSE,
5853: p_count => x_msg_count,
5854: p_data => x_msg_data