[Home] [Help]
550: l_num_appls NUMBER; -- Number of applicants.
551: l_num_accepted_appls NUMBER; -- Number of accepted spplicant assignments
552: l_set_of_books_id NUMBER; -- Required for GL.
553: v_dummy NUMBER; -- For cursor fetch.
554: l_npw_number per_all_people_f.npw_number%type;
555: --
556: l_warn_ee VARCHAR2(1) := 'N';
557: --
558: l_max_ele number;--added for bug 6600075
573: --
574: /* BEGIN OF WWBUG 1975359 */
575: cursor c1 is
576: select party_id
577: from per_all_people_f
578: where person_id = p_person_id;
579: --
580: l_party_id number;
581: --
580: l_party_id number;
581: --
582: cursor c_person is
583: select *
584: from per_all_people_f
585: where person_id = p_person_id
586: and p_effective_start_date
587: between effective_start_date
588: and effective_end_date;
586: and p_effective_start_date
587: between effective_start_date
588: and effective_end_date;
589: --
590: l_person per_all_people_f%rowtype;
591: --
592: /* END OF WWBUG 1975359 */
593: --
594: -- **** Start new code for bug 2264569 ******************************
600: --
601: --bug no 5546586 starts here
602: cursor email_address is
603: select email_address
604: from per_all_people_f
605: where rowid = p_rowid;
606: --bug no 5546586 ends here
607: begin
608:
1414: p_business_group_id,p_system_person_type),272);
1415:
1416: -- Bug 6196362 Starts.
1417: -- update per_people_f ppf
1418: update per_all_people_f ppf
1419: -- Bug 6196362 Ends.
1420: set ppf.person_id = p_person_id
1421: ,ppf.effective_start_date = p_effective_start_date
1422: ,ppf.effective_end_date = p_effective_end_date
2061: ,p_cov_date_start in date) is
2062: --
2063: cursor csr_per_details(c_person_id number) is
2064: select *
2065: from per_all_people_f
2066: where person_id = c_person_id
2067: order by effective_start_date asc;
2068: --
2069: cursor csr_per_exists(c_person_id number, c_effective_date date) is
2070: select 'Y'
2071: from dual
2072: where exists(
2073: select 1
2074: from per_all_people_f per
2075: where per.person_id = c_person_id
2076: and c_effective_date between per.effective_start_date and per.effective_end_date
2077: );
2078: --
2078: --
2079: cursor csr_per_type(c_person_id number, c_effective_date date) is
2080: select ppt.system_person_type
2081: from per_person_types ppt,
2082: per_all_people_f ppf
2083: where ppf.person_id = c_person_id
2084: and ppf.person_type_id = ppt.person_type_id;
2085: --
2086: cursor csr_address(c_person_id number, c_date_from date) is
2097: and ppt.active_flag = 'Y'
2098: and ppt.system_person_type = 'OTHER';
2099: --
2100: l_proc varchar2(100) := 'per_people12_pkg.ins_or_upd_precursor_row';
2101: l_per_rec per_all_people_f%rowtype;
2102: l_system_person_type varchar2(60);
2103: l_dummy varchar2(10);
2104: l_cov_date_start date;
2105: l_ptu_nextval number;
2134: end loop;
2135: --
2136: if l_system_person_type = 'OTHER' then --first DT record is "OTHER" so simply extend back
2137: hr_utility.set_location(l_proc,15);
2138: update per_all_people_f
2139: set effective_start_date = p_cov_date_start,
2140: start_date = p_cov_date_start
2141: where person_id = p_person_id
2142: and effective_start_date = l_per_rec.effective_start_date;
2142: and effective_start_date = l_per_rec.effective_start_date;
2143: --
2144: -- Fox for bug 3390731 starts here.
2145: --
2146: update per_all_people_f
2147: set start_date = p_cov_date_start
2148: where person_id = p_person_id;
2149: --
2150: -- Fix for bug 3390731 ends here.
2170: open csr_get_other(l_per_rec.business_group_id);
2171: fetch csr_get_other into l_per_rec.person_type_id;
2172: close csr_get_other;
2173: --
2174: insert into per_all_people_f(
2175: person_id,
2176: effective_start_date,
2177: effective_end_date,
2178: business_group_id,
2345: -- Fox for bug 3390731 starts here.
2346: -- Update the start_date to the minimum of effective_start_date,
2347: -- in this case it is l_per_rec.start_date.
2348: --
2349: update per_all_people_f
2350: set start_date = l_per_rec.start_date
2351: where person_id = l_per_rec.person_id;
2352: --
2353: -- Fix for bug 3390731 ends here.