174:
175: --
176: -- Open Cursor for Processing Sql statment.
177: --
178: l_sql_cursor := dbms_sql.open_cursor;
179: --
180: -- Parse SQL statement.
181: --
182: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
178: l_sql_cursor := dbms_sql.open_cursor;
179: --
180: -- Parse SQL statement.
181: --
182: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
183: --
184: -- Map the local variables to each returned Column
185: --
186: dbms_sql.define_column(l_sql_cursor, 1, l_set_of_books_id);
182: dbms_sql.parse(l_sql_cursor, l_sql_text, dbms_sql.v7);
183: --
184: -- Map the local variables to each returned Column
185: --
186: dbms_sql.define_column(l_sql_cursor, 1, l_set_of_books_id);
187: dbms_sql.define_column(l_sql_cursor,2, X_expense_check_to_address,30);
188: --
189: -- Execute the SQL statement.
190: --
183: --
184: -- Map the local variables to each returned Column
185: --
186: dbms_sql.define_column(l_sql_cursor, 1, l_set_of_books_id);
187: dbms_sql.define_column(l_sql_cursor,2, X_expense_check_to_address,30);
188: --
189: -- Execute the SQL statement.
190: --
191: l_rows_fetched := dbms_sql.EXECUTE(l_sql_cursor);
187: dbms_sql.define_column(l_sql_cursor,2, X_expense_check_to_address,30);
188: --
189: -- Execute the SQL statement.
190: --
191: l_rows_fetched := dbms_sql.EXECUTE(l_sql_cursor);
192: --
193: --
194: l_rows := dbms_sql.fetch_rows(l_sql_cursor);
195: --
190: --
191: l_rows_fetched := dbms_sql.EXECUTE(l_sql_cursor);
192: --
193: --
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');
204: THEN
205: --
206: -- Extract the select list for the current row into local variables.
207: --
208: dbms_sql.column_value(l_sql_cursor, 1, l_set_of_books_id);
209: dbms_sql.column_value(l_sql_cursor, 2, X_expense_check_to_address);
210: END IF;
211: --
212: -- Close cursor used for processing SQL statement.
205: --
206: -- Extract the select list for the current row into local variables.
207: --
208: dbms_sql.column_value(l_sql_cursor, 1, l_set_of_books_id);
209: dbms_sql.column_value(l_sql_cursor, 2, X_expense_check_to_address);
210: END IF;
211: --
212: -- Close cursor used for processing SQL statement.
213: --
210: END IF;
211: --
212: -- Close cursor used for processing SQL statement.
213: --
214: dbms_sql.close_cursor(l_sql_cursor);
215: END;
216: END IF;
217: --
218: --