31: where oracle_id between 900 and 999
32: and read_only_flag = 'U';
33: exception
34: when others then
35: dbms_output.put_line('-- Unable to get APPS username.');
36: return;
37: end;
38:
39: begin
43: and table_name = upper(p_tab_name)
44: and owner = upper(p_apps_username);
45: exception
46: when others then
47: dbms_output.put_line('-- Unable to determine owner for table ' ||
48: p_tab_name ||'.');
49: return;
50: end;
51:
56: and owner = upper(p_tab_owner);
57:
58: exception
59: when no_data_found then
60: dbms_output.put_line('-- Table '||p_tab_name||' does not exist.');
61: return;
62: end;
63:
64: begin
69: and owner = upper(p_tab_owner);
70:
71: exception
72: when no_data_found then
73: dbms_output.put_line('-- Column '||p_col_name||
74: ' is not a column of table '||
75: p_tab_name||'.');
76: return;
77: end;
77: end;
78:
79: statement := 'update '||p_tab_name||' set '||p_col_name||' = '||
80: p_new_oid||' where '||p_col_name||' = '||p_old_oid;
81: dbms_output.put_line(statement||';');
82:
83: if upper(p_option) = 'N' then
84: return;
85: end if;
86:
87: p_cursor := dbms_sql.open_cursor;
88: dbms_sql.parse(p_cursor, statement, dbms_sql.native);
89: rows_processed := dbms_sql.execute(p_cursor);
90: dbms_output.put_line(' '||rows_processed||' rows updated.');
91: dbms_sql.close_cursor(p_cursor);
92:
93: exception
94: when others then
236: is
237: p_new_oid number;
238: begin
239:
240: dbms_output.put_line('-- select fnd_oracle_userid_s.nextval from dual;');
241:
242: select fnd_oracle_userid_s.nextval into p_new_oid
243: from dual;
244:
322: x_db_status := c.db_status;
323: x_status := c.status;
324: x_ign := c.install_group_num;
325:
326: -- dbms_output.put_line(x_oracle_id||x_db_status||x_ign);
327:
328: if x_db_status = 'I' then
329: if x_status is null or (x_status <> 'I' and x_status <> 'S') then
330: --
331: -- set the status to be licensed
332: --
333: errmsg := 'update fnd_product_installations for oracle_id '||
334: x_oracle_id;
335: dbms_output.put_line(errmsg);
336: update fnd_product_installations
337: set status = 'S',
338: last_update_date = sysdate
339: where application_id = appid
339: where application_id = appid
340: and oracle_id = x_oracle_id;
341:
342: if SQL%ROWCOUNT = 1 then
343: dbms_output.put_line(SQL%ROWCOUNT||
344: ' row updated in fnd_product_installations.');
345: else
346: dbms_output.put_line(SQL%ROWCOUNT||
347: ' rows updated in fnd_product_installations.');
342: if SQL%ROWCOUNT = 1 then
343: dbms_output.put_line(SQL%ROWCOUNT||
344: ' row updated in fnd_product_installations.');
345: else
346: dbms_output.put_line(SQL%ROWCOUNT||
347: ' rows updated in fnd_product_installations.');
348: end if;
349:
350: --
400: and u2.application_id = appid
401: );
402:
403: if SQL%ROWCOUNT = 1 then
404: dbms_output.put_line(SQL%ROWCOUNT||
405: ' row inserted into fnd_data_group_units.');
406: else
407: dbms_output.put_line(SQL%ROWCOUNT||
408: ' rows inserted into fnd_data_group_units.');
403: if SQL%ROWCOUNT = 1 then
404: dbms_output.put_line(SQL%ROWCOUNT||
405: ' row inserted into fnd_data_group_units.');
406: else
407: dbms_output.put_line(SQL%ROWCOUNT||
408: ' rows inserted into fnd_data_group_units.');
409: end if;
410:
411: exit; -- exit the LOOP
446: and u2.application_id = appid
447: );
448:
449: if SQL%ROWCOUNT = 1 then
450: dbms_output.put_line(SQL%ROWCOUNT||
451: ' row inserted into fnd_data_group_units.');
452: else
453: dbms_output.put_line(SQL%ROWCOUNT||
454: ' rows inserted into fnd_data_group_units.');
449: if SQL%ROWCOUNT = 1 then
450: dbms_output.put_line(SQL%ROWCOUNT||
451: ' row inserted into fnd_data_group_units.');
452: else
453: dbms_output.put_line(SQL%ROWCOUNT||
454: ' rows inserted into fnd_data_group_units.');
455: end if;
456:
457: