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 295: CursorId := DBMS_SQL.open_cursor;

291: CursorId INTEGER;
292: ExecuteValue INTEGER;
293: BEGIN
294: -- select using the database link
295: CursorId := DBMS_SQL.open_cursor;
296: DBMS_SQL.parse(CursorId,
297: 'SELECT 1 FROM DUAL@'|| LinkName,
298: DBMS_SQL.v7);
299: ExecuteValue := DBMS_SQL.execute(CursorId);

Line 296: DBMS_SQL.parse(CursorId,

292: ExecuteValue INTEGER;
293: BEGIN
294: -- select using the database link
295: CursorId := DBMS_SQL.open_cursor;
296: DBMS_SQL.parse(CursorId,
297: 'SELECT 1 FROM DUAL@'|| LinkName,
298: DBMS_SQL.v7);
299: ExecuteValue := DBMS_SQL.execute(CursorId);
300: DBMS_SQL.close_cursor(CursorId);

Line 298: DBMS_SQL.v7);

294: -- select using the database link
295: CursorId := DBMS_SQL.open_cursor;
296: DBMS_SQL.parse(CursorId,
297: 'SELECT 1 FROM DUAL@'|| LinkName,
298: DBMS_SQL.v7);
299: ExecuteValue := DBMS_SQL.execute(CursorId);
300: DBMS_SQL.close_cursor(CursorId);
301: RETURN(TRUE);
302: EXCEPTION

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

295: CursorId := DBMS_SQL.open_cursor;
296: DBMS_SQL.parse(CursorId,
297: 'SELECT 1 FROM DUAL@'|| LinkName,
298: DBMS_SQL.v7);
299: ExecuteValue := DBMS_SQL.execute(CursorId);
300: DBMS_SQL.close_cursor(CursorId);
301: RETURN(TRUE);
302: EXCEPTION
303: WHEN OTHERS THEN

Line 300: DBMS_SQL.close_cursor(CursorId);

296: DBMS_SQL.parse(CursorId,
297: 'SELECT 1 FROM DUAL@'|| LinkName,
298: DBMS_SQL.v7);
299: ExecuteValue := DBMS_SQL.execute(CursorId);
300: DBMS_SQL.close_cursor(CursorId);
301: RETURN(TRUE);
302: EXCEPTION
303: WHEN OTHERS THEN
304: RETURN(FALSE);

Line 332: CursorId := DBMS_SQL.open_cursor;

