eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.RG_XFER_UTILS_PKG dependencies on DBMS_SQL

Line 290: CursorId := DBMS_SQL.open_cursor;

286: CursorId INTEGER;
287: ExecuteValue INTEGER;
288: BEGIN
289: -- select using the database link
290: CursorId := DBMS_SQL.open_cursor;
291: DBMS_SQL.parse(CursorId,
292: 'SELECT 1 FROM DUAL@'|| LinkName,
293: DBMS_SQL.v7);
294: ExecuteValue := DBMS_SQL.execute(CursorId);

Line 291: DBMS_SQL.parse(CursorId,

287: ExecuteValue INTEGER;
288: BEGIN
289: -- select using the database link
290: CursorId := DBMS_SQL.open_cursor;
291: DBMS_SQL.parse(CursorId,
292: 'SELECT 1 FROM DUAL@'|| LinkName,
293: DBMS_SQL.v7);
294: ExecuteValue := DBMS_SQL.execute(CursorId);
295: DBMS_SQL.close_cursor(CursorId);

Line 293: DBMS_SQL.v7);

289: -- select using the database link
290: CursorId := DBMS_SQL.open_cursor;
291: DBMS_SQL.parse(CursorId,
292: 'SELECT 1 FROM DUAL@'|| LinkName,
293: DBMS_SQL.v7);
294: ExecuteValue := DBMS_SQL.execute(CursorId);
295: DBMS_SQL.close_cursor(CursorId);
296: RETURN(TRUE);
297: EXCEPTION

Line 294: ExecuteValue := DBMS_SQL.execute(CursorId);

290: CursorId := DBMS_SQL.open_cursor;
291: DBMS_SQL.parse(CursorId,
292: 'SELECT 1 FROM DUAL@'|| LinkName,
293: DBMS_SQL.v7);
294: ExecuteValue := DBMS_SQL.execute(CursorId);
295: DBMS_SQL.close_cursor(CursorId);
296: RETURN(TRUE);
297: EXCEPTION
298: WHEN OTHERS THEN

Line 295: DBMS_SQL.close_cursor(CursorId);

291: DBMS_SQL.parse(CursorId,
292: 'SELECT 1 FROM DUAL@'|| LinkName,
293: DBMS_SQL.v7);
294: ExecuteValue := DBMS_SQL.execute(CursorId);
295: DBMS_SQL.close_cursor(CursorId);
296: RETURN(TRUE);
297: EXCEPTION
298: WHEN OTHERS THEN
299: RETURN(FALSE);

Line 327: CursorId := DBMS_SQL.open_cursor;

