RAISE form_trigger_failure not working in purchase order form

Question

Hi,
I am working on a customization in Purchase Order Form (poxpoepo)
This is what I tried to do.
CURSOR 1_cur IS
SELECT pol.LINE_NUM v_line
,gcc.segment1 v_seg
FROM gl_code_combinations gcc
,PO_DISTRIBUTIONS_ALL pod
,po_lines_all pol
WHERE SUBSTR(gcc.SEGMENT1,1,1) = 'X'
AND gcc.code_combination_id = pod.code_combination_id
AND pod.PO_LINE_ID = pol.PO_LINE_ID
AND pol.po_line_id = v_po_line
AND pol.PO_HEADER_ID = v_po_header;
CURSOR 2_cur IS
SELECT pol.LINE_NUM v_line
,gcc.segment1 v_seg
FROM gl_code_combinations gcc
,PO_DISTRIBUTIONS_ALL pod
,po_lines_all pol
WHERE SUBSTR(gcc.SEGMENT1,1,1) = 'X'
AND gcc.code_combination_id = pod.code_combination_id
AND pod.PO_LINE_ID = pol.PO_LINE_ID
AND pol.PO_HEADER_ID = v_po_header;
BEGIN
v_error_found := false ;
IF (form_name = 'POXPOEPO' AND
(block_name IN ('PO_LINES' ,
'PO_SHIPMENTS',
'PO_DISTRIBUTIONS') AND
event_name = 'WHEN-NEW-ITEM-INSTANCE') OR
(block_name = 'PO_HEADERS' AND
event_name = 'WHEN-NEW-RECORD-INSTANCE' AND
name_in('SYSTEM.BLOCK_STATUS') = 'QUERY' ) OR
(block_name = 'PO_APPROVE' AND
event_name = 'WHEN-NEW-BLOCK-INSTANCE' )
) AND
NAME_IN('PO_LINES.PO_HEADER_ID') IS NOT NULL AND
NAME_IN('PO_LINES.PO_LINE_ID') IS NOT NULL AND
name_in('PO_LINES.LINE_NUM') >= 1 ) THEN
v_po_header_id := NAME_IN('PO_LINES.PO_HEADER_ID');
v_po_line_id := NAME_IN('PO_LINES.PO_LINE_ID');
v_line_num := NAME_IN('PO_LINES.LINE_NUM');
IF block_name in ('PO_LINES' , 'PO_SHIPMENTS', 'PO_DISTRIBUTIONS') THEN
v_seg := null;
FOR cursor1 in 1_cur
LOOP
if cursor1.v_seg = 'X' THEN
v_seg := 'X';
v_line_num := cursor1.v_line;
EXIT;
end if;
END LOOP;
ELSIF block_name in ('PO_HEADERS','PO_APPROVE') THEN
FOR cursor2 in 2_cur
LOOP
if cursor2.v_seg = 'X' THEN
v_seg := 'X';
v_line_num := cursor2.v_line;
EXIT;
end if;
END LOOP;
END IF;
IF v_seg = 'X' then
fnd_message.set_string('custom message to be displayed.');
FND_MESSAGE.ERROR;
IF block_name = 'PO_APPROVE' THEN
go_block('PO_HEADERS');
raise form_trigger_failure;
END IF;
END IF;
END IF;
END;
I actually want to achieve somewhat like this. When ever the charge account field start with 'X' or in other words if segment1 is 'X' and if changes are made to that line like note to supplier is changed and saved then the user should not be allowed to approve/reapprove the order and it shall pop up the message and ONLY restrict from going further if the user hits the APPROVE button. Highlighted in bold should have actually taken care of the requirement from proceeding to the next level of approval but it is not. I have had several debug messages and I am pretty sure that it is satisfying the condition of going to the PO_APPROVE block and still not raising form trigger failure. Could you please help me handle this scenario?

Answer 1

Your Raise works -- it will terminate your procedure, Change_Detail_Block_Status.
But, how are you calling the procedure? It is in THAT place that you should look for your problem.
If you call the procedure, and then have coded EXCEPTION WHEN OTHERS THEN.... or something similar, you might be ignoring the "Raise FTF".
In addition, you probably need to add these lines in your form where navigation or a commit or similar code causes a trigger to call your procedure:
If not Form_Success then
Raise Form_Trigger_Failure;
End if;