35: and fileproduct = file_product
36: and fileversion = file_version;
37: exception
38: when others then
39: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
40: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Error: History table does not have this entry.');
41: end if;
42: end;
43:
36: and fileversion = file_version;
37: exception
38: when others then
39: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
40: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Error: History table does not have this entry.');
41: end if;
42: end;
43:
44:
67:
68: Delete from FND_IREP_USES_MAPS
69: where CLASS_ID = key_id;
70:
71: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
72: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Class Sub-Entities Removed');
73: end if;
74:
75: -- remove method subentities
68: Delete from FND_IREP_USES_MAPS
69: where CLASS_ID = key_id;
70:
71: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
72: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Class Sub-Entities Removed');
73: end if;
74:
75: -- remove method subentities
76: Delete from FND_LOOKUP_ASSIGNMENTS
92: (select function_id
93: from FND_FORM_FUNCTIONS
94: where irep_class_id = key_id);
95:
96: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
97: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Function Sub-Entities Removed');
98: end if;
99:
100:
93: from FND_FORM_FUNCTIONS
94: where irep_class_id = key_id);
95:
96: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
97: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Function Sub-Entities Removed');
98: end if;
99:
100:
101: -- ### remove derived entries ###
105: into assoc_key_id
106: from FND_IREP_ALL_INTERFACES
107: where assoc_class_id = key_id;
108:
109: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Entry : '|| assoc_key_id);
111: end if;
112:
113: -- remove flavors
106: from FND_IREP_ALL_INTERFACES
107: where assoc_class_id = key_id;
108:
109: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Entry : '|| assoc_key_id);
111: end if;
112:
113: -- remove flavors
114: Delete from FND_IREP_FUNCTION_FLAVORS
116: (select function_id
117: from FND_FORM_FUNCTIONS
118: where irep_class_id = assoc_key_id);
119:
120: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
121: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Function Flavors Removed');
122: end if;
123:
124: --remove functions
117: from FND_FORM_FUNCTIONS
118: where irep_class_id = assoc_key_id);
119:
120: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
121: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Function Flavors Removed');
122: end if;
123:
124: --remove functions
125: Delete from FND_FORM_FUNCTIONS_TL
130:
131: Delete from FND_FORM_FUNCTIONS
132: where irep_class_id = assoc_key_id;
133:
134: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
135: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Functions Removed');
136: end if;
137:
138: -- remove classes
131: Delete from FND_FORM_FUNCTIONS
132: where irep_class_id = assoc_key_id;
133:
134: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
135: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Functions Removed');
136: end if;
137:
138: -- remove classes
139: Delete from FND_IREP_CLASSES_TL
141:
142: Delete from FND_IREP_CLASSES
143: where class_id = assoc_key_id;
144:
145: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Classes Removed');
147: end if;
148:
149: exception
142: Delete from FND_IREP_CLASSES
143: where class_id = assoc_key_id;
144:
145: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Classes Removed');
147: end if;
148:
149: exception
150: when others then
147: end if;
148:
149: exception
150: when others then
151: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Entries Not Present.');
153: end if;
154: end;
155:
148:
149: exception
150: when others then
151: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Derived Entries Not Present.');
153: end if;
154: end;
155:
156:
162: (select function_id
163: from FND_FORM_FUNCTIONS
164: where irep_class_id = key_id);
165:
166: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
167: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Function Flavors Removed');
168: end if;
169:
170: --remove functions
163: from FND_FORM_FUNCTIONS
164: where irep_class_id = key_id);
165:
166: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
167: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Function Flavors Removed');
168: end if;
169:
170: --remove functions
171: Delete from FND_FORM_FUNCTIONS_TL
176:
177: Delete from FND_FORM_FUNCTIONS
178: where irep_class_id = key_id;
179:
180: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Functions Removed');
182: end if;
183:
184: -- remove classes
177: Delete from FND_FORM_FUNCTIONS
178: where irep_class_id = key_id;
179:
180: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Functions Removed');
182: end if;
183:
184: -- remove classes
185: Delete from FND_IREP_CLASSES_TL
187:
188: Delete from FND_IREP_CLASSES
189: where class_id = key_id;
190:
191: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
192: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep','Classes Removed. ' || 'Deletion completed for all entries corresponding to Class Id : '|| key_id );
193: end if;
194:
195:
188: Delete from FND_IREP_CLASSES
189: where class_id = key_id;
190:
191: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
192: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep','Classes Removed. ' || 'Deletion completed for all entries corresponding to Class Id : '|| key_id );
193: end if;
194:
195:
196: else
208:
209: Delete from FND_OBJECT_TYPE_MEMBERS
210: where object_id = key_id;
211:
212: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Object Sub-Entities Removed');
214: end if;
215:
216:
209: Delete from FND_OBJECT_TYPE_MEMBERS
210: where object_id = key_id;
211:
212: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Object Sub-Entities Removed');
214: end if;
215:
216:
217: -- remove objects
220:
221: Delete from FND_OBJECTS
222: where object_id = key_id;
223:
224: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Objects Removed . '|| 'Deletion completed for all entries corresponding to object Id : '|| key_id);
226: end if;
227:
228:
221: Delete from FND_OBJECTS
222: where object_id = key_id;
223:
224: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', 'Objects Removed . '|| 'Deletion completed for all entries corresponding to object Id : '|| key_id);
226: end if;
227:
228:
229: end if;
231: exception
232:
233: when others then
234:
235: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
236: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', SQLERRM);
237: end if;
238:
239: -- end;
232:
233: when others then
234:
235: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
236: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'DeleteFromIrep', SQLERRM);
237: end if;
238:
239: -- end;
240: end delete_irep_entry ;