11: X_LAST_UPDATE_DATE in DATE,
12: X_LAST_UPDATED_BY in NUMBER,
13: X_LAST_UPDATE_LOGIN in NUMBER
14: ) is
15: cursor C is select ROWID from IEC_O_ALG_EXPR_DEFS_B
16: where EXPR_CODE = X_EXPR_CODE
17: ;
18: begin
19: insert into IEC_O_ALG_EXPR_DEFS_B (
15: cursor C is select ROWID from IEC_O_ALG_EXPR_DEFS_B
16: where EXPR_CODE = X_EXPR_CODE
17: ;
18: begin
19: insert into IEC_O_ALG_EXPR_DEFS_B (
20: EXPR_CODE,
21: OBJECT_VERSION_NUMBER,
22: CREATION_DATE,
23: CREATED_BY,
83: X_SUBST_TEXT in VARCHAR2
84: ) is
85: cursor c is select
86: OBJECT_VERSION_NUMBER
87: from IEC_O_ALG_EXPR_DEFS_B
88: where EXPR_CODE = X_EXPR_CODE
89: for update of EXPR_CODE nowait;
90: recinfo c%rowtype;
91:
137: X_LAST_UPDATED_BY in NUMBER,
138: X_LAST_UPDATE_LOGIN in NUMBER
139: ) is
140: begin
141: update IEC_O_ALG_EXPR_DEFS_B set
142: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
143: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
144: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
145: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
174: if (sql%notfound) then
175: raise no_data_found;
176: end if;
177:
178: delete from IEC_O_ALG_EXPR_DEFS_B
179: where EXPR_CODE = X_EXPR_CODE;
180:
181: if (sql%notfound) then
182: raise no_data_found;
188: begin
189: delete from IEC_O_ALG_EXPR_DEFS_TL T
190: where not exists
191: (select NULL
192: from IEC_O_ALG_EXPR_DEFS_B B
193: where B.EXPR_CODE = T.EXPR_CODE
194: );
195:
196: update IEC_O_ALG_EXPR_DEFS_TL T set (