[Home] [Help]
10: l_message varchar2(100);
11:
12: begin
13:
14: hr_utility.set_location('Entering:'||l_proc, 10);
15:
16: if p_bool = TRUE then
17: l_message := p_message|| 'TRUE';
18: else
18: else
19: l_message := p_message|| 'FALSE';
20: end if;
21:
22: hr_utility.set_location('Leaving:'||l_proc, 10);
23: return l_message;
24:
25: end report_state;
26:
29: l_proc varchar2(72) := g_package||'ck_parameter_list';
30:
31: begin
32:
33: hr_utility.set_location('Entering:'||l_proc, 10);
34:
35: if p_person_row.last_name is null then
36: -- a persons last name is required to create an applicant
37: return FALSE;
41: -- interface table for ther person
42: return FALSE;
43: end if;
44:
45: hr_utility.set_location('Leaving:'||l_proc, 10);
46: return TRUE;
47:
48: end ck_parameter_list;
49:
54:
55: l_proc varchar2(72) := g_package||'set_transfer_status';
56: begin
57:
58: hr_utility.set_location('Entering:'||l_proc, 10);
59:
60: -- update interface table to indicate result of transfer
61: update ghr_mt_people_f_v
62: set mt_status = p_status_code
63: where mt_name = p_transfer_name
64: and last_name = p_last_name
65: and mt_person_id = p_person_id;
66:
67: hr_utility.set_location('Leaving:'||l_proc, 10);
68:
69: exception
70: when others then
71: ghr_mto_int.put_line(l_proc||' - raised exception');
68:
69: exception
70: when others then
71: ghr_mto_int.put_line(l_proc||' - raised exception');
72: hr_utility.raise_error;
73:
74: end set_transfer_status;
75:
76: procedure update_mass_transfer_in_flag(p_person_id number,
89: l_proc varchar2(72) := g_package||'update_mass_transfer_in_flag';
90:
91: begin
92:
93: hr_utility.set_location('Entering:'||l_proc, 10);
94:
95: open cur_pei_id;
96: fetch cur_pei_id into l_person_extra_info_id, l_object_version_number;
97:
120:
121: end if;
122:
123: close cur_pei_id;
124: hr_utility.set_location('Leaving:'||l_proc, 10);
125:
126: exception
127: when others then
128: ghr_mto_int.put_line(l_proc||' - raised exception');
125:
126: exception
127: when others then
128: ghr_mto_int.put_line(l_proc||' - raised exception');
129: hr_utility.raise_error;
130:
131: end;
132:
133: --
162: l_object_version_number number(15);
163:
164: begin
165:
166: hr_utility.set_location('Entering:'||l_proc, 10);
167:
168: ghr_mto_int.put('Person Extra Info: '|| p_information_type);
169:
170: -- don't add info3 if DDF segment is GHR_US_PER_GROUP1
221: ,p_object_version_number => l_object_version_number
222: );
223:
224: ghr_mto_int.put_line(' > ok, pei_id: '|| l_person_extra_info_id);
225: hr_utility.set_location('Leaving:'||l_proc, 30);
226:
227: exception
228: when others then
229: ghr_mto_int.put_line(l_proc||' - raised exception');
226:
227: exception
228: when others then
229: ghr_mto_int.put_line(l_proc||' - raised exception');
230: hr_utility.raise_error;
231:
232: end;
233:
234: procedure create_sit_maybe (
267: and language = 'US';
268:
269: begin
270:
271: hr_utility.set_location('Entering:'||l_proc, 10);
272:
273: ghr_mto_int.put('Person Spcl Info: '|| p_id_flex_name);
274:
275: l_concat := p_segment1 ||
296: fetch cur_flex_num into l_id_flex_num;
297:
298: if cur_flex_num%notfound then
299: close cur_flex_num;
300: hr_utility.set_message(8301, 'GHR_38532_MT_SIT_STRUCT');
301: hr_utility.raise_error;
302: end if;
303: close cur_flex_num;
304:
297:
298: if cur_flex_num%notfound then
299: close cur_flex_num;
300: hr_utility.set_message(8301, 'GHR_38532_MT_SIT_STRUCT');
301: hr_utility.raise_error;
302: end if;
303: close cur_flex_num;
304:
305: ghr_sit_api.create_sit (
330:
331: ghr_mto_int.put_line(' > ok, criteria_id: '||
332: l_analysis_criteria_id||', analysis_id: '||
333: l_person_analysis_id);
334: hr_utility.set_location('Leaving:'||l_proc, 30);
335:
336: exception
337: when others then
338: ghr_mto_int.put_line(l_proc||' - raised exception');
335:
336: exception
337: when others then
338: ghr_mto_int.put_line(l_proc||' - raised exception');
339: hr_utility.raise_error;
340:
341: end;
342:
343: procedure transfer_person_in(
432: and p_effective_date
433: between effective_start_date and effective_end_date;
434: begin
435:
436: hr_utility.set_location('Entering:'||l_proc, 10);
437: p_result := 'P';
438:
439: ghr_mto_int.put_line('Transfering: '||p_tran.last_name);
440:
447:
448: -- so message gets into the log, since the caller rollsback on error
449: commit;
450:
451: hr_utility.set_message(8301, 'GHR_38533_MTI_MISS_REQ');
452: hr_utility.raise_error;
453: end if;
454:
455:
448: -- so message gets into the log, since the caller rollsback on error
449: commit;
450:
451: hr_utility.set_message(8301, 'GHR_38533_MTI_MISS_REQ');
452: hr_utility.raise_error;
453: end if;
454:
455:
456: -------------------------- changed the applicant from p_effective_date-2 to p_effective_date-1 for bug# 2488778
458: l_applicant_date := trunc(p_effective_date) - 1;
459: l_accept_date := trunc(p_effective_date) - 1;
460:
461: ghr_mto_int.put_line(report_state(g_validate, 'Validate Flag:'));
462: hr_utility.set_location('Create Applicant:'||l_proc, 20);
463:
464: for cur_person_exists_rec in cur_person_exists
465: loop
466: l_exists_person_id := cur_person_exists_rec.person_id;
608: l_assignment_status_type_id := cur_asg_type_rec.assignment_status_type_id;
609: end loop;
610:
611:
612: hr_utility.set_location('l_assignment_id : '||to_char(l_assignment_id), 29);
613: hr_utility.set_location('l_person_id : '||to_char(l_person_id) , 29);
614: hr_utility.set_location('l_asg_sts_tpe_id :' ||to_char(l_assignment_status_type_id), 29);
615:
616: hr_utility.set_location('Accept Applicant:'||l_proc, 30);
609: end loop;
610:
611:
612: hr_utility.set_location('l_assignment_id : '||to_char(l_assignment_id), 29);
613: hr_utility.set_location('l_person_id : '||to_char(l_person_id) , 29);
614: hr_utility.set_location('l_asg_sts_tpe_id :' ||to_char(l_assignment_status_type_id), 29);
615:
616: hr_utility.set_location('Accept Applicant:'||l_proc, 30);
617:
610:
611:
612: hr_utility.set_location('l_assignment_id : '||to_char(l_assignment_id), 29);
613: hr_utility.set_location('l_person_id : '||to_char(l_person_id) , 29);
614: hr_utility.set_location('l_asg_sts_tpe_id :' ||to_char(l_assignment_status_type_id), 29);
615:
616: hr_utility.set_location('Accept Applicant:'||l_proc, 30);
617:
618: if g_validate = FALSE then
612: hr_utility.set_location('l_assignment_id : '||to_char(l_assignment_id), 29);
613: hr_utility.set_location('l_person_id : '||to_char(l_person_id) , 29);
614: hr_utility.set_location('l_asg_sts_tpe_id :' ||to_char(l_assignment_status_type_id), 29);
615:
616: hr_utility.set_location('Accept Applicant:'||l_proc, 30);
617:
618: if g_validate = FALSE then
619:
620: ---------------------changed the p_datetrack_update_mode to CORRECTION for Bug#2488778
639: to_char(l_per_effective_end_date,g_datefmt));
640: ghr_mto_int.put_line('------------------------------------');
641: end if;
642:
643: hr_utility.set_location('Person Extra Info:'||l_proc, 40);
644:
645: for c_people_ei in cur_people_ei loop
646:
647: l_pei := c_people_ei;
668: );
669:
670: end loop;
671:
672: hr_utility.set_location('Person Spcl Info:'||l_proc, 50);
673:
674: for c_sit in cur_sit loop
675:
676: l_sit := c_sit;
708: -- ghr_mt_address_v.region_2=state
709: --
710: -- This creates US style address and assumes region_1
711: -- is the county and region_2 is the state
712: hr_utility.set_location(' Address :'||l_proc, 55);
713: --
714: /***** Old code for address Bug 2467099
715: begin
716: hr_person_address_api.create_us_person_address (
757: P_ADDRESS_ID => l_ADDRESS_ID,
758: P_OBJECT_VERSION_NUMBER => l_per_object_VERSION_NUMBER
759: );
760: exception when others then
761: hr_utility.set_location(' Error Address :'||l_proc, 56);
762: l_message := 'Error in Address creation ' || sqlerrm(sqlcode);
763: end;
764: ************/
765:
790: p_message => 'Address created Successfully');
791:
792: exception
793: when others then
794: hr_utility.set_location(' User type INT Error Address :'||l_proc, 56);
795: -- Bug#3718167 Added Person Name and SSN in the log text
796: --Bug # 9329643 Modified SSN to Emp No
797: l_message := 'Error in INT Address creation for ' || l_full_name||
798: ' Emp No: '||p_tran.employee_number|| 'Error is:'||sqlerrm(sqlcode);
827: ghr_mto_int.log_message(
828: p_procedure => l_proc_name,
829: p_message => 'PER Address created Successfully');
830: exception when others then
831: hr_utility.set_location(' User type PER Error Address :'||l_proc, 56);
832: -- Bug#3718167 Added Person Name and SSN in the log text
833: --Bug # 9329643 Modified SSN to Emp No
834: l_message := 'Error in PER Address creation for ' || l_full_name||
835: ' Emp No: '||p_tran.employee_number|| 'Error is:'||sqlerrm(sqlcode);
843:
844: close cur_address;
845:
846: ghr_mto_int.put_line('* Successful');
847: hr_utility.set_location('Leaving:'||l_proc, 50);
848:
849: ELSE
850: -- Employee exists with same SSN....
851: -- Bug#3718167 Added Person Full Name in the Log Message
871: ghr_mto_int.log_message(
872: p_procedure => l_proc_name,
873: p_message => l_message);
874:
875: hr_utility.raise_error;
876:
877: end transfer_person_in;
878:
879: --
957: and mt_status = 'Y';
958:
959: begin
960:
961: hr_utility.set_location('Entering:'||l_proc, 10);
962: ghr_mto_int.set_log_program_name('Mass Transfer In');
963:
964: ghr_mto_int.get_transfer_parameters(
965: p_mass_transfer_id => p_transfer_id,
973: p_message => 'Failed to get Transfer In information from'||
974: 'GHR_MASS_TRANSFERS for mass_transfer_id:'||
975: p_transfer_id);
976:
977: hr_utility.set_message(8301, 'GHR_38534_MT_ID_ERR');
978: hr_utility.raise_error;
979: end if;
980:
981: ghr_mto_int.put_line('Starting Transfer In for:'||l_transfer_name);
974: 'GHR_MASS_TRANSFERS for mass_transfer_id:'||
975: p_transfer_id);
976:
977: hr_utility.set_message(8301, 'GHR_38534_MT_ID_ERR');
978: hr_utility.raise_error;
979: end if;
980:
981: ghr_mto_int.put_line('Starting Transfer In for:'||l_transfer_name);
982:
990: p_procedure => l_proc_name,
991: p_message =>
992: 'Failed to get the person_type_id for APPLICANT '||
993: 'in the business group');
994: hr_utility.set_message(8301, 'GHR_38535_NO_MTI_PERSON_TYPE');
995: hr_utility.raise_error;
996: end if;
997:
998: -- for all people selected for transfer in
991: p_message =>
992: 'Failed to get the person_type_id for APPLICANT '||
993: 'in the business group');
994: hr_utility.set_message(8301, 'GHR_38535_NO_MTI_PERSON_TYPE');
995: hr_utility.raise_error;
996: end if;
997:
998: -- for all people selected for transfer in
999: for c_person in cur_people loop
1018: ') contains an invalid Person Type as of the Effective ' ||
1019: 'Date of the Transfer In action. Person Type may not be Employee. Please ' ||
1020: 'make sure this person is not an Employee as of the Effective Date of the ' ||
1021: 'Transfer In, and then resubmit the Transfer In action.');
1022: hr_utility.raise_error;
1023: end if;
1024:
1025: -- A person is transfered in only if this is not an
1026: -- inter business group transfer
1104: l_errbuf || ' from populate_and_create_52()');
1105: --- ' recieved error message: "'||
1106:
1107: commit;
1108: hr_utility.raise_error;
1109: end;
1110:
1111: -- notify user that at data from the interface table was not
1112: -- successfully transfered in by transfer_person_in()
1124: l_transfer_name || ' transfered '||l_transfer_count ||
1125: ' employees.');
1126:
1127: commit;
1128: hr_utility.set_location('Leaving:'||l_proc, 10);
1129:
1130: exception
1131: when e_transfer_in_warning then
1132: l_message := 'Warning: Mass Transfer In for transfer: '||