APPS.PAY_MONETARY_UNITS_PKG SQL Statements

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

Line: 14

select territory_short_name
from fnd_territories_vl
where territory_code = p_terr_code;

Line: 40

select 'x'
from   pay_monetary_units pmu
      ,pay_monetary_units_tl pmut
where  pmu.currency_code = p_cur_code
and    (  (p_mode = 'MONETARY_UNIT_NAME'
          and upper(translate(pmut.monetary_unit_name,'x_','x '))
	      = upper(translate(p_unit_name,'x_','x '))
	  )
       or (p_mode = 'RELATIVE_VALUE'
          and pmu.relative_value = p_rel_value))
and    pmut.monetary_unit_id = pmu.monetary_unit_id
and    pmut.language = userenv('LANG')
and    (  (pmu.legislation_code is null
          and pmu.business_group_id + 0 = p_bgroup_id)
       or (pmu.business_group_id is null
          and pmu.legislation_code = p_leg_code)
       or (pmu.business_group_id is null
          and pmu.legislation_code is null))
and    (p_rowid is null
       or (p_rowid is not null and chartorowid(p_rowid) <> pmu.rowid));

Line: 99

select pay_monetary_units_s.nextval
from sys.dual;

Line: 119

select 'x'
from pay_coin_anal_elements
where monetary_unit_id = p_munit_id;

Line: 142

