40: hr_utility.set_location('Entering:'|| l_proc, 10);
41: --
42: -- Ensure that all the mandatory parameter are not null
43: --
44: hr_api.mandatory_arg_error
45: (p_api_name => l_proc
46: ,p_argument => 'element_type_usage_id'
47: ,p_argument_value => p_element_type_usage_id
48: );
63: close csr_sec_grp;
64: --
65: -- Set the security_group_id in CLIENT_INFO
66: --
67: hr_api.set_security_group_id
68: (p_security_group_id => l_security_group_id
69: );
70: --
71: hr_utility.set_location(' Leaving:'|| l_proc, 20);
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Ensure that all the mandatory parameter are not null
103: --
104: hr_api.mandatory_arg_error
105: (p_api_name => l_proc
106: ,p_argument => 'element_type_usage_id'
107: ,p_argument_value => p_element_type_usage_id
108: );
106: ,p_argument => 'element_type_usage_id'
107: ,p_argument_value => p_element_type_usage_id
108: );
109: --
110: if ( nvl(pay_etu_bus.g_element_type_usage_id, hr_api.g_number)
111: = p_element_type_usage_id) then
112: --
113: -- The legislation code has already been found with a previous
114: -- call to this function. Just return the value in the global
198: END IF;
199: --
200: hr_utility.set_location(l_proc, 10);
201: --
202: if nvl(p_rec.business_group_id, hr_api.g_number) <>
203: nvl(pay_etu_shd.g_old_rec.business_group_id, hr_api.g_number) then
204: l_argument := 'business_group_id';
205: raise l_error;
206: end if;
199: --
200: hr_utility.set_location(l_proc, 10);
201: --
202: if nvl(p_rec.business_group_id, hr_api.g_number) <>
203: nvl(pay_etu_shd.g_old_rec.business_group_id, hr_api.g_number) then
204: l_argument := 'business_group_id';
205: raise l_error;
206: end if;
207: hr_utility.set_location(l_proc, 15);
205: raise l_error;
206: end if;
207: hr_utility.set_location(l_proc, 15);
208: --
209: if nvl(p_rec.element_type_usage_id,hr_api.g_number) <>
210: nvl(pay_etu_shd.g_old_rec.element_type_usage_id,hr_api.g_number) then
211: l_argument := 'element_type_usage_id';
212: raise l_error;
213: end if;
206: end if;
207: hr_utility.set_location(l_proc, 15);
208: --
209: if nvl(p_rec.element_type_usage_id,hr_api.g_number) <>
210: nvl(pay_etu_shd.g_old_rec.element_type_usage_id,hr_api.g_number) then
211: l_argument := 'element_type_usage_id';
212: raise l_error;
213: end if;
214: hr_utility.set_location(l_proc, 20);
212: raise l_error;
213: end if;
214: hr_utility.set_location(l_proc, 20);
215: --
216: if nvl(p_rec.legislation_code,hr_api.g_varchar2) <>
217: nvl(pay_etu_shd.g_old_rec.legislation_code,hr_api.g_varchar2) then
218: l_argument := 'legislation_code';
219: raise l_error;
220: end if;
213: end if;
214: hr_utility.set_location(l_proc, 20);
215: --
216: if nvl(p_rec.legislation_code,hr_api.g_varchar2) <>
217: nvl(pay_etu_shd.g_old_rec.legislation_code,hr_api.g_varchar2) then
218: l_argument := 'legislation_code';
219: raise l_error;
220: end if;
221: hr_utility.set_location(l_proc, 25);
219: raise l_error;
220: end if;
221: hr_utility.set_location(l_proc, 25);
222: --
223: if nvl(p_rec.element_type_id, hr_api.g_number) <>
224: nvl(pay_etu_shd.g_old_rec.element_type_id, hr_api.g_number) then
225: l_argument := 'element_type_id';
226: raise l_error;
227: end if;
220: end if;
221: hr_utility.set_location(l_proc, 25);
222: --
223: if nvl(p_rec.element_type_id, hr_api.g_number) <>
224: nvl(pay_etu_shd.g_old_rec.element_type_id, hr_api.g_number) then
225: l_argument := 'element_type_id';
226: raise l_error;
227: end if;
228: hr_utility.set_location(l_proc, 30);
226: raise l_error;
227: end if;
228: hr_utility.set_location(l_proc, 30);
229: --
230: if nvl(p_rec.run_type_id,hr_api.g_number) <>
231: nvl(pay_etu_shd.g_old_rec.run_type_id,hr_api.g_number) then
232: l_argument := 'run_type_id';
233: raise l_error;
234: end if;
227: end if;
228: hr_utility.set_location(l_proc, 30);
229: --
230: if nvl(p_rec.run_type_id,hr_api.g_number) <>
231: nvl(pay_etu_shd.g_old_rec.run_type_id,hr_api.g_number) then
232: l_argument := 'run_type_id';
233: raise l_error;
234: end if;
235: hr_utility.set_location(l_proc, 35);
234: end if;
235: hr_utility.set_location(l_proc, 35);
236: --
237: --commented out as not required
238: /* if nvl(p_rec.inclusion_flag,hr_api.g_varchar2) <>
239: nvl(pay_etu_shd.g_old_rec.inclusion_flag,hr_api.g_varchar2) then
240: l_argument := 'inclusion_flag';
241: raise l_error;
242: end if;
235: hr_utility.set_location(l_proc, 35);
236: --
237: --commented out as not required
238: /* if nvl(p_rec.inclusion_flag,hr_api.g_varchar2) <>
239: nvl(pay_etu_shd.g_old_rec.inclusion_flag,hr_api.g_varchar2) then
240: l_argument := 'inclusion_flag';
241: raise l_error;
242: end if;
243: hr_utility.set_location(l_proc, 40);
241: raise l_error;
242: end if;
243: hr_utility.set_location(l_proc, 40);
244: --
245: if nvl(p_rec.usage_type,hr_api.g_varchar2) <>
246: nvl(pay_etu_shd.g_old_rec.usage_type,hr_api.g_varchar2) then
247: l_argument := 'usage_type';
248: raise l_error;
249: end if;*/
242: end if;
243: hr_utility.set_location(l_proc, 40);
244: --
245: if nvl(p_rec.usage_type,hr_api.g_varchar2) <>
246: nvl(pay_etu_shd.g_old_rec.usage_type,hr_api.g_varchar2) then
247: l_argument := 'usage_type';
248: raise l_error;
249: end if;*/
250: hr_utility.set_location(l_proc, 50);
250: hr_utility.set_location(l_proc, 50);
251: --
252: EXCEPTION
253: WHEN l_error THEN
254: hr_api.argument_changed_error
255: (p_api_name => l_proc
256: ,p_argument => l_argument);
257: WHEN OTHERS THEN
258: RAISE;
363: -- primary key value. For update it will be not null. For insert it will be
364: -- null because pre_insert has not been called yet.
365: --
366: IF (((p_element_type_usage_id is not null) and
367: nvl(pay_etu_shd.g_old_rec.run_type_id, hr_api.g_number) <>
368: nvl(p_run_type_id, hr_api.g_number)) or
369: (p_element_type_usage_id is null)) THEN
370: --
371: hr_utility.set_location(l_proc, 10);
364: -- null because pre_insert has not been called yet.
365: --
366: IF (((p_element_type_usage_id is not null) and
367: nvl(pay_etu_shd.g_old_rec.run_type_id, hr_api.g_number) <>
368: nvl(p_run_type_id, hr_api.g_number)) or
369: (p_element_type_usage_id is null)) THEN
370: --
371: hr_utility.set_location(l_proc, 10);
372: --
406: --
407: IF p_element_type_usage_id is not null THEN
408: l_legislation_code := pay_etu_bus.return_legislation_code(p_element_type_usage_id);
409: ELSE
410: l_legislation_code := hr_api.return_legislation_code(p_business_group_id);
411: END IF;
412: --
413: OPEN csr_chk_user_run_type(l_legislation_code);
414: FETCH csr_chk_user_run_type INTO l_exists;
580: -- primary key value. For update it will be not null. For insert it will be
581: -- null because pre_insert has not been called yet.
582: --
583: IF (((p_element_type_usage_id is not null) and
584: nvl(pay_etu_shd.g_old_rec.element_type_id, hr_api.g_number) <>
585: nvl(p_element_type_id, hr_api.g_number)) or
586: (p_element_type_usage_id is null)) THEN
587: --
588: hr_utility.set_location(l_proc, 10);
581: -- null because pre_insert has not been called yet.
582: --
583: IF (((p_element_type_usage_id is not null) and
584: nvl(pay_etu_shd.g_old_rec.element_type_id, hr_api.g_number) <>
585: nvl(p_element_type_id, hr_api.g_number)) or
586: (p_element_type_usage_id is null)) THEN
587: --
588: hr_utility.set_location(l_proc, 10);
589: --
623: --
624: IF p_element_type_usage_id is not null THEN
625: l_legislation_code := pay_etu_bus.return_legislation_code(p_element_type_usage_id);
626: ELSE
627: l_legislation_code := hr_api.return_legislation_code(p_business_group_id);
628: END IF;
629: --
630: OPEN csr_chk_user_element_type(l_legislation_code);
631: FETCH csr_chk_user_element_type INTO l_exists;
691: -- and would expect to need to validate against hr_lookups.
692: --
693: hr_utility.set_location('Entering: '||l_proc,5);
694: --
695: IF (hr_api.not_exists_in_dt_hrstanlookups
696: (p_effective_date => p_effective_date
697: ,p_validation_start_date => p_validation_start_date
698: ,p_validation_end_date => p_validation_end_date
699: ,p_lookup_type => 'YES_NO'
830: --
831: -- {End Of Comments}
832: -- ----------------------------------------------------------------------------
833: Procedure dt_update_validate
834: (p_element_type_id in number default hr_api.g_number
835: ,p_run_type_id in number default hr_api.g_number
836: ,p_datetrack_mode in varchar2
837: ,p_validation_start_date in date
838: ,p_validation_end_date in date
831: -- {End Of Comments}
832: -- ----------------------------------------------------------------------------
833: Procedure dt_update_validate
834: (p_element_type_id in number default hr_api.g_number
835: ,p_run_type_id in number default hr_api.g_number
836: ,p_datetrack_mode in varchar2
837: ,p_validation_start_date in date
838: ,p_validation_end_date in date
839: ) Is
845: Begin
846: --
847: -- Ensure that the p_datetrack_mode argument is not null
848: --
849: hr_api.mandatory_arg_error
850: (p_api_name => l_proc
851: ,p_argument => 'datetrack_mode'
852: ,p_argument_value => p_datetrack_mode
853: );
855: -- Mode will be valid, as this is checked at the start of the upd.
856: --
857: -- Ensure the arguments are not null
858: --
859: hr_api.mandatory_arg_error
860: (p_api_name => l_proc
861: ,p_argument => 'validation_start_date'
862: ,p_argument_value => p_validation_start_date
863: );
861: ,p_argument => 'validation_start_date'
862: ,p_argument_value => p_validation_start_date
863: );
864: --
865: hr_api.mandatory_arg_error
866: (p_api_name => l_proc
867: ,p_argument => 'validation_end_date'
868: ,p_argument_value => p_validation_end_date
869: );
867: ,p_argument => 'validation_end_date'
868: ,p_argument_value => p_validation_end_date
869: );
870: --
871: If ((nvl(p_element_type_id, hr_api.g_number) <> hr_api.g_number) and
872: NOT (dt_api.check_min_max_dates
873: (p_base_table_name => 'pay_element_types_f'
874: ,p_base_key_column => 'ELEMENT_TYPE_ID'
875: ,p_base_key_value => p_element_type_id
877: ,p_to_date => p_validation_end_date))) Then
878: l_table_name := 'element types';
879: raise l_integrity_error;
880: End If;
881: If ((nvl(p_run_type_id, hr_api.g_number) <> hr_api.g_number) and
882: NOT (dt_api.check_min_max_dates
883: (p_base_table_name => 'pay_run_types_f'
884: ,p_base_key_column => 'RUN_TYPE_ID'
885: ,p_base_key_value => p_run_type_id
958: Begin
959: --
960: -- Ensure that the p_datetrack_mode argument is not null
961: --
962: hr_api.mandatory_arg_error
963: (p_api_name => l_proc
964: ,p_argument => 'datetrack_mode'
965: ,p_argument_value => p_datetrack_mode
966: );
967: --
968: -- Only perform the validation if the datetrack mode is either
969: -- DELETE or ZAP
970: --
971: If (p_datetrack_mode = hr_api.g_delete or
972: p_datetrack_mode = hr_api.g_zap) then
973: --
974: --
975: -- Ensure the arguments are not null
968: -- Only perform the validation if the datetrack mode is either
969: -- DELETE or ZAP
970: --
971: If (p_datetrack_mode = hr_api.g_delete or
972: p_datetrack_mode = hr_api.g_zap) then
973: --
974: --
975: -- Ensure the arguments are not null
976: --
973: --
974: --
975: -- Ensure the arguments are not null
976: --
977: hr_api.mandatory_arg_error
978: (p_api_name => l_proc
979: ,p_argument => 'validation_start_date'
980: ,p_argument_value => p_validation_start_date
981: );
979: ,p_argument => 'validation_start_date'
980: ,p_argument_value => p_validation_start_date
981: );
982: --
983: hr_api.mandatory_arg_error
984: (p_api_name => l_proc
985: ,p_argument => 'validation_end_date'
986: ,p_argument_value => p_validation_end_date
987: );
985: ,p_argument => 'validation_end_date'
986: ,p_argument_value => p_validation_end_date
987: );
988: --
989: hr_api.mandatory_arg_error
990: (p_api_name => l_proc
991: ,p_argument => 'element_type_usage_id'
992: ,p_argument_value => p_element_type_usage_id
993: );
1085: chk_startup_action(True
1086: ,p_rec.business_group_id
1087: ,p_rec.legislation_code);
1088: IF hr_startup_data_api_support.g_startup_mode NOT IN ('GENERIC','STARTUP') THEN
1089: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate bus_grp
1090: END IF;
1091: --
1092: hr_utility.set_location(l_proc, 10);
1093: --
1141: chk_startup_action(False
1142: ,p_rec.business_group_id
1143: ,p_rec.legislation_code);
1144: IF hr_startup_data_api_support.g_startup_mode NOT IN ('GENERIC','STARTUP') THEN
1145: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate bus_grp
1146: END IF;
1147: --
1148: hr_utility.set_location(l_proc, 10);
1149: --