DECLARE
	htree         ITEM;
	v_ignore      NUMBER;
	rg_emps       RECORDGROUP;
	vquery varchar(2000);
BEGIN
	:system.message_level := '25';
	htree := Find_Item('app.trapp');
	rg_emps := Find_Group('emps');
	IF NOT Id_Null(rg_emps) THEN
		DELETE_GROUP(rg_emps);
	END IF;
		rg_emps := Create_Group_From_Query('rg_emps',
		'select 1, level, app_name, decode(frm_rep_flag,''F'',''form'',''R'',''report'',''O'',''other''), app_no ' ||
		'from app_master '                         ||
		'connect by prior app_no = parent '        ||
		'start with parent is null');

	v_ignore := Populate_Group(rg_emps);
	Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
end;