procedure INSERT_ROW (
  X_ROWID              in out nocopy VARCHAR2,
  X_MONETARY_UNIT_ID   in out nocopy NUMBER,
  X_CURRENCY_CODE      in VARCHAR2,
  X_BUSINESS_GROUP_ID  in NUMBER,
  X_LEGISLATION_CODE   in VARCHAR2,
  X_RELATIVE_VALUE     in NUMBER,
  X_COMMENTS           in LONG,
  X_MONETARY_UNIT_NAME 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 PAY_MONETARY_UNITS
    where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID;

Line: 172

  insert into PAY_MONETARY_UNITS (
    MONETARY_UNIT_ID,
    CURRENCY_CODE,
    BUSINESS_GROUP_ID,
    LEGISLATION_CODE,
    RELATIVE_VALUE,
    COMMENTS,
    MONETARY_UNIT_NAME,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    X_MONETARY_UNIT_ID,
    X_CURRENCY_CODE,
    X_BUSINESS_GROUP_ID,
    X_LEGISLATION_CODE,
    X_RELATIVE_VALUE,
    X_COMMENTS,
    X_MONETARY_UNIT_NAME,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 200

  insert into PAY_MONETARY_UNITS_TL (
    MONETARY_UNIT_ID,
    MONETARY_UNIT_NAME,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    CREATED_BY,
    CREATION_DATE,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_MONETARY_UNIT_ID,
    X_MONETARY_UNIT_NAME,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
    X_CREATED_BY,
    X_CREATION_DATE,
    L.LANGUAGE_CODE,
    userenv('LANG')
  from FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and not exists
    (select NULL
    from PAY_MONETARY_UNITS_TL T
    where T.MONETARY_UNIT_ID = X_MONETARY_UNIT_ID
    and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 236

end INSERT_ROW;

Line: 247

  cursor c is select
      CURRENCY_CODE,
      BUSINESS_GROUP_ID,
      LEGISLATION_CODE,
      RELATIVE_VALUE,
      COMMENTS
    from PAY_MONETARY_UNITS
    where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID
    for update of MONETARY_UNIT_ID nowait;

Line: 258

  cursor c1 is select
      MONETARY_UNIT_NAME,
      decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
    from PAY_MONETARY_UNITS_TL
    where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID
    and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
    for update of MONETARY_UNIT_ID nowait;

Line: 270

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

Line: 303

procedure UPDATE_ROW (
  X_ROWID              in VARCHAR2,
  X_MONETARY_UNIT_ID   in NUMBER,
  X_CURRENCY_CODE      in VARCHAR2,
  X_BUSINESS_GROUP_ID  in NUMBER,
  X_LEGISLATION_CODE   in VARCHAR2,
  X_RELATIVE_VALUE     in NUMBER,
  X_COMMENTS           in LONG,
  X_MONETARY_UNIT_NAME in VARCHAR2,
  X_LAST_UPDATE_DATE   in DATE,
  X_LAST_UPDATED_BY    in NUMBER,
  X_LAST_UPDATE_LOGIN  in NUMBER
) is
begin
hr_utility.set_location('Entering Update_row',30);

Line: 327

  update PAY_MONETARY_UNITS set
    CURRENCY_CODE = X_CURRENCY_CODE,
    BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
    LEGISLATION_CODE = X_LEGISLATION_CODE,
    RELATIVE_VALUE = X_RELATIVE_VALUE,
    COMMENTS = X_COMMENTS,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
  where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID;

Line: 342

  update PAY_MONETARY_UNITS_TL set
    MONETARY_UNIT_NAME = X_MONETARY_UNIT_NAME,
    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 MONETARY_UNIT_ID = X_MONETARY_UNIT_ID
  and userenv('LANG') in (LANGUAGE, SOURCE_LANG);

Line: 352

    insert into PAY_MONETARY_UNITS_TL
    (MONETARY_UNIT_ID,
     MONETARY_UNIT_NAME,
     LANGUAGE,
     SOURCE_LANG
     )
    select
     X_MONETARY_UNIT_ID,
     X_MONETARY_UNIT_NAME,
     L.LANGUAGE_CODE,
     userenv('LANG')
    from FND_LANGUAGES L
    where L.INSTALLED_FLAG in ('I', 'B')
    and not exists
      (select NULL
       from PAY_MONETARY_UNITS_TL T
       where T.MONETARY_UNIT_ID = X_MONETARY_UNIT_ID
       and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 372

end UPDATE_ROW;

Line: 374

procedure DELETE_ROW (
  X_MONETARY_UNIT_ID in NUMBER
) is
begin
  delete from PAY_MONETARY_UNITS_TL
  where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID;

Line: 385

  delete from PAY_MONETARY_UNITS
  where MONETARY_UNIT_ID = X_MONETARY_UNIT_ID;

Line: 391

end DELETE_ROW;

Line: 396

  delete from PAY_MONETARY_UNITS_TL T
  where not exists
    (select NULL
    from PAY_MONETARY_UNITS B
    where B.MONETARY_UNIT_ID = T.MONETARY_UNIT_ID
    );

Line: 403

  update PAY_MONETARY_UNITS_TL T set (
      MONETARY_UNIT_NAME
    ) = (select
      B.MONETARY_UNIT_NAME
    from PAY_MONETARY_UNITS_TL B
    where B.MONETARY_UNIT_ID = T.MONETARY_UNIT_ID
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.MONETARY_UNIT_ID,
      T.MONETARY_UNIT_ID,
      T.LANGUAGE
  ) in (select
      SUBT.MONETARY_UNIT_ID,
      SUBT.MONETARY_UNIT_ID,
      SUBT.LANGUAGE
    from PAY_MONETARY_UNITS_TL SUBB, PAY_MONETARY_UNITS_TL SUBT
    where SUBB.MONETARY_UNIT_ID = SUBT.MONETARY_UNIT_ID
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.MONETARY_UNIT_NAME <> SUBT.MONETARY_UNIT_NAME
  ));

Line: 424

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

Line: 463

  l_last_updated_by   number;

Line: 464

  l_last_update_login number;

Line: 465

  l_last_update_date  date;

Line: 481

  l_last_updated_by   := fnd_global.user_id;

Line: 482

  l_last_update_login := fnd_global.login_id;

Line: 483

  l_last_update_date  := sysdate;

Line: 485

  update PAY_MONETARY_UNITS_TL pmut
     set pmut.MONETARY_UNIT_NAME = nvl(X_MONETARY_UNIT_NAME,MONETARY_UNIT_NAME)
        ,pmut.SOURCE_LANG = USERENV('LANG')
	,pmut.LAST_UPDATE_DATE = l_last_update_date
        ,pmut.LAST_UPDATED_BY  = l_last_updated_by
        ,pmut.LAST_UPDATE_LOGIN = l_last_update_login
   where USERENV('LANG') in (pmut.LANGUAGE,pmut.SOURCE_LANG)
     and exists
         ( select null
	   from   pay_monetary_units pmu
	   where  pmu.relative_value = x_relative_value
           and    pmu.currency_code = x_currency_code
	   and    pmu.monetary_unit_id = pmut.monetary_unit_id
	   and    (x_legislation_code is null
                  or pmu.legislation_code = x_legislation_code)
           and    (x_business_group_name is null
                  or pmu.business_group_id =
                     hr_api.return_business_group_id(x_business_group_name))
         );

Line: 524

  l_last_updated_by   number;

Line: 525

  l_last_update_login number;

Line: 526

  l_last_update_date  date;

Line: 529

    select pmu.monetary_unit_id, pmu.rowid
      from pay_monetary_units pmu
     where pmu.relative_value = x_relative_value
       and pmu.currency_code = x_currency_code
       and (x_legislation_code is null
           or pmu.legislation_code = x_legislation_code)
       and (p_bg_id is null
           or pmu.business_group_id = p_bg_id);

Line: 554

  l_last_update_date  := l_sysdate;

Line: 555

  l_last_updated_by   := fnd_global.user_id;

Line: 556

  l_last_update_login := fnd_global.login_id;

Line: 568

    UPDATE_ROW
      ( X_ROWID              => L_ROWID
       ,X_MONETARY_UNIT_ID   => L_MONETARY_UNIT_ID
       ,X_CURRENCY_CODE      =>	X_CURRENCY_CODE
       ,X_BUSINESS_GROUP_ID  =>	L_BUSINESS_GROUP_ID
       ,X_LEGISLATION_CODE   =>	X_LEGISLATION_CODE
       ,X_RELATIVE_VALUE     =>	X_RELATIVE_VALUE
       ,X_COMMENTS           =>	X_COMMENTS
       ,X_MONETARY_UNIT_NAME =>	X_MONETARY_UNIT_NAME
       ,X_LAST_UPDATE_DATE   => L_LAST_UPDATE_DATE
       ,X_LAST_UPDATED_BY    => L_LAST_UPDATED_BY
       ,X_LAST_UPDATE_LOGIN  => L_LAST_UPDATE_LOGIN
       );

Line: 583

    INSERT_ROW
      ( X_ROWID              => L_ROWID
       ,X_MONETARY_UNIT_ID   =>	L_MONETARY_UNIT_ID
       ,X_CURRENCY_CODE      =>	X_CURRENCY_CODE
       ,X_BUSINESS_GROUP_ID  =>	L_BUSINESS_GROUP_ID
       ,X_LEGISLATION_CODE   =>	X_LEGISLATION_CODE
       ,X_RELATIVE_VALUE     =>	X_RELATIVE_VALUE
       ,X_COMMENTS           =>	X_COMMENTS
       ,X_MONETARY_UNIT_NAME =>	X_MONETARY_UNIT_NAME
       ,X_CREATION_DATE      =>	L_CREATION_DATE
       ,X_CREATED_BY         =>	L_CREATED_BY
       ,X_LAST_UPDATE_DATE   =>	L_LAST_UPDATE_DATE
       ,X_LAST_UPDATED_BY    =>	L_LAST_UPDATED_BY
       ,X_LAST_UPDATE_LOGIN  =>	L_LAST_UPDATE_LOGIN
      );

Line: 637

    select 1
      from pay_monetary_units pmu,
           pay_monetary_units_tl pmut
     where upper(pmut.monetary_unit_name) = upper(p_monetary_unit_name)
       and pmu.currency_code = g_currency_code
       and pmut.language = p_language
       and pmu.monetary_unit_id = pmut.monetary_unit_id
       and (pmu.monetary_unit_id <> p_monetary_unit_id
           or p_monetary_unit_id is null)
       and (pmu.business_group_id = p_business_group_id
           or p_business_group_id is null)
       and (pmu.legislation_code = p_legislation_code
           or p_legislation_code is null);