87: END IF;
88: -- Initialize message list if p_init_msg_list is set to TRUE.
89: IF FND_API.to_Boolean( p_init_msg_list )
90: THEN
91: FND_MSG_PUB.initialize;
92: END IF;
93: -- Initialize API return status to success
94: x_return_status := FND_API.G_RET_STS_SUCCESS;
95:
120: THEN
121: COMMIT WORK;
122: END IF;
123: -- Standard call to get message count and if count is 1, get message info.
124: FND_MSG_PUB.Count_And_Get
125: (p_encoded => FND_API.G_FALSE,
126: p_count => x_msg_count,
127: p_data => x_msg_data);
128: IF PG_DEBUG in ('Y', 'C') THEN
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: ROLLBACK TO Unearn_Revenue_PVT;
134: x_return_status := FND_API.G_RET_STS_ERROR ;
135: FND_MSG_PUB.Count_And_Get
136: (p_encoded => FND_API.G_FALSE,
137: p_count => x_msg_count,
138: p_data => x_msg_data);
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
142: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
143: END IF;
144: ROLLBACK TO Unearn_Revenue_PVT;
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
146: FND_MSG_PUB.Count_And_Get
147: (p_encoded => FND_API.G_FALSE,
148: p_count => x_msg_count,
149: p_data => x_msg_data);
150: WHEN OTHERS THEN
160: arp_util.debug('Unearn_Revenue: ' || 'Unexpected error '||sqlerrm||
161: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
162: END IF;
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164: IF FND_MSG_PUB.Check_Msg_Level
165: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
166: THEN
167: FND_MSG_PUB.Add_Exc_Msg
168: ( G_PKG_NAME ,
161: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
162: END IF;
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164: IF FND_MSG_PUB.Check_Msg_Level
165: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
166: THEN
167: FND_MSG_PUB.Add_Exc_Msg
168: ( G_PKG_NAME ,
169: l_api_name
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164: IF FND_MSG_PUB.Check_Msg_Level
165: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
166: THEN
167: FND_MSG_PUB.Add_Exc_Msg
168: ( G_PKG_NAME ,
169: l_api_name
170: );
171: END IF;
170: );
171: END IF;
172: END IF;
173: ROLLBACK TO Unearn_Revenue_PVT;
174: FND_MSG_PUB.Count_And_Get
175: (p_encoded => FND_API.G_FALSE,
176: p_count => x_msg_count,
177: p_data => x_msg_data);
178: END Unearn_Revenue;
243: END IF;
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list )
246: THEN
247: FND_MSG_PUB.initialize;
248: END IF;
249: -- Initialize API return status to success
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251:
275: THEN
276: COMMIT WORK;
277: END IF;
278: -- Standard call to get message count and if count is 1, get message info.
279: FND_MSG_PUB.Count_And_Get
280: (p_encoded => FND_API.G_FALSE,
281: p_count => x_msg_count,
282: p_data => x_msg_data);
283: IF PG_DEBUG in ('Y', 'C') THEN
286: EXCEPTION
287: WHEN FND_API.G_EXC_ERROR THEN
288: ROLLBACK TO Earn_Revenue_PVT;
289: x_return_status := FND_API.G_RET_STS_ERROR ;
290: FND_MSG_PUB.Count_And_Get
291: (p_encoded => FND_API.G_FALSE,
292: p_count => x_msg_count,
293: p_data => x_msg_data);
294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
298: END IF;
299: ROLLBACK TO Earn_Revenue_PVT;
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
301: FND_MSG_PUB.Count_And_Get
302: (p_encoded => FND_API.G_FALSE,
303: p_count => x_msg_count,
304: p_data => x_msg_data);
305: WHEN OTHERS THEN
315: arp_util.debug('Earn_Revenue: ' || 'Unexpected error '||sqlerrm||
316: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
317: END IF;
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
319: IF FND_MSG_PUB.Check_Msg_Level
320: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
321: THEN
322: FND_MSG_PUB.Add_Exc_Msg
323: ( G_PKG_NAME ,
316: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
317: END IF;
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
319: IF FND_MSG_PUB.Check_Msg_Level
320: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
321: THEN
322: FND_MSG_PUB.Add_Exc_Msg
323: ( G_PKG_NAME ,
324: l_api_name
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
319: IF FND_MSG_PUB.Check_Msg_Level
320: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
321: THEN
322: FND_MSG_PUB.Add_Exc_Msg
323: ( G_PKG_NAME ,
324: l_api_name
325: );
326: END IF;
325: );
326: END IF;
327: END IF;
328: ROLLBACK TO Earn_Revenue_PVT;
329: FND_MSG_PUB.Count_And_Get
330: (p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
332: p_data => x_msg_data);
333: END Earn_Revenue;
571:
572: IF l_gl_date_valid IS NULL
573: THEN
574: FND_MESSAGE.set_name('AR','AR_VAL_GL_DATE');
575: FND_MSG_PUB.Add;
576: RAISE FND_API.G_EXC_ERROR;
577: END IF;
578:
579: /* 7314406 - at this point, l_rev_adj_rec.gl_date is the
1301: END IF;
1302: -- Initialize message list if p_init_msg_list is set to TRUE.
1303: IF FND_API.to_Boolean( p_init_msg_list )
1304: THEN
1305: FND_MSG_PUB.initialize;
1306: END IF;
1307: -- Initialize API return status to success
1308: x_return_status := FND_API.G_RET_STS_SUCCESS;
1309:
1395: (p_gl_date => l_rev_adj_rec.gl_date);
1396: IF l_gl_date_valid IS NULL
1397: THEN
1398: FND_MESSAGE.set_name('AR','AR_VAL_GL_DATE');
1399: FND_MSG_PUB.Add;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: END IF;
1403: --
1946: FND_MESSAGE.set_token('SALES_CREDIT_LIMIT',
1947: arp_global.sysparam.sales_credit_pct_limit);
1948: FND_MESSAGE.set_token('SALESREP_NAME',l_new_salesrep_name);
1949: FND_MESSAGE.set_token('LINE_NUMBER',l_line_number);
1950: FND_MSG_PUB.Add;
1951: RAISE FND_API.G_EXC_ERROR;
1952:
1953: WHEN invalid_amount THEN
1954: IF p_rev_adj_rec.amount_mode = 'P'
1962: (application => 'AR', name => 'AR_RA_AMT_EXCEEDS_AVAIL_REV');
1963: FND_MESSAGE.set_token('TOT_AVAIL_REV',
1964: AR_RAAPI_UTIL.g_trx_currency||' '||l_adj_trx_total);
1965: END IF;
1966: FND_MSG_PUB.Add;
1967: RAISE FND_API.G_EXC_ERROR;
1968: WHEN invalid_zero THEN
1969: FND_MESSAGE.set_name
1970: (application => 'AR', name => 'AR_RA_ZERO_AMOUNT');
1967: RAISE FND_API.G_EXC_ERROR;
1968: WHEN invalid_zero THEN
1969: FND_MESSAGE.set_name
1970: (application => 'AR', name => 'AR_RA_ZERO_AMOUNT');
1971: FND_MSG_PUB.Add;
1972: RAISE FND_API.G_EXC_ERROR;
1973: WHEN invalid_ccid THEN
1974: FND_MSG_PUB.Add;
1975: FND_MESSAGE.SET_NAME(application => 'AR',
1970: (application => 'AR', name => 'AR_RA_ZERO_AMOUNT');
1971: FND_MSG_PUB.Add;
1972: RAISE FND_API.G_EXC_ERROR;
1973: WHEN invalid_ccid THEN
1974: FND_MSG_PUB.Add;
1975: FND_MESSAGE.SET_NAME(application => 'AR',
1976: name => 'AR_RA_INVALID_CODE_COMB');
1977: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
1978: FND_MSG_PUB.Add;
1974: FND_MSG_PUB.Add;
1975: FND_MESSAGE.SET_NAME(application => 'AR',
1976: name => 'AR_RA_INVALID_CODE_COMB');
1977: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
1978: FND_MSG_PUB.Add;
1979: RAISE FND_API.G_EXC_ERROR;
1980: WHEN OTHERS then
1981: IF (SQLCODE = -20001)
1982: THEN
2002: THEN
2003: COMMIT WORK;
2004: END IF;
2005: -- Standard call to get message count and if count is 1, get message info.
2006: FND_MSG_PUB.Count_And_Get
2007: (p_encoded => FND_API.G_FALSE,
2008: p_count => x_msg_count,
2009: p_data => x_msg_data);
2010: IF PG_DEBUG in ('Y', 'C') THEN
2013: EXCEPTION
2014: WHEN FND_API.G_EXC_ERROR THEN
2015: ROLLBACK TO Transfer_Sales_Credits_PVT;
2016: x_return_status := FND_API.G_RET_STS_ERROR ;
2017: FND_MSG_PUB.Count_And_Get
2018: (p_encoded => FND_API.G_FALSE,
2019: p_count => x_msg_count,
2020: p_data => x_msg_data);
2021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2024: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2025: END IF;
2026: ROLLBACK TO Transfer_Sales_Credits_PVT;
2027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2028: FND_MSG_PUB.Count_And_Get
2029: (p_encoded => FND_API.G_FALSE,
2030: p_count => x_msg_count,
2031: p_data => x_msg_data);
2032: WHEN OTHERS THEN
2042: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2043: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2044: END IF;
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2046: IF FND_MSG_PUB.Check_Msg_Level
2047: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2048: THEN
2049: FND_MSG_PUB.Add_Exc_Msg
2050: ( G_PKG_NAME ,
2043: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2044: END IF;
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2046: IF FND_MSG_PUB.Check_Msg_Level
2047: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2048: THEN
2049: FND_MSG_PUB.Add_Exc_Msg
2050: ( G_PKG_NAME ,
2051: l_api_name
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2046: IF FND_MSG_PUB.Check_Msg_Level
2047: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2048: THEN
2049: FND_MSG_PUB.Add_Exc_Msg
2050: ( G_PKG_NAME ,
2051: l_api_name
2052: );
2053: END IF;
2052: );
2053: END IF;
2054: END IF;
2055: ROLLBACK TO Transfer_Sales_Credits_PVT;
2056: FND_MSG_PUB.Count_And_Get
2057: (p_encoded => FND_API.G_FALSE,
2058: p_count => x_msg_count,
2059: p_data => x_msg_data);
2060:
2229: END IF;
2230: -- Initialize message list if p_init_msg_list is set to TRUE.
2231: IF FND_API.to_Boolean( p_init_msg_list )
2232: THEN
2233: FND_MSG_PUB.initialize;
2234: END IF;
2235: -- Initialize API return status to success
2236: x_return_status := FND_API.G_RET_STS_SUCCESS;
2237:
2381: FND_MESSAGE.set_token('SALES_CREDIT_LIMIT',
2382: arp_global.sysparam.sales_credit_pct_limit);
2383: FND_MESSAGE.set_token('SALESREP_NAME',l_new_salesrep_name);
2384: FND_MESSAGE.set_token('LINE_NUMBER',l_line_number);
2385: FND_MSG_PUB.Add;
2386: RAISE FND_API.G_EXC_ERROR;
2387: WHEN invalid_amount THEN
2388: FND_MESSAGE.SET_NAME
2389: (application => 'AR', name => 'AR_RA_AMT_EXCEEDS_AVAIL_REV');
2388: FND_MESSAGE.SET_NAME
2389: (application => 'AR', name => 'AR_RA_AMT_EXCEEDS_AVAIL_REV');
2390: FND_MESSAGE.set_token('TOT_AVAIL_REV',
2391: AR_RAAPI_UTIL.g_trx_currency||' '||'0');
2392: FND_MSG_PUB.Add;
2393: RAISE FND_API.G_EXC_ERROR;
2394: WHEN OTHERS then
2395: IF (SQLCODE = -20001)
2396: THEN
2417: THEN
2418: COMMIT WORK;
2419: END IF;
2420: -- Standard call to get message count and if count is 1, get message info.
2421: FND_MSG_PUB.Count_And_Get
2422: (p_encoded => FND_API.G_FALSE,
2423: p_count => x_msg_count,
2424: p_data => x_msg_data);
2425: IF PG_DEBUG in ('Y', 'C') THEN
2428: EXCEPTION
2429: WHEN FND_API.G_EXC_ERROR THEN
2430: ROLLBACK TO Add_Non_Rev_Sales_Credits_PVT;
2431: x_return_status := FND_API.G_RET_STS_ERROR ;
2432: FND_MSG_PUB.Count_And_Get
2433: (p_encoded => FND_API.G_FALSE,
2434: p_count => x_msg_count,
2435: p_data => x_msg_data);
2436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2439: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2440: END IF;
2441: ROLLBACK TO Add_Non_Rev_Sales_Credits_PVT;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2443: FND_MSG_PUB.Count_And_Get
2444: (p_encoded => FND_API.G_FALSE,
2445: p_count => x_msg_count,
2446: p_data => x_msg_data);
2447: WHEN OTHERS THEN
2457: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2458: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2459: END IF;
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2461: IF FND_MSG_PUB.Check_Msg_Level
2462: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2463: THEN
2464: FND_MSG_PUB.Add_Exc_Msg
2465: ( G_PKG_NAME ,
2458: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2459: END IF;
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2461: IF FND_MSG_PUB.Check_Msg_Level
2462: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2463: THEN
2464: FND_MSG_PUB.Add_Exc_Msg
2465: ( G_PKG_NAME ,
2466: l_api_name
2460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2461: IF FND_MSG_PUB.Check_Msg_Level
2462: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2463: THEN
2464: FND_MSG_PUB.Add_Exc_Msg
2465: ( G_PKG_NAME ,
2466: l_api_name
2467: );
2468: END IF;
2467: );
2468: END IF;
2469: END IF;
2470: ROLLBACK TO Add_Non_Rev_Sales_Credits_PVT;
2471: FND_MSG_PUB.Count_And_Get
2472: (p_encoded => FND_API.G_FALSE,
2473: p_count => x_msg_count,
2474: p_data => x_msg_data);
2475: END Add_Non_Revenue_Sales_Credits;
2691: l_gl_date_valid := AR_RAAPI_UTIL.bump_gl_date_if_closed (p_gl_date => l_gl_date);
2692: IF l_gl_date_valid IS NULL
2693: THEN
2694: FND_MESSAGE.set_name('AR','AR_RA_NO_OPEN_PERIODS');
2695: FND_MSG_PUB.Add;
2696: RAISE FND_API.G_EXC_ERROR;
2697: ELSE
2698: l_gl_date := l_gl_date_valid;
2699: END IF;
3422: (p_gl_date => l_gl_date);
3423: IF l_gl_date_valid IS NULL
3424: THEN
3425: FND_MESSAGE.set_name('AR','AR_RA_NO_OPEN_PERIODS');
3426: FND_MSG_PUB.Add;
3427: RAISE FND_API.G_EXC_ERROR;
3428: END IF;
3429:
3430: --
3472: WHEN invalid_salesrep THEN
3473: FND_MESSAGE.SET_NAME(application => 'AR',
3474: name => 'AR_RA_NO_REV_SALES_CREDIT');
3475: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
3476: FND_MSG_PUB.Add;
3477: RAISE FND_API.G_EXC_ERROR;
3478: WHEN invalid_ccid THEN
3479: FND_MSG_PUB.Add;
3480: FND_MESSAGE.SET_NAME(application => 'AR',
3475: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
3476: FND_MSG_PUB.Add;
3477: RAISE FND_API.G_EXC_ERROR;
3478: WHEN invalid_ccid THEN
3479: FND_MSG_PUB.Add;
3480: FND_MESSAGE.SET_NAME(application => 'AR',
3481: name => 'AR_RA_INVALID_CODE_COMB');
3482: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
3483: FND_MSG_PUB.Add;
3479: FND_MSG_PUB.Add;
3480: FND_MESSAGE.SET_NAME(application => 'AR',
3481: name => 'AR_RA_INVALID_CODE_COMB');
3482: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
3483: FND_MSG_PUB.Add;
3484: RAISE FND_API.G_EXC_ERROR;
3485: WHEN OTHERS then
3486: IF (SQLCODE = -20001)
3487: THEN
3823: WHEN invalid_salesrep THEN
3824: FND_MESSAGE.SET_NAME(application => 'AR',
3825: name => 'AR_RA_NO_REV_SALES_CREDIT');
3826: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
3827: FND_MSG_PUB.Add;
3828: RAISE FND_API.G_EXC_ERROR;
3829: WHEN invalid_ccid THEN
3830: FND_MSG_PUB.Add;
3831: FND_MESSAGE.SET_NAME(application => 'AR',
3826: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
3827: FND_MSG_PUB.Add;
3828: RAISE FND_API.G_EXC_ERROR;
3829: WHEN invalid_ccid THEN
3830: FND_MSG_PUB.Add;
3831: FND_MESSAGE.SET_NAME(application => 'AR',
3832: name => 'AR_RA_INVALID_CODE_COMB');
3833: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
3834: FND_MSG_PUB.Add;
3830: FND_MSG_PUB.Add;
3831: FND_MESSAGE.SET_NAME(application => 'AR',
3832: name => 'AR_RA_INVALID_CODE_COMB');
3833: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
3834: FND_MSG_PUB.Add;
3835: RAISE FND_API.G_EXC_ERROR;
3836: WHEN OTHERS then
3837: IF (SQLCODE = -20001)
3838: THEN
4102: END IF;
4103:
4104: EXCEPTION
4105: WHEN invalid_ccid THEN
4106: FND_MSG_PUB.Add;
4107: FND_MESSAGE.SET_NAME(application => 'AR',
4108: name => 'AR_RA_INVALID_CODE_COMB');
4109: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
4110: FND_MSG_PUB.Add;
4106: FND_MSG_PUB.Add;
4107: FND_MESSAGE.SET_NAME(application => 'AR',
4108: name => 'AR_RA_INVALID_CODE_COMB');
4109: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
4110: FND_MSG_PUB.Add;
4111: RAISE FND_API.G_EXC_ERROR;
4112: WHEN OTHERS then
4113: IF (SQLCODE = -20001)
4114: THEN
4386: END IF;
4387: -- Initialize message list if p_init_msg_list is set to TRUE.
4388: IF FND_API.to_Boolean( p_init_msg_list )
4389: THEN
4390: FND_MSG_PUB.initialize;
4391: END IF;
4392: -- Initialize API return status to success
4393: x_return_status := FND_API.G_RET_STS_SUCCESS;
4394:
4628: END LOOP; -- c_lines_to loop
4629:
4630: EXCEPTION
4631: WHEN invalid_same_lines THEN
4632: FND_MSG_PUB.Add;
4633: RAISE FND_API.G_EXC_ERROR;
4634: WHEN invalid_lines THEN
4635: FND_MESSAGE.SET_NAME (application => 'AR',
4636: name => 'AR_RA_NO_TSFR_LINES_AVAIL');
4633: RAISE FND_API.G_EXC_ERROR;
4634: WHEN invalid_lines THEN
4635: FND_MESSAGE.SET_NAME (application => 'AR',
4636: name => 'AR_RA_NO_TSFR_LINES_AVAIL');
4637: FND_MSG_PUB.Add;
4638: RAISE FND_API.G_EXC_ERROR;
4639: WHEN invalid_tax THEN
4640: FND_MESSAGE.SET_NAME (application => 'AR',
4641: name => 'AR_RA_TAX_TREATMENTS_VARY');
4638: RAISE FND_API.G_EXC_ERROR;
4639: WHEN invalid_tax THEN
4640: FND_MESSAGE.SET_NAME (application => 'AR',
4641: name => 'AR_RA_TAX_TREATMENTS_VARY');
4642: FND_MSG_PUB.Add;
4643: RAISE FND_API.G_EXC_ERROR;
4644: WHEN OTHERS then
4645: IF (SQLCODE = -20001)
4646: THEN
4666: THEN
4667: COMMIT WORK;
4668: END IF;
4669: -- Standard call to get message count and if count is 1, get message info.
4670: FND_MSG_PUB.Count_And_Get
4671: (p_encoded => FND_API.G_FALSE,
4672: p_count => x_msg_count,
4673: p_data => x_msg_data);
4674: IF PG_DEBUG in ('Y', 'C') THEN
4677: EXCEPTION
4678: WHEN FND_API.G_EXC_ERROR THEN
4679: ROLLBACK TO Transfer_Rev_Between_Lines_PVT;
4680: x_return_status := FND_API.G_RET_STS_ERROR ;
4681: FND_MSG_PUB.Count_And_Get
4682: (p_encoded => FND_API.G_FALSE,
4683: p_count => x_msg_count,
4684: p_data => x_msg_data);
4685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4688: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4689: END IF;
4690: ROLLBACK TO Transfer_Rev_Between_Lines_PVT;
4691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4692: FND_MSG_PUB.Count_And_Get
4693: (p_encoded => FND_API.G_FALSE,
4694: p_count => x_msg_count,
4695: p_data => x_msg_data);
4696: WHEN OTHERS THEN
4706: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4707: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4708: END IF;
4709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4710: IF FND_MSG_PUB.Check_Msg_Level
4711: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4712: THEN
4713: FND_MSG_PUB.Add_Exc_Msg
4714: ( G_PKG_NAME ,
4707: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4708: END IF;
4709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4710: IF FND_MSG_PUB.Check_Msg_Level
4711: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4712: THEN
4713: FND_MSG_PUB.Add_Exc_Msg
4714: ( G_PKG_NAME ,
4715: l_api_name
4709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4710: IF FND_MSG_PUB.Check_Msg_Level
4711: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4712: THEN
4713: FND_MSG_PUB.Add_Exc_Msg
4714: ( G_PKG_NAME ,
4715: l_api_name
4716: );
4717: END IF;
4716: );
4717: END IF;
4718: END IF;
4719: ROLLBACK TO Transfer_Rev_Between_Lines_PVT;
4720: FND_MSG_PUB.Count_And_Get
4721: (p_encoded => FND_API.G_FALSE,
4722: p_count => x_msg_count,
4723: p_data => x_msg_data);
4724:
5129:
5130: EXCEPTION
5131:
5132: WHEN invalid_ccid THEN
5133: FND_MSG_PUB.Add;
5134: FND_MESSAGE.SET_NAME(application => 'AR',
5135: name => 'AR_RA_INVALID_CODE_COMB');
5136: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
5137: FND_MSG_PUB.Add;
5133: FND_MSG_PUB.Add;
5134: FND_MESSAGE.SET_NAME(application => 'AR',
5135: name => 'AR_RA_INVALID_CODE_COMB');
5136: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
5137: FND_MSG_PUB.Add;
5138: RAISE FND_API.G_EXC_ERROR;
5139: WHEN OTHERS THEN
5140: IF (SQLCODE = -20001)
5141: THEN
5559: END IF;
5560:
5561: EXCEPTION
5562: WHEN invalid_ccid THEN
5563: FND_MSG_PUB.Add;
5564: FND_MESSAGE.SET_NAME(application => 'AR',
5565: name => 'AR_RA_INVALID_CODE_COMB');
5566: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
5567: FND_MSG_PUB.Add;
5563: FND_MSG_PUB.Add;
5564: FND_MESSAGE.SET_NAME(application => 'AR',
5565: name => 'AR_RA_INVALID_CODE_COMB');
5566: FND_MESSAGE.SET_TOKEN('CODE_COMBINATION',l_concat_segments);
5567: FND_MSG_PUB.Add;
5568: RAISE FND_API.G_EXC_ERROR;
5569: WHEN OTHERS THEN
5570: IF (SQLCODE = -20001)
5571: THEN