eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GHR_PAY_CALC dependencies on GHR_PC_BASIC_PAY

Line 49: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (p_person_id

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);
52: IF p_prd IN ('A','B','E','F') AND l_retained_grade.temp_step is not null THEN
53: ghr_history_fetch.fetch_positionei(

Line 668: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details

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
670: ,p_effective_date => l_effective_date);
671: IF p_temp_step IS NULL THEN
672: p_retained_pay_plan := l_retained_grade_rec.pay_plan;

Line 690: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details

686:
687: IF l_true_or_false = FALSE THEN
688: l_effective_date := p_effective_date - 1;
689: -- If temp step include temp step also in the condition
690: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details
691: (p_person_id => p_person_id
692: ,p_effective_date => l_effective_date);
693: IF p_temp_step IS NULL THEN
694: IF p_retained_pay_plan = l_retained_grade_rec.pay_plan AND

Line 944: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data

940: END LOOP;
941: --
942: -- Get the 7 dp figure as calculated in the 6 step rule!
943: IF p_retained_grade.pay_plan IS NULL THEN
944: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data
945: ,p_retained_grade
946: ,'POSITION'
947: ,l_dummy_number
948: ,l_PT_eff_start_date

Line 952: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data

948: ,l_PT_eff_start_date
949: ,l_7dp);
950: l_grade := p_pay_calc_data.grade_or_level;
951: ELSE
952: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data
953: ,p_retained_grade
954: ,'PERSON'
955: ,l_dummy_number
956: ,l_PT_eff_start_date

Line 961: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

957: ,l_7dp);
958: l_grade := p_retained_grade.grade_or_level;
959: END IF;
960: --
961: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
962: ,'GS'
963: ,l_grade
964: ,l_PT_eff_start_date
965: ,l_dummy_step

Line 974: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

970: -- Bug No 711506 for Loaclity Adjustment
971: -- l_std_max is being fetched from get_min_pay_table_value. Corrected the same by fetcing
972: -- from get_max_pay_table_value
973: --
974: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
975: ,'GS'
976: ,l_grade
977: ,l_PT_eff_start_date
978: ,l_dummy_step

Line 1232: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

1228: l_retained_grade.step_or_rate,
1229: l_retained_grade.temp_step,
1230: l_ret_flag);
1231: IF l_ret_flag = TRUE THEN
1232: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1233: ,l_retained_grade.temp_step);
1234: ELSE
1235: l_new_step_or_rate := p_retained_grade.temp_step;
1236: END IF;

Line 1246: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

1242: l_retained_grade.step_or_rate,
1243: l_retained_grade.temp_step,
1244: l_ret_flag);
1245: IF l_ret_flag = TRUE THEN
1246: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1247: ,l_retained_grade.step_or_rate);
1248: ELSE
1249: l_new_step_or_rate := l_retained_grade.step_or_rate;
1250: END IF;

Line 1254: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

1250: END IF;
1251: END IF;
1252: ELSE
1253: IF p_retained_grade.temp_step is not null THEN
1254: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1255: ,p_retained_grade.temp_step);
1256: ELSE
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);

Line 1257: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan

1253: IF p_retained_grade.temp_step is not null THEN
1254: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1255: ,p_retained_grade.temp_step);
1256: ELSE
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);

Line 1380: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

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
1384: ELSE

Line 1399: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

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
1403: l_new_step_or_rate := l_retained_grade.step_or_rate;

Line 1409: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan

1405: END IF; -- if p_retained_grade.temp_step is not null
1406: else
1407: if p_retained_grade.temp_step is not null then
1408:
1409: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1410: ,p_retained_grade.temp_step);
1411: else
1412: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan
1413: ,p_retained_grade.step_or_rate);

Line 1412: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan

1408:
1409: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_calc_data.pay_plan
1410: ,p_retained_grade.temp_step);
1411: else
1412: l_new_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_retained_grade.pay_plan
1413: ,p_retained_grade.step_or_rate);
1414: end if;
1415: end if;
1416:

Line 1896: ghr_pc_basic_pay.g_noa_family_code := 'CORRECT';

1892: -- For corrections we need to go and get alot of the IN parameters
1893: -- as the form does not populate them:
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;

Line 1934: ghr_pc_basic_pay.g_noa_family_code := NULL;

1930: l_from_pay_basis := ctr_from_pay_basis.from_pay_basis;
1931: END LOOP;
1932:
1933: ELSE
1934: ghr_pc_basic_pay.g_noa_family_code := NULL;
1935: l_position_id := p_position_id;
1936: l_noa_family_code := p_noa_family_code;
1937: l_noa_code := p_noa_code;
1938: l_second_noa_code := p_second_noa_code;

Line 1989: ghr_pc_basic_pay.g_noa_family_code := 'CORRECT';

1985: v_session.noa_id_correct := l_session.noa_id_correct;
1986:
1987:
1988: IF l_session.noa_id_correct is not null then
1989: ghr_pc_basic_pay.g_noa_family_code := 'CORRECT';
1990: -- First determine presence of retro active actions
1991: l_ia_flag := 'N';
1992: -- Bug 3248061 Sundar
1993: -- l_ghr_pa_request_rec.pa_request_id becomes null for correction record. So in that case

