[Home] [Help]
126: -- becuase it is not used in the data retrieval at all.
127: -- fnd_sessions f
128: --
129: where phn.parent_id = x_person_id
130: and phn.parent_table = 'PER_ALL_PEOPLE_F'
131: and phn.phone_type = 'W1'
132: and x_start_date between phn.date_from and
133: nvl(phn.date_to,x_start_date);
134: /* BEGIN OF WWBUG 1975359 */
133: nvl(phn.date_to,x_start_date);
134: /* BEGIN OF WWBUG 1975359 */
135: cursor c1 is
136: select party_id
137: from per_all_people_f
138: where person_id = x_person_id;
139: --
140: l_party_id number;
141: --
140: l_party_id number;
141: --
142: cursor c_person is
143: select *
144: from per_all_people_f
145: where person_id = x_person_id
146: and x_effective_start_date
147: between effective_start_date
148: and effective_end_date;
146: and x_effective_start_date
147: between effective_start_date
148: and effective_end_date;
149: --
150: l_person per_all_people_f%rowtype;
151: --
152: /* END OF WWBUG 1975359 */
153: BEGIN
154: hr_utility.set_location('Entering : per_people_v7_pkg.update_row',10);
349: ,p_date_to => null
350: ,p_phone_type => 'W1'
351: ,p_phone_number => x_work_telephone
352: ,p_parent_id => x_person_id
353: ,p_parent_table => 'PER_ALL_PEOPLE_F'
354: ,p_validate => FALSE
355: ,p_effective_date => x_start_date
356: ,p_object_version_number => l_phn_object_version_number --out
357: ,p_phone_id => l_phone_id --out
421: -- #2975471
422: -- ------------------------------------------------------------------ +
423: -- ---------------------<< create_EX_EMP >>-------------------------- |
424: -- ------------------------------------------------------------------ +
425: procedure create_EX_EMP( p_person_rec per_all_people_f%ROWTYPE
426: ,p_pos_id NUMBER
427: ,p_person_id NUMBER
428: ,p_Business_group_id NUMBER
429: ,p_start_date DATE
451: l_current_employee_flag VARCHAR2(1);
452: l_dummy_date DATE;
453: l_period_of_service_id NUMBER;
454: l_rowid VARCHAR2(18);
455: l_person_id per_all_people_f.person_id%TYPE;
456:
457: --
458: begin
459: hr_utility.set_location('Entering: '||c_proc_name,10);
466: fetch csr_ex_status into l_person_type_id,l_current_emp_or_apl_flag
467: ,l_current_applicant_flag,l_current_employee_flag;
468: close csr_ex_status;
469:
470: INSERT INTO PER_ALL_PEOPLE_F(
471: person_id,
472: effective_start_date,
473: effective_end_date,
474: business_group_id,
1284: l_Work_Telephone per_phones.phone_number%TYPE;
1285: l_Phone_Id per_phones.phone_id%TYPE;
1286: l_Phone_OVN per_phones.object_version_number%TYPE;
1287: --
1288: l_business_group_id per_all_people_f.business_group_id%TYPE;
1289: --
1290:
1291: l_proc varchar2(16) := 'modify_hire_date';
1292: --
1339: --
1340: cursor phones is
1341: select phone_id,phone_number,object_version_number
1342: from per_phones
1343: where parent_table = 'PER_ALL_PEOPLE_F'
1344: and parent_id = X_Person_Id
1345: and date_from = X_S_Hire_Date
1346: and phone_type = 'W1';
1347: --
1351: where date_start < cp_date_start
1352: and person_id = X_person_id;
1353: --
1354: cursor csr_person(cp_date DATE, cp_bg_id NUMBER) is
1355: select * from per_all_people_f
1356: where business_group_id = cp_bg_id
1357: and person_id = X_person_id
1358: and nvl(Effective_End_Date,cp_date) = cp_date;
1359: --
1358: and nvl(Effective_End_Date,cp_date) = cp_date;
1359: --
1360: l_atd date; -- 2975471
1361: l_date_start date;
1362: l_person_rec per_all_people_f%ROWTYPE;
1363: --
1364: BEGIN
1365: g_debug := hr_utility.debug_enabled; -- get debug status
1366: IF g_debug THEN
1529: open csr_person(l_atd, l_business_group_id);
1530: fetch csr_person into l_person_rec;
1531: close csr_person;
1532: --
1533: -- update per_all_people_f
1534: create_EX_EMP( p_person_rec => l_person_rec
1535: ,p_pos_id => X_Period_of_service_Id
1536: ,p_person_id => X_person_id
1537: ,p_Business_group_id => l_business_group_id
1738: -- since approach changed. (version 115.22)
1739: --
1740: -- Start of Bug No. 1020074 Start.
1741: --
1742: -- While terminating an employee, it creates another row in per_all_people_f
1743: -- and per_phines, and while canceling the termination, it deletes the second
1744: -- row and updates the date_to of first row (reverse Date-track change) in
1745: -- per_all_people_f but not in per_phones table. Modified the code so that while
1746: -- canceling the termination, it removes the second row and updates the
1741: --
1742: -- While terminating an employee, it creates another row in per_all_people_f
1743: -- and per_phines, and while canceling the termination, it deletes the second
1744: -- row and updates the date_to of first row (reverse Date-track change) in
1745: -- per_all_people_f but not in per_phones table. Modified the code so that while
1746: -- canceling the termination, it removes the second row and updates the
1747: -- date_to (reverse Date-track change) of work_phone in per_phones table too.
1748: --
1749: -- delete from per_phones
1747: -- date_to (reverse Date-track change) of work_phone in per_phones table too.
1748: --
1749: -- delete from per_phones
1750: -- where parent_id = X_person_id
1751: -- and parent_table = 'PER_ALL_PEOPLE_F'
1752: -- and phone_type = 'W1'
1753: -- and date_from =X_s_termination_date + 1;
1754: --
1755: -- update per_phones
1754: --
1755: -- update per_phones
1756: -- set date_to = null
1757: -- where parent_id = X_person_id
1758: -- and parent_table = 'PER_ALL_PEOPLE_F'
1759: -- and phone_type = 'W1'
1760: -- and date_to =X_s_termination_date;
1761: --
1762: -- End of Bug No. 1020074.
1825: per_rec person%rowtype;
1826: --
1827: cursor c_all_person is
1828: select *
1829: from per_all_people_f
1830: where person_id = x_person_id
1831: and x_hire_date
1832: between effective_start_date
1833: and effective_end_date;
1915: IF g_debug THEN
1916: hr_utility.set_location('Entering: '|| g_package || l_proc, 10);
1917: END IF;
1918:
1919: UPDATE PER_ALL_PEOPLE_F
1920: SET effective_start_date=X_hire_date,
1921: effective_end_date= type_rec.effective_end_date,
1922: business_group_id= per_rec.Business_Group_Id,
1923: person_type_id= hr_person_type_usage_info.get_default_person_type_id(type_rec.Person_Type_Id),