[Home] [Help]
303: -- 115.95.11510.3 DVickers 18-JUL-2003 insert category_name if
304: -- user_category_name is null
305: -- 115.96 Scchakra 16-JUL-2003 Bug 2982582. Added code in install_att
306: -- to install startup data in table
307: -- pay_monetary_units_tl.
308: -- 115.97 DVickers 30-SEP-2003 Added distinct to create_zz_leg_rule
309: -- 115.98 DVickers 02-OCT-2003 Added 4 new cols to
310: -- HR_S_LEGISLATIVE_FIELD_INFO
311: -- 115.99 DVickers 02-SEP-2003 Added CATEGORY as well
5115:
5116: END maintain_history;
5117:
5118: --****************************************************************************
5119: -- INSTALLATION PROCEDURE FOR : PAY_MONETARY_UNITS
5120: --****************************************************************************
5121:
5122: PROCEDURE install_monetary (p_phase IN number)
5123: ----------------------------------------------
5154:
5155: BEGIN
5156: rollback to new_primary_key;
5157:
5158: insert_hr_stu_exceptions('PAY_MONETARY_UNITS'
5159: , stu_rec.c_surrogate_key
5160: , exception_type
5161: , stu_rec.c_true_key);
5162:
5204:
5205:
5206: select distinct null
5207: into l_null_return
5208: from pay_monetary_units a
5209: where exists
5210: (select null
5211: from hr_s_monetary_units b
5212: where a.monetary_unit_id = b.monetary_unit_id
5234: from hr_s_monetary_units;
5235:
5236: select max(monetary_unit_id)
5237: into v_max_live
5238: from pay_monetary_units;
5239:
5240: select pay_monetary_units_s.nextval
5241: into v_sequence_number
5242: from dual;
5236: select max(monetary_unit_id)
5237: into v_max_live
5238: from pay_monetary_units;
5239:
5240: select pay_monetary_units_s.nextval
5241: into v_sequence_number
5242: from dual;
5243:
5244: IF (v_sequence_number BETWEEN v_min_delivered AND v_max_delivered)
5245: OR (v_sequence_number < v_max_live) THEN
5246:
5247: IF v_max_live > v_max_delivered THEN
5248:
5249: hr_legislation.munge_sequence('PAY_MONETARY_UNITS_S',
5250: v_sequence_number,
5251: v_max_live);
5252: ELSE
5253:
5250: v_sequence_number,
5251: v_max_live);
5252: ELSE
5253:
5254: hr_legislation.munge_sequence('PAY_MONETARY_UNITS_S',
5255: v_sequence_number,
5256: v_max_delivered);
5257: END IF;
5258: END IF;
5268:
5269: BEGIN
5270: select distinct monetary_unit_id
5271: into l_new_surrogate_key
5272: from pay_monetary_units
5273: where currency_code = stu_rec.currency_code
5274: and monetary_unit_name = stu_rec.c_true_key
5275: and business_group_id is null
5276: and (
5280: );
5281:
5282: EXCEPTION WHEN NO_DATA_FOUND THEN
5283:
5284: select pay_monetary_units_s.nextval
5285: into l_new_surrogate_key
5286: from dual;
5287:
5288: END;
5394: -- already been created by a user.
5395:
5396: select distinct null
5397: into l_null_return
5398: from pay_monetary_units a
5399: where a.monetary_unit_name = stu_rec.c_true_key
5400: and a.currency_code = stu_rec.currency_code
5401: and a.business_group_id is not null
5402: and exists (select null from per_business_groups b
5421:
5422: BEGIN
5423: select distinct null
5424: into l_null_return
5425: from pay_monetary_units
5426: where monetary_unit_name = stu_rec.c_true_key
5427: and currency_code = stu_rec.currency_code
5428: and nvl(legislation_code,'X') <> nvl(stu_rec.c_leg_code,'X')
5429: and (
5468: -- The last step of the transfer, in phase 2, is to delete the now
5469: -- transfered row from the delivery tables.
5470:
5471:
5472: update pay_monetary_units
5473: set currency_code = stu_rec.currency_code
5474: , business_group_id = null
5475: , legislation_code = stu_rec.c_leg_code
5476: , relative_value = stu_rec.relative_value
5482: where monetary_unit_id = stu_rec.c_surrogate_key;
5483:
5484: IF SQL%NOTFOUND THEN
5485:
5486: insert into pay_monetary_units
5487: (monetary_unit_id
5488: ,currency_code
5489: ,business_group_id
5490: ,legislation_code
6622: -- PAY_INPUT_VALUES_F_TL
6623: -- PAY_PAYMENT_TYPES_TL
6624: -- PER_ASSIGNMENT_STATUS_TYPES_TL
6625: -- PER_ASSIGNMENT_INFO_TYPES_TL
6626: -- PAY_MONETARY_UNITS_TL
6627: -- PAY_BALANCE_CATEGORIES_F_TL
6628:
6629:
6630: PROCEDURE install_pbtt
7355: --
7356: PROCEDURE install_pmut
7357: ----------------------
7358: IS
7359: -- Seeds the PAY_MONETARY_UNITS_TL table.
7360:
7361: CURSOR c_monetary_units IS
7362: select
7363: M.MONETARY_UNIT_ID,
7368: M.LAST_UPDATED_BY,
7369: M.LAST_UPDATE_LOGIN,
7370: M.CREATED_BY,
7371: M.CREATION_DATE
7372: from PAY_MONETARY_UNITS M,
7373: FND_LANGUAGES L,
7374: FND_LANGUAGES B
7375: where L.INSTALLED_FLAG in ('I', 'B')
7376: and B.INSTALLED_FLAG = 'B'
7376: and B.INSTALLED_FLAG = 'B'
7377: and NVL(TO_CHAR(M.BUSINESS_GROUP_ID),'Null Value')='Null Value'
7378: and not exists (
7379: select '1'
7380: from PAY_MONETARY_UNITS_TL pmut
7381: where pmut.monetary_unit_id =
7382: m.monetary_unit_id
7383: and pmut.language = l.language_code);
7384:
7390: FOR l_rec IN c_monetary_units LOOP
7391:
7392: -- Insert all selected rows into the TL table.
7393: -- If the row exist in the TL table then it will be ignored.
7394: insert into PAY_MONETARY_UNITS_TL
7395: (
7396: MONETARY_UNIT_ID,
7397: LANGUAGE,
7398: SOURCE_LANG,
7415: l_rec.CREATION_DATE
7416: from dual
7417: where not exists (
7418: select '1'
7419: from PAY_MONETARY_UNITS_TL pmut
7420: where pmut.monetary_unit_id =
7421: l_rec.monetary_unit_id
7422: and pmut.language = l_rec.trans_lang);
7423: