Oracle Forms Developer – Form Builder Reference, Volume 1

** If we get here we wrapped all the way around the
** block’s item names
*/
wrapped := TRUE;
RAISE Exit_Procedure;
EXCEPTION
WHEN Exit_Procedure THEN
/*
** If we found a required item and we didn’t come back
** to the item we started in, then navigate there
*/
IF found AND NOT wrapped THEN
Go_Item(cur_itm);
END IF;
END;
197