[Home] [Help]
30: * run. The list is required so that we can distinguish between the
31: * components copied in this run, and the components that existed before
32: * the run. The lists are checked by the copy_
33: * For each list, there is a count (index). */
34: ColumnSetList RG_XFER_UTILS_PKG.ListType;
35: ColumnSetCount BINARY_INTEGER := 0;
36: ContentSetList RG_XFER_UTILS_PKG.ListType;
37: ContentSetCount BINARY_INTEGER := 0;
38: DisplayGroupList RG_XFER_UTILS_PKG.ListType;
32: * the run. The lists are checked by the copy_
33: * For each list, there is a count (index). */
34: ColumnSetList RG_XFER_UTILS_PKG.ListType;
35: ColumnSetCount BINARY_INTEGER := 0;
36: ContentSetList RG_XFER_UTILS_PKG.ListType;
37: ContentSetCount BINARY_INTEGER := 0;
38: DisplayGroupList RG_XFER_UTILS_PKG.ListType;
39: DisplayGroupCount BINARY_INTEGER := 0;
40: DisplaySetList RG_XFER_UTILS_PKG.ListType;
34: ColumnSetList RG_XFER_UTILS_PKG.ListType;
35: ColumnSetCount BINARY_INTEGER := 0;
36: ContentSetList RG_XFER_UTILS_PKG.ListType;
37: ContentSetCount BINARY_INTEGER := 0;
38: DisplayGroupList RG_XFER_UTILS_PKG.ListType;
39: DisplayGroupCount BINARY_INTEGER := 0;
40: DisplaySetList RG_XFER_UTILS_PKG.ListType;
41: DisplaySetCount BINARY_INTEGER := 0;
42: ReportList RG_XFER_UTILS_PKG.ListType;
36: ContentSetList RG_XFER_UTILS_PKG.ListType;
37: ContentSetCount BINARY_INTEGER := 0;
38: DisplayGroupList RG_XFER_UTILS_PKG.ListType;
39: DisplayGroupCount BINARY_INTEGER := 0;
40: DisplaySetList RG_XFER_UTILS_PKG.ListType;
41: DisplaySetCount BINARY_INTEGER := 0;
42: ReportList RG_XFER_UTILS_PKG.ListType;
43: ReportCount BINARY_INTEGER := 0;
44: ReportSetList RG_XFER_UTILS_PKG.ListType;
38: DisplayGroupList RG_XFER_UTILS_PKG.ListType;
39: DisplayGroupCount BINARY_INTEGER := 0;
40: DisplaySetList RG_XFER_UTILS_PKG.ListType;
41: DisplaySetCount BINARY_INTEGER := 0;
42: ReportList RG_XFER_UTILS_PKG.ListType;
43: ReportCount BINARY_INTEGER := 0;
44: ReportSetList RG_XFER_UTILS_PKG.ListType;
45: ReportSetCount BINARY_INTEGER := 0;
46: RowOrderList RG_XFER_UTILS_PKG.ListType;
40: DisplaySetList RG_XFER_UTILS_PKG.ListType;
41: DisplaySetCount BINARY_INTEGER := 0;
42: ReportList RG_XFER_UTILS_PKG.ListType;
43: ReportCount BINARY_INTEGER := 0;
44: ReportSetList RG_XFER_UTILS_PKG.ListType;
45: ReportSetCount BINARY_INTEGER := 0;
46: RowOrderList RG_XFER_UTILS_PKG.ListType;
47: RowOrderCount BINARY_INTEGER := 0;
48: RowSetList RG_XFER_UTILS_PKG.ListType;
42: ReportList RG_XFER_UTILS_PKG.ListType;
43: ReportCount BINARY_INTEGER := 0;
44: ReportSetList RG_XFER_UTILS_PKG.ListType;
45: ReportSetCount BINARY_INTEGER := 0;
46: RowOrderList RG_XFER_UTILS_PKG.ListType;
47: RowOrderCount BINARY_INTEGER := 0;
48: RowSetList RG_XFER_UTILS_PKG.ListType;
49: RowSetCount BINARY_INTEGER := 0;
50:
44: ReportSetList RG_XFER_UTILS_PKG.ListType;
45: ReportSetCount BINARY_INTEGER := 0;
46: RowOrderList RG_XFER_UTILS_PKG.ListType;
47: RowOrderCount BINARY_INTEGER := 0;
48: RowSetList RG_XFER_UTILS_PKG.ListType;
49: RowSetCount BINARY_INTEGER := 0;
50:
51:
52: /* Strings to select from the source database and insert into the
349:
350: /* Name: init
351: * Desc: Initialize some variables that are used in this package.
352: *
353: * Notes: This procedure is called by RG_XFER_UTILS_PKG.init
354: *
355: * History:
356: * 10/17/95 S Rahman Created.
357: */
382: BEGIN
383: TotalCount := ColumnSetCount + ContentSetCount + DisplayGroupCount +
384: DisplaySetCount + ReportCount + ReportSetCount +
385: RowOrderCount + RowSetCount;
386: RG_XFER_UTILS_PKG.display_message(
387: MsgName => 'RG_XFER_STATS_1',
388: Token1 => 'ROW_SET_COUNT',
389: Token1Val => TO_CHAR(RowSetCount),
390: Token1Xlate => FALSE,
397: Token4 => 'ROW_ORDER_COUNT',
398: Token4Val => TO_CHAR(RowOrderCount),
399: Token4Xlate => FALSE
400: );
401: RG_XFER_UTILS_PKG.display_message(
402: MsgName => 'RG_XFER_STATS_2',
403: Token1 => 'DISPLAY_GROUP_COUNT',
404: Token1Val => TO_CHAR(DisplayGroupCount),
405: Token1Xlate => FALSE,
433: PROCEDURE copy_component(
434: ComponentType VARCHAR2,
435: ComponentName VARCHAR2) IS
436: BEGIN
437: RG_XFER_UTILS_PKG.display_log(
438: MsgLevel => G_ML_Full,
439: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
440: Token1 => 'ROUTINE',
441: Token1Val => 'copy_component',
461:
462: /* Print transfer statistics */
463: print_stats;
464:
465: RG_XFER_UTILS_PKG.display_log(
466: MsgLevel => G_ML_Full,
467: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
468: Token1 => 'ROUTINE',
469: Token1Val => 'copy_component');
501: ErrorNum NUMBER;
502: ErrorMsg VARCHAR2(512);
503: AdjustedName VARCHAR2(60) := NULL;
504: BEGIN
505: RG_XFER_UTILS_PKG.display_log(
506: MsgLevel => G_ML_Full,
507: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
508: Token1 => 'ROUTINE',
509: Token1Val => 'copy_single_component',
512: Token3 => 'PARAM2',
513: Token3Val => ComponentName);
514:
515: /* Account for single quotes */
516: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
517:
518: /* Check for wildcard character (%) and set up strings */
519: IF (ComponentName IS NOT NULL) THEN
520: IF (INSTR(ComponentName, '%', 1) = 0) THEN
539: /* Initialize id */
540: Id := G_Error;
541:
542: /* Print starting to process message */
543: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
544: RG_XFER_UTILS_PKG.display_message(
545: MsgName => 'RG_XFER_PROCESSING',
546: Token1 => 'COMP_TYPE',
547: Token1Val => ComponentType,
540: Id := G_Error;
541:
542: /* Print starting to process message */
543: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
544: RG_XFER_UTILS_PKG.display_message(
545: MsgName => 'RG_XFER_PROCESSING',
546: Token1 => 'COMP_TYPE',
547: Token1Val => ComponentType,
548: Token1Xlate => TRUE,
567: Id := copy_report(ComponentName, CheckExistence);
568: ELSIF (ComponentType = 'RG_REPORT_SET') THEN
569: Id := copy_report_set(ComponentName, CheckExistence);
570: ELSE
571: RG_XFER_UTILS_PKG.display_log(
572: MsgLevel => G_ML_Full,
573: MsgName => 'RG_XFER_L_INVALID',
574: Token1 => 'VALUE',
575: Token1Val => ComponentType);
577:
578: /* Commit or rollback depending on results from copy. */
579: IF (Id = G_Error) THEN
580: ROLLBACK;
581: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
582: RG_XFER_UTILS_PKG.display_error(
583: MsgName => 'RG_XFER_ROLLBACK',
584: Token1 => 'COMP_TYPE',
585: Token1Val => ComponentType,
578: /* Commit or rollback depending on results from copy. */
579: IF (Id = G_Error) THEN
580: ROLLBACK;
581: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
582: RG_XFER_UTILS_PKG.display_error(
583: MsgName => 'RG_XFER_ROLLBACK',
584: Token1 => 'COMP_TYPE',
585: Token1Val => ComponentType,
586: Token1Xlate => TRUE,
586: Token1Xlate => TRUE,
587: Token2 => 'COMP_NAME',
588: Token2Val => ComponentName,
589: Token2Xlate => FALSE);
590: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
591: ELSIF (Id = G_Warning) THEN
592: COMMIT;
593: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
594: RG_XFER_UTILS_PKG.display_warning(
589: Token2Xlate => FALSE);
590: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
591: ELSIF (Id = G_Warning) THEN
592: COMMIT;
593: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
594: RG_XFER_UTILS_PKG.display_warning(
595: MsgName => 'RG_XFER_WARNING',
596: Token1 => 'COMP_TYPE',
597: Token1Val => ComponentType,
590: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
591: ELSIF (Id = G_Warning) THEN
592: COMMIT;
593: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
594: RG_XFER_UTILS_PKG.display_warning(
595: MsgName => 'RG_XFER_WARNING',
596: Token1 => 'COMP_TYPE',
597: Token1Val => ComponentType,
598: Token1Xlate => TRUE,
598: Token1Xlate => TRUE,
599: Token2 => 'COMP_NAME',
600: Token2Val => ComponentName,
601: Token2Xlate => FALSE);
602: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
603: ELSE
604: COMMIT;
605: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
606: RG_XFER_UTILS_PKG.display_message(
601: Token2Xlate => FALSE);
602: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
603: ELSE
604: COMMIT;
605: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
606: RG_XFER_UTILS_PKG.display_message(
607: MsgName => 'RG_XFER_COMMIT',
608: Token1 => 'COMP_TYPE',
609: Token1Val => ComponentType,
602: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
603: ELSE
604: COMMIT;
605: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
606: RG_XFER_UTILS_PKG.display_message(
607: MsgName => 'RG_XFER_COMMIT',
608: Token1 => 'COMP_TYPE',
609: Token1Val => ComponentType,
610: Token1Xlate => TRUE,
610: Token1Xlate => TRUE,
611: Token2 => 'COMP_NAME',
612: Token2Val => ComponentName,
613: Token2Xlate => FALSE);
614: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
615: END IF;
616:
617: ELSE
618: /* A wildcard character or string for all components has been specified.
663: WhereClause := ' WHERE STRUCTURE_ID = ' || TO_CHAR(G_SourceCOAId) ||
664: ' AND application_id' || ApplIdStr || ' = ' ||
665: TO_CHAR(G_ApplId) || NameStr;
666: ELSE
667: RG_XFER_UTILS_PKG.display_log(
668: MsgLevel => G_ML_Full,
669: MsgName => 'RG_XFER_L_INVALID',
670: Token1 => 'VALUE',
671: Token1Val => ComponentType);
673:
674: IF (TableName IS NOT NULL) THEN
675: /* Build the SQL stmt to get all name for the specified component */
676: SQLString := SQLString || TableName || '@' || G_LinkName || WhereClause;
677: RG_XFER_UTILS_PKG.display_string(SQLString);
678:
679: /* Execute the SQL stmt */
680: CursorId := DBMS_SQL.open_cursor;
681: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
702: END LOOP;
703:
704: /* Print messages if no matching rows found */
705: IF (DBMS_SQL.last_row_count = 0) THEN
706: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_NO_MATCH_ROWS');
707: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
708: END IF;
709:
710: DBMS_SQL.close_cursor(CursorId);
703:
704: /* Print messages if no matching rows found */
705: IF (DBMS_SQL.last_row_count = 0) THEN
706: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_NO_MATCH_ROWS');
707: RG_XFER_UTILS_PKG.display_message(MsgName => 'RG_XFER_BLANK');
708: END IF;
709:
710: DBMS_SQL.close_cursor(CursorId);
711:
711:
712: END IF;
713: END IF;
714:
715: RG_XFER_UTILS_PKG.display_log(
716: MsgLevel => G_ML_Full,
717: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
718: Token1 => 'ROUTINE',
719: Token1Val => 'copy_single_component');
722: WHEN OTHERS THEN
723: /* Display the exception if MsgLevel is at least Normal */
724: ErrorNum := SQLCODE;
725: ErrorMsg := SUBSTRB(SQLERRM, 1, 512);
726: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
727:
728: /* Rollback the changes and display error message */
729: ROLLBACK;
730: RG_XFER_UTILS_PKG.display_error(
726: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
727:
728: /* Rollback the changes and display error message */
729: ROLLBACK;
730: RG_XFER_UTILS_PKG.display_error(
731: MsgName => 'RG_XFER_ROLLBACK',
732: Token1 => 'COMP_TYPE',
733: Token1Val => ComponentType,
734: Token1Xlate => TRUE,
774: ErrorNum NUMBER;
775: ErrorMsg VARCHAR2(512);
776:
777: BEGIN
778: RG_XFER_UTILS_PKG.display_log(
779: MsgLevel => G_ML_Full,
780: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
781: Token1 => 'ROUTINE',
782: Token1Val => 'copy_axis_set',
794: AxisSetType := 'C';
795: END IF;
796:
797: /* Account for single quotes */
798: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
799:
800: /* Ensure that the component exists in the source database */
801: IF (CheckExistence) THEN
802: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
798: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
799:
800: /* Ensure that the component exists in the source database */
801: IF (CheckExistence) THEN
802: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
803: ComponentType, ComponentName)) THEN
804: RG_XFER_UTILS_PKG.display_error(
805: MsgName => 'RG_XFER_COMP_NOT_EXIST',
806: Token1 => 'COMP_TYPE',
800: /* Ensure that the component exists in the source database */
801: IF (CheckExistence) THEN
802: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
803: ComponentType, ComponentName)) THEN
804: RG_XFER_UTILS_PKG.display_error(
805: MsgName => 'RG_XFER_COMP_NOT_EXIST',
806: Token1 => 'COMP_TYPE',
807: Token1Val => ComponentType,
808: Token1Xlate => TRUE,
813: END IF;
814: END IF;
815:
816: /* Ensure that the COA id of the component matches the source COA id */
817: CheckCOA := RG_XFER_UTILS_PKG.check_coa_id(
818: 'RG_REPORT_AXIS_SETS',
819: ComponentName,
820: ' AND ((application_id = 168)' ||
821: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
820: ' AND ((application_id = 168)' ||
821: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
822: ' AND axis_set_type = ''' || AxisSetType || '''');
823: IF (CheckCOA = G_Error) THEN
824: RG_XFER_UTILS_PKG.display_warning(
825: MsgName => 'RG_XFER_WRONG_COA',
826: Token1 => 'COMP_TYPE',
827: Token1Val => ComponentType,
828: Token1Xlate => TRUE,
828: Token1Xlate => TRUE,
829: Token2 => 'COMP_NAME',
830: Token2Val => ComponentName,
831: Token2Xlate => FALSE);
832: RG_XFER_UTILS_PKG.display_log(
833: MsgLevel => G_ML_Full,
834: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARN',
835: Token1 => 'ROUTINE',
836: Token1Val => 'copy_axis_set');
838: END IF;
839:
840: /* Begin XBRL related changes */
841: /* Check if TAXONOMY_ID is NULL in source db XBRL */
842: TaxSourceId := RG_XFER_UTILS_PKG.get_source_id(
843: 'RG_REPORT_AXIS_SETS', 'TAXONOMY_ID', ComponentName,
844: ' AND ((application_id = 168)' ||
845: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
846: ' AND axis_set_type = ''' || AxisSetType || '''');
853: IF (TaxSourceId IS NULL) THEN
854: TaxAlias := '';
855: TaxTargetId := NULL;
856: ELSE
857: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, ComponentName);
858: ValueString := '''' || TempValue || '''';
859:
860: SQLString := 'SELECT ref_table.taxonomy_alias '||
861: 'FROM RG_REPORT_AXIS_SETS'||'@'||G_LinkName||' main_table,' ||
862: ' RG_XBRL_TAXONOMIES' || '@'|| G_LinkName || ' ref_table ' ||
863: 'WHERE main_table.name' || '='|| ValueString ||
864: ' AND main_table.taxonomy_id = ref_table.taxonomy_id';
865:
866: RG_XFER_UTILS_PKG.display_string(SQLString);
867: CursorId := DBMS_SQL.open_cursor;
868: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
869: DBMS_SQL.define_column(CursorId, 1, RefObjectName, 240);
870: ExecuteValue := DBMS_SQL.execute_and_fetch(CursorId);
876: DBMS_SQL.close_cursor(CursorId);
877: TaxAlias := RefObjectName;
878:
879: /* Check if a taxonomy with the same alias already exists in target db */
880: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, TaxAlias);
881: ValueString := '''' || TempValue || '''';
882:
883: SQLString := 'SELECT taxonomy_id ' ||
884: 'FROM rg_xbrl_taxonomies ' ||
882:
883: SQLString := 'SELECT taxonomy_id ' ||
884: 'FROM rg_xbrl_taxonomies ' ||
885: 'WHERE taxonomy_alias = ' || ValueString;
886: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
887:
888: IF (TargetId = G_Error) THEN
889: /* deliver taxonomy to target db */
890: Tax_Done_Flag := 0;
891: transfer_taxonomy(TaxAlias,TaxSourceId,Tax_Done_Flag);
892: END IF;
893:
894: /* Check if a taxonomy with the same alias already exists in target db */
895: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, TaxAlias);
896: ValueString := '''' || TempValue || '''';
897:
898: SQLString := 'SELECT taxonomy_id ' ||
899: 'FROM rg_xbrl_taxonomies ' ||
897:
898: SQLString := 'SELECT taxonomy_id ' ||
899: 'FROM rg_xbrl_taxonomies ' ||
900: 'WHERE taxonomy_alias = ' || ValueString;
901: TaxTargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
902:
903: END IF;
904: /* End XBRL related changes */
905:
909: 'WHERE name = ''' || AdjustedName || '''' ||
910: 'AND axis_set_type = ''' || AxisSetType || ''''||
911: 'AND ((application_id = 168)' ||
912: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))';
913: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
914:
915: IF (TargetId = G_Error) THEN
916:
917: /* Component doesn't exist in target db. Insert data into table */
914:
915: IF (TargetId = G_Error) THEN
916:
917: /* Component doesn't exist in target db. Insert data into table */
918: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_AXIS_SETS_S');
919: SourceId := RG_XFER_UTILS_PKG.get_source_id(
920: 'RG_REPORT_AXIS_SETS', 'AXIS_SET_ID', ComponentName,
921: ' AND ((application_id = 168)' ||
922: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
915: IF (TargetId = G_Error) THEN
916:
917: /* Component doesn't exist in target db. Insert data into table */
918: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_AXIS_SETS_S');
919: SourceId := RG_XFER_UTILS_PKG.get_source_id(
920: 'RG_REPORT_AXIS_SETS', 'AXIS_SET_ID', ComponentName,
921: ' AND ((application_id = 168)' ||
922: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
923: ' AND axis_set_type = ''' || AxisSetType || '''');
925: ' WHERE axis_set_id = ' || TO_CHAR(SourceId);
926:
927: /* The structure_id in rg_report_axis_sets may or may not have a value.
928: * Substitute the token accordingly. */
929: IF (CheckCOA = RG_XFER_UTILS_PKG.G_NoCOA) THEN
930: RG_XFER_UTILS_PKG.substitute_tokens(
931: SQLString, Token1=> ':coa_id', Token1Val=> 'NULL');
932: ELSE
933: RG_XFER_UTILS_PKG.substitute_tokens(
926:
927: /* The structure_id in rg_report_axis_sets may or may not have a value.
928: * Substitute the token accordingly. */
929: IF (CheckCOA = RG_XFER_UTILS_PKG.G_NoCOA) THEN
930: RG_XFER_UTILS_PKG.substitute_tokens(
931: SQLString, Token1=> ':coa_id', Token1Val=> 'NULL');
932: ELSE
933: RG_XFER_UTILS_PKG.substitute_tokens(
934: SQLString, Token1=> ':coa_id', Token1Val=> TO_CHAR(G_TargetCOAId));
929: IF (CheckCOA = RG_XFER_UTILS_PKG.G_NoCOA) THEN
930: RG_XFER_UTILS_PKG.substitute_tokens(
931: SQLString, Token1=> ':coa_id', Token1Val=> 'NULL');
932: ELSE
933: RG_XFER_UTILS_PKG.substitute_tokens(
934: SQLString, Token1=> ':coa_id', Token1Val=> TO_CHAR(G_TargetCOAId));
935: END IF;
936:
937: /* Begin XBRL token substitution for TaxTargetId.
936:
937: /* Begin XBRL token substitution for TaxTargetId.
938: * Substitute the token accordingly. */
939: IF (TaxTargetId IS NULL) THEN
940: RG_XFER_UTILS_PKG.substitute_tokens(
941: SQLString, Token1=> ':tax_id', Token1Val=> 'NULL');
942: ELSE
943: RG_XFER_UTILS_PKG.substitute_tokens(
944: SQLString, Token1=> ':tax_id', Token1Val=> TO_CHAR(TaxTargetId));
939: IF (TaxTargetId IS NULL) THEN
940: RG_XFER_UTILS_PKG.substitute_tokens(
941: SQLString, Token1=> ':tax_id', Token1Val=> 'NULL');
942: ELSE
943: RG_XFER_UTILS_PKG.substitute_tokens(
944: SQLString, Token1=> ':tax_id', Token1Val=> TO_CHAR(TaxTargetId));
945: END IF;
946: /* End XBRL token substitution for TaxTargetId. */
947:
944: SQLString, Token1=> ':tax_id', Token1Val=> TO_CHAR(TaxTargetId));
945: END IF;
946: /* End XBRL token substitution for TaxTargetId. */
947:
948: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId => FALSE);
949:
950: IF (ComponentType = 'RG_COLUMN_SET') THEN
951: RG_XFER_COMP_PRIVATE_PKG.copy_column_set_header(SourceId, TargetId);
952: END IF;
956: ComponentType, G_AxisSet, SourceId, TargetId);
957:
958: /* New component - insert into the list of components copied */
959: IF (ComponentType = 'RG_ROW_SET') THEN
960: RG_XFER_UTILS_PKG.insert_into_list(
961: RowSetList, RowSetCount, ComponentName);
962: RG_XFER_UTILS_PKG.display_log(
963: MsgLevel => G_ML_Normal,
964: MsgName => 'RG_XFER_L_TRANSFERRED',
958: /* New component - insert into the list of components copied */
959: IF (ComponentType = 'RG_ROW_SET') THEN
960: RG_XFER_UTILS_PKG.insert_into_list(
961: RowSetList, RowSetCount, ComponentName);
962: RG_XFER_UTILS_PKG.display_log(
963: MsgLevel => G_ML_Normal,
964: MsgName => 'RG_XFER_L_TRANSFERRED',
965: Token1 => 'COMP_TYPE',
966: Token1Val => 'RG_ROW_SET',
968: Token2 => 'COMP_NAME',
969: Token2Val => ComponentName,
970: Token2Xlate => FALSE);
971: ELSE
972: RG_XFER_UTILS_PKG.insert_into_list(
973: ColumnSetList, ColumnSetCount, ComponentName);
974: RG_XFER_UTILS_PKG.display_log(
975: MsgLevel => G_ML_Normal,
976: MsgName => 'RG_XFER_L_TRANSFERRED',
970: Token2Xlate => FALSE);
971: ELSE
972: RG_XFER_UTILS_PKG.insert_into_list(
973: ColumnSetList, ColumnSetCount, ComponentName);
974: RG_XFER_UTILS_PKG.display_log(
975: MsgLevel => G_ML_Normal,
976: MsgName => 'RG_XFER_L_TRANSFERRED',
977: Token1 => 'COMP_TYPE',
978: Token1Val => 'RG_COLUMN_SET',
986:
987: /* Component with same name already exists in target db. Check if
988: * this component was copied by this run. */
989: IF (ComponentType = 'RG_ROW_SET') THEN
990: IF (RG_XFER_UTILS_PKG.search_list(
991: RowSetList, RowSetCount, ComponentName) = G_Error) THEN
992: /* Component with same name existed before this run. */
993:
994: /* Check if it uses the correct chart of accounts id. */
992: /* Component with same name existed before this run. */
993:
994: /* Check if it uses the correct chart of accounts id. */
995: CheckTargetCOA :=
996: RG_XFER_UTILS_PKG.check_target_coa_id(
997: 'RG_REPORT_AXIS_SETS',
998: ComponentName,
999: ' AND ((application_id = 168)' ||
1000: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
999: ' AND ((application_id = 168)' ||
1000: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
1001: ' AND axis_set_type = ''' || AxisSetType || '''');
1002: IF (CheckTargetCOA = G_Error) THEN
1003: RG_XFER_UTILS_PKG.display_warning(
1004: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1005: Token1 => 'COMP_TYPE',
1006: Token1Val => ComponentType,
1007: Token1Xlate => TRUE,
1007: Token1Xlate => TRUE,
1008: Token2 => 'COMP_NAME',
1009: Token2Val => ComponentName,
1010: Token2Xlate => FALSE);
1011: RG_XFER_UTILS_PKG.display_log(
1012: MsgLevel => G_ML_Full,
1013: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARNING',
1014: Token1 => 'ROUTINE',
1015: Token1Val => 'copy_axis_set');
1015: Token1Val => 'copy_axis_set');
1016: RETURN(G_Warning);
1017: ELSE
1018: /* Show warning and use the existing id. */
1019: RG_XFER_UTILS_PKG.display_warning(
1020: MsgName => 'RG_XFER_COMP_EXIST',
1021: Token1 => 'COMP_TYPE',
1022: Token1Val => 'RG_ROW_SET',
1023: Token1Xlate => TRUE,
1026: Token2Xlate => FALSE);
1027: END IF;
1028: END IF;
1029: ELSE
1030: IF (RG_XFER_UTILS_PKG.search_list(
1031: ColumnSetList, ColumnSetCount, ComponentName) = G_Error) THEN
1032: /* Component with same name existed before this run. */
1033:
1034: /* Check if it uses the correct chart of accounts id. */
1032: /* Component with same name existed before this run. */
1033:
1034: /* Check if it uses the correct chart of accounts id. */
1035: CheckTargetCOA :=
1036: RG_XFER_UTILS_PKG.check_target_coa_id(
1037: 'RG_REPORT_AXIS_SETS',
1038: ComponentName,
1039: ' AND ((application_id = 168)' ||
1040: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
1039: ' AND ((application_id = 168)' ||
1040: ' OR (application_id = ' || TO_CHAR(G_ApplId) || '))' ||
1041: ' AND axis_set_type = ''' || AxisSetType || '''');
1042: IF (CheckTargetCOA = G_Error) THEN
1043: RG_XFER_UTILS_PKG.display_warning(
1044: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1045: Token1 => 'COMP_TYPE',
1046: Token1Val => ComponentType,
1047: Token1Xlate => TRUE,
1047: Token1Xlate => TRUE,
1048: Token2 => 'COMP_NAME',
1049: Token2Val => ComponentName,
1050: Token2Xlate => FALSE);
1051: RG_XFER_UTILS_PKG.display_log(
1052: MsgLevel => G_ML_Full,
1053: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARNING',
1054: Token1 => 'ROUTINE',
1055: Token1Val => 'copy_axis_set');
1055: Token1Val => 'copy_axis_set');
1056: RETURN(G_Warning);
1057: ELSE
1058: /* Show warning and use the existing id. */
1059: RG_XFER_UTILS_PKG.display_warning(
1060: MsgName => 'RG_XFER_COMP_EXIST',
1061: Token1 => 'COMP_TYPE',
1062: Token1Val => 'RG_COLUMN_SET',
1063: Token1Xlate => TRUE,
1072:
1073: /* Clear the name of the component being copied */
1074: G_AxisSet := NULL;
1075:
1076: RG_XFER_UTILS_PKG.display_log(
1077: MsgLevel => G_ML_Full,
1078: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1079: Token1 => 'ROUTINE',
1080: Token1Val => 'copy_axis_set');
1087: WHEN OTHERS THEN
1088: /* Display the exception if MsgLevel is at least Normal */
1089: ErrorNum := SQLCODE;
1090: ErrorMsg := SUBSTRB(SQLERRM, 1, 512);
1091: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
1092:
1093: RG_XFER_UTILS_PKG.display_log(
1094: MsgLevel => G_ML_Full,
1095: MsgName => 'RG_XFER_L_EXIT_ROUTINE_ERROR',
1089: ErrorNum := SQLCODE;
1090: ErrorMsg := SUBSTRB(SQLERRM, 1, 512);
1091: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
1092:
1093: RG_XFER_UTILS_PKG.display_log(
1094: MsgLevel => G_ML_Full,
1095: MsgName => 'RG_XFER_L_EXIT_ROUTINE_ERROR',
1096: Token1 => 'ROUTINE',
1097: Token1Val => 'copy_axis_set');
1117: SourceId NUMBER; /* Source component id */
1118: SQLString VARCHAR2(2000);
1119: AdjustedName VARCHAR2(60);
1120: BEGIN
1121: RG_XFER_UTILS_PKG.display_log(
1122: MsgLevel => G_ML_Full,
1123: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
1124: Token1 => 'ROUTINE',
1125: Token1Val => 'copy_content_set',
1129: /* Store the name of the component being copied */
1130: G_ContentSet := ComponentName;
1131:
1132: /* Account for single quotes */
1133: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1134:
1135: /* Ensure that the component exists in the source database */
1136: IF (CheckExistence) THEN
1137: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1133: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1134:
1135: /* Ensure that the component exists in the source database */
1136: IF (CheckExistence) THEN
1137: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1138: 'RG_CONTENT_SET', ComponentName)) THEN
1139: RG_XFER_UTILS_PKG.display_error(
1140: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1141: Token1 => 'COMP_TYPE',
1135: /* Ensure that the component exists in the source database */
1136: IF (CheckExistence) THEN
1137: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1138: 'RG_CONTENT_SET', ComponentName)) THEN
1139: RG_XFER_UTILS_PKG.display_error(
1140: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1141: Token1 => 'COMP_TYPE',
1142: Token1Val => 'RG_CONTENT_SET',
1143: Token1Xlate => TRUE,
1148: END IF;
1149: END IF;
1150:
1151: /* Ensure that the COA id of the component matches the source COA id */
1152: IF (RG_XFER_UTILS_PKG.check_coa_id(
1153: 'RG_REPORT_CONTENT_SETS', ComponentName) = G_Error) THEN
1154: RG_XFER_UTILS_PKG.display_warning(
1155: MsgName => 'RG_XFER_WRONG_COA',
1156: Token1 => 'COMP_TYPE',
1150:
1151: /* Ensure that the COA id of the component matches the source COA id */
1152: IF (RG_XFER_UTILS_PKG.check_coa_id(
1153: 'RG_REPORT_CONTENT_SETS', ComponentName) = G_Error) THEN
1154: RG_XFER_UTILS_PKG.display_warning(
1155: MsgName => 'RG_XFER_WRONG_COA',
1156: Token1 => 'COMP_TYPE',
1157: Token1Val => 'RG_CONTENT_SET',
1158: Token1Xlate => TRUE,
1158: Token1Xlate => TRUE,
1159: Token2 => 'COMP_NAME',
1160: Token2Val => ComponentName,
1161: Token2Xlate => FALSE);
1162: RG_XFER_UTILS_PKG.display_log(
1163: MsgLevel => G_ML_Full,
1164: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARN',
1165: Token1 => 'ROUTINE',
1166: Token1Val => 'copy_content_set');
1171: SQLString := 'SELECT content_set_id ' ||
1172: 'FROM rg_report_content_sets ' ||
1173: 'WHERE name = ''' || AdjustedName || '''' ||
1174: 'AND application_id = ' || TO_CHAR(G_ApplId);
1175: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1176:
1177: IF (TargetId = G_Error) THEN
1178: /* Insert data into table */
1179: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_CONTENT_SETS_S');
1175: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1176:
1177: IF (TargetId = G_Error) THEN
1178: /* Insert data into table */
1179: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_CONTENT_SETS_S');
1180: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1181: 'RG_REPORT_CONTENT_SETS',
1182: 'CONTENT_SET_ID',
1183: ComponentName,
1176:
1177: IF (TargetId = G_Error) THEN
1178: /* Insert data into table */
1179: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_CONTENT_SETS_S');
1180: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1181: 'RG_REPORT_CONTENT_SETS',
1182: 'CONTENT_SET_ID',
1183: ComponentName,
1184: ' AND application_id = ' || TO_CHAR(G_ApplId));
1181: 'RG_REPORT_CONTENT_SETS',
1182: 'CONTENT_SET_ID',
1183: ComponentName,
1184: ' AND application_id = ' || TO_CHAR(G_ApplId));
1185: RG_XFER_UTILS_PKG.insert_rows(
1186: ContentSetsString || G_LinkName ||
1187: ' WHERE content_set_id = ' || TO_CHAR(SourceId),
1188: TargetId, UseCOAId => TRUE);
1189: /* Copy the content set details */
1190: RG_XFER_COMP_PRIVATE_PKG.copy_content_set_details(
1191: G_ContentSet, SourceId, TargetId);
1192:
1193: /* New component - insert into the list of components copied */
1194: RG_XFER_UTILS_PKG.insert_into_list(
1195: ContentSetList, ContentSetCount, ComponentName);
1196: RG_XFER_UTILS_PKG.display_log(
1197: MsgLevel => G_ML_Normal,
1198: MsgName => 'RG_XFER_L_TRANSFERRED',
1192:
1193: /* New component - insert into the list of components copied */
1194: RG_XFER_UTILS_PKG.insert_into_list(
1195: ContentSetList, ContentSetCount, ComponentName);
1196: RG_XFER_UTILS_PKG.display_log(
1197: MsgLevel => G_ML_Normal,
1198: MsgName => 'RG_XFER_L_TRANSFERRED',
1199: Token1 => 'COMP_TYPE',
1200: Token1Val => 'RG_CONTENT_SET',
1206: ELSE
1207:
1208: /* Component with same name already exists in target db. Check if
1209: * this component was copied by this run. */
1210: IF (RG_XFER_UTILS_PKG.search_list(
1211: ContentSetList, ContentSetCount, ComponentName) = G_Error) THEN
1212: /* Component with same name existed before this run. */
1213:
1214: /* Check if it uses the correct chart of accounts id. */
1211: ContentSetList, ContentSetCount, ComponentName) = G_Error) THEN
1212: /* Component with same name existed before this run. */
1213:
1214: /* Check if it uses the correct chart of accounts id. */
1215: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
1216: 'RG_REPORT_CONTENT_SETS', ComponentName) = G_Error) THEN
1217: RG_XFER_UTILS_PKG.display_warning(
1218: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1219: Token1 => 'COMP_TYPE',
1213:
1214: /* Check if it uses the correct chart of accounts id. */
1215: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
1216: 'RG_REPORT_CONTENT_SETS', ComponentName) = G_Error) THEN
1217: RG_XFER_UTILS_PKG.display_warning(
1218: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1219: Token1 => 'COMP_TYPE',
1220: Token1Val => 'RG_CONTENT_SET',
1221: Token1Xlate => TRUE,
1221: Token1Xlate => TRUE,
1222: Token2 => 'COMP_NAME',
1223: Token2Val => ComponentName,
1224: Token2Xlate => FALSE);
1225: RG_XFER_UTILS_PKG.display_log(
1226: MsgLevel => G_ML_Full,
1227: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARNING',
1228: Token1 => 'ROUTINE',
1229: Token1Val => 'copy_content_set');
1229: Token1Val => 'copy_content_set');
1230: RETURN(G_Warning);
1231: ELSE
1232: /* Show warning and use the existing id. */
1233: RG_XFER_UTILS_PKG.display_warning(
1234: MsgName => 'RG_XFER_COMP_EXIST',
1235: Token1 => 'COMP_TYPE',
1236: Token1Val => 'RG_CONTENT_SET',
1237: Token1Xlate => TRUE,
1245:
1246: /* Clear the name of the component being copied */
1247: G_ContentSet := NULL;
1248:
1249: RG_XFER_UTILS_PKG.display_log(
1250: MsgLevel => G_ML_Full,
1251: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1252: Token1 => 'ROUTINE',
1253: Token1Val => 'copy_content_set');
1275: SQLString VARCHAR2(3000);
1276: AdjustedName VARCHAR2(60);
1277: ColumnName VARCHAR2(30);
1278: BEGIN
1279: RG_XFER_UTILS_PKG.display_log(
1280: MsgLevel => G_ML_Full,
1281: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
1282: Token1 => 'ROUTINE',
1283: Token1Val => 'copy_row_order',
1287: /* Store the name of the component being copied */
1288: G_RowOrder := ComponentName;
1289:
1290: /* Account for single quotes */
1291: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1292:
1293: /* Ensure that the component exists in the source database */
1294: IF (CheckExistence) THEN
1295: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1291: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1292:
1293: /* Ensure that the component exists in the source database */
1294: IF (CheckExistence) THEN
1295: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1296: 'RG_ROW_ORDER', ComponentName)) THEN
1297: RG_XFER_UTILS_PKG.display_error(
1298: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1299: Token1 => 'COMP_TYPE',
1293: /* Ensure that the component exists in the source database */
1294: IF (CheckExistence) THEN
1295: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1296: 'RG_ROW_ORDER', ComponentName)) THEN
1297: RG_XFER_UTILS_PKG.display_error(
1298: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1299: Token1 => 'COMP_TYPE',
1300: Token1Val => 'RG_ROW_ORDER',
1301: Token1Xlate => TRUE,
1306: END IF;
1307: END IF;
1308:
1309: /* Ensure that the COA id of the component matches the source COA id */
1310: IF (RG_XFER_UTILS_PKG.check_coa_id(
1311: 'RG_ROW_ORDERS', ComponentName) = G_Error) THEN
1312: RG_XFER_UTILS_PKG.display_warning(
1313: MsgName => 'RG_XFER_WRONG_COA',
1314: Token1 => 'COMP_TYPE',
1308:
1309: /* Ensure that the COA id of the component matches the source COA id */
1310: IF (RG_XFER_UTILS_PKG.check_coa_id(
1311: 'RG_ROW_ORDERS', ComponentName) = G_Error) THEN
1312: RG_XFER_UTILS_PKG.display_warning(
1313: MsgName => 'RG_XFER_WRONG_COA',
1314: Token1 => 'COMP_TYPE',
1315: Token1Val => 'RG_ROW_ORDER',
1316: Token1Xlate => TRUE,
1316: Token1Xlate => TRUE,
1317: Token2 => 'COMP_NAME',
1318: Token2Val => ComponentName,
1319: Token2Xlate => FALSE);
1320: RG_XFER_UTILS_PKG.display_log(
1321: MsgLevel => G_ML_Full,
1322: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARN',
1323: Token1 => 'ROUTINE',
1324: Token1Val => 'copy_row_order');
1329: SQLString := 'SELECT row_order_id ' ||
1330: 'FROM rg_row_orders ' ||
1331: 'WHERE name = ''' || AdjustedName || '''' ||
1332: 'AND application_id = ' || TO_CHAR(G_ApplId);
1333: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1334:
1335: IF (TargetId = G_Error) THEN
1336: /* Insert data into table */
1337: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_ROW_ORDERS_S');
1333: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1334:
1335: IF (TargetId = G_Error) THEN
1336: /* Insert data into table */
1337: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_ROW_ORDERS_S');
1338: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1339: 'RG_ROW_ORDERS',
1340: 'ROW_ORDER_ID',
1341: ComponentName,
1334:
1335: IF (TargetId = G_Error) THEN
1336: /* Insert data into table */
1337: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_ROW_ORDERS_S');
1338: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1339: 'RG_ROW_ORDERS',
1340: 'ROW_ORDER_ID',
1341: ComponentName,
1342: ' AND application_id = ' || TO_CHAR(G_ApplId));
1341: ComponentName,
1342: ' AND application_id = ' || TO_CHAR(G_ApplId));
1343:
1344: /* Check the existence of the column name, if any */
1345: ColumnName := RG_XFER_UTILS_PKG.get_varchar2(
1346: 'SELECT column_name FROM rg_row_orders@'|| G_LinkName ||
1347: ' WHERE row_order_id='||TO_CHAR(SourceId),
1348: 30);
1349: IF (ColumnName IS NOT NULL) THEN
1346: 'SELECT column_name FROM rg_row_orders@'|| G_LinkName ||
1347: ' WHERE row_order_id='||TO_CHAR(SourceId),
1348: 30);
1349: IF (ColumnName IS NOT NULL) THEN
1350: IF (NOT RG_XFER_UTILS_PKG.ro_column_exists(ColumnName)) THEN
1351: /* Warning: column not defined in target database */
1352: RG_XFER_UTILS_PKG.display_warning(
1353: MsgName => 'RG_XFER_RO_COLUMN_NOT_EXIST',
1354: Token1 => 'COLUMN_NAME',
1348: 30);
1349: IF (ColumnName IS NOT NULL) THEN
1350: IF (NOT RG_XFER_UTILS_PKG.ro_column_exists(ColumnName)) THEN
1351: /* Warning: column not defined in target database */
1352: RG_XFER_UTILS_PKG.display_warning(
1353: MsgName => 'RG_XFER_RO_COLUMN_NOT_EXIST',
1354: Token1 => 'COLUMN_NAME',
1355: Token1Val => ColumnName,
1356: Token1Xlate => FALSE,
1368:
1369: /* Substitute column_name token and insert row */
1370: SQLString := RowOrdersString || G_LinkName ||
1371: ' WHERE row_order_id = ' || TO_CHAR(SourceId);
1372: RG_XFER_UTILS_PKG.substitute_tokens(
1373: SQLString,
1374: Token1=> ':column_name',
1375: Token1Val=> ColumnName);
1376: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
1372: RG_XFER_UTILS_PKG.substitute_tokens(
1373: SQLString,
1374: Token1=> ':column_name',
1375: Token1Val=> ColumnName);
1376: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
1377:
1378: /* Insert detail rows */
1379: RG_XFER_UTILS_PKG.insert_rows(
1380: RowSegmentSequencesString || G_LinkName ||
1375: Token1Val=> ColumnName);
1376: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
1377:
1378: /* Insert detail rows */
1379: RG_XFER_UTILS_PKG.insert_rows(
1380: RowSegmentSequencesString || G_LinkName ||
1381: ' WHERE row_order_id = ' || TO_CHAR(SourceId),
1382: TargetId, UseCOAId => TRUE);
1383:
1381: ' WHERE row_order_id = ' || TO_CHAR(SourceId),
1382: TargetId, UseCOAId => TRUE);
1383:
1384: /* New component - insert into the list of components copied */
1385: RG_XFER_UTILS_PKG.insert_into_list(
1386: RowOrderList, RowOrderCount, ComponentName);
1387: RG_XFER_UTILS_PKG.display_log(
1388: MsgLevel => G_ML_Normal,
1389: MsgName => 'RG_XFER_L_TRANSFERRED',
1383:
1384: /* New component - insert into the list of components copied */
1385: RG_XFER_UTILS_PKG.insert_into_list(
1386: RowOrderList, RowOrderCount, ComponentName);
1387: RG_XFER_UTILS_PKG.display_log(
1388: MsgLevel => G_ML_Normal,
1389: MsgName => 'RG_XFER_L_TRANSFERRED',
1390: Token1 => 'COMP_TYPE',
1391: Token1Val => 'RG_ROW_ORDER',
1397: ELSE
1398:
1399: /* Component with same name already exists in target db. Check if
1400: * this component was copied by this run. */
1401: IF (RG_XFER_UTILS_PKG.search_list(
1402: RowOrderList, RowOrderCount, ComponentName) = G_Error) THEN
1403: /* Component with same name existed before this run. */
1404:
1405: /* Check if it uses the correct chart of accounts id. */
1402: RowOrderList, RowOrderCount, ComponentName) = G_Error) THEN
1403: /* Component with same name existed before this run. */
1404:
1405: /* Check if it uses the correct chart of accounts id. */
1406: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
1407: 'RG_ROW_ORDERS', ComponentName) = G_Error) THEN
1408: RG_XFER_UTILS_PKG.display_warning(
1409: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1410: Token1 => 'COMP_TYPE',
1404:
1405: /* Check if it uses the correct chart of accounts id. */
1406: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
1407: 'RG_ROW_ORDERS', ComponentName) = G_Error) THEN
1408: RG_XFER_UTILS_PKG.display_warning(
1409: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
1410: Token1 => 'COMP_TYPE',
1411: Token1Val => 'RG_ROW_ORDER',
1412: Token1Xlate => TRUE,
1412: Token1Xlate => TRUE,
1413: Token2 => 'COMP_NAME',
1414: Token2Val => ComponentName,
1415: Token2Xlate => FALSE);
1416: RG_XFER_UTILS_PKG.display_log(
1417: MsgLevel => G_ML_Full,
1418: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARNING',
1419: Token1 => 'ROUTINE',
1420: Token1Val => 'copy_row_order');
1420: Token1Val => 'copy_row_order');
1421: RETURN(G_Warning);
1422: ELSE
1423: /* Show warning and use the existing id. */
1424: RG_XFER_UTILS_PKG.display_warning(
1425: MsgName => 'RG_XFER_COMP_EXIST',
1426: Token1 => 'COMP_TYPE',
1427: Token1Val => 'RG_ROW_ORDER',
1428: Token1Xlate => TRUE,
1436:
1437: /* Clear the name of the component being copied */
1438: G_RowOrder := NULL;
1439:
1440: RG_XFER_UTILS_PKG.display_log(
1441: MsgLevel => G_ML_Full,
1442: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1443: Token1 => 'ROUTINE',
1444: Token1Val => 'copy_row_order');
1469: ColumnSetName VARCHAR2(30);
1470: ColumnSetId NUMBER := G_Error;
1471: AdjustedName VARCHAR2(60);
1472: BEGIN
1473: RG_XFER_UTILS_PKG.display_log(
1474: MsgLevel => G_ML_Full,
1475: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
1476: Token1 => 'ROUTINE',
1477: Token1Val => 'copy_display_set',
1481: /* Store the name of the component being copied */
1482: G_DisplaySet := ComponentName;
1483:
1484: /* Account for single quotes */
1485: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1486:
1487: /* Ensure that the component exists in the source database */
1488: IF (CheckExistence) THEN
1489: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1485: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1486:
1487: /* Ensure that the component exists in the source database */
1488: IF (CheckExistence) THEN
1489: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1490: 'RG_DISPLAY_SET', ComponentName)) THEN
1491: RG_XFER_UTILS_PKG.display_error(
1492: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1493: Token1 => 'COMP_TYPE',
1487: /* Ensure that the component exists in the source database */
1488: IF (CheckExistence) THEN
1489: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1490: 'RG_DISPLAY_SET', ComponentName)) THEN
1491: RG_XFER_UTILS_PKG.display_error(
1492: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1493: Token1 => 'COMP_TYPE',
1494: Token1Val => 'RG_DISPLAY_SET',
1495: Token1Xlate => TRUE,
1503: /* Check if a component of the same name already exists in target db */
1504: SQLString := 'SELECT report_display_set_id ' ||
1505: 'FROM rg_report_display_sets ' ||
1506: 'WHERE name = ''' || AdjustedName || '''';
1507: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1508:
1509: IF (TargetId = G_Error) THEN
1510: /* Copy row set, if any */
1511: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1507: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1508:
1509: IF (TargetId = G_Error) THEN
1510: /* Copy row set, if any */
1511: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1512: 'RG_REPORT_DISPLAY_SETS', 'RG_REPORT_AXIS_SETS',
1513: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
1514: IF (RowSetName IS NOT NULL) THEN
1515: RG_XFER_UTILS_PKG.display_log(
1511: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1512: 'RG_REPORT_DISPLAY_SETS', 'RG_REPORT_AXIS_SETS',
1513: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
1514: IF (RowSetName IS NOT NULL) THEN
1515: RG_XFER_UTILS_PKG.display_log(
1516: MsgLevel => G_ML_Normal,
1517: MsgName => 'RG_XFER_L_SUB_COMP_START',
1518: Token1 => 'SUB_COMP_TYPE',
1519: Token1Val => 'RG_ROW_SET',
1529: Token4Xlate => FALSE);
1530: RowSetId := copy_axis_set('RG_ROW_SET', RowSetName);
1531: IF ((RowSetId = G_Error) OR (RowSetId = G_Warning)) THEN
1532: /* Error transferrring optional component */
1533: RG_XFER_UTILS_PKG.display_warning(
1534: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1535: Token1 => 'COMP_TYPE',
1536: Token1Val => 'RG_DISPLAY_SET',
1537: Token1Xlate => TRUE,
1544: END IF;
1545: END IF;
1546:
1547: /* Copy column set, if any */
1548: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1549: 'RG_REPORT_DISPLAY_SETS', 'RG_REPORT_AXIS_SETS',
1550: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
1551: IF (ColumnSetName IS NOT NULL) THEN
1552: RG_XFER_UTILS_PKG.display_log(
1548: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1549: 'RG_REPORT_DISPLAY_SETS', 'RG_REPORT_AXIS_SETS',
1550: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
1551: IF (ColumnSetName IS NOT NULL) THEN
1552: RG_XFER_UTILS_PKG.display_log(
1553: MsgLevel => G_ML_Normal,
1554: MsgName => 'RG_XFER_L_SUB_COMP_START',
1555: Token1 => 'SUB_COMP_TYPE',
1556: Token1Val => 'RG_COLUMN_SET',
1566: Token4Xlate => FALSE);
1567: ColumnSetId := copy_axis_set('RG_COLUMN_SET', ColumnSetName);
1568: IF ((ColumnSetId = G_Error) OR (ColumnSetId = G_Warning)) THEN
1569: /* Error transferrring optional component */
1570: RG_XFER_UTILS_PKG.display_warning(
1571: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1572: Token1 => 'COMP_TYPE',
1573: Token1Val => 'RG_DISPLAY_SET',
1574: Token1Xlate => TRUE,
1581: END IF;
1582: END IF;
1583:
1584: /* Insert data into table */
1585: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_DISPLAY_SETS_S');
1586: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1587: 'RG_REPORT_DISPLAY_SETS',
1588: 'REPORT_DISPLAY_SET_ID',
1589: ComponentName);
1582: END IF;
1583:
1584: /* Insert data into table */
1585: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_DISPLAY_SETS_S');
1586: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1587: 'RG_REPORT_DISPLAY_SETS',
1588: 'REPORT_DISPLAY_SET_ID',
1589: ComponentName);
1590: SQLString := DisplaySetsString || G_LinkName ||
1588: 'REPORT_DISPLAY_SET_ID',
1589: ComponentName);
1590: SQLString := DisplaySetsString || G_LinkName ||
1591: ' WHERE report_display_set_id = ' || TO_CHAR(SourceId);
1592: RG_XFER_UTILS_PKG.substitute_tokens(
1593: SQLString,
1594: Token1=> ':row_set_id',
1595: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1596: Token2=> ':column_set_id',
1591: ' WHERE report_display_set_id = ' || TO_CHAR(SourceId);
1592: RG_XFER_UTILS_PKG.substitute_tokens(
1593: SQLString,
1594: Token1=> ':row_set_id',
1595: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1596: Token2=> ':column_set_id',
1597: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1598: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1599:
1593: SQLString,
1594: Token1=> ':row_set_id',
1595: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1596: Token2=> ':column_set_id',
1597: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1598: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1599:
1600: /* Copy the display set detail records */
1601: copy_display_set_details(SourceId, TargetId);
1594: Token1=> ':row_set_id',
1595: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1596: Token2=> ':column_set_id',
1597: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1598: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1599:
1600: /* Copy the display set detail records */
1601: copy_display_set_details(SourceId, TargetId);
1602:
1600: /* Copy the display set detail records */
1601: copy_display_set_details(SourceId, TargetId);
1602:
1603: /* New component - insert into the list of components copied */
1604: RG_XFER_UTILS_PKG.insert_into_list(
1605: DisplaySetList, DisplaySetCount, ComponentName);
1606: RG_XFER_UTILS_PKG.display_log(
1607: MsgLevel => G_ML_Normal,
1608: MsgName => 'RG_XFER_L_TRANSFERRED',
1602:
1603: /* New component - insert into the list of components copied */
1604: RG_XFER_UTILS_PKG.insert_into_list(
1605: DisplaySetList, DisplaySetCount, ComponentName);
1606: RG_XFER_UTILS_PKG.display_log(
1607: MsgLevel => G_ML_Normal,
1608: MsgName => 'RG_XFER_L_TRANSFERRED',
1609: Token1 => 'COMP_TYPE',
1610: Token1Val => 'RG_DISPLAY_SET',
1616: ELSE
1617:
1618: /* Component with same name already exists in target db. Check if
1619: * this component was copied by this run. */
1620: IF (RG_XFER_UTILS_PKG.search_list(
1621: DisplaySetList, DisplaySetCount, ComponentName) = G_Error) THEN
1622: /* Component with same name existed before this run. Show warning and
1623: * and use the existing id. */
1624: RG_XFER_UTILS_PKG.display_warning(
1620: IF (RG_XFER_UTILS_PKG.search_list(
1621: DisplaySetList, DisplaySetCount, ComponentName) = G_Error) THEN
1622: /* Component with same name existed before this run. Show warning and
1623: * and use the existing id. */
1624: RG_XFER_UTILS_PKG.display_warning(
1625: MsgName => 'RG_XFER_COMP_EXIST',
1626: Token1 => 'COMP_TYPE',
1627: Token1Val => 'RG_DISPLAY_SET',
1628: Token1Xlate => TRUE,
1635:
1636: /* Clear the name of the component being copied */
1637: G_DisplaySet := NULL;
1638:
1639: RG_XFER_UTILS_PKG.display_log(
1640: MsgLevel => G_ML_Full,
1641: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1642: Token1 => 'ROUTINE',
1643: Token1Val => 'copy_display_set');
1670: SQLString VARCHAR2(2000);
1671: ColumnGroupId NUMBER;
1672: DisplayGroupName VARCHAR2(30);
1673: BEGIN
1674: RG_XFER_UTILS_PKG.display_log(
1675: MsgLevel => G_ML_Full,
1676: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
1677: Token1 => 'ROUTINE',
1678: Token1Val => 'copy_display_set_details',
1695: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
1696: DBMS_SQL.column_value(CursorId, 1, DisplayId);
1697:
1698: /* Copy row group, if any */
1699: DisplayGroupName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1700: 'RG_REPORT_DISPLAYS', 'RG_REPORT_DISPLAY_GROUPS',
1701: 'REPORT_DISPLAY_ID', TO_CHAR(DisplayId),
1702: 'ROW_GROUP_ID', 'REPORT_DISPLAY_GROUP_ID',
1703: CharColumn => FALSE);
1701: 'REPORT_DISPLAY_ID', TO_CHAR(DisplayId),
1702: 'ROW_GROUP_ID', 'REPORT_DISPLAY_GROUP_ID',
1703: CharColumn => FALSE);
1704: IF (DisplayGroupName IS NOT NULL) THEN
1705: RG_XFER_UTILS_PKG.display_log(
1706: MsgLevel => G_ML_Normal,
1707: MsgName => 'RG_XFER_L_SUB_COMP_START',
1708: Token1 => 'SUB_COMP_TYPE',
1709: Token1Val => 'RG_DISPLAY_GROUP',
1719: Token4Xlate => FALSE);
1720: RowGroupId := copy_display_group(DisplayGroupName);
1721: IF ((RowGroupId = G_Error) OR (RowGroupId = G_Warning)) THEN
1722: /* Error transferrring optional component */
1723: RG_XFER_UTILS_PKG.display_warning(
1724: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1725: Token1 => 'COMP_TYPE',
1726: Token1Val => 'RG_DISPLAY_SET',
1727: Token1Xlate => TRUE,
1736: RowGroupId := G_Error;
1737: END IF;
1738:
1739: /* Copy column group, if any */
1740: DisplayGroupName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1741: 'RG_REPORT_DISPLAYS', 'RG_REPORT_DISPLAY_GROUPS',
1742: 'REPORT_DISPLAY_ID', TO_CHAR(DisplayId),
1743: 'COLUMN_GROUP_ID', 'REPORT_DISPLAY_GROUP_ID',
1744: CharColumn => FALSE);
1742: 'REPORT_DISPLAY_ID', TO_CHAR(DisplayId),
1743: 'COLUMN_GROUP_ID', 'REPORT_DISPLAY_GROUP_ID',
1744: CharColumn => FALSE);
1745: IF (DisplayGroupName IS NOT NULL) THEN
1746: RG_XFER_UTILS_PKG.display_log(
1747: MsgLevel => G_ML_Normal,
1748: MsgName => 'RG_XFER_L_SUB_COMP_START',
1749: Token1 => 'SUB_COMP_TYPE',
1750: Token1Val => 'RG_DISPLAY_GROUP',
1760: Token4Xlate => FALSE);
1761: ColumnGroupId := copy_display_group(DisplayGroupName);
1762: IF ((ColumnGroupId = G_Error) OR (ColumnGroupId = G_Warning)) THEN
1763: /* Error transferrring optional component */
1764: RG_XFER_UTILS_PKG.display_warning(
1765: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1766: Token1 => 'COMP_TYPE',
1767: Token1Val => 'RG_DISPLAY_SET',
1768: Token1Xlate => TRUE,
1779:
1780: /* Insert the row */
1781: SQLString := DisplaysString || G_LinkName ||
1782: ' WHERE report_display_id = ' || TO_CHAR(DisplayId);
1783: RG_XFER_UTILS_PKG.substitute_tokens(
1784: SQLString,
1785: Token1=> ':row_group_id',
1786: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowGroupId),
1787: Token2=> ':column_group_id',
1782: ' WHERE report_display_id = ' || TO_CHAR(DisplayId);
1783: RG_XFER_UTILS_PKG.substitute_tokens(
1784: SQLString,
1785: Token1=> ':row_group_id',
1786: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowGroupId),
1787: Token2=> ':column_group_id',
1788: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnGroupId));
1789: RG_XFER_UTILS_PKG.insert_rows(
1790: SQLString, TargetDisplaySetId, UseCOAId=> FALSE);
1784: SQLString,
1785: Token1=> ':row_group_id',
1786: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowGroupId),
1787: Token2=> ':column_group_id',
1788: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnGroupId));
1789: RG_XFER_UTILS_PKG.insert_rows(
1790: SQLString, TargetDisplaySetId, UseCOAId=> FALSE);
1791:
1792: ELSE
1785: Token1=> ':row_group_id',
1786: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowGroupId),
1787: Token2=> ':column_group_id',
1788: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnGroupId));
1789: RG_XFER_UTILS_PKG.insert_rows(
1790: SQLString, TargetDisplaySetId, UseCOAId=> FALSE);
1791:
1792: ELSE
1793: /* No more rows */
1795: END IF;
1796: END LOOP;
1797: DBMS_SQL.close_cursor(CursorId);
1798:
1799: RG_XFER_UTILS_PKG.display_log(
1800: MsgLevel => G_ML_Full,
1801: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1802: Token1 => 'ROUTINE',
1803: Token1Val => 'copy_display_set_details');
1825: ColumnSetName VARCHAR2(30);
1826: ColumnSetId NUMBER := G_Error;
1827: AdjustedName VARCHAR2(60);
1828: BEGIN
1829: RG_XFER_UTILS_PKG.display_log(
1830: MsgLevel => G_ML_Full,
1831: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
1832: Token1 => 'ROUTINE',
1833: Token1Val => 'copy_display_group',
1837: /* Store the name of the component being copied */
1838: G_DisplayGroup := ComponentName;
1839:
1840: /* Account for single quotes */
1841: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1842:
1843: /* Ensure that the component exists in the source database */
1844: IF (CheckExistence) THEN
1845: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1841: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
1842:
1843: /* Ensure that the component exists in the source database */
1844: IF (CheckExistence) THEN
1845: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1846: 'RG_DISPLAY_GROUP', ComponentName)) THEN
1847: RG_XFER_UTILS_PKG.display_error(
1848: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1849: Token1 => 'COMP_TYPE',
1843: /* Ensure that the component exists in the source database */
1844: IF (CheckExistence) THEN
1845: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
1846: 'RG_DISPLAY_GROUP', ComponentName)) THEN
1847: RG_XFER_UTILS_PKG.display_error(
1848: MsgName => 'RG_XFER_COMP_NOT_EXIST',
1849: Token1 => 'COMP_TYPE',
1850: Token1Val => 'RG_DISPLAY_GROUP',
1851: Token1Xlate => TRUE,
1859: /* Check if a component of the same name already exists in target db */
1860: SQLString := 'SELECT report_display_group_id ' ||
1861: 'FROM rg_report_display_groups ' ||
1862: 'WHERE name = ''' || AdjustedName || '''';
1863: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1864:
1865: IF (TargetId = G_Error) THEN
1866: /* Copy row set, if any */
1867: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1863: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
1864:
1865: IF (TargetId = G_Error) THEN
1866: /* Copy row set, if any */
1867: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1868: 'RG_REPORT_DISPLAY_GROUPS', 'RG_REPORT_AXIS_SETS',
1869: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
1870: IF (RowSetName IS NOT NULL) THEN
1871: RG_XFER_UTILS_PKG.display_log(
1867: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1868: 'RG_REPORT_DISPLAY_GROUPS', 'RG_REPORT_AXIS_SETS',
1869: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
1870: IF (RowSetName IS NOT NULL) THEN
1871: RG_XFER_UTILS_PKG.display_log(
1872: MsgLevel => G_ML_Normal,
1873: MsgName => 'RG_XFER_L_SUB_COMP_START',
1874: Token1 => 'SUB_COMP_TYPE',
1875: Token1Val => 'RG_ROW_SET',
1885: Token4Xlate => FALSE);
1886: RowSetId := copy_axis_set('RG_ROW_SET', RowSetName);
1887: IF ((RowSetId = G_Error) OR (RowSetId = G_Warning)) THEN
1888: /* Error transferrring optional component */
1889: RG_XFER_UTILS_PKG.display_warning(
1890: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1891: Token1 => 'COMP_TYPE',
1892: Token1Val => 'RG_DISPLAY_GROUP',
1893: Token1Xlate => TRUE,
1900: END IF;
1901: END IF;
1902:
1903: /* Copy column set, if any */
1904: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1905: 'RG_REPORT_DISPLAY_GROUPS', 'RG_REPORT_AXIS_SETS',
1906: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
1907: IF (ColumnSetName IS NOT NULL) THEN
1908: RG_XFER_UTILS_PKG.display_log(
1904: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
1905: 'RG_REPORT_DISPLAY_GROUPS', 'RG_REPORT_AXIS_SETS',
1906: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
1907: IF (ColumnSetName IS NOT NULL) THEN
1908: RG_XFER_UTILS_PKG.display_log(
1909: MsgLevel => G_ML_Normal,
1910: MsgName => 'RG_XFER_L_SUB_COMP_START',
1911: Token1 => 'SUB_COMP_TYPE',
1912: Token1Val => 'RG_COLUMN_SET',
1922: Token4Xlate => FALSE);
1923: ColumnSetId := copy_axis_set('RG_COLUMN_SET', ColumnSetName);
1924: IF ((ColumnSetId = G_Error) OR (ColumnSetId = G_Warning)) THEN
1925: /* Error transferrring optional component */
1926: RG_XFER_UTILS_PKG.display_warning(
1927: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
1928: Token1 => 'COMP_TYPE',
1929: Token1Val => 'RG_DISPLAY_GROUP',
1930: Token1Xlate => TRUE,
1937: END IF;
1938: END IF;
1939:
1940: /* Insert data into table */
1941: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_DISPLAY_GROUPS_S');
1942: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1943: 'RG_REPORT_DISPLAY_GROUPS',
1944: 'REPORT_DISPLAY_GROUP_ID',
1945: ComponentName);
1938: END IF;
1939:
1940: /* Insert data into table */
1941: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_DISPLAY_GROUPS_S');
1942: SourceId := RG_XFER_UTILS_PKG.get_source_id(
1943: 'RG_REPORT_DISPLAY_GROUPS',
1944: 'REPORT_DISPLAY_GROUP_ID',
1945: ComponentName);
1946: SQLString := DisplayGroupsString || G_LinkName ||
1944: 'REPORT_DISPLAY_GROUP_ID',
1945: ComponentName);
1946: SQLString := DisplayGroupsString || G_LinkName ||
1947: ' WHERE report_display_group_id = '||TO_CHAR(SourceId);
1948: RG_XFER_UTILS_PKG.substitute_tokens(
1949: SQLString,
1950: Token1=> ':row_set_id',
1951: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1952: Token2=> ':column_set_id',
1947: ' WHERE report_display_group_id = '||TO_CHAR(SourceId);
1948: RG_XFER_UTILS_PKG.substitute_tokens(
1949: SQLString,
1950: Token1=> ':row_set_id',
1951: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1952: Token2=> ':column_set_id',
1953: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1954: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1955:
1949: SQLString,
1950: Token1=> ':row_set_id',
1951: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1952: Token2=> ':column_set_id',
1953: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1954: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1955:
1956: /* New component - insert into the list of components copied */
1957: RG_XFER_UTILS_PKG.insert_into_list(
1950: Token1=> ':row_set_id',
1951: Token1Val=> RG_XFER_UTILS_PKG.token_from_id(RowSetId),
1952: Token2=> ':column_set_id',
1953: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1954: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1955:
1956: /* New component - insert into the list of components copied */
1957: RG_XFER_UTILS_PKG.insert_into_list(
1958: DisplayGroupList, DisplayGroupCount, ComponentName);
1953: Token2Val=> RG_XFER_UTILS_PKG.token_from_id(ColumnSetId));
1954: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> FALSE);
1955:
1956: /* New component - insert into the list of components copied */
1957: RG_XFER_UTILS_PKG.insert_into_list(
1958: DisplayGroupList, DisplayGroupCount, ComponentName);
1959: RG_XFER_UTILS_PKG.display_log(
1960: MsgLevel => G_ML_Normal,
1961: MsgName => 'RG_XFER_L_TRANSFERRED',
1955:
1956: /* New component - insert into the list of components copied */
1957: RG_XFER_UTILS_PKG.insert_into_list(
1958: DisplayGroupList, DisplayGroupCount, ComponentName);
1959: RG_XFER_UTILS_PKG.display_log(
1960: MsgLevel => G_ML_Normal,
1961: MsgName => 'RG_XFER_L_TRANSFERRED',
1962: Token1 => 'COMP_TYPE',
1963: Token1Val => 'RG_DISPLAY_GROUP',
1969: ELSE
1970:
1971: /* Component with same name already exists in target db. Check if
1972: * this component was copied by this run. */
1973: IF (RG_XFER_UTILS_PKG.search_list(
1974: DisplayGroupList, DisplayGroupCount, ComponentName) = G_Error) THEN
1975: /* Component with same name existed before this run. Show warning and
1976: * and use the existing id. */
1977: RG_XFER_UTILS_PKG.display_warning(
1973: IF (RG_XFER_UTILS_PKG.search_list(
1974: DisplayGroupList, DisplayGroupCount, ComponentName) = G_Error) THEN
1975: /* Component with same name existed before this run. Show warning and
1976: * and use the existing id. */
1977: RG_XFER_UTILS_PKG.display_warning(
1978: MsgName => 'RG_XFER_COMP_EXIST',
1979: Token1 => 'COMP_TYPE',
1980: Token1Val => 'RG_DISPLAY_GROUP',
1981: Token1Xlate => TRUE,
1988:
1989: /* Clear the name of the component being copied */
1990: G_DisplayGroup := NULL;
1991:
1992: RG_XFER_UTILS_PKG.display_log(
1993: MsgLevel => G_ML_Full,
1994: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
1995: Token1 => 'ROUTINE',
1996: Token1Val => 'copy_display_group');
2049: LedgerName VARCHAR2(30);
2050: ErrorNum NUMBER;
2051: ErrorMsg VARCHAR2(512);
2052: BEGIN
2053: RG_XFER_UTILS_PKG.display_log(
2054: MsgLevel => G_ML_Full,
2055: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
2056: Token1 => 'ROUTINE',
2057: Token1Val => 'copy_report',
2061: /* Store the name of the component being copied */
2062: G_Report := ComponentName;
2063:
2064: /* Account for single quotes */
2065: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
2066:
2067: /* Ensure that the component exists in the source database */
2068: IF (CheckExistence) THEN
2069: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2065: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
2066:
2067: /* Ensure that the component exists in the source database */
2068: IF (CheckExistence) THEN
2069: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2070: 'RG_REPORT', ComponentName)) THEN
2071: RG_XFER_UTILS_PKG.display_error(
2072: MsgName => 'RG_XFER_COMP_NOT_EXIST',
2073: Token1 => 'COMP_TYPE',
2067: /* Ensure that the component exists in the source database */
2068: IF (CheckExistence) THEN
2069: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2070: 'RG_REPORT', ComponentName)) THEN
2071: RG_XFER_UTILS_PKG.display_error(
2072: MsgName => 'RG_XFER_COMP_NOT_EXIST',
2073: Token1 => 'COMP_TYPE',
2074: Token1Val => 'RG_REPORT',
2075: Token1Xlate => TRUE,
2080: END IF;
2081: END IF;
2082:
2083: /* Ensure that the COA id of the component matches the source COA id */
2084: IF (RG_XFER_UTILS_PKG.check_coa_id(
2085: 'RG_REPORTS', ComponentName) = G_Error) THEN
2086: RG_XFER_UTILS_PKG.display_warning(
2087: MsgName => 'RG_XFER_WRONG_COA',
2088: Token1 => 'COMP_TYPE',
2082:
2083: /* Ensure that the COA id of the component matches the source COA id */
2084: IF (RG_XFER_UTILS_PKG.check_coa_id(
2085: 'RG_REPORTS', ComponentName) = G_Error) THEN
2086: RG_XFER_UTILS_PKG.display_warning(
2087: MsgName => 'RG_XFER_WRONG_COA',
2088: Token1 => 'COMP_TYPE',
2089: Token1Val => 'RG_REPORT',
2090: Token1Xlate => TRUE,
2090: Token1Xlate => TRUE,
2091: Token2 => 'COMP_NAME',
2092: Token2Val => ComponentName,
2093: Token2Xlate => FALSE);
2094: RG_XFER_UTILS_PKG.display_log(
2095: MsgLevel => G_ML_Full,
2096: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARN',
2097: Token1 => 'ROUTINE',
2098: Token1Val => 'copy_report');
2103: SQLString := 'SELECT report_id ' ||
2104: 'FROM rg_reports ' ||
2105: 'WHERE name = ''' || AdjustedName || ''' ' ||
2106: 'AND application_id = ' || TO_CHAR(G_ApplId);
2107: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
2108:
2109: IF (TargetId = G_Error) THEN
2110: /* Copy row set */
2111: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2107: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
2108:
2109: IF (TargetId = G_Error) THEN
2110: /* Copy row set */
2111: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2112: 'RG_REPORTS', 'RG_REPORT_AXIS_SETS',
2113: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
2114: IF (RowSetName IS NOT NULL) THEN
2115: RG_XFER_UTILS_PKG.display_log(
2111: RowSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2112: 'RG_REPORTS', 'RG_REPORT_AXIS_SETS',
2113: 'NAME', ComponentName, 'ROW_SET_ID', 'AXIS_SET_ID');
2114: IF (RowSetName IS NOT NULL) THEN
2115: RG_XFER_UTILS_PKG.display_log(
2116: MsgLevel => G_ML_Normal,
2117: MsgName => 'RG_XFER_L_SUB_COMP_START',
2118: Token1 => 'SUB_COMP_TYPE',
2119: Token1Val => 'RG_ROW_SET',
2130: RowSetId := copy_axis_set('RG_ROW_SET', RowSetName);
2131: END IF;
2132: IF ((RowSetId = G_Error) OR (RowSetId = G_Warning)) THEN
2133: /* Error transferrring required component */
2134: RG_XFER_UTILS_PKG.display_error(
2135: MsgName => 'RG_XFER_ABORT',
2136: Token1 => 'COMP_TYPE',
2137: Token1Val => 'RG_REPORT',
2138: Token1Xlate => TRUE,
2141: Token2Xlate => FALSE,
2142: Token3 => 'SUB_COMP_TYPE',
2143: Token3Val => 'RG_ROW_SET',
2144: Token3Xlate => TRUE);
2145: RG_XFER_UTILS_PKG.display_log(
2146: MsgLevel => G_ML_Full,
2147: MsgName => 'RG_XFER_L_EXIT_ROUTINE_ERROR',
2148: Token1 => 'ROUTINE',
2149: Token1Val => 'copy_report');
2150: RETURN(G_Error);
2151: END IF;
2152:
2153: /* Copy column set, if any */
2154: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2155: 'RG_REPORTS', 'RG_REPORT_AXIS_SETS',
2156: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
2157: IF (ColumnSetName IS NOT NULL) THEN
2158: RG_XFER_UTILS_PKG.display_log(
2154: ColumnSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2155: 'RG_REPORTS', 'RG_REPORT_AXIS_SETS',
2156: 'NAME', ComponentName, 'COLUMN_SET_ID', 'AXIS_SET_ID');
2157: IF (ColumnSetName IS NOT NULL) THEN
2158: RG_XFER_UTILS_PKG.display_log(
2159: MsgLevel => G_ML_Normal,
2160: MsgName => 'RG_XFER_L_SUB_COMP_START',
2161: Token1 => 'SUB_COMP_TYPE',
2162: Token1Val => 'RG_COLUMN_SET',
2173: ColumnSetId := copy_axis_set('RG_COLUMN_SET', ColumnSetName);
2174: END IF;
2175: IF ((ColumnSetId = G_Error) OR (ColumnSetId = G_Warning)) THEN
2176: /* Error transferrring required component */
2177: RG_XFER_UTILS_PKG.display_error(
2178: MsgName => 'RG_XFER_ABORT',
2179: Token1 => 'COMP_TYPE',
2180: Token1Val => 'RG_REPORT',
2181: Token1Xlate => TRUE,
2184: Token2Xlate => FALSE,
2185: Token3 => 'SUB_COMP_TYPE',
2186: Token3Val => 'RG_COLUMN_SET',
2187: Token3Xlate => TRUE);
2188: RG_XFER_UTILS_PKG.display_log(
2189: MsgLevel => G_ML_Full,
2190: MsgName => 'RG_XFER_L_EXIT_ROUTINE_ERROR',
2191: Token1 => 'ROUTINE',
2192: Token1Val => 'copy_report');
2193: RETURN(G_Error);
2194: END IF;
2195:
2196: /* Copy row order, if any */
2197: RowOrderName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2198: 'RG_REPORTS', 'RG_ROW_ORDERS', 'NAME', ComponentName,
2199: 'ROW_ORDER_ID', 'ROW_ORDER_ID');
2200: IF (RowOrderName IS NOT NULL) THEN
2201: RG_XFER_UTILS_PKG.display_log(
2197: RowOrderName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2198: 'RG_REPORTS', 'RG_ROW_ORDERS', 'NAME', ComponentName,
2199: 'ROW_ORDER_ID', 'ROW_ORDER_ID');
2200: IF (RowOrderName IS NOT NULL) THEN
2201: RG_XFER_UTILS_PKG.display_log(
2202: MsgLevel => G_ML_Normal,
2203: MsgName => 'RG_XFER_L_SUB_COMP_START',
2204: Token1 => 'SUB_COMP_TYPE',
2205: Token1Val => 'RG_ROW_ORDER',
2215: Token4Xlate => FALSE);
2216: RowOrderId := copy_row_order(RowOrderName);
2217: IF ((RowOrderId = G_Error) OR (RowOrderId = G_Warning)) THEN
2218: /* Error transferrring optional component */
2219: RG_XFER_UTILS_PKG.display_warning(
2220: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
2221: Token1 => 'COMP_TYPE',
2222: Token1Val => 'RG_REPORT',
2223: Token1Xlate => TRUE,
2230: END IF;
2231: END IF;
2232:
2233: /* Copy content set, if any */
2234: ContentSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2235: 'RG_REPORTS', 'RG_REPORT_CONTENT_SETS', 'NAME',
2236: ComponentName, 'CONTENT_SET_ID', 'CONTENT_SET_ID');
2237: IF (ContentSetName IS NOT NULL) THEN
2238: RG_XFER_UTILS_PKG.display_log(
2234: ContentSetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2235: 'RG_REPORTS', 'RG_REPORT_CONTENT_SETS', 'NAME',
2236: ComponentName, 'CONTENT_SET_ID', 'CONTENT_SET_ID');
2237: IF (ContentSetName IS NOT NULL) THEN
2238: RG_XFER_UTILS_PKG.display_log(
2239: MsgLevel => G_ML_Normal,
2240: MsgName => 'RG_XFER_L_SUB_COMP_START',
2241: Token1 => 'SUB_COMP_TYPE',
2242: Token1Val => 'RG_CONTENT_SET',
2252: Token4Xlate => FALSE);
2253: ContentSetId := copy_content_set(ContentSetName);
2254: IF ((ContentSetId = G_Error) OR (ContentSetId = G_Warning)) THEN
2255: /* Error transferrring optional component */
2256: RG_XFER_UTILS_PKG.display_warning(
2257: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
2258: Token1 => 'COMP_TYPE',
2259: Token1Val => 'RG_REPORT',
2260: Token1Xlate => TRUE,
2267: END IF;
2268: END IF;
2269:
2270: /* Copy display set, if any */
2271: DisplaySetName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2272: 'RG_REPORTS', 'RG_REPORT_DISPLAY_SETS', 'NAME',
2273: ComponentName, 'REPORT_DISPLAY_SET_ID',
2274: 'REPORT_DISPLAY_SET_ID');
2275: IF (DisplaySetName IS NOT NULL) THEN
2272: 'RG_REPORTS', 'RG_REPORT_DISPLAY_SETS', 'NAME',
2273: ComponentName, 'REPORT_DISPLAY_SET_ID',
2274: 'REPORT_DISPLAY_SET_ID');
2275: IF (DisplaySetName IS NOT NULL) THEN
2276: RG_XFER_UTILS_PKG.display_log(
2277: MsgLevel => G_ML_Normal,
2278: MsgName => 'RG_XFER_L_SUB_COMP_START',
2279: Token1 => 'SUB_COMP_TYPE',
2280: Token1Val => 'RG_DISPLAY_SET',
2290: Token4Xlate => FALSE);
2291: DisplaySetId := copy_display_set(DisplaySetName);
2292: IF ((DisplaySetId = G_Error) OR (DisplaySetId = G_Warning)) THEN
2293: /* Error transferrring optional component */
2294: RG_XFER_UTILS_PKG.display_warning(
2295: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
2296: Token1 => 'COMP_TYPE',
2297: Token1Val => 'RG_REPORT',
2298: Token1Xlate => TRUE,
2304: Token3Xlate => TRUE);
2305: END IF;
2306: END IF;
2307:
2308: SourceId := RG_XFER_UTILS_PKG.get_source_id(
2309: 'RG_REPORTS',
2310: 'REPORT_ID',
2311: ComponentName,
2312: ' AND application_id = ' || TO_CHAR(G_ApplId));
2311: ComponentName,
2312: ' AND application_id = ' || TO_CHAR(G_ApplId));
2313:
2314: /* Check ledger id in segment_override */
2315: SegOverride := RG_XFER_UTILS_PKG.get_varchar2(
2316: 'SELECT segment_override FROM rg_reports@' ||
2317: G_LinkName || ' WHERE report_id = ' ||
2318: TO_CHAR(SourceId), 800);
2319: OverrideCurr := RG_XFER_UTILS_PKG.get_varchar2(
2315: SegOverride := RG_XFER_UTILS_PKG.get_varchar2(
2316: 'SELECT segment_override FROM rg_reports@' ||
2317: G_LinkName || ' WHERE report_id = ' ||
2318: TO_CHAR(SourceId), 800);
2319: OverrideCurr := RG_XFER_UTILS_PKG.get_varchar2(
2320: 'SELECT override_alc_ledger_currency FROM rg_reports@' ||
2321: G_LinkName || ' WHERE report_id = ' ||
2322: TO_CHAR(SourceId), 15);
2323:
2320: 'SELECT override_alc_ledger_currency FROM rg_reports@' ||
2321: G_LinkName || ' WHERE report_id = ' ||
2322: TO_CHAR(SourceId), 15);
2323:
2324: COADelimiter := RG_XFER_UTILS_PKG.get_varchar2(
2325: 'SELECT concatenated_segment_delimiter' ||
2326: ' FROM fnd_id_flex_structures@' ||
2327: G_LinkName || ' f, rg_reports@' || G_LinkName || ' r' ||
2328: ' WHERE f.application_id = r.application_id' ||
2332:
2333: FirstDelimiterPos := INSTR(SegOverride, COADelimiter);
2334: LedgerId := TO_NUMBER(SUBSTR(SegOverride, 1, FirstDelimiterPos - 1));
2335: IF (LedgerId IS NOT NULL) THEN
2336: RG_XFER_UTILS_PKG.get_target_ldg_from_source_ldg(
2337: LedgerId, LedgerName, OverrideCurr);
2338: END IF;
2339:
2340: IF (LedgerId = G_Error) THEN
2338: END IF;
2339:
2340: IF (LedgerId = G_Error) THEN
2341: /* Error: ledger not present in target db */
2342: RG_XFER_UTILS_PKG.display_warning(
2343: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2344: Token1 => 'SUB_COMP_TYPE',
2345: Token1Val => 'RG_XFER_LEDGERS',
2346: Token1Xlate => TRUE,
2359: SUBSTR(SegOverride, FirstDelimiterPos) || '''';
2360: END IF;
2361:
2362: /* Check currency */
2363: CurrencyCode := RG_XFER_UTILS_PKG.get_varchar2(
2364: 'SELECT unit_of_measure_id FROM rg_reports@'||
2365: G_LinkName || ' WHERE report_id='||TO_CHAR(SourceId),
2366: 15);
2367: IF (CurrencyCode IS NOT NULL) THEN
2364: 'SELECT unit_of_measure_id FROM rg_reports@'||
2365: G_LinkName || ' WHERE report_id='||TO_CHAR(SourceId),
2366: 15);
2367: IF (CurrencyCode IS NOT NULL) THEN
2368: IF (NOT RG_XFER_UTILS_PKG.currency_exists(CurrencyCode)) THEN
2369: /* Warning: currency not defined in target database */
2370: RG_XFER_UTILS_PKG.display_warning(
2371: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2372: Token1 => 'SUB_COMP_TYPE',
2366: 15);
2367: IF (CurrencyCode IS NOT NULL) THEN
2368: IF (NOT RG_XFER_UTILS_PKG.currency_exists(CurrencyCode)) THEN
2369: /* Warning: currency not defined in target database */
2370: RG_XFER_UTILS_PKG.display_warning(
2371: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2372: Token1 => 'SUB_COMP_TYPE',
2373: Token1Val => 'RG_XFER_CURRENCY',
2374: Token1Xlate => TRUE,
2392:
2393: ParameterSetId := copy_report_details(SourceId);
2394: IF ((ParameterSetId = G_Error) OR (ParameterSetId = G_Warning)) THEN
2395: /* Error transferrring optional component */
2396: RG_XFER_UTILS_PKG.display_warning(
2397: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
2398: Token1 => 'COMP_TYPE',
2399: Token1Val => 'RG_REPORT',
2400: Token1Xlate => TRUE,
2406: Token3Xlate => TRUE);
2407: END IF;
2408:
2409: /* Insert data into table */
2410: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORTS_S');
2411: SQLString := ReportsString || G_LinkName ||
2412: ' WHERE report_id = ' ||TO_CHAR(SourceId);
2413: RG_XFER_UTILS_PKG.substitute_tokens(
2414: SQLString,
2409: /* Insert data into table */
2410: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORTS_S');
2411: SQLString := ReportsString || G_LinkName ||
2412: ' WHERE report_id = ' ||TO_CHAR(SourceId);
2413: RG_XFER_UTILS_PKG.substitute_tokens(
2414: SQLString,
2415: Token1=> ':row_set_id',
2416: Token1Val=> TO_CHAR(RowSetId),
2417: Token2=> ':column_set_id',
2416: Token1Val=> TO_CHAR(RowSetId),
2417: Token2=> ':column_set_id',
2418: Token2Val=> TO_CHAR(ColumnSetId),
2419: Token3=> ':content_set_id',
2420: Token3Val=> RG_XFER_UTILS_PKG.token_from_id(ContentSetId),
2421: Token4=> ':row_order_id',
2422: Token4Val=> RG_XFER_UTILS_PKG.token_from_id(RowOrderId),
2423: Token5=> ':parameter_set_id',
2424: Token5Val=> RG_XFER_UTILS_PKG.token_from_id(ParameterSetId),
2418: Token2Val=> TO_CHAR(ColumnSetId),
2419: Token3=> ':content_set_id',
2420: Token3Val=> RG_XFER_UTILS_PKG.token_from_id(ContentSetId),
2421: Token4=> ':row_order_id',
2422: Token4Val=> RG_XFER_UTILS_PKG.token_from_id(RowOrderId),
2423: Token5=> ':parameter_set_id',
2424: Token5Val=> RG_XFER_UTILS_PKG.token_from_id(ParameterSetId),
2425: Token6=> ':currency_code',
2426: Token6Val=> CurrencyCode,
2420: Token3Val=> RG_XFER_UTILS_PKG.token_from_id(ContentSetId),
2421: Token4=> ':row_order_id',
2422: Token4Val=> RG_XFER_UTILS_PKG.token_from_id(RowOrderId),
2423: Token5=> ':parameter_set_id',
2424: Token5Val=> RG_XFER_UTILS_PKG.token_from_id(ParameterSetId),
2425: Token6=> ':currency_code',
2426: Token6Val=> CurrencyCode,
2427: Token7=> ':segment_override',
2428: Token7Val=> SegOverride,
2428: Token7Val=> SegOverride,
2429: Token8=> ':override_alc_ledger_currency',
2430: Token8Val=> OverrideCurr,
2431: Token9=> ':display_set_id',
2432: Token9Val=> RG_XFER_UTILS_PKG.token_from_id(DisplaySetId)
2433: );
2434:
2435: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
2436:
2431: Token9=> ':display_set_id',
2432: Token9Val=> RG_XFER_UTILS_PKG.token_from_id(DisplaySetId)
2433: );
2434:
2435: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
2436:
2437: /* New component - insert into the list of components copied */
2438: RG_XFER_UTILS_PKG.insert_into_list(
2439: ReportList, ReportCount, ComponentName);
2434:
2435: RG_XFER_UTILS_PKG.insert_rows(SQLString, TargetId, UseCOAId=> TRUE);
2436:
2437: /* New component - insert into the list of components copied */
2438: RG_XFER_UTILS_PKG.insert_into_list(
2439: ReportList, ReportCount, ComponentName);
2440: RG_XFER_UTILS_PKG.display_log(
2441: MsgLevel => G_ML_Normal,
2442: MsgName => 'RG_XFER_L_TRANSFERRED',
2436:
2437: /* New component - insert into the list of components copied */
2438: RG_XFER_UTILS_PKG.insert_into_list(
2439: ReportList, ReportCount, ComponentName);
2440: RG_XFER_UTILS_PKG.display_log(
2441: MsgLevel => G_ML_Normal,
2442: MsgName => 'RG_XFER_L_TRANSFERRED',
2443: Token1 => 'COMP_TYPE',
2444: Token1Val => 'RG_REPORT',
2450: ELSE
2451:
2452: /* Component with same name already exists in target db. Check if
2453: * this component was copied by this run. */
2454: IF (RG_XFER_UTILS_PKG.search_list(
2455: ReportList, ReportCount, ComponentName) = G_Error) THEN
2456: /* Component with same name existed before this run. */
2457:
2458: /* Check if it uses the correct chart of accounts id. */
2455: ReportList, ReportCount, ComponentName) = G_Error) THEN
2456: /* Component with same name existed before this run. */
2457:
2458: /* Check if it uses the correct chart of accounts id. */
2459: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
2460: 'RG_REPORTS', ComponentName) = G_Error) THEN
2461: RG_XFER_UTILS_PKG.display_warning(
2462: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
2463: Token1 => 'COMP_TYPE',
2457:
2458: /* Check if it uses the correct chart of accounts id. */
2459: IF (RG_XFER_UTILS_PKG.check_target_coa_id(
2460: 'RG_REPORTS', ComponentName) = G_Error) THEN
2461: RG_XFER_UTILS_PKG.display_warning(
2462: MsgName => 'RG_XFER_TARGET_COA_MISMATCH',
2463: Token1 => 'COMP_TYPE',
2464: Token1Val => 'RG_REPORT',
2465: Token1Xlate => TRUE,
2465: Token1Xlate => TRUE,
2466: Token2 => 'COMP_NAME',
2467: Token2Val => ComponentName,
2468: Token2Xlate => FALSE);
2469: RG_XFER_UTILS_PKG.display_log(
2470: MsgLevel => G_ML_Full,
2471: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARNING',
2472: Token1 => 'ROUTINE',
2473: Token1Val => 'copy_report');
2473: Token1Val => 'copy_report');
2474: RETURN(G_Warning);
2475: ELSE
2476: /* Show warning and use the existing id. */
2477: RG_XFER_UTILS_PKG.display_warning(
2478: MsgName => 'RG_XFER_COMP_EXIST',
2479: Token1 => 'COMP_TYPE',
2480: Token1Val => 'RG_REPORT',
2481: Token1Xlate => TRUE,
2489:
2490: /* Clear the name of the component being copied */
2491: G_Report := NULL;
2492:
2493: RG_XFER_UTILS_PKG.display_log(
2494: MsgLevel => G_ML_Full,
2495: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
2496: Token1 => 'ROUTINE',
2497: Token1Val => 'copy_report');
2504: WHEN OTHERS THEN
2505: /* Display the exception if MsgLevel is at least Normal */
2506: ErrorNum := SQLCODE;
2507: ErrorMsg := SUBSTRB(SQLERRM, 1, 512);
2508: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
2509:
2510: /* Error transferrring required component */
2511: RG_XFER_UTILS_PKG.display_error(
2512: MsgName => 'RG_XFER_ABORT',
2507: ErrorMsg := SUBSTRB(SQLERRM, 1, 512);
2508: RG_XFER_UTILS_PKG.display_exception(ErrorNum, ErrorMsg);
2509:
2510: /* Error transferrring required component */
2511: RG_XFER_UTILS_PKG.display_error(
2512: MsgName => 'RG_XFER_ABORT',
2513: Token1 => 'COMP_TYPE',
2514: Token1Val => 'RG_REPORT',
2515: Token1Xlate => TRUE,
2518: Token2Xlate => FALSE,
2519: Token3 => 'SUB_COMP_TYPE',
2520: Token3Val => 'RG_ROW_SET',
2521: Token3Xlate => TRUE);
2522: RG_XFER_UTILS_PKG.display_log(
2523: MsgLevel => G_ML_Full,
2524: MsgName => 'RG_XFER_L_EXIT_ROUTINE_ERROR',
2525: Token1 => 'ROUTINE',
2526: Token1Val => 'copy_report');
2549: RowsFound BOOLEAN := TRUE;
2550: TargetParameterSetId NUMBER;
2551: SourceParameterSetId NUMBER;
2552: BEGIN
2553: RG_XFER_UTILS_PKG.display_log(
2554: MsgLevel => G_ML_Full,
2555: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
2556: Token1 => 'ROUTINE',
2557: Token1Val => 'copy_report_details',
2558: Token2 => 'PARAM1',
2559: Token2Val => TO_CHAR(ReportId));
2560:
2561: /* Get a new parameter set id */
2562: TargetParameterSetId := RG_XFER_UTILS_PKG.get_new_id(
2563: 'RG_REPORT_PARAMETERS_S');
2564:
2565: /* Get all the parameters for the report */
2566: CursorId := DBMS_SQL.open_cursor;
2592: DBMS_SQL.column_value(CursorId, 6, ParameterNum);
2593:
2594: IF (DataType = 'B') THEN
2595: /* Check budget */
2596: RG_XFER_UTILS_PKG.get_target_id_from_source_id(
2597: 'GL_BUDGET_VERSIONS',
2598: 'BUDGET_NAME',
2599: 'BUDGET_VERSION_ID',
2600: ParameterId,
2600: ParameterId,
2601: ParameterName);
2602: ELSIF (DataType = 'E') THEN
2603: /* Check encumbrance type */
2604: RG_XFER_UTILS_PKG.get_target_id_from_source_id(
2605: 'GL_ENCUMBRANCE_TYPES',
2606: 'ENCUMBRANCE_TYPE',
2607: 'ENCUMBRANCE_TYPE_ID',
2608: ParameterId,
2614: ELSIF (DataType = 'I') THEN
2615: /* Nothing to check for constant period of interest parameters */
2616: NULL;
2617: ELSE
2618: RG_XFER_UTILS_PKG.display_warning('Invalid data_type value in ' ||
2619: 'table rg_report_parameters!');
2620: END IF;
2621:
2622: IF ((DataType = 'B') AND
2621:
2622: IF ((DataType = 'B') AND
2623: (ParameterId = G_Error)) THEN
2624: /* Error: budget not present in target db */
2625: RG_XFER_UTILS_PKG.display_warning(
2626: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2627: Token1 => 'SUB_COMP_TYPE',
2628: Token1Val => 'RG_XFER_BUDGET',
2629: Token1Xlate => TRUE,
2638: Token4Xlate => FALSE);
2639: ELSIF ((DataType = 'E') AND
2640: (ParameterId = G_Error)) THEN
2641: /* Error: encumbrance type not present in target db */
2642: RG_XFER_UTILS_PKG.display_warning(
2643: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2644: Token1 => 'SUB_COMP_TYPE',
2645: Token1Val => 'RG_XFER_ENCUMBRANCE_TYPE',
2646: Token1Xlate => TRUE,
2653: Token4 => 'COMP_NAME',
2654: Token4Val => G_Report,
2655: Token4Xlate => FALSE);
2656: ELSIF ((DataType = 'C') AND (EnteredCurrency IS NOT NULL) AND
2657: (NOT RG_XFER_UTILS_PKG.currency_exists(EnteredCurrency))) THEN
2658: /* Error: entered currency code not present in target db */
2659: RG_XFER_UTILS_PKG.display_warning(
2660: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2661: Token1 => 'SUB_COMP_TYPE',
2655: Token4Xlate => FALSE);
2656: ELSIF ((DataType = 'C') AND (EnteredCurrency IS NOT NULL) AND
2657: (NOT RG_XFER_UTILS_PKG.currency_exists(EnteredCurrency))) THEN
2658: /* Error: entered currency code not present in target db */
2659: RG_XFER_UTILS_PKG.display_warning(
2660: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2661: Token1 => 'SUB_COMP_TYPE',
2662: Token1Val => 'RG_XFER_CURRENCY',
2663: Token1Xlate => TRUE,
2670: Token4 => 'COMP_NAME',
2671: Token4Val => G_Report,
2672: Token4Xlate => FALSE);
2673: ELSIF ((DataType = 'C') AND (LedgerCurrency IS NOT NULL) AND
2674: (NOT RG_XFER_UTILS_PKG.currency_exists(LedgerCurrency))) THEN
2675: /* Error: ledger currency code not present in target db */
2676: RG_XFER_UTILS_PKG.display_warning(
2677: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2678: Token1 => 'SUB_COMP_TYPE',
2672: Token4Xlate => FALSE);
2673: ELSIF ((DataType = 'C') AND (LedgerCurrency IS NOT NULL) AND
2674: (NOT RG_XFER_UTILS_PKG.currency_exists(LedgerCurrency))) THEN
2675: /* Error: ledger currency code not present in target db */
2676: RG_XFER_UTILS_PKG.display_warning(
2677: MsgName => 'RG_XFER_SUB_COMP_NOT_EXIST',
2678: Token1 => 'SUB_COMP_TYPE',
2679: Token1Val => 'RG_XFER_CURRENCY',
2680: Token1Xlate => TRUE,
2693: ' WHERE parameter_set_id = ' ||
2694: TO_CHAR(SourceParameterSetId) ||
2695: ' AND data_type = ''' || DataType || '''' ||
2696: ' AND parameter_num = ' || TO_CHAR(ParameterNum);
2697: RG_XFER_UTILS_PKG.substitute_tokens(
2698: SQLString,
2699: Token1=> ':parameter_id',
2700: Token1Val=> TO_CHAR(ParameterId));
2701: RG_XFER_UTILS_PKG.insert_rows(
2697: RG_XFER_UTILS_PKG.substitute_tokens(
2698: SQLString,
2699: Token1=> ':parameter_id',
2700: Token1Val=> TO_CHAR(ParameterId));
2701: RG_XFER_UTILS_PKG.insert_rows(
2702: SQLString, TargetParameterSetId, UseCOAId=> FALSE);
2703: END IF;
2704:
2705: ELSE
2709: END IF;
2710: END LOOP;
2711: DBMS_SQL.close_cursor(CursorId);
2712:
2713: RG_XFER_UTILS_PKG.display_log(
2714: MsgLevel => G_ML_Full,
2715: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
2716: Token1 => 'ROUTINE',
2717: Token1Val => 'copy_report_details');
2738: SourceId NUMBER; /* Source component id */
2739: SQLString VARCHAR2(2000);
2740: AdjustedName VARCHAR2(60);
2741: BEGIN
2742: RG_XFER_UTILS_PKG.display_log(
2743: MsgLevel => G_ML_Full,
2744: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
2745: Token1 => 'ROUTINE',
2746: Token1Val => 'copy_report_set',
2750: /* Store the name of the component being copied */
2751: G_ReportSet := ComponentName;
2752:
2753: /* Account for single quotes */
2754: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
2755:
2756: /* Ensure that the component exists in the source database */
2757: IF (CheckExistence) THEN
2758: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2754: RG_XFER_UTILS_PKG.copy_adjust_string(AdjustedName, ComponentName);
2755:
2756: /* Ensure that the component exists in the source database */
2757: IF (CheckExistence) THEN
2758: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2759: 'RG_REPORT_SET', ComponentName)) THEN
2760: RG_XFER_UTILS_PKG.display_error(
2761: MsgName => 'RG_XFER_COMP_NOT_EXIST',
2762: Token1 => 'COMP_TYPE',
2756: /* Ensure that the component exists in the source database */
2757: IF (CheckExistence) THEN
2758: IF (NOT RG_XFER_UTILS_PKG.source_component_exists(
2759: 'RG_REPORT_SET', ComponentName)) THEN
2760: RG_XFER_UTILS_PKG.display_error(
2761: MsgName => 'RG_XFER_COMP_NOT_EXIST',
2762: Token1 => 'COMP_TYPE',
2763: Token1Val => 'RG_REPORT_SET',
2764: Token1Xlate => TRUE,
2769: END IF;
2770: END IF;
2771:
2772: /* Ensure that the COA id of the component matches the source COA id */
2773: IF (RG_XFER_UTILS_PKG.check_coa_id(
2774: 'RG_REPORT_SETS', ComponentName) = G_Error) THEN
2775: RG_XFER_UTILS_PKG.display_warning(
2776: MsgName => 'RG_XFER_WRONG_COA',
2777: Token1 => 'COMP_TYPE',
2771:
2772: /* Ensure that the COA id of the component matches the source COA id */
2773: IF (RG_XFER_UTILS_PKG.check_coa_id(
2774: 'RG_REPORT_SETS', ComponentName) = G_Error) THEN
2775: RG_XFER_UTILS_PKG.display_warning(
2776: MsgName => 'RG_XFER_WRONG_COA',
2777: Token1 => 'COMP_TYPE',
2778: Token1Val => 'RG_REPORT_SET',
2779: Token1Xlate => TRUE,
2779: Token1Xlate => TRUE,
2780: Token2 => 'COMP_NAME',
2781: Token2Val => ComponentName,
2782: Token2Xlate => FALSE);
2783: RG_XFER_UTILS_PKG.display_log(
2784: MsgLevel => G_ML_Full,
2785: MsgName => 'RG_XFER_L_EXIT_ROUTINE_WARN',
2786: Token1 => 'ROUTINE',
2787: Token1Val => 'copy_report_set');
2792: SQLString := 'SELECT report_set_id ' ||
2793: 'FROM rg_report_sets ' ||
2794: 'WHERE name = ''' || AdjustedName || '''' ||
2795: 'AND application_id = ' || TO_CHAR(G_ApplId);
2796: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
2797:
2798: IF (TargetId = G_Error) THEN
2799: /* Insert data into table */
2800: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_SETS_S');
2796: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
2797:
2798: IF (TargetId = G_Error) THEN
2799: /* Insert data into table */
2800: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_SETS_S');
2801: SourceId := RG_XFER_UTILS_PKG.get_source_id(
2802: 'RG_REPORT_SETS',
2803: 'REPORT_SET_ID',
2804: ComponentName,
2797:
2798: IF (TargetId = G_Error) THEN
2799: /* Insert data into table */
2800: TargetId := RG_XFER_UTILS_PKG.get_new_id('RG_REPORT_SETS_S');
2801: SourceId := RG_XFER_UTILS_PKG.get_source_id(
2802: 'RG_REPORT_SETS',
2803: 'REPORT_SET_ID',
2804: ComponentName,
2805: ' AND application_id = ' || TO_CHAR(G_ApplId));
2802: 'RG_REPORT_SETS',
2803: 'REPORT_SET_ID',
2804: ComponentName,
2805: ' AND application_id = ' || TO_CHAR(G_ApplId));
2806: RG_XFER_UTILS_PKG.insert_rows(
2807: ReportSetsString || G_LinkName ||
2808: ' WHERE report_set_id = ' || TO_CHAR(SourceId),
2809: TargetId, UseCOAId=> TRUE);
2810:
2810:
2811: copy_report_set_details(SourceId, TargetId);
2812:
2813: /* New component - insert into the list of components copied */
2814: RG_XFER_UTILS_PKG.insert_into_list(
2815: ReportSetList, ReportSetCount, ComponentName);
2816: RG_XFER_UTILS_PKG.display_log(
2817: MsgLevel => G_ML_Normal,
2818: MsgName => 'RG_XFER_L_TRANSFERRED',
2812:
2813: /* New component - insert into the list of components copied */
2814: RG_XFER_UTILS_PKG.insert_into_list(
2815: ReportSetList, ReportSetCount, ComponentName);
2816: RG_XFER_UTILS_PKG.display_log(
2817: MsgLevel => G_ML_Normal,
2818: MsgName => 'RG_XFER_L_TRANSFERRED',
2819: Token1 => 'COMP_TYPE',
2820: Token1Val => 'RG_REPORT_SET',
2826: ELSE
2827:
2828: /* Component with same name already exists in target db. Check if
2829: * this component was copied by this run. */
2830: IF (RG_XFER_UTILS_PKG.search_list(
2831: ReportSetList, ReportSetCount, ComponentName) = G_Error) THEN
2832: /* Component with same name existed before this run. Show warning and
2833: * and use the existing id. */
2834: RG_XFER_UTILS_PKG.display_warning(
2830: IF (RG_XFER_UTILS_PKG.search_list(
2831: ReportSetList, ReportSetCount, ComponentName) = G_Error) THEN
2832: /* Component with same name existed before this run. Show warning and
2833: * and use the existing id. */
2834: RG_XFER_UTILS_PKG.display_warning(
2835: MsgName => 'RG_XFER_COMP_EXIST',
2836: Token1 => 'COMP_TYPE',
2837: Token1Val => 'RG_REPORT_SET',
2838: Token1Xlate => TRUE,
2845:
2846: /* Clear the name of the component being copied */
2847: G_ReportSet := NULL;
2848:
2849: RG_XFER_UTILS_PKG.display_log(
2850: MsgLevel => G_ML_Full,
2851: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
2852: Token1 => 'ROUTINE',
2853: Token1Val => 'copy_report_set');
2874: ReportName VARCHAR2(30) := NULL;
2875: SQLString VARCHAR2(3000);
2876: ReportRequestId NUMBER;
2877: BEGIN
2878: RG_XFER_UTILS_PKG.display_log(
2879: MsgLevel => G_ML_Full,
2880: MsgName => 'RG_XFER_L_ENTER_ROUTINE',
2881: Token1 => 'ROUTINE',
2882: Token1Val => 'copy_report_set_details',
2900: * record. */
2901: IF (DBMS_SQL.fetch_rows(CursorId) > 0) THEN
2902: DBMS_SQL.column_value(CursorId, 1, ReportRequestId);
2903: /* Copy report */
2904: ReportName := RG_XFER_UTILS_PKG.get_source_ref_object_name(
2905: 'RG_REPORT_REQUESTS', 'RG_REPORTS',
2906: 'REPORT_REQUEST_ID', TO_CHAR(ReportRequestId),
2907: 'REPORT_ID', 'REPORT_ID',
2908: CharColumn => FALSE);
2907: 'REPORT_ID', 'REPORT_ID',
2908: CharColumn => FALSE);
2909:
2910: IF (ReportName IS NOT NULL) THEN
2911: RG_XFER_UTILS_PKG.display_log(
2912: MsgLevel => G_ML_Normal,
2913: MsgName => 'RG_XFER_L_SUB_COMP_START',
2914: Token1 => 'SUB_COMP_TYPE',
2915: Token1Val => 'RG_REPORT',
2927: END IF;
2928:
2929: IF ((ReportId = G_Error) OR (ReportId = G_Warning)) THEN
2930: /* Display warning message. */
2931: RG_XFER_UTILS_PKG.display_warning(
2932: MsgName => 'RG_XFER_SUB_COMP_FAILURE',
2933: Token1 => 'COMP_TYPE',
2934: Token1Val => 'RG_REPORT_SET',
2935: Token1Xlate => TRUE,
2942: ELSE
2943: /* Insert the row */
2944: SQLString := ReportRequestsString || G_LinkName ||
2945: ' WHERE report_request_id = '||TO_CHAR(ReportRequestId);
2946: RG_XFER_UTILS_PKG.substitute_tokens(
2947: SQLString,
2948: Token1=> ':report_id',
2949: Token1Val=> TO_CHAR(ReportId));
2950: RG_XFER_UTILS_PKG.insert_rows(
2946: RG_XFER_UTILS_PKG.substitute_tokens(
2947: SQLString,
2948: Token1=> ':report_id',
2949: Token1Val=> TO_CHAR(ReportId));
2950: RG_XFER_UTILS_PKG.insert_rows(
2951: SQLString, TargetReportSetId, UseCOAId=>TRUE);
2952: END IF;
2953: ELSE
2954: /* No more rows */
2956: END IF;
2957: END LOOP;
2958: DBMS_SQL.close_cursor(CursorId);
2959:
2960: RG_XFER_UTILS_PKG.display_log(
2961: MsgLevel => G_ML_Full,
2962: MsgName => 'RG_XFER_L_EXIT_ROUTINE',
2963: Token1 => 'ROUTINE',
2964: Token1Val => 'copy_report_set_details');
3025: l_user_id := FND_GLOBAL.User_Id;
3026: l_login_id := FND_GLOBAL.Login_Id;
3027: --
3028: /* Check if parent taxonomy of the same alias already exists in target db */
3029: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, parent_tax_alias);
3030: ValueString := '''' || TempValue || '''';
3031:
3032: SQLString := 'SELECT taxonomy_id ' ||
3033: 'FROM rg_xbrl_taxonomies ' ||
3031:
3032: SQLString := 'SELECT taxonomy_id ' ||
3033: 'FROM rg_xbrl_taxonomies ' ||
3034: 'WHERE taxonomy_alias = ' || ValueString;
3035: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
3036:
3037: IF (TargetId <> G_Error) THEN
3038: /* parent taxonomy exists in target db */
3039: parent_done_flag := 1;
3050: ' map.enabled_flag = ''Y'' AND ' ||
3051: ' map.taxonomy_id = '|| to_char(parent_tax_id) || ' AND ' ||
3052: ' tax.taxonomy_id <> ' || to_char(parent_tax_id);
3053:
3054: RG_XFER_UTILS_PKG.display_string(SQLString);
3055:
3056: CursorId := DBMS_SQL.open_cursor;
3057:
3058: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3079: /* all childs are created */
3080:
3081: IF (child_cnt = 0) THEN
3082:
3083: dest_taxonomy_id := RG_XFER_UTILS_PKG.get_new_id('rg_xbrl_taxonomy_s');
3084:
3085: /* populate one row in rg_xbrl_taxonomies */
3086:
3087: SQLString :=
3098: to_char(l_login_id) || ' ' ||
3099: 'FROM RG_XBRL_TAXONOMIES@' || G_LinkName ||
3100: ' WHERE taxonomy_id = ' || to_char(parent_tax_id);
3101:
3102: RG_XFER_UTILS_PKG.display_string(SQLString);
3103:
3104: CursorId := DBMS_SQL.open_cursor;
3105: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3106: ExecuteValue := DBMS_SQL.execute(CursorId);
3115: ' has_child_flag, has_parent_flag, hierarchy_level ' ||
3116: 'FROM RG_XBRL_ELEMENTS@' || G_LinkName ||
3117: ' WHERE taxonomy_id = ' || to_char(parent_tax_id);
3118:
3119: RG_XFER_UTILS_PKG.display_string(SQLString);
3120:
3121: CursorId := DBMS_SQL.open_cursor;
3122:
3123: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3148: DBMS_SQL.column_value(CursorId, 8, src_has_child_flag);
3149: DBMS_SQL.column_value(CursorId, 9, src_has_parent_flag);
3150: DBMS_SQL.column_value(CursorId, 10, src_hierarchy_level);
3151: --
3152: cur_elem_id := RG_XFER_UTILS_PKG.get_new_id('rg_xbrl_elements_s');
3153: --
3154: INSERT INTO RG_XBRL_ELEMENTS (
3155: TAXONOMY_ID, ELEMENT_ID, ELEMENT_IDENTIFIER,
3156: ELEMENT_NAME, ELEMENT_TYPE, ELEMENT_GROUP,
3184: ' SYSDATE,' || to_char(l_user_id) || ',' || to_char(l_login_id) ||
3185: ' FROM RG_XBRL_ELEMENTS ' ||
3186: ' WHERE taxonomy_id = ' || to_char(dest_taxonomy_id);
3187:
3188: RG_XFER_UTILS_PKG.display_string(SQLString);
3189:
3190: CursorId := DBMS_SQL.open_cursor;
3191: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3192: ExecuteValue := DBMS_SQL.execute(CursorId);
3208:
3209: --IF (cur_done_flag = 1) THEN
3210: /* Check if parent taxonomy of the same alias already exists in target db */
3211:
3212: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, parent_tax_alias);
3213: ValueString := '''' || TempValue || '''';
3214:
3215: SQLString := 'SELECT taxonomy_id ' ||
3216: 'FROM rg_xbrl_taxonomies ' ||
3215: SQLString := 'SELECT taxonomy_id ' ||
3216: 'FROM rg_xbrl_taxonomies ' ||
3217: 'WHERE taxonomy_alias = ' || ValueString;
3218:
3219: RG_XFER_UTILS_PKG.display_string(SQLString);
3220:
3221: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
3222:
3223: IF (TargetId = G_Error) THEN
3217: 'WHERE taxonomy_alias = ' || ValueString;
3218:
3219: RG_XFER_UTILS_PKG.display_string(SQLString);
3220:
3221: TargetId := RG_XFER_UTILS_PKG.component_exists(SQLString);
3222:
3223: IF (TargetId = G_Error) THEN
3224: /* parent taxonomy does not exist in target db */
3225:
3222:
3223: IF (TargetId = G_Error) THEN
3224: /* parent taxonomy does not exist in target db */
3225:
3226: dest_taxonomy_id := RG_XFER_UTILS_PKG.get_new_id('rg_xbrl_taxonomy_s');
3227:
3228: /* populate one row in rg_xbrl_taxonomies */
3229:
3230: SQLString :=
3240: ' SYSDATE,' || TO_CHAR(l_user_id) || ',' || TO_CHAR(l_login_id) ||
3241: ' FROM RG_XBRL_TAXONOMIES@' || G_LinkName ||
3242: ' WHERE taxonomy_id = ' || to_char(parent_tax_id);
3243:
3244: RG_XFER_UTILS_PKG.display_string(SQLString);
3245:
3246: CursorId := DBMS_SQL.open_cursor;
3247: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3248: ExecuteValue := DBMS_SQL.execute(CursorId);
3257: ' has_child_flag, has_parent_flag, hierarchy_level' ||
3258: ' FROM RG_XBRL_ELEMENTS@' || G_LinkName ||
3259: ' WHERE taxonomy_id = ' || to_char(parent_tax_id);
3260:
3261: RG_XFER_UTILS_PKG.display_string(SQLString);
3262:
3263: CursorId := DBMS_SQL.open_cursor;
3264:
3265: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3290: DBMS_SQL.column_value(CursorId, 8, src_has_child_flag);
3291: DBMS_SQL.column_value(CursorId, 9, src_has_parent_flag);
3292: DBMS_SQL.column_value(CursorId, 10, src_hierarchy_level);
3293: --
3294: cur_elem_id := RG_XFER_UTILS_PKG.get_new_id('rg_xbrl_elements_s');
3295: --
3296: INSERT INTO RG_XBRL_ELEMENTS (
3297: TAXONOMY_ID, ELEMENT_ID, ELEMENT_IDENTIFIER,
3298: ELEMENT_NAME, ELEMENT_TYPE, ELEMENT_GROUP,
3326: ' SYSDATE,' || TO_CHAR(l_user_id) || ',' || TO_CHAR(l_login_id) ||
3327: ' FROM RG_XBRL_ELEMENTS ' ||
3328: ' WHERE taxonomy_id = ' || to_char(dest_taxonomy_id);
3329:
3330: RG_XFER_UTILS_PKG.display_string(SQLString);
3331:
3332: CursorId := DBMS_SQL.open_cursor;
3333: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3334: ExecuteValue := DBMS_SQL.execute(CursorId);
3337: END IF;
3338:
3339: /* update rg_xbrl_map_elements for the parent with a child */
3340:
3341: RG_XFER_UTILS_PKG.copy_adjust_string(TempValue, cur_tax_alias);
3342: ValueString := '''' || TempValue || '''';
3343:
3344: SQLString := 'SELECT taxonomy_id ' ||
3345: 'FROM rg_xbrl_taxonomies ' ||
3344: SQLString := 'SELECT taxonomy_id ' ||
3345: 'FROM rg_xbrl_taxonomies ' ||
3346: 'WHERE taxonomy_alias = ' || ValueString;
3347:
3348: l_child_tax_id := RG_XFER_UTILS_PKG.component_exists(SQLString);
3349:
3350: SQLString :=
3351: 'INSERT INTO RG_XBRL_MAP_ELEMENTS (' ||
3352: ' TAXONOMY_ID, ELEMENT_ID, ENABLED_FLAG,' ||
3361: ' mel.element_id NOT IN ' ||
3362: '(SELECT map.element_id FROM RG_XBRL_MAP_ELEMENTS map ' ||
3363: 'WHERE map.taxonomy_id = ' || to_char(dest_taxonomy_id) || ')';
3364:
3365: RG_XFER_UTILS_PKG.display_string(SQLString);
3366:
3367: CursorId := DBMS_SQL.open_cursor;
3368: DBMS_SQL.parse(CursorId, SQLString, DBMS_SQL.v7);
3369: ExecuteValue := DBMS_SQL.execute(CursorId);
3383: BEGIN
3384: /* Initialize variables on package access. */
3385:
3386: /* Error codes */
3387: G_Error := RG_XFER_UTILS_PKG.G_Error;
3388: G_Warning := RG_XFER_UTILS_PKG.G_Warning;
3389:
3390: /* The message levels */
3391: G_ML_Minimal := RG_XFER_UTILS_PKG.G_ML_Minimal;
3384: /* Initialize variables on package access. */
3385:
3386: /* Error codes */
3387: G_Error := RG_XFER_UTILS_PKG.G_Error;
3388: G_Warning := RG_XFER_UTILS_PKG.G_Warning;
3389:
3390: /* The message levels */
3391: G_ML_Minimal := RG_XFER_UTILS_PKG.G_ML_Minimal;
3392: G_ML_Normal := RG_XFER_UTILS_PKG.G_ML_Normal;
3387: G_Error := RG_XFER_UTILS_PKG.G_Error;
3388: G_Warning := RG_XFER_UTILS_PKG.G_Warning;
3389:
3390: /* The message levels */
3391: G_ML_Minimal := RG_XFER_UTILS_PKG.G_ML_Minimal;
3392: G_ML_Normal := RG_XFER_UTILS_PKG.G_ML_Normal;
3393: G_ML_Full := RG_XFER_UTILS_PKG.G_ML_Full;
3394:
3395: END RG_XFER_COMPONENTS_PKG;
3388: G_Warning := RG_XFER_UTILS_PKG.G_Warning;
3389:
3390: /* The message levels */
3391: G_ML_Minimal := RG_XFER_UTILS_PKG.G_ML_Minimal;
3392: G_ML_Normal := RG_XFER_UTILS_PKG.G_ML_Normal;
3393: G_ML_Full := RG_XFER_UTILS_PKG.G_ML_Full;
3394:
3395: END RG_XFER_COMPONENTS_PKG;
3389:
3390: /* The message levels */
3391: G_ML_Minimal := RG_XFER_UTILS_PKG.G_ML_Minimal;
3392: G_ML_Normal := RG_XFER_UTILS_PKG.G_ML_Normal;
3393: G_ML_Full := RG_XFER_UTILS_PKG.G_ML_Full;
3394:
3395: END RG_XFER_COMPONENTS_PKG;