20: BEGIN
21: IF PG_DEBUG in ('Y', 'C') THEN
22: arp_util.debug('Default_customer_trx_id ()+');
23: END IF;
24: p_return_status := FND_API.G_RET_STS_SUCCESS;
25: IF p_customer_trx_id IS NULL THEN
26: IF p_trx_number IS NOT NULL THEN
27: BEGIN
28: SELECT customer_trx_id
32: EXCEPTION
33: WHEN no_data_found THEN
34: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
35: FND_MSG_PUB.Add;
36: p_return_status := FND_API.G_RET_STS_ERROR ;
37: END;
38: END IF;
39:
40: ELSE
67: l_error_message VARCHAR2(128);
68: l_defaulting_rule_used VARCHAR2(100);
69: l_default_gl_date DATE;
70: BEGIN
71: p_return_status := FND_API.G_RET_STS_SUCCESS;
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug('Default_gl_date ()+');
74: END IF;
75: IF p_gl_date IS NULL THEN
101: -- Raise error message if failure in defaulting the gl_date
102: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
103: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
104: FND_MSG_PUB.Add;
105: p_return_status := FND_API.G_RET_STS_ERROR;
106: END IF;
107: END IF;
108: IF PG_DEBUG in ('Y', 'C') THEN
109: arp_util.debug('Default_gl_date ()-');
124: BEGIN
125: IF PG_DEBUG in ('Y', 'C') THEN
126: arp_util.debug('Default_CM_Info ()+');
127: END IF;
128: p_return_status := FND_API.G_RET_STS_SUCCESS;
129:
130: IF p_customer_trx_id IS NOT NULL THEN
131:
132: SELECT
156: ELSE --case when p_customer_trx_id is null
157: --no further validation done in the validation routines for customer_trx_id
158: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
159: FND_MSG_PUB.Add;
160: p_return_status := FND_API.G_RET_STS_ERROR ;
161:
162: END IF;
163:
164: IF PG_DEBUG in ('Y', 'C') THEN
169: IF PG_DEBUG in ('Y', 'C') THEN
170: arp_util.debug('Default_CM_Info : No data found ');
171: END IF;
172:
173: p_return_status := FND_API.G_RET_STS_ERROR ;
174: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
175: FND_MSG_PUB.ADD;
176:
177: WHEN others THEN
177: WHEN others THEN
178: IF PG_DEBUG in ('Y', 'C') THEN
179: arp_util.debug('EXCEPTION: Default_CM_Info: sqlerrm()');
180: END IF;
181: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
182: raise;
183: END Default_CM_Info;
184:
185: PROCEDURE Default_activity_info(
205: BEGIN
206: IF PG_DEBUG in ('Y', 'C') THEN
207: arp_util.debug('Default_activity_info ()+');
208: END IF;
209: p_return_status := FND_API.G_RET_STS_SUCCESS;
210: l_cm_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_gl_date_return_status := FND_API.G_RET_STS_SUCCESS;
212:
213: l_amount_applied := p_amount_applied;
206: IF PG_DEBUG in ('Y', 'C') THEN
207: arp_util.debug('Default_activity_info ()+');
208: END IF;
209: p_return_status := FND_API.G_RET_STS_SUCCESS;
210: l_cm_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_gl_date_return_status := FND_API.G_RET_STS_SUCCESS;
212:
213: l_amount_applied := p_amount_applied;
214:
207: arp_util.debug('Default_activity_info ()+');
208: END IF;
209: p_return_status := FND_API.G_RET_STS_SUCCESS;
210: l_cm_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_gl_date_return_status := FND_API.G_RET_STS_SUCCESS;
212:
213: l_amount_applied := p_amount_applied;
214:
215: Default_CM_Info( p_customer_trx_id ,
256: arp_util.debug('Amount applied: ' || p_amount_applied );
257: END IF;
258:
259:
260: IF l_cm_return_status <> FND_API.G_RET_STS_SUCCESS OR
261: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
262: p_return_status := FND_API.G_RET_STS_ERROR ;
263: END IF;
264:
257: END IF;
258:
259:
260: IF l_cm_return_status <> FND_API.G_RET_STS_SUCCESS OR
261: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
262: p_return_status := FND_API.G_RET_STS_ERROR ;
263: END IF;
264:
265:
258:
259:
260: IF l_cm_return_status <> FND_API.G_RET_STS_SUCCESS OR
261: l_gl_date_return_status <> FND_API.G_RET_STS_SUCCESS THEN
262: p_return_status := FND_API.G_RET_STS_ERROR ;
263: END IF;
264:
265:
266: IF PG_DEBUG in ('Y', 'C') THEN
291: l_rec_appln_id NUMBER ;
292: l_apply_gl_date DATE;
293: l_customer_trx_id NUMBER;
294: BEGIN
295: p_return_status := FND_API.G_RET_STS_SUCCESS;
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug('Derive_activity_unapp_ids ()+');
298: END IF;
299: --derive the customer_trx_id from the trx_number
320: EXCEPTION
321: WHEN no_data_found THEN
322: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
323: FND_MSG_PUB.Add;
324: p_return_status := FND_API.G_RET_STS_ERROR ;
325: WHEN too_many_rows THEN
326: IF p_receivable_application_id IS NULL THEN
327: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
328: FND_MSG_PUB.Add;
325: WHEN too_many_rows THEN
326: IF p_receivable_application_id IS NULL THEN
327: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
328: FND_MSG_PUB.Add;
329: p_return_status := FND_API.G_RET_STS_ERROR ;
330: END IF;
331:
332: END;
333:
346: EXCEPTION
347: WHEN no_data_found THEN
348: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
349: FND_MSG_PUB.Add;
350: p_return_status := FND_API.G_RET_STS_ERROR ;
351: END;
352:
353: --Compare the two customer_trx_ids
354: IF p_customer_trx_id IS NOT NULL THEN
355: IF p_customer_trx_id <> NVL(l_customer_trx_id,p_customer_trx_id) THEN
356: --raise error X validation failed
357: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
358: FND_MSG_PUB.Add;
359: p_return_status := FND_API.G_RET_STS_ERROR ;
360: END IF;
361: END IF;
362:
363: ELSE
418: p_reversal_gl_date := l_default_gl_date;
419: ELSE
420: --we were not able to default the gl_date put the message
421: --here on the stack, but the return status will be set
422: --to FND_API.G_RET_STS_ERROR in the validation phase.
423: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
424: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
425: FND_MSG_PUB.Add;
426: END IF;
438: EXCEPTION
439: WHEN NO_DATA_FOUND THEN
440: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
441: FND_MSG_PUB.Add;
442: p_return_status := FND_API.G_RET_STS_ERROR ;
443: END;
444: ELSIF p_customer_trx_id IS NOT NULL THEN
445: BEGIN
446: SELECT receivable_application_id
453: EXCEPTION
454: WHEN NO_DATA_FOUND THEN
455: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
456: FND_MSG_PUB.Add;
457: p_return_status := FND_API.G_RET_STS_ERROR ;
458: WHEN TOO_MANY_ROWS THEN
459: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
460: FND_MSG_PUB.Add;
461: p_return_status := FND_API.G_RET_STS_ERROR ;
457: p_return_status := FND_API.G_RET_STS_ERROR ;
458: WHEN TOO_MANY_ROWS THEN
459: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
460: FND_MSG_PUB.Add;
461: p_return_status := FND_API.G_RET_STS_ERROR ;
462:
463: END;
464: END IF;
465: