28:
29: BEGIN
30:
31: IF PG_DEBUG in ('Y', 'C') THEN
32: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Gl_Date ()+');
33: END IF;
34:
35: IF (p_gl_date IS NOT NULL)
36: THEN
33: END IF;
34:
35: IF (p_gl_date IS NOT NULL)
36: THEN
37: IF ( NOT arp_util.is_gl_date_valid( p_gl_date ))
38: THEN
39: IF PG_DEBUG in ('Y', 'C') THEN
40: arp_util.debug('Validate_Gl_Date: ' || '>>>>>>>>>> Invalid GL Date');
41: END IF;
36: THEN
37: IF ( NOT arp_util.is_gl_date_valid( p_gl_date ))
38: THEN
39: IF PG_DEBUG in ('Y', 'C') THEN
40: arp_util.debug('Validate_Gl_Date: ' || '>>>>>>>>>> Invalid GL Date');
41: END IF;
42: FND_MESSAGE.set_name ( 'AR', 'AR_INVALID_APP_GL_DATE' );
43: --Bug12734873
44: FND_MESSAGE.set_token('GL_DATE', fnd_date.date_to_chardate(p_gl_date, calendar_aware=> FND_DATE.calendar_aware_alt ));
46: END IF;
47: END IF;
48:
49: IF PG_DEBUG in ('Y', 'C') THEN
50: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Gl_Date ()-');
51: END IF;
52:
53: EXCEPTION
54: WHEN OTHERS THEN
52:
53: EXCEPTION
54: WHEN OTHERS THEN
55: IF PG_DEBUG in ('Y', 'C') THEN
56: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_GL_Date() ');
57: arp_util.debug('Validate_Gl_Date: ' || 'p_gl_date = ' || p_gl_date);
58: END IF;
59: RAISE;
60:
53: EXCEPTION
54: WHEN OTHERS THEN
55: IF PG_DEBUG in ('Y', 'C') THEN
56: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_GL_Date() ');
57: arp_util.debug('Validate_Gl_Date: ' || 'p_gl_date = ' || p_gl_date);
58: END IF;
59: RAISE;
60:
61: END Validate_Gl_Date;
82:
83: BEGIN
84:
85: IF PG_DEBUG in ('Y', 'C') THEN
86: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date ()+');
87: END IF;
88:
89:
90: /*----------------------------------------------+
101: THEN
102: IF AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Matured (l_trx_rec.term_due_date)
103: THEN
104: IF PG_DEBUG in ('Y', 'C') THEN
105: arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> Current Maturity Date has passed, it cannot be updated');
106: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
107: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date of the BR : ' || l_trx_rec.term_due_date);
108: END IF;
109: FND_MESSAGE.set_name( 'AR','AR_BR_CANNOT_UPDATE_MAT_DATE');
102: IF AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Matured (l_trx_rec.term_due_date)
103: THEN
104: IF PG_DEBUG in ('Y', 'C') THEN
105: arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> Current Maturity Date has passed, it cannot be updated');
106: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
107: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date of the BR : ' || l_trx_rec.term_due_date);
108: END IF;
109: FND_MESSAGE.set_name( 'AR','AR_BR_CANNOT_UPDATE_MAT_DATE');
110: app_exception.raise_exception;
103: THEN
104: IF PG_DEBUG in ('Y', 'C') THEN
105: arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> Current Maturity Date has passed, it cannot be updated');
106: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
107: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date of the BR : ' || l_trx_rec.term_due_date);
108: END IF;
109: FND_MESSAGE.set_name( 'AR','AR_BR_CANNOT_UPDATE_MAT_DATE');
110: app_exception.raise_exception;
111: END IF;
112:
113: IF trunc(p_term_due_date) <= trunc(SYSDATE)
114: THEN
115: IF PG_DEBUG in ('Y', 'C') THEN
116: arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> The new Maturity Date must be later that sysdate');
117: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
118: END IF;
119: FND_MESSAGE.set_name ( 'AR', 'AR_BR_INVALID_TRX_DATE' );
120: FND_MESSAGE.set_token ( 'ACTION', NULL);
113: IF trunc(p_term_due_date) <= trunc(SYSDATE)
114: THEN
115: IF PG_DEBUG in ('Y', 'C') THEN
116: arp_util.debug('Validate_Update_Maturity_Date: ' || '>>>>>>>>>> The new Maturity Date must be later that sysdate');
117: arp_util.debug('Validate_Update_Maturity_Date: ' || 'Maturity Date parameter : ' || p_term_due_date);
118: END IF;
119: FND_MESSAGE.set_name ( 'AR', 'AR_BR_INVALID_TRX_DATE' );
120: FND_MESSAGE.set_token ( 'ACTION', NULL);
121: --Bug12734873
126:
127: END IF;
128:
129: IF PG_DEBUG in ('Y', 'C') THEN
130: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date ()-');
131: END IF;
132:
133: EXCEPTION
134: WHEN OTHERS THEN
132:
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF PG_DEBUG in ('Y', 'C') THEN
136: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date() ');
137: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_customer_trx_id = ' || p_customer_trx_id);
138: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_term_due_date = ' || p_term_due_date);
139: END IF;
140: RAISE;
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF PG_DEBUG in ('Y', 'C') THEN
136: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date() ');
137: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_customer_trx_id = ' || p_customer_trx_id);
138: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_term_due_date = ' || p_term_due_date);
139: END IF;
140: RAISE;
141:
134: WHEN OTHERS THEN
135: IF PG_DEBUG in ('Y', 'C') THEN
136: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_Maturity_Date() ');
137: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_customer_trx_id = ' || p_customer_trx_id);
138: arp_util.debug('Validate_Update_Maturity_Date: ' || 'p_term_due_date = ' || p_term_due_date);
139: END IF;
140: RAISE;
141:
142: END Validate_Update_Maturity_Date;
163: l_status VARCHAR2(1);
164:
165: BEGIN
166: IF PG_DEBUG in ('Y', 'C') THEN
167: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source()+');
168: END IF;
169:
170: SELECT start_date, end_date, status
171: INTO l_start_date, l_end_date, l_status
178:
179: IF (l_status <> 'A')
180: THEN
181: IF PG_DEBUG in ('Y', 'C') THEN
182: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is inactive');
183: arp_util.debug ('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
184: arp_util.debug ('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
185: arp_util.debug ('Validate_Batch_Source: ' || 'status = ' || l_status);
186: END IF;
179: IF (l_status <> 'A')
180: THEN
181: IF PG_DEBUG in ('Y', 'C') THEN
182: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is inactive');
183: arp_util.debug ('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
184: arp_util.debug ('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
185: arp_util.debug ('Validate_Batch_Source: ' || 'status = ' || l_status);
186: END IF;
187: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_BATCH_SOURCE');
180: THEN
181: IF PG_DEBUG in ('Y', 'C') THEN
182: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is inactive');
183: arp_util.debug ('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
184: arp_util.debug ('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
185: arp_util.debug ('Validate_Batch_Source: ' || 'status = ' || l_status);
186: END IF;
187: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_BATCH_SOURCE');
188: app_exception.raise_exception;
181: IF PG_DEBUG in ('Y', 'C') THEN
182: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is inactive');
183: arp_util.debug ('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
184: arp_util.debug ('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
185: arp_util.debug ('Validate_Batch_Source: ' || 'status = ' || l_status);
186: END IF;
187: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_BATCH_SOURCE');
188: app_exception.raise_exception;
189: END IF;
197: IF (p_issue_date NOT BETWEEN nvl (l_start_date, p_issue_date)
198: AND nvl (l_end_date , p_issue_date))
199: THEN
200: IF PG_DEBUG in ('Y', 'C') THEN
201: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is not valid at the Issue Date');
202: arp_util.debug('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
203: arp_util.debug('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
204: arp_util.debug('Validate_Batch_Source: ' || 'start_date = ' || l_start_date);
205: arp_util.debug('Validate_Batch_Source: ' || 'end_date = ' || l_end_date);
198: AND nvl (l_end_date , p_issue_date))
199: THEN
200: IF PG_DEBUG in ('Y', 'C') THEN
201: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is not valid at the Issue Date');
202: arp_util.debug('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
203: arp_util.debug('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
204: arp_util.debug('Validate_Batch_Source: ' || 'start_date = ' || l_start_date);
205: arp_util.debug('Validate_Batch_Source: ' || 'end_date = ' || l_end_date);
206: END IF;
199: THEN
200: IF PG_DEBUG in ('Y', 'C') THEN
201: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is not valid at the Issue Date');
202: arp_util.debug('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
203: arp_util.debug('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
204: arp_util.debug('Validate_Batch_Source: ' || 'start_date = ' || l_start_date);
205: arp_util.debug('Validate_Batch_Source: ' || 'end_date = ' || l_end_date);
206: END IF;
207: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_SOURCE');
200: IF PG_DEBUG in ('Y', 'C') THEN
201: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is not valid at the Issue Date');
202: arp_util.debug('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
203: arp_util.debug('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
204: arp_util.debug('Validate_Batch_Source: ' || 'start_date = ' || l_start_date);
205: arp_util.debug('Validate_Batch_Source: ' || 'end_date = ' || l_end_date);
206: END IF;
207: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_SOURCE');
208: app_exception.raise_exception;
201: arp_util.debug ('Validate_Batch_Source: ' || '>>>>>>>>>> The Batch Source is not valid at the Issue Date');
202: arp_util.debug('Validate_Batch_Source: ' || 'p_batch_source_id = ' || p_batch_source_id);
203: arp_util.debug('Validate_Batch_Source: ' || 'p_issue_date = ' || p_issue_date);
204: arp_util.debug('Validate_Batch_Source: ' || 'start_date = ' || l_start_date);
205: arp_util.debug('Validate_Batch_Source: ' || 'end_date = ' || l_end_date);
206: END IF;
207: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_SOURCE');
208: app_exception.raise_exception;
209: END IF;
209: END IF;
210:
211:
212: IF PG_DEBUG in ('Y', 'C') THEN
213: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source()-');
214: END IF;
215:
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
215:
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
218: IF PG_DEBUG in ('Y', 'C') THEN
219: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
220: arp_util.debug('Validate_Batch_Source: ' || '>>>>>>>>>> Invalid Batch Source');
221: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
222: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
223: END IF;
216: EXCEPTION
217: WHEN NO_DATA_FOUND THEN
218: IF PG_DEBUG in ('Y', 'C') THEN
219: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
220: arp_util.debug('Validate_Batch_Source: ' || '>>>>>>>>>> Invalid Batch Source');
221: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
222: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
223: END IF;
224: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_SOURCE');
217: WHEN NO_DATA_FOUND THEN
218: IF PG_DEBUG in ('Y', 'C') THEN
219: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
220: arp_util.debug('Validate_Batch_Source: ' || '>>>>>>>>>> Invalid Batch Source');
221: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
222: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
223: END IF;
224: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_SOURCE');
225: app_exception.raise_exception;
218: IF PG_DEBUG in ('Y', 'C') THEN
219: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
220: arp_util.debug('Validate_Batch_Source: ' || '>>>>>>>>>> Invalid Batch Source');
221: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
222: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
223: END IF;
224: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_SOURCE');
225: app_exception.raise_exception;
226:
225: app_exception.raise_exception;
226:
227: WHEN OTHERS THEN
228: IF PG_DEBUG in ('Y', 'C') THEN
229: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
230: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
231: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
232: END IF;
233: RAISE;
226:
227: WHEN OTHERS THEN
228: IF PG_DEBUG in ('Y', 'C') THEN
229: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
230: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
231: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
232: END IF;
233: RAISE;
234:
227: WHEN OTHERS THEN
228: IF PG_DEBUG in ('Y', 'C') THEN
229: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_Source() ');
230: arp_util.debug('Validate_Batch_Source: ' || ' p_batch_source_id = ' || p_batch_source_id);
231: arp_util.debug('Validate_Batch_Source: ' || ' p_issue_date = ' || p_issue_date);
232: END IF;
233: RAISE;
234:
235: END Validate_Batch_Source;
257:
258: BEGIN
259:
260: IF PG_DEBUG in ('Y', 'C') THEN
261: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type()+');
262: END IF;
263:
264: SELECT status, start_date, end_date
265: INTO l_status, l_start_date, l_end_date
274:
275: IF (l_status <> 'A')
276: THEN
277: IF PG_DEBUG in ('Y', 'C') THEN
278: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is inactive');
279: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
280: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
281: arp_util.debug ('Validate_Transaction_Type: ' || 'status = ' || l_status);
282: END IF;
275: IF (l_status <> 'A')
276: THEN
277: IF PG_DEBUG in ('Y', 'C') THEN
278: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is inactive');
279: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
280: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
281: arp_util.debug ('Validate_Transaction_Type: ' || 'status = ' || l_status);
282: END IF;
283: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_TRX_TYPE');
276: THEN
277: IF PG_DEBUG in ('Y', 'C') THEN
278: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is inactive');
279: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
280: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
281: arp_util.debug ('Validate_Transaction_Type: ' || 'status = ' || l_status);
282: END IF;
283: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_TRX_TYPE');
284: app_exception.raise_exception;
277: IF PG_DEBUG in ('Y', 'C') THEN
278: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is inactive');
279: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
280: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
281: arp_util.debug ('Validate_Transaction_Type: ' || 'status = ' || l_status);
282: END IF;
283: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_TRX_TYPE');
284: app_exception.raise_exception;
285: END IF;
293: IF (p_issue_date NOT BETWEEN l_start_date
294: AND nvl (l_end_date , p_issue_date))
295: THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is not valid at the Issue Date');
298: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
299: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
300: arp_util.debug ('Validate_Transaction_Type: ' || 'start_date = ' || l_start_date);
301: arp_util.debug ('Validate_Transaction_Type: ' || 'end_date = ' || l_end_date);
294: AND nvl (l_end_date , p_issue_date))
295: THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is not valid at the Issue Date');
298: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
299: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
300: arp_util.debug ('Validate_Transaction_Type: ' || 'start_date = ' || l_start_date);
301: arp_util.debug ('Validate_Transaction_Type: ' || 'end_date = ' || l_end_date);
302: END IF;
295: THEN
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is not valid at the Issue Date');
298: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
299: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
300: arp_util.debug ('Validate_Transaction_Type: ' || 'start_date = ' || l_start_date);
301: arp_util.debug ('Validate_Transaction_Type: ' || 'end_date = ' || l_end_date);
302: END IF;
303: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_TRX_TYPE');
296: IF PG_DEBUG in ('Y', 'C') THEN
297: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is not valid at the Issue Date');
298: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
299: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
300: arp_util.debug ('Validate_Transaction_Type: ' || 'start_date = ' || l_start_date);
301: arp_util.debug ('Validate_Transaction_Type: ' || 'end_date = ' || l_end_date);
302: END IF;
303: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_TRX_TYPE');
304: app_exception.raise_exception;
297: arp_util.debug ('Validate_Transaction_Type: ' || '>>>>>>>>>> The Transaction Type is not valid at the Issue Date');
298: arp_util.debug ('Validate_Transaction_Type: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
299: arp_util.debug ('Validate_Transaction_Type: ' || 'p_issue_date = ' || p_issue_date);
300: arp_util.debug ('Validate_Transaction_Type: ' || 'start_date = ' || l_start_date);
301: arp_util.debug ('Validate_Transaction_Type: ' || 'end_date = ' || l_end_date);
302: END IF;
303: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_TRX_TYPE');
304: app_exception.raise_exception;
305: END IF;
304: app_exception.raise_exception;
305: END IF;
306:
307: IF PG_DEBUG in ('Y', 'C') THEN
308: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type()-');
309: END IF;
310:
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
310:
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
313: IF PG_DEBUG in ('Y', 'C') THEN
314: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
315: arp_util.debug('Validate_Transaction_Type: ' || '>>>>>>>>>> Invalid Transaction Type');
316: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
317: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
318: END IF;
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
313: IF PG_DEBUG in ('Y', 'C') THEN
314: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
315: arp_util.debug('Validate_Transaction_Type: ' || '>>>>>>>>>> Invalid Transaction Type');
316: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
317: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
318: END IF;
319: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
312: WHEN NO_DATA_FOUND THEN
313: IF PG_DEBUG in ('Y', 'C') THEN
314: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
315: arp_util.debug('Validate_Transaction_Type: ' || '>>>>>>>>>> Invalid Transaction Type');
316: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
317: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
318: END IF;
319: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
320: app_exception.raise_exception;
313: IF PG_DEBUG in ('Y', 'C') THEN
314: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
315: arp_util.debug('Validate_Transaction_Type: ' || '>>>>>>>>>> Invalid Transaction Type');
316: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
317: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
318: END IF;
319: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
320: app_exception.raise_exception;
321:
320: app_exception.raise_exception;
321:
322: WHEN OTHERS THEN
323: IF PG_DEBUG in ('Y', 'C') THEN
324: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
325: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
326: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
327: END IF;
328: RAISE;
321:
322: WHEN OTHERS THEN
323: IF PG_DEBUG in ('Y', 'C') THEN
324: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
325: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
326: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
327: END IF;
328: RAISE;
329:
322: WHEN OTHERS THEN
323: IF PG_DEBUG in ('Y', 'C') THEN
324: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Transaction_Type() ');
325: arp_util.debug('Validate_Transaction_Type: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
326: arp_util.debug('Validate_Transaction_Type: ' || ' p_issue_date = ' || p_issue_date);
327: END IF;
328: RAISE;
329:
330: END Validate_Transaction_Type;
345: l_drawee_valid VARCHAR2(1);
346:
347: BEGIN
348: IF PG_DEBUG in ('Y', 'C') THEN
349: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee ()+');
350: END IF;
351:
352: /* modified for tca uptake */
353: SELECT 'Y'
355: FROM HZ_CUST_ACCOUNTS
356: WHERE cust_account_id = p_drawee_id;
357:
358: IF PG_DEBUG in ('Y', 'C') THEN
359: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee ()-');
360: END IF;
361:
362: EXCEPTION
363: WHEN NO_DATA_FOUND THEN
361:
362: EXCEPTION
363: WHEN NO_DATA_FOUND THEN
364: IF PG_DEBUG in ('Y', 'C') THEN
365: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee () ');
366: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Drawee');
367: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
368: END IF;
369: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE');
362: EXCEPTION
363: WHEN NO_DATA_FOUND THEN
364: IF PG_DEBUG in ('Y', 'C') THEN
365: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee () ');
366: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Drawee');
367: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
368: END IF;
369: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE');
370: app_exception.raise_exception;
363: WHEN NO_DATA_FOUND THEN
364: IF PG_DEBUG in ('Y', 'C') THEN
365: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee () ');
366: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Drawee');
367: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
368: END IF;
369: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE');
370: app_exception.raise_exception;
371:
370: app_exception.raise_exception;
371:
372: WHEN OTHERS THEN
373: IF PG_DEBUG in ('Y', 'C') THEN
374: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee () ');
375: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
376: END IF;
377: RAISE;
378:
371:
372: WHEN OTHERS THEN
373: IF PG_DEBUG in ('Y', 'C') THEN
374: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee () ');
375: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
376: END IF;
377: RAISE;
378:
379:
395: l_status VARCHAR2(1);
396:
397: BEGIN
398: IF PG_DEBUG in ('Y', 'C') THEN
399: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location ()+');
400: END IF;
401:
402: IF (p_drawee_site_use_id IS NOT NULL)
403: THEN
414:
415: IF (l_status <> 'A')
416: THEN
417: IF PG_DEBUG in ('Y', 'C') THEN
418: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Drawee Location Inactive');
419: END IF;
420: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_DRAWEE_SITE');
421: app_exception.raise_exception;
422: END IF;
422: END IF;
423: END IF;
424:
425: IF PG_DEBUG in ('Y', 'C') THEN
426: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location ()-');
427: END IF;
428:
429: EXCEPTION
430: WHEN NO_DATA_FOUND THEN
428:
429: EXCEPTION
430: WHEN NO_DATA_FOUND THEN
431: IF PG_DEBUG in ('Y', 'C') THEN
432: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location () ');
433: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Location');
434: arp_util.debug('Validate_Drawee: ' || ' p_drawee_site_use_id = ' || p_drawee_site_use_id);
435: END IF;
436: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_SITE');
429: EXCEPTION
430: WHEN NO_DATA_FOUND THEN
431: IF PG_DEBUG in ('Y', 'C') THEN
432: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location () ');
433: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Location');
434: arp_util.debug('Validate_Drawee: ' || ' p_drawee_site_use_id = ' || p_drawee_site_use_id);
435: END IF;
436: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_SITE');
437: app_exception.raise_exception;
430: WHEN NO_DATA_FOUND THEN
431: IF PG_DEBUG in ('Y', 'C') THEN
432: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location () ');
433: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Location');
434: arp_util.debug('Validate_Drawee: ' || ' p_drawee_site_use_id = ' || p_drawee_site_use_id);
435: END IF;
436: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_SITE');
437: app_exception.raise_exception;
438:
437: app_exception.raise_exception;
438:
439: WHEN OTHERS THEN
440: IF PG_DEBUG in ('Y', 'C') THEN
441: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location () ');
442: arp_util.debug('Validate_Drawee: ' || ' p_drawee_site_use_id = ' || p_drawee_site_use_id);
443: END IF;
444: RAISE;
445:
438:
439: WHEN OTHERS THEN
440: IF PG_DEBUG in ('Y', 'C') THEN
441: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Location () ');
442: arp_util.debug('Validate_Drawee: ' || ' p_drawee_site_use_id = ' || p_drawee_site_use_id);
443: END IF;
444: RAISE;
445:
446: END Validate_Drawee_Location;
462: l_status VARCHAR2(1);
463:
464: BEGIN
465: IF PG_DEBUG in ('Y', 'C') THEN
466: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact ()+');
467: END IF;
468:
469: IF (p_drawee_contact_id IS NOT NULL)
470: THEN
479:
480: IF (l_status <> 'A')
481: THEN
482: IF PG_DEBUG in ('Y', 'C') THEN
483: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Drawee Contact Inactive');
484: END IF;
485: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INACTIVE_DRAWEE_CONTACT');
486: app_exception.raise_exception;
487: END IF;
488:
489: END IF;
490:
491: IF PG_DEBUG in ('Y', 'C') THEN
492: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact ()-');
493: END IF;
494:
495: EXCEPTION
496: WHEN NO_DATA_FOUND THEN
494:
495: EXCEPTION
496: WHEN NO_DATA_FOUND THEN
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
499: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Contact');
500: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
501: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
502: END IF;
495: EXCEPTION
496: WHEN NO_DATA_FOUND THEN
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
499: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Contact');
500: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
501: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
502: END IF;
503: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_CONTACT');
496: WHEN NO_DATA_FOUND THEN
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
499: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Contact');
500: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
501: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
502: END IF;
503: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_CONTACT');
504: app_exception.raise_exception;
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
499: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Contact');
500: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
501: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
502: END IF;
503: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_DRAWEE_CONTACT');
504: app_exception.raise_exception;
505:
504: app_exception.raise_exception;
505:
506: WHEN OTHERS THEN
507: IF PG_DEBUG in ('Y', 'C') THEN
508: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
509: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
510: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
511: END IF;
512: RAISE;
505:
506: WHEN OTHERS THEN
507: IF PG_DEBUG in ('Y', 'C') THEN
508: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
509: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
510: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
511: END IF;
512: RAISE;
513:
506: WHEN OTHERS THEN
507: IF PG_DEBUG in ('Y', 'C') THEN
508: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Contact () ');
509: arp_util.debug('Validate_Drawee: ' || ' p_drawee_contact_id = ' || p_drawee_contact_id);
510: arp_util.debug('Validate_Drawee: ' || ' p_drawee_id = ' || p_drawee_id);
511: END IF;
512: RAISE;
513:
514: END Validate_Drawee_Contact;
531: l_end_date DATE;
532:
533: BEGIN
534: IF PG_DEBUG in ('Y', 'C') THEN
535: arp_util.debug('Validate_Drawee: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_Currency ()+');
536: END IF;
537:
538: SELECT start_date_active, end_date_active
539: INTO l_start_date , l_end_date
550: IF (p_issue_date NOT BETWEEN nvl(l_start_date, p_issue_date)
551: AND nvl(l_end_date, p_issue_date))
552: THEN
553: IF PG_DEBUG in ('Y', 'C') THEN
554: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Currency Invalid with Issue Date');
555: arp_util.debug('Validate_Drawee: ' || 'Issue Date : ' || p_issue_date);
556: arp_util.debug('Validate_Drawee: ' || 'Currency : ' || p_invoice_currency_code);
557: END IF;
558: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_CURRENCY');
551: AND nvl(l_end_date, p_issue_date))
552: THEN
553: IF PG_DEBUG in ('Y', 'C') THEN
554: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Currency Invalid with Issue Date');
555: arp_util.debug('Validate_Drawee: ' || 'Issue Date : ' || p_issue_date);
556: arp_util.debug('Validate_Drawee: ' || 'Currency : ' || p_invoice_currency_code);
557: END IF;
558: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_CURRENCY');
559: app_exception.raise_exception;
552: THEN
553: IF PG_DEBUG in ('Y', 'C') THEN
554: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Currency Invalid with Issue Date');
555: arp_util.debug('Validate_Drawee: ' || 'Issue Date : ' || p_issue_date);
556: arp_util.debug('Validate_Drawee: ' || 'Currency : ' || p_invoice_currency_code);
557: END IF;
558: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_BAD_DATE_CURRENCY');
559: app_exception.raise_exception;
560: END IF;
560: END IF;
561:
562:
563: IF PG_DEBUG in ('Y', 'C') THEN
564: arp_util.debug('Validate_Drawee: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_Currency ()-');
565: END IF;
566:
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
566:
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: IF PG_DEBUG in ('Y', 'C') THEN
570: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
571: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Currency');
572: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
573: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
574: END IF;
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: IF PG_DEBUG in ('Y', 'C') THEN
570: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
571: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Currency');
572: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
573: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
574: END IF;
575: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_CURRENCY');
568: WHEN NO_DATA_FOUND THEN
569: IF PG_DEBUG in ('Y', 'C') THEN
570: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
571: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Currency');
572: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
573: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
574: END IF;
575: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_CURRENCY');
576: app_exception.raise_exception;
569: IF PG_DEBUG in ('Y', 'C') THEN
570: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
571: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Currency');
572: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
573: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
574: END IF;
575: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_CURRENCY');
576: app_exception.raise_exception;
577:
576: app_exception.raise_exception;
577:
578: WHEN OTHERS THEN
579: IF PG_DEBUG in ('Y', 'C') THEN
580: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
581: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
582: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
583: END IF;
584: RAISE;
577:
578: WHEN OTHERS THEN
579: IF PG_DEBUG in ('Y', 'C') THEN
580: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
581: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
582: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
583: END IF;
584: RAISE;
585:
578: WHEN OTHERS THEN
579: IF PG_DEBUG in ('Y', 'C') THEN
580: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Currency () ');
581: arp_util.debug('Validate_Drawee: ' || ' p_invoice_currency_code = : ' || p_invoice_currency_code);
582: arp_util.debug('Validate_Drawee: ' || ' p_issue_date = : ' || p_issue_date);
583: END IF;
584: RAISE;
585:
586: END Validate_Currency;
608: printing_option_invalid EXCEPTION;
609:
610: BEGIN
611: IF PG_DEBUG in ('Y', 'C') THEN
612: arp_util.debug('Validate_Drawee: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_Printing_Option ()+');
613: END IF;
614:
615:
616: /*----------------------------------------------+
643: FROM RA_CUST_TRX_TYPES
644: WHERE cust_trx_type_id = p_cust_trx_type_id;
645:
646: IF PG_DEBUG in ('Y', 'C') THEN
647: arp_util.debug('Validate_Drawee: ' || 'Signed Flag : ' || l_signed_flag);
648: arp_util.debug('Validate_Drawee: ' || 'Format Program : ' || l_format_program_id);
649: arp_util.debug('Validate_Drawee: ' || 'Printing Option : ' || p_printing_option);
650: END IF;
651:
644: WHERE cust_trx_type_id = p_cust_trx_type_id;
645:
646: IF PG_DEBUG in ('Y', 'C') THEN
647: arp_util.debug('Validate_Drawee: ' || 'Signed Flag : ' || l_signed_flag);
648: arp_util.debug('Validate_Drawee: ' || 'Format Program : ' || l_format_program_id);
649: arp_util.debug('Validate_Drawee: ' || 'Printing Option : ' || p_printing_option);
650: END IF;
651:
652: IF (p_printing_option = 'NOT' and l_signed_flag = 'Y')
645:
646: IF PG_DEBUG in ('Y', 'C') THEN
647: arp_util.debug('Validate_Drawee: ' || 'Signed Flag : ' || l_signed_flag);
648: arp_util.debug('Validate_Drawee: ' || 'Format Program : ' || l_format_program_id);
649: arp_util.debug('Validate_Drawee: ' || 'Printing Option : ' || p_printing_option);
650: END IF;
651:
652: IF (p_printing_option = 'NOT' and l_signed_flag = 'Y')
653: THEN
651:
652: IF (p_printing_option = 'NOT' and l_signed_flag = 'Y')
653: THEN
654: IF PG_DEBUG in ('Y', 'C') THEN
655: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Printing is mandatory');
656: END IF;
657: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_PRINTING_MANDATORY');
658: app_exception.raise_exception;
659: END IF;
666:
667: IF (p_printing_option = 'PRI' AND l_format_program_id IS NULL)
668: THEN
669: IF PG_DEBUG in ('Y', 'C') THEN
670: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> No format program id');
671: END IF;
672: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_NO_PRINT_FORMAT');
673: app_exception.raise_exception;
674: END IF;
673: app_exception.raise_exception;
674: END IF;
675:
676: IF PG_DEBUG in ('Y', 'C') THEN
677: arp_util.debug('Validate_Drawee: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_Printing_Option ()-');
678: END IF;
679:
680: EXCEPTION
681: WHEN printing_option_invalid THEN
679:
680: EXCEPTION
681: WHEN printing_option_invalid THEN
682: IF PG_DEBUG in ('Y', 'C') THEN
683: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Value for Printing Option');
684: arp_util.debug('Validate_Drawee: ' || ' Printing Option : ' || p_printing_option);
685: END IF;
686: FND_MESSAGE.SET_NAME ('AR', 'AR_PROCEDURE_VALID_ARGS_FAIL');
687: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'Printing Option');
680: EXCEPTION
681: WHEN printing_option_invalid THEN
682: IF PG_DEBUG in ('Y', 'C') THEN
683: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> Invalid Value for Printing Option');
684: arp_util.debug('Validate_Drawee: ' || ' Printing Option : ' || p_printing_option);
685: END IF;
686: FND_MESSAGE.SET_NAME ('AR', 'AR_PROCEDURE_VALID_ARGS_FAIL');
687: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'Printing Option');
688: FND_MESSAGE.SET_TOKEN ('PROCEDURE', 'BR CREATION API');
689: app_exception.raise_exception;
690:
691: WHEN OTHERS THEN
692: IF PG_DEBUG in ('Y', 'C') THEN
693: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Printing_Option () ');
694: arp_util.debug('Validate_Drawee: ' || ' p_printing_option = ' || p_printing_option);
695: arp_util.debug('Validate_Drawee: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
696: END IF;
697: RAISE;
690:
691: WHEN OTHERS THEN
692: IF PG_DEBUG in ('Y', 'C') THEN
693: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Printing_Option () ');
694: arp_util.debug('Validate_Drawee: ' || ' p_printing_option = ' || p_printing_option);
695: arp_util.debug('Validate_Drawee: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
696: END IF;
697: RAISE;
698:
691: WHEN OTHERS THEN
692: IF PG_DEBUG in ('Y', 'C') THEN
693: arp_util.debug('Validate_Drawee: ' || '>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Printing_Option () ');
694: arp_util.debug('Validate_Drawee: ' || ' p_printing_option = ' || p_printing_option);
695: arp_util.debug('Validate_Drawee: ' || ' p_cust_trx_type_id = ' || p_cust_trx_type_id);
696: END IF;
697: RAISE;
698:
699: END Validate_Printing_Option;
734: l_bank_ok NUMBER; /* bug 1798699 */
735:
736: BEGIN
737: IF PG_DEBUG in ('Y', 'C') THEN
738: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Account ()+');
739: END IF;
740:
741: /* bug 1758982: Unable to create Manual BR when customer has
742: more then 1 drawee site with same bank account assigned */
743:
744: /* PAYMENT_UPTAKE: Removed validation bcoz Drawee_bank_account_id is obsoleted */
745:
746: IF PG_DEBUG in ('Y', 'C') THEN
747: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Drawee_Account ()-');
748: END IF;
749:
750: END Validate_Drawee_Account;
751:
795:
796: BEGIN
797:
798: IF pg_debug IN ('Y', 'C') THEN
799: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account ()+');
800: END IF;
801:
802: IF (p_remit_bank_account_id IS NOT NULL) THEN
803:
814: IF (l_currency_code <> p_invoice_currency_code) AND
815: (l_receipt_multi_currency_flag <> 'Y') THEN
816:
817: IF PG_DEBUG in ('Y', 'C') THEN
818: arp_util.debug('Validate_Remit_Account: ' ||
819: '>>>>>>>>>> Remittance Account invalid Currency');
820: arp_util.debug('Validate_Remit_Account: ' ||
821: ' remit bank account use id : ' || p_remit_bank_account_id);
822: arp_util.debug('Validate_Remit_Account: ' ||
816:
817: IF PG_DEBUG in ('Y', 'C') THEN
818: arp_util.debug('Validate_Remit_Account: ' ||
819: '>>>>>>>>>> Remittance Account invalid Currency');
820: arp_util.debug('Validate_Remit_Account: ' ||
821: ' remit bank account use id : ' || p_remit_bank_account_id);
822: arp_util.debug('Validate_Remit_Account: ' ||
823: ' BR Currency : ' || p_invoice_currency_code);
824: arp_util.debug('Validate_Remit_Account: ' ||
818: arp_util.debug('Validate_Remit_Account: ' ||
819: '>>>>>>>>>> Remittance Account invalid Currency');
820: arp_util.debug('Validate_Remit_Account: ' ||
821: ' remit bank account use id : ' || p_remit_bank_account_id);
822: arp_util.debug('Validate_Remit_Account: ' ||
823: ' BR Currency : ' || p_invoice_currency_code);
824: arp_util.debug('Validate_Remit_Account: ' ||
825: ' Remit Account Currency : ' || l_currency_code);
826: arp_util.debug('Validate_Remit_Account: ' ||
820: arp_util.debug('Validate_Remit_Account: ' ||
821: ' remit bank account use id : ' || p_remit_bank_account_id);
822: arp_util.debug('Validate_Remit_Account: ' ||
823: ' BR Currency : ' || p_invoice_currency_code);
824: arp_util.debug('Validate_Remit_Account: ' ||
825: ' Remit Account Currency : ' || l_currency_code);
826: arp_util.debug('Validate_Remit_Account: ' ||
827: ' Multi Currency Flag : ' || l_receipt_multi_currency_flag);
828: END IF;
822: arp_util.debug('Validate_Remit_Account: ' ||
823: ' BR Currency : ' || p_invoice_currency_code);
824: arp_util.debug('Validate_Remit_Account: ' ||
825: ' Remit Account Currency : ' || l_currency_code);
826: arp_util.debug('Validate_Remit_Account: ' ||
827: ' Multi Currency Flag : ' || l_receipt_multi_currency_flag);
828: END IF;
829:
830: fnd_message.set_name ('AR', 'AR_BR_INVALID_REMIT_CURRENCY');
841: IF (p_issue_date NOT BETWEEN p_issue_date AND
842: NVL(l_inactive_date , p_issue_date)) THEN
843:
844: IF PG_DEBUG in ('Y', 'C') THEN
845: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Remit_Account () ');
846: arp_util.debug('Validate_Remit_Account: ' ||
847: '>>>>>>>>>> Remittance Account invalid with Issue Date');
848: arp_util.debug('Validate_Remit_Account: ' ||
849: ' p_issue_date : ' || p_issue_date);
842: NVL(l_inactive_date , p_issue_date)) THEN
843:
844: IF PG_DEBUG in ('Y', 'C') THEN
845: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Remit_Account () ');
846: arp_util.debug('Validate_Remit_Account: ' ||
847: '>>>>>>>>>> Remittance Account invalid with Issue Date');
848: arp_util.debug('Validate_Remit_Account: ' ||
849: ' p_issue_date : ' || p_issue_date);
850: arp_util.debug('Validate_Remit_Account: ' ||
844: IF PG_DEBUG in ('Y', 'C') THEN
845: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Remit_Account () ');
846: arp_util.debug('Validate_Remit_Account: ' ||
847: '>>>>>>>>>> Remittance Account invalid with Issue Date');
848: arp_util.debug('Validate_Remit_Account: ' ||
849: ' p_issue_date : ' || p_issue_date);
850: arp_util.debug('Validate_Remit_Account: ' ||
851: ' remit bank account use id : ' ||
852: p_remit_bank_account_id);
846: arp_util.debug('Validate_Remit_Account: ' ||
847: '>>>>>>>>>> Remittance Account invalid with Issue Date');
848: arp_util.debug('Validate_Remit_Account: ' ||
849: ' p_issue_date : ' || p_issue_date);
850: arp_util.debug('Validate_Remit_Account: ' ||
851: ' remit bank account use id : ' ||
852: p_remit_bank_account_id);
853: END IF;
854:
859:
860: END IF;
861:
862: IF pg_debug IN ('Y', 'C') THEN
863: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account ()-');
864: END IF;
865:
866: EXCEPTION
867: WHEN NO_DATA_FOUND THEN
865:
866: EXCEPTION
867: WHEN NO_DATA_FOUND THEN
868: IF pg_debug IN ('Y', 'C') THEN
869: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
870: arp_util.debug('Validate_Remit_Account: ' || '>>>>>>>>>> Invalid Remittance Account');
871: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
872: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
873: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
866: EXCEPTION
867: WHEN NO_DATA_FOUND THEN
868: IF pg_debug IN ('Y', 'C') THEN
869: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
870: arp_util.debug('Validate_Remit_Account: ' || '>>>>>>>>>> Invalid Remittance Account');
871: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
872: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
873: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
874: END IF;
867: WHEN NO_DATA_FOUND THEN
868: IF pg_debug IN ('Y', 'C') THEN
869: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
870: arp_util.debug('Validate_Remit_Account: ' || '>>>>>>>>>> Invalid Remittance Account');
871: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
872: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
873: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
874: END IF;
875:
868: IF pg_debug IN ('Y', 'C') THEN
869: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
870: arp_util.debug('Validate_Remit_Account: ' || '>>>>>>>>>> Invalid Remittance Account');
871: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
872: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
873: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
874: END IF;
875:
876: fnd_message.set_name('AR', 'AR_BR_INVALID_REMIT_ACCOUNT');
869: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
870: arp_util.debug('Validate_Remit_Account: ' || '>>>>>>>>>> Invalid Remittance Account');
871: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
872: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
873: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
874: END IF;
875:
876: fnd_message.set_name('AR', 'AR_BR_INVALID_REMIT_ACCOUNT');
877: app_exception.raise_exception;
877: app_exception.raise_exception;
878:
879: WHEN OTHERS THEN
880: IF pg_debug IN ('Y', 'C') THEN
881: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
882: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
883: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
884: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
885: END IF;
878:
879: WHEN OTHERS THEN
880: IF pg_debug IN ('Y', 'C') THEN
881: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
882: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
883: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
884: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
885: END IF;
886: RAISE;
879: WHEN OTHERS THEN
880: IF pg_debug IN ('Y', 'C') THEN
881: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
882: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
883: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
884: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
885: END IF;
886: RAISE;
887:
880: IF pg_debug IN ('Y', 'C') THEN
881: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Remit_Account () ');
882: arp_util.debug('Validate_Remit_Account: ' || ' remit bank account use id = ' || p_remit_bank_account_id);
883: arp_util.debug('Validate_Remit_Account: ' || ' p_invoice_currency_code = ' || p_invoice_currency_code);
884: arp_util.debug('Validate_Remit_Account: ' || ' p_issue_date = ' || p_issue_date);
885: END IF;
886: RAISE;
887:
888: END validate_remit_account;
902: PROCEDURE Validate_Override_Flag ( p_override_remit_account_flag IN VARCHAR2) IS
903:
904: BEGIN
905: IF PG_DEBUG in ('Y', 'C') THEN
906: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Override_Flag ()+');
907: END IF;
908:
909: IF p_override_remit_account_flag NOT IN ('Y', 'N')
910: THEN
908:
909: IF p_override_remit_account_flag NOT IN ('Y', 'N')
910: THEN
911: IF PG_DEBUG in ('Y', 'C') THEN
912: arp_util.debug('Validate_Override_Flag: ' || '>>>>>>>>>> Invalid Value for the Override Remit Account Flag');
913: arp_util.debug('Validate_Override_Flag: ' || 'Override remit account flag : ' || p_override_remit_account_flag);
914: END IF;
915: FND_MESSAGE.SET_NAME ('AR', 'AR_PROCEDURE_VALID_ARGS_FAIL');
916: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'Override Remittance Flag');
909: IF p_override_remit_account_flag NOT IN ('Y', 'N')
910: THEN
911: IF PG_DEBUG in ('Y', 'C') THEN
912: arp_util.debug('Validate_Override_Flag: ' || '>>>>>>>>>> Invalid Value for the Override Remit Account Flag');
913: arp_util.debug('Validate_Override_Flag: ' || 'Override remit account flag : ' || p_override_remit_account_flag);
914: END IF;
915: FND_MESSAGE.SET_NAME ('AR', 'AR_PROCEDURE_VALID_ARGS_FAIL');
916: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'Override Remittance Flag');
917: FND_MESSAGE.SET_TOKEN ('PROCEDURE', 'BR CREATION API');
918: app_exception.raise_exception;
919: END IF;
920:
921: IF PG_DEBUG in ('Y', 'C') THEN
922: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Override_Flag ()-');
923: END IF;
924:
925: EXCEPTION
926: WHEN OTHERS THEN
924:
925: EXCEPTION
926: WHEN OTHERS THEN
927: IF PG_DEBUG in ('Y', 'C') THEN
928: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Override_Flag () ');
929: arp_util.debug('Validate_Override_Flag: ' || ' p_override_remit_account_flag = ' || p_override_remit_account_flag);
930: END IF;
931: app_exception.raise_exception;
932:
925: EXCEPTION
926: WHEN OTHERS THEN
927: IF PG_DEBUG in ('Y', 'C') THEN
928: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Override_Flag () ');
929: arp_util.debug('Validate_Override_Flag: ' || ' p_override_remit_account_flag = ' || p_override_remit_account_flag);
930: END IF;
931: app_exception.raise_exception;
932:
933: END Validate_Override_Flag;
948: l_batch_id_valid VARCHAR2(1);
949:
950: BEGIN
951: IF PG_DEBUG in ('Y', 'C') THEN
952: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID ()+');
953: END IF;
954:
955: IF (p_batch_id IS NOT NULL)
956: THEN
961: AND status = 'A';
962: END IF;
963:
964: IF PG_DEBUG in ('Y', 'C') THEN
965: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID ()-');
966: END IF;
967:
968: EXCEPTION
969: WHEN NO_DATA_FOUND THEN
967:
968: EXCEPTION
969: WHEN NO_DATA_FOUND THEN
970: IF PG_DEBUG in ('Y', 'C') THEN
971: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID () ');
972: arp_util.debug('Validate_Batch_ID: ' || '>>>>>>>>>> Invalid Batch ID');
973: arp_util.debug('Validate_Batch_ID: ' || ' p_batch_id = ' || p_batch_id);
974: END IF;
975: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_ID');
968: EXCEPTION
969: WHEN NO_DATA_FOUND THEN
970: IF PG_DEBUG in ('Y', 'C') THEN
971: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID () ');
972: arp_util.debug('Validate_Batch_ID: ' || '>>>>>>>>>> Invalid Batch ID');
973: arp_util.debug('Validate_Batch_ID: ' || ' p_batch_id = ' || p_batch_id);
974: END IF;
975: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_ID');
976: app_exception.raise_exception;
969: WHEN NO_DATA_FOUND THEN
970: IF PG_DEBUG in ('Y', 'C') THEN
971: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID () ');
972: arp_util.debug('Validate_Batch_ID: ' || '>>>>>>>>>> Invalid Batch ID');
973: arp_util.debug('Validate_Batch_ID: ' || ' p_batch_id = ' || p_batch_id);
974: END IF;
975: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BATCH_ID');
976: app_exception.raise_exception;
977:
976: app_exception.raise_exception;
977:
978: WHEN OTHERS THEN
979: IF PG_DEBUG in ('Y', 'C') THEN
980: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID () ');
981: arp_util.debug('Validate_Batch_ID: ' || ' p_batch_id = ' || p_batch_id);
982: END IF;
983: RAISE;
984:
977:
978: WHEN OTHERS THEN
979: IF PG_DEBUG in ('Y', 'C') THEN
980: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Batch_ID () ');
981: arp_util.debug('Validate_Batch_ID: ' || ' p_batch_id = ' || p_batch_id);
982: END IF;
983: RAISE;
984:
985: END Validate_Batch_ID;
1001: l_customer_trx_id_valid VARCHAR2(1);
1002:
1003: BEGIN
1004: IF PG_DEBUG in ('Y', 'C') THEN
1005: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID ()+');
1006: END IF;
1007:
1008: SELECT 'Y'
1009: INTO l_customer_trx_id_valid
1010: FROM RA_CUSTOMER_TRX
1011: WHERE customer_trx_id = p_customer_trx_id;
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID ()-');
1015: END IF;
1016:
1017: EXCEPTION
1018: WHEN NO_DATA_FOUND THEN
1016:
1017: EXCEPTION
1018: WHEN NO_DATA_FOUND THEN
1019: IF PG_DEBUG in ('Y', 'C') THEN
1020: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID () ');
1021: arp_util.debug('Validate_Customer_Trx_ID: ' || '>>>>>>>>>> Invalid BR ID');
1022: arp_util.debug('Validate_Customer_Trx_ID: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1023: END IF;
1024: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1017: EXCEPTION
1018: WHEN NO_DATA_FOUND THEN
1019: IF PG_DEBUG in ('Y', 'C') THEN
1020: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID () ');
1021: arp_util.debug('Validate_Customer_Trx_ID: ' || '>>>>>>>>>> Invalid BR ID');
1022: arp_util.debug('Validate_Customer_Trx_ID: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1023: END IF;
1024: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1025: app_exception.raise_exception;
1018: WHEN NO_DATA_FOUND THEN
1019: IF PG_DEBUG in ('Y', 'C') THEN
1020: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID () ');
1021: arp_util.debug('Validate_Customer_Trx_ID: ' || '>>>>>>>>>> Invalid BR ID');
1022: arp_util.debug('Validate_Customer_Trx_ID: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1023: END IF;
1024: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1025: app_exception.raise_exception;
1026:
1025: app_exception.raise_exception;
1026:
1027: WHEN OTHERS THEN
1028: IF PG_DEBUG in ('Y', 'C') THEN
1029: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID () ');
1030: arp_util.debug('Validate_Customer_Trx_ID: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1031: END IF;
1032: RAISE;
1033:
1026:
1027: WHEN OTHERS THEN
1028: IF PG_DEBUG in ('Y', 'C') THEN
1029: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_ID () ');
1030: arp_util.debug('Validate_Customer_Trx_ID: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1031: END IF;
1032: RAISE;
1033:
1034: END Validate_Customer_Trx_ID;
1049: l_valid VARCHAR2(1);
1050:
1051: BEGIN
1052: IF PG_DEBUG in ('Y', 'C') THEN
1053: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID ()+');
1054: END IF;
1055:
1056: SELECT 'Y'
1057: INTO l_valid
1058: FROM RA_CUSTOMER_TRX_LINES
1059: WHERE customer_trx_line_id = p_customer_trx_line_id;
1060:
1061: IF PG_DEBUG in ('Y', 'C') THEN
1062: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID ()-');
1063: END IF;
1064:
1065: EXCEPTION
1066: WHEN NO_DATA_FOUND THEN
1064:
1065: EXCEPTION
1066: WHEN NO_DATA_FOUND THEN
1067: IF PG_DEBUG in ('Y', 'C') THEN
1068: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID () ');
1069: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || '>>>>>>>>>> Invalid BR Assignment ID');
1070: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || ' p_customer_trx_line_id = ' || p_customer_trx_line_id);
1071: END IF;
1072: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_ASSIGNMENT_ID');
1065: EXCEPTION
1066: WHEN NO_DATA_FOUND THEN
1067: IF PG_DEBUG in ('Y', 'C') THEN
1068: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID () ');
1069: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || '>>>>>>>>>> Invalid BR Assignment ID');
1070: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || ' p_customer_trx_line_id = ' || p_customer_trx_line_id);
1071: END IF;
1072: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_ASSIGNMENT_ID');
1073: app_exception.raise_exception;
1066: WHEN NO_DATA_FOUND THEN
1067: IF PG_DEBUG in ('Y', 'C') THEN
1068: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID () ');
1069: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || '>>>>>>>>>> Invalid BR Assignment ID');
1070: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || ' p_customer_trx_line_id = ' || p_customer_trx_line_id);
1071: END IF;
1072: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_ASSIGNMENT_ID');
1073: app_exception.raise_exception;
1074:
1073: app_exception.raise_exception;
1074:
1075: WHEN OTHERS THEN
1076: IF PG_DEBUG in ('Y', 'C') THEN
1077: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID () ');
1078: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || ' p_customer_trx_line_id = ' || p_customer_trx_line_id);
1079: END IF;
1080: RAISE;
1081:
1074:
1075: WHEN OTHERS THEN
1076: IF PG_DEBUG in ('Y', 'C') THEN
1077: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Customer_Trx_Line_ID () ');
1078: arp_util.debug('Validate_Customer_Trx_Line_ID: ' || ' p_customer_trx_line_id = ' || p_customer_trx_line_id);
1079: END IF;
1080: RAISE;
1081:
1082: END Validate_Customer_Trx_Line_ID;
1100:
1101: BEGIN
1102:
1103: IF PG_DEBUG in ('Y', 'C') THEN
1104: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Create_BR_Header ()+');
1105: END IF;
1106:
1107:
1108: -- Validate GL Date
1161:
1162: Validate_Batch_ID (p_trx_rec.batch_id);
1163:
1164: IF PG_DEBUG in ('Y', 'C') THEN
1165: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Create_BR_Header ()-');
1166: END IF;
1167:
1168: EXCEPTION
1169: WHEN Others THEN
1167:
1168: EXCEPTION
1169: WHEN Others THEN
1170: IF PG_DEBUG in ('Y', 'C') THEN
1171: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Create_BR_Header () ');
1172: END IF;
1173: RAISE;
1174:
1175: END Validate_Create_BR_Header;
1193:
1194: BEGIN
1195:
1196: IF PG_DEBUG in ('Y', 'C') THEN
1197: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Update_BR_Header ()+');
1198: END IF;
1199:
1200: -- Validate GL Date
1201: --Commented by Yao Zhang for bug 10125134
1251:
1252: Validate_Override_Flag (p_trx_rec.override_remit_account_flag);
1253:
1254: IF PG_DEBUG in ('Y', 'C') THEN
1255: arp_util.debug('Validate_Update_BR_Header: ' || 'AR_BILLS_CREATION_VAL_PVT.Validate_BR_Update_Header ()-');
1256: END IF;
1257:
1258:
1259: EXCEPTION
1258:
1259: EXCEPTION
1260: WHEN Others THEN
1261: IF PG_DEBUG in ('Y', 'C') THEN
1262: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Update_BR_Header () ');
1263: END IF;
1264: RAISE;
1265:
1266: END Validate_Update_BR_Header;
1293:
1294:
1295: BEGIN
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()+');
1298: arp_util.debug ('Validate_Assigned_Amount: ' || 'Exchange rate : ' || p_ps_rec.exchange_rate);
1299: arp_util.debug ('Validate_Assigned_Amount: ' || 'Amount Due Remaining : ' || p_ps_rec.amount_due_remaining);
1300: arp_util.debug ('Validate_Assigned_Amount: ' || 'Acctd Amount Due Remaining : ' || p_ps_rec.acctd_amount_due_remaining);
1301: END IF;
1294:
1295: BEGIN
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()+');
1298: arp_util.debug ('Validate_Assigned_Amount: ' || 'Exchange rate : ' || p_ps_rec.exchange_rate);
1299: arp_util.debug ('Validate_Assigned_Amount: ' || 'Amount Due Remaining : ' || p_ps_rec.amount_due_remaining);
1300: arp_util.debug ('Validate_Assigned_Amount: ' || 'Acctd Amount Due Remaining : ' || p_ps_rec.acctd_amount_due_remaining);
1301: END IF;
1302:
1295: BEGIN
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()+');
1298: arp_util.debug ('Validate_Assigned_Amount: ' || 'Exchange rate : ' || p_ps_rec.exchange_rate);
1299: arp_util.debug ('Validate_Assigned_Amount: ' || 'Amount Due Remaining : ' || p_ps_rec.amount_due_remaining);
1300: arp_util.debug ('Validate_Assigned_Amount: ' || 'Acctd Amount Due Remaining : ' || p_ps_rec.acctd_amount_due_remaining);
1301: END IF;
1302:
1303:
1296: IF PG_DEBUG in ('Y', 'C') THEN
1297: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()+');
1298: arp_util.debug ('Validate_Assigned_Amount: ' || 'Exchange rate : ' || p_ps_rec.exchange_rate);
1299: arp_util.debug ('Validate_Assigned_Amount: ' || 'Amount Due Remaining : ' || p_ps_rec.amount_due_remaining);
1300: arp_util.debug ('Validate_Assigned_Amount: ' || 'Acctd Amount Due Remaining : ' || p_ps_rec.acctd_amount_due_remaining);
1301: END IF;
1302:
1303:
1304: IF (p_trl_rec.extended_amount = 0)
1303:
1304: IF (p_trl_rec.extended_amount = 0)
1305: THEN
1306: IF PG_DEBUG in ('Y', 'C') THEN
1307: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> The amount of the assignment must not be null');
1308: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1309: END IF;
1310: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_AMOUNT');
1311: app_exception.raise_exception;
1304: IF (p_trl_rec.extended_amount = 0)
1305: THEN
1306: IF PG_DEBUG in ('Y', 'C') THEN
1307: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> The amount of the assignment must not be null');
1308: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1309: END IF;
1310: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_AMOUNT');
1311: app_exception.raise_exception;
1312: END IF;
1319:
1320: IF ABS(p_trl_rec.extended_amount) > ABS(p_ps_rec.amount_due_remaining)
1321: THEN
1322: IF PG_DEBUG in ('Y', 'C') THEN
1323: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> Amount Exchanged Exceed PS');
1324: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> OverApplication not allowed');
1325: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1326: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Remaining : ' || p_ps_rec.amount_due_remaining);
1327: END IF;
1320: IF ABS(p_trl_rec.extended_amount) > ABS(p_ps_rec.amount_due_remaining)
1321: THEN
1322: IF PG_DEBUG in ('Y', 'C') THEN
1323: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> Amount Exchanged Exceed PS');
1324: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> OverApplication not allowed');
1325: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1326: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Remaining : ' || p_ps_rec.amount_due_remaining);
1327: END IF;
1328: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_OVERAPPLY');
1321: THEN
1322: IF PG_DEBUG in ('Y', 'C') THEN
1323: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> Amount Exchanged Exceed PS');
1324: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> OverApplication not allowed');
1325: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1326: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Remaining : ' || p_ps_rec.amount_due_remaining);
1327: END IF;
1328: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_OVERAPPLY');
1329: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_ps_rec.trx_number);
1322: IF PG_DEBUG in ('Y', 'C') THEN
1323: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> Amount Exchanged Exceed PS');
1324: arp_util.debug('Validate_Assigned_Amount: ' || '>>>>>>>>>> OverApplication not allowed');
1325: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Assigned : ' || p_trl_rec.extended_amount);
1326: arp_util.debug('Validate_Assigned_Amount: ' || ' Amount Remaining : ' || p_ps_rec.amount_due_remaining);
1327: END IF;
1328: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_OVERAPPLY');
1329: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_ps_rec.trx_number);
1330: app_exception.raise_exception;
1337:
1338: l_ADR := p_ps_rec.amount_due_remaining;
1339: l_acctd_ADR := p_ps_rec.acctd_amount_due_remaining;
1340:
1341: arp_util.calc_acctd_amount(
1342: NULL,
1343: NULL,
1344: NULL,
1345: nvl(p_ps_rec.exchange_rate,1) ,
1351: l_new_acctd_ADR , /* New Acctd. ADR */
1352: p_trl_rec.extended_acctd_amount ); /* Acct. amount_applied */
1353:
1354: IF PG_DEBUG in ('Y', 'C') THEN
1355: arp_util.debug('Validate_Assigned_Amount: ' || 'Amount_applied : ' || p_trl_rec.extended_amount);
1356: arp_util.debug('Validate_Assigned_Amount: ' || 'Acctd Amount Applied : ' || p_trl_rec.extended_acctd_amount);
1357: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()-');
1358: END IF;
1359:
1352: p_trl_rec.extended_acctd_amount ); /* Acct. amount_applied */
1353:
1354: IF PG_DEBUG in ('Y', 'C') THEN
1355: arp_util.debug('Validate_Assigned_Amount: ' || 'Amount_applied : ' || p_trl_rec.extended_amount);
1356: arp_util.debug('Validate_Assigned_Amount: ' || 'Acctd Amount Applied : ' || p_trl_rec.extended_acctd_amount);
1357: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()-');
1358: END IF;
1359:
1360: EXCEPTION
1353:
1354: IF PG_DEBUG in ('Y', 'C') THEN
1355: arp_util.debug('Validate_Assigned_Amount: ' || 'Amount_applied : ' || p_trl_rec.extended_amount);
1356: arp_util.debug('Validate_Assigned_Amount: ' || 'Acctd Amount Applied : ' || p_trl_rec.extended_acctd_amount);
1357: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount ()-');
1358: END IF;
1359:
1360: EXCEPTION
1361: WHEN OTHERS THEN
1359:
1360: EXCEPTION
1361: WHEN OTHERS THEN
1362: IF PG_DEBUG in ('Y', 'C') THEN
1363: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_Assigned_Amount () ');
1364: END IF;
1365: RAISE;
1366:
1367: END Validate_Assigned_Amount;
1383: l_type VARCHAR2(20);
1384:
1385: BEGIN
1386: IF PG_DEBUG in ('Y', 'C') THEN
1387: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Is_Transaction_BR ()+');
1388: END IF;
1389:
1390: SELECT type
1391: INTO l_type
1394:
1395: IF (l_type = 'BR')
1396: THEN
1397: IF PG_DEBUG in ('Y', 'C') THEN
1398: arp_util.debug ('Is_Transaction_BR: ' || 'The transaction to be exchanged is a BR');
1399: END IF;
1400: RETURN (TRUE);
1401: ELSE
1402: RETURN (FALSE);
1402: RETURN (FALSE);
1403: END IF;
1404:
1405: IF PG_DEBUG in ('Y', 'C') THEN
1406: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Is_Transaction_BR ()-');
1407: END IF;
1408:
1409: EXCEPTION
1410: WHEN NO_DATA_FOUND THEN
1408:
1409: EXCEPTION
1410: WHEN NO_DATA_FOUND THEN
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Is_Transaction_BR () ');
1413: arp_util.debug('Is_Transaction_BR: ' || '>>>>>>>>>> Invalid Transaction Type ID');
1414: arp_util.debug('Is_Transaction_BR: ' || ' p_cust_trx_type_id : ' || p_cust_trx_type_id);
1415: END IF;
1416: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
1409: EXCEPTION
1410: WHEN NO_DATA_FOUND THEN
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Is_Transaction_BR () ');
1413: arp_util.debug('Is_Transaction_BR: ' || '>>>>>>>>>> Invalid Transaction Type ID');
1414: arp_util.debug('Is_Transaction_BR: ' || ' p_cust_trx_type_id : ' || p_cust_trx_type_id);
1415: END IF;
1416: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
1417: app_exception.raise_exception;
1410: WHEN NO_DATA_FOUND THEN
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Is_Transaction_BR () ');
1413: arp_util.debug('Is_Transaction_BR: ' || '>>>>>>>>>> Invalid Transaction Type ID');
1414: arp_util.debug('Is_Transaction_BR: ' || ' p_cust_trx_type_id : ' || p_cust_trx_type_id);
1415: END IF;
1416: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
1417: app_exception.raise_exception;
1418:
1417: app_exception.raise_exception;
1418:
1419: WHEN OTHERS THEN
1420: IF PG_DEBUG in ('Y', 'C') THEN
1421: arp_util.debug('>>>>>>>>>> EXCEPTION : Is_Transaction_BR () ');
1422: arp_util.debug('Is_Transaction_BR: ' || ' p_cust_trx_type_id : ' || p_cust_trx_type_id);
1423: END IF;
1424: RAISE;
1425:
1418:
1419: WHEN OTHERS THEN
1420: IF PG_DEBUG in ('Y', 'C') THEN
1421: arp_util.debug('>>>>>>>>>> EXCEPTION : Is_Transaction_BR () ');
1422: arp_util.debug('Is_Transaction_BR: ' || ' p_cust_trx_type_id : ' || p_cust_trx_type_id);
1423: END IF;
1424: RAISE;
1425:
1426: END Is_Transaction_BR;
1442:
1443:
1444: BEGIN
1445: IF PG_DEBUG in ('Y', 'C') THEN
1446: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_BR_Status ()+');
1447: END IF;
1448:
1449: -- Fetch the BR history information
1450:
1459:
1460: IF (l_trh_rec.status <> C_INCOMPLETE)
1461: THEN
1462: IF PG_DEBUG in ('Y', 'C') THEN
1463: arp_util.debug ('Validate_BR_Status: ' || 'You cannot update the assignments when the BR has a status : ' || l_trh_rec.status);
1464: END IF;
1465: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_ASSIGN_FORBIDDEN');
1466: app_exception.raise_exception;
1467: END IF;
1467: END IF;
1468:
1469:
1470: IF PG_DEBUG in ('Y', 'C') THEN
1471: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_BR_Status ()-');
1472: END IF;
1473:
1474: EXCEPTION
1475: WHEN OTHERS THEN
1473:
1474: EXCEPTION
1475: WHEN OTHERS THEN
1476: IF PG_DEBUG in ('Y', 'C') THEN
1477: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_BR_Status () ');
1478: arp_util.debug('Validate_BR_Status: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1479: END IF;
1480: RAISE;
1481:
1474: EXCEPTION
1475: WHEN OTHERS THEN
1476: IF PG_DEBUG in ('Y', 'C') THEN
1477: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_BR_Status () ');
1478: arp_util.debug('Validate_BR_Status: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1479: END IF;
1480: RAISE;
1481:
1482: END Validate_BR_Status;
1499: l_trx_rec RA_CUSTOMER_TRX%ROWTYPE;
1500:
1501: BEGIN
1502: IF PG_DEBUG in ('Y', 'C') THEN
1503: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assignment_Status ()+');
1504: END IF;
1505:
1506: l_trh_rec.customer_trx_id := p_customer_trx_id;
1507: ARP_TRANSACTION_HISTORY_PKG.fetch_f_trx_id (l_trh_rec);
1509:
1510: IF (l_trh_rec.status <> C_UNPAID)
1511: THEN
1512: IF PG_DEBUG in ('Y', 'C') THEN
1513: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> The BR to be exchanged must be Unpaid');
1514: arp_util.debug('Validate_Assignment_Status: ' || ' Status : ' || l_trh_rec.status);
1515: arp_util.debug('Validate_Assignment_Status: ' || ' Event : ' || l_trh_rec.event);
1516: END IF;
1517: FND_MESSAGE.SET_NAME ('AR' , 'AR_BR_CANNOT_ASSIGN');
1510: IF (l_trh_rec.status <> C_UNPAID)
1511: THEN
1512: IF PG_DEBUG in ('Y', 'C') THEN
1513: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> The BR to be exchanged must be Unpaid');
1514: arp_util.debug('Validate_Assignment_Status: ' || ' Status : ' || l_trh_rec.status);
1515: arp_util.debug('Validate_Assignment_Status: ' || ' Event : ' || l_trh_rec.event);
1516: END IF;
1517: FND_MESSAGE.SET_NAME ('AR' , 'AR_BR_CANNOT_ASSIGN');
1518: FND_MESSAGE.set_token ('TRXNUM', p_trx_number);
1511: THEN
1512: IF PG_DEBUG in ('Y', 'C') THEN
1513: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> The BR to be exchanged must be Unpaid');
1514: arp_util.debug('Validate_Assignment_Status: ' || ' Status : ' || l_trh_rec.status);
1515: arp_util.debug('Validate_Assignment_Status: ' || ' Event : ' || l_trh_rec.event);
1516: END IF;
1517: FND_MESSAGE.SET_NAME ('AR' , 'AR_BR_CANNOT_ASSIGN');
1518: FND_MESSAGE.set_token ('TRXNUM', p_trx_number);
1519: app_exception.raise_exception;
1519: app_exception.raise_exception;
1520: END IF;
1521:
1522: IF PG_DEBUG in ('Y', 'C') THEN
1523: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_Assignment_Status ()-');
1524: END IF;
1525:
1526: EXCEPTION
1527: WHEN NO_DATA_FOUND THEN
1525:
1526: EXCEPTION
1527: WHEN NO_DATA_FOUND THEN
1528: IF PG_DEBUG in ('Y', 'C') THEN
1529: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1530: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> Invalid BR ID');
1531: arp_util.debug('Validate_Assignment_Status: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1532: END IF;
1533: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1526: EXCEPTION
1527: WHEN NO_DATA_FOUND THEN
1528: IF PG_DEBUG in ('Y', 'C') THEN
1529: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1530: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> Invalid BR ID');
1531: arp_util.debug('Validate_Assignment_Status: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1532: END IF;
1533: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1534: app_exception.raise_exception;
1527: WHEN NO_DATA_FOUND THEN
1528: IF PG_DEBUG in ('Y', 'C') THEN
1529: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1530: arp_util.debug('Validate_Assignment_Status: ' || '>>>>>>>>>> Invalid BR ID');
1531: arp_util.debug('Validate_Assignment_Status: ' || ' Customer Trx ID : ' || p_customer_trx_id);
1532: END IF;
1533: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_BR_ID');
1534: app_exception.raise_exception;
1535:
1534: app_exception.raise_exception;
1535:
1536: WHEN OTHERS THEN
1537: IF PG_DEBUG in ('Y', 'C') THEN
1538: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1539: arp_util.debug('Validate_Assignment_Status: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1540: arp_util.debug('Validate_Assignment_Status: ' || ' p_trx_number = ' || p_trx_number);
1541: END IF;
1542: RAISE;
1535:
1536: WHEN OTHERS THEN
1537: IF PG_DEBUG in ('Y', 'C') THEN
1538: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1539: arp_util.debug('Validate_Assignment_Status: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1540: arp_util.debug('Validate_Assignment_Status: ' || ' p_trx_number = ' || p_trx_number);
1541: END IF;
1542: RAISE;
1543:
1536: WHEN OTHERS THEN
1537: IF PG_DEBUG in ('Y', 'C') THEN
1538: arp_util.debug('>>>>>>>>>> EXCEPTION : Validate_Assignment_Status () ');
1539: arp_util.debug('Validate_Assignment_Status: ' || ' p_customer_trx_id = ' || p_customer_trx_id);
1540: arp_util.debug('Validate_Assignment_Status: ' || ' p_trx_number = ' || p_trx_number);
1541: END IF;
1542: RAISE;
1543:
1544: END Validate_Assignment_Status;
1564:
1565: BEGIN
1566:
1567: IF PG_DEBUG in ('Y', 'C') THEN
1568: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_BR_Assignment ()+');
1569: END IF;
1570:
1571:
1572: /*----------------------------------------------+
1590:
1591: IF (l_type = 'GUAR')
1592: THEN
1593: IF PG_DEBUG in ('Y', 'C') THEN
1594: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> Guarantee cannot be exchanged for BR');
1595: END IF;
1596: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_INVALID_TRX_TYPE');
1597: app_exception.raise_exception;
1598:
1612:
1613: IF (AR_BILLS_MAINTAIN_STATUS_PUB.Is_Payment_Schedule_Reduced(p_ps_rec))
1614: THEN
1615: IF PG_DEBUG in ('Y', 'C') THEN
1616: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1617: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1618: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1619: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_remaining : ' || p_ps_rec.amount_due_remaining);
1620: END IF;
1613: IF (AR_BILLS_MAINTAIN_STATUS_PUB.Is_Payment_Schedule_Reduced(p_ps_rec))
1614: THEN
1615: IF PG_DEBUG in ('Y', 'C') THEN
1616: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1617: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1618: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1619: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_remaining : ' || p_ps_rec.amount_due_remaining);
1620: END IF;
1621: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1614: THEN
1615: IF PG_DEBUG in ('Y', 'C') THEN
1616: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1617: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1618: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1619: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_remaining : ' || p_ps_rec.amount_due_remaining);
1620: END IF;
1621: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1622: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_trx_rec.trx_number);
1615: IF PG_DEBUG in ('Y', 'C') THEN
1616: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1617: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1618: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1619: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_remaining : ' || p_ps_rec.amount_due_remaining);
1620: END IF;
1621: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1622: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_trx_rec.trx_number);
1623: app_exception.raise_exception;
1626:
1627: IF (p_trl_rec.extended_amount <> p_ps_rec.amount_due_original)
1628: THEN
1629: IF PG_DEBUG in ('Y', 'C') THEN
1630: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1631: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1632: arp_util.debug ('Validate_BR_Assignment: ' || ' amount assigned : ' || p_trl_rec.extended_amount);
1633: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1634: END IF;
1627: IF (p_trl_rec.extended_amount <> p_ps_rec.amount_due_original)
1628: THEN
1629: IF PG_DEBUG in ('Y', 'C') THEN
1630: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1631: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1632: arp_util.debug ('Validate_BR_Assignment: ' || ' amount assigned : ' || p_trl_rec.extended_amount);
1633: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1634: END IF;
1635: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1628: THEN
1629: IF PG_DEBUG in ('Y', 'C') THEN
1630: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1631: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1632: arp_util.debug ('Validate_BR_Assignment: ' || ' amount assigned : ' || p_trl_rec.extended_amount);
1633: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1634: END IF;
1635: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1636: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_trx_rec.trx_number);
1629: IF PG_DEBUG in ('Y', 'C') THEN
1630: arp_util.debug ('Validate_BR_Assignment: ' || '>>>>>>>>>> The BR ' || p_trx_rec.trx_number || ' cannot be exchanged');
1631: arp_util.debug ('Validate_BR_Assignment: ' || ' Only total exchange is allowed for BR');
1632: arp_util.debug ('Validate_BR_Assignment: ' || ' amount assigned : ' || p_trl_rec.extended_amount);
1633: arp_util.debug ('Validate_BR_Assignment: ' || ' amount_due_original : ' || p_ps_rec.amount_due_original);
1634: END IF;
1635: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_CANNOT_ASSIGN');
1636: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_trx_rec.trx_number);
1637: app_exception.raise_exception;
1647:
1648: IF AR_BILLS_MAINTAIN_STATUS_PUB.Is_BR_Reserved (p_ps_rec)
1649: THEN
1650: IF PG_DEBUG in ('Y', 'C') THEN
1651: arp_util.debug ('Validate_BR_Assignment: ' || 'The transaction ' || p_trx_rec.trx_number || ' is reserved, it cannot be assigned');
1652: END IF;
1653: FND_MESSAGE.SET_NAME ('AR', 'AR_BR_TRX_ALREADY_ASSIGN');
1654: FND_MESSAGE.SET_TOKEN ('TRXNUM', p_trx_rec.trx_number);
1655: app_exception.raise_exception;
1694: END IF;
1695:
1696:
1697: IF PG_DEBUG in ('Y', 'C') THEN
1698: arp_util.debug('AR_BILLS_CREATION_VAL_PVT.Validate_BR_Assignment ()-');
1699: END IF;
1700:
1701:
1702: EXCEPTION
1701:
1702: EXCEPTION
1703: WHEN Others THEN
1704: IF PG_DEBUG in ('Y', 'C') THEN
1705: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_CREATION_VAL_PVT.Validate_BR_Assignment () ');
1706: END IF;
1707: RAISE;
1708:
1709: END Validate_BR_Assignment;