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