[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
424: g_pseudo_enabled := 'N';
425: RETURN g_pseudo_enabled;
426: END;
427:
428: PROCEDURE insert_hr_stu_exceptions (p_table_name varchar2,
429: p_surrogate_id number,
430: p_text varchar2,
431: p_true_key varchar2)
432: IS
432: IS
433: PRAGMA AUTONOMOUS_TRANSACTION;
434: BEGIN
435:
436: insert into HR_STU_EXCEPTIONS
437: (table_name
438: ,surrogate_id
439: ,exception_text
440: ,true_key)
445: ,p_true_key
446: from dual
447: where not exists
448: (select null
449: from hr_stu_exceptions
450: where p_surrogate_id = surrogate_id
451: and table_name = upper(p_table_name));
452:
453: commit;
450: where p_surrogate_id = surrogate_id
451: and table_name = upper(p_table_name));
452:
453: commit;
454: END insert_hr_stu_exceptions;
455:
456:
457: PROCEDURE munge_sequence (p_seq_name varchar2,
458: p_seq_val number,
849: -- with the next primary key to install. The same exception will
850: -- not be raised more than once.
851:
852: rollback to new_primary_key;
853: insert_hr_stu_exceptions('per_assignment_status_types'
854: , stu_rec.c_surrogate_key
855: , exception_type
856: , 'User: ' || stu_rec.user_status ||
857: ' PER: ' || stu_rec.per_system_status ||
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:
1947:
1948: BEGIN
1949:
1950: rollback to new_balance_name;
1951: insert_hr_stu_exceptions('pay_balance_types'
1952: , stu_rec.c_surrogate_key
1953: , exception_type
1954: , stu_rec.c_true_key);
1955:
2948: -- See procedure crt_exc in procedure install_past above for generic
2949: -- details.
2950:
2951: rollback to new_dimension_name;
2952: insert_hr_stu_exceptions('pay_balance_dimensions'
2953: , stu_rec.c_surrogate_key
2954: , exception_type
2955: , stu_rec.c_true_key);
2956:
3496: -- See procedure crt_exc in procedure install_past above for generic
3497: -- details.
3498:
3499: rollback to new_dimension_route;
3500: insert_hr_stu_exceptions('pay_dimension_routes'
3501: , stu_rec.BALANCE_DIMENSION_ID
3502: , exception_type
3503: , to_char(stu_rec.ROUTE_ID));
3504:
3924: -- not be raised more than once.
3925:
3926: rollback to new_information_type;
3927:
3928: insert_hr_stu_exceptions('per_assignment_info_types'
3929: , 0
3930: , exception_type
3931: , stu_rec.c_true_key);
3932:
4419: -- not be raised more than once.
4420:
4421: rollback to new_payment_type_name;
4422:
4423: insert_hr_stu_exceptions ('pay_payment_types'
4424: , stu_rec.c_surrogate_key
4425: , exception_type
4426: , stu_rec.c_true_key);
4427:
4769: -- not be raised more than once.
4770:
4771: rollback to new_row_low_range_or_name;
4772:
4773: insert_hr_stu_exceptions('pay_user_rows_f'
4774: , r_distinct.c_surrogate_key
4775: , exception_type
4776: , r_distinct.c_true_key);
4777:
5315: v_package_name := r_legs.package_name;
5316:
5317: IF p_phase = 1 OR p_phase = 2 THEN
5318:
5319: delete from hr_stu_exceptions;
5320:
5321: -- Used to error oinly if in phase 1 but to stop
5322: -- situations where we lose legit Phase 1 exceptions
5323: -- because an adpatch rerun then fails in Phase 2
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:
6082: BEGIN
6083:
6084: rollback to new_magnetic_blocks;
6085:
6086: insert_hr_stu_exceptions('pay_magnetic_blocks'
6087: , stu_rec.c_surrogate_key
6088: , exception_type
6089: , stu_rec.c_true_key);
6090:
6814: -- Check for any exceptions during above installation
6815:
6816: select count(*)
6817: into v_exception_counter
6818: from hr_stu_exceptions;
6819:
6820: IF v_exception_counter > 0 THEN
6821: --
6822: -- Output information for all rows in hr_stu_exceptions
6818: from hr_stu_exceptions;
6819:
6820: IF v_exception_counter > 0 THEN
6821: --
6822: -- Output information for all rows in hr_stu_exceptions
6823: --
6824: update hr_stu_history
6825: set status = 'Phase '||p_phase||' has exceptions raised'
6826: where package_name in
7851: hr_utility.set_Location('hr_legislation.install2',20);
7852:
7853: select count(*)
7854: into v_exception_counter
7855: from hr_stu_exceptions;
7856:
7857: IF v_exception_counter > 0 THEN
7858:
7859: hr_utility.set_message(801,'HR_7129_STARTUP_EXCEPTIONS');
7873: hr_utility.set_Location('hr_legislation.install2',50);
7874:
7875: select count(*)
7876: into v_exception_counter
7877: from hr_stu_exceptions;
7878:
7879: IF v_exception_counter > 0 THEN
7880:
7881: hr_utility.set_message(801,'HR_7129_STARTUP_EXCEPTIONS');