DBA Data[Home] [Help]

APPS.XTR_MISC_P dependencies on DBMS_SQL

Line 21: -- 1. Build a cursor (using dbms_sql.parse,dbms_sql.define_column packages etc) comprising the following

17:
18:
19: -- KEY PROCESS POINTS
20: -- The process below will
21: -- 1. Build a cursor (using dbms_sql.parse,dbms_sql.define_column packages etc) comprising the following
22: -- - table name for the event passed in (refer cursor c_get_table_name below)
23: -- - all columns for the event passed in (refer cursor c_get_columns below)
24: -- Therefore we end up building a cursor for the required table and columns as setup in PRO0095
25: --

Line 148: -- Now set up dbms_sql cursor

144: END IF;
145: END LOOP;
146: v_sql := v_sql||'1,2,3'; -- Add B/A, "updated_on, updated_by" to SORT BY clause
147: --
148: -- Now set up dbms_sql cursor
149: --
150: v_cursor := dbms_sql.open_cursor;
151: dbms_sql.parse(v_cursor,v_sql,native);
152: --

Line 150: v_cursor := dbms_sql.open_cursor;

146: v_sql := v_sql||'1,2,3'; -- Add B/A, "updated_on, updated_by" to SORT BY clause
147: --
148: -- Now set up dbms_sql cursor
149: --
150: v_cursor := dbms_sql.open_cursor;
151: dbms_sql.parse(v_cursor,v_sql,native);
152: --
153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);

Line 151: dbms_sql.parse(v_cursor,v_sql,native);

147: --
148: -- Now set up dbms_sql cursor
149: --
150: v_cursor := dbms_sql.open_cursor;
151: dbms_sql.parse(v_cursor,v_sql,native);
152: --
153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);

Line 153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);

149: --
150: v_cursor := dbms_sql.open_cursor;
151: dbms_sql.parse(v_cursor,v_sql,native);
152: --
153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
156: -- Its weird how come this next bit works !!??
157: FOR v_counter IN 1..v_num_col LOOP

Line 154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);

150: v_cursor := dbms_sql.open_cursor;
151: dbms_sql.parse(v_cursor,v_sql,native);
152: --
153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
156: -- Its weird how come this next bit works !!??
157: FOR v_counter IN 1..v_num_col LOOP
158: dbms_sql.define_column( v_cursor, v_counter+3, v_var1, 100);

Line 155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);

151: dbms_sql.parse(v_cursor,v_sql,native);
152: --
153: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
156: -- Its weird how come this next bit works !!??
157: FOR v_counter IN 1..v_num_col LOOP
158: dbms_sql.define_column( v_cursor, v_counter+3, v_var1, 100);
159: END LOOP;

Line 158: dbms_sql.define_column( v_cursor, v_counter+3, v_var1, 100);

154: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
155: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
156: -- Its weird how come this next bit works !!??
157: FOR v_counter IN 1..v_num_col LOOP
158: dbms_sql.define_column( v_cursor, v_counter+3, v_var1, 100);
159: END LOOP;
160: --
161: v_rows_processed := dbms_sql.execute( v_cursor );
162: --

Line 161: v_rows_processed := dbms_sql.execute( v_cursor );

157: FOR v_counter IN 1..v_num_col LOOP
158: dbms_sql.define_column( v_cursor, v_counter+3, v_var1, 100);
159: END LOOP;
160: --
161: v_rows_processed := dbms_sql.execute( v_cursor );
162: --
163: -- Now loop through records in cursor. This is the **** MAIN LOOP ******
164: --
165: v_rec_num := 1;

Line 167: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1; -- Exit when no more rows

163: -- Now loop through records in cursor. This is the **** MAIN LOOP ******
164: --
165: v_rec_num := 1;
166: LOOP
167: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1; -- Exit when no more rows
168: dbms_sql.column_value(v_cursor,1,v_new_letter);
169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
171: FOR v_counter IN 1..v_num_col LOOP

Line 168: dbms_sql.column_value(v_cursor,1,v_new_letter);

164: --
165: v_rec_num := 1;
166: LOOP
167: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1; -- Exit when no more rows
168: dbms_sql.column_value(v_cursor,1,v_new_letter);
169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
171: FOR v_counter IN 1..v_num_col LOOP
172: -- Place fetched column into v_new array

Line 169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);

165: v_rec_num := 1;
166: LOOP
167: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1; -- Exit when no more rows
168: dbms_sql.column_value(v_cursor,1,v_new_letter);
169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
171: FOR v_counter IN 1..v_num_col LOOP
172: -- Place fetched column into v_new array
173: dbms_sql.column_value(v_cursor,v_counter + 3,v_var1);

Line 170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);

166: LOOP
167: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1; -- Exit when no more rows
168: dbms_sql.column_value(v_cursor,1,v_new_letter);
169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
171: FOR v_counter IN 1..v_num_col LOOP
172: -- Place fetched column into v_new array
173: dbms_sql.column_value(v_cursor,v_counter + 3,v_var1);
174: v_new(v_counter) := v_var1;

Line 173: dbms_sql.column_value(v_cursor,v_counter + 3,v_var1);

169: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
170: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
171: FOR v_counter IN 1..v_num_col LOOP
172: -- Place fetched column into v_new array
173: dbms_sql.column_value(v_cursor,v_counter + 3,v_var1);
174: v_new(v_counter) := v_var1;
175: END LOOP;
176: --
177: -- Analyse differences (if this is not the first record fetched) ...

Line 236: dbms_sql.close_cursor(v_cursor);

232: v_old(v_counter) := v_new(v_counter);
233: END LOOP;
234: v_rec_num := v_rec_num + 1;
235: END LOOP;
236: dbms_sql.close_cursor(v_cursor);
237: --
238: exception
239: when ex_error then
240: null;