4: /*=======================================================================+
5: | Package Global Constants
6: +=======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ARI_UTILITIES';
8: PG_DEBUG VARCHAR2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
9:
10: G_PRV_ADDRESS_ID HZ_CUST_ACCT_SITES.CUST_ACCT_SITE_ID%TYPE := 0;
11: G_BILL_TO_SITE_USE_ID HZ_CUST_SITE_USES.SITE_USE_ID%TYPE := 0;
12: G_PRV_SITE_USES VARCHAR2(2000);
596: l_default_org_id NUMBER(15,0);
597: l_profile_default_currrency VARCHAR2(15);
598: l_currency_exist NUMBER(4);
599: BEGIN
600: l_profile_default_currrency := FND_PROFILE.value('OIR_DEFAULT_CURRENCY_CODE');
601:
602: IF(p_customer_id IS NULL) THEN
603:
604: select count(*) into l_currency_exist from dual where l_profile_default_currrency in
1243: else
1244: return false;
1245: end if;
1246: end if;
1247: ELSIF (nvl(FND_PROFILE.VALUE('OIR_SAVE_PAYMENT_INSTR_INFO'),'N') = 'N') THEN
1248: RETURN FALSE;
1249: ELSE
1250: RETURN TRUE;
1251: END IF;
1295:
1296: IF(l_attr IS NOT NULL) THEN
1297: RETURN l_attr;
1298: ELSE
1299: RETURN (NVL(FND_PROFILE.VALUE('OIR_AGING_BUCKETS'),'0'));
1300: END IF;
1301: ELSE
1302: RETURN (NVL(FND_PROFILE.VALUE('OIR_AGING_BUCKETS'),'0'));
1303: END IF;
1298: ELSE
1299: RETURN (NVL(FND_PROFILE.VALUE('OIR_AGING_BUCKETS'),'0'));
1300: END IF;
1301: ELSE
1302: RETURN (NVL(FND_PROFILE.VALUE('OIR_AGING_BUCKETS'),'0'));
1303: END IF;
1304: EXCEPTION
1305: WHEN OTHERS THEN
1306: RETURN '0';
1326: l_attr := FUN_RULE_PUB.get_string;
1327: IF(l_attr IS NOT NULL) THEN
1328: RETURN l_attr;
1329: ELSE
1330: RETURN (NVL(FND_PROFILE.VALUE('OIR_BPA_MULTI_PRINT_LIMIT'),'0'));
1331: END IF;
1332: ELSE
1333: RETURN (NVL(FND_PROFILE.VALUE('OIR_BPA_MULTI_PRINT_LIMIT'),'0'));
1334: END IF;
1329: ELSE
1330: RETURN (NVL(FND_PROFILE.VALUE('OIR_BPA_MULTI_PRINT_LIMIT'),'0'));
1331: END IF;
1332: ELSE
1333: RETURN (NVL(FND_PROFILE.VALUE('OIR_BPA_MULTI_PRINT_LIMIT'),'0'));
1334: END IF;
1335:
1336: EXCEPTION
1337: WHEN OTHERS THEN
1358: l_attr := FUN_RULE_PUB.get_string;
1359: IF(l_attr IS NOT NULL) THEN
1360: RETURN l_attr;
1361: ELSE
1362: RETURN (NVL(FND_PROFILE.VALUE('OIR_ENABLE_DISCOUNT_GRACE_DAYS'),'N'));
1363: END IF;
1364: ELSE
1365: RETURN (NVL(FND_PROFILE.VALUE('OIR_ENABLE_DISCOUNT_GRACE_DAYS'),'N'));
1366: END IF;
1361: ELSE
1362: RETURN (NVL(FND_PROFILE.VALUE('OIR_ENABLE_DISCOUNT_GRACE_DAYS'),'N'));
1363: END IF;
1364: ELSE
1365: RETURN (NVL(FND_PROFILE.VALUE('OIR_ENABLE_DISCOUNT_GRACE_DAYS'),'N'));
1366: END IF;
1367:
1368: EXCEPTION
1369: WHEN OTHERS THEN
1397: return false;
1398: end if;
1399: end if;
1400:
1401: ELSIF (nvl(FND_PROFILE.VALUE('OIR_ENABLE_SERVICE_CHARGE'),'N') = 'Y') THEN
1402: RETURN TRUE;
1403: ELSE
1404: RETURN FALSE;
1405: END IF;
1417: IS
1418: BEGIN
1419: -- This can be configured to return the appropriate value based on
1420: -- whether grace days have to be picked up for discounts.
1421: IF (nvl(FND_PROFILE.VALUE('OIR_ENABLE_DISCOUNT_GRACE_DAYS'),'N') = 'Y') THEN
1422: RETURN TRUE;
1423: ELSE
1424: RETURN FALSE;
1425: END IF;
1487: current_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID ;
1488: --Bug 12719843 - In Customer Search Page, since the Org Id set is -1 always, get the MO:Default Operating Unit
1489: --value in the page and apply the rule against the Default OU.
1490: if('ARI_CUSTOMER_SEARCH' = p_page) then
1491: l_org_id := fnd_profile.value('DEFAULT_ORG_ID');
1492: if(l_org_id is not null AND l_org_id <> '-1') then
1493: current_org_id := l_org_id;
1494: end if;
1495: end if;
1557: end if;
1558:
1559: END IF;
1560:
1561: RETURN TRUNC(SYSDATE + NVL(FND_PROFILE.VALUE('OIR_MAX_FUTURE_PAYMENT_DAYS_ALLOWED'),365));
1562:
1563: EXCEPTION
1564: WHEN OTHERS THEN
1565: RETURN TRUNC(SYSDATE + 365);
1728: WHERE routing_number = p_routing_number;
1729:
1730: bank_branch_rec bank_branch_cur%ROWTYPE;
1731: bank_directory_rec bank_directory_cur%ROWTYPE;
1732: l_routing_number_validation fnd_profile_option_values.profile_option_value%TYPE;
1733: l_result NUMBER;
1734: l_procedure_name VARCHAR2(30);
1735:
1736: BEGIN
1745: /*--------------------------------------------------------------------+
1746: | Validate that the routing number cheksum is correct |
1747: | bug # 9283134 - canadian transit numbers are not accepted in irec |
1748: +--------------------------------------------------------------------*/
1749: l_routing_number_validation := FND_PROFILE.value('OIR_SKIP_ROUT_NUM_VALID');
1750: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1751: fnd_log.string(fnd_log.LEVEL_STATEMENT,'.validate_ACH_routing_number',
1752: ' OIR: Skip Routing Number Validation :: '||l_routing_number_validation);
1753: end if;
1776: ELSE
1777: CLOSE bank_branch_cur;
1778: END IF;
1779:
1780: l_routing_number_validation := NVL(FND_PROFILE.value('AR_BANK_DIRECTORY_SOURCE'),'NONE');
1781:
1782: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1783: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'profile AR_BANK_DIRECTORY_SOURCE value :: '||l_routing_number_validation);
1784: end if;
2811: new_dispute_date DATE;
2812: new_dispute_amt NUMBER;
2813: remove_from_dispute_amt NUMBER;
2814: i NUMBER;
2815: l_default_note_type varchar2(240) := FND_PROFILE.VALUE('AST_NOTES_DEFAULT_TYPE');
2816: l_jtf_note_contexts_table jtf_notes_pub.jtf_note_contexts_tbl_type;
2817: l_context_tab CONTEXTS_TBL_TYPE;
2818: l_return_status VARCHAR2(1);
2819: l_msg_count NUMBER;
2989: arp_standard.debug('In get_link_filter p_txn_no:'||p_txn_no||'p_txn_type:'||
2990: p_txn_type||'p_cust_trx_id:'||to_char(p_cust_trx_id)||
2991: 'p_payment_schedule_id:'||to_char(p_payment_schedule_id));
2992: END IF;
2993: l_profile_limit_days := FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER');
2994: l_print_profile := FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX');
2995:
2996:
2997: IF (PG_DEBUG = 'Y') THEN
2990: p_txn_type||'p_cust_trx_id:'||to_char(p_cust_trx_id)||
2991: 'p_payment_schedule_id:'||to_char(p_payment_schedule_id));
2992: END IF;
2993: l_profile_limit_days := FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER');
2994: l_print_profile := FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX');
2995:
2996:
2997: IF (PG_DEBUG = 'Y') THEN
2998: arp_standard.debug('In get_link_filter l_print_flag:'||
3073: ArPaymentSchedules.class = 'DM' OR ArPaymentSchedules.class = 'DEP' )
3074: AND( ArPaymentSchedules.invoice_currency_code = p_currency_code ) AND
3075: (RaCmRequests.status IN ('PENDING_APPROVAL','APPROVED_PEND_COMP'))
3076: AND ArPaymentSchedules.customer_trx_id = ct.customer_trx_id
3077: AND(TRUNC(ArPaymentSchedules.trx_date)) >= trunc(decode( nvl(FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'), 0), 0, ArPaymentSchedules.trx_date, (sysdate-FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'))))
3078: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3079: else
3080: SELECT /*+ LEADING(RaCmRequests)*/ nvl(sum ( total_amount ), 0) into pending_cmreq_amt
3081: FROM RA_CM_REQUESTS RaCmRequests, AR_PAYMENT_SCHEDULES ArPaymentSchedules, ar_irec_user_acct_sites_all AcctSites, ra_customer_trx ct
3074: AND( ArPaymentSchedules.invoice_currency_code = p_currency_code ) AND
3075: (RaCmRequests.status IN ('PENDING_APPROVAL','APPROVED_PEND_COMP'))
3076: AND ArPaymentSchedules.customer_trx_id = ct.customer_trx_id
3077: AND(TRUNC(ArPaymentSchedules.trx_date)) >= trunc(decode( nvl(FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'), 0), 0, ArPaymentSchedules.trx_date, (sysdate-FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'))))
3078: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3079: else
3080: SELECT /*+ LEADING(RaCmRequests)*/ nvl(sum ( total_amount ), 0) into pending_cmreq_amt
3081: FROM RA_CM_REQUESTS RaCmRequests, AR_PAYMENT_SCHEDULES ArPaymentSchedules, ar_irec_user_acct_sites_all AcctSites, ra_customer_trx ct
3082: WHERE (RaCmRequests.CUSTOMER_TRX_ID = ArPaymentSchedules.CUSTOMER_TRX_ID) AND
3090: ArPaymentSchedules.class = 'DM' OR ArPaymentSchedules.class = 'DEP' )
3091: AND( ArPaymentSchedules.invoice_currency_code = p_currency_code ) AND
3092: (RaCmRequests.status IN ('PENDING_APPROVAL','APPROVED_PEND_COMP'))
3093: AND ArPaymentSchedules.customer_trx_id = ct.customer_trx_id
3094: AND(TRUNC(ArPaymentSchedules.trx_date)) >= trunc(decode( nvl(FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'), 0), 0, ArPaymentSchedules.trx_date, (sysdate-FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'))))
3095: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3096: end if;
3097:
3098: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3091: AND( ArPaymentSchedules.invoice_currency_code = p_currency_code ) AND
3092: (RaCmRequests.status IN ('PENDING_APPROVAL','APPROVED_PEND_COMP'))
3093: AND ArPaymentSchedules.customer_trx_id = ct.customer_trx_id
3094: AND(TRUNC(ArPaymentSchedules.trx_date)) >= trunc(decode( nvl(FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'), 0), 0, ArPaymentSchedules.trx_date, (sysdate-FND_PROFILE.VALUE('ARI_FILTER_TRXDATE_OLDER'))))
3095: AND ct.printing_option = decode(nvl(FND_PROFILE.VALUE('ARI_FILTER_DONOTPRINT_TRX'), 'NOT'), 'Y', 'PRI', ct.printing_option) ;
3096: end if;
3097:
3098: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3099: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name,'pending_cmreq_amt '||pending_cmreq_amt);