17: X_LAST_UPDATE_DATE in DATE,
18: X_LAST_UPDATED_BY in NUMBER,
19: X_LAST_UPDATE_LOGIN in NUMBER
20: ) is
21: cursor C is select ROWID from FEM_LN_ITEMS_B
22: where LINE_ITEM_ID = X_LINE_ITEM_ID
23: and VALUE_SET_ID = X_VALUE_SET_ID
24: ;
25: begin
22: where LINE_ITEM_ID = X_LINE_ITEM_ID
23: and VALUE_SET_ID = X_VALUE_SET_ID
24: ;
25: begin
26: insert into FEM_LN_ITEMS_B (
27: READ_ONLY_FLAG,
28: OBJECT_VERSION_NUMBER,
29: LINE_ITEM_ID,
30: VALUE_SET_ID,
114: DIMENSION_GROUP_ID,
115: LINE_ITEM_DISPLAY_CODE,
116: ENABLED_FLAG,
117: PERSONAL_FLAG
118: from FEM_LN_ITEMS_B
119: where LINE_ITEM_ID = X_LINE_ITEM_ID
120: and VALUE_SET_ID = X_VALUE_SET_ID
121: for update of LINE_ITEM_ID nowait;
122: recinfo c%rowtype;
184: X_LAST_UPDATED_BY in NUMBER,
185: X_LAST_UPDATE_LOGIN in NUMBER
186: ) is
187: begin
188: update FEM_LN_ITEMS_B set
189: READ_ONLY_FLAG = X_READ_ONLY_FLAG,
190: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
191: DIMENSION_GROUP_ID = X_DIMENSION_GROUP_ID,
192: LINE_ITEM_DISPLAY_CODE = X_LINE_ITEM_DISPLAY_CODE,
230: if (sql%notfound) then
231: raise no_data_found;
232: end if;
233:
234: delete from FEM_LN_ITEMS_B
235: where LINE_ITEM_ID = X_LINE_ITEM_ID
236: and VALUE_SET_ID = X_VALUE_SET_ID;
237:
238: if (sql%notfound) then
245: begin
246: delete from FEM_LN_ITEMS_TL T
247: where not exists
248: (select NULL
249: from FEM_LN_ITEMS_B B
250: where B.LINE_ITEM_ID = T.LINE_ITEM_ID
251: and B.VALUE_SET_ID = T.VALUE_SET_ID
252: );
253: