32: X_LAST_UPDATE_DATE in DATE,
33: X_LAST_UPDATED_BY in NUMBER,
34: X_LAST_UPDATE_LOGIN in NUMBER
35: ) is
36: cursor C is select ROWID from AHL_FLEET_HEADERS_B
37: where FLEET_HEADER_ID = X_FLEET_HEADER_ID
38: ;
39: begin
40: insert into AHL_FLEET_HEADERS_B (
36: cursor C is select ROWID from AHL_FLEET_HEADERS_B
37: where FLEET_HEADER_ID = X_FLEET_HEADER_ID
38: ;
39: begin
40: insert into AHL_FLEET_HEADERS_B (
41: ATTRIBUTE12,
42: ATTRIBUTE5,
43: FLEET_HEADER_ID,
44: DEPARTMENT_ID,
187: ATTRIBUTE1,
188: ATTRIBUTE_CATEGORY,
189: OBJECT_VERSION_NUMBER,
190: COMPLETION_DATE
191: from AHL_FLEET_HEADERS_B
192: where FLEET_HEADER_ID = X_FLEET_HEADER_ID
193: for update of FLEET_HEADER_ID nowait;
194: recinfo c%rowtype;
195:
303: X_LAST_UPDATED_BY in NUMBER,
304: X_LAST_UPDATE_LOGIN in NUMBER
305: ) is
306: begin
307: update AHL_FLEET_HEADERS_B set
308: ATTRIBUTE12 = X_ATTRIBUTE12,
309: ATTRIBUTE5 = X_ATTRIBUTE5,
310: DEPARTMENT_ID = X_DEPARTMENT_ID,
311: OPERATING_ORG_ID = X_OPERATING_ORG_ID,
361: if (sql%notfound) then
362: raise no_data_found;
363: end if;
364:
365: delete from AHL_FLEET_HEADERS_B
366: where FLEET_HEADER_ID = X_FLEET_HEADER_ID;
367:
368: if (sql%notfound) then
369: raise no_data_found;
375: begin
376: delete from AHL_FLEET_HEADERS_TL T
377: where not exists
378: (select NULL
379: from AHL_FLEET_HEADERS_B B
380: where B.FLEET_HEADER_ID = T.FLEET_HEADER_ID
381: );
382:
383: update AHL_FLEET_HEADERS_TL T set (