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 GMO_DISPENSE_BOOTH_B
17: where DISPENSE_BOOTH_ID = X_DISPENSE_BOOTH_ID
18: ;
19: begin
20: insert into GMO_DISPENSE_BOOTH_B (
16: cursor C is select ROWID from GMO_DISPENSE_BOOTH_B
17: where DISPENSE_BOOTH_ID = X_DISPENSE_BOOTH_ID
18: ;
19: begin
20: insert into GMO_DISPENSE_BOOTH_B (
21: DISPENSE_BOOTH_ID,
22: DISPENSE_BOOTH_NAME,
23: DISPENSE_AREA_ID,
24: LOCATOR_ID,
87: cursor c is select
88: DISPENSE_BOOTH_NAME,
89: DISPENSE_AREA_ID,
90: LOCATOR_ID
91: from GMO_DISPENSE_BOOTH_B
92: where DISPENSE_BOOTH_ID = X_DISPENSE_BOOTH_ID
93: for update of DISPENSE_BOOTH_ID nowait;
94: recinfo c%rowtype;
95:
143: X_LAST_UPDATED_BY in NUMBER,
144: X_LAST_UPDATE_LOGIN in NUMBER
145: ) is
146: begin
147: update GMO_DISPENSE_BOOTH_B set
148: DISPENSE_BOOTH_NAME = X_DISPENSE_BOOTH_NAME,
149: DISPENSE_AREA_ID = X_DISPENSE_AREA_ID,
150: LOCATOR_ID = X_LOCATOR_ID,
151: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
181: if (sql%notfound) then
182: raise no_data_found;
183: end if;
184:
185: delete from GMO_DISPENSE_BOOTH_B
186: where DISPENSE_BOOTH_ID = X_DISPENSE_BOOTH_ID;
187:
188: if (sql%notfound) then
189: raise no_data_found;
195: begin
196: delete from GMO_DISPENSE_BOOTH_TL T
197: where not exists
198: (select NULL
199: from GMO_DISPENSE_BOOTH_B B
200: where B.DISPENSE_BOOTH_ID = T.DISPENSE_BOOTH_ID
201: );
202:
203: update GMO_DISPENSE_BOOTH_TL T set (