[Home] [Help]
16: X_LAST_UPDATE_DATE in DATE,
17: X_LAST_UPDATED_BY in NUMBER,
18: X_LAST_UPDATE_LOGIN in NUMBER
19: ) is
20: cursor C is select ROWID from AMS_LIST_FIELDS_B
21: where LIST_FIELD_ID = X_LIST_FIELD_ID
22: ;
23: begin
24: insert into AMS_LIST_FIELDS_B (
20: cursor C is select ROWID from AMS_LIST_FIELDS_B
21: where LIST_FIELD_ID = X_LIST_FIELD_ID
22: ;
23: begin
24: insert into AMS_LIST_FIELDS_B (
25: LIST_FIELD_ID,
26: OBJECT_VERSION_NUMBER,
27: FIELD_TABLE_NAME,
28: FIELD_COLUMN_NAME,
107: COLUMN_DATA_TYPE,
108: COLUMN_DATA_LENGTH,
109: ENABLED_FLAG,
110: LIST_TYPE_FIELD_APPLY_ON
111: from AMS_LIST_FIELDS_B
112: where LIST_FIELD_ID = X_LIST_FIELD_ID
113: for update of LIST_FIELD_ID nowait;
114: recinfo c%rowtype;
115:
174: X_LAST_UPDATED_BY in NUMBER,
175: X_LAST_UPDATE_LOGIN in NUMBER
176: ) is
177: begin
178: update AMS_LIST_FIELDS_B set
179: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
180: FIELD_TABLE_NAME = X_FIELD_TABLE_NAME,
181: FIELD_COLUMN_NAME = X_FIELD_COLUMN_NAME,
182: COLUMN_DATA_TYPE = X_COLUMN_DATA_TYPE,
216: if (sql%notfound) then
217: raise no_data_found;
218: end if;
219:
220: delete from AMS_LIST_FIELDS_B
221: where LIST_FIELD_ID = X_LIST_FIELD_ID;
222:
223: if (sql%notfound) then
224: raise no_data_found;
230: begin
231: delete from AMS_LIST_FIELDS_TL T
232: where not exists
233: (select NULL
234: from AMS_LIST_FIELDS_B B
235: where B.LIST_FIELD_ID = T.LIST_FIELD_ID
236: );
237:
238: update AMS_LIST_FIELDS_TL T set (
322: l_list_field_id number;
323:
324: CURSOR c_obj_verno IS
325: SELECT object_version_number
326: FROM ams_list_fields_b
327: WHERE list_field_id = X_LIST_FIELD_ID;
328:
329: CURSOR c_chk_lfd_exists is
330: SELECT 'x'
327: WHERE list_field_id = X_LIST_FIELD_ID;
328:
329: CURSOR c_chk_lfd_exists is
330: SELECT 'x'
331: FROM ams_list_fields_b
332: WHERE list_field_id = x_list_field_id;
333:
334: CURSOR c_get_lfd_id is
335: SELECT ams_list_fields_b_s.NEXTVAL
331: FROM ams_list_fields_b
332: WHERE list_field_id = x_list_field_id;
333:
334: CURSOR c_get_lfd_id is
335: SELECT ams_list_fields_b_s.NEXTVAL
336: FROM DUAL;
337: BEGIN
338: if X_OWNER = 'SEED' then
339: l_user_id := 1;