1: Package Body AR_DEPOSIT_VAL_PVT AS
2: /* $Header: ARXDEPVB.pls 115.3 2003/07/24 22:43:43 anukumar noship $ */
3:
4: --Validation procedures are contained in this package
5:
12:
13: PROCEDURE Validate_deposit_Date(p_deposit_date IN DATE,
14: p_return_status OUT NOCOPY VARCHAR2) IS
15: BEGIN
16: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_deposit_Date()+');
17:
18: p_return_status := FND_API.G_RET_STS_SUCCESS;
19:
20: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_deposit_Date()-');
16: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_deposit_Date()+');
17:
18: p_return_status := FND_API.G_RET_STS_SUCCESS;
19:
20: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_deposit_Date()-');
21: END Validate_deposit_Date;
22:
23: PROCEDURE Validate_batch_source(p_batch_source_id IN NUMBER ,
24: p_return_status OUT NOCOPY VARCHAR2) IS
23: PROCEDURE Validate_batch_source(p_batch_source_id IN NUMBER ,
24: p_return_status OUT NOCOPY VARCHAR2) IS
25: l_dummy NUMBER :=NULL;
26: BEGIN
27: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_batch_source()+');
28:
29: p_return_status := FND_API.G_RET_STS_SUCCESS;
30: if ar_deposit_lib_pvt.pg_profile_batch_source is null and
31: p_batch_source_id is null
58: RAISE;
59:
60: END;
61:
62: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_batch_source()-');
63: END Validate_batch_source;
64:
65:
66: PROCEDURE Validate_Gl_Date(p_gl_date IN DATE,
65:
66: PROCEDURE Validate_Gl_Date(p_gl_date IN DATE,
67: p_return_status OUT NOCOPY VARCHAR2) IS
68: BEGIN
69: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Gl_Date ()+');
70: p_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: IF ( NOT arp_util.is_gl_date_valid( p_gl_date )) THEN
73: FND_MESSAGE.set_name( 'AR', 'AR_INVALID_APP_GL_DATE' );
74: FND_MESSAGE.set_token( 'GL_DATE', TO_CHAR( p_gl_date ));
75: FND_MSG_PUB.Add;
76: p_return_status := FND_API.G_RET_STS_ERROR;
77: END IF;
78: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Gl_Date ()+');
79: END Validate_Gl_Date;
80:
81:
82: PROCEDURE Validate_amount(p_amount IN NUMBER,
81:
82: PROCEDURE Validate_amount(p_amount IN NUMBER,
83: p_return_status OUT NOCOPY VARCHAR2) IS
84: BEGIN
85: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_amount () +');
86: p_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: --Raise error if the deposit amount is null or negative
89: IF p_amount IS NULL THEN
98: FND_MSG_PUB.Add;
99:
100: END IF;
101:
102: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_amount () -');
103: END Validate_amount;
104:
105: PROCEDURE Validate_Exchange_Rate(
106: p_currency_code IN VARCHAR2,
112: l_cross_rate NUMBER;
113: l_conversion_rate NUMBER;
114: l_exchange_rate_valid varchar2(2);
115: BEGIN
116: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Exchange_Rate () +');
117: p_return_status := FND_API.G_RET_STS_SUCCESS;
118:
119: IF p_currency_code <> arp_global.functional_currency THEN
120:
194: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_DATE_INVALID');
195: FND_MSG_PUB.Add;
196: END IF;
197: END IF;
198: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Exchange_Rate () -');
199: EXCEPTION
200: WHEN others THEN
201: arp_util.debug('EXCEPTION: Validate_Exchange_Rate() ');
202: arp_util.debug('p_exchange_rate_type = '
208: ra_customer_trx.invoice_currency_code%TYPE)
209: RETURN VARCHAR2 IS
210: l_currency_valid VARCHAR2(1);
211: BEGIN
212: arp_util.debug('AR_DEPOSIT_VAL_PVT.Is_currency_valid () +');
213: SELECT 'Y'
214: INTO l_currency_valid
215: FROM fnd_currencies
216: WHERE p_currency_code = currency_code;
213: SELECT 'Y'
214: INTO l_currency_valid
215: FROM fnd_currencies
216: WHERE p_currency_code = currency_code;
217: arp_util.debug('AR_DEPOSIT_VAL_PVT.Is_currency_valid () -');
218:
219: RETURN(l_currency_valid);
220:
221: EXCEPTION
235: p_exchange_rate_date IN ar_cash_receipts.exchange_date%TYPE,
236: p_return_status OUT NOCOPY VARCHAR2) IS
237: BEGIN
238: p_return_status := FND_API.G_RET_STS_SUCCESS;
239: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Currency () +');
240: IF (Is_currency_valid(p_currency_code) = 'Y') THEN
241:
242: IF ((arp_global.functional_currency <> p_currency_code) OR
243: (p_exchange_rate_type IS NOT NULL OR
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CURR_CODE_INVALID');
257: FND_MSG_PUB.Add;
258: END IF;
259: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Currency () -');
260: END Validate_Currency;
261:
262: /*========================================================================
263: | PUBLIC PROCEDURE Validate_Deposit
357: l_tax_flag_return_status VARCHAR2(1);
358: c_tax_flag_result VARCHAR2(1) := 'N';
359:
360: BEGIN
361: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Deposit () +');
362:
363: p_return_status := FND_API.G_RET_STS_SUCCESS;
364: l_deposit_date_return_status := FND_API.G_RET_STS_SUCCESS;
365: l_gl_date_return_status := FND_API.G_RET_STS_SUCCESS;
486: THEN
487: p_return_status := FND_API.G_RET_STS_ERROR;
488: END IF;
489: arp_util.debug('Validate_Cash_Receipt Return status :'||p_return_status);
490: arp_util.debug('AR_DEPOSIT_VAL_PVT.Validate_Deposit () -');
491: EXCEPTION
492: WHEN others THEN
493: raise;
494:
493: raise;
494:
495: END Validate_deposit;
496:
497: END AR_DEPOSIT_VAL_PVT;