247: where receipt_method_id = p_receipt_method_id;
248:
249: BEGIN
250: IF PG_DEBUG in ('Y', 'C') THEN
251: arp_standard.debug('validate_args: ' || 'arp_reverse_receipt.reverse() +');
252: arp_standard.debug('validate_args: ' || 'cr_id = '||to_char( p_cr_id ) );
253: END IF;
254: -- Validate input arguments
255: IF ( p_module_name IS NOT NULL and p_module_version IS NOT NULL ) THEN
248:
249: BEGIN
250: IF PG_DEBUG in ('Y', 'C') THEN
251: arp_standard.debug('validate_args: ' || 'arp_reverse_receipt.reverse() +');
252: arp_standard.debug('validate_args: ' || 'cr_id = '||to_char( p_cr_id ) );
253: END IF;
254: -- Validate input arguments
255: IF ( p_module_name IS NOT NULL and p_module_version IS NOT NULL ) THEN
256: validate_args( p_cr_id, p_reversal_category,
268: -- or is posted. If so, return error message.
269: --
270: IF ( check_cb( p_cr_id ) = FALSE ) THEN
271: IF PG_DEBUG in ('Y', 'C') THEN
272: arp_standard.debug('validate_args: ' || 'Check CB Failed' );
273: END IF;
274: FND_MESSAGE.set_name('AR', 'AR_DEBIT_REVERSE');
275: APP_EXCEPTION.raise_exception;
276: END IF ;
435: --
436:
437: --
438: IF PG_DEBUG in ('Y', 'C') THEN
439: arp_standard.debug('validate_args: ' || 'cr_rec.type = '||l_cr_rec.type );
440: END IF;
441: -- if receipt_type is 'MISC', fetch the distribution record and
442: -- for each fetched record, insert its opposite record.
443: IF ( l_cr_rec.type = 'MISC' ) THEN
498: CLOSE ar_rc_rec;
499: END IF;
500: --
501: IF PG_DEBUG in ('Y', 'C') THEN
502: arp_standard.debug('validate_args: ' || 'EXCEPTION: arp_reverse_receipt.reverse' );
503: END IF;
504: RAISE;
505: END;
506: end if; --(l_cr_rec.amount < 0 and v_credit_card)
603: modify_update_bat_rec( l_batch_id, l_cr_rec.amount, p_reversal_category );
604: END IF;
605: --
606: IF PG_DEBUG in ('Y', 'C') THEN
607: arp_standard.debug('validate_args: ' || 'arp_reverse_receipt.reverse() -');
608: END IF;
609: --
610: EXCEPTION
611: WHEN unapply_netting_err THEN
613: CLOSE ar_ra_C;
614: END IF;
615: --
616: IF PG_DEBUG in ('Y', 'C') THEN
617: arp_standard.debug('validate_args: ' || 'EXCEPTION: arp_reverse_receipt.reverse - error calling ar_receipt_api_pub.unapply_open_receipt' );
618: END IF;
619: RAISE;
620: WHEN cancel_refund_err THEN
621: IF ar_ra_C%ISOPEN THEN
622: CLOSE ar_ra_C;
623: END IF;
624: --
625: IF PG_DEBUG in ('Y', 'C') THEN
626: arp_standard.debug('EXCEPTION: arp_reverse_receipt.reverse - error calling ar_refunds_pvt.cancel_refund' );
627: END IF;
628: RAISE;
629: WHEN OTHERS THEN
630: IF ar_mcd_C%ISOPEN THEN
631: CLOSE ar_mcd_C;
632: END IF;
633: --
634: IF PG_DEBUG in ('Y', 'C') THEN
635: arp_standard.debug('validate_args: ' || 'EXCEPTION: arp_reverse_receipt.reverse' );
636: END IF;
637: RAISE;
638: --
639: END reverse;
670: p_reversal_date IN ar_cash_receipts.reversal_date%TYPE,
671: p_reversal_reason_code IN VARCHAR2 ) IS
672: BEGIN
673: IF PG_DEBUG in ('Y', 'C') THEN
674: arp_standard.debug( 'arp_reverse_receipt.validate_args() +');
675: END IF;
676: --
677: IF ( p_cr_id is NULL OR p_reversal_category is NULL OR
678: p_reversal_gl_date is NULL OR p_reversal_date is NULL OR
684: -- Validate gl date. If it is invalid, print an error message
685: --
686: IF ( arp_util.is_gl_date_valid( p_reversal_gl_date ) = FALSE ) THEN
687: IF PG_DEBUG in ('Y', 'C') THEN
688: arp_standard.debug('validate_args: ' || 'invalid gl date' );
689: END IF;
690: FND_MESSAGE.set_name ('AR', 'AR_INF_GL_DATE' );
691: APP_EXCEPTION.raise_exception;
692: END IF;
691: APP_EXCEPTION.raise_exception;
692: END IF;
693: --
694: IF PG_DEBUG in ('Y', 'C') THEN
695: arp_standard.debug( 'arp_reverse_receipt.validate_args() -');
696: END IF;
697: EXCEPTION
698: WHEN OTHERS THEN
699: IF PG_DEBUG in ('Y', 'C') THEN
696: END IF;
697: EXCEPTION
698: WHEN OTHERS THEN
699: IF PG_DEBUG in ('Y', 'C') THEN
700: arp_standard.debug('validate_args: ' ||
701: 'EXCEPTION: arp_reverse_receipt.validate_args' );
702: END IF;
703: RAISE;
704: --
767:
768: BEGIN
769:
770: IF PG_DEBUG in ('Y', 'C') THEN
771: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_dist_rec() +');
772: arp_standard.debug('insert_reversal_dist_rec: ' || '-- cr_id = '||to_char( p_cr_id ) );
773: arp_standard.debug('insert_reversal_dist_rec: ' || '-- crh_id = '||to_char( p_crh_id ) );
774: arp_standard.debug('insert_reversal_dist_rec: ' || '-- Fetching the cash receipt record -- ');
775: END IF;
768: BEGIN
769:
770: IF PG_DEBUG in ('Y', 'C') THEN
771: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_dist_rec() +');
772: arp_standard.debug('insert_reversal_dist_rec: ' || '-- cr_id = '||to_char( p_cr_id ) );
773: arp_standard.debug('insert_reversal_dist_rec: ' || '-- crh_id = '||to_char( p_crh_id ) );
774: arp_standard.debug('insert_reversal_dist_rec: ' || '-- Fetching the cash receipt record -- ');
775: END IF;
776: -- Fetch the cash receipt record
769:
770: IF PG_DEBUG in ('Y', 'C') THEN
771: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_dist_rec() +');
772: arp_standard.debug('insert_reversal_dist_rec: ' || '-- cr_id = '||to_char( p_cr_id ) );
773: arp_standard.debug('insert_reversal_dist_rec: ' || '-- crh_id = '||to_char( p_crh_id ) );
774: arp_standard.debug('insert_reversal_dist_rec: ' || '-- Fetching the cash receipt record -- ');
775: END IF;
776: -- Fetch the cash receipt record
777: l_cr_rec.cash_receipt_id := p_cr_id;
770: IF PG_DEBUG in ('Y', 'C') THEN
771: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_dist_rec() +');
772: arp_standard.debug('insert_reversal_dist_rec: ' || '-- cr_id = '||to_char( p_cr_id ) );
773: arp_standard.debug('insert_reversal_dist_rec: ' || '-- crh_id = '||to_char( p_crh_id ) );
774: arp_standard.debug('insert_reversal_dist_rec: ' || '-- Fetching the cash receipt record -- ');
775: END IF;
776: -- Fetch the cash receipt record
777: l_cr_rec.cash_receipt_id := p_cr_id;
778: arp_cash_receipts_pkg.fetch_p( l_cr_rec );
840: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
841:
842:
843: IF PG_DEBUG in ('Y', 'C') THEN
844: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_dist_rec() -');
845: END IF;
846: EXCEPTION
847: --
848: WHEN OTHERS THEN
846: EXCEPTION
847: --
848: WHEN OTHERS THEN
849: IF PG_DEBUG in ('Y', 'C') THEN
850: arp_standard.debug('insert_reversal_dist_rec: ' ||
851: 'EXCEPTION: arp_reverse_receipt.insert_reversal_dist_rec' );
852: END IF;
853: RAISE;
854: --
899: l_xla_ev_rec arp_xla_events.xla_events_type;
900:
901: BEGIN
902: IF PG_DEBUG in ('Y', 'C') THEN
903: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_crh_record() +');
904: END IF;
905: --
906: -- The amount columns are not updated to 0. This was done in Rel 10.5
907: -- For more info on this look at /appldev/ar/7.1/upgrade/sql/ar760u15.sql
965: l_xla_ev_rec.xla_call := 'B';
966: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
967:
968: IF PG_DEBUG in ('Y', 'C') THEN
969: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_crh_record() -');
970: END IF;
971: EXCEPTION
972: WHEN OTHERS THEN
973: IF PG_DEBUG in ('Y', 'C') THEN
970: END IF;
971: EXCEPTION
972: WHEN OTHERS THEN
973: IF PG_DEBUG in ('Y', 'C') THEN
974: arp_standard.debug('insert_reversal_crh_record: ' ||
975: 'EXCEPTION: arp_reverse_receipt.insert_reversal_crh_record' );
976: END IF;
977: RAISE;
978: END insert_reversal_crh_record;
1015: l_xla_ev_rec arp_xla_events.xla_events_type;
1016:
1017: BEGIN
1018: IF PG_DEBUG in ('Y', 'C') THEN
1019: arp_standard.debug( 'arp_reverse_receipt.update_current_crh_record() +');
1020: arp_standard.debug('update_current_crh_record: ' || 'crh_id_new = '||to_char( p_crh_id_new ) );
1021: END IF;
1022:
1023: p_crh_rec.current_record_flag := NULL;
1016:
1017: BEGIN
1018: IF PG_DEBUG in ('Y', 'C') THEN
1019: arp_standard.debug( 'arp_reverse_receipt.update_current_crh_record() +');
1020: arp_standard.debug('update_current_crh_record: ' || 'crh_id_new = '||to_char( p_crh_id_new ) );
1021: END IF;
1022:
1023: p_crh_rec.current_record_flag := NULL;
1024: p_crh_rec.reversal_gl_date := p_reversal_gl_date;
1040: l_xla_ev_rec.xla_call := 'B';
1041: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
1042:
1043: IF PG_DEBUG in ('Y', 'C') THEN
1044: arp_standard.debug( 'arp_reverse_receipt.update_current_crh_record() -');
1045: END IF;
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: IF PG_DEBUG in ('Y', 'C') THEN
1045: END IF;
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: IF PG_DEBUG in ('Y', 'C') THEN
1049: arp_standard.debug('update_current_crh_record: ' ||
1050: 'EXCEPTION: arp_reverse_receipt.update_current_crh_record' );
1051: END IF;
1052: RAISE;
1053: --
1091: l_ae_doc_rec ae_doc_rec_type;
1092:
1093: BEGIN
1094: IF PG_DEBUG in ('Y', 'C') THEN
1095: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_mcd_record() +');
1096: END IF;
1097: --
1098: p_mcd_rec.gl_date := p_reversal_gl_date;
1099: p_mcd_rec.apply_date := p_reversal_date;
1120: l_ae_doc_rec.other_flag := 'REVERSE';
1121: arp_acct_main.Create_Acct_Entry(l_ae_doc_rec);
1122:
1123: IF PG_DEBUG in ('Y', 'C') THEN
1124: arp_standard.debug( 'arp_reverse_receipt.insert_reversal_mcd_record() -');
1125: END IF;
1126: EXCEPTION
1127: WHEN OTHERS THEN
1128: IF PG_DEBUG in ('Y', 'C') THEN
1125: END IF;
1126: EXCEPTION
1127: WHEN OTHERS THEN
1128: IF PG_DEBUG in ('Y', 'C') THEN
1129: arp_standard.debug('insert_reversal_mcd_record: ' ||
1130: 'EXCEPTION: arp_reverse_receipt.insert_reversal_mcd_record' );
1131: END IF;
1132: RAISE;
1133: --
1164: RETURN BOOLEAN IS
1165: l_count NUMBER DEFAULT 0;
1166: BEGIN
1167: IF PG_DEBUG in ('Y', 'C') THEN
1168: arp_standard.debug( 'arp_reverse_receipt.check_cb() +');
1169: arp_standard.debug('check_cb: ' || 'cr_id = '||to_char( p_cr_id ) );
1170: END IF;
1171: --
1172: SELECT COUNT(*)
1165: l_count NUMBER DEFAULT 0;
1166: BEGIN
1167: IF PG_DEBUG in ('Y', 'C') THEN
1168: arp_standard.debug( 'arp_reverse_receipt.check_cb() +');
1169: arp_standard.debug('check_cb: ' || 'cr_id = '||to_char( p_cr_id ) );
1170: END IF;
1171: --
1172: SELECT COUNT(*)
1173: INTO l_count
1191: RETURN TRUE;
1192: END IF;
1193: --
1194: IF PG_DEBUG in ('Y', 'C') THEN
1195: arp_standard.debug( 'arp_reverse_receipt.check_cb() -');
1196: END IF;
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: IF PG_DEBUG in ('Y', 'C') THEN
1196: END IF;
1197: EXCEPTION
1198: WHEN OTHERS THEN
1199: IF PG_DEBUG in ('Y', 'C') THEN
1200: arp_standard.debug( 'EXCEPTION: arp_reverse_receipt.check_cb' );
1201: END IF;
1202: RAISE;
1203: END check_cb;
1204: --
1239: l_actual_date_closed DATE;
1240: l_ps_rec ar_payment_schedules%ROWTYPE;
1241: BEGIN
1242: IF PG_DEBUG in ('Y', 'C') THEN
1243: arp_standard.debug( 'arp_reverse_receipt.modify_update_ps_rec() +' );
1244: arp_standard.debug('modify_update_ps_rec: ' || to_char( p_cr_id ) );
1245: arp_standard.debug('modify_update_ps_rec: ' || 'cr_id = '||to_char( p_cr_id ) );
1246: END IF;
1247: --
1240: l_ps_rec ar_payment_schedules%ROWTYPE;
1241: BEGIN
1242: IF PG_DEBUG in ('Y', 'C') THEN
1243: arp_standard.debug( 'arp_reverse_receipt.modify_update_ps_rec() +' );
1244: arp_standard.debug('modify_update_ps_rec: ' || to_char( p_cr_id ) );
1245: arp_standard.debug('modify_update_ps_rec: ' || 'cr_id = '||to_char( p_cr_id ) );
1246: END IF;
1247: --
1248: arp_ps_pkg.fetch_fk_cr_id( p_cr_id, l_ps_rec );
1241: BEGIN
1242: IF PG_DEBUG in ('Y', 'C') THEN
1243: arp_standard.debug( 'arp_reverse_receipt.modify_update_ps_rec() +' );
1244: arp_standard.debug('modify_update_ps_rec: ' || to_char( p_cr_id ) );
1245: arp_standard.debug('modify_update_ps_rec: ' || 'cr_id = '||to_char( p_cr_id ) );
1246: END IF;
1247: --
1248: arp_ps_pkg.fetch_fk_cr_id( p_cr_id, l_ps_rec );
1249: arp_ps_util.get_closed_dates( l_ps_rec.payment_schedule_id,
1261: --
1262: arp_ps_pkg.update_p( l_ps_rec );
1263: --
1264: IF PG_DEBUG in ('Y', 'C') THEN
1265: arp_standard.debug( 'arp_reverse_receipt.modify_update_ps_rec() +' );
1266: END IF;
1267: EXCEPTION
1268: WHEN OTHERS THEN
1269: IF PG_DEBUG in ('Y', 'C') THEN
1266: END IF;
1267: EXCEPTION
1268: WHEN OTHERS THEN
1269: IF PG_DEBUG in ('Y', 'C') THEN
1270: arp_standard.debug('modify_update_ps_rec: ' ||
1271: 'EXCEPTION: arp_reverse_receipt.modify_update_ps_rec' );
1272: END IF;
1273: RAISE;
1274: --
1327: p_attribute14 IN ar_cash_receipts.attribute14%TYPE,
1328: p_attribute15 IN ar_cash_receipts.attribute15%TYPE ) IS
1329: BEGIN
1330: IF PG_DEBUG in ('Y', 'C') THEN
1331: arp_standard.debug( 'arp_reverse_receipt.update_current_cr_rec() +' );
1332: END IF;
1333: --
1334: p_cr_rec.selected_remittance_batch_id := NULL;
1335: p_cr_rec.reversal_category := p_reversal_category;
1357: ---
1358: arp_cash_receipts_pkg.update_p( p_cr_rec );
1359: ---
1360: IF PG_DEBUG in ('Y', 'C') THEN
1361: arp_standard.debug( 'arp_reverse_receipt.update_current_cr_rec() -');
1362: END IF;
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: IF PG_DEBUG in ('Y', 'C') THEN
1362: END IF;
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: IF PG_DEBUG in ('Y', 'C') THEN
1366: arp_standard.debug('update_current_cr_rec: ' ||
1367: 'EXCEPTION: arp_reverse_receipt.update_current_cr_rec' );
1368: END IF;
1369: RAISE;
1370: --
1408: l_status ar_batches.status%TYPE;
1409: BEGIN
1410: --
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_standard.debug( 'arp_reverse_receipt.modify_update_bat_rec() +');
1413: arp_standard.debug('modify_update_bat_rec: ' || 'cr_count = '||to_char( p_cr_amount ) );
1414: arp_standard.debug('modify_update_bat_rec: ' || 'cr_amount = '||to_char( l_bat_rec.control_amount ) );
1415: END IF;
1416: --
1409: BEGIN
1410: --
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_standard.debug( 'arp_reverse_receipt.modify_update_bat_rec() +');
1413: arp_standard.debug('modify_update_bat_rec: ' || 'cr_count = '||to_char( p_cr_amount ) );
1414: arp_standard.debug('modify_update_bat_rec: ' || 'cr_amount = '||to_char( l_bat_rec.control_amount ) );
1415: END IF;
1416: --
1417: -- If there are no batches associated with the receipt, then return
1410: --
1411: IF PG_DEBUG in ('Y', 'C') THEN
1412: arp_standard.debug( 'arp_reverse_receipt.modify_update_bat_rec() +');
1413: arp_standard.debug('modify_update_bat_rec: ' || 'cr_count = '||to_char( p_cr_amount ) );
1414: arp_standard.debug('modify_update_bat_rec: ' || 'cr_amount = '||to_char( l_bat_rec.control_amount ) );
1415: END IF;
1416: --
1417: -- If there are no batches associated with the receipt, then return
1418: --
1424: --
1425: EXCEPTION
1426: WHEN NO_DATA_FOUND THEN
1427: IF PG_DEBUG in ('Y', 'C') THEN
1428: arp_standard.debug('modify_update_bat_rec: ' || 'No Batches associated with the receipt' );
1429: END IF;
1430: RETURN;
1431: WHEN OTHERS THEN
1432: IF PG_DEBUG in ('Y', 'C') THEN
1429: END IF;
1430: RETURN;
1431: WHEN OTHERS THEN
1432: IF PG_DEBUG in ('Y', 'C') THEN
1433: arp_standard.debug('modify_update_bat_rec: ' ||
1434: 'EXCEPTION: arp_reverse_receipt.modify_update_bat_rec' );
1435: END IF;
1436: END;
1437: --
1438: -- determine if the batch has any unposted quick cash receipt
1439: -- in the AR_INTERIM_CASH_RECEIPTS table
1440: --
1441: IF PG_DEBUG in ('Y', 'C') THEN
1442: arp_standard.debug('modify_update_bat_rec: ' || 'p_status = '||p_status );
1443: END IF;
1444: --
1445: --
1446: --
1476: --
1477: arp_cr_batches_pkg.update_p( l_bat_rec );
1478: --
1479: IF PG_DEBUG in ('Y', 'C') THEN
1480: arp_standard.debug( 'arp_reverse_receipt.modify_update_bat_rec() -');
1481: END IF;
1482: EXCEPTION
1483: WHEN OTHERS THEN
1484: IF PG_DEBUG in ('Y', 'C') THEN
1481: END IF;
1482: EXCEPTION
1483: WHEN OTHERS THEN
1484: IF PG_DEBUG in ('Y', 'C') THEN
1485: arp_standard.debug('modify_update_bat_rec: ' ||
1486: 'EXCEPTION: arp_reverse_receipt.modify_update_bat_rec' );
1487: END IF;
1488: RAISE;
1489:
1680: ORDER BY su2.primary_flag desc;
1681:
1682: BEGIN
1683: --
1684: -- arp_standard.enable_debug;
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1682: BEGIN
1683: --
1684: -- arp_standard.enable_debug;
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1683: --
1684: -- arp_standard.enable_debug;
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1684: -- arp_standard.enable_debug;
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1686: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() +');
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1687: arp_standard.debug('debit_memo_reversal: ' || 'Parameters:');
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1688: arp_standard.debug('debit_memo_reversal: ' || 'p_cr_id = ' || p_cr_rec.cash_receipt_id);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1696: arp_standard.debug('debit_memo_reversal: ' || 'p_module_version = ' || p_module_version);
1689: arp_standard.debug('debit_memo_reversal: ' || 'p_cc_id = ' || p_cc_id);
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1696: arp_standard.debug('debit_memo_reversal: ' || 'p_module_version = ' || p_module_version);
1697: END IF;
1690: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type_id = ' || p_cust_trx_type_id);
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1696: arp_standard.debug('debit_memo_reversal: ' || 'p_module_version = ' || p_module_version);
1697: END IF;
1698:
1691: arp_standard.debug('debit_memo_reversal: ' || 'p_cust_trx_type = ' || p_cust_trx_type);
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1696: arp_standard.debug('debit_memo_reversal: ' || 'p_module_version = ' || p_module_version);
1697: END IF;
1698:
1699: l_cr_id := p_cr_rec.cash_receipt_id;
1692: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_gl_date = ' || TO_CHAR(p_reversal_gl_date));
1693: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_date = ' || TO_CHAR(p_reversal_date));
1694: arp_standard.debug('debit_memo_reversal: ' || 'p_reversal_reason_code = ' || p_reversal_reason_code);
1695: arp_standard.debug('debit_memo_reversal: ' || 'p_module_name = ' || p_module_name);
1696: arp_standard.debug('debit_memo_reversal: ' || 'p_module_version = ' || p_module_version);
1697: END IF;
1698:
1699: l_cr_id := p_cr_rec.cash_receipt_id;
1700:
1707: -- Validate gl date. If it is invalid, print an error message
1708: --
1709: IF ( arp_util.is_gl_date_valid( p_reversal_gl_date ) = FALSE ) THEN
1710: IF PG_DEBUG in ('Y', 'C') THEN
1711: arp_standard.debug('debit_memo_reversal: ' || 'invalid gl date' );
1712: END IF;
1713: FND_MESSAGE.set_name ('AR', 'AR_INF_GL_DATE' );
1714: APP_EXCEPTION.raise_exception;
1715: END IF;
1800: WHERE cash_receipt_id = l_cr_id
1801: AND cash_receipt_history_id = l_crhid;
1802:
1803: IF PG_DEBUG in ('Y', 'C') THEN
1804: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_cc_id = ' || l_rev1_cc_id);
1805: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_cc_id = ' || l_rev2_cc_id);
1806: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_amount = ' || l_rev1_amount);
1807: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_amount = ' || l_rev2_amount);
1808: arp_standard.debug('debit_memo_reversal: ' || 'l_cr_id = ' || l_cr_id);
1801: AND cash_receipt_history_id = l_crhid;
1802:
1803: IF PG_DEBUG in ('Y', 'C') THEN
1804: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_cc_id = ' || l_rev1_cc_id);
1805: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_cc_id = ' || l_rev2_cc_id);
1806: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_amount = ' || l_rev1_amount);
1807: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_amount = ' || l_rev2_amount);
1808: arp_standard.debug('debit_memo_reversal: ' || 'l_cr_id = ' || l_cr_id);
1809: END IF;
1802:
1803: IF PG_DEBUG in ('Y', 'C') THEN
1804: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_cc_id = ' || l_rev1_cc_id);
1805: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_cc_id = ' || l_rev2_cc_id);
1806: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_amount = ' || l_rev1_amount);
1807: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_amount = ' || l_rev2_amount);
1808: arp_standard.debug('debit_memo_reversal: ' || 'l_cr_id = ' || l_cr_id);
1809: END IF;
1810:
1803: IF PG_DEBUG in ('Y', 'C') THEN
1804: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_cc_id = ' || l_rev1_cc_id);
1805: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_cc_id = ' || l_rev2_cc_id);
1806: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_amount = ' || l_rev1_amount);
1807: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_amount = ' || l_rev2_amount);
1808: arp_standard.debug('debit_memo_reversal: ' || 'l_cr_id = ' || l_cr_id);
1809: END IF;
1810:
1811: --
1804: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_cc_id = ' || l_rev1_cc_id);
1805: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_cc_id = ' || l_rev2_cc_id);
1806: arp_standard.debug('debit_memo_reversal: ' || 'l_rev1_amount = ' || l_rev1_amount);
1807: arp_standard.debug('debit_memo_reversal: ' || 'l_rev2_amount = ' || l_rev2_amount);
1808: arp_standard.debug('debit_memo_reversal: ' || 'l_cr_id = ' || l_cr_id);
1809: END IF;
1810:
1811: --
1812: -- Call invoice side transaction header entity handler
1958: -- in l_cr_id - dandy
1959: --
1960:
1961: IF PG_DEBUG in ('Y', 'C') THEN
1962: arp_standard.debug('Debit_Memo_Reversal: Before calling arp_p_l.insert_line');
1963: END IF;
1964:
1965: /* added two new NULL parameters to call to insert_line, due to spec
1966: changes in transaction package (OSTEINME, 8/19/97) */
1991: l_status_dummy );
1992:
1993:
1994: IF PG_DEBUG in ('Y', 'C') THEN
1995: arp_standard.debug('debit_memo_reversal: ' || 'l_status_dummy after insert_line:' || l_status_dummy);
1996: END IF;
1997:
1998: -- if first call (to insert_header) was successful, then return
1999: -- result of insert_line, otherwise return first error message.
2002: p_status := l_status_dummy;
2003: END IF;
2004:
2005: IF PG_DEBUG in ('Y', 'C') THEN
2006: arp_standard.debug('Debit_Memo_Reversal: Before calling arp_p_h.post_commit');
2007: END IF;
2008: -- 11/21/97 Karen Murphy
2009: -- Bug 522837
2010: -- Removed TO_NUMBER( p_module_version ) as this causes problems
2018: NULL, 'Y', NULL, NULL, 'A', NULL, NULL,
2019: l_cr_id );
2020:
2021: IF PG_DEBUG in ('Y', 'C') THEN
2022: arp_standard.debug('Debit_Memo_Reversal: After calling arp_p_h.post_commit');
2023: END IF;
2024:
2025: BEGIN
2026: SELECT
2036: l_copy_doc_number_flag := 'N';
2037: END;
2038:
2039: IF PG_DEBUG in ('Y', 'C') THEN
2040: arp_standard.debug('debit_memo_reversal: ' || 'Get the Copy Doc Number Flag :' || l_copy_doc_number_flag );
2041: END IF;
2042:
2043: -- update debit memo with document number :
2044: -- Also copy the Document Number into Trx Number if "Copy" Flag set at Batch Source.
2096:
2097: p_dm_number := l_dm_number;
2098:
2099: IF PG_DEBUG in ('Y', 'C') THEN
2100: arp_standard.debug('debit_memo_reversal: ' || 'dm trx number: ' || l_dm_number);
2101: END IF;
2102:
2103: -- update cash receipt:
2104:
2113: p_attribute14, p_attribute15 );
2114:
2115:
2116: IF PG_DEBUG in ('Y', 'C') THEN
2117: arp_standard.debug( 'arp_reverse_receipt.debit_memo_reversal() -');
2118: END IF;
2119:
2120: EXCEPTION
2121: WHEN OTHERS THEN
2119:
2120: EXCEPTION
2121: WHEN OTHERS THEN
2122: IF PG_DEBUG in ('Y', 'C') THEN
2123: arp_standard.debug('debit_memo_reversal: ' ||
2124: 'EXCEPTION: arp_reverse_receipt.debit_memo_reversal' );
2125: END IF;
2126: RAISE;
2127: END debit_memo_reversal;
2162: ar_cash_receipts.reversal_date%TYPE,
2163: p_reversal_reason_code IN VARCHAR2) IS
2164: BEGIN
2165: IF PG_DEBUG in ('Y', 'C') THEN
2166: arp_standard.debug( 'arp_reverse_receipt.validate_dm_reversal_args() +');
2167: END IF;
2168: --
2169: IF ( p_cr_id IS NULL OR p_cc_id IS NULL OR
2170: p_cust_trx_type_id IS NULL OR p_reversal_gl_date IS NULL OR
2173: APP_EXCEPTION.raise_exception;
2174: END IF;
2175: --
2176: IF PG_DEBUG in ('Y', 'C') THEN
2177: arp_standard.debug( 'arp_reverse_receipt.validate_dm_reversal_args() -');
2178: END IF;
2179: EXCEPTION
2180: WHEN OTHERS THEN
2181: IF PG_DEBUG in ('Y', 'C') THEN
2178: END IF;
2179: EXCEPTION
2180: WHEN OTHERS THEN
2181: IF PG_DEBUG in ('Y', 'C') THEN
2182: arp_standard.debug('validate_dm_reversal_args: ' ||
2183: 'EXCEPTION: arp_reverse_receipt.validate_dm_reversal_args' );
2184: END IF;
2185: RAISE;
2186: --
2238:
2239: BEGIN
2240:
2241: IF PG_DEBUG in ('Y', 'C') THEN
2242: arp_standard.debug( 'arp_reverse_receipt.receipt_has_non_cancel_claims() +');
2243: END IF;
2244:
2245: OPEN c_claim_count;
2246: FETCH c_claim_count INTO l_claim_count;
2258: END LOOP;
2259: RETURN FALSE;
2260:
2261: IF PG_DEBUG in ('Y', 'C') THEN
2262: arp_standard.debug( 'arp_reverse_receipt.receipt_has_non_cancel_claims() -');
2263: END IF;
2264:
2265: END receipt_has_non_cancel_claims;
2266: --
2323: AND application_ref_type = 'CLAIM';
2324:
2325: BEGIN
2326: IF PG_DEBUG in ('Y', 'C') THEN
2327: arp_standard.debug( 'arp_reverse_receipt.cancel_claims() +');
2328: END IF;
2329: FOR c1 in c_claims LOOP
2330: IF OZF_Claim_GRP.Check_Cancell_Deduction(
2331: p_claim_id => c1.secondary_application_ref_id)
2368: END IF;
2369: END IF;
2370: END LOOP;
2371: IF PG_DEBUG in ('Y', 'C') THEN
2372: arp_standard.debug( 'arp_reverse_receipt.cancel_claims() -');
2373: END IF;
2374: END cancel_claims;
2375: --
2376: /*===========================================================================+
2411:
2412: BEGIN
2413:
2414: IF PG_DEBUG in ('Y', 'C') THEN
2415: arp_standard.debug( 'arp_reverse_receipt.receipt_has_claims() +');
2416: END IF;
2417:
2418: OPEN c_claim_count;
2419: FETCH c_claim_count INTO l_claim_count;
2425: RETURN TRUE;
2426: END IF;
2427:
2428: IF PG_DEBUG in ('Y', 'C') THEN
2429: arp_standard.debug( 'arp_reverse_receipt.receipt_has_claims() -');
2430: END IF;
2431:
2432: END receipt_has_claims;
2433: --
2547:
2548: BEGIN
2549:
2550: IF PG_DEBUG in ('Y', 'C') THEN
2551: arp_standard.debug( 'arp_reverse_receipt.receipt_has_processed_refunds() +');
2552: END IF;
2553:
2554: FOR c1 in c_refunds LOOP
2555: BEGIN
2560: P_calling_sequence => 'ARREREVB.receipt_has_processed_refunds') THEN
2561: RETURN TRUE;
2562: END IF;
2563: EXCEPTION WHEN OTHERS THEN
2564: arp_standard.debug('l_error_code: '||l_error_code);
2565: arp_standard.debug('l_debug_info: '||l_debug_info);
2566: arp_standard.debug('Unexpected error encountered calling ap_cancel_pkg.is_invoice_cancellable: '||sqlerrm);
2567: RETURN TRUE;
2568: END;
2561: RETURN TRUE;
2562: END IF;
2563: EXCEPTION WHEN OTHERS THEN
2564: arp_standard.debug('l_error_code: '||l_error_code);
2565: arp_standard.debug('l_debug_info: '||l_debug_info);
2566: arp_standard.debug('Unexpected error encountered calling ap_cancel_pkg.is_invoice_cancellable: '||sqlerrm);
2567: RETURN TRUE;
2568: END;
2569: END LOOP;
2562: END IF;
2563: EXCEPTION WHEN OTHERS THEN
2564: arp_standard.debug('l_error_code: '||l_error_code);
2565: arp_standard.debug('l_debug_info: '||l_debug_info);
2566: arp_standard.debug('Unexpected error encountered calling ap_cancel_pkg.is_invoice_cancellable: '||sqlerrm);
2567: RETURN TRUE;
2568: END;
2569: END LOOP;
2570: RETURN FALSE;
2569: END LOOP;
2570: RETURN FALSE;
2571:
2572: IF PG_DEBUG in ('Y', 'C') THEN
2573: arp_standard.debug( 'arp_reverse_receipt.receipt_has_processed_refunds() -');
2574: END IF;
2575: END receipt_has_processed_refunds;
2576: --
2577: