[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
5365:
5366: END maintain_history;
5367:
5368: --****************************************************************************
5369: -- INSTALLATION PROCEDURE FOR : PAY_MONETARY_UNITS
5370: --****************************************************************************
5371:
5372: PROCEDURE install_monetary (p_phase IN number)
5373: ----------------------------------------------
5404:
5405: BEGIN
5406: rollback to new_primary_key;
5407:
5408: insert_hr_stu_exceptions('PAY_MONETARY_UNITS'
5409: , stu_rec.c_surrogate_key
5410: , exception_type
5411: , stu_rec.c_true_key);
5412:
5454:
5455:
5456: select distinct null
5457: into l_null_return
5458: from pay_monetary_units a
5459: where exists
5460: (select null
5461: from hr_s_monetary_units b
5462: where a.monetary_unit_id = b.monetary_unit_id
5484: from hr_s_monetary_units;
5485:
5486: select max(monetary_unit_id)
5487: into v_max_live
5488: from pay_monetary_units;
5489:
5490: select pay_monetary_units_s.nextval
5491: into v_sequence_number
5492: from dual;
5486: select max(monetary_unit_id)
5487: into v_max_live
5488: from pay_monetary_units;
5489:
5490: select pay_monetary_units_s.nextval
5491: into v_sequence_number
5492: from dual;
5493:
5494: IF (v_sequence_number BETWEEN v_min_delivered AND v_max_delivered)
5495: OR (v_sequence_number < v_max_live) THEN
5496:
5497: IF v_max_live > v_max_delivered THEN
5498:
5499: hr_legislation.munge_sequence('PAY_MONETARY_UNITS_S',
5500: v_sequence_number,
5501: v_max_live);
5502: ELSE
5503:
5500: v_sequence_number,
5501: v_max_live);
5502: ELSE
5503:
5504: hr_legislation.munge_sequence('PAY_MONETARY_UNITS_S',
5505: v_sequence_number,
5506: v_max_delivered);
5507: END IF;
5508: END IF;
5518:
5519: BEGIN
5520: select distinct monetary_unit_id
5521: into l_new_surrogate_key
5522: from pay_monetary_units
5523: where currency_code = stu_rec.currency_code
5524: and monetary_unit_name = stu_rec.c_true_key
5525: and business_group_id is null
5526: and (
5530: );
5531:
5532: EXCEPTION WHEN NO_DATA_FOUND THEN
5533:
5534: select pay_monetary_units_s.nextval
5535: into l_new_surrogate_key
5536: from dual;
5537:
5538: END;
5644: -- already been created by a user.
5645:
5646: select distinct null
5647: into l_null_return
5648: from pay_monetary_units a
5649: where a.monetary_unit_name = stu_rec.c_true_key
5650: and a.currency_code = stu_rec.currency_code
5651: and a.business_group_id is not null
5652: and exists (select null from per_business_groups b
5671:
5672: BEGIN
5673: select distinct null
5674: into l_null_return
5675: from pay_monetary_units
5676: where monetary_unit_name = stu_rec.c_true_key
5677: and currency_code = stu_rec.currency_code
5678: and nvl(legislation_code,'X') <> nvl(stu_rec.c_leg_code,'X')
5679: and (
5718: -- The last step of the transfer, in phase 2, is to delete the now
5719: -- transfered row from the delivery tables.
5720:
5721:
5722: update pay_monetary_units
5723: set currency_code = stu_rec.currency_code
5724: , business_group_id = null
5725: , legislation_code = stu_rec.c_leg_code
5726: , relative_value = stu_rec.relative_value
5732: where monetary_unit_id = stu_rec.c_surrogate_key;
5733:
5734: IF SQL%NOTFOUND THEN
5735:
5736: insert into pay_monetary_units
5737: (monetary_unit_id
5738: ,currency_code
5739: ,business_group_id
5740: ,legislation_code
6872: -- PAY_INPUT_VALUES_F_TL
6873: -- PAY_PAYMENT_TYPES_TL
6874: -- PER_ASSIGNMENT_STATUS_TYPES_TL
6875: -- PER_ASSIGNMENT_INFO_TYPES_TL
6876: -- PAY_MONETARY_UNITS_TL
6877: -- PAY_BALANCE_CATEGORIES_F_TL
6878:
6879:
6880: PROCEDURE install_pbtt
7605: --
7606: PROCEDURE install_pmut
7607: ----------------------
7608: IS
7609: -- Seeds the PAY_MONETARY_UNITS_TL table.
7610:
7611: CURSOR c_monetary_units IS
7612: select
7613: M.MONETARY_UNIT_ID,
7618: M.LAST_UPDATED_BY,
7619: M.LAST_UPDATE_LOGIN,
7620: M.CREATED_BY,
7621: M.CREATION_DATE
7622: from PAY_MONETARY_UNITS M,
7623: FND_LANGUAGES L,
7624: FND_LANGUAGES B
7625: where L.INSTALLED_FLAG in ('I', 'B')
7626: and B.INSTALLED_FLAG = 'B'
7626: and B.INSTALLED_FLAG = 'B'
7627: and NVL(TO_CHAR(M.BUSINESS_GROUP_ID),'Null Value')='Null Value'
7628: and not exists (
7629: select '1'
7630: from PAY_MONETARY_UNITS_TL pmut
7631: where pmut.monetary_unit_id =
7632: m.monetary_unit_id
7633: and pmut.language = l.language_code);
7634:
7640: FOR l_rec IN c_monetary_units LOOP
7641:
7642: -- Insert all selected rows into the TL table.
7643: -- If the row exist in the TL table then it will be ignored.
7644: insert into PAY_MONETARY_UNITS_TL
7645: (
7646: MONETARY_UNIT_ID,
7647: LANGUAGE,
7648: SOURCE_LANG,
7665: l_rec.CREATION_DATE
7666: from dual
7667: where not exists (
7668: select '1'
7669: from PAY_MONETARY_UNITS_TL pmut
7670: where pmut.monetary_unit_id =
7671: l_rec.monetary_unit_id
7672: and pmut.language = l_rec.trans_lang);
7673: