6: g_package_name VARCHAR2(31):= 'pqp_absval_pkg.';
7:
8: g_plan_information rec_plan_information;
9: g_pl_id ben_pl_f.pl_typ_id%TYPE;
10: g_debug BOOLEAN:= hr_utility.debug_enabled;
11: -- Person Absence Aggregation globals
12: g_deduct_absence_for pqp_configuration_values.PCV_INFORMATION9%TYPE;
13:
14: -- Cache for rounding of factors
415:
416: RETURN l_scheme_start_date;
417: EXCEPTION
418: WHEN OTHERS THEN
419: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
420: debug_others(l_proc_name,l_proc_step);
421: IF g_debug THEN
422: debug('Leaving: '||l_proc_name,-999);
423: END IF;
631: l_proc_step NUMBER(20,10) ;
632: i BINARY_INTEGER;
633:
634: BEGIN
635: g_debug := hr_utility.debug_enabled;
636:
637: IF g_debug THEN
638: debug_enter(l_proc_name);
639: END IF;
698: END IF ;
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: );
728: l_pay_summary_existing_rows pqp_absval_pkg.t_gap_level ;
729: l_duration_summary pqp_absval_pkg.t_duration_summary ;
730:
731: BEGIN
732: g_debug := hr_utility.debug_enabled;
733:
734: IF g_debug THEN
735: debug_enter(l_proc_name);
736: debug('p_gap_absence_plan_id:',p_gap_absence_plan_id);
802:
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: );
833: l_pay_summary_existing_rows pqp_absval_pkg.t_gap_level ;
834: l_duration_summary pqp_absval_pkg.t_duration_summary ;
835:
836: BEGIN
837: g_debug := hr_utility.debug_enabled;
838:
839: IF g_debug THEN
840: debug_enter(l_proc_name);
841: debug('p_gap_absence_plan_id:',p_gap_absence_plan_id);
995:
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: );
1027: l_proc_name VARCHAR2(61) := g_package_name||'write_absence_summary';
1028: l_proc_step NUMBER(20,10) ;
1029:
1030: BEGIN
1031: g_debug := hr_utility.debug_enabled;
1032:
1033: IF g_debug THEN
1034: debug_enter(l_proc_name);
1035: debug('p_gap_absence_plan_id:',p_gap_absence_plan_id);
1057:
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: );
1106: l_gap_dur_sum_rows csr_gap_dur_sum_rows%ROWTYPE;
1107:
1108: BEGIN
1109:
1110: g_debug := hr_utility.debug_enabled;
1111:
1112: IF g_debug THEN
1113: debug_enter(l_proc_name);
1114: debug(p_assignment_id);
1268: END IF;
1269:
1270: EXCEPTION
1271: WHEN OTHERS THEN
1272: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
1273: debug_others(l_proc_name,l_proc_step);
1274: IF g_debug THEN
1275: debug('Leaving: '||l_proc_name,-999);
1276: END IF;
1616: END IF;
1617:
1618: IF p_plan_information.default_work_pattern_name IS NULL
1619: THEN
1620: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
1621: hr_utility.raise_error ;
1622: END IF;
1623:
1624: END IF;
1617:
1618: IF p_plan_information.default_work_pattern_name IS NULL
1619: THEN
1620: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
1621: hr_utility.raise_error ;
1622: END IF;
1623:
1624: END IF;
1625:
1932: END IF;
1933:
1934: IF p_plan_information.default_work_pattern_name IS NULL
1935: THEN
1936: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
1937: hr_utility.raise_error ;
1938: END IF;
1939:
1940:
1933:
1934: IF p_plan_information.default_work_pattern_name IS NULL
1935: THEN
1936: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
1937: hr_utility.raise_error ;
1938: END IF;
1939:
1940:
1941: END IF;
2008: END IF;
2009:
2010: EXCEPTION
2011: WHEN OTHERS THEN
2012: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
2013: debug_others
2014: (l_proc_name
2015: ,l_proc_step
2016: );
2057: END LOOP;
2058:
2059: EXCEPTION
2060: WHEN OTHERS THEN
2061: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
2062: debug_others
2063: (l_proc_name
2064: ,l_proc_step
2065: );
2151: WHEN OTHERS THEN
2152: p_part_start_day := NULL;
2153: p_part_end_day := NULL;
2154: p_part_day_UOM := NULL;
2155: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
2156: debug_others
2157: (l_proc_name
2158: ,l_proc_step
2159: );
2385: --RETURN l_error_code;
2386:
2387: EXCEPTION
2388: WHEN OTHERS THEN
2389: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
2390: debug_others
2391: (l_proc_name
2392: ,l_proc_step
2393: );
2508: -- if the rule is FC...return date start
2509:
2510: EXCEPTION
2511: WHEN OTHERS THEN
2512: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
2513: debug_others
2514: (l_proc_name
2515: ,l_proc_step
2516: );
3056: --RETURN l_error_code;
3057:
3058: EXCEPTION
3059: WHEN OTHERS THEN
3060: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
3061: debug_others
3062: (l_proc_name
3063: ,l_proc_step
3064: );
3325: --RETURN l_error_code;
3326:
3327: EXCEPTION
3328: WHEN OTHERS THEN
3329: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
3330: debug_others
3331: (l_proc_name
3332: ,l_proc_step
3333: );
3412: END IF;
3413:
3414: EXCEPTION
3415: WHEN OTHERS THEN
3416: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
3417: debug_others
3418: (l_proc_name
3419: ,l_proc_step
3420: );
3538: l_open_ended_no_pay_days NUMBER;
3539: l_override_wp pay_user_columns.user_column_name%TYPE;
3540: l_is_assignment_wp BOOLEAN ;
3541: BEGIN
3542: g_debug := hr_utility.debug_enabled;
3543: l_is_assignment_wp := p_is_assignment_wp ;
3544:
3545: IF g_debug THEN
3546: debug_enter(l_proc_name);
4851:
4852: EXCEPTION
4853: WHEN OTHERS THEN
4854: p_entitlements_remaining := l_entitlements_remaining_nc;
4855: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
4856: debug_others
4857: (l_proc_name
4858: ,l_proc_step
4859: );
4906: l_part_day_UOM per_absence_attendances.abs_information3%TYPE;
4907: BEGIN
4908:
4909:
4910: g_debug := hr_utility.debug_enabled;
4911:
4912: IF g_debug THEN
4913: debug_enter(l_proc_name);
4914: debug(p_assignment_id);
5258: --END IF; -- IF p_absence_date_start IS NOT NULL THEN -- ie absence not deleted
5259:
5260: EXCEPTION
5261: WHEN OTHERS THEN
5262: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
5263: debug_others
5264: (l_proc_name
5265: ,l_proc_step
5266: );
5354: l_is_assignment_wp BOOLEAN;
5355:
5356: BEGIN
5357:
5358: g_debug := hr_utility.debug_enabled;
5359:
5360: IF g_debug THEN
5361: debug_enter(l_proc_name);
5362: debug(p_assignment_id);
5991:
5992:
5993: EXCEPTION
5994: WHEN OTHERS THEN
5995: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
5996: debug_others
5997: (l_proc_name
5998: ,l_proc_step
5999: );
6033:
6034:
6035: BEGIN
6036:
6037: g_debug := hr_utility.debug_enabled;
6038:
6039: l_proc_Step := 10 ;
6040: IF g_debug THEN
6041: debug_enter(l_proc_name);
6081:
6082: RETURN l_contract_level_wp ;
6083: EXCEPTION
6084: WHEN OTHERS THEN
6085: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6086: debug_others
6087: (l_proc_name
6088: ,l_proc_step
6089: );
6112: l_standard_ft_work_pattern pqp_assignment_attributes_f.work_pattern%TYPE ;
6113:
6114: BEGIN
6115:
6116: g_debug := hr_utility.debug_enabled;
6117:
6118: l_proc_step := 10 ;
6119: IF g_debug THEN
6120: debug_enter(l_proc_name);
6147: IF p_entitlement_uom <> 'H' THEN
6148: l_standard_ft_work_pattern := 'PQP_MON_FRI_8_HOURS';
6149: ELSE
6150: -- Raise Error.
6151: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
6152: hr_utility.raise_error ;
6153: END IF ;
6154: END IF ;
6155:
6148: l_standard_ft_work_pattern := 'PQP_MON_FRI_8_HOURS';
6149: ELSE
6150: -- Raise Error.
6151: hr_utility.set_message(8303, 'PQP_230000_INVALID_WORK_PAT');
6152: hr_utility.raise_error ;
6153: END IF ;
6154: END IF ;
6155:
6156: l_proc_step := 50 ;
6163:
6164: EXCEPTION
6165: WHEN OTHERS THEN
6166: p_contract_wp := NULL ;
6167: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6168: debug_others
6169: (l_proc_name
6170: ,l_proc_step
6171: );
6190: l_standard_ft_work_pattern pqp_assignment_attributes_f.work_pattern%TYPE ;
6191: l_average_days_per_week NUMBER ;
6192: BEGIN
6193:
6194: g_debug := hr_utility.debug_enabled;
6195:
6196: l_proc_step := 10 ;
6197: IF g_debug THEN
6198: debug_enter(l_proc_name);
6229:
6230:
6231: EXCEPTION
6232: WHEN OTHERS THEN
6233: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6234: debug_others
6235: (l_proc_name
6236: ,l_proc_step
6237: );
6260:
6261:
6262: BEGIN
6263:
6264: g_debug := hr_utility.debug_enabled;
6265:
6266: l_proc_step := 10 ;
6267: IF g_debug THEN
6268: debug_enter(l_proc_name);
6295: RETURN l_assignment_work_pattern ;
6296:
6297: EXCEPTION
6298: WHEN OTHERS THEN
6299: IF SQLCODE <> hr_utility.HR_ERROR_NUMBER THEN
6300: debug_others
6301: (l_proc_name
6302: ,l_proc_step
6303: );
6401:
6402: l_pl_typ_id ben_pl_f.pl_typ_id%TYPE ;
6403: BEGIN
6404:
6405: g_debug := hr_utility.debug_enabled;
6406:
6407: IF g_debug THEN
6408: debug_enter(l_proc_name);
6409: debug('p_period_start_date:'||p_period_start_date);
6490: RETURN NVL(l_tot_no_pay_days,0) ;
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: );
6540: l_current_factor NUMBER ;
6541: l_ft_factor NUMBER ;
6542: BEGIN
6543:
6544: g_debug := hr_utility.debug_enabled;
6545:
6546: IF g_debug THEN
6547: debug_enter(l_proc_name);
6548: debug('p_assignment_id:'||p_assignment_id);
6667: END IF ;
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: );
6692: l_entitlements_nc pqp_absval_pkg.t_entitlements ;
6693: i NUMBER ;
6694:
6695: BEGIN
6696: g_debug := hr_utility.debug_enabled;
6697:
6698: IF g_debug THEN
6699: debug_enter(l_proc_name);
6700: debug('p_current_factor:'||p_current_factor);
6736:
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: );