[Home] [Help]
298: -- 115.94 DVickers 06-MAY-2003 del dim routes based on bal dim id
299: -- and priority not route_id
300: -- 115.95 DVickers 04-JUN-2003 new_category_name rollback correction
301: -- 115.95.11510.2 DVickers 17-JUL-2003 user_category_name col support for
302: -- pay_balance_categories_f
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
1335: If cnt=0 then return; end if;
1336:
1337: select distinct null
1338: into l_null_return
1339: from pay_balance_categories_f a
1340: where exists
1341: (select null
1342: from hr_s_balance_categories_f b
1343: where a.BALANCE_CATEGORY_ID = b.BALANCE_CATEGORY_ID
1363: from hr_s_balance_categories_f;
1364:
1365: select max(BALANCE_CATEGORY_ID)
1366: into v_max_live
1367: from pay_balance_categories_f;
1368:
1369: select pay_balance_categories_s.nextval
1370: into v_sequence_number
1371: from dual;
1400: -- not be raised more than once.
1401:
1402: rollback to new_category_name;
1403:
1404: insert_hr_stu_exceptions('pay_balance_categories_f'
1405: , r_distinct.c_surrogate_key
1406: , exception_type
1407: , r_distinct.c_true_key);
1408:
1430: BEGIN
1431:
1432: select distinct BALANCE_CATEGORY_ID
1433: into l_new_balance_category_id
1434: from pay_balance_categories_f
1435: where category_name = r_distinct.c_true_key
1436: and business_Group_id is null
1437: and nvl(legislation_code, 'x') = nvl(r_distinct.legislation_code,'x');
1438:
1478: BEGIN
1479:
1480: select distinct null
1481: into l_null_return
1482: from pay_balance_categories_f a
1483: where a.category_name = r_distinct.c_true_key
1484: and a.business_group_id is not null
1485: and exists (select null from per_business_groups b
1486: where b.business_group_id = a.business_group_id
1504: BEGIN
1505: --
1506: select distinct null
1507: into l_null_return
1508: from pay_balance_categories_f
1509: where category_name = r_distinct.c_true_key
1510: and nvl(legislation_code,'x') <>
1511: nvl(r_distinct.legislation_code,'x')
1512: and (legislation_code is null
1551: -- Get new surrogate id and update child references
1552: update_uid;
1553: ELSE
1554: -- Phase = 2
1555: delete from pay_balance_categories_f
1556: where balance_category_id = r_distinct.c_surrogate_key;
1557:
1558: FOR each_row IN c_each_row(r_distinct.c_surrogate_key) LOOP
1559: r_each_row := each_row;
1560:
1561: IF NOT check_parents THEN RAISE row_in_error; END IF;
1562:
1563: BEGIN
1564: insert into pay_balance_categories_f
1565: ( BALANCE_CATEGORY_ID
1566: ,CATEGORY_NAME
1567: ,EFFECTIVE_START_DATE
1568: ,EFFECTIVE_END_DATE
2320: IF stu_rec.balance_category_id IS NOT NULL THEN
2321: BEGIN
2322: select distinct null
2323: into l_null_return
2324: from pay_balance_categories_f
2325: where balance_category_id = stu_rec.balance_category_id;
2326:
2327: EXCEPTION WHEN NO_DATA_FOUND THEN
2328: crt_exc('Parent balance category does not exist');
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
6881: ----------------------
7693: --
7694: PROCEDURE install_pbct
7695: ----------------------
7696: IS
7697: -- Seeds the PAY_BALANCE_CATEGORIES_F_TL table.
7698:
7699: CURSOR c_balance_categories IS
7700: select
7701: bc.BALANCE_CATEGORY_ID,
7706: bc.LAST_UPDATED_BY,
7707: bc.LAST_UPDATE_LOGIN,
7708: bc.CREATED_BY,
7709: bc.CREATION_DATE
7710: from PAY_BALANCE_CATEGORIES_F bc,
7711: FND_LANGUAGES L,
7712: FND_LANGUAGES B
7713: where L.INSTALLED_FLAG in ('I', 'B')
7714: and B.INSTALLED_FLAG = 'B'
7713: where L.INSTALLED_FLAG in ('I', 'B')
7714: and B.INSTALLED_FLAG = 'B'
7715: and not exists (
7716: select '1'
7717: from PAY_BALANCE_CATEGORIES_F_TL bct
7718: where bct.BALANCE_CATEGORY_ID = bc.BALANCE_CATEGORY_ID
7719: and bct.language = l.language_code);
7720:
7721: l_counter NUMBER(3) := 0;
7726: FOR l_rec IN c_balance_categories LOOP
7727:
7728: -- Insert all selected rows into the TL table.
7729: -- If the row exist in the TL table then it will be ignored.
7730: insert into PAY_BALANCE_CATEGORIES_F_TL
7731: (
7732: BALANCE_CATEGORY_ID,
7733: LANGUAGE,
7734: SOURCE_LANG,
7751: l_rec.CREATION_DATE
7752: from dual
7753: where not exists (
7754: select '1'
7755: from PAY_BALANCE_CATEGORIES_F_TL bct
7756: where bct.BALANCE_CATEGORY_ID = l_rec.BALANCE_CATEGORY_ID
7757: and bct.language = l_rec.trans_lang);
7758:
7759: l_counter := l_counter + 1;