[Home] [Help]
300: /* Get the number of days in the Work Pattern */
301: open c_get_days;
302: fetch c_get_days into l_days_in_wp;
303: hr_utility.trace('get_days_dets:l_days_in_wp:'||
304: fnd_number.number_to_canonical(l_days_in_wp));
305: close c_get_days;
306:
307: /* Find number of days to be added to effective date to get next date on 'Day
308: 01' */
311:
312: l_diff_days := l_days_in_wp - to_number(substr(p_wp_dets.start_day,5,2)) + 1;
313:
314: --hr_utility.trace('get_days_dets:l_diff_days:'||
315: --fnd_number.number_to_canonical(l_diff_days));
316:
317:
318: /* Find the next date that would be 'Day 01' w.r.t. the p_wp_dets record */
319: l_dt_on_day1 := p_wp_dets.effective_start_date + l_diff_days;
325: /* Find difference between calculation start_date and date on 'Day 01' */
326: l_diff_temp := p_calc_stdt - l_dt_on_day1;
327:
328: hr_utility.trace('get_days_dets:l_diff_temp:'||
329: fnd_number.number_to_canonical(l_diff_temp));
330:
331:
332: /* If difference is negative, multiply by -1 to make it positive */
333: l_diff_CalcStDt_DtOnDay1 := l_diff_temp * sign(l_diff_temp);
332: /* If difference is negative, multiply by -1 to make it positive */
333: l_diff_CalcStDt_DtOnDay1 := l_diff_temp * sign(l_diff_temp);
334:
335: --hr_utility.trace('get_days_dets:l_diff_CalcStDt_DtOnDay1:'||
336: --fnd_number.number_to_canonical(l_diff_CalcStDt_DtOnDay1));
337:
338:
339: /* Calculate Day Number on Calculation Start Date */
340: if l_diff_temp < 0
340: if l_diff_temp < 0
341: then
342: l_day_no := l_days_in_wp - l_diff_CalcStDt_DtOnDay1 + 1;
343: --hr_utility.trace('get_days_dets:l_day_no1:'||
344: --fnd_number.number_to_canonical(l_day_no));
345:
346: else
347: l_day_no := mod(l_diff_CalcStDt_DtOnDay1,l_days_in_wp) + 1;
348: --hr_utility.trace('get_days_dets:l_day_no2:'||
345:
346: else
347: l_day_no := mod(l_diff_CalcStDt_DtOnDay1,l_days_in_wp) + 1;
348: --hr_utility.trace('get_days_dets:l_day_no2:'||
349: --fnd_number.number_to_canonical(l_day_no));
350: end if;
351:
352: /* Assign values to be returned */
353:
351:
352: /* Assign values to be returned */
353:
354: hr_utility.trace('get_days_dets:l_day_no:'||
355: fnd_number.number_to_canonical(l_day_no));
356:
357: p_day_no := l_day_no;
358: p_days_in_wp := l_days_in_wp;
359:
909:
910: -- Check for errors
911:
912: hr_utility.trace('l_error_code:'||
913: fnd_number.number_to_canonical(l_error_code));
914: IF l_error_code <> 0 THEN
915: l_retval := 0;
916: ELSE -- No errors, assign the value
917: -- Decide what to return
918: hr_utility.trace('p_dimension:'||p_dimension);
919:
920: IF p_dimension = 'DAYS' THEN
921: hr_utility.trace('l_total_days:'||
922: fnd_number.number_to_canonical(l_total_days));
923: l_retval := l_total_days;
924: ELSIF p_dimension = 'HOURS' THEN
925: hr_utility.trace('l_total_hours:'||
926: fnd_number.number_to_canonical(l_total_hours));
922: fnd_number.number_to_canonical(l_total_days));
923: l_retval := l_total_days;
924: ELSIF p_dimension = 'HOURS' THEN
925: hr_utility.trace('l_total_hours:'||
926: fnd_number.number_to_canonical(l_total_hours));
927: l_retval := l_total_hours;
928: END IF;
929: --
930: p_working_dates := l_working_dates;
939: );
940: END IF;
941: --
942: hr_utility.trace('get_time_worked:l_retval:'||
943: fnd_number.number_to_canonical(l_retval));
944:
945: RETURN l_retval;
946:
947: -- Added by tmehra for nocopy changes Feb'03
1131:
1132: hr_utility.trace('Entered Is Working Day?'||
1133: fnd_date.date_to_canonical(p_date));
1134: hr_utility.trace('p_assignment_id:'||
1135: fnd_number.number_to_canonical(p_assignment_id));
1136: hr_utility.trace('p_override_wp:'||p_override_wp);
1137:
1138: l_days_worked := get_days_worked
1139: (p_assignment_id => p_assignment_id
1151: l_is_working_day := 'Y';
1152: END IF;
1153:
1154: hr_utility.trace('p_assignment_id:'||
1155: fnd_number.number_to_canonical(p_assignment_id));
1156: hr_utility.trace('Leaving Is Working Day?'||
1157: fnd_date.date_to_canonical(p_date));
1158:
1159:
1901: debug(l_proc_name,l_proc_step);
1902: END IF;
1903: l_work_pattern_to_use := l_pqp_assignment_attributes.work_pattern;
1904: l_asg_work_pattern_start_day_n
1905: := fnd_number.canonical_to_number(TRIM(SUBSTR(l_pqp_assignment_attributes.start_day,5,2)));
1906: l_asg_work_pattern_start_date := l_pqp_assignment_attributes.effective_start_date;
1907: ELSE
1908: l_proc_step := 25;
1909: IF g_debug THEN
2006: debug_enter(l_proc_name,40+i/10000);
2007: END IF;
2008:
2009:
2010: l_hours := fnd_number.canonical_to_number(this_day.hours_in_text);
2011:
2012: g_last_max_effective_start_dt
2013: := NVL(GREATEST(this_day.effective_start_date,g_last_max_effective_start_dt)
2014: ,this_day.effective_start_date);
2030: IF g_debug THEN
2031: debug_enter(l_proc_name,40+i/10000);
2032: END IF;
2033: -- l_day := 'Day '||lpad(l_curr_day_no,2,0);
2034: j := fnd_number.canonical_to_number(TRIM(SUBSTR(l_day_NN_name,5,2)));
2035: g_work_pattern_cache(j).hours := l_hours;
2036: END IF;
2037: CLOSE csr_work_pattern_days;
2038: --END IF; -- IF l_hours > 0 THEN