ACS3 Data Model

     1: procedure wp_set_checkpoint
     2:   (v_presentation_id IN wp_presentations.presentation_id%TYPE,
     3:    v_description IN wp_checkpoints.description%TYPE)
     4: is
     5:   latest_checkpoint wp_checkpoints.checkpoint%TYPE;
     6: begin
     7:   select max(checkpoint) into latest_checkpoint
     8:     from  wp_checkpoints
     9:     where presentation_id = v_presentation_id;
    10:   update wp_checkpoints
    11:     set   description = v_description, checkpoint_date = sysdate
    12:     where presentation_id = v_presentation_id
    13:     and   checkpoint = latest_checkpoint;
    14:   insert into wp_checkpoints(presentation_id, checkpoint, wp_checkpoints_id)
    15:     values(v_presentation_id, latest_checkpoint + 1, wp_checkpoints_seq.nextval);
    16:   -- Save sort order.
    17:   insert into wp_historical_sort(slide_id, presentation_id, checkpoint, sort_key, wp_historical_sort_id)
    18:     select slide_id, v_presentation_id, latest_checkpoint, sort_key, wp_historical_sort_seq.nextval
    19:     from   wp_slides
    20:     where  presentation_id = v_presentation_id
    21:     and    max_checkpoint is null;
    22: end;