[Home] [Help]
130: p_start_date := null;
131:
132: select a.application_id, c.release_class_id
133: into p_rel_class_app_id, p_rel_class_id
134: from fnd_conc_release_classes c, fnd_application a
135: where upper(release_class_name) = upper(p_class_name)
136: and c.application_id = a.application_id
137: and a.application_short_name = upper(p_application);
138:
182: p_start_date := null;
183:
184: select class_info, class_type, date1, date2
185: into curr_info, sch_type, req_date, p_repeat_end
186: from fnd_conc_release_classes
187: where application_id = p_rel_class_app_id
188: and release_class_id = p_rel_class_id;
189:
190: if sch_type <> 'P' then
271:
272: begin
273:
274: begin
275: Select Fnd_Conc_Release_Classes_S.nextval
276: Into relseqno
277: From Sys.Dual;
278:
279: exception
286: end;
287:
288: relclassname := 'RSRUN:0-' || TO_CHAR(relseqno);
289:
290: Insert Into fnd_conc_release_classes (application_id, release_class_id, release_class_name, owner_req_id, enabled_flag,
291: creation_date, created_by, last_update_date, last_updated_by, last_update_login, updated_flag, date1, date2, class_type,
292: class_info)
293: Values (0 , relseqno, relclassname, req_id, 'Y', Sysdate, FND_GLOBAL.conc_login_id, Sysdate,
294: FND_GLOBAL.conc_login_id, FND_GLOBAL.conc_login_id, 'N', start_date, end_date, 'S', class_info);
296: if (sql%rowcount = 0) then
297: raise relclass_insert_error;
298: end if;
299:
300: INSERT INTO Fnd_Conc_Release_Classes_TL (application_id, release_class_id, language, source_lang,
301: user_release_class_name,last_update_date, last_updated_by, last_update_login, creation_date, created_by)
302: Select 0, relseqno, L.LANGUAGE_CODE, userenv('LANG'), relclassname,
303: Sysdate, FND_GLOBAL.conc_login_id, FND_GLOBAL.conc_login_id, Sysdate, FND_GLOBAL.conc_login_id from FND_LANGUAGES L
304: where L.INSTALLED_FLAG in ('I', 'B');