[Home] [Help]
885:
886: delete ff_compiled_info_f f
887: where f.formula_id in (
888: select distinct a.formula_id
889: from ff_formulas_f a,
890: ff_fdi_usages_f b,
891: ff_contexts c
892: where a.formula_type_id = stu_rec.c_surrogate_key
893: and a.formula_id = b.formula_id
897:
898: delete ff_fdi_usages_f f
899: where f.formula_id in (
900: select distinct a.formula_id
901: from ff_formulas_f a,
902: ff_fdi_usages_f b,
903: ff_contexts c
904: where a.formula_type_id = stu_rec.c_surrogate_key
905: and a.formula_id = b.formula_id
1006:
1007: END install_fft;
1008:
1009: --****************************************************************************
1010: -- INSTALLATION PROCEDURE FOR : FF_FORMULAS_F
1011: --****************************************************************************
1012:
1013: PROCEDURE install_formulas (p_phase IN NUMBER)
1014: ----------------------------------------------
1071: PROCEDURE crt_exc (exception_type IN varchar2)
1072: ----------------------------------------------
1073: IS
1074: -- Reports any exceptions during the delivery of startup data to
1075: -- FF_FORMULAS_F
1076: BEGIN
1077: -- When the installation procedures encounter an error that cannot
1078: -- be handled, an exception is raised and all work is rolled back
1079: -- to the last savepoint. The installation process then continues
1081: -- not be raised more than once.
1082:
1083: rollback to new_formula_name;
1084:
1085: hr_legislation.insert_hr_stu_exceptions('ff_formulas_f'
1086: , r_distinct.c_surrogate_key
1087: , exception_type
1088: , r_distinct.c_true_key);
1089:
1136:
1137:
1138: select distinct null
1139: into l_null_return
1140: from ff_formulas_f a
1141: where exists
1142: (select null
1143: from hr_s_formulas_f b
1144: where a.formula_id = b.formula_id
1225: BEGIN
1226:
1227: select distinct formula_id
1228: into l_new_formula_id
1229: from ff_formulas_f
1230: where formula_name = r_distinct.c_true_key
1231: and formula_type_id = r_distinct.formula_type_id
1232: and business_Group_id is null
1233: and ((legislation_code is NULL and r_distinct.legislation_code is NULL)
1243:
1244: WHEN TOO_MANY_ROWS THEN
1245:
1246: hr_legislation.hrrunprc_trace_on;
1247: hr_utility.trace('sel ff_formulas_f TMR');
1248: hr_utility.trace('formula_name ' ||
1249: r_distinct.c_true_key);
1250: hr_utility.trace('formula_type_id ' ||
1251: to_char(r_distinct.formula_type_id));
1475:
1476:
1477: select distinct null
1478: into l_null_return
1479: from ff_formulas_f a
1480: where a.formula_name = r_distinct.c_true_key
1481: and a.formula_type_id = r_distinct.formula_type_id
1482: and a.business_group_id is not null
1483: and exists (select null from per_business_groups b
1509:
1510:
1511: select distinct null
1512: into l_null_return
1513: from ff_formulas_f
1514: where formula_name = r_distinct.c_true_key
1515: and formula_type_id = r_distinct.formula_type_id
1516: and legislation_code <> r_distinct.legislation_code
1517: and (legislation_code is null or
1536: BEGIN
1537: -- Check if we have a pseudo seed clash if enabled
1538: -- Error handling is done in the procedure itself
1539: hr_legislation.PSEUDO_SEED_DATA_CLASH(P_SURROGATE_KEY_NAME => r_distinct.c_true_key,
1540: P_TABLE_NAME => 'FF_FORMULAS_F',
1541: P_LEGISLATION_CODE => r_distinct.legislation_code);
1542: EXCEPTION WHEN OTHERS THEN
1543: return FALSE;
1544: END;
1608:
1609: BEGIN
1610: select null
1611: into l_dummy
1612: from ff_formulas_f
1613: where formula_id = form_id;
1614: EXCEPTION when others then
1615: return TRUE;
1616: END;
1626: and effective_start_date = r_all_rows.effective_start_date;
1627:
1628: select formula_text
1629: into vlive_formula_text
1630: from ff_formulas_f
1631: where formula_id = form_id
1632: and effective_start_date = r_all_rows.effective_start_date;
1633:
1634: -- First check if non stub formula diff from live
1663: MINUS
1664: select effective_start_date,
1665: effective_end_date,
1666: description
1667: from ff_formulas_f
1668: where formula_id = form_id
1669: and formula_type_id = r_distinct.formula_type_id
1670: )
1671: UNION
1672: (
1673: select effective_start_date,
1674: effective_end_date,
1675: description
1676: from ff_formulas_f
1677: where formula_id = form_id
1678: and formula_type_id = r_distinct.formula_type_id
1679: MINUS
1680: select effective_start_date,
1766:
1767: delete from ff_compiled_info_f
1768: where formula_id = r_distinct.c_surrogate_key;
1769:
1770: delete from ff_formulas_f
1771: where formula_id = r_distinct.c_surrogate_key;
1772:
1773: FOR each_row IN c_each_row(r_distinct.c_surrogate_key) LOOP
1774:
1779: RAISE row_in_error;
1780: END IF;
1781:
1782: BEGIN
1783: insert into ff_formulas_f
1784: (formula_id
1785: ,effective_start_date
1786: ,effective_end_date
1787: ,business_group_id
1817: ,r_each_row.creation_date
1818: );
1819: EXCEPTION WHEN OTHERS THEN
1820: hr_legislation.hrrunprc_trace_on;
1821: hr_utility.trace('ins ff_formulas_f');
1822: hr_utility.trace('formula_name ' ||
1823: r_each_row.formula_name);
1824: hr_utility.trace('formula_id ' ||
1825: to_char(r_each_row.formula_id));
4077: -- Checking the installed account
4078:
4079: select distinct null
4080: into l_null_return
4081: from ff_formulas_f
4082: where formula_id = stu_rec.formula_id;
4083:
4084: return TRUE;
4085: