[Home] [Help]
21: --
22: g_lock_lifetime integer := 1*24*60*60; -- one day
23: g_lock_waittime integer := 5*60; -- five minutes
24:
25: g_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
26:
27: -- Prereqs/Includes/Links data level
28:
29: PIL_LEVEL_NONE constant integer := 0;
308: g_debug_flag := DEBUG_STATS;
309:
310: l_ums_table_count := 0;
311:
312: add_table_details(l_ums_tables, l_ums_table_count, 'FND_UMS_BUGFIXES', g_rc.bugfixes);
313: add_table_details(l_ums_tables, l_ums_table_count, 'FND_UMS_BUGFIX_RELATIONSHIPS', g_rc.bugfix_relationships);
314: add_table_details(l_ums_tables, l_ums_table_count, 'FND_UMS_FILES', g_rc.files);
315: add_table_details(l_ums_tables, l_ums_table_count, 'FND_UMS_FILE_VERSIONS', g_rc.file_versions);
316: add_table_details(l_ums_tables, l_ums_table_count, 'FND_UMS_BUGFIX_FILE_VERSIONS', g_rc.bugfix_file_versions);
608: substr(p_baseline , instr(p_baseline , '.',1,2) +1)) into l_baseline from dual;
609: if (p_upload_phase = 'BEGIN') then
610: -- Lock the entity first
611:
612: lock_entity('FND_UMS_BUGFIXES', 'TOP_LEVEL', p_release_name, p_bug_number);
613:
614: -- Gather LDT file details
615:
616: l_file_dc := get_data_contents(p_download_mode,
619:
620: -- Gather database details
621:
622: declare
623: l_bugfix fnd_ums_bugfixes%ROWTYPE;
624: begin
625: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ *
626: into l_bugfix
627: from fnd_ums_bugfixes
621:
622: declare
623: l_bugfix fnd_ums_bugfixes%ROWTYPE;
624: begin
625: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ *
626: into l_bugfix
627: from fnd_ums_bugfixes
628: where release_name = p_release_name
629: and bug_number = p_bug_number
623: l_bugfix fnd_ums_bugfixes%ROWTYPE;
624: begin
625: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ *
626: into l_bugfix
627: from fnd_ums_bugfixes
628: where release_name = p_release_name
629: and bug_number = p_bug_number
630: and baseline = l_baseline;
631:
942: g_rc.bugfix_relationships := g_rc.bugfix_relationships + sql%rowcount;
943:
944: -- delete bugfix
945:
946: delete /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u1) */
947: from fnd_ums_bugfixes
948: where bugfix_guid = g_bugfix_guid;
949:
950: g_rc.bugfixes := g_rc.bugfixes + sql%rowcount;
943:
944: -- delete bugfix
945:
946: delete /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u1) */
947: from fnd_ums_bugfixes
948: where bugfix_guid = g_bugfix_guid;
949:
950: g_rc.bugfixes := g_rc.bugfixes + sql%rowcount;
951:
968: l_type := p_type;
969: l_abstract := p_abstract;
970: end if;
971:
972: insert into fnd_ums_bugfixes
973: (bugfix_guid,
974: release_name,
975: bug_number,
976: baseline,
1003: -- For Example: If database is RO, and ldt is LF, and dates are same
1004: -- then PIL and Files will be uploaded but bugfix and replacement
1005: -- data will not.
1006:
1007: update /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u1) */ fnd_ums_bugfixes
1008: set download_mode = l_final_dc.download_mode,
1009: last_definition_date = l_final_dc.last_definition_date
1010: where bugfix_guid = g_bugfix_guid;
1011:
1215: end up_fnd_ums_bugfix_file;
1216:
1217: --------------------------------------------------------------------------------
1218: function new_bugfix_guid_at
1219: (p_release_name in fnd_ums_bugfixes.release_name%type,
1220: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1221: return raw
1222: is
1223: pragma autonomous_transaction;
1216:
1217: --------------------------------------------------------------------------------
1218: function new_bugfix_guid_at
1219: (p_release_name in fnd_ums_bugfixes.release_name%type,
1220: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1221: return raw
1222: is
1223: pragma autonomous_transaction;
1224: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1220: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1221: return raw
1222: is
1223: pragma autonomous_transaction;
1224: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1225: begin
1226: -- lock the entity first
1227:
1228: lock_entity('FND_UMS_BUGFIXES', p_release_name, p_bug_number);
1224: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1225: begin
1226: -- lock the entity first
1227:
1228: lock_entity('FND_UMS_BUGFIXES', p_release_name, p_bug_number);
1229:
1230: -- check the existence again
1231:
1232: begin
1229:
1230: -- check the existence again
1231:
1232: begin
1233: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ bugfix_guid
1234: into l_bugfix_guid
1235: from fnd_ums_bugfixes
1236: where release_name = p_release_name
1237: and bug_number = p_bug_number;
1231:
1232: begin
1233: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ bugfix_guid
1234: into l_bugfix_guid
1235: from fnd_ums_bugfixes
1236: where release_name = p_release_name
1237: and bug_number = p_bug_number;
1238: exception
1239: when no_data_found then
1249: -- be created to get the bugfix_guid. This bugfix is marked
1250: -- as DL_MODE_NONE so that its definition will be replaced
1251: -- with the real definition.
1252:
1253: -- populate FND_UMS_BUGFIXES
1254:
1255: insert into fnd_ums_bugfixes
1256: (bugfix_guid,
1257: release_name,
1251: -- with the real definition.
1252:
1253: -- populate FND_UMS_BUGFIXES
1254:
1255: insert into fnd_ums_bugfixes
1256: (bugfix_guid,
1257: release_name,
1258: bug_number,
1259: download_mode,
1291: end new_bugfix_guid_at;
1292:
1293: --------------------------------------------------------------------------------
1294: function get_bugfix_guid
1295: (p_release_name in fnd_ums_bugfixes.release_name%type,
1296: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1297: return raw
1298: is
1299: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1292:
1293: --------------------------------------------------------------------------------
1294: function get_bugfix_guid
1295: (p_release_name in fnd_ums_bugfixes.release_name%type,
1296: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1297: return raw
1298: is
1299: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1300: begin
1295: (p_release_name in fnd_ums_bugfixes.release_name%type,
1296: p_bug_number in fnd_ums_bugfixes.bug_number%type)
1297: return raw
1298: is
1299: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1300: begin
1301: begin
1302: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ bugfix_guid
1303: into l_bugfix_guid
1298: is
1299: l_bugfix_guid fnd_ums_bugfixes.bugfix_guid%type;
1300: begin
1301: begin
1302: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ bugfix_guid
1303: into l_bugfix_guid
1304: from fnd_ums_bugfixes
1305: where release_name = p_release_name
1306: and bug_number = p_bug_number;
1300: begin
1301: begin
1302: select /*+ INDEX(fnd_ums_bugfixes fnd_ums_bugfixes_u2) */ bugfix_guid
1303: into l_bugfix_guid
1304: from fnd_ums_bugfixes
1305: where release_name = p_release_name
1306: and bug_number = p_bug_number;
1307: exception
1308: when no_data_found then
1375: end if;
1376: end up_fnd_ums_one_bugfix;
1377:
1378: --------------------------------------------------------------------------------
1379: procedure up_fnd_ums_bugfixes
1380: (p_upload_phase in varchar2,
1381: p_entity_download_mode in varchar2,
1382: p_release_name in varchar2,
1383: p_bug_number in varchar2,
1394: else
1395: raise_application_error(ERROR_UNKNOWN_UPLOAD_PHASE,
1396: 'Unknown UPLOAD_PHASE: ' || p_upload_phase);
1397: end if;
1398: end up_fnd_ums_bugfixes;
1399:
1400: --------------------------------------------------------------------------------
1401: function newline
1402: return varchar2