[Home] [Help]
381: l_pay_cap_amount NUMBER;
382: l_pay_cap_in_data ghr_pay_caps.pay_cap_in_rec_type;
383: l_pay_cap_out_data ghr_pay_caps.pay_cap_out_rec_type;
384:
385: l_retained_grade ghr_pay_calc.retained_grade_rec_type;
386: l_pay_plan VARCHAR2(30);
387:
388: ---- New Variables
389: l_pay_basis VARCHAR2(30);
472: FUNCTION convert_amount_to_PA(p_amount IN NUMBER
473: ,p_pay_basis IN VARCHAR2)
474: RETURN NUMBER IS
475: BEGIN
476: RETURN( ghr_pay_calc.convert_amount(p_amount
477: ,p_pay_basis
478: ,'PA') );
479: EXCEPTION
480: WHEN ghr_pay_calc.pay_calc_message THEN
476: RETURN( ghr_pay_calc.convert_amount(p_amount
477: ,p_pay_basis
478: ,'PA') );
479: EXCEPTION
480: WHEN ghr_pay_calc.pay_calc_message THEN
481: RETURN(NULL);
482: END convert_amount_to_PA;
483: --
484: --
492: loop
493: l_locality_pay_area_code := rec_locality_pay_area.locality_pay_area_code;
494: end loop;
495: --Bug 13414643,13403289
496: IF p_pay_rate_determinant = '2' AND l_psi = '00' AND NOT ghr_pay_calc.prd2_process THEN --Bug# 8324201
497: NULL;
498: ELSE
499: -- set up the in record structure
500: l_pay_cap_in_data.effective_date := p_effective_date;
706: --Bug# 5132113
707: --Begin Bug# 7557159
708: ELSIF l_pay_plan in('IG') THEN
709: -- } 1
710: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
711: ,'02'
712: ,'00'
713: ,l_pay_cap_in_data.effective_date);
714: IF l_pay_cap_amount < l_converted_adj_basic_pay THEN
719: --End Bug# 7557159
720: ELSIF l_pay_plan in ( 'ES','EP','EV','IE','AL','AA','SL','IP','ST','CA','EE', 'FE' ) THEN
721: -- } 1
722: IF l_pay_plan ='FE' THEN --Added for bug#5931199
723: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX','02','00'
724: ,l_pay_cap_in_data.effective_date);
725: ELSIF l_pay_plan in ( 'ES','EP','EV','IE','SL','IP','ST') THEN --Removed FE bug#5931199
726: -- { 2
727: IF ( perf_certified(l_agency_subele_code,l_org_id, l_pay_plan, p_effective_date) ) THEN
730:
731: IF (l_pay_plan in ('ES','EP','EV','IE') ) THEN
732: --Begin Bug# 7633783
733: IF l_pay_cap_in_data.pay_rate_determinant = 'D' THEN
734: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VZ'
735: ,'00'
736: ,'00'
737: ,l_pay_cap_in_data.effective_date);
738:
738:
739: ELSE
740: --End Bug# 7633783
741: --Removed FE bug#5931199
742: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
743: ,'02'
744: ,'00'
745: ,l_pay_cap_in_data.effective_date);
746: hr_utility.set_location('INSIDE EX-02',123456);
750: --Begin Bug# 6807868, coded as per the Pay cap master chart
751: --Begin Bug# 7633783 added PRD S
752: --Begin Bug# 8320557
753: IF l_pay_cap_in_data.pay_rate_determinant IN ('R','S') THEN
754: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value
755: ('EX'
756: ,'02'
757: ,'00'
758: ,l_pay_cap_in_data.effective_date);
760: --End Bug# 6807868
761: --Bug # 8515337 added date effectivity to consider EX-02 only after 12-Apr-2009
762: -- For SL ST IP and Certified Agency
763: IF l_pay_cap_in_data.effective_date >= to_date('2009/04/12','YYYY/MM/DD') THEN
764: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
765: ,'02'
766: ,'00'
767: ,l_pay_cap_in_data.effective_date);
768: ELSE
765: ,'02'
766: ,'00'
767: ,l_pay_cap_in_data.effective_date);
768: ELSE
769: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
770: ,'03'
771: ,'00'
772: ,l_pay_cap_in_data.effective_date);
773: END IF;
777: -- Bug # 8320557 Modified for SL ST IP pay plans to consider EX-02 for PRD R
778: -- and EX-03 for Other than R PRDs and NON Certified
779: IF (l_pay_plan in ('SL','ST','IP') ) THEN
780: IF l_pay_cap_in_data.pay_rate_determinant IN ('R') THEN
781: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value
782: ('EX'
783: ,'02'
784: ,'00'
785: ,l_pay_cap_in_data.effective_date);
783: ,'02'
784: ,'00'
785: ,l_pay_cap_in_data.effective_date);
786: ELSE
787: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
788: ,'03'
789: ,'00'
790: ,l_pay_cap_in_data.effective_date);
791: END IF;
792: ELSE
793: --End Bug# 8320557
794: --Begin Bug# 7633783
795: IF l_pay_cap_in_data.pay_rate_determinant = 'D' THEN
796: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
797: ,'01'
798: ,'00'
799: ,l_pay_cap_in_data.effective_date);
800: ELSE
798: ,'00'
799: ,l_pay_cap_in_data.effective_date);
800: ELSE
801: --End Bug# 7633783
802: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
803: ,'03'
804: ,'00'
805: ,l_pay_cap_in_data.effective_date);
806: END IF;
810: ELSIF l_pay_plan in ('AL','AA','CA','EE') THEN
811: -- { 2
812: --Begin Bug# 6807868, coded as per the Pay cap master chart
813: IF l_pay_cap_in_data.pay_rate_determinant = 'R' AND l_pay_plan in ('AL','CA') THEN
814: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value
815: ('EX'
816: ,'02'
817: ,'00'
818: ,l_pay_cap_in_data.effective_date);
817: ,'00'
818: ,l_pay_cap_in_data.effective_date);
819: --Begin Bug# 9973337
820: ELSIF l_pay_plan in ('EE') THEN
821: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value
822: ('EX'
823: ,'02'
824: ,'00'
825: ,l_pay_cap_in_data.effective_date);
825: ,l_pay_cap_in_data.effective_date);
826: -- End Bug# 9973337
827: ELSE
828: --End Bug# 6807868
829: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
830: ,'03'
831: ,'00'
832: ,l_pay_cap_in_data.effective_date);
833: END IF; --Bug# 6807868
844: ,p_adj_basic_pay => l_converted_adj_basic_pay
845: ,p_locality_adj => l_converted_locality_adj );
846:
847: if l_to_auo_premium_pay_indicator is not null then
848: l_au_overtime := ghr_pay_calc.get_ppi_amount(
849: l_to_auo_premium_pay_indicator
850: ,l_converted_adj_basic_pay
851: ,l_pay_basis);
852: end if;
850: ,l_converted_adj_basic_pay
851: ,l_pay_basis);
852: end if;
853: if l_to_ap_premium_pay_indicator is not null then
854: l_availability_pay := ghr_pay_calc.get_ppi_amount(
855: l_to_ap_premium_pay_indicator
856: ,l_converted_adj_basic_pay
857: ,l_pay_basis);
858: end if;
874: (l_pay_plan = 'YJ' AND l_grade_or_level IN ('01','02','03'))
875: ) THEN
876: -- } 1
877: IF l_pay_cap_in_data.pay_rate_determinant IN ('0','4','T') THEN
878: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
879: ,'04'
880: ,'00'
881: ,l_pay_cap_in_data.effective_date);
882: l_pay_cap_amount := FLOOR((l_pay_cap_amount * 105) / 100);
880: ,'00'
881: ,l_pay_cap_in_data.effective_date);
882: l_pay_cap_amount := FLOOR((l_pay_cap_amount * 105) / 100);
883: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'R' THEN
884: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
885: ,'02'
886: ,'00'
887: ,l_pay_cap_in_data.effective_date);
888: --Begin Bug# 7633783
886: ,'00'
887: ,l_pay_cap_in_data.effective_date);
888: --Begin Bug# 7633783
889: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'S' THEN
890: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
891: ,'03'
892: ,'00'
893: ,l_pay_cap_in_data.effective_date);
894: --End Bug# 7633783
893: ,l_pay_cap_in_data.effective_date);
894: --End Bug# 7633783
895: --Begin bug# 8324201
896: ELSIF l_pay_cap_in_data.pay_rate_determinant = '2' AND ( perf_certified(l_agency_subele_code,l_org_id, l_pay_plan, p_effective_date)) THEN
897: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
898: ,'02'
899: ,'00'
900: ,l_pay_cap_in_data.effective_date);
901: --End bug# 8324201
917: --End bug# 8324201
918:
919: -- Bug 5663050 Start
920: if l_to_auo_premium_pay_indicator is not null then
921: l_au_overtime := ghr_pay_calc.get_ppi_amount(
922: l_to_auo_premium_pay_indicator
923: ,l_converted_adj_basic_pay
924: ,l_pay_basis);
925: end if;
923: ,l_converted_adj_basic_pay
924: ,l_pay_basis);
925: end if;
926: if l_to_ap_premium_pay_indicator is not null then
927: l_availability_pay := ghr_pay_calc.get_ppi_amount(
928: l_to_ap_premium_pay_indicator
929: ,l_converted_adj_basic_pay
930: ,l_pay_basis);
931: end if;
945: (l_pay_plan = 'YJ' AND l_grade_or_level = '04')
946: ) THEN
947: -- } 1
948: IF l_pay_cap_in_data.pay_rate_determinant IN ('0','4','T','R') THEN
949: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VW'
950: ,'00'
951: ,'00'
952: ,l_pay_cap_in_data.effective_date);
953: IF l_pay_cap_amount < l_converted_adj_basic_pay THEN
955: l_converted_locality_adj := l_converted_adj_basic_pay - l_converted_basic_pay;
956:
957: -- Bug 5663050 Start
958: if l_to_auo_premium_pay_indicator is not null then
959: l_au_overtime := ghr_pay_calc.get_ppi_amount(
960: l_to_auo_premium_pay_indicator
961: ,l_converted_adj_basic_pay
962: ,l_pay_basis);
963: end if;
961: ,l_converted_adj_basic_pay
962: ,l_pay_basis);
963: end if;
964: if l_to_ap_premium_pay_indicator is not null then
965: l_availability_pay := ghr_pay_calc.get_ppi_amount(
966: l_to_ap_premium_pay_indicator
967: ,l_converted_adj_basic_pay
968: ,l_pay_basis);
969: end if;
999: -- } 1
1000: ----Bug 2065033
1001: -- Bug#4168256 Removed Pay Plan EV. Added it with pay plans ES,EP,FE,IE
1002: IF l_pay_plan in ('EX') THEN
1003: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1004: ,'01'
1005: ,'00'
1006: ,l_pay_cap_in_data.effective_date);
1007: --BEGIN Bug# 6807868
1005: ,'00'
1006: ,l_pay_cap_in_data.effective_date);
1007: --BEGIN Bug# 6807868
1008: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'R' THEN
1009: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1010: ,'02'
1011: ,'00'
1012: ,l_pay_cap_in_data.effective_date);
1013: --END Bug# 6807868
1012: ,l_pay_cap_in_data.effective_date);
1013: --END Bug# 6807868
1014: --BEGIN Bug# 9255822
1015: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'Y' THEN
1016: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1017: ,'04'
1018: ,'00'
1019: ,l_pay_cap_in_data.effective_date);
1020: l_pay_cap_amount := FLOOR((l_pay_cap_amount * 105) / 100);
1020: l_pay_cap_amount := FLOOR((l_pay_cap_amount * 105) / 100);
1021: --END Bug# 9255822
1022: --Begin Bug# 7633783
1023: ELSIF l_pay_plan ='GS' AND l_pay_cap_in_data.pay_rate_determinant = 'D' THEN
1024: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1025: ,'01'
1026: ,'00'
1027: ,l_pay_cap_in_data.effective_date);
1028: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'S' THEN
1025: ,'01'
1026: ,'00'
1027: ,l_pay_cap_in_data.effective_date);
1028: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'S' THEN
1029: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1030: ,'03'
1031: ,'00'
1032: ,l_pay_cap_in_data.effective_date);
1033: --End Bug# 7633783
1031: ,'00'
1032: ,l_pay_cap_in_data.effective_date);
1033: --End Bug# 7633783
1034: ELSE
1035: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1036: ,'04'
1037: ,'00'
1038: ,l_pay_cap_in_data.effective_date);
1039: END IF;
1045: ,p_adj_basic_pay => l_converted_adj_basic_pay
1046: ,p_locality_adj => l_converted_locality_adj );
1047:
1048: if l_to_auo_premium_pay_indicator is not null then
1049: l_au_overtime := ghr_pay_calc.get_ppi_amount(
1050: l_to_auo_premium_pay_indicator
1051: ,l_converted_adj_basic_pay
1052: ,l_pay_basis);
1053: end if;
1051: ,l_converted_adj_basic_pay
1052: ,l_pay_basis);
1053: end if;
1054: if l_to_ap_premium_pay_indicator is not null then
1055: l_availability_pay := ghr_pay_calc.get_ppi_amount(
1056: l_to_ap_premium_pay_indicator
1057: ,l_converted_adj_basic_pay
1058: ,l_pay_basis);
1059: end if;
1083:
1084: ----Bug 2065033
1085: -- Bug#4168256 Removed Pay Plan EV. Added it with pay plans ES,EP,FE,IE
1086: IF l_pay_plan in ('EX') THEN
1087: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1088: ,'01'
1089: ,'00'
1090: ,l_pay_cap_in_data.effective_date);
1091: ELSE
1090: ,l_pay_cap_in_data.effective_date);
1091: ELSE
1092: --Bug#4168256 After FWFA, the adj pay cap changed to EX-04.
1093: -- Adj Pay Cap is EX-04 from the begining. Removing the effective date check.
1094: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1095: ,'04'
1096: ,'00'
1097: ,l_pay_cap_in_data.effective_date);
1098: END IF;
1104: ,p_adj_basic_pay => l_converted_adj_basic_pay
1105: ,p_locality_adj => l_converted_locality_adj );
1106:
1107: if l_to_auo_premium_pay_indicator is not null then
1108: l_au_overtime := ghr_pay_calc.get_ppi_amount(
1109: l_to_auo_premium_pay_indicator
1110: ,l_converted_adj_basic_pay
1111: ,l_pay_basis);
1112: end if;
1110: ,l_converted_adj_basic_pay
1111: ,l_pay_basis);
1112: end if;
1113: if l_to_ap_premium_pay_indicator is not null then
1114: l_availability_pay := ghr_pay_calc.get_ppi_amount(
1115: l_to_ap_premium_pay_indicator
1116: ,l_converted_adj_basic_pay
1117: ,l_pay_basis);
1118: end if;
1146: IF (l_au_overtime is not null ) OR (l_availability_pay is not null) THEN
1147: -- Bug# 4168256 Added the IF condition.
1148: IF (pp_gs_equivalent(l_pay_plan))
1149: AND (l_pay_cap_in_data.pay_rate_determinant in ('3','J','K','U','V')) THEN
1150: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1151: ,'04'
1152: ,'00'
1153: ,l_pay_cap_in_data.effective_date);
1154: ELSE
1151: ,'04'
1152: ,'00'
1153: ,l_pay_cap_in_data.effective_date);
1154: ELSE
1155: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1156: ,'05'
1157: ,'00'
1158: ,l_pay_cap_in_data.effective_date);
1159: END IF;
1164: ,p_adj_basic_pay => l_converted_adj_basic_pay
1165: ,p_locality_adj => l_converted_locality_adj );
1166:
1167: if l_to_auo_premium_pay_indicator is not null then
1168: l_au_overtime := ghr_pay_calc.get_ppi_amount(
1169: l_to_auo_premium_pay_indicator
1170: ,l_converted_adj_basic_pay
1171: ,l_pay_basis);
1172: end if;
1170: ,l_converted_adj_basic_pay
1171: ,l_pay_basis);
1172: end if;
1173: if l_to_ap_premium_pay_indicator is not null then
1174: l_availability_pay := ghr_pay_calc.get_ppi_amount(
1175: l_to_ap_premium_pay_indicator
1176: ,l_converted_adj_basic_pay
1177: ,l_pay_basis);
1178: end if;
1186: l_adj_basic_mesg_flag := 1;
1187: END IF;
1188: ELSIF ( nvl(l_au_overtime,0) = 0 ) AND (nvl(l_availability_pay,0) = 0) THEN
1189:
1190: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1191: ,'04'
1192: ,'00'
1193: ,l_pay_cap_in_data.effective_date);
1194: --check the adjusted basic pay
1198: ,p_adj_basic_pay => l_converted_adj_basic_pay
1199: ,p_locality_adj => l_converted_locality_adj );
1200:
1201: if l_to_auo_premium_pay_indicator is not null then
1202: l_au_overtime := ghr_pay_calc.get_ppi_amount(
1203: l_to_auo_premium_pay_indicator
1204: ,l_converted_adj_basic_pay
1205: ,l_pay_basis);
1206: end if;
1204: ,l_converted_adj_basic_pay
1205: ,l_pay_basis);
1206: end if;
1207: if l_to_ap_premium_pay_indicator is not null then
1208: l_availability_pay := ghr_pay_calc.get_ppi_amount(
1209: l_to_ap_premium_pay_indicator
1210: ,l_converted_adj_basic_pay
1211: ,l_pay_basis);
1212: end if;
1225: hr_utility.set_location('Before entering TPC logic CTS'||l_converted_total_salary,1);
1226: hr_utility.set_location('p_noa_code is '||p_noa_code,1);
1227: --Begin Bug# 7557159
1228: IF l_pay_plan in('IG') THEN
1229: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1230: ,'01'
1231: ,'00'
1232: ,l_pay_cap_in_data.effective_date);
1233: IF l_pay_cap_amount < l_converted_total_salary THEN
1239: --End Bug# 7557159
1240: --Bug# 5132113
1241: -- Bug# 7034637
1242: ELSIF l_pay_plan in('GP','GR') THEN
1243: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VX',
1244: '00','00',l_pay_cap_in_data.effective_date);
1245: -- Begin Bug# 7034637
1246: IF l_pay_cap_amount < l_converted_total_salary THEN
1247: hr_utility.set_message(8301,'GHR_38586_PAY_CAP6');
1259: --check the total pay
1260: -- Pradeep added this if statement as for EE Pay Plan VZ-00 is the Total Pay Cap.
1261: IF l_pay_plan in ('EE','FE') THEN --Added pay plan FE for bug#5931199
1262:
1263: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VZ'
1264: ,'00'
1265: ,'00'
1266: ,l_pay_cap_in_data.effective_date);
1267: -- Bug 4063133, 4065855
1271: -- Performance Certification Changes
1272: IF ( perf_certified(l_agency_subele_code,l_org_id, l_pay_plan, p_effective_date)
1273: ) THEN
1274: hr_utility.set_location('INSIDE VZ-02',12345);
1275: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VZ'
1276: ,'00'
1277: ,'00'
1278: ,l_pay_cap_in_data.effective_date);
1279:
1278: ,l_pay_cap_in_data.effective_date);
1279:
1280:
1281: ELSE -- not certified then old pay cap limit
1282: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1283: ,'01'
1284: ,'00'
1285: ,l_pay_cap_in_data.effective_date);
1286: END IF;
1288: ELSIF ( l_pay_plan in ( 'SL','ST','IP') ) THEN
1289: -- Bug#5125166 For Certified employees on pay plans SL,ST,IP, pay cap is VZ-00, else EX-01.
1290: IF ( perf_certified(l_agency_subele_code,l_org_id, l_pay_plan, p_effective_date)
1291: ) THEN
1292: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VZ'
1293: ,'00'
1294: ,'00'
1295: ,l_pay_cap_in_data.effective_date);
1296:
1294: ,'00'
1295: ,l_pay_cap_in_data.effective_date);
1296:
1297: ELSE -- not certified then old pay cap limit
1298: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1299: ,'01'
1300: ,'00'
1301: ,l_pay_cap_in_data.effective_date);
1302: END IF;
1302: END IF;
1303:
1304: -- Bug 4063133, 4065855
1305: ELSE
1306: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1307: ,'01'
1308: ,'00'
1309: ,l_pay_cap_in_data.effective_date);
1310: END IF;
1398: l_adjust_op_amt := l_converted_total_salary - l_pay_cap_amount;
1399: if l_adjust_op_amt < 0 then
1400: l_adjust_op_amt := l_adjust_op_amt * -1;
1401: end if;
1402: l_adjust_op_amt := ghr_pay_calc.convert_amount(l_adjust_op_amt
1403: , 'PA'
1404: ,l_pay_basis);
1405:
1406: l_temp_ret_allowance := l_retention_allowance;
1404: ,l_pay_basis);
1405:
1406: l_temp_ret_allowance := l_retention_allowance;
1407: -- Bug#3228580 Added Call to convert the Amount into the corresponding pay basis.
1408: l_difference := ghr_pay_calc.convert_amount(l_converted_total_salary - l_pay_cap_amount
1409: , 'PA'
1410: ,l_pay_basis);
1411:
1412: if l_difference > nvl(l_temp_ret_allowance,0) then
1442: -- Capped other pay should be converted to original pays basis as it is calculated on PA pay basis.
1443: IF NVL(p_other_pay_amount,0) = 0 THEN
1444: l_capped_other_pay := NULL;
1445: ELSE
1446: l_capped_other_pay := ghr_pay_calc.convert_amount(l_pay_cap_amount - l_converted_adj_basic_pay
1447: , 'PA'
1448: , l_pay_basis);
1449: END IF;
1450: -- l_capped_other_pay := l_pay_cap_amount - l_converted_adj_basic_pay;
1452: end if;
1453:
1454: hr_utility.set_location('l_capped_other_pay is '||l_capped_other_pay,1);
1455: -- Bug#3228580 Added Call to convert the Amount into the corresponding pay basis.
1456: l_difference := ghr_pay_calc.convert_amount(l_converted_total_salary - l_pay_cap_amount
1457: , 'PA'
1458: ,l_pay_basis);
1459: l_converted_total_salary := l_pay_cap_amount;
1460:
1535: AND (l_pay_plan IN ('YA','YB','YC','YD','YE','YF','YH','YI','YK','YL','YM','YN','YP') OR
1536: (l_pay_plan = 'YJ' AND l_grade_or_level IN ('01','02','03'))
1537: ) THEN
1538: IF l_pay_cap_in_data.pay_rate_determinant IN ('0','4','T') THEN
1539: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1540: ,'01'
1541: ,'00'
1542: ,l_pay_cap_in_data.effective_date);
1543: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'R' THEN
1540: ,'01'
1541: ,'00'
1542: ,l_pay_cap_in_data.effective_date);
1543: ELSIF l_pay_cap_in_data.pay_rate_determinant = 'R' THEN
1544: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('EX'
1545: ,'02'
1546: ,'00'
1547: ,l_pay_cap_in_data.effective_date);
1548: --Begin bug# 8324201
1546: ,'00'
1547: ,l_pay_cap_in_data.effective_date);
1548: --Begin bug# 8324201
1549: ELSIF l_pay_cap_in_data.pay_rate_determinant = '2' AND ( perf_certified(l_agency_subele_code,l_org_id, l_pay_plan, p_effective_date)) THEN
1550: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VZ'
1551: ,'00'
1552: ,'00'
1553: ,l_pay_cap_in_data.effective_date);
1554: --End bug# 8324201
1572: AND (l_pay_plan = 'YG' OR
1573: (l_pay_plan = 'YJ' AND l_grade_or_level = '04')
1574: ) THEN
1575: IF l_pay_cap_in_data.pay_rate_determinant IN ('0','4','T','R') THEN
1576: l_pay_cap_amount := ghr_pay_calc.get_standard_pay_table_value('VX'
1577: ,'00'
1578: ,'00'
1579: ,l_pay_cap_in_data.effective_date);
1580: IF l_pay_cap_amount < l_converted_total_salary THEN
1586: -- Bug 5663050 End
1587: END IF;
1588:
1589: if l_update34_date is not null AND p_effective_date >= l_update34_date then
1590: p_locality_adj := ghr_pay_calc.convert_amount(l_converted_locality_adj
1591: , 'PA'
1592: ,l_pay_basis);
1593: else
1594: p_locality_adj := l_converted_locality_adj;
1592: ,l_pay_basis);
1593: else
1594: p_locality_adj := l_converted_locality_adj;
1595: end if;
1596: p_adj_basic_pay := ghr_pay_calc.convert_amount(l_converted_adj_basic_pay
1597: , 'PA'
1598: ,l_pay_basis);
1599: p_total_salary := ghr_pay_calc.convert_amount(l_converted_total_salary
1600: , 'PA'
1595: end if;
1596: p_adj_basic_pay := ghr_pay_calc.convert_amount(l_converted_adj_basic_pay
1597: , 'PA'
1598: ,l_pay_basis);
1599: p_total_salary := ghr_pay_calc.convert_amount(l_converted_total_salary
1600: , 'PA'
1601: ,l_pay_basis);
1602: if nvl(l_capped_other_pay,0) = nvl(l_other_pay_amount,0) then
1603: p_capped_other_pay := NULL;
1695: -- Initialization of out and in out parameters in case of exceptions raised by
1696: -- non 810 actions
1697: IF l_non_810_error THEN
1698: IF l_update34_date is not null AND p_effective_date >= l_update34_date THEN
1699: p_locality_adj := ghr_pay_calc.convert_amount(l_converted_locality_adj
1700: , 'PA'
1701: ,l_pay_basis);
1702: ELSE
1703: p_locality_adj := l_converted_locality_adj;
1701: ,l_pay_basis);
1702: ELSE
1703: p_locality_adj := l_converted_locality_adj;
1704: END IF;
1705: p_adj_basic_pay := ghr_pay_calc.convert_amount(l_converted_adj_basic_pay
1706: , 'PA'
1707: ,l_pay_basis);
1708: p_total_salary := ghr_pay_calc.convert_amount(l_converted_total_salary
1709: , 'PA'
1704: END IF;
1705: p_adj_basic_pay := ghr_pay_calc.convert_amount(l_converted_adj_basic_pay
1706: , 'PA'
1707: ,l_pay_basis);
1708: p_total_salary := ghr_pay_calc.convert_amount(l_converted_total_salary
1709: , 'PA'
1710: ,l_pay_basis);
1711: if nvl(l_capped_other_pay,0) = nvl(l_other_pay_amount,0) then
1712: p_capped_other_pay := NULL;
1733: END IF;
1734: END IF;
1735: END IF;
1736: EXCEPTION
1737: WHEN ghr_pay_calc.pay_calc_message THEN
1738: null;
1739: END do_pay_caps_main;
1740: --
1741: --