[Home] [Help]
359: -- load_file_version_info
360: --
361: -- Purpose
362: -- Imports file information from ad_check_file_temp to ad_files and
363: -- ad_file_versions.
364: --
365: -- Only creates rows that don't already exist.
366: --
367: -- Processes all rows in ad_check_file_temp with active_flag='Y'.
406: -- process ad_file_versons
407: --
408:
409: --
410: -- get file_version_id from ad_file_versions
411: --
412: ad_file_util.error_buf := 'load_file_version_info('||
413: 'update ad_check_file_temp t '||
414: 'set t.file_version_id = '||
412: ad_file_util.error_buf := 'load_file_version_info('||
413: 'update ad_check_file_temp t '||
414: 'set t.file_version_id = '||
415: '(select fv.file_version_id '||
416: 'from ad_file_versions fv '||
417: 'where fv.file_id = t.file_id '||
418: 'and fv.version = t.manifest_vers '||
419: 'and fv.translation_level = '||
420: 't.translation_level) '||
422: 'and lower(t.manifest_vers)<>''none'';):(';
423: begin
424: update ad_check_file_temp t
425: set t.file_version_id =
426: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
427: from ad_file_versions fv
428: where fv.file_id = t.file_id
429: and fv.version = t.manifest_vers
430: and fv.translation_level = t.translation_level)
423: begin
424: update ad_check_file_temp t
425: set t.file_version_id =
426: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
427: from ad_file_versions fv
428: where fv.file_id = t.file_id
429: and fv.version = t.manifest_vers
430: and fv.translation_level = t.translation_level)
431: where nvl(t.active_flag,'N') = 'Y'
436: raise;
437: end;
438:
439: --
440: -- add new entries to ad_file_versions
441: --
442: ad_file_util.error_buf := 'load_file_version_info('||
443: 'insert into ad_file_versions '||
444: '(file_version_id, file_id, version, '||
439: --
440: -- add new entries to ad_file_versions
441: --
442: ad_file_util.error_buf := 'load_file_version_info('||
443: 'insert into ad_file_versions '||
444: '(file_version_id, file_id, version, '||
445: 'translation_level, '||
446: 'version_segment1, version_segment2, '||
447: 'version_segment3, version_segment4, '||
449: 'version_segment7, version_segment8, '||
450: 'version_segment9, version_segment10, '||
451: 'creation_date, created_by, last_update_date, '||
452: 'last_updated_by) select '||
453: 'ad_file_versions_s.nextval, '||
454: 'temp.f_id, temp.vers, temp.trans_level, '||
455: 'temp.vs1, temp.vs2, temp.vs3, temp.vs4, '||
456: 'temp.vs5, temp.vs6, temp.vs7, temp.vs8, '||
457: 'temp.vs9, temp.vs10, temp.edate, 5, '||
459: 't.file_id f_id, t.manifest_vers vers, '||
460: 't.translation_level trans_level,....);):(';
461:
462: begin
463: insert into ad_file_versions
464: (file_version_id, file_id, version, translation_level,
465: version_segment1, version_segment2, version_segment3,
466: version_segment4, version_segment5, version_segment6,
467: version_segment7, version_segment8, version_segment9,
466: version_segment4, version_segment5, version_segment6,
467: version_segment7, version_segment8, version_segment9,
468: version_segment10,
469: creation_date, created_by, last_update_date, last_updated_by)
470: select ad_file_versions_s.nextval,
471: temp.f_id, temp.vers, temp.trans_level,
472: temp.vs1, temp.vs2, temp.vs3, temp.vs4, temp.vs5,
473: temp.vs6, temp.vs7, temp.vs8, temp.vs9, temp.vs10,
474: temp.edate, 5, temp.edate, 5
545: ad_file_util.error_buf :='load_file_version_info('||
546: 'update ad_check_file_temp t '||
547: 'set t.file_version_id = '||
548: '(select fv.file_version_id '||
549: 'from ad_file_versions fv '||
550: 'where fv.file_id = t.file_id '||
551: 'and fv.version = t.manifest_vers '||
552: 'and fv.translation_level = t.translation_level)'||
553: 'where t.file_version_id is null '||
557:
558: begin
559: update ad_check_file_temp t
560: set t.file_version_id =
561: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
562: from ad_file_versions fv
563: where fv.file_id = t.file_id
564: and fv.version = t.manifest_vers
565: and fv.translation_level = t.translation_level)
558: begin
559: update ad_check_file_temp t
560: set t.file_version_id =
561: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
562: from ad_file_versions fv
563: where fv.file_id = t.file_id
564: and fv.version = t.manifest_vers
565: and fv.translation_level = t.translation_level)
566: where t.file_version_id is null
583: -- load_checkfile_info
584: --
585: -- Purpose
586: -- Imports file information from ad_check_file_temp to ad_files,
587: -- ad_file_versions, and ad_check_files.
588: --
589: -- Only creates rows in ad_files and ad_file_versions that don't
590: -- already exist. In ad_check_files, it creates rows that don't already
591: -- exist and also updates existing rows if the version to load is higher
585: -- Purpose
586: -- Imports file information from ad_check_file_temp to ad_files,
587: -- ad_file_versions, and ad_check_files.
588: --
589: -- Only creates rows in ad_files and ad_file_versions that don't
590: -- already exist. In ad_check_files, it creates rows that don't already
591: -- exist and also updates existing rows if the version to load is higher
592: -- than the current version in ad_check_files.
593: --
620: procedure load_checkfile_info
621: is
622: begin
623: --
624: -- process ad_files and ad_file_versions
625: --
626: ad_file_util.error_buf := 'load_checkfile_info(';
627: begin
628: ad_file_util.load_file_version_info;
656: from ad_check_files cf
657: where cf.file_id = t.file_id
658: and nvl(cf.distinguisher,'*null*') = nvl(t.distinguisher,'*null*')),
659: t.manifest_vers_higher =
660: (select /*+ ORDERED INDEX(FV1 AD_FILE_VERSIONS_U1)
661: INDEX(CF AD_CHECK_FILES_U2) INDEX(FV2 AD_FILE_VERSIONS_U1)
662: USE_NL(FV1 CF FV2) */
663: decode(
664: sign(nvl(fv1.version_segment1,0) - nvl(fv2.version_segment1,0)),
657: where cf.file_id = t.file_id
658: and nvl(cf.distinguisher,'*null*') = nvl(t.distinguisher,'*null*')),
659: t.manifest_vers_higher =
660: (select /*+ ORDERED INDEX(FV1 AD_FILE_VERSIONS_U1)
661: INDEX(CF AD_CHECK_FILES_U2) INDEX(FV2 AD_FILE_VERSIONS_U1)
662: USE_NL(FV1 CF FV2) */
663: decode(
664: sign(nvl(fv1.version_segment1,0) - nvl(fv2.version_segment1,0)),
665: -1, null, 1, 'Y', decode(
682: sign(nvl(fv1.version_segment10,0) - nvl(fv2.version_segment10,0)),
683: -1, null, 1, 'Y', decode(
684: sign(fv1.translation_level - fv2.translation_level),
685: -1, null, 1, 'Y', null)))))))))))
686: from ad_file_versions fv1, ad_check_files cf, ad_file_versions fv2
687: where t.file_version_id = fv1.file_version_id
688: and t.file_id = cf.file_id
689: and nvl(t.distinguisher,'*null*') = nvl(cf.distinguisher,'*null*')
690: and cf.file_version_id = fv2.file_version_id)
890: -- load_patch_onsite_vers_info
891: --
892: -- Purpose
893: -- Imports file information from ad_check_file_temp to ad_files and
894: -- ad_file_versions.
895: --
896: -- Only creates rows that don't already exist.
897: --
898: -- Processes all rows in ad_check_file_temp with active_flag='Y'.
914: -- Updates the file_version_id and file_version_id_2 columns of
915: -- ad_check_file_temp so that all rows point to the file_version_id
916: -- of the file versions referenced in the row.
917: --
918: -- Doesn't try to update ad_file_versions for rows in ad_check_file_temp
919: -- with manifest_vers='NA' or manifest_vers_2='NA'. These values mean
920: -- "no version for this file", so no corresponding record should be
921: -- created in ad_file_versions.
922: --
917: --
918: -- Doesn't try to update ad_file_versions for rows in ad_check_file_temp
919: -- with manifest_vers='NA' or manifest_vers_2='NA'. These values mean
920: -- "no version for this file", so no corresponding record should be
921: -- created in ad_file_versions.
922: --
923: -- Arguments
924: -- none
925: --
938: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
939: 'update ad_check_file_temp t '||
940: 'set t.file_version_id = '||
941: '(select fv.file_version_id '||
942: 'from ad_file_versions fv '||
943: 'where fv.file_id = t.file_id '||
944: 'and fv.version = t.manifest_vers '||
945: 'and fv.translation_level = t.translation_level) '||
946: 'where nvl(t.active_flag,''N'') = ''Y'' '||
948:
949: begin
950: update ad_check_file_temp t
951: set t.file_version_id =
952: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
953: from ad_file_versions fv
954: where fv.file_id = t.file_id
955: and fv.version = t.manifest_vers
956: and fv.translation_level = t.translation_level)
949: begin
950: update ad_check_file_temp t
951: set t.file_version_id =
952: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
953: from ad_file_versions fv
954: where fv.file_id = t.file_id
955: and fv.version = t.manifest_vers
956: and fv.translation_level = t.translation_level)
957: where nvl(t.active_flag,'N') = 'Y'
961: ad_file_util.error_buf := ad_file_util.error_buf||sqlerrm||')';
962: raise;
963: end;
964: --
965: -- add new entries to ad_file_versions
966: --
967: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
968: 'insert into ad_file_versions '||
969: '(file_version_id, file_id, version, '||
964: --
965: -- add new entries to ad_file_versions
966: --
967: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
968: 'insert into ad_file_versions '||
969: '(file_version_id, file_id, version, '||
970: 'translation_level, version_segment1,'||
971: 'version_segment2, version_segment3, '||
972: 'version_segment4, version_segment5, '||
975: 'version_segment10, creation_date, created_by, '||
976: 'last_update_date, last_updated_by) '||
977: '.....):(';
978: begin
979: insert into ad_file_versions
980: (file_version_id, file_id, version, translation_level,
981: version_segment1, version_segment2, version_segment3,
982: version_segment4, version_segment5, version_segment6,
983: version_segment7, version_segment8, version_segment9,
982: version_segment4, version_segment5, version_segment6,
983: version_segment7, version_segment8, version_segment9,
984: version_segment10,
985: creation_date, created_by, last_update_date, last_updated_by)
986: select ad_file_versions_s.nextval,
987: temp.f_id, temp.vers, temp.trans_level,
988: temp.vs1, temp.vs2, temp.vs3, temp.vs4, temp.vs5,
989: temp.vs6, temp.vs7, temp.vs8, temp.vs9, temp.vs10,
990: temp.edate, 5, temp.edate, 5
1057: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1058: 'update ad_check_file_temp t '||
1059: 'set t.file_version_id = '||
1060: '(select fv.file_version_id '||
1061: 'from ad_file_versions fv '||
1062: 'where fv.file_id = t.file_id '||
1063: 'and fv.version = t.manifest_vers '||
1064: 'and fv.translation_level = t.translation_level) '||
1065: 'where nvl(t.active_flag,''N'') = ''Y'' '||
1068: --
1069: begin
1070: update ad_check_file_temp t
1071: set t.file_version_id =
1072: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1073: from ad_file_versions fv
1074: where fv.file_id = t.file_id
1075: and fv.version = t.manifest_vers
1076: and fv.translation_level = t.translation_level)
1069: begin
1070: update ad_check_file_temp t
1071: set t.file_version_id =
1072: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1073: from ad_file_versions fv
1074: where fv.file_id = t.file_id
1075: and fv.version = t.manifest_vers
1076: and fv.translation_level = t.translation_level)
1077: where nvl(t.active_flag,'N') = 'Y'
1081: ad_file_util.error_buf := ad_file_util.error_buf||sqlerrm||')';
1082: raise;
1083: end;
1084: --
1085: -- get file_version_id_2 from ad_file_versions
1086: --
1087: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1088: 'update ad_check_file_temp t '||
1089: 'set t.file_version_id_2 = '||
1087: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1088: 'update ad_check_file_temp t '||
1089: 'set t.file_version_id_2 = '||
1090: '(select fv.file_version_id '||
1091: 'from ad_file_versions fv '||
1092: 'where fv.file_id = t.file_id '||
1093: 'and fv.version = t.manifest_vers_2 '||
1094: 'nvl(t.manifest_vers_2,''NA'')<>''NA''):(';
1095: --
1096: --
1097: begin
1098: update ad_check_file_temp t
1099: set t.file_version_id_2 =
1100: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1101: from ad_file_versions fv
1102: where fv.file_id = t.file_id
1103: and fv.version = t.manifest_vers_2
1104: and fv.translation_level = t.translation_level)
1097: begin
1098: update ad_check_file_temp t
1099: set t.file_version_id_2 =
1100: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1101: from ad_file_versions fv
1102: where fv.file_id = t.file_id
1103: and fv.version = t.manifest_vers_2
1104: and fv.translation_level = t.translation_level)
1105: where nvl(t.active_flag,'N') = 'Y' AND
1110: raise;
1111: end;
1112:
1113: --
1114: -- add new entries to ad_file_versions
1115: --
1116: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1117: 'insert into ad_file_versions '||
1118: '(file_version_id, file_id, version, '||
1113: --
1114: -- add new entries to ad_file_versions
1115: --
1116: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1117: 'insert into ad_file_versions '||
1118: '(file_version_id, file_id, version, '||
1119: 'translation_level, version_segment1,'||
1120: 'version_segment2, version_segment3, '||
1121: 'version_segment4, version_segment5, '||
1125: 'last_update_date, last_updated_by) '||
1126: '.....):(';
1127: --
1128: begin
1129: insert into ad_file_versions
1130: (file_version_id, file_id, version, translation_level,
1131: version_segment1, version_segment2, version_segment3,
1132: version_segment4, version_segment5, version_segment6,
1133: version_segment7, version_segment8, version_segment9,
1132: version_segment4, version_segment5, version_segment6,
1133: version_segment7, version_segment8, version_segment9,
1134: version_segment10,
1135: creation_date, created_by, last_update_date, last_updated_by)
1136: select ad_file_versions_s.nextval,
1137: temp.f_id, temp.vers, temp.trans_level,
1138: temp.vs1, temp.vs2, temp.vs3, temp.vs4, temp.vs5,
1139: temp.vs6, temp.vs7, temp.vs8, temp.vs9, temp.vs10,
1140: temp.edate, 5, temp.edate, 5
1202: ad_file_util.error_buf := ad_file_util.error_buf||sqlerrm||')';
1203: raise;
1204: end;
1205: --
1206: -- get file_version_id_2 from ad_file_versions
1207: --
1208: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1209: 'update ad_check_file_temp t '||
1210: 'set t.file_version_id_2 = '||
1208: ad_file_util.error_buf := 'load_patch_onsite_vers_info('||
1209: 'update ad_check_file_temp t '||
1210: 'set t.file_version_id_2 = '||
1211: '(select fv.file_version_id '||
1212: 'from ad_file_versions fv '||
1213: 'where fv.file_id = t.file_id '||
1214: 'and fv.version = t.manifest_vers_2 '||
1215: 'nvl(t.manifest_vers_2,''NA'')<>''NA''):(';
1216: begin
1215: 'nvl(t.manifest_vers_2,''NA'')<>''NA''):(';
1216: begin
1217: update ad_check_file_temp t
1218: set t.file_version_id_2 =
1219: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1220: from ad_file_versions fv
1221: where fv.file_id = t.file_id
1222: and fv.version = t.manifest_vers_2
1223: and fv.translation_level = t.translation_level)
1216: begin
1217: update ad_check_file_temp t
1218: set t.file_version_id_2 =
1219: (select /*+ INDEX(FV AD_FILE_VERSIONS_U2) */ fv.file_version_id
1220: from ad_file_versions fv
1221: where fv.file_id = t.file_id
1222: and fv.version = t.manifest_vers_2
1223: and fv.translation_level = t.translation_level)
1224: where nvl(t.active_flag,'N') = 'Y' AND
1228: ad_file_util.error_buf := ad_file_util.error_buf||sqlerrm||')';
1229: raise;
1230: end;
1231: --
1232: -- done processing ad_file_versions
1233: --
1234: end load_patch_onsite_vers_info;
1235:
1236: --
1240: -- load_snapshot_file_info
1241: --
1242: -- Purpose
1243: -- Create Snapshot data by
1244: -- 1.Calls ad_file_versions and loads the file versions
1245: -- into the ad_check_file_temp table .
1246: -- 2.Updates rows in AD_SNAPSHOT_FILES from ad_check_file_temp
1247: -- which have the same file_id, snapshot_id and containing_file_id
1248: -- 3.Inserts those rows from ad_check_file_temp into AD_SNAPSHOT_FILES
1301: --
1302: --
1303: begin
1304: --
1305: -- process ad_files and ad_file_versions
1306: --
1307: begin
1308: ad_file_util.load_file_version_info;
1309: exception
1953: --
1954: commit;
1955:
1956: --
1957: -- Add new entries in the ad_file_versions
1958: --
1959: INSERT into ad_file_versions
1960: (file_version_id, file_id, version, translation_level,
1961: version_segment1, version_segment2, version_segment3,
1955:
1956: --
1957: -- Add new entries in the ad_file_versions
1958: --
1959: INSERT into ad_file_versions
1960: (file_version_id, file_id, version, translation_level,
1961: version_segment1, version_segment2, version_segment3,
1962: version_segment4, version_segment5, version_segment6,
1963: version_segment7, version_segment8, version_segment9,
1963: version_segment7, version_segment8, version_segment9,
1964: version_segment10,
1965: creation_date, created_by, last_update_date, last_updated_by)
1966: select
1967: ad_file_versions_s.nextval,
1968: temp.f_id, temp.vers, temp.trans_level,
1969: temp.vs1, temp.vs2, temp.vs3, temp.vs4, temp.vs5,
1970: temp.vs6, temp.vs7, temp.vs8, temp.vs9, temp.vs10,
1971: sysdate, 5, sysdate, 5
1994: where not exists (
1995: select
1996: 'x'
1997: from
1998: ad_file_versions vers
1999: where
2000: vers.file_id = temp.f_id
2001: and vers.version = temp.vers
2002: and vers.translation_level = temp.trans_level);
2000: vers.file_id = temp.f_id
2001: and vers.version = temp.vers
2002: and vers.translation_level = temp.trans_level);
2003: --
2004: -- Add new entries in the ad_file_versions
2005: --
2006: INSERT into ad_file_versions
2007: (file_version_id, file_id, version, translation_level,
2008: version_segment1, version_segment2, version_segment3,
2002: and vers.translation_level = temp.trans_level);
2003: --
2004: -- Add new entries in the ad_file_versions
2005: --
2006: INSERT into ad_file_versions
2007: (file_version_id, file_id, version, translation_level,
2008: version_segment1, version_segment2, version_segment3,
2009: version_segment4, version_segment5, version_segment6,
2010: version_segment7, version_segment8, version_segment9,
2010: version_segment7, version_segment8, version_segment9,
2011: version_segment10,
2012: creation_date, created_by, last_update_date, last_updated_by)
2013: select
2014: ad_file_versions_s.nextval,
2015: temp.f_id, temp.vers, temp.trans_level,
2016: temp.vs1, temp.vs2, temp.vs3, temp.vs4, temp.vs5,
2017: temp.vs6, temp.vs7, temp.vs8, temp.vs9, temp.vs10,
2018: sysdate, 5, sysdate, 5
2040: where not exists (
2041: select
2042: 'x'
2043: from
2044: ad_file_versions vers
2045: where
2046: vers.file_id = temp.f_id
2047: and vers.version = temp.vers
2048: and vers.translation_level = temp.trans_level);
2046: vers.file_id = temp.f_id
2047: and vers.version = temp.vers
2048: and vers.translation_level = temp.trans_level);
2049: --
2050: -- Add new entries in the ad_file_versions
2051: --
2052: INSERT into ad_file_versions
2053: (file_version_id, file_id, version, translation_level,
2054: version_segment1, version_segment2, version_segment3,
2048: and vers.translation_level = temp.trans_level);
2049: --
2050: -- Add new entries in the ad_file_versions
2051: --
2052: INSERT into ad_file_versions
2053: (file_version_id, file_id, version, translation_level,
2054: version_segment1, version_segment2, version_segment3,
2055: version_segment4, version_segment5, version_segment6,
2056: version_segment7, version_segment8, version_segment9,
2056: version_segment7, version_segment8, version_segment9,
2057: version_segment10,
2058: creation_date, created_by, last_update_date, last_updated_by)
2059: select
2060: ad_file_versions_s.nextval,
2061: tmp.f_id,tmp.vers, tmp.trans_level,
2062: tmp.vs1, tmp.vs2, tmp.vs3, tmp.vs4,
2063: tmp.vs5, tmp.vs6, tmp.vs7, tmp.vs8,
2064: tmp.vs9, tmp.vs10,sysdate, 5, sysdate, 5
2087: where not exists (
2088: select
2089: 'x'
2090: from
2091: ad_file_versions vers
2092: where
2093: vers.file_id = tmp.f_id
2094: and vers.version = tmp.vers
2095: and vers.translation_level = tmp.trans_level);
2106: set t.PATCH_FILE_VERS_ID =
2107: (select
2108: fv.file_version_id
2109: from
2110: ad_file_versions fv
2111: where
2112: fv.file_id = t.file_id
2113: and fv.version = t.PATCH_FILE_VERS
2114: and fv.translation_level = t.PATCH_TRANS_LEVEL)
2126: set t.ONSITE_FILE_VERS_ID =
2127: (select
2128: fv.file_version_id
2129: from
2130: ad_file_versions fv
2131: where
2132: fv.file_id = t.file_id
2133: and fv.version = t.ONSITE_FILE_VERS
2134: and fv.translation_level = t.ONSITE_TRANS_LEVEL
2145: set t.DB_FILE_VERS_ID =
2146: (select
2147: fv.file_version_id
2148: from
2149: ad_file_versions fv
2150: where
2151: fv.file_id = t.file_id
2152: and fv.version = t.DB_FILE_VERS
2153: and fv.translation_level = t.DB_TRANS_LEVEL)
2633: v.VERSION_SEGMENT7, v.VERSION_SEGMENT8,
2634: v.VERSION_SEGMENT9, v.VERSION_SEGMENT10,
2635: v.VERSION, v.TRANSLATION_LEVEL
2636: from
2637: ad_file_versions v
2638: where
2639: v.file_version_id = tmp.PATCH_FILE_VERS_ID),
2640: tmp.concat_attribs=null;
2641: --