DBA Data[Home] [Help]

APPS.FND_APPLICATION_PKG dependencies on FND_APPLICATION

Line 1: package body FND_APPLICATION_PKG as

1: package body FND_APPLICATION_PKG as
2: /* $Header: AFSCAPPB.pls 120.3 2005/10/05 13:24:10 pdeluna ship $ */
3:
4: /* INSERT_ROW */
5: procedure INSERT_ROW (

Line 19: cursor C is select ROWID from FND_APPLICATION

15: X_LAST_UPDATED_BY in NUMBER,
16: X_LAST_UPDATE_LOGIN in NUMBER,
17: X_PRODUCT_CODE in VARCHAR2
18: ) is
19: cursor C is select ROWID from FND_APPLICATION
20: where APPLICATION_ID = X_APPLICATION_ID;
21:
22: begin
23:

Line 24: insert into FND_APPLICATION (

20: where APPLICATION_ID = X_APPLICATION_ID;
21:
22: begin
23:
24: insert into FND_APPLICATION (
25: APPLICATION_ID,
26: APPLICATION_SHORT_NAME,
27: BASEPATH,
28: CREATION_DATE,

Line 46: insert into FND_APPLICATION_TL (

42: X_LAST_UPDATE_LOGIN,
43: nvl(X_PRODUCT_CODE,X_APPLICATION_SHORT_NAME)
44: );
45:
46: insert into FND_APPLICATION_TL (
47: APPLICATION_ID,
48: APPLICATION_NAME,
49: DESCRIPTION,
50: CREATED_BY,

Line 77: from FND_APPLICATION_TL T

73: from FND_LANGUAGES L
74: where L.INSTALLED_FLAG in ('I', 'B')
75: and not exists
76: (select NULL
77: from FND_APPLICATION_TL T
78: where T.APPLICATION_ID = X_APPLICATION_ID
79: and T.LANGUAGE = L.LANGUAGE_CODE);
80:
81: open c;

Line 102: from FND_APPLICATION

98: ) is
99: cursor c is select
100: APPLICATION_SHORT_NAME,
101: BASEPATH
102: from FND_APPLICATION
103: where APPLICATION_ID = X_APPLICATION_ID
104: for update of APPLICATION_ID nowait;
105: recinfo c%rowtype;
106:

Line 110: from FND_APPLICATION_TL

106:
107: cursor c1 is select
108: APPLICATION_NAME,
109: DESCRIPTION
110: from FND_APPLICATION_TL
111: where APPLICATION_ID = X_APPLICATION_ID
112: and LANGUAGE = userenv('LANG')
113: for update of APPLICATION_ID nowait;
114: tlinfo c1%rowtype;

Line 178: update FND_APPLICATION set

174: have a value which is normally equivalent to APPLICATION_SHORT_NAME.
175: See bug 2417010.
176: */
177: if X_PRODUCT_CODE is null then
178: update FND_APPLICATION set
179: APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME,
180: BASEPATH = X_BASEPATH,
181: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
182: LAST_UPDATED_BY = X_LAST_UPDATED_BY,

Line 209: update FND_APPLICATION set

205: else
206: L_PRODUCT_CODE := X_PRODUCT_CODE;
207: end if;
208:
209: update FND_APPLICATION set
210: APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME,
211: BASEPATH = X_BASEPATH,
212: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
213: LAST_UPDATED_BY = X_LAST_UPDATED_BY,

Line 223: update FND_APPLICATION_TL set

219: if (sql%notfound) then
220: raise no_data_found;
221: end if;
222:
223: update FND_APPLICATION_TL set
224: APPLICATION_NAME = X_APPLICATION_NAME,
225: DESCRIPTION = decode(X_DESCRIPTION,
226: fnd_load_util.null_value,
227: null,

Line 257: fnd_application_pkg.load_row(

253: X_DESCRIPTION in VARCHAR2,
254: X_PRODUCT_CODE in VARCHAR2
255: ) is
256: begin
257: fnd_application_pkg.load_row(
258: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
259: X_OWNER => X_OWNER,
260: X_BASEPATH => X_BASEPATH,
261: X_APPLICATION_NAME => X_APPLICATION_NAME,

Line 284: from fnd_application

280: ) is
281: app_id number;
282: begin
283: select application_id into app_id
284: from fnd_application
285: where application_short_name = X_APPLICATION_SHORT_NAME;
286:
287: fnd_application_pkg.load_row(
288: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,

Line 287: fnd_application_pkg.load_row(

283: select application_id into app_id
284: from fnd_application
285: where application_short_name = X_APPLICATION_SHORT_NAME;
286:
287: fnd_application_pkg.load_row(
288: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
289: X_APPLICATION_ID => app_id,
290: X_OWNER => X_OWNER,
291: X_BASEPATH => X_BASEPATH,

Line 301: select fnd_application_s.nextval into app_id from dual;

297: );
298: exception
299: when NO_DATA_FOUND then
300:
301: select fnd_application_s.nextval into app_id from dual;
302:
303: fnd_application_pkg.load_row(
304: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
305: X_APPLICATION_ID => app_id,

Line 303: fnd_application_pkg.load_row(

299: when NO_DATA_FOUND then
300:
301: select fnd_application_s.nextval into app_id from dual;
302:
303: fnd_application_pkg.load_row(
304: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
305: X_APPLICATION_ID => app_id,
306: X_OWNER => X_OWNER,
307: X_BASEPATH => X_BASEPATH,

Line 350: FROM FND_APPLICATION

346: -- there is a row for this app_id and this app_short_name
347: -- Exception is thrown otherwise.
348: select LAST_UPDATED_BY, LAST_UPDATE_DATE
349: into db_luby, db_ludate
350: FROM FND_APPLICATION
351: where application_short_name = X_APPLICATION_SHORT_NAME
352: and application_id = X_APPLICATION_ID;
353:
354: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,

Line 356: fnd_application_pkg.UPDATE_ROW (

352: and application_id = X_APPLICATION_ID;
353:
354: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
355: db_ludate, X_CUSTOM_MODE)) then
356: fnd_application_pkg.UPDATE_ROW (
357: X_APPLICATION_ID => X_APPLICATION_ID,
358: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
359: X_BASEPATH => X_BASEPATH,
360: X_APPLICATION_NAME => X_APPLICATION_NAME,

Line 379: from fnd_application

375: -- but with a different apps_id, or
376: -- a record exist for this app_id with a different
377: -- apps_short_name. Exception is thrown otherwise.
378: select count(*) into l_count
379: from fnd_application
380: where application_short_name = X_APPLICATION_SHORT_NAME
381: or application_id = X_APPLICATION_ID;
382:
383: if (l_count > 0) then

Line 391: --select fnd_application_s.nextval into app_id from dual;

387: fnd_message.set_token('ID', X_APPLICATION_ID);
388: app_exception.raise_exception;
389: end if;
390:
391: --select fnd_application_s.nextval into app_id from dual;
392: fnd_application_pkg.INSERT_ROW(
393: X_ROWID => row_id,
394: X_APPLICATION_ID => X_APPLICATION_ID,
395: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,

Line 392: fnd_application_pkg.INSERT_ROW(

388: app_exception.raise_exception;
389: end if;
390:
391: --select fnd_application_s.nextval into app_id from dual;
392: fnd_application_pkg.INSERT_ROW(
393: X_ROWID => row_id,
394: X_APPLICATION_ID => X_APPLICATION_ID,
395: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
396: X_BASEPATH => X_BASEPATH,

Line 416: fnd_application_pkg.translate_row(

412: X_APPLICATION_NAME in VARCHAR2,
413: X_DESCRIPTION in VARCHAR2
414: ) is
415: begin
416: fnd_application_pkg.translate_row(
417: X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
418: X_OWNER => X_OWNER,
419: X_APPLICATION_NAME => X_APPLICATION_NAME,
420: X_DESCRIPTION => X_DESCRIPTION,

Line 450: from fnd_application_tl

446:
447: begin
448: select LAST_UPDATED_BY, LAST_UPDATE_DATE
449: into db_luby, db_ludate
450: from fnd_application_tl
451: where application_id =
452: (select application_id
453: from fnd_application
454: where application_short_name = X_APPLICATION_SHORT_NAME)

Line 453: from fnd_application

449: into db_luby, db_ludate
450: from fnd_application_tl
451: where application_id =
452: (select application_id
453: from fnd_application
454: where application_short_name = X_APPLICATION_SHORT_NAME)
455: and LANGUAGE = userenv('LANG');
456:
457: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,

Line 459: update fnd_application_tl set

455: and LANGUAGE = userenv('LANG');
456:
457: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
458: db_ludate, X_CUSTOM_MODE)) then
459: update fnd_application_tl set
460: application_name = nvl(X_APPLICATION_NAME, application_name),
461: description = decode(X_DESCRIPTION,
462: fnd_load_util.null_value,
463: null,

Line 477: from fnd_application

473: last_updated_by = f_luby,
474: last_update_login = 0
475: where application_id =
476: (select application_id
477: from fnd_application
478: where application_short_name = X_APPLICATION_SHORT_NAME)
479: and userenv('LANG') in (language, source_lang);
480: end if;
481: exception

Line 492: delete from FND_APPLICATION

488: procedure DELETE_ROW (
489: X_APPLICATION_ID in NUMBER
490: ) is
491: begin
492: delete from FND_APPLICATION
493: where APPLICATION_ID = X_APPLICATION_ID;
494:
495: if (sql%notfound) then
496: raise no_data_found;

Line 499: delete from FND_APPLICATION_TL

495: if (sql%notfound) then
496: raise no_data_found;
497: end if;
498:
499: delete from FND_APPLICATION_TL
500: where APPLICATION_ID = X_APPLICATION_ID;
501:
502: if (sql%notfound) then
503: raise no_data_found;

Line 517: delete from FND_APPLICATION_TL T

513: /* The following delete and update statements are commented out */
514: /* as a quick workaround to fix the time-consuming table handler issue */
515: /* Eventually we'll need to turn them into a separate fix_language procedure */
516: /*
517: delete from FND_APPLICATION_TL T
518: where not exists
519: (select NULL
520: from FND_APPLICATION B
521: where B.APPLICATION_ID = T.APPLICATION_ID

Line 520: from FND_APPLICATION B

516: /*
517: delete from FND_APPLICATION_TL T
518: where not exists
519: (select NULL
520: from FND_APPLICATION B
521: where B.APPLICATION_ID = T.APPLICATION_ID
522: );
523:
524: update FND_APPLICATION_TL T set (

Line 524: update FND_APPLICATION_TL T set (

520: from FND_APPLICATION B
521: where B.APPLICATION_ID = T.APPLICATION_ID
522: );
523:
524: update FND_APPLICATION_TL T set (
525: APPLICATION_NAME,
526: DESCRIPTION
527: ) = (select
528: B.APPLICATION_NAME,

Line 530: from FND_APPLICATION_TL B

526: DESCRIPTION
527: ) = (select
528: B.APPLICATION_NAME,
529: B.DESCRIPTION
530: from FND_APPLICATION_TL B
531: where B.APPLICATION_ID = T.APPLICATION_ID
532: and B.LANGUAGE = T.SOURCE_LANG)
533: where (
534: T.APPLICATION_ID,

Line 539: from FND_APPLICATION_TL SUBB, FND_APPLICATION_TL SUBT

535: T.LANGUAGE
536: ) in (select
537: SUBT.APPLICATION_ID,
538: SUBT.LANGUAGE
539: from FND_APPLICATION_TL SUBB, FND_APPLICATION_TL SUBT
540: where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
541: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
542: and (SUBB.APPLICATION_NAME <> SUBT.APPLICATION_NAME
543: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 550: from FND_APPLICATION_TL DUP

546: ))
547: -- ***** BEGIN NEW CLAUSE FOR UPDATE *****
548: and not exists
549: (select null
550: from FND_APPLICATION_TL DUP
551: where DUP.LANGUAGE = T.LANGUAGE
552: and (DUP.APPLICATION_NAME) =
553: (select
554: B.APPLICATION_NAME

Line 555: from FND_APPLICATION_TL B

551: where DUP.LANGUAGE = T.LANGUAGE
552: and (DUP.APPLICATION_NAME) =
553: (select
554: B.APPLICATION_NAME
555: from FND_APPLICATION_TL B
556: where B.APPLICATION_ID = T.APPLICATION_ID
557: and B.LANGUAGE = T.SOURCE_LANG));
558: -- ***** END NEW CLAUSE FOR UPDATE *****
559:

Line 562: update FND_APPLICATION_TL set

558: -- ***** END NEW CLAUSE FOR UPDATE *****
559:
560: -- ***** NEW CODE FOR INSERT HERE *****
561: loop
562: update FND_APPLICATION_TL set
563: APPLICATION_NAME = '@'||APPLICATION_NAME
564: where (APPLICATION_NAME, LANGUAGE) in
565: (select
566: B.APPLICATION_NAME,

Line 568: from FND_APPLICATION_TL B, FND_LANGUAGES L

564: where (APPLICATION_NAME, LANGUAGE) in
565: (select
566: B.APPLICATION_NAME,
567: L.LANGUAGE_CODE
568: from FND_APPLICATION_TL B, FND_LANGUAGES L
569: where L.INSTALLED_FLAG in ('I', 'B')
570: and B.LANGUAGE = userenv('LANG')
571: and not exists
572: (select NULL

Line 573: from FND_APPLICATION_TL T

569: where L.INSTALLED_FLAG in ('I', 'B')
570: and B.LANGUAGE = userenv('LANG')
571: and not exists
572: (select NULL
573: from FND_APPLICATION_TL T
574: where T.APPLICATION_ID = B.APPLICATION_ID
575: and T.LANGUAGE = L.LANGUAGE_CODE));
576:
577: exit when SQL%ROWCOUNT = 0;

Line 582: insert into FND_APPLICATION_TL (

578: end loop;
579: -- ***** END CODE FOR INSERT HERE *****
580:
581: */
582: insert into FND_APPLICATION_TL (
583: APPLICATION_ID,
584: APPLICATION_NAME,
585: DESCRIPTION,
586: CREATED_BY,

Line 604: from FND_APPLICATION_TL B, FND_LANGUAGES L

600: B.LAST_UPDATE_DATE,
601: B.LAST_UPDATE_LOGIN,
602: L.LANGUAGE_CODE,
603: B.SOURCE_LANG
604: from FND_APPLICATION_TL B, FND_LANGUAGES L
605: where L.INSTALLED_FLAG in ('I', 'B')
606: and B.LANGUAGE = userenv('LANG')
607: and not exists
608: (select NULL

Line 609: from FND_APPLICATION_TL T

605: where L.INSTALLED_FLAG in ('I', 'B')
606: and B.LANGUAGE = userenv('LANG')
607: and not exists
608: (select NULL
609: from FND_APPLICATION_TL T
610: where T.APPLICATION_ID = B.APPLICATION_ID
611: and T.LANGUAGE = L.LANGUAGE_CODE);
612: end ADD_LANGUAGE;
613:

Line 614: end FND_APPLICATION_PKG;

610: where T.APPLICATION_ID = B.APPLICATION_ID
611: and T.LANGUAGE = L.LANGUAGE_CODE);
612: end ADD_LANGUAGE;
613:
614: end FND_APPLICATION_PKG;