93: DBMS_LOB.writeappend (l_xml_doc, length(l_xml_header), l_xml_header);
94:
95: DBMS_LOB.createtemporary(l_xml_temp, TRUE);
96: DBMS_LOB.writeappend (l_xml_doc, 8, '
97: FND_MSG_PUB.initialize;
98:
99: /* Add Parameters */
100: l_stmt_num := 20;
101: add_parameters (p_api_version => 1.0,
227: END IF;
228:
229: EXCEPTION
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
232: p_data => l_msg_data);
233:
234: CST_UTILITY_PUB.writelogmessages (p_api_version => 1.0,
235: p_msg_count => l_msg_count,
247: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
248: l_module || '.' || l_stmt_num,
249: SUBSTRB (SQLERRM , 1 , 240));
250: END IF;
251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
252: THEN
253: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
254: END IF;
255: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
249: SUBSTRB (SQLERRM , 1 , 240));
250: END IF;
251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
252: THEN
253: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
254: END IF;
255: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
256: p_data => l_msg_data);
257:
251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
252: THEN
253: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
254: END IF;
255: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
256: p_data => l_msg_data);
257:
258: CST_UTILITY_PUB.writelogmessages (p_api_version => 1.0,
259: p_msg_count => l_msg_count,
325: END IF;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328: IF FND_API.to_Boolean( p_init_msg_list ) THEN
329: FND_MSG_PUB.initialize;
330: END IF;
331:
332: -- Initialize API return status to success
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
436: CLOSE l_ref_cur;
437: DBMS_LOB.FREETEMPORARY (l_xml_temp);
438:
439: -- Standard call to get message count and if count is 1, get message info.
440: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
441: p_data => x_msg_data);
442:
443: IF (l_pLog) THEN
444: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
447: END IF;
448: EXCEPTION
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
451: FND_MSG_PUB.Count_And_Get
452: ( p_count => x_msg_count,
453: p_data => x_msg_data
454: );
455: WHEN OTHERS THEN
459: l_module || '.' || l_stmt_num,
460: SUBSTRB (SQLERRM , 1 , 240));
461: END IF;
462:
463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN
465: FND_MSG_PUB.Add_Exc_Msg
466: ( G_PKG_NAME,
467: l_api_name
461: END IF;
462:
463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN
465: FND_MSG_PUB.Add_Exc_Msg
466: ( G_PKG_NAME,
467: l_api_name
468: );
469: END IF;
466: ( G_PKG_NAME,
467: l_api_name
468: );
469: END IF;
470: FND_MSG_PUB.Count_And_Get
471: (p_count => x_msg_count,
472: p_data => x_msg_data
473: );
474: END add_parameters;