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_UNITS_B
17: where QCUNIT_CODE = X_QCUNIT_CODE
18: ;
19: begin
20: insert into GMD_UNITS_B (
16: cursor C is select ROWID from GMD_UNITS_B
17: where QCUNIT_CODE = X_QCUNIT_CODE
18: ;
19: begin
20: insert into GMD_UNITS_B (
21: QCUNIT_CODE,
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_UNITS_B
92: where QCUNIT_CODE = X_QCUNIT_CODE
93: for update of QCUNIT_CODE 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_UNITS_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_UNITS_B
188: where QCUNIT_CODE = X_QCUNIT_CODE;
189:
190: if (sql%notfound) then
191: raise no_data_found;
197: begin
198: delete from GMD_UNITS_TL T
199: where not exists
200: (select NULL
201: from GMD_UNITS_B B
202: where B.QCUNIT_CODE = T.QCUNIT_CODE
203: );
204:
205: update GMD_UNITS_TL T set (