[Home] [Help]
2: /* $Header: pyeleapi.pkb 120.13 2010/11/11 14:41:59 asnell ship $ */
3: --
4: -- Package Variables
5: --
6: g_debug boolean := hr_utility.debug_enabled;
7: g_package varchar2(33) := 'pay_element_entry_api.';
8: --
9: -- ----------------------------------------------------------------------------
10: -- |-------------------------< create_element_entry >-------------------------|
246: AND l_effective_date BETWEEN et.effective_start_date
247: AND et.effective_end_date;
248: --
249: BEGIN
250: g_debug := hr_utility.debug_enabled;
251: if g_debug then
252: hr_utility.set_location('Entering:'|| l_proc, 50);
253: end if;
254: -- bug 659393, added variables for storing all dates pased in and truncate them
248: --
249: BEGIN
250: g_debug := hr_utility.debug_enabled;
251: if g_debug then
252: hr_utility.set_location('Entering:'|| l_proc, 50);
253: end if;
254: -- bug 659393, added variables for storing all dates pased in and truncate them
255: l_effective_date := trunc(p_effective_date);
256: l_effective_start_date := l_effective_date;
257: l_date_earned := trunc(p_date_earned);
258:
259: -- bug 10271804 , added l_business_group_id as p_business_group_id is obsolete
260: if g_debug then
261: hr_utility.set_location(l_proc, 55);
262: end if;
263: if p_business_group_id is null then
264: OPEN c_assignment_bg;
265: FETCH c_assignment_bg
271: -- Issue a savepoint.
272: --
273: SAVEPOINT create_element_entry;
274: if g_debug then
275: hr_utility.set_location(l_proc, 60);
276: end if;
277: --
278: -- Call Before Process User Hook
279: --
399: -- Call existing element entry code
400: --
401: IF p_entry_type = 'E' THEN
402: if g_debug then
403: hr_utility.set_location(l_proc, 70);
404: end if;
405: OPEN c_entry_exists;
406: FETCH c_entry_exists
407: INTO l_dummy;
406: FETCH c_entry_exists
407: INTO l_dummy;
408: IF c_entry_exists%FOUND THEN
409: CLOSE c_entry_exists;
410: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
411: hr_utility.raise_error;
412: END IF;
413: CLOSE c_entry_exists;
414: END IF;
407: INTO l_dummy;
408: IF c_entry_exists%FOUND THEN
409: CLOSE c_entry_exists;
410: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
411: hr_utility.raise_error;
412: END IF;
413: CLOSE c_entry_exists;
414: END IF;
415: --
431: --
432: l_indirect_only_flag;
433: IF c_element_info%NOTFOUND THEN
434: CLOSE c_element_info;
435: hr_utility.set_message(801,'HR_6132_ELE_ENTRY_LINK_MISSING');
436: hr_utility.raise_error;
437: END IF;
438: CLOSE c_element_info;
439: --
432: l_indirect_only_flag;
433: IF c_element_info%NOTFOUND THEN
434: CLOSE c_element_info;
435: hr_utility.set_message(801,'HR_6132_ELE_ENTRY_LINK_MISSING');
436: hr_utility.raise_error;
437: END IF;
438: CLOSE c_element_info;
439: --
440: if g_debug then
437: END IF;
438: CLOSE c_element_info;
439: --
440: if g_debug then
441: hr_utility.set_location(l_proc, 100);
442: end if;
443: OPEN c_assignment_details;
444: FETCH c_assignment_details
445: INTO l_period_status;
448: --
449: /*
450: IF c_assignment_details%NOTFOUND THEN
451: CLOSE c_assignment_details;
452: hr_utility.set_message(801,'HR_6047_ELE_ENTRY_NO_PAYROLL');
453: hr_utility.raise_error;
454: END IF;
455: */
456: CLOSE c_assignment_details;
449: /*
450: IF c_assignment_details%NOTFOUND THEN
451: CLOSE c_assignment_details;
452: hr_utility.set_message(801,'HR_6047_ELE_ENTRY_NO_PAYROLL');
453: hr_utility.raise_error;
454: END IF;
455: */
456: CLOSE c_assignment_details;
457:
464: ( p_entry_type in ('A','R') and p_target_entry_id is null )
465: )
466: ) THEN
467:
468: hr_utility.set_message(801,'HR_34810_ELE_ENTRY_ADJ_ONLY');
469: hr_utility.raise_error;
470:
471: END IF;
472:
465: )
466: ) THEN
467:
468: hr_utility.set_message(801,'HR_34810_ELE_ENTRY_ADJ_ONLY');
469: hr_utility.raise_error;
470:
471: END IF;
472:
473: IF l_closed_for_entry_flag = 'Y' THEN
471: END IF;
472:
473: IF l_closed_for_entry_flag = 'Y' THEN
474:
475: hr_utility.set_message(801,'HR_6064_ELE_ENTRY_CLOSED_ELE');
476: hr_utility.raise_error;
477:
478: -- Error will not be raised for VERTEX, Workers Compensation element with
479: -- Legislation code as US. Bug No 506819
472:
473: IF l_closed_for_entry_flag = 'Y' THEN
474:
475: hr_utility.set_message(801,'HR_6064_ELE_ENTRY_CLOSED_ELE');
476: hr_utility.raise_error;
477:
478: -- Error will not be raised for VERTEX, Workers Compensation element with
479: -- Legislation code as US. Bug No 506819
480:
481: ELSIF (l_period_status = 'C' AND l_process_in_run_flag = 'Y'
482: AND l_element_name not in ('US_TAX_VERTEX','VERTEX','Workers Compensation')
483: AND l_legislation_code <> 'US') THEN
484:
485: hr_utility.set_message(801,'HR_6074_ELE_ENTRY_CLOSE_PERIOD');
486: hr_utility.raise_error;
487:
488: --
489: -- Bugfix 2646060
482: AND l_element_name not in ('US_TAX_VERTEX','VERTEX','Workers Compensation')
483: AND l_legislation_code <> 'US') THEN
484:
485: hr_utility.set_message(801,'HR_6074_ELE_ENTRY_CLOSE_PERIOD');
486: hr_utility.raise_error;
487:
488: --
489: -- Bugfix 2646060
490: -- Ensure that element_link is costable if cost_allocation_keyflex_id
491: -- is not null
492: --
493: ELSIF l_costable_type = 'N' and p_cost_allocation_keyflex_id IS NOT NULL THEN
494: --
495: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
496: hr_utility.set_warning;
497: --
498: --
499: -- Bugfix 3079267
492: --
493: ELSIF l_costable_type = 'N' and p_cost_allocation_keyflex_id IS NOT NULL THEN
494: --
495: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
496: hr_utility.set_warning;
497: --
498: --
499: -- Bugfix 3079267
500: -- Ensure we are not creating an entry for an element marked as
503: --
504: -- Cannot directly create an entry for this element type
505: -- Create a warning
506: --
507: hr_utility.set_message(801,'HR_33297_EE_API_IND_ONLY_ELE');
508: hr_utility.set_warning;
509: --
510: END IF;
511:
504: -- Cannot directly create an entry for this element type
505: -- Create a warning
506: --
507: hr_utility.set_message(801,'HR_33297_EE_API_IND_ONLY_ELE');
508: hr_utility.set_warning;
509: --
510: END IF;
511:
512: hr_entry.return_qualifying_conditions (p_assignment_id,
515: l_date_on_which_time_served_ok,
516: l_date_on_which_old_enough );
517:
518: IF l_effective_date < l_date_on_which_time_served_ok THEN
519: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_LOS');
520: hr_utility.set_warning;
521: ELSIF l_effective_date < l_date_on_which_old_enough THEN
522: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_AGE');
523: hr_utility.set_warning;
516: l_date_on_which_old_enough );
517:
518: IF l_effective_date < l_date_on_which_time_served_ok THEN
519: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_LOS');
520: hr_utility.set_warning;
521: ELSIF l_effective_date < l_date_on_which_old_enough THEN
522: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_AGE');
523: hr_utility.set_warning;
524: END IF;
518: IF l_effective_date < l_date_on_which_time_served_ok THEN
519: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_LOS');
520: hr_utility.set_warning;
521: ELSIF l_effective_date < l_date_on_which_old_enough THEN
522: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_AGE');
523: hr_utility.set_warning;
524: END IF;
525:
526: IF p_input_value_id1 IS NOT NULL AND
519: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_LOS');
520: hr_utility.set_warning;
521: ELSIF l_effective_date < l_date_on_which_old_enough THEN
522: hr_utility.set_message(801, 'HR_ELE_ENTRY_QUAL_AGE');
523: hr_utility.set_warning;
524: END IF;
525:
526: IF p_input_value_id1 IS NOT NULL AND
527: p_entry_value1 IS NOT NULL THEN
525:
526: IF p_input_value_id1 IS NOT NULL AND
527: p_entry_value1 IS NOT NULL THEN
528: if g_debug then
529: hr_utility.set_location(l_proc, 200);
530: end if;
531: l_entry_value1 := pay_ele_shd.convert_lookups(p_input_value_id1, p_entry_value1, p_effective_date);
532: END IF;
533: IF p_input_value_id2 IS NOT NULL AND
532: END IF;
533: IF p_input_value_id2 IS NOT NULL AND
534: p_entry_value2 IS NOT NULL THEN
535: if g_debug then
536: hr_utility.set_location(l_proc, 210);
537: end if;
538: l_entry_value2 := pay_ele_shd.convert_lookups(p_input_value_id2, p_entry_value2, p_effective_date);
539: END IF;
540: IF p_input_value_id3 IS NOT NULL AND
539: END IF;
540: IF p_input_value_id3 IS NOT NULL AND
541: p_entry_value3 IS NOT NULL THEN
542: if g_debug then
543: hr_utility.set_location(l_proc, 220);
544: end if;
545: l_entry_value3 := pay_ele_shd.convert_lookups(p_input_value_id3, p_entry_value3, p_effective_date);
546: END IF;
547: IF p_input_value_id4 IS NOT NULL AND
546: END IF;
547: IF p_input_value_id4 IS NOT NULL AND
548: p_entry_value4 IS NOT NULL THEN
549: if g_debug then
550: hr_utility.set_location(l_proc, 230);
551: end if;
552: l_entry_value4 := pay_ele_shd.convert_lookups(p_input_value_id4, p_entry_value4, p_effective_date);
553: END IF;
554: IF p_input_value_id5 IS NOT NULL AND
553: END IF;
554: IF p_input_value_id5 IS NOT NULL AND
555: p_entry_value5 IS NOT NULL THEN
556: if g_debug then
557: hr_utility.set_location(l_proc, 240);
558: end if;
559: l_entry_value5 := pay_ele_shd.convert_lookups(p_input_value_id5, p_entry_value5, p_effective_date);
560: END IF;
561: IF p_input_value_id6 IS NOT NULL AND
560: END IF;
561: IF p_input_value_id6 IS NOT NULL AND
562: p_entry_value6 IS NOT NULL THEN
563: if g_debug then
564: hr_utility.set_location(l_proc, 250);
565: end if;
566: l_entry_value6 := pay_ele_shd.convert_lookups(p_input_value_id6, p_entry_value6, p_effective_date);
567: END IF;
568: IF p_input_value_id7 IS NOT NULL AND
567: END IF;
568: IF p_input_value_id7 IS NOT NULL AND
569: p_entry_value7 IS NOT NULL THEN
570: if g_debug then
571: hr_utility.set_location(l_proc, 260);
572: end if;
573: l_entry_value7 := pay_ele_shd.convert_lookups(p_input_value_id7, p_entry_value7, p_effective_date);
574: END IF;
575: IF p_input_value_id8 IS NOT NULL AND
574: END IF;
575: IF p_input_value_id8 IS NOT NULL AND
576: p_entry_value8 IS NOT NULL THEN
577: if g_debug then
578: hr_utility.set_location(l_proc, 270);
579: end if;
580: l_entry_value8 := pay_ele_shd.convert_lookups(p_input_value_id8, p_entry_value8, p_effective_date);
581: END IF;
582: IF p_input_value_id9 IS NOT NULL AND
581: END IF;
582: IF p_input_value_id9 IS NOT NULL AND
583: p_entry_value9 IS NOT NULL THEN
584: if g_debug then
585: hr_utility.set_location(l_proc, 280);
586: end if;
587: l_entry_value9 := pay_ele_shd.convert_lookups(p_input_value_id9, p_entry_value9, p_effective_date);
588: END IF;
589: IF p_input_value_id10 IS NOT NULL AND
588: END IF;
589: IF p_input_value_id10 IS NOT NULL AND
590: p_entry_value10 IS NOT NULL THEN
591: if g_debug then
592: hr_utility.set_location(l_proc, 290);
593: end if;
594: l_entry_value10 := pay_ele_shd.convert_lookups(p_input_value_id10, p_entry_value10, p_effective_date);
595: END IF;
596: IF p_input_value_id11 IS NOT NULL AND
595: END IF;
596: IF p_input_value_id11 IS NOT NULL AND
597: p_entry_value11 IS NOT NULL THEN
598: if g_debug then
599: hr_utility.set_location(l_proc, 300);
600: end if;
601: l_entry_value11 := pay_ele_shd.convert_lookups(p_input_value_id11, p_entry_value11, p_effective_date);
602: END IF;
603: IF p_input_value_id12 IS NOT NULL AND
602: END IF;
603: IF p_input_value_id12 IS NOT NULL AND
604: p_entry_value12 IS NOT NULL THEN
605: if g_debug then
606: hr_utility.set_location(l_proc, 310);
607: end if;
608: l_entry_value12 := pay_ele_shd.convert_lookups(p_input_value_id12, p_entry_value12, p_effective_date);
609: END IF;
610: IF p_input_value_id13 IS NOT NULL AND
609: END IF;
610: IF p_input_value_id13 IS NOT NULL AND
611: p_entry_value13 IS NOT NULL THEN
612: if g_debug then
613: hr_utility.set_location(l_proc, 320);
614: end if;
615: l_entry_value13 := pay_ele_shd.convert_lookups(p_input_value_id13, p_entry_value13, p_effective_date);
616: END IF;
617: IF p_input_value_id14 IS NOT NULL AND
616: END IF;
617: IF p_input_value_id14 IS NOT NULL AND
618: p_entry_value14 IS NOT NULL THEN
619: if g_debug then
620: hr_utility.set_location(l_proc, 330);
621: end if;
622: l_entry_value14 := pay_ele_shd.convert_lookups(p_input_value_id14, p_entry_value14, p_effective_date);
623: END IF;
624: IF p_input_value_id15 IS NOT NULL AND
623: END IF;
624: IF p_input_value_id15 IS NOT NULL AND
625: p_entry_value15 IS NOT NULL THEN
626: if g_debug then
627: hr_utility.set_location(l_proc, 340);
628: end if;
629: l_entry_value15 := pay_ele_shd.convert_lookups(p_input_value_id15, p_entry_value15, p_effective_date);
630: END IF;
631: --
734: p_override_user_ent_chk => p_override_user_ent_chk
735: );
736: --
737: if g_debug then
738: hr_utility.set_location(l_proc, 800);
739: end if;
740: --
741: -- When in validation only mode raise the Validate_Enabled exception
742: --
739: end if;
740: --
741: -- When in validation only mode raise the Validate_Enabled exception
742: --
743: IF hr_utility.check_warning THEN
744: l_create_warning := TRUE;
745: hr_utility.clear_warning;
746: END IF;
747: --
741: -- When in validation only mode raise the Validate_Enabled exception
742: --
743: IF hr_utility.check_warning THEN
744: l_create_warning := TRUE;
745: hr_utility.clear_warning;
746: END IF;
747: --
748: -- Get all output arguments
749: --
881: p_effective_end_date := l_effective_end_date;
882: p_create_warning := l_create_warning;
883: --
884: if g_debug then
885: hr_utility.set_location(' Leaving:'||l_proc, 11);
886: end if;
887: --
888: EXCEPTION
889: WHEN hr_api.validate_enabled THEN
919: --
920: -- End of fix.
921: --
922: if g_debug then
923: hr_utility.set_location(' Leaving:'||l_proc, 900);
924: end if;
925: END create_element_entry;
926: --
927: -- ----------------------------------------------------------------------------
960: -- bug 675794, added date condition to select correct row
961: and l_effective_date between effective_start_date
962: and effective_end_date;
963: BEGIN
964: g_debug := hr_utility.debug_enabled;
965: if g_debug then
966: hr_utility.set_location('Entering:'|| l_proc, 5);
967: end if;
968: -- bug 659393, added variables for storing dates passed in and truncate them
962: and effective_end_date;
963: BEGIN
964: g_debug := hr_utility.debug_enabled;
965: if g_debug then
966: hr_utility.set_location('Entering:'|| l_proc, 5);
967: end if;
968: -- bug 659393, added variables for storing dates passed in and truncate them
969: l_effective_date := trunc(p_effective_date);
970: --
977: IF p_validate THEN
978: SAVEPOINT delete_element_entry;
979: END IF;
980: if g_debug then
981: hr_utility.set_location(l_proc, 6);
982: end if;
983: --
984: -- Call Before Process User Hook
985: --
1003: --
1004: dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_delete_mode);
1005: --
1006: if g_debug then
1007: hr_utility.set_location(l_proc, 7);
1008: end if;
1009: --
1010: -- Process Logic
1011: -- 1. Lock the required row
1025: p_element_entry_id
1026: );
1027: --
1028: if g_debug then
1029: hr_utility.set_location(l_proc, 8);
1030: end if;
1031: --
1032: -- Get all output arguments
1033: --
1071: p_effective_end_date := l_effective_end_date;
1072: -- p_delete_warning :=
1073: --
1074: if g_debug then
1075: hr_utility.set_location(' Leaving:'||l_proc, 11);
1076: end if;
1077: EXCEPTION
1078: WHEN hr_api.validate_enabled THEN
1079: --
1090: p_effective_start_date := null;
1091: p_effective_end_date := null;
1092: -- p_delete_warning :=
1093: if g_debug then
1094: hr_utility.set_location(' Leaving:'||l_proc, 12);
1095: end if;
1096: END delete_element_entry;
1097:
1098:
1199: l_proc_name varchar2(300);
1200: l_count number;
1201: begin
1202: l_proc_name := 'conv_entry_into_table';
1203: hr_utility.set_location('Entering '||l_proc_name, 10);
1204:
1205: if p_input_value_id is not null then
1206:
1207: if l_input_value_id_tbl.last is not null then
1208: l_count := l_input_value_id_tbl.last;
1209: else
1210: l_count := 1;
1211: end if;
1212: hr_utility.set_location('l_count '||l_count, 15);
1213: l_input_value_id_tbl(l_count) := p_input_value_id;
1214: l_entry_value_tbl(l_count) := p_entry_value;
1215: end if; --
1216: hr_utility.set_location('Leaving '||l_proc_name, 20);
1212: hr_utility.set_location('l_count '||l_count, 15);
1213: l_input_value_id_tbl(l_count) := p_input_value_id;
1214: l_entry_value_tbl(l_count) := p_entry_value;
1215: end if; --
1216: hr_utility.set_location('Leaving '||l_proc_name, 20);
1217: exception
1218: when others then
1219: hr_utility.set_location('Error '||l_proc_name, 30);
1220: hr_utility.set_location(sqlerrm, 30);
1215: end if; --
1216: hr_utility.set_location('Leaving '||l_proc_name, 20);
1217: exception
1218: when others then
1219: hr_utility.set_location('Error '||l_proc_name, 30);
1220: hr_utility.set_location(sqlerrm, 30);
1221: end conv_entry_into_table;
1222:
1223: begin
1216: hr_utility.set_location('Leaving '||l_proc_name, 20);
1217: exception
1218: when others then
1219: hr_utility.set_location('Error '||l_proc_name, 30);
1220: hr_utility.set_location(sqlerrm, 30);
1221: end conv_entry_into_table;
1222:
1223: begin
1224:
1222:
1223: begin
1224:
1225: l_proc := 'update_validate';
1226: hr_utility.set_location('Entering '||l_proc, 5);
1227:
1228: hr_utility.set_location('obtain creator type ', 10);
1229:
1230: open csr_creator_type (p_element_entry_id, p_effective_date);
1224:
1225: l_proc := 'update_validate';
1226: hr_utility.set_location('Entering '||l_proc, 5);
1227:
1228: hr_utility.set_location('obtain creator type ', 10);
1229:
1230: open csr_creator_type (p_element_entry_id, p_effective_date);
1231: fetch csr_creator_type into l_creator_type, l_total_elt_entry_records;
1232: close csr_creator_type;
1233:
1234: /* Overlapping of records will be validated later
1235: -- Check for overlapping of element entry record
1236: if l_total_elt_entry_records > 1 then
1237: hr_utility.set_message('PAY', 'OVERLAPPING OF RECORDS IS NOT ALLOWED');
1238: hr_utility.raise_error;
1239: end if;
1240: */
1241:
1234: /* Overlapping of records will be validated later
1235: -- Check for overlapping of element entry record
1236: if l_total_elt_entry_records > 1 then
1237: hr_utility.set_message('PAY', 'OVERLAPPING OF RECORDS IS NOT ALLOWED');
1238: hr_utility.raise_error;
1239: end if;
1240: */
1241:
1242: hr_utility.set_location('After element entry unique key check '||l_proc, 15);
1238: hr_utility.raise_error;
1239: end if;
1240: */
1241:
1242: hr_utility.set_location('After element entry unique key check '||l_proc, 15);
1243:
1244: if l_creator_type in ('EE', 'NR', 'R', 'RR', 'PR', 'D', 'DF', 'AD', 'AE', 'P', 'B') then
1245:
1246: -- Check for creator type, creator id and personal_payment_method_id
1246: -- Check for creator type, creator id and personal_payment_method_id
1247: open csr_creator_type_validate (p_element_entry_id, p_effective_date, p_creator_type, p_creator_id, p_personal_payment_method_id);
1248: fetch csr_creator_type_validate into l_total_elt_entry_records;
1249: if l_total_elt_entry_records > 0 then
1250: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1251: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1252: hr_utility.raise_error;
1253: end if;
1254: close csr_creator_type_validate;
1247: open csr_creator_type_validate (p_element_entry_id, p_effective_date, p_creator_type, p_creator_id, p_personal_payment_method_id);
1248: fetch csr_creator_type_validate into l_total_elt_entry_records;
1249: if l_total_elt_entry_records > 0 then
1250: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1251: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1252: hr_utility.raise_error;
1253: end if;
1254: close csr_creator_type_validate;
1255:
1248: fetch csr_creator_type_validate into l_total_elt_entry_records;
1249: if l_total_elt_entry_records > 0 then
1250: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1251: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1252: hr_utility.raise_error;
1253: end if;
1254: close csr_creator_type_validate;
1255:
1256: hr_utility.set_location('After creator type, creator id and personal_payment_method_id check '||l_proc, 20);
1252: hr_utility.raise_error;
1253: end if;
1254: close csr_creator_type_validate;
1255:
1256: hr_utility.set_location('After creator type, creator id and personal_payment_method_id check '||l_proc, 20);
1257:
1258: hr_utility.set_location('Adding input value and entry values in to pl/sql tables ' || l_proc, 30);
1259:
1260: conv_entry_into_table (p_input_value_id1, p_entry_value1);
1254: close csr_creator_type_validate;
1255:
1256: hr_utility.set_location('After creator type, creator id and personal_payment_method_id check '||l_proc, 20);
1257:
1258: hr_utility.set_location('Adding input value and entry values in to pl/sql tables ' || l_proc, 30);
1259:
1260: conv_entry_into_table (p_input_value_id1, p_entry_value1);
1261: conv_entry_into_table (p_input_value_id2, p_entry_value2);
1262: conv_entry_into_table (p_input_value_id3, p_entry_value3);
1272: conv_entry_into_table (p_input_value_id13, p_entry_value13);
1273: conv_entry_into_table (p_input_value_id14, p_entry_value14);
1274: conv_entry_into_table (p_input_value_id15, p_entry_value15);
1275:
1276: hr_utility.set_location('Element Entry check '||l_proc, 35);
1277:
1278: open csr_entry_values_check (p_element_entry_id , p_effective_date );
1279: loop
1280: fetch csr_entry_values_check into l_input_id, l_screen_entry_value;
1285: while l_count <= l_input_value_id_tbl.last
1286: loop
1287: if l_input_value_id_tbl(l_count) = l_input_id then
1288: if l_entry_value_tbl(l_count) <> l_screen_entry_value then
1289: hr_utility.set_location('Raise Error '||l_proc, 40);
1290:
1291: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1292: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1293: hr_utility.raise_error;
1287: if l_input_value_id_tbl(l_count) = l_input_id then
1288: if l_entry_value_tbl(l_count) <> l_screen_entry_value then
1289: hr_utility.set_location('Raise Error '||l_proc, 40);
1290:
1291: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1292: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1293: hr_utility.raise_error;
1294:
1295: end if; -- screen entry value is not equal
1288: if l_entry_value_tbl(l_count) <> l_screen_entry_value then
1289: hr_utility.set_location('Raise Error '||l_proc, 40);
1290:
1291: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1292: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1293: hr_utility.raise_error;
1294:
1295: end if; -- screen entry value is not equal
1296: end if; -- input value is equal
1289: hr_utility.set_location('Raise Error '||l_proc, 40);
1290:
1291: hr_utility.set_message(801, 'PAY_33292_CHANGE_PROTECTED');
1292: hr_utility.set_message_token('CREATOR_TYPE', hr_general.decode_lookup('CREATOR_TYPE', l_creator_type));
1293: hr_utility.raise_error;
1294:
1295: end if; -- screen entry value is not equal
1296: end if; -- input value is equal
1297: l_count := l_count + 1;
1298: end loop; -- input value loop
1299: end loop; --element entry value cursor
1300:
1301: end if; --Creator type check
1302: hr_utility.set_location('Leaving '||l_proc, 45);
1303:
1304: exception
1305: when others then
1306: hr_utility.set_location('Error '||l_proc, 50);
1302: hr_utility.set_location('Leaving '||l_proc, 45);
1303:
1304: exception
1305: when others then
1306: hr_utility.set_location('Error '||l_proc, 50);
1307: hr_utility.set_location(sqlerrm, 50);
1308: raise;
1309: end update_validate;
1310:
1303:
1304: exception
1305: when others then
1306: hr_utility.set_location('Error '||l_proc, 50);
1307: hr_utility.set_location(sqlerrm, 50);
1308: raise;
1309: end update_validate;
1310:
1311:
1496: AND p_effective_date BETWEEN el.effective_start_date
1497: AND el.effective_end_date;
1498: --
1499: BEGIN
1500: g_debug := hr_utility.debug_enabled;
1501: if g_debug then
1502: hr_utility.set_location('Entering:'|| l_proc, 5);
1503: end if;
1504: --
1498: --
1499: BEGIN
1500: g_debug := hr_utility.debug_enabled;
1501: if g_debug then
1502: hr_utility.set_location('Entering:'|| l_proc, 5);
1503: end if;
1504: --
1505: -- Store initial values for IN OUT parameters
1506: --
1513: -- Issue a savepoint.
1514: --
1515: SAVEPOINT update_element_entry;
1516: if g_debug then
1517: hr_utility.set_location(l_proc, 6);
1518: end if;
1519: --
1520: -- Call Before Process User Hook
1521: --
1645: IF l_costable_type = 'N'
1646: AND p_cost_allocation_keyflex_id IS NOT NULL
1647: AND p_cost_allocation_keyflex_id <> hr_api.g_number THEN
1648: --
1649: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
1650: hr_utility.set_warning;
1651: --
1652: END IF;
1653: --
1646: AND p_cost_allocation_keyflex_id IS NOT NULL
1647: AND p_cost_allocation_keyflex_id <> hr_api.g_number THEN
1648: --
1649: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
1650: hr_utility.set_warning;
1651: --
1652: END IF;
1653: --
1654: if g_debug then
1651: --
1652: END IF;
1653: --
1654: if g_debug then
1655: hr_utility.set_location(l_proc, 7);
1656: end if;
1657: --
1658: -- Process Logic
1659: -- 1. If updating entries created by MIX - creator_type = 'H' - the creator
1889: p_override_user_ent_chk => p_override_user_ent_chk
1890: );
1891: --
1892: if g_debug then
1893: hr_utility.set_location(l_proc, 8);
1894: end if;
1895: --
1896: -- Get all output arguments
1897: --
1895: --
1896: -- Get all output arguments
1897: --
1898: if g_debug then
1899: hr_utility.set_location(l_proc, 9);
1900: end if;
1901: --
1902: OPEN C_Output_Variables;
1903: FETCH C_Output_Variables
2035: p_effective_end_date := l_effective_end_date;
2036: -- p_update_warning :=
2037: --
2038: if g_debug then
2039: hr_utility.set_location(' Leaving:'||l_proc, 11);
2040: end if;
2041: EXCEPTION
2042: WHEN hr_api.validate_enabled THEN
2043: --
2071: --
2072: -- End of fix.
2073: --
2074: if g_debug then
2075: hr_utility.set_location(' Leaving:'||l_proc, 12);
2076: end if;
2077: END update_element_entry;
2078: --
2079: END pay_element_entry_api;