12: X_LAST_UPDATED_BY in NUMBER,
13: X_LAST_UPDATE_LOGIN in NUMBER,
14: X_PARENT_ID in NUMBER
15: ) is
16: cursor C is select ROWID from IEC_O_RECYCLING_ALGS_B
17: where ALGORITHM_ID = X_ALGORITHM_ID
18: ;
19: begin
20: insert into IEC_O_RECYCLING_ALGS_B (
16: cursor C is select ROWID from IEC_O_RECYCLING_ALGS_B
17: where ALGORITHM_ID = X_ALGORITHM_ID
18: ;
19: begin
20: insert into IEC_O_RECYCLING_ALGS_B (
21: OBJECT_VERSION_NUMBER,
22: ALGORITHM_ID,
23: SOURCE_TYPE_CODE,
24: CREATION_DATE,
87: ) is
88: cursor c is select
89: OBJECT_VERSION_NUMBER,
90: SOURCE_TYPE_CODE
91: from IEC_O_RECYCLING_ALGS_B
92: where ALGORITHM_ID = X_ALGORITHM_ID
93: for update of ALGORITHM_ID nowait;
94: recinfo c%rowtype;
95:
142: X_LAST_UPDATED_BY in NUMBER,
143: X_LAST_UPDATE_LOGIN in NUMBER
144: ) is
145: begin
146: update IEC_O_RECYCLING_ALGS_B set
147: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
148: SOURCE_TYPE_CODE = X_SOURCE_TYPE_CODE,
149: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
150: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
179: if (sql%notfound) then
180: raise no_data_found;
181: end if;
182:
183: delete from IEC_O_RECYCLING_ALGS_B
184: where ALGORITHM_ID = X_ALGORITHM_ID;
185:
186: if (sql%notfound) then
187: raise no_data_found;
193: begin
194: delete from IEC_O_RECYCLING_ALGS_TL T
195: where not exists
196: (select NULL
197: from IEC_O_RECYCLING_ALGS_B B
198: where B.ALGORITHM_ID = T.ALGORITHM_ID
199: );
200:
201: update IEC_O_RECYCLING_ALGS_TL T set (