populate record group error plus

From: Diane Perkins <perkinsdt_at_navair.navy.mil>
Date: Tue, 07 Mar 2000 09:38:50 -0800
Message-ID: <38C53EAA.51E89F18_at_navair.navy.mil>

Thanks for all the help, however, it still does not work. I will send the complete program. I am calling this from a button on a form to populate a LOV of only the forms the user has access to. I get the information from the user_role_privs table for the list of roles for the user. What is being passed is the category the user wants to enter. My job is to do the ADD CODE part.
Thanks
Diane Perkins
perkinsdt_at_navair.navy.mil

PROCEDURE Execute_Form
  (formCategory IN VARCHAR2,
  fromMenu IN BOOLEAN) IS

  formChoice BOOLEAN;
  fromGroup VARCHAR2(10);

BEGIN
 /* ADD CODE

• Need to build the query for the common record group based on the formCategory
• and call common LOV*/ Declare group_id RecordGroup; query_ok NUMBER;

  BEGIN
    group_id := Create_Group_From_Query('common_group', 'SELECT role.name,

                screen.name FROM role, screen WHERE
                role.name = formCategory', GLOBAL_SCOPE);

    query_ok := Populate_Group(group_id);   IF query_ok <> 0 THEN

     RAISE FORM_TRIGGER_FAILURE;
  END IF;
  END;  --FOR loopIndex IN 1 .. userRoleList.COUNT LOOP   IF (formCategory = 'CRA') THEN
   formChoice := SHOW_LOV('CRA');
   fromGroup := 'common_group';
  ELSIF (formCategory = 'MATERIAL') THEN     formChoice := SHOW_LOV('Material');
    fromGroup := 'UADPS';
  ELSIF (formCategory = 'PROD_OPS') THEN    formChoice := SHOW_LOV('PROD_OPS');
  ELSIF (formCategory = 'REPORTS') THEN
   formChoice := SHOW_LOV('Reports');
  END IF;   IF (formChoice) THEN
   :GLOBAL.From_Group := fromGroup;

   IF (fromMenu) THEN
    NEW_FORM(NAME_IN('PARAMETER.Form'));    ELSE
     CALL_FORM(NAME_IN('PARAMETER.Form'), HIDE, DO_REPLACE);    END IF;
  END IF;
END; Received on Tue Mar 07 2000 - 18:38:50 CET