23: X_LAST_UPDATE_DATE in DATE,
24: X_LAST_UPDATED_BY in NUMBER,
25: X_LAST_UPDATE_LOGIN in NUMBER
26: ) is
27: cursor C is select ROWID from GMO_INSTR_INSTANCE_B
28: where INSTRUCTION_ID = X_INSTRUCTION_ID
29: ;
30: begin
31: insert into GMO_INSTR_INSTANCE_B (
27: cursor C is select ROWID from GMO_INSTR_INSTANCE_B
28: where INSTRUCTION_ID = X_INSTRUCTION_ID
29: ;
30: begin
31: insert into GMO_INSTR_INSTANCE_B (
32: OPERATOR_ACKN,
33: TASK_ATTRIBUTE,
34: TASK_ATTRIBUTE_ID,
35: INSTRUCTION_ID,
136: TASK_ACKN_DATE,
137: TASK_ACKN_STATUS,
138: INSTR_SEQ,
139: INSTR_ACKN_TYPE
140: from GMO_INSTR_INSTANCE_B
141: where INSTRUCTION_ID = X_INSTRUCTION_ID
142: for update of INSTRUCTION_ID nowait;
143: recinfo c%rowtype;
144:
225: X_LAST_UPDATED_BY in NUMBER,
226: X_LAST_UPDATE_LOGIN in NUMBER
227: ) is
228: begin
229: update GMO_INSTR_INSTANCE_B set
230: OPERATOR_ACKN = X_OPERATOR_ACKN,
231: TASK_ATTRIBUTE = X_TASK_ATTRIBUTE,
232: TASK_ATTRIBUTE_ID = X_TASK_ATTRIBUTE_ID,
233: INSTRUCTION_SET_ID = X_INSTRUCTION_SET_ID,
273: if (sql%notfound) then
274: raise no_data_found;
275: end if;
276:
277: delete from GMO_INSTR_INSTANCE_B
278: where INSTRUCTION_ID = X_INSTRUCTION_ID;
279:
280: if (sql%notfound) then
281: raise no_data_found;
287: begin
288: delete from GMO_INSTR_INSTANCE_TL T
289: where not exists
290: (select NULL
291: from GMO_INSTR_INSTANCE_B B
292: where B.INSTRUCTION_ID = T.INSTRUCTION_ID
293: );
294:
295: update GMO_INSTR_INSTANCE_TL T set (