610: 'Get Federal Indicator:' || l_msg_data);
611: else
612: for I IN 0 .. l_msg_count
613: loop
614: l_msg_data := fnd_msg_pub.get(p_encoded=>'F');
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,l_module_name,
616: 'Get Federal Indicator:' || l_msg_data);
617: end loop;
618: end if;
809: l_hold_unmatched_invoices_flag:=null;
810: l_hold_all_payments_flag:=null;
811: END IF;
812:
813: FND_MSG_PUB.initialize;
814:
815:
816: -- Initialize API return status to success
817: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: SQLCODE ||' Error Text:' || SQLERRM);
986: insert_for_report(p_duns,19,l_msg_text||nvl(l_excp_msg,''),null,null
987: ,null,null);
988:
989: IF FND_MSG_PUB.Check_Msg_Level
990: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
991: THEN
992: FND_MSG_PUB.Add_Exc_Msg
993: ( G_PKG_NAME ,
986: insert_for_report(p_duns,19,l_msg_text||nvl(l_excp_msg,''),null,null
987: ,null,null);
988:
989: IF FND_MSG_PUB.Check_Msg_Level
990: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
991: THEN
992: FND_MSG_PUB.Add_Exc_Msg
993: ( G_PKG_NAME ,
994: l_api_name
988:
989: IF FND_MSG_PUB.Check_Msg_Level
990: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
991: THEN
992: FND_MSG_PUB.Add_Exc_Msg
993: ( G_PKG_NAME ,
994: l_api_name
995: );
996: END IF;
1336: ' Error Code:' || SQLCODE ||' Error Text:' || SQLERRM);
1337: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
1338: END IF;
1339:
1340: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1341: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1342: END IF;
1343: END;
1344:
1337: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
1338: END IF;
1339:
1340: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1341: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1342: END IF;
1343: END;
1344:
1345:
1442: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
1443: l_account_uses_insert_flag := 'N';
1444: l_account_uses_upd_flag := 'N';
1445:
1446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1447: THEN
1448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1449: END IF;
1450: END;
1444: l_account_uses_upd_flag := 'N';
1445:
1446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1447: THEN
1448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1449: END IF;
1450: END;
1451: ELSIF(nvl(p_pay_site_id,0)<>0) THEN
1452: BEGIN
1519: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,l_msg_text||
1520: ' Error Code:' || SQLCODE ||' Error Text:' || SQLERRM);
1521: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
1522:
1523: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1524: THEN
1525: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1526: END IF;
1527: END;
1521: insert_for_report(l_duns_for_report,19,l_msg_text||nvl(l_excp_msg,''),null,null,null,null);
1522:
1523: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1524: THEN
1525: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1526: END IF;
1527: END;
1528:
1529: END IF;
1549: l_assgn_conc_req_status := 'E';
1550: FND_CLIENT_INFO.set_org_context(l_old_org_id);
1551: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,l_msg_text||
1552: ' Error Code:' || SQLCODE ||' Error Text:' || SQLERRM);
1553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1554: THEN
1555: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1556: END IF;
1557: END;
1551: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,l_msg_text||
1552: ' Error Code:' || SQLCODE ||' Error Text:' || SQLERRM);
1553: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1554: THEN
1555: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1556: END IF;
1557: END;
1558: IF(l_pay_site_id = 0) THEN l_pay_site_id := null; END IF;
1559: IF(l_main_add_site_id = 0) THEN l_main_add_site_id := null; END IF;
1724: END IF;
1725:
1726:
1727: -- Standard call to get message count and if count is 1, get message info.
1728: FND_MSG_PUB.Count_And_Get
1729: (
1730: p_count => x_msg_count ,
1731: p_data => x_msg_data
1732: );
1736: x_vendor_id := p_prev_vendor_id;
1737: END IF;
1738:
1739: x_return_status := FND_API.G_RET_STS_ERROR ;
1740: FND_MSG_PUB.Count_And_Get
1741: ( p_count => x_msg_count ,
1742: p_data => x_msg_data
1743: );
1744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1746: x_vendor_id := p_prev_vendor_id;
1747: END IF;
1748:
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1750: FND_MSG_PUB.Count_And_Get
1751: ( p_count => x_msg_count ,
1752: p_data => x_msg_data
1753: );
1754: WHEN OTHERS THEN
1756: x_vendor_id := p_prev_vendor_id;
1757: END IF;
1758:
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1757: END IF;
1758:
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1765: l_api_name
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1760: IF FND_MSG_PUB.Check_Msg_Level
1761: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1762: THEN
1763: FND_MSG_PUB.Add_Exc_Msg
1764: ( G_PKG_NAME ,
1765: l_api_name
1766: );
1767: END IF;
1764: ( G_PKG_NAME ,
1765: l_api_name
1766: );
1767: END IF;
1768: FND_MSG_PUB.Count_And_Get
1769: ( p_count => x_msg_count ,
1770: p_data => x_msg_data
1771: );
1772:
2041: if(l_msg_count = 1) THEN
2042: x_exception_msg := l_msg_data;
2043: else
2044: for i in 1..l_msg_count loop
2045: x_exception_msg := x_exception_msg || fnd_msg_pub.get(p_msg_index=>i,p_encoded=>'F');
2046: end loop;
2047: end if;
2048: end if;
2049:
2186: if(l_msg_count = 1) THEN
2187: x_exception_msg := l_msg_data;
2188: else
2189: for i in 1..l_msg_count loop
2190: x_exception_msg := x_exception_msg || fnd_msg_pub.get(p_msg_index=>i,p_encoded=>'F');
2191: end loop;
2192: end if;
2193: end if;
2194:
2300: if(l_msg_count = 1) THEN
2301: x_exception_msg := l_msg_data;
2302: else
2303: for i in 1..l_msg_count loop
2304: x_exception_msg := x_exception_msg || fnd_msg_pub.get(p_msg_index=>i,p_encoded=>'F');
2305: end loop;
2306: end if;
2307: end if;
2308:
2349: if(l_msg_count = 1) THEN
2350: x_exception_msg := x_exception_msg || l_msg_data;
2351: else
2352: for i in 1..l_msg_count loop
2353: x_exception_msg := x_exception_msg || fnd_msg_pub.get(p_msg_index=>i,p_encoded=>'F');
2354: end loop;
2355: end if;
2356: end if;
2357:
2387: if(l_msg_count = 1) THEN
2388: x_exception_msg := x_exception_msg || l_msg_data;
2389: else
2390: for i in 1..l_msg_count loop
2391: x_exception_msg := x_exception_msg || fnd_msg_pub.get(p_msg_index=>i,p_encoded=>'F');
2392: end loop;
2393: end if;
2394: end if;
2395: