123: END IF;
124: --
125:
126: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
127: FND_MSG_PUB.initialize ;
128: END IF;
129: --
130: x_return_status := FND_API.G_RET_STS_SUCCESS ;
131: --
142: -- throws an error message .
143: if (l_flattened_rows_flag = 'N') then
144: FND_MESSAGE.SET_NAME('FEM','FEM_DHM_CANNOT_FLATTEN_HIER');
145: FND_MESSAGE.SET_TOKEN('HIER_DEFN_NAME',l_hier_defn_name );
146: FND_MSG_PUB.Add;
147: RAISE FND_API.G_EXC_ERROR ;
148: end if;
149:
150: if (p_focus_value_set_id is not null) then
400: IF FND_API.To_Boolean ( p_commit ) THEN
401: COMMIT WORK;
402: END iF;
403: --
404: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
405: p_data => x_msg_data );
406: --
407: EXCEPTION
408: --
409: WHEN FND_API.G_EXC_ERROR THEN
410: --
411: ROLLBACK TO Flatten_Focus_Node_Pvt ;
412: x_return_status := FND_API.G_RET_STS_ERROR;
413: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
414: p_data => x_msg_data );
415: --
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
417: --
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
417: --
418: ROLLBACK TO Flatten_Focus_Node_Pvt ;
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
421: p_data => x_msg_data );
422: --
423: WHEN OTHERS THEN
424: --
424: --
425: ROLLBACK TO Flatten_Focus_Node_Pvt ;
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: --
428: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
429: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
430: l_api_name);
431: END if;
432: --
425: ROLLBACK TO Flatten_Focus_Node_Pvt ;
426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
427: --
428: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
429: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
430: l_api_name);
431: END if;
432: --
433: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
429: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
430: l_api_name);
431: END if;
432: --
433: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
434: p_data => x_msg_data );
435: --
436:
437: end Flatten_Focus_Node;
521: END IF;
522: --
523:
524: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
525: FND_MSG_PUB.initialize ;
526: END IF;
527: --
528: x_return_status := FND_API.G_RET_STS_SUCCESS ;
529: --
551: -- throws an error message .
552: if (l_flattened_rows_flag = 'N') then
553: FND_MESSAGE.SET_NAME('FEM','FEM_DHM_CANNOT_FLATTEN_HIER');
554: FND_MESSAGE.SET_TOKEN('HIER_DEFN_NAME',l_hier_defn_name );
555: FND_MSG_PUB.Add;
556: RAISE FND_API.G_EXC_ERROR ;
557: end if;
558:
559: For l_dim_csr_rec in
701: IF FND_API.To_Boolean ( p_commit ) THEN
702: COMMIT WORK;
703: END iF;
704: --
705: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
706: p_data => x_msg_data );
707: --
708: EXCEPTION
709:
715: -- needed anymore
716:
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: --
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
716:
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: --
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
724: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
724: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
725: p_data => x_msg_data );
726: --
727:
728: end Flatten_Whole_Hier_Version;
813: END IF;
814: --
815:
816: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
817: FND_MSG_PUB.initialize ;
818: END IF;
819: --
820: x_return_status := FND_API.G_RET_STS_SUCCESS ;
821: --
1261: IF FND_API.To_Boolean ( p_commit ) THEN
1262: COMMIT WORK;
1263: END iF;
1264: --
1265: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1266: p_data => x_msg_data );
1267: --
1268: EXCEPTION
1269: -- Bug # 3562336 : Remove exceptions other than 'WHEN OTHERS'
1274: -- not needed anymore
1275:
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: --
1278: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1279: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1280: l_api_name);
1281: END if;
1282: --
1275:
1276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: --
1278: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1279: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1280: l_api_name);
1281: END if;
1282: --
1283: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1279: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1280: l_api_name);
1281: END if;
1282: --
1283: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1284: p_data => x_msg_data );
1285: --
1286:
1287: End Flatten_Focus_Node_Tree;
1358: END IF;
1359: --
1360:
1361: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1362: FND_MSG_PUB.initialize ;
1363: END IF;
1364: --
1365: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1366:
1736: IF FND_API.To_Boolean ( p_commit ) THEN
1737: COMMIT WORK;
1738: END iF;
1739: --
1740: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1741: p_data => x_msg_data );
1742: --
1743: EXCEPTION
1744: --
1745: WHEN FND_API.G_EXC_ERROR THEN
1746: --
1747: ROLLBACK TO Unflatten_Focus_Node_Tree_Pvt ;
1748: x_return_status := FND_API.G_RET_STS_ERROR;
1749: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1750: p_data => x_msg_data );
1751: --
1752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1753: --
1752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1753: --
1754: ROLLBACK TO Unflatten_Focus_Node_Tree_Pvt ;
1755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1757: p_data => x_msg_data );
1758: --
1759: WHEN OTHERS THEN
1760: --
1760: --
1761: ROLLBACK TO Unflatten_Focus_Node_Tree_Pvt ;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1763: --
1764: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1765: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1766: l_api_name);
1767: END if;
1768: --
1761: ROLLBACK TO Unflatten_Focus_Node_Tree_Pvt ;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1763: --
1764: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1765: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1766: l_api_name);
1767: END if;
1768: --
1769: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1765: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1766: l_api_name);
1767: END if;
1768: --
1769: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1770: p_data => x_msg_data );
1771: --
1772:
1773: End Unflatten_Focus_Node_Tree;
1827: --
1828: WHEN OTHERS THEN
1829:
1830: --
1831: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1832: --
1833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1834: l_api_name ) ;
1835: END IF ;
1829:
1830: --
1831: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1832: --
1833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1834: l_api_name ) ;
1835: END IF ;
1836: --
1837: retcode := 2 ;
1976: --
1977: WHEN OTHERS THEN
1978:
1979: --
1980: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1981: --
1982: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1983: l_api_name ) ;
1984: END IF ;
1978:
1979: --
1980: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1981: --
1982: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1983: l_api_name ) ;
1984: END IF ;
1985: --
1986: retcode := 2 ;
2030:
2031:
2032: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
2033:
2034: FND_MSG_PUB.initialize ;
2035:
2036: END IF;
2037:
2038: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2118: COMMIT WORK;
2119:
2120: END iF;
2121:
2122: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2123: p_data => p_msg_data );
2124:
2125: EXCEPTION
2126: WHEN FND_API.G_EXC_ERROR THEN
2128: ROLLBACK TO Insert_Root_Node_Pvt ;
2129:
2130: p_return_status := FND_API.G_RET_STS_ERROR;
2131:
2132: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2133: p_data => p_msg_data );
2134:
2135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2136:
2136:
2137: ROLLBACK TO Insert_Root_Node_Pvt ;
2138: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2139:
2140: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2141: p_data => p_msg_data );
2142:
2143: WHEN OTHERS THEN
2144:
2144:
2145: ROLLBACK TO Insert_Root_Node_Pvt ;
2146: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147:
2148: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2149: p_data => p_msg_data );
2150:
2151:
2152: END Insert_Root_Node;
2286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2287: end if;
2288:
2289: if FND_API.to_Boolean ( p_init_msg_list ) then
2290: FND_MSG_PUB.initialize ;
2291: end if;
2292:
2293: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2294:
2436: if p_return_status <> 'S' then
2437: RAISE FND_API.G_EXC_ERROR;
2438: end if;
2439:
2440: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2441: p_data => p_msg_data );
2442:
2443: EXCEPTION
2444: WHEN FND_API.G_EXC_ERROR THEN
2443: EXCEPTION
2444: WHEN FND_API.G_EXC_ERROR THEN
2445: ROLLBACK TO Dup_Hier_Pvt;
2446: p_return_status := FND_API.G_RET_STS_ERROR;
2447: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2448: p_data => p_msg_data );
2449:
2450: p_msg_data := sqlerrm;
2451:
2451:
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2453: ROLLBACK TO Dup_Hier_Pvt ;
2454: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2456: p_data => p_msg_data );
2457:
2458: p_msg_data := sqlerrm;
2459: WHEN OTHERS THEN
2458: p_msg_data := sqlerrm;
2459: WHEN OTHERS THEN
2460: ROLLBACK TO Dup_Hier_Pvt ;
2461: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
2463: p_data => p_msg_data );
2464:
2465: p_msg_data := sqlerrm;
2466: end Duplicate_Hierarchy;
2636: WHEN FND_API.G_EXC_ERROR THEN
2637:
2638: ROLLBACK TO Dup_Cost_Object_Hier_Data_Pvt ;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2640: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2641: p_data => x_msg_data );
2642:
2643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2644:
2643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2644:
2645: ROLLBACK TO Dup_Cost_Object_Hier_Data_Pvt ;
2646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2647: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2648: p_data => x_msg_data );
2649:
2650: WHEN OTHERS THEN
2651:
2651:
2652: ROLLBACK TO Dup_Cost_Object_Hier_Data_Pvt ;
2653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2654:
2655: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
2656: p_data => x_msg_data );
2657:
2658: END Dup_Cost_Object_Hier_Data;
2659:
4263: 1);
4264:
4265: end if;
4266:
4267: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4268: p_data => p_msg_data );
4269:
4270: EXCEPTION
4271: WHEN FND_API.G_EXC_ERROR THEN
4270: EXCEPTION
4271: WHEN FND_API.G_EXC_ERROR THEN
4272: ROLLBACK TO Copy_Hier_Data_Pvt ;
4273: p_return_status := FND_API.G_RET_STS_ERROR;
4274: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4275: p_data => p_msg_data );
4276:
4277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4278: ROLLBACK TO Copy_Hier_Data_Pvt ;
4276:
4277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4278: ROLLBACK TO Copy_Hier_Data_Pvt ;
4279: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4280: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4281: p_data => p_msg_data );
4282:
4283: WHEN OTHERS THEN
4284: ROLLBACK TO Copy_Hier_Data_Pvt ;
4282:
4283: WHEN OTHERS THEN
4284: ROLLBACK TO Copy_Hier_Data_Pvt ;
4285: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4286: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4287: p_data => p_msg_data );
4288:
4289: END Copy_Hier_Data;
4290:
4406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4407: end if;
4408:
4409: if FND_API.to_Boolean ( p_init_msg_list ) then
4410: FND_MSG_PUB.initialize ;
4411: end if;
4412:
4413: p_return_status := FND_API.G_RET_STS_SUCCESS ;
4414:
4513: RAISE FND_API.G_EXC_ERROR;
4514: end if;
4515:
4516:
4517: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4518: p_data => p_msg_data );
4519:
4520: EXCEPTION
4521: WHEN FND_API.G_EXC_ERROR THEN
4520: EXCEPTION
4521: WHEN FND_API.G_EXC_ERROR THEN
4522: ROLLBACK TO Dup_Hier_Version_Pvt ;
4523: p_return_status := FND_API.G_RET_STS_ERROR;
4524: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4525: p_data => p_msg_data );
4526:
4527: p_msg_data := sqlerrm;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4527: p_msg_data := sqlerrm;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4529: ROLLBACK TO Dup_Hier_Version_Pvt ;
4530: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4531: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4532: p_data => p_msg_data );
4533:
4534: p_msg_data := sqlerrm;
4535: WHEN OTHERS THEN
4534: p_msg_data := sqlerrm;
4535: WHEN OTHERS THEN
4536: ROLLBACK TO Dup_Hier_Version_Pvt ;
4537: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4538: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4539: p_data => p_msg_data );
4540:
4541: p_msg_data := sqlerrm;
4542: end duplicate_hier_version;
4920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4921: end if;
4922:
4923: if FND_API.to_Boolean ( p_init_msg_list ) then
4924: FND_MSG_PUB.initialize ;
4925: end if;
4926:
4927: p_return_status := FND_API.G_RET_STS_SUCCESS ;
4928:
4953: COMMIT WORK;
4954:
4955: END iF;
4956:
4957: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4958: p_data => p_msg_data );
4959:
4960: EXCEPTION
4961: WHEN FND_API.G_EXC_ERROR THEN
4963: ROLLBACK TO Delete_Hierarachy_Pvt ;
4964:
4965: p_return_status := FND_API.G_RET_STS_ERROR;
4966:
4967: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4968: p_data => p_msg_data );
4969:
4970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4971:
4971:
4972: ROLLBACK TO Delete_Hierarachy_Pvt ;
4973: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4974:
4975: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4976: p_data => p_msg_data );
4977:
4978: WHEN OTHERS THEN
4979:
4979:
4980: ROLLBACK TO Delete_Hierarachy_Pvt ;
4981: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4982:
4983: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
4984: p_data => p_msg_data );
4985:
4986: end Delete_Hierarchy;
4987:
5132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5133: end if;
5134:
5135: if FND_API.to_Boolean ( p_init_msg_list ) then
5136: FND_MSG_PUB.initialize ;
5137: end if;
5138:
5139: p_return_status := FND_API.G_RET_STS_SUCCESS ;
5140:
5248: COMMIT WORK;
5249:
5250: END iF;
5251:
5252: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
5253: p_data => p_msg_data );
5254:
5255: EXCEPTION
5256: WHEN FND_API.G_EXC_ERROR THEN
5258: ROLLBACK TO Delete_Hier_Version_Pvt ;
5259:
5260: p_return_status := FND_API.G_RET_STS_ERROR;
5261:
5262: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
5263: p_data => p_msg_data );
5264:
5265: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5266:
5266:
5267: ROLLBACK TO Delete_Hier_Version_Pvt ;
5268: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5269:
5270: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
5271: p_data => p_msg_data );
5272:
5273: WHEN OTHERS THEN
5274:
5274:
5275: ROLLBACK TO Delete_Hier_Version_Pvt ;
5276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5277:
5278: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
5279: p_data => p_msg_data );
5280:
5281:
5282: end Delete_Hier_Version;
5380: END IF;
5381: --
5382:
5383: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
5384: FND_MSG_PUB.initialize ;
5385: END IF;
5386: --
5387: x_return_status := FND_API.G_RET_STS_SUCCESS ;
5388: --
5871: WHEN FND_API.G_EXC_ERROR THEN
5872: --
5873: ROLLBACK TO Hier_Operation_Pvt ;
5874: x_return_status := FND_API.G_RET_STS_ERROR;
5875: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5876: p_data => x_msg_data );
5877: --
5878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5879: --
5878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5879: --
5880: ROLLBACK TO Hier_Operation_Pvt ;
5881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5882: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5883: p_data => x_msg_data );
5884: --
5885: WHEN NO_DATA_FOUND THEN
5886: --Bug#4878100
5886: --Bug#4878100
5887: ROLLBACK TO Hier_Operation_Pvt ;
5888: x_return_status := FND_API.G_RET_STS_ERROR;
5889: FND_MESSAGE.SET_NAME('FEM', 'FEM_DHM_MEM_DELETED_ERR');
5890: FND_MSG_PUB.ADD;
5891:
5892: --
5893: WHEN OTHERS THEN
5894: --
5894: --
5895: ROLLBACK TO Hier_Operation_Pvt ;
5896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5897: --
5898: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5899: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
5900: l_api_name);
5901: END if;
5902: --
5895: ROLLBACK TO Hier_Operation_Pvt ;
5896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5897: --
5898: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5899: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
5900: l_api_name);
5901: END if;
5902: --
5903: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5899: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
5900: l_api_name);
5901: END if;
5902: --
5903: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
5904: p_data => x_msg_data );
5905: --
5906:
5907: END Remove_Nodes;
5997: END IF;
5998: --
5999:
6000: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
6001: FND_MSG_PUB.initialize ;
6002: END IF;
6003: --
6004: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6005: --
6469: WHEN FND_API.G_EXC_ERROR THEN
6470: --
6471: ROLLBACK TO Hier_Operation_Pvt ;
6472: x_return_status := FND_API.G_RET_STS_ERROR;
6473: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6474: p_data => x_msg_data );
6475: --
6476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6477: --
6476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6477: --
6478: ROLLBACK TO Hier_Operation_Pvt ;
6479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6480: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6481: p_data => x_msg_data );
6482: --
6483: WHEN OTHERS THEN
6484: --
6484: --
6485: ROLLBACK TO Hier_Operation_Pvt ;
6486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6487: --
6488: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6489: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6490: l_api_name);
6491: END if;
6492: --
6485: ROLLBACK TO Hier_Operation_Pvt ;
6486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6487: --
6488: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6489: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6490: l_api_name);
6491: END if;
6492: --
6493: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6489: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6490: l_api_name);
6491: END if;
6492: --
6493: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6494: p_data => x_msg_data );
6495: --
6496:
6497: END Move_Nodes;
6554: END IF;
6555: --
6556:
6557: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
6558: FND_MSG_PUB.initialize ;
6559: END IF;
6560: --
6561: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6562: --
6756: WHEN FND_API.G_EXC_ERROR THEN
6757: --
6758: ROLLBACK TO Hier_Operation_Pvt ;
6759: x_return_status := FND_API.G_RET_STS_ERROR;
6760: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6761: p_data => x_msg_data );
6762: --
6763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6764: --
6763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6764: --
6765: ROLLBACK TO Hier_Operation_Pvt ;
6766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6767: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6768: p_data => x_msg_data );
6769: --
6770: WHEN OTHERS THEN
6771: --
6771: --
6772: ROLLBACK TO Hier_Operation_Pvt ;
6773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6774: --
6775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6777: l_api_name);
6778: END if;
6779: --
6772: ROLLBACK TO Hier_Operation_Pvt ;
6773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6774: --
6775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6777: l_api_name);
6778: END if;
6779: --
6780: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6777: l_api_name);
6778: END if;
6779: --
6780: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6781: p_data => x_msg_data );
6782: --
6783:
6784: END Add_Nodes;
6834: END IF;
6835: --
6836:
6837: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
6838: FND_MSG_PUB.initialize ;
6839: END IF;
6840: --
6841: x_return_status := FND_API.G_RET_STS_SUCCESS ;
6842: --
6930: WHEN FND_API.G_EXC_ERROR THEN
6931: --
6932: ROLLBACK TO Hier_Operation_Pvt ;
6933: x_return_status := FND_API.G_RET_STS_ERROR;
6934: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6935: p_data => x_msg_data );
6936: --
6937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6938: --
6937: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6938: --
6939: ROLLBACK TO Hier_Operation_Pvt ;
6940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6941: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6942: p_data => x_msg_data );
6943: --
6944: WHEN OTHERS THEN
6945: --
6945: --
6946: ROLLBACK TO Hier_Operation_Pvt ;
6947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6948: --
6949: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6950: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6951: l_api_name);
6952: END if;
6953: --
6946: ROLLBACK TO Hier_Operation_Pvt ;
6947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6948: --
6949: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6950: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6951: l_api_name);
6952: END if;
6953: --
6954: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6950: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
6951: l_api_name);
6952: END if;
6953: --
6954: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
6955: p_data => x_msg_data );
6956: --
6957:
6958: END Add_Root_Nodes;
6982: --
6983: SAVEPOINT Update_Row_Pvt ;
6984:
6985: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
6986: FND_MSG_PUB.initialize ;
6987: END IF;
6988: --
6989: p_return_status := FND_API.G_RET_STS_SUCCESS ;
6990:
7011: IF FND_API.To_Boolean ( p_commit ) THEN
7012: COMMIT WORK;
7013: END iF;
7014: --
7015: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
7016: p_data => p_msg_data );
7017: --
7018: EXCEPTION
7019: --
7020: WHEN FND_API.G_EXC_ERROR THEN
7021: --
7022: ROLLBACK TO Update_Row_Pvt ;
7023: p_return_status := FND_API.G_RET_STS_ERROR;
7024: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
7025: p_data => p_msg_data );
7026:
7027: --
7028: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7029: --
7030: ROLLBACK TO Update_Row_Pvt ;
7031: -- DBMS_OUTPUT.PUT_LINE('error: '|| SQLCODE);
7032: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7033: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
7034: p_data => p_msg_data );
7035: --
7036:
7037: WHEN OTHERS THEN
7041: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7042: --
7043:
7044: --
7045: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
7046: p_data => p_msg_data );
7047:
7048: END Hier_Member_Sequence_Update;
7049:
7541: l_parent_display_code);
7542: FND_MESSAGE.SET_TOKEN('CHILD_DISPLAY_CODE',
7543: l_child_display_code);
7544:
7545: FND_MSG_PUB.Add;
7546:
7547: END IF;
7548:
7549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7637: END IF;
7638: --
7639:
7640: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
7641: FND_MSG_PUB.initialize ;
7642: END IF;
7643: --
7644:
7645: ----- Start: Bug#5895840: Raising an exception and later catching it and throwing an error message
7794:
7795: ---- Start : Bug#5895840
7796: IF(l_cal_period_id IS NULL) THEN
7797: FND_MESSAGE.SET_NAME('FEM','FEM_DHM_CREATE_REL_PROFILE_ERR');
7798: FND_MSG_PUB.ADD;
7799: END IF;
7800:
7801: IF(l_dataset_code IS NULL) THEN
7802: FND_MESSAGE.SET_NAME('FEM','FEM_DHM_CREATE_REL_DATASET_ERR');
7799: END IF;
7800:
7801: IF(l_dataset_code IS NULL) THEN
7802: FND_MESSAGE.SET_NAME('FEM','FEM_DHM_CREATE_REL_DATASET_ERR');
7803: FND_MSG_PUB.ADD;
7804: END IF;
7805: ---- End: Bug#5895840
7806:
7807: ROLLBACK TO Add_Relation_Pvt ;
7805: ---- End: Bug#5895840
7806:
7807: ROLLBACK TO Add_Relation_Pvt ;
7808: x_return_status := FND_API.G_RET_STS_ERROR;
7809: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7810: p_data => x_msg_data );
7811:
7812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7813:
7812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7813:
7814: ROLLBACK TO Add_Relation_Pvt ;
7815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7817: p_data => x_msg_data );
7818:
7819: WHEN OTHERS THEN
7820:
7820:
7821: ROLLBACK TO Add_Relation_Pvt ;
7822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7823:
7824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7825: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7826: l_api_name);
7827: END if;
7828:
7821: ROLLBACK TO Add_Relation_Pvt ;
7822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7823:
7824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7825: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7826: l_api_name);
7827: END if;
7828:
7829: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7825: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7826: l_api_name);
7827: END if;
7828:
7829: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7830: p_data => x_msg_data );
7831:
7832: END Add_Relation;
7833:
7877: END IF;
7878: --
7879:
7880: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
7881: FND_MSG_PUB.initialize ;
7882: END IF;
7883: --
7884:
7885: l_relations_tab_type := p_relation_details_tbl;
7922: WHEN FND_API.G_EXC_ERROR THEN
7923:
7924: ROLLBACK TO Add_Relations_Pvt ;
7925: x_return_status := FND_API.G_RET_STS_ERROR;
7926: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7927: p_data => x_msg_data );
7928:
7929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7930:
7929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7930:
7931: ROLLBACK TO Add_Relations_Pvt ;
7932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7933: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7934: p_data => x_msg_data );
7935:
7936: WHEN OTHERS THEN
7937:
7937:
7938: ROLLBACK TO Add_Relations_Pvt ;
7939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7940:
7941: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7942: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7943: l_api_name);
7944: END if;
7945:
7938: ROLLBACK TO Add_Relations_Pvt ;
7939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7940:
7941: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7942: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7943: l_api_name);
7944: END if;
7945:
7946: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7942: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
7943: l_api_name);
7944: END if;
7945:
7946: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
7947: p_data => x_msg_data );
7948: END Add_Relations;
7949:
7950: /*===========================================================================+
8076: END IF;
8077: --
8078:
8079: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
8080: FND_MSG_PUB.initialize ;
8081: END IF;
8082:
8083: IF p_hier_table_name = 'FEM_COST_OBJECTS_HIER' THEN
8084:
8360: WHEN FND_API.G_EXC_ERROR THEN
8361:
8362: ROLLBACK TO Remove_Relation_Pvt ;
8363: x_return_status := FND_API.G_RET_STS_ERROR;
8364: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8365: p_data => x_msg_data );
8366:
8367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8368:
8367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8368:
8369: ROLLBACK TO Remove_Relation_Pvt ;
8370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8371: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8372: p_data => x_msg_data );
8373:
8374: WHEN OTHERS THEN
8375:
8375:
8376: ROLLBACK TO Remove_Relation_Pvt ;
8377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8378:
8379: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8380: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8381: l_api_name);
8382: END if;
8383:
8376: ROLLBACK TO Remove_Relation_Pvt ;
8377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8378:
8379: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8380: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8381: l_api_name);
8382: END if;
8383:
8384: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8380: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8381: l_api_name);
8382: END if;
8383:
8384: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8385: p_data => x_msg_data );
8386: END Remove_Relation;
8387:
8388: /*===========================================================================+
8467: END IF;
8468: --
8469:
8470: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
8471: FND_MSG_PUB.initialize ;
8472: END IF;
8473:
8474: IF p_hier_table_name = 'FEM_COST_OBJECTS_HIER' THEN
8475:
8555: WHEN FND_API.G_EXC_ERROR THEN
8556:
8557: ROLLBACK TO Update_Relation_Pvt ;
8558: x_return_status := FND_API.G_RET_STS_ERROR;
8559: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8560: p_data => x_msg_data );
8561:
8562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8563:
8562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8563:
8564: ROLLBACK TO Update_Relation_Pvt ;
8565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8566: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8567: p_data => x_msg_data );
8568:
8569: WHEN OTHERS THEN
8570:
8570:
8571: ROLLBACK TO Update_Relation_Pvt ;
8572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8573:
8574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8575: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8576: l_api_name);
8577: END if;
8578:
8571: ROLLBACK TO Update_Relation_Pvt ;
8572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8573:
8574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8575: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8576: l_api_name);
8577: END if;
8578:
8579: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8575: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8576: l_api_name);
8577: END if;
8578:
8579: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8580: p_data => x_msg_data );
8581: END Update_Relation;
8582:
8583: /*===========================================================================+
8626: END IF;
8627: --
8628:
8629: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
8630: FND_MSG_PUB.initialize ;
8631: END IF;
8632:
8633: l_relations_tab_type := p_relation_details_tbl;
8634:
8669: WHEN FND_API.G_EXC_ERROR THEN
8670:
8671: ROLLBACK TO Update_Relations_Pvt ;
8672: x_return_status := FND_API.G_RET_STS_ERROR;
8673: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8674: p_data => x_msg_data );
8675:
8676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8677:
8676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8677:
8678: ROLLBACK TO Update_Relations_Pvt ;
8679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8680: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8681: p_data => x_msg_data );
8682:
8683: WHEN OTHERS THEN
8684:
8684:
8685: ROLLBACK TO Update_Relations_Pvt ;
8686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8687:
8688: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8689: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8690: l_api_name);
8691: END if;
8692:
8685: ROLLBACK TO Update_Relations_Pvt ;
8686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8687:
8688: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8689: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8690: l_api_name);
8691: END if;
8692:
8693: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8689: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8690: l_api_name);
8691: END if;
8692:
8693: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8694: p_data => x_msg_data );
8695: END Update_Relations;
8696:
8697: /*===========================================================================+
8771: END IF;
8772: --
8773:
8774: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
8775: FND_MSG_PUB.initialize ;
8776: END IF;
8777: --
8778:
8779: IF p_hier_table_name = 'FEM_COST_OBJECTS_HIER' THEN
8851: WHEN FND_API.G_EXC_ERROR THEN
8852:
8853: ROLLBACK TO Move_Relation_Pvt ;
8854: x_return_status := FND_API.G_RET_STS_ERROR;
8855: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8856: p_data => x_msg_data );
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8859:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8859:
8860: ROLLBACK TO Move_Relation_Pvt ;
8861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8862: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8863: p_data => x_msg_data );
8864:
8865: WHEN OTHERS THEN
8866:
8866:
8867: ROLLBACK TO Move_Relation_Pvt ;
8868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8869:
8870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8871: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8872: l_api_name);
8873: END if;
8874:
8867: ROLLBACK TO Move_Relation_Pvt ;
8868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8869:
8870: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8871: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8872: l_api_name);
8873: END if;
8874:
8875: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8871: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8872: l_api_name);
8873: END if;
8874:
8875: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8876: p_data => x_msg_data );
8877: END Move_Relation;
8878:
8879: /*===========================================================================+
8923: END IF;
8924: --
8925:
8926: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
8927: FND_MSG_PUB.initialize ;
8928: END IF;
8929:
8930: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8931:
8966: WHEN FND_API.G_EXC_ERROR THEN
8967:
8968: ROLLBACK TO Flatten_Whole_Hierarchy_Pvt;
8969: x_return_status := FND_API.G_RET_STS_ERROR;
8970: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8971: p_data => x_msg_data );
8972:
8973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8974:
8973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8974:
8975: ROLLBACK TO Flatten_Whole_Hierarchy_Pvt;
8976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8977: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8978: p_data => x_msg_data );
8979:
8980: WHEN OTHERS THEN
8981:
8981:
8982: ROLLBACK TO Flatten_Whole_Hierarchy_Pvt;
8983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8984:
8985: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8986: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8987: l_api_name);
8988: END if;
8989:
8982: ROLLBACK TO Flatten_Whole_Hierarchy_Pvt;
8983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8984:
8985: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8986: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8987: l_api_name);
8988: END if;
8989:
8990: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8986: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
8987: l_api_name);
8988: END if;
8989:
8990: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8991: p_data => x_msg_data );
8992:
8993: END Flatten_Whole_Hierarchy;
8994:
9050: --
9051: WHEN OTHERS THEN
9052:
9053: --
9054: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
9055: --
9056: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
9057: l_api_name ) ;
9058: END IF ;
9052:
9053: --
9054: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
9055: --
9056: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
9057: l_api_name ) ;
9058: END IF ;
9059: --
9060: retcode := 2 ;