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 PO_COMMODITIES_B
17: where COMMODITY_ID = X_COMMODITY_ID
18: ;
19: begin
20: insert into PO_COMMODITIES_B (
16: cursor C is select ROWID from PO_COMMODITIES_B
17: where COMMODITY_ID = X_COMMODITY_ID
18: ;
19: begin
20: insert into PO_COMMODITIES_B (
21: COMMODITY_ID,
22: COMMODITY_CODE,
23: ACTIVE_FLAG,
24: CREATION_DATE,
86: ) is
87: cursor c is select
88: COMMODITY_CODE,
89: ACTIVE_FLAG
90: from PO_COMMODITIES_B
91: where COMMODITY_ID = X_COMMODITY_ID
92: for update of COMMODITY_ID nowait;
93: recinfo c%rowtype;
94:
144: X_LAST_UPDATED_BY in NUMBER,
145: X_LAST_UPDATE_LOGIN in NUMBER
146: ) is
147: begin
148: update PO_COMMODITIES_B set
149: COMMODITY_CODE = X_COMMODITY_CODE,
150: ACTIVE_FLAG = X_ACTIVE_FLAG,
151: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
152: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
182: if (sql%notfound) then
183: raise no_data_found;
184: end if;
185:
186: delete from PO_COMMODITIES_B
187: where COMMODITY_ID = X_COMMODITY_ID;
188:
189: if (sql%notfound) then
190: raise no_data_found;
196: begin
197: delete from PO_COMMODITIES_TL T
198: where not exists
199: (select NULL
200: from PO_COMMODITIES_B B
201: where B.COMMODITY_ID = T.COMMODITY_ID
202: );
203:
204: update PO_COMMODITIES_TL T set (