4: g_pkg_name CONSTANT VARCHAR2(30):='OZF_Claim_Accrual_PVT';
5:
6: G_SCAN_VALUE NUMBER := 0;
7: G_ENTERED_AMOUNT NUMBER :=0;
8: G_BULK_LIMIT NUMBER := NVL(FND_PROFILE.value('OZF_BULK_LIMIT_SIZE') , 20000);
9:
10: -- object_type
11: G_CLAIM_OBJECT_TYPE CONSTANT VARCHAR2(30) := 'CLAM';
12:
352: END IF;
353: END IF;
354:
355: --Set UNIVERSAL currency from profile.
356: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
357:
358: IF OZF_DEBUG_HIGH_ON THEN
359: OZF_Utility_PVT.debug_message('Currencies at Update_Fund_Utils API...');
360: OZF_Utility_PVT.debug_message('p_asso_amount = '||p_asso_amount);
986:
987:
988: BEGIN
989: --------------------- start -----------------------
990: l_org_id := FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
991:
992: l_funds_util_flt := p_funds_util_flt;
993:
994: -- get claim currency
1496: OPEN csr_function_currency;
1497: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
1498: CLOSE csr_function_currency;
1499:
1500: l_org_id := FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
1501:
1502: --------------------- start -----------------------
1503: l_funds_util_flt := p_funds_util_flt;
1504:
2364: END IF;
2365:
2366: --Set UNIVERSAL currency from profile.
2367: IF l_currency_rec.universal_currency_code IS NULL THEN
2368: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
2369: END IF;
2370: IF l_currency_rec.transaction_currency_code IS NULL THEN
2371: l_currency_rec.transaction_currency_code := l_currency_rec.claim_currency_code;
2372: END IF;
4894: CURSOR csr_uom_code(cv_item_id IN NUMBER) IS
4895: SELECT primary_uom_code
4896: FROM mtl_system_items
4897: WHERE inventory_item_id = cv_item_id
4898: AND organization_id = FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
4899:
4900: CURSOR csr_offer_perf(cv_list_header_id IN NUMBER) IS
4901: SELECT 1
4902: FROM ozf_offer_performances
4996: l_currency_rec.association_currency_code := l_currency_rec.functional_currency_code;
4997: END IF;
4998:
4999: --Set UNIVERSAL currency from profile.
5000: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
5001:
5002: IF OZF_DEBUG_HIGH_ON THEN
5003: OZF_Utility_PVT.debug_message('l_currency_rec.universal_currency_code :' || l_currency_rec.universal_currency_code);
5004: OZF_Utility_PVT.debug_message('l_currency_rec.claim_currency_code :' || l_currency_rec.claim_currency_code);
5510: CURSOR csr_uom_code(cv_item_id IN NUMBER) IS
5511: SELECT primary_uom_code
5512: FROM mtl_system_items
5513: WHERE inventory_item_id = cv_item_id
5514: AND organization_id = FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
5515:
5516: CURSOR csr_offer_perf(cv_list_header_id IN NUMBER) IS
5517: SELECT 1
5518: FROM ozf_offer_performances
6254: CURSOR csr_uom_code(cv_item_id IN NUMBER) IS
6255: SELECT primary_uom_code
6256: FROM mtl_system_items
6257: WHERE inventory_item_id = cv_item_id
6258: AND organization_id = FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
6259:
6260: -- Fix for Bug 7632911
6261: -- Added the currency_code for Multi Currency - kpatro
6262: CURSOR csr_claim_info(cv_claim_id IN NUMBER) IS
6335: l_currency_rec.association_currency_code := l_currency_rec.functional_currency_code;
6336: END IF;
6337:
6338: --Set UNIVERSAL currency from profile.
6339: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
6340:
6341: IF OZF_DEBUG_HIGH_ON THEN
6342: OZF_Utility_PVT.debug_message('l_currency_rec.universal_currency_code :' || l_currency_rec.universal_currency_code);
6343: OZF_Utility_PVT.debug_message('l_currency_rec.claim_currency_code :' || l_currency_rec.claim_currency_code);
6965: FROM ozf_sys_parameters_all
6966: WHERE org_id = MO_GLOBAL.GET_CURRENT_ORG_ID;
6967:
6968: --POS Batch Processing by profiles by rsatyava (+)
6969: l_auto_claim_profile varchar2(1):= FND_PROFILE.value('OZF_AUTO_CLAIM_POS');
6970: --POS Batch Processing by profiles by rsatyava (+)
6971:
6972: BEGIN
6973: --------------------- initialize -----------------------
7454: FROM ozf_sys_parameters_all
7455: WHERE org_id = MO_GLOBAL.GET_CURRENT_ORG_ID;
7456:
7457: --POS Batch Processing by profiles by rsatyava (+)
7458: l_auto_claim_profile varchar2(1):= FND_PROFILE.value('OZF_AUTO_CLAIM_POS');
7459: --POS Batch Processing by profiles by rsatyava (+)
7460:
7461:
7462: BEGIN
7846:
7847: x_return_status := FND_API.g_ret_sts_success;
7848:
7849: ----------------- Process batch ----------------
7850: l_consolidate_flag := FND_PROFILE.VALUE('OZF_CONSOLIDATE_SHIP_DEBIT_CLAIM');
7851: IF NVL(l_consolidate_flag,'N') = 'N' THEN
7852: Create_Claim_Per_SPR(
7853: p_api_version => 1.0
7854: ,p_init_msg_list => FND_API.g_false
8060: RETURN;
8061:
8062: /*
8063: -- Adjustment workflow can be invoked only when profile is set
8064: IF NVL(fnd_profile.value('OZF_CLAIM_SCAN_ADJUST_WORKFLOW'),'N') <> 'Y' THEN
8065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8066: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
8067: FND_MSG_PUB.add;
8068: END IF;
9801: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
9802: CLOSE csr_function_currency;
9803:
9804: --Set UNIVERSAL currency from profile.
9805: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
9806: IF OZF_DEBUG_HIGH_ON THEN
9807: ozf_utility_pvt.debug_message('Year Name = '||l_funds_util_flt.year_name);
9808: ozf_utility_pvt.debug_message('Activity Type Passed from UI = '||l_funds_util_flt.activity_type);
9809: ozf_utility_pvt.debug_message('l_claim_status = '||l_claim_status);
10258: ------------------ Update Uitlization ------------------
10259:
10260:
10261: --Set UNIVERSAL currency from profile.
10262: l_currency_rec.universal_currency_code := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
10263:
10264: IF l_currency_rec.claim_currency_code = l_currency_rec.transaction_currency_code THEN
10265: l_currency_rec.association_currency_code := l_currency_rec.transaction_currency_code;
10266: --l_amount := p_line_util_rec.amount; --kdass
11524: RETURN FND_API.g_false;
11525: END IF;
11526:
11527: -- Approval is not required if override profile is Yes
11528: IF FND_PROFILE.VALUE('OZF_OFFR_OVERRIDE_PERF_FLAG') = 'Y' THEN
11529: RETURN FND_API.g_false;
11530: END IF;
11531:
11532: OPEN csr_line_util(p_claim_id);
11906: l_vendor_id NUMBER;
11907: l_vendor_site_id NUMBER;
11908:
11909: --Claim lines with/without grouping w.r.t. SDR/Product - Bugfix 7811671
11910: l_sd_claim_lines_grouping VARCHAR2(30) := NVL(FND_PROFILE.VALUE('OZF_SD_CLAIM_LINES_GROUPING'),'Y');
11911: l_batch_line_id NUMBER;
11912:
11913: l_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
11914: l_claim_rec OZF_CLAIM_PVT.claim_rec_type;
12161: WHERE supplier_site_id = cv_vendor_site_id
12162: AND org_id = cv_org_id;
12163:
12164: l_sup_neg_batch VARCHAR2(5);
12165: l_sd_claim_open_status VARCHAR2(30) := NVL(FND_PROFILE.VALUE('OZF_CRE_SSD_CLAIMS_OPEN_STATUS'),'N');
12166:
12167: BEGIN
12168: --------------------- initialize -----------------------
12169: SAVEPOINT Initiate_SD_Payment;
12636: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_sup_neg_batch = ' || l_sup_neg_batch);
12637: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_create_claim11 = ' || l_create_claim);
12638:
12639: IF (l_sup_neg_batch is null) THEN
12640: IF(nvl(fnd_profile.value('OZF_NEG_BATCH_CREATION'),'N') = 'Y') THEN
12641: l_create_claim := 'Y';
12642: -- Fix for Bug 10047209
12643: ELSE
12644: l_create_claim := 'N';