Line 2143: ghr_pc_basic_pay.g_noa_family_code := NULL;

2139: l_to_ret_allow_percentage := NVL(p_to_ret_allow_percentage ,l_ghr_pa_request_rec.to_retention_allow_percentage);
2140: l_supervisory_differential := NVL(p_supervisory_differential ,l_ghr_pa_request_rec.to_supervisory_differential);
2141: end if;
2142: ELSE
2143: ghr_pc_basic_pay.g_noa_family_code := NULL;
2144: END IF;
2145: ghr_history_api.reinit_g_session_var;
2146: -- Reset values of session variables IA fetch sake.
2147: l_session.pa_request_id := v_session.pa_request_id;

Line 2299: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (l_pay_calc_data.person_id

2295: -- FWFA Modification: Moved the get_retained_grade_details call from get_basic_pay procedure
2296: -- to this position.
2297: IF l_pay_calc_data.pay_rate_determinant IN ('A','B','E','F','U','V','M') THEN
2298: BEGIN
2299: l_retained_grade := ghr_pc_basic_pay.get_retained_grade_details (l_pay_calc_data.person_id
2300: ,l_pay_calc_data.effective_date
2301: ,l_pay_calc_data.pa_request_id);
2302: EXCEPTION
2303: WHEN OTHERS THEN

Line 2407: ghr_pc_basic_pay.get_basic_pay (l_pay_calc_data, l_pay_calc_out_data, l_retained_grade);

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);
2406: --else
2407: ghr_pc_basic_pay.get_basic_pay (l_pay_calc_data, l_pay_calc_out_data, l_retained_grade);
2408: --end if;
2409: -- FWFA Changes. Bug#4444609 Setting the Calculation Pay Table in case of non-fwfa calculations.
2410: IF l_pay_calc_data.pay_rate_determinant IN ('A','B','E','F','U','V','M') AND
2411: l_retained_grade.temp_step IS NULL THEN

Line 3135: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data

3131: ,p_pay_calc_data.effective_date);
3132:
3133:
3134: -- Get the 7 dp figure as calculated in the 6 step rule!
3135: ghr_pc_basic_pay.get_basic_pay_SAL894_6step(p_pay_calc_data
3136: ,p_retained_grade
3137: ,'POSITION'
3138: ,l_new_basic_pay
3139: ,l_PT_eff_start_date

Line 3144: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

3140: ,l_7dp);
3141: --
3142: l_A := l_new_basic_pay - p_pay_calc_data.current_basic_pay;
3143:
3144: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
3145: ,'GS'
3146: ,l_grade
3147: ,l_PT_eff_start_date
3148: ,l_dummy_step

Line 3153: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

3149: ,l_std_min
3150: ,l_dummy_date
3151: ,l_dummy_date);
3152: --
3153: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
3154: ,'GS'
3155: ,l_grade
3156: ,l_PT_eff_start_date
3157: ,l_dummy_step

Line 3167: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

3163: l_new_std_relative_rate := l_new_ret_basic_pay;
3164: p_new_std_relative_rate := l_new_ret_basic_pay;
3165: --
3166: --
3167: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
3168: ,'GS'
3169: ,l_grade
3170: ,(l_PT_eff_start_date - 1)
3171: ,l_dummy_step

Line 3176: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

3172: ,l_std_min
3173: ,l_dummy_date
3174: ,l_dummy_date);
3175: --
3176: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
3177: ,'GS'
3178: ,l_grade
3179: ,(l_PT_eff_start_date - 1)
3180: ,l_dummy_step

Line 3476: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

3472:
3473: --
3474: -- Present Year values.
3475: --
3476: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
3477: ,'GS'
3478: ,l_grade
3479: ,p_pay_calc_data.effective_date
3480: ,l_dummy_step

Line 3485: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

3481: ,l_std_min
3482: ,l_effective_start_date
3483: ,l_effective_end_date);
3484: --
3485: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
3486: ,'GS'
3487: ,l_grade
3488: ,p_pay_calc_data.effective_date
3489: ,l_dummy_step

Line 3496: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

3492: ,l_effective_end_date);
3493:
3494: -- Previous Year values.
3495: --
3496: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
3497: ,'GS'
3498: ,l_grade
3499: ,(l_effective_start_date - 1)
3500: ,l_dummy_step

Line 3505: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

3501: ,l_std_min_old
3502: ,l_dummy_date
3503: ,l_dummy_date);
3504: --
3505: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
3506: ,'GS'
3507: ,l_grade
3508: ,(l_effective_start_date - 1)
3509: ,l_dummy_step

Line 3654: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id

