set serveroutput on;
declare
--retmsg varchar2(1000);
retmsg varchar2(240);
retval number;
trxhdrid number := '&1';
prnmsg varchar2(256);
x_msg_data varchar2(256);
x_msgcnt number;
begin
retval := INV_LPN_TRX_PUB.PROCESS_LPN_TRX(
p_trx_hdr_id => trxhdrid,
p_commit => fnd_api.g_false,
x_proc_msg => retmsg,
p_proc_mode => 1,
p_process_trx => fnd_api.g_true,
p_atomic => fnd_api.g_false);
if (length(retmsg) > 200) then
prnmsg := substr(retmsg, 1, 200);
else
prnmsg := retmsg;
end if;
if (retval = 0) then
dbms_output.put_line(' All OK . msg:'||prnmsg);
else
dbms_output.put_line(' Error . msg:'||prnmsg);
dbms_output.put_line(' Msg1 ='||fnd_msg_pub.get(1, 'F'));
FND_MSG_PUB.Count_And_Get(p_count => x_msgcnt,
p_data => x_msg_data);
dbms_output.put_line('msgcnt='||x_msgcnt||',msgdt='||x_msg_data);
for x in 1..x_msgcnt loop
dbms_output.put_line('Msg='||substr(fnd_msg_pub.get(x, 'F'), 0, 200));
end loop;
end if;
end;
/

Script]Call Inventory Transaction Manager