ACS3 Data Model

     1: procedure generate_short_names_for_group
     2:      IS
     3:         v_group_id user_groups.group_id%TYPE;
     4: 	v_group_name user_groups.group_name%TYPE;
     5: 	v_short_name user_groups.short_name%TYPE;
     6: 
     7: 	cursor c1 is
     8: 	select group_id, group_name
     9: 	from user_groups;
    10:      BEGIN
    11: 	OPEN c1;
    12: 
    13: 	LOOP
    14:            FETCH c1 INTO v_group_id, v_group_name;
    15:            EXIT WHEN c1%NOTFOUND;
    16: 
    17: 	   v_short_name:= short_name_from_group_name(v_group_name);
    18: 	   update user_groups set short_name=v_short_name where group_id=v_group_id;
    19: 
    20:        END LOOP;
    21:      END generate_short_names_for_group;