declare
  v_group qc103_user_group_name.group_id%type;
  v_fsn   qc1007_forms.form_short_name%type;
  v_flag  boolean := false;
begin
  select group_id 
    into v_group 
    from qcl03_user_group_name t
    where user_id = :global.user_id;
    
  select t.form_short_name 
    into v_fsn
    from qcl06_groups_forms g, qcl007_forms t
    where g.form_id = t.form_id
      and g.group_id = v_group;

  if v_fsn = 'groupforms'
  then
     v_flag := true;
     Call_Form ('groupforms.fmx', NO_HIDE, DO_REPLACE, NO_QUERY_ONLY);
  end if;

  if v_flag = false
  then
     message('Access Is Denied');
     raise form_trigger_failure;
  end if;
end;