169: l_prg_msg VARCHAR2(2000);
170: l_callstack VARCHAR2(2000);
171: BEGIN
172:
173: FEM_ENGINES_PKG.Tech_Message (
174: p_severity => G_LOG_LEVEL_3
175: ,p_module => G_BLOCK||'.'||l_api_name
176: ,p_msg_text => 'BEGIN, p_obj_def_id:' || p_obj_def_id
177: );
180: DeleteHelperRecs(
181: p_obj_def_id => p_obj_def_id
182: );
183:
184: FEM_ENGINES_PKG.Tech_Message (
185: p_severity => G_LOG_LEVEL_3
186: ,p_module => G_BLOCK||'.'||l_api_name
187: ,p_msg_text => 'After DeleteHelperRecs'
188: );
190: DeleteDimensionRecs(
191: p_obj_def_id => p_obj_def_id
192: );
193:
194: FEM_ENGINES_PKG.Tech_Message (
195: p_severity => G_LOG_LEVEL_3
196: ,p_module => G_BLOCK||'.'||l_api_name
197: ,p_msg_text => 'After DeleteDimensionRecs' );
198:
198:
199: DeleteFormulaRecs(
200: p_obj_def_id => p_obj_def_id
201: );
202: FEM_ENGINES_PKG.Tech_Message (
203: p_severity => G_LOG_LEVEL_3
204: ,p_module => G_BLOCK||'.'||l_api_name
205: ,p_msg_text => 'After DeleteFormulaRecs' );
206:
207: DeleteMappingRuleRec(
208: p_obj_def_id => p_obj_def_id
209: );
210:
211: FEM_ENGINES_PKG.Tech_Message (
212: p_severity => G_LOG_LEVEL_3
213: ,p_module => G_BLOCK||'.'||l_api_name
214: ,p_msg_text => 'After DeleteMappingRuleRec' );
215:
217:
218: when others then
219: l_callstack := DBMS_UTILITY.Format_Call_Stack;
220: l_prg_msg := SQLERRM;
221: FEM_ENGINES_PKG.Tech_Message (
222: p_severity => G_LOG_LEVEL_6
223: ,p_module => G_BLOCK||'.'||l_api_name
224: ,p_msg_text => 'others mapping, l_callstack:' || l_callstack
225: );
222: p_severity => G_LOG_LEVEL_6
223: ,p_module => G_BLOCK||'.'||l_api_name
224: ,p_msg_text => 'others mapping, l_callstack:' || l_callstack
225: );
226: FEM_ENGINES_PKG.Tech_Message (
227: p_severity => G_LOG_LEVEL_6
228: ,p_module => G_BLOCK||'.'||l_api_name
229: ,p_msg_text => 'others mapping, l_prg_msg:' || l_prg_msg
230: );
372: BEGIN
373: OPEN c_cond_def_id (p_obj_id);
374: FETCH c_cond_def_id INTO l_cond_def_id;
375: IF c_cond_def_id%NOTFOUND THEN
376: FEM_ENGINES_PKG.User_Message (
377: p_app_name => G_APPS_SHORT_NAME
378: ,p_msg_name => 'FEM_OBJDEFNOTFOUND_ERR'
379: );
380: CLOSE c_cond_def_id;
604: l_api_name constant varchar2(30) := 'DeleteFormulaRecs';
605:
606: BEGIN
607:
608: FEM_ENGINES_PKG.Tech_Message (
609: p_severity => G_LOG_LEVEL_3
610: ,p_module => G_BLOCK||'.'||l_api_name
611: ,p_msg_text => 'BEGIN, p_obj_def_id: ' || p_obj_def_id
612: );
614: open c_local_cond_id (p_obj_def_id);
615: loop
616: fetch c_local_cond_id into l_local_cond_id;
617: exit when c_local_cond_id%notfound;
618: FEM_ENGINES_PKG.Tech_Message (
619: p_severity => G_LOG_LEVEL_3
620: ,p_module => G_BLOCK||'.'||l_api_name
621: ,p_msg_text => 'Before calling FEM_BUSINESS_RULE_PVT.DeleteObject, l_local_cond_id: '
622: || l_local_cond_id
631: ,p_object_type_code => 'CONDITION_MAPPING'
632: ,p_obj_id => l_local_cond_id
633: );
634:
635: FEM_ENGINES_PKG.Tech_Message (
636: p_severity => G_LOG_LEVEL_3
637: ,p_module => G_BLOCK||'.'||l_api_name
638: ,p_msg_text => 'After calling FEM_BUSINESS_RULE_PVT.DeleteObject, l_local_cond_id: '
639: || l_local_cond_id
639: || l_local_cond_id
640: );
641:
642: if (l_return_status = FND_API.G_RET_STS_ERROR) then
643: FEM_ENGINES_PKG.Tech_Message (
644: p_severity => G_LOG_LEVEL_3
645: ,p_module => G_BLOCK||'.'||l_api_name
646: ,p_msg_text => 'After calling FEM_BUSINESS_RULE_PVT.DeleteObject, l_return_status = FND_API.G_RET_STS_ERROR '
647: );
648:
649: close c_local_cond_id;
650: raise FND_API.G_EXC_ERROR;
651: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
652: FEM_ENGINES_PKG.Tech_Message (
653: p_severity => G_LOG_LEVEL_3
654: ,p_module => G_BLOCK||'.'||l_api_name
655: ,p_msg_text => 'After calling FEM_BUSINESS_RULE_PVT.DeleteObject, l_return_status = FND_API.G_RET_STS_UNEXP_ERROR '
656: );
660: end loop;
661:
662: close c_local_cond_id;
663:
664: FEM_ENGINES_PKG.Tech_Message (
665: p_severity => G_LOG_LEVEL_3
666: ,p_module => G_BLOCK||'.'||l_api_name
667: ,p_msg_text => 'END1 '
668: );
669:
670: delete from fem_alloc_br_formula
671: where object_definition_id = p_obj_def_id;
672:
673: FEM_ENGINES_PKG.Tech_Message (
674: p_severity => G_LOG_LEVEL_3
675: ,p_module => G_BLOCK||'.'||l_api_name
676: ,p_msg_text => 'END '
677: );
982:
983: l_current_obj_def_id := p_target_obj_def_id;
984:
985: if (l_current_obj_def_id is null) then
986: FEM_ENGINES_PKG.User_Message (
987: p_app_name => G_APPS_SHORT_NAME
988: ,p_msg_name => 'FEM_BR_RVRT_OLD_APPR_CPY_ERR'
989: );
990: raise FND_API.G_EXC_ERROR;