323: PRAGMA EXCEPTION_INIT(insufficient_priv, -1031);
324:
325: BEGIN
326: -- create the database link
327: CursorId := DBMS_SQL.open_cursor;
328: DBMS_SQL.parse(CursorId,
329: 'CREATE DATABASE LINK '|| LinkName ||
330: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
331: ' USING '''|| ConnectString ||'''',

Line 328: DBMS_SQL.parse(CursorId,

324:
325: BEGIN
326: -- create the database link
327: CursorId := DBMS_SQL.open_cursor;
328: DBMS_SQL.parse(CursorId,
329: 'CREATE DATABASE LINK '|| LinkName ||
330: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
331: ' USING '''|| ConnectString ||'''',
332: DBMS_SQL.v7);

Line 332: DBMS_SQL.v7);

328: DBMS_SQL.parse(CursorId,
329: 'CREATE DATABASE LINK '|| LinkName ||
330: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
331: ' USING '''|| ConnectString ||'''',
332: DBMS_SQL.v7);
333: ExecuteValue := DBMS_SQL.execute(CursorId);
334: DBMS_SQL.close_cursor(CursorId);
335: IF NOT ping_link(LinkName) THEN
336: /* Try to drop the link; ignore return value */

Line 333: ExecuteValue := DBMS_SQL.execute(CursorId);

329: 'CREATE DATABASE LINK '|| LinkName ||
330: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
331: ' USING '''|| ConnectString ||'''',
332: DBMS_SQL.v7);
333: ExecuteValue := DBMS_SQL.execute(CursorId);
334: DBMS_SQL.close_cursor(CursorId);
335: IF NOT ping_link(LinkName) THEN
336: /* Try to drop the link; ignore return value */
337: TempVal := drop_link(LinkName);

Line 334: DBMS_SQL.close_cursor(CursorId);

330: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
331: ' USING '''|| ConnectString ||'''',
332: DBMS_SQL.v7);
333: ExecuteValue := DBMS_SQL.execute(CursorId);
334: DBMS_SQL.close_cursor(CursorId);
335: IF NOT ping_link(LinkName) THEN
336: /* Try to drop the link; ignore return value */
337: TempVal := drop_link(LinkName);
338: RETURN(0);

Line 368: CursorId := DBMS_SQL.open_cursor;

364: link_not_found EXCEPTION;
365: PRAGMA EXCEPTION_INIT(link_not_found, -2024);
366: BEGIN
367: -- drop the database link
368: CursorId := DBMS_SQL.open_cursor;
369: DBMS_SQL.parse(CursorId,
370: 'DROP DATABASE LINK '|| LinkName,
371: DBMS_SQL.v7);
372: ExecuteValue := DBMS_SQL.execute(CursorId);

Line 369: DBMS_SQL.parse(CursorId,

365: PRAGMA EXCEPTION_INIT(link_not_found, -2024);
366: BEGIN
367: -- drop the database link
368: CursorId := DBMS_SQL.open_cursor;
369: DBMS_SQL.parse(CursorId,
370: 'DROP DATABASE LINK '|| LinkName,
371: DBMS_SQL.v7);
372: ExecuteValue := DBMS_SQL.execute(CursorId);
373: DBMS_SQL.close_cursor(CursorId);

Line 371: DBMS_SQL.v7);

367: -- drop the database link
368: CursorId := DBMS_SQL.open_cursor;
369: DBMS_SQL.parse(CursorId,
370: 'DROP DATABASE LINK '|| LinkName,
371: DBMS_SQL.v7);
372: ExecuteValue := DBMS_SQL.execute(CursorId);
373: DBMS_SQL.close_cursor(CursorId);
374: RETURN(TRUE);
375: EXCEPTION

Line 372: ExecuteValue := DBMS_SQL.execute(CursorId);

368: CursorId := DBMS_SQL.open_cursor;
369: DBMS_SQL.parse(CursorId,
370: 'DROP DATABASE LINK '|| LinkName,
371: DBMS_SQL.v7);
372: ExecuteValue := DBMS_SQL.execute(CursorId);
373: DBMS_SQL.close_cursor(CursorId);
374: RETURN(TRUE);
375: EXCEPTION
376: WHEN link_not_found THEN

Line 373: DBMS_SQL.close_cursor(CursorId);

369: DBMS_SQL.parse(CursorId,
370: 'DROP DATABASE LINK '|| LinkName,
371: DBMS_SQL.v7);
372: ExecuteValue := DBMS_SQL.execute(CursorId);
373: DBMS_SQL.close_cursor(CursorId);
374: RETURN(TRUE);
375: EXCEPTION
376: WHEN link_not_found THEN
377: RETURN(FALSE);

Line 456: CursorId := DBMS_SQL.open_cursor;

452: copy_adjust_string(ComponentName, CompName);
453: SQLString := 'SELECT ' || IdName || ' FROM ' || TableName||'@'||G_LinkName ||
454: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
455: display_string(SQLString);
456: CursorId := DBMS_SQL.open_cursor;
457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);

Line 457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

453: SQLString := 'SELECT ' || IdName || ' FROM ' || TableName||'@'||G_LinkName ||
454: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
455: display_string(SQLString);
456: CursorId := DBMS_SQL.open_cursor;
457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);
461: DBMS_SQL.close_cursor(CursorId);

Line 458: DBMS_SQL.define_column(CursorId, 1, Id);

454: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
455: display_string(SQLString);
456: CursorId := DBMS_SQL.open_cursor;
457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);
461: DBMS_SQL.close_cursor(CursorId);
462: RETURN(Id);

Line 459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

455: display_string(SQLString);
456: CursorId := DBMS_SQL.open_cursor;
457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);
461: DBMS_SQL.close_cursor(CursorId);
462: RETURN(Id);
463: END get_source_id;

Line 460: DBMS_SQL.column_value(CursorId, 1, Id);

456: CursorId := DBMS_SQL.open_cursor;
457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);
461: DBMS_SQL.close_cursor(CursorId);
462: RETURN(Id);
463: END get_source_id;
464:

Line 461: DBMS_SQL.close_cursor(CursorId);

457: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
458: DBMS_SQL.define_column(CursorId, 1, Id);
459: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
460: DBMS_SQL.column_value(CursorId, 1, Id);
461: DBMS_SQL.close_cursor(CursorId);
462: RETURN(Id);
463: END get_source_id;
464:
465:

Line 480: CursorId := DBMS_SQL.open_cursor;

476: SQLString VARCHAR2(100);
477: BEGIN
478: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
479: display_string(SQLString);
480: CursorId := DBMS_SQL.open_cursor;
481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);

Line 481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

477: BEGIN
478: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
479: display_string(SQLString);
480: CursorId := DBMS_SQL.open_cursor;
481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);
485: DBMS_SQL.close_cursor(CursorId);

Line 482: DBMS_SQL.define_column(CursorId, 1, Id);

478: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
479: display_string(SQLString);
480: CursorId := DBMS_SQL.open_cursor;
481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);
485: DBMS_SQL.close_cursor(CursorId);
486: RETURN(Id);

Line 483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

479: display_string(SQLString);
480: CursorId := DBMS_SQL.open_cursor;
481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);
485: DBMS_SQL.close_cursor(CursorId);
486: RETURN(Id);
487: END get_new_id;

Line 484: DBMS_SQL.column_value(CursorId, 1, Id);

480: CursorId := DBMS_SQL.open_cursor;
481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);
485: DBMS_SQL.close_cursor(CursorId);
486: RETURN(Id);
487: END get_new_id;
488:

Line 485: DBMS_SQL.close_cursor(CursorId);

481: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
482: DBMS_SQL.define_column(CursorId, 1, Id);
483: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
484: DBMS_SQL.column_value(CursorId, 1, Id);
485: DBMS_SQL.close_cursor(CursorId);
486: RETURN(Id);
487: END get_new_id;
488:
489:

Line 532: CursorId := DBMS_SQL.open_cursor;

528: ' AND main_table.application_id = '|| TO_CHAR(G_ApplId);
529: END IF;
530:
531: display_string(SQLString);
532: CursorId := DBMS_SQL.open_cursor;
533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
536: IF (ExecuteValue > 0) THEN

Line 533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

529: END IF;
530:
531: display_string(SQLString);
532: CursorId := DBMS_SQL.open_cursor;
533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
536: IF (ExecuteValue > 0) THEN
537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);

Line 534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);

530:
531: display_string(SQLString);
532: CursorId := DBMS_SQL.open_cursor;
533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
536: IF (ExecuteValue > 0) THEN
537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
538: ELSE

Line 535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

531: display_string(SQLString);
532: CursorId := DBMS_SQL.open_cursor;
533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
536: IF (ExecuteValue > 0) THEN
537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
538: ELSE
539: RefObjectName := '';

Line 537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);

533: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
534: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
535: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
536: IF (ExecuteValue > 0) THEN
537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
538: ELSE
539: RefObjectName := '';
540: END IF;
541: DBMS_SQL.close_cursor(CursorId);

Line 541: DBMS_SQL.close_cursor(CursorId);

537: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
538: ELSE
539: RefObjectName := '';
540: END IF;
541: DBMS_SQL.close_cursor(CursorId);
542: RETURN(RefObjectName);
543: END get_source_ref_object_name;
544:
545:

Line 573: CursorId := DBMS_SQL.open_cursor;

569: ' WHERE l.'|| IdColumnName || '=' || TO_CHAR(IdValue) ||
570: ' AND l.' || NameColumn || '= t.' || NameColumn;
571: display_string(SQLString);
572:
573: CursorId := DBMS_SQL.open_cursor;
574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

Line 574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

570: ' AND l.' || NameColumn || '= t.' || NameColumn;
571: display_string(SQLString);
572:
573: CursorId := DBMS_SQL.open_cursor;
574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN

Line 575: DBMS_SQL.define_column(CursorId, 1, Id);

571: display_string(SQLString);
572:
573: CursorId := DBMS_SQL.open_cursor;
574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN
579: DBMS_SQL.column_value(CursorId, 1, Id);

Line 576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);

572:
573: CursorId := DBMS_SQL.open_cursor;
574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN
579: DBMS_SQL.column_value(CursorId, 1, Id);
580: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

Line 577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

573: CursorId := DBMS_SQL.open_cursor;
574: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN
579: DBMS_SQL.column_value(CursorId, 1, Id);
580: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
581: ELSE

Line 579: DBMS_SQL.column_value(CursorId, 1, Id);

575: DBMS_SQL.define_column(CursorId, 1, Id);
576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN
579: DBMS_SQL.column_value(CursorId, 1, Id);
580: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
581: ELSE
582: Id := G_Error;
583:

Line 580: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

576: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
577: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
578: IF (ExecuteValue > 0) THEN
579: DBMS_SQL.column_value(CursorId, 1, Id);
580: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
581: ELSE
582: Id := G_Error;
583:
584: /* Get the parameter name from the source database table since it doesn't

Line 586: DBMS_SQL.close_cursor(CursorId);

582: Id := G_Error;
583:
584: /* Get the parameter name from the source database table since it doesn't
585: * exist in the target database table */
586: DBMS_SQL.close_cursor(CursorId);
587:
588: SQLString := 'SELECT ' || NameColumn ||
589: ' FROM ' || TableName||'@'||G_LinkName ||
590: ' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);

Line 593: CursorId := DBMS_SQL.open_cursor;

589: ' FROM ' || TableName||'@'||G_LinkName ||
590: ' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);
591: display_string(SQLString);
592:
593: CursorId := DBMS_SQL.open_cursor;
594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
597: IF (ExecuteValue > 0) THEN

Line 594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

590: ' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);
591: display_string(SQLString);
592:
593: CursorId := DBMS_SQL.open_cursor;
594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
597: IF (ExecuteValue > 0) THEN
598: DBMS_SQL.column_value(CursorId, 1, SourceIdName);

Line 595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);

591: display_string(SQLString);
592:
593: CursorId := DBMS_SQL.open_cursor;
594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
597: IF (ExecuteValue > 0) THEN
598: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
599: ELSE

Line 596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

592:
593: CursorId := DBMS_SQL.open_cursor;
594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
597: IF (ExecuteValue > 0) THEN
598: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
599: ELSE
600: SourceIdName := NULL;

Line 598: DBMS_SQL.column_value(CursorId, 1, SourceIdName);

594: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
595: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
596: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
597: IF (ExecuteValue > 0) THEN
598: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
599: ELSE
600: SourceIdName := NULL;
601: END IF;
602:

Line 604: DBMS_SQL.close_cursor(CursorId);

600: SourceIdName := NULL;
601: END IF;
602:
603: END IF;
604: DBMS_SQL.close_cursor(CursorId);
605: IdValue := Id;
606: IdName := SourceIdName;
607: END get_target_id_from_source_id;
608:

Line 645: CursorId := DBMS_SQL.open_cursor;

641: ' AND l.TARGET_CURRENCY_CODE = ''' || LedgerCurrency ||
642: ''' AND l.TARGET_LEDGER_NAME = t.TARGET_LEDGER_NAME';
643: display_string(SQLString);
644:
645: CursorId := DBMS_SQL.open_cursor;
646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

Line 646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

642: ''' AND l.TARGET_LEDGER_NAME = t.TARGET_LEDGER_NAME';
643: display_string(SQLString);
644:
645: CursorId := DBMS_SQL.open_cursor;
646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN

Line 647: DBMS_SQL.define_column(CursorId, 1, Id);

643: display_string(SQLString);
644:
645: CursorId := DBMS_SQL.open_cursor;
646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN
651: DBMS_SQL.column_value(CursorId, 1, Id);

Line 648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);

