Cancel PO Programatically

Question

Hello All,
I need to cancel a Purchase Order Programatically. Can this be done?
Thanks for any help,
Bradley

Answer 1

It should be taken from po_document_types_all. You can find document_type and sub_type there.
Have you changed the fnd_global.apps_initialize parameters right? Like user_id and responsibility_id and appl_id? Not sure your site setup for the security. If you navigate to setup-->Purchasing-->Document Types and select Purchase Order Standard, you can see Control options there.
To avoid doubt, select user_id of the buyer and initialize apps.
select b.user_id into l_user_Id from po_agents a, fnd_user b, po_headers_all c
where a.agent_id=b.employee_id
and a.agent_id=c.agent_id
and c.segment1='5396';
select wf_item_type,wf_item_key from po_agents a, fnd_user b, po_headers_all c
where a.agent_id=b.employee_id
and a.agent_id=c.agent_id
and c.segment1='5396';
select number_value
into l_responsibility_id
from wf_item_attribute_values
where item_type='POAPPRV' --wf_item_type from above
and item_key='81411-392214' --wf_item_key from above
and name in ('RESPONSIBILITY_ID');
select number_value
into l_application_id
from wf_item_attribute_values
where item_type='POAPPRV'
and item_key='81411-392214'
and name in ('APPLICATION_ID');
fnd_global.apps_initialize(l_user_id,l_responsibility_id,l_application_id);
then call po_document_control_pub.
You can enable FND Debug Profiles and check fnd_log_messages.
Also call this procedure to get any session specifif messages;
PROCEDURE get_error_stack (x_msg_data OUT VARCHAR2)
IS
l_msg_index NUMBER;
l_msg_data VARCHAR2 (32000);
BEGIN
l_msg_index := 1;
x_msg_data := '';
FOR i IN 1 .. fnd_msg_pub.count_msg
LOOP
fnd_msg_pub.get (p_msg_index => i, p_encoded => 'F', p_data => l_msg_data, p_msg_index_out => l_msg_index);
x_msg_data := x_msg_data || l_msg_data;
DBMS_OUTPUT.put_line (x_msg_data);
END LOOP;
END get_error_stack;
THanks
Nagamohan