Update statement will not commit changes

Question

I'm having a problem in Forms 4.5. I have a stored procedure that updates a table. I can call the stored procedure from a trigger within a form and it will work perfectly. However, when I copy the code from the stored procedure into a program unit, and call that program unit instead of the stored procedure, it doesn't work. It executes without generating any error messages, but the database remains unchanged. If anyone has seen this before, please help.
Thanks in advance,
Steve

Answer 1

In my form I have a block with a button. Within the WHEN-BUTTON-PRESSED trigger of that button I have the following code that calls a stored procedure:
UPDATE_RECORDS(code, date, ord_id);
This is the code for the stored procedure:
PROCEDURE UPDATE_RECORDS (
in_code IN NUMBER(6)
,in_date IN DATE
,in_ord_id IN NUMBER(6)) IS
BEGIN
UPDATE
count_records
SET
ord_id = in_ord_id
WHERE
id IN (
SELECT
cr.id
FROM
count_records cr
,orders ord
,items itm
,work_locs wl
WHERE
wl.code = in_code
AND itm.wl_id = wl.id
AND ord.itm_id = itm.id
AND cr.ord_id = ord.id
AND cr.starting_time >= in_date
COMMIT;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Update of records has failed.');
END UPDATE_RECORDS;
When I click on the button the trigger fires and the stored procedure executes. I can then query the database to confirm that the changes have taken place in the count_records table.
However, I've taken the code in the stored procedure and placed it in a Program Unit. I've changed the WHEN-BUTTON-PRESSED trigger to call the program unit:
UPDATE_RECORDS_WITHIN_FORM(code, date, ord_id);
This is the code for the Program Unit:
PROCEDURE UPDATE_RECORDS_WITHIN_FORM (
in_code IN NUMBER(6)
,in_date IN DATE
,in_ord_id IN NUMBER(6)) IS
BEGIN
UPDATE
count_records
SET
ord_id = in_ord_id
WHERE
id IN (
SELECT
cr.id
FROM
count_records cr
,orders ord
,items itm
,work_locs wl
WHERE
wl.code = in_code
AND itm.wl_id = wl.id
AND ord.itm_id = itm.id
AND cr.ord_id = ord.id
AND cr.starting_time >= in_date
COMMIT;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('Update of records has failed.', ACKNOWLEDGE);SYNCHRONIZE;
END UPDATE_RECORDS_WITHIN_FORM;
When I click on the button the trigger fires and the program unit executes. The error message never appears, but when I query the database, there are no changes to the count_records table.
This seems really strange and I would appreciate any help on this.
Thanks,
Steve