declare
	type_recgrp recordgroup;
	loc_recgrp recordgroup;		
	st number;
	status number;
	qry varchar2(200);	
begin
		
	clear_list('control.locality');
	clear_list('control.sector');
	clear_list('control.block');
	clear_list('control.qtrno');
	clear_list('control.hid');
	
	:control.locality:='';
	:control.sector:='';
	:control.block:='';
	:control.qtrno:='';
	:control.hid:='';
	:control.regno:='';
	
	go_item('control.locality');
	


	--set_item_property('pb_ok',enabled,property_false);						
	
	qry:='select distinct qtr_type,qtr_type from house,occupant where house.hid=occupant.hid 
	      and occupant.occ_status=:parameter.occ_sts order by 1 ';
--	message (qry);
  type_recgrp:=create_group_from_query('type_recgrp',qry);	
		if not id_null(type_recgrp) then
			st:=populate_group(type_recgrp);
			clear_list('control.type');
			populate_list('control.type',type_recgrp);			
		end if;			
		delete_group(type_recgrp);		
end;