DECLARE
	nDummy NUMBER;
	a Varchar(50);
BEGIN
       DEFAULT_VALUE(NULL, 'GLOBAL.PERSONID');
       IF :GLOBAL.PERSONID IS NOT NULL THEN
       SET_BLOCK_PROPERTY('PERSONS_DETAILS', ONETIME_WHERE, 'PERSONID=' || :GLOBAL.PERSONID);
       GO_BLOCK('PERSON_DETAILS');
       EXECUTE_QUERY;
       :GLOBAL.PERSONID:=NULL;
       END IF;

	CLEAR_LIST('PERSONS_DETAILS.TOWNS');
	nDummy:=POPULATE_GROUP('RG_TOWNS');
	POPULATE_LIST('PERSONS_DETAILS.TOWNS', 'RG_TOWNS');
	for i in 0.. GET_LIST_ELEMENT_COUNT('PERSONS_DETAILS.TOWNS') loop
		a := Get_List_Element_Value('PERSONS_DETAILS.TOWNS', i );
		if to_char(:GLOBAL.PERSONID) = Get_List_Element_Value('PERSONS_DETAILS.TOWNS', i ) then
			:PERSONS_DETAILS.TOWNS := Get_List_Element_Value('PERSONS_DETAILS.TOWNS', i ) ;
		end if;
	end loop;
END;