[Script]Call Inventory Transaction Manager

Call Inventory Transaction Manager

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;
/