function get_current_window return varchar2 is
  canvas varchar2(30);
begin
  canvas := get_item_property(:SYSTEM.CURSOR_ITEM, ITEM_CANVAS);
  return(get_view_property(canvas, WINDOW_NAME));
end get_current_window;

procedure close_window(wnd in varchar2, children_only in boolean default FALSE) IS
begin

   if (name_in('system.mode') = 'ENTER-QUERY') then
    app_exception.disabled;
    return;
  end if;

IF (wnd = 'BLOCKNAME') THEN
     APP_WINDOW.CLOSE_FIRST_WINDOW;  
END IF;


if (children_only = FALSE) then
      if (wnd = get_current_window) then
          hide_window(wnd);
           previous_block;
      elsif (wnd = 'NEWVENDOR') then
	   close_child_windows;
      end if;
     hide_window(wnd);
     
 end if;

procedure close_child_windows(wnd in varchar2 default null) is
 window varchar(30) := wnd;
begin
 
  -- 
  -- Close the child windows of the current window
  if (window is null) then
    window := get_current_window;
  end if;
  close_window(window, TRUE);
end close_child_windows;

procedure open_window(wnd in varchar2) is
begin  
  if (wnd = 'BLOCKNAME') then
    --position the window
    --reset master-detail relations
    --navigate to a block in the window
    null;
  elsif (wnd = 'NEWVENDOR') then 
	GO_BLOCK('NEWVENDOR');
  end if;
end open_window;

hide_window('BLOCKNAME');
show_window('newvendor');

procedure open_window(wnd in varchar2) is
begin  
  if (wnd = 'BLOCKNAME') then
   null;
  elsif (wnd = 'NEWVENDOR') then 
	GO_BLOCK('NEWVENDOR');
  end if;
end open_window;