Tuesday, July 5, 2011

How to work with Seeded PLSQL API

lX_return_status VARCHAR2(1);
lx_msg_count NUMBER;
lx_msg_data VARCHAR2(2000);

ASO_QUOTE_PUB.UPDATE_QUOTE(
p_api_version_number => 1.0,
p_init_msg_list => FND_API.G_TRUE,
p_commit =>FND_API.G_FALSE,
....
....
....
X_Return_Status => lx_Return_Status,
X_Msg_Count => lx_Msg_Count,
X_Msg_Data => lx_Msg_Data);


fnd_msg_pub.count_and_get( p_encoded => 'F'
, p_count => lx_msg_count
, p_data => lx_msg_data);

IF aso_debug_pub.g_debug_flag = 'Y' THEN
ASO_DEBUG_PUB.add('No. of FND messages :'||lx_msg_count);
END IF;

FOR k IN 1 .. lx_msg_count
LOOP
lx_msg_data := fnd_msg_pub.get( p_msg_index => k,
p_encoded => 'F');
IF aso_debug_pub.g_debug_flag = 'Y' THEN
ASO_DEBUG_PUB.add('Error msg: '||substr(lx_msg_data,1,240));
END IF;
END LOOP;

IF lx_return_status = 'E' THEN
l_ret_status := 1;
RAISE l_excetption;
END IF;

No comments:

Post a Comment