59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
66: -- Debug Message
67: -- added by gnramasa for bug 5661324 14-Mar-07
117: -- added by gnramasa for bug 5661324 14-Mar-07
118: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - CreateAgDn: End ');
119:
120: -- Standard call to get message count and if count is 1, get message info.
121: FND_MSG_PUB.Count_And_Get
122: ( p_count => x_msg_count,
123: p_data => x_msg_data
124: );
125:
128: x_return_status := FND_API.G_RET_STS_ERROR;
129: ROLLBACK TO Create_Ag_Dn_PUB;
130: -- added by gnramasa for bug 5661324 14-Mar-07
131: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => x_msg_count,
134: p_data => x_msg_data );
135:
136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: ROLLBACK TO Create_Ag_Dn_PUB;
139: -- added by gnramasa for bug 5661324 14-Mar-07
140: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
141: FND_MSG_PUB.Count_And_Get
142: ( p_count => x_msg_count,
143: p_data => x_msg_data );
144:
145: WHEN OTHERS THEN
147: ROLLBACK TO Create_Ag_Dn_PUB;
148: -- added by gnramasa for bug 5661324 14-Mar-07
149: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
150: WriteLog('iexpdunb:CreateAgDn:Exc Exception');
151: FND_MSG_PUB.Count_And_Get
152: ( p_count => x_msg_count,
153: p_data => x_msg_data );
154:
155: END CREATE_AG_DN_XREF;
181:
182: -- Initialize message list if p_init_msg_list is set to TRUE.
183: IF FND_API.to_Boolean( p_init_msg_list )
184: THEN
185: FND_MSG_PUB.initialize;
186: END IF;
187:
188: -- Debug Message
189: -- added by gnramasa for bug 5661324 14-Mar-07
234: -- Changed by gnramasa for bug 5661324 14-Mar-07
235: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn: end ');
236:
237: -- Standard call to get message count and if count is 1, get message info.
238: FND_MSG_PUB.Count_And_Get
239: ( p_count => x_msg_count,
240: p_data => x_msg_data );
241:
242: EXCEPTION
246: -- Changed by gnramasa for bug 5661324 14-Mar-07
247: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
248: errmsg := SQLERRM;
249: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:error='||errmsg);
250: FND_MSG_PUB.Count_And_Get
251: ( p_count => x_msg_count,
252: p_data => x_msg_data );
253:
254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: -- Changed by gnramasa for bug 5661324 14-Mar-07
258: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
259: errmsg := SQLERRM;
260: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:error='||errmsg);
261: FND_MSG_PUB.Count_And_Get
262: ( p_count => x_msg_count,
263: p_data => x_msg_data );
264:
265: WHEN OTHERS THEN
269: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
270: errmsg := SQLERRM;
271: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:error='||errmsg);
272: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - UpdateAgDn:Exc Exception');
273: FND_MSG_PUB.Count_And_Get
274: ( p_count => x_msg_count,
275: p_data => x_msg_data );
276:
277: END Update_AG_DN_XREF;
304:
305: -- Initialize message list if p_init_msg_list is set to TRUE.
306: IF FND_API.to_Boolean( p_init_msg_list )
307: THEN
308: FND_MSG_PUB.initialize;
309: END IF;
310:
311: -- Debug Message
312: -- Changed by gnramasa for bug 5661324 14-Mar-07
348: -- Debug Message
349: -- Changed by gnramasa for bug 5661324 14-Mar-07
350: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - End ');
351:
352: FND_MSG_PUB.Count_And_Get
353: ( p_count => x_msg_count,
354: p_data => x_msg_data );
355:
356: EXCEPTION
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: ROLLBACK TO Delete_Ag_Dn_PUB;
360: -- Changed by gnramasa for bug 5661324 14-Mar-07
361: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
362: FND_MSG_PUB.Count_And_Get
363: ( p_count => x_msg_count,
364: p_data => x_msg_data );
365:
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368: ROLLBACK TO Delete_Ag_Dn_PUB;
369: -- Changed by gnramasa for bug 5661324 14-Mar-07
370: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
371: FND_MSG_PUB.Count_And_Get
372: ( p_count => x_msg_count,
373: p_data => x_msg_data );
374:
375: WHEN OTHERS THEN
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: ROLLBACK TO Delete_Ag_Dn_PUB;
378: -- Changed by gnramasa for bug 5661324 14-Mar-07
379: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
380: FND_MSG_PUB.Count_And_Get
381: ( p_count => x_msg_count,
382: p_data => x_msg_data );
383:
384: END Delete_AG_DN_XREF;
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list )
720: THEN
721: FND_MSG_PUB.initialize;
722: END IF;
723:
724: -- Debug Message
725:
1718: -- Debug Message
1719: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - return status='||x_return_status);
1720: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - END');
1721:
1722: FND_MSG_PUB.Count_And_Get
1723: ( p_count => x_msg_count,
1724: p_data => x_msg_data );
1725:
1726: EXCEPTION
1727: WHEN FND_API.G_EXC_ERROR THEN
1728: x_return_status := FND_API.G_RET_STS_ERROR;
1729: ROLLBACK TO Send_DUNNING_PUB;
1730: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1731: FND_MSG_PUB.Count_And_Get
1732: ( p_count => x_msg_count,
1733: p_data => x_msg_data );
1734:
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1737: ROLLBACK TO Send_DUNNING_PUB;
1738: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1739: FND_MSG_PUB.Count_And_Get
1740: ( p_count => x_msg_count,
1741: p_data => x_msg_data );
1742:
1743: WHEN OTHERS THEN
1743: WHEN OTHERS THEN
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1745: ROLLBACK TO Send_DUNNING_PUB;
1746: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1747: FND_MSG_PUB.Count_And_Get
1748: ( p_count => x_msg_count,
1749: p_data => x_msg_data );
1750:
1751: END Send_Dunning;
1773:
1774: -- Initialize message list if p_init_msg_list is set to TRUE.
1775: IF FND_API.to_Boolean( p_init_msg_list )
1776: THEN
1777: FND_MSG_PUB.initialize;
1778: END IF;
1779:
1780: -- Debug Message
1781: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - Start');
1823:
1824: -- Debug Message
1825: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - end ');
1826:
1827: FND_MSG_PUB.Count_And_Get
1828: ( p_count => x_msg_count,
1829: p_data => x_msg_data );
1830:
1831: EXCEPTION
1832: WHEN FND_API.G_EXC_ERROR THEN
1833: x_return_status := FND_API.G_RET_STS_ERROR;
1834: ROLLBACK TO DAILY_DUNNING_PUB;
1835: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1836: FND_MSG_PUB.Count_And_Get
1837: ( p_count => x_msg_count,
1838: p_data => x_msg_data );
1839:
1840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1842: ROLLBACK TO DAILY_DUNNING_PUB;
1843: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1844: FND_MSG_PUB.Count_And_Get
1845: ( p_count => x_msg_count,
1846: p_data => x_msg_data );
1847:
1848: WHEN OTHERS THEN
1848: WHEN OTHERS THEN
1849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1850: ROLLBACK TO DAILY_DUNNING_PUB;
1851: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - error='||SQLERRM);
1852: FND_MSG_PUB.Count_And_Get
1853: ( p_count => x_msg_count,
1854: p_data => x_msg_data );
1855:
1856: END Daily_Dunning;
1899: if (l_default_rs_id = 0 or l_default_rs_id is null) then
1900: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - CALLBACK_CONCUR:no rs_id');
1901: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE');
1902: FND_MESSAGE.Set_Token ('PROFILE', 'IEX_STRY_DEFAULT_RESOURCE', FALSE);
1903: FND_MSG_PUB.Add;
1904:
1905: FND_MSG_PUB.Count_And_Get
1906: ( p_count => l_msg_count,
1907: p_data => l_msg_data
1901: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE');
1902: FND_MESSAGE.Set_Token ('PROFILE', 'IEX_STRY_DEFAULT_RESOURCE', FALSE);
1903: FND_MSG_PUB.Add;
1904:
1905: FND_MSG_PUB.Count_And_Get
1906: ( p_count => l_msg_count,
1907: p_data => l_msg_data
1908: );
1909:
1913: --retcode := FND_API.G_RET_STS_ERROR;
1914: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1915:
1916: for i in 1..l_msg_count loop
1917: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1918: p_encoded => 'F');
1919: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
1920: WriteLog('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1921: end loop;
1940: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - no running level');
1941: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No Dunning Running Level');
1942: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
1943: FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS DUNNING LEVEL', FALSE);
1944: FND_MSG_PUB.Add;
1945:
1946: FND_MSG_PUB.Count_And_Get
1947: ( p_count => l_msg_count,
1948: p_data => l_msg_data
1942: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
1943: FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS DUNNING LEVEL', FALSE);
1944: FND_MSG_PUB.Add;
1945:
1946: FND_MSG_PUB.Count_And_Get
1947: ( p_count => l_msg_count,
1948: p_data => l_msg_data
1949: );
1950:
1952: retcode := '2'; --FND_API.G_RET_STS_ERROR;
1953: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
1954:
1955: for i in 1..l_msg_count loop
1956: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
1957: p_encoded => 'F');
1958: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
1959: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Calback_Concur errmsg =' ||errmsg);
1960: end loop;
2335: iex_debug_pub.LogMessage('Send_Dunning: ' || G_PKG_NAME || ' ' || l_api_name || ' - no running level');
2336: END IF;
2337: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
2338: FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS DUNNING LEVEL', FALSE);
2339: FND_MSG_PUB.Add;
2340:
2341: FND_MSG_PUB.Count_And_Get
2342: ( p_count => l_msg_count,
2343: p_data => l_msg_data
2337: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
2338: FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS DUNNING LEVEL', FALSE);
2339: FND_MSG_PUB.Add;
2340:
2341: FND_MSG_PUB.Count_And_Get
2342: ( p_count => l_msg_count,
2343: p_data => l_msg_data
2344: );
2345:
2348: retcode := '2';
2349: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
2350:
2351: for i in 1..l_msg_count loop
2352: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
2353: p_encoded => 'F');
2354: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
2355: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
2356: end loop;
2374: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - no bucket');
2375: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_VALUE');
2376: --FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS AGING BUCKET', FALSE);
2377: FND_MESSAGE.Set_Token('COLUMN', 'DUNNING PLAN AGING BUCKET', FALSE);
2378: FND_MSG_PUB.Add;
2379:
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_count => l_msg_count,
2382: p_data => l_msg_data
2376: --FND_MESSAGE.Set_Token('COLUMN', 'COLLECTIONS AGING BUCKET', FALSE);
2377: FND_MESSAGE.Set_Token('COLUMN', 'DUNNING PLAN AGING BUCKET', FALSE);
2378: FND_MSG_PUB.Add;
2379:
2380: FND_MSG_PUB.Count_And_Get
2381: ( p_count => l_msg_count,
2382: p_data => l_msg_data
2383: );
2384:
2387: retcode := '2';
2388: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
2389:
2390: for i in 1..l_msg_count loop
2391: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
2392: p_encoded => 'F');
2393: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
2394: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
2395: end loop;
2440: iex_debug_pub.LogMessage(G_PKG_NAME || ' ' || l_api_name || ' - status='||retcode);
2441: END IF;
2442:
2443: IF (retcode <> FND_API.G_RET_STS_SUCCESS) THEN
2444: FND_MSG_PUB.Count_And_Get
2445: ( p_count => l_msg_count,
2446: p_data => l_msg_data
2447: );
2448:
2450: retcode := '2';
2451: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errbuf='||errbuf);
2452:
2453: for i in 1..l_msg_count loop
2454: errmsg := FND_MSG_PUB.Get(p_msg_index => i,
2455: p_encoded => 'F');
2456: FND_FILE.PUT_LINE(FND_FILE.LOG, errmsg);
2457: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - errmsg='||errmsg);
2458: end loop;