POP_LIST('CLSS_MILITARY_ACCOUNT', 'PARAM_VIEW.MILITARY', null);

PROCEDURE POP_LIST (gr_name in varchar2, item_name in varchar2, regim in number) IS
rg_name varchar2(50);
rg_id RecordGroup;
errcode number;
status number;
list_id item;
list_name varchar2(50);
str varchar2(4000);

BEGIN
rg_name := UPPER(RTRIM(gr_name));
list_name := UPPER(RTRIM(item_name));
list_id := FIND_ITEM(list_name);
CLEAR_LIST(list_id);
If rg_name = 'CLSS_MILITARY_ACCOUNT' then
str := 'select vcname, TO_CHAR(iCLSS_MILITARY_ACCOUNTid) from CLSS_MILITARY_ACCOUNT order by 1';
Elsif rg_name = 'TYPE_DOC' then
str := 'select vcdocument_name, TO_CHAR(idocument_typeid) from document_type order by isort asc';
end if;

rg_id := FIND_GROUP(rg_name);
if Id_Null(rg_id) then
rg_id := CREATE_GROUP_FROM_QUERY(rg_name, str);
else
DELETE_GROUP_ROW(rg_id, ALL_ROWS);
DELETE_GROUP(rg_id);
rg_id := CREATE_GROUP_FROM_QUERY(rg_name, str);
end if;
errcode := POPULATE_GROUP(rg_id);
POPULATE_LIST(list_id, rg_id);


END;