176: l_unique_str varchar2(200);
177: --
178: BEGIN
179: --
180: hr_utility.set_location('Entering ' || l_proc, 10);
181:
182: IF p_batch_name is NULL
183: THEN
184: fnd_message.set_name('PER', 'HR_BATCH_NAME_NOT_SPECIFIED');
195: fnd_message.raise_error;
196: END IF;
197: END IF;
198: --
199: hr_utility.set_location('run_type=' || p_run_type, 20);
200:
201: -- Check run type
202: -----------------------------------------------------------------------------
203: -- NOTE:
671: upper(p_run_type) = hr_user_acct_utility.g_cr_n_inact_user OR
672: upper(p_run_type) = hr_user_acct_utility.g_cr_user_all_emp
673: THEN
674: BEGIN
675: hr_utility.set_location('In executing create user dynamic sql..', 35);
676:
677: dbms_sql.parse(l_dynamic_cursor_id, l_sql_clause, dbms_sql.v7); -- Step 2
678: -- ************************************************************************
679: -- NOTE:If we retrieve extra column,need to set the l_index accordingly.
858: l_dynamic_cursor_id := dbms_sql.open_cursor; -- Step 1
859:
860: BEGIN
861:
862: hr_utility.set_location('In executing inactivate user dynamic sql..', 37);
863:
864: dbms_sql.parse(l_dynamic_cursor_id, l_inactivate_user_sql_clause
865: ,dbms_sql.v7); -- Step 2
866: -- ************************************************************************
1011: END IF;
1012: --
1013: retcode := 0;
1014:
1015: hr_utility.set_location('Leaving ' || l_proc, 10);
1016:
1017: return;
1018: --
1019: EXCEPTION
1017: return;
1018: --
1019: EXCEPTION
1020: WHEN OTHERS THEN
1021: hr_utility.trace ('Error in the '|| l_proc ||' - ORA '||
1022: to_char(SQLCODE));
1023: errbuf := sqlerrm;
1024: retcode := 2;
1025: rollback;