Populate Values from database to list item in Forms

1)create list item with below properties

item type - list item,subclas info - list ,list style - poplist

2) create program unit in your form and call this packeg.proc in when new form instance in form level.


PACKAGE BODY xxglmngcalpu IS
  procedure poplist is
 
 
 list_id     ITEM;
 list_name VARCHAR2(40) := 'query_find.type';
 rg_name VARCHAR2(40) := 'TypeRG';
 rg_id RecordGroup;
 errcode NUMBER;
 outcome NUMBER;



begin

list_id :=Find_Item(list_name);
rg_id := Find_Group( rg_name );

IF Id_Null(rg_id) THEN
rg_id := Create_Group_From_Query( rg_name,'select flex_value,flex_value from fnd_flex_values ffvc where ffvc.flex_value_set_id = (SELECT   flex_value_set_id
FROM   apps.fnd_flex_value_sets
WHERE   flex_value_set_name = ''XXGL_MGA_CB_TRANSFER_TYPE'' ) ',FORM_SCOPE,200);
END IF;


IF Not Id_Null(rg_id) THEN
delete_group(rg_id);
rg_id := Create_Group_From_Query( rg_name,'select flex_value,flex_value from fnd_flex_values ffvc where ffvc.flex_value_set_id = (SELECT   flex_value_set_id
FROM   apps.fnd_flex_value_sets
WHERE   flex_value_set_name = ''XXGL_MGA_CB_TRANSFER_TYPE'' ) ',FORM_SCOPE,200);

END IF;


errcode := Populate_Group_with_query( rg_id,'select flex_value,flex_value from fnd_flex_values ffvc where ffvc.flex_value_set_id = (SELECT   flex_value_set_id
FROM   apps.fnd_flex_value_sets
WHERE   flex_value_set_name = ''XXGL_MGA_CB_TRANSFER_TYPE'' ) ' );

IF errcode = 0 THEN
outcome := GET_GROUP_ROW_COUNT(rg_id);
Message(outcome);
END IF;

Clear_List(list_id);
Populate_List(list_id,rg_id);

end;
END;