DBA Data[Home] [Help]

APPS.FND_FORM_PKG dependencies on FND_FORM

Line 1: package body FND_FORM_PKG as

1: package body FND_FORM_PKG as
2: /* $Header: AFFMFBFB.pls 120.2 2005/10/26 10:21:06 rsheh ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out nocopy VARCHAR2,

Line 18: cursor C is select ROWID from FND_FORM

14: X_LAST_UPDATE_DATE in DATE,
15: X_LAST_UPDATED_BY in NUMBER,
16: X_LAST_UPDATE_LOGIN in NUMBER
17: ) is
18: cursor C is select ROWID from FND_FORM
19: where APPLICATION_ID = X_APPLICATION_ID
20: and FORM_ID = X_FORM_ID
21: ;
22: begin

Line 23: insert into FND_FORM (

19: where APPLICATION_ID = X_APPLICATION_ID
20: and FORM_ID = X_FORM_ID
21: ;
22: begin
23: insert into FND_FORM (
24: APPLICATION_ID,
25: FORM_ID,
26: FORM_NAME,
27: AUDIT_ENABLED_FLAG,

Line 45: insert into FND_FORM_TL (

41: X_LAST_UPDATED_BY,
42: X_LAST_UPDATE_LOGIN
43: );
44:
45: insert into FND_FORM_TL (
46: APPLICATION_ID,
47: FORM_ID,
48: USER_FORM_NAME,
49: DESCRIPTION,

Line 73: from FND_FORM_TL T

69: from FND_LANGUAGES L
70: where L.INSTALLED_FLAG in ('I', 'B')
71: and not exists
72: (select NULL
73: from FND_FORM_TL T
74: where T.APPLICATION_ID = X_APPLICATION_ID
75: and T.FORM_ID = X_FORM_ID
76: and T.LANGUAGE = L.LANGUAGE_CODE);
77:

Line 99: from FND_FORM

95: ) is
96: cursor c is select
97: FORM_NAME,
98: AUDIT_ENABLED_FLAG
99: from FND_FORM
100: where APPLICATION_ID = X_APPLICATION_ID
101: and FORM_ID = X_FORM_ID
102: for update of APPLICATION_ID nowait;
103: recinfo c%rowtype;

Line 108: from FND_FORM_TL

104:
105: cursor c1 is select
106: USER_FORM_NAME,
107: DESCRIPTION
108: from FND_FORM_TL
109: where APPLICATION_ID = X_APPLICATION_ID
110: and FORM_ID = X_FORM_ID
111: and LANGUAGE = userenv('LANG')
112: for update of APPLICATION_ID nowait;

Line 165: update FND_FORM set

161: X_LAST_UPDATED_BY in NUMBER,
162: X_LAST_UPDATE_LOGIN in NUMBER
163: ) is
164: begin
165: update FND_FORM set
166: FORM_NAME = X_FORM_NAME,
167: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
168: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
169: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN

Line 177: update FND_FORM_TL set

173: if (sql%notfound) then
174: raise no_data_found;
175: end if;
176:
177: update FND_FORM_TL set
178: USER_FORM_NAME = X_USER_FORM_NAME,
179: DESCRIPTION = X_DESCRIPTION,
180: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
181: LAST_UPDATED_BY = X_LAST_UPDATED_BY,

Line 204: fnd_form_pkg.LOAD_ROW (

200: X_OWNER in VARCHAR2,
201: X_CUSTOM_MODE in VARCHAR2
202: ) is
203: begin
204: fnd_form_pkg.LOAD_ROW (
205: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
206: X_FORM_NAME => X_FORM_NAME,
207: X_AUDIT_ENABLED_FLAG => X_AUDIT_ENABLED_FLAG,
208: X_USER_FORM_NAME => X_USER_FORM_NAME,

Line 254: from fnd_form

250: end if;
251:
252: select form_id, last_updated_by, last_update_date
253: into frm_id, db_luby, db_ludate
254: from fnd_form
255: where form_name = X_FORM_NAME
256: and application_id = app_id;
257:
258: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,

Line 260: fnd_form_pkg.UPDATE_ROW (

256: and application_id = app_id;
257:
258: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
259: db_ludate, X_CUSTOM_MODE)) then
260: fnd_form_pkg.UPDATE_ROW (
261: X_APPLICATION_ID => app_id,
262: X_FORM_ID => frm_id,
263: X_FORM_NAME => X_FORM_NAME,
264: X_AUDIT_ENABLED_FLAG => X_AUDIT_ENABLED_FLAG,

Line 275: select fnd_form_s.nextval into frm_id from dual;

271:
272: exception
273: when NO_DATA_FOUND then
274:
275: select fnd_form_s.nextval into frm_id from dual;
276:
277: fnd_form_pkg.INSERT_ROW(
278: X_ROWID => row_id,
279: X_APPLICATION_ID => app_id,

Line 277: fnd_form_pkg.INSERT_ROW(

273: when NO_DATA_FOUND then
274:
275: select fnd_form_s.nextval into frm_id from dual;
276:
277: fnd_form_pkg.INSERT_ROW(
278: X_ROWID => row_id,
279: X_APPLICATION_ID => app_id,
280: X_FORM_ID => frm_id,
281: X_FORM_NAME => X_FORM_NAME,

Line 296: delete from FND_FORM

292: X_APPLICATION_ID in NUMBER,
293: X_FORM_ID in NUMBER
294: ) is
295: begin
296: delete from FND_FORM
297: where APPLICATION_ID = X_APPLICATION_ID
298: and FORM_ID = X_FORM_ID;
299:
300: if (sql%notfound) then

Line 304: delete from FND_FORM_TL

300: if (sql%notfound) then
301: raise no_data_found;
302: end if;
303:
304: delete from FND_FORM_TL
305: where APPLICATION_ID = X_APPLICATION_ID
306: and FORM_ID = X_FORM_ID;
307:
308: if (sql%notfound) then

Line 322: delete from FND_FORM_TL T

318: /* as a quick workaround to fix the time-consuming table handler issue */
319: /* Eventually we'll need to turn them into a separate fix_language procedure */
320: /*
321:
322: delete from FND_FORM_TL T
323: where not exists
324: (select NULL
325: from FND_FORM B
326: where B.APPLICATION_ID = T.APPLICATION_ID

Line 325: from FND_FORM B

321:
322: delete from FND_FORM_TL T
323: where not exists
324: (select NULL
325: from FND_FORM B
326: where B.APPLICATION_ID = T.APPLICATION_ID
327: and B.FORM_ID = T.FORM_ID
328: );
329:

Line 330: update FND_FORM_TL T set (

326: where B.APPLICATION_ID = T.APPLICATION_ID
327: and B.FORM_ID = T.FORM_ID
328: );
329:
330: update FND_FORM_TL T set (
331: USER_FORM_NAME,
332: DESCRIPTION
333: ) = (select
334: B.USER_FORM_NAME,

Line 336: from FND_FORM_TL B

332: DESCRIPTION
333: ) = (select
334: B.USER_FORM_NAME,
335: B.DESCRIPTION
336: from FND_FORM_TL B
337: where B.APPLICATION_ID = T.APPLICATION_ID
338: and B.FORM_ID = T.FORM_ID
339: and B.LANGUAGE = T.SOURCE_LANG)
340: where (

Line 348: from FND_FORM_TL SUBB, FND_FORM_TL SUBT

344: ) in (select
345: SUBT.APPLICATION_ID,
346: SUBT.FORM_ID,
347: SUBT.LANGUAGE
348: from FND_FORM_TL SUBB, FND_FORM_TL SUBT
349: where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
350: and SUBB.FORM_ID = SUBT.FORM_ID
351: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
352: and (SUBB.USER_FORM_NAME <> SUBT.USER_FORM_NAME

Line 359: insert into FND_FORM_TL (

355: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
356: ));
357: */
358:
359: insert into FND_FORM_TL (
360: APPLICATION_ID,
361: FORM_ID,
362: USER_FORM_NAME,
363: DESCRIPTION,

Line 383: from FND_FORM_TL B, FND_LANGUAGES L

379: B.LAST_UPDATE_DATE,
380: B.LAST_UPDATE_LOGIN,
381: L.LANGUAGE_CODE,
382: B.SOURCE_LANG
383: from FND_FORM_TL B, FND_LANGUAGES L
384: where L.INSTALLED_FLAG in ('I', 'B')
385: and B.LANGUAGE = userenv('LANG')
386: and not exists
387: (select NULL

Line 388: from FND_FORM_TL T

384: where L.INSTALLED_FLAG in ('I', 'B')
385: and B.LANGUAGE = userenv('LANG')
386: and not exists
387: (select NULL
388: from FND_FORM_TL T
389: where T.APPLICATION_ID = B.APPLICATION_ID
390: and T.FORM_ID = B.FORM_ID
391: and T.LANGUAGE = L.LANGUAGE_CODE);
392: end ADD_LANGUAGE;

Line 404: fnd_form_pkg.TRANSLATE_ROW (

400: X_OWNER in VARCHAR2,
401: X_CUSTOM_MODE in VARCHAR2
402: ) is
403: begin
404: fnd_form_pkg.TRANSLATE_ROW (
405: X_APPLICATION_ID => X_APPLICATION_ID,
406: X_FORM_ID => X_FORM_ID,
407: X_USER_FORM_NAME => X_USER_FORM_NAME,
408: X_DESCRIPTION => X_DESCRIPTION,

Line 438: from FND_FORM_TL

434: f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
435:
436: select LAST_UPDATED_BY, LAST_UPDATE_DATE
437: into db_luby, db_ludate
438: from FND_FORM_TL
439: where APPLICATION_ID = X_APPLICATION_ID
440: and FORM_ID = X_FORM_ID
441: and userenv('LANG') = LANGUAGE;
442:

Line 445: update FND_FORM_TL set

441: and userenv('LANG') = LANGUAGE;
442:
443: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
444: db_ludate, X_CUSTOM_MODE)) then
445: update FND_FORM_TL set
446: USER_FORM_NAME = X_USER_FORM_NAME,
447: DESCRIPTION = X_DESCRIPTION,
448: LAST_UPDATE_DATE = f_ludate,
449: LAST_UPDATED_BY = f_luby,

Line 462: end FND_FORM_PKG;

458: raise no_data_found;
459: end if;
460:
461: end TRANSLATE_ROW;
462: end FND_FORM_PKG;