3650: end;
3651: --
3652: -- Present Year values.
3653: --
3654: ghr_pc_basic_pay.get_min_pay_table_value(l_std_user_table_id
3655: ,'GS'
3656: ,l_grade
3657: ,p_pay_calc_data.effective_date
3658: ,l_dummy_step

Line 3663: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id

3659: ,l_std_min
3660: ,l_effective_start_date
3661: ,l_effective_end_date);
3662: --
3663: ghr_pc_basic_pay.get_max_pay_table_value(l_std_user_table_id
3664: ,'GS'
3665: ,l_grade
3666: ,p_pay_calc_data.effective_date
3667: ,l_dummy_step

Line 3674: ghr_pc_basic_pay.get_min_pay_table_value(l_user_table_id

3670: ,l_effective_end_date);
3671:
3672: -- Present Year values.
3673: --
3674: ghr_pc_basic_pay.get_min_pay_table_value(l_user_table_id
3675: ,'GS'
3676: ,l_grade
3677: ,p_pay_calc_data.effective_date
3678: ,l_dummy_step

Line 3683: ghr_pc_basic_pay.get_max_pay_table_value(l_user_table_id

3679: ,l_it_min
3680: ,l_dummy_date
3681: ,l_dummy_date);
3682: --
3683: ghr_pc_basic_pay.get_max_pay_table_value(l_user_table_id
3684: ,'GS'
3685: ,l_grade
3686: ,p_pay_calc_data.effective_date
3687: ,l_dummy_step

Line 4644: ghr_pc_basic_pay.get_894_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level

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
4648: ,p_curr_basic_pay => p_pay_calc_data.current_basic_pay

Line 4657: ghr_pc_basic_pay.get_wgi_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level

4653: ,p_new_special_rate => l_new_special_rate
4654: );
4655: ELSE
4656: --AC -- Code for WGI Special Emp.
4657: ghr_pc_basic_pay.get_wgi_GM_sp_basic_pay (p_grade_or_level => l_grade_or_level
4658: ,p_effective_date => p_pay_calc_data.effective_date
4659: ,p_user_table_id => l_user_table_id
4660: ,p_default_table_id => l_default_table_id
4661: ,p_curr_basic_pay => p_pay_calc_data.current_basic_pay

Line 4696: if ghr_pc_basic_pay.g_noa_family_code ='CORRECT' then

4692: l_ret_flag := FALSE;
4693: l_curr_step_or_rate := l_step_or_rate;
4694: -- FWFA Changes NEW
4695: IF p_pay_calc_data.pay_rate_determinant IN ('A','B','E','F') THEN
4696: if ghr_pc_basic_pay.g_noa_family_code ='CORRECT' then
4697: if p_retained_grade.temp_step is not null then
4698: -- Bug 3021003 Start
4699: is_retained_ia(p_pay_calc_data.person_id,
4700: p_pay_calc_data.effective_date,

Line 4709: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan

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
4713: ELSE

Line 4728: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan

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
4732: l_step_or_rate := l_step_or_rate;

Line 4738: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan

4734: END IF; -- if p_retained_grade.temp_step is not null
4735: else--family_code ='CORRECT'
4736: if p_retained_grade.temp_step is not null then
4737:
4738: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4739: ,p_retained_grade.temp_step);
4740: else
4741: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4742: ,p_retained_grade.step_or_rate);

Line 4741: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan

4737:
4738: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4739: ,p_retained_grade.temp_step);
4740: else
4741: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (l_pay_plan
4742: ,p_retained_grade.step_or_rate);
4743: end if;
4744: end if;--family_code ='CORRECT'
4745: ELSE --('A','B','E','F') THEN

Line 4746: --if ghr_pc_basic_pay.g_noa_family_code ='CORRECT' then

4742: ,p_retained_grade.step_or_rate);
4743: end if;
4744: end if;--family_code ='CORRECT'
4745: ELSE --('A','B','E','F') THEN
4746: --if ghr_pc_basic_pay.g_noa_family_code ='CORRECT' then
4747: -- l_step_or_rate := l_curr_step_or_rate;
4748: --ELSE
4749: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_plan => l_pay_plan
4750: ,p_current_step => l_curr_step_or_rate);

Line 4749: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_plan => l_pay_plan

4745: ELSE --('A','B','E','F') THEN
4746: --if ghr_pc_basic_pay.g_noa_family_code ='CORRECT' then
4747: -- l_step_or_rate := l_curr_step_or_rate;
4748: --ELSE
4749: l_step_or_rate := ghr_pc_basic_pay.get_next_WGI_step (p_pay_plan => l_pay_plan
4750: ,p_current_step => l_curr_step_or_rate);
4751: --END IF;
4752: END IF; --('A','B','E','F') THEN
4753: -- FWFA Changes NEW

Line 5044: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details (p_person_id,p_effective_date,NULL);

5040: -- Bug#5237399 Added Pay basis
5041: l_pay_basis := p_pay_basis;
5042: ELSE
5043: BEGIN
5044: l_retained_grade_rec := ghr_pc_basic_pay.get_retained_grade_details (p_person_id,p_effective_date,NULL);
5045: --Mani Bug #6655566 Award Amount calculated on the Position pay basis if temp step is not null
5046: --otherwise on retained grade
5047: If NVL(p_prd,'X') IN ('A','B','E','F') AND
5048: l_retained_grade_rec.temp_step is not null then