[Home] [Help]
139: l_utilized_amt NUMBER;
140: l_rollup_utilized_amt NUMBER;
141: l_use_fund_staging_tables VARCHAR2(1):= 'T';
142:
143: ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
144: l_budget_count NUMBER := 0;
145: ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
146: ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
147: l_partner_site_id NUMBER; --//Bugfix : 10265295
141: l_use_fund_staging_tables VARCHAR2(1):= 'T';
142:
143: ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
144: l_budget_count NUMBER := 0;
145: ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
146: ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
147: l_partner_site_id NUMBER; --//Bugfix : 10265295
148: l_org_id NUMBER;
149:
142:
143: ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
144: l_budget_count NUMBER := 0;
145: ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
146: ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
147: l_partner_site_id NUMBER; --//Bugfix : 10265295
148: l_org_id NUMBER;
149:
150: CURSOR batch_info_csr (p_id IN NUMBER) IS
342: END IF;
343:
344: -- Debug Message
345: IF OZF_DEBUG_HIGH_ON THEN
346: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
347: END IF;
348:
349: -- Initialize API return status to sucess
350: x_return_status := FND_API.G_RET_STS_SUCCESS;
366: -- Fix for bug # 12716192 : commented extra set context
367: -- MO_GLOBAL.set_policy_context( p_access_mode => 'S', p_org_id => l_org_id);
368:
369: IF OZF_DEBUG_LOW_ON THEN
370: OZF_UTILITY_PVT.debug_message('status ' ||l_batch_status);
371: OZF_UTILITY_PVT.debug_message('compare to ' ||OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT);
372: OZF_UTILITY_PVT.debug_message('Batch Type ' ||l_batch_type);
373: OZF_UTILITY_PVT.debug_message('Staging Tables ' ||l_use_fund_staging_tables);
374: END IF;
367: -- MO_GLOBAL.set_policy_context( p_access_mode => 'S', p_org_id => l_org_id);
368:
369: IF OZF_DEBUG_LOW_ON THEN
370: OZF_UTILITY_PVT.debug_message('status ' ||l_batch_status);
371: OZF_UTILITY_PVT.debug_message('compare to ' ||OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT);
372: OZF_UTILITY_PVT.debug_message('Batch Type ' ||l_batch_type);
373: OZF_UTILITY_PVT.debug_message('Staging Tables ' ||l_use_fund_staging_tables);
374: END IF;
375:
368:
369: IF OZF_DEBUG_LOW_ON THEN
370: OZF_UTILITY_PVT.debug_message('status ' ||l_batch_status);
371: OZF_UTILITY_PVT.debug_message('compare to ' ||OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT);
372: OZF_UTILITY_PVT.debug_message('Batch Type ' ||l_batch_type);
373: OZF_UTILITY_PVT.debug_message('Staging Tables ' ||l_use_fund_staging_tables);
374: END IF;
375:
376: -- --------------------------------------------------
369: IF OZF_DEBUG_LOW_ON THEN
370: OZF_UTILITY_PVT.debug_message('status ' ||l_batch_status);
371: OZF_UTILITY_PVT.debug_message('compare to ' ||OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT);
372: OZF_UTILITY_PVT.debug_message('Batch Type ' ||l_batch_type);
373: OZF_UTILITY_PVT.debug_message('Staging Tables ' ||l_use_fund_staging_tables);
374: END IF;
375:
376: -- --------------------------------------------------
377: -- Stop Initiate_Payment if
380: -- --------------------------------------------------
381:
382: IF l_batch_status <> OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT THEN
383: -- Only DISPUTED AND PROCESSED batch can be paid.
384: OZF_UTILITY_PVT.error_message('OZF_RESALE_WRONG_STAUS_TO_PAY');
385: RAISE FND_API.g_exc_error;
386: END IF;
387:
388: OPEN open_line_count_csr(p_resale_batch_id);
390: CLOSE open_line_count_csr;
391:
392: IF l_count IS NOT NULL AND l_count <> 0 THEN
393: --Can not pay if there is an OPEN line
394: OZF_UTILITY_PVT.error_message('OZF_RESALE_OPEN_LINE_EXIST');
395: RAISE FND_API.g_exc_error;
396: END IF;
397:
398:
400: -- Get the budget where accruals are posted
401: l_chargeback_fund_id := FND_PROFILE.value('OZF_CHARGEBACK_BUDGET');
402: --
403: IF l_chargeback_fund_id IS NULL THEN
404: --OZF_UTILITY_PVT.error_message('OZF_CHBK_BUDGET_NULL');
405:
406: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
407: p_id_value => p_resale_batch_id
408: ,p_id_type => OZF_RESALE_COMMON_PVT.G_ID_TYPE_BATCH
458: ozf_funds_old_rectype.ROLLUP_UTILIZED_AMT := l_rollup_utilized_amt;
459:
460: --
461: IF OZF_DEBUG_HIGH_ON THEN
462: OZF_UTILITY_PVT.debug_message('Chargeback Budget: ' || l_chargeback_fund_id);
463: END IF;
464:
465: -- Check whether there is a need to do inventory_verification
466: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
479: ,x_msg_count => l_msg_count
480: ,x_msg_data => l_msg_data
481: );
482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
483: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
484: RAISE FND_API.G_EXC_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
482: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
483: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
484: RAISE FND_API.G_EXC_ERROR;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: END IF;
489: END IF;
490:
625: FETCH sysparam_accrual_flag_csr INTO l_accrual_flag;
626: CLOSE sysparam_accrual_flag_csr;
627:
628: IF OZF_DEBUG_HIGH_ON THEN
629: OZF_UTILITY_PVT.debug_message('Create Accruals On Chargeback Claims: '|| l_accrual_flag);
630: END IF;
631: --Bug# 8632964 fixed by anuj and muthu (-)
632:
633: --i:=1;
645:
646: IF l_order_num_tbl.EXISTS(1) THEN -- IF B
647: FOR k in 1..l_order_num_tbl.LAST LOOP -- FOR C
648: IF OZF_DEBUG_LOW_ON THEN
649: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
650: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
651: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
652: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
653: END IF;
646: IF l_order_num_tbl.EXISTS(1) THEN -- IF B
647: FOR k in 1..l_order_num_tbl.LAST LOOP -- FOR C
648: IF OZF_DEBUG_LOW_ON THEN
649: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
650: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
651: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
652: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
653: END IF;
654:
647: FOR k in 1..l_order_num_tbl.LAST LOOP -- FOR C
648: IF OZF_DEBUG_LOW_ON THEN
649: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
650: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
651: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
652: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
653: END IF;
654:
655: -- [begin jxwu header_fix]:
648: IF OZF_DEBUG_LOW_ON THEN
649: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
650: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
651: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
652: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
653: END IF;
654:
655: -- [begin jxwu header_fix]:
656: -- Here, I assume if a line is the duplicate of another line, then they share
725: -- I then try to create resale data.
726: FOR j in 1..l_valid_line_id_tbl.last -- FOR E
727: LOOP
728: IF OZF_DEBUG_LOW_ON THEN
729: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
730: END IF;
731:
732: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
733: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
751: ,x_msg_data => l_msg_data
752: );
753: IF NOT l_inventory_level_valid THEN
754: IF OZF_DEBUG_LOW_ON THEN
755: OZF_UTILITY_PVT.debug_message('Did NOT pass inventory checking');
756: END IF;
757: -- Here turn thIS line to DISPUTED AND create a dISput code FOR it.
758: UPDATE ozf_resale_lines_int
759: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
801: END IF;
802: END IF;
803:
804: IF OZF_DEBUG_LOW_ON THEN
805: OZF_UTILITY_PVT.debug_message('header_id is '|| l_header_id);
806: END IF;
807:
808: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED THEN
809: IF (l_line_int_rec.duplicated_line_id IS NULL) OR
882: l_line_id := l_line_int_rec.duplicated_line_id;
883: END IF;
884:
885: IF OZF_DEBUG_LOW_ON THEN
886: OZF_UTILITY_PVT.debug_message('line_id is '|| l_line_id);
887: END IF;
888:
889: IF l_line_int_rec.status_code = 'PROCESSED' THEN
890: -- Create Resale Line Mappings only for Processed Lines
967: END IF;
968:
969: -- Call for the update of funds and budgets where the update happens in one shot.
970: IF ozf_funds_new_tbl.COUNT > 0 THEN
971: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_table_status, ozf_funds_new_tbl, 'CHARGEBACK');
972: IF x_return_status = FND_API.g_ret_sts_error THEN
973: RAISE FND_API.g_exc_error;
974: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
975: RAISE FND_API.g_exc_unexpected_error;
976: END IF;
977: END IF;
978:
979: IF ozf_act_budgets_tbl.COUNT > 0 THEN
980: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_table_status, ozf_act_budgets_tbl, 'CHARGEBACK');
981: IF x_return_status = FND_API.g_ret_sts_error THEN
982: RAISE FND_API.g_exc_error;
983: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
984: RAISE FND_API.g_exc_unexpected_error;
1020: l_funds_util_flt.reference_type := OZF_RESALE_COMMON_PVT.G_BATCH_REF_TYPE;
1021: l_funds_util_flt.reference_id := p_resale_batch_id;
1022: l_funds_util_flt.utilization_type:= G_CHBK_UTIL_TYPE;
1023: IF OZF_DEBUG_HIGH_ON THEN
1024: OZF_UTILITY_PVT.debug_message('Accruals created for this batch should be used.');
1025: END IF;
1026: ELSE
1027: l_funds_util_flt.fund_id := l_chargeback_fund_id;
1028: l_funds_util_flt.product_level_type := 'PRODUCT';
1026: ELSE
1027: l_funds_util_flt.fund_id := l_chargeback_fund_id;
1028: l_funds_util_flt.product_level_type := 'PRODUCT';
1029: IF OZF_DEBUG_HIGH_ON THEN
1030: OZF_UTILITY_PVT.debug_message('Existing accruals of chargeback budget should be used.');
1031: END IF;
1032: END IF;
1033: --Bug# 8632964 fixed by anuj and muthu (-)
1034: OZF_Claim_Accrual_PVT.Pay_Claim_for_Accruals(
1049: END IF;
1050:
1051:
1052: IF OZF_DEBUG_LOW_ON THEN
1053: OZF_UTILITY_PVT.debug_message('new claim_id:' || l_claim_id);
1054: END IF;
1055:
1056: -- Claim is created successfully.
1057: IF l_claim_id IS NOT NULL THEN
1101: -- For Bug#8867381 (-)
1102:
1103: EXCEPTION
1104: WHEN OTHERS THEN
1105: OZF_UTILITY_PVT.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': End');
1106: RAISE FND_API.g_exc_unexpected_error;
1107: END;
1108:
1109: -- mchang: Run Third Party Accrual After Chargeback Calculation was
1120: END IF; -- END IF batch processed or disputed
1121:
1122: -- Debug Message
1123: IF OZF_DEBUG_HIGH_ON THEN
1124: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
1125: END IF;
1126:
1127: --Standard call to get message count AND if count=1, get the message
1128: FND_MSG_PUB.Count_and_Get (
1228: END IF;
1229:
1230: -- Debug Message
1231: IF OZF_DEBUG_HIGH_ON THEN
1232: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1233: END IF;
1234:
1235: --Initialize message lISt if p_init_msg_list IS TRUE.
1236: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
1289: --
1290:
1291: -- Debug Message
1292: IF OZF_DEBUG_HIGH_ON THEN
1293: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
1294: END IF;
1295:
1296: --Standard call to get message count AND if count=1, get the message
1297: FND_MSG_PUB.Count_and_Get (
1424: x_return_status := FND_API.G_RET_STS_SUCCESS;
1425:
1426: -- Debug Message
1427: IF OZF_DEBUG_HIGH_ON THEN
1428: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1429: END IF;
1430:
1431: -- First check whether the order result collection EXISTS or NOT
1432: IF p_line_tbl.EXISTS(1) THEN
1431: -- First check whether the order result collection EXISTS or NOT
1432: IF p_line_tbl.EXISTS(1) THEN
1433:
1434: IF OZF_DEBUG_LOW_ON THEN
1435: OZF_UTILITY_PVT.debug_message('There is one line');
1436: END IF;
1437:
1438: OPEN order_identifiers_csr(p_line_tbl(1).chargeback_int_id);
1439: FETCH order_identifiers_csr INTO l_order_number, l_cust_account_id, l_date_ordered;
1445: l_is_error := p_line_tbl(i).pricing_status_code <> QP_PREQ_PUB.G_STATUS_NEW AND
1446: p_line_tbl(i).pricing_status_code <> QP_PREQ_PUB.G_STATUS_UNCHANGED AND
1447: p_line_tbl(i).pricing_status_code <> QP_PREQ_PUB.G_STATUS_UPDATED;
1448: IF OZF_DEBUG_LOW_ON THEN
1449: OZF_UTILITY_PVT.debug_message('pricing status code ' || p_line_tbl(i).pricing_status_code);
1450: END IF;
1451:
1452: IF l_is_error then
1453: IF OZF_DEBUG_LOW_ON THEN
1450: END IF;
1451:
1452: IF l_is_error then
1453: IF OZF_DEBUG_LOW_ON THEN
1454: OZF_UTILITY_PVT.debug_message('line '||p_line_tbl(i).chargeback_int_id || ' has pricing error' );
1455: END IF;
1456: BEGIN
1457: update ozf_resale_lines_int
1458: set status_code =OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
1462: response_code = 'N'
1463: where resale_line_int_id = p_line_tbl(i).chargeback_int_id;
1464: EXCEPTION
1465: WHEN OTHERS THEN
1466: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1468: END;
1469:
1470: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
1551: AND dispute_code is null
1552: AND resale_batch_id = p_resale_batch_id;
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: ozf_utility_pvt.error_message( 'OZF_UPD_RESALE_INT_WRG');
1556: RAISE FND_API.g_exc_unexpected_error;
1557: END;
1558:
1559: ELSE
1558:
1559: ELSE
1560: -- There is no error in the result. We need to process the result one by one.
1561: IF OZF_DEBUG_LOW_ON THEN
1562: OZF_UTILITY_PVT.debug_message('No Error in the result' );
1563: END IF;
1564: */
1565:
1566: -- get functional currency code AND convertion type
1592: l_resale_int_rec.duplicated_line_id IS NULL AND
1593: ( l_resale_int_rec.duplicated_adjustment_id IS NULL
1594: OR l_resale_int_rec.duplicated_adjustment_id = -1 ) THEN
1595: IF OZF_DEBUG_LOW_ON THEN
1596: OZF_UTILITY_PVT.debug_message('Need inventory tracking' );
1597: END IF;
1598:
1599: -- Check inventory level first
1600: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1609: );
1610:
1611: IF NOT l_inventory_level_valid THEN
1612: IF OZF_DEBUG_LOW_ON THEN
1613: OZF_UTILITY_PVT.debug_message('Did not pass inventory checking');
1614: END IF;
1615: --
1616: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
1617: p_id_value => p_line_tbl(i).chargeback_int_id,
1643: --
1644: GOTO END_LOOP3;
1645: ELSE
1646: IF OZF_DEBUG_LOW_ON THEN
1647: OZF_UTILITY_PVT.debug_message('Pass inventory test' );
1648: END IF;
1649: END IF;
1650: --
1651: END IF;
1663: l_exchange_type := l_default_exchange_type;
1664: END IF;
1665:
1666: IF l_exchange_type IS NULL THEN
1667: OZF_UTILITY_PVT.error_message('OZF_CLAIM_CONTYPE_MISSING');
1668: RAISE FND_API.g_exc_unexpected_error;
1669: END IF;
1670:
1671: IF l_exchange_date IS NULL THEN
1671: IF l_exchange_date IS NULL THEN
1672: l_exchange_date := sysdate;
1673: END IF;
1674: IF OZF_DEBUG_LOW_ON THEN
1675: OZF_UTILITY_PVT.debug_message('FROM currency:' || l_resale_int_rec.currency_code);
1676: OZF_UTILITY_PVT.debug_message('to currency:' || l_func_currency_code);
1677: OZF_UTILITY_PVT.debug_message('rate:' || l_rate);
1678: OZF_UTILITY_PVT.debug_message('exchange DATE:' || l_exchange_date);
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1672: l_exchange_date := sysdate;
1673: END IF;
1674: IF OZF_DEBUG_LOW_ON THEN
1675: OZF_UTILITY_PVT.debug_message('FROM currency:' || l_resale_int_rec.currency_code);
1676: OZF_UTILITY_PVT.debug_message('to currency:' || l_func_currency_code);
1677: OZF_UTILITY_PVT.debug_message('rate:' || l_rate);
1678: OZF_UTILITY_PVT.debug_message('exchange DATE:' || l_exchange_date);
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1680: END IF;
1673: END IF;
1674: IF OZF_DEBUG_LOW_ON THEN
1675: OZF_UTILITY_PVT.debug_message('FROM currency:' || l_resale_int_rec.currency_code);
1676: OZF_UTILITY_PVT.debug_message('to currency:' || l_func_currency_code);
1677: OZF_UTILITY_PVT.debug_message('rate:' || l_rate);
1678: OZF_UTILITY_PVT.debug_message('exchange DATE:' || l_exchange_date);
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1680: END IF;
1681:
1674: IF OZF_DEBUG_LOW_ON THEN
1675: OZF_UTILITY_PVT.debug_message('FROM currency:' || l_resale_int_rec.currency_code);
1676: OZF_UTILITY_PVT.debug_message('to currency:' || l_func_currency_code);
1677: OZF_UTILITY_PVT.debug_message('rate:' || l_rate);
1678: OZF_UTILITY_PVT.debug_message('exchange DATE:' || l_exchange_date);
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1680: END IF;
1681:
1682: -- convert unit price
1675: OZF_UTILITY_PVT.debug_message('FROM currency:' || l_resale_int_rec.currency_code);
1676: OZF_UTILITY_PVT.debug_message('to currency:' || l_func_currency_code);
1677: OZF_UTILITY_PVT.debug_message('rate:' || l_rate);
1678: OZF_UTILITY_PVT.debug_message('exchange DATE:' || l_exchange_date);
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1680: END IF;
1681:
1682: -- convert unit price
1683: OZF_UTILITY_PVT.Convert_Currency(
1679: OZF_UTILITY_PVT.debug_message('exchange type:' || l_exchange_type);
1680: END IF;
1681:
1682: -- convert unit price
1683: OZF_UTILITY_PVT.Convert_Currency(
1684: p_from_currency => l_resale_int_rec.CURRENCY_CODE
1685: ,p_to_currency => l_func_currency_code
1686: ,p_conv_type => l_exchange_type
1687: ,p_conv_rate => l_rate
1696: RAISE FND_API.g_exc_unexpected_error;
1697: END IF;
1698:
1699: -- convert adjusted selling price
1700: OZF_UTILITY_PVT.Convert_Currency(
1701: p_from_currency => l_resale_int_rec.CURRENCY_CODE
1702: ,p_to_currency => l_func_currency_code
1703: ,p_conv_type => l_exchange_type
1704: ,p_conv_rate => l_rate
1712: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1713: RAISE FND_API.g_exc_unexpected_error;
1714: END IF;
1715: ELSE
1716: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).unit_price*l_rate, l_func_currency_code);
1717: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
1718: END IF;
1719: ELSE
1720: l_rate := 1;
1713: RAISE FND_API.g_exc_unexpected_error;
1714: END IF;
1715: ELSE
1716: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).unit_price*l_rate, l_func_currency_code);
1717: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
1718: END IF;
1719: ELSE
1720: l_rate := 1;
1721: l_acctd_adj_unit_price := p_line_tbl(i).unit_price;
1740: 1,
1741: l_resale_int_rec.purchase_uom_code,
1742: l_resale_int_rec.uom_code,
1743: null, null);
1744: l_unit_purchase_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.purchase_price/l_uom_ratio
1745: , l_resale_int_rec.currency_code);
1746: END IF;
1747:
1748: IF OZF_DEBUG_LOW_ON THEN
1745: , l_resale_int_rec.currency_code);
1746: END IF;
1747:
1748: IF OZF_DEBUG_LOW_ON THEN
1749: OZF_UTILITY_PVT.debug_message('Unit Purchase Price:' || l_unit_purchase_price);
1750: END IF;
1751: -- Get allowed amount
1752: IF p_line_tbl(i).unit_price < l_unit_purchase_price THEN
1753: IF SIGN(p_line_tbl(i).line_quantity) = -1 THEN
1760: l_allowed_amount := 0;
1761: END IF;
1762:
1763: IF OZF_DEBUG_LOW_ON THEN
1764: OZF_UTILITY_PVT.debug_message('Allowed amount:' || l_allowed_amount);
1765: END IF;
1766:
1767: -- Update the results of Chargeback Calculation
1768: OZF_RESALE_COMMON_PVT.Update_Line_Calculations(
1798: --
1799: -- END IF; -- END of l_has_error
1800: ELSE
1801: IF OZF_DEBUG_LOW_ON THEN
1802: OZF_UTILITY_PVT.debug_message('There is no line to be processed');
1803: END IF;
1804: END IF; -- END of EXISTS
1805:
1806: -- Debug Message
1804: END IF; -- END of EXISTS
1805:
1806: -- Debug Message
1807: IF OZF_DEBUG_HIGH_ON THEN
1808: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
1809: END IF;
1810:
1811: EXCEPTION
1812: WHEN FND_API.g_exc_error THEN
1911: --
1912: BEGIN
1913: -- Debug Message
1914: IF OZF_DEBUG_HIGH_ON THEN
1915: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
1916: END IF;
1917:
1918: SAVEPOINT Get_Order_Price;
1919:
1934: CLOSE c_order_set_trc;
1935:
1936: IF l_order_set_trc_tbl.COUNT > 0 THEN
1937: FOR i IN 1..l_order_set_trc_tbl.COUNT LOOP
1938: OZF_UTILITY_PVT.debug_message(l_full_name || ' Validating tracing line ' || l_order_set_trc_tbl(i).resale_line_int_id);
1939: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_order_set_trc_tbl(i).resale_line_int_id);
1940: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_resale_int_rec;
1941: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
1942:
1954: );
1955:
1956: IF NOT l_inventory_level_valid THEN
1957: IF OZF_DEBUG_LOW_ON THEN
1958: OZF_UTILITY_PVT.debug_message('Did NOT pass inventory checking');
1959: END IF;
1960:
1961: -- log
1962: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
2005: l_control_rec.gsa_dup_check_flag := 'N';
2006: l_control_rec.temp_table_insert_flag := 'N';
2007:
2008: IF OZF_DEBUG_LOW_ON THEN
2009: OZF_UTILITY_PVT.debug_message('Event:' ||l_control_rec.pricing_event );
2010: END IF;
2011:
2012: -- Price flag has to be Y to get the price.
2013: l_price_flag := 'Y';
2012: -- Price flag has to be Y to get the price.
2013: l_price_flag := 'Y';
2014:
2015: IF OZF_DEBUG_LOW_ON THEN
2016: OZF_UTILITY_PVT.debug_message('Price flag:' ||l_price_flag );
2017: END IF;
2018:
2019: QP_Price_Request_Context.Set_Request_Id;
2020:
2018:
2019: QP_Price_Request_Context.Set_Request_Id;
2020:
2021: IF OZF_DEBUG_LOW_ON THEN
2022: OZF_UTILITY_PVT.debug_message('/*--- Processing order for order number:'||p_order_number||'---*/');
2023: OZF_UTILITY_PVT.debug_message('/*--- and cusomter:'||p_sold_from_cust_acct_id||'---*/');
2024: END IF;
2025:
2026: -- Before start process, clean up the data structures if necessary.
2019: QP_Price_Request_Context.Set_Request_Id;
2020:
2021: IF OZF_DEBUG_LOW_ON THEN
2022: OZF_UTILITY_PVT.debug_message('/*--- Processing order for order number:'||p_order_number||'---*/');
2023: OZF_UTILITY_PVT.debug_message('/*--- and cusomter:'||p_sold_from_cust_acct_id||'---*/');
2024: END IF;
2025:
2026: -- Before start process, clean up the data structures if necessary.
2027: IF l_order_set_tbl.EXISTS(1) THEN l_order_set_tbl.DELETE; END IF;
2044: --END LOOP;
2045: CLOSE order_set_csr;
2046:
2047: IF OZF_DEBUG_LOW_ON THEN
2048: OZF_UTILITY_PVT.debug_message('after order set'||l_order_set_tbl.count);
2049: END IF;
2050:
2051: IF l_order_set_tbl.EXISTS(1) THEN
2052: FOR J in 1..l_order_set_tbl.LAST
2064: END IF;
2065: RAISE FND_API.g_exc_unexpected_error;
2066: END;
2067: IF OZF_DEBUG_LOW_ON THEN
2068: OZF_UTILITY_PVT.debug_message('/*--- Buidling order line info for inteface id: '||l_order_set_tbl(J).resale_line_int_id ||'---*/');
2069: END IF;
2070:
2071: -- insert INTO l_line_tbl
2072: l_line_tbl(J).line_index := J;
2206: -- R12 Populate Global Resale Structure (-)
2207:
2208:
2209: IF OZF_DEBUG_LOW_ON THEN
2210: OZF_UTILITY_PVT.debug_message('/*---END Buidling order line FOR inteface id: '||l_order_set_tbl(J).resale_line_int_id ||'---*/');
2211: END IF;
2212: END LOOP;
2213: IF OZF_DEBUG_LOW_ON THEN
2214: OZF_UTILITY_PVT.debug_message('/*--- Buidling order header FOR order ---*/');
2210: OZF_UTILITY_PVT.debug_message('/*---END Buidling order line FOR inteface id: '||l_order_set_tbl(J).resale_line_int_id ||'---*/');
2211: END IF;
2212: END LOOP;
2213: IF OZF_DEBUG_LOW_ON THEN
2214: OZF_UTILITY_PVT.debug_message('/*--- Buidling order header FOR order ---*/');
2215: END IF;
2216:
2217: -- build summary line
2218: k := l_order_set_tbl.LAST +1;
2273: OZF_ORDER_PRICE_PVT.G_HEADER_REC.price_list_id := l_line_tbl(1).price_list_id;
2274: OZF_ORDER_PRICE_PVT.G_HEADER_REC.request_date := l_order_set_tbl(1).date_ordered;
2275: OZF_ORDER_PRICE_PVT.G_HEADER_REC.pricing_date := l_order_set_tbl(1).date_ordered;
2276: IF OZF_DEBUG_HIGH_ON THEN
2277: OZF_UTILITY_PVT.debug_message('/*---END Buidling order header FOR order ---*/');
2278: OZF_UTILITY_PVT.debug_message('/*--- Calling get order price ---*/');
2279: END IF;
2280:
2281: -- Get the agreement price for order lines
2274: OZF_ORDER_PRICE_PVT.G_HEADER_REC.request_date := l_order_set_tbl(1).date_ordered;
2275: OZF_ORDER_PRICE_PVT.G_HEADER_REC.pricing_date := l_order_set_tbl(1).date_ordered;
2276: IF OZF_DEBUG_HIGH_ON THEN
2277: OZF_UTILITY_PVT.debug_message('/*---END Buidling order header FOR order ---*/');
2278: OZF_UTILITY_PVT.debug_message('/*--- Calling get order price ---*/');
2279: END IF;
2280:
2281: -- Get the agreement price for order lines
2282: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2302: END IF;
2303:
2304: -- Debug Message
2305: IF OZF_DEBUG_HIGH_ON THEN
2306: OZF_UTILITY_PVT.debug_message(l_full_name||': End');
2307: END IF;
2308: EXCEPTION
2309: WHEN FND_API.g_exc_error THEN
2310: ROLLBACK TO Get_Order_Price;
2407: END IF;
2408:
2409: -- Debug Message
2410: IF OZF_DEBUG_HIGH_ON THEN
2411: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
2412: END IF;
2413:
2414: -- Initialize API return status to sucess
2415: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435: -- Check whether there IS a need to do inventory_verification
2436: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
2437: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
2438: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
2439: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': inventory flag = ' || l_inventory_tracking);
2440: -- populates the temp tables
2441: IF l_inventory_tracking = 'T' THEN
2442: OPEN batch_info_csr(p_resale_batch_id);
2443: FETCH batch_info_csr INTO l_partner_party_id
2476: END IF;
2477: OPEN order_num_csr;
2478: FETCH order_num_csr BULK COLLECT INTO l_order_num_tbl,l_cust_account_id_tbl, l_order_date_tbl;
2479: CLOSE order_num_csr;
2480: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||' order count = ' || l_order_num_tbl.count);
2481: --
2482: -- Get agreement price for all lines order by order
2483: IF l_order_num_tbl.EXISTS(1) THEN
2484: -- Loop through each order record
2507: FOR j in 1..l_line_tbl.LAST
2508: LOOP
2509:
2510: IF OZF_DEBUG_LOW_ON THEN
2511: OZF_UTILITY_PVT.debug_message('/*--- before get_order_price Insert resale log done ---*/');
2512: OZF_UTILITY_PVT.debug_message('/*--- chargeback int id:' || l_line_tbl(j).chargeback_int_id);
2513: OZF_UTILITY_PVT.debug_message('/*--- Message type: '||OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE);
2514: END IF;
2515:
2508: LOOP
2509:
2510: IF OZF_DEBUG_LOW_ON THEN
2511: OZF_UTILITY_PVT.debug_message('/*--- before get_order_price Insert resale log done ---*/');
2512: OZF_UTILITY_PVT.debug_message('/*--- chargeback int id:' || l_line_tbl(j).chargeback_int_id);
2513: OZF_UTILITY_PVT.debug_message('/*--- Message type: '||OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE);
2514: END IF;
2515:
2516: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
2509:
2510: IF OZF_DEBUG_LOW_ON THEN
2511: OZF_UTILITY_PVT.debug_message('/*--- before get_order_price Insert resale log done ---*/');
2512: OZF_UTILITY_PVT.debug_message('/*--- chargeback int id:' || l_line_tbl(j).chargeback_int_id);
2513: OZF_UTILITY_PVT.debug_message('/*--- Message type: '||OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE);
2514: END IF;
2515:
2516: OZF_RESALE_COMMON_PVT.Insert_Resale_Log (
2517: p_id_value => l_line_tbl(j).chargeback_int_id,
2528: END IF;
2529: --
2530: END LOOP;
2531: IF OZF_DEBUG_LOW_ON THEN
2532: OZF_UTILITY_PVT.debug_message('/*--- After get_order_price Insert resale log done ---*/');
2533: END IF;
2534:
2535: -- Dispute all the lines from this order
2536: OZF_RESALE_COMMON_PVT.Bulk_Dispute_Line (
2544: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2545: RAISE FND_API.g_exc_unexpected_error;
2546: END IF;
2547: IF OZF_DEBUG_LOW_ON THEN
2548: OZF_UTILITY_PVT.debug_message('/*--- Get order price failed ---*/');
2549: END IF;
2550: GOTO END_LOOP;
2551: ELSE
2552: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2557: END IF;
2558: END IF; -- not success status
2559:
2560: IF OZF_DEBUG_LOW_ON THEN
2561: OZF_UTILITY_PVT.debug_message('/*--- Get order price succeeded ---*/');
2562: OZF_UTILITY_PVT.debug_message('/*--- Calling process_price_result: ---*/');
2563: END IF;
2564:
2565: -- Process pricing result
2558: END IF; -- not success status
2559:
2560: IF OZF_DEBUG_LOW_ON THEN
2561: OZF_UTILITY_PVT.debug_message('/*--- Get order price succeeded ---*/');
2562: OZF_UTILITY_PVT.debug_message('/*--- Calling process_price_result: ---*/');
2563: END IF;
2564:
2565: -- Process pricing result
2566: Process_Pricing_Result(
2590: --
2591: END LOOP;
2592:
2593: IF OZF_DEBUG_LOW_ON THEN
2594: OZF_UTILITY_PVT.debug_message('/*--- After process_pricing_result Insert resale log done ---*/');
2595: END IF;
2596:
2597: BEGIN
2598: UPDATE ozf_resale_lines_int
2608: AND dispute_code is null
2609: AND resale_batch_id = p_resale_batch_id;
2610: EXCEPTION
2611: WHEN OTHERS THEN
2612: ozf_utility_pvt.error_message( 'OZF_UPD_RESALE_INT_WRG');
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END;
2615: --
2616: IF OZF_DEBUG_LOW_ON THEN
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END;
2615: --
2616: IF OZF_DEBUG_LOW_ON THEN
2617: OZF_UTILITY_PVT.debug_message('/*--- Process Pricing Result Failed ---*/');
2618: END IF;
2619: GOTO END_LOOP;
2620: END IF;
2621:
2630: AND resale_batch_id = p_resale_batch_id; -- bug 5222273
2631: -- Bug 4387465 (-)
2632:
2633: IF OZF_DEBUG_LOW_ON THEN
2634: OZF_UTILITY_PVT.debug_message('/*--- Success: Processing order for order number:'||l_order_num_tbl(i)||'---*/');
2635: OZF_UTILITY_PVT.debug_message('/*--- and cusomter:'||l_cust_account_id_tbl(i)||'---*/');
2636: END IF;
2637: END IF; -- END if FOR order_number, sold_from cust, date_ordered NOT NULL
2638: << END_LOOP >>
2631: -- Bug 4387465 (-)
2632:
2633: IF OZF_DEBUG_LOW_ON THEN
2634: OZF_UTILITY_PVT.debug_message('/*--- Success: Processing order for order number:'||l_order_num_tbl(i)||'---*/');
2635: OZF_UTILITY_PVT.debug_message('/*--- and cusomter:'||l_cust_account_id_tbl(i)||'---*/');
2636: END IF;
2637: END IF; -- END if FOR order_number, sold_from cust, date_ordered NOT NULL
2638: << END_LOOP >>
2639: NULL;
2639: NULL;
2640: END LOOP; -- END LOOP FOR l_order_num_tbl
2641: ELSE
2642: IF OZF_DEBUG_LOW_ON THEN
2643: OZF_UTILITY_PVT.debug_message('/*--- No order to process ---*/');
2644: END IF;
2645: END IF;
2646:
2647: -- Update Chargeback header with processing detail
2662: END IF;
2663:
2664: -- Debug Message
2665: IF OZF_DEBUG_HIGH_ON THEN
2666: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
2667: END IF;
2668: --Standard call to get message count AND if count=1, get the message
2669: FND_MSG_PUB.Count_and_Get (
2670: p_encoded => FND_API.G_FALSE,