APPS.JTF_PREFAB_UD_KEYS_PKG SQL Statements

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

Line: 3

procedure INSERT_ROW (
  X_ROWID in out  NOCOPY VARCHAR2,
  X_UD_KEY_ID in NUMBER,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_SECURITY_GROUP_ID in NUMBER,
  X_APPLICATION_ID in NUMBER,
  X_UD_KEY_NAME in VARCHAR2,
  X_FILENAME in VARCHAR2,
  X_USER_DEFINED_KEYS in VARCHAR2,
  X_ENABLED_FLAG 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
) is
  cursor C is select ROWID from JTF_PREFAB_UD_KEYS_B
    where UD_KEY_ID = X_UD_KEY_ID
    ;

Line: 24

  insert into JTF_PREFAB_UD_KEYS_B (
    UD_KEY_ID,
    OBJECT_VERSION_NUMBER,
    -- SECURITY_GROUP_ID,
    APPLICATION_ID,
    UD_KEY_NAME,
    FILENAME,
    USER_DEFINED_KEYS,
    ENABLED_FLAG,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    X_UD_KEY_ID,
    X_OBJECT_VERSION_NUMBER,
    -- X_SECURITY_GROUP_ID,
    X_APPLICATION_ID,
    X_UD_KEY_NAME,
    X_FILENAME,
    X_USER_DEFINED_KEYS,
    X_ENABLED_FLAG,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 54

  insert into JTF_PREFAB_UD_KEYS_TL (
    UD_KEY_ID,
    DESCRIPTION,
    CREATED_BY,
    CREATION_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATE_LOGIN,
    -- SECURITY_GROUP_ID,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_UD_KEY_ID,
    X_DESCRIPTION,
    X_CREATED_BY,
    X_CREATION_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATE_LOGIN,
    -- X_SECURITY_GROUP_ID,
    L.LANGUAGE_CODE,
    userenv('LANG')
  from FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and not exists
    (select NULL
    from JTF_PREFAB_UD_KEYS_TL T
    where T.UD_KEY_ID = X_UD_KEY_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 92

end INSERT_ROW;

Line: 105

  cursor c is select
      OBJECT_VERSION_NUMBER,
      SECURITY_GROUP_ID,
      APPLICATION_ID,
      UD_KEY_NAME,
      FILENAME,
      USER_DEFINED_KEYS,
      ENABLED_FLAG
    from JTF_PREFAB_UD_KEYS_B
    where UD_KEY_ID = X_UD_KEY_ID
    for update of UD_KEY_ID nowait;

Line: 118

  cursor c1 is select
      DESCRIPTION,
      decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
    from JTF_PREFAB_UD_KEYS_TL
    where UD_KEY_ID = X_UD_KEY_ID
    and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
    for update of UD_KEY_ID nowait;

Line: 130

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

Line: 163

procedure UPDATE_ROW (
  X_UD_KEY_ID in NUMBER,
  X_OBJECT_VERSION_NUMBER in NUMBER,
  X_SECURITY_GROUP_ID in NUMBER,
  X_APPLICATION_ID in NUMBER,
  X_UD_KEY_NAME in VARCHAR2,
  X_FILENAME in VARCHAR2,
  X_USER_DEFINED_KEYS in VARCHAR2,
  X_ENABLED_FLAG in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_LAST_UPDATE_DATE in DATE,
  X_LAST_UPDATED_BY in NUMBER,
  X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
  update JTF_PREFAB_UD_KEYS_B set
    OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
    -- SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
    APPLICATION_ID = X_APPLICATION_ID,
    UD_KEY_NAME = X_UD_KEY_NAME,
    FILENAME = X_FILENAME,
    USER_DEFINED_KEYS = X_USER_DEFINED_KEYS,
    ENABLED_FLAG = X_ENABLED_FLAG,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
  where UD_KEY_ID = X_UD_KEY_ID;

Line: 195

  update JTF_PREFAB_UD_KEYS_TL set
    DESCRIPTION = X_DESCRIPTION,
    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 UD_KEY_ID = X_UD_KEY_ID
  and userenv('LANG') in (LANGUAGE, SOURCE_LANG);

Line: 207

end UPDATE_ROW;

Line: 209

procedure DELETE_ROW (
  X_UD_KEY_ID in NUMBER
) is
begin
  delete from JTF_PREFAB_UD_KEYS_TL
  where UD_KEY_ID = X_UD_KEY_ID;

Line: 220

  delete from JTF_PREFAB_UD_KEYS_B
  where UD_KEY_ID = X_UD_KEY_ID;

Line: 226

end DELETE_ROW;

Line: 231

  delete from JTF_PREFAB_UD_KEYS_TL T
  where not exists
    (select NULL
    from JTF_PREFAB_UD_KEYS_B B
    where B.UD_KEY_ID = T.UD_KEY_ID
    );

Line: 238

  update JTF_PREFAB_UD_KEYS_TL T set (
      DESCRIPTION
    ) = (select
      B.DESCRIPTION
    from JTF_PREFAB_UD_KEYS_TL B
    where B.UD_KEY_ID = T.UD_KEY_ID
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.UD_KEY_ID,
      T.LANGUAGE
  ) in (select
      SUBT.UD_KEY_ID,
      SUBT.LANGUAGE
    from JTF_PREFAB_UD_KEYS_TL SUBB, JTF_PREFAB_UD_KEYS_TL SUBT
    where SUBB.UD_KEY_ID = SUBT.UD_KEY_ID
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
  ));

Line: 257

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

Line: 298

  X_LAST_UPDATE_DATE in DATE,
  X_OWNER in VARCHAR2,
  X_CUSTOM_MODE in VARCHAR2
) is
   	--****** local variables ******
	l_row_id        VARCHAR2(255);

Line: 311

	cursor c is select nvl(max(UD_KEY_ID), 0) from jtf_prefab_ud_keys_b where UD_KEY_ID < 10000;

Line: 321

      f_ludate := X_LAST_UPDATE_DATE;

Line: 324

	  SELECT UD_KEY_ID, LAST_UPDATED_BY, LAST_UPDATE_DATE
	  INTO l_ud_key_id, db_luby, db_ludate
	  FROM JTF_PREFAB_UD_KEYS_B
	  WHERE APPLICATION_ID = X_APPLICATION_ID AND
                UD_KEY_NAME = X_UD_KEY_NAME;

Line: 330

	  -- **** Entry is there, check if it's legal to update ****
	  IF ((X_CUSTOM_MODE = 'FORCE') OR
              ((f_luby = 0) AND (db_luby = 1)) OR
              ((f_luby = db_luby) AND (f_ludate > db_ludate))
             )
	  then
	      -- **** call Update row ****
              JTF_PREFAB_UD_KEYS_PKG.UPDATE_ROW (
                  X_UD_KEY_ID                   =>   l_ud_key_id,
                  X_OBJECT_VERSION_NUMBER       =>   X_OBJECT_VERSION_NUMBER,
                  X_SECURITY_GROUP_ID           =>   X_SECURITY_GROUP_ID,
                  X_APPLICATION_ID              =>   X_APPLICATION_ID,
                  X_UD_KEY_NAME                 =>   X_UD_KEY_NAME,
                  X_FILENAME                    =>   X_FILENAME,
                  X_USER_DEFINED_KEYS           =>   X_USER_DEFINED_KEYS,
                  X_ENABLED_FLAG                =>   X_ENABLED_FLAG,
                  X_DESCRIPTION                 =>   X_DESCRIPTION,
                  X_LAST_UPDATE_DATE            =>   f_ludate,
                  X_LAST_UPDATED_BY             =>   f_luby,
                  X_LAST_UPDATE_LOGIN           =>   0);

Line: 358

              JTF_PREFAB_UD_KEYS_PKG.INSERT_ROW (
                  X_ROWID                       =>   l_row_id,
                  X_UD_KEY_ID                   =>   (l_pseudo_seq + 1),
                  X_OBJECT_VERSION_NUMBER       =>   X_OBJECT_VERSION_NUMBER,
                  X_SECURITY_GROUP_ID           =>   X_SECURITY_GROUP_ID,
                  X_APPLICATION_ID              =>   X_APPLICATION_ID,
                  X_UD_KEY_NAME                 =>   X_UD_KEY_NAME,
                  X_FILENAME                    =>   X_FILENAME,
                  X_USER_DEFINED_KEYS           =>   X_USER_DEFINED_KEYS,
                  X_ENABLED_FLAG                =>   X_ENABLED_FLAG,
                  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);

Line: 382

  X_LAST_UPDATE_DATE in DATE,
  X_OWNER in VARCHAR2,
  X_CUSTOM_MODE in VARCHAR2
) is
    -- **** local variables *****
    f_luby		NUMBER;

Line: 400

  f_ludate := X_LAST_UPDATE_DATE;

Line: 403

      SELECT tl.UD_KEY_ID, tl.LAST_UPDATED_BY, tl.LAST_UPDATE_DATE
      INTO l_ud_key_id, db_luby, db_ludate
      FROM JTF_PREFAB_UD_KEYS_B b, JTF_PREFAB_UD_KEYS_TL tl
      WHERE b.UD_KEY_ID = tl.UD_KEY_ID AND
            b.APPLICATION_ID = X_APPLICATION_ID AND
            b.UD_KEY_NAME = X_UD_KEY_NAME AND
            tl.LANGUAGE = userenv('LANG');

Line: 416

          update JTF_PREFAB_UD_KEYS_TL set
            DESCRIPTION = nvl(X_DESCRIPTION, DESCRIPTION),
	    LAST_UPDATE_DATE = f_ludate,
	    LAST_UPDATED_BY = f_luby,
	    LAST_UPDATE_LOGIN = 0,
	    SOURCE_LANG = userenv('LANG')
          where userenv('LANG') in (LANGUAGE, SOURCE_LANG) and
	        UD_KEY_ID = l_ud_key_id;