[Home] [Help]
11:
12: Purpose
13: -------
14: Insert, update, delete or lock tables belonging to view CSR_WIN_PROMIS_VL:
15: - base table CSR_WIN_PROMIS_ALL_B, and
16: - translation table CSR_WIN_PROMIS_ALL_TL.
17: Check uniqueness of columns NAME and START/END_TIME combinations. Restore
18: data integrity to a corrupted base/translation pair.
19:
45:
46: cursor c_time
47: is
48: select ''
49: from csr_win_promis_all_b
50: where ( p_win_promis_id is null
51: or win_promis_id <> p_win_promis_id )
52: and ( to_char(start_time,'hh24:mi') = to_char(p_start_time,'hh24:mi')
53: and to_char(end_time,'hh24:mi') = to_char(p_end_time,'hh24:mi') );
118:
119: begin
120:
121: if p_win_promis_id is null then
122: select csr_win_promis_all_b_s1.nextval
123: into p_win_promis_id
124: from dual;
125: end if;
126:
143: if p_last_update_date is null then
144: p_last_update_date := sysdate;
145: end if;
146:
147: insert into csr_win_promis_all_b
148: (
149: win_promis_id
150: , start_time
151: , end_time
356: if p_last_update_date is null then
357: p_last_update_date := sysdate;
358: end if;
359:
360: update csr_win_promis_all_b
361: set start_time = p_start_time
362: , end_time = p_end_time
363: , last_update_date = p_last_update_date
364: , last_updated_by = p_last_updated_by
415: then
416: raise NO_DATA_FOUND;
417: end if;
418:
419: delete from csr_win_promis_all_b
420: where win_promis_id = p_win_promis_id;
421:
422: if sql%notfound
423: then
430: begin
431: delete from csr_win_promis_all_tl t
432: where not exists
433: ( select ''
434: from csr_win_promis_all_b b
435: where b.win_promis_id = t.win_promis_id );
436:
437: update csr_win_promis_all_tl t
438: set ( name, description ) =