41: X_LAST_UPDATE_DATE in DATE,
42: X_LAST_UPDATED_BY in NUMBER,
43: X_LAST_UPDATE_LOGIN in NUMBER
44: ) is
45: cursor C is select ROWID from QP_SEGMENTS_B
46: where SEGMENT_ID = X_SEGMENT_ID
47: ;
48: begin
49: insert into QP_SEGMENTS_B (
45: cursor C is select ROWID from QP_SEGMENTS_B
46: where SEGMENT_ID = X_SEGMENT_ID
47: ;
48: begin
49: insert into QP_SEGMENTS_B (
50: ATTRIBUTE12,
51: ATTRIBUTE13,
52: ATTRIBUTE14,
53: ATTRIBUTE8,
229: ATTRIBUTE5,
230: ATTRIBUTE6,
231: ATTRIBUTE7,
232: ATTRIBUTE15
233: from QP_SEGMENTS_B
234: where SEGMENT_ID = X_SEGMENT_ID
235: for update of SEGMENT_ID nowait;
236: recinfo c%rowtype;
237:
370: X_LAST_UPDATED_BY in NUMBER,
371: X_LAST_UPDATE_LOGIN in NUMBER
372: ) is
373: begin
374: update QP_SEGMENTS_B set
375: ATTRIBUTE12 = X_ATTRIBUTE12,
376: ATTRIBUTE13 = X_ATTRIBUTE13,
377: ATTRIBUTE14 = X_ATTRIBUTE14,
378: ATTRIBUTE8 = X_ATTRIBUTE8,
437: if (sql%notfound) then
438: raise no_data_found;
439: end if;
440:
441: delete from QP_SEGMENTS_B
442: where SEGMENT_ID = X_SEGMENT_ID;
443:
444: if (sql%notfound) then
445: raise no_data_found;
451: begin
452: delete from QP_SEGMENTS_TL T
453: where not exists
454: (select NULL
455: from QP_SEGMENTS_B B
456: where B.SEGMENT_ID = T.SEGMENT_ID
457: );
458:
459: update QP_SEGMENTS_TL T set (