644:
645: CursorId := DBMS_SQL.open_cursor;
646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN
651: DBMS_SQL.column_value(CursorId, 1, Id);
652: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

Line 649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

645: CursorId := DBMS_SQL.open_cursor;
646: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN
651: DBMS_SQL.column_value(CursorId, 1, Id);
652: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
653: LedgerCurrency := '''' || LedgerCurrency || '''';

Line 651: DBMS_SQL.column_value(CursorId, 1, Id);

647: DBMS_SQL.define_column(CursorId, 1, Id);
648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN
651: DBMS_SQL.column_value(CursorId, 1, Id);
652: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
653: LedgerCurrency := '''' || LedgerCurrency || '''';
654: ELSE
655: Id := G_Error;

Line 652: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

648: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
649: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
650: IF (ExecuteValue > 0) THEN
651: DBMS_SQL.column_value(CursorId, 1, Id);
652: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
653: LedgerCurrency := '''' || LedgerCurrency || '''';
654: ELSE
655: Id := G_Error;
656:

Line 659: DBMS_SQL.close_cursor(CursorId);

655: Id := G_Error;
656:
657: /* Get the parameter name from the source database table since it doesn't
658: * exist in the target database table */
659: DBMS_SQL.close_cursor(CursorId);
660:
661: SQLString := 'SELECT TARGET_LEDGER_NAME ' ||
662: 'FROM GL_LEDGER_RELATIONSHIPS@' || G_LinkName ||
663: ' WHERE TARGET_LEDGER_ID = ' || TO_CHAR(LedgerId) ||

Line 668: CursorId := DBMS_SQL.open_cursor;

664: ' AND TARGET_CURRENCY_CODE = ''' || LedgerCurrency || '''';
665:
666: display_string(SQLString);
667:
668: CursorId := DBMS_SQL.open_cursor;
669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
672: IF (ExecuteValue > 0) THEN

Line 669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

665:
666: display_string(SQLString);
667:
668: CursorId := DBMS_SQL.open_cursor;
669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
672: IF (ExecuteValue > 0) THEN
673: DBMS_SQL.column_value(CursorId, 1, SourceIdName);

Line 670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);

666: display_string(SQLString);
667:
668: CursorId := DBMS_SQL.open_cursor;
669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
672: IF (ExecuteValue > 0) THEN
673: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
674: ELSE

Line 671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

667:
668: CursorId := DBMS_SQL.open_cursor;
669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
672: IF (ExecuteValue > 0) THEN
673: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
674: ELSE
675: SourceIdName := NULL;

Line 673: DBMS_SQL.column_value(CursorId, 1, SourceIdName);

669: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
670: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
671: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
672: IF (ExecuteValue > 0) THEN
673: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
674: ELSE
675: SourceIdName := NULL;
676: END IF;
677:

Line 680: DBMS_SQL.close_cursor(CursorId);

676: END IF;
677:
678: LedgerCurrency := 'NULL';
679: END IF;
680: DBMS_SQL.close_cursor(CursorId);
681:
682: LedgerId := Id;
683: LedgerName := SourceIdName;
684: END get_target_ldg_from_source_ldg;

Line 704: CursorId := DBMS_SQL.open_cursor;

700: CursorId INTEGER;
701: ExecuteValue INTEGER;
702: BEGIN
703: display_string(SQLStmt);
704: CursorId := DBMS_SQL.open_cursor;
705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);

Line 705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);

701: ExecuteValue INTEGER;
702: BEGIN
703: display_string(SQLStmt);
704: CursorId := DBMS_SQL.open_cursor;
705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
709: IF (UseCOAId) THEN

Line 706: DBMS_SQL.bind_variable(CursorId, ':id', Id);

702: BEGIN
703: display_string(SQLStmt);
704: CursorId := DBMS_SQL.open_cursor;
705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
709: IF (UseCOAId) THEN
710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);

Line 707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);

703: display_string(SQLStmt);
704: CursorId := DBMS_SQL.open_cursor;
705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
709: IF (UseCOAId) THEN
710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
711: END IF;

Line 708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);

704: CursorId := DBMS_SQL.open_cursor;
705: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
709: IF (UseCOAId) THEN
710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
711: END IF;
712: IF (UseRowId) THEN

Line 710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);

706: DBMS_SQL.bind_variable(CursorId, ':id', Id);
707: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
708: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
709: IF (UseCOAId) THEN
710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
711: END IF;
712: IF (UseRowId) THEN
713: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
714: END IF;

Line 713: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);

709: IF (UseCOAId) THEN
710: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
711: END IF;
712: IF (UseRowId) THEN
713: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
714: END IF;
715: ExecuteValue := DBMS_SQL.execute(CursorId);
716: DBMS_SQL.close_cursor(CursorId);
717: END insert_rows;

Line 715: ExecuteValue := DBMS_SQL.execute(CursorId);

711: END IF;
712: IF (UseRowId) THEN
713: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
714: END IF;
715: ExecuteValue := DBMS_SQL.execute(CursorId);
716: DBMS_SQL.close_cursor(CursorId);
717: END insert_rows;
718:
719:

Line 716: DBMS_SQL.close_cursor(CursorId);

712: IF (UseRowId) THEN
713: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
714: END IF;
715: ExecuteValue := DBMS_SQL.execute(CursorId);
716: DBMS_SQL.close_cursor(CursorId);
717: END insert_rows;
718:
719:
720: /* Name: execute_sql_statement

Line 731: CursorId := DBMS_SQL.open_cursor;

727: CursorId INTEGER;
728: ExecuteValue INTEGER;
729: BEGIN
730: display_string(SQLStmt);
731: CursorId := DBMS_SQL.open_cursor;
732: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
733: ExecuteValue := DBMS_SQL.execute(CursorId);
734: DBMS_SQL.close_cursor(CursorId);
735: END execute_sql_statement;

Line 732: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);

728: ExecuteValue INTEGER;
729: BEGIN
730: display_string(SQLStmt);
731: CursorId := DBMS_SQL.open_cursor;
732: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
733: ExecuteValue := DBMS_SQL.execute(CursorId);
734: DBMS_SQL.close_cursor(CursorId);
735: END execute_sql_statement;
736:

Line 733: ExecuteValue := DBMS_SQL.execute(CursorId);

729: BEGIN
730: display_string(SQLStmt);
731: CursorId := DBMS_SQL.open_cursor;
732: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
733: ExecuteValue := DBMS_SQL.execute(CursorId);
734: DBMS_SQL.close_cursor(CursorId);
735: END execute_sql_statement;
736:
737:

Line 734: DBMS_SQL.close_cursor(CursorId);

730: display_string(SQLStmt);
731: CursorId := DBMS_SQL.open_cursor;
732: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
733: ExecuteValue := DBMS_SQL.execute(CursorId);
734: DBMS_SQL.close_cursor(CursorId);
735: END execute_sql_statement;
736:
737:
738: /* Name: check_coa_id

Line 762: CursorId := DBMS_SQL.open_cursor;

758: ' WHERE name = ''' || ComponentName ||'''' ||
759: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
760: display_string(SQLString);
761:
762: CursorId := DBMS_SQL.open_cursor;
763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
764: DBMS_SQL.define_column(CursorId, 1, COAId);
765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
766: DBMS_SQL.column_value(CursorId, 1, COAId);

Line 763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

759: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
760: display_string(SQLString);
761:
762: CursorId := DBMS_SQL.open_cursor;
763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
764: DBMS_SQL.define_column(CursorId, 1, COAId);
765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
766: DBMS_SQL.column_value(CursorId, 1, COAId);
767: IF (COAId IS NULL) THEN

Line 764: DBMS_SQL.define_column(CursorId, 1, COAId);

760: display_string(SQLString);
761:
762: CursorId := DBMS_SQL.open_cursor;
763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
764: DBMS_SQL.define_column(CursorId, 1, COAId);
765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
766: DBMS_SQL.column_value(CursorId, 1, COAId);
767: IF (COAId IS NULL) THEN
768: RetVal := G_NoCOA;

Line 765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

761:
762: CursorId := DBMS_SQL.open_cursor;
763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
764: DBMS_SQL.define_column(CursorId, 1, COAId);
765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
766: DBMS_SQL.column_value(CursorId, 1, COAId);
767: IF (COAId IS NULL) THEN
768: RetVal := G_NoCOA;
769: ELSIF (COAId <> G_SourceCOAId) THEN

Line 766: DBMS_SQL.column_value(CursorId, 1, COAId);

762: CursorId := DBMS_SQL.open_cursor;
763: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
764: DBMS_SQL.define_column(CursorId, 1, COAId);
765: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
766: DBMS_SQL.column_value(CursorId, 1, COAId);
767: IF (COAId IS NULL) THEN
768: RetVal := G_NoCOA;
769: ELSIF (COAId <> G_SourceCOAId) THEN
770: RetVal := G_Error;

Line 779: DBMS_SQL.close_cursor(CursorId);

775: Token1Val => TO_CHAR(COAId),
776: Token2 => 'SUB_SRC_ID',
777: Token2Val => TO_CHAR(G_SourceCOAId));
778: END IF;
779: DBMS_SQL.close_cursor(CursorId);
780: RETURN(RetVal);
781: END check_coa_id;
782:
783:

Line 808: CursorId := DBMS_SQL.open_cursor;

804: ' WHERE name = ''' || ComponentName ||'''' ||
805: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
806: display_string(SQLString);
807:
808: CursorId := DBMS_SQL.open_cursor;
809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
810: DBMS_SQL.define_column(CursorId, 1, COAId);
811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
812: DBMS_SQL.column_value(CursorId, 1, COAId);

Line 809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

805: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
806: display_string(SQLString);
807:
808: CursorId := DBMS_SQL.open_cursor;
809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
810: DBMS_SQL.define_column(CursorId, 1, COAId);
811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
812: DBMS_SQL.column_value(CursorId, 1, COAId);
813: IF (COAId IS NULL) THEN

Line 810: DBMS_SQL.define_column(CursorId, 1, COAId);

806: display_string(SQLString);
807:
808: CursorId := DBMS_SQL.open_cursor;
809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
810: DBMS_SQL.define_column(CursorId, 1, COAId);
811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
812: DBMS_SQL.column_value(CursorId, 1, COAId);
813: IF (COAId IS NULL) THEN
814: RetVal := G_NoCOA;

Line 811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

807:
808: CursorId := DBMS_SQL.open_cursor;
809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
810: DBMS_SQL.define_column(CursorId, 1, COAId);
811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
812: DBMS_SQL.column_value(CursorId, 1, COAId);
813: IF (COAId IS NULL) THEN
814: RetVal := G_NoCOA;
815: ELSIF (COAId <> G_TargetCOAId) THEN

Line 812: DBMS_SQL.column_value(CursorId, 1, COAId);

808: CursorId := DBMS_SQL.open_cursor;
809: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
810: DBMS_SQL.define_column(CursorId, 1, COAId);
811: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
812: DBMS_SQL.column_value(CursorId, 1, COAId);
813: IF (COAId IS NULL) THEN
814: RetVal := G_NoCOA;
815: ELSIF (COAId <> G_TargetCOAId) THEN
816: RetVal := G_Error;

Line 825: DBMS_SQL.close_cursor(CursorId);

821: Token1Val => TO_CHAR(COAId),
822: Token2 => 'SUB_TARGET_ID',
823: Token2Val => TO_CHAR(G_TargetCOAId));
824: END IF;
825: DBMS_SQL.close_cursor(CursorId);
826: RETURN(RetVal);
827: END check_target_coa_id;
828:
829:

Line 1053: CursorId := DBMS_SQL.open_cursor;

1049: SQLString := SQLString || ' AND name = ''' || ComponentName || '''';
1050: display_string(SQLString);
1051:
1052: /* Execute the constructed string and return value */
1053: CursorId := DBMS_SQL.open_cursor;
1054: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1055: DBMS_SQL.define_column(CursorId, 1, DummyId);
1056: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1057: IF (ExecuteValue > 0) THEN

Line 1054: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

1050: display_string(SQLString);
1051:
1052: /* Execute the constructed string and return value */
1053: CursorId := DBMS_SQL.open_cursor;
1054: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1055: DBMS_SQL.define_column(CursorId, 1, DummyId);
1056: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1057: IF (ExecuteValue > 0) THEN
1058: /* Found matching component */

Line 1055: DBMS_SQL.define_column(CursorId, 1, DummyId);

1051:
1052: /* Execute the constructed string and return value */
1053: CursorId := DBMS_SQL.open_cursor;
1054: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1055: DBMS_SQL.define_column(CursorId, 1, DummyId);
1056: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1057: IF (ExecuteValue > 0) THEN
1058: /* Found matching component */
1059: RetVal := TRUE;

Line 1056: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

1052: /* Execute the constructed string and return value */
1053: CursorId := DBMS_SQL.open_cursor;
1054: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1055: DBMS_SQL.define_column(CursorId, 1, DummyId);
1056: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1057: IF (ExecuteValue > 0) THEN
1058: /* Found matching component */
1059: RetVal := TRUE;
1060: END IF;

Line 1061: DBMS_SQL.close_cursor(CursorId);

1057: IF (ExecuteValue > 0) THEN
1058: /* Found matching component */
1059: RetVal := TRUE;
1060: END IF;
1061: DBMS_SQL.close_cursor(CursorId);
1062: RETURN(RetVal);
1063: END source_component_exists;
1064:
1065:

Line 1078: CursorId := DBMS_SQL.open_cursor;

1074: ExecuteValue INTEGER;
1075: Id NUMBER;
1076: BEGIN
1077: display_string(SelectString);
1078: CursorId := DBMS_SQL.open_cursor;
1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1080: DBMS_SQL.define_column(CursorId, 1, Id);
1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1082: IF (ExecuteValue > 0) THEN

Line 1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);

1075: Id NUMBER;
1076: BEGIN
1077: display_string(SelectString);
1078: CursorId := DBMS_SQL.open_cursor;
1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1080: DBMS_SQL.define_column(CursorId, 1, Id);
1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1082: IF (ExecuteValue > 0) THEN
1083: DBMS_SQL.column_value(CursorId, 1, Id);

Line 1080: DBMS_SQL.define_column(CursorId, 1, Id);

1076: BEGIN
1077: display_string(SelectString);
1078: CursorId := DBMS_SQL.open_cursor;
1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1080: DBMS_SQL.define_column(CursorId, 1, Id);
1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1082: IF (ExecuteValue > 0) THEN
1083: DBMS_SQL.column_value(CursorId, 1, Id);
1084: ELSE

Line 1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

1077: display_string(SelectString);
1078: CursorId := DBMS_SQL.open_cursor;
1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1080: DBMS_SQL.define_column(CursorId, 1, Id);
1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1082: IF (ExecuteValue > 0) THEN
1083: DBMS_SQL.column_value(CursorId, 1, Id);
1084: ELSE
1085: Id := G_Error;

Line 1083: DBMS_SQL.column_value(CursorId, 1, Id);

1079: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1080: DBMS_SQL.define_column(CursorId, 1, Id);
1081: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1082: IF (ExecuteValue > 0) THEN
1083: DBMS_SQL.column_value(CursorId, 1, Id);
1084: ELSE
1085: Id := G_Error;
1086: END IF;
1087: DBMS_SQL.close_cursor(CursorId);

Line 1087: DBMS_SQL.close_cursor(CursorId);

1083: DBMS_SQL.column_value(CursorId, 1, Id);
1084: ELSE
1085: Id := G_Error;
1086: END IF;
1087: DBMS_SQL.close_cursor(CursorId);
1088: RETURN(Id);
1089: END component_exists;
1090:
1091:

Line 1109: CursorId := DBMS_SQL.open_cursor;

1105: SQLString := 'SELECT 1 FROM fnd_currencies' ||
1106: ' WHERE currency_code = ''' || CurrencyCode || '''';
1107: display_string(SQLString);
1108:
1109: CursorId := DBMS_SQL.open_cursor;
1110: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1111: DBMS_SQL.define_column(CursorId, 1, Id);
1112: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1113: IF (ExecuteValue > 0) THEN

Line 1110: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

1106: ' WHERE currency_code = ''' || CurrencyCode || '''';
1107: display_string(SQLString);
1108:
1109: CursorId := DBMS_SQL.open_cursor;
1110: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1111: DBMS_SQL.define_column(CursorId, 1, Id);
1112: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1113: IF (ExecuteValue > 0) THEN
1114: RetVal := TRUE;

Line 1111: DBMS_SQL.define_column(CursorId, 1, Id);

1107: display_string(SQLString);
1108:
1109: CursorId := DBMS_SQL.open_cursor;
1110: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1111: DBMS_SQL.define_column(CursorId, 1, Id);
1112: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1113: IF (ExecuteValue > 0) THEN
1114: RetVal := TRUE;
1115: ELSE

Line 1112: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

1108:
1109: CursorId := DBMS_SQL.open_cursor;
1110: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1111: DBMS_SQL.define_column(CursorId, 1, Id);
1112: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1113: IF (ExecuteValue > 0) THEN
1114: RetVal := TRUE;
1115: ELSE
1116: RetVal := FALSE;

Line 1118: DBMS_SQL.close_cursor(CursorId);

1114: RetVal := TRUE;
1115: ELSE
1116: RetVal := FALSE;
1117: END IF;
1118: DBMS_SQL.close_cursor(CursorId);
1119: RETURN(RetVal);
1120: END currency_exists;
1121:
1122:

Line 1147: CursorId := DBMS_SQL.open_cursor;

1143: ' axs.axis_set_id, axs.axis_set_id)' ||
1144: ' AND ax.axis_name = '''||AdjustedName||''')';
1145: display_string(SQLString);
1146:
1147: CursorId := DBMS_SQL.open_cursor;
1148: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1149: DBMS_SQL.define_column(CursorId, 1, Id);
1150: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1151: IF (ExecuteValue > 0) THEN

Line 1148: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

1144: ' AND ax.axis_name = '''||AdjustedName||''')';
1145: display_string(SQLString);
1146:
1147: CursorId := DBMS_SQL.open_cursor;
1148: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1149: DBMS_SQL.define_column(CursorId, 1, Id);
1150: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1151: IF (ExecuteValue > 0) THEN
1152: RetVal := TRUE;

Line 1149: DBMS_SQL.define_column(CursorId, 1, Id);

1145: display_string(SQLString);
1146:
1147: CursorId := DBMS_SQL.open_cursor;
1148: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1149: DBMS_SQL.define_column(CursorId, 1, Id);
1150: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1151: IF (ExecuteValue > 0) THEN
1152: RetVal := TRUE;
1153: ELSE

Line 1150: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

1146:
1147: CursorId := DBMS_SQL.open_cursor;
1148: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1149: DBMS_SQL.define_column(CursorId, 1, Id);
1150: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1151: IF (ExecuteValue > 0) THEN
1152: RetVal := TRUE;
1153: ELSE
1154: RetVal := FALSE;

Line 1156: DBMS_SQL.close_cursor(CursorId);

1152: RetVal := TRUE;
1153: ELSE
1154: RetVal := FALSE;
1155: END IF;
1156: DBMS_SQL.close_cursor(CursorId);
1157: RETURN(RetVal);
1158: END ro_column_exists;
1159:
1160:

Line 1192: CursorId := DBMS_SQL.open_cursor;

1188: RetVal VARCHAR2(1000) := NULL;
1189: Id NUMBER;
1190: BEGIN
1191: display_string(SQLString);
1192: CursorId := DBMS_SQL.open_cursor;
1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN

Line 1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);

1189: Id NUMBER;
1190: BEGIN
1191: display_string(SQLString);
1192: CursorId := DBMS_SQL.open_cursor;
1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN
1197: DBMS_SQL.column_value(CursorId, 1, RetVal);

Line 1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);

1190: BEGIN
1191: display_string(SQLString);
1192: CursorId := DBMS_SQL.open_cursor;
1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN
1197: DBMS_SQL.column_value(CursorId, 1, RetVal);
1198: END IF;

Line 1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

1191: display_string(SQLString);
1192: CursorId := DBMS_SQL.open_cursor;
1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN
1197: DBMS_SQL.column_value(CursorId, 1, RetVal);
1198: END IF;
1199: DBMS_SQL.close_cursor(CursorId);

Line 1197: DBMS_SQL.column_value(CursorId, 1, RetVal);

1193: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1194: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN
1197: DBMS_SQL.column_value(CursorId, 1, RetVal);
1198: END IF;
1199: DBMS_SQL.close_cursor(CursorId);
1200: RETURN(RetVal);
1201: END get_varchar2;

Line 1199: DBMS_SQL.close_cursor(CursorId);

1195: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1196: IF (ExecuteValue > 0) THEN
1197: DBMS_SQL.column_value(CursorId, 1, RetVal);
1198: END IF;
1199: DBMS_SQL.close_cursor(CursorId);
1200: RETURN(RetVal);
1201: END get_varchar2;
1202:
1203: