46: X_LAST_UPDATE_DATE in DATE,
47: X_LAST_UPDATED_BY in NUMBER,
48: X_LAST_UPDATE_LOGIN in NUMBER
49: ) is
50: cursor C is select ROWID from AHL_OSP_ORDERS_B
51: where OSP_ORDER_ID = X_OSP_ORDER_ID
52: ;
53: begin
54: insert into AHL_OSP_ORDERS_B (
50: cursor C is select ROWID from AHL_OSP_ORDERS_B
51: where OSP_ORDER_ID = X_OSP_ORDER_ID
52: ;
53: begin
54: insert into AHL_OSP_ORDERS_B (
55: VENDOR_CONTACT_ID,
56: OSP_ORDER_ID,
57: OBJECT_VERSION_NUMBER,
58: OSP_ORDER_NUMBER,
257: ATTRIBUTE12,
258: ATTRIBUTE13,
259: ATTRIBUTE14,
260: ATTRIBUTE15
261: from AHL_OSP_ORDERS_B
262: where OSP_ORDER_ID = X_OSP_ORDER_ID
263: for update of OSP_ORDER_ID nowait;
264: recinfo c%rowtype;
265:
412: X_LAST_UPDATED_BY in NUMBER,
413: X_LAST_UPDATE_LOGIN in NUMBER
414: ) is
415: begin
416: update AHL_OSP_ORDERS_B set
417: VENDOR_CONTACT_ID = X_VENDOR_CONTACT_ID,
418: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
419: OSP_ORDER_NUMBER = X_OSP_ORDER_NUMBER,
420: ORDER_TYPE_CODE = X_ORDER_TYPE_CODE,
484: if (sql%notfound) then
485: raise no_data_found;
486: end if;
487:
488: delete from AHL_OSP_ORDERS_B
489: where OSP_ORDER_ID = X_OSP_ORDER_ID;
490:
491: if (sql%notfound) then
492: raise no_data_found;
498: begin
499: delete from AHL_OSP_ORDERS_TL T
500: where not exists
501: (select NULL
502: from AHL_OSP_ORDERS_B B
503: where B.OSP_ORDER_ID = T.OSP_ORDER_ID
504: );
505:
506: update AHL_OSP_ORDERS_TL T set (