532: --------------------------------------------------------
533: -- Process Lines with Adjustment amounts
534: --------------------------------------------------------
535: FOR adj_streams_rec IN adj_streams_csr( rbk_ctrct_rec.id ) LOOP
536: FND_FILE.PUT_LINE (FND_FILE.LOG,'Adjustment Amount: '
537: ||adj_streams_rec.amount
538: ||' for Contract: '
539: ||adj_streams_rec.contract_number);
540:
647: err_tbl(err_idx).amount := i_taiv_rec.amount;
648:
649:
650: IF (x_return_status = 'S' ) THEN
651: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
652: ELSE
653: l_err_status := 'E';
654: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
655: END IF;
650: IF (x_return_status = 'S' ) THEN
651: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
652: ELSE
653: l_err_status := 'E';
654: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
655: END IF;
656:
657:
658: IF (x_return_status <> 'S' ) THEN
658: IF (x_return_status <> 'S' ) THEN
659: UPDATE okl_trx_ar_invoices_b
660: SET trx_status_code = 'ERROR'
661: WHERE id = lx_taiv_rec.id;
662: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
663: ELSE
664: ----------------------------------------------
665: -- Check if there was ever an error and update
666: -- accordingly
670: -- Flag all TAI records for this bill adj
671: -- as error
672: -----------------------------------------
673: FOR i in err_tbl.FIRST..err_tbl.LAST LOOP
674: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Invoice for '||err_tbl(i).amount);
675:
676:
677: UPDATE okl_trx_ar_invoices_b
678: SET trx_status_code = 'ERROR'
765: err_tbl(err_idx).amount := l_credit_amount;
766:
767:
768: IF l_return_status = 'S' THEN
769: FND_FILE.PUT_LINE (FND_FILE.LOG,'Credited AR Invoice: '
770: ||unpaid_invs_rec.trx_number
771: ||' for: '||l_credit_amount);
772: l_bill_ajst_amt := l_bill_ajst_amt + unpaid_invs_rec.amount_due_remaining;
773: ELSE
773: ELSE
774: l_err_status := 'E';
775:
776:
777: FND_FILE.PUT_LINE (FND_FILE.LOG,'ERROR Crediting AR Invoice: '
778: ||unpaid_invs_rec.trx_number
779: ||' for: '||l_credit_amount);
780: EXIT;
781: END IF;
864: err_tbl(err_idx).amount := lx_taiv_rec.amount;
865:
866:
867: IF (x_return_status = 'S' ) THEN
868: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Billing Transactions Created.');
869: ELSE
870: l_err_status := 'E';
871: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Billing Transactions.');
872: END IF;
867: IF (x_return_status = 'S' ) THEN
868: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Billing Transactions Created.');
869: ELSE
870: l_err_status := 'E';
871: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Billing Transactions.');
872: END IF;
873:
874:
875:
889: -- as error
890: -----------------------------------------
891: FOR i in err_tbl.FIRST..err_tbl.LAST LOOP
892: IF err_tbl(i).trx_number IS NOT NULL THEN
893: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credited Invoice '
894: ||err_tbl(i).trx_number
895: ||' for amount '
896: ||err_tbl(i).amount);
897: ELSE
894: ||err_tbl(i).trx_number
895: ||' for amount '
896: ||err_tbl(i).amount);
897: ELSE
898: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credit for amount '
899: ||err_tbl(i).amount);
900: END IF;
901:
902:
913:
914: --UPDATE okl_trx_ar_invoices_b
915: --SET trx_status_code = 'ERROR'
916: --WHERE id = x_taiv_rec.id;
917: --FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Accounting Distributions.');
918: ELSE
919: IF l_err_status = 'E' THEN
920: -----------------------------------------
921: -- Flag all TAI records for this bill adj
922: -- as error
923: -----------------------------------------
924: FOR i in err_tbl.FIRST..err_tbl.LAST LOOP
925: IF err_tbl(i).trx_number IS NOT NULL THEN
926: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credited Invoice '
927: ||err_tbl(i).trx_number
928: ||' for amount '
929: ||err_tbl(i).amount);
930: ELSE
927: ||err_tbl(i).trx_number
928: ||' for amount '
929: ||err_tbl(i).amount);
930: ELSE
931: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credit for amount '
932: ||err_tbl(i).amount);
933: END IF;
934:
935:
970: ------------------------------------------------------------
971:
972:
973: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
974: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
975: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
976: p_api_name => l_api_name,
977: p_pkg_name => G_PKG_NAME,
978: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
981: p_api_type => '_PVT');
982:
983:
984: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
985: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
986: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
987: p_api_name => l_api_name,
988: p_pkg_name => G_PKG_NAME,
989: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
992: p_api_type => '_PVT');
993:
994:
995: WHEN OTHERS THEN
996: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
997: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
998: p_api_name => l_api_name,
999: p_pkg_name => G_PKG_NAME,
1000: p_exc_name => 'OTHERS',
1241: --------------------------------------------------------
1242: -- Process Lines with Adjustment amounts
1243: --------------------------------------------------------
1244: FOR adj_streams_rec IN adj_streams_csr( rbk_ctrct_rec.id ) LOOP
1245: FND_FILE.PUT_LINE (FND_FILE.LOG,'Adjustment Amount: '
1246: ||adj_streams_rec.amount
1247: ||' for Contract: '
1248: ||adj_streams_rec.contract_number);
1249:
1327: => lx_tldv_tbl);
1328:
1329:
1330: IF (x_return_status = 'S' ) THEN
1331: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
1332: ELSE
1333: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1334: END IF;
1335:
1329:
1330: IF (x_return_status = 'S' ) THEN
1331: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
1332: ELSE
1333: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1334: END IF;
1335:
1336:
1337: IF (x_return_status <> 'S' ) THEN
1337: IF (x_return_status <> 'S' ) THEN
1338: UPDATE okl_trx_ar_invoices_b
1339: SET trx_status_code = 'ERROR'
1340: WHERE id = lx_taiv_rec.id;
1341: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1342: ELSE
1343: UPDATE okl_strm_elements
1344: SET date_billed = SYSDATE
1345: WHERE id = adj_streams_rec.sel_id;
1429: => lx_tldv_tbl);
1430:
1431:
1432: IF (x_return_status = 'S' ) THEN
1433: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created');
1434: ELSE
1435: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1436: END IF;
1437:
1431:
1432: IF (x_return_status = 'S' ) THEN
1433: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created');
1434: ELSE
1435: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1436: END IF;
1437:
1438:
1439: IF (x_return_status <> 'S' ) THEN
1439: IF (x_return_status <> 'S' ) THEN
1440: UPDATE okl_trx_ar_invoices_b
1441: SET trx_status_code = 'ERROR'
1442: WHERE id = lx_taiv_rec.id;
1443: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
1444: ELSE
1445: UPDATE okl_strm_elements
1446: SET date_billed = SYSDATE
1447: WHERE id = adj_streams_rec.sel_id;
1472: ------------------------------------------------------------
1473:
1474:
1475: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1476: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
1477: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1478: p_api_name => l_api_name,
1479: p_pkg_name => G_PKG_NAME,
1480: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
1483: p_api_type => '_PVT');
1484:
1485:
1486: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1487: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
1488: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1489: p_api_name => l_api_name,
1490: p_pkg_name => G_PKG_NAME,
1491: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1494: p_api_type => '_PVT');
1495:
1496:
1497: WHEN OTHERS THEN
1498: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
1499: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1500: p_api_name => l_api_name,
1501: p_pkg_name => G_PKG_NAME,
1502: p_exc_name => 'OTHERS',
1576: FETCH req_id_csr INTO l_request_id;
1577: CLOSE req_id_csr;
1578:
1579:
1580: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1581: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Contract Number = ' ||p_contract_number);
1582: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1583:
1584:
1577: CLOSE req_id_csr;
1578:
1579:
1580: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1581: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Contract Number = ' ||p_contract_number);
1582: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1583:
1584:
1585: IF fnd_profile.value('OKL_APPLY_CM') IS NULL THEN
1578:
1579:
1580: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1581: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Contract Number = ' ||p_contract_number);
1582: FND_FILE.PUT_LINE (FND_FILE.LOG, '** * **');
1583:
1584:
1585: IF fnd_profile.value('OKL_APPLY_CM') IS NULL THEN
1586: -- On Account Credit Memo For Manual application
1585: IF fnd_profile.value('OKL_APPLY_CM') IS NULL THEN
1586: -- On Account Credit Memo For Manual application
1587:
1588:
1589: FND_FILE.PUT_LINE (FND_FILE.LOG,
1590: '******************************************');
1591: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
1592: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
1587:
1588:
1589: FND_FILE.PUT_LINE (FND_FILE.LOG,
1590: '******************************************');
1591: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
1592: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
1594: FND_FILE.PUT_LINE (FND_FILE.LOG,
1595: '******************************************');
1588:
1589: FND_FILE.PUT_LINE (FND_FILE.LOG,
1590: '******************************************');
1591: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
1592: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
1594: FND_FILE.PUT_LINE (FND_FILE.LOG,
1595: '******************************************');
1596:
1589: FND_FILE.PUT_LINE (FND_FILE.LOG,
1590: '******************************************');
1591: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
1592: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
1594: FND_FILE.PUT_LINE (FND_FILE.LOG,
1595: '******************************************');
1596:
1597:
1590: '******************************************');
1591: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
1592: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
1594: FND_FILE.PUT_LINE (FND_FILE.LOG,
1595: '******************************************');
1596:
1597:
1598: ON_ACCT_Bill_adjustments (
1606:
1607:
1608: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'SEEDED') THEN
1609: -- Development Logic
1610: FND_FILE.PUT_LINE (FND_FILE.LOG,
1611: '******************************************');
1612: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
1613: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
1614: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
1608: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'SEEDED') THEN
1609: -- Development Logic
1610: FND_FILE.PUT_LINE (FND_FILE.LOG,
1611: '******************************************');
1612: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
1613: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
1614: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
1615: FND_FILE.PUT_LINE (FND_FILE.LOG,
1616: '******************************************');
1609: -- Development Logic
1610: FND_FILE.PUT_LINE (FND_FILE.LOG,
1611: '******************************************');
1612: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
1613: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
1614: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
1615: FND_FILE.PUT_LINE (FND_FILE.LOG,
1616: '******************************************');
1617:
1610: FND_FILE.PUT_LINE (FND_FILE.LOG,
1611: '******************************************');
1612: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
1613: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
1614: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
1615: FND_FILE.PUT_LINE (FND_FILE.LOG,
1616: '******************************************');
1617:
1618:
1611: '******************************************');
1612: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
1613: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
1614: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
1615: FND_FILE.PUT_LINE (FND_FILE.LOG,
1616: '******************************************');
1617:
1618:
1619: CM_Bill_adjustments (
1629: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'CUSTOM') THEN
1630:
1631:
1632: -- Custom Logic
1633: FND_FILE.PUT_LINE (FND_FILE.LOG,
1634: '******************************************');
1635: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
1636: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
1637: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
1631:
1632: -- Custom Logic
1633: FND_FILE.PUT_LINE (FND_FILE.LOG,
1634: '******************************************');
1635: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
1636: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
1637: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
1638: FND_FILE.PUT_LINE (FND_FILE.LOG,
1639: '******************************************');
1632: -- Custom Logic
1633: FND_FILE.PUT_LINE (FND_FILE.LOG,
1634: '******************************************');
1635: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
1636: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
1637: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
1638: FND_FILE.PUT_LINE (FND_FILE.LOG,
1639: '******************************************');
1640:
1633: FND_FILE.PUT_LINE (FND_FILE.LOG,
1634: '******************************************');
1635: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
1636: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
1637: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
1638: FND_FILE.PUT_LINE (FND_FILE.LOG,
1639: '******************************************');
1640:
1641:
1634: '******************************************');
1635: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
1636: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
1637: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
1638: FND_FILE.PUT_LINE (FND_FILE.LOG,
1639: '******************************************');
1640:
1641:
1642: OKL_CUSTOM_PVT.CUSTOM_CM_Bill_adjustments (
1649: );
1650:
1651:
1652: ELSE
1653: FND_FILE.PUT_LINE (FND_FILE.LOG,
1654: '******************************************');
1655: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
1656: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
1657: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
1651:
1652: ELSE
1653: FND_FILE.PUT_LINE (FND_FILE.LOG,
1654: '******************************************');
1655: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
1656: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
1657: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
1658: FND_FILE.PUT_LINE (FND_FILE.LOG,
1659: '******************************************');
1652: ELSE
1653: FND_FILE.PUT_LINE (FND_FILE.LOG,
1654: '******************************************');
1655: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
1656: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
1657: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
1658: FND_FILE.PUT_LINE (FND_FILE.LOG,
1659: '******************************************');
1660: END IF;
1653: FND_FILE.PUT_LINE (FND_FILE.LOG,
1654: '******************************************');
1655: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
1656: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
1657: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
1658: FND_FILE.PUT_LINE (FND_FILE.LOG,
1659: '******************************************');
1660: END IF;
1661:
1654: '******************************************');
1655: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
1656: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
1657: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
1658: FND_FILE.PUT_LINE (FND_FILE.LOG,
1659: '******************************************');
1660: END IF;
1661:
1662:
1671: FETCH txd_cnt_err_csr INTO l_err_cnt;
1672: CLOSE txd_cnt_err_csr;
1673:
1674:
1675: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Automatic Adjustments for Rebooked Contracts');
1676: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1672: CLOSE txd_cnt_err_csr;
1673:
1674:
1675: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Automatic Adjustments for Rebooked Contracts');
1676: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1673:
1674:
1675: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Automatic Adjustments for Rebooked Contracts');
1676: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1681: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Contract Number = '
1674:
1675: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Automatic Adjustments for Rebooked Contracts');
1676: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1681: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Contract Number = '
1682: ||p_contract_number);
1676: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1681: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Contract Number = '
1682: ||p_contract_number);
1683: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1684: '***********************************************');
1677: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date: '||SYSDATE||' Request Id: '||l_request_id);
1678: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1681: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Contract Number = '
1682: ||p_contract_number);
1683: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1684: '***********************************************');
1685:
1679: '***********************************************');
1680: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PARAMETERS');
1681: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Contract Number = '
1682: ||p_contract_number);
1683: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1684: '***********************************************');
1685:
1686:
1687: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_succ_cnt);
1683: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
1684: '***********************************************');
1685:
1686:
1687: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_succ_cnt);
1688: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_err_cnt);
1689: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Detailed Error Messages For Each Records and Columns from TAPI ');
1690:
1691:
1684: '***********************************************');
1685:
1686:
1687: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_succ_cnt);
1688: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_err_cnt);
1689: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Detailed Error Messages For Each Records and Columns from TAPI ');
1690:
1691:
1692: IF lx_msg_count > 0 THEN
1685:
1686:
1687: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Successful Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_succ_cnt);
1688: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Number of Errored Stream Lines in Okl_Txd_Ar_Ln_Dtls_b = '||l_err_cnt);
1689: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Detailed Error Messages For Each Records and Columns from TAPI ');
1690:
1691:
1692: IF lx_msg_count > 0 THEN
1693: FOR i IN 1..lx_msg_count LOOP
1696: p_data => lx_msg_data,
1697: p_msg_index_out => l_msg_index_out);
1698:
1699:
1700: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,TO_CHAR(i) || ': ' ||
1701: lx_msg_data);
1702: END LOOP;
1703: END IF;
1704: EXCEPTION
2178:
2179:
2180:
2181: IF (x_return_status = 'S' ) THEN
2182: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Accounting Distributions Created.');
2183: ELSE
2184: l_err_status := 'E';
2185: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Accounting Distributions.');
2186: END IF;
2181: IF (x_return_status = 'S' ) THEN
2182: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Accounting Distributions Created.');
2183: ELSE
2184: l_err_status := 'E';
2185: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Accounting Distributions.');
2186: END IF;
2187:
2188:
2189: IF (x_return_status <> 'S' ) THEN
2189: IF (x_return_status <> 'S' ) THEN
2190: UPDATE okl_trx_ar_invoices_b
2191: SET trx_status_code = 'ERROR'
2192: WHERE id = lx_taiv_rec.id;
2193: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Accounting Distributions.');
2194: ELSE
2195: ----------------------------------------------
2196: -- Check if there was ever an error and update
2197: -- accordingly
2201: -- Flag all TAI records for this bill adj
2202: -- as error
2203: -----------------------------------------
2204: FOR j in err_tbl.FIRST..err_tbl.LAST LOOP
2205: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Invoice for '||err_tbl(j).amount);
2206:
2207:
2208: UPDATE okl_trx_ar_invoices_b
2209: SET trx_status_code = 'ERROR'
2292: err_tbl(err_idx).amount := l_credit_amount;
2293:
2294:
2295: IF l_return_status = 'S' THEN
2296: FND_FILE.PUT_LINE (FND_FILE.LOG,'Credited AR Invoice: '
2297: ||unpaid_invs_rec.trx_number
2298: ||' for: '||l_credit_amount);
2299: l_bill_ajst_amt := l_bill_ajst_amt +
2300: unpaid_invs_rec.amount_due_remaining;
2301: ELSE
2302: l_err_status := 'E';
2303:
2304:
2305: FND_FILE.PUT_LINE (FND_FILE.LOG,'ERROR Crediting AR Invoice: '
2306: ||unpaid_invs_rec.trx_number
2307: ||' for: '||l_credit_amount);
2308: EXIT;
2309: END IF;
2398: err_tbl(err_idx).amount := i_taiv_rec.amount;
2399:
2400:
2401: IF (x_return_status = 'S' ) THEN
2402: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Accounting Distributions Created.');
2403: ELSE
2404: l_err_status := 'E';
2405: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Accounting Distributions.');
2406: END IF;
2401: IF (x_return_status = 'S' ) THEN
2402: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Accounting Distributions Created.');
2403: ELSE
2404: l_err_status := 'E';
2405: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Accounting Distributions.');
2406: END IF;
2407:
2408:
2409: END IF; -- More Credit remaining than needed
2421: -- as error
2422: -----------------------------------------
2423: FOR j in err_tbl.FIRST..err_tbl.LAST LOOP
2424: IF err_tbl(j).trx_number IS NOT NULL THEN
2425: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credited Invoice '
2426: ||err_tbl(j).trx_number
2427: ||' for amount '
2428: ||err_tbl(j).amount);
2429: ELSE
2426: ||err_tbl(j).trx_number
2427: ||' for amount '
2428: ||err_tbl(j).amount);
2429: ELSE
2430: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credit for amount '
2431: ||err_tbl(j).amount);
2432: END IF;
2433:
2434:
2441:
2442: --UPDATE okl_trx_ar_invoices_b
2443: --SET trx_status_code = 'ERROR'
2444: --WHERE id = x_taiv_rec.id;
2445: --FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Accounting Distributions.');
2446: ELSE
2447: IF l_err_status = 'E' THEN
2448: -----------------------------------------
2449: -- Flag all TAI records for this bill adj
2450: -- as error
2451: -----------------------------------------
2452: FOR j in err_tbl.FIRST..err_tbl.LAST LOOP
2453: IF err_tbl(j).trx_number IS NOT NULL THEN
2454: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credited Invoice '
2455: ||err_tbl(j).trx_number
2456: ||' for amount '
2457: ||err_tbl(j).amount);
2458: ELSE
2455: ||err_tbl(j).trx_number
2456: ||' for amount '
2457: ||err_tbl(j).amount);
2458: ELSE
2459: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Reversing Credit for amount '
2460: ||err_tbl(j).amount);
2461: END IF;
2462:
2463:
2503: ------------------------------------------------------------
2504:
2505:
2506: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2507: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
2508: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2509: p_api_name => l_api_name,
2510: p_pkg_name => G_PKG_NAME,
2511: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
2514: p_api_type => '_PVT');
2515:
2516:
2517: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2518: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
2519: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2520: p_api_name => l_api_name,
2521: p_pkg_name => G_PKG_NAME,
2522: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2525: p_api_type => '_PVT');
2526:
2527:
2528: WHEN OTHERS THEN
2529: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
2530: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2531: p_api_name => l_api_name,
2532: p_pkg_name => G_PKG_NAME,
2533: p_exc_name => 'OTHERS',
2663:
2664:
2665:
2666:
2667: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Count'||p_rebook_adj_tbl.COUNT);
2668: ------------------------------------------------------------
2669: -- Process Adjustments
2670: ------------------------------------------------------------
2671: IF (p_rebook_adj_tbl.COUNT > 0) THEN
2757: => lx_tldv_tbl);
2758:
2759:
2760: IF (x_return_status = 'S' ) THEN
2761: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
2762: ELSE
2763: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
2764: END IF;
2765:
2759:
2760: IF (x_return_status = 'S' ) THEN
2761: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Billing Transactions Created.');
2762: ELSE
2763: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
2764: END IF;
2765:
2766:
2767: IF (x_return_status <> 'S' ) THEN
2767: IF (x_return_status <> 'S' ) THEN
2768: UPDATE okl_trx_ar_invoices_b
2769: SET trx_status_code = 'ERROR'
2770: WHERE id = lx_taiv_rec.id;
2771: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions.');
2772: END IF;
2773:
2774:
2775: ELSE -- (create On-account credit memo)
2858:
2859:
2860:
2861: IF (x_return_status = 'S' ) THEN
2862: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Billing Transactions Created.');
2863: ELSE
2864: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Billing Transactions.');
2865: END IF;
2866:
2860:
2861: IF (x_return_status = 'S' ) THEN
2862: FND_FILE.PUT_LINE (FND_FILE.LOG, 'On Account Billing Transactions Created.');
2863: ELSE
2864: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating On Account Billing Transactions.');
2865: END IF;
2866:
2867:
2868: IF (x_return_status <> 'S' ) THEN
2868: IF (x_return_status <> 'S' ) THEN
2869: UPDATE okl_trx_ar_invoices_b
2870: SET trx_status_code = 'ERROR'
2871: WHERE id = lx_taiv_rec.id;
2872: FND_FILE.PUT_LINE (FND_FILE.LOG, 'ERROR Creating Billing Transactions');
2873: END IF;
2874:
2875:
2876: END IF;
2901: ------------------------------------------------------------
2902:
2903:
2904: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2905: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
2906: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2907: p_api_name => l_api_name,
2908: p_pkg_name => G_PKG_NAME,
2909: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
2912: p_api_type => '_PVT');
2913:
2914:
2915: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2916: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
2917: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2918: p_api_name => l_api_name,
2919: p_pkg_name => G_PKG_NAME,
2920: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2923: p_api_type => '_PVT');
2924:
2925:
2926: WHEN OTHERS THEN
2927: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
2928: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
2929: p_api_name => l_api_name,
2930: p_pkg_name => G_PKG_NAME,
2931: p_exc_name => 'OTHERS',
2999: IF fnd_profile.value('OKL_APPLY_CM') IS NULL THEN
3000: -- On Account Credit Memo For Manual application
3001:
3002:
3003: FND_FILE.PUT_LINE (FND_FILE.LOG,
3004: '******************************************');
3005: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
3006: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
3007: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
3001:
3002:
3003: FND_FILE.PUT_LINE (FND_FILE.LOG,
3004: '******************************************');
3005: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
3006: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
3007: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
3008: FND_FILE.PUT_LINE (FND_FILE.LOG,
3009: '******************************************');
3002:
3003: FND_FILE.PUT_LINE (FND_FILE.LOG,
3004: '******************************************');
3005: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
3006: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
3007: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
3008: FND_FILE.PUT_LINE (FND_FILE.LOG,
3009: '******************************************');
3010:
3003: FND_FILE.PUT_LINE (FND_FILE.LOG,
3004: '******************************************');
3005: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
3006: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
3007: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
3008: FND_FILE.PUT_LINE (FND_FILE.LOG,
3009: '******************************************');
3010:
3011:
3004: '******************************************');
3005: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: NULL');
3006: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice Credit Memo.');
3007: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.ON_ACCT_Bill_adjustments');
3008: FND_FILE.PUT_LINE (FND_FILE.LOG,
3009: '******************************************');
3010:
3011:
3012: ON_ACCT_Bill_adjustments (
3020:
3021:
3022: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'SEEDED') THEN
3023: -- Development Logic
3024: FND_FILE.PUT_LINE (FND_FILE.LOG,
3025: '******************************************');
3026: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
3027: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
3028: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
3022: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'SEEDED') THEN
3023: -- Development Logic
3024: FND_FILE.PUT_LINE (FND_FILE.LOG,
3025: '******************************************');
3026: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
3027: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
3028: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
3029: FND_FILE.PUT_LINE (FND_FILE.LOG,
3030: '******************************************');
3023: -- Development Logic
3024: FND_FILE.PUT_LINE (FND_FILE.LOG,
3025: '******************************************');
3026: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
3027: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
3028: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
3029: FND_FILE.PUT_LINE (FND_FILE.LOG,
3030: '******************************************');
3031:
3024: FND_FILE.PUT_LINE (FND_FILE.LOG,
3025: '******************************************');
3026: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
3027: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
3028: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
3029: FND_FILE.PUT_LINE (FND_FILE.LOG,
3030: '******************************************');
3031:
3032:
3025: '******************************************');
3026: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: SEEDED');
3027: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create On-Invoice and On-Acct Credit Memo.');
3028: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CM_Bill_adjustments');
3029: FND_FILE.PUT_LINE (FND_FILE.LOG,
3030: '******************************************');
3031:
3032:
3033: CM_Bill_adjustments (
3044: ELSIF (fnd_profile.value('OKL_APPLY_CM') = 'CUSTOM') THEN
3045:
3046:
3047: -- Custom Logic
3048: FND_FILE.PUT_LINE (FND_FILE.LOG,
3049: '******************************************');
3050: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
3051: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
3052: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
3046:
3047: -- Custom Logic
3048: FND_FILE.PUT_LINE (FND_FILE.LOG,
3049: '******************************************');
3050: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
3051: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
3052: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
3053: FND_FILE.PUT_LINE (FND_FILE.LOG,
3054: '******************************************');
3047: -- Custom Logic
3048: FND_FILE.PUT_LINE (FND_FILE.LOG,
3049: '******************************************');
3050: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
3051: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
3052: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
3053: FND_FILE.PUT_LINE (FND_FILE.LOG,
3054: '******************************************');
3055:
3048: FND_FILE.PUT_LINE (FND_FILE.LOG,
3049: '******************************************');
3050: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
3051: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
3052: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
3053: FND_FILE.PUT_LINE (FND_FILE.LOG,
3054: '******************************************');
3055:
3056:
3049: '******************************************');
3050: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: CUSTOM');
3051: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Create Credit Memo using CUSTOM Logic.');
3052: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Invoking OKL_REBOOK_CM_PVT.CUSTOM_CM_Bill_adjustments');
3053: FND_FILE.PUT_LINE (FND_FILE.LOG,
3054: '******************************************');
3055:
3056:
3057: OKL_CUSTOM_PVT.CUSTOM_CM_Bill_adjustments (
3064: );
3065:
3066:
3067: ELSE
3068: FND_FILE.PUT_LINE (FND_FILE.LOG,
3069: '******************************************');
3070: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
3072: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
3066:
3067: ELSE
3068: FND_FILE.PUT_LINE (FND_FILE.LOG,
3069: '******************************************');
3070: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
3072: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
3073: FND_FILE.PUT_LINE (FND_FILE.LOG,
3074: '******************************************');
3067: ELSE
3068: FND_FILE.PUT_LINE (FND_FILE.LOG,
3069: '******************************************');
3070: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
3072: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
3073: FND_FILE.PUT_LINE (FND_FILE.LOG,
3074: '******************************************');
3075: END IF;
3068: FND_FILE.PUT_LINE (FND_FILE.LOG,
3069: '******************************************');
3070: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
3072: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
3073: FND_FILE.PUT_LINE (FND_FILE.LOG,
3074: '******************************************');
3075: END IF;
3076:
3069: '******************************************');
3070: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Profile OKL:Apply Billing Adjustment: '||fnd_profile.value('OKL_APPLY_CM'));
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Acceptable Values are: NULL, SEEDED OR CUSTOM.');
3072: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Exiting Procedure ..');
3073: FND_FILE.PUT_LINE (FND_FILE.LOG,
3074: '******************************************');
3075: END IF;
3076:
3077:
3098: ------------------------------------------------------------
3099:
3100:
3101: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3102: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
3103: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3104: p_api_name => l_api_name,
3105: p_pkg_name => G_PKG_NAME,
3106: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
3109: p_api_type => '_PVT');
3110:
3111:
3112: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3113: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXP) => '||SQLERRM);
3114: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3115: p_api_name => l_api_name,
3116: p_pkg_name => G_PKG_NAME,
3117: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
3120: p_api_type => '_PVT');
3121:
3122:
3123: WHEN OTHERS THEN
3124: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (OTHERS) => '||SQLERRM);
3125: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
3126: p_api_name => l_api_name,
3127: p_pkg_name => G_PKG_NAME,
3128: p_exc_name => 'OTHERS',