APPS.FND_APPLICATION_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 4

/* INSERT_ROW */
procedure INSERT_ROW (
  X_ROWID                  in out nocopy VARCHAR2,
  X_APPLICATION_ID         in NUMBER,
  X_APPLICATION_SHORT_NAME in VARCHAR2,
  X_BASEPATH               in VARCHAR2,
  X_APPLICATION_NAME       in VARCHAR2,
  X_DESCRIPTION            in VARCHAR2,
  X_CREATION_DATE          in DATE,
  X_CREATED_BY             in NUMBER,
  X_LAST_UPDATE_DATE       in DATE,
  X_LAST_UPDATED_BY        in NUMBER,
  X_LAST_UPDATE_LOGIN      in NUMBER,
  X_PRODUCT_CODE           in VARCHAR2
) is
  cursor C is select ROWID from FND_APPLICATION
    where APPLICATION_ID = X_APPLICATION_ID;

Line: 24

  insert into FND_APPLICATION (
    APPLICATION_ID,
    APPLICATION_SHORT_NAME,
    BASEPATH,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    PRODUCT_CODE
  ) values (
    X_APPLICATION_ID,
    X_APPLICATION_SHORT_NAME,
    X_BASEPATH,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
    nvl(X_PRODUCT_CODE,X_APPLICATION_SHORT_NAME)
  );

Line: 46

  insert into FND_APPLICATION_TL (
    APPLICATION_ID,
    APPLICATION_NAME,
    DESCRIPTION,
    CREATED_BY,
    CREATION_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATE_LOGIN,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_APPLICATION_ID,
    X_APPLICATION_NAME,
    decode(X_DESCRIPTION,
           fnd_load_util.null_value,
           null,
           decode(instr(X_DESCRIPTION,fnd_load_util.null_value),                                              0,X_DESCRIPTION,
                  null)
          ),
    X_CREATED_BY,
    X_CREATION_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATE_LOGIN,
    L.LANGUAGE_CODE,
    userenv('LANG')
  from FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and not exists
    (select NULL
    from FND_APPLICATION_TL T
    where T.APPLICATION_ID = X_APPLICATION_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 89

end INSERT_ROW;

Line: 99

  cursor c is select
      APPLICATION_SHORT_NAME,
      BASEPATH
    from FND_APPLICATION
    where APPLICATION_ID = X_APPLICATION_ID
    for update of APPLICATION_ID nowait;

Line: 107

  cursor c1 is select
      APPLICATION_NAME,
      DESCRIPTION
    from FND_APPLICATION_TL
    where APPLICATION_ID = X_APPLICATION_ID
    and LANGUAGE = userenv('LANG')
    for update of APPLICATION_ID nowait;

Line: 121

    fnd_message.set_name('FND', 'FORM_RECORD_DELETED');

Line: 155

/* UPDATE_ROW */
procedure UPDATE_ROW(
  X_APPLICATION_ID         in NUMBER,
  X_APPLICATION_SHORT_NAME in VARCHAR2,
  X_BASEPATH               in VARCHAR2,
  X_APPLICATION_NAME       in VARCHAR2,
  X_DESCRIPTION            in VARCHAR2,
  X_LAST_UPDATE_DATE       in DATE,
  X_LAST_UPDATED_BY        in NUMBER,
  X_LAST_UPDATE_LOGIN      in NUMBER,
  X_PRODUCT_CODE           in VARCHAR2
) is

  L_PRODUCT_CODE varchar2(50);

Line: 178

		update FND_APPLICATION set
			APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME,
			BASEPATH = X_BASEPATH,
			LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
			LAST_UPDATED_BY = X_LAST_UPDATED_BY,
			LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
		where APPLICATION_ID = X_APPLICATION_ID;

Line: 209

		update FND_APPLICATION set
			APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME,
			BASEPATH = X_BASEPATH,
			LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
			LAST_UPDATED_BY = X_LAST_UPDATED_BY,
			LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
			PRODUCT_CODE = L_PRODUCT_CODE
		where APPLICATION_ID = X_APPLICATION_ID;

Line: 223

  update FND_APPLICATION_TL set
    APPLICATION_NAME = X_APPLICATION_NAME,
    DESCRIPTION = decode(X_DESCRIPTION,
                         fnd_load_util.null_value,
                         null,
                         null,
                         description,
                         decode(instr(X_DESCRIPTION,fnd_load_util.null_value),
                                 0,
                                 X_DESCRIPTION,
                                 null)
                               ),
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
    SOURCE_LANG = userenv('LANG')
  where APPLICATION_ID = X_APPLICATION_ID
  and userenv('LANG') in (LANGUAGE, SOURCE_LANG);

Line: 245

end UPDATE_ROW;

Line: 264

	X_LAST_UPDATE_DATE => '',
	X_PRODUCT_CODE => X_PRODUCT_CODE
	);

Line: 278

  X_LAST_UPDATE_DATE       in VARCHAR2,
  X_PRODUCT_CODE           in VARCHAR2
) is
  app_id  number;

