39: -- Pre-reqs : Sufficient earned revenue must exist.
40: -- Parameters :
41: -- IN : p_api_version NUMBER Required
42: -- p_init_msg_list VARCHAR2 Optional
43: -- Default = FND_API.G_FALSE
44: -- p_commit VARCHAR2 Optional
45: -- Default = FND_API.G_FALSE
46: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
47: -- OUT NOCOPY : x_return_status VARCHAR2(1)
41: -- IN : p_api_version NUMBER Required
42: -- p_init_msg_list VARCHAR2 Optional
43: -- Default = FND_API.G_FALSE
44: -- p_commit VARCHAR2 Optional
45: -- Default = FND_API.G_FALSE
46: -- p_rev_adj_rec Rev_Adj_Rec_Type Required
47: -- OUT NOCOPY : x_return_status VARCHAR2(1)
48: -- x_msg_count NUMBER
49: -- x_msg_data VARCHAR2(2000)
59: -----------------------------------------------------------------------
60:
61: PROCEDURE Unearn_Revenue
62: ( p_api_version IN NUMBER
63: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
64: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
65: ,x_return_status OUT NOCOPY VARCHAR2
66: ,x_msg_count OUT NOCOPY NUMBER
67: ,x_msg_data OUT NOCOPY VARCHAR2
60:
61: PROCEDURE Unearn_Revenue
62: ( p_api_version IN NUMBER
63: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
64: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
65: ,x_return_status OUT NOCOPY VARCHAR2
66: ,x_msg_count OUT NOCOPY NUMBER
67: ,x_msg_data OUT NOCOPY VARCHAR2
68: ,p_rev_adj_rec IN AR_Revenue_Adjustment_PVT.Rev_Adj_Rec_Type
80: END IF;
81: -- Standard Start of API savepoint
82: SAVEPOINT Unearn_Revenue_PUB;
83: -- Standard call to check for call compatibility.
84: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
85: p_api_version ,
86: l_api_name ,
87: G_PKG_NAME )
88: THEN
89: IF PG_DEBUG in ('Y', 'C') THEN
90: arp_debug.debug('Unearn_Revenue: ' || '.Unexpected EXCEPTION '||sqlerrm||
91: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
92: END IF;
93: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
94: END IF;
95: -- Initialize message list if p_init_msg_list is set to TRUE.
96: IF FND_API.to_Boolean( p_init_msg_list )
97: THEN
92: END IF;
93: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
94: END IF;
95: -- Initialize message list if p_init_msg_list is set to TRUE.
96: IF FND_API.to_Boolean( p_init_msg_list )
97: THEN
98: FND_MSG_PUB.initialize;
99: END IF;
100: -- Initialize API return status to success
97: THEN
98: FND_MSG_PUB.initialize;
99: END IF;
100: -- Initialize API return status to success
101: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: /* SSA change */
103: l_org_id := p_org_id;
104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
100: -- Initialize API return status to success
101: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: /* SSA change */
103: l_org_id := p_org_id;
104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
106: p_return_status =>l_org_return_status);
107: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
108: x_return_status := FND_API.G_RET_STS_ERROR;
103: l_org_id := p_org_id;
104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
106: p_return_status =>l_org_return_status);
107: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: ELSE
110: -- Introduced for the Sales Group Project.
111: -- ORASHID 11-AUG-2003
104: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
105: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
106: p_return_status =>l_org_return_status);
107: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: ELSE
110: -- Introduced for the Sales Group Project.
111: -- ORASHID 11-AUG-2003
112: --
112: --
113: IF NOT group_compatible(p_rev_adj_rec) THEN
114: fnd_message.set_name('AR','AR_INCOMPATIBLE_CREDIT_TYPE');
115: fnd_msg_pub.add;
116: RAISE fnd_api.g_exc_error;
117: END IF;
118:
119: AR_Revenue_Adjustment_PVT.Unearn_Revenue
120: ( p_api_version => 2.0
119: AR_Revenue_Adjustment_PVT.Unearn_Revenue
120: ( p_api_version => 2.0
121: ,p_init_msg_list => p_init_msg_list
122: ,p_commit => p_commit
123: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
124: ,x_return_status => x_return_status
125: ,x_msg_count => x_msg_count
126: ,x_msg_data => x_msg_data
127: ,p_rev_adj_rec => p_rev_adj_rec
128: ,x_adjustment_id => x_adjustment_id
129: ,x_adjustment_number => x_adjustment_number);
130:
131: -- Standard check of p_commit.
132: IF FND_API.To_Boolean( p_commit )
133: THEN
134: COMMIT WORK;
135: END IF;
136: END IF;
135: END IF;
136: END IF;
137: -- Standard call to get message count and if count is 1, get message info.
138: FND_MSG_PUB.Count_And_Get
139: (p_encoded => FND_API.G_FALSE,
140: p_count => x_msg_count,
141: p_data => x_msg_data);
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
139: (p_encoded => FND_API.G_FALSE,
140: p_count => x_msg_count,
141: p_data => x_msg_data);
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: ROLLBACK TO Unearn_Revenue_PUB;
145: x_return_status := FND_API.G_RET_STS_ERROR ;
146: FND_MSG_PUB.Count_And_Get
147: (p_encoded => FND_API.G_FALSE,
141: p_data => x_msg_data);
142: EXCEPTION
143: WHEN FND_API.G_EXC_ERROR THEN
144: ROLLBACK TO Unearn_Revenue_PUB;
145: x_return_status := FND_API.G_RET_STS_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: WHEN FND_API.G_EXC_ERROR THEN
144: ROLLBACK TO Unearn_Revenue_PUB;
145: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
151: IF PG_DEBUG in ('Y', 'C') THEN
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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
151: IF PG_DEBUG in ('Y', 'C') THEN
152: arp_debug.debug('Unearn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
153: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
154: END IF;
152: arp_debug.debug('Unearn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
153: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
154: END IF;
155: ROLLBACK TO Unearn_Revenue_PUB;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157: FND_MSG_PUB.Count_And_Get
158: (p_encoded => FND_API.G_FALSE,
159: p_count => x_msg_count,
160: p_data => x_msg_data);
154: END IF;
155: ROLLBACK TO Unearn_Revenue_PUB;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157: FND_MSG_PUB.Count_And_Get
158: (p_encoded => FND_API.G_FALSE,
159: p_count => x_msg_count,
160: p_data => x_msg_data);
161: WHEN OTHERS THEN
162: IF PG_DEBUG in ('Y', 'C') THEN
163: arp_debug.debug('Unearn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
164: ' at AR_RevenueAdjust_PUB.Unearn_Revenue()+');
165: END IF;
166: ROLLBACK TO Unearn_Revenue_PUB;
167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
168: IF FND_MSG_PUB.Check_Msg_Level
169: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
170: THEN
171: FND_MSG_PUB.Add_Exc_Msg
173: l_api_name
174: );
175: END IF;
176: FND_MSG_PUB.Count_And_Get
177: (p_encoded => FND_API.G_FALSE,
178: p_count => x_msg_count,
179: p_data => x_msg_data);
180: END Unearn_Revenue;
181:
187: -- Pre-reqs : Sufficient unearned revenue must exist.
188: -- Parameters :
189: -- IN : p_api_version NUMBER Required
190: -- p_init_msg_list VARCHAR2 Optional
191: -- Default = FND_API.G_FALSE
192: -- p_commit VARCHAR2 Optional
193: -- Default = FND_API.G_FALSE
194: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
195: -- OUT NOCOPY : x_return_status VARCHAR2(1)
189: -- IN : p_api_version NUMBER Required
190: -- p_init_msg_list VARCHAR2 Optional
191: -- Default = FND_API.G_FALSE
192: -- p_commit VARCHAR2 Optional
193: -- Default = FND_API.G_FALSE
194: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
195: -- OUT NOCOPY : x_return_status VARCHAR2(1)
196: -- x_msg_count NUMBER
197: -- x_msg_data VARCHAR2(2000)
206: --
207: -----------------------------------------------------------------------
208: PROCEDURE Earn_Revenue
209: ( p_api_version IN NUMBER
210: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
211: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
212: ,x_return_status OUT NOCOPY VARCHAR2
213: ,x_msg_count OUT NOCOPY NUMBER
214: ,x_msg_data OUT NOCOPY VARCHAR2
207: -----------------------------------------------------------------------
208: PROCEDURE Earn_Revenue
209: ( p_api_version IN NUMBER
210: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
211: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
212: ,x_return_status OUT NOCOPY VARCHAR2
213: ,x_msg_count OUT NOCOPY NUMBER
214: ,x_msg_data OUT NOCOPY VARCHAR2
215: ,p_rev_adj_rec IN AR_Revenue_Adjustment_PVT.Rev_Adj_Rec_Type
224: BEGIN
225: -- Standard Start of API savepoint
226: SAVEPOINT Earn_Revenue_PUB;
227: -- Standard call to check for call compatibility.
228: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
229: p_api_version ,
230: l_api_name ,
231: G_PKG_NAME )
232: THEN
233: IF PG_DEBUG in ('Y', 'C') THEN
234: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
235: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
236: END IF;
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: END IF;
239: -- Initialize message list if p_init_msg_list is set to TRUE.
240: IF FND_API.to_Boolean( p_init_msg_list )
241: THEN
236: END IF;
237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
238: END IF;
239: -- Initialize message list if p_init_msg_list is set to TRUE.
240: IF FND_API.to_Boolean( p_init_msg_list )
241: THEN
242: FND_MSG_PUB.initialize;
243: END IF;
244: -- Initialize API return status to success
241: THEN
242: FND_MSG_PUB.initialize;
243: END IF;
244: -- Initialize API return status to success
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: /* SSA change */
248: l_org_id := p_org_id;
249: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
247: /* SSA change */
248: l_org_id := p_org_id;
249: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
250: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
251: p_return_status =>l_org_return_status);
252: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
253: x_return_status := FND_API.G_RET_STS_ERROR;
248: l_org_id := p_org_id;
249: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
250: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
251: p_return_status =>l_org_return_status);
252: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: ELSE
255: -- Introduced for the Sales Group Project.
256: -- ORASHID 11-AUG-2003
249: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
250: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
251: p_return_status =>l_org_return_status);
252: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: ELSE
255: -- Introduced for the Sales Group Project.
256: -- ORASHID 11-AUG-2003
257: --
257: --
258: IF NOT group_compatible(p_rev_adj_rec) THEN
259: fnd_message.set_name('AR','AR_INCOMPATIBLE_CREDIT_TYPE');
260: fnd_msg_pub.add;
261: RAISE fnd_api.g_exc_error;
262: END IF;
263:
264: AR_Revenue_Adjustment_PVT.Earn_Revenue
265: ( p_api_version => 2.0
264: AR_Revenue_Adjustment_PVT.Earn_Revenue
265: ( p_api_version => 2.0
266: ,p_init_msg_list => p_init_msg_list
267: ,p_commit => p_commit
268: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
269: ,x_return_status => x_return_status
270: ,x_msg_count => x_msg_count
271: ,x_msg_data => x_msg_data
272: ,p_rev_adj_rec => p_rev_adj_rec
273: ,x_adjustment_id => x_adjustment_id
274: ,x_adjustment_number => x_adjustment_number);
275:
276: -- Standard check of p_commit.
277: IF FND_API.To_Boolean( p_commit )
278: THEN
279: COMMIT WORK;
280: END IF;
281: -- Standard call to get message count and if count is 1, get message info.
280: END IF;
281: -- Standard call to get message count and if count is 1, get message info.
282: END IF;
283: FND_MSG_PUB.Count_And_Get
284: (p_encoded => FND_API.G_FALSE,
285: p_count => x_msg_count,
286: p_data => x_msg_data);
287: EXCEPTION
288: WHEN FND_API.G_EXC_ERROR THEN
284: (p_encoded => FND_API.G_FALSE,
285: p_count => x_msg_count,
286: p_data => x_msg_data);
287: EXCEPTION
288: WHEN FND_API.G_EXC_ERROR THEN
289: ROLLBACK TO Earn_Revenue_PUB;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
291: FND_MSG_PUB.Count_And_Get
292: (p_encoded => FND_API.G_FALSE,
286: p_data => x_msg_data);
287: EXCEPTION
288: WHEN FND_API.G_EXC_ERROR THEN
289: ROLLBACK TO Earn_Revenue_PUB;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
291: FND_MSG_PUB.Count_And_Get
292: (p_encoded => FND_API.G_FALSE,
293: p_count => x_msg_count,
294: p_data => x_msg_data);
288: WHEN FND_API.G_EXC_ERROR THEN
289: ROLLBACK TO Earn_Revenue_PUB;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
291: FND_MSG_PUB.Count_And_Get
292: (p_encoded => FND_API.G_FALSE,
293: p_count => x_msg_count,
294: p_data => x_msg_data);
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
291: FND_MSG_PUB.Count_And_Get
292: (p_encoded => FND_API.G_FALSE,
293: p_count => x_msg_count,
294: p_data => x_msg_data);
295: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
298: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
299: END IF;
297: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
298: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
299: END IF;
300: ROLLBACK TO Earn_Revenue_PUB;
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
302: FND_MSG_PUB.Count_And_Get
303: (p_encoded => FND_API.G_FALSE,
304: p_count => x_msg_count,
305: p_data => x_msg_data);
299: END IF;
300: ROLLBACK TO Earn_Revenue_PUB;
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
302: FND_MSG_PUB.Count_And_Get
303: (p_encoded => FND_API.G_FALSE,
304: p_count => x_msg_count,
305: p_data => x_msg_data);
306: WHEN OTHERS THEN
307: IF PG_DEBUG in ('Y', 'C') THEN
308: arp_debug.debug('Earn_Revenue: ' || 'Unexpected EXCEPTION '||sqlerrm||
309: ' at AR_RevenueAdjust_PUB.Earn_Revenue()+');
310: END IF;
311: ROLLBACK TO Earn_Revenue_PUB;
312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
313: IF FND_MSG_PUB.Check_Msg_Level
314: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
315: THEN
316: FND_MSG_PUB.Add_Exc_Msg
318: l_api_name
319: );
320: END IF;
321: FND_MSG_PUB.Count_And_Get
322: (p_encoded => FND_API.G_FALSE,
323: p_count => x_msg_count,
324: p_data => x_msg_data);
325: END Earn_Revenue;
326:
335: -- from whom sales credits are being transferred.
336: -- Parameters :
337: -- IN : p_api_version NUMBER Required
338: -- p_init_msg_list VARCHAR2 Optional
339: -- Default = FND_API.G_FALSE
340: -- p_commit VARCHAR2 Optional
341: -- Default = FND_API.G_FALSE
342: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
343: -- OUT NOCOPY : x_return_status VARCHAR2(1)
337: -- IN : p_api_version NUMBER Required
338: -- p_init_msg_list VARCHAR2 Optional
339: -- Default = FND_API.G_FALSE
340: -- p_commit VARCHAR2 Optional
341: -- Default = FND_API.G_FALSE
342: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
343: -- OUT NOCOPY : x_return_status VARCHAR2(1)
344: -- x_msg_count NUMBER
345: -- x_msg_data VARCHAR2(2000)
354: --
355: -----------------------------------------------------------------------
356: PROCEDURE Transfer_Sales_Credits
357: ( p_api_version IN NUMBER
358: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
359: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
360: ,x_return_status OUT NOCOPY VARCHAR2
361: ,x_msg_count OUT NOCOPY NUMBER
362: ,x_msg_data OUT NOCOPY VARCHAR2
355: -----------------------------------------------------------------------
356: PROCEDURE Transfer_Sales_Credits
357: ( p_api_version IN NUMBER
358: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
359: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
360: ,x_return_status OUT NOCOPY VARCHAR2
361: ,x_msg_count OUT NOCOPY NUMBER
362: ,x_msg_data OUT NOCOPY VARCHAR2
363: ,p_rev_adj_rec IN AR_Revenue_Adjustment_PVT.Rev_Adj_Rec_Type
376: END IF;
377: -- Standard Start of API savepoint
378: SAVEPOINT Transfer_Sales_Credits_PUB;
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
381: p_api_version ,
382: l_api_name ,
383: G_PKG_NAME )
384: THEN
385: IF PG_DEBUG in ('Y', 'C') THEN
386: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
387: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
388: END IF;
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
391: -- Initialize message list if p_init_msg_list is set to TRUE.
392: IF FND_API.to_Boolean( p_init_msg_list )
393: THEN
388: END IF;
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
391: -- Initialize message list if p_init_msg_list is set to TRUE.
392: IF FND_API.to_Boolean( p_init_msg_list )
393: THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396: -- Initialize API return status to success
393: THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396: -- Initialize API return status to success
397: x_return_status := FND_API.G_RET_STS_SUCCESS;
398:
399:
400:
401: /* SSA change */
399:
400:
401: /* SSA change */
402: l_org_id := p_org_id;
403: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
404: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
405: p_return_status =>l_org_return_status);
406: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
407: x_return_status := FND_API.G_RET_STS_ERROR;
402: l_org_id := p_org_id;
403: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
404: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
405: p_return_status =>l_org_return_status);
406: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: ELSE
409: -- Introduced for the Sales Group Project.
410: -- ORASHID 11-AUG-2003
403: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
404: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
405: p_return_status =>l_org_return_status);
406: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: ELSE
409: -- Introduced for the Sales Group Project.
410: -- ORASHID 11-AUG-2003
411: --
411: --
412: IF NOT group_compatible(p_rev_adj_rec) THEN
413: fnd_message.set_name('AR','AR_INCOMPATIBLE_CREDIT_TYPE');
414: fnd_msg_pub.add;
415: RAISE fnd_api.g_exc_error;
416: END IF;
417:
418: AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits
419: ( p_api_version => 2.0
418: AR_Revenue_Adjustment_PVT.Transfer_Sales_Credits
419: ( p_api_version => 2.0
420: ,p_init_msg_list => p_init_msg_list
421: ,p_commit => p_commit
422: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
423: ,x_return_status => x_return_status
424: ,x_msg_count => x_msg_count
425: ,x_msg_data => x_msg_data
426: ,p_rev_adj_rec => p_rev_adj_rec
427: ,x_adjustment_id => x_adjustment_id
428: ,x_adjustment_number => x_adjustment_number);
429:
430: -- Standard check of p_commit.
431: IF FND_API.To_Boolean( p_commit )
432: THEN
433: COMMIT WORK;
434: END IF;
435: END IF;
434: END IF;
435: END IF;
436: -- Standard call to get message count and if count is 1, get message info.
437: FND_MSG_PUB.Count_And_Get
438: (p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
440: p_data => x_msg_data);
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
438: (p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
440: p_data => x_msg_data);
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: ROLLBACK TO Transfer_Sales_Credits_PUB;
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445: FND_MSG_PUB.Count_And_Get
446: (p_encoded => FND_API.G_FALSE,
440: p_data => x_msg_data);
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: ROLLBACK TO Transfer_Sales_Credits_PUB;
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445: FND_MSG_PUB.Count_And_Get
446: (p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
442: WHEN FND_API.G_EXC_ERROR THEN
443: ROLLBACK TO Transfer_Sales_Credits_PUB;
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445: FND_MSG_PUB.Count_And_Get
446: (p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: IF PG_DEBUG in ('Y', 'C') THEN
445: FND_MSG_PUB.Count_And_Get
446: (p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
452: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
453: END IF;
451: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
452: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
453: END IF;
454: ROLLBACK TO Transfer_Sales_Credits_PUB;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
456: FND_MSG_PUB.Count_And_Get
457: (p_encoded => FND_API.G_FALSE,
458: p_count => x_msg_count,
459: p_data => x_msg_data);
453: END IF;
454: ROLLBACK TO Transfer_Sales_Credits_PUB;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
456: FND_MSG_PUB.Count_And_Get
457: (p_encoded => FND_API.G_FALSE,
458: p_count => x_msg_count,
459: p_data => x_msg_data);
460: WHEN OTHERS THEN
461: IF PG_DEBUG in ('Y', 'C') THEN
462: arp_debug.debug('Transfer_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
463: ' at AR_RevenueAdjust_PUB.Transfer_Sales_Credits()+');
464: END IF;
465: ROLLBACK TO Transfer_Sales_Credits_PUB;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
467: IF FND_MSG_PUB.Check_Msg_Level
468: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
469: THEN
470: FND_MSG_PUB.Add_Exc_Msg
472: l_api_name
473: );
474: END IF;
475: FND_MSG_PUB.Count_And_Get
476: (p_encoded => FND_API.G_FALSE,
477: p_count => x_msg_count,
478: p_data => x_msg_data);
479:
480: END Transfer_Sales_Credits;
491: --
492: -- Parameters :
493: -- IN : p_api_version NUMBER Required
494: -- p_init_msg_list VARCHAR2 Optional
495: -- Default = FND_API.G_FALSE
496: -- p_commit VARCHAR2 Optional
497: -- Default = FND_API.G_FALSE
498: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
499: -- OUT NOCOPY : x_return_status VARCHAR2(1)
493: -- IN : p_api_version NUMBER Required
494: -- p_init_msg_list VARCHAR2 Optional
495: -- Default = FND_API.G_FALSE
496: -- p_commit VARCHAR2 Optional
497: -- Default = FND_API.G_FALSE
498: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
499: -- OUT NOCOPY : x_return_status VARCHAR2(1)
500: -- x_msg_count NUMBER
501: -- x_msg_data VARCHAR2(2000)
509: -- Notes :
510: --
511: PROCEDURE Add_Non_Revenue_Sales_Credits
512: ( p_api_version IN NUMBER
513: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
514: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
515: ,x_return_status OUT NOCOPY VARCHAR2
516: ,x_msg_count OUT NOCOPY NUMBER
517: ,x_msg_data OUT NOCOPY VARCHAR2
510: --
511: PROCEDURE Add_Non_Revenue_Sales_Credits
512: ( p_api_version IN NUMBER
513: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
514: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
515: ,x_return_status OUT NOCOPY VARCHAR2
516: ,x_msg_count OUT NOCOPY NUMBER
517: ,x_msg_data OUT NOCOPY VARCHAR2
518: ,p_rev_adj_rec IN AR_Revenue_Adjustment_PVT.Rev_Adj_Rec_Type
533: END IF;
534: -- Standard Start of API savepoint
535: SAVEPOINT Add_Non_Rev_Sales_Credits_PUB;
536: -- Standard call to check for call compatibility.
537: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
538: p_api_version ,
539: l_api_name ,
540: G_PKG_NAME )
541: THEN
542: IF PG_DEBUG in ('Y', 'C') THEN
543: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
544: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
545: END IF;
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: END IF;
548: -- Initialize message list if p_init_msg_list is set to TRUE.
549: IF FND_API.to_Boolean( p_init_msg_list )
550: THEN
545: END IF;
546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
547: END IF;
548: -- Initialize message list if p_init_msg_list is set to TRUE.
549: IF FND_API.to_Boolean( p_init_msg_list )
550: THEN
551: FND_MSG_PUB.initialize;
552: END IF;
553: -- Initialize API return status to success
550: THEN
551: FND_MSG_PUB.initialize;
552: END IF;
553: -- Initialize API return status to success
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555:
556: /* SSA change */
557: l_org_id := p_org_id;
558: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555:
556: /* SSA change */
557: l_org_id := p_org_id;
558: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
559: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
560: p_return_status =>l_org_return_status);
561: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
562: x_return_status := FND_API.G_RET_STS_ERROR;
557: l_org_id := p_org_id;
558: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
559: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
560: p_return_status =>l_org_return_status);
561: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: ELSE
564: -- Introduced for the Sales Group Project.
565: -- ORASHID 11-AUG-2003
558: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
559: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
560: p_return_status =>l_org_return_status);
561: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: ELSE
564: -- Introduced for the Sales Group Project.
565: -- ORASHID 11-AUG-2003
566: --
566: --
567: IF NOT group_compatible(p_rev_adj_rec) THEN
568: fnd_message.set_name('AR','AR_INCOMPATIBLE_CREDIT_TYPE');
569: fnd_msg_pub.add;
570: RAISE fnd_api.g_exc_error;
571: END IF;
572:
573: AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits
574: ( p_api_version => 2.0
573: AR_Revenue_Adjustment_PVT.Add_Non_Revenue_Sales_Credits
574: ( p_api_version => 2.0
575: ,p_init_msg_list => p_init_msg_list
576: ,p_commit => p_commit
577: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
578: ,x_return_status => x_return_status
579: ,x_msg_count => x_msg_count
580: ,x_msg_data => x_msg_data
581: ,p_rev_adj_rec => p_rev_adj_rec
582: ,x_adjustment_id => x_adjustment_id
583: ,x_adjustment_number => x_adjustment_number);
584:
585: -- Standard check of p_commit.
586: IF FND_API.To_Boolean( p_commit )
587: THEN
588: COMMIT WORK;
589: END IF;
590: END IF;
589: END IF;
590: END IF;
591: -- Standard call to get message count and if count is 1, get message info.
592: FND_MSG_PUB.Count_And_Get
593: (p_encoded => FND_API.G_FALSE,
594: p_count => x_msg_count,
595: p_data => x_msg_data);
596: EXCEPTION
597: WHEN FND_API.G_EXC_ERROR THEN
593: (p_encoded => FND_API.G_FALSE,
594: p_count => x_msg_count,
595: p_data => x_msg_data);
596: EXCEPTION
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: FND_MSG_PUB.Count_And_Get
601: (p_encoded => FND_API.G_FALSE,
595: p_data => x_msg_data);
596: EXCEPTION
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: FND_MSG_PUB.Count_And_Get
601: (p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data);
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: FND_MSG_PUB.Count_And_Get
601: (p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data);
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: IF PG_DEBUG in ('Y', 'C') THEN
600: FND_MSG_PUB.Count_And_Get
601: (p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data);
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: IF PG_DEBUG in ('Y', 'C') THEN
606: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
607: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
608: END IF;
606: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
607: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
608: END IF;
609: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
611: FND_MSG_PUB.Count_And_Get
612: (p_encoded => FND_API.G_FALSE,
613: p_count => x_msg_count,
614: p_data => x_msg_data);
608: END IF;
609: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
611: FND_MSG_PUB.Count_And_Get
612: (p_encoded => FND_API.G_FALSE,
613: p_count => x_msg_count,
614: p_data => x_msg_data);
615: WHEN OTHERS THEN
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_debug.debug('Add_Non_Revenue_Sales_Credits: ' || 'Unexpected EXCEPTION '||sqlerrm||
618: ' at AR_RevenueAdjust_PUB.Add_Non_Revenue_Sales_Credits()+');
619: END IF;
620: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
622: IF FND_MSG_PUB.Check_Msg_Level
623: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
624: THEN
625: FND_MSG_PUB.Add_Exc_Msg
627: l_api_name
628: );
629: END IF;
630: FND_MSG_PUB.Count_And_Get
631: (p_encoded => FND_API.G_FALSE,
632: p_count => x_msg_count,
633: p_data => x_msg_data);
634: END Add_Non_Revenue_Sales_Credits;
635:
645: --
646: -- Parameters :
647: -- IN : p_api_version NUMBER Required
648: -- p_init_msg_list VARCHAR2 Optional
649: -- Default = FND_API.G_FALSE
650: -- p_commit VARCHAR2 Optional
651: -- Default = FND_API.G_FALSE
652: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
653: -- OUT NOCOPY : x_return_status VARCHAR2(1)
647: -- IN : p_api_version NUMBER Required
648: -- p_init_msg_list VARCHAR2 Optional
649: -- Default = FND_API.G_FALSE
650: -- p_commit VARCHAR2 Optional
651: -- Default = FND_API.G_FALSE
652: -- p_rev_adj_rec Rev_Adj_Rec_Type Optional
653: -- OUT NOCOPY : x_return_status VARCHAR2(1)
654: -- x_msg_count NUMBER
655: -- x_msg_data VARCHAR2(2000)
661: -- Notes :
662: --
663: PROCEDURE Record_Customer_Acceptance
664: ( p_api_version IN NUMBER
665: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
666: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
667: ,x_return_status OUT NOCOPY VARCHAR2
668: ,x_msg_count OUT NOCOPY NUMBER
669: ,x_msg_data OUT NOCOPY VARCHAR2
662: --
663: PROCEDURE Record_Customer_Acceptance
664: ( p_api_version IN NUMBER
665: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
666: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
667: ,x_return_status OUT NOCOPY VARCHAR2
668: ,x_msg_count OUT NOCOPY NUMBER
669: ,x_msg_data OUT NOCOPY VARCHAR2
670: ,p_rev_adj_rec IN AR_Revenue_Adjustment_PVT.Rev_Adj_Rec_Type
687: END IF;
688: -- Standard Start of API savepoint
689: SAVEPOINT Record_Customer_Acceptance_PUB;
690: -- Standard call to check for call compatibility.
691: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
692: p_api_version ,
693: l_api_name ,
694: G_PKG_NAME )
695: THEN
696: IF PG_DEBUG in ('Y', 'C') THEN
697: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
698: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
699: END IF;
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: END IF;
702: -- Initialize message list if p_init_msg_list is set to TRUE.
703: IF FND_API.to_Boolean( p_init_msg_list )
704: THEN
699: END IF;
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: END IF;
702: -- Initialize message list if p_init_msg_list is set to TRUE.
703: IF FND_API.to_Boolean( p_init_msg_list )
704: THEN
705: FND_MSG_PUB.initialize;
706: END IF;
707: -- Initialize API return status to success
704: THEN
705: FND_MSG_PUB.initialize;
706: END IF;
707: -- Initialize API return status to success
708: x_return_status := FND_API.G_RET_STS_SUCCESS;
709:
710: /* SSA change */
711: l_org_id := p_org_id;
712: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
708: x_return_status := FND_API.G_RET_STS_SUCCESS;
709:
710: /* SSA change */
711: l_org_id := p_org_id;
712: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
713: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
714: p_return_status =>l_org_return_status);
715: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
716: x_return_status := FND_API.G_RET_STS_ERROR;
711: l_org_id := p_org_id;
712: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
713: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
714: p_return_status =>l_org_return_status);
715: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: ELSE
718: /* Copy desc flexfield data */
719: li_desc_flexfield.attribute_category := p_rev_adj_rec.attribute_category;
712: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
713: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
714: p_return_status =>l_org_return_status);
715: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: ELSE
718: /* Copy desc flexfield data */
719: li_desc_flexfield.attribute_category := p_rev_adj_rec.attribute_category;
720: li_desc_flexfield.attribute1 := p_rev_adj_rec.attribute1;
769: arp_debug.debug('result (scenario)= ' || l_scenario);
770: END IF;
771:
772: -- Standard check of p_commit.
773: IF FND_API.To_Boolean( p_commit )
774: THEN
775: COMMIT WORK;
776: END IF;
777: END IF;
776: END IF;
777: END IF;
778: -- Standard call to get message count and if count is 1, get message info.
779: FND_MSG_PUB.Count_And_Get
780: (p_encoded => FND_API.G_FALSE,
781: p_count => x_msg_count,
782: p_data => x_msg_data);
783: EXCEPTION
784: WHEN FND_API.G_EXC_ERROR THEN
780: (p_encoded => FND_API.G_FALSE,
781: p_count => x_msg_count,
782: p_data => x_msg_data);
783: EXCEPTION
784: WHEN FND_API.G_EXC_ERROR THEN
785: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
786: x_return_status := FND_API.G_RET_STS_ERROR ;
787: FND_MSG_PUB.Count_And_Get
788: (p_encoded => FND_API.G_FALSE,
782: p_data => x_msg_data);
783: EXCEPTION
784: WHEN FND_API.G_EXC_ERROR THEN
785: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
786: x_return_status := FND_API.G_RET_STS_ERROR ;
787: FND_MSG_PUB.Count_And_Get
788: (p_encoded => FND_API.G_FALSE,
789: p_count => x_msg_count,
790: p_data => x_msg_data);
784: WHEN FND_API.G_EXC_ERROR THEN
785: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
786: x_return_status := FND_API.G_RET_STS_ERROR ;
787: FND_MSG_PUB.Count_And_Get
788: (p_encoded => FND_API.G_FALSE,
789: p_count => x_msg_count,
790: p_data => x_msg_data);
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: IF PG_DEBUG in ('Y', 'C') THEN
787: FND_MSG_PUB.Count_And_Get
788: (p_encoded => FND_API.G_FALSE,
789: p_count => x_msg_count,
790: p_data => x_msg_data);
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: IF PG_DEBUG in ('Y', 'C') THEN
793: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
794: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
795: END IF;
793: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
794: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
795: END IF;
796: ROLLBACK TO Record_Customer_Acceptance_PUB;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
798: FND_MSG_PUB.Count_And_Get
799: (p_encoded => FND_API.G_FALSE,
800: p_count => x_msg_count,
801: p_data => x_msg_data);
795: END IF;
796: ROLLBACK TO Record_Customer_Acceptance_PUB;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
798: FND_MSG_PUB.Count_And_Get
799: (p_encoded => FND_API.G_FALSE,
800: p_count => x_msg_count,
801: p_data => x_msg_data);
802: WHEN OTHERS THEN
803: IF PG_DEBUG in ('Y', 'C') THEN
804: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
805: ' at AR_RevenueAdjust_PUB.Record_Customer_Acceptance()+');
806: END IF;
807: ROLLBACK TO Record_Customer_Acceptance_PUB;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
809: IF FND_MSG_PUB.Check_Msg_Level
810: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
811: THEN
812: FND_MSG_PUB.Add_Exc_Msg
814: l_api_name
815: );
816: END IF;
817: FND_MSG_PUB.Count_And_Get
818: (p_encoded => FND_API.G_FALSE,
819: p_count => x_msg_count,
820: p_data => x_msg_data);
821: END Record_Customer_Acceptance;
822:
831: --
832: -- Parameters :
833: -- IN : p_api_version NUMBER Required
834: -- p_init_msg_list VARCHAR2 Optional
835: -- Default = FND_API.G_FALSE
836: -- p_commit VARCHAR2 Optional
837: -- Default = FND_API.G_FALSE
838: -- p_customer_trx_id NUMBER Required
839: -- p_customer_trx_line_id NUMBER Optional
833: -- IN : p_api_version NUMBER Required
834: -- p_init_msg_list VARCHAR2 Optional
835: -- Default = FND_API.G_FALSE
836: -- p_commit VARCHAR2 Optional
837: -- Default = FND_API.G_FALSE
838: -- p_customer_trx_id NUMBER Required
839: -- p_customer_trx_line_id NUMBER Optional
840: -- p_contingency_id NUMBER Optional
841: -- p_expiration_date DATE Optional
854: revenue_synchronizer call.
855: */
856: PROCEDURE Update_Contingency_Expirations
857: ( p_api_version IN NUMBER
858: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
859: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
860: ,x_return_status OUT NOCOPY VARCHAR2
861: ,x_msg_count OUT NOCOPY NUMBER
862: ,x_msg_data OUT NOCOPY VARCHAR2
855: */
856: PROCEDURE Update_Contingency_Expirations
857: ( p_api_version IN NUMBER
858: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
859: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
860: ,x_return_status OUT NOCOPY VARCHAR2
861: ,x_msg_count OUT NOCOPY NUMBER
862: ,x_msg_data OUT NOCOPY VARCHAR2
863: ,p_org_id IN NUMBER DEFAULT NULL
909: END IF;
910: -- Standard Start of API savepoint
911: SAVEPOINT Update_Contingency_Expires_PUB;
912: -- Standard call to check for call compatibility.
913: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
914: p_api_version ,
915: l_api_name ,
916: G_PKG_NAME )
917: THEN
918: IF PG_DEBUG in ('Y', 'C') THEN
919: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
920: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()+');
921: END IF;
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
924: -- Initialize message list if p_init_msg_list is set to TRUE.
925: IF FND_API.to_Boolean( p_init_msg_list )
926: THEN
921: END IF;
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
924: -- Initialize message list if p_init_msg_list is set to TRUE.
925: IF FND_API.to_Boolean( p_init_msg_list )
926: THEN
927: FND_MSG_PUB.initialize;
928: END IF;
929: -- Initialize API return status to success
926: THEN
927: FND_MSG_PUB.initialize;
928: END IF;
929: -- Initialize API return status to success
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
931:
932: /* SSA change */
933: l_org_id := p_org_id;
934: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
930: x_return_status := FND_API.G_RET_STS_SUCCESS;
931:
932: /* SSA change */
933: l_org_id := p_org_id;
934: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
935: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
936: p_return_status =>l_org_return_status);
937: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
938: x_return_status := FND_API.G_RET_STS_ERROR;
933: l_org_id := p_org_id;
934: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
935: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
936: p_return_status =>l_org_return_status);
937: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
938: x_return_status := FND_API.G_RET_STS_ERROR;
939: ELSE
940: /* Make sure we have either an expiration_date or
941: an expiration_days passed in */
934: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
935: ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
936: p_return_status =>l_org_return_status);
937: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
938: x_return_status := FND_API.G_RET_STS_ERROR;
939: ELSE
940: /* Make sure we have either an expiration_date or
941: an expiration_days passed in */
942: IF p_expiration_days IS NULL and
941: an expiration_days passed in */
942: IF p_expiration_days IS NULL and
943: p_expiration_date IS NULL
944: THEN
945: x_return_status := FND_API.G_RET_STS_ERROR;
946: fnd_message.set_name('AR','AR_RVMG_EXPIR_DATE_CONFL');
947: fnd_msg_pub.add;
948: RAISE fnd_api.g_exc_error;
949: END IF;
944: THEN
945: x_return_status := FND_API.G_RET_STS_ERROR;
946: fnd_message.set_name('AR','AR_RVMG_EXPIR_DATE_CONFL');
947: fnd_msg_pub.add;
948: RAISE fnd_api.g_exc_error;
949: END IF;
950:
951: /* Loop thru eligible contingencies and update */
952: FOR cont IN c_conts LOOP
1016: arp_debug.debug('result (scenario)= ' || l_scenario);
1017: END IF;
1018:
1019: -- Standard check of p_commit.
1020: IF FND_API.To_Boolean( p_commit )
1021: THEN
1022: COMMIT WORK;
1023: END IF;
1024: END IF;
1023: END IF;
1024: END IF;
1025: -- Standard call to get message count and if count is 1, get message info.
1026: FND_MSG_PUB.Count_And_Get
1027: (p_encoded => FND_API.G_FALSE,
1028: p_count => x_msg_count,
1029: p_data => x_msg_data);
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1027: (p_encoded => FND_API.G_FALSE,
1028: p_count => x_msg_count,
1029: p_data => x_msg_data);
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
1033: x_return_status := FND_API.G_RET_STS_ERROR ;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_encoded => FND_API.G_FALSE,
1029: p_data => x_msg_data);
1030: EXCEPTION
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
1033: x_return_status := FND_API.G_RET_STS_ERROR ;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_encoded => FND_API.G_FALSE,
1036: p_count => x_msg_count,
1037: p_data => x_msg_data);
1031: WHEN FND_API.G_EXC_ERROR THEN
1032: ROLLBACK TO Add_Non_Rev_Sales_Credits_PUB;
1033: x_return_status := FND_API.G_RET_STS_ERROR ;
1034: FND_MSG_PUB.Count_And_Get
1035: (p_encoded => FND_API.G_FALSE,
1036: p_count => x_msg_count,
1037: p_data => x_msg_data);
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: IF PG_DEBUG in ('Y', 'C') THEN
1034: FND_MSG_PUB.Count_And_Get
1035: (p_encoded => FND_API.G_FALSE,
1036: p_count => x_msg_count,
1037: p_data => x_msg_data);
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039: IF PG_DEBUG in ('Y', 'C') THEN
1040: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
1041: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
1042: END IF;
1040: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
1041: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
1042: END IF;
1043: ROLLBACK TO Record_Customer_Acceptance_PUB;
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: (p_encoded => FND_API.G_FALSE,
1047: p_count => x_msg_count,
1048: p_data => x_msg_data);
1042: END IF;
1043: ROLLBACK TO Record_Customer_Acceptance_PUB;
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: (p_encoded => FND_API.G_FALSE,
1047: p_count => x_msg_count,
1048: p_data => x_msg_data);
1049: WHEN OTHERS THEN
1050: IF PG_DEBUG in ('Y', 'C') THEN
1051: arp_debug.debug('Unexpected EXCEPTION '||sqlerrm||
1052: ' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
1053: END IF;
1054: ROLLBACK TO Record_Customer_Acceptance_PUB;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: IF FND_MSG_PUB.Check_Msg_Level
1057: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1058: THEN
1059: FND_MSG_PUB.Add_Exc_Msg
1061: l_api_name
1062: );
1063: END IF;
1064: FND_MSG_PUB.Count_And_Get
1065: (p_encoded => FND_API.G_FALSE,
1066: p_count => x_msg_count,
1067: p_data => x_msg_data);
1068: END Update_Contingency_Expirations;
1069: