957:
958: -- Initialize message list if p_init_msg_list is set to TRUE.
959: IF FND_API.to_Boolean( p_init_msg_list )
960: THEN
961: FND_MSG_PUB.initialize;
962: END IF;
963:
964: -- Initialize API return status to success
965: x_return_status := FND_API.G_RET_STS_SUCCESS;
1158: END IF;
1159:
1160: -- Debug Message
1161: -- Standard call to get message count and if count is 1, get message info.
1162: FND_MSG_PUB.Count_And_Get (
1163: p_count => x_msg_count,
1164: p_data => x_msg_data
1165: );
1166:
1172: ROLLBACK TO CREATE_PERZ_LF_PVT;
1173: x_return_status := FND_API.G_RET_STS_ERROR ;
1174: --x_return_status := sqlcode||sqlerrm;
1175:
1176: FND_MSG_PUB.Count_And_Get
1177: ( p_count => x_msg_count,
1178: p_data => x_msg_data
1179: );
1180:
1177: ( p_count => x_msg_count,
1178: p_data => x_msg_data
1179: );
1180:
1181: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1182: THEN
1183: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1184: END IF;
1185:
1179: );
1180:
1181: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1182: THEN
1183: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1184: END IF;
1185:
1186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1187:
1187:
1188: ROLLBACK TO CREATE_PERZ_LF_PVT;
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1190:
1191: FND_MSG_PUB.Count_And_Get
1192: ( p_count => x_msg_count,
1193: p_data => x_msg_data
1194: );
1195:
1192: ( p_count => x_msg_count,
1193: p_data => x_msg_data
1194: );
1195:
1196: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1197: THEN
1198: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1199: END IF;
1200:
1194: );
1195:
1196: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1197: THEN
1198: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1199: END IF;
1200:
1201: WHEN OTHERS THEN
1202:
1202:
1203: ROLLBACK TO CREATE_PERZ_LF_PVT;
1204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1205:
1206: FND_MSG_PUB.Count_And_Get
1207: ( p_count => x_msg_count,
1208: p_data => x_msg_data
1209: );
1210:
1207: ( p_count => x_msg_count,
1208: p_data => x_msg_data
1209: );
1210:
1211: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1212: THEN
1213: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1214: END IF;
1215:
1209: );
1210:
1211: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1212: THEN
1213: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1214: END IF;
1215:
1216: END Create_lf_object;
1217:
1356: --END IF;
1357:
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1360: FND_MSG_PUB.initialize;
1361: END IF;
1362:
1363: -- Initialize API return status to success
1364: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1657: END IF;
1658:
1659: -- Debug Message
1660: -- Standard call to get message count and if count is 1, get message info.
1661: FND_MSG_PUB.Count_And_Get(
1662: p_count => x_msg_count,
1663: p_data => x_msg_data
1664: );
1665: EXCEPTION
1668:
1669: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1670: x_return_status := FND_API.G_RET_STS_ERROR ;
1671:
1672: FND_MSG_PUB.Count_And_Get
1673: ( p_count => x_msg_count,
1674: p_data => x_msg_data
1675: );
1676:
1674: p_data => x_msg_data
1675: );
1676:
1677:
1678: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1681: END IF;
1682:
1676:
1677:
1678: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1681: END IF;
1682:
1683: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1684:
1684:
1685: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1687:
1688: FND_MSG_PUB.Count_And_Get
1689: ( p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );
1692:
1689: ( p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );
1692:
1693: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1694: THEN
1695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1696: END IF;
1697:
1691: );
1692:
1693: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1694: THEN
1695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1696: END IF;
1697:
1698: WHEN OTHERS THEN
1699:
1699:
1700: ROLLBACK TO UPDATE_PERZ_LF_PVT;
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1702:
1703: FND_MSG_PUB.Count_And_Get
1704: ( p_count => x_msg_count,
1705: p_data => x_msg_data
1706: );
1707:
1704: ( p_count => x_msg_count,
1705: p_data => x_msg_data
1706: );
1707:
1708: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1709: THEN
1710: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1711: END IF;
1712: END Update_LF_Object;
1706: );
1707:
1708: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1709: THEN
1710: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1711: END IF;
1712: END Update_LF_Object;
1713: -- *****************************************************************************
1714: -- *****************************************************************************
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean( p_init_msg_list )
1854: THEN
1855: FND_MSG_PUB.initialize;
1856: END IF;
1857:
1858: -- Initialize API return status to success
1859: x_return_status := FND_API.G_RET_STS_SUCCESS;
2102: END IF;
2103:
2104: -- Debug Message
2105: -- Standard call to get message count and if count is 1, get message info.
2106: FND_MSG_PUB.Count_And_Get
2107: ( p_count => x_msg_count,
2108: p_data => x_msg_data
2109: );
2110:
2114:
2115: ROLLBACK TO save_lf_object;
2116: x_return_status := FND_API.G_RET_STS_ERROR ;
2117:
2118: FND_MSG_PUB.Count_And_Get
2119: ( p_count => x_msg_count,
2120: p_data => x_msg_data
2121: );
2122:
2119: ( p_count => x_msg_count,
2120: p_data => x_msg_data
2121: );
2122:
2123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2124: THEN
2125: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2126: END IF;
2127:
2121: );
2122:
2123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2124: THEN
2125: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2126: END IF;
2127:
2128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2129:
2129:
2130: ROLLBACK TO save_lf_object;
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2132:
2133: FND_MSG_PUB.Count_And_Get
2134: ( p_count => x_msg_count,
2135: p_data => x_msg_data
2136: );
2137:
2134: ( p_count => x_msg_count,
2135: p_data => x_msg_data
2136: );
2137:
2138: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2139: THEN
2140: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2141: END IF;
2142:
2136: );
2137:
2138: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2139: THEN
2140: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2141: END IF;
2142:
2143: WHEN OTHERS THEN
2144:
2144:
2145: ROLLBACK TO save_lf_object;
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2147:
2148: FND_MSG_PUB.Count_And_Get
2149: ( p_count => x_msg_count,
2150: p_data => x_msg_data
2151: );
2152:
2149: ( p_count => x_msg_count,
2150: p_data => x_msg_data
2151: );
2152:
2153: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2154: THEN
2155: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2156: END IF;
2157: END save_lf_object;
2151: );
2152:
2153: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2154: THEN
2155: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2156: END IF;
2157: END save_lf_object;
2158:
2159: -- -- *****************************************************************************
2444:
2445: -- Initialize message list if p_init_msg_list is set to TRUE.
2446: IF FND_API.to_Boolean( p_init_msg_list )
2447: THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: -- Initialize API return status to success
2452: x_return_status := FND_API.G_RET_STS_SUCCESS;
2862: WHEN FND_API.G_EXC_ERROR THEN
2863:
2864: x_return_status := FND_API.G_RET_STS_ERROR ;
2865:
2866: FND_MSG_PUB.Count_And_Get
2867: ( p_count => x_msg_count,
2868: p_data => x_msg_data
2869: );
2870:
2867: ( p_count => x_msg_count,
2868: p_data => x_msg_data
2869: );
2870:
2871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2872: THEN
2873: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2874: END IF;
2875:
2869: );
2870:
2871: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2872: THEN
2873: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2874: END IF;
2875:
2876: END Get_lf_object;
2877:
2955:
2956: -- Initialize message list if p_init_msg_list is set to TRUE.
2957: IF FND_API.to_Boolean( p_init_msg_list )
2958: THEN
2959: FND_MSG_PUB.initialize;
2960: END IF;
2961:
2962: -- Initialize API return status to success
2963: x_return_status := FND_API.G_RET_STS_SUCCESS;
3100: -- END IF;
3101:
3102: -- Initialize message list if p_init_msg_list is set to TRUE.
3103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3104: FND_MSG_PUB.initialize;
3105: END IF;
3106:
3107: -- Initialize API return status to success
3108: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3323: END IF;
3324:
3325: -- Debug Message
3326: -- Standard call to get message count and if count is 1, get message info.
3327: FND_MSG_PUB.Count_And_Get
3328: ( p_count => x_msg_count,
3329: p_data => x_msg_data
3330: );
3331:
3336:
3337: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3338: x_return_status := FND_API.G_RET_STS_ERROR ;
3339:
3340: FND_MSG_PUB.Count_And_Get
3341: ( p_count => x_msg_count,
3342: p_data => x_msg_data
3343: );
3344:
3341: ( p_count => x_msg_count,
3342: p_data => x_msg_data
3343: );
3344:
3345: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3346: THEN
3347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3348: END IF;
3349:
3343: );
3344:
3345: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3346: THEN
3347: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3348: END IF;
3349:
3350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3351:
3351:
3352: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3354:
3355: FND_MSG_PUB.Count_And_Get
3356: ( p_count => x_msg_count,
3357: p_data => x_msg_data
3358: );
3359:
3356: ( p_count => x_msg_count,
3357: p_data => x_msg_data
3358: );
3359:
3360: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3361: THEN
3362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3363: END IF;
3364:
3358: );
3359:
3360: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3361: THEN
3362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3363: END IF;
3364:
3365: WHEN OTHERS THEN
3366:
3366:
3367: ROLLBACK TO SAVE_PERZ_LF_TYPE_PVT;
3368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3369:
3370: FND_MSG_PUB.Count_And_Get
3371: ( p_count => x_msg_count,
3372: p_data => x_msg_data
3373: );
3374:
3371: ( p_count => x_msg_count,
3372: p_data => x_msg_data
3373: );
3374:
3375: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3376: THEN
3377: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3378: END IF;
3379:
3373: );
3374:
3375: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3376: THEN
3377: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3378: END IF;
3379:
3380: END save_lf_object_type;
3381: -- *****************************************************************************