83:
84: hr_utility.set_location(' Entering:'|| l_proc, 5);
85:
86: --
87: l_dyn_curs := dbms_sql.open_cursor;
88: --
89: -- Determine if the OTA_TRAINING_PLANS table exists
90: --
91: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
87: l_dyn_curs := dbms_sql.open_cursor;
88: --
89: -- Determine if the OTA_TRAINING_PLANS table exists
90: --
91: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
92: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
93: --
94: if dbms_sql.last_row_count > 0
95: then
88: --
89: -- Determine if the OTA_TRAINING_PLANS table exists
90: --
91: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
92: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
93: --
94: if dbms_sql.last_row_count > 0
95: then
96: -- Check if the training plan is referenced in training plans table
90: --
91: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
92: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
93: --
94: if dbms_sql.last_row_count > 0
95: then
96: -- Check if the training plan is referenced in training plans table
97: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
98: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
93: --
94: if dbms_sql.last_row_count > 0
95: then
96: -- Check if the training plan is referenced in training plans table
97: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
98: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
99: --
100: if dbms_sql.last_row_count < 1 then
101: dbms_sql.close_cursor(l_dyn_curs);
94: if dbms_sql.last_row_count > 0
95: then
96: -- Check if the training plan is referenced in training plans table
97: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
98: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
99: --
100: if dbms_sql.last_row_count < 1 then
101: dbms_sql.close_cursor(l_dyn_curs);
102: hr_utility.set_message(800,'PER_52877_TPID_NOT_EXISTS');
96: -- Check if the training plan is referenced in training plans table
97: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
98: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
99: --
100: if dbms_sql.last_row_count < 1 then
101: dbms_sql.close_cursor(l_dyn_curs);
102: hr_utility.set_message(800,'PER_52877_TPID_NOT_EXISTS');
103: hr_utility.raise_error;
104: end if;
97: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
98: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
99: --
100: if dbms_sql.last_row_count < 1 then
101: dbms_sql.close_cursor(l_dyn_curs);
102: hr_utility.set_message(800,'PER_52877_TPID_NOT_EXISTS');
103: hr_utility.raise_error;
104: end if;
105: end if;
102: hr_utility.set_message(800,'PER_52877_TPID_NOT_EXISTS');
103: hr_utility.raise_error;
104: end if;
105: end if;
106: if dbms_sql.is_open(l_dyn_curs) then
107: dbms_sql.close_cursor(l_dyn_curs);
108: end if;
109: --
110: hr_utility.set_location(' Leaving:'|| l_proc, 10);
103: hr_utility.raise_error;
104: end if;
105: end if;
106: if dbms_sql.is_open(l_dyn_curs) then
107: dbms_sql.close_cursor(l_dyn_curs);
108: end if;
109: --
110: hr_utility.set_location(' Leaving:'|| l_proc, 10);
111: --
150: --
151: hr_utility.set_location('Entering:'||l_proc, 5);
152:
153: --
154: l_dyn_curs := dbms_sql.open_cursor;
155: --
156: -- Determine if the OTA_TRAINING_PLAN_MEMBERS table exists
157: --
158: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
154: l_dyn_curs := dbms_sql.open_cursor;
155: --
156: -- Determine if the OTA_TRAINING_PLAN_MEMBERS table exists
157: --
158: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
159: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
160: --
161: if dbms_sql.last_row_count > 0 then
162: -- Check that the training plan member record exists
155: --
156: -- Determine if the OTA_TRAINING_PLAN_MEMBERS table exists
157: --
158: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
159: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
160: --
161: if dbms_sql.last_row_count > 0 then
162: -- Check that the training plan member record exists
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
157: --
158: dbms_sql.parse(l_dyn_curs,l_stmt_chk_tpc_exist,dbms_sql.v7);
159: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
160: --
161: if dbms_sql.last_row_count > 0 then
162: -- Check that the training plan member record exists
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
164: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
165: --
159: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
160: --
161: if dbms_sql.last_row_count > 0 then
162: -- Check that the training plan member record exists
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
164: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
165: --
166: if dbms_sql.last_row_count < 1 then
167: dbms_sql.close_cursor(l_dyn_curs);
160: --
161: if dbms_sql.last_row_count > 0 then
162: -- Check that the training plan member record exists
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
164: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
165: --
166: if dbms_sql.last_row_count < 1 then
167: dbms_sql.close_cursor(l_dyn_curs);
168: hr_utility.set_message(800,'PER_52878_TPMID_NOT_EXISTS');
162: -- Check that the training plan member record exists
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
164: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
165: --
166: if dbms_sql.last_row_count < 1 then
167: dbms_sql.close_cursor(l_dyn_curs);
168: hr_utility.set_message(800,'PER_52878_TPMID_NOT_EXISTS');
169: hr_utility.raise_error;
170: end if;
163: dbms_sql.parse(l_dyn_curs,l_stmt_get_tpc_rows,dbms_sql.v7);
164: l_dyn_rows := dbms_sql.execute_and_fetch(l_dyn_curs);
165: --
166: if dbms_sql.last_row_count < 1 then
167: dbms_sql.close_cursor(l_dyn_curs);
168: hr_utility.set_message(800,'PER_52878_TPMID_NOT_EXISTS');
169: hr_utility.raise_error;
170: end if;
171: end if;
168: hr_utility.set_message(800,'PER_52878_TPMID_NOT_EXISTS');
169: hr_utility.raise_error;
170: end if;
171: end if;
172: if dbms_sql.is_open(l_dyn_curs) then
173: dbms_sql.close_cursor(l_dyn_curs);
174: end if;
175: --
176: hr_utility.set_location(' Leaving:'|| l_proc, 10);
169: hr_utility.raise_error;
170: end if;
171: end if;
172: if dbms_sql.is_open(l_dyn_curs) then
173: dbms_sql.close_cursor(l_dyn_curs);
174: end if;
175: --
176: hr_utility.set_location(' Leaving:'|| l_proc, 10);
177: --