6: --
7: -- 16-MAR-2004 smullapp created
8: -------------------------------------------------------------------
9: PROCEDURE Insert_Row(
10: p_name PA_RESOURCE_LISTS_ALL_BG.name%TYPE,
11: p_description PA_RESOURCE_LISTS_ALL_BG.description%TYPE,
12: p_public_flag PA_RESOURCE_LISTS_ALL_BG.public_flag%TYPE,
13: p_group_resource_type_id NUMBER,
14: p_start_date_active DATE,
7: -- 16-MAR-2004 smullapp created
8: -------------------------------------------------------------------
9: PROCEDURE Insert_Row(
10: p_name PA_RESOURCE_LISTS_ALL_BG.name%TYPE,
11: p_description PA_RESOURCE_LISTS_ALL_BG.description%TYPE,
12: p_public_flag PA_RESOURCE_LISTS_ALL_BG.public_flag%TYPE,
13: p_group_resource_type_id NUMBER,
14: p_start_date_active DATE,
15: p_end_date_active DATE,
8: -------------------------------------------------------------------
9: PROCEDURE Insert_Row(
10: p_name PA_RESOURCE_LISTS_ALL_BG.name%TYPE,
11: p_description PA_RESOURCE_LISTS_ALL_BG.description%TYPE,
12: p_public_flag PA_RESOURCE_LISTS_ALL_BG.public_flag%TYPE,
13: p_group_resource_type_id NUMBER,
14: p_start_date_active DATE,
15: p_end_date_active DATE,
16: p_uncategorized_flag PA_RESOURCE_LISTS_ALL_BG.uncategorized_flag%TYPE,
12: p_public_flag PA_RESOURCE_LISTS_ALL_BG.public_flag%TYPE,
13: p_group_resource_type_id NUMBER,
14: p_start_date_active DATE,
15: p_end_date_active DATE,
16: p_uncategorized_flag PA_RESOURCE_LISTS_ALL_BG.uncategorized_flag%TYPE,
17: p_business_group_id NUMBER,
18: p_adw_notify_flag PA_RESOURCE_LISTS_ALL_BG.adw_notify_flag%TYPE,
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
14: p_start_date_active DATE,
15: p_end_date_active DATE,
16: p_uncategorized_flag PA_RESOURCE_LISTS_ALL_BG.uncategorized_flag%TYPE,
17: p_business_group_id NUMBER,
18: p_adw_notify_flag PA_RESOURCE_LISTS_ALL_BG.adw_notify_flag%TYPE,
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
21: p_control_flag PA_RESOURCE_LISTS_ALL_BG.control_flag%TYPE,
22: p_use_for_wp_flag PA_RESOURCE_LISTS_ALL_BG.use_for_wp_flag%TYPE,
16: p_uncategorized_flag PA_RESOURCE_LISTS_ALL_BG.uncategorized_flag%TYPE,
17: p_business_group_id NUMBER,
18: p_adw_notify_flag PA_RESOURCE_LISTS_ALL_BG.adw_notify_flag%TYPE,
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
21: p_control_flag PA_RESOURCE_LISTS_ALL_BG.control_flag%TYPE,
22: p_use_for_wp_flag PA_RESOURCE_LISTS_ALL_BG.use_for_wp_flag%TYPE,
23: p_migration_code PA_RESOURCE_LISTS_ALL_BG.migration_code%TYPE,
24: p_Enable_Resource_Classes IN VARCHAR2 DEFAULT 'Y', -- Added for CBS Bug13535688
17: p_business_group_id NUMBER,
18: p_adw_notify_flag PA_RESOURCE_LISTS_ALL_BG.adw_notify_flag%TYPE,
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
21: p_control_flag PA_RESOURCE_LISTS_ALL_BG.control_flag%TYPE,
22: p_use_for_wp_flag PA_RESOURCE_LISTS_ALL_BG.use_for_wp_flag%TYPE,
23: p_migration_code PA_RESOURCE_LISTS_ALL_BG.migration_code%TYPE,
24: p_Enable_Resource_Classes IN VARCHAR2 DEFAULT 'Y', -- Added for CBS Bug13535688
25: x_resource_list_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
18: p_adw_notify_flag PA_RESOURCE_LISTS_ALL_BG.adw_notify_flag%TYPE,
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
21: p_control_flag PA_RESOURCE_LISTS_ALL_BG.control_flag%TYPE,
22: p_use_for_wp_flag PA_RESOURCE_LISTS_ALL_BG.use_for_wp_flag%TYPE,
23: p_migration_code PA_RESOURCE_LISTS_ALL_BG.migration_code%TYPE,
24: p_Enable_Resource_Classes IN VARCHAR2 DEFAULT 'Y', -- Added for CBS Bug13535688
25: x_resource_list_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
26: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
19: p_job_group_id NUMBER,
20: p_resource_list_type PA_RESOURCE_LISTS_ALL_BG.resource_list_type%TYPE,
21: p_control_flag PA_RESOURCE_LISTS_ALL_BG.control_flag%TYPE,
22: p_use_for_wp_flag PA_RESOURCE_LISTS_ALL_BG.use_for_wp_flag%TYPE,
23: p_migration_code PA_RESOURCE_LISTS_ALL_BG.migration_code%TYPE,
24: p_Enable_Resource_Classes IN VARCHAR2 DEFAULT 'Y', -- Added for CBS Bug13535688
25: x_resource_list_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
26: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
27: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
29: IS
30:
31: l_row_id VARCHAR2(100);
32:
33: --This cursor selects rowid from pa_resource_lists_all_bg
34: CURSOR c_res_cur IS
35: SELECT
36: Rowid
37: FROM
34: CURSOR c_res_cur IS
35: SELECT
36: Rowid
37: FROM
38: pa_resource_lists_all_bg
39: WHERE resource_list_id = x_resource_list_id;
40:
41: --This sets the value for resource_list_id of pa_resource_lists_all_bg fro pa_resource_lists_s sequence
42: CURSOR c_res_list_seq_csr IS
37: FROM
38: pa_resource_lists_all_bg
39: WHERE resource_list_id = x_resource_list_id;
40:
41: --This sets the value for resource_list_id of pa_resource_lists_all_bg fro pa_resource_lists_s sequence
42: CURSOR c_res_list_seq_csr IS
43: SELECT pa_resource_lists_s.NEXTVAL
44: FROM
45: SYS.DUAL;
52: FETCH c_res_list_seq_csr INTO X_RESOURCE_LIST_ID;
53: CLOSE c_res_list_seq_csr;
54:
55:
56: --Inserts a record into pa_resource_lists_all_bg
57: Insert Into PA_RESOURCE_LISTS_ALL_BG
58: (
59: RESOURCE_LIST_ID,
60: NAME,
53: CLOSE c_res_list_seq_csr;
54:
55:
56: --Inserts a record into pa_resource_lists_all_bg
57: Insert Into PA_RESOURCE_LISTS_ALL_BG
58: (
59: RESOURCE_LIST_ID,
60: NAME,
61: DESCRIPTION,
143: CURSOR RES_CUR IS
144: Select
145: Rowid
146: from
147: PA_RESOURCE_LISTS_ALL_BG
148: Where Resource_List_Id = X_Resource_List_Id;
149: BEGIN
150: Insert Into PA_RESOURCE_LISTS_ALL_BG
151: (
146: from
147: PA_RESOURCE_LISTS_ALL_BG
148: Where Resource_List_Id = X_Resource_List_Id;
149: BEGIN
150: Insert Into PA_RESOURCE_LISTS_ALL_BG
151: (
152: RESOURCE_LIST_ID,
153: NAME ,
154: DESCRIPTION ,
260: X_LAST_UPDATE_DATE DATE,
261: X_LAST_UPDATE_LOGIN NUMBER ) IS
262: BEGIN
263:
264: Update PA_RESOURCE_LISTS_ALL_BG
265: SET
266: -- For bug 4202015
267: -- RESOURCE_LIST_ID = X_RESOURCE_LIST_ID ,
268: NAME = X_NAME ,
315: -- X_ADW_NOTIFY_FLAG VARCHAR2,
316: X_LAST_UPDATED_BY NUMBER) IS
317:
318: CURSOR C Is
319: Select * From PA_RESOURCE_LISTS_ALL_BG WHERE ROWID = X_ROW_ID
320: For Update of RESOURCE_LIST_ID NOWAIT;
321: Recinfo C%ROWTYPE;
322: Begin
323: --hr_utility.trace_on(NULL, 'RMUPG');
375: Begin
376:
377: delete from pa_resource_lists_tl
378: where resource_list_id in (select resource_list_id
379: from PA_RESOURCE_LISTS_ALL_BG
380: Where RowId = X_Row_Id);
381:
382: Delete from PA_RESOURCE_LISTS_ALL_BG Where RowId = X_Row_Id;
383: If SQL%NOTFOUND Then
378: where resource_list_id in (select resource_list_id
379: from PA_RESOURCE_LISTS_ALL_BG
380: Where RowId = X_Row_Id);
381:
382: Delete from PA_RESOURCE_LISTS_ALL_BG Where RowId = X_Row_Id;
383: If SQL%NOTFOUND Then
384: Raise NO_DATA_FOUND;
385: End If;
386: