[Home] [Help]
1: PACKAGE BODY ARP_PROGRAM_GENERATE_BR AS
2: /* $Header: ARBRTESB.pls 120.24.12020000.2 2012/11/06 09:40:48 dgaurab ship $ */
3:
4: --------- Private Procedures
5: PROCEDURE from_automatic_batch_window(
245: p_request_id OUT NOCOPY NUMBER);
246:
247:
248: --------- Global variables
249: G_PKG_NAME CONSTANT varchar2(30) := 'ARP_PROGRAM_GENERATE_BR';
250:
251: TYPE cur_typ IS REF CURSOR;
252:
253: /* Bug 3472744 Declarations for the new pl/sql table included
416: l_batch_id RA_BATCHES.batch_id%TYPE;
417:
418: BEGIN
419:
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.auto_create_br_program (+)');
421:
422: --------------------------------------------------------------
423: -- Date Conversions
424: --------------------------------------------------------------
458: -- Process
459: --------------------------------------------------------------
460: IF (p_call = 1) THEN
461:
462: ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window(
463: p_draft_mode,
464: p_print_flag,
465: p_batch_id,
466: l_due_date_low,
478: p_site_use_id);
479:
480: ELSIF (p_call = 2) THEN
481:
482: ARP_PROGRAM_GENERATE_BR.from_conc_request_window(
483: p_print_flag,
484: p_batch_source_id,
485: l_batch_date,
486: l_gl_date,
528: APP_EXCEPTION.raise_exception;
529: END IF;
530:
531: --Temporary table Drop
532: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
533:
534: /* Bug 3472744 Printing the errored BRs at the end of the log file. */
535: IF (g_num_br_failed > 0)
536: THEN
568: END IF;
569: END IF ;
570:
571: --Temporary table Drop
572: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
573:
574: COMMIT;
575:
576: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.auto_create_br_program (-)');
572: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
573:
574: COMMIT;
575:
576: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.auto_create_br_program (-)');
577:
578: EXCEPTION
579: WHEN OTHERS THEN
580: --Temporary table Drop
577:
578: EXCEPTION
579: WHEN OTHERS THEN
580: --Temporary table Drop
581: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.auto_create_br_program');
583: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
584: RAISE;
585:
578: EXCEPTION
579: WHEN OTHERS THEN
580: --Temporary table Drop
581: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.auto_create_br_program');
583: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
584: RAISE;
585:
586: END auto_create_br_program;
628: l_request_id NUMBER;
629:
630: BEGIN
631:
632: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (+)');
633:
634: -- Temporary table Creation
635: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
636:
631:
632: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (+)');
633:
634: -- Temporary table Creation
635: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
636:
637: -- Select the transactions using the users criteria and create the Bills Receivable
638: ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR(
639: p_draft_mode,
634: -- Temporary table Creation
635: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
636:
637: -- Select the transactions using the users criteria and create the Bills Receivable
638: ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR(
639: p_draft_mode,
640: 1, -- p_call
641: p_batch_id,
642: p_due_date_low,
653: p_customer_id,
654: p_site_use_id);
655: -- Update the batch status to 'CREATION_COMPLETED' if the batch run in Create mode.
656: -- Otherwise, the batch status is updated to 'DRAFT'.
657: ARP_PROGRAM_GENERATE_BR.update_batch_status(
658: p_draft_mode,
659: p_batch_id);
660:
661: /* Bug 3472744 Added the check for number of brs created before
671: print_BR_pvt(p_batch_id,1,l_request_id);
672: END IF;
673: END IF;
674:
675: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (-)');
676:
677: EXCEPTION
678: WHEN OTHERS THEN
679: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window');
675: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window (-)');
676:
677: EXCEPTION
678: WHEN OTHERS THEN
679: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_automatic_batch_window');
680: RAISE;
681:
682: END from_automatic_batch_window;
683:
749: l_request_id NUMBER;
750:
751: BEGIN
752:
753: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (+)');
754:
755: -- Temporary table Creation
756: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
757:
752:
753: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (+)');
754:
755: -- Temporary table Creation
756: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
757:
758: -- Insert the batch header in RA_BATCHES and the criteria in AR_SELECTION_CRITERIA
759: ARP_PROGRAM_GENERATE_BR.create_batch_header(
760: p_batch_source_id,
755: -- Temporary table Creation
756: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
757:
758: -- Insert the batch header in RA_BATCHES and the criteria in AR_SELECTION_CRITERIA
759: ARP_PROGRAM_GENERATE_BR.create_batch_header(
760: p_batch_source_id,
761: p_batch_date,
762: p_gl_date,
763: p_issue_date,
799:
800:
801:
802: -- Select the transactions using the users criteria and create the Bills Receivable
803: ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR(
804: 'N', -- p_draft_mode (the user do not have the option of creating a BR batch in Draft Mode, by SRS)
805: 2, -- p_call
806: l_batch_id,
807: p_due_date_low,
819: p_site_use_id);
820:
821:
822: --- The batch status is updated to 'Creation Completed'
823: ARP_PROGRAM_GENERATE_BR.update_batch_status(
824: 'N', -- p_draft_mode
825: l_batch_id);
826:
827: /* Bug 3472744 Added the check for number of brs created before
837: print_BR_pvt(l_batch_id,2,l_request_id);
838: END IF;
839: END IF;
840:
841: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (-)');
842:
843: EXCEPTION
844: WHEN OTHERS THEN
845: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_conc_request_window');
841: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.from_conc_request_window (-)');
842:
843: EXCEPTION
844: WHEN OTHERS THEN
845: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.from_conc_request_window');
846: RAISE;
847:
848: END from_conc_request_window;
849:
920: l_name RA_BATCHES.name%TYPE;
921:
922: BEGIN
923:
924: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (+)');
925:
926: l_issue_date := p_issue_date;
927:
928: --------------------------------------------------------------
1006: p_batch_id := l_batch_id;
1007:
1008: COMMIT;
1009:
1010: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (-)');
1011:
1012: EXCEPTION
1013: WHEN OTHERS THEN
1014: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.create_batch_header');
1010: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.create_batch_header (-)');
1011:
1012: EXCEPTION
1013: WHEN OTHERS THEN
1014: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.create_batch_header');
1015: RAISE;
1016:
1017: END create_batch_header;
1018:
1050:
1051:
1052: BEGIN
1053:
1054: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (+)');
1055:
1056: -- fetch the batch
1057: arp_tbat_pkg.lock_fetch_p(l_batch_rec,p_batch_id);
1058:
1120: l_selection_criteria_id);
1121:
1122: COMMIT;
1123:
1124: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (-)');
1125:
1126: EXCEPTION
1127: WHEN OTHERS THEN
1128: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.update_batch_status');
1124: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.update_batch_status (-)');
1125:
1126: EXCEPTION
1127: WHEN OTHERS THEN
1128: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.update_batch_status');
1129: RAISE;
1130:
1131: END update_batch_status;
1132:
1318:
1319: BEGIN
1320:
1321: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
1322: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (+)');
1323: FND_FILE.PUT_LINE(FND_FILE.LOG,'Dump of Parameters');
1324: FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------');
1325: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_low = ' || p_due_date_low);
1326: FND_FILE.PUT_LINE(FND_FILE.LOG,'p_due_date_high = ' || p_due_date_high);
1376: -- Setup of the next cursor according to the handled receipt method
1377: -- Bug 3922691 : pass additional parameters to construct_suffixe_select,
1378: -- call new procedure construct_hz
1379:
1380: ARP_PROGRAM_GENERATE_BR.construct_suffixe_select(
1381: l_lead_days,
1382: l_suffixe_select_statement,
1383: p_due_date_low,
1384: p_due_date_high,
1392: p_customer_id,
1393: p_site_use_id,
1394: l_le_id);
1395:
1396: ARP_PROGRAM_GENERATE_BR.construct_hz(
1397: l_receipt_creation_rule_code,
1398: p_customer_id,
1399: l_suffix_hz);
1400:
1473: END IF;
1474:
1475: -- 4109513 : Now that we have customer_id, rebuild l_trx_select_statement
1476: -- to make it more selective on ps.customer_id
1477: ARP_PROGRAM_GENERATE_BR.construct_suffixe_select(
1478: l_lead_days,
1479: l_suffixe_select_statement,
1480: p_due_date_low,
1481: p_due_date_high,
1489: l_customer_id,
1490: p_site_use_id,
1491: l_le_id);
1492:
1493: ARP_PROGRAM_GENERATE_BR.construct_hz(
1494: l_receipt_creation_rule_code,
1495: l_customer_id,
1496: l_suffix_hz);
1497:
1632: END IF;
1633: END IF;
1634:
1635: -- Selection of the Credit/Debit Note with a payment Term of Immediate (term_id = 5)
1636: ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM(
1637: l_lead_days,
1638: l_receipt_creation_rule_code,
1639: p_due_date_low,
1640: p_due_date_high,
1654: l_customer_bank_account_id2,
1655: l_le_id);
1656:
1657: -- Selection of the "others" transactions
1658: ARP_PROGRAM_GENERATE_BR.select_trx_NIMM(
1659: l_lead_days,
1660: l_receipt_creation_rule_code,
1661: NVL(l_due_date,p_due_date_low),
1662: NVL(l_due_date,p_due_date_high),
1682: l_br_count :=g_num_br_created;
1683: -- Creation of the Bills receivable
1684:
1685: -- bug 1808976 : added l_customer_bank_account_id
1686: ARP_PROGRAM_GENERATE_BR.create_BR(
1687: p_draft_mode,
1688: p_call,
1689: p_batch_id,
1690: l_receipt_method_id,
1763:
1764: /* Bug 14146916 :This loop again check for skipped or left over transactions and create BR for them*/
1765: For l_ctr IN 0 .. l_skipped_br_count-1 loop
1766: Begin
1767: ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM(
1768: l_lead_days,
1769: l_receipt_creation_rule_code,
1770: p_due_date_low,
1771: p_due_date_high,
1785: l_customer_bank_account_id2,
1786: l_le_id);
1787:
1788: -- Selection of the "others" transactions
1789: ARP_PROGRAM_GENERATE_BR.select_trx_NIMM(
1790: l_lead_days,
1791: l_receipt_creation_rule_code,
1792: NVL(skipped_br(l_ctr).due_date,p_due_date_low),
1793: NVL(skipped_br(l_ctr).due_date,p_due_date_high),
1812:
1813: -- Creation of the Bills receivable
1814:
1815: -- bug 1808976 : added l_customer_bank_account_id
1816: ARP_PROGRAM_GENERATE_BR.create_BR(
1817: p_draft_mode,
1818: p_call,
1819: p_batch_id,
1820: l_receipt_method_id,
1875: CLOSE c_receipt_method;
1876:
1877:
1878: FND_FILE.PUT_LINE(FND_FILE.LOG,'The process has generated '||g_num_br_created||' Bills receivable');
1879: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (-)');
1880:
1881: EXCEPTION
1882: WHEN OTHERS THEN
1883: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR');
1879: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR (-)');
1880:
1881: EXCEPTION
1882: WHEN OTHERS THEN
1883: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_and_create_BR');
1884:
1885: IF c_grouping%ISOPEN THEN
1886: CLOSE c_grouping;
1887: END IF;
1973: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'construct_hz (-)');
1974:
1975: EXCEPTION
1976: WHEN OTHERS THEN
1977: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_hz');
1978: RAISE;
1979: END;
1980:
1981:
2034: l_trx_select_statement VARCHAR2(4000) := NULL;
2035:
2036: BEGIN
2037:
2038: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (+)');
2039:
2040: /* modified for tca uptake */
2041:
2042: /* Bug 1744783 : for transactions with multiple payment schedule records,
2204: END IF;
2205:
2206: p_suffixe_select_statement := l_trx_select_statement;
2207:
2208: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (-)');
2209:
2210: EXCEPTION
2211: WHEN OTHERS THEN
2212: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_suffixe_select');
2208: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.construct_suffixe_select (-)');
2209:
2210: EXCEPTION
2211: WHEN OTHERS THEN
2212: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.construct_suffixe_select');
2213: RAISE;
2214:
2215: END construct_suffixe_select;
2216:
2289: l_org_id AR_PAYMENT_SCHEDULES.org_id%TYPE;
2290:
2291: BEGIN
2292:
2293: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (+)');
2294:
2295: l_delete_statement := 'DELETE FROM '|| g_tmp_table_imm;
2296: execute immediate l_delete_statement;
2297:
2296: execute immediate l_delete_statement;
2297:
2298: IF p_receipt_creation_rule_code = 'PER_INVOICE' THEN
2299: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'grouping rule PER INVOICE -> no DM/CM Immediate');
2300: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2301: RETURN;
2302: END IF;
2303:
2304: -- If a Credit/Debit Note has been created with a payment term of immediate,
2311: -- Bug 3922691, we cannot re-use p_suffixe_select_statement because the
2312: -- param values for p_due_date_low, p_due_date_high, p_customer_id,
2313: -- p_site_use_id may have changed, need to reconstruct with current values
2314:
2315: ARP_PROGRAM_GENERATE_BR.construct_suffixe_select(
2316: p_lead_days,
2317: l_suffixe_select_statement,
2318: p_due_date_low,
2319: p_due_date_high,
2327: p_customer_id,
2328: p_site_use_id,
2329: p_le_id );
2330:
2331: ARP_PROGRAM_GENERATE_BR.construct_hz(
2332: p_receipt_creation_rule_code,
2333: p_customer_id,
2334: l_suffix_hz);
2335:
2447: execute immediate l_delete_statement;
2448:
2449: END IF;
2450:
2451: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2452:
2453: EXCEPTION
2454: WHEN OTHERS THEN
2455: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM');
2451: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM (-)');
2452:
2453: EXCEPTION
2454: WHEN OTHERS THEN
2455: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_DM_and_CM_IMM');
2456:
2457: IF c_trx%ISOPEN THEN
2458: CLOSE c_trx;
2459: END IF;
2535: l_org_id AR_PAYMENT_SCHEDULES.org_id%TYPE;
2536:
2537: BEGIN
2538:
2539: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (+)');
2540:
2541: l_delete_statement := 'DELETE FROM '|| g_tmp_table_nimm;
2542: execute immediate l_delete_statement;
2543:
2545: -- Bug 3922691, we cannot re-use p_suffixe_select_statement because the
2546: -- param values for p_due_date_low, p_due_date_high, p_customer_id,
2547: -- p_site_use_id may have changed, need to reconstruct with current values
2548:
2549: ARP_PROGRAM_GENERATE_BR.construct_suffixe_select(
2550: p_lead_days,
2551: l_suffixe_select_statement,
2552: p_due_date_low,
2553: p_due_date_high,
2561: p_customer_id,
2562: p_site_use_id,
2563: p_le_id );
2564:
2565: ARP_PROGRAM_GENERATE_BR.construct_hz(
2566: p_receipt_creation_rule_code,
2567: p_customer_id,
2568: l_suffix_hz);
2569:
2688:
2689: END LOOP;
2690: CLOSE c_trx;
2691:
2692: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (-)');
2693:
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_NIMM');
2692: --FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.select_trx_NIMM (-)');
2693:
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.select_trx_NIMM');
2697:
2698: IF c_trx%ISOPEN THEN
2699: CLOSE c_trx;
2700: END IF;
2888:
2889: BEGIN
2890:
2891: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
2892: program_debug(p_call,'ARP_PROGRAM_GENERATE_BR.create_BR (+)');
2893: END IF;
2894:
2895: l_return_status := FND_API.G_RET_STS_SUCCESS;
2896:
4046: FETCH c_trx INTO l_customer_trx_id, l_assigned_amount;
4047: EXIT WHEN c_trx%NOTFOUND;
4048:
4049: -- Bug 1420183 Added p_receipt_method_id
4050: ARP_PROGRAM_GENERATE_BR.ar_br_insert_into_report_table(
4051: arp_global.request_id,
4052: p_batch_id,
4053: l_bill_id,
4054: NVL(l_bill_number,to_char(g_num_br_created)),
4079: FETCH c_trx INTO l_customer_trx_id, l_assigned_amount;
4080: EXIT WHEN c_trx%NOTFOUND;
4081:
4082: -- Bug 1420183 Added p_receipt_method_id
4083: ARP_PROGRAM_GENERATE_BR.ar_br_insert_into_report_table(
4084: arp_global.request_id,
4085: p_batch_id,
4086: l_bill_id,
4087: NVL(l_bill_number,to_char(g_num_br_created)),
4135:
4136: COMMIT;
4137:
4138: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
4139: program_debug(p_call,'ARP_PROGRAM_GENERATE_BR.create_BR (-)');
4140: END IF;
4141:
4142:
4143: EXCEPTION
4142:
4143: EXCEPTION
4144: WHEN OTHERS THEN
4145: IF p_call <> 3 OR PG_DEBUG in ('Y', 'C') THEN
4146: program_debug(p_call,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.create_BR >>>> ROLLBACK');
4147: END IF;
4148: ROLLBACK TO create_BR_SVP;
4149:
4150: IF c_trx%ISOPEN THEN
4279: l_lead_days);
4280:
4281:
4282: EXCEPTION WHEN OTHERS THEN
4283: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION OTHERS: ARP_PROGRAM_GENERATE_BR.AR_BR_INSERT_INTO_REPORT_TABLE ');
4284: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4285: IF c_get_receipt_method%ISOPEN THEN
4286: CLOSE c_get_receipt_method;
4287: END IF;
4347: l_user_schema VARCHAR2(30) := USER;
4348:
4349: BEGIN
4350:
4351: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (+)');
4352:
4353: LOOP
4354:
4355:
4486: END IF;
4487:
4488: END LOOP;
4489:
4490: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (-)');
4491:
4492: EXCEPTION
4493: WHEN OTHERS THEN
4494: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table');
4490: --FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table (-)');
4491:
4492: EXCEPTION
4493: WHEN OTHERS THEN
4494: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table');
4495: RAISE;
4496:
4497: END arbr_cr_tmp_table;
4498:
4528:
4529:
4530: BEGIN
4531:
4532: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (+)');
4533:
4534: ----------------------------------------------------------------------------------------
4535: -- Drop of the temporary table for Transactions with a payment term of non immediate
4536: ----------------------------------------------------------------------------------------
4609: execute immediate query_drop;
4610: END IF;
4611:
4612:
4613: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (-)');
4614:
4615: EXCEPTION
4616: WHEN OTHERS THEN
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.drop_tmp_table');
4613: FND_FILE.PUT_LINE(FND_FILE.LOG,'ARP_PROGRAM_GENERATE_BR.drop_tmp_table (-)');
4614:
4615: EXCEPTION
4616: WHEN OTHERS THEN
4617: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.drop_tmp_table');
4618: RAISE;
4619:
4620: END drop_tmp_table;
4621:
4706: --FND_FILE.PUT_LINE(FND_FILE.LOG,'run_report_pvt (-)');
4707:
4708: EXCEPTION
4709: WHEN OTHERS THEN
4710: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.run_report_pvt - ROLLBACK');
4711: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4712: ROLLBACK TO run_report_SVP;
4713:
4714: END run_report_pvt;
4807: --FND_FILE.PUT_LINE(FND_FILE.LOG,'print_BR_pvt (-)');
4808:
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : ARP_PROGRAM_GENERATE_BR.print_BR_pvt - ROLLBACK');
4812: FND_FILE.PUT_LINE(FND_FILE.LOG,SQLERRM);
4813: ROLLBACK TO print_BR_SVP;
4814:
4815: END print_BR_pvt;
4914:
4915: BEGIN
4916:
4917: IF PG_DEBUG in ('Y', 'C') THEN
4918: arp_util.debug('ARP_PROGRAM_GENERATE_BR.auto_create_br_API (+)');
4919: END IF;
4920:
4921: -- Standard call to check for call compatability
4922: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4956:
4957: CLOSE c_receipt_method;
4958:
4959: -- Temporary table Creation
4960: ARP_PROGRAM_GENERATE_BR.arbr_cr_tmp_table;
4961:
4962: -------------------------------------------------------------------------
4963: -- Setup the transaction select statement
4964: -------------------------------------------------------------------------
5001: 'AND ps.customer_trx_id = trx.customer_trx_id '||
5002: 'AND trx.receipt_method_id = pm.receipt_method_id ';
5003:
5004: -- bug 3922691
5005: ARP_PROGRAM_GENERATE_BR.construct_hz(l_receipt_creation_rule_code,
5006: p_customer_id,
5007: l_suffix_hz);
5008:
5009: l_suffixe_select_statement := l_suffixe_select_statement || l_suffix_hz;
5132:
5133: -- create the bills receivable
5134:
5135: -- bug 1808976 : pass customer_bank_account_id to create_br
5136: ARP_PROGRAM_GENERATE_BR.create_BR(
5137: 'N', -- p_draft_mode
5138: 3, -- p_call
5139: NULL, -- p_batch_id
5140: l_receipt_method_id,
5174: APP_EXCEPTION.raise_exception;
5175: END IF;
5176:
5177: --Temporary table Drop
5178: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
5179:
5180: IF PG_DEBUG in ('Y', 'C') THEN
5181: arp_util.debug('ARP_PROGRAM_GENERATE_BR.auto_create_br_API (-)');
5182: END IF;
5177: --Temporary table Drop
5178: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
5179:
5180: IF PG_DEBUG in ('Y', 'C') THEN
5181: arp_util.debug('ARP_PROGRAM_GENERATE_BR.auto_create_br_API (-)');
5182: END IF;
5183:
5184:
5185:
5185:
5186: EXCEPTION
5187: WHEN FND_API.G_EXC_ERROR THEN
5188: IF PG_DEBUG in ('Y', 'C') THEN
5189: arp_util.debug('EXCEPTION FND_API.G_EXC_ERROR:ARP_PROGRAM_GENERATE_BR.auto_create_br_API ');
5190: END IF;
5191: x_return_status := FND_API.G_RET_STS_ERROR;
5192:
5193: IF c_grouping%ISOPEN THEN
5201: IF c_trx%ISOPEN THEN
5202: CLOSE c_trx;
5203: END IF;
5204:
5205: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
5206: raise;
5207:
5208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5209: IF PG_DEBUG in ('Y', 'C') THEN
5206: raise;
5207:
5208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5209: IF PG_DEBUG in ('Y', 'C') THEN
5210: arp_util.debug('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR: ARP_PROGRAM_GENERATE_BR.auto_create_br_API');
5211: END IF;
5212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213:
5214: IF c_grouping%ISOPEN THEN
5222: IF c_trx%ISOPEN THEN
5223: CLOSE c_trx;
5224: END IF;
5225:
5226: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
5227: raise;
5228:
5229: WHEN OTHERS THEN
5230: IF PG_DEBUG in ('Y', 'C') THEN
5227: raise;
5228:
5229: WHEN OTHERS THEN
5230: IF PG_DEBUG in ('Y', 'C') THEN
5231: arp_util.debug('EXCEPTION OTHERS: ARP_PROGRAM_GENERATE_BR.auto_create_br_API');
5232: END IF;
5233:
5234: IF c_grouping%ISOPEN THEN
5235: CLOSE c_grouping;
5242: IF c_trx%ISOPEN THEN
5243: CLOSE c_trx;
5244: END IF;
5245:
5246: ARP_PROGRAM_GENERATE_BR.drop_tmp_table;
5247: IF (SQLCODE = -20001) THEN
5248: x_return_status := FND_API.G_RET_STS_ERROR;
5249: END IF;
5250:
5281: into g_org_id
5282: from ar_system_parameters;
5283:
5284:
5285: END ARP_PROGRAM_GENERATE_BR;