71:
72: EXCEPTION
73: WHEN l_infl_processor_run_exc THEN
74: FND_MESSAGE.Set_Name('BOM', 'CST_INFL_PROCESSOR_RUN');
75: FND_MSG_PUB.Add;
76: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
77: THEN
78: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
79: , 'Check_Inflation_Process_Run'
72: EXCEPTION
73: WHEN l_infl_processor_run_exc THEN
74: FND_MESSAGE.Set_Name('BOM', 'CST_INFL_PROCESSOR_RUN');
75: FND_MSG_PUB.Add;
76: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
77: THEN
78: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
79: , 'Check_Inflation_Process_Run'
80: );
74: FND_MESSAGE.Set_Name('BOM', 'CST_INFL_PROCESSOR_RUN');
75: FND_MSG_PUB.Add;
76: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
77: THEN
78: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
79: , 'Check_Inflation_Process_Run'
80: );
81: END IF;
82: x_return_status := FND_API.G_RET_STS_ERROR;
82: x_return_status := FND_API.G_RET_STS_ERROR;
83: RAISE;
84:
85: WHEN OTHERS THEN
86: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
87: THEN
88: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
89: , 'Check_Inflation_Process_Run'
90: );
84:
85: WHEN OTHERS THEN
86: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
87: THEN
88: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
89: , 'Check_Inflation_Process_Run'
90: );
91: END IF;
92: RAISE;
152: EXCEPTION
153:
154: WHEN l_period_is_final_exc THEN
155: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_FINAL');
156: FND_MSG_PUB.Add;
157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
158: THEN
159: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
160: , 'Check_Period_Status'
153:
154: WHEN l_period_is_final_exc THEN
155: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_FINAL');
156: FND_MSG_PUB.Add;
157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
158: THEN
159: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
160: , 'Check_Period_Status'
161: );
155: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_FINAL');
156: FND_MSG_PUB.Add;
157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
158: THEN
159: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
160: , 'Check_Period_Status'
161: );
162: END IF;
163: RAISE g_period_is_final_exc;
161: );
162: END IF;
163: RAISE g_period_is_final_exc;
164: WHEN OTHERS THEN
165: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
166: THEN
167: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
168: , 'Check_Period_Status'
169: );
163: RAISE g_period_is_final_exc;
164: WHEN OTHERS THEN
165: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
166: THEN
167: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
168: , 'Check_Period_Status'
169: );
170: END IF;
171: RAISE;
225:
226: EXCEPTION
227: WHEN NO_DATA_FOUND THEN
228: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PRICE_INDEX');
229: FND_MSG_PUB.Add;
230: RAISE g_price_index_exc;
231: WHEN OTHERS THEN
232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233: THEN
228: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PRICE_INDEX');
229: FND_MSG_PUB.Add;
230: RAISE g_price_index_exc;
231: WHEN OTHERS THEN
232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233: THEN
234: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
235: , 'Get_Inflation_Index_Value'
236: );
230: RAISE g_price_index_exc;
231: WHEN OTHERS THEN
232: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233: THEN
234: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
235: , 'Get_Inflation_Index_Value'
236: );
237: END IF;
238: RAISE;
395: l_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
396: l_state_level := FND_LOG.LEVEL_STATEMENT;
397:
398: -- initialize the message stack
399: FND_MSG_PUB.Initialize;
400:
401: -- Bug # 3889172 check if the Org is WMS enabled.
402: SELECT WMS_ENABLED_FLAG
403: INTO l_wms_enabled_flag
661:
662: -- Bug # 3889172
663: WHEN l_wms_org_exc THEN
664: FND_MESSAGE.set_name('BOM', 'CST_MGD_INFL_WMS_ORG');
665: FND_MSG_PUB.Add;
666: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
667: THEN
668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
669: , 'Calculate_Adjustment'
662: -- Bug # 3889172
663: WHEN l_wms_org_exc THEN
664: FND_MESSAGE.set_name('BOM', 'CST_MGD_INFL_WMS_ORG');
665: FND_MSG_PUB.Add;
666: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
667: THEN
668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
669: , 'Calculate_Adjustment'
670: );
664: FND_MESSAGE.set_name('BOM', 'CST_MGD_INFL_WMS_ORG');
665: FND_MSG_PUB.Add;
666: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
667: THEN
668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
669: , 'Calculate_Adjustment'
670: );
671: END IF;
672: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
668: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
669: , 'Calculate_Adjustment'
670: );
671: END IF;
672: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
673: x_retcode := 2;
674:
675: WHEN l_period_gap_exc THEN
676: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_GAP');
673: x_retcode := 2;
674:
675: WHEN l_period_gap_exc THEN
676: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_GAP');
677: FND_MSG_PUB.Add;
678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
679: THEN
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
681: , 'Calculate_Adjustment'
674:
675: WHEN l_period_gap_exc THEN
676: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_GAP');
677: FND_MSG_PUB.Add;
678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
679: THEN
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
681: , 'Calculate_Adjustment'
682: );
676: FND_MESSAGE.Set_Name('BOM', 'CST_MGD_INFL_PERIOD_GAP');
677: FND_MSG_PUB.Add;
678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
679: THEN
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
681: , 'Calculate_Adjustment'
682: );
683: END IF;
684: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
680: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
681: , 'Calculate_Adjustment'
682: );
683: END IF;
684: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
685: x_retcode := 2;
686: WHEN g_price_index_exc THEN
687: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
688: x_retcode := 2;
683: END IF;
684: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
685: x_retcode := 2;
686: WHEN g_price_index_exc THEN
687: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
688: x_retcode := 2;
689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
690: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
691: x_retcode := 2;
686: WHEN g_price_index_exc THEN
687: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
688: x_retcode := 2;
689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
690: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
691: x_retcode := 2;
692: WHEN OTHERS THEN
693: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
694: THEN
689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
690: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
691: x_retcode := 2;
692: WHEN OTHERS THEN
693: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
694: THEN
695: FND_MSG_PUB.Add_Exc_Msg
696: ( G_PKG_NAME
697: , 'Calculate_Adjustment'
691: x_retcode := 2;
692: WHEN OTHERS THEN
693: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
694: THEN
695: FND_MSG_PUB.Add_Exc_Msg
696: ( G_PKG_NAME
697: , 'Calculate_Adjustment'
698: );
699: END IF;
696: ( G_PKG_NAME
697: , 'Calculate_Adjustment'
698: );
699: END IF;
700: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
701: x_retcode := 2;
702:
703: END Calculate_Adjustment;
704:
728:
729: EXCEPTION
730:
731: WHEN OTHERS THEN
732: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
733: THEN
734: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
735: , 'Get_User_Category_Name'
736: );
730:
731: WHEN OTHERS THEN
732: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
733: THEN
734: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
735: , 'Get_User_Category_Name'
736: );
737: END IF;
738: RAISE;
765:
766: EXCEPTION
767:
768: WHEN OTHERS THEN
769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
770: THEN
771: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
772: , 'Get_User_Source_Name'
773: );
767:
768: WHEN OTHERS THEN
769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
770: THEN
771: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
772: , 'Get_User_Source_Name'
773: );
774: END IF;
775: RAISE;
844: );
845: END IF;
846:
847: -- initialize the message stack
848: FND_MSG_PUB.Initialize;
849:
850: -- Check whether transfer to GL already run
851: Check_Period_Status
852: ( p_country_code => p_country_code
975: END IF;
976:
977: EXCEPTION
978: WHEN no_infl_processor_run_exc THEN
979: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
980: x_retcode := 2;
981:
982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
983: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
979: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
980: x_retcode := 2;
981:
982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
983: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
984: x_retcode := 2;
985: WHEN OTHERS THEN
986: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
987: THEN
982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
983: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
984: x_retcode := 2;
985: WHEN OTHERS THEN
986: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
987: THEN
988: FND_MSG_PUB.Add_Exc_Msg
989: ( G_PKG_NAME
990: , 'Transfer_to_GL'
984: x_retcode := 2;
985: WHEN OTHERS THEN
986: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
987: THEN
988: FND_MSG_PUB.Add_Exc_Msg
989: ( G_PKG_NAME
990: , 'Transfer_to_GL'
991: );
992: END IF;
989: ( G_PKG_NAME
990: , 'Transfer_to_GL'
991: );
992: END IF;
993: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
994: x_retcode := 2;
995:
996: END Transfer_to_GL;
997: