73: ,p_trace_location IN NUMBER DEFAULT NULL
74: )
75: IS
76: BEGIN
77: pqp_utilities.debug(p_trace_message,p_trace_location);
78: END debug;
79: --
80: --
81: --
82: PROCEDURE debug
83: (p_trace_number IN NUMBER )
84: IS
85: BEGIN
86: pqp_utilities.debug(fnd_number.number_to_canonical(p_trace_number));
87: END debug;
88: --
89: --
90: --
91: PROCEDURE debug
92: (p_trace_date IN DATE )
93: IS
94: BEGIN
95: pqp_utilities.debug(fnd_date.date_to_canonical(p_trace_date));
96: END debug;
97: --
98: --
99: --
103: )
104: IS
105: -- l_trace_options VARCHAR2(200);
106: BEGIN
107: pqp_utilities.debug_enter(p_proc_name,p_trace_on);
108: END debug_enter;
109: --
110: --
111: --
114: ,p_trace_off IN VARCHAR2 DEFAULT NULL
115: )
116: IS
117: BEGIN
118: pqp_utilities.debug_exit(p_proc_name,p_trace_off);
119: END debug_exit;
120: --
121: --
122: --
125: ,p_message IN VARCHAR2
126: )
127: IS
128: BEGIN
129: pqp_utilities.check_error_code(p_error_code, p_message);
130: END check_error_code;
131: --
132: --
133: --
699: EXCEPTION
700: WHEN OTHERS THEN
701:
702: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
703: pqp_utilities.debug_others
704: (l_proc_name
705: ,l_proc_step
706: );
707: IF g_debug THEN
803: EXCEPTION
804: WHEN OTHERS THEN
805:
806: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
807: pqp_utilities.debug_others
808: (l_proc_name
809: ,l_proc_step
810: );
811: IF g_debug THEN
996: EXCEPTION
997: WHEN OTHERS THEN
998:
999: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
1000: pqp_utilities.debug_others
1001: (l_proc_name
1002: ,l_proc_step
1003: );
1004: IF g_debug THEN
1058: EXCEPTION
1059: WHEN OTHERS THEN
1060:
1061: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
1062: pqp_utilities.debug_others
1063: (l_proc_name
1064: ,l_proc_step
1065: );
1066: IF g_debug THEN
1131: debug(l_proc_name, 12);
1132: END IF;
1133:
1134: g_log_duration_summary :=
1135: PQP_UTILITIES.pqp_get_config_value
1136: ( p_business_group_id => p_business_group_id
1137: ,p_legislation_code => 'GB'
1138: ,p_column_name => 'PCV_INFORMATION10'
1139: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
2641: -- set the global as per that for further processing
2642: -- in the procedure get_absences_taken
2643:
2644: g_deduct_absence_for :=
2645: PQP_UTILITIES.pqp_get_config_value
2646: ( p_business_group_id => p_business_group_id
2647: ,p_legislation_code => 'GB'
2648: ,p_column_name => 'PCV_INFORMATION9'
2649: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
3253: IF p_is_full_timer IS NOT NULL THEN
3254:
3255: IF p_is_full_timer THEN
3256: p_entitlements_remaining(i).entitlement :=
3257: pqp_utilities.round_value_up_down
3258: ( p_value_to_round => p_entitlements_remaining(i).entitlement
3259: ,p_base_value => g_ft_rounding_precision
3260: ,p_rounding_type => g_ft_entitl_rounding_type
3261: ) ;
3260: ,p_rounding_type => g_ft_entitl_rounding_type
3261: ) ;
3262: ELSE
3263: p_entitlements_remaining(i).entitlement :=
3264: pqp_utilities.round_value_up_down
3265: ( p_value_to_round => p_entitlements_remaining(i).entitlement
3266: ,p_base_value => g_pt_rounding_precision
3267: ,p_rounding_type => g_pt_entitl_rounding_type
3268: ) ;
3606: l_effective_minpay_end_day := NULL;
3607:
3608: -- Set value for open ended absence no pay days
3609: l_open_ended_no_pay_days :=
3610: PQP_UTILITIES.pqp_get_config_value(
3611: p_business_group_id => p_business_group_id
3612: ,p_legislation_code => 'GB'
3613: ,p_column_name => 'PCV_INFORMATION8'
3614: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
5014: END IF;
5015:
5016: -- Set value for open ended absence no pay days
5017: l_open_ended_no_pay_days :=
5018: PQP_UTILITIES.pqp_get_config_value(
5019: p_business_group_id => p_business_group_id
5020: ,p_legislation_code => 'GB'
5021: ,p_column_name => 'PCV_INFORMATION8'
5022: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
5383: debug(l_proc_name, 12);
5384: END IF;
5385:
5386: g_log_duration_summary :=
5387: PQP_UTILITIES.pqp_get_config_value
5388: ( p_business_group_id => p_business_group_id
5389: ,p_legislation_code => 'GB'
5390: ,p_column_name => 'PCV_INFORMATION10'
5391: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
5708: -- get_absences_taken is direct from it , unlike thru
5709: -- the get_absences_taken_to_date.
5710:
5711: g_deduct_absence_for :=
5712: PQP_UTILITIES.pqp_get_config_value
5713: ( p_business_group_id => p_business_group_id
5714: ,p_legislation_code => 'GB'
5715: ,p_column_name => 'PCV_INFORMATION9'
5716: ,p_information_category => 'PQP_GB_OSP_OMP_CONFIG'
6058:
6059: IF l_contract_type IS NOT NULL THEN
6060:
6061: l_error_code :=
6062: pqp_utilities.pqp_gb_get_table_value
6063: ( p_business_group_id => p_business_group_id
6064: ,p_effective_date => p_effective_date
6065: ,p_table_name => 'PQP_CONTRACT_TYPES'
6066: ,p_column_name => 'Full Time Work Pattern'
6491:
6492: EXCEPTION
6493: WHEN OTHERS THEN
6494: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6495: pqp_utilities.debug_others
6496: (l_proc_name
6497: ,l_proc_step
6498: );
6499: IF g_debug THEN
6668:
6669: EXCEPTION
6670: WHEN OTHERS THEN
6671: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6672: pqp_utilities.debug_others
6673: (l_proc_name
6674: ,l_proc_step
6675: );
6676: IF g_debug THEN
6708: p_entitlements(i).entitlement := (p_entitlements(i).entitlement
6709: * p_current_factor)/p_ft_factor ;
6710:
6711: /* IF p_current_factor>=p_ft_factor THEN
6712: p_entitlements(i).entitlement := pqp_utilities.round_value_up_down
6713: (
6714: p_value_to_round => p_entitlements(i).entitlement
6715: ,p_base_value => 0.5
6716: ,p_rounding_type => 'UPPER'
6715: ,p_base_value => 0.5
6716: ,p_rounding_type => 'UPPER'
6717: ) ;
6718: ELSE
6719: p_entitlements(i).entitlement := pqp_utilities.round_value_up_down
6720: (
6721: p_value_to_round => p_entitlements(i).entitlement
6722: ,p_base_value => 0.5
6723: ,p_rounding_type => 'LOWER'
6737: EXCEPTION
6738: WHEN OTHERS THEN
6739: p_entitlements := l_entitlements_nc ;
6740: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6741: pqp_utilities.debug_others
6742: (l_proc_name
6743: ,l_proc_step
6744: );
6745: IF g_debug THEN