116: -- then error
117: IF (l_status = 'I')
118: AND (X_current_appl_id <> 810)
119: THEN
120: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
121: hr_utility.raise_error;
122: hr_utility.raise_error;
123: END IF;
124: END IF;
117: IF (l_status = 'I')
118: AND (X_current_appl_id <> 810)
119: THEN
120: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
121: hr_utility.raise_error;
122: hr_utility.raise_error;
123: END IF;
124: END IF;
125: END IF;
118: AND (X_current_appl_id <> 810)
119: THEN
120: hr_utility.set_message('801','HR_6041_PO_EMP_HR_INSTALLED');
121: hr_utility.raise_error;
122: hr_utility.raise_error;
123: END IF;
124: END IF;
125: END IF;
126:
194: l_rows := dbms_sql.fetch_rows(l_sql_cursor);
195: --
196: IF l_rows > 1
197: THEN
198: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
199: hr_utility.set_message_token('PROCEDURE','Form_startup');
200: hr_utility.raise_error;
201: END IF;
202: --
195: --
196: IF l_rows > 1
197: THEN
198: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
199: hr_utility.set_message_token('PROCEDURE','Form_startup');
200: hr_utility.raise_error;
201: END IF;
202: --
203: IF l_rows > 0
196: IF l_rows > 1
197: THEN
198: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
199: hr_utility.set_message_token('PROCEDURE','Form_startup');
200: hr_utility.raise_error;
201: END IF;
202: --
203: IF l_rows > 0
204: THEN
231: OPEN chart_of_accounts;
232: FETCH chart_of_accounts INTO X_chart_of_accounts_id
233: ,X_set_of_books_name;
234: IF chart_of_accounts%NOTFOUND THEN
235: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE','Form_startup');
237: hr_utility.raise_error;
238: END IF;
239: CLOSE chart_of_accounts;
232: FETCH chart_of_accounts INTO X_chart_of_accounts_id
233: ,X_set_of_books_name;
234: IF chart_of_accounts%NOTFOUND THEN
235: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE','Form_startup');
237: hr_utility.raise_error;
238: END IF;
239: CLOSE chart_of_accounts;
240: END IF;
233: ,X_set_of_books_name;
234: IF chart_of_accounts%NOTFOUND THEN
235: hr_utility.set_message('801','HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE','Form_startup');
237: hr_utility.raise_error;
238: END IF;
239: CLOSE chart_of_accounts;
240: END IF;
241: --
283: --
284: --
285:
286: BEGIN
287: g_debug := hr_utility.debug_enabled; -- get debug status
288: IF g_debug THEN
289: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
290: END IF;
291:
285:
286: BEGIN
287: g_debug := hr_utility.debug_enabled; -- get debug status
288: IF g_debug THEN
289: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
290: END IF;
291:
292: OPEN C1;
293: FETCH C1 INTO X_Period_of_Service_Id;
293: FETCH C1 INTO X_Period_of_Service_Id;
294: CLOSE C1;
295: --
296: IF g_debug THEN
297: hr_utility.set_location('Entering: '|| g_package || l_proc, 10);
298: END IF;
299: INSERT INTO PER_PERIODS_OF_SERVICE(
300: PERIOD_OF_SERVICE_ID
301: ,BUSINESS_GROUP_ID
323: l_new.ATTRIBUTE5 := NULL;
324: l_new.final_process_date := NULL;
325: --
326: IF g_debug THEN
327: hr_utility.set_location('Entering: '|| g_package || l_proc, 20);
328: END IF;
329: ben_pps_ler.ler_chk(p_old => l_old
330: ,p_new => l_new
331: ,p_event => 'INSERTING'
334: -- END WWBUG 1390173 fix
335: --
336: --
337: IF g_debug THEN
338: hr_utility.set_location('Leaving: '|| g_package || l_proc, 30);
339: END IF;
340:
341: END insert_period_of_service;
342: --
482: l_phone_id NUMBER := NULL ;
483: l_proc VARCHAR2(72):='per_people_v14_pkg.insert_row';
484: --
485: BEGIN
486: hr_utility.set_location('Entering: '||l_proc,10);
487: IF (X_Person_Id IS NULL) THEN
488: OPEN C2;
489: FETCH C2 INTO X_Person_Id;
490: CLOSE C2;
498: ,p_party_id => X_party_id
499: ,p_effective_date => X_effective_start_date
500: ,p_object_version_number => NULL);
501: END IF;
502: hr_utility.set_location(l_proc,20);
503: INSERT INTO PER_ALL_PEOPLE_F(
504: person_id,
505: effective_start_date,
506: effective_end_date,
743: X_Order_Name,
744: X_Global_Name,
745: X_Local_Name);
746:
747: hr_utility.set_location(l_proc,30);
748: --kramajey uncommented the part of the commented code to make sure the person details are
749: --populated in l_person Bug 4093145
750:
751: --
759: /* This is being commented out as part of TCA party unmerge. This part of the code
760: is being called from per_person_type_usage_internal.maintain_person_type_usage
761: --
762: per_hrtca_merge.create_tca_person(p_rec => l_person);
763: hr_utility.set_location('UPDATING party id',10);
764: --
765: -- Now assign the resulting party id back to the record.
766: --
767: --Bug fix 4861893
785: -- Use p_start_date (i.e., p_date_received passed from per_applicant_pkg)
786: -- as the value for effective date and date from.
787: --
788: IF x_work_telephone IS NOT NULL THEN
789: hr_utility.set_location(l_proc,40);
790: hr_phone_api.create_phone
791: (p_date_from => x_effective_start_date
792: ,p_date_to => NULL
793: ,p_phone_type => 'W1'
799: ,p_object_version_number => l_phone_ovn --out
800: ,p_phone_id => l_phone_id --out
801: );
802: END IF;
803: hr_utility.set_location(l_proc,50);
804: --
805: OPEN C;
806: FETCH C INTO X_Rowid;
807: IF (C%NOTFOUND) THEN
808: CLOSE C;
809: RAISE NO_DATA_FOUND;
810: END IF;
811: CLOSE C;
812: hr_utility.set_location(l_proc,60);
813: --
814: -- add the person to the security lists
815: --
816: IF (X_current_emp_or_apl_flag='Y') THEN
813: --
814: -- add the person to the security lists
815: --
816: IF (X_current_emp_or_apl_flag='Y') THEN
817: hr_utility.set_location(l_proc,70);
818: hr_security_internal.populate_new_person
819: (p_person_id => X_Person_Id
820: ,p_business_group_id => X_Business_group_Id);
821: END IF;
818: hr_security_internal.populate_new_person
819: (p_person_id => X_Person_Id
820: ,p_business_group_id => X_Business_group_Id);
821: END IF;
822: hr_utility.set_location(l_proc,80);
823: IF (X_current_employee_flag IS NOT NULL)
824: THEN
825: hr_utility.set_location(l_proc,90);
826: insert_period_of_service(X_Person_id => X_Person_Id
821: END IF;
822: hr_utility.set_location(l_proc,80);
823: IF (X_current_employee_flag IS NOT NULL)
824: THEN
825: hr_utility.set_location(l_proc,90);
826: insert_period_of_service(X_Person_id => X_Person_Id
827: ,X_Business_Group_Id => X_Business_Group_id
828: ,X_Date_Start => X_effective_Start_Date
829: ,X_Period_Of_Service_Id => X_Period_Of_Service_Id
829: ,X_Period_Of_Service_Id => X_Period_Of_Service_Id
830: );
831: END IF;
832: -- PTU : Start of Changes
833: hr_utility.set_location(l_proc,95);
834:
835: hr_per_type_usage_internal.maintain_person_type_usage
836: (p_effective_date => X_effective_Start_Date
837: ,p_person_id => X_Person_Id
839: );
840:
841: -- PTU : End of Changes
842:
843: hr_utility.set_location('Leaving '||l_proc,100);
844: END Insert_Row;
845: --
846: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
847: X_Person_Id NUMBER,
957: l_proc varchar2(10) := 'insert_row';
958: --
959:
960: BEGIN
961: g_debug := hr_utility.debug_enabled; -- get debug status
962: IF g_debug THEN
963: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
964: END IF;
965: OPEN C;
959:
960: BEGIN
961: g_debug := hr_utility.debug_enabled; -- get debug status
962: IF g_debug THEN
963: hr_utility.set_location('Entering: '|| g_package || l_proc, 5);
964: END IF;
965: OPEN C;
966: FETCH C INTO Recinfo;
967: IF (C%NOTFOUND) THEN
1267: APP_EXCEPTION.RAISE_EXCEPTION;
1268: END IF;
1269: END IF;
1270: IF g_debug THEN
1271: hr_utility.set_location('Leaving: '|| g_package || l_proc, 10);
1272: END IF;
1273:
1274: END Lock_Row;
1275: --