406: ,p_orig_hire_warning => l_orig_hire_warning);
407: --
408: -- create the extra PTU entry for iRecruitment Candidate
409: --
410: hr_per_type_usage_internal.maintain_person_type_usage
411: (p_effective_date => l_start_date
412: ,p_person_id => l_person_ids(i)
413: ,p_person_type_id => l_ptu_person_type_id
414: );
419: open get_ptu_entry(l_person_ids(i));
420: fetch get_ptu_entry into l_dummy;
421: if get_ptu_entry%notfound then
422: close get_ptu_entry;
423: hr_per_type_usage_internal.maintain_person_type_usage
424: (p_effective_date => l_start_date
425: ,p_person_id => l_person_ids(i)
426: ,p_person_type_id => l_ptu_person_type_id
427: );