[Home] [Help]
77: maxseq number;
78: begin
79:
80: -- If there is no row updated, no exception will be raise.
81: update FND_COLUMNS
82: set USER_COLUMN_NAME = '@'||USER_COLUMN_NAME
83: where APPLICATION_ID = x_application_id
84: and TABLE_ID = x_table_id
85: and COLUMN_NAME <> x_column_name
86: and USER_COLUMN_NAME = x_user_column_name;
87:
88: select max(column_sequence)
89: into maxseq
90: from FND_COLUMNS
91: where APPLICATION_ID = x_application_id
92: and TABLE_ID = x_table_id;
93:
94: update FND_COLUMNS
90: from FND_COLUMNS
91: where APPLICATION_ID = x_application_id
92: and TABLE_ID = x_table_id;
93:
94: update FND_COLUMNS
95: set COLUMN_SEQUENCE = to_number('200001') + maxseq
96: where APPLICATION_ID = x_application_id
97: and TABLE_ID = x_table_id
98: and COLUMN_NAME <> x_column_name
179: end InsertTable;
180:
181: --
182: -- InsertColumn (PRIVATE))
183: -- Add a new column into FND_COLUMNS. This is only called after checking
184: -- there is no such column exists in UploadColumn().
185: --
186: procedure InsertColumn (
187: x_application_id in number,
210: ) is
211:
212: begin
213:
214: insert into FND_COLUMNS (
215: APPLICATION_ID,
216: TABLE_ID,
217: COLUMN_ID,
218: COLUMN_NAME,
238: LAST_UPDATE_LOGIN)
239: values (
240: x_application_id,
241: x_table_id,
242: FND_COLUMNS_S.NEXTVAL,
243: x_column_name,
244: x_user_column_name,
245: x_column_sequence,
246: x_column_type,
1089: end ViewTextLength;
1090:
1091: --
1092: -- RemoveColumn (PUBLIC)
1093: -- Remove column from FND_COLUMNS table.
1094: -- Before removing this column, make sure that there is no index,
1095: -- primary key or foreign key is using this column
1096: --
1097: procedure RemoveColumn(
1134:
1135: begin
1136: select column_id
1137: into col_id
1138: from fnd_columns
1139: where application_id = appl_id
1140: and table_id = tab_id
1141: and column_name = upper(x_column_name);
1142: exception
1141: and column_name = upper(x_column_name);
1142: exception
1143: when no_data_found then
1144: RAISE_APPLICATION_ERROR(
1145: -20001, 'Fnd columns '
1146: || x_column_name
1147: || ' not found in the table fnd_columns ', TRUE);
1148: return;
1149: end;
1143: when no_data_found then
1144: RAISE_APPLICATION_ERROR(
1145: -20001, 'Fnd columns '
1146: || x_column_name
1147: || ' not found in the table fnd_columns ', TRUE);
1148: return;
1149: end;
1150:
1151: -- Before removing this column, make sure that there is no index,
1201: || ' foreign key column ', TRUE);
1202: return;
1203: end if;
1204:
1205: delete from fnd_columns
1206: where application_id = appl_id
1207: and table_id = tab_id
1208: and column_id = col_id;
1209:
1590: c_pk.primary_key_name);
1591: end loop;
1592:
1593: -- Remove columns
1594: delete from fnd_columns
1595: where application_id = appl_id
1596: and table_id = tab_id;
1597:
1598: -- Remove table itself
1782: begin
1783: if (P_NZDT_MODE ='Y')
1784: then
1785: begin
1786: AD_ZD_SEED.PREPARE ('FND_COLUMNS');
1787: end;
1788: end if;
1789: -- Because Column is in the same entity as Table, no need to validate
1790: -- Application and Table again.
1808:
1809: begin
1810: select LAST_UPDATED_BY, LAST_UPDATE_DATE
1811: into db_luby, db_ludate
1812: from FND_COLUMNS
1813: where APPLICATION_ID = appl_id
1814: and TABLE_ID = tab_id
1815: and COLUMN_NAME = x_column_name;
1816:
1816:
1817: if (upload_test(f_luby, f_ludate, db_luby,
1818: db_ludate, X_CUSTOM_MODE)) then
1819:
1820: update FND_COLUMNS set
1821: USER_COLUMN_NAME = x_user_column_name,
1822: COLUMN_SEQUENCE = x_column_sequence,
1823: COLUMN_TYPE = x_column_type,
1824: WIDTH = x_width,
2415: and I.TABLE_ID = tab_id
2416: and I.INDEX_NAME = x_index_name;
2417:
2418: begin
2419: select C.COLUMN_ID into col_id from FND_COLUMNS C
2420: where C.APPLICATION_ID = appl_id
2421: and C.TABLE_ID = tab_id
2422: and C.COLUMN_NAME = x_index_column_name;
2423: exception
2888: and P.TABLE_ID = tab_id
2889: and P.PRIMARY_KEY_NAME = x_primary_key_name;
2890:
2891: begin
2892: select C.COLUMN_ID into col_id from FND_COLUMNS C
2893: where C.APPLICATION_ID = appl_id
2894: and C.TABLE_ID = tab_id
2895: and C.COLUMN_NAME = x_primary_key_column_name;
2896: exception
2895: and C.COLUMN_NAME = x_primary_key_column_name;
2896: exception
2897: when no_data_found then
2898: RAISE_APPLICATION_ERROR(
2899: -20001, 'No data found Fnd columns column name '
2900: || x_primary_key_column_name || ' object type - primary key '
2901: || x_primary_key_name, TRUE);
2902: end;
2903:
3318: and F.TABLE_ID = tab_id
3319: and F.FOREIGN_KEY_NAME = x_foreign_key_name;
3320:
3321: begin
3322: select C.COLUMN_ID into col_id from FND_COLUMNS C
3323: where C.APPLICATION_ID = appl_id
3324: and C.TABLE_ID = tab_id
3325: and C.COLUMN_NAME = x_foreign_key_column_name;
3326: exception
3325: and C.COLUMN_NAME = x_foreign_key_column_name;
3326: exception
3327: when no_data_found then
3328: RAISE_APPLICATION_ERROR(
3329: -20001, 'No data found Fnd columns column name '
3330: || x_foreign_key_column_name || ' object type - foreign key '
3331: || x_foreign_key_name, TRUE);
3332: end;
3333: