[Home] [Help]
258: l_get_asg_det c_get_asg_det%ROWTYPE;
259: l_proc varchar2(72) := g_package ||'get_payroll_id';
260: BEGIN
261:
262: hr_utility.set_location('Enter get payroll id',10);
263: OPEN c_get_asg_det ( p_assignment_id
264: ,p_business_group_id
265: ,p_effective_date
266: );
264: ,p_business_group_id
265: ,p_effective_date
266: );
267: FETCH c_get_asg_det INTO l_get_asg_det;
268: hr_utility.set_location('Inside the Loop',15);
269: IF c_get_asg_det%NOTFOUND THEN
270: RETURN(-1);
271: ELSE
272: p_payroll_id:=l_get_asg_det.payroll_id;
275: END IF;
276: CLOSE c_get_asg_det;
277:
278:
279: hr_utility.set_location(' Leaving get payroll id',20);
280:
281: END;
282: --Decides effective date to create an element entry
283: FUNCTION get_effective_date (p_assignment_id IN NUMBER
330: l_get_alt_payroll_det c_get_alt_payroll_det%ROWTYPE;
331: l_effective_date DATE;
332: l_proc varchar2(72) := g_package ||'get_effective_date';
333: BEGIN
334: hr_utility.set_location(l_proc,10);
335: OPEN c_get_payroll_det ( p_assignment_id
336: ,p_business_group_id
337: ,p_payroll_id
338: ,p_effective_date
345: FETCH c_get_alt_payroll_det INTO l_get_payroll_det;
346:
347: CLOSE c_get_alt_payroll_det;
348: END IF;
349: hr_utility.set_location(l_proc,20);
350: CLOSE c_get_payroll_det;
351: IF p_effective_date BETWEEN l_get_payroll_det.start_date
352: AND l_get_payroll_det.end_date
353: OR p_effective_date > l_get_payroll_det.end_date THEN
356: l_effective_date :=l_get_payroll_det.start_date;
357: END IF;
358:
359: RETURN(l_effective_date);
360: hr_utility.set_location(l_proc,30);
361: END;
362:
363: FUNCTION get_asg_element (p_assignment_id IN NUMBER,
364: p_business_group_id IN NUMBER,
408: l_proc varchar2(72) := g_package ||'get_asg_element';
409: l_get_asg_element c_get_asg_element%ROWTYPE;
410: l_ele_type c_ele_type%ROWTYPE;
411: BEGIN
412: hr_utility.set_location('Inside get asg element'||l_proc,10);
413: OPEN c_get_asg_element (
414: p_assignment_id
415: ,p_business_group_id
416: ,p_effective_date
422:
423: OPEN c_ele_type (l_get_asg_element.element_type_id);
424: FETCH c_ele_type INTO l_ele_type;
425: CLOSE c_ele_type;
426: hr_utility.set_location(l_proc,20);
427:
428: IF p_check_type='E' AND (l_ele_type.ele_type=p_sl_rates_type) THEN
429: RETURN(NVL(l_get_asg_element.element_type_id,-1));
430: ELSE
436: ELSIF p_check_type='R' AND p_sl_rates_type ='Y' THEN
437:
438: RETURN(NVL(l_get_asg_element.sliding_rates,-1));
439: END IF;
440: hr_utility.set_location('leaving get asg element'||l_proc,30);
441: END;
442:
443: --Get default rates if entered
444: FUNCTION get_default_value(p_business_group_id IN NUMBER
468: l_get_rate_id c_get_rate_id%ROWTYPE;
469: l_proc varchar2(72) := g_package ||'get_default_value';
470:
471: BEGIN
472: hr_utility.set_location(l_proc,10);
473: OPEN c_get_default_value;
474: FETCH c_get_default_value INTO l_get_default_value;
475: IF c_get_default_value%FOUND THEN
476: OPEN c_get_rate_id(l_get_default_value.default_value);
482: RETURN(-1);
483: END IF;
484: CLOSE c_get_default_value;
485:
486: hr_utility.set_location(l_proc,20);
487: END;
488:
489:
490: --Validate Mileage Element.
576: l_proc varchar2(72) := g_package ||'validate_mileage_element';
577: l_validate_mileage_element c_validate_mileage_element%ROWTYPE;
578: BEGIN
579:
580: hr_utility.set_location(l_proc,10);
581:
582: OPEN c_validate_mileage_element( p_assignment_id
583: ,p_business_group_id
584: ,p_effective_date
590: LOOP
591: FETCH c_validate_mileage_element INTO
592: l_validate_mileage_element;
593: EXIT WHEN c_validate_mileage_element%NOTFOUND;
594: hr_utility.set_location(l_proc,20);
595: IF l_validate_mileage_element.element_type_id IS NOT NULL THEN
596: p_element_link_id := l_validate_mileage_element.element_link_id;
597: RETURN(l_validate_mileage_element.element_type_id);
598: EXIT;
603: p_element_link_id :=-1;
604: RETURN(-1);
605: END IF;
606:
607: hr_utility.set_location(l_proc,30);
608: EXCEPTION
609: --------
610: WHEN OTHERS THEN
611: RETURN(-1);
608: EXCEPTION
609: --------
610: WHEN OTHERS THEN
611: RETURN(-1);
612: hr_utility.set_location(l_proc,40);
613: END;
614:
615: --Get eligible mileage element if no element is entered at
616: --all levels.
705: l_get_elig_mileage_element c_get_elig_mileage_element%ROWTYPE;
706: l_validate_mileage_element pay_element_types_f.element_type_id%TYPE;
707: BEGIN
708:
709: hr_utility.set_location(l_proc,10);
710: OPEN c_get_elig_mileage_element( p_assignment_id
711: ,p_business_group_id
712: ,p_effective_date
713: ,p_vehicle_type
717: LOOP
718: FETCH c_get_elig_mileage_element INTO
719: l_get_elig_mileage_element;
720: EXIT WHEN c_get_elig_mileage_element%NOTFOUND;
721: hr_utility.set_location(' Enter validate element:' || l_proc,100);
722: l_validate_mileage_element:= validate_mileage_element(
723: p_assignment_id =>p_assignment_id
724: ,p_business_group_id =>p_business_group_id
725: ,p_effective_date =>p_effective_date
729: =>l_get_elig_mileage_element.element_type_id
730: ,p_sl_rate_type =>p_sl_rate_type
731: ,p_element_link_id =>p_element_link_id
732: );
733: hr_utility.set_location(l_proc,20);
734: IF l_validate_mileage_element <> -1 THEN
735: RETURN(l_get_elig_mileage_element.element_type_id);
736: EXIT;
737: END IF;
737: END IF;
738: END LOOP;
739: CLOSE c_get_elig_mileage_element;
740:
741: hr_utility.set_location(l_proc,30);
742: IF l_get_elig_mileage_element.element_type_id IS NULL
743: OR l_validate_mileage_element =-1 THEN
744: RETURN(-1);
745: END IF;
743: OR l_validate_mileage_element =-1 THEN
744: RETURN(-1);
745: END IF;
746:
747: hr_utility.set_location(l_proc,40);
748: EXCEPTION
749: --------
750: WHEN OTHERS THEN
751: RETURN(-1);
748: EXCEPTION
749: --------
750: WHEN OTHERS THEN
751: RETURN(-1);
752: hr_utility.set_location(l_proc,50);
753: END;
754:
755: --Check if CC is available in the repository
756: FUNCTION get_cc (p_effective_date IN DATE,
772: l_get_cc c_get_cc%ROWTYPE;
773: l_proc varchar2(72) := g_package ||'get_cc';
774: BEGIN
775:
776: hr_utility.set_location(l_proc,10);
777: OPEN c_get_cc;
778: FETCH c_get_cc INTO l_get_cc;
779: IF c_get_cc%FOUND THEN
780: p_engine_capacity :=l_get_cc.engine_capacity;
778: FETCH c_get_cc INTO l_get_cc;
779: IF c_get_cc%FOUND THEN
780: p_engine_capacity :=l_get_cc.engine_capacity;
781: RETURN ('Y');
782: hr_utility.set_location(l_proc,20);
783: ELSE
784: RETURN ('N');
785: hr_utility.set_location(l_proc,30);
786: END IF;
781: RETURN ('Y');
782: hr_utility.set_location(l_proc,20);
783: ELSE
784: RETURN ('N');
785: hr_utility.set_location(l_proc,30);
786: END IF;
787: CLOSE c_get_cc;
788:
789: hr_utility.set_location(l_proc,40);
785: hr_utility.set_location(l_proc,30);
786: END IF;
787: CLOSE c_get_cc;
788:
789: hr_utility.set_location(l_proc,40);
790: EXCEPTION
791: --------
792: WHEN OTHERS THEN
793: hr_utility.set_location(l_proc,50);
789: hr_utility.set_location(l_proc,40);
790: EXCEPTION
791: --------
792: WHEN OTHERS THEN
793: hr_utility.set_location(l_proc,50);
794: RETURN ('N');
795:
796: END;
797:
904: l_sliding_rates VARCHAR2(1);
905: l_paye_taxable VARCHAR2(3);
906: BEGIN
907: l_paye_taxable :=p_paye_taxable;
908: hr_utility.set_location(' Enter:' || l_proc,10);
909:
910: IF p_user_type='PUI' THEN
911: l_user_type := pqp_car_mileage_functions.get_config_info
912: (p_business_group_id => p_business_group_id
943:
944: l_engine_capacity:='0';
945: END IF;
946:
947: hr_utility.set_location(' Enter payroll check cursor:' || l_proc,20);
948:
949: ---Get assignemnt payroll info.
950: l_ret_mesg:=get_payroll_id
951: (p_assignment_id =>p_assignment_id
958: fnd_message.raise_error;
959: hr_multi_message.end_validation_set;
960: END IF;
961:
962: hr_utility.set_location(' Enter payroll details cursor:' || l_proc,30);
963: --get next unprocessed payroll date for that asg.
964: --If the effective date is in between or less then
965: --payroll run date then the date the element
966: --entry created will be effective date or the start date
973: ,p_payroll_id =>l_get_pay_det
974: ,p_effective_date =>p_effective_date
975: );
976:
977: hr_utility.set_location(' Enter check eligibility:' || l_proc,40);
978: --Check for claim eligibility
979: l_chk_eligibility:=pqp_gb_mileage_claim_pkg.
980: chk_eligibility (
981: p_effective_date =>l_effective_date
996: IF l_chk_eligibility = 'N' THEN
997: fnd_message.raise_error;
998: hr_multi_message.end_validation_set;
999: END IF;
1000: hr_utility.set_location(' Enter Assignment level Element search:' || l_proc,50);
1001: --Find if element is present at the assignment level
1002:
1003: IF p_mileage_claim_element IS NULL THEN
1004: IF p_user_type='SS' OR ( p_user_type='PUI' AND l_user_type='Y') THEN
1029: ,p_sl_rates_type =>l_sliding_rates
1030: );
1031:
1032: END IF;
1033: hr_utility.set_location(' Enter config level Element search:' || l_proc,60);
1034: --if element is not present at assignment level then fetch from conf table
1035: IF (l_get_asg_element_id IS NULL OR l_get_asg_element_id=-1 )
1036: AND l_get_purp_element_id IS NULL THEN
1037: pqp_gb_mileage_claim_pkg.get_config_info (
1053: l_element_type_id :=to_number(p_mileage_claim_element);
1054: END IF;
1055:
1056:
1057: hr_utility.set_location(' Enter db level element search:' || l_proc,90);
1058: --If no element is entered in all levels then
1059: --it must be searched in the database and validated.
1060: IF l_element_type_id IS NULL THEN
1061: l_elig_mileage_element_id:=get_elig_mileage_element
1106: fnd_message.raise_error;
1107: hr_multi_message.end_validation_set;
1108: END IF;
1109:
1110: hr_utility.set_location(' Enter element link search:' || l_proc,110);
1111: /* OPEN c_get_ele_link (l_element_type_id
1112: ,l_effective_date
1113: ,p_business_group_id
1114: );
1118: l_element_link_id:=l_get_ele_link.element_link_id;
1119: END LOOP;
1120: CLOSE c_get_ele_link;*/
1121:
1122: hr_utility.set_location(' Enter Assignment level rates search:' || l_proc,70);
1123: --If Rates is Null ,then fetch from assignment level
1124: IF p_user_rates_table IS NULL THEN
1125: IF p_user_type='SS' OR ( p_user_type='PUI' AND l_user_type='Y') THEN
1126: hr_utility.set_location(' Enter Assignment If condition:' || l_proc,80);
1122: hr_utility.set_location(' Enter Assignment level rates search:' || l_proc,70);
1123: --If Rates is Null ,then fetch from assignment level
1124: IF p_user_rates_table IS NULL THEN
1125: IF p_user_type='SS' OR ( p_user_type='PUI' AND l_user_type='Y') THEN
1126: hr_utility.set_location(' Enter Assignment If condition:' || l_proc,80);
1127: l_rates_table_id:=l_purp_rates_table;
1128: END IF;
1129: IF l_rates_table_id IS NULL THEN
1130: hr_utility.set_location(' Enter Assignment Second If condition:' || l_proc,80);
1126: hr_utility.set_location(' Enter Assignment If condition:' || l_proc,80);
1127: l_rates_table_id:=l_purp_rates_table;
1128: END IF;
1129: IF l_rates_table_id IS NULL THEN
1130: hr_utility.set_location(' Enter Assignment Second If condition:' || l_proc,80);
1131: l_get_asg_rate_id:= get_asg_element
1132: (p_assignment_id =>p_assignment_id
1133: ,p_business_group_id =>p_business_group_id
1134: ,p_effective_date =>p_effective_date
1140: );
1141: END IF;
1142: --if rates table is not present at assignment level
1143: --then fetch from conf table
1144: hr_utility.set_location(' Enter conf level rates search:' || l_proc,80);
1145: IF (l_get_asg_rate_id IS NULL OR l_get_asg_rate_id=-1 ) AND
1146: l_rates_table_id IS NULL THEN
1147: pqp_gb_mileage_claim_pkg.get_config_info (
1148: p_business_group_id =>p_business_group_id
1176: l_rates_table_id :=(p_user_rates_table);
1177: END IF;
1178:
1179:
1180: hr_utility.set_location(' Enter mndtry field chk:' || l_proc,120);
1181: --All mandatory field validations
1182: l_chk_mndtry:= chk_mndtry_fields (
1183: p_effective_date =>p_effective_date
1184: ,p_assignment_id =>p_assignment_id
1206:
1207: --Input values are vary from Private to Company vehicles
1208: --So inserting the values besed on ownership
1209: IF p_ownership='C' THEN
1210: hr_utility.set_location(' Enter company mileage:' || l_proc,130);
1211: insert_company_mileage_claim
1212: ( p_effective_date =>l_effective_date
1213: ,p_assignment_id =>p_assignment_id
1214: ,p_business_group_id =>p_business_group_id
1235: ,p_element_link_id =>l_element_link_id
1236: );
1237:
1238: ELSIF p_ownership='P' THEN
1239: hr_utility.set_location(' Enter private mileage:' || l_proc,140);
1240: insert_private_mileage_claim
1241: ( p_effective_date =>l_effective_date
1242: ,p_assignment_id =>p_assignment_id
1243: ,p_business_group_id =>p_business_group_id
1265: );
1266: END IF;
1267: --This call is for webADI related stuff
1268: ELSIF p_info_id IS NOT NULL THEN
1269: hr_utility.set_location(' Enter WEBADI:' || l_proc,150);
1270: l_assignment_id := substr(p_info_id,1,instr(p_info_id,l_string)-1);
1271: -- l_businesss_group_id:=substr(p_info_id,instr(p_info_id,l_string)+LENGTH(l_string),
1272: -- instr(p_info_id,l_string,1,2)-instr(p_info_id,l_string)-LENGTH(l_string));
1273: -- l_session_id :=substr(p_info_id,instr(p_info_id,l_string,1,2)+LENGTH(l_string)) ;
1332: ,p_return_status OUT NOCOPY VARCHAR2
1333: ) AS
1334: l_proc varchar2(72) := g_package ||'delete_claim_import';
1335: BEGIN
1336: hr_utility.set_location(' Enter delete claim import:' || l_proc,160);
1337: DELETE
1338: FROM pay_us_rpt_totals
1339: WHERE GRE_NAME = p_info_id
1340: AND business_group_id = p_business_group_id
1347: AND (p_effective_date-fnd_date.canonical_to_date(state_name))>1;
1348:
1349: COMMIT;
1350: p_return_status := 'S';
1351: hr_utility.set_location('Leaving delete mileage:' || l_proc,170);
1352: exception
1353: when others then
1354: p_return_status := 'E';
1355: END;
1441: l_get_end_date c_get_end_date%ROWTYPE;
1442: l_proc varchar2(72) := g_package ||'update_mileage_claim';
1443: BEGIN
1444:
1445: hr_utility.set_location('Enter update Claim:' || l_proc,10);
1446: OPEN c_get_end_date;
1447: LOOP
1448: FETCH c_get_end_date INTO l_get_end_date;
1449: EXIT WHEN c_get_end_date%NOTFOUND;
1449: EXIT WHEN c_get_end_date%NOTFOUND;
1450:
1451: END LOOP;
1452: CLOSE c_get_end_date;
1453: hr_utility.set_location(l_proc,20);
1454: OPEN c_get_input_value;
1455: LOOP
1456: FETCH c_get_input_value INTO l_get_input_value;
1457: EXIT WHEN c_get_input_value%NOTFOUND;
1454: OPEN c_get_input_value;
1455: LOOP
1456: FETCH c_get_input_value INTO l_get_input_value;
1457: EXIT WHEN c_get_input_value%NOTFOUND;
1458: hr_utility.set_location('Enter set input values:' || l_proc,30);
1459: IF l_get_input_value.name='Vehicle Type'OR
1460: l_get_input_value.name='Rate Type' THEN
1461: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1462: :=l_get_input_value.input_value_id;
1463: l_entry_value_tbl(l_entry_value_tbl.count+1)
1464: :=get_lkp_meaning(p_usage_type
1465: ,l_get_input_value.lookup_type);
1466: ELSIF l_get_input_value.name='Claimed Mileage' THEN
1467: hr_utility.set_location(l_proc,40);
1468: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1469: :=l_get_input_value.input_value_id;
1470: l_entry_value_tbl(l_entry_value_tbl.count+1)
1471: :=p_claimed_mileage;
1469: :=l_get_input_value.input_value_id;
1470: l_entry_value_tbl(l_entry_value_tbl.count+1)
1471: :=p_claimed_mileage;
1472: ELSIF l_get_input_value.name='Actual Mileage' THEN
1473: hr_utility.set_location(l_proc,50);
1474: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1475: :=l_get_input_value.input_value_id;
1476:
1477: l_entry_value_tbl(l_entry_value_tbl.count+1)
1476:
1477: l_entry_value_tbl(l_entry_value_tbl.count+1)
1478: :=p_actual_mileage;
1479: ELSIF l_get_input_value.name='Claim Start Date' THEN
1480: hr_utility.set_location(l_proc,60);
1481: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1482: :=l_get_input_value.input_value_id;
1483:
1484: l_entry_value_tbl(l_entry_value_tbl.count+1)
1483:
1484: l_entry_value_tbl(l_entry_value_tbl.count+1)
1485: :=p_start_date;
1486: ELSIF l_get_input_value.name='Claim End Date' THEN
1487: hr_utility.set_location(l_proc,70);
1488: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1489: :=l_get_input_value.input_value_id;
1490:
1491: l_entry_value_tbl(l_entry_value_tbl.count+1)
1490:
1491: l_entry_value_tbl(l_entry_value_tbl.count+1)
1492: :=p_end_date;
1493: ELSIF l_get_input_value.name='User Rates Table' THEN
1494: hr_utility.set_location(l_proc,80);
1495: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1496: :=l_get_input_value.input_value_id;
1497:
1498:
1505: CLOSE c_get_table_name;
1506:
1507: IF l_get_table_name.user_table_name IS NULL THEN
1508:
1509: hr_utility.set_location(l_proc,90);
1510: l_entry_value_tbl(l_entry_value_tbl.count+1)
1511: :=l_get_input_value.default_value;
1512: ELSE
1513:
1510: l_entry_value_tbl(l_entry_value_tbl.count+1)
1511: :=l_get_input_value.default_value;
1512: ELSE
1513:
1514: hr_utility.set_location(l_proc,100);
1515: l_entry_value_tbl(l_entry_value_tbl.count+1)
1516: :=l_get_table_name.user_table_name;
1517:
1518: END IF;
1516: :=l_get_table_name.user_table_name;
1517:
1518: END IF;
1519: ELSIF l_get_input_value.name='No of Passengers' THEN
1520: hr_utility.set_location(l_proc,110);
1521: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1522: :=l_get_input_value.input_value_id;
1523:
1524: l_entry_value_tbl(l_entry_value_tbl.count+1)
1523:
1524: l_entry_value_tbl(l_entry_value_tbl.count+1)
1525: :=p_no_of_passengers;
1526: ELSIF l_get_input_value.name='CO2 Emissions' THEN
1527: hr_utility.set_location(l_proc,120);
1528: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1529: :=l_get_input_value.input_value_id;
1530:
1531: l_entry_value_tbl(l_entry_value_tbl.count+1)
1530:
1531: l_entry_value_tbl(l_entry_value_tbl.count+1)
1532: :=p_fiscal_ratings;
1533: ELSIF l_get_input_value.name='Calculation Method' THEN
1534: hr_utility.set_location(l_proc,130);
1535: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1536: :=l_get_input_value.input_value_id;
1537:
1538: IF p_calculation_method IS NULL THEN
1544: ,l_get_input_value.lookup_type);
1545:
1546: END IF;
1547: ELSIF l_get_input_value.name='PAYE Taxable' THEN
1548: hr_utility.set_location(l_proc,140);
1549: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1550: :=l_get_input_value.input_value_id;
1551:
1552: IF l_get_input_value.lookup_type IS NOT NULL THEN
1557: l_entry_value_tbl(l_entry_value_tbl.count+1):= p_PAYE_Taxable;
1558: END IF;
1559:
1560: ELSIF l_get_input_value.name='Purpose' THEN
1561: hr_utility.set_location(l_proc,70);
1562: l_input_value_id_tbl(l_input_value_id_tbl.count +1)
1563: :=l_get_input_value.input_value_id;
1564:
1565: l_entry_value_tbl(l_entry_value_tbl.count+1)
1573: CLOSE c_get_input_value;
1574:
1575: IF l_get_end_date.effective_end_date <> hr_api.g_eot
1576: THEN
1577: hr_utility.set_location(l_proc,150);
1578: IF p_claimed_mileage_o <> p_claimed_mileage OR
1579: p_actual_mileage_o <> p_actual_mileage THEN
1580: hr_utility.set_location(l_proc,160);
1581: hr_utility.set_location('Enter delete api:' || l_proc,200);
1576: THEN
1577: hr_utility.set_location(l_proc,150);
1578: IF p_claimed_mileage_o <> p_claimed_mileage OR
1579: p_actual_mileage_o <> p_actual_mileage THEN
1580: hr_utility.set_location(l_proc,160);
1581: hr_utility.set_location('Enter delete api:' || l_proc,200);
1582: hr_entry_api.delete_element_entry
1583: (
1584: p_dt_delete_mode =>l_delete_mode,
1577: hr_utility.set_location(l_proc,150);
1578: IF p_claimed_mileage_o <> p_claimed_mileage OR
1579: p_actual_mileage_o <> p_actual_mileage THEN
1580: hr_utility.set_location(l_proc,160);
1581: hr_utility.set_location('Enter delete api:' || l_proc,200);
1582: hr_entry_api.delete_element_entry
1583: (
1584: p_dt_delete_mode =>l_delete_mode,
1585: p_session_date =>p_effective_date,
1588: END IF;
1589:
1590: END IF;
1591:
1592: hr_utility.set_location(l_proc,170);
1593: hr_utility.set_location('Enter correction:' || l_proc,210);
1594: hr_entry_api.update_element_entry
1595: (
1596: p_dt_update_mode =>l_update_mode,
1589:
1590: END IF;
1591:
1592: hr_utility.set_location(l_proc,170);
1593: hr_utility.set_location('Enter correction:' || l_proc,210);
1594: hr_entry_api.update_element_entry
1595: (
1596: p_dt_update_mode =>l_update_mode,
1597: p_session_date =>p_effective_date,
1603:
1604: exception
1605: --------
1606: When others then
1607: hr_utility.set_location(l_proc,180);
1608: fnd_message.raise_error;
1609: hr_multi_message.end_validation_set;
1610:
1611: END;
1645:
1646: l_proc varchar2(72) := g_package ||'delete_mileage_claim';
1647: BEGIN
1648:
1649: hr_utility.set_location(l_proc,10);
1650: OPEN c_get_end_date (p_element_entry_id
1651: ,p_assignment_id
1652: );
1653: LOOP
1652: );
1653: LOOP
1654: FETCH c_get_end_date INTO l_get_end_date;
1655: EXIT WHEN c_get_end_date%NOTFOUND;
1656: hr_utility.set_location(l_proc,20);
1657: IF l_get_end_date.effective_end_date =hr_api.g_eot THEN
1658:
1659: OPEN c_get_process_status ( p_assignment_id
1660: ,p_mileage_claim_element
1667: CLOSE c_get_process_status;
1668:
1669: IF l_get_process_status.assignment_action_id IS NULL THEN
1670:
1671: hr_utility.set_location(l_proc,30);
1672: hr_entry_api.delete_element_entry
1673: (
1674: p_dt_delete_mode =>'ZAP'
1675: ,p_session_date =>p_effective_date
1675: ,p_session_date =>p_effective_date
1676: ,p_element_entry_id =>p_element_entry_id
1677: );
1678: ELSE
1679: hr_utility.set_location(l_proc,40);
1680: fnd_message.set_name('PQP','PQP_230718_CLM_PROC_DEL');
1681: fnd_message.raise_error;
1682: hr_multi_message.end_validation_set;
1683: END IF;
1683: END IF;
1684:
1685: ELSE
1686:
1687: hr_utility.set_location(l_proc,50);
1688: fnd_message.set_name('PQP','PQP_230718_CLM_PROC_DEL');
1689: fnd_message.raise_error;
1690: hr_multi_message.end_validation_set;
1691: END IF;
1692: END LOOP;
1693: exception
1694: --------
1695: When others then
1696: hr_utility.set_location(l_proc,60);
1697: fnd_message.raise_error;
1698: hr_multi_message.end_validation_set;
1699: END;
1700:
1997: l_retvalue VARCHAR2(1) :='Y';
1998: l_proc varchar2(72) := g_package ||'chk_mndtry_fields';
1999: BEGIN
2000:
2001: hr_utility.set_location('Enter ' || l_proc,10);
2002: IF p_registration_number IS NOT NULL THEN
2003: OPEN c_get_veh_det;
2004: FETCH c_get_veh_det INTO l_get_veh_det;
2005: IF c_get_veh_det%FOUND THEN
2002: IF p_registration_number IS NOT NULL THEN
2003: OPEN c_get_veh_det;
2004: FETCH c_get_veh_det INTO l_get_veh_det;
2005: IF c_get_veh_det%FOUND THEN
2006: hr_utility.set_location( l_proc,20);
2007: IF l_get_veh_det.vehicle_type<>p_vehicle_type THEN
2008: hr_utility.set_location( l_proc,30);
2009: fnd_message.set_name('PQP', 'PQP_230859_VEHICLE_TYP_VALIDAT');
2010: l_retvalue :='N';
2004: FETCH c_get_veh_det INTO l_get_veh_det;
2005: IF c_get_veh_det%FOUND THEN
2006: hr_utility.set_location( l_proc,20);
2007: IF l_get_veh_det.vehicle_type<>p_vehicle_type THEN
2008: hr_utility.set_location( l_proc,30);
2009: fnd_message.set_name('PQP', 'PQP_230859_VEHICLE_TYP_VALIDAT');
2010: l_retvalue :='N';
2011: END IF;
2012: IF l_get_veh_det.engine_capacity_in_cc
2010: l_retvalue :='N';
2011: END IF;
2012: IF l_get_veh_det.engine_capacity_in_cc
2013: <>p_engine_capacity THEN
2014: hr_utility.set_location( l_proc,40);
2015: fnd_message.set_name('PQP', 'PQP_230860_ENGINE_CAP_VALIDAT');
2016: l_retvalue :='N';
2017:
2018: END IF;
2016: l_retvalue :='N';
2017:
2018: END IF;
2019: IF l_get_veh_det.fuel_type <>p_fuel_type THEN
2020: hr_utility.set_location( l_proc,50);
2021: fnd_message.set_name('PQP', 'PQP_230861_FUEL_TYP_VALIDAT');
2022: l_retvalue :='N';
2023: END IF;
2024:
2029: --Check if the an assignemnt has company vehicle
2030: --allocated
2031: IF p_ownership='C' THEN
2032:
2033: hr_utility.set_location( l_proc,60);
2034: OPEN c_validate_comp_veh;
2035: FETCH c_validate_comp_veh INTO l_validate_comp_veh;
2036: IF c_validate_comp_veh%NOTFOUND THEN
2037:
2034: OPEN c_validate_comp_veh;
2035: FETCH c_validate_comp_veh INTO l_validate_comp_veh;
2036: IF c_validate_comp_veh%NOTFOUND THEN
2037:
2038: hr_utility.set_location( l_proc,70);
2039: fnd_message.set_name('PQP', 'PQP_230866_COMP_VEH_NOT_ALLOC');
2040: l_retvalue :='N';
2041: END IF;
2042:
2043: CLOSE c_validate_comp_veh;
2044:
2045: END IF;
2046: IF p_ownership IS NULL THEN
2047: hr_utility.set_location( l_proc,80);
2048: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2049: fnd_message.set_token('TOKEN','Ownership');
2050: l_retvalue :='N';
2051: END IF;
2052:
2053: --Commented out this now because this condition is no longer
2054: --required as the code handles this during element entry.
2055: /*IF p_usage_type IS NULL THEN
2056: hr_utility.set_location( l_proc,90);
2057: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2058: fnd_message.set_token('TOKEN','Usage Type');
2059: l_retvalue :='N';
2060:
2060:
2061: END IF;*/
2062:
2063: IF p_vehicle_type IS NULL THEN
2064: hr_utility.set_location( l_proc,100);
2065: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2066: fnd_message.set_token('TOKEN','Vehicle Type');
2067: l_retvalue :='N';
2068:
2069: END IF;
2070:
2071:
2072: IF p_start_date IS NULL THEN
2073: hr_utility.set_location( l_proc,110);
2074: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2075: fnd_message.set_token('TOKEN','Start Date');
2076: l_retvalue :='N';
2077:
2077:
2078: END IF;
2079:
2080: IF p_end_date IS NULL THEN
2081: hr_utility.set_location( l_proc,120);
2082: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2083: fnd_message.set_token('TOKEN','End Date');
2084:
2085: l_retvalue :='N';
2084:
2085: l_retvalue :='N';
2086: END IF;
2087: IF p_claimed_mileage IS NULL THEN
2088: hr_utility.set_location( l_proc,130);
2089: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2090: fnd_message.set_token('TOKEN','Claimed Mileage');
2091: l_retvalue :='N';
2092:
2093: END IF;
2094:
2095:
2096: IF p_engine_capacity IS NULL THEN
2097: hr_utility.set_location( l_proc,140);
2098: fnd_message.set_name('PQP', 'PQP_230734_FLD_MANDTRY');
2099: fnd_message.set_token('TOKEN','Engine Capacity');
2100: l_retvalue :='N';
2101: END IF;
2100: l_retvalue :='N';
2101: END IF;
2102:
2103: IF p_element_type_id IS NULL THEN
2104: hr_utility.set_location( l_proc,150);
2105:
2106: fnd_message.set_name('PQP', 'PQP_230732_VLD_MLG_ELE_FAIL');
2107: l_retvalue :='N';
2108: END IF;
2108: END IF;
2109:
2110: IF FND_DATE.CHARDT_TO_DATE(p_end_date) <
2111: FND_DATE.CHARDT_TO_DATE(p_start_date) THEN
2112: hr_utility.set_location( l_proc,160);
2113: fnd_message.set_name('PER','HR_289262_ST_DATE_BEFORE_EDATE');
2114: l_retvalue :='N';
2115: END IF;
2116:
2115: END IF;
2116:
2117: --RETURN('Y');
2118: RETURN (l_retvalue);
2119: hr_utility.set_location( 'Leaving :'||l_proc,170);
2120: END;
2121:
2122: --Check for eligibility
2123: FUNCTION chk_eligibility ( p_effective_date IN DATE
2191: l_get_config_info c_get_config_info%ROWTYPE;
2192:
2193: l_proc varchar2(72) := g_package ||'check_eligibility';
2194: BEGIN
2195: hr_utility.set_location('Enter chk eligibility:' || l_proc,220);
2196: OPEN c_get_config_info('GB'
2197: );
2198: LOOP
2199: FETCH c_get_config_info INTO l_get_config_info;
2223: END IF;
2224: END IF;
2225: END IF;
2226:
2227: hr_utility.set_location('leave chk eligibility:' || l_proc,230);
2228:
2229: --Check if pvt vehicle need to be validated against
2230: --repository.
2231: IF l_get_config_info.validate_pvt_veh ='Y' THEN
2612:
2613: l_proc varchar2(72) := g_package ||'get_meaning';
2614: BEGIN
2615:
2616: hr_utility.set_location('enter get meaning:' || l_proc,240);
2617: IF p_inp_type = 'EI' THEN
2618: OPEN c_get_meaning_o;
2619: LOOP
2620: FETCH c_get_meaning_o INTO l_get_meaning_o;
2672: FETCH c_get_purpose_name INTO l_meaning;
2673: CLOSE c_get_purpose_name;
2674: RETURN(l_meaning);
2675: END IF;
2676: hr_utility.set_location('Leaving get meaning:' || l_proc,250);
2677: exception
2678: when others then
2679: return(p_code);
2680: END;
2982: l_element_entry_id number;
2983: l_proc varchar2(72) := g_package ||'get_meaning';
2984: l_temp_var NUMBER;
2985: BEGIN
2986: hr_utility.set_location('Insert_company_mileage_claim:' || l_proc,260);
2987: l_effective_start_date :=p_effective_date;
2988: l_effective_end_date :=hr_api.g_eot;
2989:
2990:
3139:
3140:
3141: END LOOP;
3142: CLOSE c_get_input_details;
3143: hr_utility.set_location('Entering hr_entry_apiinsert_element_entry',270);
3144: hr_entry_api.insert_element_entry
3145: (
3146: p_effective_start_date =>l_effective_start_date,
3147: p_effective_end_date =>l_effective_end_date,
3280: l_entry_value15 pay_element_entry_values_f.screen_entry_value%TYPE:=NULL;
3281: l_entry_value16 pay_element_entry_values_f.screen_entry_value%TYPE:=NULL;
3282: l_temp_var NUMBER;
3283: BEGIN
3284: hr_utility.set_location('Enter private element entry process',280);
3285: l_effective_start_date :=p_effective_date;
3286: l_effective_end_date :=hr_api.g_eot;
3287:
3288: BEGIN
3468: l_input_value_id3 :=l_input_value_id16;
3469:
3470:
3471: END IF;
3472: hr_utility.set_location('Enter hr_entry_apiinsert_element_entr',290);
3473: hr_entry_api.insert_element_entry
3474: (
3475: --
3476: -- Common Parameters
3514: p_entry_value13 =>l_entry_value13,
3515: p_entry_value14 =>l_entry_value14,
3516: p_entry_value15 =>l_entry_value15
3517: );
3518: hr_utility.set_location('leaving hr_entry_apiinsert_element_entr',300);
3519: END;
3520: END;