[Home] [Help]
1: PACKAGE BODY AR_VIEW_TERM_GRP AS
2: /* $Header: ARVTERMB.pls 120.1 2005/01/14 19:43:48 jbeckett noship $ */
3:
4: /*=======================================================================+
5: | Package Global Constants
3:
4: /*=======================================================================+
5: | Package Global Constants
6: +=======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_VIEW_TERM_GRP';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
11: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
100: AND tl.due_days = 0;
101:
102: BEGIN
103: IF PG_DEBUG in ('Y', 'C') THEN
104: arp_util.debug('AR_VIEW_TERM_GRP.pay_now_amounts()+');
105: END IF;
106:
107: -- Standard call to check for call compatibility.
108: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
111: G_PKG_NAME )
112: THEN
113: IF PG_DEBUG in ('Y', 'C') THEN
114: arp_util.debug('Unexpected error: wrong API version '||sqlerrm||
115: ' at AR_VIEW_TERM_GRP.pay_now_amounts()+');
116: END IF;
117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
118: END IF;
119: -- Initialize message list if p_init_msg_list is set to TRUE.
171: x_pay_now_freight_amount := l_pay_now_freight_amt_rnd;
172: x_pay_now_total_amount := l_pay_now_line_amt_rnd + l_pay_now_tax_amt_rnd + l_pay_now_freight_amt_rnd;
173:
174: IF PG_DEBUG in ('Y', 'C') THEN
175: arp_util.debug('AR_VIEW_TERM_GRP.pay_now_amounts()-');
176: END IF;
177:
178: EXCEPTION
179: WHEN FND_API.G_EXC_ERROR THEN
184: p_data => x_msg_data);
185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
186: IF PG_DEBUG in ('Y', 'C') THEN
187: arp_util.debug('Unexpected error '||sqlerrm||
188: ' at ar_view_term_grp.pay_now_amounts()+');
189: END IF;
190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
191: FND_MSG_PUB.Count_And_Get
192: (p_encoded => FND_API.G_FALSE,
196: IF (SQLCODE = -20001)
197: THEN
198: IF PG_DEBUG in ('Y', 'C') THEN
199: arp_util.debug('20001 error '||
200: ' at ar_view_term_grp.pay_now_amounts()+');
201: END IF;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: ELSE
204: IF PG_DEBUG in ('Y', 'C') THEN
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: ELSE
204: IF PG_DEBUG in ('Y', 'C') THEN
205: arp_util.debug('Unexpected error '||sqlerrm||
206: ' at ar_view_term_grp.pay_now_amounts()+');
207: END IF;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
209: IF FND_MSG_PUB.Check_Msg_Level
210: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2,
248: p_validation_level IN NUMBER,
249: p_currency_code IN fnd_currencies.currency_code%TYPE,
250: p_amounts_tbl IN OUT NOCOPY ar_view_term_grp.amounts_table,
251: x_pay_now_summary_rec OUT NOCOPY ar_view_term_grp.summary_amounts_rec,
252: x_return_status OUT NOCOPY VARCHAR2,
253: x_msg_count OUT NOCOPY NUMBER,
254: x_msg_data OUT NOCOPY VARCHAR2)
247: p_init_msg_list IN VARCHAR2,
248: p_validation_level IN NUMBER,
249: p_currency_code IN fnd_currencies.currency_code%TYPE,
250: p_amounts_tbl IN OUT NOCOPY ar_view_term_grp.amounts_table,
251: x_pay_now_summary_rec OUT NOCOPY ar_view_term_grp.summary_amounts_rec,
252: x_return_status OUT NOCOPY VARCHAR2,
253: x_msg_count OUT NOCOPY NUMBER,
254: x_msg_data OUT NOCOPY VARCHAR2)
255: IS
267: l_pay_now_total_sum NUMBER;
268:
269: BEGIN
270: IF PG_DEBUG in ('Y', 'C') THEN
271: arp_util.debug('AR_VIEW_TERM_GRP.pay_now_amounts(2)+');
272: END IF;
273:
274: -- Standard call to check for call compatibility.
275: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
278: G_PKG_NAME )
279: THEN
280: IF PG_DEBUG in ('Y', 'C') THEN
281: arp_util.debug('Unexpected error: wrong API version '||sqlerrm||
282: ' at AR_VIEW_TERM_GRP.pay_now_amounts()+');
283: END IF;
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286: -- Initialize message list if p_init_msg_list is set to TRUE.
298: l_pay_now_total_sum := 0;
299:
300: FOR i in p_amounts_tbl.FIRST..p_amounts_tbl.LAST LOOP
301:
302: ar_view_term_grp.pay_now_amounts
303: (p_api_version => 1.0,
304: p_init_msg_list => FND_API.G_FALSE,
305: p_term_id => p_amounts_tbl(i).term_id,
306: p_currency_code => p_currency_code,
340: x_pay_now_summary_rec.freight_amount := l_pay_now_freight_amt_sum;
341: x_pay_now_summary_rec.total_amount := l_pay_now_total_sum;
342:
343: IF PG_DEBUG in ('Y', 'C') THEN
344: arp_util.debug('AR_VIEW_TERM_GRP.pay_now_amounts(2)-');
345: END IF;
346:
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
353: p_data => x_msg_data);
354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355: IF PG_DEBUG in ('Y', 'C') THEN
356: arp_util.debug('Unexpected error '||sqlerrm||
357: ' at ar_view_term_grp.pay_now_amounts(2)+');
358: END IF;
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360: FND_MSG_PUB.Count_And_Get
361: (p_encoded => FND_API.G_FALSE,
365: IF (SQLCODE = -20001)
366: THEN
367: IF PG_DEBUG in ('Y', 'C') THEN
368: arp_util.debug('20001 error '||
369: ' at ar_view_term_grp.pay_now_amounts(2)+');
370: END IF;
371: x_return_status := FND_API.G_RET_STS_ERROR ;
372: ELSE
373: IF PG_DEBUG in ('Y', 'C') THEN
371: x_return_status := FND_API.G_RET_STS_ERROR ;
372: ELSE
373: IF PG_DEBUG in ('Y', 'C') THEN
374: arp_util.debug('Unexpected error '||sqlerrm||
375: ' at ar_view_term_grp.pay_now_amounts(2)+');
376: END IF;
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
378: IF FND_MSG_PUB.Check_Msg_Level
379: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
389: p_count => x_msg_count,
390: p_data => x_msg_data);
391: END pay_now_amounts;
392:
393: END AR_VIEW_TERM_GRP;