214:
215:
216: EXCEPTION
217: WHEN OTHERS THEN
218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
221: , 'find_first_period'
222: );
216: EXCEPTION
217: WHEN OTHERS THEN
218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
221: , 'find_first_period'
222: );
223: END IF;
224: RAISE;
428: END IF; -- open flag
429:
430: EXCEPTION
431: WHEN OTHERS THEN
432: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
433: THEN
434: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
435: , 'populate_layers'
436: );
430: EXCEPTION
431: WHEN OTHERS THEN
432: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
433: THEN
434: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
435: , 'populate_layers'
436: );
437: END IF;
438: RAISE;
696: l_inventory_tab := l_empty_inventory_tab;
697:
698: EXCEPTION
699: WHEN OTHERS THEN
700: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
701: THEN
702: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
703: , 'calc_lifo_cost'
704: );
698: EXCEPTION
699: WHEN OTHERS THEN
700: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
701: THEN
702: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
703: , 'calc_lifo_cost'
704: );
705: END IF;
706: RAISE;
762: BEGIN
763:
764: -- initialize the message stack
765:
766: FND_MSG_PUB.Initialize;
767:
768: -- loop on items
769: OPEN item_cur;
770:
815: x_retcode := 0;
816:
817: EXCEPTION
818: WHEN OTHERS THEN
819: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
820: THEN
821: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
822: , 'lifo_cost_processor'
823: );
817: EXCEPTION
818: WHEN OTHERS THEN
819: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
820: THEN
821: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
822: , 'lifo_cost_processor'
823: );
824: END IF;
825: x_retcode := 2;
822: , 'lifo_cost_processor'
823: );
824: END IF;
825: x_retcode := 2;
826: x_errbuff := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
827: END lifo_cost_processor;
828:
829:
830:
886: BEGIN
887:
888: -- initialize the message stack
889:
890: FND_MSG_PUB.Initialize;
891:
892: -- loop on items
893: OPEN item_cur;
894:
1042: AND item_id = l_current_item;
1043:
1044: EXCEPTION
1045: WHEN OTHERS THEN
1046: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1049: , 'pop_summary_data'
1050: );
1044: EXCEPTION
1045: WHEN OTHERS THEN
1046: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1049: , 'pop_summary_data'
1050: );
1051: END IF;
1052: RAISE;
1111: BEGIN
1112:
1113: -- initialize the message stack
1114:
1115: FND_MSG_PUB.Initialize;
1116:
1117: -- loop on items
1118: OPEN item_cur;
1119:
1425: l_inventory_tab := l_empty_inventory_tab;
1426:
1427: EXCEPTION
1428: WHEN OTHERS THEN
1429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1432: , 'pop_detail_data'
1433: );
1427: EXCEPTION
1428: WHEN OTHERS THEN
1429: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1432: , 'pop_detail_data'
1433: );
1434: END IF;
1435: RAISE;
1563: x_retcode := 0;
1564:
1565: EXCEPTION
1566: WHEN OTHERS THEN
1567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1568: THEN
1569: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1570: , 'populate_temp_table'
1571: );
1565: EXCEPTION
1566: WHEN OTHERS THEN
1567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1568: THEN
1569: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
1570: , 'populate_temp_table'
1571: );
1572: END IF;
1573: x_retcode := 2;
1570: , 'populate_temp_table'
1571: );
1572: END IF;
1573: x_retcode := 2;
1574: x_errbuff := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
1575: END populate_temp_table;
1576:
1577:
1578: --=========================================================================
2144: ,'Start of Proc:Selective Purge'
2145: );
2146:
2147: -- initialize the message stack
2148: FND_MSG_PUB.Initialize;
2149:
2150: -- get market value for the first period
2151: OPEN get_market_value_cur(p_first_period_id
2152: ,p_cost_group_id
2418: (CST_MGD_LIFO_COST_PROCESSOR.G_LOG_ERROR
2419: ,to_char(l_errorcode) || l_errortext
2420: );
2421:
2422: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2423: THEN
2424: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
2425: ,'selective_purge'
2426: );
2420: );
2421:
2422: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2423: THEN
2424: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
2425: ,'selective_purge'
2426: );
2427: END IF;
2428:
2553: -- initialize log
2554: CST_MGD_LIFO_COST_PROCESSOR.Log_Initialize;
2555:
2556: -- initialize the message stack
2557: FND_MSG_PUB.Initialize;
2558:
2559: CST_MGD_LIFO_COST_PROCESSOR.Log
2560: (CST_MGD_LIFO_COST_PROCESSOR.G_LOG_PROCEDURE
2561: ,'Start of Proc:Lifo purge'
2764:
2765: EXCEPTION
2766:
2767: WHEN OTHERS THEN
2768: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2769: THEN
2770: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
2771: ,'lifo_purge'
2772: );
2766:
2767: WHEN OTHERS THEN
2768: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2769: THEN
2770: FND_MSG_PUB.Add_Exc_Msg( G_CST_MGD_LIFO_COST_PROCESSOR
2771: ,'lifo_purge'
2772: );
2773: END IF;
2774:
2777: ,'Selective LIFO Purge Failed'
2778: );
2779:
2780: x_retcode := RETCODE_ERROR;
2781: x_errbuff := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
2782:
2783: END Lifo_purge;
2784:
2785: END CST_MGD_LIFO_COST_PROCESSOR;