506: Token4 => 'PARAM3',
507: Token4Val => TO_CHAR(TargetAxisSetId));
508:
509: /* Get all the relevant records. */
510: CursorId := DBMS_SQL.open_cursor;
511: DBMS_SQL.parse(CursorId,
512: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
513: ' FROM rg_report_axis_contents@' || G_LinkName ||
514: ' WHERE axis_seq = ' || TO_CHAR(SourceAxisSeq) ||
507: Token4Val => TO_CHAR(TargetAxisSetId));
508:
509: /* Get all the relevant records. */
510: CursorId := DBMS_SQL.open_cursor;
511: DBMS_SQL.parse(CursorId,
512: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
513: ' FROM rg_report_axis_contents@' || G_LinkName ||
514: ' WHERE axis_seq = ' || TO_CHAR(SourceAxisSeq) ||
515: ' AND axis_set_id = ' || TO_CHAR(SourceAxisSetId),
512: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
513: ' FROM rg_report_axis_contents@' || G_LinkName ||
514: ' WHERE axis_seq = ' || TO_CHAR(SourceAxisSeq) ||
515: ' AND axis_set_id = ' || TO_CHAR(SourceAxisSetId),
516: DBMS_SQL.v7);
517: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
518: DBMS_SQL.define_column(CursorId, 2, LedgerId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
513: ' FROM rg_report_axis_contents@' || G_LinkName ||
514: ' WHERE axis_seq = ' || TO_CHAR(SourceAxisSeq) ||
515: ' AND axis_set_id = ' || TO_CHAR(SourceAxisSetId),
516: DBMS_SQL.v7);
517: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
518: DBMS_SQL.define_column(CursorId, 2, LedgerId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
514: ' WHERE axis_seq = ' || TO_CHAR(SourceAxisSeq) ||
515: ' AND axis_set_id = ' || TO_CHAR(SourceAxisSetId),
516: DBMS_SQL.v7);
517: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
518: DBMS_SQL.define_column(CursorId, 2, LedgerId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
515: ' AND axis_set_id = ' || TO_CHAR(SourceAxisSetId),
516: DBMS_SQL.v7);
517: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
518: DBMS_SQL.define_column(CursorId, 2, LedgerId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
516: DBMS_SQL.v7);
517: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
518: DBMS_SQL.define_column(CursorId, 2, LedgerId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
524: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
519: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
524: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
525: DBMS_SQL.column_value(CursorId, 2, LedgerId);
526: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
527:
520: ExecuteValue := DBMS_SQL.execute(CursorId);
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
524: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
525: DBMS_SQL.column_value(CursorId, 2, LedgerId);
526: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
527:
528: IF (LedgerId IS NOT NULL) THEN
521: LOOP
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
524: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
525: DBMS_SQL.column_value(CursorId, 2, LedgerId);
526: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
527:
528: IF (LedgerId IS NOT NULL) THEN
529: RG_XFER_UTILS_PKG.get_target_ldg_from_source_ldg(
522: /* For each record, check the ledger info and insert the record. */
523: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
524: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
525: DBMS_SQL.column_value(CursorId, 2, LedgerId);
526: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
527:
528: IF (LedgerId IS NOT NULL) THEN
529: RG_XFER_UTILS_PKG.get_target_ldg_from_source_ldg(
530: LedgerId, LedgerName, LedgerCurrency);
577: /* No more rows */
578: EXIT;
579: END IF;
580: END LOOP;
581: DBMS_SQL.close_cursor(CursorId);
582:
583: RG_XFER_UTILS_PKG.display_log(
584: MsgLevel => G_ML_Full,
585: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
636: 'SELECT segment_name FROM rg_report_axis_sets@' ||
637: G_LinkName || ' WHERE axis_set_id = ' ||
638: TO_CHAR(SourceAxisSetId), 30);
639:
640: CursorId := DBMS_SQL.open_cursor;
641: DBMS_SQL.parse(CursorId,
642: 'SELECT axis_seq, segment_override_value,' ||
643: ' override_alc_ledger_currency FROM rg_report_axes@' ||
644: G_LinkName || ' WHERE axis_set_id =' ||
637: G_LinkName || ' WHERE axis_set_id = ' ||
638: TO_CHAR(SourceAxisSetId), 30);
639:
640: CursorId := DBMS_SQL.open_cursor;
641: DBMS_SQL.parse(CursorId,
642: 'SELECT axis_seq, segment_override_value,' ||
643: ' override_alc_ledger_currency FROM rg_report_axes@' ||
644: G_LinkName || ' WHERE axis_set_id =' ||
645: TO_CHAR(SourceAxisSetId),
642: 'SELECT axis_seq, segment_override_value,' ||
643: ' override_alc_ledger_currency FROM rg_report_axes@' ||
644: G_LinkName || ' WHERE axis_set_id =' ||
645: TO_CHAR(SourceAxisSetId),
646: DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, AxisSeq);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
643: ' override_alc_ledger_currency FROM rg_report_axes@' ||
644: G_LinkName || ' WHERE axis_set_id =' ||
645: TO_CHAR(SourceAxisSetId),
646: DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, AxisSeq);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
644: G_LinkName || ' WHERE axis_set_id =' ||
645: TO_CHAR(SourceAxisSetId),
646: DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, AxisSeq);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
645: TO_CHAR(SourceAxisSetId),
646: DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, AxisSeq);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
646: DBMS_SQL.v7);
647: DBMS_SQL.define_column(CursorId, 1, AxisSeq);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
654: DBMS_SQL.column_value(CursorId, 2, OverrideVal);
648: DBMS_SQL.define_column(CursorId, 2, OverrideVal, 60);
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
654: DBMS_SQL.column_value(CursorId, 2, OverrideVal);
655: DBMS_SQL.column_value(CursorId, 3, OverrideCurr);
656:
649: DBMS_SQL.define_column(CursorId, 3, OverrideCurr, 15);
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
654: DBMS_SQL.column_value(CursorId, 2, OverrideVal);
655: DBMS_SQL.column_value(CursorId, 3, OverrideCurr);
656:
657: IF (AxisSegmentName = 'LEDGER_SEGMENT') THEN
650: ExecuteValue := DBMS_SQL.execute(CursorId);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
654: DBMS_SQL.column_value(CursorId, 2, OverrideVal);
655: DBMS_SQL.column_value(CursorId, 3, OverrideCurr);
656:
657: IF (AxisSegmentName = 'LEDGER_SEGMENT') THEN
658: LedgerId := TO_NUMBER(OverrideVal);
651: LOOP
652: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
653: DBMS_SQL.column_value(CursorId, 1, AxisSeq);
654: DBMS_SQL.column_value(CursorId, 2, OverrideVal);
655: DBMS_SQL.column_value(CursorId, 3, OverrideCurr);
656:
657: IF (AxisSegmentName = 'LEDGER_SEGMENT') THEN
658: LedgerId := TO_NUMBER(OverrideVal);
659: IF (OverrideVal IS NOT NULL) THEN
774: Token1Val=> TO_CHAR(TargetExceptionId));
775: RG_XFER_UTILS_PKG.insert_rows(
776: SQLString, TargetAxisSetId, UseCOAId=>FALSE);
777:
778: TempCursorId := DBMS_SQL.open_cursor;
779: DBMS_SQL.parse(
780: TempCursorId,
781: 'SELECT exception_id FROM rg_report_exception_flags@' || G_LinkName||
782: ' WHERE axis_set_id = ' || TO_CHAR(SourceAxisSetId) ||
775: RG_XFER_UTILS_PKG.insert_rows(
776: SQLString, TargetAxisSetId, UseCOAId=>FALSE);
777:
778: TempCursorId := DBMS_SQL.open_cursor;
779: DBMS_SQL.parse(
780: TempCursorId,
781: 'SELECT exception_id FROM rg_report_exception_flags@' || G_LinkName||
782: ' WHERE axis_set_id = ' || TO_CHAR(SourceAxisSetId) ||
783: ' AND axis_seq = ' || TO_CHAR(AxisSeq),
780: TempCursorId,
781: 'SELECT exception_id FROM rg_report_exception_flags@' || G_LinkName||
782: ' WHERE axis_set_id = ' || TO_CHAR(SourceAxisSetId) ||
783: ' AND axis_seq = ' || TO_CHAR(AxisSeq),
784: DBMS_SQL.v7);
785: DBMS_SQL.define_column(TempCursorId, 1, SourceExceptionId);
786: ExecuteValue := DBMS_SQL.execute_and_fetch(TempCursorId);
787: IF (ExecuteValue > 0) THEN
788: DBMS_SQL.column_value(TempCursorId, 1, SourceExceptionId);
781: 'SELECT exception_id FROM rg_report_exception_flags@' || G_LinkName||
782: ' WHERE axis_set_id = ' || TO_CHAR(SourceAxisSetId) ||
783: ' AND axis_seq = ' || TO_CHAR(AxisSeq),
784: DBMS_SQL.v7);
785: DBMS_SQL.define_column(TempCursorId, 1, SourceExceptionId);
786: ExecuteValue := DBMS_SQL.execute_and_fetch(TempCursorId);
787: IF (ExecuteValue > 0) THEN
788: DBMS_SQL.column_value(TempCursorId, 1, SourceExceptionId);
789: SQLString := ExceptionsString || G_LinkName ||
782: ' WHERE axis_set_id = ' || TO_CHAR(SourceAxisSetId) ||
783: ' AND axis_seq = ' || TO_CHAR(AxisSeq),
784: DBMS_SQL.v7);
785: DBMS_SQL.define_column(TempCursorId, 1, SourceExceptionId);
786: ExecuteValue := DBMS_SQL.execute_and_fetch(TempCursorId);
787: IF (ExecuteValue > 0) THEN
788: DBMS_SQL.column_value(TempCursorId, 1, SourceExceptionId);
789: SQLString := ExceptionsString || G_LinkName ||
790: ' WHERE exception_id = ' || TO_CHAR(SourceExceptionId);
784: DBMS_SQL.v7);
785: DBMS_SQL.define_column(TempCursorId, 1, SourceExceptionId);
786: ExecuteValue := DBMS_SQL.execute_and_fetch(TempCursorId);
787: IF (ExecuteValue > 0) THEN
788: DBMS_SQL.column_value(TempCursorId, 1, SourceExceptionId);
789: SQLString := ExceptionsString || G_LinkName ||
790: ' WHERE exception_id = ' || TO_CHAR(SourceExceptionId);
791: RG_XFER_UTILS_PKG.substitute_tokens(
792: SQLString,
796: SQLString,
797: TargetAxisSetId,
798: UseCOAId=>FALSE);
799: END IF;
800: DBMS_SQL.close_cursor(TempCursorId);
801: END IF;
802:
803: ELSE
804: /* No more rows */
804: /* No more rows */
805: EXIT;
806: END IF;
807: END LOOP;
808: DBMS_SQL.close_cursor(CursorId);
809:
810: RG_XFER_UTILS_PKG.display_log(
811: MsgLevel => G_ML_Full,
812: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
844: Token3 => 'PARAM2',
845: Token3Val => TO_CHAR(TargetColumnSetId));
846:
847: /* Get the header from the source database and store it in a variable */
848: CursorId := DBMS_SQL.open_cursor;
849: DBMS_SQL.parse(CursorId,
850: 'SELECT to_char(column_set_header) FROM rg_report_axis_sets@' ||
851: G_LinkName || ' WHERE axis_set_id = ' ||
852: TO_CHAR(SourceColumnSetId),
845: Token3Val => TO_CHAR(TargetColumnSetId));
846:
847: /* Get the header from the source database and store it in a variable */
848: CursorId := DBMS_SQL.open_cursor;
849: DBMS_SQL.parse(CursorId,
850: 'SELECT to_char(column_set_header) FROM rg_report_axis_sets@' ||
851: G_LinkName || ' WHERE axis_set_id = ' ||
852: TO_CHAR(SourceColumnSetId),
853: DBMS_SQL.v7);
849: DBMS_SQL.parse(CursorId,
850: 'SELECT to_char(column_set_header) FROM rg_report_axis_sets@' ||
851: G_LinkName || ' WHERE axis_set_id = ' ||
852: TO_CHAR(SourceColumnSetId),
853: DBMS_SQL.v7);
854: DBMS_SQL.define_column(CursorId, 1, Header, 7000);
855: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
850: 'SELECT to_char(column_set_header) FROM rg_report_axis_sets@' ||
851: G_LinkName || ' WHERE axis_set_id = ' ||
852: TO_CHAR(SourceColumnSetId),
853: DBMS_SQL.v7);
854: DBMS_SQL.define_column(CursorId, 1, Header, 7000);
855: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
858:
851: G_LinkName || ' WHERE axis_set_id = ' ||
852: TO_CHAR(SourceColumnSetId),
853: DBMS_SQL.v7);
854: DBMS_SQL.define_column(CursorId, 1, Header, 7000);
855: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
852: TO_CHAR(SourceColumnSetId),
853: DBMS_SQL.v7);
854: DBMS_SQL.define_column(CursorId, 1, Header, 7000);
855: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
853: DBMS_SQL.v7);
854: DBMS_SQL.define_column(CursorId, 1, Header, 7000);
855: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
856: DBMS_SQL.column_value(CursorId, 1, Header);
857: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
857: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
865: DBMS_SQL.close_cursor(CursorId);
858:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
865: DBMS_SQL.close_cursor(CursorId);
866:
859: /* Transfer the header from the variable to the target database */
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
865: DBMS_SQL.close_cursor(CursorId);
866:
867: RG_XFER_UTILS_PKG.display_log(
860: CursorId := DBMS_SQL.open_cursor;
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
865: DBMS_SQL.close_cursor(CursorId);
866:
867: RG_XFER_UTILS_PKG.display_log(
868: MsgLevel => G_ML_Full,
861: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
862: DBMS_SQL.bind_variable(CursorId, ':header', Header);
863: DBMS_SQL.bind_variable(CursorId, ':id', TargetColumnSetId);
864: ExecuteValue := DBMS_SQL.execute(CursorId);
865: DBMS_SQL.close_cursor(CursorId);
866:
867: RG_XFER_UTILS_PKG.display_log(
868: MsgLevel => G_ML_Full,
869: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
904: Token3 => 'PARAM2',
905: Token3Val => TO_CHAR(TargetContentSetId));
906:
907: /* Insert the detail records for the specified content set. */
908: CursorId := DBMS_SQL.open_cursor;
909: DBMS_SQL.parse(CursorId,
910: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
911: ' FROM rg_report_content_overrides@' || G_LinkName ||
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
905: Token3Val => TO_CHAR(TargetContentSetId));
906:
907: /* Insert the detail records for the specified content set. */
908: CursorId := DBMS_SQL.open_cursor;
909: DBMS_SQL.parse(CursorId,
910: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
911: ' FROM rg_report_content_overrides@' || G_LinkName ||
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
913: DBMS_SQL.v7);
909: DBMS_SQL.parse(CursorId,
910: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
911: ' FROM rg_report_content_overrides@' || G_LinkName ||
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
913: DBMS_SQL.v7);
914: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
915: DBMS_SQL.define_column(CursorId, 2, LedgerId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
910: 'SELECT rowid, ledger_id, alc_ledger_currency' ||
911: ' FROM rg_report_content_overrides@' || G_LinkName ||
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
913: DBMS_SQL.v7);
914: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
915: DBMS_SQL.define_column(CursorId, 2, LedgerId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
911: ' FROM rg_report_content_overrides@' || G_LinkName ||
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
913: DBMS_SQL.v7);
914: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
915: DBMS_SQL.define_column(CursorId, 2, LedgerId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
912: ' WHERE content_set_id = ' || TO_CHAR(SourceContentSetId),
913: DBMS_SQL.v7);
914: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
915: DBMS_SQL.define_column(CursorId, 2, LedgerId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
913: DBMS_SQL.v7);
914: DBMS_SQL.define_column_rowid(CursorId, 1, RecRowId);
915: DBMS_SQL.define_column(CursorId, 2, LedgerId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
921: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
916: DBMS_SQL.define_column(CursorId, 3, LedgerCurrency, 15);
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
921: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
922: DBMS_SQL.column_value(CursorId, 2, LedgerId);
923: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
924:
917: ExecuteValue := DBMS_SQL.execute(CursorId);
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
921: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
922: DBMS_SQL.column_value(CursorId, 2, LedgerId);
923: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
924:
925: IF (LedgerId IS NOT NULL) THEN
918: LOOP
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
921: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
922: DBMS_SQL.column_value(CursorId, 2, LedgerId);
923: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
924:
925: IF (LedgerId IS NOT NULL) THEN
926: RG_XFER_UTILS_PKG.get_target_ldg_from_source_ldg(
919: /* For each record, check the ledger info and insert the record. */
920: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
921: DBMS_SQL.column_value_rowid(CursorId, 1, RecRowId);
922: DBMS_SQL.column_value(CursorId, 2, LedgerId);
923: DBMS_SQL.column_value(CursorId, 3, LedgerCurrency);
924:
925: IF (LedgerId IS NOT NULL) THEN
926: RG_XFER_UTILS_PKG.get_target_ldg_from_source_ldg(
927: LedgerId, LedgerName, LedgerCurrency);
967: /* No more rows */
968: EXIT;
969: END IF;
970: END LOOP;
971: DBMS_SQL.close_cursor(CursorId);
972:
973: RG_XFER_UTILS_PKG.display_log(
974: MsgLevel => G_ML_Full,
975: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1009: ' AND a.element_id = e.element_id';
1010:
1011: RG_XFER_UTILS_PKG.display_string(SQLString);
1012:
1013: CursorId := DBMS_SQL.open_cursor;
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1010:
1011: RG_XFER_UTILS_PKG.display_string(SQLString);
1012:
1013: CursorId := DBMS_SQL.open_cursor;
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1011: RG_XFER_UTILS_PKG.display_string(SQLString);
1012:
1013: CursorId := DBMS_SQL.open_cursor;
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1012:
1013: CursorId := DBMS_SQL.open_cursor;
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1013: CursorId := DBMS_SQL.open_cursor;
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1021: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
1014: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1015: DBMS_SQL.define_column(CursorId, 1, Id);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1021: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
1022: DBMS_SQL.column_value(CursorId, 3, SourceTaxId);
1016: DBMS_SQL.define_column(CursorId, 2, SourceIdName, 240);
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1021: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
1022: DBMS_SQL.column_value(CursorId, 3, SourceTaxId);
1023: ELSE
1024: Id := NULL;
1017: DBMS_SQL.define_column(CursorId, 3, SourceTaxId);
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1021: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
1022: DBMS_SQL.column_value(CursorId, 3, SourceTaxId);
1023: ELSE
1024: Id := NULL;
1025: SourceIdName := 'NULL';
1018: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1019: IF (ExecuteValue > 0) THEN
1020: DBMS_SQL.column_value(CursorId, 1, Id);
1021: DBMS_SQL.column_value(CursorId, 2, SourceIdName);
1022: DBMS_SQL.column_value(CursorId, 3, SourceTaxId);
1023: ELSE
1024: Id := NULL;
1025: SourceIdName := 'NULL';
1026: END IF;
1023: ELSE
1024: Id := NULL;
1025: SourceIdName := 'NULL';
1026: END IF;
1027: DBMS_SQL.close_cursor(CursorId);
1028:
1029: IF (Id IS NULL) THEN
1030: IdValue := 'NULL';
1031: ELSE
1037: ' RG_XBRL_TAXONOMIES' || '@'|| G_LinkName || ' ref_table ' ||
1038: 'WHERE ref_table.taxonomy_id ' || '= '|| TO_CHAR(SourceTaxId);
1039:
1040: RG_XFER_UTILS_PKG.display_string(SQLString);
1041: CursorId := DBMS_SQL.open_cursor;
1042: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1043: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
1044: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1045: IF (ExecuteValue > 0) THEN
1038: 'WHERE ref_table.taxonomy_id ' || '= '|| TO_CHAR(SourceTaxId);
1039:
1040: RG_XFER_UTILS_PKG.display_string(SQLString);
1041: CursorId := DBMS_SQL.open_cursor;
1042: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1043: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
1044: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1045: IF (ExecuteValue > 0) THEN
1046: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
1039:
1040: RG_XFER_UTILS_PKG.display_string(SQLString);
1041: CursorId := DBMS_SQL.open_cursor;
1042: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1043: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
1044: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1045: IF (ExecuteValue > 0) THEN
1046: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
1047: ELSE
1040: RG_XFER_UTILS_PKG.display_string(SQLString);
1041: CursorId := DBMS_SQL.open_cursor;
1042: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1043: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
1044: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1045: IF (ExecuteValue > 0) THEN
1046: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
1047: ELSE
1048: RefObjectName := '';
1042: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1043: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
1044: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1045: IF (ExecuteValue > 0) THEN
1046: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
1047: ELSE
1048: RefObjectName := '';
1049: END IF;
1050: DBMS_SQL.close_cursor(CursorId);
1046: DBMS_SQL.column_value(CursorId, 1, RefObjectName);
1047: ELSE
1048: RefObjectName := '';
1049: END IF;
1050: DBMS_SQL.close_cursor(CursorId);
1051: TaxAlias := RefObjectName;
1052:
1053: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, TaxAlias);
1054: ValueString := '''' || TempValue || '''';
1067: ' AND element_identifier ' || '=' || ValueString;
1068:
1069: RG_XFER_UTILS_PKG.display_string(SQLString);
1070:
1071: CursorId := DBMS_SQL.open_cursor;
1072: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1073: DBMS_SQL.define_column(CursorId, 1, TargetId);
1074: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1075: IF (ExecuteValue > 0) THEN
1068:
1069: RG_XFER_UTILS_PKG.display_string(SQLString);
1070:
1071: CursorId := DBMS_SQL.open_cursor;
1072: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1073: DBMS_SQL.define_column(CursorId, 1, TargetId);
1074: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1075: IF (ExecuteValue > 0) THEN
1076: DBMS_SQL.column_value(CursorId, 1, TargetId);
1069: RG_XFER_UTILS_PKG.display_string(SQLString);
1070:
1071: CursorId := DBMS_SQL.open_cursor;
1072: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1073: DBMS_SQL.define_column(CursorId, 1, TargetId);
1074: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1075: IF (ExecuteValue > 0) THEN
1076: DBMS_SQL.column_value(CursorId, 1, TargetId);
1077: ELSE
1070:
1071: CursorId := DBMS_SQL.open_cursor;
1072: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1073: DBMS_SQL.define_column(CursorId, 1, TargetId);
1074: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1075: IF (ExecuteValue > 0) THEN
1076: DBMS_SQL.column_value(CursorId, 1, TargetId);
1077: ELSE
1078: TargetId := NULL;
1072: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
1073: DBMS_SQL.define_column(CursorId, 1, TargetId);
1074: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
1075: IF (ExecuteValue > 0) THEN
1076: DBMS_SQL.column_value(CursorId, 1, TargetId);
1077: ELSE
1078: TargetId := NULL;
1079: END IF;
1080:
1077: ELSE
1078: TargetId := NULL;
1079: END IF;
1080:
1081: DBMS_SQL.close_cursor(CursorId);
1082: IdValue := TO_CHAR(TargetId);
1083:
1084: END IF;
1085: END get_element_target_id;