Line: 283

  select application_id into app_id
  from   fnd_application
  where  application_short_name = X_APPLICATION_SHORT_NAME;

Line: 295

      X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
      X_PRODUCT_CODE => X_PRODUCT_CODE
  );

Line: 301

 select fnd_application_s.nextval into app_id from dual;

Line: 311

      X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
      X_PRODUCT_CODE => X_PRODUCT_CODE
  );

Line: 325

  X_LAST_UPDATE_DATE         in VARCHAR2,
  X_PRODUCT_CODE             in VARCHAR2
) is

  user_id   number := 0;

Line: 333

  f_ludate  date;    -- entity update date in file

Line: 335

  db_ludate date;    -- entity update date in db

Line: 343

    f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);

Line: 348

    select LAST_UPDATED_BY, LAST_UPDATE_DATE
      into db_luby, db_ludate
      FROM FND_APPLICATION
     where application_short_name = X_APPLICATION_SHORT_NAME
       and application_id = X_APPLICATION_ID;

Line: 356

       fnd_application_pkg.UPDATE_ROW (
       X_APPLICATION_ID         => X_APPLICATION_ID,
       X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
       X_BASEPATH               => X_BASEPATH,
       X_APPLICATION_NAME       => X_APPLICATION_NAME,
       X_DESCRIPTION            => X_DESCRIPTION,
       X_LAST_UPDATE_DATE       => f_ludate,
       X_LAST_UPDATED_BY        => f_luby,
       X_LAST_UPDATE_LOGIN      => 0,
       X_PRODUCT_CODE           => X_PRODUCT_CODE);

Line: 378

              select count(*)  into l_count
              from   fnd_application
              where  application_short_name = X_APPLICATION_SHORT_NAME
                or   application_id = X_APPLICATION_ID;

Line: 392

              fnd_application_pkg.INSERT_ROW(
                 X_ROWID                  => row_id,
                 X_APPLICATION_ID         => X_APPLICATION_ID,
                 X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
                 X_BASEPATH               => X_BASEPATH,
                 X_APPLICATION_NAME       => X_APPLICATION_NAME,
                 X_DESCRIPTION            => X_DESCRIPTION,
                 X_CREATION_DATE          => f_ludate,
                 X_CREATED_BY             => f_luby,
                 X_LAST_UPDATE_DATE       => f_ludate,
                 X_LAST_UPDATED_BY        => f_luby,
                 X_LAST_UPDATE_LOGIN      => 0 ,
                 X_PRODUCT_CODE           => X_PRODUCT_CODE);

Line: 422

	x_last_update_date => null);

Line: 432

  x_last_update_date       in VARCHAR2
) is
  f_luby    number;  -- entity owner in file

Line: 435

  f_ludate  date;    -- entity update date in file

Line: 437

  db_ludate date;    -- entity update date in db

Line: 445

  f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);

Line: 448

    select LAST_UPDATED_BY, LAST_UPDATE_DATE
    into db_luby, db_ludate
    from fnd_application_tl
    where application_id =
       (select application_id
        from fnd_application
        where  application_short_name = X_APPLICATION_SHORT_NAME)
        and LANGUAGE = userenv('LANG');

Line: 459

      update fnd_application_tl set
        application_name = nvl(X_APPLICATION_NAME, application_name),
        description = decode(X_DESCRIPTION,
                             fnd_load_util.null_value,
                             null,
                             null,
                             description,
                             decode(instr(X_DESCRIPTION,fnd_load_util.null_value),
                                    0,
                                    X_DESCRIPTION,
                                    null)
                                    ),
        source_lang = userenv('LANG'),
        last_update_date = f_ludate,
        last_updated_by  = f_luby,
        last_update_login = 0
             where application_id =
             (select application_id
              from   fnd_application
              where  application_short_name = X_APPLICATION_SHORT_NAME)
              and userenv('LANG') in (language, source_lang);

Line: 487

/* DELETE_ROW */
procedure DELETE_ROW (
  X_APPLICATION_ID in NUMBER
) is
begin
  delete from FND_APPLICATION
  where APPLICATION_ID = X_APPLICATION_ID;

Line: 499

  delete from FND_APPLICATION_TL
  where APPLICATION_ID = X_APPLICATION_ID;

Line: 505

end DELETE_ROW;

Line: 513

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

Line: 524

  update FND_APPLICATION_TL T set (
      APPLICATION_NAME,
      DESCRIPTION
    ) = (select
      B.APPLICATION_NAME,
      B.DESCRIPTION
    from FND_APPLICATION_TL B
    where B.APPLICATION_ID = T.APPLICATION_ID
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.APPLICATION_ID,
      T.LANGUAGE
  ) in (select
      SUBT.APPLICATION_ID,
      SUBT.LANGUAGE
    from FND_APPLICATION_TL SUBB, FND_APPLICATION_TL SUBT
    where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.APPLICATION_NAME <> SUBT.APPLICATION_NAME
      or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
      or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
      or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
  ))
  -- ***** BEGIN NEW CLAUSE FOR UPDATE *****
  and not exists
    (select null
    from FND_APPLICATION_TL DUP
    where DUP.LANGUAGE = T.LANGUAGE
    and (DUP.APPLICATION_NAME) =
      (select
         B.APPLICATION_NAME
       from FND_APPLICATION_TL B
       where B.APPLICATION_ID = T.APPLICATION_ID
       and B.LANGUAGE = T.SOURCE_LANG));

Line: 562

    update FND_APPLICATION_TL set
      APPLICATION_NAME = '@'||APPLICATION_NAME
    where (APPLICATION_NAME, LANGUAGE) in
      (select
         B.APPLICATION_NAME,
         L.LANGUAGE_CODE
       from FND_APPLICATION_TL B, FND_LANGUAGES L
       where L.INSTALLED_FLAG in ('I', 'B')
       and B.LANGUAGE = userenv('LANG')
       and not exists
         (select NULL
          from FND_APPLICATION_TL T
          where T.APPLICATION_ID = B.APPLICATION_ID
          and T.LANGUAGE = L.LANGUAGE_CODE));

Line: 582

  insert into FND_APPLICATION_TL (
    APPLICATION_ID,
    APPLICATION_NAME,
    DESCRIPTION,
    CREATED_BY,
    CREATION_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATE_LOGIN,
    LANGUAGE,
    SOURCE_LANG
  ) select
    B.APPLICATION_ID,
    B.APPLICATION_NAME,
    B.DESCRIPTION,
    B.CREATED_BY,
    B.CREATION_DATE,
    B.LAST_UPDATED_BY,
    B.LAST_UPDATE_DATE,
    B.LAST_UPDATE_LOGIN,
    L.LANGUAGE_CODE,
    B.SOURCE_LANG
  from FND_APPLICATION_TL B, FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and B.LANGUAGE = userenv('LANG')
  and not exists
    (select NULL
    from FND_APPLICATION_TL T
    where T.APPLICATION_ID = B.APPLICATION_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);