[Home] [Help]
29: -- Pre-reqs : Sufficient earned revenue must exist.
30: -- Parameters :
31: -- IN : p_api_version NUMBER Required
32: -- p_init_msg_list VARCHAR2 Optional
33: -- Default = FND_API.G_FALSE
34: -- p_commit VARCHAR2 Optional
35: -- Default = FND_API.G_FALSE
36: -- p_validation_level NUMBER Optional
37: -- Default = FND_API.G_VALID_LEVEL_FULL
31: -- IN : p_api_version NUMBER Required
32: -- p_init_msg_list VARCHAR2 Optional
33: -- Default = FND_API.G_FALSE
34: -- p_commit VARCHAR2 Optional
35: -- Default = FND_API.G_FALSE
36: -- p_validation_level NUMBER Optional
37: -- Default = FND_API.G_VALID_LEVEL_FULL
38: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
39: -- OUT NOCOPY : x_return_status VARCHAR2(1)
33: -- Default = FND_API.G_FALSE
34: -- p_commit VARCHAR2 Optional
35: -- Default = FND_API.G_FALSE
36: -- p_validation_level NUMBER Optional
37: -- Default = FND_API.G_VALID_LEVEL_FULL
38: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
39: -- OUT NOCOPY : x_return_status VARCHAR2(1)
40: -- x_msg_count NUMBER
41: -- x_msg_data VARCHAR2(2000)
73: END IF;
74: -- Standard Start of API savepoint
75: SAVEPOINT Unearn_Revenue_PVT;
76: -- Standard call to check for call compatibility.
77: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
78: p_api_version ,
79: l_api_name ,
80: G_PKG_NAME )
81: THEN
82: IF PG_DEBUG in ('Y', 'C') THEN
83: arp_util.debug('Unearn_Revenue: ' || '.Unexpected error '||sqlerrm||
84: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
85: END IF;
86: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
85: END IF;
86: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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:
96: l_rev_adj_rec := p_rev_adj_rec;
97:
98: /*Bug 6731185 JVARKEY Making sure GL date has no timestamp*/
106: ,x_msg_count => x_msg_count
107: ,x_msg_data => x_msg_data
108: ,x_adjustment_id => x_adjustment_id
109: ,x_adjustment_number => x_adjustment_number);
110: IF x_return_status = FND_API.G_RET_STS_ERROR
111: THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
114: THEN
108: ,x_adjustment_id => x_adjustment_id
109: ,x_adjustment_number => x_adjustment_number);
110: IF x_return_status = FND_API.G_RET_STS_ERROR
111: THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
109: ,x_adjustment_number => x_adjustment_number);
110: IF x_return_status = FND_API.G_RET_STS_ERROR
111: THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
117:
111: THEN
112: RAISE FND_API.G_EXC_ERROR;
113: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
117:
118: -- Standard check of p_commit.
119: IF FND_API.To_Boolean( p_commit )
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
117:
118: -- Standard check of p_commit.
119: IF FND_API.To_Boolean( p_commit )
120: THEN
121: COMMIT WORK;
122: END IF;
123: -- Standard call to get message count and if count is 1, get message info.
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
129: arp_util.debug('AR_Revenue_Adjustment_PVT.Unearn_Revenue()-');
128: IF PG_DEBUG in ('Y', 'C') THEN
129: arp_util.debug('AR_Revenue_Adjustment_PVT.Unearn_Revenue()-');
130: END IF;
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,
130: END IF;
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);
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
140: IF PG_DEBUG in ('Y', 'C') THEN
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
140: IF PG_DEBUG in ('Y', 'C') THEN
141: arp_util.debug('Unearn_Revenue: ' || 'Unexpected error '||sqlerrm||
142: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
143: END IF;
141: arp_util.debug('Unearn_Revenue: ' || 'Unexpected error '||sqlerrm||
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);
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
151: IF (SQLCODE = -20001)
153: IF PG_DEBUG in ('Y', 'C') THEN
154: arp_util.debug('Unearn_Revenue: ' || '20001 error '||
155: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
156: END IF;
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: ELSE
159: IF PG_DEBUG in ('Y', 'C') THEN
160: arp_util.debug('Unearn_Revenue: ' || 'Unexpected error '||sqlerrm||
161: ' at AR_Revenue_Adjustment_PVT.Unearn_Revenue()+');
159: IF PG_DEBUG in ('Y', 'C') 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
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;
179:
185: -- Pre-reqs : Sufficient unearned revenue must exist.
186: -- Parameters :
187: -- IN : p_api_version NUMBER Required
188: -- p_init_msg_list VARCHAR2 Optional
189: -- Default = FND_API.G_FALSE
190: -- p_commit VARCHAR2 Optional
191: -- Default = FND_API.G_FALSE
192: -- p_validation_level NUMBER Optional
193: -- Default = FND_API.G_VALID_LEVEL_FULL
187: -- IN : p_api_version NUMBER Required
188: -- p_init_msg_list VARCHAR2 Optional
189: -- Default = FND_API.G_FALSE
190: -- p_commit VARCHAR2 Optional
191: -- Default = FND_API.G_FALSE
192: -- p_validation_level NUMBER Optional
193: -- Default = FND_API.G_VALID_LEVEL_FULL
194: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
195: -- OUT NOCOPY : x_return_status VARCHAR2(1)
189: -- Default = FND_API.G_FALSE
190: -- p_commit VARCHAR2 Optional
191: -- Default = FND_API.G_FALSE
192: -- p_validation_level NUMBER Optional
193: -- Default = FND_API.G_VALID_LEVEL_FULL
194: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
195: -- OUT NOCOPY : x_return_status VARCHAR2(1)
196: -- x_msg_count NUMBER
197: -- x_msg_data VARCHAR2(2000)
229: END IF;
230: -- Standard Start of API savepoint
231: SAVEPOINT Earn_Revenue_PVT;
232: -- Standard call to check for call compatibility.
233: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
234: p_api_version ,
235: l_api_name ,
236: G_PKG_NAME )
237: THEN
238: IF PG_DEBUG in ('Y', 'C') THEN
239: arp_util.debug('Earn_Revenue: ' || 'Unexpected error '||sqlerrm||
240: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
241: END IF;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
241: END IF;
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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:
252: l_rev_adj_rec := p_rev_adj_rec;
253:
254: /*Bug 6731185 JVARKEY Making sure GL date has no timestamp*/
262: ,x_msg_count => x_msg_count
263: ,x_msg_data => x_msg_data
264: ,x_adjustment_id => x_adjustment_id
265: ,x_adjustment_number => x_adjustment_number);
266: IF x_return_status = FND_API.G_RET_STS_ERROR
267: THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
270: THEN
264: ,x_adjustment_id => x_adjustment_id
265: ,x_adjustment_number => x_adjustment_number);
266: IF x_return_status = FND_API.G_RET_STS_ERROR
267: THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
270: THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: END IF;
265: ,x_adjustment_number => x_adjustment_number);
266: IF x_return_status = FND_API.G_RET_STS_ERROR
267: THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
270: THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: END IF;
273: -- Standard check of p_commit.
267: THEN
268: RAISE FND_API.G_EXC_ERROR;
269: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
270: THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: END IF;
273: -- Standard check of p_commit.
274: IF FND_API.To_Boolean( p_commit )
275: THEN
270: THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: END IF;
273: -- Standard check of p_commit.
274: IF FND_API.To_Boolean( p_commit )
275: THEN
276: COMMIT WORK;
277: END IF;
278: -- Standard call to get message count and if count is 1, get message info.
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
284: arp_util.debug('AR_Revenue_Adjustment_PVT.Earn_Revenue()-');
283: IF PG_DEBUG in ('Y', 'C') THEN
284: arp_util.debug('AR_Revenue_Adjustment_PVT.Earn_Revenue()-');
285: END IF;
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,
285: END IF;
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);
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
295: IF PG_DEBUG in ('Y', 'C') THEN
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
295: IF PG_DEBUG in ('Y', 'C') THEN
296: arp_util.debug('Earn_Revenue: ' || 'Unexpected error '||sqlerrm||
297: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
298: END IF;
296: arp_util.debug('Earn_Revenue: ' || 'Unexpected error '||sqlerrm||
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);
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
306: IF (SQLCODE = -20001)
308: IF PG_DEBUG in ('Y', 'C') THEN
309: arp_util.debug('Earn_Revenue: ' || '20001 error '||
310: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
311: END IF;
312: x_return_status := FND_API.G_RET_STS_ERROR ;
313: ELSE
314: IF PG_DEBUG in ('Y', 'C') THEN
315: arp_util.debug('Earn_Revenue: ' || 'Unexpected error '||sqlerrm||
316: ' at AR_Revenue_Adjustment_PVT.Earn_Revenue()+');
314: IF PG_DEBUG in ('Y', 'C') 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
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;
334:
343: -- Pre-reqs : Sufficient unearned revenue must exist.
344: -- Parameters :
345: -- IN : p_api_version NUMBER Required
346: -- p_init_msg_list VARCHAR2 Optional
347: -- Default = FND_API.G_FALSE
348: -- p_commit VARCHAR2 Optional
349: -- Default = FND_API.G_FALSE
350: -- p_validation_level NUMBER Optional
351: -- Default = FND_API.G_VALID_LEVEL_FULL
345: -- IN : p_api_version NUMBER Required
346: -- p_init_msg_list VARCHAR2 Optional
347: -- Default = FND_API.G_FALSE
348: -- p_commit VARCHAR2 Optional
349: -- Default = FND_API.G_FALSE
350: -- p_validation_level NUMBER Optional
351: -- Default = FND_API.G_VALID_LEVEL_FULL
352: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
353: -- OUT NOCOPY : x_return_status VARCHAR2(1)
347: -- Default = FND_API.G_FALSE
348: -- p_commit VARCHAR2 Optional
349: -- Default = FND_API.G_FALSE
350: -- p_validation_level NUMBER Optional
351: -- Default = FND_API.G_VALID_LEVEL_FULL
352: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
353: -- OUT NOCOPY : x_return_status VARCHAR2(1)
354: -- x_msg_count NUMBER
355: -- x_msg_data VARCHAR2(2000)
397: g_update_db_flag := 'N';
398:
399: Earn_Revenue
400: ( p_api_version => 2.0
401: ,p_init_msg_list => FND_API.G_TRUE
402: ,p_commit => FND_API.G_FALSE
403: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
404: ,x_return_status => x_return_status
405: ,x_msg_count => x_msg_count
398:
399: Earn_Revenue
400: ( p_api_version => 2.0
401: ,p_init_msg_list => FND_API.G_TRUE
402: ,p_commit => FND_API.G_FALSE
403: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
404: ,x_return_status => x_return_status
405: ,x_msg_count => x_msg_count
406: ,x_msg_data => x_msg_data
399: Earn_Revenue
400: ( p_api_version => 2.0
401: ,p_init_msg_list => FND_API.G_TRUE
402: ,p_commit => FND_API.G_FALSE
403: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
404: ,x_return_status => x_return_status
405: ,x_msg_count => x_msg_count
406: ,x_msg_data => x_msg_data
407: ,p_rev_adj_rec => p_rev_adj_rec
522: l_rev_adj_rec.gl_date := trunc(p_rev_adj_rec.gl_date);
523:
524: AR_RAAPI_UTIL.Constant_System_Values;
525: AR_RAAPI_UTIL.Initialize_Globals;
526: AR_RAAPI_UTIL.Validate_Parameters (p_init_msg_list => FND_API.G_FALSE
527: ,p_rev_adj_rec => l_rev_adj_rec
528: ,p_validation_level => p_validation_level
529: ,x_return_status => x_return_status
530: ,x_msg_count => x_msg_count
528: ,p_validation_level => p_validation_level
529: ,x_return_status => x_return_status
530: ,x_msg_count => x_msg_count
531: ,x_msg_data => x_msg_data);
532: IF x_return_status = FND_API.G_RET_STS_SUCCESS
533: THEN
534: l_total_adjusted := 0;
535:
536: AR_RAAPI_UTIL.Validate_Amount
533: THEN
534: l_total_adjusted := 0;
535:
536: AR_RAAPI_UTIL.Validate_Amount
537: (p_init_msg_list => FND_API.G_FALSE
538: ,p_customer_trx_line_id => AR_RAAPI_UTIL.g_from_cust_trx_line_id
539: ,p_adjustment_type => p_rev_adj_rec.adjustment_type
540: ,p_amount_mode => p_rev_adj_rec.amount_mode
541: ,p_customer_trx_id => AR_RAAPI_UTIL.g_customer_trx_id
553: ,x_msg_count => x_msg_count
554: ,x_msg_data => x_msg_data);
555: END IF;
556:
557: IF x_return_status = FND_API.G_RET_STS_SUCCESS
558: THEN
559: l_rev_adj_rec.amount := l_revenue_amount;
560: l_line_count := 0;
561:
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
580: originally supplied gl_date. l_gl_date_valid is
629: /* Bug 2651996 - a null return status is being passed back from revenue
630: synchronizer - assume successful */
631: IF x_return_status IS NULL
632: THEN
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634: END IF;
635: IF PG_DEBUG in ('Y', 'C') THEN
636: arp_util.debug('x_return_status : '||x_return_status);
637: END IF;
888: previously recorded in ar_rev_line_adj_gt */
889: IF (arp_rounding.correct_rev_adj_by_line = 0)
890: THEN
891: arp_util.debug('ERROR: arp_rounding.correct_rev_adj_by_line');
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894: END IF;
895:
896: END IF;
906: IF PG_DEBUG in ('Y', 'C') THEN
907: arp_util.debug
908: ('20001 error at AR_Revenue_Adjustment_PVT.earn_or_unearn');
909: END IF;
910: RAISE FND_API.G_EXC_ERROR;
911: ELSE
912: IF PG_DEBUG in ('Y', 'C') THEN
913: arp_util.debug('earn_or_unearn: ' || 'Unexpected error '||sqlerrm||
914: ' at AR_Revenue_Adjustment_PVT.earn_or_unearn()+');
912: IF PG_DEBUG in ('Y', 'C') THEN
913: arp_util.debug('earn_or_unearn: ' || 'Unexpected error '||sqlerrm||
914: ' at AR_Revenue_Adjustment_PVT.earn_or_unearn()+');
915: END IF;
916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
917: END IF;
918: END earn_or_unearn;
919:
920: -----------------------------------------------------------------------
928: -- from whom sales credits are being transferred.
929: -- Parameters :
930: -- IN : p_api_version NUMBER Required
931: -- p_init_msg_list VARCHAR2 Optional
932: -- Default = FND_API.G_FALSE
933: -- p_commit VARCHAR2 Optional
934: -- Default = FND_API.G_FALSE
935: -- p_validation_level NUMBER Optional
936: -- Default = FND_API.G_VALID_LEVEL_FULL
930: -- IN : p_api_version NUMBER Required
931: -- p_init_msg_list VARCHAR2 Optional
932: -- Default = FND_API.G_FALSE
933: -- p_commit VARCHAR2 Optional
934: -- Default = FND_API.G_FALSE
935: -- p_validation_level NUMBER Optional
936: -- Default = FND_API.G_VALID_LEVEL_FULL
937: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
938: -- OUT NOCOPY : x_return_status VARCHAR2(1)
932: -- Default = FND_API.G_FALSE
933: -- p_commit VARCHAR2 Optional
934: -- Default = FND_API.G_FALSE
935: -- p_validation_level NUMBER Optional
936: -- Default = FND_API.G_VALID_LEVEL_FULL
937: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
938: -- OUT NOCOPY : x_return_status VARCHAR2(1)
939: -- x_msg_count NUMBER
940: -- x_msg_data VARCHAR2(2000)
1287: END IF;
1288: -- Standard Start of API savepoint
1289: SAVEPOINT Transfer_Sales_Credits_PVT;
1290: -- Standard call to check for call compatibility.
1291: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1292: p_api_version ,
1293: l_api_name ,
1294: G_PKG_NAME )
1295: THEN
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
1298: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
1299: END IF;
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1299: END IF;
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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:
1310: l_rev_adj_rec := p_rev_adj_rec;
1311:
1312: /*Bug 6731185 JVARKEY Making sure GL date has no timestamp*/
1315: l_rev_adj_rec.adjustment_type := 'SA';
1316:
1317: AR_RAAPI_UTIL.Constant_System_Values;
1318: AR_RAAPI_UTIL.Initialize_Globals;
1319: AR_RAAPI_UTIL.Validate_Parameters (p_init_msg_list => FND_API.G_FALSE
1320: ,p_rev_adj_rec => l_rev_adj_rec
1321: ,p_validation_level => p_validation_level
1322: ,x_return_status => x_return_status
1323: ,x_msg_count => x_msg_count
1321: ,p_validation_level => p_validation_level
1322: ,x_return_status => x_return_status
1323: ,x_msg_count => x_msg_count
1324: ,x_msg_data => x_msg_data);
1325: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1326: THEN
1327: RAISE FND_API.G_EXC_ERROR;
1328: END IF;
1329:
1323: ,x_msg_count => x_msg_count
1324: ,x_msg_data => x_msg_data);
1325: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1326: THEN
1327: RAISE FND_API.G_EXC_ERROR;
1328: END IF;
1329:
1330: --
1331: -- Inner PL/SQL Block to optimize error handling
1363: --
1364: IF p_rev_adj_rec.sales_credit_type IN ('R','B')
1365: THEN
1366: AR_RAAPI_UTIL.Validate_Amount
1367: (p_init_msg_list => FND_API.G_FALSE
1368: ,p_customer_trx_line_id => AR_RAAPI_UTIL.g_from_cust_trx_line_id
1369: ,p_adjustment_type => 'SA'
1370: ,p_amount_mode => p_rev_adj_rec.amount_mode
1371: ,p_customer_trx_id => AR_RAAPI_UTIL.g_customer_trx_id
1381: ,p_line_count_out => l_no_of_lines
1382: ,x_return_status => x_return_status
1383: ,x_msg_count => x_msg_count
1384: ,x_msg_data => x_msg_data);
1385: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1386: THEN
1387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1388: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
1389: THEN
1383: ,x_msg_count => x_msg_count
1384: ,x_msg_data => x_msg_data);
1385: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1386: THEN
1387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1388: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
1389: THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: END IF;
1384: ,x_msg_data => x_msg_data);
1385: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1386: THEN
1387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1388: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
1389: THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: END IF;
1392: l_rev_adj_rec.amount := l_revenue_amount;
1386: THEN
1387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1388: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
1389: THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: END IF;
1392: l_rev_adj_rec.amount := l_revenue_amount;
1393: /* Bug 2146970 - validate the GL date passed in */
1394: l_gl_date_valid := AR_RAAPI_UTIL.bump_gl_date_if_closed
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: --
1404: -- Determine non revenue amount to be transferred
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'
1955: THEN
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');
1971: FND_MSG_PUB.Add;
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',
1976: name => 'AR_RA_INVALID_CODE_COMB');
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
1983: IF PG_DEBUG in ('Y', 'C') THEN
1983: IF PG_DEBUG in ('Y', 'C') THEN
1984: arp_util.debug
1985: ('20001 error at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()');
1986: END IF;
1987: RAISE FND_API.G_EXC_ERROR;
1988: ELSE
1989: IF PG_DEBUG in ('Y', 'C') THEN
1990: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
1991: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
1989: IF PG_DEBUG in ('Y', 'C') THEN
1990: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
1991: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
1992: END IF;
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995: END;
1996: --
1997: -- End of Inner Block
1997: -- End of Inner Block
1998: --
1999:
2000: -- Standard check of p_commit.
2001: IF FND_API.To_Boolean( p_commit )
2002: THEN
2003: COMMIT WORK;
2004: END IF;
2005: -- Standard call to get message count and if count is 1, get message info.
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
2011: arp_util.debug('AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()-');
2010: IF PG_DEBUG in ('Y', 'C') THEN
2011: arp_util.debug('AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()-');
2012: END IF;
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,
2012: END IF;
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);
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
2022: IF PG_DEBUG in ('Y', 'C') THEN
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
2022: IF PG_DEBUG in ('Y', 'C') THEN
2023: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2024: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2025: END IF;
2023: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
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);
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
2033: IF (SQLCODE = -20001)
2035: IF PG_DEBUG in ('Y', 'C') THEN
2036: arp_util.debug('Transfer_Sales_Credits: ' || '20001 error '||
2037: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2038: END IF;
2039: x_return_status := FND_API.G_RET_STS_ERROR ;
2040: ELSE
2041: IF PG_DEBUG in ('Y', 'C') THEN
2042: arp_util.debug('Transfer_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2043: ' at AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits()+');
2041: IF PG_DEBUG in ('Y', 'C') 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
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:
2061: END Transfer_Sales_Credits;
2072: --
2073: -- Parameters :
2074: -- IN : p_api_version NUMBER Required
2075: -- p_init_msg_list VARCHAR2 Optional
2076: -- Default = FND_API.G_FALSE
2077: -- p_commit VARCHAR2 Optional
2078: -- Default = FND_API.G_FALSE
2079: -- p_validation_level NUMBER Optional
2080: -- Default = FND_API.G_VALID_LEVEL_FULL
2074: -- IN : p_api_version NUMBER Required
2075: -- p_init_msg_list VARCHAR2 Optional
2076: -- Default = FND_API.G_FALSE
2077: -- p_commit VARCHAR2 Optional
2078: -- Default = FND_API.G_FALSE
2079: -- p_validation_level NUMBER Optional
2080: -- Default = FND_API.G_VALID_LEVEL_FULL
2081: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
2082: -- OUT NOCOPY : x_return_status VARCHAR2(1)
2076: -- Default = FND_API.G_FALSE
2077: -- p_commit VARCHAR2 Optional
2078: -- Default = FND_API.G_FALSE
2079: -- p_validation_level NUMBER Optional
2080: -- Default = FND_API.G_VALID_LEVEL_FULL
2081: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
2082: -- OUT NOCOPY : x_return_status VARCHAR2(1)
2083: -- x_msg_count NUMBER
2084: -- x_msg_data VARCHAR2(2000)
2215: END IF;
2216: -- Standard Start of API savepoint
2217: SAVEPOINT Add_Non_Rev_Sales_Credits_PVT;
2218: -- Standard call to check for call compatibility.
2219: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2220: p_api_version ,
2221: l_api_name ,
2222: G_PKG_NAME )
2223: THEN
2224: IF PG_DEBUG in ('Y', 'C') THEN
2225: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2226: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2227: END IF;
2228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
2227: END IF;
2228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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:
2238: l_rev_adj_rec := p_rev_adj_rec;
2239:
2240: /*Bug 6731185 JVARKEY Making sure GL date has no timestamp*/
2243: l_rev_adj_rec.adjustment_type := 'NR';
2244:
2245: AR_RAAPI_UTIL.Constant_System_Values;
2246: AR_RAAPI_UTIL.Initialize_Globals;
2247: AR_RAAPI_UTIL.Validate_Parameters (p_init_msg_list => FND_API.G_FALSE
2248: ,p_rev_adj_rec => l_rev_adj_rec
2249: ,p_validation_level => p_validation_level
2250: ,x_return_status => x_return_status
2251: ,x_msg_count => x_msg_count
2249: ,p_validation_level => p_validation_level
2250: ,x_return_status => x_return_status
2251: ,x_msg_count => x_msg_count
2252: ,x_msg_data => x_msg_data);
2253: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2254: THEN
2255: RAISE FND_API.G_EXC_ERROR;
2256: END IF;
2257:
2251: ,x_msg_count => x_msg_count
2252: ,x_msg_data => x_msg_data);
2253: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2254: THEN
2255: RAISE FND_API.G_EXC_ERROR;
2256: END IF;
2257:
2258: --
2259: -- Inner PL/SQL block to ensure consistent error handling
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');
2390: FND_MESSAGE.set_token('TOT_AVAIL_REV',
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
2397: IF PG_DEBUG in ('Y', 'C') THEN
2397: IF PG_DEBUG in ('Y', 'C') THEN
2398: arp_util.debug
2399: ('20001 error at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()');
2400: END IF;
2401: RAISE FND_API.G_EXC_ERROR;
2402: ELSE
2403: IF PG_DEBUG in ('Y', 'C') THEN
2404: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2405: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2403: IF PG_DEBUG in ('Y', 'C') THEN
2404: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2405: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2406: END IF;
2407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2408: END IF;
2409:
2410: END;
2411: --
2412: -- End of Inner Block
2413: --
2414:
2415: -- Standard check of p_commit.
2416: IF FND_API.To_Boolean( p_commit )
2417: THEN
2418: COMMIT WORK;
2419: END IF;
2420: -- Standard call to get message count and if count is 1, get message info.
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
2426: arp_util.debug('AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()-');
2425: IF PG_DEBUG in ('Y', 'C') THEN
2426: arp_util.debug('AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()-');
2427: END IF;
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,
2427: END IF;
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);
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
2437: IF PG_DEBUG in ('Y', 'C') THEN
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
2437: IF PG_DEBUG in ('Y', 'C') THEN
2438: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2439: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2440: END IF;
2438: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
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);
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
2448: IF (SQLCODE = -20001)
2450: IF PG_DEBUG in ('Y', 'C') THEN
2451: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || '20001 error '||
2452: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2453: END IF;
2454: x_return_status := FND_API.G_RET_STS_ERROR ;
2455: ELSE
2456: IF PG_DEBUG in ('Y', 'C') THEN
2457: arp_util.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected error '||sqlerrm||
2458: ' at AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits()+');
2456: IF PG_DEBUG in ('Y', 'C') 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
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;
2476:
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;
2700:
2742: IF PG_DEBUG in ('Y', 'C') THEN
2743: arp_util.debug
2744: ('20001 error at AR_Revenue_Adjustment_PVT.transfer_salesrep_revenue()');
2745: END IF;
2746: RAISE FND_API.G_EXC_ERROR;
2747: ELSE
2748: IF PG_DEBUG in ('Y', 'C') THEN
2749: arp_util.debug('transfer_salesrep_revenue: ' || 'Unexpected error '||sqlerrm||
2750: ' at AR_Revenue_Adjustment_PVT.transfer_salesrep_revenue()+');
2748: IF PG_DEBUG in ('Y', 'C') THEN
2749: arp_util.debug('transfer_salesrep_revenue: ' || 'Unexpected error '||sqlerrm||
2750: ' at AR_Revenue_Adjustment_PVT.transfer_salesrep_revenue()+');
2751: END IF;
2752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2753: END IF;
2754:
2755: END transfer_salesrep_revenue;
2756:
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: --
3431: -- Step 1: Debit earned revenue account
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',
3481: name => 'AR_RA_INVALID_CODE_COMB');
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
3488: IF PG_DEBUG in ('Y', 'C') THEN
3488: IF PG_DEBUG in ('Y', 'C') THEN
3489: arp_util.debug
3490: ('20001 error at AR_Revenue_Adjustment_PVT.debit_credit()');
3491: END IF;
3492: RAISE FND_API.G_EXC_ERROR;
3493: ELSE
3494: IF PG_DEBUG in ('Y', 'C') THEN
3495: arp_util.debug('debit_credit: ' || 'Unexpected error '||sqlerrm||
3496: ' at AR_Revenue_Adjustment_PVT.debit_credit()+');
3494: IF PG_DEBUG in ('Y', 'C') THEN
3495: arp_util.debug('debit_credit: ' || 'Unexpected error '||sqlerrm||
3496: ' at AR_Revenue_Adjustment_PVT.debit_credit()+');
3497: END IF;
3498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3499: END IF;
3500:
3501: END debit_credit;
3502:
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',
3832: name => 'AR_RA_INVALID_CODE_COMB');
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
3839: IF PG_DEBUG in ('Y', 'C') THEN
3839: IF PG_DEBUG in ('Y', 'C') THEN
3840: arp_util.debug
3841: ('20001 error at AR_Revenue_Adjustment_PVT.no_rule_debit_credit()');
3842: END IF;
3843: RAISE FND_API.G_EXC_ERROR;
3844: ELSE
3845: IF PG_DEBUG in ('Y', 'C') THEN
3846: arp_util.debug('no_rule_debit_credit: ' || 'Unexpected error '||sqlerrm||
3847: ' at AR_Revenue_Adjustment_PVT.no_rule_debit_credit()+');
3845: IF PG_DEBUG in ('Y', 'C') THEN
3846: arp_util.debug('no_rule_debit_credit: ' || 'Unexpected error '||sqlerrm||
3847: ' at AR_Revenue_Adjustment_PVT.no_rule_debit_credit()+');
3848: END IF;
3849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3850: END IF;
3851:
3852: END no_rule_debit_credit;
3853:
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
4115: IF PG_DEBUG in ('Y', 'C') THEN
4115: IF PG_DEBUG in ('Y', 'C') THEN
4116: arp_util.debug
4117: ('20001 error at AR_Revenue_Adjustment_PVT.no_rule_debit_credit_no_sr()');
4118: END IF;
4119: RAISE FND_API.G_EXC_ERROR;
4120: ELSE
4121: IF PG_DEBUG in ('Y', 'C') THEN
4122: arp_util.debug('no_rule_debit_credit_no_sr: ' || 'Unexpected error '||sqlerrm||
4123: ' at AR_Revenue_Adjustment_PVT.no_rule_debit_credit()+');
4121: IF PG_DEBUG in ('Y', 'C') THEN
4122: arp_util.debug('no_rule_debit_credit_no_sr: ' || 'Unexpected error '||sqlerrm||
4123: ' at AR_Revenue_Adjustment_PVT.no_rule_debit_credit()+');
4124: END IF;
4125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4126: END IF;
4127:
4128: END no_rule_debit_credit_no_sr;
4129:
4136: -- Pre-reqs : Sufficient earned revenue must exist.
4137: -- Parameters :
4138: -- IN : p_api_version NUMBER Required
4139: -- p_init_msg_list VARCHAR2 Optional
4140: -- Default = FND_API.G_FALSE
4141: -- p_commit VARCHAR2 Optional
4142: -- Default = FND_API.G_FALSE
4143: -- p_validation_level NUMBER Optional
4144: -- Default = FND_API.G_VALID_LEVEL_FULL
4138: -- IN : p_api_version NUMBER Required
4139: -- p_init_msg_list VARCHAR2 Optional
4140: -- Default = FND_API.G_FALSE
4141: -- p_commit VARCHAR2 Optional
4142: -- Default = FND_API.G_FALSE
4143: -- p_validation_level NUMBER Optional
4144: -- Default = FND_API.G_VALID_LEVEL_FULL
4145: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
4146: -- OUT NOCOPY : x_return_status VARCHAR2(1)
4140: -- Default = FND_API.G_FALSE
4141: -- p_commit VARCHAR2 Optional
4142: -- Default = FND_API.G_FALSE
4143: -- p_validation_level NUMBER Optional
4144: -- Default = FND_API.G_VALID_LEVEL_FULL
4145: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
4146: -- OUT NOCOPY : x_return_status VARCHAR2(1)
4147: -- x_msg_count NUMBER
4148: -- x_msg_data VARCHAR2(2000)
4372: END IF;
4373: -- Standard Start of API savepoint
4374: SAVEPOINT Transfer_Rev_Between_Lines_PVT;
4375: -- Standard call to check for call compatibility.
4376: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4377: p_api_version ,
4378: l_api_name ,
4379: G_PKG_NAME )
4380: THEN
4381: IF PG_DEBUG in ('Y', 'C') THEN
4382: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4383: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4384: END IF;
4385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
4384: END IF;
4385: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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:
4395: BEGIN
4396: IF PG_DEBUG in ('Y', 'C') THEN
4397: arp_util.debug('AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines(2)+');
4405: l_rev_adj_rec.adjustment_type := 'LL';
4406:
4407: AR_RAAPI_UTIL.Constant_System_Values;
4408: AR_RAAPI_UTIL.Initialize_Globals;
4409: AR_RAAPI_UTIL.Validate_Parameters (p_init_msg_list => FND_API.G_FALSE
4410: ,p_rev_adj_rec => l_rev_adj_rec
4411: ,p_validation_level => p_validation_level
4412: ,x_return_status => x_return_status
4413: ,x_msg_count => x_msg_count
4411: ,p_validation_level => p_validation_level
4412: ,x_return_status => x_return_status
4413: ,x_msg_count => x_msg_count
4414: ,x_msg_data => x_msg_data);
4415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4416: THEN
4417: RAISE FND_API.G_EXC_ERROR;
4418: END IF;
4419:
4413: ,x_msg_count => x_msg_count
4414: ,x_msg_data => x_msg_data);
4415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
4416: THEN
4417: RAISE FND_API.G_EXC_ERROR;
4418: END IF;
4419:
4420: IF NVL(AR_RAAPI_UTIL.g_from_cust_trx_line_id,-100) =
4421: NVL(AR_RAAPI_UTIL.g_to_cust_trx_line_id,-200)
4452: FETCH c_lines_from_total INTO l_lines_from_total;
4453: CLOSE c_lines_from_total;
4454:
4455: AR_RAAPI_UTIL.Validate_Amount
4456: (p_init_msg_list => FND_API.G_FALSE
4457: ,p_customer_trx_line_id => AR_RAAPI_UTIL.g_from_cust_trx_line_id
4458: ,p_adjustment_type => 'LL'
4459: ,p_amount_mode => p_rev_adj_rec.amount_mode
4460: ,p_customer_trx_id => AR_RAAPI_UTIL.g_customer_trx_id
4470: ,p_line_count_out => l_no_of_lines_from
4471: ,x_return_status => x_return_status
4472: ,x_msg_count => x_msg_count
4473: ,x_msg_data => x_msg_data);
4474: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4475: THEN
4476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4477: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
4478: THEN
4472: ,x_msg_count => x_msg_count
4473: ,x_msg_data => x_msg_data);
4474: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4475: THEN
4476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4477: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
4478: THEN
4479: RAISE FND_API.G_EXC_ERROR;
4480: END IF;
4473: ,x_msg_data => x_msg_data);
4474: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4475: THEN
4476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4477: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
4478: THEN
4479: RAISE FND_API.G_EXC_ERROR;
4480: END IF;
4481: l_rev_adj_rec.amount := l_revenue_amount;
4475: THEN
4476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4477: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
4478: THEN
4479: RAISE FND_API.G_EXC_ERROR;
4480: END IF;
4481: l_rev_adj_rec.amount := l_revenue_amount;
4482:
4483: OPEN c_lines_to_total;
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');
4637: FND_MSG_PUB.Add;
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');
4642: FND_MSG_PUB.Add;
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
4647: IF PG_DEBUG in ('Y', 'C') THEN
4647: IF PG_DEBUG in ('Y', 'C') THEN
4648: arp_util.debug
4649: ('20001 error at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()');
4650: END IF;
4651: RAISE FND_API.G_EXC_ERROR;
4652: ELSE
4653: IF PG_DEBUG in ('Y', 'C') THEN
4654: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4655: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4653: IF PG_DEBUG in ('Y', 'C') THEN
4654: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4655: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4656: END IF;
4657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4658: END IF;
4659: END;
4660: --
4661: -- End of Inner Block
4661: -- End of Inner Block
4662: --
4663:
4664: -- Standard check of p_commit.
4665: IF FND_API.To_Boolean( p_commit )
4666: THEN
4667: COMMIT WORK;
4668: END IF;
4669: -- Standard call to get message count and if count is 1, get message info.
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
4675: arp_util.debug('AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()-');
4674: IF PG_DEBUG in ('Y', 'C') THEN
4675: arp_util.debug('AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()-');
4676: END IF;
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,
4676: END IF;
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);
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
4686: IF PG_DEBUG in ('Y', 'C') THEN
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
4686: IF PG_DEBUG in ('Y', 'C') THEN
4687: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4688: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4689: END IF;
4687: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
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);
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
4697: IF (SQLCODE = -20001)
4699: IF PG_DEBUG in ('Y', 'C') THEN
4700: arp_util.debug('Transfer_Revenue_Between_Lines: ' || '20001 error '||
4701: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4702: END IF;
4703: x_return_status := FND_API.G_RET_STS_ERROR ;
4704: ELSE
4705: IF PG_DEBUG in ('Y', 'C') THEN
4706: arp_util.debug('Transfer_Revenue_Between_Lines: ' || 'Unexpected error '||sqlerrm||
4707: ' at AR_Revenue_Adjustment_PVT.Transfer_Revenue_Between_Lines()+');
4705: IF PG_DEBUG in ('Y', 'C') 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
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:
4725: END Transfer_Revenue_Between_Lines;
4790: IF PG_DEBUG in ('Y', 'C') THEN
4791: arp_util.debug
4792: ('20001 error at AR_Revenue_Adjustment_PVT.reset_dist_percent()');
4793: END IF;
4794: RAISE FND_API.G_EXC_ERROR;
4795: ELSE
4796: IF PG_DEBUG in ('Y', 'C') THEN
4797: arp_util.debug('reset_dist_percent: ' || 'Unexpected error '||sqlerrm||
4798: ' at AR_Revenue_Adjustment_PVT.reset_dist_percent()+');
4796: IF PG_DEBUG in ('Y', 'C') THEN
4797: arp_util.debug('reset_dist_percent: ' || 'Unexpected error '||sqlerrm||
4798: ' at AR_Revenue_Adjustment_PVT.reset_dist_percent()+');
4799: END IF;
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801: END IF;
4802: END reset_dist_percent;
4803:
4804: PROCEDURE create_adjustment
4934: IF PG_DEBUG in ('Y', 'C') THEN
4935: arp_util.debug
4936: ('20001 error at AR_Revenue_Adjustment_PVT.create_adjustment()');
4937: END IF;
4938: RAISE FND_API.G_EXC_ERROR;
4939: ELSE
4940: IF PG_DEBUG in ('Y', 'C') THEN
4941: arp_util.debug('create_adjustment: ' || 'Unexpected error '||sqlerrm||
4942: ' at AR_Revenue_Adjustment_PVT.create_adjustment()+');
4940: IF PG_DEBUG in ('Y', 'C') THEN
4941: arp_util.debug('create_adjustment: ' || 'Unexpected error '||sqlerrm||
4942: ' at AR_Revenue_Adjustment_PVT.create_adjustment()+');
4943: END IF;
4944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4945: END IF;
4946: END create_adjustment;
4947:
4948: PROCEDURE cr_target_line_unearned
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
5142: IF PG_DEBUG in ('Y', 'C') THEN
5142: IF PG_DEBUG in ('Y', 'C') THEN
5143: arp_util.debug
5144: ('20001 error at AR_Revenue_Adjustment_PVT.cr_target_line_unearned()');
5145: END IF;
5146: RAISE FND_API.G_EXC_ERROR;
5147: ELSE
5148: IF PG_DEBUG in ('Y', 'C') THEN
5149: arp_util.debug('cr_target_line_unearned: ' || 'Unexpected error '||sqlerrm||
5150: ' at AR_Revenue_Adjustment_PVT.cr_target_line_unearned()+');
5148: IF PG_DEBUG in ('Y', 'C') THEN
5149: arp_util.debug('cr_target_line_unearned: ' || 'Unexpected error '||sqlerrm||
5150: ' at AR_Revenue_Adjustment_PVT.cr_target_line_unearned()+');
5151: END IF;
5152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5153: END IF;
5154:
5155: END cr_target_line_unearned;
5156:
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
5572: IF PG_DEBUG in ('Y', 'C') THEN
5572: IF PG_DEBUG in ('Y', 'C') THEN
5573: arp_util.debug
5574: ('20001 error at AR_Revenue_Adjustment_PVT.insert_sales_credit()');
5575: END IF;
5576: RAISE FND_API.G_EXC_ERROR;
5577: ELSE
5578: IF PG_DEBUG in ('Y', 'C') THEN
5579: arp_util.debug('insert_sales_credit: ' || 'Unexpected error '||sqlerrm||
5580: ' at AR_Revenue_Adjustment_PVT.insert_sales_credit()+');
5578: IF PG_DEBUG in ('Y', 'C') THEN
5579: arp_util.debug('insert_sales_credit: ' || 'Unexpected error '||sqlerrm||
5580: ' at AR_Revenue_Adjustment_PVT.insert_sales_credit()+');
5581: END IF;
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: END IF;
5584:
5585: END insert_sales_credit;
5586:
5770: IF PG_DEBUG in ('Y', 'C') THEN
5771: arp_util.debug
5772: ('20001 error at AR_Revenue_Adjustment_PVT.record_acceptance()');
5773: END IF;
5774: RAISE FND_API.G_EXC_ERROR;
5775: ELSE
5776: IF PG_DEBUG in ('Y', 'C') THEN
5777: arp_util.debug('Record_Acceptance: ' || 'Unexpected error '||sqlerrm||
5778: ' at AR_Revenue_Adjustment_PVT.record_acceptance()+');
5776: IF PG_DEBUG in ('Y', 'C') THEN
5777: arp_util.debug('Record_Acceptance: ' || 'Unexpected error '||sqlerrm||
5778: ' at AR_Revenue_Adjustment_PVT.record_acceptance()+');
5779: END IF;
5780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5781: END IF;
5782: END Record_Acceptance;
5783:
5784: /* Initialization section */