124: DBMS_LOB.writeappend (l_xml_doc, 8, '
125:
126: -- Initialize message stack
127:
128: FND_MSG_PUB.initialize;
129:
130: -- Standard call to get message count and if count is 1, get message info.
131:
132: FND_MSG_PUB.Count_And_Get
128: FND_MSG_PUB.initialize;
129:
130: -- Standard call to get message count and if count is 1, get message info.
131:
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => l_msg_count,
134: p_data => l_msg_data
135: );
136:
247: FALSE
248: );
249: end If;
250:
251: fnd_msg_pub.add;
252:
253: If l_slog then
254: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
255: G_LOG_HEADER || '.'||l_api_name||'('||to_char(l_stmt_num)||')',
256: l_error_message
257: );
258: End If;
259:
260: FND_MSG_PUB.count_and_get
261: ( p_count => l_msg_count
262: , p_data => l_msg_data
263: );
264:
274:
275: l_conc_request := fnd_concurrent.set_completion_status('ERROR',substr(fnd_message.get_string('BOM',l_error_message),1,240));
276:
277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278: FND_MSG_PUB.Count_And_Get
279: ( p_count => l_msg_count,
280: p_data => l_msg_data
281: );
282:
295: l_module || '.' || l_stmt_num,
296: SUBSTRB (SQLERRM , 1 , 240));
297: END IF;
298:
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
300: THEN
301: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
302: END IF;
303:
297: END IF;
298:
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
300: THEN
301: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
302: END IF;
303:
304: FND_MSG_PUB.Count_And_Get
305: ( p_count => l_msg_count,
300: THEN
301: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
302: END IF;
303:
304: FND_MSG_PUB.Count_And_Get
305: ( p_count => l_msg_count,
306: p_data => l_msg_data
307: );
308:
384:
385: -- Initialize message list if p_init_msg_list is set to TRUE.
386:
387: IF FND_API.to_Boolean( p_init_msg_list ) THEN
388: FND_MSG_PUB.initialize;
389: END IF;
390:
391: -- Initialize API return status to success
392:
508: DBMS_LOB.FREETEMPORARY (l_xml_temp);
509:
510: -- Standard call to get message count and if count is 1, get message info.
511:
512: FND_MSG_PUB.Count_And_Get
513: ( p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: -- Write the module name to fnd log file
523:
524: EXCEPTION
525: WHEN FND_API.G_EXC_ERROR THEN
526: x_return_status := FND_API.G_RET_STS_ERROR ;
527: FND_MSG_PUB.Count_And_Get
528: ( p_count => x_msg_count,
529: p_data => x_msg_data
530: );
531:
530: );
531:
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
534: FND_MSG_PUB.Count_And_Get
535: ( p_count => x_msg_count,
536: p_data => x_msg_data
537: );
538:
543: l_module || '.' || l_stmt_num,
544: SUBSTRB (SQLERRM , 1 , 240));
545: END IF;
546:
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.Add_Exc_Msg
550: ( G_PKG_NAME,
551: l_api_name
545: END IF;
546:
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.Add_Exc_Msg
550: ( G_PKG_NAME,
551: l_api_name
552: );
553: END IF;
551: l_api_name
552: );
553: END IF;
554:
555: FND_MSG_PUB.Count_And_Get
556: ( p_count => x_msg_count,
557: p_data => x_msg_data
558: );
559:
633:
634: -- Initialize message list if p_init_msg_list is set to TRUE.
635:
636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
637: FND_MSG_PUB.initialize;
638: END IF;
639:
640: -- Initialize API return status to success
641:
997: DBMS_LOB.FREETEMPORARY (l_xml_temp);
998:
999: -- Standard call to get message count and if count is 1, get message info.
1000:
1001: FND_MSG_PUB.Count_And_Get
1002: ( p_count => x_msg_count,
1003: p_data => x_msg_data
1004: );
1005:
1013:
1014: EXCEPTION
1015: WHEN FND_API.G_EXC_ERROR THEN
1016: x_return_status := FND_API.G_RET_STS_ERROR ;
1017: FND_MSG_PUB.Count_And_Get
1018: ( p_count => x_msg_count,
1019: p_data => x_msg_data
1020: );
1021:
1020: );
1021:
1022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1024: FND_MSG_PUB.Count_And_Get
1025: ( p_count => x_msg_count,
1026: p_data => x_msg_data);
1027:
1028: WHEN OTHERS THEN
1032: l_module || '.' || l_stmt_num,
1033: SUBSTRB (SQLERRM , 1 , 240));
1034: END IF;
1035:
1036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1037: THEN
1038: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1039: END IF;
1040:
1034: END IF;
1035:
1036: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1037: THEN
1038: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1039: END IF;
1040:
1041: FND_MSG_PUB.Count_And_Get
1042: ( p_count => x_msg_count,
1037: THEN
1038: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1039: END IF;
1040:
1041: FND_MSG_PUB.Count_And_Get
1042: ( p_count => x_msg_count,
1043: p_data => x_msg_data
1044: );
1045: