[Home] [Help]
940: ,x_fund_id => x_fund_id
941: );
942:
943: IF G_DEBUG THEN
944: ozf_utility_pvt.debug_message('fund_type: ' || l_pvt_fund_rec.fund_type);
945: END IF;
946:
947: IF l_pvt_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
948:
954: l_modifier_list_rec.offer_operation := 'UPDATE';
955: l_modifier_list_rec.qp_list_header_id := l_qp_list_header_id;
956:
957: IF G_DEBUG THEN
958: ozf_utility_pvt.debug_message('accrual_phase: ' || l_pvt_fund_rec.accrual_phase);
959: END IF;
960:
961: IF l_pvt_fund_rec.accrual_phase = 'ACCRUAL' THEN --accrual offer
962:
1239: CLOSE c_fund_id;
1240: END IF;
1241:
1242: IF G_DEBUG THEN
1243: ozf_utility_pvt.debug_message(l_api_name || ': l_fund_id :' || l_fund_id);
1244: END IF;
1245:
1246: IF l_fund_id IS NOT NULL THEN
1247: OPEN c_fund_details (l_fund_id);
2674: ,p_fund_rec IN fund_rec_type
2675: ,p_modifier_line_tbl IN ozf_offer_pub.modifier_line_tbl_type
2676: ,p_qualifier_tbl IN ozf_offer_pub.qualifiers_tbl_type
2677: ,x_fund_id OUT NOCOPY NUMBER
2678: ,x_msg_tbl OUT NOCOPY OZF_Utility_PVT.ozf_msg_tbl_type
2679: ,x_line_tbl OUT NOCOPY ozf_offer_pub.list_line_tbl_type
2680: ) IS
2681:
2682: l_api_version CONSTANT NUMBER := 1.0;
2909: END IF;
2910: x_return_status := FND_API.g_ret_sts_success;
2911:
2912: IF G_DEBUG THEN
2913: OZF_UTILITY_PVT.debug_message( g_pkg_name || ' : ' || l_api_name);
2914: END IF;
2915:
2916: --BPEL need default, otherwise throw exception.
2917: x_line_tbl(1).list_line_id := -1;
2931: FND_MSG_PUB.add;
2932: END IF;
2933: RAISE FND_API.G_EXC_ERROR;
2934: ELSE
2935: l_lookup_check :=OZF_UTILITY_PVT.check_lookup_exists(
2936: p_lookup_table_name =>'OZF_LOOKUPS'
2937: ,p_lookup_type =>'OZF_FUND_TYPE'
2938: ,p_lookup_code => l_fund_rec.fund_type);
2939:
3015: END IF;
3016:
3017: l_pvt_fund_rec.business_unit_id := l_fund_rec.business_unit_id;
3018: l_pvt_fund_rec.status_code := 'ACTIVE';
3019: l_pvt_fund_rec.user_status_id := OZF_UTILITY_PVT.get_default_user_status('OZF_FUND_STATUS','ACTIVE');
3020:
3021: IF l_fund_rec.start_date_active IS NULL OR l_fund_rec.start_date_active = FND_API.g_miss_date THEN
3022: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3023: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_START_DATE_NULL');
3773: l_modifier_line_tbl(i).price_by_formula := NVL(p_modifier_line_tbl(i).price_by_formula,Fnd_Api.g_miss_char);
3774: l_modifier_line_tbl(i).list_line_no := NVL(p_modifier_line_tbl(i).list_line_no,Fnd_Api.g_miss_char);
3775:
3776: IF G_DEBUG THEN
3777: ozf_utility_pvt.debug_message('p_modifier_line_tbl(i).LIST_LINE_ID11:' || p_modifier_line_tbl(i).LIST_LINE_ID);
3778: END IF;
3779: IF p_modifier_line_tbl(i).LIST_LINE_ID <> fnd_api.g_miss_num THEN
3780: l_modifier_line_tbl(i).OPERATION := 'UPDATE';
3781: l_modifier_line_tbl(i).LIST_LINE_ID := p_modifier_line_tbl(i).LIST_LINE_ID;
3789:
3790: END IF;
3791:
3792: IF G_DEBUG THEN
3793: ozf_utility_pvt.debug_message('l_modifier_line_tbl(i).OPERATION:' || l_modifier_line_tbl(i).OPERATION);
3794: END IF;
3795:
3796: --//XREF Implemantation
3797: IF l_modifier_line_tbl(i).OPERATION = 'UPDATE' THEN
3798: l_xref_line_id := NULL;
3799: OPEN c_line_id_chk(l_modifier_line_tbl(i).list_line_id);
3800: FETCH c_line_id_chk INTO l_xref_line_id;
3801: IF G_DEBUG THEN
3802: ozf_utility_pvt.debug_message('l_xref_line_id11:' || l_xref_line_id);
3803: END IF;
3804: IF l_xref_line_id IS NOT NULL THEN
3805: l_modifier_line_tbl(i).list_line_id := l_xref_line_id;
3806: END IF;
3860:
3861: --//Fix for Bug 13654821
3862: FOR list_line_rec IN c_list_line(l_fund_rec.fund_id) LOOP
3863: IF G_DEBUG THEN
3864: ozf_utility_pvt.debug_message('l_list_line_tbl_type.COUNT:'|| l_list_line_tbl_type.COUNT);
3865: END IF;
3866:
3867: l_insert_xref := 'Y';
3868: