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_PRODUCTS_B
22: where PRODUCT_ID = X_PRODUCT_ID
23: and VALUE_SET_ID = X_VALUE_SET_ID
24: ;
25: begin
22: where PRODUCT_ID = X_PRODUCT_ID
23: and VALUE_SET_ID = X_VALUE_SET_ID
24: ;
25: begin
26: insert into FEM_PRODUCTS_B (
27: PRODUCT_ID,
28: VALUE_SET_ID,
29: DIMENSION_GROUP_ID,
30: PRODUCT_DISPLAY_CODE,
114: ENABLED_FLAG,
115: PERSONAL_FLAG,
116: READ_ONLY_FLAG,
117: OBJECT_VERSION_NUMBER
118: from FEM_PRODUCTS_B
119: where PRODUCT_ID = X_PRODUCT_ID
120: and VALUE_SET_ID = X_VALUE_SET_ID
121: for update of PRODUCT_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_PRODUCTS_B set
189: DIMENSION_GROUP_ID = X_DIMENSION_GROUP_ID,
190: PRODUCT_DISPLAY_CODE = X_PRODUCT_DISPLAY_CODE,
191: ENABLED_FLAG = X_ENABLED_FLAG,
192: PERSONAL_FLAG = X_PERSONAL_FLAG,
230: if (sql%notfound) then
231: raise no_data_found;
232: end if;
233:
234: delete from FEM_PRODUCTS_B
235: where PRODUCT_ID = X_PRODUCT_ID
236: and VALUE_SET_ID = X_VALUE_SET_ID;
237:
238: if (sql%notfound) then
245: begin
246: delete from FEM_PRODUCTS_TL T
247: where not exists
248: (select NULL
249: from FEM_PRODUCTS_B B
250: where B.PRODUCT_ID = T.PRODUCT_ID
251: and B.VALUE_SET_ID = T.VALUE_SET_ID
252: );
253: