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_RELEASE_CTLS_B
17: where RELEASE_CONTROL_ID = X_RELEASE_CONTROL_ID
18: ;
19: begin
20: insert into IEC_O_RELEASE_CTLS_B (
16: cursor C is select ROWID from IEC_O_RELEASE_CTLS_B
17: where RELEASE_CONTROL_ID = X_RELEASE_CONTROL_ID
18: ;
19: begin
20: insert into IEC_O_RELEASE_CTLS_B (
21: RELEASE_CONTROL_ID,
22: SOURCE_TYPE_CODE,
23: OBJECT_VERSION_NUMBER,
24: CREATION_DATE,
87: ) is
88: cursor c is select
89: SOURCE_TYPE_CODE,
90: OBJECT_VERSION_NUMBER
91: from IEC_O_RELEASE_CTLS_B
92: where RELEASE_CONTROL_ID = X_RELEASE_CONTROL_ID
93: for update of RELEASE_CONTROL_ID nowait;
94: recinfo c%rowtype;
95:
141: X_LAST_UPDATED_BY in NUMBER,
142: X_LAST_UPDATE_LOGIN in NUMBER
143: ) is
144: begin
145: update IEC_O_RELEASE_CTLS_B set
146: SOURCE_TYPE_CODE = X_SOURCE_TYPE_CODE,
147: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
148: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
149: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
178: if (sql%notfound) then
179: raise no_data_found;
180: end if;
181:
182: delete from IEC_O_RELEASE_CTLS_B
183: where RELEASE_CONTROL_ID = X_RELEASE_CONTROL_ID;
184:
185: if (sql%notfound) then
186: raise no_data_found;
192: begin
193: delete from IEC_O_RELEASE_CTLS_TL T
194: where not exists
195: (select NULL
196: from IEC_O_RELEASE_CTLS_B B
197: where B.RELEASE_CONTROL_ID = T.RELEASE_CONTROL_ID
198: );
199:
200: update IEC_O_RELEASE_CTLS_TL T set (