328: PRAGMA EXCEPTION_INIT(insufficient_priv, -1031);
329:
330: BEGIN
331: -- create the database link
332: CursorId := DBMS_SQL.open_cursor;
333: DBMS_SQL.parse(CursorId,
334: 'CREATE DATABASE LINK '|| LinkName ||
335: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
336: ' USING '''|| ConnectString ||'''',

Line 333: DBMS_SQL.parse(CursorId,

329:
330: BEGIN
331: -- create the database link
332: CursorId := DBMS_SQL.open_cursor;
333: DBMS_SQL.parse(CursorId,
334: 'CREATE DATABASE LINK '|| LinkName ||
335: ' CONNECT TO '|| Username ||' IDENTIFIED BY '|| Password ||
336: ' USING '''|| ConnectString ||'''',
337: DBMS_SQL.v7);

Line 337: DBMS_SQL.v7);

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

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

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

Line 339: DBMS_SQL.close_cursor(CursorId);

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

Line 373: CursorId := DBMS_SQL.open_cursor;

369: link_not_found EXCEPTION;
370: PRAGMA EXCEPTION_INIT(link_not_found, -2024);
371: BEGIN
372: -- drop the database link
373: CursorId := DBMS_SQL.open_cursor;
374: DBMS_SQL.parse(CursorId,
375: 'DROP DATABASE LINK '|| LinkName,
376: DBMS_SQL.v7);
377: ExecuteValue := DBMS_SQL.execute(CursorId);

Line 374: DBMS_SQL.parse(CursorId,

370: PRAGMA EXCEPTION_INIT(link_not_found, -2024);
371: BEGIN
372: -- drop the database link
373: CursorId := DBMS_SQL.open_cursor;
374: DBMS_SQL.parse(CursorId,
375: 'DROP DATABASE LINK '|| LinkName,
376: DBMS_SQL.v7);
377: ExecuteValue := DBMS_SQL.execute(CursorId);
378: DBMS_SQL.close_cursor(CursorId);

Line 376: DBMS_SQL.v7);

372: -- drop the database link
373: CursorId := DBMS_SQL.open_cursor;
374: DBMS_SQL.parse(CursorId,
375: 'DROP DATABASE LINK '|| LinkName,
376: DBMS_SQL.v7);
377: ExecuteValue := DBMS_SQL.execute(CursorId);
378: DBMS_SQL.close_cursor(CursorId);
379: RETURN(TRUE);
380: EXCEPTION

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

373: CursorId := DBMS_SQL.open_cursor;
374: DBMS_SQL.parse(CursorId,
375: 'DROP DATABASE LINK '|| LinkName,
376: DBMS_SQL.v7);
377: ExecuteValue := DBMS_SQL.execute(CursorId);
378: DBMS_SQL.close_cursor(CursorId);
379: RETURN(TRUE);
380: EXCEPTION
381: WHEN link_not_found THEN

Line 378: DBMS_SQL.close_cursor(CursorId);

374: DBMS_SQL.parse(CursorId,
375: 'DROP DATABASE LINK '|| LinkName,
376: DBMS_SQL.v7);
377: ExecuteValue := DBMS_SQL.execute(CursorId);
378: DBMS_SQL.close_cursor(CursorId);
379: RETURN(TRUE);
380: EXCEPTION
381: WHEN link_not_found THEN
382: RETURN(FALSE);

Line 461: CursorId := DBMS_SQL.open_cursor;

457: copy_adjust_string(ComponentName, CompName);
458: SQLString := 'SELECT ' || IdName || ' FROM ' || TableName||'@'||G_LinkName ||
459: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
460: display_string(SQLString);
461: CursorId := DBMS_SQL.open_cursor;
462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);

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

458: SQLString := 'SELECT ' || IdName || ' FROM ' || TableName||'@'||G_LinkName ||
459: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
460: display_string(SQLString);
461: CursorId := DBMS_SQL.open_cursor;
462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);
466: DBMS_SQL.close_cursor(CursorId);

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

459: ' WHERE name = ''' || ComponentName || ''' ' || WhereClause;
460: display_string(SQLString);
461: CursorId := DBMS_SQL.open_cursor;
462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);
466: DBMS_SQL.close_cursor(CursorId);
467: RETURN(Id);

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

460: display_string(SQLString);
461: CursorId := DBMS_SQL.open_cursor;
462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);
466: DBMS_SQL.close_cursor(CursorId);
467: RETURN(Id);
468: END get_source_id;

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

461: CursorId := DBMS_SQL.open_cursor;
462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);
466: DBMS_SQL.close_cursor(CursorId);
467: RETURN(Id);
468: END get_source_id;
469:

Line 466: DBMS_SQL.close_cursor(CursorId);

462: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
463: DBMS_SQL.define_column(CursorId, 1, Id);
464: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
465: DBMS_SQL.column_value(CursorId, 1, Id);
466: DBMS_SQL.close_cursor(CursorId);
467: RETURN(Id);
468: END get_source_id;
469:
470:

Line 485: CursorId := DBMS_SQL.open_cursor;

481: SQLString VARCHAR2(100);
482: BEGIN
483: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
484: display_string(SQLString);
485: CursorId := DBMS_SQL.open_cursor;
486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);

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

482: BEGIN
483: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
484: display_string(SQLString);
485: CursorId := DBMS_SQL.open_cursor;
486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);
490: DBMS_SQL.close_cursor(CursorId);

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

483: SQLString := 'SELECT ' || SequenceName || '.nextval FROM sys.dual';
484: display_string(SQLString);
485: CursorId := DBMS_SQL.open_cursor;
486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);
490: DBMS_SQL.close_cursor(CursorId);
491: RETURN(Id);

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

484: display_string(SQLString);
485: CursorId := DBMS_SQL.open_cursor;
486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);
490: DBMS_SQL.close_cursor(CursorId);
491: RETURN(Id);
492: END get_new_id;

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

485: CursorId := DBMS_SQL.open_cursor;
486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);
490: DBMS_SQL.close_cursor(CursorId);
491: RETURN(Id);
492: END get_new_id;
493:

Line 490: DBMS_SQL.close_cursor(CursorId);

486: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
487: DBMS_SQL.define_column(CursorId, 1, Id);
488: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
489: DBMS_SQL.column_value(CursorId, 1, Id);
490: DBMS_SQL.close_cursor(CursorId);
491: RETURN(Id);
492: END get_new_id;
493:
494:

Line 537: CursorId := DBMS_SQL.open_cursor;

533: ' AND main_table.application_id = '|| TO_CHAR(G_ApplId);
534: END IF;
535:
536: display_string(SQLString);
537: CursorId := DBMS_SQL.open_cursor;
538: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
539: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
540: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
541: IF (ExecuteValue > 0) THEN

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

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

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

535:
536: display_string(SQLString);
537: CursorId := DBMS_SQL.open_cursor;
538: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
539: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
540: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
541: IF (ExecuteValue > 0) THEN
542: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
543: ELSE

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

536: display_string(SQLString);
537: CursorId := DBMS_SQL.open_cursor;
538: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
539: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
540: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
541: IF (ExecuteValue > 0) THEN
542: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
543: ELSE
544: RefObjectName := '';

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

538: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
539: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 30);
540: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
541: IF (ExecuteValue > 0) THEN
542: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
543: ELSE
544: RefObjectName := '';
545: END IF;
546: DBMS_SQL.close_cursor(CursorId);

Line 546: DBMS_SQL.close_cursor(CursorId);

542: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
543: ELSE
544: RefObjectName := '';
545: END IF;
546: DBMS_SQL.close_cursor(CursorId);
547: RETURN(RefObjectName);
548: END get_source_ref_object_name;
549:
550:

Line 578: CursorId := DBMS_SQL.open_cursor;

574: ' WHERE l.'|| IdColumnName || '=' || TO_CHAR(IdValue) ||
575: ' AND l.' || NameColumn || '= t.' || NameColumn;
576: display_string(SQLString);
577:
578: CursorId := DBMS_SQL.open_cursor;
579: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
580: DBMS_SQL.define_column(CursorId, 1, Id);
581: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
582: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

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

575: ' AND l.' || NameColumn || '= t.' || NameColumn;
576: display_string(SQLString);
577:
578: CursorId := DBMS_SQL.open_cursor;
579: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
580: DBMS_SQL.define_column(CursorId, 1, Id);
581: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
582: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
583: IF (ExecuteValue > 0) THEN

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

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

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

577:
578: CursorId := DBMS_SQL.open_cursor;
579: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
580: DBMS_SQL.define_column(CursorId, 1, Id);
581: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
582: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
583: IF (ExecuteValue > 0) THEN
584: DBMS_SQL.column_value(CursorId, 1, Id);
585: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

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

578: CursorId := DBMS_SQL.open_cursor;
579: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
580: DBMS_SQL.define_column(CursorId, 1, Id);
581: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
582: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
583: IF (ExecuteValue > 0) THEN
584: DBMS_SQL.column_value(CursorId, 1, Id);
585: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
586: ELSE

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

580: DBMS_SQL.define_column(CursorId, 1, Id);
581: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
582: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
583: IF (ExecuteValue > 0) THEN
584: DBMS_SQL.column_value(CursorId, 1, Id);
585: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
586: ELSE
587: Id := G_Error;
588:

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

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

Line 591: DBMS_SQL.close_cursor(CursorId);

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

Line 598: CursorId := DBMS_SQL.open_cursor;

594: ' FROM ' || TableName||'@'||G_LinkName ||
595: ' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);
596: display_string(SQLString);
597:
598: CursorId := DBMS_SQL.open_cursor;
599: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
600: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
601: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
602: IF (ExecuteValue > 0) THEN

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

595: ' WHERE '|| IdColumnName || '=' || TO_CHAR(IdValue);
596: display_string(SQLString);
597:
598: CursorId := DBMS_SQL.open_cursor;
599: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
600: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
601: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
602: IF (ExecuteValue > 0) THEN
603: DBMS_SQL.column_value(CursorId, 1, SourceIdName);

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

596: display_string(SQLString);
597:
598: CursorId := DBMS_SQL.open_cursor;
599: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
600: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
601: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
602: IF (ExecuteValue > 0) THEN
603: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
604: ELSE

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

597:
598: CursorId := DBMS_SQL.open_cursor;
599: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
600: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
601: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
602: IF (ExecuteValue > 0) THEN
603: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
604: ELSE
605: SourceIdName := NULL;

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

599: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
600: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
601: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
602: IF (ExecuteValue > 0) THEN
603: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
604: ELSE
605: SourceIdName := NULL;
606: END IF;
607:

Line 609: DBMS_SQL.close_cursor(CursorId);

605: SourceIdName := NULL;
606: END IF;
607:
608: END IF;
609: DBMS_SQL.close_cursor(CursorId);
610: IdValue := Id;
611: IdName := SourceIdName;
612: END get_target_id_from_source_id;
613:

Line 650: CursorId := DBMS_SQL.open_cursor;

646: ' AND l.TARGET_CURRENCY_CODE = ''' || LedgerCurrency ||
647: ''' AND l.TARGET_LEDGER_NAME = t.TARGET_LEDGER_NAME';
648: display_string(SQLString);
649:
650: CursorId := DBMS_SQL.open_cursor;
651: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
652: DBMS_SQL.define_column(CursorId, 1, Id);
653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);

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

647: ''' AND l.TARGET_LEDGER_NAME = t.TARGET_LEDGER_NAME';
648: display_string(SQLString);
649:
650: CursorId := DBMS_SQL.open_cursor;
651: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
652: DBMS_SQL.define_column(CursorId, 1, Id);
653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
655: IF (ExecuteValue > 0) THEN

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

648: display_string(SQLString);
649:
650: CursorId := DBMS_SQL.open_cursor;
651: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
652: DBMS_SQL.define_column(CursorId, 1, Id);
653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
655: IF (ExecuteValue > 0) THEN
656: DBMS_SQL.column_value(CursorId, 1, Id);

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

649:
650: CursorId := DBMS_SQL.open_cursor;
651: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
652: DBMS_SQL.define_column(CursorId, 1, Id);
653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
655: IF (ExecuteValue > 0) THEN
656: DBMS_SQL.column_value(CursorId, 1, Id);
657: DBMS_SQL.column_value(CursorId, 2, SourceIdName);

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

650: CursorId := DBMS_SQL.open_cursor;
651: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
652: DBMS_SQL.define_column(CursorId, 1, Id);
653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
655: IF (ExecuteValue > 0) THEN
656: DBMS_SQL.column_value(CursorId, 1, Id);
657: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
658: LedgerCurrency := '''' || LedgerCurrency || '''';

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

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

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

653: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 100);
654: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
655: IF (ExecuteValue > 0) THEN
656: DBMS_SQL.column_value(CursorId, 1, Id);
657: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
658: LedgerCurrency := '''' || LedgerCurrency || '''';
659: ELSE
660: Id := G_Error;
661:

Line 664: DBMS_SQL.close_cursor(CursorId);

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

Line 673: CursorId := DBMS_SQL.open_cursor;

669: ' AND TARGET_CURRENCY_CODE = ''' || LedgerCurrency || '''';
670:
671: display_string(SQLString);
672:
673: CursorId := DBMS_SQL.open_cursor;
674: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
675: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
676: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
677: IF (ExecuteValue > 0) THEN

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

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

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

671: display_string(SQLString);
672:
673: CursorId := DBMS_SQL.open_cursor;
674: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
675: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
676: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
677: IF (ExecuteValue > 0) THEN
678: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
679: ELSE

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

672:
673: CursorId := DBMS_SQL.open_cursor;
674: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
675: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
676: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
677: IF (ExecuteValue > 0) THEN
678: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
679: ELSE
680: SourceIdName := NULL;

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

674: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
675: DBMS_SQL.define_column(CursorId, 1, SourceIdName, 100);
676: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
677: IF (ExecuteValue > 0) THEN
678: DBMS_SQL.column_value(CursorId, 1, SourceIdName);
679: ELSE
680: SourceIdName := NULL;
681: END IF;
682:

Line 685: DBMS_SQL.close_cursor(CursorId);

681: END IF;
682:
683: LedgerCurrency := 'NULL';
684: END IF;
685: DBMS_SQL.close_cursor(CursorId);
686:
687: LedgerId := Id;
688: LedgerName := SourceIdName;
689: END get_target_ldg_from_source_ldg;

Line 709: CursorId := DBMS_SQL.open_cursor;

705: CursorId INTEGER;
706: ExecuteValue INTEGER;
707: BEGIN
708: display_string(SQLStmt);
709: CursorId := DBMS_SQL.open_cursor;
710: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);

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

706: ExecuteValue INTEGER;
707: BEGIN
708: display_string(SQLStmt);
709: CursorId := DBMS_SQL.open_cursor;
710: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
714: IF (UseCOAId) THEN

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

707: BEGIN
708: display_string(SQLStmt);
709: CursorId := DBMS_SQL.open_cursor;
710: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
714: IF (UseCOAId) THEN
715: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);

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

708: display_string(SQLStmt);
709: CursorId := DBMS_SQL.open_cursor;
710: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
714: IF (UseCOAId) THEN
715: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
716: END IF;

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

709: CursorId := DBMS_SQL.open_cursor;
710: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
714: IF (UseCOAId) THEN
715: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
716: END IF;
717: IF (UseRowId) THEN

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

711: DBMS_SQL.bind_variable(CursorId, ':id', Id);
712: DBMS_SQL.bind_variable(CursorId, ':user_id', G_UserId);
713: DBMS_SQL.bind_variable(CursorId, ':login_id', G_LoginId);
714: IF (UseCOAId) THEN
715: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
716: END IF;
717: IF (UseRowId) THEN
718: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
719: END IF;

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

714: IF (UseCOAId) THEN
715: DBMS_SQL.bind_variable(CursorId, ':coa_id', G_TargetCOAId);
716: END IF;
717: IF (UseRowId) THEN
718: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
719: END IF;
720: ExecuteValue := DBMS_SQL.execute(CursorId);
721: DBMS_SQL.close_cursor(CursorId);
722: END insert_rows;

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

716: END IF;
717: IF (UseRowId) THEN
718: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
719: END IF;
720: ExecuteValue := DBMS_SQL.execute(CursorId);
721: DBMS_SQL.close_cursor(CursorId);
722: END insert_rows;
723:
724:

Line 721: DBMS_SQL.close_cursor(CursorId);

717: IF (UseRowId) THEN
718: DBMS_SQL.bind_variable(CursorId, ':row_id', RecRowId);
719: END IF;
720: ExecuteValue := DBMS_SQL.execute(CursorId);
721: DBMS_SQL.close_cursor(CursorId);
722: END insert_rows;
723:
724:
725: /* Name: execute_sql_statement

Line 736: CursorId := DBMS_SQL.open_cursor;

732: CursorId INTEGER;
733: ExecuteValue INTEGER;
734: BEGIN
735: display_string(SQLStmt);
736: CursorId := DBMS_SQL.open_cursor;
737: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
738: ExecuteValue := DBMS_SQL.execute(CursorId);
739: DBMS_SQL.close_cursor(CursorId);
740: END execute_sql_statement;

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

733: ExecuteValue INTEGER;
734: BEGIN
735: display_string(SQLStmt);
736: CursorId := DBMS_SQL.open_cursor;
737: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
738: ExecuteValue := DBMS_SQL.execute(CursorId);
739: DBMS_SQL.close_cursor(CursorId);
740: END execute_sql_statement;
741:

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

734: BEGIN
735: display_string(SQLStmt);
736: CursorId := DBMS_SQL.open_cursor;
737: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
738: ExecuteValue := DBMS_SQL.execute(CursorId);
739: DBMS_SQL.close_cursor(CursorId);
740: END execute_sql_statement;
741:
742:

Line 739: DBMS_SQL.close_cursor(CursorId);

735: display_string(SQLStmt);
736: CursorId := DBMS_SQL.open_cursor;
737: DBMS_SQL.parse(CursorId, SQLStmt, DBMS_SQL.v7);
738: ExecuteValue := DBMS_SQL.execute(CursorId);
739: DBMS_SQL.close_cursor(CursorId);
740: END execute_sql_statement;
741:
742:
743: /* Name: check_coa_id

Line 767: CursorId := DBMS_SQL.open_cursor;

763: ' WHERE name = ''' || ComponentName ||'''' ||
764: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
765: display_string(SQLString);
766:
767: CursorId := DBMS_SQL.open_cursor;
768: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
769: DBMS_SQL.define_column(CursorId, 1, COAId);
770: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
771: DBMS_SQL.column_value(CursorId, 1, COAId);

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

764: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
765: display_string(SQLString);
766:
767: CursorId := DBMS_SQL.open_cursor;
768: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
769: DBMS_SQL.define_column(CursorId, 1, COAId);
770: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
771: DBMS_SQL.column_value(CursorId, 1, COAId);
772: IF (COAId IS NULL) THEN

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

765: display_string(SQLString);
766:
767: CursorId := DBMS_SQL.open_cursor;
768: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
769: DBMS_SQL.define_column(CursorId, 1, COAId);
770: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
771: DBMS_SQL.column_value(CursorId, 1, COAId);
772: IF (COAId IS NULL) THEN
773: RetVal := G_NoCOA;

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

766:
767: CursorId := DBMS_SQL.open_cursor;
768: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
769: DBMS_SQL.define_column(CursorId, 1, COAId);
770: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
771: DBMS_SQL.column_value(CursorId, 1, COAId);
772: IF (COAId IS NULL) THEN
773: RetVal := G_NoCOA;
774: ELSIF (COAId <> G_SourceCOAId) THEN

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

767: CursorId := DBMS_SQL.open_cursor;
768: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
769: DBMS_SQL.define_column(CursorId, 1, COAId);
770: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
771: DBMS_SQL.column_value(CursorId, 1, COAId);
772: IF (COAId IS NULL) THEN
773: RetVal := G_NoCOA;
774: ELSIF (COAId <> G_SourceCOAId) THEN
775: RetVal := G_Error;

Line 784: DBMS_SQL.close_cursor(CursorId);

780: Token1Val => TO_CHAR(COAId),
781: Token2 => 'SUB_SRC_ID',
782: Token2Val => TO_CHAR(G_SourceCOAId));
783: END IF;
784: DBMS_SQL.close_cursor(CursorId);
785: RETURN(RetVal);
786: END check_coa_id;
787:
788:

Line 813: CursorId := DBMS_SQL.open_cursor;

809: ' WHERE name = ''' || ComponentName ||'''' ||
810: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
811: display_string(SQLString);
812:
813: CursorId := DBMS_SQL.open_cursor;
814: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
815: DBMS_SQL.define_column(CursorId, 1, COAId);
816: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
817: DBMS_SQL.column_value(CursorId, 1, COAId);

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

810: NVL(WhereString,' AND application_id = ' || TO_CHAR(G_ApplId));
811: display_string(SQLString);
812:
813: CursorId := DBMS_SQL.open_cursor;
814: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
815: DBMS_SQL.define_column(CursorId, 1, COAId);
816: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
817: DBMS_SQL.column_value(CursorId, 1, COAId);
818: IF (COAId IS NULL) THEN

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

811: display_string(SQLString);
812:
813: CursorId := DBMS_SQL.open_cursor;
814: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
815: DBMS_SQL.define_column(CursorId, 1, COAId);
816: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
817: DBMS_SQL.column_value(CursorId, 1, COAId);
818: IF (COAId IS NULL) THEN
819: RetVal := G_NoCOA;

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

812:
813: CursorId := DBMS_SQL.open_cursor;
814: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
815: DBMS_SQL.define_column(CursorId, 1, COAId);
816: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
817: DBMS_SQL.column_value(CursorId, 1, COAId);
818: IF (COAId IS NULL) THEN
819: RetVal := G_NoCOA;
820: ELSIF (COAId <> G_TargetCOAId) THEN

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

813: CursorId := DBMS_SQL.open_cursor;
814: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
815: DBMS_SQL.define_column(CursorId, 1, COAId);
816: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
817: DBMS_SQL.column_value(CursorId, 1, COAId);
818: IF (COAId IS NULL) THEN
819: RetVal := G_NoCOA;
820: ELSIF (COAId <> G_TargetCOAId) THEN
821: RetVal := G_Error;

Line 830: DBMS_SQL.close_cursor(CursorId);

826: Token1Val => TO_CHAR(COAId),
827: Token2 => 'SUB_TARGET_ID',
828: Token2Val => TO_CHAR(G_TargetCOAId));
829: END IF;
830: DBMS_SQL.close_cursor(CursorId);
831: RETURN(RetVal);
832: END check_target_coa_id;
833:
834:

Line 1058: CursorId := DBMS_SQL.open_cursor;

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

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

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

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

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

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

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

Line 1066: DBMS_SQL.close_cursor(CursorId);

1062: IF (ExecuteValue > 0) THEN
1063: /* Found matching component */
1064: RetVal := TRUE;
1065: END IF;
1066: DBMS_SQL.close_cursor(CursorId);
1067: RETURN(RetVal);
1068: END source_component_exists;
1069:
1070:

Line 1083: CursorId := DBMS_SQL.open_cursor;

1079: ExecuteValue INTEGER;
1080: Id NUMBER;
1081: BEGIN
1082: display_string(SelectString);
1083: CursorId := DBMS_SQL.open_cursor;
1084: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1085: DBMS_SQL.define_column(CursorId, 1, Id);
1086: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1087: IF (ExecuteValue > 0) THEN

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

1080: Id NUMBER;
1081: BEGIN
1082: display_string(SelectString);
1083: CursorId := DBMS_SQL.open_cursor;
1084: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1085: DBMS_SQL.define_column(CursorId, 1, Id);
1086: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1087: IF (ExecuteValue > 0) THEN
1088: DBMS_SQL.column_value(CursorId, 1, Id);

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

1081: BEGIN
1082: display_string(SelectString);
1083: CursorId := DBMS_SQL.open_cursor;
1084: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1085: DBMS_SQL.define_column(CursorId, 1, Id);
1086: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1087: IF (ExecuteValue > 0) THEN
1088: DBMS_SQL.column_value(CursorId, 1, Id);
1089: ELSE

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

1082: display_string(SelectString);
1083: CursorId := DBMS_SQL.open_cursor;
1084: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1085: DBMS_SQL.define_column(CursorId, 1, Id);
1086: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1087: IF (ExecuteValue > 0) THEN
1088: DBMS_SQL.column_value(CursorId, 1, Id);
1089: ELSE
1090: Id := G_Error;

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

1084: DBMS_SQL.parse(CursorId, SelectString, DBMS_SQL.v7);
1085: DBMS_SQL.define_column(CursorId, 1, Id);
1086: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1087: IF (ExecuteValue > 0) THEN
1088: DBMS_SQL.column_value(CursorId, 1, Id);
1089: ELSE
1090: Id := G_Error;
1091: END IF;
1092: DBMS_SQL.close_cursor(CursorId);

Line 1092: DBMS_SQL.close_cursor(CursorId);

1088: DBMS_SQL.column_value(CursorId, 1, Id);
1089: ELSE
1090: Id := G_Error;
1091: END IF;
1092: DBMS_SQL.close_cursor(CursorId);
1093: RETURN(Id);
1094: END component_exists;
1095:
1096:

Line 1114: CursorId := DBMS_SQL.open_cursor;

1110: SQLString := 'SELECT 1 FROM fnd_currencies' ||
1111: ' WHERE currency_code = ''' || CurrencyCode || '''';
1112: display_string(SQLString);
1113:
1114: CursorId := DBMS_SQL.open_cursor;
1115: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1116: DBMS_SQL.define_column(CursorId, 1, Id);
1117: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1118: IF (ExecuteValue > 0) THEN

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

1111: ' WHERE currency_code = ''' || CurrencyCode || '''';
1112: display_string(SQLString);
1113:
1114: CursorId := DBMS_SQL.open_cursor;
1115: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1116: DBMS_SQL.define_column(CursorId, 1, Id);
1117: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1118: IF (ExecuteValue > 0) THEN
1119: RetVal := TRUE;

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

1112: display_string(SQLString);
1113:
1114: CursorId := DBMS_SQL.open_cursor;
1115: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1116: DBMS_SQL.define_column(CursorId, 1, Id);
1117: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1118: IF (ExecuteValue > 0) THEN
1119: RetVal := TRUE;
1120: ELSE

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

1113:
1114: CursorId := DBMS_SQL.open_cursor;
1115: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1116: DBMS_SQL.define_column(CursorId, 1, Id);
1117: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1118: IF (ExecuteValue > 0) THEN
1119: RetVal := TRUE;
1120: ELSE
1121: RetVal := FALSE;

Line 1123: DBMS_SQL.close_cursor(CursorId);

1119: RetVal := TRUE;
1120: ELSE
1121: RetVal := FALSE;
1122: END IF;
1123: DBMS_SQL.close_cursor(CursorId);
1124: RETURN(RetVal);
1125: END currency_exists;
1126:
1127:

Line 1152: CursorId := DBMS_SQL.open_cursor;

1148: ' axs.axis_set_id, axs.axis_set_id)' ||
1149: ' AND ax.axis_name = '''||AdjustedName||''')';
1150: display_string(SQLString);
1151:
1152: CursorId := DBMS_SQL.open_cursor;
1153: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1154: DBMS_SQL.define_column(CursorId, 1, Id);
1155: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1156: IF (ExecuteValue > 0) THEN

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

1149: ' AND ax.axis_name = '''||AdjustedName||''')';
1150: display_string(SQLString);
1151:
1152: CursorId := DBMS_SQL.open_cursor;
1153: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1154: DBMS_SQL.define_column(CursorId, 1, Id);
1155: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1156: IF (ExecuteValue > 0) THEN
1157: RetVal := TRUE;

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

1150: display_string(SQLString);
1151:
1152: CursorId := DBMS_SQL.open_cursor;
1153: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1154: DBMS_SQL.define_column(CursorId, 1, Id);
1155: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1156: IF (ExecuteValue > 0) THEN
1157: RetVal := TRUE;
1158: ELSE

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

1151:
1152: CursorId := DBMS_SQL.open_cursor;
1153: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1154: DBMS_SQL.define_column(CursorId, 1, Id);
1155: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1156: IF (ExecuteValue > 0) THEN
1157: RetVal := TRUE;
1158: ELSE
1159: RetVal := FALSE;

Line 1161: DBMS_SQL.close_cursor(CursorId);

1157: RetVal := TRUE;
1158: ELSE
1159: RetVal := FALSE;
1160: END IF;
1161: DBMS_SQL.close_cursor(CursorId);
1162: RETURN(RetVal);
1163: END ro_column_exists;
1164:
1165:

Line 1197: CursorId := DBMS_SQL.open_cursor;

1193: RetVal VARCHAR2(1000) := NULL;
1194: Id NUMBER;
1195: BEGIN
1196: display_string(SQLString);
1197: CursorId := DBMS_SQL.open_cursor;
1198: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1199: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN

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

1194: Id NUMBER;
1195: BEGIN
1196: display_string(SQLString);
1197: CursorId := DBMS_SQL.open_cursor;
1198: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1199: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN
1202: DBMS_SQL.column_value(CursorId, 1, RetVal);

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

1195: BEGIN
1196: display_string(SQLString);
1197: CursorId := DBMS_SQL.open_cursor;
1198: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1199: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN
1202: DBMS_SQL.column_value(CursorId, 1, RetVal);
1203: END IF;

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

1196: display_string(SQLString);
1197: CursorId := DBMS_SQL.open_cursor;
1198: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1199: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN
1202: DBMS_SQL.column_value(CursorId, 1, RetVal);
1203: END IF;
1204: DBMS_SQL.close_cursor(CursorId);

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

1198: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1199: DBMS_SQL.define_column(CursorId, 1, RetVal, ColumnSize);
1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN
1202: DBMS_SQL.column_value(CursorId, 1, RetVal);
1203: END IF;
1204: DBMS_SQL.close_cursor(CursorId);
1205: RETURN(RetVal);
1206: END get_varchar2;

Line 1204: DBMS_SQL.close_cursor(CursorId);

1200: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1201: IF (ExecuteValue > 0) THEN
1202: DBMS_SQL.column_value(CursorId, 1, RetVal);
1203: END IF;
1204: DBMS_SQL.close_cursor(CursorId);
1205: RETURN(RetVal);
1206: END get_varchar2;
1207:
1208: