105:
106: BEGIN
107:
108: IF PG_DEBUG in ('Y', 'C') THEN
109: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Doc_Seq ()+');
110: END IF;
111:
112:
113: SELECT count(*)
124:
125: pg_profile_doc_seq := fnd_profile.value('UNIQUE:SEQ_NUMBERS');
126:
127: IF PG_DEBUG in ('Y', 'C') THEN
128: arp_util.debug( 'SEQ : '||NVL( pg_profile_doc_seq, 'N'));
129: END IF;
130:
131: SELECT name
132: INTO l_cat_code
136: IF ( NVL( pg_profile_doc_seq, 'N') <> 'N' )
137: THEN
138: BEGIN
139: IF PG_DEBUG in ('Y', 'C') THEN
140: arp_util.debug( 'Seq numbering on');
141: END IF;
142:
143: /*------------------------------+
144: | Get the document sequence. |
161: msg_flag => l_msg_flag ,
162: suppress_error => 'N' ,
163: suppress_warn => 'Y' );
164:
165: --arp_util.debug('Doc sequence return status : '||to_char(nvl(l_doc_seq_ret_stat,-99)));
166: --arp_util.debug('l_doc_sequence_name : '||l_doc_sequence_name);
167: --arp_util.debug('l_doc_sequence_id : '||to_char(nvl(l_doc_sequence_id,-99)));
168:
169:
162: suppress_error => 'N' ,
163: suppress_warn => 'Y' );
164:
165: --arp_util.debug('Doc sequence return status : '||to_char(nvl(l_doc_seq_ret_stat,-99)));
166: --arp_util.debug('l_doc_sequence_name : '||l_doc_sequence_name);
167: --arp_util.debug('l_doc_sequence_id : '||to_char(nvl(l_doc_sequence_id,-99)));
168:
169:
170: IF (l_doc_seq_ret_stat = -8) THEN
163: suppress_warn => 'Y' );
164:
165: --arp_util.debug('Doc sequence return status : '||to_char(nvl(l_doc_seq_ret_stat,-99)));
166: --arp_util.debug('l_doc_sequence_name : '||l_doc_sequence_name);
167: --arp_util.debug('l_doc_sequence_id : '||to_char(nvl(l_doc_sequence_id,-99)));
168:
169:
170: IF (l_doc_seq_ret_stat = -8) THEN
171:
172: -- Sequential Numbering is always used and there is
173: -- no assignment for this set of parameters
174:
175: IF PG_DEBUG in ('Y', 'C') THEN
176: arp_util.debug( '>>>>>>>>>> The doc sequence does not exist for the current document');
177: END IF;
178:
179: FND_MESSAGE.Set_Name( 'AR','AR_BR_DOC_SEQ_NOT_EXIST_A');
180: app_exception.raise_exception;
184: -- No assignment exists for the set of parameters
185: -- this is the case of Partially Used
186:
187: IF PG_DEBUG in ('Y', 'C') THEN
188: arp_util.debug( '>>>>>>>>>> Warning : The doc sequence does not exist for the current document');
189: END IF;
190:
191: END IF;
192:
204: | Automatic Document Numbering case |
205: +------------------------------------*/
206:
207: IF PG_DEBUG in ('Y', 'C') THEN
208: arp_util.debug( 'Automatic Document Numbering case ');
209: END IF;
210:
211: l_doc_seq_ret_stat := fnd_seqnum.get_seq_val (
212: p_appid ,
220: IF (p_trx_rec.doc_sequence_value IS NOT NULL) THEN
221: --raise an error message because the user is not supposed to pass
222: --in a value for the document sequence number in this case.
223: IF PG_DEBUG in ('Y', 'C') THEN
224: arp_util.debug( '>>>>>>>>>> The user is not supposed to pass in a value in this case');
225: END IF;
226: FND_MESSAGE.Set_Name('AR', 'AR_BR_DOC_SEQ_AUTOMATIC');
227: app_exception.raise_exception;
228: END IF;
227: app_exception.raise_exception;
228: END IF;
229:
230: p_trx_rec.doc_sequence_value := l_doc_sequence_value;
231: arp_util.debug('l_doc_sequence_value :'||to_char(nvl(p_trx_rec.doc_sequence_value,-99)));
232:
233:
234:
235: ELSIF (p_trx_rec.doc_sequence_id IS NOT NULL) AND (p_trx_rec.doc_sequence_value IS NOT NULL)
256:
257: IF (NVL(pg_profile_doc_seq,'N') = 'A')
258: THEN
259: IF PG_DEBUG in ('Y', 'C') THEN
260: arp_util.debug( '>>>>>>>>>> A - pg_profile_doc_seq : ' || pg_profile_doc_seq);
261: END IF;
262: FND_MESSAGE.Set_Name('AR', 'AR_BR_DOC_SEQ_VALUE_NULL_A');
263: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
264: app_exception.raise_exception;
266: ELSIF (NVL(pg_profile_doc_seq,'N') = 'P')
267: THEN
268: --Warning
269: IF PG_DEBUG in ('Y', 'C') THEN
270: arp_util.debug( '>>>>>>>>>> P - pg_profile_doc_seq : ' || pg_profile_doc_seq);
271: END IF;
272: FND_MESSAGE.SET_NAME('AR','AR_BR_DOC_SEQ_VALUE_NULL_P');
273: app_exception.raise_exception;
274:
284: | Generate an error if document numbering |
285: | is mandatory. |
286: +------------------------------------------*/
287: IF PG_DEBUG in ('Y', 'C') THEN
288: arp_util.debug( 'no_data_found raised');
289: END IF;
290:
291: IF (pg_profile_doc_seq = 'A' ) THEN
292: IF PG_DEBUG in ('Y', 'C') THEN
289: END IF;
290:
291: IF (pg_profile_doc_seq = 'A' ) THEN
292: IF PG_DEBUG in ('Y', 'C') THEN
293: arp_util.debug( '>>>>>>>>>> no_data_found raised - pg_profile_doc_seq = A');
294: END IF;
295: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
296: app_exception.raise_exception;
297: ELSE
295: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
296: app_exception.raise_exception;
297: ELSE
298: IF PG_DEBUG in ('Y', 'C') THEN
299: arp_util.debug( '>>>>>>>>>> no_data_found raised - pg_profile_doc_seq : ' || pg_profile_doc_seq);
300: END IF;
301: p_trx_rec.doc_sequence_id := NULL;
302: p_trx_rec.doc_sequence_value := NULL;
303: END IF;
303: END IF;
304:
305: WHEN OTHERS THEN
306: IF PG_DEBUG in ('Y', 'C') THEN
307: arp_util.debug( '>>>>>>>>>> Unhandled exception in doc sequence assignment');
308: END IF;
309: raise;
310:
311: END;
327:
328: EXCEPTION
329: WHEN NO_DATA_FOUND THEN
330: IF PG_DEBUG in ('Y', 'C') THEN
331: arp_util.debug( '>>>>>>>>>> Bacth Source does not exist');
332: END IF;
333: FND_MESSAGE.Set_Name( 'AR','AR_BR_INVALID_BATCH_SOURCE');
334: app_exception.raise_exception;
335: WHEN OTHERS THEN
333: FND_MESSAGE.Set_Name( 'AR','AR_BR_INVALID_BATCH_SOURCE');
334: app_exception.raise_exception;
335: WHEN OTHERS THEN
336: IF PG_DEBUG in ('Y', 'C') THEN
337: arp_util.debug( '>>>>>>>>>> Failed when fetching copy doc number flag');
338: END IF;
339: END;
340:
341: IF PG_DEBUG in ('Y', 'C') THEN
338: END IF;
339: END;
340:
341: IF PG_DEBUG in ('Y', 'C') THEN
342: arp_util.debug( 'Copy Doc Number Flag : ' || l_copy_doc_number_flag);
343: END IF;
344:
345: IF (NVL(l_copy_doc_number_flag,'N') = 'Y') AND
346: (p_trx_rec.doc_sequence_value IS NOT NULL) AND
350: p_trx_rec.trx_number := p_trx_rec.doc_sequence_value;
351: END IF;
352:
353: IF PG_DEBUG in ('Y', 'C') THEN
354: arp_util.debug( 'Old Trx Number : ' || p_trx_rec.trx_number);
355: arp_util.debug( 'New Trx Number : ' || p_trx_rec.trx_number);
356: END IF;
357:
358: END IF;
351: END IF;
352:
353: IF PG_DEBUG in ('Y', 'C') THEN
354: arp_util.debug( 'Old Trx Number : ' || p_trx_rec.trx_number);
355: arp_util.debug( 'New Trx Number : ' || p_trx_rec.trx_number);
356: END IF;
357:
358: END IF;
359:
357:
358: END IF;
359:
360: IF PG_DEBUG in ('Y', 'C') THEN
361: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Doc_Seq ()-');
362: END IF;
363:
364: EXCEPTION
365: WHEN OTHERS THEN
363:
364: EXCEPTION
365: WHEN OTHERS THEN
366: IF PG_DEBUG in ('Y', 'C') THEN
367: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Doc_Seq () ');
368: arp_util.debug( 'p_appid = ' || p_appid);
369: arp_util.debug( 'p_sob_id = ' || p_sob_id);
370: arp_util.debug( 'p_met_code = ' || p_met_code);
371: END IF;
364: EXCEPTION
365: WHEN OTHERS THEN
366: IF PG_DEBUG in ('Y', 'C') THEN
367: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Doc_Seq () ');
368: arp_util.debug( 'p_appid = ' || p_appid);
369: arp_util.debug( 'p_sob_id = ' || p_sob_id);
370: arp_util.debug( 'p_met_code = ' || p_met_code);
371: END IF;
372: RAISE;
365: WHEN OTHERS THEN
366: IF PG_DEBUG in ('Y', 'C') THEN
367: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Doc_Seq () ');
368: arp_util.debug( 'p_appid = ' || p_appid);
369: arp_util.debug( 'p_sob_id = ' || p_sob_id);
370: arp_util.debug( 'p_met_code = ' || p_met_code);
371: END IF;
372: RAISE;
373:
366: IF PG_DEBUG in ('Y', 'C') THEN
367: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Doc_Seq () ');
368: arp_util.debug( 'p_appid = ' || p_appid);
369: arp_util.debug( 'p_sob_id = ' || p_sob_id);
370: arp_util.debug( 'p_met_code = ' || p_met_code);
371: END IF;
372: RAISE;
373:
374: END Get_Doc_Seq;
390: l_data varchar2(4000);
391: l_msg_index_out number;
392:
393: BEGIN
394: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Set_API_Error ()+');
395:
396: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE, l_data, l_msg_index_out);
397: FND_MESSAGE.Set_Encoded (l_data);
398: app_exception.raise_exception;
395:
396: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE, l_data, l_msg_index_out);
397: FND_MESSAGE.Set_Encoded (l_data);
398: app_exception.raise_exception;
399: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Set_API_Error ()-');
400:
401: EXCEPTION
402: WHEN OTHERS THEN
403: arp_util.debug('>>>>>>>>>> EXCEPTION : Set_API_Error () ');
399: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Set_API_Error ()-');
400:
401: EXCEPTION
402: WHEN OTHERS THEN
403: arp_util.debug('>>>>>>>>>> EXCEPTION : Set_API_Error () ');
404: RAISE;
405:
406: END Set_API_Error;
407:
425: l_nocopy_batch_id ar_batches.batch_id%TYPE;
426:
427: BEGIN
428: IF PG_DEBUG in ('Y', 'C') THEN
429: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Remittance_Batch ()+');
430: END IF;
431:
432:
433: -- Get the remittance batch id in ra_customer_trx_id
432:
433: -- Get the remittance batch id in ra_customer_trx_id
434:
435: IF PG_DEBUG in ('Y', 'C') THEN
436: arp_util.debug ( 'Customer_Trx_Id : ' || p_customer_trx_id);
437: END IF;
438:
439: SELECT remittance_batch_id
440: INTO p_batch_rec.batch_id
447: l_nocopy_batch_id := p_batch_rec.batch_id;
448: arp_cr_batches_pkg.fetch_p(l_nocopy_batch_id, p_batch_rec);
449:
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_util.debug ( 'Remittance Batch ID : ' || p_batch_rec.batch_id);
452: arp_util.debug ( 'Remittance Method : ' || p_batch_rec.remit_method_code);
453: arp_util.debug ( 'With Recourse Flag : ' || p_batch_rec.with_recourse_flag);
454: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Remittance_Batch ()-');
455: END IF;
448: arp_cr_batches_pkg.fetch_p(l_nocopy_batch_id, p_batch_rec);
449:
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_util.debug ( 'Remittance Batch ID : ' || p_batch_rec.batch_id);
452: arp_util.debug ( 'Remittance Method : ' || p_batch_rec.remit_method_code);
453: arp_util.debug ( 'With Recourse Flag : ' || p_batch_rec.with_recourse_flag);
454: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Remittance_Batch ()-');
455: END IF;
456:
449:
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_util.debug ( 'Remittance Batch ID : ' || p_batch_rec.batch_id);
452: arp_util.debug ( 'Remittance Method : ' || p_batch_rec.remit_method_code);
453: arp_util.debug ( 'With Recourse Flag : ' || p_batch_rec.with_recourse_flag);
454: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Remittance_Batch ()-');
455: END IF;
456:
457: EXCEPTION
450: IF PG_DEBUG in ('Y', 'C') THEN
451: arp_util.debug ( 'Remittance Batch ID : ' || p_batch_rec.batch_id);
452: arp_util.debug ( 'Remittance Method : ' || p_batch_rec.remit_method_code);
453: arp_util.debug ( 'With Recourse Flag : ' || p_batch_rec.with_recourse_flag);
454: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Get_Remittance_Batch ()-');
455: END IF;
456:
457: EXCEPTION
458: WHEN NO_DATA_FOUND THEN
456:
457: EXCEPTION
458: WHEN NO_DATA_FOUND THEN
459: IF PG_DEBUG in ('Y', 'C') THEN
460: arp_util.debug( '>>>>>>>>>> The BR has not been remitted yet');
461: END IF;
462:
463: WHEN OTHERS THEN
464: IF PG_DEBUG in ('Y', 'C') THEN
461: END IF;
462:
463: WHEN OTHERS THEN
464: IF PG_DEBUG in ('Y', 'C') THEN
465: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Remittance_Batch () ');
466: arp_util.debug( 'p_customer_trx_id = ' || p_customer_trx_id);
467: END IF;
468: RAISE;
469:
462:
463: WHEN OTHERS THEN
464: IF PG_DEBUG in ('Y', 'C') THEN
465: arp_util.debug('>>>>>>>>>> EXCEPTION : Get_Remittance_Batch () ');
466: arp_util.debug( 'p_customer_trx_id = ' || p_customer_trx_id);
467: END IF;
468: RAISE;
469:
470: END Get_Remittance_Batch;
488: l_ps_rec ar_payment_schedules%ROWTYPE;
489:
490: BEGIN
491: IF PG_DEBUG in ('Y', 'C') THEN
492: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Update_Reserved_Columns ()+ ');
493: END IF;
494:
495: arp_ps_pkg.lock_p(p_payment_schedule_id);
496:
502:
503: arp_ps_pkg.update_p (l_ps_rec, l_ps_rec.payment_schedule_id);
504:
505: IF PG_DEBUG in ('Y', 'C') THEN
506: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Update_Reserved_Columns ()- ');
507: END IF;
508:
509: EXCEPTION
510: WHEN OTHERS THEN
508:
509: EXCEPTION
510: WHEN OTHERS THEN
511: IF PG_DEBUG in ('Y', 'C') THEN
512: arp_util.debug('>>>>>>>>>> EXCEPTION : Update_Reserved_Columns () ');
513: arp_util.debug( 'p_payment_schedule_id = ' || p_payment_schedule_id);
514: arp_util.debug( 'p_reserved_type = ' || p_reserved_type);
515: arp_util.debug( 'p_reserved_value = ' || p_reserved_value);
516: END IF;
509: EXCEPTION
510: WHEN OTHERS THEN
511: IF PG_DEBUG in ('Y', 'C') THEN
512: arp_util.debug('>>>>>>>>>> EXCEPTION : Update_Reserved_Columns () ');
513: arp_util.debug( 'p_payment_schedule_id = ' || p_payment_schedule_id);
514: arp_util.debug( 'p_reserved_type = ' || p_reserved_type);
515: arp_util.debug( 'p_reserved_value = ' || p_reserved_value);
516: END IF;
517: RAISE;
510: WHEN OTHERS THEN
511: IF PG_DEBUG in ('Y', 'C') THEN
512: arp_util.debug('>>>>>>>>>> EXCEPTION : Update_Reserved_Columns () ');
513: arp_util.debug( 'p_payment_schedule_id = ' || p_payment_schedule_id);
514: arp_util.debug( 'p_reserved_type = ' || p_reserved_type);
515: arp_util.debug( 'p_reserved_value = ' || p_reserved_value);
516: END IF;
517: RAISE;
518:
511: IF PG_DEBUG in ('Y', 'C') THEN
512: arp_util.debug('>>>>>>>>>> EXCEPTION : Update_Reserved_Columns () ');
513: arp_util.debug( 'p_payment_schedule_id = ' || p_payment_schedule_id);
514: arp_util.debug( 'p_reserved_type = ' || p_reserved_type);
515: arp_util.debug( 'p_reserved_value = ' || p_reserved_value);
516: END IF;
517: RAISE;
518:
519: END Update_Reserved_Columns;
540:
541: BEGIN
542:
543: IF PG_DEBUG in ('Y', 'C') THEN
544: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Default_Action_Dates()+ ');
545: END IF;
546:
547: ---- Default the action date if NULL
548: IF (p_trx_date IS NULL) THEN
564: AR_BILLS_CREATION_VAL_PVT.Validate_GL_Date (p_gl_date);
565: END IF;
566:
567: IF PG_DEBUG in ('Y', 'C') THEN
568: arp_util.debug( 'Default_gl_date Return_status : '||l_return_status);
569: arp_util.debug( 'GL Date defaulted : ' || p_gl_date);
570: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Default_Action_Dates()-');
571: END IF;
572:
565: END IF;
566:
567: IF PG_DEBUG in ('Y', 'C') THEN
568: arp_util.debug( 'Default_gl_date Return_status : '||l_return_status);
569: arp_util.debug( 'GL Date defaulted : ' || p_gl_date);
570: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Default_Action_Dates()-');
571: END IF;
572:
573: EXCEPTION
566:
567: IF PG_DEBUG in ('Y', 'C') THEN
568: arp_util.debug( 'Default_gl_date Return_status : '||l_return_status);
569: arp_util.debug( 'GL Date defaulted : ' || p_gl_date);
570: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Default_Action_Dates()-');
571: END IF;
572:
573: EXCEPTION
574: WHEN OTHERS THEN
572:
573: EXCEPTION
574: WHEN OTHERS THEN
575: IF PG_DEBUG in ('Y', 'C') THEN
576: arp_util.debug('>>>>>>>>>> EXCEPTION : Default_Action_Dates () ');
577: arp_util.debug( 'p_trx_date = ' || p_trx_date);
578: arp_util.debug( 'p_gl_date = ' || p_gl_date);
579: END IF;
580: RAISE;
573: EXCEPTION
574: WHEN OTHERS THEN
575: IF PG_DEBUG in ('Y', 'C') THEN
576: arp_util.debug('>>>>>>>>>> EXCEPTION : Default_Action_Dates () ');
577: arp_util.debug( 'p_trx_date = ' || p_trx_date);
578: arp_util.debug( 'p_gl_date = ' || p_gl_date);
579: END IF;
580: RAISE;
581:
574: WHEN OTHERS THEN
575: IF PG_DEBUG in ('Y', 'C') THEN
576: arp_util.debug('>>>>>>>>>> EXCEPTION : Default_Action_Dates () ');
577: arp_util.debug( 'p_trx_date = ' || p_trx_date);
578: arp_util.debug( 'p_gl_date = ' || p_gl_date);
579: END IF;
580: RAISE;
581:
582: END Default_Action_Dates;
618:
619: BEGIN
620:
621: IF PG_DEBUG in ('Y', 'C') THEN
622: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Complete_Or_Accept ()+');
623: END IF;
624:
625: /*----------------------------------------------+
626: | For each assignment, create a non accounting |
703:
704: END LOOP;
705:
706: IF PG_DEBUG in ('Y', 'C') THEN
707: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Complete_Or_Accept ()-');
708: END IF;
709:
710: EXCEPTION
711: WHEN OTHERS THEN
709:
710: EXCEPTION
711: WHEN OTHERS THEN
712: IF PG_DEBUG in ('Y', 'C') THEN
713: arp_util.debug('>>>>>>>>>> EXCEPTION : Complete_Or_Accept () ');
714: END IF;
715: IF (assignment_cur%ISOPEN)
716: THEN
717: CLOSE assignment_cur;
747:
748: BEGIN
749:
750: IF PG_DEBUG in ('Y', 'C') THEN
751: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Complete_Acc_Required ()+');
752: END IF;
753:
754: /*----------------------------------------------+
755: | For each assignment, update the reserved |
760: update_reserved_columns (assignment_rec.br_ref_payment_schedule_id, 'TRANSACTION', p_customer_trx_id);
761: END LOOP;
762:
763: IF PG_DEBUG in ('Y', 'C') THEN
764: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Complete_Acc_Required ()-');
765: END IF;
766:
767: EXCEPTION
768: WHEN OTHERS THEN
766:
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF PG_DEBUG in ('Y', 'C') THEN
770: arp_util.debug('Complete_Acc_Required: ' || '>>>>>>>>>> EXCEPTION : Complete_Or_Accept () ');
771: arp_util.debug('Complete_Acc_Required: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
772: END IF;
773: IF (assignment_cur%ISOPEN)
774: THEN
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF PG_DEBUG in ('Y', 'C') THEN
770: arp_util.debug('Complete_Acc_Required: ' || '>>>>>>>>>> EXCEPTION : Complete_Or_Accept () ');
771: arp_util.debug('Complete_Acc_Required: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
772: END IF;
773: IF (assignment_cur%ISOPEN)
774: THEN
775: CLOSE assignment_cur;
811:
812: BEGIN
813:
814: IF PG_DEBUG in ('Y', 'C') THEN
815: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Create_Adjustment ()+');
816: END IF;
817:
818: /* SSA change */
819: l_org_id := p_trh_rec.org_id;
822: p_return_status =>l_org_return_status);
823:
824: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
825:
826: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Create_adjustment : l_org_return_status <> SUCCESS');
827: ELSE
828:
829: adj_rec.type := 'INVOICE' ;
830: adj_rec.payment_schedule_id := p_ps_rec.payment_schedule_id ;
840: adj_rec.org_id := p_trh_rec.org_id ;
841:
842:
843: IF PG_DEBUG in ('Y', 'C') THEN
844: arp_util.debug ( '-----------------------------------------');
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
841:
842:
843: IF PG_DEBUG in ('Y', 'C') THEN
844: arp_util.debug ( '-----------------------------------------');
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
842:
843: IF PG_DEBUG in ('Y', 'C') THEN
844: arp_util.debug ( '-----------------------------------------');
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
843: IF PG_DEBUG in ('Y', 'C') THEN
844: arp_util.debug ( '-----------------------------------------');
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
844: arp_util.debug ( '-----------------------------------------');
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
845: arp_util.debug ('PARAMETERS PASSED TO AR_ADJUST_PUB.Create_Adjustment :');
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
846: arp_util.debug ( 'adj_rec.payment_schedule_id : ' || adj_rec.payment_schedule_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
847: arp_util.debug ( 'adj_rec.amount : ' || adj_rec.amount);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
848: arp_util.debug ( 'adj_rec.customer_trx_id : ' || adj_rec.customer_trx_id);
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
856: arp_util.debug ( '-----------------------------------------');
849: arp_util.debug ( 'adj_rec.receivables_trx_id : ' || adj_rec.receivables_trx_id);
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
856: arp_util.debug ( '-----------------------------------------');
857: END IF;
850: arp_util.debug ( 'adj_rec.apply_date : ' || adj_rec.apply_date);
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
856: arp_util.debug ( '-----------------------------------------');
857: END IF;
858:
851: arp_util.debug ( 'adj_rec.gl_date : ' || adj_rec.gl_date);
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
856: arp_util.debug ( '-----------------------------------------');
857: END IF;
858:
859: AR_ADJUST_PUB.Create_Adjustment (
852: arp_util.debug ( 'adj_rec.comments : ' || adj_rec.comments);
853: arp_util.debug ( 'adj_rec.status : ' || adj_rec.status);
854: arp_util.debug ( 'adj_rec.org_id : ' || adj_rec.org_id);
855: arp_util.debug ( 'p_move_deferred_tax : ' || p_move_deferred_tax);
856: arp_util.debug ( '-----------------------------------------');
857: END IF;
858:
859: AR_ADJUST_PUB.Create_Adjustment (
860: p_api_name => 'AR_ADJUST_PUB' ,
871: p_new_adjust_id => p_adj_id ,
872: p_org_id => adj_rec.org_id);
873:
874: IF PG_DEBUG in ('Y', 'C') THEN
875: arp_util.debug ( 'return status : ' || l_return_status);
876: arp_util.debug ( 'msg_count : ' || l_msg_count);
877: arp_util.debug ( 'msg_data : ' || l_msg_data);
878: END IF;
879:
872: p_org_id => adj_rec.org_id);
873:
874: IF PG_DEBUG in ('Y', 'C') THEN
875: arp_util.debug ( 'return status : ' || l_return_status);
876: arp_util.debug ( 'msg_count : ' || l_msg_count);
877: arp_util.debug ( 'msg_data : ' || l_msg_data);
878: END IF;
879:
880:
873:
874: IF PG_DEBUG in ('Y', 'C') THEN
875: arp_util.debug ( 'return status : ' || l_return_status);
876: arp_util.debug ( 'msg_count : ' || l_msg_count);
877: arp_util.debug ( 'msg_data : ' || l_msg_data);
878: END IF;
879:
880:
881: IF (l_return_status <> 'S')
880:
881: IF (l_return_status <> 'S')
882: THEN
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Creation');
885: arp_util.debug( 'l_return_status : ' || l_return_status);
886: arp_util.debug( 'l_msg_count : ' || l_msg_count);
887: arp_util.debug( 'l_msg_data : ' || l_msg_data);
888: END IF;
881: IF (l_return_status <> 'S')
882: THEN
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Creation');
885: arp_util.debug( 'l_return_status : ' || l_return_status);
886: arp_util.debug( 'l_msg_count : ' || l_msg_count);
887: arp_util.debug( 'l_msg_data : ' || l_msg_data);
888: END IF;
889:
882: THEN
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Creation');
885: arp_util.debug( 'l_return_status : ' || l_return_status);
886: arp_util.debug( 'l_msg_count : ' || l_msg_count);
887: arp_util.debug( 'l_msg_data : ' || l_msg_data);
888: END IF;
889:
890: IF (l_msg_count > 0)
883: IF PG_DEBUG in ('Y', 'C') THEN
884: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Creation');
885: arp_util.debug( 'l_return_status : ' || l_return_status);
886: arp_util.debug( 'l_msg_count : ' || l_msg_count);
887: arp_util.debug( 'l_msg_data : ' || l_msg_data);
888: END IF;
889:
890: IF (l_msg_count > 0)
891: THEN
898: END IF;
899: END IF;
900:
901: IF PG_DEBUG in ('Y', 'C') THEN
902: arp_util.debug ( 'Adjustment ID created : ' || p_adj_id);
903: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Create_Adjustment ()-');
904: END IF;
905:
906: EXCEPTION
899: END IF;
900:
901: IF PG_DEBUG in ('Y', 'C') THEN
902: arp_util.debug ( 'Adjustment ID created : ' || p_adj_id);
903: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Create_Adjustment ()-');
904: END IF;
905:
906: EXCEPTION
907: WHEN OTHERS THEN
905:
906: EXCEPTION
907: WHEN OTHERS THEN
908: IF PG_DEBUG in ('Y', 'C') THEN
909: arp_util.debug('>>>>>>>>>> EXCEPTION : Create_Adjustment () ');
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
906: EXCEPTION
907: WHEN OTHERS THEN
908: IF PG_DEBUG in ('Y', 'C') THEN
909: arp_util.debug('>>>>>>>>>> EXCEPTION : Create_Adjustment () ');
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
914: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
907: WHEN OTHERS THEN
908: IF PG_DEBUG in ('Y', 'C') THEN
909: arp_util.debug('>>>>>>>>>> EXCEPTION : Create_Adjustment () ');
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
914: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
915: END IF;
908: IF PG_DEBUG in ('Y', 'C') THEN
909: arp_util.debug('>>>>>>>>>> EXCEPTION : Create_Adjustment () ');
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
914: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
915: END IF;
916: RAISE;
909: arp_util.debug('>>>>>>>>>> EXCEPTION : Create_Adjustment () ');
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
914: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
915: END IF;
916: RAISE;
917:
910: arp_util.debug( 'p_customer_trx_id : ' || p_customer_trx_id);
911: arp_util.debug( 'p_receivables_trx_id : ' || p_receivables_trx_id);
912: arp_util.debug( 'p_status : ' || p_status);
913: arp_util.debug( 'p_amount : ' || p_amount);
914: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
915: END IF;
916: RAISE;
917:
918: END Create_Adjustment;
936:
937: BEGIN
938:
939: IF PG_DEBUG in ('Y', 'C') THEN
940: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Adjustment ()+');
941: END IF;
942:
943: SELECT max(adjustment_id)
944: INTO p_adj_id
945: FROM ar_adjustments
946: WHERE customer_trx_id = p_customer_trx_id;
947:
948: IF PG_DEBUG in ('Y', 'C') THEN
949: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Adjustment ()-');
950: END IF;
951:
952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
951:
952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
954: IF PG_DEBUG in ('Y', 'C') THEN
955: arp_util.debug ('Find_Last_Adjustment: ' || 'No Endorsement Adjustment was found for the BR');
956: END IF;
957: RAISE;
958:
959: WHEN OTHERS THEN
957: RAISE;
958:
959: WHEN OTHERS THEN
960: IF PG_DEBUG in ('Y', 'C') THEN
961: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Adjustment () ');
962: arp_util.debug('Find_Last_Adjustment: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
963: END IF;
964: RAISE;
965:
958:
959: WHEN OTHERS THEN
960: IF PG_DEBUG in ('Y', 'C') THEN
961: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Adjustment () ');
962: arp_util.debug('Find_Last_Adjustment: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
963: END IF;
964: RAISE;
965:
966: END Find_Last_Adjustment;
991:
992: BEGIN
993:
994: IF PG_DEBUG in ('Y', 'C') THEN
995: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Approve_Adjustment ()+');
996: END IF;
997:
998: /* SSA change */
999: select org_id
1005: p_return_status =>l_org_return_status);
1006:
1007: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1008:
1009: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Approve_Adjustment : l_org_return_status <> SUCCESS');
1010: ELSE
1011:
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1010: ELSE
1011:
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_util.debug( '--------------------------------------------------------------');
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1011:
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_util.debug( '--------------------------------------------------------------');
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1012:
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_util.debug( '--------------------------------------------------------------');
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1013: IF PG_DEBUG in ('Y', 'C') THEN
1014: arp_util.debug( '--------------------------------------------------------------');
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1021: arp_util.debug( '--------------------------------------------------------------');
1014: arp_util.debug( '--------------------------------------------------------------');
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1021: arp_util.debug( '--------------------------------------------------------------');
1022: END IF;
1015: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Approve_Adjustment : ');
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1021: arp_util.debug( '--------------------------------------------------------------');
1022: END IF;
1023:
1016: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1021: arp_util.debug( '--------------------------------------------------------------');
1022: END IF;
1023:
1024:
1017: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1018: arp_util.debug( 'p_move_deferred_tax : ' || p_move_deferred_tax);
1019: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1020: arp_util.debug( 'p_org_id : ' || l_org_id);
1021: arp_util.debug( '--------------------------------------------------------------');
1022: END IF;
1023:
1024:
1025: AR_ADJUST_PUB.Approve_Adjustment (
1037:
1038: IF (l_return_status <> 'S')
1039: THEN
1040: IF PG_DEBUG in ('Y', 'C') THEN
1041: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Approval');
1042: arp_util.debug( 'l_return_status : ' || l_return_status);
1043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1045: END IF;
1038: IF (l_return_status <> 'S')
1039: THEN
1040: IF PG_DEBUG in ('Y', 'C') THEN
1041: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Approval');
1042: arp_util.debug( 'l_return_status : ' || l_return_status);
1043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1045: END IF;
1046:
1039: THEN
1040: IF PG_DEBUG in ('Y', 'C') THEN
1041: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Approval');
1042: arp_util.debug( 'l_return_status : ' || l_return_status);
1043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1045: END IF;
1046:
1047:
1040: IF PG_DEBUG in ('Y', 'C') THEN
1041: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Approval');
1042: arp_util.debug( 'l_return_status : ' || l_return_status);
1043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1045: END IF;
1046:
1047:
1048: IF (l_msg_count > 0)
1056: END IF;
1057: END IF;
1058:
1059: IF PG_DEBUG in ('Y', 'C') THEN
1060: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Approve_Adjustment ()-');
1061: END IF;
1062:
1063: EXCEPTION
1064: WHEN OTHERS THEN
1062:
1063: EXCEPTION
1064: WHEN OTHERS THEN
1065: IF PG_DEBUG in ('Y', 'C') THEN
1066: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Approve_Adjustment : ' || SQLERRM);
1067: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1068: END IF;
1069: RAISE;
1070:
1063: EXCEPTION
1064: WHEN OTHERS THEN
1065: IF PG_DEBUG in ('Y', 'C') THEN
1066: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Approve_Adjustment : ' || SQLERRM);
1067: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1068: END IF;
1069: RAISE;
1070:
1071: END Approve_Adjustment;
1095:
1096: BEGIN
1097:
1098: IF PG_DEBUG in ('Y', 'C') THEN
1099: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Modify_Adjustment ()+');
1100: END IF;
1101:
1102: /* SSA change */
1103: select org_id
1109: p_return_status =>l_org_return_status);
1110:
1111: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1112:
1113: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Modify_Adjustment : l_org_return_status <> SUCCESS');
1114: ELSE
1115:
1116: l_adj_rec.status := p_status;
1117:
1115:
1116: l_adj_rec.status := p_status;
1117:
1118: IF PG_DEBUG in ('Y', 'C') THEN
1119: arp_util.debug( '--------------------------------------------------------------');
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1116: l_adj_rec.status := p_status;
1117:
1118: IF PG_DEBUG in ('Y', 'C') THEN
1119: arp_util.debug( '--------------------------------------------------------------');
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1117:
1118: IF PG_DEBUG in ('Y', 'C') THEN
1119: arp_util.debug( '--------------------------------------------------------------');
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1125: arp_util.debug( '--------------------------------------------------------------');
1118: IF PG_DEBUG in ('Y', 'C') THEN
1119: arp_util.debug( '--------------------------------------------------------------');
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1125: arp_util.debug( '--------------------------------------------------------------');
1126: END IF;
1119: arp_util.debug( '--------------------------------------------------------------');
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1125: arp_util.debug( '--------------------------------------------------------------');
1126: END IF;
1127:
1120: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Modify_Adjustment : ');
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1125: arp_util.debug( '--------------------------------------------------------------');
1126: END IF;
1127:
1128:
1121: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1122: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1123: arp_util.debug( 'p_adj_rec.status : ' || l_adj_rec.status);
1124: arp_util.debug( 'p_org_id : ' || l_org_id);
1125: arp_util.debug( '--------------------------------------------------------------');
1126: END IF;
1127:
1128:
1129: AR_ADJUST_PUB.Modify_Adjustment(
1141:
1142: IF (l_return_status <> 'S')
1143: THEN
1144: IF PG_DEBUG in ('Y', 'C') THEN
1145: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Modification');
1146: arp_util.debug( 'l_return_status : ' || l_return_status);
1147: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1148: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1149: END IF;
1142: IF (l_return_status <> 'S')
1143: THEN
1144: IF PG_DEBUG in ('Y', 'C') THEN
1145: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Modification');
1146: arp_util.debug( 'l_return_status : ' || l_return_status);
1147: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1148: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1149: END IF;
1150:
1143: THEN
1144: IF PG_DEBUG in ('Y', 'C') THEN
1145: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Modification');
1146: arp_util.debug( 'l_return_status : ' || l_return_status);
1147: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1148: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1149: END IF;
1150:
1151:
1144: IF PG_DEBUG in ('Y', 'C') THEN
1145: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Modification');
1146: arp_util.debug( 'l_return_status : ' || l_return_status);
1147: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1148: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1149: END IF;
1150:
1151:
1152: IF (l_msg_count > 0)
1161: END IF;
1162:
1163:
1164: IF PG_DEBUG in ('Y', 'C') THEN
1165: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Modify_Adjustment ()-');
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_MAINTAIN_LIB_PVT.Modify_Adjustment : ' || SQLERRM);
1172: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1173: arp_util.debug( 'p_status : ' || p_status);
1174: END IF;
1175: RAISE;
1168: EXCEPTION
1169: WHEN OTHERS THEN
1170: IF PG_DEBUG in ('Y', 'C') THEN
1171: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Modify_Adjustment : ' || SQLERRM);
1172: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1173: arp_util.debug( 'p_status : ' || p_status);
1174: END IF;
1175: RAISE;
1176:
1169: WHEN OTHERS THEN
1170: IF PG_DEBUG in ('Y', 'C') THEN
1171: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Modify_Adjustment : ' || SQLERRM);
1172: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1173: arp_util.debug( 'p_status : ' || p_status);
1174: END IF;
1175: RAISE;
1176:
1177: END Modify_Adjustment;
1206:
1207: BEGIN
1208:
1209: IF PG_DEBUG in ('Y', 'C') THEN
1210: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment ()+');
1211: END IF;
1212:
1213: /* SSA change */
1214: l_org_id := p_trh_rec.org_id;
1217: p_return_status =>l_org_return_status);
1218:
1219: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1220:
1221: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment : l_org_return_status <> SUCCESS');
1222: ELSE
1223:
1224: IF PG_DEBUG in ('Y', 'C') THEN
1225: arp_util.debug( '--------------------------------------------------------------');
1221: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment : l_org_return_status <> SUCCESS');
1222: ELSE
1223:
1224: IF PG_DEBUG in ('Y', 'C') THEN
1225: arp_util.debug( '--------------------------------------------------------------');
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1222: ELSE
1223:
1224: IF PG_DEBUG in ('Y', 'C') THEN
1225: arp_util.debug( '--------------------------------------------------------------');
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1223:
1224: IF PG_DEBUG in ('Y', 'C') THEN
1225: arp_util.debug( '--------------------------------------------------------------');
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1224: IF PG_DEBUG in ('Y', 'C') THEN
1225: arp_util.debug( '--------------------------------------------------------------');
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1225: arp_util.debug( '--------------------------------------------------------------');
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1226: arp_util.debug('PARAMETERS PASSED TO AR_ADJUST_PUB.Reverse_Adjustment : ');
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1227: arp_util.debug( 'p_old_adjust_id : ' || p_adj_id);
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1235: arp_util.debug( '--------------------------------------------------------------');
1228: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date);
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1235: arp_util.debug( '--------------------------------------------------------------');
1236: END IF;
1229: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1235: arp_util.debug( '--------------------------------------------------------------');
1236: END IF;
1237:
1230: arp_util.debug( 'p_comments : ' || p_trh_rec.comments);
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1235: arp_util.debug( '--------------------------------------------------------------');
1236: END IF;
1237:
1238: AR_ADJUST_PUB.Reverse_Adjustment (
1231: arp_util.debug( 'p_chk_approval_limits : ' || 'F');
1232: arp_util.debug( 'p_move_deferred_tax : ' || 'Y');
1233: arp_util.debug( 'p_called_from : ' || p_called_from);
1234: arp_util.debug( 'p_org_id : ' || p_trh_rec.org_id);
1235: arp_util.debug( '--------------------------------------------------------------');
1236: END IF;
1237:
1238: AR_ADJUST_PUB.Reverse_Adjustment (
1239: p_api_name => 'AR_ADJUST_PUB' ,
1254:
1255: IF (l_return_status <> 'S')
1256: THEN
1257: IF PG_DEBUG in ('Y', 'C') THEN
1258: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Reversal');
1259: arp_util.debug( 'l_return_status : ' || l_return_status);
1260: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1261: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1262: END IF;
1255: IF (l_return_status <> 'S')
1256: THEN
1257: IF PG_DEBUG in ('Y', 'C') THEN
1258: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Reversal');
1259: arp_util.debug( 'l_return_status : ' || l_return_status);
1260: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1261: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1262: END IF;
1263:
1256: THEN
1257: IF PG_DEBUG in ('Y', 'C') THEN
1258: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Reversal');
1259: arp_util.debug( 'l_return_status : ' || l_return_status);
1260: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1261: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1262: END IF;
1263:
1264:
1257: IF PG_DEBUG in ('Y', 'C') THEN
1258: arp_util.debug( '>>>>>>>>>> Problems during Adjustment Reversal');
1259: arp_util.debug( 'l_return_status : ' || l_return_status);
1260: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1261: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1262: END IF;
1263:
1264:
1265: IF (l_msg_count > 0)
1279: and ra.customer_trx_id = adj.customer_trx_id;
1280:
1281: exception
1282: when others then
1283: arp_util.debug( '>>>>>>>>>> Problems during balance stamping select query');
1284: arp_util.debug ( 'Adjustment ID : ' || l_new_adjust_id);
1285: end;
1286:
1287: IF l_customer_trx.upgrade_method = 'R12' THEN
1280:
1281: exception
1282: when others then
1283: arp_util.debug( '>>>>>>>>>> Problems during balance stamping select query');
1284: arp_util.debug ( 'Adjustment ID : ' || l_new_adjust_id);
1285: end;
1286:
1287: IF l_customer_trx.upgrade_method = 'R12' THEN
1288: ARP_DET_DIST_PKG.set_original_rem_amt_r12(
1294:
1295: IF (l_return_status <> 'S')
1296: THEN
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_util.debug( '>>>>>>>>>> Problems balance stamping');
1299: arp_util.debug( 'l_return_status : ' || l_return_status);
1300: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1301: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1302: END IF;
1295: IF (l_return_status <> 'S')
1296: THEN
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_util.debug( '>>>>>>>>>> Problems balance stamping');
1299: arp_util.debug( 'l_return_status : ' || l_return_status);
1300: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1301: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1302: END IF;
1303: END IF;
1296: THEN
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_util.debug( '>>>>>>>>>> Problems balance stamping');
1299: arp_util.debug( 'l_return_status : ' || l_return_status);
1300: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1301: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1302: END IF;
1303: END IF;
1304: END IF;
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_util.debug( '>>>>>>>>>> Problems balance stamping');
1299: arp_util.debug( 'l_return_status : ' || l_return_status);
1300: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1301: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1302: END IF;
1303: END IF;
1304: END IF;
1305:
1308:
1309:
1310:
1311: IF PG_DEBUG in ('Y', 'C') THEN
1312: arp_util.debug ( 'Adjustment ID : ' || l_new_adjust_id);
1313: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment ()-');
1314: END IF;
1315:
1316: EXCEPTION
1309:
1310:
1311: IF PG_DEBUG in ('Y', 'C') THEN
1312: arp_util.debug ( 'Adjustment ID : ' || l_new_adjust_id);
1313: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment ()-');
1314: END IF;
1315:
1316: EXCEPTION
1317: WHEN OTHERS THEN
1315:
1316: EXCEPTION
1317: WHEN OTHERS THEN
1318: IF PG_DEBUG in ('Y', 'C') THEN
1319: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment : ' || SQLERRM);
1320: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1321: END IF;
1322: RAISE;
1323:
1316: EXCEPTION
1317: WHEN OTHERS THEN
1318: IF PG_DEBUG in ('Y', 'C') THEN
1319: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Adjustment : ' || SQLERRM);
1320: arp_util.debug( 'p_adj_id : ' || p_adj_id);
1321: END IF;
1322: RAISE;
1323:
1324: END Reverse_Adjustment;
1360:
1361: BEGIN
1362:
1363: IF PG_DEBUG in ('Y', 'C') THEN
1364: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Assignments_Adjustment ()+');
1365: END IF;
1366:
1367: /*------------------------------------------------------+
1368: | For each assignment, non accounting adjustment |
1433:
1434: END LOOP;
1435:
1436: IF PG_DEBUG in ('Y', 'C') THEN
1437: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Assignments_Adjustment ()-');
1438: END IF;
1439:
1440: EXCEPTION
1441: WHEN OTHERS THEN
1439:
1440: EXCEPTION
1441: WHEN OTHERS THEN
1442: IF PG_DEBUG in ('Y', 'C') THEN
1443: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Assignments_Adjustment () ');
1444: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1445: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_acceptance_flag : ' || p_acceptance_flag);
1446: END IF;
1447: IF (assignment_cur%ISOPEN)
1440: EXCEPTION
1441: WHEN OTHERS THEN
1442: IF PG_DEBUG in ('Y', 'C') THEN
1443: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Assignments_Adjustment () ');
1444: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1445: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_acceptance_flag : ' || p_acceptance_flag);
1446: END IF;
1447: IF (assignment_cur%ISOPEN)
1448: THEN
1441: WHEN OTHERS THEN
1442: IF PG_DEBUG in ('Y', 'C') THEN
1443: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Assignments_Adjustment () ');
1444: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1445: arp_util.debug('Reverse_Assignments_Adjustment: ' || 'p_acceptance_flag : ' || p_acceptance_flag);
1446: END IF;
1447: IF (assignment_cur%ISOPEN)
1448: THEN
1449: CLOSE assignment_cur;
1470:
1471: BEGIN
1472:
1473: IF PG_DEBUG in ('Y', 'C') THEN
1474: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt ()+');
1475: END IF;
1476:
1477: SELECT cash_receipt_id
1478: INTO p_cash_receipt_id
1482: WHERE applied_customer_trx_id = p_customer_trx_id
1483: AND status = 'APP' );
1484:
1485: IF PG_DEBUG in ('Y', 'C') THEN
1486: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt ()-');
1487: END IF;
1488:
1489: EXCEPTION
1490: WHEN NO_DATA_FOUND THEN
1488:
1489: EXCEPTION
1490: WHEN NO_DATA_FOUND THEN
1491: IF PG_DEBUG in ('Y', 'C') THEN
1492: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt () ');
1493: arp_util.debug ('Find_Last_Receipt: ' || 'No receipt was found for the BR');
1494: END IF;
1495: RAISE;
1496:
1489: EXCEPTION
1490: WHEN NO_DATA_FOUND THEN
1491: IF PG_DEBUG in ('Y', 'C') THEN
1492: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt () ');
1493: arp_util.debug ('Find_Last_Receipt: ' || 'No receipt was found for the BR');
1494: END IF;
1495: RAISE;
1496:
1497: WHEN OTHERS THEN
1495: RAISE;
1496:
1497: WHEN OTHERS THEN
1498: IF PG_DEBUG in ('Y', 'C') THEN
1499: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt () ');
1500: arp_util.debug('Find_Last_Receipt: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
1501: END IF;
1502: RAISE;
1503:
1496:
1497: WHEN OTHERS THEN
1498: IF PG_DEBUG in ('Y', 'C') THEN
1499: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_Receipt () ');
1500: arp_util.debug('Find_Last_Receipt: ' || 'p_customer_trx_id : ' || p_customer_trx_id);
1501: END IF;
1502: RAISE;
1503:
1504: END Find_Last_Receipt;
1534:
1535: BEGIN
1536:
1537: IF PG_DEBUG in ('Y', 'C') THEN
1538: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_STD ()+');
1539: END IF;
1540:
1541: /*-----------------------------------------------+
1542: | Fetch last Short Term Debt Application |
1547:
1548: IF (last_std_application_cur%NOTFOUND)
1549: THEN
1550: IF PG_DEBUG in ('Y', 'C') THEN
1551: arp_util.debug ('Find_Last_STD: ' || '>>>>>>>>>> Last Short Term Debt Application could not be found');
1552: END IF;
1553: CLOSE last_std_application_cur;
1554: APP_EXCEPTION.raise_exception;
1555: END IF;
1560: CLOSE last_std_application_cur;
1561:
1562:
1563: IF PG_DEBUG in ('Y', 'C') THEN
1564: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_STD ()-');
1565: END IF;
1566:
1567: EXCEPTION
1568:
1567: EXCEPTION
1568:
1569: WHEN OTHERS THEN
1570: IF PG_DEBUG in ('Y', 'C') THEN
1571: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Find_Last_STD : ' || SQLERRM);
1572: END IF;
1573: IF (last_std_application_cur%ISOPEN)
1574: THEN
1575: CLOSE last_std_application_cur;
1605:
1606: BEGIN
1607:
1608: IF PG_DEBUG in ('Y', 'C') THEN
1609: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt ()+');
1610: END IF;
1611:
1612: /* SSA change */
1613: l_org_id := p_trh_rec.org_id;
1616: p_return_status =>l_org_return_status);
1617:
1618: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1619:
1620: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_receipt : l_org_return_status <> SUCCESS');
1621: ELSE
1622: /*------------------------------------------------------+
1623: | Reverse a receipt using Receipt API |
1624: +-------------------------------------------------------*/
1623: | Reverse a receipt using Receipt API |
1624: +-------------------------------------------------------*/
1625:
1626: IF PG_DEBUG in ('Y', 'C') THEN
1627: arp_util.debug( '--------------------------------------------------------------');
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1624: +-------------------------------------------------------*/
1625:
1626: IF PG_DEBUG in ('Y', 'C') THEN
1627: arp_util.debug( '--------------------------------------------------------------');
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1625:
1626: IF PG_DEBUG in ('Y', 'C') THEN
1627: arp_util.debug( '--------------------------------------------------------------');
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1626: IF PG_DEBUG in ('Y', 'C') THEN
1627: arp_util.debug( '--------------------------------------------------------------');
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1627: arp_util.debug( '--------------------------------------------------------------');
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1628: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Reverse : ' );
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1636: arp_util.debug( '--------------------------------------------------------------');
1629: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1636: arp_util.debug( '--------------------------------------------------------------');
1637: END IF;
1630: arp_util.debug( 'p_reversal_category_code : ' || 'REV' );
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1636: arp_util.debug( '--------------------------------------------------------------');
1637: END IF;
1638:
1631: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date );
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1636: arp_util.debug( '--------------------------------------------------------------');
1637: END IF;
1638:
1639: AR_RECEIPT_API_PUB.Reverse (
1632: arp_util.debug( 'p_reversal_date : ' || p_trh_rec.trx_date );
1633: arp_util.debug( 'p_called_from : ' || p_called_from );
1634: arp_util.debug( 'p_reversal_reason_code : ' || p_reversal_reason );
1635: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1636: arp_util.debug( '--------------------------------------------------------------');
1637: END IF;
1638:
1639: AR_RECEIPT_API_PUB.Reverse (
1640: p_api_version => 1.0 ,
1651: p_org_id => p_trh_rec.org_id);
1652:
1653:
1654: IF PG_DEBUG in ('Y', 'C') THEN
1655: arp_util.debug ( 'REVERSAL RECEIPT API Return status : ' || l_return_status);
1656: arp_util.debug ( ' l_msg_count : ' || to_char(l_msg_count));
1657: END IF;
1658:
1659:
1652:
1653:
1654: IF PG_DEBUG in ('Y', 'C') THEN
1655: arp_util.debug ( 'REVERSAL RECEIPT API Return status : ' || l_return_status);
1656: arp_util.debug ( ' l_msg_count : ' || to_char(l_msg_count));
1657: END IF;
1658:
1659:
1660: IF (l_return_status <> 'S')
1659:
1660: IF (l_return_status <> 'S')
1661: THEN
1662: IF PG_DEBUG in ('Y', 'C') THEN
1663: arp_util.debug( '>>>>>>>>>> Problems during Receipt Reversal');
1664: arp_util.debug( 'l_return_status : ' || l_return_status);
1665: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1666: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1667: END IF;
1660: IF (l_return_status <> 'S')
1661: THEN
1662: IF PG_DEBUG in ('Y', 'C') THEN
1663: arp_util.debug( '>>>>>>>>>> Problems during Receipt Reversal');
1664: arp_util.debug( 'l_return_status : ' || l_return_status);
1665: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1666: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1667: END IF;
1668:
1661: THEN
1662: IF PG_DEBUG in ('Y', 'C') THEN
1663: arp_util.debug( '>>>>>>>>>> Problems during Receipt Reversal');
1664: arp_util.debug( 'l_return_status : ' || l_return_status);
1665: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1666: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1667: END IF;
1668:
1669: IF (l_msg_count > 0)
1662: IF PG_DEBUG in ('Y', 'C') THEN
1663: arp_util.debug( '>>>>>>>>>> Problems during Receipt Reversal');
1664: arp_util.debug( 'l_return_status : ' || l_return_status);
1665: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1666: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1667: END IF;
1668:
1669: IF (l_msg_count > 0)
1670: THEN
1677: END IF;
1678: END IF;
1679:
1680: IF PG_DEBUG in ('Y', 'C') THEN
1681: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt ()-');
1682: END IF;
1683:
1684: EXCEPTION
1685: WHEN OTHERS THEN
1683:
1684: EXCEPTION
1685: WHEN OTHERS THEN
1686: IF PG_DEBUG in ('Y', 'C') THEN
1687: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt : ' || SQLERRM);
1688: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1689: arp_util.debug ( 'p_reversal_reason : ' || p_reversal_reason);
1690: arp_util.debug ( 'p_called_from : ' || p_called_from);
1691: END IF;
1684: EXCEPTION
1685: WHEN OTHERS THEN
1686: IF PG_DEBUG in ('Y', 'C') THEN
1687: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt : ' || SQLERRM);
1688: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1689: arp_util.debug ( 'p_reversal_reason : ' || p_reversal_reason);
1690: arp_util.debug ( 'p_called_from : ' || p_called_from);
1691: END IF;
1692: RAISE;
1685: WHEN OTHERS THEN
1686: IF PG_DEBUG in ('Y', 'C') THEN
1687: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt : ' || SQLERRM);
1688: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1689: arp_util.debug ( 'p_reversal_reason : ' || p_reversal_reason);
1690: arp_util.debug ( 'p_called_from : ' || p_called_from);
1691: END IF;
1692: RAISE;
1693:
1686: IF PG_DEBUG in ('Y', 'C') THEN
1687: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Reverse_Receipt : ' || SQLERRM);
1688: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1689: arp_util.debug ( 'p_reversal_reason : ' || p_reversal_reason);
1690: arp_util.debug ( 'p_called_from : ' || p_called_from);
1691: END IF;
1692: RAISE;
1693:
1694: END Reverse_Receipt;
1719:
1720: BEGIN
1721:
1722: IF PG_DEBUG in ('Y', 'C') THEN
1723: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt ()+');
1724: END IF;
1725:
1726: /* SSA change */
1727: l_org_id := p_trh_rec.org_id;
1730: p_return_status =>l_org_return_status);
1731:
1732: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1733:
1734: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : l_org_return_status <> SUCCESS');
1735: ELSE
1736:
1737: /*------------------------------------------------------+
1738: | Unapply a receipt using Receipt API |
1738: | Unapply a receipt using Receipt API |
1739: +-------------------------------------------------------*/
1740:
1741: IF PG_DEBUG in ('Y', 'C') THEN
1742: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1739: +-------------------------------------------------------*/
1740:
1741: IF PG_DEBUG in ('Y', 'C') THEN
1742: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1740:
1741: IF PG_DEBUG in ('Y', 'C') THEN
1742: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1741: IF PG_DEBUG in ('Y', 'C') THEN
1742: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1742: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1750: arp_util.debug( '--------------------------------------------------------------');
1743: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Unapply : ' );
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1750: arp_util.debug( '--------------------------------------------------------------');
1751: END IF;
1744: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1750: arp_util.debug( '--------------------------------------------------------------');
1751: END IF;
1752:
1745: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1750: arp_util.debug( '--------------------------------------------------------------');
1751: END IF;
1752:
1753: AR_RECEIPT_API_PUB.Unapply (
1746: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_id);
1747: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
1748: arp_util.debug( 'p_called_from : ' || p_called_from);
1749: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
1750: arp_util.debug( '--------------------------------------------------------------');
1751: END IF;
1752:
1753: AR_RECEIPT_API_PUB.Unapply (
1754: p_api_version => 1.0 ,
1764: p_org_id => p_trh_rec.org_id);
1765:
1766:
1767: IF PG_DEBUG in ('Y', 'C') THEN
1768: arp_util.debug ( 'UNAPPLY RECEIPT API Return status : ' || l_return_status);
1769: arp_util.debug ( ' l_msg_count : ' || to_char(l_msg_count));
1770: END IF;
1771:
1772:
1765:
1766:
1767: IF PG_DEBUG in ('Y', 'C') THEN
1768: arp_util.debug ( 'UNAPPLY RECEIPT API Return status : ' || l_return_status);
1769: arp_util.debug ( ' l_msg_count : ' || to_char(l_msg_count));
1770: END IF;
1771:
1772:
1773: IF (l_return_status <> 'S')
1772:
1773: IF (l_return_status <> 'S')
1774: THEN
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug( '>>>>>>>>>> Problems during Receipt Unapplication');
1777: arp_util.debug( 'l_return_status : ' || l_return_status);
1778: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1779: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1780: END IF;
1773: IF (l_return_status <> 'S')
1774: THEN
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug( '>>>>>>>>>> Problems during Receipt Unapplication');
1777: arp_util.debug( 'l_return_status : ' || l_return_status);
1778: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1779: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1780: END IF;
1781:
1774: THEN
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug( '>>>>>>>>>> Problems during Receipt Unapplication');
1777: arp_util.debug( 'l_return_status : ' || l_return_status);
1778: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1779: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1780: END IF;
1781:
1782:
1775: IF PG_DEBUG in ('Y', 'C') THEN
1776: arp_util.debug( '>>>>>>>>>> Problems during Receipt Unapplication');
1777: arp_util.debug( 'l_return_status : ' || l_return_status);
1778: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1779: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1780: END IF;
1781:
1782:
1783: IF (l_msg_count > 0)
1792: END IF;
1793:
1794:
1795: IF PG_DEBUG in ('Y', 'C') THEN
1796: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt ()-');
1797: END IF;
1798:
1799: EXCEPTION
1800: WHEN OTHERS THEN
1798:
1799: EXCEPTION
1800: WHEN OTHERS THEN
1801: IF PG_DEBUG in ('Y', 'C') THEN
1802: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : ' || SQLERRM);
1803: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1804: arp_util.debug ( 'p_called_from : ' || p_called_from );
1805: arp_util.debug ( 'p_ps_id : ' || p_ps_id );
1806: arp_util.debug ( 'p_trh_rec.customer_trx_id : ' || p_trh_rec.customer_trx_id );
1799: EXCEPTION
1800: WHEN OTHERS THEN
1801: IF PG_DEBUG in ('Y', 'C') THEN
1802: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : ' || SQLERRM);
1803: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1804: arp_util.debug ( 'p_called_from : ' || p_called_from );
1805: arp_util.debug ( 'p_ps_id : ' || p_ps_id );
1806: arp_util.debug ( 'p_trh_rec.customer_trx_id : ' || p_trh_rec.customer_trx_id );
1807: END IF;
1800: WHEN OTHERS THEN
1801: IF PG_DEBUG in ('Y', 'C') THEN
1802: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : ' || SQLERRM);
1803: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1804: arp_util.debug ( 'p_called_from : ' || p_called_from );
1805: arp_util.debug ( 'p_ps_id : ' || p_ps_id );
1806: arp_util.debug ( 'p_trh_rec.customer_trx_id : ' || p_trh_rec.customer_trx_id );
1807: END IF;
1808: RAISE;
1801: IF PG_DEBUG in ('Y', 'C') THEN
1802: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : ' || SQLERRM);
1803: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1804: arp_util.debug ( 'p_called_from : ' || p_called_from );
1805: arp_util.debug ( 'p_ps_id : ' || p_ps_id );
1806: arp_util.debug ( 'p_trh_rec.customer_trx_id : ' || p_trh_rec.customer_trx_id );
1807: END IF;
1808: RAISE;
1809:
1802: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_Receipt : ' || SQLERRM);
1803: arp_util.debug ( 'p_cash_receipt_id : ' || p_cash_receipt_id );
1804: arp_util.debug ( 'p_called_from : ' || p_called_from );
1805: arp_util.debug ( 'p_ps_id : ' || p_ps_id );
1806: arp_util.debug ( 'p_trh_rec.customer_trx_id : ' || p_trh_rec.customer_trx_id );
1807: END IF;
1808: RAISE;
1809:
1810: END Unapply_Receipt;
1845: l_org_id NUMBER;
1846: BEGIN
1847:
1848: IF PG_DEBUG in ('Y', 'C') THEN
1849: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_STD ()+');
1850: END IF;
1851:
1852:
1853: /* SSA change */
1857: p_return_status =>l_org_return_status);
1858:
1859: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1860:
1861: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_STD l_org_return_status <> SUCCESS');
1862: ELSE
1863:
1864: /*------------------------------------------------------+
1865: | Fetch the Cash Receipt Information |
1885: | Apply receipt to Short Term Debt using Receipt API |
1886: +-------------------------------------------------------*/
1887:
1888: IF PG_DEBUG in ('Y', 'C') THEN
1889: arp_util.debug( '--------------------------------------------------------------');
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1886: +-------------------------------------------------------*/
1887:
1888: IF PG_DEBUG in ('Y', 'C') THEN
1889: arp_util.debug( '--------------------------------------------------------------');
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1887:
1888: IF PG_DEBUG in ('Y', 'C') THEN
1889: arp_util.debug( '--------------------------------------------------------------');
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1888: IF PG_DEBUG in ('Y', 'C') THEN
1889: arp_util.debug( '--------------------------------------------------------------');
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1889: arp_util.debug( '--------------------------------------------------------------');
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1890: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.Activity_Application : ');
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1891: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1899: arp_util.debug( '--------------------------------------------------------------');
1892: arp_util.debug( 'p_amount_applied : ' || l_cr_rec.amount);
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1899: arp_util.debug( '--------------------------------------------------------------');
1900: END IF;
1893: arp_util.debug( 'p_applied_payment_schedule : ' || '-2');
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1899: arp_util.debug( '--------------------------------------------------------------');
1900: END IF;
1901:
1894: arp_util.debug( 'p_link_to_customer_trx_id : ' || p_customer_trx_id);
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1899: arp_util.debug( '--------------------------------------------------------------');
1900: END IF;
1901:
1902: ar_receipt_api_pub.activity_application(
1895: arp_util.debug( 'p_receivables_trx_id : ' || l_receivables_trx_id);
1896: arp_util.debug( 'p_apply_date : ' || p_apply_date);
1897: arp_util.debug( 'p_apply_gl_date : ' || p_apply_gl_date);
1898: arp_util.debug( 'p_org_id : ' || to_char(l_cr_rec.org_id));
1899: arp_util.debug( '--------------------------------------------------------------');
1900: END IF;
1901:
1902: ar_receipt_api_pub.activity_application(
1903: p_api_version => 1.0,
1922:
1923: IF (l_return_status <> 'S')
1924: THEN
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT APPLICATION');
1927: arp_util.debug( 'l_return_status : ' || l_return_status);
1928: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1929: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1930: END IF;
1923: IF (l_return_status <> 'S')
1924: THEN
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT APPLICATION');
1927: arp_util.debug( 'l_return_status : ' || l_return_status);
1928: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1929: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1930: END IF;
1931:
1924: THEN
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT APPLICATION');
1927: arp_util.debug( 'l_return_status : ' || l_return_status);
1928: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1929: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1930: END IF;
1931:
1932:
1925: IF PG_DEBUG in ('Y', 'C') THEN
1926: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT APPLICATION');
1927: arp_util.debug( 'l_return_status : ' || l_return_status);
1928: arp_util.debug( 'l_msg_count : ' || l_msg_count);
1929: arp_util.debug( 'l_msg_data : ' || l_msg_data);
1930: END IF;
1931:
1932:
1933: IF (l_msg_count > 0)
1942: END IF;
1943:
1944:
1945: IF PG_DEBUG in ('Y', 'C') THEN
1946: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_STD ()-');
1947: END IF;
1948:
1949: EXCEPTION
1950: WHEN OTHERS THEN
1948:
1949: EXCEPTION
1950: WHEN OTHERS THEN
1951: IF PG_DEBUG in ('Y', 'C') THEN
1952: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Apply_STD : ' || SQLERRM);
1953: END IF;
1954: RAISE;
1955:
1956: END Apply_STD;
1985:
1986: BEGIN
1987:
1988: IF PG_DEBUG in ('Y', 'C') THEN
1989: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_STD ()+');
1990: END IF;
1991:
1992: /* SSA change */
1993: l_org_id := p_trh_rec.org_id;
1996: p_return_status =>l_org_return_status);
1997:
1998: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1999:
2000: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_STD : l_org_return_status <> SUCCESS');
2001: ELSE
2002:
2003: /*-----------------------------------------------+
2004: | Fetch last Short Term Debt Application |
2011: | Unapply from Short Term Debt using Receipt API |
2012: +------------------------------------------------*/
2013:
2014: IF PG_DEBUG in ('Y', 'C') THEN
2015: arp_util.debug( '----------------------------------------------------------------');
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2012: +------------------------------------------------*/
2013:
2014: IF PG_DEBUG in ('Y', 'C') THEN
2015: arp_util.debug( '----------------------------------------------------------------');
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2013:
2014: IF PG_DEBUG in ('Y', 'C') THEN
2015: arp_util.debug( '----------------------------------------------------------------');
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2014: IF PG_DEBUG in ('Y', 'C') THEN
2015: arp_util.debug( '----------------------------------------------------------------');
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2022: arp_util.debug( '----------------------------------------------------------------');
2015: arp_util.debug( '----------------------------------------------------------------');
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2022: arp_util.debug( '----------------------------------------------------------------');
2023: END IF;
2016: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.ACTIVITY_UNAPPLICATION : ');
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2022: arp_util.debug( '----------------------------------------------------------------');
2023: END IF;
2024:
2017: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2022: arp_util.debug( '----------------------------------------------------------------');
2023: END IF;
2024:
2025: AR_RECEIPT_API_PUB.Activity_Unapplication(
2018: arp_util.debug( 'p_receivable_application_id: ' || l_receivable_application_id);
2019: arp_util.debug( 'p_reversal_gl_date : ' || p_trh_rec.gl_date);
2020: arp_util.debug( 'p_called_from : ' || p_called_from);
2021: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2022: arp_util.debug( '----------------------------------------------------------------');
2023: END IF;
2024:
2025: AR_RECEIPT_API_PUB.Activity_Unapplication(
2026: p_api_version => 1.0 ,
2037:
2038: IF (l_return_status <> 'S')
2039: THEN
2040: IF PG_DEBUG in ('Y', 'C') THEN
2041: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT UNAPPLICATION');
2042: arp_util.debug( 'l_return_status : ' || l_return_status);
2043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2045: END IF;
2038: IF (l_return_status <> 'S')
2039: THEN
2040: IF PG_DEBUG in ('Y', 'C') THEN
2041: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT UNAPPLICATION');
2042: arp_util.debug( 'l_return_status : ' || l_return_status);
2043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2045: END IF;
2046:
2039: THEN
2040: IF PG_DEBUG in ('Y', 'C') THEN
2041: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT UNAPPLICATION');
2042: arp_util.debug( 'l_return_status : ' || l_return_status);
2043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2045: END IF;
2046:
2047:
2040: IF PG_DEBUG in ('Y', 'C') THEN
2041: arp_util.debug( '>>>>>>>>>> Problems during SHORT TERM DEBT UNAPPLICATION');
2042: arp_util.debug( 'l_return_status : ' || l_return_status);
2043: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2044: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2045: END IF;
2046:
2047:
2048: IF (l_msg_count > 0)
2056: END IF;
2057: END IF;
2058:
2059: IF PG_DEBUG in ('Y', 'C') THEN
2060: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unapply_STD ()-');
2061: END IF;
2062:
2063: EXCEPTION
2064: WHEN OTHERS THEN
2062:
2063: EXCEPTION
2064: WHEN OTHERS THEN
2065: IF PG_DEBUG in ('Y', 'C') THEN
2066: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unapply_STD : ' || SQLERRM);
2067: END IF;
2068: RAISE;
2069:
2070: END Unapply_STD;
2095:
2096: BEGIN
2097:
2098: IF PG_DEBUG in ('Y', 'C') THEN
2099: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unpaid ()+');
2100: END IF;
2101:
2102: -- Fetch the remittance method if it exists
2103:
2128:
2129: AR_BILLS_MAINTAIN_STATUS_PUB.Find_Last_Relevant_trh (l_prev_trh_rec);
2130:
2131: IF PG_DEBUG in ('Y', 'C') THEN
2132: arp_util.debug ( 'Previous Relevant Status : ' || l_prev_trh_rec.status);
2133: END IF;
2134:
2135:
2136:
2233: p_trh_rec.current_accounted_flag:= 'Y';
2234:
2235: ELSE
2236: IF PG_DEBUG in ('Y', 'C') THEN
2237: arp_util.debug( '>>>>>>>>>> Invalid Action - Case not implemented ');
2238: END IF;
2239: FND_MESSAGE.set_name ( 'AR', 'AR_BR_ACTION_FORBIDDEN' );
2240: FND_MESSAGE.Set_token ( 'ACTION', C_UNPAID);
2241: app_exception.raise_exception;
2243: END IF;
2244:
2245:
2246: IF PG_DEBUG in ('Y', 'C') THEN
2247: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Unpaid ()-');
2248: END IF;
2249:
2250: EXCEPTION
2251: WHEN OTHERS THEN
2249:
2250: EXCEPTION
2251: WHEN OTHERS THEN
2252: IF PG_DEBUG in ('Y', 'C') THEN
2253: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Unpaid () ');
2254: END IF;
2255: RAISE;
2256:
2257: END Unpaid;
2291:
2292: BEGIN
2293:
2294: IF PG_DEBUG in ('Y', 'C') THEN
2295: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Recourse ()+');
2296: END IF;
2297:
2298:
2299: /* SSA change */
2303: p_return_status =>l_org_return_status);
2304:
2305: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2306:
2307: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Recourse : l_org_return_status <> SUCCESS');
2308: ELSE
2309:
2310: /*-----------------------------------------------+
2311: | Check if the receipt number is inherited |
2318: FROM AR_RECEIPT_METHODS
2319: WHERE receipt_method_id = p_batch_rec.receipt_method_id;
2320:
2321: IF PG_DEBUG in ('Y', 'C') THEN
2322: arp_util.debug ( 'Receipt_inherit_inv_num_flag : ' || l_receipt_inherit_inv_num_flag);
2323: END IF;
2324:
2325: IF (l_receipt_inherit_inv_num_flag = 'Y')
2326: THEN
2341: l_exch_rate := p_ps_rec.exchange_rate;
2342: end if;
2343:
2344: IF PG_DEBUG in ('Y', 'C') THEN
2345: arp_util.debug( '----------------------------------------------------------------');
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2342: end if;
2343:
2344: IF PG_DEBUG in ('Y', 'C') THEN
2345: arp_util.debug( '----------------------------------------------------------------');
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2343:
2344: IF PG_DEBUG in ('Y', 'C') THEN
2345: arp_util.debug( '----------------------------------------------------------------');
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2344: IF PG_DEBUG in ('Y', 'C') THEN
2345: arp_util.debug( '----------------------------------------------------------------');
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2345: arp_util.debug( '----------------------------------------------------------------');
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2346: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_CASH : ');
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2347: arp_util.debug('p_currency_code : ' || p_ps_rec.invoice_currency_code);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2348: arp_util.debug('p_exchange_rate_type : ' || p_ps_rec.exchange_rate_type);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2349: arp_util.debug('p_exchange_rate : ' || l_exch_rate);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2350: arp_util.debug('p_exchange_rate_date : ' || p_ps_rec.exchange_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2351: arp_util.debug('p_remittance_bank_account_id : ' || p_batch_rec.remit_bank_acct_use_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2352: arp_util.debug('p_amount : ' || p_ps_rec.amount_due_original);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2353: arp_util.debug('p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2361: arp_util.debug('----------------------------------------------------------------');
2354: arp_util.debug('p_receipt_number : ' || l_receipt_number);
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2361: arp_util.debug('----------------------------------------------------------------');
2362: END IF;
2355: arp_util.debug('p_customer_id : ' || p_ps_rec.customer_id);
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2361: arp_util.debug('----------------------------------------------------------------');
2362: END IF;
2363:
2356: arp_util.debug('p_called_from : ' || l_called_from);
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2361: arp_util.debug('----------------------------------------------------------------');
2362: END IF;
2363:
2364: ar_receipt_api_pub.create_cash(
2357: arp_util.debug('p_receipt_date : ' || p_batch_rec.batch_date);
2358: arp_util.debug('p_gl_date : ' || p_batch_rec.gl_date);
2359: arp_util.debug('p_cr_id : ' || l_cr_id);
2360: arp_util.debug('p_org_id : ' || p_ps_rec.org_id);
2361: arp_util.debug('----------------------------------------------------------------');
2362: END IF;
2363:
2364: ar_receipt_api_pub.create_cash(
2365: p_api_version => 1.0 ,
2383: p_org_id => p_ps_rec.org_id);
2384:
2385:
2386: IF PG_DEBUG in ('Y', 'C') THEN
2387: arp_util.debug( 'Cash Receipt Id created : ' || l_cr_id);
2388: arp_util.debug( 'Return status : ' || l_return_status);
2389: END IF;
2390:
2391: IF (l_return_status <> 'S')
2384:
2385:
2386: IF PG_DEBUG in ('Y', 'C') THEN
2387: arp_util.debug( 'Cash Receipt Id created : ' || l_cr_id);
2388: arp_util.debug( 'Return status : ' || l_return_status);
2389: END IF;
2390:
2391: IF (l_return_status <> 'S')
2392: THEN
2390:
2391: IF (l_return_status <> 'S')
2392: THEN
2393: IF PG_DEBUG in ('Y', 'C') THEN
2394: arp_util.debug( '>>>>>>>>>> Problems during receipt creation');
2395: arp_util.debug( 'l_return_status : ' || l_return_status);
2396: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2397: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2398: END IF;
2391: IF (l_return_status <> 'S')
2392: THEN
2393: IF PG_DEBUG in ('Y', 'C') THEN
2394: arp_util.debug( '>>>>>>>>>> Problems during receipt creation');
2395: arp_util.debug( 'l_return_status : ' || l_return_status);
2396: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2397: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2398: END IF;
2399:
2392: THEN
2393: IF PG_DEBUG in ('Y', 'C') THEN
2394: arp_util.debug( '>>>>>>>>>> Problems during receipt creation');
2395: arp_util.debug( 'l_return_status : ' || l_return_status);
2396: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2397: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2398: END IF;
2399:
2400:
2393: IF PG_DEBUG in ('Y', 'C') THEN
2394: arp_util.debug( '>>>>>>>>>> Problems during receipt creation');
2395: arp_util.debug( 'l_return_status : ' || l_return_status);
2396: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2397: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2398: END IF;
2399:
2400:
2401: IF (l_msg_count > 0)
2426:
2427: END IF;
2428:
2429: IF PG_DEBUG in ('Y', 'C') THEN
2430: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Recourse ()-');
2431: END IF;
2432:
2433: EXCEPTION
2434: WHEN OTHERS THEN
2432:
2433: EXCEPTION
2434: WHEN OTHERS THEN
2435: IF PG_DEBUG in ('Y', 'C') THEN
2436: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Factore_Recourse : ' || SQLERRM);
2437: END IF;
2438: RAISE;
2439:
2440: END Factore_Recourse;
2469:
2470: BEGIN
2471:
2472: IF PG_DEBUG in ('Y', 'C') THEN
2473: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Without_Recourse ()+');
2474: END IF;
2475:
2476: /* SSA change */
2477: l_org_id := p_ps_rec.org_id;
2480: p_return_status =>l_org_return_status);
2481:
2482: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2483:
2484: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Without_Recourse : l_org_return_status <> SUCCESS');
2485: ELSE
2486:
2487: /*-----------------------------------------------+
2488: | Check if the receipt number is inherited |
2495: FROM AR_RECEIPT_METHODS
2496: WHERE receipt_method_id = p_batch_rec.receipt_method_id;
2497:
2498: IF PG_DEBUG in ('Y', 'C') THEN
2499: arp_util.debug ( 'Receipt_inherit_inv_num_flag : ' || l_receipt_inherit_inv_num_flag);
2500: END IF;
2501:
2502: IF (l_receipt_inherit_inv_num_flag = 'Y')
2503: THEN
2505: END IF;
2506:
2507:
2508: IF PG_DEBUG in ('Y', 'C') THEN
2509: arp_util.debug( '----------------------------------------------------------------');
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2506:
2507:
2508: IF PG_DEBUG in ('Y', 'C') THEN
2509: arp_util.debug( '----------------------------------------------------------------');
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2507:
2508: IF PG_DEBUG in ('Y', 'C') THEN
2509: arp_util.debug( '----------------------------------------------------------------');
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2508: IF PG_DEBUG in ('Y', 'C') THEN
2509: arp_util.debug( '----------------------------------------------------------------');
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2509: arp_util.debug( '----------------------------------------------------------------');
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2510: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.CREATE_AND_APPLY : ');
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2511: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id );
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2512: arp_util.debug( 'p_amount : ' || p_ps_rec.amount_due_remaining);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2513: arp_util.debug( 'p_currency_code : ' || p_ps_rec.invoice_currency_code);
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2514: arp_util.debug( 'p_exchange_rate : ' || p_ps_rec.exchange_rate);
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2522: arp_util.debug( '----------------------------------------------------------------');
2515: arp_util.debug( 'p_receipt_number : ' || l_receipt_number);
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2522: arp_util.debug( '----------------------------------------------------------------');
2523: END IF;
2516: arp_util.debug( 'p_receipt_method_id : ' || p_batch_rec.receipt_method_id);
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2522: arp_util.debug( '----------------------------------------------------------------');
2523: END IF;
2524:
2517: arp_util.debug( 'p_customer_id : ' || p_ps_rec.customer_id);
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2522: arp_util.debug( '----------------------------------------------------------------');
2523: END IF;
2524:
2525: -- bug 3506385/3572968 : pass rate ONLY when exchange_rate_type = 'User'
2518: arp_util.debug( 'remit bank account use id : ' || p_batch_rec.remit_bank_acct_use_id);
2519: arp_util.debug( 'p_called_from : ' || C_BR_FACTORED);
2520: arp_util.debug( 'p_link_to_trx_hist_id : ' || NULL);
2521: arp_util.debug( 'p_org_id : ' || to_char(p_ps_rec.org_id));
2522: arp_util.debug( '----------------------------------------------------------------');
2523: END IF;
2524:
2525: -- bug 3506385/3572968 : pass rate ONLY when exchange_rate_type = 'User'
2526: -- this is the only case where Receipt API expects a rate
2557: p_cr_id => l_cr_id ,
2558: p_org_id => p_ps_rec.org_id);
2559:
2560: IF PG_DEBUG in ('Y', 'C') THEN
2561: arp_util.debug( 'Cash Receipt Id created : ' || l_cr_id);
2562: arp_util.debug( 'Return status : ' || l_return_status);
2563: arp_util.debug( 'l_msg_count : ' || to_char(l_msg_count));
2564: END IF;
2565:
2558: p_org_id => p_ps_rec.org_id);
2559:
2560: IF PG_DEBUG in ('Y', 'C') THEN
2561: arp_util.debug( 'Cash Receipt Id created : ' || l_cr_id);
2562: arp_util.debug( 'Return status : ' || l_return_status);
2563: arp_util.debug( 'l_msg_count : ' || to_char(l_msg_count));
2564: END IF;
2565:
2566:
2559:
2560: IF PG_DEBUG in ('Y', 'C') THEN
2561: arp_util.debug( 'Cash Receipt Id created : ' || l_cr_id);
2562: arp_util.debug( 'Return status : ' || l_return_status);
2563: arp_util.debug( 'l_msg_count : ' || to_char(l_msg_count));
2564: END IF;
2565:
2566:
2567: IF (l_return_status <> 'S')
2566:
2567: IF (l_return_status <> 'S')
2568: THEN
2569: IF PG_DEBUG in ('Y', 'C') THEN
2570: arp_util.debug( '>>>>>>>>>> Problems during Receipt Creation and Application');
2571: arp_util.debug( 'l_return_status : ' || l_return_status);
2572: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2573: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2574: END IF;
2567: IF (l_return_status <> 'S')
2568: THEN
2569: IF PG_DEBUG in ('Y', 'C') THEN
2570: arp_util.debug( '>>>>>>>>>> Problems during Receipt Creation and Application');
2571: arp_util.debug( 'l_return_status : ' || l_return_status);
2572: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2573: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2574: END IF;
2575:
2568: THEN
2569: IF PG_DEBUG in ('Y', 'C') THEN
2570: arp_util.debug( '>>>>>>>>>> Problems during Receipt Creation and Application');
2571: arp_util.debug( 'l_return_status : ' || l_return_status);
2572: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2573: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2574: END IF;
2575:
2576:
2569: IF PG_DEBUG in ('Y', 'C') THEN
2570: arp_util.debug( '>>>>>>>>>> Problems during Receipt Creation and Application');
2571: arp_util.debug( 'l_return_status : ' || l_return_status);
2572: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2573: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2574: END IF;
2575:
2576:
2577: IF (l_msg_count > 0)
2595: END IF;
2596:
2597:
2598: IF PG_DEBUG in ('Y', 'C') THEN
2599: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Factore_Without_Recourse ()-');
2600: END IF;
2601:
2602: EXCEPTION
2603: WHEN OTHERS THEN
2601:
2602: EXCEPTION
2603: WHEN OTHERS THEN
2604: IF PG_DEBUG in ('Y', 'C') THEN
2605: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Factore_Without_Recourse : ' || SQLERRM);
2606: END IF;
2607: RAISE;
2608:
2609: END Factore_Without_Recourse;
2635:
2636: BEGIN
2637:
2638: IF PG_DEBUG in ('Y', 'C') THEN
2639: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_Receipt ()+');
2640: END IF;
2641:
2642: /* SSA change */
2643: l_org_id := p_trh_rec.org_id;
2646: p_return_status =>l_org_return_status);
2647:
2648: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2649:
2650: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_receipt : l_org_return_status <> SUCCESS');
2651: ELSE
2652:
2653: /*----------------------------------------------+
2654: | Create normal application using Receipt API |
2663: END IF;
2664:
2665:
2666: IF PG_DEBUG in ('Y', 'C') THEN
2667: arp_util.debug( '------------------------------------------------');
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2664:
2665:
2666: IF PG_DEBUG in ('Y', 'C') THEN
2667: arp_util.debug( '------------------------------------------------');
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2665:
2666: IF PG_DEBUG in ('Y', 'C') THEN
2667: arp_util.debug( '------------------------------------------------');
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2666: IF PG_DEBUG in ('Y', 'C') THEN
2667: arp_util.debug( '------------------------------------------------');
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2667: arp_util.debug( '------------------------------------------------');
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2668: arp_util.debug( 'PARAMETERS PASSED TO AR_RECEIPT_API_PUB.APPLY : ');
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2669: arp_util.debug( 'p_cash_receipt_id : ' || p_cash_receipt_id);
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2677: arp_util.debug( '------------------------------------------------');
2670: arp_util.debug( 'p_customer_trx_id : ' || p_trh_rec.customer_trx_id);
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2677: arp_util.debug( '------------------------------------------------');
2678: END IF;
2671: arp_util.debug( 'p_applied_payment_schedule_id : ' || p_ps_rec.payment_schedule_id);
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2677: arp_util.debug( '------------------------------------------------');
2678: END IF;
2679:
2672: arp_util.debug( 'p_amount_applied : ' || p_ps_rec.amount_due_remaining);
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2677: arp_util.debug( '------------------------------------------------');
2678: END IF;
2679:
2680: AR_RECEIPT_API_PUB.Apply (
2673: arp_util.debug( 'p_apply_date : ' || p_trh_rec.trx_date);
2674: arp_util.debug( 'p_apply_gl_date : ' || p_trh_rec.gl_date);
2675: arp_util.debug( 'p_move_deffered_tax : ' || l_move_deferred_tax);
2676: arp_util.debug( 'p_org_id : ' || to_char(p_trh_rec.org_id));
2677: arp_util.debug( '------------------------------------------------');
2678: END IF;
2679:
2680: AR_RECEIPT_API_PUB.Apply (
2681: p_api_version => 1.0 ,
2695:
2696: IF (l_return_status <> 'S')
2697: THEN
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug( '>>>>>>>>>> Problems during Receipt Application');
2700: arp_util.debug( 'l_return_status : ' || l_return_status);
2701: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2702: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2703: END IF;
2696: IF (l_return_status <> 'S')
2697: THEN
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug( '>>>>>>>>>> Problems during Receipt Application');
2700: arp_util.debug( 'l_return_status : ' || l_return_status);
2701: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2702: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2703: END IF;
2704:
2697: THEN
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug( '>>>>>>>>>> Problems during Receipt Application');
2700: arp_util.debug( 'l_return_status : ' || l_return_status);
2701: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2702: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2703: END IF;
2704:
2705:
2698: IF PG_DEBUG in ('Y', 'C') THEN
2699: arp_util.debug( '>>>>>>>>>> Problems during Receipt Application');
2700: arp_util.debug( 'l_return_status : ' || l_return_status);
2701: arp_util.debug( 'l_msg_count : ' || l_msg_count);
2702: arp_util.debug( 'l_msg_data : ' || l_msg_data);
2703: END IF;
2704:
2705:
2706: IF (l_msg_count > 0)
2715: END IF;
2716:
2717:
2718: IF PG_DEBUG in ('Y', 'C') THEN
2719: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Apply_Receipt ()-');
2720: END IF;
2721:
2722: EXCEPTION
2723: WHEN OTHERS THEN
2721:
2722: EXCEPTION
2723: WHEN OTHERS THEN
2724: IF PG_DEBUG in ('Y', 'C') THEN
2725: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Apply_Receipt : ' || SQLERRM);
2726: END IF;
2727: RAISE;
2728:
2729: END Apply_Receipt;
2757:
2758: BEGIN
2759:
2760: IF PG_DEBUG in ('Y', 'C') THEN
2761: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Link_Application_History ()+');
2762: END IF;
2763:
2764: /*----------------------------------------------+
2765: | Fetch last Application |
2770:
2771: IF (last_application_cur%NOTFOUND)
2772: THEN
2773: IF PG_DEBUG in ('Y', 'C') THEN
2774: arp_util.debug ('Link_Application_History: ' || '>>>>>>>>>> Last Application could not be found');
2775: END IF;
2776: CLOSE last_application_cur;
2777: APP_EXCEPTION.raise_exception;
2778: END IF;
2799: WHERE receivable_application_id = last_application_rec.receivable_application_id;
2800:
2801:
2802: IF PG_DEBUG in ('Y', 'C') THEN
2803: arp_util.debug('AR_BILLS_MAINTAIN_LIB_PVT.Link_Application_History ()-');
2804: END IF;
2805:
2806: EXCEPTION
2807: WHEN OTHERS THEN
2805:
2806: EXCEPTION
2807: WHEN OTHERS THEN
2808: IF PG_DEBUG in ('Y', 'C') THEN
2809: arp_util.debug('>>>>>>>>>> EXCEPTION : AR_BILLS_MAINTAIN_LIB_PVT.Link_Application_History : ' || SQLERRM);
2810: END IF;
2811: IF (last_application_cur%ISOPEN)
2812: THEN
2813: CLOSE last_application_cur;