Forms 6i loop through datablock question

Question

I am writing a piece of code to loop through items with in a datablock to programmatically set the width between each field.
I created my data block through the wizard, but then manually added some fields. I have them listed in the order I expect them to be navigated, which is the order I expect them to appear on the screen.
When I am looping through the data block, I was assuming that next_item would go to the next navigable item, and it doesn't.
For example, I have items received_today, worked_today, total_waiting, total_for_today, total_calls, total_priority.
When the code loops through the data block, it actually loops in this order: received_today, worked_today, total_callbacks, total_priority, total_waiting, total_for_today.
I even set the next navigation item property for each item, but that didn't help.
My questions:
1. Is there a way to control what order the data block loops through items?
2. Why does this line get_item_property(get_block_property(block_name, FIRST_ITEM), x_pos); sometimes return null? (in my "proof of concept" form it returns a value, but the form I am modifying does not)
Following is my code:
PROCEDURE set_x_y_positions IS
     current_x_position pls_integer;
     current_y_position pls_integer;
  block_name varchar2(30) := 'BLOCK22';
  CurrentItem varchar2(30);
BEGIN
  go_block(block_name);
  current_x_position := get_item_property(get_block_property(block_name, FIRST_ITEM), x_pos);
  current_y_position := get_item_property(get_block_property(block_name, FIRST_ITEM), y_pos);
      go_block(block_name);
  loop
       BEGIN
            if :system.cursor_item <> (block_name || '.' || get_block_property(block_name, FIRST_ITEM))
                 and get_item_property(:system.current_item, displayed) = 'TRUE' then            
              SET_ITEM_PROPERTY(:system.current_item, x_pos, current_x_position + 38);
              current_x_position := get_item_property(:system.current_item, x_pos);
            end if;
            if :system.cursor_item = 'BLOCK22.INTERNATIONAL' THEN--block_name || '.' || get_block_property(block_name, LAST_ITEM) then
                      exit;
            else
                 next_item;
            end if;
       END;
  end loop;
END;I am using Forms 6i version 6.0.8.26.0
Thank you!
Katia

Answer 1

I do have an exit, and yes it does run well.
     if :system.cursor_item = 'ATS_MON_REPORTING_QUEUES_VW.INTERNATIONAL' THEN--block_name || '.' || get_block_property(block_name, LAST_ITEM) then
                      exit;
            else
                 next_item;
            end if;That redundant go_block is there because I had some output going to a dummy field in another block, so I had to make sure it was navigating back to the block. But yes, in this code example, that go_block is redundant.
Thank you, adding the
current_x_position := get_item_property(block_name||'.'|| get_block_property(block_name, FIRST_ITEM), x_pos);
  current_y_position := get_item_property(block_name||'.'|| get_block_property(block_name, FIRST_ITEM), y_pos); worked perfectly.