[Home] [Help]
110: -- then error
111: IF (l_status = 'I')
112: AND (X_current_appl_id <> 810)
113: THEN
114: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
115: hr_utility.raise_error;
116: hr_utility.raise_error;
117: END IF;
118: END IF;
111: IF (l_status = 'I')
112: AND (X_current_appl_id <> 810)
113: THEN
114: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
115: hr_utility.raise_error;
116: hr_utility.raise_error;
117: END IF;
118: END IF;
119: END IF;
112: AND (X_current_appl_id <> 810)
113: THEN
114: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
115: hr_utility.raise_error;
116: hr_utility.raise_error;
117: END IF;
118: END IF;
119: END IF;
120:
167: l_rows := dbms_sql.fetch_rows(l_sql_cursor);
168: --
169: IF l_rows > 1
170: THEN
171: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
172: hr_utility.set_message_token('PROCEDURE','Form_startup');
173: hr_utility.raise_error;
174: END IF;
175: --
168: --
169: IF l_rows > 1
170: THEN
171: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
172: hr_utility.set_message_token('PROCEDURE','Form_startup');
173: hr_utility.raise_error;
174: END IF;
175: --
176: IF l_rows > 0
169: IF l_rows > 1
170: THEN
171: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
172: hr_utility.set_message_token('PROCEDURE','Form_startup');
173: hr_utility.raise_error;
174: END IF;
175: --
176: IF l_rows > 0
177: THEN
204: OPEN chart_of_accounts;
205: FETCH chart_of_accounts INTO X_chart_of_accounts_id
206: ,X_set_of_books_name;
207: IF chart_of_accounts%NOTFOUND THEN
208: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
209: hr_utility.set_message_token('PROCEDURE','Form_startup');
210: hr_utility.raise_error;
211: END IF;
212: CLOSE chart_of_accounts;
205: FETCH chart_of_accounts INTO X_chart_of_accounts_id
206: ,X_set_of_books_name;
207: IF chart_of_accounts%NOTFOUND THEN
208: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
209: hr_utility.set_message_token('PROCEDURE','Form_startup');
210: hr_utility.raise_error;
211: END IF;
212: CLOSE chart_of_accounts;
213: END IF;
206: ,X_set_of_books_name;
207: IF chart_of_accounts%NOTFOUND THEN
208: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
209: hr_utility.set_message_token('PROCEDURE','Form_startup');
210: hr_utility.raise_error;
211: END IF;
212: CLOSE chart_of_accounts;
213: END IF;
214: --
438: l_phone_id NUMBER := NULL ;
439: l_proc VARCHAR2(72):='per_people_v14_pkg.insert_row';
440: --
441: BEGIN
442: hr_utility.set_location('Entering: '||l_proc,10);
443: IF (X_Person_Id IS NULL) THEN
444: OPEN C2;
445: FETCH C2 INTO X_Person_Id;
446: CLOSE C2;
454: ,p_party_id => X_party_id
455: ,p_effective_date => X_effective_start_date
456: ,p_object_version_number => NULL);
457: END IF;
458: hr_utility.set_location(l_proc,20);
459: INSERT INTO PER_ALL_PEOPLE_F(
460: person_id,
461: effective_start_date,
462: effective_end_date,
699: X_Order_Name,
700: X_Global_Name,
701: X_Local_Name);
702:
703: hr_utility.set_location(l_proc,30);
704: --kramajey uncommented the part of the commented code to make sure the person details are
705: --populated in l_person Bug 4093145
706:
707: --
715: /* This is being commented out as part of TCA party unmerge. This part of the code
716: is being called from per_person_type_usage_internal.maintain_person_type_usage
717: --
718: per_hrtca_merge.create_tca_person(p_rec => l_person);
719: hr_utility.set_location('UPDATING party id',10);
720: --
721: -- Now assign the resulting party id back to the record.
722: --
723: --Bug fix 4861893
741: -- Use p_start_date (i.e., p_date_received passed from per_applicant_pkg)
742: -- as the value for effective date and date from.
743: --
744: IF x_work_telephone IS NOT NULL THEN
745: hr_utility.set_location(l_proc,40);
746: hr_phone_api.create_phone
747: (p_date_from => x_effective_start_date
748: ,p_date_to => NULL
749: ,p_phone_type => 'W1'
755: ,p_object_version_number => l_phone_ovn --out
756: ,p_phone_id => l_phone_id --out
757: );
758: END IF;
759: hr_utility.set_location(l_proc,50);
760: --
761: OPEN C;
762: FETCH C INTO X_Rowid;
763: IF (C%NOTFOUND) THEN
764: CLOSE C;
765: RAISE NO_DATA_FOUND;
766: END IF;
767: CLOSE C;
768: hr_utility.set_location(l_proc,60);
769: --
770: -- add the person to the security lists
771: --
772: IF (X_current_emp_or_apl_flag='Y') THEN
769: --
770: -- add the person to the security lists
771: --
772: IF (X_current_emp_or_apl_flag='Y') THEN
773: hr_utility.set_location(l_proc,70);
774: hr_security_internal.populate_new_person
775: (p_person_id => X_Person_Id
776: ,p_business_group_id => X_Business_group_Id);
777: END IF;
774: hr_security_internal.populate_new_person
775: (p_person_id => X_Person_Id
776: ,p_business_group_id => X_Business_group_Id);
777: END IF;
778: hr_utility.set_location(l_proc,80);
779: IF (X_current_employee_flag IS NOT NULL)
780: THEN
781: hr_utility.set_location(l_proc,90);
782: insert_period_of_service(X_Person_id => X_Person_Id
777: END IF;
778: hr_utility.set_location(l_proc,80);
779: IF (X_current_employee_flag IS NOT NULL)
780: THEN
781: hr_utility.set_location(l_proc,90);
782: insert_period_of_service(X_Person_id => X_Person_Id
783: ,X_Business_Group_Id => X_Business_Group_id
784: ,X_Date_Start => X_effective_Start_Date
785: ,X_Period_Of_Service_Id => X_Period_Of_Service_Id
794: );
795:
796: -- PTU : End of Changes
797:
798: hr_utility.set_location('Leaving '||l_proc,100);
799: END Insert_Row;
800: --
801: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
802: X_Person_Id NUMBER,