28:
29: begin
30: if (p_base_class_id is null ) then
31: p_err_code := -1;
32: wf_core.token('BaseClassId',p_base_class_id);
33: p_err_message := wf_core.translate('WF_WS_BASE_CLASS_NOT_EXIST');
34: raise program_exit;
35: end if;
36:
29: begin
30: if (p_base_class_id is null ) then
31: p_err_code := -1;
32: wf_core.token('BaseClassId',p_base_class_id);
33: p_err_message := wf_core.translate('WF_WS_BASE_CLASS_NOT_EXIST');
34: raise program_exit;
35: end if;
36:
37: select irep_name into c_irep_base_name from fnd_irep_classes where class_id = p_base_class_id;
46: close c_derived_class_entry1;
47:
48: if c_class_rec.l_count = 0 then
49: p_err_code := -1;
50: wf_core.token('BaseClassId',p_base_class_id);
51: p_err_message := wf_core.translate('WF_WS_DERIVED_CLASS_NOT_EXIST');
52: raise program_exit;
53: end if;
54:
47:
48: if c_class_rec.l_count = 0 then
49: p_err_code := -1;
50: wf_core.token('BaseClassId',p_base_class_id);
51: p_err_message := wf_core.translate('WF_WS_DERIVED_CLASS_NOT_EXIST');
52: raise program_exit;
53: end if;
54:
55:
69: when program_exit then
70: raise program_exit;
71: when others then
72: p_err_code := -1;
73: wf_core.token('BaseClassId',p_base_class_id);
74: wf_core.token('DerivedClassId',c_derived_class_entry_rec1.class_id);
75: wf_core.token('SqlErr',SQLERRM);
76: p_err_message := wf_core.translate('WF_WS_CLASS_FUNC_ITER');
77: raise program_exit;
70: raise program_exit;
71: when others then
72: p_err_code := -1;
73: wf_core.token('BaseClassId',p_base_class_id);
74: wf_core.token('DerivedClassId',c_derived_class_entry_rec1.class_id);
75: wf_core.token('SqlErr',SQLERRM);
76: p_err_message := wf_core.translate('WF_WS_CLASS_FUNC_ITER');
77: raise program_exit;
78: end;
71: when others then
72: p_err_code := -1;
73: wf_core.token('BaseClassId',p_base_class_id);
74: wf_core.token('DerivedClassId',c_derived_class_entry_rec1.class_id);
75: wf_core.token('SqlErr',SQLERRM);
76: p_err_message := wf_core.translate('WF_WS_CLASS_FUNC_ITER');
77: raise program_exit;
78: end;
79:
72: p_err_code := -1;
73: wf_core.token('BaseClassId',p_base_class_id);
74: wf_core.token('DerivedClassId',c_derived_class_entry_rec1.class_id);
75: wf_core.token('SqlErr',SQLERRM);
76: p_err_message := wf_core.translate('WF_WS_CLASS_FUNC_ITER');
77: raise program_exit;
78: end;
79:
80: d_count := d_count-1;
80: d_count := d_count-1;
81: END LOOP;
82: if(d_count = 0) then
83: p_err_code := 0;
84: wf_core.token('BaseClassId',p_base_class_id);
85: p_err_message := wf_core.translate('WF_WS_DELETE_SUCCESS');
86: end if;
87:
88: exception
81: END LOOP;
82: if(d_count = 0) then
83: p_err_code := 0;
84: wf_core.token('BaseClassId',p_base_class_id);
85: p_err_message := wf_core.translate('WF_WS_DELETE_SUCCESS');
86: end if;
87:
88: exception
89: when program_exit then
89: when program_exit then
90: null;
91: when others then
92: p_err_code := -1;
93: p_err_message := wf_core.translate('WF_WS_CLASS_REMOVE');
94:
95:
96: end remove_class_derived_entry;
97:
115: begin
116:
117: if (p_derived_class_id is null ) then
118: p_err_code := -1;
119: wf_core.token('DerivedClassId',p_derived_class_id);
120: p_err_message := wf_core.translate('WF_WS_DERIVED_CLASS_NOT_EXIST');
121: raise program_exit;
122: end if;
123:
116:
117: if (p_derived_class_id is null ) then
118: p_err_code := -1;
119: wf_core.token('DerivedClassId',p_derived_class_id);
120: p_err_message := wf_core.translate('WF_WS_DERIVED_CLASS_NOT_EXIST');
121: raise program_exit;
122: end if;
123:
124: open c_derived_function_entry1(p_derived_class_id);
131: if c_class_type = 'XMLGATEWAY' then
132: DBMS_OUTPUT.PUT_LINE('XMLGateway service exempted from fnd_form_functions check ');
133: else
134: p_err_code := -1;
135: p_err_message := wf_core.translate('WF_WS_DERIVED_FUNC_NOT_EXIST');
136: raise program_exit;
137: end if;
138: end if;
139: f_count := c_function_rec.l_count;
143:
144: if(c_derived_function_entry_rec.function_id is null) then
145:
146: p_err_code := -1;
147: p_err_message := wf_core.translate('WF_WS_BASE_FUNC_NOT_EXIST');
148: raise program_exit;
149: end if;
150: remove_function_lang_entries(c_derived_function_entry_rec.function_id ,p_derived_class_id ,p_err_code ,p_err_message );
151: --dbms_output.put_line('functionId to delete' || c_derived_function_entry_rec.function_id );
153: f_count := f_count -1;
154: END LOOP;
155: if(f_count = 0) then
156: p_err_code := 0;
157: p_err_message := wf_core.translate('WF_WS_DELETE_SUCCESS');
158: end if;
159:
160: exception
161: when program_exit then
161: when program_exit then
162: raise program_exit;
163: when others then
164: p_err_code := -1;
165: p_err_message := wf_core.translate('WF_WS_FUNCTION_REMOVE');
166:
167: end remove_derived_function_entry;
168:
169: --PROCEDURE
193: END LOOP;*/
194: remove_class_lang_entry(p_derived_class_id,p_err_code,p_err_message);
195: delete from fnd_form_functions_tl where function_id = p_derived_function_id;
196: p_err_code := 0;
197: p_err_message := wf_core.translate('WF_WS_DELETE_SUCCESS');
198:
199: exception
200: when program_exit then
201: raise program_exit;
200: when program_exit then
201: raise program_exit;
202: when others then
203: p_err_code := -1;
204: wf_core.token('DerivedFunctionId',p_derived_function_id);
205: wf_core.token('SqlErr',SQLERRM);
206: p_err_message := wf_core.translate('WF_WS_FUNC_LANG_REMOVE');
207:
208:
201: raise program_exit;
202: when others then
203: p_err_code := -1;
204: wf_core.token('DerivedFunctionId',p_derived_function_id);
205: wf_core.token('SqlErr',SQLERRM);
206: p_err_message := wf_core.translate('WF_WS_FUNC_LANG_REMOVE');
207:
208:
209:
202: when others then
203: p_err_code := -1;
204: wf_core.token('DerivedFunctionId',p_derived_function_id);
205: wf_core.token('SqlErr',SQLERRM);
206: p_err_message := wf_core.translate('WF_WS_FUNC_LANG_REMOVE');
207:
208:
209:
210: end remove_function_lang_entries;
234: dbms_output.put_line(c_derived_class_tl_rec.language);
235: END LOOP;*/
236: delete from fnd_irep_classes_tl where class_id = p_derived_class_id ;
237: p_err_code := 0;
238: p_err_message := wf_core.translate('WF_WS_DELETE_SUCCESS');
239: exception
240: when program_exit then
241: raise program_exit;
242: when others then
240: when program_exit then
241: raise program_exit;
242: when others then
243: p_err_code := -1;
244: wf_core.token('DerivedClassId',p_derived_class_id);
245: wf_core.token('SqlErr',SQLERRM);
246: p_err_message := wf_core.translate('WF_WS_CLASS_LANG_REMOVE');
247:
248:
241: raise program_exit;
242: when others then
243: p_err_code := -1;
244: wf_core.token('DerivedClassId',p_derived_class_id);
245: wf_core.token('SqlErr',SQLERRM);
246: p_err_message := wf_core.translate('WF_WS_CLASS_LANG_REMOVE');
247:
248:
249:
242: when others then
243: p_err_code := -1;
244: wf_core.token('DerivedClassId',p_derived_class_id);
245: wf_core.token('SqlErr',SQLERRM);
246: p_err_message := wf_core.translate('WF_WS_CLASS_LANG_REMOVE');
247:
248:
249:
250: end remove_class_lang_entry ;