Commit in Header Block, but cannot Commit in Control Block

Question

I am new to Oracle Forms, and would really appreciate your kind response.
I am using Oracle Forms 6i, Client/Server environment, and no base tables.
The DATA BLOCKS is divided into two areas: 1) HEADER, and 2) CONTROL. I successfully commit from the HEADER area, but cannot COMMIT nor CLEAR_FORM in the CONTROL area after Inserting records. What is causing this, and how can I get the application to Commit and Clear_Form?
I also notice in Data Block - Control that I am still in QUERY mode after INSERTING records. Shouldn't I be in CHANGED mode, and if so how do I make sure I am in the correct mode after inserting records?
Thanks in advance.
Below is a sample of my codes:
Data Block: HEADER
- Items: CLONE_ITEMS
- Triggers: WHEN-BUTTON-PRESSED
create_security_id(:security_id,:first_name,:last_name,:middle_name,:prefix,:suffix,:ti_title_class);
:header.CT_SECURITY_ID := :header.SECURITY_ID;
go_item('cf_security_id');
Program Units: CREATE_SECURITY_ID
This section inserts the User_ID into the All_Users System table, and adds a record into the user defined SECURITY_USERS table. COMMIT is successfully done in this section.
------------------------------- Problems here - COMMIT not successful ---------------------------
So we tried using: FORMS_DDL('COMMIT'); which works. However we cannot get the Clear_Block to Work. All other codes commented out does not work.
Data Block: CONTROL
- Items: COPY_USER
- Triggers: WHEN-BUTTON-PRESSED
Copy_User_Role_locations (:CT_SEUS_ID, :CF_SEUS_ID);
IF :System.Form_Status <> 'QUERY' THEN
Message('Error prevented Commit');
RAISE Form_Trigger_Failure;
End if;
IF :System.Form_Status = 'QUERY' THEN
Display_Message('QUERY MODE');
END IF;
IF :System.Form_Status = 'CHANGED' THEN
Display_Message('CHANGED MODE');
END IF;
IF :System.Form_Status = 'NEW' THEN
Display_Message('NEW/INSERT');
END IF;
IF Form_Success THEN
display_message('Security user created Sucessfully '||:ct_seus_id);
FORMS_DDL('COMMIT'); ---------This works
FORMS_DDL('CLEAR_BLOCK'); --Does not work
-- do_key('commit_form'); --Does not work
-- clear_block; --Does not work
-- set_block_property( 'header', INSERT_ALLOWED, PROPERTY_true);
-- clear_form(DO_COMMIT); --Does not work
END IF;
Program Units: COPY_USER_ROLE_LOCATIONS
This section fetches records with matching Security-ID, and INSERTS a copy of the record with the new ID. No commits is done in this section.

Answer 1

Gerd,
No the Header Block was not created through the Block_Wizard. The Form was copied from another, and modified accordingly. I inherited it with these issues which I am trying to fix.
Omar,
I tried using the Go_Block procedure with Clear_Block, but unfortunately it still did not work. I also tried doing Clear_Form, same results. Below are the codes I used in SAVE button, where I tried to commit and clear_block (Note that Display_Message is an inhouse function):
Data Block: CONTROL
Items: SAVE
Triggers: When_Button_Pressed
Display_Message('save..');
FORMS_DDL('COMMIT');
IF Form_Success THEN
Display_Message('Transaction Completed Sucessfully');
else
Display_Message('Failure to Commit Security_User');
end if;
Go_Block('CONTROL');
CLEAR_BLOCK ;
---CLEAR_FORM;
IF Form_Success THEN
Display_Message('Transaction Cleared Sucessfully');
else
Display_Message('Transaction Not Cleared');
end if;
Whereas the message "Transaction Completed Successfully" was received when I used FORMS_DDL('COMMIT'), I still got a "Transaction Not Cleared" message, and the data was not cleared from the screen. I would really like to to resolve this issue.
I also would be grateful if someone could clarify what mode I should be in after Inserting records. Should I be in the Query Mode, or Changed Mode.
Thanks a mil.
Sonia.