[Home] [Help]
39: --
40: --
41: BEGIN
42:
43: hr_utility.set_location('Entering ...' || l_proc,10);
44:
45: IF p_prd IN ('A','B','E','F','U','V') THEN
46: begin
47: hr_utility.set_location('Retained Grade ...' || l_proc,20);
43: hr_utility.set_location('Entering ...' || l_proc,10);
44:
45: IF p_prd IN ('A','B','E','F','U','V') THEN
46: begin
47: hr_utility.set_location('Retained Grade ...' || l_proc,20);
48:
49: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (p_person_id
50: ,p_effective_date
51: ,p_pa_request_id);
58:
59: l_user_table_id := l_pos_ei_data.poei_information5;
60: ELSE
61: l_user_table_id := l_retained_grade.user_table_id;
62: hr_utility.set_location(' Retained user table id ' || to_char(l_user_table_id),22);
63: END IF;
64: exception
65: when others then
66: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
62: hr_utility.set_location(' Retained user table id ' || to_char(l_user_table_id),22);
63: END IF;
64: exception
65: when others then
66: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
67: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
68: hr_utility.raise_error;
69: end;
70:
63: END IF;
64: exception
65: when others then
66: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
67: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
68: hr_utility.raise_error;
69: end;
70:
71: ELSE
64: exception
65: when others then
66: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
67: hr_utility.set_message(8301,'GHR_38255_MISSING_RETAINED_DET');
68: hr_utility.raise_error;
69: end;
70:
71: ELSE
72: hr_utility.set_location('Non Retained Grade ...' || l_proc,30);
68: hr_utility.raise_error;
69: end;
70:
71: ELSE
72: hr_utility.set_location('Non Retained Grade ...' || l_proc,30);
73: ghr_history_fetch.fetch_positionei(
74: p_position_id => p_position_id
75: ,p_information_type => 'GHR_US_POS_VALID_GRADE'
76: ,p_date_effective => p_effective_date
76: ,p_date_effective => p_effective_date
77: ,p_pos_ei_data => l_pos_ei_data);
78:
79: l_user_table_id := l_pos_ei_data.poei_information5;
80: hr_utility.set_location('Non Retained user table id ' || to_char(l_user_table_id),32);
81:
82: END IF;
83: --
84: /***
173: BEGIN
174: -- If 'Correction' then use second NOA
175: IF p_first_noa_code = '002' THEN
176: IF p_pa_request_id IS NULL THEN
177: hr_utility.set_message(8301,'GHR_38398_PAY_CALC_NO_PAR_ID');
178: raise pay_calc_message;
179: END IF;
180: ghr_corr_canc_sf52.build_corrected_sf52
181: (p_pa_request_id => p_pa_request_id
297: BEGIN
298: -- Must have a person
299: IF p_pay_calc_data.person_id IS NULL THEN
300: ghr_pay_calc.form_item_name := 'PAR.EMPLOYEE_LAST_NAME';
301: hr_utility.set_message(8301,'GHR_38244_PAY_CALC_NO_PER');
302: raise pay_calc_message;
303: END IF;
304:
305: -- Must have a position -- well that is kinda obvious!!!
304:
305: -- Must have a position -- well that is kinda obvious!!!
306: IF p_pay_calc_data.position_id IS NULL THEN
307: ghr_pay_calc.form_item_name := 'PAR.TO_POSITION_TITLE';
308: hr_utility.set_message(8301,'GHR_38016_PAY_CALC_NO_POS');
309: raise pay_calc_message;
310: END IF;
311:
312: -- 774633 Now we have a position id check it is valid at given date
313: FOR c_chk_pos_rec IN c_chk_pos LOOP
314: l_ret_val := TRUE;
315: END LOOP;
316: IF NOT l_ret_val THEN
317: hr_utility.set_message(8301,'GHR_38640_PAY_CALC_INV_POS');
318: raise pay_calc_message;
319: END IF;
320:
321: -- Must have a family (e.g 'APP', 'SALARY_CHG')
319: END IF;
320:
321: -- Must have a family (e.g 'APP', 'SALARY_CHG')
322: IF p_pay_calc_data.noa_family_code IS NULL THEN
323: hr_utility.set_message(8301,'GHR_38245_PAY_CALC_NO_FAM');
324: raise pay_calc_message;
325: END IF;
326:
327: -- Must have a noa if the family is 'SALARY_CHG'
328: IF SUBSTR(p_pay_calc_data.noa_family_code ,1,8) = 'GHR_SAL_'
329: -- IF p_pay_calc_data.noa_family_code = 'SALARY_CHG'
330: AND p_pay_calc_data.noa_code IS NULL THEN
331: ghr_pay_calc.form_item_name := 'PAR.FIRST_NOA_CODE';
332: hr_utility.set_message(8301,'GHR_38246_PAY_CALC_NO_NOA');
333: raise pay_calc_message;
334: END IF;
335:
336: -- No need to check for effective date since it will already have been
338:
339: -- Must have a pay rate determinant (e.g 0,5,6,7)
340: IF p_pay_calc_data.pay_rate_determinant IS NULL THEN
341: ghr_pay_calc.form_item_name := 'PAR.PAY_RATE_DETERMINANT';
342: hr_utility.set_message(8301,'GHR_38021_PAY_CALC_NO_PRD');
343: raise pay_calc_message;
344: END IF;
345:
346: -- Must have a pay plan (e.g GG,GS) which is associated to the position
344: END IF;
345:
346: -- Must have a pay plan (e.g GG,GS) which is associated to the position
347: IF p_pay_calc_data.pay_plan IS NULL THEN
348: hr_utility.set_message(8301,'GHR_38017_PAY_CALC_NO_PAY_PLAN');
349: raise pay_calc_message;
350: END IF;
351:
352: -- Must have a grade_or_level (e.g 01,02) which is associated to the position
350: END IF;
351:
352: -- Must have a grade_or_level (e.g 01,02) which is associated to the position
353: IF p_pay_calc_data.grade_or_level IS NULL THEN
354: hr_utility.set_message(8301,'GHR_38018_PAY_CALC_NO_GRADE');
355: raise pay_calc_message;
356: END IF;
357:
358: -- Must have a step_or_rate (e.g 01,02) which is associated to the position
357:
358: -- Must have a step_or_rate (e.g 01,02) which is associated to the position
359: IF p_pay_calc_data.step_or_rate IS NULL THEN
360: ghr_pay_calc.form_item_name := 'PAR.TO_STEP_OR_RATE';
361: hr_utility.set_message(8301,'GHR_38019_PAY_CALC_NO_STEP');
362: raise pay_calc_message;
363: END IF;
364:
365: -- Must have a pay_basis (e.g PA,PH) which is associated to the position
363: END IF;
364:
365: -- Must have a pay_basis (e.g PA,PH) which is associated to the position
366: IF p_pay_calc_data.pay_basis IS NULL THEN
367: hr_utility.set_message(8301,'GHR_38020_PAY_CALC_NO_PAY_BAS');
368: raise pay_calc_message;
369: END IF;
370:
371: -- Must have a pay table id (e.g 0000,0013) which is associated to the position
370:
371: -- Must have a pay table id (e.g 0000,0013) which is associated to the position
372: -- we actually store the unique id of the plan table id which is the user_table_id
373: IF p_pay_calc_data.user_table_id IS NULL THEN
374: hr_utility.set_message(8301, 'GHR_38175_NO_POS_PLAN_TABLE');
375: raise pay_calc_message;
376: END IF;
377:
378: -- IF NOA CODE = 891
379: -- 1) must have a current_basic_pay
380: -- 2) must be for a pay plan of GM
381: IF p_pay_calc_data.noa_code = '891' THEN
382: IF p_pay_calc_data.current_basic_pay IS NULL THEN
383: hr_utility.set_message(8301, 'GHR_38247_NO_CUR_BASIC_PAY_891');
384: raise pay_calc_message;
385: END IF;
386: END IF;
387:
390: -- For PRD of M must also have current_adj_basic_pay
391: IF p_pay_calc_data.noa_code IN ('867', '892', '893' ) THEN
392: IF p_pay_calc_data.pay_rate_determinant IN ('0','6','M')
393: AND p_pay_calc_data.current_step_or_rate IS NULL THEN
394: hr_utility.set_message(8301, 'GHR_38249_NO_CUR_STEP');
395: raise pay_calc_message;
396: END IF;
397: IF p_pay_calc_data.pay_rate_determinant = 'M'
398: AND p_pay_calc_data.current_adj_basic_pay IS NULL THEN
395: raise pay_calc_message;
396: END IF;
397: IF p_pay_calc_data.pay_rate_determinant = 'M'
398: AND p_pay_calc_data.current_adj_basic_pay IS NULL THEN
399: hr_utility.set_message(8301, 'GHR_38250_NO_CUR_ADJ_PAY_WGI');
400: raise pay_calc_message;
401: END IF;
402: END IF;
403:
403:
404: -- IF NOA CODE = 866 - must have a pa_request_id
405: IF p_pay_calc_data.noa_code = '866' THEN
406: IF p_pay_calc_data.pa_request_id IS NULL THEN
407: hr_utility.set_message(8301, 'GHR_38482_866_NO_PAR_ID');
408: raise pay_calc_message;
409: END IF;
410: END IF;
411:
475: END IF;
476: --
477: -- If we got here sorry do not know how to convert this amount!!
478: --
479: hr_utility.set_message(8301, 'GHR_38251_NO_CONVERSION');
480: hr_utility.set_message_token('FROM_PAY_BASIS',p_in_pay_basis);
481: hr_utility.set_message_token('TO_PAY_BASIS',p_out_pay_basis);
482: raise ghr_pay_calc.pay_calc_message;
483: END;
476: --
477: -- If we got here sorry do not know how to convert this amount!!
478: --
479: hr_utility.set_message(8301, 'GHR_38251_NO_CONVERSION');
480: hr_utility.set_message_token('FROM_PAY_BASIS',p_in_pay_basis);
481: hr_utility.set_message_token('TO_PAY_BASIS',p_out_pay_basis);
482: raise ghr_pay_calc.pay_calc_message;
483: END;
484: --
477: -- If we got here sorry do not know how to convert this amount!!
478: --
479: hr_utility.set_message(8301, 'GHR_38251_NO_CONVERSION');
480: hr_utility.set_message_token('FROM_PAY_BASIS',p_in_pay_basis);
481: hr_utility.set_message_token('TO_PAY_BASIS',p_out_pay_basis);
482: raise ghr_pay_calc.pay_calc_message;
483: END;
484: --
485: ---------------------------
642: ghr_history_api.get_g_session_var(l_session); -- Bug 3021003
643: -----------If an Intervening cancellation has been done, Need to take previous Step or rate
644: IF l_session.noa_id_correct IS NOT NULL THEN
645: -- Get notification id and step from RPA
646: hr_utility.set_location('Sun l_session.altered_pa_request_id' || l_session.altered_pa_request_id,10);
647: FOR l_get_rpa_details IN c_get_rpa_details(l_session.altered_pa_request_id) LOOP
648: l_pa_notification_id := l_get_rpa_details.pa_notification_id;
649: l_to_step_or_rate := l_get_rpa_details.to_step_or_rate;
650: END LOOP;
660: p_retro_pa_request_id => l_retro_pa_request_id,
661: p_retro_eff_date => l_ia_effective_date,
662: p_retro_first_noa => l_ia_retro_first_noa,
663: p_retro_second_noa => l_ia_retro_second_noa);
664: hr_utility.set_location('Sun l_ia_retro_first_noa' || l_ia_retro_first_noa,10);
665: hr_utility.set_location('Sun l_ia_retro_second_noa' || l_ia_retro_second_noa,10);
666: IF l_ia_retro_first_noa = '001' AND l_ia_retro_second_noa IN ('867','892','893','894') THEN
667: l_effective_date := p_effective_date - 1;
668: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details
661: p_retro_eff_date => l_ia_effective_date,
662: p_retro_first_noa => l_ia_retro_first_noa,
663: p_retro_second_noa => l_ia_retro_second_noa);
664: hr_utility.set_location('Sun l_ia_retro_first_noa' || l_ia_retro_first_noa,10);
665: hr_utility.set_location('Sun l_ia_retro_second_noa' || l_ia_retro_second_noa,10);
666: IF l_ia_retro_first_noa = '001' AND l_ia_retro_second_noa IN ('867','892','893','894') THEN
667: l_effective_date := p_effective_date - 1;
668: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details
669: (p_person_id => p_person_id
693: IF p_temp_step IS NULL THEN
694: IF p_retained_pay_plan = l_retained_grade_rec.pay_plan AND
695: p_retained_grade = l_retained_grade_rec.grade_or_level AND
696: p_retained_step_or_rate = l_retained_grade_rec.step_or_rate THEN
697: hr_utility.set_location('NAR Inside true',100);
698: l_true_or_false := TRUE;
699: -- EXIT;
700: ELSE
701: l_true_or_false := FALSE;
698: l_true_or_false := TRUE;
699: -- EXIT;
700: ELSE
701: l_true_or_false := FALSE;
702: hr_utility.set_location('NAR Inside false',110);
703: END IF;
704: ELSE
705: IF p_retained_pay_plan = l_retained_grade_rec.pay_plan AND
706: p_retained_grade = l_retained_grade_rec.grade_or_level AND
705: IF p_retained_pay_plan = l_retained_grade_rec.pay_plan AND
706: p_retained_grade = l_retained_grade_rec.grade_or_level AND
707: p_retained_step_or_rate = l_retained_grade_rec.step_or_rate AND
708: p_temp_step = l_retained_grade_rec.temp_step THEN
709: hr_utility.set_location('NAR Inside true',100);
710: l_true_or_false := TRUE;
711: -- EXIT;
712: ELSE
713: l_true_or_false := FALSE;
710: l_true_or_false := TRUE;
711: -- EXIT;
712: ELSE
713: l_true_or_false := FALSE;
714: hr_utility.set_location('NAR Inside false',110);
715: END IF;
716: END IF;
717: END IF; -- IF l_true_or_false = FALSE THEN
718: p_return_flag := l_true_or_false;
717: END IF; -- IF l_true_or_false = FALSE THEN
718: p_return_flag := l_true_or_false;
719: EXCEPTION
720: WHEN OTHERS THEN
721: hr_utility.set_location('Error '|| sqlerrm,60);
722: p_retained_pay_plan := l_retained_pay_plan;
723: p_retained_grade := l_retained_grade;
724: p_retained_step_or_rate := l_retained_step_or_rate;
725: p_temp_step := l_temp_step;
769: l_record_found := TRUE;
770: --
771: IF l_PT_value IS NULL THEN
772: -- Sets to give name of pay table, pay plan, grade, step and date
773: hr_utility.set_message(8301,'GHR_38252_NULL_PAY_PLAN_VALUE');
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
770: --
771: IF l_PT_value IS NULL THEN
772: -- Sets to give name of pay table, pay plan, grade, step and date
773: hr_utility.set_message(8301,'GHR_38252_NULL_PAY_PLAN_VALUE');
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
771: IF l_PT_value IS NULL THEN
772: -- Sets to give name of pay table, pay plan, grade, step and date
773: hr_utility.set_message(8301,'GHR_38252_NULL_PAY_PLAN_VALUE');
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
779: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
772: -- Sets to give name of pay table, pay plan, grade, step and date
773: hr_utility.set_message(8301,'GHR_38252_NULL_PAY_PLAN_VALUE');
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
779: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
780: raise pay_calc_message;
773: hr_utility.set_message(8301,'GHR_38252_NULL_PAY_PLAN_VALUE');
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
779: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
780: raise pay_calc_message;
781: END IF;
774: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id) );
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
779: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
780: raise pay_calc_message;
781: END IF;
782: --
775: hr_utility.set_message_token('STEP',p_step_or_rate);
776: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
777: hr_utility.set_message_token('GRADE',p_grade_or_level);
778: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
779: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
780: raise pay_calc_message;
781: END IF;
782: --
783: END LOOP;
783: END LOOP;
784: --
785: IF NOT l_record_found THEN
786: -- Set tokens to give name of pay table, pay plan, grade, step and date
787: hr_utility.set_message(8301,'GHR_38253_NO_PAY_PLAN_VALUE');
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
784: --
785: IF NOT l_record_found THEN
786: -- Set tokens to give name of pay table, pay plan, grade, step and date
787: hr_utility.set_message(8301,'GHR_38253_NO_PAY_PLAN_VALUE');
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
785: IF NOT l_record_found THEN
786: -- Set tokens to give name of pay table, pay plan, grade, step and date
787: hr_utility.set_message(8301,'GHR_38253_NO_PAY_PLAN_VALUE');
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
793: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
786: -- Set tokens to give name of pay table, pay plan, grade, step and date
787: hr_utility.set_message(8301,'GHR_38253_NO_PAY_PLAN_VALUE');
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
793: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
794: raise ghr_pay_calc.pay_calc_message;
787: hr_utility.set_message(8301,'GHR_38253_NO_PAY_PLAN_VALUE');
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
793: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
794: raise ghr_pay_calc.pay_calc_message;
795: ELSE
788: hr_utility.set_message_token('PAY_TABLE_NAME',get_user_table_name(p_user_table_id));
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
793: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
794: raise ghr_pay_calc.pay_calc_message;
795: ELSE
796: p_PT_value := l_PT_value;
789: hr_utility.set_message_token('STEP',p_step_or_rate);
790: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
791: hr_utility.set_message_token('GRADE',p_grade_or_level);
792: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
793: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
794: raise ghr_pay_calc.pay_calc_message;
795: ELSE
796: p_PT_value := l_PT_value;
797: p_PT_eff_start_date := l_PT_eff_start_date;
838: l_pay_plan_value := ROUND(cur_default_pay_rec.basic_pay,2);
839: l_record_found := TRUE;
840: IF l_pay_plan_value IS NULL THEN
841: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
842: hr_utility.set_message(8301, 'GHR_38252_NULL_PAY_PLAN_VALUE');
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
839: l_record_found := TRUE;
840: IF l_pay_plan_value IS NULL THEN
841: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
842: hr_utility.set_message(8301, 'GHR_38252_NULL_PAY_PLAN_VALUE');
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
840: IF l_pay_plan_value IS NULL THEN
841: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
842: hr_utility.set_message(8301, 'GHR_38252_NULL_PAY_PLAN_VALUE');
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
848: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
841: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
842: hr_utility.set_message(8301, 'GHR_38252_NULL_PAY_PLAN_VALUE');
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
848: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
849: raise pay_calc_message;
842: hr_utility.set_message(8301, 'GHR_38252_NULL_PAY_PLAN_VALUE');
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
848: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
849: raise pay_calc_message;
850: END IF;
843: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name );
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
848: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
849: raise pay_calc_message;
850: END IF;
851: END LOOP;
844: hr_utility.set_message_token('STEP',p_step_or_rate);
845: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
846: hr_utility.set_message_token('GRADE',p_grade_or_level);
847: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
848: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
849: raise pay_calc_message;
850: END IF;
851: END LOOP;
852: --
851: END LOOP;
852: --
853: IF NOT l_record_found THEN
854: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
855: hr_utility.set_message(8301, 'GHR_38253_NO_PAY_PLAN_VALUE');
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
852: --
853: IF NOT l_record_found THEN
854: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
855: hr_utility.set_message(8301, 'GHR_38253_NO_PAY_PLAN_VALUE');
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
853: IF NOT l_record_found THEN
854: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
855: hr_utility.set_message(8301, 'GHR_38253_NO_PAY_PLAN_VALUE');
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
861: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
854: -- Set tokens to give name of pay table(standard), pay plan, grade, step and date
855: hr_utility.set_message(8301, 'GHR_38253_NO_PAY_PLAN_VALUE');
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
861: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
862: raise pay_calc_message;
855: hr_utility.set_message(8301, 'GHR_38253_NO_PAY_PLAN_VALUE');
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
861: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
862: raise pay_calc_message;
863: ELSE
856: hr_utility.set_message_token('PAY_TABLE_NAME',ghr_pay_calc.l_standard_table_name);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
861: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
862: raise pay_calc_message;
863: ELSE
864: RETURN(l_pay_plan_value);
857: hr_utility.set_message_token('STEP',p_step_or_rate);
858: hr_utility.set_message_token('PAY_PLAN',p_pay_plan);
859: hr_utility.set_message_token('GRADE',p_grade_or_level);
860: -- hr_utility.set_message_token('EFF_DATE',TO_CHAR(p_effective_date,'DD-MON-YYYY') );
861: hr_utility.set_message_token('EFF_DATE',fnd_date.date_to_chardate(p_effective_date));
862: raise pay_calc_message;
863: ELSE
864: RETURN(l_pay_plan_value);
865: END IF;
1125: IF (l_pay_plan IN ( 'GS','GL','GM') AND p_pay_calc_data.noa_code = '894'
1126: AND p_pay_calc_data.pay_rate_determinant = 'M') THEN
1127: IF l_pay_plan = 'GS' THEN
1128:
1129: hr_utility.set_location('In Entering ...'|| l_proc,5);
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1126: AND p_pay_calc_data.pay_rate_determinant = 'M') THEN
1127: IF l_pay_plan = 'GS' THEN
1128:
1129: hr_utility.set_location('In Entering ...'|| l_proc,5);
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1127: IF l_pay_plan = 'GS' THEN
1128:
1129: hr_utility.set_location('In Entering ...'|| l_proc,5);
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1128:
1129: hr_utility.set_location('In Entering ...'|| l_proc,5);
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1136: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1129: hr_utility.set_location('In Entering ...'|| l_proc,5);
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1136: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1137: get_locality_adj_894_PRDM_GS
1130: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1136: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1137: get_locality_adj_894_PRDM_GS
1138: (p_user_table_id => p_pay_calc_data.user_table_id
1131: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1136: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1137: get_locality_adj_894_PRDM_GS
1138: (p_user_table_id => p_pay_calc_data.user_table_id
1139: ,p_pay_plan => l_pay_plan
1132: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1133: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1134: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1135: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1136: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1137: get_locality_adj_894_PRDM_GS
1138: (p_user_table_id => p_pay_calc_data.user_table_id
1139: ,p_pay_plan => l_pay_plan
1140: ,p_grade_or_level => l_grade_or_level
1251: ,p_pay_calc_data.position_id
1252: ,l_dummy
1253: ,l_dummy
1254: ,p_pay_calc_data.effective_date) THEN
1255: hr_utility.set_location('AB p_pay_calc_data.pay_rate_determinant ' || p_pay_calc_data.pay_rate_determinant,99);
1256: FOR c_rec IN c_user_table_id(ghr_pay_calc.l_standard_table_name) LOOP
1257: l_std_user_table_id := c_rec.user_table_id;
1258: END LOOP;
1259: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1255: hr_utility.set_location('AB p_pay_calc_data.pay_rate_determinant ' || p_pay_calc_data.pay_rate_determinant,99);
1256: FOR c_rec IN c_user_table_id(ghr_pay_calc.l_standard_table_name) LOOP
1257: l_std_user_table_id := c_rec.user_table_id;
1258: END LOOP;
1259: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1260: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1261: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1262: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1263: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1257: l_std_user_table_id := c_rec.user_table_id;
1258: END LOOP;
1259: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1260: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1261: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1262: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1263: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1264: get_pay_table_value(l_std_user_table_id
1265: ,l_pay_plan
1259: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1260: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1261: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1262: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1263: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1264: get_pay_table_value(l_std_user_table_id
1265: ,l_pay_plan
1266: ,p_pay_calc_data.grade_or_level
1267: ,l_new_step_or_rate
1269: ,l_std_basic_pay
1270: ,l_dummy_date
1271: ,l_dummy_date);
1272: ELSE
1273: hr_utility.set_location('AB l_retained_grade.grade_or_level ' || l_retained_grade.grade_or_level,99);
1274: hr_utility.set_location('AB l_retained_grade.step_or_rate ' || l_retained_grade.step_or_rate,99);
1275: IF p_pay_calc_data.noa_code IN ('867','892','893') THEN
1276: IF l_session.noa_id_correct is not null then
1277: IF l_retained_grade.temp_step is not null then
1270: ,l_dummy_date
1271: ,l_dummy_date);
1272: ELSE
1273: hr_utility.set_location('AB l_retained_grade.grade_or_level ' || l_retained_grade.grade_or_level,99);
1274: hr_utility.set_location('AB l_retained_grade.step_or_rate ' || l_retained_grade.step_or_rate,99);
1275: IF p_pay_calc_data.noa_code IN ('867','892','893') THEN
1276: IF l_session.noa_id_correct is not null then
1277: IF l_retained_grade.temp_step is not null then
1278: is_retained_ia(p_pay_calc_data.person_id,
1311: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan
1312: ,p_retained_grade.step_or_rate);
1313: END IF;
1314: END IF;
1315: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1316: ELSE
1317: IF p_retained_grade.temp_step is not null THEN
1318: l_new_step_or_rate := p_retained_grade.temp_step;
1319: ELSE
1328: ,l_std_basic_pay
1329: ,l_dummy_date
1330: ,l_dummy_date);
1331: END IF;
1332: hr_utility.set_location('AB l_std_basic_pay ' || l_std_basic_pay,99);
1333: l_adjustment_percentage := ghr_pay_calc.get_leo_lpa_percentage
1334: (p_pay_calc_data.duty_station_id
1335: ,p_pay_calc_data.effective_date);
1336: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1332: hr_utility.set_location('AB l_std_basic_pay ' || l_std_basic_pay,99);
1333: l_adjustment_percentage := ghr_pay_calc.get_leo_lpa_percentage
1334: (p_pay_calc_data.duty_station_id
1335: ,p_pay_calc_data.effective_date);
1336: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1337: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1338: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1339: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1340: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1335: ,p_pay_calc_data.effective_date);
1336: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1337: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1338: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1339: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1340: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1341: IF p_pay_calc_out_data.basic_pay > l_loc_rate THEN
1342: l_locality_adj := 0;
1343: p_pay_calc_out_data.adj_basic_pay := p_pay_calc_out_data.basic_pay;
1336: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1337: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1338: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1339: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1340: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1341: IF p_pay_calc_out_data.basic_pay > l_loc_rate THEN
1342: l_locality_adj := 0;
1343: p_pay_calc_out_data.adj_basic_pay := p_pay_calc_out_data.basic_pay;
1344: ELSE
1345: p_pay_calc_out_data.adj_basic_pay := l_loc_rate;
1346: l_locality_adj := l_loc_rate - p_pay_calc_out_data.basic_pay;
1347: END IF;
1348: p_pay_calc_out_data.locality_adj := l_locality_adj;
1349: hr_utility.set_location('AB p_pay_calc_out_data.locality_adj ' || p_pay_calc_out_data.locality_adj,99);
1350: hr_utility.set_location('AB p_pay_calc_out_data.adj_basic_pay ' || p_pay_calc_out_data.adj_basic_pay,99);
1351:
1352: --Bug 4740036 End
1353:
1346: l_locality_adj := l_loc_rate - p_pay_calc_out_data.basic_pay;
1347: END IF;
1348: p_pay_calc_out_data.locality_adj := l_locality_adj;
1349: hr_utility.set_location('AB p_pay_calc_out_data.locality_adj ' || p_pay_calc_out_data.locality_adj,99);
1350: hr_utility.set_location('AB p_pay_calc_out_data.adj_basic_pay ' || p_pay_calc_out_data.adj_basic_pay,99);
1351:
1352: --Bug 4740036 End
1353:
1354: ELSE
1428: l_retained_grade.step_or_rate,
1429: l_retained_grade.temp_step,
1430: l_ret_flag);
1431: IF l_ret_flag = TRUE then
1432: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1433: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1434: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1435: ,l_retained_grade.temp_step);
1436: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1429: l_retained_grade.temp_step,
1430: l_ret_flag);
1431: IF l_ret_flag = TRUE then
1432: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1433: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1434: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1435: ,l_retained_grade.temp_step);
1436: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1437: -- End Bug 3021003
1432: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1433: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1434: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1435: ,l_retained_grade.temp_step);
1436: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1437: -- End Bug 3021003
1438: ELSE
1439: l_new_step_or_rate := p_retained_grade.temp_step;
1440: END IF;
1447: l_retained_grade.step_or_rate,
1448: l_retained_grade.temp_step,
1449: l_ret_flag);
1450: IF l_ret_flag = TRUE then
1451: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1452: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1453: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1454: ,l_retained_grade.step_or_rate);
1455: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1448: l_retained_grade.temp_step,
1449: l_ret_flag);
1450: IF l_ret_flag = TRUE then
1451: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1452: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1453: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1454: ,l_retained_grade.step_or_rate);
1455: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1456: ELSE
1451: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1452: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1453: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1454: ,l_retained_grade.step_or_rate);
1455: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1456: ELSE
1457: l_new_step_or_rate := l_retained_grade.step_or_rate;
1458: END IF; -- IF is_retained_ia End Bug 3021003
1459: END IF; -- if p_retained_grade.temp_step is not null
1532:
1533: ELSE
1534: -- should never have really got here as the basic pay should have stopped us
1535: -- calculating if we didn't know how to
1536: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
1537: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
1538: raise ghr_pay_calc.unable_to_calculate;
1539: END IF; -- End of PRD checks
1540: --
1533: ELSE
1534: -- should never have really got here as the basic pay should have stopped us
1535: -- calculating if we didn't know how to
1536: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
1537: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
1538: raise ghr_pay_calc.unable_to_calculate;
1539: END IF; -- End of PRD checks
1540: --
1541: END IF; -- End of LEO checks
1937: LOOP
1938: l_ex_emp := TRUE;
1939: END LOOP;
1940:
1941: hr_utility.set_location('Entering main pay calc...'|| l_proc,5);
1942: -----Bug 3288419 Initialize the global variables.
1943: g_gm_unadjd_basic_pay := NULL;
1944: gm_unadjusted_pay_flg := NULL;
1945: -- FWFA Changes Bug#4444609
1972: END IF;
1973: --
1974: IF ( p_noa_code = '702' OR p_second_noa_code = '702' )
1975: AND ( p_pay_rate_determinant in ('A','B','E','F','U','V') ) THEN
1976: hr_utility.set_message(8301,'GHR_38697_RG_PROMOTE');
1977: raise pay_calc_message;
1978: END IF;
1979:
1980: -- For corrections we need to go and get alot of the IN parameters
1982: IF p_noa_family_code = 'CORRECT' THEN
1983: -- Must have a pa_request_id for a CORRECT family
1984: ghr_pc_basic_pay.g_noa_family_code := 'CORRECT';
1985: IF p_pa_request_id IS NULL THEN
1986: hr_utility.set_message(8301,'GHR_38398_PAY_CALC_NO_PAR_ID');
1987: raise pay_calc_message;
1988: END IF;
1989: ghr_corr_canc_sf52.build_corrected_sf52
1990: (p_pa_request_id => p_pa_request_id
2046: p_effective_date => p_effective_date,
2047: p_pa_request_id => p_pa_request_id,
2048: p_person_id => p_person_id);
2049: IF (l_from_pay_basis = '-1') THEN
2050: hr_utility.set_message(8301,'GHR_38020_PAY_CALC_NO_PAY_BAS');
2051: raise pay_calc_message;
2052: END IF;
2053: -- End 3245692
2054:
2053: -- End 3245692
2054:
2055: END IF;
2056:
2057: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
2058: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
2059: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
2060:
2061: ghr_history_api.get_g_session_var(l_session);
2054:
2055: END IF;
2056:
2057: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
2058: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
2059: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
2060:
2061: ghr_history_api.get_g_session_var(l_session);
2062: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2055: END IF;
2056:
2057: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
2058: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
2059: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
2060:
2061: ghr_history_api.get_g_session_var(l_session);
2062: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2063: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2058: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
2059: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
2060:
2061: ghr_history_api.get_g_session_var(l_session);
2062: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2063: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2064: -- set values of session variables IA fetch sake.
2065: v_session.pa_request_id := l_session.pa_request_id;
2066: v_session.noa_id := l_session.noa_id;
2059: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
2060:
2061: ghr_history_api.get_g_session_var(l_session);
2062: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2063: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2064: -- set values of session variables IA fetch sake.
2065: v_session.pa_request_id := l_session.pa_request_id;
2066: v_session.noa_id := l_session.noa_id;
2067: v_session.fire_trigger := l_session.fire_trigger;
2114: l_ia_effective_date := l_ia_effective_date + 1;
2115: END IF;
2116: end if;
2117:
2118: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2119:
2120: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2121: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2122:
2116: end if;
2117:
2118: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2119:
2120: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2121: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2122:
2123: ghr_history_api.reinit_g_session_var;
2124: l_session.noa_id_correct := NULL;
2117:
2118: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2119:
2120: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2121: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2122:
2123: ghr_history_api.reinit_g_session_var;
2124: l_session.noa_id_correct := NULL;
2125: hr_utility.set_location( 'Set Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2121: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2122:
2123: ghr_history_api.reinit_g_session_var;
2124: l_session.noa_id_correct := NULL;
2125: hr_utility.set_location( 'Set Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2126: ghr_history_api.set_g_session_var(l_session);
2127:
2128: if l_ia_effective_date is not null then
2129: l_old_effective_date := l_ia_effective_date - 1;
2130: else
2131: l_old_effective_date := l_effective_date - 1;
2132: end if;
2133:
2134: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2135: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2136: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2137: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2138:
2131: l_old_effective_date := l_effective_date - 1;
2132: end if;
2133:
2134: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2135: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2136: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2137: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2138:
2139: -------Assignment id is different then need to be checked the following logic.
2132: end if;
2133:
2134: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2135: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2136: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2137: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2138:
2139: -------Assignment id is different then need to be checked the following logic.
2140:
2133:
2134: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2135: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2136: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2137: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2138:
2139: -------Assignment id is different then need to be checked the following logic.
2140:
2141: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2144: ,p_effective_date => l_old_effective_date
2145: ,p_value => l_value
2146: ,p_multiple_error_flag => l_multi_error_flag);
2147: l_old_ret_allow := to_number(l_value);
2148: hr_utility.set_location( 'l_old_ret_allow is ' || to_char(l_old_ret_allow), 15);
2149:
2150: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2151: ,p_input_value_name => 'Amount'
2152: ,p_assignment_id => l_session.assignment_id
2153: ,p_effective_date => nvl(l_ia_effective_date,l_effective_date)
2154: ,p_value => l_value
2155: ,p_multiple_error_flag => l_multi_error_flag);
2156: l_from_retention_allowance := to_number(l_value);
2157: hr_utility.set_location( 'l_from_retention_allowance is ' || to_char(l_from_retention_allowance), 15);
2158: --
2159: -- Modifying the input values from percent to percentage for Payroll Integration
2160: --
2161: ghr_api.retrieve_element_entry_value (p_element_name => 'Basic Salary Rate'
2164: ,p_effective_date => nvl(l_ia_effective_date,l_effective_date)
2165: ,p_value => l_value
2166: ,p_multiple_error_flag => l_multi_error_flag);
2167: l_from_basic_pay := to_number(l_value);
2168: hr_utility.set_location( 'l_from_basic_pay is ' || to_char(l_from_basic_pay), 15);
2169:
2170: if l_ia_effective_date is not null then
2171: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2172: ,p_input_value_name => 'Amount'
2175: ,p_value => l_value
2176: ,p_multiple_error_flag => l_multi_error_flag);
2177:
2178: l_ghr_pa_request_rec.to_retention_allowance := to_number(l_value);
2179: hr_utility.set_location( 'RA is ' || to_char(l_ghr_pa_request_rec.to_retention_allowance), 15);
2180: --
2181: -- Modifying the input values from percent to percentage for Payroll Integration
2182: --
2183: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2187: ,p_value => l_value
2188: ,p_multiple_error_flag => l_multi_error_flag);
2189:
2190: l_ghr_pa_request_rec.to_retention_allow_percentage := to_number(l_value);
2191: hr_utility.set_location( 'RA % is ' || to_char(l_ghr_pa_request_rec.to_retention_allow_percentage),15);
2192:
2193: ghr_api.retrieve_element_entry_value (p_element_name => 'Supervisory Differential'
2194: ,p_input_value_name => 'Amount'
2195: ,p_assignment_id => l_session.assignment_id
2197: ,p_value => l_value
2198: ,p_multiple_error_flag => l_multi_error_flag);
2199:
2200: l_ghr_pa_request_rec.to_supervisory_differential := to_number(l_value);
2201: hr_utility.set_location( 'SD is ' || to_char(l_ghr_pa_request_rec.to_supervisory_differential), 15);
2202:
2203:
2204: ghr_api.retrieve_element_entry_value (p_element_name => 'AUO'
2205: ,p_input_value_name => 'Premium Pay Ind'
2208: ,p_value => l_value
2209: ,p_multiple_error_flag => l_multi_error_flag);
2210:
2211: l_ghr_pa_request_rec.to_auo_premium_pay_indicator := l_value;
2212: hr_utility.set_location( 'AUO is ' || (l_ghr_pa_request_rec.to_auo_premium_pay_indicator), 15);
2213:
2214:
2215: ghr_api.retrieve_element_entry_value (p_element_name => 'Availability Pay'
2216: ,p_input_value_name => 'Premium Pay Ind'
2219: ,p_value => l_value
2220: ,p_multiple_error_flag => l_multi_error_flag);
2221:
2222: l_ghr_pa_request_rec.to_ap_premium_pay_indicator := l_value;
2223: hr_utility.set_location( 'AP is ' || (l_ghr_pa_request_rec.to_ap_premium_pay_indicator), 15);
2224: l_auo_premium_pay_indicator := NVL(p_auo_premium_pay_indicator,l_ghr_pa_request_rec.to_auo_premium_pay_indicator);
2225: l_ap_premium_pay_indicator := NVL(p_ap_premium_pay_indicator ,l_ghr_pa_request_rec.to_ap_premium_pay_indicator);
2226: l_retention_allowance := NVL(p_retention_allowance ,l_ghr_pa_request_rec.to_retention_allowance);
2227: l_to_ret_allow_percentage := NVL(p_to_ret_allow_percentage ,l_ghr_pa_request_rec.to_retention_allow_percentage);
2242: l_session.altered_pa_request_id := v_session.altered_pa_request_id;
2243: l_session.noa_id_correct := v_session.noa_id_correct;
2244: ghr_history_api.set_g_session_var(l_session);
2245:
2246: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2247: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2248:
2249:
2250: -- If we didn't get the user_table_id passed in then try and get it from the position_id
2243: l_session.noa_id_correct := v_session.noa_id_correct;
2244: ghr_history_api.set_g_session_var(l_session);
2245:
2246: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2247: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2248:
2249:
2250: -- If we didn't get the user_table_id passed in then try and get it from the position_id
2251: -- This is specifically for the Form as I would expect any body else who uses this to get ALL
2364: IF l_noa_code = '892' AND
2365: l_effective_date < to_date('2007/01/07','YYYY/MM/DD') THEN
2366:
2367: IF NVL(esplan_flag,'N') = 'Y' THEN
2368: hr_utility.set_message(8301, 'GHR_38223_INV_PAY_PLAN_892');
2369: hr_utility.raise_error;
2370: END IF;
2371: END IF;
2372: ---Bug 7557159 Start
2365: l_effective_date < to_date('2007/01/07','YYYY/MM/DD') THEN
2366:
2367: IF NVL(esplan_flag,'N') = 'Y' THEN
2368: hr_utility.set_message(8301, 'GHR_38223_INV_PAY_PLAN_892');
2369: hr_utility.raise_error;
2370: END IF;
2371: END IF;
2372: ---Bug 7557159 Start
2373: IF p_pay_rate_determinant = 'D' THEN
2370: END IF;
2371: END IF;
2372: ---Bug 7557159 Start
2373: IF p_pay_rate_determinant = 'D' THEN
2374: hr_utility.set_message(8301, 'GHR_38520_PRD_D');
2375: raise ghr_pay_calc.open_pay_range_mesg;
2376: END IF;
2377: ---Bug 7557159 End
2378:
2386: END IF;
2387: IF l_pay_rate_determinant = '2' AND l_noa_code = '894' AND l_locality_pay_area_code in ('HI','AK','ON')
2388: AND (l_session.noa_id_correct is not null OR l_first_action_la_code1 = 'VGR') THEN
2389: ghr_pay_calc.prd2_process := TRUE;
2390: hr_utility.set_message(8301, 'GHR_37461_PRD_2');
2391: raise ghr_pay_calc.open_pay_range_mesg;
2392: ELSE
2393: ghr_pay_calc.prd2_process := FALSE;
2394: END IF;
2400: , p_pa_request_id
2401: , NVL(p_effective_date,TRUNC(sysdate)) ) then
2402: --6489042 during appointment of ESSL employees of PRD 2 enabling basic pay for user entry
2403: if p_pay_rate_determinant <> '2' then
2404: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2405: raise ghr_pay_calc.open_pay_range_mesg;
2406: elsif p_pay_rate_determinant = '2' and l_noa_family_code IN ('APP') then
2407: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2408: raise ghr_pay_calc.open_pay_range_mesg;
2403: if p_pay_rate_determinant <> '2' then
2404: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2405: raise ghr_pay_calc.open_pay_range_mesg;
2406: elsif p_pay_rate_determinant = '2' and l_noa_family_code IN ('APP') then
2407: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2408: raise ghr_pay_calc.open_pay_range_mesg;
2409: end if;
2410: end if;
2411: END IF;
2469: ,l_pay_calc_data.pay_basis);
2470: l_pay_calc_out_data.availability_pay := get_ppi_amount (l_pay_calc_data.ap_premium_pay_indicator
2471: ,l_pay_calc_out_data.adj_basic_pay
2472: ,l_pay_calc_data.pay_basis);
2473: hr_utility.set_location('test asg id: '||l_session.assignment_id,10);
2474: hr_utility.set_location(' test eff dt: '||l_pay_calc_data.effective_date,10);
2475: FOR asg_rec IN c_asg_rec(l_pay_calc_data.person_id, l_pay_calc_data.effective_date)
2476: LOOP
2477: l_assignment_id := asg_rec.assignment_id;
2470: l_pay_calc_out_data.availability_pay := get_ppi_amount (l_pay_calc_data.ap_premium_pay_indicator
2471: ,l_pay_calc_out_data.adj_basic_pay
2472: ,l_pay_calc_data.pay_basis);
2473: hr_utility.set_location('test asg id: '||l_session.assignment_id,10);
2474: hr_utility.set_location(' test eff dt: '||l_pay_calc_data.effective_date,10);
2475: FOR asg_rec IN c_asg_rec(l_pay_calc_data.person_id, l_pay_calc_data.effective_date)
2476: LOOP
2477: l_assignment_id := asg_rec.assignment_id;
2478: exit;
2513: l_pay_calc_out_data.adj_basic_pay := l_pay_calc_out_data.locality_adj +
2514: l_pay_calc_out_data.basic_pay;
2515: end if;
2516: ELSIF l_pay_plan = 'GR' then --IF l_pay_plan = 'GP'
2517: hr_utility.set_location('Setting process methods for GP pay plan...',555);
2518: get_locality_adj (l_pay_calc_data, l_retained_grade, l_pay_calc_out_data);
2519: If (l_pay_calc_data.noa_code = '894' OR l_pay_calc_data.second_noa_code = '894')
2520: and (l_first_action_la_code1 = 'ZLM') then
2521: l_pay_calc_out_data.open_localityadj_field := TRUE;
2545: END LOOP;
2546: END IF;
2547: ------------------------------ 1) Get basic_pay --------------------------------------------------------
2548: --
2549: hr_utility.set_location('Calling main basic pay...'|| l_proc,5);
2550: -- MSL percentage Changes Madhuri 3843306
2551:
2552: -- if nvl(ghr_msl_pkg.g_ses_msl_process,'N') = 'Y' then
2553: -- l_pay_calc_out_data.basic_pay := nvl(l_pay_calc_data.current_adj_basic_pay,0);
2646: if p_open_out_locality_adj is not null then
2647: l_pay_calc_out_data.locality_adj := p_open_out_locality_adj;
2648: end if;
2649: ELSE
2650: hr_utility.set_location('Calling main locality...'|| l_proc,5);
2651: get_locality_adj (l_pay_calc_data, l_retained_grade, l_pay_calc_out_data);
2652: --Bug#5132113 for GR payplan and 894 open locality pay for user modification
2653: If (l_pay_plan = 'GR') AND
2654: (l_pay_calc_data.noa_code = '894' OR l_pay_calc_data.second_noa_code = '894')
2656: l_pay_calc_out_data.open_localityadj_field := TRUE;
2657: END IF;
2658: --Bug#5132113
2659:
2660: hr_utility.set_location('Calling main locality..main locality pay .'||
2661: to_char(l_pay_calc_out_data.locality_adj),5);
2662: END IF;
2663: --
2664: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2662: END IF;
2663: --
2664: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2665: --
2666: hr_utility.set_location('Calling main adj basic...'|| l_proc,5);
2667: get_adj_basic_pay (l_pay_calc_data, l_pay_calc_out_data);
2668: hr_utility.set_location('Calling main adj basic..adj basic Pay.'||
2669: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2670: END IF;
2664: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2665: --
2666: hr_utility.set_location('Calling main adj basic...'|| l_proc,5);
2667: get_adj_basic_pay (l_pay_calc_data, l_pay_calc_out_data);
2668: hr_utility.set_location('Calling main adj basic..adj basic Pay.'||
2669: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2670: END IF;
2671:
2672: IF g_pay_table_upd_flag THEN
2669: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2670: END IF;
2671:
2672: IF g_pay_table_upd_flag THEN
2673: hr_utility.set_location('After Basic/loc/adj basic calc. Pay Table UPD Flag TRUE',101);
2674: ELSE
2675: hr_utility.set_location('After Basic/loc/adj basic Calc. Pay Table UPD Flag FALSE',102);
2676: END IF;
2677: --
2671:
2672: IF g_pay_table_upd_flag THEN
2673: hr_utility.set_location('After Basic/loc/adj basic calc. Pay Table UPD Flag TRUE',101);
2674: ELSE
2675: hr_utility.set_location('After Basic/loc/adj basic Calc. Pay Table UPD Flag FALSE',102);
2676: END IF;
2677: --
2678:
2679: ------------------------------ 4.0) Get retention_allowance----------------------------------------------
2689: if nvl(l_pay_calc_data.current_basic_pay,0) <> nvl(l_pay_calc_out_data.basic_pay,0) then
2690:
2691: if l_to_ret_allow_percentage is null then
2692: if (l_session.noa_id_correct is not null ) or (p_noa_family_code = 'CORRECT') then
2693: hr_utility.set_location(' perc null Inside correct ' || l_proc,5);
2694: hr_utility.set_location(' current_basic pay = ' || to_char(l_pay_calc_data.current_basic_pay),5);
2695: if nvl(l_old_ret_allow,0) = nvl(l_from_retention_allowance,0) then
2696: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2697: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2690:
2691: if l_to_ret_allow_percentage is null then
2692: if (l_session.noa_id_correct is not null ) or (p_noa_family_code = 'CORRECT') then
2693: hr_utility.set_location(' perc null Inside correct ' || l_proc,5);
2694: hr_utility.set_location(' current_basic pay = ' || to_char(l_pay_calc_data.current_basic_pay),5);
2695: if nvl(l_old_ret_allow,0) = nvl(l_from_retention_allowance,0) then
2696: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2697: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2698: end if;
2696: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2697: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2698: end if;
2699: end if;
2700: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2701: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2702: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2703:
2704: ---- Changed for FWS
2697: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2698: end if;
2699: end if;
2700: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2701: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2702: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2703:
2704: ---- Changed for FWS
2705:
2698: end if;
2699: end if;
2700: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2701: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2702: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2703:
2704: ---- Changed for FWS
2705:
2706: l_ret_calc_perc := (l_from_retention_allowance / l_from_basic_pay )* 100;
2705:
2706: l_ret_calc_perc := (l_from_retention_allowance / l_from_basic_pay )* 100;
2707:
2708: -- Bug 3245692 . Replaced l_pay_basis with l_from_pay_basis in the above statement
2709: hr_utility.set_location(' Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2710: else
2711: hr_utility.set_location(' perc null else correct ' || l_proc,5);
2712: ----
2713: ---- Bug 3218346 --
2707:
2708: -- Bug 3245692 . Replaced l_pay_basis with l_from_pay_basis in the above statement
2709: hr_utility.set_location(' Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2710: else
2711: hr_utility.set_location(' perc null else correct ' || l_proc,5);
2712: ----
2713: ---- Bug 3218346 --
2714: ----
2715:
2715:
2716: l_ret_calc_perc := nvl((l_pay_calc_data.retention_allowance /
2717: l_pay_calc_data.current_basic_pay) * 100,0);
2718: -- Bug 3245692
2719: hr_utility.set_location(' else Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2720: end if;
2721:
2722: if nvl(l_ret_calc_perc,0) > 25 then
2723: l_ret_calc_perc := 25;
2723: l_ret_calc_perc := 25;
2724: end if;
2725: else -- l_to_ret_allow_percentage is not null
2726: l_ret_calc_perc := l_to_ret_allow_percentage;
2727: hr_utility.set_location(' Passed Percentage l_ret_calc_perc = ' || to_char(l_ret_calc_perc),5);
2728: end if; -- if nvl(l_ret_calc_perc,0) > 2
2729:
2730:
2731: /*IF l_pay_basis ='PH' THEN
2767:
2768: --- 3843316
2769: -- Rounding of RETENTION ALLOWANCE ENDS
2770:
2771: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2772: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2773: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2774: else
2775: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2768: --- 3843316
2769: -- Rounding of RETENTION ALLOWANCE ENDS
2770:
2771: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2772: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2773: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2774: else
2775: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2776: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2769: -- Rounding of RETENTION ALLOWANCE ENDS
2770:
2771: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2772: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2773: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2774: else
2775: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2776: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2777: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2771: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2772: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2773: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2774: else
2775: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2776: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2777: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2778: if l_from_basic_pay = nvl(l_pay_calc_data.current_basic_pay,0) then
2779: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2773: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2774: else
2775: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2776: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2777: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2778: if l_from_basic_pay = nvl(l_pay_calc_data.current_basic_pay,0) then
2779: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2780: else
2781: l_to_retention_allowance := l_old_ret_allow;
2779: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2780: else
2781: l_to_retention_allowance := l_old_ret_allow;
2782: end if;
2783: hr_utility.set_location(' BPS correct retention_allowance = ' || to_char(l_to_retention_allowance),5);
2784: else
2785: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2786: hr_utility.set_location(' BPS else retention_allowance = ' || to_char(l_to_retention_allowance),5);
2787: end if;
2782: end if;
2783: hr_utility.set_location(' BPS correct retention_allowance = ' || to_char(l_to_retention_allowance),5);
2784: else
2785: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2786: hr_utility.set_location(' BPS else retention_allowance = ' || to_char(l_to_retention_allowance),5);
2787: end if;
2788: end if;
2789: end if;
2790: l_pay_calc_out_data.retention_allowance := l_to_retention_allowance;
2866: -- Bug#4758111 Removed PRD 2 from the following list.
2867: if p_pay_rate_determinant
2868: in ( '3','4','C','J','K','M','P','R','S','U','V') then
2869: l_pay_calc_out_data.open_pay_fields := TRUE;
2870: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
2871: hr_utility.set_message_token('PRD',p_pay_rate_determinant);
2872: end if;
2873: ---Bug 7423379 Start (Fix was revoked - AVR 10/24)
2874: ----IF l_pay_plan = 'AD' THEN
2867: if p_pay_rate_determinant
2868: in ( '3','4','C','J','K','M','P','R','S','U','V') then
2869: l_pay_calc_out_data.open_pay_fields := TRUE;
2870: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
2871: hr_utility.set_message_token('PRD',p_pay_rate_determinant);
2872: end if;
2873: ---Bug 7423379 Start (Fix was revoked - AVR 10/24)
2874: ----IF l_pay_plan = 'AD' THEN
2875: ---- l_pay_calc_out_data.open_pay_fields := TRUE;
3143: p_calculated := l_calculated;
3144:
3145:
3146: IF l_message_set and l_calculated THEN
3147: hr_utility.raise_error;
3148: END IF;
3149:
3150: EXCEPTION
3151: WHEN others THEN
3207: new_locality_adj NUMBER;
3208:
3209: l_proc VARCHAR2(30) := '894_PRDM_GS';
3210: begin
3211: hr_utility.set_location('Entering ...'|| l_proc,5);
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3208:
3209: l_proc VARCHAR2(30) := '894_PRDM_GS';
3210: begin
3211: hr_utility.set_location('Entering ...'|| l_proc,5);
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3209: l_proc VARCHAR2(30) := '894_PRDM_GS';
3210: begin
3211: hr_utility.set_location('Entering ...'|| l_proc,5);
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3210: begin
3211: hr_utility.set_location('Entering ...'|| l_proc,5);
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3218: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3211: hr_utility.set_location('Entering ...'|| l_proc,5);
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3218: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3219:
3212: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3218: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3219:
3220: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3213: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3218: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3219:
3220: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3221: ,p_pay_plan => p_pay_plan
3214: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3215: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3216: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3217: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3218: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3219:
3220: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3221: ,p_pay_plan => p_pay_plan
3222: ,p_grade_or_level => p_grade_or_level
3225: ,p_PT_value => l_PT_value
3226: ,p_PT_eff_start_date => l_PT_eff_start_date
3227: ,p_PT_eff_end_date => l_PT_eff_end_date);
3228:
3229: hr_utility.set_location('l_PT_value ...'|| to_char(l_PT_value),5);
3230: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3231: ,p_pay_plan => p_pay_plan
3232: ,p_grade_or_level => p_grade_or_level
3233: ,p_step_or_rate => p_step_or_rate
3235: ,p_PT_value => l_PT_o_value
3236: ,p_PT_eff_start_date => l_PT_o_eff_start_date
3237: ,p_PT_eff_end_date => l_PT_o_eff_end_date);
3238:
3239: hr_utility.set_location('l_PT_o_value ...'|| to_char(l_PT_o_value),5);
3240: l_SPT_value := ghr_pay_calc.get_standard_pay_table_value (p_pay_plan => p_pay_plan
3241: ,p_grade_or_level => p_grade_or_level
3242: ,p_step_or_rate => p_step_or_rate
3243: ,p_effective_date => p_effective_date);
3241: ,p_grade_or_level => p_grade_or_level
3242: ,p_step_or_rate => p_step_or_rate
3243: ,p_effective_date => p_effective_date);
3244:
3245: hr_utility.set_location('l_SPT_value ...'|| to_char(l_SPT_value),5);
3246: l_SPT_o_value := ghr_pay_calc.get_standard_pay_table_value (p_pay_plan => p_pay_plan
3247: ,p_grade_or_level => p_grade_or_level
3248: ,p_step_or_rate => p_step_or_rate
3249: ,p_effective_date => (l_PT_eff_start_date -1) );
3247: ,p_grade_or_level => p_grade_or_level
3248: ,p_step_or_rate => p_step_or_rate
3249: ,p_effective_date => (l_PT_eff_start_date -1) );
3250:
3251: hr_utility.set_location('l_SPT_o_value ...'|| to_char(l_SPT_o_value),5);
3252:
3253: l_A := l_PT_value - l_PT_o_value;
3254: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3255: l_B := l_SPT_value - l_SPT_o_value;
3250:
3251: hr_utility.set_location('l_SPT_o_value ...'|| to_char(l_SPT_o_value),5);
3252:
3253: l_A := l_PT_value - l_PT_o_value;
3254: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3255: l_B := l_SPT_value - l_SPT_o_value;
3256: hr_utility.set_location('l_B...'|| to_char(l_B),5);
3257:
3258: if l_A = l_B then
3252:
3253: l_A := l_PT_value - l_PT_o_value;
3254: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3255: l_B := l_SPT_value - l_SPT_o_value;
3256: hr_utility.set_location('l_B...'|| to_char(l_B),5);
3257:
3258: if l_A = l_B then
3259: lesser_amt := l_A;
3260: elsif l_A > l_B then
3261: lesser_amt := l_B;
3262: else
3263: lesser_amt := l_A;
3264: end if;
3265: hr_utility.set_location('lesser_amt...'|| to_char(lesser_amt),5);
3266:
3267: new_adj_basic_pay := p_cur_adj_basic_pay + lesser_amt;
3268: new_locality_adj := new_adj_basic_pay - p_new_basic_pay;
3269:
3269:
3270: p_new_adj_basic_pay := new_adj_basic_pay;
3271: p_new_locality_adj := new_locality_adj;
3272:
3273: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3274: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3275:
3276: hr_utility.set_location('Leaving ...'|| l_proc,5);
3277:
3270: p_new_adj_basic_pay := new_adj_basic_pay;
3271: p_new_locality_adj := new_locality_adj;
3272:
3273: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3274: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3275:
3276: hr_utility.set_location('Leaving ...'|| l_proc,5);
3277:
3278: EXCEPTION
3272:
3273: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3274: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3275:
3276: hr_utility.set_location('Leaving ...'|| l_proc,5);
3277:
3278: EXCEPTION
3279: WHEN others THEN
3280: -- Reset IN OUT parameters and set OUT parameters
3324: FROM pay_user_tables utb
3325: WHERE utb.user_table_name = ghr_pay_calc.l_standard_table_name;
3326:
3327: BEGIN
3328: hr_utility.set_location('Entering ...'|| l_proc,5);
3329: -- First get the id of standard pay table for later use
3330: FOR c_rec IN get_std_user_table_id LOOP
3331: l_std_user_table_id := c_rec.user_table_id;
3332: END LOOP;
3425: END IF;
3426:
3427: p_new_adj_basic_pay := new_adj_basic_pay;
3428: p_new_locality_adj := new_locality_adj;
3429: hr_utility.set_location('Leaving ...'|| l_proc,5);
3430:
3431: EXCEPTION
3432: WHEN others THEN
3433: -- Reset IN OUT parameters and set OUT parameters
3470: BETWEEN urw.effective_start_date AND urw.effective_end_date
3471: AND NVL(p_effective_date,TRUNC(SYSDATE))
3472: BETWEEN cin.effective_start_date AND cin.effective_end_date;
3473: BEGIN
3474: hr_utility.set_location('Entering ...'|| l_proc,5);
3475: FOR cur_pay_rec IN cur_pay LOOP
3476: l_row_high := ROUND(cur_pay_rec.ROW_HIGH_RANGE,2);
3477: l_row_low := ROUND(cur_pay_rec.ROW_LOW_RANGE_OR_NAME,2);
3478: l_record_found := TRUE;
3476: l_row_high := ROUND(cur_pay_rec.ROW_HIGH_RANGE,2);
3477: l_row_low := ROUND(cur_pay_rec.ROW_LOW_RANGE_OR_NAME,2);
3478: l_record_found := TRUE;
3479: --
3480: hr_utility.set_location('Record Found ...'|| l_proc,10);
3481: --
3482: END LOOP;
3483: --
3484: IF NOT l_record_found THEN
3487: ELSE
3488: p_row_high := l_row_high;
3489: p_row_low := l_row_low;
3490: END IF;
3491: hr_utility.set_location('Leaving ...'|| l_proc,20);
3492: --
3493:
3494: EXCEPTION
3495: WHEN others THEN
3634: AND paf.primary_flag = 'Y'
3635: AND paf.assignment_type <> 'B';
3636: ----
3637: BEGIN
3638: hr_utility.set_location('Entering ...'|| l_proc,5);
3639: g_gm_unadjd_basic_pay := NULL;
3640: gm_unadjusted_pay_flg := NULL;
3641: -- First get the id of standard pay table for later use
3642: FOR c_rec IN get_std_user_table_id LOOP
3671: ,p_multiple_error_flag => l_multi_error_flag);
3672: l_gm_unadjd_basic_pay := to_number(l_value);
3673: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3674: gm_unadjusted_pay_flg := 'Y';
3675: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3676: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3677: hr_utility.raise_error;
3678: end if;
3679: exception
3672: l_gm_unadjd_basic_pay := to_number(l_value);
3673: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3674: gm_unadjusted_pay_flg := 'Y';
3675: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3676: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3677: hr_utility.raise_error;
3678: end if;
3679: exception
3680: when others then
3673: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3674: gm_unadjusted_pay_flg := 'Y';
3675: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3676: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3677: hr_utility.raise_error;
3678: end if;
3679: exception
3680: when others then
3681: gm_unadjusted_pay_flg := 'Y';
3678: end if;
3679: exception
3680: when others then
3681: gm_unadjusted_pay_flg := 'Y';
3682: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3683: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3684: hr_utility.raise_error;
3685: end;
3686:
3679: exception
3680: when others then
3681: gm_unadjusted_pay_flg := 'Y';
3682: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3683: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3684: hr_utility.raise_error;
3685: end;
3686:
3687: --
3680: when others then
3681: gm_unadjusted_pay_flg := 'Y';
3682: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3683: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3684: hr_utility.raise_error;
3685: end;
3686:
3687: --
3688: -- Present Year values.
3739: p_GM_unadjusted_rate := l_B6;
3740: g_gm_unadjd_basic_pay := l_B6;
3741: p_new_adj_basic_pay := new_adj_basic_pay;
3742: p_new_locality_adj := new_locality_adj;
3743: hr_utility.set_location('Leaving ...'|| l_proc,5);
3744:
3745: EXCEPTION
3746: WHEN others THEN
3747: -- Reset IN OUT parameters and set OUT parameters
3747: -- Reset IN OUT parameters and set OUT parameters
3748: p_GM_unadjusted_rate :=NULL;
3749: p_new_adj_basic_pay :=NULL;
3750: p_new_locality_adj :=NULL;
3751: hr_utility.set_location('Leaving.... ' || l_proc,6);
3752: RAISE;
3753: END get_locality_894_itpay;
3754:
3755: ---------------------------
3811: AND paf.primary_flag = 'Y'
3812: AND paf.assignment_type <> 'B';
3813: ----
3814: BEGIN
3815: hr_utility.set_location('Entering ...'|| l_proc,5);
3816: g_gm_unadjd_basic_pay := NULL;
3817: gm_unadjusted_pay_flg := NULL;
3818: -- First get the id of standard pay table for later use
3819: FOR c_rec IN get_std_user_table_id LOOP
3850: ,p_multiple_error_flag => l_multi_error_flag);
3851: l_gm_unadjd_basic_pay := to_number(l_value);
3852: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3853: gm_unadjusted_pay_flg := 'Y';
3854: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3855: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3856: hr_utility.raise_error;
3857: end if;
3858: exception
3851: l_gm_unadjd_basic_pay := to_number(l_value);
3852: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3853: gm_unadjusted_pay_flg := 'Y';
3854: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3855: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3856: hr_utility.raise_error;
3857: end if;
3858: exception
3859: when others then
3852: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3853: gm_unadjusted_pay_flg := 'Y';
3854: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3855: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3856: hr_utility.raise_error;
3857: end if;
3858: exception
3859: when others then
3860: gm_unadjusted_pay_flg := 'Y';
3857: end if;
3858: exception
3859: when others then
3860: gm_unadjusted_pay_flg := 'Y';
3861: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3862: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3863: hr_utility.raise_error;
3864: end;
3865: --
3858: exception
3859: when others then
3860: gm_unadjusted_pay_flg := 'Y';
3861: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3862: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3863: hr_utility.raise_error;
3864: end;
3865: --
3866: -- Present Year values.
3859: when others then
3860: gm_unadjusted_pay_flg := 'Y';
3861: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3862: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3863: hr_utility.raise_error;
3864: end;
3865: --
3866: -- Present Year values.
3867: --
3915: g_gm_unadjd_basic_pay := l_C4;
3916:
3917: p_new_adj_basic_pay := new_adj_basic_pay;
3918: p_new_locality_adj := new_locality_adj;
3919: hr_utility.set_location('Leaving ...'|| l_proc,5);
3920:
3921: EXCEPTION
3922: WHEN others THEN
3923: -- Reset IN OUT parameters and set OUT parameters
3922: WHEN others THEN
3923: -- Reset IN OUT parameters and set OUT parameters
3924: p_new_adj_basic_pay := NULL;
3925: p_new_locality_adj := NULL;
3926: hr_utility.set_location('Leaving.... ' || l_proc,6);
3927: RAISE;
3928: END get_locality_892_itpay;
3929:
3930: -- FWFA Changes. Created procedures get_special_pay_table_value, special_rate_pay_calc
4224: ,p_retained_pay_table OUT NOCOPY VARCHAR2
4225: ,p_new_prd OUT NOCOPY VARCHAR2
4226: ) IS
4227: BEGIN
4228: hr_utility.set_location('Inside set_cpt_ppt_prd',0);
4229:
4230: IF p_leo_flag THEN
4231: --Bug# 5635023 added PRD 7
4232: IF p_prd IN ('5', '6', '7') THEN
4432: g_pay_table_upd_flag := TRUE;
4433: END IF;
4434: END IF;
4435: END IF;
4436: hr_utility.set_location('Leaving CPT PRD',10);
4437: END set_cpt_ppt_prd;
4438:
4439: BEGIN
4440:
4449: if p_pay_calc_data.noa_family_code = 'APP' then
4450: if p_pay_calc_data.pay_rate_determinant
4451: in ('2','C','M','P','R','S') then
4452: p_pay_calc_out_data.open_pay_fields := TRUE;
4453: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4454: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4455: raise ghr_pay_calc.unable_to_calculate;
4456: end if;
4457: end if;
4450: if p_pay_calc_data.pay_rate_determinant
4451: in ('2','C','M','P','R','S') then
4452: p_pay_calc_out_data.open_pay_fields := TRUE;
4453: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4454: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4455: raise ghr_pay_calc.unable_to_calculate;
4456: end if;
4457: end if;
4458: ---
4458: ---
4459:
4460:
4461: -- 1. Set the Pay related values depending on the Retained/Non-Retained Grade.
4462: hr_utility.set_location('PRD: '||p_pay_calc_data.pay_rate_determinant,20);
4463: IF p_pay_calc_data.pay_rate_determinant IN ('A','B','E','F','U','V') and
4464: p_retained_grade.temp_step is NULL THEN
4465: l_user_table_id := p_retained_grade.user_table_id;
4466: l_pay_plan := p_retained_grade.pay_plan;
4490: l_gr_pay_plan := FALSE;
4491: --End Bug 7046241
4492: -- 2. Get the user table name into local variable
4493: l_user_table_name := ghr_pay_calc.get_user_table_name(l_user_table_id);
4494: hr_utility.set_location('user table name:' ||l_user_table_name,30);
4495: -- 3. Get the Locality Percentage Value
4496: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4497: ,p_pay_calc_data.effective_date),0);
4498: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4494: hr_utility.set_location('user table name:' ||l_user_table_name,30);
4495: -- 3. Get the Locality Percentage Value
4496: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4497: ,p_pay_calc_data.effective_date),0);
4498: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4499: l_adj_perc_factor := l_adjustment_percentage/100;
4500: hr_utility.set_location('l_adj_perc_factor ..' || to_char(l_adj_perc_factor),32);
4501:
4502:
4496: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4497: ,p_pay_calc_data.effective_date),0);
4498: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4499: l_adj_perc_factor := l_adjustment_percentage/100;
4500: hr_utility.set_location('l_adj_perc_factor ..' || to_char(l_adj_perc_factor),32);
4501:
4502:
4503:
4504: -- Check LEO Posiiton or NOT
4575: -- Bug#5368848 Open the pay fields if the NOA Code is not 894.
4576: -- GPPA Update46. Added 890 in the NOT IN list.
4577: IF p_pay_calc_data.noa_code NOT IN ('894','890') then
4578: p_pay_calc_out_data.open_pay_fields := TRUE;
4579: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4580: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4581: raise ghr_pay_calc.unable_to_calculate;
4582: END IF;
4583: --Bug# 9258929
4576: -- GPPA Update46. Added 890 in the NOT IN list.
4577: IF p_pay_calc_data.noa_code NOT IN ('894','890') then
4578: p_pay_calc_out_data.open_pay_fields := TRUE;
4579: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4580: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4581: raise ghr_pay_calc.unable_to_calculate;
4582: END IF;
4583: --Bug# 9258929
4584: -- Get From assignment id and position id using person_id and effective date
4614: end loop;
4615:
4616: l_from_pos_ind := ghr_pa_requests_pkg.get_personnel_system_indicator(l_from_position_id,p_pay_calc_data.effective_date);
4617:
4618: hr_utility.set_location('l_from_pos_ind'||l_from_pos_ind,1000);
4619:
4620: hr_utility.set_location('l_from_pay_plan'||l_from_pay_plan,1000);
4621: hr_utility.set_location('l_from_position_id'||l_from_position_id,1000);
4622:
4616: l_from_pos_ind := ghr_pa_requests_pkg.get_personnel_system_indicator(l_from_position_id,p_pay_calc_data.effective_date);
4617:
4618: hr_utility.set_location('l_from_pos_ind'||l_from_pos_ind,1000);
4619:
4620: hr_utility.set_location('l_from_pay_plan'||l_from_pay_plan,1000);
4621: hr_utility.set_location('l_from_position_id'||l_from_position_id,1000);
4622:
4623: hr_utility.set_location('l_pay_plan'||l_pay_plan,1000);
4624: hr_utility.set_location('p_pay_calc_data.pay_rate_determinant'||p_pay_calc_data.pay_rate_determinant,1000);
4617:
4618: hr_utility.set_location('l_from_pos_ind'||l_from_pos_ind,1000);
4619:
4620: hr_utility.set_location('l_from_pay_plan'||l_from_pay_plan,1000);
4621: hr_utility.set_location('l_from_position_id'||l_from_position_id,1000);
4622:
4623: hr_utility.set_location('l_pay_plan'||l_pay_plan,1000);
4624: hr_utility.set_location('p_pay_calc_data.pay_rate_determinant'||p_pay_calc_data.pay_rate_determinant,1000);
4625:
4619:
4620: hr_utility.set_location('l_from_pay_plan'||l_from_pay_plan,1000);
4621: hr_utility.set_location('l_from_position_id'||l_from_position_id,1000);
4622:
4623: hr_utility.set_location('l_pay_plan'||l_pay_plan,1000);
4624: hr_utility.set_location('p_pay_calc_data.pay_rate_determinant'||p_pay_calc_data.pay_rate_determinant,1000);
4625:
4626: l_to_pos_ind := ghr_pa_requests_pkg.get_personnel_system_indicator(nvl(p_pay_calc_data.position_id,l_from_position_id),p_pay_calc_data.effective_date);
4627: --Bug # 9258929
4620: hr_utility.set_location('l_from_pay_plan'||l_from_pay_plan,1000);
4621: hr_utility.set_location('l_from_position_id'||l_from_position_id,1000);
4622:
4623: hr_utility.set_location('l_pay_plan'||l_pay_plan,1000);
4624: hr_utility.set_location('p_pay_calc_data.pay_rate_determinant'||p_pay_calc_data.pay_rate_determinant,1000);
4625:
4626: l_to_pos_ind := ghr_pa_requests_pkg.get_personnel_system_indicator(nvl(p_pay_calc_data.position_id,l_from_position_id),p_pay_calc_data.effective_date);
4627: --Bug # 9258929
4628:
4684: );
4685: --Bug # 9073576 modified as per the requirement
4686: ELSE--IF p_pay_calc_data.effective_date
4687: l_term_ret_pay_prd := FALSE;
4688: hr_utility.set_location('PAY ADJUSTMENT AS ON 08-JAN',7788);
4689: --CODE CHANGES DONE TO ATLER PAY CALC FOR BUG# 4999237...
4690: IF l_pay_plan = 'GM' THEN
4691: l_pay_plan := 'GS';
4692: --- Bug 5908487 changes...
4700: --End Bug 7046241
4701: END IF;
4702: -- Get Current Years' Special Pay Table Value at step 10
4703:
4704: hr_utility.set_location('Get Current Years Special Pay Table Value at step 10',7788);
4705:
4706: get_special_pay_table_value (p_pay_plan => l_pay_plan
4707: ,p_grade_or_level => l_grade_or_level
4708: ,p_step_or_rate => '10'
4713: ,p_PT_eff_end_date => l_pt_eff_end_date
4714: ,p_pp_grd_exists => l_pp_grd_exists );
4715:
4716: l_special_rate := l_basic_pay;
4717: hr_utility.set_location('GOt Current Years Special Pay Table Value at step 10'|| l_special_rate,7788);
4718: --Now Get current Years's default pay table value.for max rate....BUG# 4999237.
4719: hr_utility.set_location('Now Get current Years default pay table value.for max rate.',7788);
4720: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4721: ,p_pay_plan =>l_default_pay_plan
4715:
4716: l_special_rate := l_basic_pay;
4717: hr_utility.set_location('GOt Current Years Special Pay Table Value at step 10'|| l_special_rate,7788);
4718: --Now Get current Years's default pay table value.for max rate....BUG# 4999237.
4719: hr_utility.set_location('Now Get current Years default pay table value.for max rate.',7788);
4720: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4721: ,p_pay_plan =>l_default_pay_plan
4722: ,p_grade_or_level =>l_grade_or_level
4723: ,p_step_or_rate =>'10'
4724: ,p_effective_date =>p_pay_calc_data.effective_date
4725: ,p_PT_value => l_basic_pay
4726: ,p_PT_eff_start_date => l_PT_eff_start_date
4727: ,p_PT_eff_end_date => l_dummy_date);
4728: hr_utility.set_location('Now GOt current Years default pay table value.for max rate.'||l_basic_pay ,7788);
4729:
4730: --Bug# 7708264 modified to move getting previous years special rate calculation
4731: -- before if condition as it is being used in the else condition also
4732:
4730: --Bug# 7708264 modified to move getting previous years special rate calculation
4731: -- before if condition as it is being used in the else condition also
4732:
4733: --get previous year's special rate value.at step 10 ....BUG# 4999237.
4734: hr_utility.set_location('get previous years special rate value.at step 10',7788);
4735: get_special_pay_table_value(p_pay_plan => l_pay_plan
4736: ,p_grade_or_level => l_grade_or_level
4737: ,p_step_or_rate => '10'
4738: ,p_user_table_id => l_user_table_id
4742: ,p_PT_eff_end_date => l_pt_eff_end_date
4743: ,p_pp_grd_exists => l_old_pp_grd_exists );
4744:
4745: l_old_special_rate := l_old_basic_pay; --for bug#4999237...
4746: hr_utility.set_location('gOt previous years special rate value.at step 10'||l_old_special_rate,7788);
4747:
4748: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4749: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4750: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4745: l_old_special_rate := l_old_basic_pay; --for bug#4999237...
4746: hr_utility.set_location('gOt previous years special rate value.at step 10'||l_old_special_rate,7788);
4747:
4748: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4749: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4750: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4751: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4752: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4753: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4747:
4748: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4749: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4750: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4751: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4752: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4753: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4754:
4755: --Bug # 9073576 Calculation of Old special Rate and Old Locality Rate
4749: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4750: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4751: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4752: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4753: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4754:
4755: --Bug # 9073576 Calculation of Old special Rate and Old Locality Rate
4756: -- has been moved to before if condition as it is used in both if and else condition
4757: --Pick the special rate ......BUG# 4999237.
4762: ),0))/100;
4763:
4764:
4765:
4766: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4767: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4768: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4769: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4770: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4763:
4764:
4765:
4766: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4767: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4768: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4769: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4770: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4771: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4764:
4765:
4766: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4767: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4768: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4769: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4770: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4771: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4772: ,p_pay_plan =>l_default_pay_plan
4765:
4766: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4767: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4768: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4769: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4770: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4771: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4772: ,p_pay_plan =>l_default_pay_plan
4773: ,p_grade_or_level =>l_grade_or_level
4766: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4767: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4768: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4769: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4770: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4771: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4772: ,p_pay_plan =>l_default_pay_plan
4773: ,p_grade_or_level =>l_grade_or_level
4774: ,p_step_or_rate => '10'
4777: ,p_PT_eff_start_date => l_PT_eff_start_date
4778: ,p_PT_eff_end_date => l_dummy_date);
4779:
4780:
4781: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4782: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4783: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4784: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4785: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4778: ,p_PT_eff_end_date => l_dummy_date);
4779:
4780:
4781: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4782: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4783: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4784: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4785: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4786: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4781: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4782: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4783: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4784: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4785: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4786: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4787:
4788:
4789: ----Now compare special rate with basic pay......BUG# 4999237.
4782: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4783: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4784: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4785: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4786: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4787:
4788:
4789: ----Now compare special rate with basic pay......BUG# 4999237.
4790: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4786: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4787:
4788:
4789: ----Now compare special rate with basic pay......BUG# 4999237.
4790: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4791:
4792: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4793: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4794:
4789: ----Now compare special rate with basic pay......BUG# 4999237.
4790: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4791:
4792: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4793: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4794:
4795: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4796: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4797: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4791:
4792: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4793: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4794:
4795: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4796: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4797: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4798: -- If both current and previous year's special rate step 10 values are NOT NULL
4799: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4792: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4793: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4794:
4795: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4796: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4797: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4798: -- If both current and previous year's special rate step 10 values are NOT NULL
4799: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4800:
4793: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4794:
4795: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4796: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4797: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4798: -- If both current and previous year's special rate step 10 values are NOT NULL
4799: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4800:
4801: -- Bug # 9073576 as per the new requirement specified in the bug
4806: IF l_old_special_rate IS NOT NULL AND l_special_rate IS NOT NULL AND
4807: l_user_table_name NOT IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
4808:
4809: l_increment := Round((l_special_rate - l_old_special_rate)/2,0);
4810: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4811: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4812: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4813: l_new_locality_adj := 0;
4814: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4808:
4809: l_increment := Round((l_special_rate - l_old_special_rate)/2,0);
4810: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4811: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4812: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4813: l_new_locality_adj := 0;
4814: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4815: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4816: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4810: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4811: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4812: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4813: l_new_locality_adj := 0;
4814: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4815: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4816: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4817: hr_utility.set_location('NEW PRD SET'||l_new_prd ,7788);
4818: l_calculation_pay_table := l_user_table_name;
4813: l_new_locality_adj := 0;
4814: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4815: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4816: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4817: hr_utility.set_location('NEW PRD SET'||l_new_prd ,7788);
4818: l_calculation_pay_table := l_user_table_name;
4819: --6814842 modified to update position pay table and pay_table_upd_flag
4820: --Bug# 10043212 added to set the position pay table only if the grade does not exist
4821: IF NOT(l_pp_grd_exists) THEN
4825: l_position_pay_table := l_user_table_name;
4826: g_pay_table_upd_flag := FALSE;
4827: END IF;
4828:
4829: hr_utility.set_location('COMPARING NEW BASIC PAY AND NEW SPECIAL RATE VALUE',7788);
4830:
4831: IF l_new_basic_pay <= l_special_rate THEN
4832: l_new_adj_basic_pay := l_special_rate;
4833: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4829: hr_utility.set_location('COMPARING NEW BASIC PAY AND NEW SPECIAL RATE VALUE',7788);
4830:
4831: IF l_new_basic_pay <= l_special_rate THEN
4832: l_new_adj_basic_pay := l_special_rate;
4833: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4834: hr_utility.set_location('get current value for step10 in default table',7788);
4835: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4836: ,p_pay_plan =>l_default_pay_plan
4837: ,p_grade_or_level =>l_grade_or_level
4830:
4831: IF l_new_basic_pay <= l_special_rate THEN
4832: l_new_adj_basic_pay := l_special_rate;
4833: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4834: hr_utility.set_location('get current value for step10 in default table',7788);
4835: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4836: ,p_pay_plan =>l_default_pay_plan
4837: ,p_grade_or_level =>l_grade_or_level
4838: ,p_step_or_rate => '10'
4840: ,p_PT_value => l_new_basic_pay
4841: ,p_PT_eff_start_date => l_PT_eff_start_date
4842: ,p_PT_eff_end_date => l_dummy_date);
4843:
4844: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4845: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4846: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4847: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4848: l_new_step := '10';
4841: ,p_PT_eff_start_date => l_PT_eff_start_date
4842: ,p_PT_eff_end_date => l_dummy_date);
4843:
4844: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4845: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4846: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4847: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4848: l_new_step := '10';
4849: hr_utility.set_location('terminate PAY RETENTION',7788);
4843:
4844: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4845: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4846: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4847: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4848: l_new_step := '10';
4849: hr_utility.set_location('terminate PAY RETENTION',7788);
4850: l_term_ret_pay_prd := TRUE;
4851: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4845: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4846: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4847: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4848: l_new_step := '10';
4849: hr_utility.set_location('terminate PAY RETENTION',7788);
4850: l_term_ret_pay_prd := TRUE;
4851: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4852: END IF;
4853: END IF;--IF l_old_basic_pay IS NOT
4847: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4848: l_new_step := '10';
4849: hr_utility.set_location('terminate PAY RETENTION',7788);
4850: l_term_ret_pay_prd := TRUE;
4851: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4852: END IF;
4853: END IF;--IF l_old_basic_pay IS NOT
4854:
4855: ELSIF (l_adj_basic_pay >= nvl(l_special_rate,0)) OR (l_old_special_rate IS NULL) then--IF NVL(l_special_rate,0)
4853: END IF;--IF l_old_basic_pay IS NOT
4854:
4855: ELSIF (l_adj_basic_pay >= nvl(l_special_rate,0)) OR (l_old_special_rate IS NULL) then--IF NVL(l_special_rate,0)
4856:
4857: hr_utility.set_location('special rate is lesser or old special rate is not available',7788);
4858: hr_utility.set_location('::: 50101491 :::Inside Else Condition',40);
4859:
4860: IF NVL(l_old_special_rate ,0) > l_old_adj_basic_pay THEN
4861: l_increment := Round((l_adj_basic_pay - l_old_special_rate)/2,0);
4854:
4855: ELSIF (l_adj_basic_pay >= nvl(l_special_rate,0)) OR (l_old_special_rate IS NULL) then--IF NVL(l_special_rate,0)
4856:
4857: hr_utility.set_location('special rate is lesser or old special rate is not available',7788);
4858: hr_utility.set_location('::: 50101491 :::Inside Else Condition',40);
4859:
4860: IF NVL(l_old_special_rate ,0) > l_old_adj_basic_pay THEN
4861: l_increment := Round((l_adj_basic_pay - l_old_special_rate)/2,0);
4862: ELSE
4866: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4867: l_new_locality_adj := 0;
4868: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4869: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4870: hr_utility.set_location(' adj basic at step 10: '||to_char(l_adj_basic_pay),95);
4871: hr_utility.set_location(' locality at step 10: '||to_char(l_locality_adj),95);
4872: l_calculation_pay_table := l_default_pay_table;
4873:
4874: --Bug# 6814842 modified to update position pay table and pay_table_upd_flag
4867: l_new_locality_adj := 0;
4868: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4869: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4870: hr_utility.set_location(' adj basic at step 10: '||to_char(l_adj_basic_pay),95);
4871: hr_utility.set_location(' locality at step 10: '||to_char(l_locality_adj),95);
4872: l_calculation_pay_table := l_default_pay_table;
4873:
4874: --Bug# 6814842 modified to update position pay table and pay_table_upd_flag
4875: --Bug# 10043212 added to set the position pay table only if the grade does not exist
4884: END IF;
4885:
4886:
4887: IF l_new_adj_basic_pay <= l_adj_basic_pay THEN
4888: hr_utility.set_location('new adjusted basic pay is less than adjusted basic pay',7788);
4889: l_new_basic_pay := l_basic_pay;
4890: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4891: l_new_locality_adj := l_locality_adj;
4892: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4886:
4887: IF l_new_adj_basic_pay <= l_adj_basic_pay THEN
4888: hr_utility.set_location('new adjusted basic pay is less than adjusted basic pay',7788);
4889: l_new_basic_pay := l_basic_pay;
4890: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4891: l_new_locality_adj := l_locality_adj;
4892: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4893: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4894: hr_utility.set_location('l_new_adj_basic_pay'||l_new_adj_basic_pay,7788);
4888: hr_utility.set_location('new adjusted basic pay is less than adjusted basic pay',7788);
4889: l_new_basic_pay := l_basic_pay;
4890: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4891: l_new_locality_adj := l_locality_adj;
4892: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4893: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4894: hr_utility.set_location('l_new_adj_basic_pay'||l_new_adj_basic_pay,7788);
4895: --Bug 7046241 added l_gr_pay_plan condition
4896: IF l_gm_pay_plan OR l_gr_pay_plan THEN
4890: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4891: l_new_locality_adj := l_locality_adj;
4892: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4893: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4894: hr_utility.set_location('l_new_adj_basic_pay'||l_new_adj_basic_pay,7788);
4895: --Bug 7046241 added l_gr_pay_plan condition
4896: IF l_gm_pay_plan OR l_gr_pay_plan THEN
4897: l_new_step := '00';
4898: ELSE
4897: l_new_step := '00';
4898: ELSE
4899: l_new_step := '10';
4900: END IF;
4901: hr_utility.set_location('l_new_step'||l_new_step,7788);
4902: l_term_ret_pay_prd := TRUE;
4903: hr_utility.set_location('terminate PRD',7788);
4904: END IF;
4905: END IF; --IF NVL(l_special_rate,0)
4899: l_new_step := '10';
4900: END IF;
4901: hr_utility.set_location('l_new_step'||l_new_step,7788);
4902: l_term_ret_pay_prd := TRUE;
4903: hr_utility.set_location('terminate PRD',7788);
4904: END IF;
4905: END IF; --IF NVL(l_special_rate,0)
4906:
4907: -- Set the PRD if Pay Retention is terminated.
4949: LOOP
4950: l_calculation_pay_table_id := table_rec.user_table_id;
4951: END LOOP;
4952: p_pay_calc_out_data.calculation_pay_table_id := l_calculation_pay_table_id;
4953: hr_utility.set_location(':: 5010491 :: leaving the pay retention',100);
4954: IF l_gm_pay_plan THEN
4955: l_pay_plan := 'GM';
4956: --- Bug 5908487 Changes.
4957: l_default_pay_plan := 'GM';
4970: IF l_pay_plan IN ('GM','GH','GR') THEN
4971: -- AC added the IF condition for opening teh pay fields in few actions Bug#5114467
4972: IF p_pay_calc_data.noa_family_code IN ('APP','CHG_DUTY_STATION','CONV_APP','EXT_NTE','POS_CHG'
4973: ,'REALIGNMENT','REASSIGNMENT', 'RETURN_TO_DUTY') THEN
4974: hr_utility.set_message(8301, 'GHR_38260_NO_CALC_PAY_PLAN');
4975: hr_utility.set_message_token('PAY_PLAN',l_pay_plan);
4976: raise ghr_pay_calc.unable_to_calculate;
4977: END IF;
4978: -- Added this IF condition Bug#5114467
4971: -- AC added the IF condition for opening teh pay fields in few actions Bug#5114467
4972: IF p_pay_calc_data.noa_family_code IN ('APP','CHG_DUTY_STATION','CONV_APP','EXT_NTE','POS_CHG'
4973: ,'REALIGNMENT','REASSIGNMENT', 'RETURN_TO_DUTY') THEN
4974: hr_utility.set_message(8301, 'GHR_38260_NO_CALC_PAY_PLAN');
4975: hr_utility.set_message_token('PAY_PLAN',l_pay_plan);
4976: raise ghr_pay_calc.unable_to_calculate;
4977: END IF;
4978: -- Added this IF condition Bug#5114467
4979: IF l_pay_plan NOT IN ('GM','GR') THEN
4987: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4988: ELSE
4989: IF p_pay_calc_data.noa_code= 894 THEN
4990: --AC -- Code for 894 Special Emp.
4991: hr_utility.set_location('AC Grade' || l_grade_or_level,1000);
4992: hr_utility.set_location('AC User Table id' || l_user_table_id,1000);
4993: ghr_pc_basic_pay.get_894_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level
4994: ,p_effective_date => p_pay_calc_data.effective_date
4995: ,p_user_table_id => l_user_table_id
4988: ELSE
4989: IF p_pay_calc_data.noa_code= 894 THEN
4990: --AC -- Code for 894 Special Emp.
4991: hr_utility.set_location('AC Grade' || l_grade_or_level,1000);
4992: hr_utility.set_location('AC User Table id' || l_user_table_id,1000);
4993: ghr_pc_basic_pay.get_894_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level
4994: ,p_effective_date => p_pay_calc_data.effective_date
4995: ,p_user_table_id => l_user_table_id
4996: ,p_default_table_id => l_default_table_id
5052: l_step_or_rate,
5053: p_retained_grade.temp_step,
5054: l_ret_flag);
5055: IF l_ret_flag = TRUE then
5056: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
5057: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5058: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5059: ,p_retained_grade.temp_step);
5060: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5053: p_retained_grade.temp_step,
5054: l_ret_flag);
5055: IF l_ret_flag = TRUE then
5056: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
5057: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5058: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5059: ,p_retained_grade.temp_step);
5060: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5061: -- End Bug 3021003
5056: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
5057: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5058: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5059: ,p_retained_grade.temp_step);
5060: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5061: -- End Bug 3021003
5062: ELSE
5063: l_step_or_rate := p_retained_grade.temp_step;
5064: END IF;
5071: l_step_or_rate,
5072: p_retained_grade.temp_step,
5073: l_ret_flag);
5074: IF l_ret_flag = TRUE then
5075: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
5076: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5077: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5078: ,l_step_or_rate);
5079: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5072: p_retained_grade.temp_step,
5073: l_ret_flag);
5074: IF l_ret_flag = TRUE then
5075: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
5076: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5077: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5078: ,l_step_or_rate);
5079: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5080: ELSE
5075: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
5076: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
5077: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
5078: ,l_step_or_rate);
5079: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
5080: ELSE
5081: l_step_or_rate := l_step_or_rate;
5082: END IF; -- IF is_retained_ia End Bug 3021003
5083: END IF; -- if p_retained_grade.temp_step is not null
5099: ,p_current_step => l_curr_step_or_rate);
5100: --END IF;
5101: END IF; --('A','B','E','F') THEN
5102: -- FWFA Changes NEW
5103: hr_utility.set_location('l_step_or_rate: '||l_step_or_rate,11111111);
5104: -- Bug#5444558 Modified the assignment of step value. Assigned the step into local
5105: -- variable l_new_step here. Assign this value to p_pay_calc_out_data.out_step_or_rate
5106: -- at the end of the pay calc.
5107: IF p_pay_calc_data.pay_rate_determinant IN ('E','F','A','B') THEN
5130: -- Processing of NOACs other than WGI/QSI
5131: IF l_user_table_name IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
5132: l_pay_calc_process := 'L';
5133: ELSE
5134: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
5135: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
5136: hr_utility.set_location('grade: '||l_grade_or_level,60);
5137: hr_utility.set_location('step : '||l_step_or_rate,70);
5138: get_special_pay_table_value (p_pay_plan => l_pay_plan
5131: IF l_user_table_name IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
5132: l_pay_calc_process := 'L';
5133: ELSE
5134: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
5135: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
5136: hr_utility.set_location('grade: '||l_grade_or_level,60);
5137: hr_utility.set_location('step : '||l_step_or_rate,70);
5138: get_special_pay_table_value (p_pay_plan => l_pay_plan
5139: ,p_grade_or_level => l_grade_or_level
5132: l_pay_calc_process := 'L';
5133: ELSE
5134: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
5135: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
5136: hr_utility.set_location('grade: '||l_grade_or_level,60);
5137: hr_utility.set_location('step : '||l_step_or_rate,70);
5138: get_special_pay_table_value (p_pay_plan => l_pay_plan
5139: ,p_grade_or_level => l_grade_or_level
5140: ,p_step_or_rate => l_step_or_rate
5133: ELSE
5134: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
5135: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
5136: hr_utility.set_location('grade: '||l_grade_or_level,60);
5137: hr_utility.set_location('step : '||l_step_or_rate,70);
5138: get_special_pay_table_value (p_pay_plan => l_pay_plan
5139: ,p_grade_or_level => l_grade_or_level
5140: ,p_step_or_rate => l_step_or_rate
5141: ,p_user_table_id => l_user_table_id
5143: ,p_pt_value => l_pt_value
5144: ,p_PT_eff_start_date => l_pt_eff_start_date
5145: ,p_PT_eff_end_date => l_pt_eff_end_date
5146: ,p_pp_grd_exists => l_pp_grd_exists );
5147: hr_utility.set_location('value '||to_char(l_pt_value),80);
5148: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
5149: ,p_pay_plan =>l_default_pay_plan
5150: ,p_grade_or_level =>l_grade_or_level
5151: ,p_step_or_rate =>l_step_or_rate
5152: ,p_effective_date =>p_pay_calc_data.effective_date
5153: ,p_PT_value => l_basic_pay
5154: ,p_PT_eff_start_date => l_PT_eff_start_date
5155: ,p_PT_eff_end_date => l_dummy_date);
5156: hr_utility.set_location('std basic: '||to_char(l_BASIC_PAY),90);
5157:
5158: l_locality_adj := ROUND(l_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
5159: l_adj_basic_pay := l_basic_pay + l_locality_adj;
5160:
5177: l_pay_calc_process := 'L';
5178: l_loc_rate_less_spl_rate := NULL;
5179: END IF;
5180: END IF; --l_user_table_name IN
5181: hr_utility.set_location('process :'||l_pay_calc_process,100);
5182: IF g_pay_table_upd_flag THEN
5183: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
5184: ELSE
5185: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
5179: END IF;
5180: END IF; --l_user_table_name IN
5181: hr_utility.set_location('process :'||l_pay_calc_process,100);
5182: IF g_pay_table_upd_flag THEN
5183: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
5184: ELSE
5185: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
5186: END IF;
5187: set_cpt_ppt_prd ( p_leo_flag => l_leo_flag
5181: hr_utility.set_location('process :'||l_pay_calc_process,100);
5182: IF g_pay_table_upd_flag THEN
5183: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
5184: ELSE
5185: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
5186: END IF;
5187: set_cpt_ppt_prd ( p_leo_flag => l_leo_flag
5188: ,p_rg_flag => l_rg_flag
5189: ,p_pp_grd_exists => l_pp_grd_exists
5196: ,p_retained_pay_table => l_retained_pay_table
5197: ,p_new_prd => l_new_prd
5198: );
5199: IF g_pay_table_upd_flag THEN
5200: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
5201: ELSE
5202: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5198: );
5199: IF g_pay_table_upd_flag THEN
5200: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
5201: ELSE
5202: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5205: hr_utility.set_location('posn table: '||L_position_pay_table,120);
5206: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
5200: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
5201: ELSE
5202: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5205: hr_utility.set_location('posn table: '||L_position_pay_table,120);
5206: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
5207: hr_utility.set_location('new prd : '||l_new_prd,140);
5208:
5201: ELSE
5202: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5205: hr_utility.set_location('posn table: '||L_position_pay_table,120);
5206: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
5207: hr_utility.set_location('new prd : '||l_new_prd,140);
5208:
5209:
5202: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5205: hr_utility.set_location('posn table: '||L_position_pay_table,120);
5206: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
5207: hr_utility.set_location('new prd : '||l_new_prd,140);
5208:
5209:
5210: -- get_basic_pay
5203: END IF;
5204: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
5205: hr_utility.set_location('posn table: '||L_position_pay_table,120);
5206: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
5207: hr_utility.set_location('new prd : '||l_new_prd,140);
5208:
5209:
5210: -- get_basic_pay
5211: hr_utility.set_location('2. l_step_or_rate: '||l_step_or_rate,999999);
5207: hr_utility.set_location('new prd : '||l_new_prd,140);
5208:
5209:
5210: -- get_basic_pay
5211: hr_utility.set_location('2. l_step_or_rate: '||l_step_or_rate,999999);
5212: ghr_pay_calc.get_pay_table_value(p_user_table_id => l_default_table_id
5213: ,p_pay_plan => l_default_pay_plan
5214: ,p_grade_or_level => l_grade_or_level
5215: ,p_step_or_rate => l_step_or_rate
5217: ,p_PT_value => l_basic_pay
5218: ,p_PT_eff_start_date => l_PT_eff_start_date
5219: ,p_PT_eff_end_date => l_dummy_date);
5220: l_new_basic_pay := l_basic_pay;
5221: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
5222: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
5223: -- get_locality_or_supplement/ Adj Basic Pay
5224: IF l_pay_calc_process = 'L' THEN
5225: hr_utility.set_location('Inside Locality Calculation',30);
5218: ,p_PT_eff_start_date => l_PT_eff_start_date
5219: ,p_PT_eff_end_date => l_dummy_date);
5220: l_new_basic_pay := l_basic_pay;
5221: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
5222: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
5223: -- get_locality_or_supplement/ Adj Basic Pay
5224: IF l_pay_calc_process = 'L' THEN
5225: hr_utility.set_location('Inside Locality Calculation',30);
5226: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
5221: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
5222: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
5223: -- get_locality_or_supplement/ Adj Basic Pay
5224: IF l_pay_calc_process = 'L' THEN
5225: hr_utility.set_location('Inside Locality Calculation',30);
5226: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
5227: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
5228: ELSIF l_pay_calc_process = 'S' THEN
5229: hr_utility.set_location('Inside Special Rate Calculation',40);
5225: hr_utility.set_location('Inside Locality Calculation',30);
5226: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
5227: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
5228: ELSIF l_pay_calc_process = 'S' THEN
5229: hr_utility.set_location('Inside Special Rate Calculation',40);
5230: l_new_locality_adj := l_pt_value - l_new_basic_pay;
5231: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
5232: END IF;
5233: END IF;--End of if Bug 5608741
5237: LOOP
5238: l_calculation_pay_table_id := table_rec.user_table_id;
5239: END LOOP;
5240:
5241: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
5242: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
5243: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
5244: hr_utility.set_location('new PRD : '||l_new_prd,40);
5245: hr_utility.set_location('new Step : '||l_new_step,50);
5238: l_calculation_pay_table_id := table_rec.user_table_id;
5239: END LOOP;
5240:
5241: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
5242: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
5243: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
5244: hr_utility.set_location('new PRD : '||l_new_prd,40);
5245: hr_utility.set_location('new Step : '||l_new_step,50);
5246: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
5239: END LOOP;
5240:
5241: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
5242: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
5243: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
5244: hr_utility.set_location('new PRD : '||l_new_prd,40);
5245: hr_utility.set_location('new Step : '||l_new_step,50);
5246: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
5247: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
5240:
5241: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
5242: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
5243: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
5244: hr_utility.set_location('new PRD : '||l_new_prd,40);
5245: hr_utility.set_location('new Step : '||l_new_step,50);
5246: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
5247: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
5248: l_pay_plan IN ('GL','GG') AND
5241: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
5242: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
5243: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
5244: hr_utility.set_location('new PRD : '||l_new_prd,40);
5245: hr_utility.set_location('new Step : '||l_new_step,50);
5246: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
5247: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
5248: l_pay_plan IN ('GL','GG') AND
5249: l_new_prd IN ('6','E','F') THEN
5286: l_new_prd := NULL;
5287: END IF;
5288:
5289: -- SET OUT PARAMETERS
5290: hr_utility.set_location('new PRD : '||l_new_prd,40);
5291: hr_utility.set_location('new Step : '||l_new_step,50);
5292: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
5293: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
5294: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
5287: END IF;
5288:
5289: -- SET OUT PARAMETERS
5290: hr_utility.set_location('new PRD : '||l_new_prd,40);
5291: hr_utility.set_location('new Step : '||l_new_step,50);
5292: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
5293: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
5294: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
5295: p_pay_calc_out_data.adj_basic_pay := l_new_adj_basic_pay;
5288:
5289: -- SET OUT PARAMETERS
5290: hr_utility.set_location('new PRD : '||l_new_prd,40);
5291: hr_utility.set_location('new Step : '||l_new_step,50);
5292: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
5293: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
5294: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
5295: p_pay_calc_out_data.adj_basic_pay := l_new_adj_basic_pay;
5296: p_pay_calc_out_data.out_pay_rate_determinant := l_new_prd;
5364: FROM pay_user_tables utb
5365: WHERE utb.user_table_name = p_user_table_name;
5366:
5367: BEGIN
5368: hr_utility.set_location('Entering ...'|| l_proc,100);
5369: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_position_id,p_effective_date);
5370:
5371: hr_utility.set_location('personnel system ...'|| l_psi,101);
5372:
5367: BEGIN
5368: hr_utility.set_location('Entering ...'|| l_proc,100);
5369: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_position_id,p_effective_date);
5370:
5371: hr_utility.set_location('personnel system ...'|| l_psi,101);
5372:
5373: IF l_psi <> '00' THEN --for NSPS
5374:
5375: IF p_pay_basis = 'PA' THEN
5409: END IF;
5410:
5411: exception
5412: when others then
5413: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
5414: END;
5415: END IF;--IF NVL(p_prd,'X')
5416: for c1 in c_gs_eq(l_pay_plan) loop
5417: l_equivalent_pay_plan := c1.equivalent_pay_plan;
5450: ,p_PT_eff_end_date => l_pt_eff_end_date
5451: ,p_pp_grd_exists => l_pp_grd_exists );
5452:
5453: l_special_rate := l_pt_value;
5454: hr_utility.set_location('special rate '||l_special_rate,8877);
5455:
5456: --code for getting default table values......
5457:
5458:
5481: ,p_PT_value => l_PT_value
5482: ,p_PT_eff_start_date => l_PT_eff_start_date
5483: ,p_PT_eff_end_date => l_PT_eff_end_date
5484: );
5485: hr_utility.set_location('default rate '||l_PT_value,8877);
5486: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_duty_station_id,p_effective_date),0);
5487: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5488: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5489:
5483: ,p_PT_eff_end_date => l_PT_eff_end_date
5484: );
5485: hr_utility.set_location('default rate '||l_PT_value,8877);
5486: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_duty_station_id,p_effective_date),0);
5487: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5488: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5489:
5490: l_pt_value := l_pt_value + l_locality_adj;
5491: hr_utility.set_location('final default rate '||l_pt_value,8877);
5487: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5488: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5489:
5490: l_pt_value := l_pt_value + l_locality_adj;
5491: hr_utility.set_location('final default rate '||l_pt_value,8877);
5492: --compare srt and locality rate..........
5493: if nvl(l_special_rate,0) < l_pt_value then
5494: p_award_salary := ROUND(l_pt_value);
5495: else
5552:
5553: -- Bug#5237399 Added the AD Pay Plan Condition.
5554: ELSIF (l_equivalent_pay_plan = 'FW' OR
5555: (l_pay_plan IN ('AD','ED') and l_pay_basis = 'PH')) THEN --Bug# 10154618 added pay plan ED
5556: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5557: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5558: hr_utility.set_location('MAX STEP '||l_max_step,30);
5559: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5560: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5553: -- Bug#5237399 Added the AD Pay Plan Condition.
5554: ELSIF (l_equivalent_pay_plan = 'FW' OR
5555: (l_pay_plan IN ('AD','ED') and l_pay_basis = 'PH')) THEN --Bug# 10154618 added pay plan ED
5556: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5557: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5558: hr_utility.set_location('MAX STEP '||l_max_step,30);
5559: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5560: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5561: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5554: ELSIF (l_equivalent_pay_plan = 'FW' OR
5555: (l_pay_plan IN ('AD','ED') and l_pay_basis = 'PH')) THEN --Bug# 10154618 added pay plan ED
5556: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5557: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5558: hr_utility.set_location('MAX STEP '||l_max_step,30);
5559: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5560: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5561: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5562: ,p_pay_plan => l_pay_plan
5555: (l_pay_plan IN ('AD','ED') and l_pay_basis = 'PH')) THEN --Bug# 10154618 added pay plan ED
5556: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5557: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5558: hr_utility.set_location('MAX STEP '||l_max_step,30);
5559: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5560: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5561: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5562: ,p_pay_plan => l_pay_plan
5563: ,p_grade_or_level => l_grade_or_level
5556: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5557: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5558: hr_utility.set_location('MAX STEP '||l_max_step,30);
5559: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5560: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5561: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5562: ,p_pay_plan => l_pay_plan
5563: ,p_grade_or_level => l_grade_or_level
5564: ,p_step_or_rate => l_max_step
5565: ,p_effective_date => p_effective_date
5566: ,p_PT_value => l_PT_value
5567: ,p_PT_eff_start_date => l_PT_eff_start_date
5568: ,p_PT_eff_end_date => l_PT_eff_end_date);
5569: hr_utility.set_location('VALUE '||to_char(l_pt_value),60);
5570: hr_utility.set_location('Pay Basis '||p_pay_basis,70);
5571: p_award_salary := ROUND(ghr_pay_calc.convert_amount(l_PT_value,p_pay_basis,'PA'));
5572:
5573: END IF; --(p_pay_plan = l_equivalent_pay_plan)
5566: ,p_PT_value => l_PT_value
5567: ,p_PT_eff_start_date => l_PT_eff_start_date
5568: ,p_PT_eff_end_date => l_PT_eff_end_date);
5569: hr_utility.set_location('VALUE '||to_char(l_pt_value),60);
5570: hr_utility.set_location('Pay Basis '||p_pay_basis,70);
5571: p_award_salary := ROUND(ghr_pay_calc.convert_amount(l_PT_value,p_pay_basis,'PA'));
5572:
5573: END IF; --(p_pay_plan = l_equivalent_pay_plan)
5574: END IF; -----IF p_prd not in('3','4','J','K','U','V'
5591: );
5592:
5593: p_award_amount := FLOOR(p_award_salary *( nvl(p_award_percentage,0) / 100));
5594: --End Bug# 5039156
5595: hr_utility.set_location('Leaving Award Amount sal' || p_award_salary,10);
5596: EXCEPTION
5597: WHEN OTHERS THEN
5598: p_award_amount := NULL;
5599: p_award_salary := NULL;
5596: EXCEPTION
5597: WHEN OTHERS THEN
5598: p_award_amount := NULL;
5599: p_award_salary := NULL;
5600: hr_utility.set_location('Leaving ' || l_proc,10);
5601: END award_amount_calc;
5602: -- Bug# 4748927 End
5603: END ghr_pay_calc;