420:
421:
422: -- Standard call to get message count and if count is 1, get message info
423:
424: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
425: p_data => p_msg_data);
426:
427:
428: -- Initialize API Return Status to Success
433: EXCEPTION
434:
435: when FND_API.G_EXC_ERROR then
436: p_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: p_data => p_msg_data);
439:
440: when FND_API.G_EXC_UNEXPECTED_ERROR then
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: p_data => p_msg_data);
439:
440: when FND_API.G_EXC_UNEXPECTED_ERROR then
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
443: p_data => p_msg_data);
444:
445: when OTHERS then
446: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444:
445: when OTHERS then
446: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447:
448: if FND_MSG_PUB.Check_Msg_Level
449: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
450: then
451: FND_MSG_PUB.Add_Exc_Msg
452: (p_pkg_name => G_PKG_NAME,
445: when OTHERS then
446: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447:
448: if FND_MSG_PUB.Check_Msg_Level
449: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
450: then
451: FND_MSG_PUB.Add_Exc_Msg
452: (p_pkg_name => G_PKG_NAME,
453: p_procedure_name => l_api_name);
447:
448: if FND_MSG_PUB.Check_Msg_Level
449: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
450: then
451: FND_MSG_PUB.Add_Exc_Msg
452: (p_pkg_name => G_PKG_NAME,
453: p_procedure_name => l_api_name);
454: end if;
455:
452: (p_pkg_name => G_PKG_NAME,
453: p_procedure_name => l_api_name);
454: end if;
455:
456: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
457: p_data => p_msg_data);
458:
459: END Check_Budget_Group_Freeze;
460:
629:
630: -- Initialize message list if p_init_msg_list is set to TRUE.
631:
632: if FND_API.to_Boolean (p_init_msg_list) then
633: FND_MSG_PUB.initialize;
634: end if;
635:
636:
637: -- Check for Budget Group Hierarchy :
964: end if;
965:
966: -- Standard call to get message count and if count is 1, get message info
967:
968: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
969: p_data => p_msg_data);
970:
971:
972: -- Initialize API Return Status to Success
978:
979: when FND_API.G_EXC_ERROR then
980: rollback to Val_Budget_Group_Hierarchy_Pvt;
981: p_return_status := FND_API.G_RET_STS_ERROR ;
982: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
983: p_data => p_msg_data);
984:
985: when FND_API.G_EXC_UNEXPECTED_ERROR then
986: rollback to Val_Budget_Group_Hierarchy_Pvt;
984:
985: when FND_API.G_EXC_UNEXPECTED_ERROR then
986: rollback to Val_Budget_Group_Hierarchy_Pvt;
987: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
989: p_data => p_msg_data);
990:
991: when OTHERS then
992: rollback to Val_Budget_Group_Hierarchy_Pvt;
991: when OTHERS then
992: rollback to Val_Budget_Group_Hierarchy_Pvt;
993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994:
995: if FND_MSG_PUB.Check_Msg_Level
996: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
997:
998: FND_MSG_PUB.Add_Exc_Msg
999: (p_pkg_name => G_PKG_NAME,
992: rollback to Val_Budget_Group_Hierarchy_Pvt;
993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994:
995: if FND_MSG_PUB.Check_Msg_Level
996: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
997:
998: FND_MSG_PUB.Add_Exc_Msg
999: (p_pkg_name => G_PKG_NAME,
1000: p_procedure_name => l_api_name);
994:
995: if FND_MSG_PUB.Check_Msg_Level
996: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
997:
998: FND_MSG_PUB.Add_Exc_Msg
999: (p_pkg_name => G_PKG_NAME,
1000: p_procedure_name => l_api_name);
1001:
1002: end if;
1000: p_procedure_name => l_api_name);
1001:
1002: end if;
1003:
1004: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1005: p_data => p_msg_data);
1006:
1007: END Val_Budget_Group_Hierarchy;
1008:
1096: --
1097: SAVEPOINT Insert_Row ;
1098: --
1099: if FND_API.to_Boolean (p_init_msg_list) then
1100: FND_MSG_PUB.initialize;
1101: end if;
1102: --
1103: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1104: --
1116: P_LAST_UPDATE_LOGIN := -1;
1117: end if;
1118: else
1119: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1120: FND_MSG_PUB.Add ;
1121: raise FND_API.G_EXC_ERROR ;
1122: end if;
1123:
1124: insert into PSB_BUDGET_GROUPS (
1270: if FND_API.to_Boolean (p_commit) then
1271: commit work;
1272: end if;
1273: -- Standard call to get message count and if count is 1, get message info.
1274: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1275: p_data => p_msg_data);
1276: --
1277:
1278: EXCEPTION
1280: when FND_API.G_EXC_ERROR then
1281: --
1282: rollback to INSERT_ROW ;
1283: p_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1285: p_data => p_msg_data);
1286: --
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: --
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: --
1289: rollback to INSERT_ROW ;
1290: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1292: p_data => p_msg_data);
1293: --
1294: when OTHERS then
1295: --
1294: when OTHERS then
1295: --
1296: rollback to INSERT_ROW ;
1297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1299: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1300: l_api_name);
1301: END if;
1302: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1295: --
1296: rollback to INSERT_ROW ;
1297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1299: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1300: l_api_name);
1301: END if;
1302: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1303: p_data => p_msg_data);
1298: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1299: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1300: l_api_name);
1301: END if;
1302: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1303: p_data => p_msg_data);
1304: --
1305: END INSERT_ROW;
1306:
1647: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1648: ROLLBACK TO Lock_Row ;
1649: p_lock_row := FND_API.G_FALSE;
1650: p_return_status := FND_API.G_RET_STS_ERROR;
1651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1652: p_data => p_msg_data );
1653:
1654: END LOCK_ROW;
1655:
1739: --
1740: SAVEPOINT Update_Row ;
1741: --
1742: if FND_API.to_Boolean (p_init_msg_list) then
1743: FND_MSG_PUB.initialize;
1744: end if;
1745:
1746: -- Initialize API return status to success
1747:
1763: P_LAST_UPDATE_LOGIN := -1;
1764: end if;
1765: else
1766: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1767: FND_MSG_PUB.Add ;
1768: raise FND_API.G_EXC_ERROR ;
1769: end if;
1770:
1771:
1845: if FND_API.to_Boolean (p_commit) then
1846: commit work;
1847: end if;
1848: -- Standard call to get message count and if count is 1, get message info.
1849: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1850: p_data => p_msg_data);
1851: --
1852:
1853:
1856: when FND_API.G_EXC_ERROR then
1857: --
1858: rollback to UPDATE_ROW ;
1859: p_return_status := FND_API.G_RET_STS_ERROR;
1860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1861: p_data => p_msg_data);
1862: --
1863: when FND_API.G_EXC_UNEXPECTED_ERROR then
1864: --
1863: when FND_API.G_EXC_UNEXPECTED_ERROR then
1864: --
1865: rollback to UPDATE_ROW ;
1866: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1868: p_data => p_msg_data);
1869: --
1870: when OTHERS then
1871: --
1870: when OTHERS then
1871: --
1872: rollback to UPDATE_ROW ;
1873: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1874: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1875: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1876: l_api_name);
1877: END if;
1878: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1871: --
1872: rollback to UPDATE_ROW ;
1873: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1874: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1875: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1876: l_api_name);
1877: END if;
1878: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1879: p_data => p_msg_data);
1874: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1875: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1876: l_api_name);
1877: END if;
1878: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1879: p_data => p_msg_data);
1880: --
1881:
1882:
1971: --
1972: -- Initialize message list if p_init_msg_list is set to TRUE.
1973: --
1974: if FND_API.to_Boolean (p_init_msg_list) then
1975: FND_MSG_PUB.initialize;
1976: end if;
1977: --
1978: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1979: --
2132: if FND_API.to_Boolean (p_commit) then
2133: commit work;
2134: end if;
2135: -- Standard call to get message count and if count is 1, get message info.
2136: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2137: p_data => p_msg_data);
2138: --
2139:
2140: EXCEPTION
2142: when FND_API.G_EXC_ERROR then
2143: --
2144: rollback to ADD_ROW ;
2145: p_return_status := FND_API.G_RET_STS_ERROR;
2146: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2147: p_data => p_msg_data);
2148: --
2149: when FND_API.G_EXC_UNEXPECTED_ERROR then
2150: --
2149: when FND_API.G_EXC_UNEXPECTED_ERROR then
2150: --
2151: rollback to ADD_ROW ;
2152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2153: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2154: p_data => p_msg_data);
2155: --
2156: when OTHERS then
2157: --
2156: when OTHERS then
2157: --
2158: rollback to ADD_ROW ;
2159: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2161: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2162: l_api_name);
2163: END if;
2164: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2157: --
2158: rollback to ADD_ROW ;
2159: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2161: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2162: l_api_name);
2163: END if;
2164: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2165: p_data => p_msg_data);
2160: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2161: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2162: l_api_name);
2163: END if;
2164: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2165: p_data => p_msg_data);
2166: --
2167: END ADD_ROW;
2168:
2364:
2365: -- Initialize message list if p_init_msg_list is set to TRUE.
2366:
2367: if FND_API.to_Boolean (p_init_msg_list) then
2368: FND_MSG_PUB.initialize;
2369: end if;
2370:
2371: -- Initialize API return status to success
2372:
2635: end if;
2636:
2637: -- Standard call to get message count and if count is 1, get message info.
2638:
2639: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2640: p_data => p_msg_data);
2641:
2642: EXCEPTION
2643:
2646: rollback to Delete_Row;
2647:
2648: p_return_status := FND_API.G_RET_STS_ERROR;
2649:
2650: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2651: p_data => p_msg_data);
2652:
2653:
2654: when FND_API.G_EXC_UNEXPECTED_ERROR then
2656: rollback to Delete_Row;
2657:
2658: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2659:
2660: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2661: p_data => p_msg_data);
2662:
2663:
2664: when OTHERS then
2666: rollback to Delete_Row;
2667:
2668: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669:
2670: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2671:
2672: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2673: l_api_name);
2674: end if;
2668: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669:
2670: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2671:
2672: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2673: l_api_name);
2674: end if;
2675:
2676: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2672: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2673: l_api_name);
2674: end if;
2675:
2676: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2677: p_data => p_msg_data);
2678:
2679: END Delete_Row;
2680:
2699: --
2700: -- Initialize message list if p_init_msg_list is set to TRUE.
2701: --
2702: if FND_API.to_Boolean (p_init_msg_list) then
2703: FND_MSG_PUB.initialize;
2704: end if;
2705: --
2706: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2707: --
2720: if FND_API.to_Boolean (p_commit) then
2721: commit work;
2722: end if;
2723: -- Standard call to get message count and if count is 1, get message info.
2724: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2725: p_data => p_msg_data);
2726: --
2727:
2728: EXCEPTION
2730: when FND_API.G_EXC_ERROR then
2731: --
2732: rollback to Delete_Review_Group ;
2733: p_return_status := FND_API.G_RET_STS_ERROR;
2734: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2735: p_data => p_msg_data);
2736: --
2737: when FND_API.G_EXC_UNEXPECTED_ERROR then
2738: --
2737: when FND_API.G_EXC_UNEXPECTED_ERROR then
2738: --
2739: rollback to Delete_Review_Group ;
2740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2741: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2742: p_data => p_msg_data);
2743: --
2744: when OTHERS then
2745: --
2744: when OTHERS then
2745: --
2746: rollback to DELETE_ROW ;
2747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2749: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2750: l_api_name);
2751: END if;
2752: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2745: --
2746: rollback to DELETE_ROW ;
2747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2749: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2750: l_api_name);
2751: END if;
2752: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2753: p_data => p_msg_data);
2748: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2749: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2750: l_api_name);
2751: END if;
2752: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2753: p_data => p_msg_data);
2754: --
2755:
2756: END Delete_Review_Group;
2932:
2933: -- Initialize message list if p_init_msg_list is set to TRUE.
2934:
2935: if FND_API.to_Boolean (p_init_msg_list) then
2936: FND_MSG_PUB.initialize;
2937: end if;
2938:
2939: -- Initialize API return status to success
2940:
3159: );
3160:
3161: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3162: --
3163: FND_MSG_PUB.Get( p_msg_index => 1 ,
3164: p_encoded => FND_API.G_FALSE ,
3165: p_data => l_msg_data ,
3166: p_msg_index_out => l_msg_count
3167: );
3202: );
3203:
3204: if l_return_status1 <> FND_API.G_RET_STS_SUCCESS then
3205: --
3206: FND_MSG_PUB.Get( p_msg_index => 1 ,
3207: p_encoded => FND_API.G_FALSE ,
3208: p_data => l_msg_data1 ,
3209: p_msg_index_out => l_msg_count1
3210: );
3325: p_creation_date => l_creation_date
3326: );
3327: if l_return_status2 <> FND_API.G_RET_STS_SUCCESS then
3328: --
3329: FND_MSG_PUB.Get( p_msg_index => 1 ,
3330: p_encoded => FND_API.G_FALSE ,
3331: p_data => l_msg_data2 ,
3332: p_msg_index_out => l_msg_count2
3333: );
3359: end if;
3360:
3361: -- Standard call to get message count and if count is 1, get message info.
3362:
3363: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3364: p_data => p_msg_data);
3365:
3366: EXCEPTION
3367:
3370: rollback to Copy_Budget_Group;
3371:
3372: p_return_status := FND_API.G_RET_STS_ERROR;
3373:
3374: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3375: p_data => p_msg_data);
3376:
3377:
3378: when FND_API.G_EXC_UNEXPECTED_ERROR then
3380: rollback to Copy_Budget_Group;
3381:
3382: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3383:
3384: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3385: p_data => p_msg_data);
3386:
3387:
3388: when OTHERS then
3390: rollback to Copy_Budget_Group;
3391:
3392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393:
3394: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3395:
3396: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3397: l_api_name);
3398: end if;
3392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393:
3394: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3395:
3396: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3397: l_api_name);
3398: end if;
3399:
3400: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3396: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3397: l_api_name);
3398: end if;
3399:
3400: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3401: p_data => p_msg_data);
3402:
3403: END Copy_Budget_Group;
3404:
3454:
3455: -- Initialize message list if p_init_msg_list is set to TRUE.
3456:
3457: if FND_API.to_Boolean (p_init_msg_list) then
3458: FND_MSG_PUB.initialize;
3459: end if;
3460:
3461: -- Initialize API return status to success
3462:
3546: end if;
3547:
3548: -- Standard call to get message count and if count is 1, get message info.
3549:
3550: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3551: p_data => p_msg_data);
3552:
3553: EXCEPTION
3554:
3555: when FND_API.G_EXC_ERROR then
3556:
3557: rollback to Account_Overlap_Validation;
3558: p_return_status := FND_API.G_RET_STS_ERROR;
3559: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3560: p_data => p_msg_data);
3561:
3562:
3563: when FND_API.G_EXC_UNEXPECTED_ERROR then
3563: when FND_API.G_EXC_UNEXPECTED_ERROR then
3564:
3565: rollback to Account_Overlap_Validation;
3566: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3567: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3568: p_data => p_msg_data);
3569:
3570:
3571: when OTHERS then
3571: when OTHERS then
3572:
3573: rollback to Account_Overlap_Validation;
3574: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3577: l_api_name);
3578: end if;
3579: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3572:
3573: rollback to Account_Overlap_Validation;
3574: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3577: l_api_name);
3578: end if;
3579: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3580: p_data => p_msg_data);
3575: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3577: l_api_name);
3578: end if;
3579: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3580: p_data => p_msg_data);
3581:
3582: END Account_Overlap_Validation ;
3583:
3669:
3670: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
3671: p_print_header => FND_API.G_TRUE) ;
3672:
3673: fnd_msg_pub.initialize;
3674: END IF;
3675: /* End bug no 4030864 */
3676:
3677: exit when c_Missing_Accounts%NOTFOUND;
3812: END IF;
3813:
3814: -- Standard call to get message count and if count is 1, get message info
3815:
3816: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3817: p_data => p_msg_data);
3818:
3819:
3820: -- Initialize API Return Status to Success
3825: EXCEPTION
3826:
3827: when FND_API.G_EXC_ERROR then
3828: p_return_status := FND_API.G_RET_STS_ERROR;
3829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3830: p_data => p_msg_data);
3831:
3832: when FND_API.G_EXC_UNEXPECTED_ERROR then
3833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: p_data => p_msg_data);
3831:
3832: when FND_API.G_EXC_UNEXPECTED_ERROR then
3833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3835: p_data => p_msg_data);
3836:
3837: when OTHERS then
3838: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3836:
3837: when OTHERS then
3838: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3839:
3840: if FND_MSG_PUB.Check_Msg_Level
3841: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3842: then
3843: FND_MSG_PUB.Add_Exc_Msg
3844: (p_pkg_name => G_PKG_NAME,
3837: when OTHERS then
3838: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3839:
3840: if FND_MSG_PUB.Check_Msg_Level
3841: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3842: then
3843: FND_MSG_PUB.Add_Exc_Msg
3844: (p_pkg_name => G_PKG_NAME,
3845: p_procedure_name => l_api_name);
3839:
3840: if FND_MSG_PUB.Check_Msg_Level
3841: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3842: then
3843: FND_MSG_PUB.Add_Exc_Msg
3844: (p_pkg_name => G_PKG_NAME,
3845: p_procedure_name => l_api_name);
3846: end if;
3847:
3844: (p_pkg_name => G_PKG_NAME,
3845: p_procedure_name => l_api_name);
3846: end if;
3847:
3848: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3849: p_data => p_msg_data);
3850:
3851: END Validate_Budget_Group_Org;
3852:
3978: end loop;
3979:
3980: end if;
3981:
3982: FND_MSG_PUB.Add;
3983:
3984: end if;
3985:
3986: -- Clear Message Token stack
4016:
4017: l_reqid := FND_GLOBAL.CONC_REQUEST_ID;
4018: l_userid := FND_GLOBAL.USER_ID;
4019:
4020: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
4021: p_data => l_msg_buf );
4022:
4023: /* Start bug no 4030864 */
4024: -- performance bug
4069: --
4070: end if;
4071: --
4072: -- initialize error message stack --
4073: FND_MSG_PUB.initialize;
4074:
4075: END Output_Message_To_Table;
4076:
4077:
4162: --
4163:
4164: WHEN OTHERS THEN
4165: --
4166: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4167: --
4168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4169: l_api_name ) ;
4170: END IF ;
4164: WHEN OTHERS THEN
4165: --
4166: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4167: --
4168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4169: l_api_name ) ;
4170: END IF ;
4171: --
4172: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4251: retcode := 2 ;
4252: --
4253: WHEN OTHERS THEN
4254: --
4255: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4256: --
4257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4258: l_api_name ) ;
4259: END IF ;
4253: WHEN OTHERS THEN
4254: --
4255: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4256: --
4257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4258: l_api_name ) ;
4259: END IF ;
4260: --
4261: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4337: retcode := 2 ;
4338: --
4339: WHEN OTHERS THEN
4340: --
4341: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4342: --
4343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4344: l_api_name ) ;
4345: END IF ;
4339: WHEN OTHERS THEN
4340: --
4341: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4342: --
4343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
4344: l_api_name ) ;
4345: END IF ;
4346: --
4347: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,