12: X_LAST_UPDATE_DATE in DATE,
13: X_LAST_UPDATED_BY in NUMBER,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from IEC_O_VALIDATION_RULES_B
17: where VALIDATION_RULE_ID = X_VALIDATION_RULE_ID
18: ;
19: begin
20: x_rowid := NULL;
18: ;
19: begin
20: x_rowid := NULL;
21:
22: insert into IEC_O_VALIDATION_RULES_B (
23: VALIDATION_RULE_ID,
24: BLOCK_ID,
25: OBJECT_VERSION_NUMBER,
26: CREATION_DATE,
87: ) is
88: cursor c is select
89: BLOCK_ID,
90: OBJECT_VERSION_NUMBER
91: from IEC_O_VALIDATION_RULES_B
92: where VALIDATION_RULE_ID = X_VALIDATION_RULE_ID
93: for update of VALIDATION_RULE_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_VALIDATION_RULES_B set
147: BLOCK_ID = X_BLOCK_ID,
148: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
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_VALIDATION_RULES_B
184: where VALIDATION_RULE_ID = X_VALIDATION_RULE_ID;
185:
186: if (sql%notfound) then
187: raise no_data_found;
193: begin
194: delete from IEC_O_VALIDATION_RULES_TL T
195: where not exists
196: (select NULL
197: from IEC_O_VALIDATION_RULES_B B
198: where B.VALIDATION_RULE_ID = T.VALIDATION_RULE_ID
199: );
200:
201: update IEC_O_VALIDATION_RULES_TL T set (