240: l_select_statement := l_select_statement || 'NULL)';
241: ELSE
242: l_select_statement := l_select_statement || ')';
243:
244: l_cursor_num := DBMS_SQL.OPEN_CURSOR;
245:
246: DBMS_SQL.PARSE(l_cursor_num, l_select_statement, DBMS_SQL.V7);
247: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 1, l_short_name, 80);
248: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 2, l_event_id);
242: l_select_statement := l_select_statement || ')';
243:
244: l_cursor_num := DBMS_SQL.OPEN_CURSOR;
245:
246: DBMS_SQL.PARSE(l_cursor_num, l_select_statement, DBMS_SQL.V7);
247: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 1, l_short_name, 80);
248: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 2, l_event_id);
249:
250: l_dummy := DBMS_SQL.EXECUTE(l_cursor_num);
243:
244: l_cursor_num := DBMS_SQL.OPEN_CURSOR;
245:
246: DBMS_SQL.PARSE(l_cursor_num, l_select_statement, DBMS_SQL.V7);
247: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 1, l_short_name, 80);
248: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 2, l_event_id);
249:
250: l_dummy := DBMS_SQL.EXECUTE(l_cursor_num);
251:
244: l_cursor_num := DBMS_SQL.OPEN_CURSOR;
245:
246: DBMS_SQL.PARSE(l_cursor_num, l_select_statement, DBMS_SQL.V7);
247: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 1, l_short_name, 80);
248: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 2, l_event_id);
249:
250: l_dummy := DBMS_SQL.EXECUTE(l_cursor_num);
251:
252: END IF;
246: DBMS_SQL.PARSE(l_cursor_num, l_select_statement, DBMS_SQL.V7);
247: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 1, l_short_name, 80);
248: DBMS_SQL.DEFINE_COLUMN(l_cursor_num, 2, l_event_id);
249:
250: l_dummy := DBMS_SQL.EXECUTE(l_cursor_num);
251:
252: END IF;
253:
254: LOOP
251:
252: END IF;
253:
254: LOOP
255: IF DBMS_SQL.FETCH_ROWS(l_cursor_num) = 0 THEN
256: EXIT;
257: END IF;
258:
259: DBMS_SQL.COLUMN_VALUE(l_cursor_num, 1, l_short_name );
255: IF DBMS_SQL.FETCH_ROWS(l_cursor_num) = 0 THEN
256: EXIT;
257: END IF;
258:
259: DBMS_SQL.COLUMN_VALUE(l_cursor_num, 1, l_short_name );
260: DBMS_SQL.COLUMN_VALUE(l_cursor_num, 2, l_event_id );
261:
262: UPDATE pay_trigger_components
263: SET enabled_flag = 'Y'
256: EXIT;
257: END IF;
258:
259: DBMS_SQL.COLUMN_VALUE(l_cursor_num, 1, l_short_name );
260: DBMS_SQL.COLUMN_VALUE(l_cursor_num, 2, l_event_id );
261:
262: UPDATE pay_trigger_components
263: SET enabled_flag = 'Y'
264: WHERE event_id = l_event_id;