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 GMD_GRADES_B
17: where QC_GRADE = X_QC_GRADE
18: ;
19: begin
20: insert into GMD_GRADES_B (
16: cursor C is select ROWID from GMD_GRADES_B
17: where QC_GRADE = X_QC_GRADE
18: ;
19: begin
20: insert into GMD_GRADES_B (
21: QC_GRADE,
22: DELETE_MARK,
23: TEXT_CODE,
24: TRANS_CNT,
87: cursor c is select
88: DELETE_MARK,
89: TEXT_CODE,
90: TRANS_CNT
91: from GMD_GRADES_B
92: where QC_GRADE = X_QC_GRADE
93: for update of QC_GRADE nowait;
94: recinfo c%rowtype;
95:
145: X_LAST_UPDATED_BY in NUMBER,
146: X_LAST_UPDATE_LOGIN in NUMBER
147: ) is
148: begin
149: update GMD_GRADES_B set
150: DELETE_MARK = X_DELETE_MARK,
151: TEXT_CODE = X_TEXT_CODE,
152: TRANS_CNT = X_TRANS_CNT,
153: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
183: if (sql%notfound) then
184: raise no_data_found;
185: end if;
186:
187: delete from GMD_GRADES_B
188: where QC_GRADE = X_QC_GRADE;
189:
190: if (sql%notfound) then
191: raise no_data_found;
197: begin
198: delete from GMD_GRADES_TL T
199: where not exists
200: (select NULL
201: from GMD_GRADES_B B
202: where B.QC_GRADE = T.QC_GRADE
203: );
204:
205: update GMD_GRADES_TL T set (