14: X_LAST_UPDATE_DATE in DATE,
15: X_LAST_UPDATED_BY in NUMBER,
16: X_LAST_UPDATE_LOGIN in NUMBER
17: ) is
18: cursor C is select ROWID from FEM_DATA_AGGS_B
19: where DATA_AGGREG_TYPE_CODE = X_DATA_AGGREG_TYPE_CODE
20: ;
21: begin
22: insert into FEM_DATA_AGGS_B (
18: cursor C is select ROWID from FEM_DATA_AGGS_B
19: where DATA_AGGREG_TYPE_CODE = X_DATA_AGGREG_TYPE_CODE
20: ;
21: begin
22: insert into FEM_DATA_AGGS_B (
23: DATA_AGGREG_TYPE_CODE,
24: ENABLED_FLAG,
25: PERSONAL_FLAG,
26: READ_ONLY_FLAG,
96: ENABLED_FLAG,
97: PERSONAL_FLAG,
98: READ_ONLY_FLAG,
99: OBJECT_VERSION_NUMBER
100: from FEM_DATA_AGGS_B
101: where DATA_AGGREG_TYPE_CODE = X_DATA_AGGREG_TYPE_CODE
102: for update of DATA_AGGREG_TYPE_CODE nowait;
103: recinfo c%rowtype;
104:
158: X_LAST_UPDATED_BY in NUMBER,
159: X_LAST_UPDATE_LOGIN in NUMBER
160: ) is
161: begin
162: update FEM_DATA_AGGS_B set
163: ENABLED_FLAG = X_ENABLED_FLAG,
164: PERSONAL_FLAG = X_PERSONAL_FLAG,
165: READ_ONLY_FLAG = X_READ_ONLY_FLAG,
166: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
198: if (sql%notfound) then
199: raise no_data_found;
200: end if;
201:
202: delete from FEM_DATA_AGGS_B
203: where DATA_AGGREG_TYPE_CODE = X_DATA_AGGREG_TYPE_CODE;
204:
205: if (sql%notfound) then
206: raise no_data_found;
212: begin
213: delete from FEM_DATA_AGGS_TL T
214: where not exists
215: (select NULL
216: from FEM_DATA_AGGS_B B
217: where B.DATA_AGGREG_TYPE_CODE = T.DATA_AGGREG_TYPE_CODE
218: );
219:
220: update FEM_DATA_AGGS_TL T set (