[Home] [Help]
172: -- clause in transfer_row procedure.
173: -- 115.25 ablinko 08-DEC-99 Only delete rows with no buisness group
174: -- from pay_user_column_instances_f
175: -- 115.26 tbattoo 08-Feb-00 changed crt_exc so calls
176: -- hr_legislation.insert_hr_stu_exceptions
177: -- This is an autonomous transaction procedure
178: -- , so we dont loose error messages on rollback
179: -- 115.27 mreid 24-Feb-00 Added territory code to payment types
180: -- unique key checking.
215: -- transfer_row.
216: -- 115.42 divicker 25-APR-2001 Added GROSSUP_ALLOWED_FLAG processing
217: -- to balance_type transfer
218: -- 115.43 divicker May 2001 Support for parallel hrglobal and
219: -- better debugging into HR_STU_EXCEPTIONS
220: -- 115.44 divicker 14-Jun-2001 Bug fix 1803867
221: -- 115.45 mreid 02-Jul-2001 Fixed monetary unit app ownership
222: -- 115.46 divicker 07-Jul-2001 Fix to maintain_history PK violation
223: -- 115.47 divicker 11-Jul-2001 Fix to add distinct to hr_s_defined_balances
404: hr_utility.trace_off;
405: end if;
406: end;
407:
408: PROCEDURE insert_hr_stu_exceptions (p_table_name varchar2,
409: p_surrogate_id number,
410: p_text varchar2,
411: p_true_key varchar2)
412: IS
412: IS
413: PRAGMA AUTONOMOUS_TRANSACTION;
414: BEGIN
415:
416: insert into HR_STU_EXCEPTIONS
417: (table_name
418: ,surrogate_id
419: ,exception_text
420: ,true_key)
425: ,p_true_key
426: from dual
427: where not exists
428: (select null
429: from hr_stu_exceptions
430: where p_surrogate_id = surrogate_id
431: and table_name = upper(p_table_name));
432:
433: commit;
430: where p_surrogate_id = surrogate_id
431: and table_name = upper(p_table_name));
432:
433: commit;
434: END insert_hr_stu_exceptions;
435:
436:
437: PROCEDURE munge_sequence (p_seq_name varchar2,
438: p_seq_val number,
644: -- with the next primary key to install. The same exception will
645: -- not be raised more than once.
646:
647: rollback to new_primary_key;
648: insert_hr_stu_exceptions('per_assignment_status_types'
649: , stu_rec.c_surrogate_key
650: , exception_type
651: , 'User: ' || stu_rec.user_status ||
652: ' PER: ' || stu_rec.per_system_status ||
1195: -- not be raised more than once.
1196:
1197: rollback to new_category_name;
1198:
1199: insert_hr_stu_exceptions('pay_balance_categories_f'
1200: , r_distinct.c_surrogate_key
1201: , exception_type
1202: , r_distinct.c_true_key);
1203:
1742:
1743: BEGIN
1744:
1745: rollback to new_balance_name;
1746: insert_hr_stu_exceptions('pay_balance_types'
1747: , stu_rec.c_surrogate_key
1748: , exception_type
1749: , stu_rec.c_true_key);
1750:
2702: -- See procedure crt_exc in procedure install_past above for generic
2703: -- details.
2704:
2705: rollback to new_dimension_name;
2706: insert_hr_stu_exceptions('pay_balance_dimensions'
2707: , stu_rec.c_surrogate_key
2708: , exception_type
2709: , stu_rec.c_true_key);
2710:
3250: -- See procedure crt_exc in procedure install_past above for generic
3251: -- details.
3252:
3253: rollback to new_dimension_route;
3254: insert_hr_stu_exceptions('pay_dimension_routes'
3255: , stu_rec.BALANCE_DIMENSION_ID
3256: , exception_type
3257: , to_char(stu_rec.ROUTE_ID));
3258:
3678: -- not be raised more than once.
3679:
3680: rollback to new_information_type;
3681:
3682: insert_hr_stu_exceptions('per_assignment_info_types'
3683: , 0
3684: , exception_type
3685: , stu_rec.c_true_key);
3686:
4172: -- not be raised more than once.
4173:
4174: rollback to new_payment_type_name;
4175:
4176: insert_hr_stu_exceptions ('pay_payment_types'
4177: , stu_rec.c_surrogate_key
4178: , exception_type
4179: , stu_rec.c_true_key);
4180:
4519: -- not be raised more than once.
4520:
4521: rollback to new_row_low_range_or_name;
4522:
4523: insert_hr_stu_exceptions('pay_user_rows_f'
4524: , r_distinct.c_surrogate_key
4525: , exception_type
4526: , r_distinct.c_true_key);
4527:
5065: v_package_name := r_legs.package_name;
5066:
5067: IF p_phase = 1 OR p_phase = 2 THEN
5068:
5069: delete from hr_stu_exceptions;
5070:
5071: -- Used to error oinly if in phase 1 but to stop
5072: -- situations where we lose legit Phase 1 exceptions
5073: -- because an adpatch rerun then fails in Phase 2
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:
5832: BEGIN
5833:
5834: rollback to new_magnetic_blocks;
5835:
5836: insert_hr_stu_exceptions('pay_magnetic_blocks'
5837: , stu_rec.c_surrogate_key
5838: , exception_type
5839: , stu_rec.c_true_key);
5840:
6564: -- Check for any exceptions during above installation
6565:
6566: select count(*)
6567: into v_exception_counter
6568: from hr_stu_exceptions;
6569:
6570: IF v_exception_counter > 0 THEN
6571: --
6572: -- Output information for all rows in hr_stu_exceptions
6568: from hr_stu_exceptions;
6569:
6570: IF v_exception_counter > 0 THEN
6571: --
6572: -- Output information for all rows in hr_stu_exceptions
6573: --
6574: update hr_stu_history
6575: set status = 'Phase '||p_phase||' has exceptions raised'
6576: where package_name in
7593: hr_utility.set_Location('hr_legislation.install2',20);
7594:
7595: select count(*)
7596: into v_exception_counter
7597: from hr_stu_exceptions;
7598:
7599: IF v_exception_counter > 0 THEN
7600:
7601: hr_utility.set_message(801,'HR_7129_STARTUP_EXCEPTIONS');
7615: hr_utility.set_Location('hr_legislation.install2',50);
7616:
7617: select count(*)
7618: into v_exception_counter
7619: from hr_stu_exceptions;
7620:
7621: IF v_exception_counter > 0 THEN
7622:
7623: hr_utility.set_message(801,'HR_7129_STARTUP_EXCEPTIONS');