[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;
1108: IF (l_pay_plan IN ( 'GS','GL','GM') AND p_pay_calc_data.noa_code = '894'
1109: AND p_pay_calc_data.pay_rate_determinant = 'M') THEN
1110: IF l_pay_plan = 'GS' THEN
1111:
1112: hr_utility.set_location('In Entering ...'|| l_proc,5);
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1109: AND p_pay_calc_data.pay_rate_determinant = 'M') THEN
1110: IF l_pay_plan = 'GS' THEN
1111:
1112: hr_utility.set_location('In Entering ...'|| l_proc,5);
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1110: IF l_pay_plan = 'GS' THEN
1111:
1112: hr_utility.set_location('In Entering ...'|| l_proc,5);
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1111:
1112: hr_utility.set_location('In Entering ...'|| l_proc,5);
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1119: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1112: hr_utility.set_location('In Entering ...'|| l_proc,5);
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1119: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1120: get_locality_adj_894_PRDM_GS
1113: hr_utility.set_location('In User_table_id ...'|| to_char(p_pay_calc_data.user_table_id),5);
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1119: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1120: get_locality_adj_894_PRDM_GS
1121: (p_user_table_id => p_pay_calc_data.user_table_id
1114: hr_utility.set_location('In p_pay_plan ...'|| l_pay_plan,5);
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1119: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1120: get_locality_adj_894_PRDM_GS
1121: (p_user_table_id => p_pay_calc_data.user_table_id
1122: ,p_pay_plan => l_pay_plan
1115: hr_utility.set_location('In p_grade_or_level ...'|| l_grade_or_level,5);
1116: hr_utility.set_location('In step_or_rate ...'|| l_step_or_rate,5);
1117: hr_utility.set_location('In effective_date ...'|| to_char(p_pay_calc_data.effective_date,'DD-MON-YYYY'),5);
1118: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_pay_calc_data.current_adj_basic_pay),5);
1119: hr_utility.set_location('In new basic pay ...'|| to_char(p_pay_calc_out_data.basic_pay),5);
1120: get_locality_adj_894_PRDM_GS
1121: (p_user_table_id => p_pay_calc_data.user_table_id
1122: ,p_pay_plan => l_pay_plan
1123: ,p_grade_or_level => l_grade_or_level
1197: ,p_pay_calc_data.position_id
1198: ,l_dummy
1199: ,l_dummy
1200: ,p_pay_calc_data.effective_date) THEN
1201: hr_utility.set_location('AB p_pay_calc_data.pay_rate_determinant ' || p_pay_calc_data.pay_rate_determinant,99);
1202: FOR c_rec IN c_user_table_id(ghr_pay_calc.l_standard_table_name) LOOP
1203: l_std_user_table_id := c_rec.user_table_id;
1204: END LOOP;
1205: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1201: hr_utility.set_location('AB p_pay_calc_data.pay_rate_determinant ' || p_pay_calc_data.pay_rate_determinant,99);
1202: FOR c_rec IN c_user_table_id(ghr_pay_calc.l_standard_table_name) LOOP
1203: l_std_user_table_id := c_rec.user_table_id;
1204: END LOOP;
1205: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1206: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1207: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1208: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1209: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1203: l_std_user_table_id := c_rec.user_table_id;
1204: END LOOP;
1205: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1206: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1207: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1208: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1209: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1210: get_pay_table_value(l_std_user_table_id
1211: ,l_pay_plan
1205: hr_utility.set_location('AB l_std_user_table_id ' || l_std_user_table_id,99);
1206: IF p_pay_calc_data.pay_rate_determinant = '6' THEN
1207: hr_utility.set_location('AB p_pay_calc_data.grade_or_level ' || p_pay_calc_data.grade_or_level,99);
1208: l_new_step_or_rate := NVL(p_pay_calc_out_data.out_step_or_rate, p_pay_calc_data.step_or_rate);
1209: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1210: get_pay_table_value(l_std_user_table_id
1211: ,l_pay_plan
1212: ,p_pay_calc_data.grade_or_level
1213: ,l_new_step_or_rate
1215: ,l_std_basic_pay
1216: ,l_dummy_date
1217: ,l_dummy_date);
1218: ELSE
1219: hr_utility.set_location('AB l_retained_grade.grade_or_level ' || l_retained_grade.grade_or_level,99);
1220: hr_utility.set_location('AB l_retained_grade.step_or_rate ' || l_retained_grade.step_or_rate,99);
1221: IF p_pay_calc_data.noa_code IN ('867','892','893') THEN
1222: IF l_session.noa_id_correct is not null then
1223: IF l_retained_grade.temp_step is not null then
1216: ,l_dummy_date
1217: ,l_dummy_date);
1218: ELSE
1219: hr_utility.set_location('AB l_retained_grade.grade_or_level ' || l_retained_grade.grade_or_level,99);
1220: hr_utility.set_location('AB l_retained_grade.step_or_rate ' || l_retained_grade.step_or_rate,99);
1221: IF p_pay_calc_data.noa_code IN ('867','892','893') THEN
1222: IF l_session.noa_id_correct is not null then
1223: IF l_retained_grade.temp_step is not null then
1224: is_retained_ia(p_pay_calc_data.person_id,
1257: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan
1258: ,p_retained_grade.step_or_rate);
1259: END IF;
1260: END IF;
1261: hr_utility.set_location('AB l_new_step_or_rate ' || l_new_step_or_rate,99);
1262: ELSE
1263: IF p_retained_grade.temp_step is not null THEN
1264: l_new_step_or_rate := p_retained_grade.temp_step;
1265: ELSE
1274: ,l_std_basic_pay
1275: ,l_dummy_date
1276: ,l_dummy_date);
1277: END IF;
1278: hr_utility.set_location('AB l_std_basic_pay ' || l_std_basic_pay,99);
1279: l_adjustment_percentage := ghr_pay_calc.get_leo_lpa_percentage
1280: (p_pay_calc_data.duty_station_id
1281: ,p_pay_calc_data.effective_date);
1282: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1278: hr_utility.set_location('AB l_std_basic_pay ' || l_std_basic_pay,99);
1279: l_adjustment_percentage := ghr_pay_calc.get_leo_lpa_percentage
1280: (p_pay_calc_data.duty_station_id
1281: ,p_pay_calc_data.effective_date);
1282: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1283: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1284: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1285: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1286: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1281: ,p_pay_calc_data.effective_date);
1282: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1283: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1284: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1285: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1286: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1287: IF p_pay_calc_out_data.basic_pay > l_loc_rate THEN
1288: l_locality_adj := 0;
1289: p_pay_calc_out_data.adj_basic_pay := p_pay_calc_out_data.basic_pay;
1282: hr_utility.set_location('AB l_adjustment_percentage ' || l_adjustment_percentage,99);
1283: l_std_locality_adj := ROUND(l_std_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
1284: l_loc_rate := l_std_basic_pay + l_std_locality_adj;
1285: hr_utility.set_location('AB l_std_locality_adj ' || l_std_locality_adj,99);
1286: hr_utility.set_location('AB l_loc_rate ' || l_loc_rate,99);
1287: IF p_pay_calc_out_data.basic_pay > l_loc_rate THEN
1288: l_locality_adj := 0;
1289: p_pay_calc_out_data.adj_basic_pay := p_pay_calc_out_data.basic_pay;
1290: ELSE
1291: p_pay_calc_out_data.adj_basic_pay := l_loc_rate;
1292: l_locality_adj := l_loc_rate - p_pay_calc_out_data.basic_pay;
1293: END IF;
1294: p_pay_calc_out_data.locality_adj := l_locality_adj;
1295: hr_utility.set_location('AB p_pay_calc_out_data.locality_adj ' || p_pay_calc_out_data.locality_adj,99);
1296: hr_utility.set_location('AB p_pay_calc_out_data.adj_basic_pay ' || p_pay_calc_out_data.adj_basic_pay,99);
1297:
1298: --Bug 4740036 End
1299:
1292: l_locality_adj := l_loc_rate - p_pay_calc_out_data.basic_pay;
1293: END IF;
1294: p_pay_calc_out_data.locality_adj := l_locality_adj;
1295: hr_utility.set_location('AB p_pay_calc_out_data.locality_adj ' || p_pay_calc_out_data.locality_adj,99);
1296: hr_utility.set_location('AB p_pay_calc_out_data.adj_basic_pay ' || p_pay_calc_out_data.adj_basic_pay,99);
1297:
1298: --Bug 4740036 End
1299:
1300: ELSE
1374: l_retained_grade.step_or_rate,
1375: l_retained_grade.temp_step,
1376: l_ret_flag);
1377: IF l_ret_flag = TRUE then
1378: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1379: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1380: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1381: ,l_retained_grade.temp_step);
1382: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1375: l_retained_grade.temp_step,
1376: l_ret_flag);
1377: IF l_ret_flag = TRUE then
1378: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1379: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1380: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1381: ,l_retained_grade.temp_step);
1382: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1383: -- End Bug 3021003
1378: hr_utility.set_location('NAR ret step ' ||l_retained_grade.temp_step,10);
1379: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1380: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1381: ,l_retained_grade.temp_step);
1382: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1383: -- End Bug 3021003
1384: ELSE
1385: l_new_step_or_rate := p_retained_grade.temp_step;
1386: END IF;
1393: l_retained_grade.step_or_rate,
1394: l_retained_grade.temp_step,
1395: l_ret_flag);
1396: IF l_ret_flag = TRUE then
1397: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1398: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1399: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1400: ,l_retained_grade.step_or_rate);
1401: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1394: l_retained_grade.temp_step,
1395: l_ret_flag);
1396: IF l_ret_flag = TRUE then
1397: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1398: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1399: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1400: ,l_retained_grade.step_or_rate);
1401: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1402: ELSE
1397: hr_utility.set_location('NAR ret step ' ||l_retained_grade.step_or_rate,10);
1398: hr_utility.set_location('NAR pay plan '||p_pay_calc_data.pay_plan,20);
1399: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1400: ,l_retained_grade.step_or_rate);
1401: hr_utility.set_location('NAR new step after getting the step ' ||l_new_step_or_rate,10);
1402: ELSE
1403: l_new_step_or_rate := l_retained_grade.step_or_rate;
1404: END IF; -- IF is_retained_ia End Bug 3021003
1405: END IF; -- if p_retained_grade.temp_step is not null
1478:
1479: ELSE
1480: -- should never have really got here as the basic pay should have stopped us
1481: -- calculating if we didn't know how to
1482: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
1483: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
1484: raise ghr_pay_calc.unable_to_calculate;
1485: END IF; -- End of PRD checks
1486: --
1479: ELSE
1480: -- should never have really got here as the basic pay should have stopped us
1481: -- calculating if we didn't know how to
1482: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
1483: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
1484: raise ghr_pay_calc.unable_to_calculate;
1485: END IF; -- End of PRD checks
1486: --
1487: END IF; -- End of LEO checks
1851: LOOP
1852: l_ex_emp := TRUE;
1853: END LOOP;
1854:
1855: hr_utility.set_location('Entering main pay calc...'|| l_proc,5);
1856: -----Bug 3288419 Initialize the global variables.
1857: g_gm_unadjd_basic_pay := NULL;
1858: gm_unadjusted_pay_flg := NULL;
1859: -- FWFA Changes Bug#4444609
1884: END IF;
1885: --
1886: IF ( p_noa_code = '702' OR p_second_noa_code = '702' )
1887: AND ( p_pay_rate_determinant in ('A','B','E','F','U','V') ) THEN
1888: hr_utility.set_message(8301,'GHR_38697_RG_PROMOTE');
1889: raise pay_calc_message;
1890: END IF;
1891:
1892: -- For corrections we need to go and get alot of the IN parameters
1894: IF p_noa_family_code = 'CORRECT' THEN
1895: -- Must have a pa_request_id for a CORRECT family
1896: ghr_pc_basic_pay.g_noa_family_code := 'CORRECT';
1897: IF p_pa_request_id IS NULL THEN
1898: hr_utility.set_message(8301,'GHR_38398_PAY_CALC_NO_PAR_ID');
1899: raise pay_calc_message;
1900: END IF;
1901: ghr_corr_canc_sf52.build_corrected_sf52
1902: (p_pa_request_id => p_pa_request_id
1958: p_effective_date => p_effective_date,
1959: p_pa_request_id => p_pa_request_id,
1960: p_person_id => p_person_id);
1961: IF (l_from_pay_basis = '-1') THEN
1962: hr_utility.set_message(8301,'GHR_38020_PAY_CALC_NO_PAY_BAS');
1963: raise pay_calc_message;
1964: END IF;
1965: -- End 3245692
1966:
1965: -- End 3245692
1966:
1967: END IF;
1968:
1969: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
1970: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
1971: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
1972:
1973: ghr_history_api.get_g_session_var(l_session);
1966:
1967: END IF;
1968:
1969: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
1970: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
1971: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
1972:
1973: ghr_history_api.get_g_session_var(l_session);
1974: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
1967: END IF;
1968:
1969: hr_utility.set_location(' Passed Noa Fam Code = ' || p_noa_family_code,5);
1970: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
1971: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
1972:
1973: ghr_history_api.get_g_session_var(l_session);
1974: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
1975: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
1970: hr_utility.set_location(' Passed l_retention_allowance = ' || to_char(l_retention_allowance),5);
1971: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
1972:
1973: ghr_history_api.get_g_session_var(l_session);
1974: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
1975: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
1976: -- set values of session variables IA fetch sake.
1977: v_session.pa_request_id := l_session.pa_request_id;
1978: v_session.noa_id := l_session.noa_id;
1971: hr_utility.set_location(' Passed l_to_ret_allow_percentage = ' || to_char(l_to_ret_allow_percentage),5);
1972:
1973: ghr_history_api.get_g_session_var(l_session);
1974: hr_utility.set_location( 'Get Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
1975: hr_utility.set_location( 'Get Ses ASGID is ' || to_char(l_session.assignment_id), 15);
1976: -- set values of session variables IA fetch sake.
1977: v_session.pa_request_id := l_session.pa_request_id;
1978: v_session.noa_id := l_session.noa_id;
1979: v_session.fire_trigger := l_session.fire_trigger;
2026: l_ia_effective_date := l_ia_effective_date + 1;
2027: END IF;
2028: end if;
2029:
2030: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2031:
2032: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2033: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2034:
2028: end if;
2029:
2030: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2031:
2032: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2033: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2034:
2035: ghr_history_api.reinit_g_session_var;
2036: l_session.noa_id_correct := NULL;
2029:
2030: hr_utility.set_location( 'l_ia_effective_date ' || to_char(l_ia_effective_date,'YYYY/MM/DD'),15);
2031:
2032: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(v_session.noa_id_correct), 15);
2033: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2034:
2035: ghr_history_api.reinit_g_session_var;
2036: l_session.noa_id_correct := NULL;
2037: hr_utility.set_location( 'Set Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2033: hr_utility.set_location( 'Ses ASGID is ' || to_char(v_session.assignment_id), 15);
2034:
2035: ghr_history_api.reinit_g_session_var;
2036: l_session.noa_id_correct := NULL;
2037: hr_utility.set_location( 'Set Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2038: ghr_history_api.set_g_session_var(l_session);
2039:
2040: if l_ia_effective_date is not null then
2041: l_old_effective_date := l_ia_effective_date - 1;
2042: else
2043: l_old_effective_date := l_effective_date - 1;
2044: end if;
2045:
2046: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2047: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2048: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2049: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2050:
2043: l_old_effective_date := l_effective_date - 1;
2044: end if;
2045:
2046: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2047: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2048: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2049: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2050:
2051: -------Assignment id is different then need to be checked the following logic.
2044: end if;
2045:
2046: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2047: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2048: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2049: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2050:
2051: -------Assignment id is different then need to be checked the following logic.
2052:
2045:
2046: hr_utility.set_location( 'l_old_effective_date ' || to_char(l_old_effective_date,'YYYY/MM/DD'),15);
2047: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2048: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2049: hr_utility.set_location( 'Fetch old Retention Allowance' || l_proc,15);
2050:
2051: -------Assignment id is different then need to be checked the following logic.
2052:
2053: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2056: ,p_effective_date => l_old_effective_date
2057: ,p_value => l_value
2058: ,p_multiple_error_flag => l_multi_error_flag);
2059: l_old_ret_allow := to_number(l_value);
2060: hr_utility.set_location( 'l_old_ret_allow is ' || to_char(l_old_ret_allow), 15);
2061:
2062: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2063: ,p_input_value_name => 'Amount'
2064: ,p_assignment_id => l_session.assignment_id
2065: ,p_effective_date => nvl(l_ia_effective_date,l_effective_date)
2066: ,p_value => l_value
2067: ,p_multiple_error_flag => l_multi_error_flag);
2068: l_from_retention_allowance := to_number(l_value);
2069: hr_utility.set_location( 'l_from_retention_allowance is ' || to_char(l_from_retention_allowance), 15);
2070: --
2071: -- Modifying the input values from percent to percentage for Payroll Integration
2072: --
2073: ghr_api.retrieve_element_entry_value (p_element_name => 'Basic Salary Rate'
2076: ,p_effective_date => nvl(l_ia_effective_date,l_effective_date)
2077: ,p_value => l_value
2078: ,p_multiple_error_flag => l_multi_error_flag);
2079: l_from_basic_pay := to_number(l_value);
2080: hr_utility.set_location( 'l_from_basic_pay is ' || to_char(l_from_basic_pay), 15);
2081:
2082: if l_ia_effective_date is not null then
2083: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2084: ,p_input_value_name => 'Amount'
2087: ,p_value => l_value
2088: ,p_multiple_error_flag => l_multi_error_flag);
2089:
2090: l_ghr_pa_request_rec.to_retention_allowance := to_number(l_value);
2091: hr_utility.set_location( 'RA is ' || to_char(l_ghr_pa_request_rec.to_retention_allowance), 15);
2092: --
2093: -- Modifying the input values from percent to percentage for Payroll Integration
2094: --
2095: ghr_api.retrieve_element_entry_value (p_element_name => 'Retention Allowance'
2099: ,p_value => l_value
2100: ,p_multiple_error_flag => l_multi_error_flag);
2101:
2102: l_ghr_pa_request_rec.to_retention_allow_percentage := to_number(l_value);
2103: hr_utility.set_location( 'RA % is ' || to_char(l_ghr_pa_request_rec.to_retention_allow_percentage),15);
2104:
2105: ghr_api.retrieve_element_entry_value (p_element_name => 'Supervisory Differential'
2106: ,p_input_value_name => 'Amount'
2107: ,p_assignment_id => l_session.assignment_id
2109: ,p_value => l_value
2110: ,p_multiple_error_flag => l_multi_error_flag);
2111:
2112: l_ghr_pa_request_rec.to_supervisory_differential := to_number(l_value);
2113: hr_utility.set_location( 'SD is ' || to_char(l_ghr_pa_request_rec.to_supervisory_differential), 15);
2114:
2115:
2116: ghr_api.retrieve_element_entry_value (p_element_name => 'AUO'
2117: ,p_input_value_name => 'Premium Pay Ind'
2120: ,p_value => l_value
2121: ,p_multiple_error_flag => l_multi_error_flag);
2122:
2123: l_ghr_pa_request_rec.to_auo_premium_pay_indicator := l_value;
2124: hr_utility.set_location( 'AUO is ' || (l_ghr_pa_request_rec.to_auo_premium_pay_indicator), 15);
2125:
2126:
2127: ghr_api.retrieve_element_entry_value (p_element_name => 'Availability Pay'
2128: ,p_input_value_name => 'Premium Pay Ind'
2131: ,p_value => l_value
2132: ,p_multiple_error_flag => l_multi_error_flag);
2133:
2134: l_ghr_pa_request_rec.to_ap_premium_pay_indicator := l_value;
2135: hr_utility.set_location( 'AP is ' || (l_ghr_pa_request_rec.to_ap_premium_pay_indicator), 15);
2136: l_auo_premium_pay_indicator := NVL(p_auo_premium_pay_indicator,l_ghr_pa_request_rec.to_auo_premium_pay_indicator);
2137: l_ap_premium_pay_indicator := NVL(p_ap_premium_pay_indicator ,l_ghr_pa_request_rec.to_ap_premium_pay_indicator);
2138: l_retention_allowance := NVL(p_retention_allowance ,l_ghr_pa_request_rec.to_retention_allowance);
2139: l_to_ret_allow_percentage := NVL(p_to_ret_allow_percentage ,l_ghr_pa_request_rec.to_retention_allow_percentage);
2154: l_session.altered_pa_request_id := v_session.altered_pa_request_id;
2155: l_session.noa_id_correct := v_session.noa_id_correct;
2156: ghr_history_api.set_g_session_var(l_session);
2157:
2158: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2159: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2160:
2161:
2162: -- If we didn't get the user_table_id passed in then try and get it from the position_id
2155: l_session.noa_id_correct := v_session.noa_id_correct;
2156: ghr_history_api.set_g_session_var(l_session);
2157:
2158: hr_utility.set_location( 'Ses NOAIDCORR is ' || to_char(l_session.noa_id_correct), 15);
2159: hr_utility.set_location( 'Ses ASGID is ' || to_char(l_session.assignment_id), 15);
2160:
2161:
2162: -- If we didn't get the user_table_id passed in then try and get it from the position_id
2163: -- This is specifically for the Form as I would expect any body else who uses this to get ALL
2262: OPEN espayplan;
2263: FETCH espayplan into esplan_flag;
2264: IF espayplan%FOUND THEN
2265: CLOSE espayplan;
2266: hr_utility.set_message(8301, 'GHR_38223_INV_PAY_PLAN_892');
2267: hr_utility.raise_error;
2268: END IF;
2269: CLOSE espayplan;
2270: END IF;
2263: FETCH espayplan into esplan_flag;
2264: IF espayplan%FOUND THEN
2265: CLOSE espayplan;
2266: hr_utility.set_message(8301, 'GHR_38223_INV_PAY_PLAN_892');
2267: hr_utility.raise_error;
2268: END IF;
2269: CLOSE espayplan;
2270: END IF;
2271: ---Bug 7557159 Start
2269: CLOSE espayplan;
2270: END IF;
2271: ---Bug 7557159 Start
2272: IF p_pay_rate_determinant = 'D' THEN
2273: hr_utility.set_message(8301, 'GHR_38520_PRD_D');
2274: raise ghr_pay_calc.open_pay_range_mesg;
2275: END IF;
2276: ---Bug 7557159 End
2277: if get_open_pay_range ( l_position_id
2280: , p_pa_request_id
2281: , NVL(p_effective_date,TRUNC(sysdate)) ) then
2282: --6489042 during appointment of ESSL employees of PRD 2 enabling basic pay for user entry
2283: if p_pay_rate_determinant <> '2' then
2284: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2285: raise ghr_pay_calc.open_pay_range_mesg;
2286: elsif p_pay_rate_determinant = '2' and l_noa_family_code IN ('APP') then
2287: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2288: raise ghr_pay_calc.open_pay_range_mesg;
2283: if p_pay_rate_determinant <> '2' then
2284: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2285: raise ghr_pay_calc.open_pay_range_mesg;
2286: elsif p_pay_rate_determinant = '2' and l_noa_family_code IN ('APP') then
2287: hr_utility.set_message(8301, 'GHR_38713_OPEN_PAY_RANGE');
2288: raise ghr_pay_calc.open_pay_range_mesg;
2289: end if;
2290: end if;
2291: end if;
2321: ,l_pay_calc_data.pay_basis);
2322: l_pay_calc_out_data.availability_pay := get_ppi_amount (l_pay_calc_data.ap_premium_pay_indicator
2323: ,l_pay_calc_out_data.adj_basic_pay
2324: ,l_pay_calc_data.pay_basis);
2325: hr_utility.set_location('test asg id: '||l_session.assignment_id,10);
2326: hr_utility.set_location(' test eff dt: '||l_pay_calc_data.effective_date,10);
2327: FOR asg_rec IN c_asg_rec(l_pay_calc_data.person_id, l_pay_calc_data.effective_date)
2328: LOOP
2329: l_assignment_id := asg_rec.assignment_id;
2322: l_pay_calc_out_data.availability_pay := get_ppi_amount (l_pay_calc_data.ap_premium_pay_indicator
2323: ,l_pay_calc_out_data.adj_basic_pay
2324: ,l_pay_calc_data.pay_basis);
2325: hr_utility.set_location('test asg id: '||l_session.assignment_id,10);
2326: hr_utility.set_location(' test eff dt: '||l_pay_calc_data.effective_date,10);
2327: FOR asg_rec IN c_asg_rec(l_pay_calc_data.person_id, l_pay_calc_data.effective_date)
2328: LOOP
2329: l_assignment_id := asg_rec.assignment_id;
2330: exit;
2365: l_pay_calc_out_data.adj_basic_pay := l_pay_calc_out_data.locality_adj +
2366: l_pay_calc_out_data.basic_pay;
2367: end if;
2368: ELSIF l_pay_plan = 'GR' then --IF l_pay_plan = 'GP'
2369: hr_utility.set_location('Setting process methods for GP pay plan...',555);
2370: get_locality_adj (l_pay_calc_data, l_retained_grade, l_pay_calc_out_data);
2371: If (l_pay_calc_data.noa_code = '894' OR l_pay_calc_data.second_noa_code = '894')
2372: and (l_first_action_la_code1 = 'ZLM') then
2373: l_pay_calc_out_data.open_localityadj_field := TRUE;
2397: END LOOP;
2398: END IF;
2399: ------------------------------ 1) Get basic_pay --------------------------------------------------------
2400: --
2401: hr_utility.set_location('Calling main basic pay...'|| l_proc,5);
2402: -- MSL percentage Changes Madhuri 3843306
2403:
2404: -- if nvl(ghr_msl_pkg.g_ses_msl_process,'N') = 'Y' then
2405: -- l_pay_calc_out_data.basic_pay := nvl(l_pay_calc_data.current_adj_basic_pay,0);
2468: if p_open_out_locality_adj is not null then
2469: l_pay_calc_out_data.locality_adj := p_open_out_locality_adj;
2470: end if;
2471: ELSE
2472: hr_utility.set_location('Calling main locality...'|| l_proc,5);
2473: get_locality_adj (l_pay_calc_data, l_retained_grade, l_pay_calc_out_data);
2474: --Bug#5132113 for GR payplan and 894 open locality pay for user modification
2475: If (l_pay_plan = 'GR') AND
2476: (l_pay_calc_data.noa_code = '894' OR l_pay_calc_data.second_noa_code = '894')
2478: l_pay_calc_out_data.open_localityadj_field := TRUE;
2479: END IF;
2480: --Bug#5132113
2481:
2482: hr_utility.set_location('Calling main locality..main locality pay .'||
2483: to_char(l_pay_calc_out_data.locality_adj),5);
2484: END IF;
2485: --
2486: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2484: END IF;
2485: --
2486: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2487: --
2488: hr_utility.set_location('Calling main adj basic...'|| l_proc,5);
2489: get_adj_basic_pay (l_pay_calc_data, l_pay_calc_out_data);
2490: hr_utility.set_location('Calling main adj basic..adj basic Pay.'||
2491: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2492: END IF;
2486: ------------------------------ 3) Get adj_basic_pay -----------------------------------------------------
2487: --
2488: hr_utility.set_location('Calling main adj basic...'|| l_proc,5);
2489: get_adj_basic_pay (l_pay_calc_data, l_pay_calc_out_data);
2490: hr_utility.set_location('Calling main adj basic..adj basic Pay.'||
2491: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2492: END IF;
2493:
2494: IF g_pay_table_upd_flag THEN
2491: to_char(l_pay_calc_out_data.adj_basic_pay),5);
2492: END IF;
2493:
2494: IF g_pay_table_upd_flag THEN
2495: hr_utility.set_location('After Basic/loc/adj basic calc. Pay Table UPD Flag TRUE',101);
2496: ELSE
2497: hr_utility.set_location('After Basic/loc/adj basic Calc. Pay Table UPD Flag FALSE',102);
2498: END IF;
2499: --
2493:
2494: IF g_pay_table_upd_flag THEN
2495: hr_utility.set_location('After Basic/loc/adj basic calc. Pay Table UPD Flag TRUE',101);
2496: ELSE
2497: hr_utility.set_location('After Basic/loc/adj basic Calc. Pay Table UPD Flag FALSE',102);
2498: END IF;
2499: --
2500:
2501: ------------------------------ 4.0) Get retention_allowance----------------------------------------------
2511: if nvl(l_pay_calc_data.current_basic_pay,0) <> nvl(l_pay_calc_out_data.basic_pay,0) then
2512:
2513: if l_to_ret_allow_percentage is null then
2514: if (l_session.noa_id_correct is not null ) or (p_noa_family_code = 'CORRECT') then
2515: hr_utility.set_location(' perc null Inside correct ' || l_proc,5);
2516: hr_utility.set_location(' current_basic pay = ' || to_char(l_pay_calc_data.current_basic_pay),5);
2517: if nvl(l_old_ret_allow,0) = nvl(l_from_retention_allowance,0) then
2518: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2519: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2512:
2513: if l_to_ret_allow_percentage is null then
2514: if (l_session.noa_id_correct is not null ) or (p_noa_family_code = 'CORRECT') then
2515: hr_utility.set_location(' perc null Inside correct ' || l_proc,5);
2516: hr_utility.set_location(' current_basic pay = ' || to_char(l_pay_calc_data.current_basic_pay),5);
2517: if nvl(l_old_ret_allow,0) = nvl(l_from_retention_allowance,0) then
2518: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2519: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2520: end if;
2518: if nvl(l_from_basic_pay,0) <> nvl(l_pay_calc_data.current_basic_pay,0) then
2519: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2520: end if;
2521: end if;
2522: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2523: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2524: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2525:
2526: ---- Changed for FWS
2519: l_from_basic_pay := l_pay_calc_data.current_basic_pay;
2520: end if;
2521: end if;
2522: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2523: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2524: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2525:
2526: ---- Changed for FWS
2527:
2520: end if;
2521: end if;
2522: hr_utility.set_location('From retention' || l_from_retention_allowance,2000);
2523: hr_utility.set_location('From l_from_basic_pay' || l_from_basic_pay,2000);
2524: hr_utility.set_location('From l_from_pay_basis' || l_from_pay_basis,2000);
2525:
2526: ---- Changed for FWS
2527:
2528: l_ret_calc_perc := (l_from_retention_allowance / l_from_basic_pay )* 100;
2527:
2528: l_ret_calc_perc := (l_from_retention_allowance / l_from_basic_pay )* 100;
2529:
2530: -- Bug 3245692 . Replaced l_pay_basis with l_from_pay_basis in the above statement
2531: hr_utility.set_location(' Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2532: else
2533: hr_utility.set_location(' perc null else correct ' || l_proc,5);
2534: ----
2535: ---- Bug 3218346 --
2529:
2530: -- Bug 3245692 . Replaced l_pay_basis with l_from_pay_basis in the above statement
2531: hr_utility.set_location(' Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2532: else
2533: hr_utility.set_location(' perc null else correct ' || l_proc,5);
2534: ----
2535: ---- Bug 3218346 --
2536: ----
2537:
2537:
2538: l_ret_calc_perc := nvl((l_pay_calc_data.retention_allowance /
2539: l_pay_calc_data.current_basic_pay) * 100,0);
2540: -- Bug 3245692
2541: hr_utility.set_location(' else Ret Percentage = ' || to_char(l_ret_calc_perc),5);
2542: end if;
2543:
2544: if nvl(l_ret_calc_perc,0) > 25 then
2545: l_ret_calc_perc := 25;
2545: l_ret_calc_perc := 25;
2546: end if;
2547: else -- l_to_ret_allow_percentage is not null
2548: l_ret_calc_perc := l_to_ret_allow_percentage;
2549: hr_utility.set_location(' Passed Percentage l_ret_calc_perc = ' || to_char(l_ret_calc_perc),5);
2550: end if; -- if nvl(l_ret_calc_perc,0) > 2
2551:
2552:
2553: /*IF l_pay_basis ='PH' THEN
2589:
2590: --- 3843316
2591: -- Rounding of RETENTION ALLOWANCE ENDS
2592:
2593: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2594: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2595: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2596: else
2597: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2590: --- 3843316
2591: -- Rounding of RETENTION ALLOWANCE ENDS
2592:
2593: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2594: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2595: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2596: else
2597: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2598: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2591: -- Rounding of RETENTION ALLOWANCE ENDS
2592:
2593: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2594: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2595: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2596: else
2597: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2598: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2599: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2593: hr_utility.set_location(' Calc retention_allowance = ' || to_char(l_to_retention_allowance),5);
2594: hr_utility.set_location(' Calc-Pass ret_allow_percentage = ' || to_char(l_ret_calc_perc),5);
2595: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2596: else
2597: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2598: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2599: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2600: if l_from_basic_pay = nvl(l_pay_calc_data.current_basic_pay,0) then
2601: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2595: hr_utility.set_location(' Supervisory Differentail = ' || to_char(l_supervisory_differential),5);
2596: else
2597: hr_utility.set_location(' Basic Pays are same ' || l_proc,5);
2598: if ( l_session.noa_id_correct is not null ) or ( p_noa_family_code = 'CORRECT' ) then
2599: hr_utility.set_location(' Basic Pays are same - Inside Correct ' || l_proc,5);
2600: if l_from_basic_pay = nvl(l_pay_calc_data.current_basic_pay,0) then
2601: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2602: else
2603: l_to_retention_allowance := l_old_ret_allow;
2601: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2602: else
2603: l_to_retention_allowance := l_old_ret_allow;
2604: end if;
2605: hr_utility.set_location(' BPS correct retention_allowance = ' || to_char(l_to_retention_allowance),5);
2606: else
2607: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2608: hr_utility.set_location(' BPS else retention_allowance = ' || to_char(l_to_retention_allowance),5);
2609: end if;
2604: end if;
2605: hr_utility.set_location(' BPS correct retention_allowance = ' || to_char(l_to_retention_allowance),5);
2606: else
2607: l_to_retention_allowance := l_pay_calc_data.retention_allowance;
2608: hr_utility.set_location(' BPS else retention_allowance = ' || to_char(l_to_retention_allowance),5);
2609: end if;
2610: end if;
2611: end if;
2612: l_pay_calc_out_data.retention_allowance := l_to_retention_allowance;
2668: -- Bug#4758111 Removed PRD 2 from the following list.
2669: if p_pay_rate_determinant
2670: in ( '3','4','C','J','K','M','P','R','S','U','V') then
2671: l_pay_calc_out_data.open_pay_fields := TRUE;
2672: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
2673: hr_utility.set_message_token('PRD',p_pay_rate_determinant);
2674: end if;
2675: ---Bug 7423379 Start (Fix was revoked - AVR 10/24)
2676: ----IF l_pay_plan = 'AD' THEN
2669: if p_pay_rate_determinant
2670: in ( '3','4','C','J','K','M','P','R','S','U','V') then
2671: l_pay_calc_out_data.open_pay_fields := TRUE;
2672: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
2673: hr_utility.set_message_token('PRD',p_pay_rate_determinant);
2674: end if;
2675: ---Bug 7423379 Start (Fix was revoked - AVR 10/24)
2676: ----IF l_pay_plan = 'AD' THEN
2677: ---- l_pay_calc_out_data.open_pay_fields := TRUE;
2929: p_calculated := l_calculated;
2930:
2931:
2932: IF l_message_set and l_calculated THEN
2933: hr_utility.raise_error;
2934: END IF;
2935:
2936: EXCEPTION
2937: WHEN others THEN
2993: new_locality_adj NUMBER;
2994:
2995: l_proc VARCHAR2(30) := '894_PRDM_GS';
2996: begin
2997: hr_utility.set_location('Entering ...'|| l_proc,5);
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
2994:
2995: l_proc VARCHAR2(30) := '894_PRDM_GS';
2996: begin
2997: hr_utility.set_location('Entering ...'|| l_proc,5);
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
2995: l_proc VARCHAR2(30) := '894_PRDM_GS';
2996: begin
2997: hr_utility.set_location('Entering ...'|| l_proc,5);
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
2996: begin
2997: hr_utility.set_location('Entering ...'|| l_proc,5);
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3004: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
2997: hr_utility.set_location('Entering ...'|| l_proc,5);
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3004: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3005:
2998: hr_utility.set_location('User_table_id ...'|| p_user_table_id,5);
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3004: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3005:
3006: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
2999: hr_utility.set_location('p_pay_plan ...'|| p_pay_plan,5);
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3004: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3005:
3006: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3007: ,p_pay_plan => p_pay_plan
3000: hr_utility.set_location('p_grade_or_level ...'|| p_grade_or_level,5);
3001: hr_utility.set_location('step_or_rate ...'|| p_step_or_rate,5);
3002: hr_utility.set_location('effective_date ...'|| to_char(p_effective_date,'DD-MON-YYYY'),5);
3003: hr_utility.set_location('In new current adj basic pay ...'|| to_char(p_cur_adj_basic_pay),5);
3004: hr_utility.set_location('In new basic pay ...'|| to_char(p_new_basic_pay),5);
3005:
3006: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3007: ,p_pay_plan => p_pay_plan
3008: ,p_grade_or_level => p_grade_or_level
3011: ,p_PT_value => l_PT_value
3012: ,p_PT_eff_start_date => l_PT_eff_start_date
3013: ,p_PT_eff_end_date => l_PT_eff_end_date);
3014:
3015: hr_utility.set_location('l_PT_value ...'|| to_char(l_PT_value),5);
3016: ghr_pay_calc.get_pay_table_value (p_user_table_id => p_user_table_id
3017: ,p_pay_plan => p_pay_plan
3018: ,p_grade_or_level => p_grade_or_level
3019: ,p_step_or_rate => p_step_or_rate
3021: ,p_PT_value => l_PT_o_value
3022: ,p_PT_eff_start_date => l_PT_o_eff_start_date
3023: ,p_PT_eff_end_date => l_PT_o_eff_end_date);
3024:
3025: hr_utility.set_location('l_PT_o_value ...'|| to_char(l_PT_o_value),5);
3026: l_SPT_value := ghr_pay_calc.get_standard_pay_table_value (p_pay_plan => p_pay_plan
3027: ,p_grade_or_level => p_grade_or_level
3028: ,p_step_or_rate => p_step_or_rate
3029: ,p_effective_date => p_effective_date);
3027: ,p_grade_or_level => p_grade_or_level
3028: ,p_step_or_rate => p_step_or_rate
3029: ,p_effective_date => p_effective_date);
3030:
3031: hr_utility.set_location('l_SPT_value ...'|| to_char(l_SPT_value),5);
3032: l_SPT_o_value := ghr_pay_calc.get_standard_pay_table_value (p_pay_plan => p_pay_plan
3033: ,p_grade_or_level => p_grade_or_level
3034: ,p_step_or_rate => p_step_or_rate
3035: ,p_effective_date => (l_PT_eff_start_date -1) );
3033: ,p_grade_or_level => p_grade_or_level
3034: ,p_step_or_rate => p_step_or_rate
3035: ,p_effective_date => (l_PT_eff_start_date -1) );
3036:
3037: hr_utility.set_location('l_SPT_o_value ...'|| to_char(l_SPT_o_value),5);
3038:
3039: l_A := l_PT_value - l_PT_o_value;
3040: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3041: l_B := l_SPT_value - l_SPT_o_value;
3036:
3037: hr_utility.set_location('l_SPT_o_value ...'|| to_char(l_SPT_o_value),5);
3038:
3039: l_A := l_PT_value - l_PT_o_value;
3040: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3041: l_B := l_SPT_value - l_SPT_o_value;
3042: hr_utility.set_location('l_B...'|| to_char(l_B),5);
3043:
3044: if l_A = l_B then
3038:
3039: l_A := l_PT_value - l_PT_o_value;
3040: hr_utility.set_location('l_A...'|| to_char(l_A),5);
3041: l_B := l_SPT_value - l_SPT_o_value;
3042: hr_utility.set_location('l_B...'|| to_char(l_B),5);
3043:
3044: if l_A = l_B then
3045: lesser_amt := l_A;
3046: elsif l_A > l_B then
3047: lesser_amt := l_B;
3048: else
3049: lesser_amt := l_A;
3050: end if;
3051: hr_utility.set_location('lesser_amt...'|| to_char(lesser_amt),5);
3052:
3053: new_adj_basic_pay := p_cur_adj_basic_pay + lesser_amt;
3054: new_locality_adj := new_adj_basic_pay - p_new_basic_pay;
3055:
3055:
3056: p_new_adj_basic_pay := new_adj_basic_pay;
3057: p_new_locality_adj := new_locality_adj;
3058:
3059: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3060: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3061:
3062: hr_utility.set_location('Leaving ...'|| l_proc,5);
3063:
3056: p_new_adj_basic_pay := new_adj_basic_pay;
3057: p_new_locality_adj := new_locality_adj;
3058:
3059: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3060: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3061:
3062: hr_utility.set_location('Leaving ...'|| l_proc,5);
3063:
3064: EXCEPTION
3058:
3059: hr_utility.set_location('new_adj_basic_pay...'|| to_char(new_adj_basic_pay),5);
3060: hr_utility.set_location('new_locality_adj...'|| to_char(new_locality_adj),5);
3061:
3062: hr_utility.set_location('Leaving ...'|| l_proc,5);
3063:
3064: EXCEPTION
3065: WHEN others THEN
3066: -- Reset IN OUT parameters and set OUT parameters
3110: FROM pay_user_tables utb
3111: WHERE utb.user_table_name = ghr_pay_calc.l_standard_table_name;
3112:
3113: BEGIN
3114: hr_utility.set_location('Entering ...'|| l_proc,5);
3115: -- First get the id of standard pay table for later use
3116: FOR c_rec IN get_std_user_table_id LOOP
3117: l_std_user_table_id := c_rec.user_table_id;
3118: END LOOP;
3211: END IF;
3212:
3213: p_new_adj_basic_pay := new_adj_basic_pay;
3214: p_new_locality_adj := new_locality_adj;
3215: hr_utility.set_location('Leaving ...'|| l_proc,5);
3216:
3217: EXCEPTION
3218: WHEN others THEN
3219: -- Reset IN OUT parameters and set OUT parameters
3256: BETWEEN urw.effective_start_date AND urw.effective_end_date
3257: AND NVL(p_effective_date,TRUNC(SYSDATE))
3258: BETWEEN cin.effective_start_date AND cin.effective_end_date;
3259: BEGIN
3260: hr_utility.set_location('Entering ...'|| l_proc,5);
3261: FOR cur_pay_rec IN cur_pay LOOP
3262: l_row_high := ROUND(cur_pay_rec.ROW_HIGH_RANGE,2);
3263: l_row_low := ROUND(cur_pay_rec.ROW_LOW_RANGE_OR_NAME,2);
3264: l_record_found := TRUE;
3262: l_row_high := ROUND(cur_pay_rec.ROW_HIGH_RANGE,2);
3263: l_row_low := ROUND(cur_pay_rec.ROW_LOW_RANGE_OR_NAME,2);
3264: l_record_found := TRUE;
3265: --
3266: hr_utility.set_location('Record Found ...'|| l_proc,10);
3267: --
3268: END LOOP;
3269: --
3270: IF NOT l_record_found THEN
3273: ELSE
3274: p_row_high := l_row_high;
3275: p_row_low := l_row_low;
3276: END IF;
3277: hr_utility.set_location('Leaving ...'|| l_proc,20);
3278: --
3279:
3280: EXCEPTION
3281: WHEN others THEN
3420: AND paf.primary_flag = 'Y'
3421: AND paf.assignment_type <> 'B';
3422: ----
3423: BEGIN
3424: hr_utility.set_location('Entering ...'|| l_proc,5);
3425: g_gm_unadjd_basic_pay := NULL;
3426: gm_unadjusted_pay_flg := NULL;
3427: -- First get the id of standard pay table for later use
3428: FOR c_rec IN get_std_user_table_id LOOP
3457: ,p_multiple_error_flag => l_multi_error_flag);
3458: l_gm_unadjd_basic_pay := to_number(l_value);
3459: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3460: gm_unadjusted_pay_flg := 'Y';
3461: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3462: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3463: hr_utility.raise_error;
3464: end if;
3465: exception
3458: l_gm_unadjd_basic_pay := to_number(l_value);
3459: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3460: gm_unadjusted_pay_flg := 'Y';
3461: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3462: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3463: hr_utility.raise_error;
3464: end if;
3465: exception
3466: when others then
3459: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3460: gm_unadjusted_pay_flg := 'Y';
3461: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3462: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3463: hr_utility.raise_error;
3464: end if;
3465: exception
3466: when others then
3467: gm_unadjusted_pay_flg := 'Y';
3464: end if;
3465: exception
3466: when others then
3467: gm_unadjusted_pay_flg := 'Y';
3468: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3469: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3470: hr_utility.raise_error;
3471: end;
3472:
3465: exception
3466: when others then
3467: gm_unadjusted_pay_flg := 'Y';
3468: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3469: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3470: hr_utility.raise_error;
3471: end;
3472:
3473: --
3466: when others then
3467: gm_unadjusted_pay_flg := 'Y';
3468: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3469: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3470: hr_utility.raise_error;
3471: end;
3472:
3473: --
3474: -- Present Year values.
3525: p_GM_unadjusted_rate := l_B6;
3526: g_gm_unadjd_basic_pay := l_B6;
3527: p_new_adj_basic_pay := new_adj_basic_pay;
3528: p_new_locality_adj := new_locality_adj;
3529: hr_utility.set_location('Leaving ...'|| l_proc,5);
3530:
3531: EXCEPTION
3532: WHEN others THEN
3533: -- Reset IN OUT parameters and set OUT parameters
3533: -- Reset IN OUT parameters and set OUT parameters
3534: p_GM_unadjusted_rate :=NULL;
3535: p_new_adj_basic_pay :=NULL;
3536: p_new_locality_adj :=NULL;
3537: hr_utility.set_location('Leaving.... ' || l_proc,6);
3538: RAISE;
3539: END get_locality_894_itpay;
3540:
3541: ---------------------------
3597: AND paf.primary_flag = 'Y'
3598: AND paf.assignment_type <> 'B';
3599: ----
3600: BEGIN
3601: hr_utility.set_location('Entering ...'|| l_proc,5);
3602: g_gm_unadjd_basic_pay := NULL;
3603: gm_unadjusted_pay_flg := NULL;
3604: -- First get the id of standard pay table for later use
3605: FOR c_rec IN get_std_user_table_id LOOP
3636: ,p_multiple_error_flag => l_multi_error_flag);
3637: l_gm_unadjd_basic_pay := to_number(l_value);
3638: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3639: gm_unadjusted_pay_flg := 'Y';
3640: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3641: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3642: hr_utility.raise_error;
3643: end if;
3644: exception
3637: l_gm_unadjd_basic_pay := to_number(l_value);
3638: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3639: gm_unadjusted_pay_flg := 'Y';
3640: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3641: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3642: hr_utility.raise_error;
3643: end if;
3644: exception
3645: when others then
3638: if l_gm_unadjd_basic_pay is null or l_gm_unadjd_basic_pay = 0 then
3639: gm_unadjusted_pay_flg := 'Y';
3640: hr_utility.set_location('Unadjusted Basic Pay is zero or null ' || sqlerrm(sqlcode),25);
3641: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3642: hr_utility.raise_error;
3643: end if;
3644: exception
3645: when others then
3646: gm_unadjusted_pay_flg := 'Y';
3643: end if;
3644: exception
3645: when others then
3646: gm_unadjusted_pay_flg := 'Y';
3647: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3648: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3649: hr_utility.raise_error;
3650: end;
3651: --
3644: exception
3645: when others then
3646: gm_unadjusted_pay_flg := 'Y';
3647: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3648: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3649: hr_utility.raise_error;
3650: end;
3651: --
3652: -- Present Year values.
3645: when others then
3646: gm_unadjusted_pay_flg := 'Y';
3647: hr_utility.set_location('Error in fetching of Unadjusted Basic Pay ' || sqlerrm(sqlcode),25);
3648: hr_utility.set_message(8301,'GHR_38843_NO_GM_UNADJUST');
3649: hr_utility.raise_error;
3650: end;
3651: --
3652: -- Present Year values.
3653: --
3701: g_gm_unadjd_basic_pay := l_C4;
3702:
3703: p_new_adj_basic_pay := new_adj_basic_pay;
3704: p_new_locality_adj := new_locality_adj;
3705: hr_utility.set_location('Leaving ...'|| l_proc,5);
3706:
3707: EXCEPTION
3708: WHEN others THEN
3709: -- Reset IN OUT parameters and set OUT parameters
3708: WHEN others THEN
3709: -- Reset IN OUT parameters and set OUT parameters
3710: p_new_adj_basic_pay := NULL;
3711: p_new_locality_adj := NULL;
3712: hr_utility.set_location('Leaving.... ' || l_proc,6);
3713: RAISE;
3714: END get_locality_892_itpay;
3715:
3716: -- FWFA Changes. Created procedures get_special_pay_table_value, special_rate_pay_calc
3961: ,p_retained_pay_table OUT NOCOPY VARCHAR2
3962: ,p_new_prd OUT NOCOPY VARCHAR2
3963: ) IS
3964: BEGIN
3965: hr_utility.set_location('Inside set_cpt_ppt_prd',0);
3966:
3967: IF p_leo_flag THEN
3968: --Bug# 5635023 added PRD 7
3969: IF p_prd IN ('5', '6', '7') THEN
4169: g_pay_table_upd_flag := TRUE;
4170: END IF;
4171: END IF;
4172: END IF;
4173: hr_utility.set_location('Leaving CPT PRD',10);
4174: END set_cpt_ppt_prd;
4175:
4176: BEGIN
4177:
4186: if p_pay_calc_data.noa_family_code = 'APP' then
4187: if p_pay_calc_data.pay_rate_determinant
4188: in ('2','C','M','P','R','S') then
4189: p_pay_calc_out_data.open_pay_fields := TRUE;
4190: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4191: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4192: raise ghr_pay_calc.unable_to_calculate;
4193: end if;
4194: end if;
4187: if p_pay_calc_data.pay_rate_determinant
4188: in ('2','C','M','P','R','S') then
4189: p_pay_calc_out_data.open_pay_fields := TRUE;
4190: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4191: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4192: raise ghr_pay_calc.unable_to_calculate;
4193: end if;
4194: end if;
4195: ---
4195: ---
4196:
4197:
4198: -- 1. Set the Pay related values depending on the Retained/Non-Retained Grade.
4199: hr_utility.set_location('PRD: '||p_pay_calc_data.pay_rate_determinant,20);
4200: IF p_pay_calc_data.pay_rate_determinant IN ('A','B','E','F','U','V') and
4201: p_retained_grade.temp_step is NULL THEN
4202: l_user_table_id := p_retained_grade.user_table_id;
4203: l_pay_plan := p_retained_grade.pay_plan;
4227: l_gr_pay_plan := FALSE;
4228: --End Bug 7046241
4229: -- 2. Get the user table name into local variable
4230: l_user_table_name := ghr_pay_calc.get_user_table_name(l_user_table_id);
4231: hr_utility.set_location('user table name:' ||l_user_table_name,30);
4232: -- 3. Get the Locality Percentage Value
4233: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4234: ,p_pay_calc_data.effective_date),0);
4235: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4231: hr_utility.set_location('user table name:' ||l_user_table_name,30);
4232: -- 3. Get the Locality Percentage Value
4233: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4234: ,p_pay_calc_data.effective_date),0);
4235: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4236: l_adj_perc_factor := l_adjustment_percentage/100;
4237: hr_utility.set_location('l_adj_perc_factor ..' || to_char(l_adj_perc_factor),32);
4238:
4239:
4233: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4234: ,p_pay_calc_data.effective_date),0);
4235: hr_utility.set_location('l_adjustment_percentage ..' || to_char(l_adjustment_percentage),31);
4236: l_adj_perc_factor := l_adjustment_percentage/100;
4237: hr_utility.set_location('l_adj_perc_factor ..' || to_char(l_adj_perc_factor),32);
4238:
4239:
4240:
4241: -- Check LEO Posiiton or NOT
4309: -- Bug#5368848 Open the pay fields if the NOA Code is not 894.
4310: -- GPPA Update46. Added 890 in the NOT IN list.
4311: IF p_pay_calc_data.noa_code NOT IN ('894','890') then
4312: p_pay_calc_out_data.open_pay_fields := TRUE;
4313: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4314: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4315: raise ghr_pay_calc.unable_to_calculate;
4316: END IF;
4317: -- Bug# 4866952 Added the new pay calculation method for Pay Adjustment actions
4310: -- GPPA Update46. Added 890 in the NOT IN list.
4311: IF p_pay_calc_data.noa_code NOT IN ('894','890') then
4312: p_pay_calc_out_data.open_pay_fields := TRUE;
4313: hr_utility.set_message(8301, 'GHR_38254_NO_CALC_PRD');
4314: hr_utility.set_message_token('PRD',p_pay_calc_data.pay_rate_determinant);
4315: raise ghr_pay_calc.unable_to_calculate;
4316: END IF;
4317: -- Bug# 4866952 Added the new pay calculation method for Pay Adjustment actions
4318: -- Processed after 01-MAY-2005
4342: ,p_new_prd => l_new_prd
4343: );
4344: ELSE--IF p_pay_calc_data.effective_date
4345: l_term_ret_pay_prd := FALSE;
4346: hr_utility.set_location('PAY ADJUSTMENT AS ON 08-JAN',7788);
4347: --CODE CHANGES DONE TO ATLER PAY CALC FOR BUG# 4999237...
4348: IF l_pay_plan = 'GM' THEN
4349: l_pay_plan := 'GS';
4350: --- Bug 5908487 changes...
4358: --End Bug 7046241
4359: END IF;
4360: -- Get Current Years' Special Pay Table Value at step 10
4361:
4362: hr_utility.set_location('Get Current Years Special Pay Table Value at step 10',7788);
4363:
4364: get_special_pay_table_value (p_pay_plan => l_pay_plan
4365: ,p_grade_or_level => l_grade_or_level
4366: ,p_step_or_rate => '10'
4375:
4376:
4377: l_special_rate := l_basic_pay;
4378:
4379: hr_utility.set_location('GOt Current Years Special Pay Table Value at step 10'|| l_special_rate,7788);
4380: --Now Get current Years's default pay table value.for max rate....BUG# 4999237.
4381: hr_utility.set_location('Now Get current Years default pay table value.for max rate.',7788);
4382:
4383: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4377: l_special_rate := l_basic_pay;
4378:
4379: hr_utility.set_location('GOt Current Years Special Pay Table Value at step 10'|| l_special_rate,7788);
4380: --Now Get current Years's default pay table value.for max rate....BUG# 4999237.
4381: hr_utility.set_location('Now Get current Years default pay table value.for max rate.',7788);
4382:
4383: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4384: ,p_pay_plan =>l_default_pay_plan
4385: ,p_grade_or_level =>l_grade_or_level
4389: ,p_PT_eff_start_date => l_PT_eff_start_date
4390: ,p_PT_eff_end_date => l_dummy_date);
4391:
4392:
4393: hr_utility.set_location('Now GOt current Years default pay table value.for max rate.'||l_basic_pay ,7788);
4394:
4395:
4396:
4397: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4394:
4395:
4396:
4397: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4398: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4399:
4400: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4401: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4402: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4397: -----APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE.....l_adj_perc_factor is already calculated
4398: hr_utility.set_location('APPLY LOCALITY % TO NEW DEFAULT TABLE VALUE' ,7788);
4399:
4400: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4401: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4402: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4403: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4404: ----Now compare special rate with basic pay......BUG# 4999237.
4405: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4399:
4400: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4401: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4402: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4403: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4404: ----Now compare special rate with basic pay......BUG# 4999237.
4405: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4406: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4407:
4401: hr_utility.set_location('GETTING LOCALITY ADJUSTMENT'||l_locality_adj ,7788);
4402: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4403: hr_utility.set_location('GETTING ADJUSTED BASIC PAY'||l_adj_basic_pay ,7788);
4404: ----Now compare special rate with basic pay......BUG# 4999237.
4405: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4406: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4407:
4408: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4409: --Pick the special rate ......BUG# 4999237.
4404: ----Now compare special rate with basic pay......BUG# 4999237.
4405: hr_utility.set_location('COMPARING SPL RATE WITH ADJ BASIC PAY',7788);
4406: IF NVL(l_special_rate,0) > l_adj_basic_pay THEN
4407:
4408: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4409: --Pick the special rate ......BUG# 4999237.
4410: --From Now on Calculation is as usual...BUG# 4999237.
4411: --get previous year's special rate value.at step 10 ....BUG# 4999237.
4412: hr_utility.set_location('get previous years special rate value.at step 10',7788);
4408: hr_utility.set_location(' SPL RATE IS > ADJ BASIC PAY',7788);
4409: --Pick the special rate ......BUG# 4999237.
4410: --From Now on Calculation is as usual...BUG# 4999237.
4411: --get previous year's special rate value.at step 10 ....BUG# 4999237.
4412: hr_utility.set_location('get previous years special rate value.at step 10',7788);
4413:
4414: get_special_pay_table_value(p_pay_plan => l_pay_plan
4415: ,p_grade_or_level => l_grade_or_level
4416: ,p_step_or_rate => '10'
4422: ,p_pp_grd_exists => l_pp_grd_exists );
4423:
4424: l_old_special_rate := l_old_basic_pay; --for bug#4999237...
4425:
4426: hr_utility.set_location('gOt previous years special rate value.at step 10'||l_old_special_rate,7788);
4427:
4428:
4429: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4430: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4425:
4426: hr_utility.set_location('gOt previous years special rate value.at step 10'||l_old_special_rate,7788);
4427:
4428:
4429: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4430: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4431: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4432: -- If both current and previous year's special rate step 10 values are NOT NULL
4433: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4426: hr_utility.set_location('gOt previous years special rate value.at step 10'||l_old_special_rate,7788);
4427:
4428:
4429: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4430: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4431: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4432: -- If both current and previous year's special rate step 10 values are NOT NULL
4433: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4434:
4427:
4428:
4429: hr_utility.set_location('::: 5010491 BP::: '||l_basic_pay,10);
4430: hr_utility.set_location('::: 5010491 ABP::: '||l_old_basic_pay,20);
4431: hr_utility.set_location('::: 5010491 UTN::: '||l_user_table_name,30);
4432: -- If both current and previous year's special rate step 10 values are NOT NULL
4433: -- Then new basic = current basic + (new special rate step10 value - old special rate step 10 value/2)
4434:
4435: IF l_old_basic_pay IS NOT NULL AND l_special_rate IS NOT NULL AND
4436:
4437: l_user_table_name NOT IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
4438:
4439: l_increment := Round((l_special_rate - l_old_basic_pay)/2,0);
4440: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4441: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4442: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4443: l_new_locality_adj := 0;
4444: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4438:
4439: l_increment := Round((l_special_rate - l_old_basic_pay)/2,0);
4440: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4441: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4442: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4443: l_new_locality_adj := 0;
4444: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4445: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4446: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4440: hr_utility.set_location('INCREMENTED HALF VALUE'||l_increment,7788);
4441: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4442: hr_utility.set_location('NEW BASIC PAY'||l_new_basic_pay,7788);
4443: l_new_locality_adj := 0;
4444: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4445: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4446: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4447: hr_utility.set_location('NEW PRD SET'||l_new_prd ,7788);
4448: l_calculation_pay_table := l_user_table_name;
4443: l_new_locality_adj := 0;
4444: hr_utility.set_location('LOCALITY ADJUSTMENT SET TO ZERO',7788);
4445: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4446: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4447: hr_utility.set_location('NEW PRD SET'||l_new_prd ,7788);
4448: l_calculation_pay_table := l_user_table_name;
4449: --6814842 modified to update position pay table and pay_table_upd_flag
4450: l_position_pay_table := l_user_table_name;
4451: g_pay_table_upd_flag := FALSE;
4450: l_position_pay_table := l_user_table_name;
4451: g_pay_table_upd_flag := FALSE;
4452:
4453:
4454: hr_utility.set_location('COMPARING NEW BASIC PAY AND NEW SPECIAL RATE VALUE',7788);
4455:
4456: IF l_new_basic_pay <= l_special_rate THEN
4457: l_new_adj_basic_pay := l_special_rate;
4458: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4454: hr_utility.set_location('COMPARING NEW BASIC PAY AND NEW SPECIAL RATE VALUE',7788);
4455:
4456: IF l_new_basic_pay <= l_special_rate THEN
4457: l_new_adj_basic_pay := l_special_rate;
4458: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4459: hr_utility.set_location('get current value for step10 in default table',7788);
4460: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4461: ,p_pay_plan =>l_default_pay_plan
4462: ,p_grade_or_level =>l_grade_or_level
4455:
4456: IF l_new_basic_pay <= l_special_rate THEN
4457: l_new_adj_basic_pay := l_special_rate;
4458: hr_utility.set_location('SPECIAL RATE IS GREATER'||l_special_rate,7788);
4459: hr_utility.set_location('get current value for step10 in default table',7788);
4460: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4461: ,p_pay_plan =>l_default_pay_plan
4462: ,p_grade_or_level =>l_grade_or_level
4463: ,p_step_or_rate => '10'
4465: ,p_PT_value => l_new_basic_pay
4466: ,p_PT_eff_start_date => l_PT_eff_start_date
4467: ,p_PT_eff_end_date => l_dummy_date);
4468:
4469: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4470: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4471: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4472: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4473: l_new_step := '10';
4466: ,p_PT_eff_start_date => l_PT_eff_start_date
4467: ,p_PT_eff_end_date => l_dummy_date);
4468:
4469: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4470: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4471: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4472: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4473: l_new_step := '10';
4474: hr_utility.set_location('terminate PAY RETENTION',7788);
4468:
4469: hr_utility.set_location('gOt current value for step10 in default table'||l_new_basic_pay,7788);
4470: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4471: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4472: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4473: l_new_step := '10';
4474: hr_utility.set_location('terminate PAY RETENTION',7788);
4475: l_term_ret_pay_prd := TRUE;
4476: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4470: hr_utility.set_location('l_new_basic_pay: '|| l_new_basic_pay,95);
4471: l_new_locality_adj := l_new_adj_basic_pay - l_new_basic_pay;
4472: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4473: l_new_step := '10';
4474: hr_utility.set_location('terminate PAY RETENTION',7788);
4475: l_term_ret_pay_prd := TRUE;
4476: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4477: END IF;
4478: END IF;--IF l_old_basic_pay IS NOT
4472: hr_utility.set_location('SETTING NEW STEP'||l_new_step,7788);
4473: l_new_step := '10';
4474: hr_utility.set_location('terminate PAY RETENTION',7788);
4475: l_term_ret_pay_prd := TRUE;
4476: hr_utility.set_location('l_new_locality_adj: '|| l_new_locality_adj,95);
4477: END IF;
4478: END IF;--IF l_old_basic_pay IS NOT
4479:
4480:
4479:
4480:
4481: ELSIF (l_adj_basic_pay >= nvl(l_special_rate,0)) OR (l_old_special_rate IS NULL) then--IF NVL(l_special_rate,0)
4482:
4483: hr_utility.set_location('special rate is lesser or old special rate is not available',7788);
4484:
4485: hr_utility.set_location('::: 50101491 :::Inside Else Condition',40);
4486: l_old_adj_perc_factor := (NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4487: ,p_pay_calc_data.effective_date - 1
4481: ELSIF (l_adj_basic_pay >= nvl(l_special_rate,0)) OR (l_old_special_rate IS NULL) then--IF NVL(l_special_rate,0)
4482:
4483: hr_utility.set_location('special rate is lesser or old special rate is not available',7788);
4484:
4485: hr_utility.set_location('::: 50101491 :::Inside Else Condition',40);
4486: l_old_adj_perc_factor := (NVL(ghr_pay_calc.get_lpa_percentage(p_pay_calc_data.duty_station_id
4487: ,p_pay_calc_data.effective_date - 1
4488: ),0))/100;
4489:
4488: ),0))/100;
4489:
4490:
4491:
4492: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4493: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4494: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4495: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4496: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4489:
4490:
4491:
4492: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4493: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4494: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4495: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4496: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4497: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4490:
4491:
4492: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4493: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4494: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4495: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4496: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4497: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4498: ,p_pay_plan =>l_default_pay_plan
4491:
4492: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4493: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4494: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4495: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4496: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4497: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4498: ,p_pay_plan =>l_default_pay_plan
4499: ,p_grade_or_level =>l_grade_or_level
4492: hr_utility.set_location('l_old_adj_perc_factor ..' || to_char(l_old_adj_perc_factor),32);
4493: hr_utility.set_location('l_default_table_id: '||l_default_table_id,95);
4494: hr_utility.set_location(' l_pay_plan: '||l_pay_plan,95);
4495: hr_utility.set_location(' l_default_pay_plan: '||l_default_pay_plan,95);
4496: hr_utility.set_location(' l_grade_or_level: '||l_grade_or_level,95);
4497: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4498: ,p_pay_plan =>l_default_pay_plan
4499: ,p_grade_or_level =>l_grade_or_level
4500: ,p_step_or_rate => '10'
4503: ,p_PT_eff_start_date => l_PT_eff_start_date
4504: ,p_PT_eff_end_date => l_dummy_date);
4505:
4506:
4507: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4508: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4509: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4510: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4511: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4504: ,p_PT_eff_end_date => l_dummy_date);
4505:
4506:
4507: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4508: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4509: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4510: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4511: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4512: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4507: hr_utility.set_location('old default table value '||l_old_basic_pay ,7788);
4508: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4509: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4510: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4511: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4512: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4513: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4514: ,p_pay_plan =>l_default_pay_plan
4515: ,p_grade_or_level =>l_grade_or_level
4508: hr_utility.set_location('Old basic at step 10: '||to_char(l_old_BASIC_PAY),90);
4509: l_old_locality_adj := ROUND(l_old_basic_pay * l_old_adj_perc_factor,0);
4510: l_old_adj_basic_pay := l_old_basic_pay + l_old_locality_adj;
4511: hr_utility.set_location('Old adj basic at step 10: '||to_char(l_old_adj_basic_pay),95);
4512: hr_utility.set_location('Old locality at step 10: '||to_char(l_old_locality_adj),95);
4513: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4514: ,p_pay_plan =>l_default_pay_plan
4515: ,p_grade_or_level =>l_grade_or_level
4516: ,p_step_or_rate =>'10'
4519: ,p_PT_eff_start_date => l_PT_eff_start_date
4520: ,p_PT_eff_end_date => l_dummy_date);
4521:
4522:
4523: hr_utility.set_location('New default table value '||l_basic_pay ,7788);
4524: l_locality_adj := ROUND(l_basic_pay * l_adj_perc_factor,0);
4525: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4526: l_increment := Round((l_adj_basic_pay - l_old_adj_basic_pay)/2,0);
4527: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4527: l_new_basic_pay := p_pay_calc_data.current_basic_pay + l_increment;
4528: l_new_locality_adj := 0;
4529: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4530: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4531: hr_utility.set_location(' adj basic at step 10: '||to_char(l_adj_basic_pay),95);
4532: hr_utility.set_location(' locality at step 10: '||to_char(l_locality_adj),95);
4533: l_calculation_pay_table := l_default_pay_table;
4534: --6814842 modified to update position pay table and pay_table_upd_flag
4535: l_position_pay_table := l_default_pay_table;
4528: l_new_locality_adj := 0;
4529: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4530: l_new_prd := p_pay_calc_data.pay_rate_determinant;
4531: hr_utility.set_location(' adj basic at step 10: '||to_char(l_adj_basic_pay),95);
4532: hr_utility.set_location(' locality at step 10: '||to_char(l_locality_adj),95);
4533: l_calculation_pay_table := l_default_pay_table;
4534: --6814842 modified to update position pay table and pay_table_upd_flag
4535: l_position_pay_table := l_default_pay_table;
4536: g_pay_table_upd_flag := TRUE;
4534: --6814842 modified to update position pay table and pay_table_upd_flag
4535: l_position_pay_table := l_default_pay_table;
4536: g_pay_table_upd_flag := TRUE;
4537: IF l_new_adj_basic_pay <= l_adj_basic_pay THEN
4538: hr_utility.set_location('new adjusted basic pay is less than adjusted basic pay',7788);
4539: l_new_basic_pay := l_basic_pay;
4540:
4541: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4542:
4537: IF l_new_adj_basic_pay <= l_adj_basic_pay THEN
4538: hr_utility.set_location('new adjusted basic pay is less than adjusted basic pay',7788);
4539: l_new_basic_pay := l_basic_pay;
4540:
4541: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4542:
4543: l_new_locality_adj := l_locality_adj;
4544: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4545: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4540:
4541: hr_utility.set_location('new basic pay '||l_new_basic_pay,7788);
4542:
4543: l_new_locality_adj := l_locality_adj;
4544: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4545: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4546: hr_utility.set_location('l_new_adj_basic_pay'||l_new_adj_basic_pay,7788);
4547: --Bug 7046241 added l_gr_pay_plan condition
4548: IF l_gm_pay_plan OR l_gr_pay_plan THEN
4542:
4543: l_new_locality_adj := l_locality_adj;
4544: hr_utility.set_location('l_new_locality_adj'||l_locality_adj,7788);
4545: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4546: hr_utility.set_location('l_new_adj_basic_pay'||l_new_adj_basic_pay,7788);
4547: --Bug 7046241 added l_gr_pay_plan condition
4548: IF l_gm_pay_plan OR l_gr_pay_plan THEN
4549: l_new_step := '00';
4550: ELSE
4549: l_new_step := '00';
4550: ELSE
4551: l_new_step := '10';
4552: END IF;
4553: hr_utility.set_location('l_new_step'||l_new_step,7788);
4554: l_term_ret_pay_prd := TRUE;
4555: hr_utility.set_location('terminate PRD',7788);
4556: END IF;
4557: END IF; --IF NVL(l_special_rate,0)
4551: l_new_step := '10';
4552: END IF;
4553: hr_utility.set_location('l_new_step'||l_new_step,7788);
4554: l_term_ret_pay_prd := TRUE;
4555: hr_utility.set_location('terminate PRD',7788);
4556: END IF;
4557: END IF; --IF NVL(l_special_rate,0)
4558: -- Set the PRD if Pay Retention is terminated.
4559: -- 7046241
4600: LOOP
4601: l_calculation_pay_table_id := table_rec.user_table_id;
4602: END LOOP;
4603: p_pay_calc_out_data.calculation_pay_table_id := l_calculation_pay_table_id;
4604: hr_utility.set_location(':: 5010491 :: leaving the pay retention',100);
4605: IF l_gm_pay_plan THEN
4606: l_pay_plan := 'GM';
4607: --- Bug 5908487 Changes.
4608: l_default_pay_plan := 'GM';
4621: IF l_pay_plan IN ('GM','GH','GR') THEN
4622: -- AC added the IF condition for opening teh pay fields in few actions Bug#5114467
4623: IF p_pay_calc_data.noa_family_code IN ('APP','CHG_DUTY_STATION','CONV_APP','EXT_NTE','POS_CHG'
4624: ,'REALIGNMENT','REASSIGNMENT', 'RETURN_TO_DUTY') THEN
4625: hr_utility.set_message(8301, 'GHR_38260_NO_CALC_PAY_PLAN');
4626: hr_utility.set_message_token('PAY_PLAN',l_pay_plan);
4627: raise ghr_pay_calc.unable_to_calculate;
4628: END IF;
4629: -- Added this IF condition Bug#5114467
4622: -- AC added the IF condition for opening teh pay fields in few actions Bug#5114467
4623: IF p_pay_calc_data.noa_family_code IN ('APP','CHG_DUTY_STATION','CONV_APP','EXT_NTE','POS_CHG'
4624: ,'REALIGNMENT','REASSIGNMENT', 'RETURN_TO_DUTY') THEN
4625: hr_utility.set_message(8301, 'GHR_38260_NO_CALC_PAY_PLAN');
4626: hr_utility.set_message_token('PAY_PLAN',l_pay_plan);
4627: raise ghr_pay_calc.unable_to_calculate;
4628: END IF;
4629: -- Added this IF condition Bug#5114467
4630: IF l_pay_plan NOT IN ('GM','GR') THEN
4638: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4639: ELSE
4640: IF p_pay_calc_data.noa_code= 894 THEN
4641: --AC -- Code for 894 Special Emp.
4642: hr_utility.set_location('AC Grade' || l_grade_or_level,1000);
4643: hr_utility.set_location('AC User Table id' || l_user_table_id,1000);
4644: ghr_pc_basic_pay.get_894_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level
4645: ,p_effective_date => p_pay_calc_data.effective_date
4646: ,p_user_table_id => l_user_table_id
4639: ELSE
4640: IF p_pay_calc_data.noa_code= 894 THEN
4641: --AC -- Code for 894 Special Emp.
4642: hr_utility.set_location('AC Grade' || l_grade_or_level,1000);
4643: hr_utility.set_location('AC User Table id' || l_user_table_id,1000);
4644: ghr_pc_basic_pay.get_894_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level
4645: ,p_effective_date => p_pay_calc_data.effective_date
4646: ,p_user_table_id => l_user_table_id
4647: ,p_default_table_id => l_default_table_id
4703: l_step_or_rate,
4704: p_retained_grade.temp_step,
4705: l_ret_flag);
4706: IF l_ret_flag = TRUE then
4707: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
4708: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4709: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4710: ,p_retained_grade.temp_step);
4711: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4704: p_retained_grade.temp_step,
4705: l_ret_flag);
4706: IF l_ret_flag = TRUE then
4707: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
4708: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4709: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4710: ,p_retained_grade.temp_step);
4711: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4712: -- End Bug 3021003
4707: hr_utility.set_location('NAR ret step ' ||p_retained_grade.temp_step,10);
4708: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4709: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4710: ,p_retained_grade.temp_step);
4711: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4712: -- End Bug 3021003
4713: ELSE
4714: l_step_or_rate := p_retained_grade.temp_step;
4715: END IF;
4722: l_step_or_rate,
4723: p_retained_grade.temp_step,
4724: l_ret_flag);
4725: IF l_ret_flag = TRUE then
4726: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
4727: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4728: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4729: ,l_step_or_rate);
4730: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4723: p_retained_grade.temp_step,
4724: l_ret_flag);
4725: IF l_ret_flag = TRUE then
4726: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
4727: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4728: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4729: ,l_step_or_rate);
4730: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4731: ELSE
4726: hr_utility.set_location('NAR ret step ' ||l_step_or_rate,10);
4727: hr_utility.set_location('NAR pay plan '||l_pay_plan,20);
4728: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4729: ,l_step_or_rate);
4730: hr_utility.set_location('NAR new step after getting the step ' ||l_step_or_rate,10);
4731: ELSE
4732: l_step_or_rate := l_step_or_rate;
4733: END IF; -- IF is_retained_ia End Bug 3021003
4734: END IF; -- if p_retained_grade.temp_step is not null
4750: ,p_current_step => l_curr_step_or_rate);
4751: --END IF;
4752: END IF; --('A','B','E','F') THEN
4753: -- FWFA Changes NEW
4754: hr_utility.set_location('l_step_or_rate: '||l_step_or_rate,11111111);
4755: -- Bug#5444558 Modified the assignment of step value. Assigned the step into local
4756: -- variable l_new_step here. Assign this value to p_pay_calc_out_data.out_step_or_rate
4757: -- at the end of the pay calc.
4758: IF p_pay_calc_data.pay_rate_determinant IN ('E','F','A','B') THEN
4781: -- Processing of NOACs other than WGI/QSI
4782: IF l_user_table_name IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
4783: l_pay_calc_process := 'L';
4784: ELSE
4785: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
4786: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
4787: hr_utility.set_location('grade: '||l_grade_or_level,60);
4788: hr_utility.set_location('step : '||l_step_or_rate,70);
4789: get_special_pay_table_value (p_pay_plan => l_pay_plan
4782: IF l_user_table_name IN (ghr_pay_calc.l_standard_table_name,ghr_pay_calc.l_spl491_table_name) THEN
4783: l_pay_calc_process := 'L';
4784: ELSE
4785: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
4786: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
4787: hr_utility.set_location('grade: '||l_grade_or_level,60);
4788: hr_utility.set_location('step : '||l_step_or_rate,70);
4789: get_special_pay_table_value (p_pay_plan => l_pay_plan
4790: ,p_grade_or_level => l_grade_or_level
4783: l_pay_calc_process := 'L';
4784: ELSE
4785: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
4786: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
4787: hr_utility.set_location('grade: '||l_grade_or_level,60);
4788: hr_utility.set_location('step : '||l_step_or_rate,70);
4789: get_special_pay_table_value (p_pay_plan => l_pay_plan
4790: ,p_grade_or_level => l_grade_or_level
4791: ,p_step_or_rate => l_step_or_rate
4784: ELSE
4785: hr_utility.set_location('user tbale id: '||to_char(l_user_table_id),40);
4786: hr_utility.set_location('pay Plan: '||l_pay_plan,50);
4787: hr_utility.set_location('grade: '||l_grade_or_level,60);
4788: hr_utility.set_location('step : '||l_step_or_rate,70);
4789: get_special_pay_table_value (p_pay_plan => l_pay_plan
4790: ,p_grade_or_level => l_grade_or_level
4791: ,p_step_or_rate => l_step_or_rate
4792: ,p_user_table_id => l_user_table_id
4794: ,p_pt_value => l_pt_value
4795: ,p_PT_eff_start_date => l_pt_eff_start_date
4796: ,p_PT_eff_end_date => l_pt_eff_end_date
4797: ,p_pp_grd_exists => l_pp_grd_exists );
4798: hr_utility.set_location('value '||to_char(l_pt_value),80);
4799: ghr_pay_calc.get_pay_table_value(p_user_table_id =>l_default_table_id
4800: ,p_pay_plan =>l_default_pay_plan
4801: ,p_grade_or_level =>l_grade_or_level
4802: ,p_step_or_rate =>l_step_or_rate
4803: ,p_effective_date =>p_pay_calc_data.effective_date
4804: ,p_PT_value => l_basic_pay
4805: ,p_PT_eff_start_date => l_PT_eff_start_date
4806: ,p_PT_eff_end_date => l_dummy_date);
4807: hr_utility.set_location('std basic: '||to_char(l_BASIC_PAY),90);
4808:
4809: l_locality_adj := ROUND(l_basic_pay * (NVL(l_adjustment_percentage,0)/100),0);
4810: l_adj_basic_pay := l_basic_pay + l_locality_adj;
4811:
4828: l_pay_calc_process := 'L';
4829: l_loc_rate_less_spl_rate := NULL;
4830: END IF;
4831: END IF; --l_user_table_name IN
4832: hr_utility.set_location('process :'||l_pay_calc_process,100);
4833: IF g_pay_table_upd_flag THEN
4834: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
4835: ELSE
4836: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
4830: END IF;
4831: END IF; --l_user_table_name IN
4832: hr_utility.set_location('process :'||l_pay_calc_process,100);
4833: IF g_pay_table_upd_flag THEN
4834: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
4835: ELSE
4836: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
4837: END IF;
4838: set_cpt_ppt_prd ( p_leo_flag => l_leo_flag
4832: hr_utility.set_location('process :'||l_pay_calc_process,100);
4833: IF g_pay_table_upd_flag THEN
4834: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag TRUE',101);
4835: ELSE
4836: hr_utility.set_location('Before SET_CPT Pay Table UPD Flag FALSE',102);
4837: END IF;
4838: set_cpt_ppt_prd ( p_leo_flag => l_leo_flag
4839: ,p_rg_flag => l_rg_flag
4840: ,p_pp_grd_exists => l_pp_grd_exists
4847: ,p_retained_pay_table => l_retained_pay_table
4848: ,p_new_prd => l_new_prd
4849: );
4850: IF g_pay_table_upd_flag THEN
4851: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
4852: ELSE
4853: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4849: );
4850: IF g_pay_table_upd_flag THEN
4851: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
4852: ELSE
4853: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4856: hr_utility.set_location('posn table: '||L_position_pay_table,120);
4857: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
4851: hr_utility.set_location('After SET_CPT Pay Table UPD Flag TRUE',101);
4852: ELSE
4853: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4856: hr_utility.set_location('posn table: '||L_position_pay_table,120);
4857: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
4858: hr_utility.set_location('new prd : '||l_new_prd,140);
4859:
4852: ELSE
4853: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4856: hr_utility.set_location('posn table: '||L_position_pay_table,120);
4857: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
4858: hr_utility.set_location('new prd : '||l_new_prd,140);
4859:
4860:
4853: hr_utility.set_location('After SET_CPT Pay Table UPD Flag FALSE',102);
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4856: hr_utility.set_location('posn table: '||L_position_pay_table,120);
4857: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
4858: hr_utility.set_location('new prd : '||l_new_prd,140);
4859:
4860:
4861: -- get_basic_pay
4854: END IF;
4855: hr_utility.set_location('calc table: '||l_calculation_pay_table,110);
4856: hr_utility.set_location('posn table: '||L_position_pay_table,120);
4857: hr_utility.set_location('retd table: '||l_retained_pay_table,130);
4858: hr_utility.set_location('new prd : '||l_new_prd,140);
4859:
4860:
4861: -- get_basic_pay
4862: hr_utility.set_location('2. l_step_or_rate: '||l_step_or_rate,999999);
4858: hr_utility.set_location('new prd : '||l_new_prd,140);
4859:
4860:
4861: -- get_basic_pay
4862: hr_utility.set_location('2. l_step_or_rate: '||l_step_or_rate,999999);
4863: ghr_pay_calc.get_pay_table_value(p_user_table_id => l_default_table_id
4864: ,p_pay_plan => l_default_pay_plan
4865: ,p_grade_or_level => l_grade_or_level
4866: ,p_step_or_rate => l_step_or_rate
4868: ,p_PT_value => l_basic_pay
4869: ,p_PT_eff_start_date => l_PT_eff_start_date
4870: ,p_PT_eff_end_date => l_dummy_date);
4871: l_new_basic_pay := l_basic_pay;
4872: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
4873: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
4874: -- get_locality_or_supplement/ Adj Basic Pay
4875: IF l_pay_calc_process = 'L' THEN
4876: hr_utility.set_location('Inside Locality Calculation',30);
4869: ,p_PT_eff_start_date => l_PT_eff_start_date
4870: ,p_PT_eff_end_date => l_dummy_date);
4871: l_new_basic_pay := l_basic_pay;
4872: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
4873: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
4874: -- get_locality_or_supplement/ Adj Basic Pay
4875: IF l_pay_calc_process = 'L' THEN
4876: hr_utility.set_location('Inside Locality Calculation',30);
4877: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
4872: hr_utility.set_location('std basic: '||to_char(l_new_BASIC_PAY),10);
4873: hr_utility.set_location('ADJ Perc : '||to_char(l_adj_perc_factor),20);
4874: -- get_locality_or_supplement/ Adj Basic Pay
4875: IF l_pay_calc_process = 'L' THEN
4876: hr_utility.set_location('Inside Locality Calculation',30);
4877: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
4878: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4879: ELSIF l_pay_calc_process = 'S' THEN
4880: hr_utility.set_location('Inside Special Rate Calculation',40);
4876: hr_utility.set_location('Inside Locality Calculation',30);
4877: l_new_locality_adj := ROUND(l_new_basic_pay * l_adj_perc_factor);
4878: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4879: ELSIF l_pay_calc_process = 'S' THEN
4880: hr_utility.set_location('Inside Special Rate Calculation',40);
4881: l_new_locality_adj := l_pt_value - l_new_basic_pay;
4882: l_new_adj_basic_pay := l_new_basic_pay + l_new_locality_adj;
4883: END IF;
4884: END IF;--End of if Bug 5608741
4888: LOOP
4889: l_calculation_pay_table_id := table_rec.user_table_id;
4890: END LOOP;
4891:
4892: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
4893: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
4894: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
4895: hr_utility.set_location('new PRD : '||l_new_prd,40);
4896: hr_utility.set_location('new Step : '||l_new_step,50);
4889: l_calculation_pay_table_id := table_rec.user_table_id;
4890: END LOOP;
4891:
4892: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
4893: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
4894: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
4895: hr_utility.set_location('new PRD : '||l_new_prd,40);
4896: hr_utility.set_location('new Step : '||l_new_step,50);
4897: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
4890: END LOOP;
4891:
4892: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
4893: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
4894: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
4895: hr_utility.set_location('new PRD : '||l_new_prd,40);
4896: hr_utility.set_location('new Step : '||l_new_step,50);
4897: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
4898: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
4891:
4892: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
4893: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
4894: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
4895: hr_utility.set_location('new PRD : '||l_new_prd,40);
4896: hr_utility.set_location('new Step : '||l_new_step,50);
4897: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
4898: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
4899: l_pay_plan IN ('GL','GG') AND
4892: hr_utility.set_location('new Basic : '||to_char(l_new_basic_pay),10);
4893: hr_utility.set_location('new LOC : '||to_char(l_new_locality_adj),20);
4894: hr_utility.set_location('new ADJ BA : '||to_char(l_new_adj_basic_pay),30);
4895: hr_utility.set_location('new PRD : '||l_new_prd,40);
4896: hr_utility.set_location('new Step : '||l_new_step,50);
4897: --Bug#5089732 Set the Pay Rate Determinant for GL,GG Pay Plans
4898: IF l_calculation_pay_table = ghr_pay_calc.l_spl491_table_name AND
4899: l_pay_plan IN ('GL','GG') AND
4900: l_new_prd IN ('6','E','F') THEN
4937: l_new_prd := NULL;
4938: END IF;
4939:
4940: -- SET OUT PARAMETERS
4941: hr_utility.set_location('new PRD : '||l_new_prd,40);
4942: hr_utility.set_location('new Step : '||l_new_step,50);
4943: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
4944: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
4945: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
4938: END IF;
4939:
4940: -- SET OUT PARAMETERS
4941: hr_utility.set_location('new PRD : '||l_new_prd,40);
4942: hr_utility.set_location('new Step : '||l_new_step,50);
4943: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
4944: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
4945: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
4946: p_pay_calc_out_data.adj_basic_pay := l_new_adj_basic_pay;
4939:
4940: -- SET OUT PARAMETERS
4941: hr_utility.set_location('new PRD : '||l_new_prd,40);
4942: hr_utility.set_location('new Step : '||l_new_step,50);
4943: hr_utility.set_location('new l_calculation_pay_table_id : '|| l_calculation_pay_table_id,50);
4944: p_pay_calc_out_data.basic_pay := l_new_basic_pay;
4945: p_pay_calc_out_data.locality_adj := l_new_locality_adj;
4946: p_pay_calc_out_data.adj_basic_pay := l_new_adj_basic_pay;
4947: p_pay_calc_out_data.out_pay_rate_determinant := l_new_prd;
5015: FROM pay_user_tables utb
5016: WHERE utb.user_table_name = p_user_table_name;
5017:
5018: BEGIN
5019: hr_utility.set_location('Entering ...'|| l_proc,100);
5020: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_position_id,p_effective_date);
5021:
5022: hr_utility.set_location('personnel system ...'|| l_psi,101);
5023:
5018: BEGIN
5019: hr_utility.set_location('Entering ...'|| l_proc,100);
5020: l_psi := ghr_pa_requests_pkg.get_personnel_system_indicator(p_position_id,p_effective_date);
5021:
5022: hr_utility.set_location('personnel system ...'|| l_psi,101);
5023:
5024: IF l_psi <> '00' THEN --for NSPS
5025:
5026: IF p_pay_basis = 'PA' THEN
5060: END IF;
5061:
5062: exception
5063: when others then
5064: hr_utility.set_location('Retained Exception raised ' || sqlerrm(sqlcode),25);
5065: END;
5066: END IF;
5067: for c1 in c_gs_eq(l_pay_plan) loop
5068: l_equivalent_pay_plan := c1.equivalent_pay_plan;
5106:
5107:
5108:
5109: l_special_rate := l_pt_value;
5110: hr_utility.set_location('special rate '||l_special_rate,8877);
5111:
5112: --code for getting default table values......
5113:
5114:
5137: ,p_PT_value => l_PT_value
5138: ,p_PT_eff_start_date => l_PT_eff_start_date
5139: ,p_PT_eff_end_date => l_PT_eff_end_date
5140: );
5141: hr_utility.set_location('default rate '||l_PT_value,8877);
5142: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_duty_station_id,p_effective_date),0);
5143: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5144: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5145:
5139: ,p_PT_eff_end_date => l_PT_eff_end_date
5140: );
5141: hr_utility.set_location('default rate '||l_PT_value,8877);
5142: l_adjustment_percentage := NVL(ghr_pay_calc.get_lpa_percentage(p_duty_station_id,p_effective_date),0);
5143: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5144: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5145:
5146: l_pt_value := l_pt_value + l_locality_adj;
5147: hr_utility.set_location('final default rate '||l_pt_value,8877);
5143: hr_utility.set_location('l_adjustment_percentage '||l_adjustment_percentage,8877);
5144: l_locality_adj := l_PT_value * (NVL(l_adjustment_percentage,0)/100);
5145:
5146: l_pt_value := l_pt_value + l_locality_adj;
5147: hr_utility.set_location('final default rate '||l_pt_value,8877);
5148: --compare srt and locality rate..........
5149: if nvl(l_special_rate,0) < l_pt_value then
5150:
5151: p_award_salary := ROUND(l_pt_value);
5218:
5219: -- Bug#5237399 Added the AD Pay Plan Condition.
5220: ELSIF (l_equivalent_pay_plan = 'FW' OR
5221: (l_pay_plan = 'AD' and l_pay_basis = 'PH')) THEN
5222: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5223: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5224: hr_utility.set_location('MAX STEP '||l_max_step,30);
5225: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5226: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5219: -- Bug#5237399 Added the AD Pay Plan Condition.
5220: ELSIF (l_equivalent_pay_plan = 'FW' OR
5221: (l_pay_plan = 'AD' and l_pay_basis = 'PH')) THEN
5222: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5223: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5224: hr_utility.set_location('MAX STEP '||l_max_step,30);
5225: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5226: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5227: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5220: ELSIF (l_equivalent_pay_plan = 'FW' OR
5221: (l_pay_plan = 'AD' and l_pay_basis = 'PH')) THEN
5222: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5223: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5224: hr_utility.set_location('MAX STEP '||l_max_step,30);
5225: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5226: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5227: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5228: ,p_pay_plan => l_pay_plan
5221: (l_pay_plan = 'AD' and l_pay_basis = 'PH')) THEN
5222: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5223: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5224: hr_utility.set_location('MAX STEP '||l_max_step,30);
5225: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5226: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5227: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5228: ,p_pay_plan => l_pay_plan
5229: ,p_grade_or_level => l_grade_or_level
5222: hr_utility.set_location('USER TABLE '||to_char(l_user_table_id),10);
5223: hr_utility.set_location('EFF DT '||to_char(p_effective_date),20);
5224: hr_utility.set_location('MAX STEP '||l_max_step,30);
5225: hr_utility.set_location('PAY PLAN '||l_pay_plan,40);
5226: hr_utility.set_location('GRADE '||l_grade_or_level,50);
5227: ghr_pay_calc.get_pay_table_value ( p_user_table_id => l_user_table_id
5228: ,p_pay_plan => l_pay_plan
5229: ,p_grade_or_level => l_grade_or_level
5230: ,p_step_or_rate => l_max_step
5231: ,p_effective_date => p_effective_date
5232: ,p_PT_value => l_PT_value
5233: ,p_PT_eff_start_date => l_PT_eff_start_date
5234: ,p_PT_eff_end_date => l_PT_eff_end_date);
5235: hr_utility.set_location('VALUE '||to_char(l_pt_value),60);
5236: hr_utility.set_location('Pay Basis '||p_pay_basis,70);
5237: p_award_salary := ROUND(ghr_pay_calc.convert_amount(l_PT_value,p_pay_basis,'PA'));
5238:
5239: END IF; --(p_pay_plan = l_equivalent_pay_plan)
5232: ,p_PT_value => l_PT_value
5233: ,p_PT_eff_start_date => l_PT_eff_start_date
5234: ,p_PT_eff_end_date => l_PT_eff_end_date);
5235: hr_utility.set_location('VALUE '||to_char(l_pt_value),60);
5236: hr_utility.set_location('Pay Basis '||p_pay_basis,70);
5237: p_award_salary := ROUND(ghr_pay_calc.convert_amount(l_PT_value,p_pay_basis,'PA'));
5238:
5239: END IF; --(p_pay_plan = l_equivalent_pay_plan)
5240: END IF; --p_prd not in('3','4','J','K','U','V'
5261:
5262:
5263: p_award_amount := FLOOR(p_award_salary *( nvl(p_award_percentage,0) / 100));
5264: --End Bug# 5039156
5265: hr_utility.set_location('Leaving Award Amount sal' || p_award_salary,10);
5266: EXCEPTION
5267: WHEN OTHERS THEN
5268: p_award_amount := NULL;
5269: p_award_salary := NULL;
5266: EXCEPTION
5267: WHEN OTHERS THEN
5268: p_award_amount := NULL;
5269: p_award_salary := NULL;
5270: hr_utility.set_location('Leaving ' || l_proc,10);
5271: END award_amount_calc;
5272: -- Bug# 4748927 End
5273: END ghr_pay_calc;