[Home] [Help]
42:
43:
44: EXCEPTION
45: WHEN OTHERS THEN
46: RAISE Fnd_Api.g_exc_error;
47: ozf_utility_pvt.debug_message('Exception in raising business event');
48: END;
49:
50:
53: -- Create_Utilization
54: --
55: -- HISTORY
56: -- 04/25/2001 Mumu Pande Create.
57: -- p_create_gl_entry IN VARCHAR2 := FND_API.g_false this flag indicates wether to
58: -- create gl entry or not . Right now the entry is only for utilization type 'adjustment'
59: -- Requirements for 11.5.5- hornet
60: -- 02/08/2001 Mumu Pande Updated for 11.5.5 requirements
61: -- 02/23/2001 Mumu Pande Updated for Hornet requirements
80: ---------------------------------------------------------------------
81:
82: PROCEDURE create_utilization (
83: p_api_version IN NUMBER
84: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
85: ,p_commit IN VARCHAR2 := fnd_api.g_false
86: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
87: ,x_return_status OUT NOCOPY VARCHAR2
88: ,x_msg_count OUT NOCOPY NUMBER
81:
82: PROCEDURE create_utilization (
83: p_api_version IN NUMBER
84: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
85: ,p_commit IN VARCHAR2 := fnd_api.g_false
86: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
87: ,x_return_status OUT NOCOPY VARCHAR2
88: ,x_msg_count OUT NOCOPY NUMBER
89: ,x_msg_data OUT NOCOPY VARCHAR2
82: PROCEDURE create_utilization (
83: p_api_version IN NUMBER
84: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
85: ,p_commit IN VARCHAR2 := fnd_api.g_false
86: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
87: ,x_return_status OUT NOCOPY VARCHAR2
88: ,x_msg_count OUT NOCOPY NUMBER
89: ,x_msg_data OUT NOCOPY VARCHAR2
90: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
86: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
87: ,x_return_status OUT NOCOPY VARCHAR2
88: ,x_msg_count OUT NOCOPY NUMBER
89: ,x_msg_data OUT NOCOPY VARCHAR2
90: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
91: ,p_utilization_rec IN utilization_rec_type
92: ,x_utilization_id OUT NOCOPY NUMBER
93: ) IS
94: l_api_version CONSTANT NUMBER := 1.0;
386: ozf_utility_pvt.debug_message ( l_full_name
387: || ': start' || p_utilization_rec.utilization_type);
388: END IF;
389:
390: IF fnd_api.to_boolean (p_init_msg_list) THEN
391: fnd_msg_pub.initialize;
392: END IF;
393:
394: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
390: IF fnd_api.to_boolean (p_init_msg_list) THEN
391: fnd_msg_pub.initialize;
392: END IF;
393:
394: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
395: RAISE fnd_api.g_exc_unexpected_error;
396: END IF;
397:
398: x_return_status := fnd_api.g_ret_sts_success;
391: fnd_msg_pub.initialize;
392: END IF;
393:
394: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
395: RAISE fnd_api.g_exc_unexpected_error;
396: END IF;
397:
398: x_return_status := fnd_api.g_ret_sts_success;
399:
394: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
395: RAISE fnd_api.g_exc_unexpected_error;
396: END IF;
397:
398: x_return_status := fnd_api.g_ret_sts_success;
399:
400: ----------------------- validate -----------------------
401: IF G_DEBUG THEN
402: ozf_utility_pvt.debug_message (
425: );
426: END IF;
427: validate_utilization (
428: p_api_version=> l_api_version
429: ,p_init_msg_list=> fnd_api.g_false
430: ,p_validation_level=> p_validation_level
431: ,x_return_status=> l_return_status
432: ,x_msg_count=> x_msg_count
433: ,x_msg_data=> x_msg_data
433: ,x_msg_data=> x_msg_data
434: ,p_utilization_rec=> l_utilization_rec
435: );
436:
437: IF l_return_status = fnd_api.g_ret_sts_error THEN
438: RAISE fnd_api.g_exc_error;
439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
440: RAISE fnd_api.g_exc_unexpected_error;
441: END IF;
434: ,p_utilization_rec=> l_utilization_rec
435: );
436:
437: IF l_return_status = fnd_api.g_ret_sts_error THEN
438: RAISE fnd_api.g_exc_error;
439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
440: RAISE fnd_api.g_exc_unexpected_error;
441: END IF;
442:
435: );
436:
437: IF l_return_status = fnd_api.g_ret_sts_error THEN
438: RAISE fnd_api.g_exc_error;
439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
440: RAISE fnd_api.g_exc_unexpected_error;
441: END IF;
442:
443:
436:
437: IF l_return_status = fnd_api.g_ret_sts_error THEN
438: RAISE fnd_api.g_exc_error;
439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
440: RAISE fnd_api.g_exc_unexpected_error;
441: END IF;
442:
443:
444: -- Here we should check for adjustment_type , if the adjustment_type is DECREASE_COMMITTMENT or DECREASE_EARNED_COMMITTED
565: , x_org_id => l_utilization_rec.org_id
566: , x_ledger_id => l_ledger_id
567: , x_return_status => l_return_status);
568:
569: IF l_return_status = fnd_api.g_ret_sts_error THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
572: RAISE fnd_api.g_exc_unexpected_error;
573: END IF;
566: , x_ledger_id => l_ledger_id
567: , x_return_status => l_return_status);
568:
569: IF l_return_status = fnd_api.g_ret_sts_error THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
572: RAISE fnd_api.g_exc_unexpected_error;
573: END IF;
574:
567: , x_return_status => l_return_status);
568:
569: IF l_return_status = fnd_api.g_ret_sts_error THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
572: RAISE fnd_api.g_exc_unexpected_error;
573: END IF;
574:
575: ELSE
568:
569: IF l_return_status = fnd_api.g_ret_sts_error THEN
570: RAISE fnd_api.g_exc_error;
571: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
572: RAISE fnd_api.g_exc_unexpected_error;
573: END IF;
574:
575: ELSE
576: --kdass R12 bug 4635529
616: fnd_message.set_token('OBJECT_TYPE', l_utilization_rec.plan_type);
617: fnd_message.set_token('OBJECT_ID', l_utilization_rec.plan_id);
618: fnd_msg_pub.ADD;
619: END IF;
620: x_return_status := fnd_api.g_ret_sts_error;
621: RAISE fnd_api.g_exc_error;
622: END IF;
623: ELSE
624:
617: fnd_message.set_token('OBJECT_ID', l_utilization_rec.plan_id);
618: fnd_msg_pub.ADD;
619: END IF;
620: x_return_status := fnd_api.g_ret_sts_error;
621: RAISE fnd_api.g_exc_error;
622: END IF;
623: ELSE
624:
625: --nirprasa for bug 7425189, adjustment_desc is populated with justification column
654: END IF;
655:
656:
657:
658: IF l_return_status = fnd_api.g_ret_sts_error THEN
659: RAISE fnd_api.g_exc_error;
660: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
661: RAISE fnd_api.g_exc_unexpected_error;
662: END IF;
655:
656:
657:
658: IF l_return_status = fnd_api.g_ret_sts_error THEN
659: RAISE fnd_api.g_exc_error;
660: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
661: RAISE fnd_api.g_exc_unexpected_error;
662: END IF;
663: END IF;
656:
657:
658: IF l_return_status = fnd_api.g_ret_sts_error THEN
659: RAISE fnd_api.g_exc_error;
660: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
661: RAISE fnd_api.g_exc_unexpected_error;
662: END IF;
663: END IF;
664:
657:
658: IF l_return_status = fnd_api.g_ret_sts_error THEN
659: RAISE fnd_api.g_exc_error;
660: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
661: RAISE fnd_api.g_exc_unexpected_error;
662: END IF;
663: END IF;
664:
665: l_plan_currency :=
716:
717: ELSE
718: -- Skip conversion to avoid rounding of plan currency amounts.
719: IF p_utilization_rec.plan_curr_amount IS NULL
720: OR p_utilization_rec.plan_curr_amount = fnd_api.g_miss_num THEN
721: ozf_utility_pvt.convert_currency (
722: p_from_currency=> l_utilization_rec.currency_code
723: ,p_to_currency=> l_plan_currency
724: ,p_conv_type=> l_utilization_rec.exchange_rate_type
731: l_plan_curr_amount := p_utilization_rec.plan_curr_amount;
732: END IF;
733: END IF;
734:
735: IF l_return_status = fnd_api.g_ret_sts_error THEN
736: RAISE fnd_api.g_exc_error;
737: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
732: END IF;
733: END IF;
734:
735: IF l_return_status = fnd_api.g_ret_sts_error THEN
736: RAISE fnd_api.g_exc_error;
737: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
740:
733: END IF;
734:
735: IF l_return_status = fnd_api.g_ret_sts_error THEN
736: RAISE fnd_api.g_exc_error;
737: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
740:
741: -- R12 yzhao: convert universal currency
734:
735: IF l_return_status = fnd_api.g_ret_sts_error THEN
736: RAISE fnd_api.g_exc_error;
737: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
740:
741: -- R12 yzhao: convert universal currency
742: IF g_universal_currency = l_utilization_rec.currency_code THEN
768: );
769: END IF;
770:
771:
772: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
773: RAISE fnd_api.g_exc_unexpected_error;
774: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
775: RAISE fnd_api.g_exc_error;
776: END IF;
769: END IF;
770:
771:
772: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
773: RAISE fnd_api.g_exc_unexpected_error;
774: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
775: RAISE fnd_api.g_exc_error;
776: END IF;
777: END IF;
770:
771:
772: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
773: RAISE fnd_api.g_exc_unexpected_error;
774: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
775: RAISE fnd_api.g_exc_error;
776: END IF;
777: END IF;
778: END IF;
771:
772: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
773: RAISE fnd_api.g_exc_unexpected_error;
774: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
775: RAISE fnd_api.g_exc_error;
776: END IF;
777: END IF;
778: END IF;
779:
843: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
844: fnd_msg_pub.ADD;
845: END IF;
846:
847: RAISE fnd_api.g_exc_error;
848: END IF;
849: CLOSE c_fund_b;
850:
851: IF l_fund_type = 'FULLY_ACCRUED' AND
848: END IF;
849: CLOSE c_fund_b;
850:
851: IF l_fund_type = 'FULLY_ACCRUED' AND
852: l_plan_id IS NOT NULL AND l_plan_id <> FND_API.g_miss_num THEN
853: -- Bug # 7337263 fixed by ateotia (+)
854: -- Added a condition for Chargeback Batch using Fully Accrued budget.
855: --IF l_utilization_rec.component_type = 'OFFR' AND
856: IF l_utilization_rec.component_type IN ('OFFR','PRIC') AND
955: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
956: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
957: fnd_msg_pub.ADD;
958: END IF;
959: RAISE fnd_api.g_exc_error;
960: END IF;
961: CLOSE c_accrual_budget_reqeust;
962:
963: UPDATE ozf_act_budgets
981: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
982: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
983: fnd_msg_pub.ADD;
984: END IF;
985: RAISE fnd_api.g_exc_error;
986: END IF;
987: CLOSE c_budget_request_utilrec;
988:
989: -- populate request amount in ozf_funds_utilized_all_b record
1281:
1282: ELSE
1283:
1284: IF p_utilization_rec.plan_curr_amount_remaining IS NULL
1285: OR p_utilization_rec.plan_curr_amount_remaining = fnd_api.g_miss_num THEN
1286: ozf_utility_pvt.convert_currency (
1287: p_from_currency=> l_utilization_rec.currency_code
1288: ,p_to_currency=> l_plan_currency
1289: ,p_conv_type=> l_utilization_rec.exchange_rate_type
1296: l_plan_curr_amount_remaining := p_utilization_rec.plan_curr_amount_remaining;
1297: END IF;
1298: END IF;
1299:
1300: IF l_return_status = fnd_api.g_ret_sts_error THEN
1301: RAISE fnd_api.g_exc_error;
1302: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1297: END IF;
1298: END IF;
1299:
1300: IF l_return_status = fnd_api.g_ret_sts_error THEN
1301: RAISE fnd_api.g_exc_error;
1302: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1305:
1298: END IF;
1299:
1300: IF l_return_status = fnd_api.g_ret_sts_error THEN
1301: RAISE fnd_api.g_exc_error;
1302: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1305:
1306: -- R12 yzhao: convert universal currency
1299:
1300: IF l_return_status = fnd_api.g_ret_sts_error THEN
1301: RAISE fnd_api.g_exc_error;
1302: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1303: RAISE fnd_api.g_exc_unexpected_error;
1304: END IF;
1305:
1306: -- R12 yzhao: convert universal currency
1307: IF g_universal_currency = l_utilization_rec.currency_code THEN
1332: ,x_rate=> l_rate
1333: );
1334: END IF;
1335:
1336: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1337: RAISE fnd_api.g_exc_unexpected_error;
1338: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1333: );
1334: END IF;
1335:
1336: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1337: RAISE fnd_api.g_exc_unexpected_error;
1338: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341: END IF;
1334: END IF;
1335:
1336: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1337: RAISE fnd_api.g_exc_unexpected_error;
1338: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341: END IF;
1342:
1335:
1336: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1337: RAISE fnd_api.g_exc_unexpected_error;
1338: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341: END IF;
1342:
1343: END IF;
1604: ozf_utility_pvt.debug_message(l_full_name || ': gl_account_debit: ' || l_utilization_rec.gl_account_debit);
1605: END IF;
1606:
1607: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
1608: ,p_init_msg_list => fnd_api.g_false
1609: ,p_commit => fnd_api.g_false
1610: ,p_validation_level => fnd_api.g_valid_level_full
1611: ,x_return_status => l_return_status
1612: ,x_msg_data => x_msg_data
1605: END IF;
1606:
1607: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
1608: ,p_init_msg_list => fnd_api.g_false
1609: ,p_commit => fnd_api.g_false
1610: ,p_validation_level => fnd_api.g_valid_level_full
1611: ,x_return_status => l_return_status
1612: ,x_msg_data => x_msg_data
1613: ,x_msg_count => x_msg_count
1606:
1607: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
1608: ,p_init_msg_list => fnd_api.g_false
1609: ,p_commit => fnd_api.g_false
1610: ,p_validation_level => fnd_api.g_valid_level_full
1611: ,x_return_status => l_return_status
1612: ,x_msg_data => x_msg_data
1613: ,x_msg_count => x_msg_count
1614: ,p_utilization_id => x_utilization_id
1624: ozf_utility_pvt.debug_message ( l_full_name || ': posted GL: ' || l_return_status);
1625: END IF;
1626:
1627: -- yzhao: 03/27/2003 when gl posting succeeds, set the flag 'Y', otherwise 'F', ignore error and reprocess later
1628: IF l_return_status = fnd_api.g_ret_sts_success THEN
1629: l_gl_posted_flag := ozf_accrual_engine.G_GL_FLAG_YES; -- 'Y';
1630: --kdass 27-JUL-2005 - R12 change for paid adjustments
1631: IF l_utilization_rec.utilization_type = 'ADJUSTMENT' AND
1632: l_utilization_rec.adjustment_type IN ('INCREASE_PAID', 'DECREASE_PAID') THEN
1669: IF l_utilization_rec.utilization_type IN ('ADJUSTMENT', 'CHARGEBACK', 'LEAD_ADJUSTMENT') AND
1670: l_utilization_rec.adjustment_type IN ('STANDARD', 'DECREASE_EARNED', 'DECREASE_COMM_EARNED') THEN
1671: fnd_message.set_name ('OZF', 'OZF_GL_POST_FAILURE');
1672: fnd_msg_pub.ADD;
1673: RAISE fnd_api.g_exc_error;
1674: ELSE
1675: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1676: fnd_message.set_name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1677: fnd_message.set_token ('TEXT', 'Failed to post to GL for utilization id ' || l_utilization_rec.utilization_id);
1704: END IF;
1705:
1706: ozf_funds_pvt.update_fund (
1707: p_api_version=> l_api_version
1708: ,p_init_msg_list=> fnd_api.g_false
1709: ,p_commit=> fnd_api.g_false
1710: ,p_validation_level=> p_validation_level
1711: ,x_return_status=> l_return_status
1712: ,x_msg_count=> x_msg_count
1705:
1706: ozf_funds_pvt.update_fund (
1707: p_api_version=> l_api_version
1708: ,p_init_msg_list=> fnd_api.g_false
1709: ,p_commit=> fnd_api.g_false
1710: ,p_validation_level=> p_validation_level
1711: ,x_return_status=> l_return_status
1712: ,x_msg_count=> x_msg_count
1713: ,x_msg_data=> x_msg_data
1714: ,p_fund_rec=> l_fund_rec
1715: ,p_mode=> g_cons_fund_mode
1716: );
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error THEN
1719: RAISE fnd_api.g_exc_error;
1720: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1721: RAISE fnd_api.g_exc_unexpected_error;
1722: END IF;
1715: ,p_mode=> g_cons_fund_mode
1716: );
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error THEN
1719: RAISE fnd_api.g_exc_error;
1720: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1721: RAISE fnd_api.g_exc_unexpected_error;
1722: END IF;
1723:
1716: );
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error THEN
1719: RAISE fnd_api.g_exc_error;
1720: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1721: RAISE fnd_api.g_exc_unexpected_error;
1722: END IF;
1723:
1724: -- R12: yzhao ozf_object_fund_summary update amount
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error THEN
1719: RAISE fnd_api.g_exc_error;
1720: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1721: RAISE fnd_api.g_exc_unexpected_error;
1722: END IF;
1723:
1724: -- R12: yzhao ozf_object_fund_summary update amount
1725: IF l_objfundsum_rec.objfundsum_id IS NULL THEN
1728: l_objfundsum_rec.object_type := l_utilization_rec.component_type;
1729: l_objfundsum_rec.object_id := l_utilization_rec.component_id;
1730: ozf_objfundsum_pvt.create_objfundsum(
1731: p_api_version => 1.0,
1732: p_init_msg_list => Fnd_Api.G_FALSE,
1733: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1734: p_objfundsum_rec => l_objfundsum_rec,
1735: x_return_status => l_return_status,
1736: x_msg_count => x_msg_count,
1729: l_objfundsum_rec.object_id := l_utilization_rec.component_id;
1730: ozf_objfundsum_pvt.create_objfundsum(
1731: p_api_version => 1.0,
1732: p_init_msg_list => Fnd_Api.G_FALSE,
1733: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1734: p_objfundsum_rec => l_objfundsum_rec,
1735: x_return_status => l_return_status,
1736: x_msg_count => x_msg_count,
1737: x_msg_data => x_msg_data,
1736: x_msg_count => x_msg_count,
1737: x_msg_data => x_msg_data,
1738: x_objfundsum_id => l_objfundsum_id
1739: );
1740: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1741: RAISE fnd_api.g_exc_unexpected_error;
1742: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1743: RAISE fnd_api.g_exc_error;
1744: END IF;
1737: x_msg_data => x_msg_data,
1738: x_objfundsum_id => l_objfundsum_id
1739: );
1740: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1741: RAISE fnd_api.g_exc_unexpected_error;
1742: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1743: RAISE fnd_api.g_exc_error;
1744: END IF;
1745: ELSE
1738: x_objfundsum_id => l_objfundsum_id
1739: );
1740: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1741: RAISE fnd_api.g_exc_unexpected_error;
1742: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1743: RAISE fnd_api.g_exc_error;
1744: END IF;
1745: ELSE
1746: --Added for bug 7425189, Call update_reconcile_objfundsum for reconcile flow.
1739: );
1740: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1741: RAISE fnd_api.g_exc_unexpected_error;
1742: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1743: RAISE fnd_api.g_exc_error;
1744: END IF;
1745: ELSE
1746: --Added for bug 7425189, Call update_reconcile_objfundsum for reconcile flow.
1747: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1747: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1748: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
1749: OZF_ACTBUDGETS_PVT.update_reconcile_objfundsum(
1750: p_api_version => 1.0,
1751: p_init_msg_list => Fnd_Api.G_FALSE,
1752: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1753: p_objfundsum_rec => l_objfundsum_rec,
1754: p_conv_date => l_utilization_rec.exchange_rate_date,
1755: x_return_status => l_return_status,
1748: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
1749: OZF_ACTBUDGETS_PVT.update_reconcile_objfundsum(
1750: p_api_version => 1.0,
1751: p_init_msg_list => Fnd_Api.G_FALSE,
1752: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1753: p_objfundsum_rec => l_objfundsum_rec,
1754: p_conv_date => l_utilization_rec.exchange_rate_date,
1755: x_return_status => l_return_status,
1756: x_msg_count => x_msg_count,
1758: );
1759: ELSE
1760: ozf_objfundsum_pvt.update_objfundsum(
1761: p_api_version => 1.0,
1762: p_init_msg_list => Fnd_Api.G_FALSE,
1763: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1764: p_objfundsum_rec => l_objfundsum_rec,
1765: x_return_status => l_return_status,
1766: x_msg_count => x_msg_count,
1759: ELSE
1760: ozf_objfundsum_pvt.update_objfundsum(
1761: p_api_version => 1.0,
1762: p_init_msg_list => Fnd_Api.G_FALSE,
1763: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1764: p_objfundsum_rec => l_objfundsum_rec,
1765: x_return_status => l_return_status,
1766: x_msg_count => x_msg_count,
1767: x_msg_data => x_msg_data
1767: x_msg_data => x_msg_data
1768: );
1769: END IF;
1770:
1771: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1772: RAISE fnd_api.g_exc_unexpected_error;
1773: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1774: RAISE fnd_api.g_exc_error;
1775: END IF;
1768: );
1769: END IF;
1770:
1771: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1772: RAISE fnd_api.g_exc_unexpected_error;
1773: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1774: RAISE fnd_api.g_exc_error;
1775: END IF;
1776: END IF;
1769: END IF;
1770:
1771: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1772: RAISE fnd_api.g_exc_unexpected_error;
1773: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1774: RAISE fnd_api.g_exc_error;
1775: END IF;
1776: END IF;
1777: -- R12: yzhao END ozf_object_fund_summary update amount
1770:
1771: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1772: RAISE fnd_api.g_exc_unexpected_error;
1773: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1774: RAISE fnd_api.g_exc_error;
1775: END IF;
1776: END IF;
1777: -- R12: yzhao END ozf_object_fund_summary update amount
1778:
1786: END IF;
1787:
1788:
1789: -- Check for commit
1790: IF fnd_api.to_boolean (p_commit) THEN
1791: COMMIT;
1792: END IF;
1793:
1794: fnd_msg_pub.count_and_get (
1791: COMMIT;
1792: END IF;
1793:
1794: fnd_msg_pub.count_and_get (
1795: p_encoded=> fnd_api.g_false
1796: ,p_count=> x_msg_count
1797: ,p_data=> x_msg_data
1798: );
1799: IF G_DEBUG THEN
1800: ozf_utility_pvt.debug_message ( l_full_name
1801: || ': end');
1802: END IF;
1803: EXCEPTION
1804: WHEN fnd_api.g_exc_error THEN
1805: ROLLBACK TO create_utilization;
1806: x_return_status := fnd_api.g_ret_sts_error;
1807: fnd_msg_pub.count_and_get (
1808: p_encoded=> fnd_api.g_false
1802: END IF;
1803: EXCEPTION
1804: WHEN fnd_api.g_exc_error THEN
1805: ROLLBACK TO create_utilization;
1806: x_return_status := fnd_api.g_ret_sts_error;
1807: fnd_msg_pub.count_and_get (
1808: p_encoded=> fnd_api.g_false
1809: ,p_count=> x_msg_count
1810: ,p_data=> x_msg_data
1804: WHEN fnd_api.g_exc_error THEN
1805: ROLLBACK TO create_utilization;
1806: x_return_status := fnd_api.g_ret_sts_error;
1807: fnd_msg_pub.count_and_get (
1808: p_encoded=> fnd_api.g_false
1809: ,p_count=> x_msg_count
1810: ,p_data=> x_msg_data
1811: );
1812: WHEN fnd_api.g_exc_unexpected_error THEN
1808: p_encoded=> fnd_api.g_false
1809: ,p_count=> x_msg_count
1810: ,p_data=> x_msg_data
1811: );
1812: WHEN fnd_api.g_exc_unexpected_error THEN
1813: ROLLBACK TO create_utilization;
1814: x_return_status := fnd_api.g_ret_sts_unexp_error;
1815: fnd_msg_pub.count_and_get (
1816: p_encoded=> fnd_api.g_false
1810: ,p_data=> x_msg_data
1811: );
1812: WHEN fnd_api.g_exc_unexpected_error THEN
1813: ROLLBACK TO create_utilization;
1814: x_return_status := fnd_api.g_ret_sts_unexp_error;
1815: fnd_msg_pub.count_and_get (
1816: p_encoded=> fnd_api.g_false
1817: ,p_count=> x_msg_count
1818: ,p_data=> x_msg_data
1812: WHEN fnd_api.g_exc_unexpected_error THEN
1813: ROLLBACK TO create_utilization;
1814: x_return_status := fnd_api.g_ret_sts_unexp_error;
1815: fnd_msg_pub.count_and_get (
1816: p_encoded=> fnd_api.g_false
1817: ,p_count=> x_msg_count
1818: ,p_data=> x_msg_data
1819: );
1820: WHEN OTHERS THEN
1818: ,p_data=> x_msg_data
1819: );
1820: WHEN OTHERS THEN
1821: ROLLBACK TO create_utilization;
1822: x_return_status := fnd_api.g_ret_sts_unexp_error;
1823:
1824: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1825: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1826: END IF;
1825: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1826: END IF;
1827:
1828: fnd_msg_pub.count_and_get (
1829: p_encoded=> fnd_api.g_false
1830: ,p_count=> x_msg_count
1831: ,p_data=> x_msg_data
1832: );
1833: END create_utilization;
1841: -- 04/25/2000 Mumu Pande Create.
1842: ---------------------------------------------------------------
1843: PROCEDURE delete_utilization (
1844: p_api_version IN NUMBER
1845: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1846: ,p_commit IN VARCHAR2 := fnd_api.g_false
1847: ,x_return_status OUT NOCOPY VARCHAR2
1848: ,x_msg_count OUT NOCOPY NUMBER
1849: ,x_msg_data OUT NOCOPY VARCHAR2
1842: ---------------------------------------------------------------
1843: PROCEDURE delete_utilization (
1844: p_api_version IN NUMBER
1845: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1846: ,p_commit IN VARCHAR2 := fnd_api.g_false
1847: ,x_return_status OUT NOCOPY VARCHAR2
1848: ,x_msg_count OUT NOCOPY NUMBER
1849: ,x_msg_data OUT NOCOPY VARCHAR2
1850: ,p_utilization_id IN NUMBER
1862: ozf_utility_pvt.debug_message ( l_full_name
1863: || ': start');
1864: END IF;
1865:
1866: IF fnd_api.to_boolean (p_init_msg_list) THEN
1867: fnd_msg_pub.initialize;
1868: END IF;
1869:
1870: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1866: IF fnd_api.to_boolean (p_init_msg_list) THEN
1867: fnd_msg_pub.initialize;
1868: END IF;
1869:
1870: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1871: RAISE fnd_api.g_exc_unexpected_error;
1872: END IF;
1873:
1874: x_return_status := fnd_api.g_ret_sts_success;
1867: fnd_msg_pub.initialize;
1868: END IF;
1869:
1870: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1871: RAISE fnd_api.g_exc_unexpected_error;
1872: END IF;
1873:
1874: x_return_status := fnd_api.g_ret_sts_success;
1875:
1870: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1871: RAISE fnd_api.g_exc_unexpected_error;
1872: END IF;
1873:
1874: x_return_status := fnd_api.g_ret_sts_success;
1875:
1876: ------------------------ delete ------------------------
1877: IF G_DEBUG THEN
1878: ozf_utility_pvt.debug_message ( l_full_name
1888: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1889: fnd_msg_pub.ADD;
1890: END IF;
1891:
1892: RAISE fnd_api.g_exc_error;
1893: END IF;
1894:
1895: DELETE FROM ozf_funds_utilized_all_tl
1896: WHERE utilization_id = p_utilization_id;
1900: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1901: fnd_msg_pub.ADD;
1902: END IF;
1903:
1904: RAISE fnd_api.g_exc_error;
1905: END IF;
1906:
1907:
1908: -------------------- finish --------------------------
1905: END IF;
1906:
1907:
1908: -------------------- finish --------------------------
1909: IF fnd_api.to_boolean (p_commit) THEN
1910: COMMIT;
1911: END IF;
1912:
1913: fnd_msg_pub.count_and_get (
1910: COMMIT;
1911: END IF;
1912:
1913: fnd_msg_pub.count_and_get (
1914: p_encoded=> fnd_api.g_false
1915: ,p_count=> x_msg_count
1916: ,p_data=> x_msg_data
1917: );
1918: IF G_DEBUG THEN
1919: ozf_utility_pvt.debug_message ( l_full_name
1920: || ': end');
1921: END IF;
1922: EXCEPTION
1923: WHEN fnd_api.g_exc_error THEN
1924: ROLLBACK TO delete_utilization;
1925: x_return_status := fnd_api.g_ret_sts_error;
1926: fnd_msg_pub.count_and_get (
1927: p_encoded=> fnd_api.g_false
1921: END IF;
1922: EXCEPTION
1923: WHEN fnd_api.g_exc_error THEN
1924: ROLLBACK TO delete_utilization;
1925: x_return_status := fnd_api.g_ret_sts_error;
1926: fnd_msg_pub.count_and_get (
1927: p_encoded=> fnd_api.g_false
1928: ,p_count=> x_msg_count
1929: ,p_data=> x_msg_data
1923: WHEN fnd_api.g_exc_error THEN
1924: ROLLBACK TO delete_utilization;
1925: x_return_status := fnd_api.g_ret_sts_error;
1926: fnd_msg_pub.count_and_get (
1927: p_encoded=> fnd_api.g_false
1928: ,p_count=> x_msg_count
1929: ,p_data=> x_msg_data
1930: );
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1927: p_encoded=> fnd_api.g_false
1928: ,p_count=> x_msg_count
1929: ,p_data=> x_msg_data
1930: );
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1932: ROLLBACK TO delete_utilization;
1933: x_return_status := fnd_api.g_ret_sts_unexp_error;
1934: fnd_msg_pub.count_and_get (
1935: p_encoded=> fnd_api.g_false
1929: ,p_data=> x_msg_data
1930: );
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1932: ROLLBACK TO delete_utilization;
1933: x_return_status := fnd_api.g_ret_sts_unexp_error;
1934: fnd_msg_pub.count_and_get (
1935: p_encoded=> fnd_api.g_false
1936: ,p_count=> x_msg_count
1937: ,p_data=> x_msg_data
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1932: ROLLBACK TO delete_utilization;
1933: x_return_status := fnd_api.g_ret_sts_unexp_error;
1934: fnd_msg_pub.count_and_get (
1935: p_encoded=> fnd_api.g_false
1936: ,p_count=> x_msg_count
1937: ,p_data=> x_msg_data
1938: );
1939: WHEN OTHERS THEN
1937: ,p_data=> x_msg_data
1938: );
1939: WHEN OTHERS THEN
1940: ROLLBACK TO delete_utilization;
1941: x_return_status := fnd_api.g_ret_sts_unexp_error;
1942:
1943: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1944: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1945: END IF;
1944: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1945: END IF;
1946:
1947: fnd_msg_pub.count_and_get (
1948: p_encoded=> fnd_api.g_false
1949: ,p_count=> x_msg_count
1950: ,p_data=> x_msg_data
1951: );
1952: END delete_utilization;
1962: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
1963: --------------------------------------------------------------------
1964: PROCEDURE lock_utilization (
1965: p_api_version IN NUMBER
1966: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1967: ,x_return_status OUT NOCOPY VARCHAR2
1968: ,x_msg_count OUT NOCOPY NUMBER
1969: ,x_msg_data OUT NOCOPY VARCHAR2
1970: ,p_utilization_id IN NUMBER
1996: ozf_utility_pvt.debug_message ( l_full_name
1997: || ': start');
1998: END IF;
1999:
2000: IF fnd_api.to_boolean (p_init_msg_list) THEN
2001: fnd_msg_pub.initialize;
2002: END IF;
2003:
2004: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2000: IF fnd_api.to_boolean (p_init_msg_list) THEN
2001: fnd_msg_pub.initialize;
2002: END IF;
2003:
2004: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2005: RAISE fnd_api.g_exc_unexpected_error;
2006: END IF;
2007:
2008: x_return_status := fnd_api.g_ret_sts_success;
2001: fnd_msg_pub.initialize;
2002: END IF;
2003:
2004: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2005: RAISE fnd_api.g_exc_unexpected_error;
2006: END IF;
2007:
2008: x_return_status := fnd_api.g_ret_sts_success;
2009:
2004: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2005: RAISE fnd_api.g_exc_unexpected_error;
2006: END IF;
2007:
2008: x_return_status := fnd_api.g_ret_sts_success;
2009:
2010: ------------------------ lock -------------------------
2011: IF G_DEBUG THEN
2012: ozf_utility_pvt.debug_message ( l_full_name
2022: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2023: fnd_msg_pub.ADD;
2024: END IF;
2025:
2026: RAISE fnd_api.g_exc_error;
2027: END IF;
2028:
2029: CLOSE c_utilization_b;
2030: OPEN c_utilization_tl;
2031: CLOSE c_utilization_tl;
2032:
2033: -------------------- finish --------------------------
2034: fnd_msg_pub.count_and_get (
2035: p_encoded=> fnd_api.g_false
2036: ,p_count=> x_msg_count
2037: ,p_data=> x_msg_data
2038: );
2039: IF G_DEBUG THEN
2041: || ': end');
2042: END IF;
2043: EXCEPTION
2044: WHEN ozf_utility_pvt.resource_locked THEN
2045: x_return_status := fnd_api.g_ret_sts_error;
2046:
2047: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2048: fnd_message.set_name ('OZF', 'OZF_API_RESOURCE_LOCKED');
2049: fnd_msg_pub.ADD;
2049: fnd_msg_pub.ADD;
2050: END IF;
2051:
2052: fnd_msg_pub.count_and_get (
2053: p_encoded=> fnd_api.g_false
2054: ,p_count=> x_msg_count
2055: ,p_data=> x_msg_data
2056: );
2057: WHEN fnd_api.g_exc_error THEN
2053: p_encoded=> fnd_api.g_false
2054: ,p_count=> x_msg_count
2055: ,p_data=> x_msg_data
2056: );
2057: WHEN fnd_api.g_exc_error THEN
2058: x_return_status := fnd_api.g_ret_sts_error;
2059: fnd_msg_pub.count_and_get (
2060: p_encoded=> fnd_api.g_false
2061: ,p_count=> x_msg_count
2054: ,p_count=> x_msg_count
2055: ,p_data=> x_msg_data
2056: );
2057: WHEN fnd_api.g_exc_error THEN
2058: x_return_status := fnd_api.g_ret_sts_error;
2059: fnd_msg_pub.count_and_get (
2060: p_encoded=> fnd_api.g_false
2061: ,p_count=> x_msg_count
2062: ,p_data=> x_msg_data
2056: );
2057: WHEN fnd_api.g_exc_error THEN
2058: x_return_status := fnd_api.g_ret_sts_error;
2059: fnd_msg_pub.count_and_get (
2060: p_encoded=> fnd_api.g_false
2061: ,p_count=> x_msg_count
2062: ,p_data=> x_msg_data
2063: );
2064: WHEN fnd_api.g_exc_unexpected_error THEN
2060: p_encoded=> fnd_api.g_false
2061: ,p_count=> x_msg_count
2062: ,p_data=> x_msg_data
2063: );
2064: WHEN fnd_api.g_exc_unexpected_error THEN
2065: x_return_status := fnd_api.g_ret_sts_unexp_error;
2066: fnd_msg_pub.count_and_get (
2067: p_encoded=> fnd_api.g_false
2068: ,p_count=> x_msg_count
2061: ,p_count=> x_msg_count
2062: ,p_data=> x_msg_data
2063: );
2064: WHEN fnd_api.g_exc_unexpected_error THEN
2065: x_return_status := fnd_api.g_ret_sts_unexp_error;
2066: fnd_msg_pub.count_and_get (
2067: p_encoded=> fnd_api.g_false
2068: ,p_count=> x_msg_count
2069: ,p_data=> x_msg_data
2063: );
2064: WHEN fnd_api.g_exc_unexpected_error THEN
2065: x_return_status := fnd_api.g_ret_sts_unexp_error;
2066: fnd_msg_pub.count_and_get (
2067: p_encoded=> fnd_api.g_false
2068: ,p_count=> x_msg_count
2069: ,p_data=> x_msg_data
2070: );
2071: WHEN OTHERS THEN
2068: ,p_count=> x_msg_count
2069: ,p_data=> x_msg_data
2070: );
2071: WHEN OTHERS THEN
2072: x_return_status := fnd_api.g_ret_sts_unexp_error;
2073:
2074: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2075: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2076: END IF;
2075: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2076: END IF;
2077:
2078: fnd_msg_pub.count_and_get (
2079: p_encoded=> fnd_api.g_false
2080: ,p_count=> x_msg_count
2081: ,p_data=> x_msg_data
2082: );
2083: END lock_utilization;
2093: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2094: ----------------------------------------------------------------------
2095: PROCEDURE update_utilization (
2096: p_api_version IN NUMBER
2097: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2098: ,p_commit IN VARCHAR2 := fnd_api.g_false
2099: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2100: ,x_return_status OUT NOCOPY VARCHAR2
2101: ,x_msg_count OUT NOCOPY NUMBER
2094: ----------------------------------------------------------------------
2095: PROCEDURE update_utilization (
2096: p_api_version IN NUMBER
2097: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2098: ,p_commit IN VARCHAR2 := fnd_api.g_false
2099: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2100: ,x_return_status OUT NOCOPY VARCHAR2
2101: ,x_msg_count OUT NOCOPY NUMBER
2102: ,x_msg_data OUT NOCOPY VARCHAR2
2095: PROCEDURE update_utilization (
2096: p_api_version IN NUMBER
2097: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2098: ,p_commit IN VARCHAR2 := fnd_api.g_false
2099: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2100: ,x_return_status OUT NOCOPY VARCHAR2
2101: ,x_msg_count OUT NOCOPY NUMBER
2102: ,x_msg_data OUT NOCOPY VARCHAR2
2103: ,p_utilization_rec IN utilization_rec_type
2109: || '.'
2110: || l_api_name;
2111: l_utilization_rec utilization_rec_type;
2112: l_mode VARCHAR2 (30);
2113: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2114: l_obj_num NUMBER := 1;
2115: l_fund_rec ozf_funds_pvt.fund_rec_type;
2116: l_utilized_amt NUMBER;
2117: l_old_util_amt NUMBER;
2139: ozf_utility_pvt.debug_message ( l_full_name
2140: || ': start');
2141: END IF;
2142:
2143: IF fnd_api.to_boolean (p_init_msg_list) THEN
2144: fnd_msg_pub.initialize;
2145: END IF;
2146:
2147: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2143: IF fnd_api.to_boolean (p_init_msg_list) THEN
2144: fnd_msg_pub.initialize;
2145: END IF;
2146:
2147: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2148: RAISE fnd_api.g_exc_unexpected_error;
2149: END IF;
2150:
2151: x_return_status := fnd_api.g_ret_sts_success;
2144: fnd_msg_pub.initialize;
2145: END IF;
2146:
2147: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2148: RAISE fnd_api.g_exc_unexpected_error;
2149: END IF;
2150:
2151: x_return_status := fnd_api.g_ret_sts_success;
2152:
2147: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2148: RAISE fnd_api.g_exc_unexpected_error;
2149: END IF;
2150:
2151: x_return_status := fnd_api.g_ret_sts_success;
2152:
2153: ----------------------- validate ----------------------
2154: IF G_DEBUG THEN
2155: ozf_utility_pvt.debug_message ( l_full_name
2164: ,p_validation_mode=> jtf_plsql_api.g_update
2165: ,x_return_status=> l_return_status
2166: );
2167:
2168: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2169: RAISE fnd_api.g_exc_unexpected_error;
2170: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2171: RAISE fnd_api.g_exc_error;
2172: END IF;
2165: ,x_return_status=> l_return_status
2166: );
2167:
2168: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2169: RAISE fnd_api.g_exc_unexpected_error;
2170: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2171: RAISE fnd_api.g_exc_error;
2172: END IF;
2173: END IF;
2166: );
2167:
2168: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2169: RAISE fnd_api.g_exc_unexpected_error;
2170: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2171: RAISE fnd_api.g_exc_error;
2172: END IF;
2173: END IF;
2174:
2167:
2168: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2169: RAISE fnd_api.g_exc_unexpected_error;
2170: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2171: RAISE fnd_api.g_exc_error;
2172: END IF;
2173: END IF;
2174:
2175:
2180: ,p_mode=> p_mode
2181: ,x_return_status=> l_return_status
2182: );
2183:
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2181: ,x_return_status=> l_return_status
2182: );
2183:
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: END IF;
2182: );
2183:
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: END IF;
2190:
2183:
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: END IF;
2190:
2191:
2210: ,x_to_amount=> l_plan_curr_amount
2211: ,x_rate=> l_rate
2212: );
2213:
2214: IF l_return_status = fnd_api.g_ret_sts_error THEN
2215: RAISE fnd_api.g_exc_error;
2216: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2217: RAISE fnd_api.g_exc_unexpected_error;
2218: END IF;
2211: ,x_rate=> l_rate
2212: );
2213:
2214: IF l_return_status = fnd_api.g_ret_sts_error THEN
2215: RAISE fnd_api.g_exc_error;
2216: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2217: RAISE fnd_api.g_exc_unexpected_error;
2218: END IF;
2219: END IF;
2212: );
2213:
2214: IF l_return_status = fnd_api.g_ret_sts_error THEN
2215: RAISE fnd_api.g_exc_error;
2216: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2217: RAISE fnd_api.g_exc_unexpected_error;
2218: END IF;
2219: END IF;
2220:
2213:
2214: IF l_return_status = fnd_api.g_ret_sts_error THEN
2215: RAISE fnd_api.g_exc_error;
2216: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2217: RAISE fnd_api.g_exc_unexpected_error;
2218: END IF;
2219: END IF;
2220:
2221: IF NVL (l_utilization_rec.amount_remaining, 0) <> 0 THEN
2227: ,x_to_amount=> l_plan_curr_amount_remaining
2228: ,x_rate=> l_rate
2229: );
2230:
2231: IF l_return_status = fnd_api.g_ret_sts_error THEN
2232: RAISE fnd_api.g_exc_error;
2233: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2234: RAISE fnd_api.g_exc_unexpected_error;
2235: END IF;
2228: ,x_rate=> l_rate
2229: );
2230:
2231: IF l_return_status = fnd_api.g_ret_sts_error THEN
2232: RAISE fnd_api.g_exc_error;
2233: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2234: RAISE fnd_api.g_exc_unexpected_error;
2235: END IF;
2236: END IF;
2229: );
2230:
2231: IF l_return_status = fnd_api.g_ret_sts_error THEN
2232: RAISE fnd_api.g_exc_error;
2233: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2234: RAISE fnd_api.g_exc_unexpected_error;
2235: END IF;
2236: END IF;
2237:
2230:
2231: IF l_return_status = fnd_api.g_ret_sts_error THEN
2232: RAISE fnd_api.g_exc_error;
2233: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2234: RAISE fnd_api.g_exc_unexpected_error;
2235: END IF;
2236: END IF;
2237:
2238:
2254: ,x_return_status=> l_return_status
2255: ,x_to_amount=> l_univ_curr_amount
2256: ,x_rate=> l_rate
2257: );
2258: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2259: RAISE fnd_api.g_exc_unexpected_error;
2260: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2255: ,x_to_amount=> l_univ_curr_amount
2256: ,x_rate=> l_rate
2257: );
2258: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2259: RAISE fnd_api.g_exc_unexpected_error;
2260: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2263: END IF;
2256: ,x_rate=> l_rate
2257: );
2258: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2259: RAISE fnd_api.g_exc_unexpected_error;
2260: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2263: END IF;
2264:
2257: );
2258: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2259: RAISE fnd_api.g_exc_unexpected_error;
2260: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2263: END IF;
2264:
2265: IF NVL (l_utilization_rec.amount_remaining, 0) = 0 THEN
2273: ,x_to_amount=> l_univ_curr_amount_remaining
2274: ,x_rate=> l_rate
2275: );
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2278: RAISE fnd_api.g_exc_unexpected_error;
2279: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2280: RAISE fnd_api.g_exc_error;
2281: END IF;
2274: ,x_rate=> l_rate
2275: );
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2278: RAISE fnd_api.g_exc_unexpected_error;
2279: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2280: RAISE fnd_api.g_exc_error;
2281: END IF;
2282: END IF;
2275: );
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2278: RAISE fnd_api.g_exc_unexpected_error;
2279: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2280: RAISE fnd_api.g_exc_error;
2281: END IF;
2282: END IF;
2283: END IF;
2276:
2277: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2278: RAISE fnd_api.g_exc_unexpected_error;
2279: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2280: RAISE fnd_api.g_exc_error;
2281: END IF;
2282: END IF;
2283: END IF;
2284:
2365: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2366: fnd_msg_pub.ADD;
2367: END IF;
2368:
2369: RAISE fnd_api.g_exc_error;
2370: END IF;
2371:
2372: UPDATE ozf_funds_utilized_all_tl
2373: SET last_update_date = SYSDATE
2388: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2389: fnd_msg_pub.ADD;
2390: END IF;
2391:
2392: RAISE fnd_api.g_exc_error;
2393: END IF;
2394:
2395: OPEN c_fund_b (l_utilization_rec.fund_id);
2396: FETCH c_fund_b INTO l_utilized_amt, l_obj_num;
2402: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2403: fnd_msg_pub.ADD;
2404: END IF;
2405:
2406: RAISE fnd_api.g_exc_error;
2407: END IF;
2408:
2409: CLOSE c_fund_b;
2410: OPEN c_old_util_amt (l_utilization_rec.utilization_id);
2420: l_fund_rec.fund_id := l_utilization_rec.fund_id;
2421: l_fund_rec.object_version_number := l_obj_num;
2422: ozf_funds_pvt.update_fund (
2423: p_api_version=> l_api_version
2424: ,p_init_msg_list=> fnd_api.g_false
2425: ,p_commit=> fnd_api.g_false
2426: ,p_validation_level=> p_validation_level
2427: ,x_return_status=> l_return_status
2428: ,x_msg_count=> x_msg_count
2421: l_fund_rec.object_version_number := l_obj_num;
2422: ozf_funds_pvt.update_fund (
2423: p_api_version=> l_api_version
2424: ,p_init_msg_list=> fnd_api.g_false
2425: ,p_commit=> fnd_api.g_false
2426: ,p_validation_level=> p_validation_level
2427: ,x_return_status=> l_return_status
2428: ,x_msg_count=> x_msg_count
2429: ,x_msg_data=> x_msg_data
2430: ,p_fund_rec=> l_fund_rec
2431: ,p_mode=> g_cons_fund_mode
2432: );
2433:
2434: IF l_return_status = fnd_api.g_ret_sts_error THEN
2435: RAISE fnd_api.g_exc_error;
2436: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2437: RAISE fnd_api.g_exc_unexpected_error;
2438: END IF;
2431: ,p_mode=> g_cons_fund_mode
2432: );
2433:
2434: IF l_return_status = fnd_api.g_ret_sts_error THEN
2435: RAISE fnd_api.g_exc_error;
2436: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2437: RAISE fnd_api.g_exc_unexpected_error;
2438: END IF;
2439:
2432: );
2433:
2434: IF l_return_status = fnd_api.g_ret_sts_error THEN
2435: RAISE fnd_api.g_exc_error;
2436: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2437: RAISE fnd_api.g_exc_unexpected_error;
2438: END IF;
2439:
2440:
2433:
2434: IF l_return_status = fnd_api.g_ret_sts_error THEN
2435: RAISE fnd_api.g_exc_error;
2436: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2437: RAISE fnd_api.g_exc_unexpected_error;
2438: END IF;
2439:
2440:
2441: -------------------- finish --------------------------
2439:
2440:
2441: -------------------- finish --------------------------
2442:
2443: IF fnd_api.to_boolean (p_commit) THEN
2444: COMMIT;
2445: END IF;
2446:
2447: fnd_msg_pub.count_and_get (
2444: COMMIT;
2445: END IF;
2446:
2447: fnd_msg_pub.count_and_get (
2448: p_encoded=> fnd_api.g_false
2449: ,p_count=> x_msg_count
2450: ,p_data=> x_msg_data
2451: );
2452: IF G_DEBUG THEN
2453: ozf_utility_pvt.debug_message ( l_full_name
2454: || ': end');
2455: END IF;
2456: EXCEPTION
2457: WHEN fnd_api.g_exc_error THEN
2458: ROLLBACK TO update_utilization;
2459: x_return_status := fnd_api.g_ret_sts_error;
2460: fnd_msg_pub.count_and_get (
2461: p_encoded=> fnd_api.g_false
2455: END IF;
2456: EXCEPTION
2457: WHEN fnd_api.g_exc_error THEN
2458: ROLLBACK TO update_utilization;
2459: x_return_status := fnd_api.g_ret_sts_error;
2460: fnd_msg_pub.count_and_get (
2461: p_encoded=> fnd_api.g_false
2462: ,p_count=> x_msg_count
2463: ,p_data=> x_msg_data
2457: WHEN fnd_api.g_exc_error THEN
2458: ROLLBACK TO update_utilization;
2459: x_return_status := fnd_api.g_ret_sts_error;
2460: fnd_msg_pub.count_and_get (
2461: p_encoded=> fnd_api.g_false
2462: ,p_count=> x_msg_count
2463: ,p_data=> x_msg_data
2464: );
2465: WHEN fnd_api.g_exc_unexpected_error THEN
2461: p_encoded=> fnd_api.g_false
2462: ,p_count=> x_msg_count
2463: ,p_data=> x_msg_data
2464: );
2465: WHEN fnd_api.g_exc_unexpected_error THEN
2466: ROLLBACK TO update_utilization;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2469: p_encoded=> fnd_api.g_false
2463: ,p_data=> x_msg_data
2464: );
2465: WHEN fnd_api.g_exc_unexpected_error THEN
2466: ROLLBACK TO update_utilization;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2469: p_encoded=> fnd_api.g_false
2470: ,p_count=> x_msg_count
2471: ,p_data=> x_msg_data
2465: WHEN fnd_api.g_exc_unexpected_error THEN
2466: ROLLBACK TO update_utilization;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2469: p_encoded=> fnd_api.g_false
2470: ,p_count=> x_msg_count
2471: ,p_data=> x_msg_data
2472: );
2473: WHEN OTHERS THEN
2471: ,p_data=> x_msg_data
2472: );
2473: WHEN OTHERS THEN
2474: ROLLBACK TO update_utilization;
2475: x_return_status := fnd_api.g_ret_sts_unexp_error;
2476:
2477: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2478: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2479: END IF;
2478: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2479: END IF;
2480:
2481: fnd_msg_pub.count_and_get (
2482: p_encoded=> fnd_api.g_false
2483: ,p_count=> x_msg_count
2484: ,p_data=> x_msg_data
2485: );
2486: END update_utilization;
2496: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2497: --------------------------------------------------------------------
2498: PROCEDURE validate_utilization (
2499: p_api_version IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2501: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2502: ,x_return_status OUT NOCOPY VARCHAR2
2503: ,x_msg_count OUT NOCOPY NUMBER
2504: ,x_msg_data OUT NOCOPY VARCHAR2
2497: --------------------------------------------------------------------
2498: PROCEDURE validate_utilization (
2499: p_api_version IN NUMBER
2500: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2501: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2502: ,x_return_status OUT NOCOPY VARCHAR2
2503: ,x_msg_count OUT NOCOPY NUMBER
2504: ,x_msg_data OUT NOCOPY VARCHAR2
2505: ,p_utilization_rec IN utilization_rec_type
2516: ozf_utility_pvt.debug_message ( l_full_name
2517: || ': start');
2518: END IF;
2519:
2520: IF fnd_api.to_boolean (p_init_msg_list) THEN
2521: fnd_msg_pub.initialize;
2522: END IF;
2523:
2524: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2520: IF fnd_api.to_boolean (p_init_msg_list) THEN
2521: fnd_msg_pub.initialize;
2522: END IF;
2523:
2524: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2525: RAISE fnd_api.g_exc_unexpected_error;
2526: END IF;
2527:
2528: x_return_status := fnd_api.g_ret_sts_success;
2521: fnd_msg_pub.initialize;
2522: END IF;
2523:
2524: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2525: RAISE fnd_api.g_exc_unexpected_error;
2526: END IF;
2527:
2528: x_return_status := fnd_api.g_ret_sts_success;
2529:
2524: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2525: RAISE fnd_api.g_exc_unexpected_error;
2526: END IF;
2527:
2528: x_return_status := fnd_api.g_ret_sts_success;
2529:
2530: ---------------------- validate ------------------------
2531: IF G_DEBUG THEN
2532: ozf_utility_pvt.debug_message ( l_full_name
2539: ,p_validation_mode=> jtf_plsql_api.g_create
2540: ,x_return_status=> l_return_status
2541: );
2542:
2543: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2544: RAISE fnd_api.g_exc_unexpected_error;
2545: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2546: RAISE fnd_api.g_exc_error;
2547: END IF;
2540: ,x_return_status=> l_return_status
2541: );
2542:
2543: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2544: RAISE fnd_api.g_exc_unexpected_error;
2545: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2546: RAISE fnd_api.g_exc_error;
2547: END IF;
2548: END IF;
2541: );
2542:
2543: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2544: RAISE fnd_api.g_exc_unexpected_error;
2545: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2546: RAISE fnd_api.g_exc_error;
2547: END IF;
2548: END IF;
2549:
2542:
2543: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2544: RAISE fnd_api.g_exc_unexpected_error;
2545: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2546: RAISE fnd_api.g_exc_error;
2547: END IF;
2548: END IF;
2549:
2550: IF G_DEBUG THEN
2558: ,p_complete_rec=> p_utilization_rec
2559: ,x_return_status=> l_return_status
2560: );
2561:
2562: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2563: RAISE fnd_api.g_exc_unexpected_error;
2564: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2565: RAISE fnd_api.g_exc_error;
2566: END IF;
2559: ,x_return_status=> l_return_status
2560: );
2561:
2562: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2563: RAISE fnd_api.g_exc_unexpected_error;
2564: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2565: RAISE fnd_api.g_exc_error;
2566: END IF;
2567: END IF;
2560: );
2561:
2562: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2563: RAISE fnd_api.g_exc_unexpected_error;
2564: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2565: RAISE fnd_api.g_exc_error;
2566: END IF;
2567: END IF;
2568:
2561:
2562: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2563: RAISE fnd_api.g_exc_unexpected_error;
2564: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2565: RAISE fnd_api.g_exc_error;
2566: END IF;
2567: END IF;
2568:
2569:
2568:
2569:
2570: -------------------- finish --------------------------
2571: fnd_msg_pub.count_and_get (
2572: p_encoded=> fnd_api.g_false
2573: ,p_count=> x_msg_count
2574: ,p_data=> x_msg_data
2575: );
2576: IF G_DEBUG THEN
2577: ozf_utility_pvt.debug_message ( l_full_name
2578: || ': end');
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_error;
2583: fnd_msg_pub.count_and_get (
2584: p_encoded=> fnd_api.g_false
2585: ,p_count=> x_msg_count
2578: || ': end');
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_error;
2583: fnd_msg_pub.count_and_get (
2584: p_encoded=> fnd_api.g_false
2585: ,p_count=> x_msg_count
2586: ,p_data=> x_msg_data
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_error;
2583: fnd_msg_pub.count_and_get (
2584: p_encoded=> fnd_api.g_false
2585: ,p_count=> x_msg_count
2586: ,p_data=> x_msg_data
2587: );
2588: WHEN fnd_api.g_exc_unexpected_error THEN
2584: p_encoded=> fnd_api.g_false
2585: ,p_count=> x_msg_count
2586: ,p_data=> x_msg_data
2587: );
2588: WHEN fnd_api.g_exc_unexpected_error THEN
2589: x_return_status := fnd_api.g_ret_sts_unexp_error;
2590: fnd_msg_pub.count_and_get (
2591: p_encoded=> fnd_api.g_false
2592: ,p_count=> x_msg_count
2585: ,p_count=> x_msg_count
2586: ,p_data=> x_msg_data
2587: );
2588: WHEN fnd_api.g_exc_unexpected_error THEN
2589: x_return_status := fnd_api.g_ret_sts_unexp_error;
2590: fnd_msg_pub.count_and_get (
2591: p_encoded=> fnd_api.g_false
2592: ,p_count=> x_msg_count
2593: ,p_data=> x_msg_data
2587: );
2588: WHEN fnd_api.g_exc_unexpected_error THEN
2589: x_return_status := fnd_api.g_ret_sts_unexp_error;
2590: fnd_msg_pub.count_and_get (
2591: p_encoded=> fnd_api.g_false
2592: ,p_count=> x_msg_count
2593: ,p_data=> x_msg_data
2594: );
2595: WHEN OTHERS THEN
2592: ,p_count=> x_msg_count
2593: ,p_data=> x_msg_data
2594: );
2595: WHEN OTHERS THEN
2596: x_return_status := fnd_api.g_ret_sts_unexp_error;
2597:
2598: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2599: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2600: END IF;
2599: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2600: END IF;
2601:
2602: fnd_msg_pub.count_and_get (
2603: p_encoded=> fnd_api.g_false
2604: ,p_count=> x_msg_count
2605: ,p_data=> x_msg_data
2606: );
2607: END validate_utilization;
2620: p_utilization_rec IN utilization_rec_type
2621: ,x_return_status OUT NOCOPY VARCHAR2
2622: ) IS
2623: BEGIN
2624: x_return_status := fnd_api.g_ret_sts_success;
2625:
2626:
2627: ------------------------ fund_id --------------------------
2628: IF p_utilization_rec.fund_id IS NULL THEN -- check for fund id
2630: fnd_message.set_name ('OZF', 'OZF_NO_FUND_ID');
2631: fnd_msg_pub.ADD;
2632: END IF;
2633:
2634: x_return_status := fnd_api.g_ret_sts_error;
2635: RETURN;
2636:
2637: ------------------------ AMOUNT -------------------------------
2638: ELSIF p_utilization_rec.amount IS NULL THEN -- check for amount
2640: fnd_message.set_name ('OZF', 'OZF_NO_UTILIZED_AMOUNT');
2641: fnd_msg_pub.ADD;
2642: END IF;
2643:
2644: x_return_status := fnd_api.g_ret_sts_error;
2645: RETURN;
2646: ELSIF p_utilization_rec.utilization_type IN ('ADJUSTMENT', 'CHARGEBACK', 'LEAD_ADJUSTMENT') THEN
2647: IF p_utilization_rec.adjustment_type IS NULL THEN -- check for utilization
2648: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2649: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUSTMENT_TYPE');
2650: fnd_msg_pub.ADD;
2651: END IF;
2652:
2653: x_return_status := fnd_api.g_ret_sts_error;
2654: RETURN;
2655: END IF;
2656: -- added for customer id for offers 8/14/2002 mpande
2657: IF p_utilization_rec.adjustment_type IN ('DECREASE_EARNED' ,'DECREASE_COMM_EARNED','STANDARD')
2659: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2660: fnd_message.set_name ('OZF', 'OZF_FUND_NO_CUST_ID');
2661: fnd_msg_pub.ADD;
2662: END IF;
2663: x_return_status := fnd_api.g_ret_sts_error;
2664: RETURN;
2665: END IF;
2666: ELSIF p_utilization_rec.utilization_type IS NULL THEN -- check for utilization type
2667: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2668: fnd_message.set_name ('OZF', 'OZF_FUND_NO_UTILIZATION_TYPE');
2669: fnd_msg_pub.ADD;
2670: END IF;
2671:
2672: x_return_status := fnd_api.g_ret_sts_error;
2673: RETURN;
2674: END IF;
2675:
2676: END check_utilized_req_items;
2691: ,x_return_status OUT NOCOPY VARCHAR2
2692: ) IS
2693: l_valid_flag VARCHAR2 (1);
2694: BEGIN
2695: x_return_status := fnd_api.g_ret_sts_success;
2696:
2697: -- For Create_Utilization, when utilization_id is passed in, we need to
2698: -- check if this utilization_id is unique.
2699: IF p_validation_mode = jtf_plsql_api.g_create
2701: IF ozf_utility_pvt.check_uniqueness (
2702: 'ozf_funds_UTILIZED_all_b'
2703: , 'utilization_id = '
2704: || p_utilization_rec.utilization_id
2705: ) = fnd_api.g_false THEN
2706: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2707: fnd_message.set_name ('OZF', 'OZF_UTILIZED_DUPLICATE_ID');
2708: fnd_msg_pub.ADD;
2709: END IF;
2707: fnd_message.set_name ('OZF', 'OZF_UTILIZED_DUPLICATE_ID');
2708: fnd_msg_pub.ADD;
2709: END IF;
2710:
2711: x_return_status := fnd_api.g_ret_sts_error;
2712: RETURN;
2713: END IF;
2714: END IF;
2715:
2731: p_utilization_rec IN utilization_rec_type
2732: ,x_return_status OUT NOCOPY VARCHAR2
2733: ) IS
2734: BEGIN
2735: x_return_status := fnd_api.g_ret_sts_success;
2736:
2737:
2738: ----------------------- fund_id ------------------------
2739: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
2735: x_return_status := fnd_api.g_ret_sts_success;
2736:
2737:
2738: ----------------------- fund_id ------------------------
2739: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
2740: IF ozf_utility_pvt.check_fk_exists (
2741: 'ozf_funds_all_b'
2742: , -- Parent schema object having the primary key
2743: 'fund_id'
2742: , -- Parent schema object having the primary key
2743: 'fund_id'
2744: , -- Column name in the parent object that maps to the fk value
2745: p_utilization_rec.fund_id -- Value of fk to be validated against the parent object's pk column
2746: ) = fnd_api.g_false THEN
2747: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2748: fnd_message.set_name ('OZF', 'OZF_BAD_FUND_ID');
2749: fnd_msg_pub.ADD;
2750: END IF;
2748: fnd_message.set_name ('OZF', 'OZF_BAD_FUND_ID');
2749: fnd_msg_pub.ADD;
2750: END IF;
2751:
2752: x_return_status := fnd_api.g_ret_sts_error;
2753: RETURN;
2754: END IF;
2755: END IF;
2756:
2754: END IF;
2755: END IF;
2756:
2757: ----------------------- adjustment_id ------------------------
2758: IF p_utilization_rec.adjustment_type_id <> fnd_api.g_miss_num THEN
2759: IF ozf_utility_pvt.check_fk_exists (
2760: 'ozf_claim_types_all_b'
2761: , -- Parent schema object having the primary key
2762: 'claim_type_id'
2761: , -- Parent schema object having the primary key
2762: 'claim_type_id'
2763: , -- Column name in the parent object that maps to the fk value
2764: p_utilization_rec.adjustment_type_id -- Value of fk to be validated against the parent object's pk column
2765: ) = fnd_api.g_false THEN
2766: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2767: fnd_message.set_name ('OZF', 'OZFBAD_ADJUSTMENT_ID');
2768: fnd_msg_pub.ADD;
2769: END IF;
2767: fnd_message.set_name ('OZF', 'OZFBAD_ADJUSTMENT_ID');
2768: fnd_msg_pub.ADD;
2769: END IF;
2770:
2771: x_return_status := fnd_api.g_ret_sts_error;
2772: RETURN;
2773: END IF;
2774: END IF;
2775:
2791: p_utilization_rec IN utilization_rec_type
2792: ,x_return_status OUT NOCOPY VARCHAR2
2793: ) IS
2794: BEGIN
2795: x_return_status := fnd_api.g_ret_sts_success;
2796:
2797: ----------------------- utilization_type ------------------------
2798: IF p_utilization_rec.utilization_type <> fnd_api.g_miss_char THEN
2799: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
2794: BEGIN
2795: x_return_status := fnd_api.g_ret_sts_success;
2796:
2797: ----------------------- utilization_type ------------------------
2798: IF p_utilization_rec.utilization_type <> fnd_api.g_miss_char THEN
2799: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
2800: AND p_utilization_rec.utilization_type NOT IN ('TRANSFER', 'REQUEST') THEN
2801: */
2802: IF ozf_utility_pvt.check_lookup_exists (
2802: IF ozf_utility_pvt.check_lookup_exists (
2803: p_lookup_table_name=> 'OZF_LOOKUPS'
2804: ,p_lookup_type=> 'OZF_UTILIZATION_TYPE'
2805: ,p_lookup_code=> p_utilization_rec.utilization_type
2806: ) = fnd_api.g_false THEN
2807: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2808: fnd_message.set_name ('OZF', 'OZF_BAD_UTILIZED_CODE');
2809: fnd_msg_pub.ADD;
2810: END IF;
2808: fnd_message.set_name ('OZF', 'OZF_BAD_UTILIZED_CODE');
2809: fnd_msg_pub.ADD;
2810: END IF;
2811:
2812: x_return_status := fnd_api.g_ret_sts_error;
2813: RETURN;
2814: END IF;
2815: END IF;
2816:
2814: END IF;
2815: END IF;
2816:
2817: --------------------02/08/2001 mpande added----------------
2818: IF p_utilization_rec.adjustment_type <> fnd_api.g_miss_char THEN
2819: IF ozf_utility_pvt.check_lookup_exists (
2820: p_lookup_table_name=> 'OZF_LOOKUPS'
2821: ,p_lookup_type=> 'OZF_ADJUSTMENT_TYPE'
2822: ,p_lookup_code=> p_utilization_rec.adjustment_type
2819: IF ozf_utility_pvt.check_lookup_exists (
2820: p_lookup_table_name=> 'OZF_LOOKUPS'
2821: ,p_lookup_type=> 'OZF_ADJUSTMENT_TYPE'
2822: ,p_lookup_code=> p_utilization_rec.adjustment_type
2823: ) = fnd_api.g_false THEN
2824: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2825: fnd_message.set_name ('OZF', 'OZF_BAD_ADJUSTMENT_CODE');
2826: fnd_msg_pub.ADD;
2827: END IF;
2825: fnd_message.set_name ('OZF', 'OZF_BAD_ADJUSTMENT_CODE');
2826: fnd_msg_pub.ADD;
2827: END IF;
2828:
2829: x_return_status := fnd_api.g_ret_sts_error;
2830: RETURN;
2831: END IF;
2832: END IF;
2833:
2849: p_utilization_rec IN utilization_rec_type
2850: ,x_return_status OUT NOCOPY VARCHAR2
2851: ) IS
2852: BEGIN
2853: x_return_status := fnd_api.g_ret_sts_success;
2854:
2855: -- check other flags
2856:
2857: END check_utilized_flag_items;
2876: p_utilization_rec=> p_utilization_rec
2877: ,x_return_status=> x_return_status
2878: );
2879:
2880: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2881: RETURN;
2882: END IF;
2883:
2884: check_utilized_uk_items (
2886: ,p_validation_mode=> p_validation_mode
2887: ,x_return_status=> x_return_status
2888: );
2889:
2890: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2891: RETURN;
2892: END IF;
2893:
2894: check_utilized_fk_items (
2895: p_utilization_rec=> p_utilization_rec
2896: ,x_return_status=> x_return_status
2897: );
2898:
2899: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2900: RETURN;
2901: END IF;
2902:
2903: check_utilized_lookup_items (
2904: p_utilization_rec=> p_utilization_rec
2905: ,x_return_status=> x_return_status
2906: );
2907:
2908: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2909: RETURN;
2910: END IF;
2911:
2912: check_utilized_flag_items (
2913: p_utilization_rec=> p_utilization_rec
2914: ,x_return_status=> x_return_status
2915: );
2916:
2917: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2918: RETURN;
2919: END IF;
2920: END check_utilization_items;
2921:
3003: OPEN c_transfer_allowed (p_activity_id, p_activity_type, p_fund_id);
3004: FETCH c_transfer_allowed INTO l_amount;
3005:
3006: IF c_transfer_allowed%NOTFOUND THEN
3007: RETURN fnd_api.g_false;
3008: END IF;
3009:
3010: CLOSE c_transfer_allowed;
3011: IF G_DEBUG THEN
3024: ozf_utility_pvt.debug_message ( ': check record'
3025: || l_amount
3026: || p_amount);
3027: END IF;
3028: RETURN fnd_api.g_false;
3029: END IF;
3030: ELSE
3031: RETURN fnd_api.g_true;
3032: END IF ;
3027: END IF;
3028: RETURN fnd_api.g_false;
3029: END IF;
3030: ELSE
3031: RETURN fnd_api.g_true;
3032: END IF ;
3033:
3034: RETURN fnd_api.g_true;
3035: EXCEPTION
3030: ELSE
3031: RETURN fnd_api.g_true;
3032: END IF ;
3033:
3034: RETURN fnd_api.g_true;
3035: EXCEPTION
3036: WHEN OTHERS THEN
3037: IF c_transfer_allowed%ISOPEN THEN
3038: CLOSE c_transfer_allowed;
3035: EXCEPTION
3036: WHEN OTHERS THEN
3037: IF c_transfer_allowed%ISOPEN THEN
3038: CLOSE c_transfer_allowed;
3039: RETURN fnd_api.g_false;
3040: END IF;
3041:
3042: RAISE;
3043: END check_committed_amount_exists;
3095: FETCH c_budget_earn_rec INTO l_amount;
3096:
3097: IF c_budget_earn_rec%NOTFOUND THEN
3098: CLOSE c_budget_earn_rec;
3099: RETURN fnd_api.g_false;
3100: END IF;
3101:
3102: CLOSE c_budget_earn_rec;
3103: /* ELSE
3105: FETCH c_budget_off_earn_rec INTO l_amount;
3106:
3107: IF c_budget_off_earn_rec%NOTFOUND THEN
3108: CLOSE c_budget_off_earn_rec;
3109: RETURN fnd_api.g_false;
3110: END IF;
3111:
3112: CLOSE c_budget_off_earn_rec;
3113: END IF;
3118: ozf_utility_pvt.debug_message ( ': check record'
3119: || l_amount
3120: || p_amount);
3121: END IF;
3122: RETURN fnd_api.g_false;
3123: END IF;
3124:
3125: RETURN fnd_api.g_true;
3126: END check_earned_amount_positive;
3121: END IF;
3122: RETURN fnd_api.g_false;
3123: END IF;
3124:
3125: RETURN fnd_api.g_true;
3126: END check_earned_amount_positive;
3127:
3128:
3129: ---------------------------------------------------------------------
3148: FETCH c_budget_rec INTO l_status;
3149:
3150: IF c_budget_rec%NOTFOUND THEN
3151: CLOSE c_budget_rec;
3152: RETURN fnd_api.g_false;
3153: END IF;
3154:
3155: -- check against the amount
3156: IF l_status <> 'ACTIVE' THEN
3157: IF G_DEBUG THEN
3158: ozf_utility_pvt.debug_message ( ': check record'
3159: || l_status);
3160: END IF;
3161: RETURN fnd_api.g_false;
3162: END IF;
3163:
3164: RETURN fnd_api.g_true;
3165: END check_fund_active;
3160: END IF;
3161: RETURN fnd_api.g_false;
3162: END IF;
3163:
3164: RETURN fnd_api.g_true;
3165: END check_fund_active;
3166:
3167:
3168: ---------------------------------------------------------------------
3195: FETCH c_fund_type INTO l_dummy;
3196: CLOSE c_fund_type;
3197: -- END IF;
3198:
3199: x_return_status := fnd_api.g_ret_sts_success;
3200:
3201: IF p_mode <> 'UPDATE' THEN
3202: -- Check for committed amount exists all offers except FULLY ACCRUED budget offer
3203: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
3211: ,p_complete_rec.plan_id
3212: ,p_complete_rec.plan_type
3213: ,p_complete_rec.fund_id
3214: ,p_complete_rec.component_id
3215: ) = fnd_api.g_false THEN
3216: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3217: fnd_message.set_name ('OZF', 'OZF_FUND_NO_COMMITTMENT');
3218: fnd_msg_pub.ADD;
3219: END IF;
3217: fnd_message.set_name ('OZF', 'OZF_FUND_NO_COMMITTMENT');
3218: fnd_msg_pub.ADD;
3219: END IF;
3220:
3221: x_return_status := fnd_api.g_ret_sts_error;
3222: RETURN;
3223: END IF;
3224: END IF;
3225:
3223: END IF;
3224: END IF;
3225:
3226:
3227: IF check_fund_active (p_complete_rec.fund_id) = fnd_api.g_false THEN
3228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3229: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUST');
3230: fnd_msg_pub.ADD;
3231: END IF;
3228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3229: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUST');
3230: fnd_msg_pub.ADD;
3231: END IF;
3232: x_return_status := fnd_api.g_ret_sts_error;
3233: RETURN;
3234: END IF;
3235:
3236: END IF; -- end if for p_mode
3243: fnd_message.set_name ('OZF', 'OZF_UTIL_NO_AMOUNT');
3244: fnd_msg_pub.ADD;
3245: END IF;
3246:
3247: x_return_status := fnd_api.g_ret_sts_error;
3248: RETURN;
3249: END IF;
3250: ELSE
3251: IF NVL (p_complete_rec.amount, 0) = 0 THEN
3253: fnd_message.set_name ('OZF', 'OZF_UTIL_NO_AMOUNT');
3254: fnd_msg_pub.ADD;
3255: END IF;
3256:
3257: x_return_status := fnd_api.g_ret_sts_error;
3258: RETURN;
3259: END IF;
3260: END IF;
3261: END IF;
3309: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
3310: fnd_msg_pub.ADD;
3311: END IF;
3312:
3313: RAISE fnd_api.g_exc_error;
3314: END IF;
3315:
3316: CLOSE c_utilization;
3317:
3314: END IF;
3315:
3316: CLOSE c_utilization;
3317:
3318: IF p_utilization_rec.utilization_type = fnd_api.g_miss_char THEN
3319: x_complete_rec.utilization_type := NULL;
3320: END IF;
3321: IF p_utilization_rec.utilization_type IS NULL THEN
3322: x_complete_rec.utilization_type := l_utilization_rec.utilization_type;
3321: IF p_utilization_rec.utilization_type IS NULL THEN
3322: x_complete_rec.utilization_type := l_utilization_rec.utilization_type;
3323: END IF;
3324:
3325: IF p_utilization_rec.fund_id = fnd_api.g_miss_num THEN
3326: x_complete_rec.fund_id := NULL;
3327: END IF;
3328: IF p_utilization_rec.fund_id IS NULL THEN
3329: x_complete_rec.fund_id := l_utilization_rec.fund_id;
3328: IF p_utilization_rec.fund_id IS NULL THEN
3329: x_complete_rec.fund_id := l_utilization_rec.fund_id;
3330: END IF;
3331:
3332: IF p_utilization_rec.plan_type = fnd_api.g_miss_char THEN
3333: x_complete_rec.plan_type := NULL;
3334: END IF;
3335: IF p_utilization_rec.plan_type IS NULL THEN
3336: x_complete_rec.plan_type := l_utilization_rec.plan_type;
3335: IF p_utilization_rec.plan_type IS NULL THEN
3336: x_complete_rec.plan_type := l_utilization_rec.plan_type;
3337: END IF;
3338:
3339: IF p_utilization_rec.plan_id = fnd_api.g_miss_num THEN
3340: x_complete_rec.plan_id := NULL;
3341: END IF;
3342: IF p_utilization_rec.plan_id IS NULL THEN
3343: x_complete_rec.plan_id := l_utilization_rec.plan_id;
3342: IF p_utilization_rec.plan_id IS NULL THEN
3343: x_complete_rec.plan_id := l_utilization_rec.plan_id;
3344: END IF;
3345:
3346: IF p_utilization_rec.component_type = fnd_api.g_miss_char THEN
3347: x_complete_rec.component_type := NULL;
3348: END IF;
3349: IF p_utilization_rec.component_type IS NULL THEN
3350: x_complete_rec.component_type := l_utilization_rec.component_type;
3349: IF p_utilization_rec.component_type IS NULL THEN
3350: x_complete_rec.component_type := l_utilization_rec.component_type;
3351: END IF;
3352:
3353: IF p_utilization_rec.component_id = fnd_api.g_miss_num THEN
3354: x_complete_rec.component_id := NULL;
3355: END IF;
3356: IF p_utilization_rec.component_id IS NULL THEN
3357: x_complete_rec.component_id := l_utilization_rec.component_id;
3356: IF p_utilization_rec.component_id IS NULL THEN
3357: x_complete_rec.component_id := l_utilization_rec.component_id;
3358: END IF;
3359:
3360: IF p_utilization_rec.object_type = fnd_api.g_miss_char THEN
3361: x_complete_rec.object_type := NULL;
3362: END IF;
3363: IF p_utilization_rec.object_type IS NULL THEN
3364: x_complete_rec.object_type := l_utilization_rec.object_type;
3363: IF p_utilization_rec.object_type IS NULL THEN
3364: x_complete_rec.object_type := l_utilization_rec.object_type;
3365: END IF;
3366:
3367: IF p_utilization_rec.object_id = fnd_api.g_miss_num THEN
3368: x_complete_rec.object_id := NULL;
3369: END IF;
3370: IF p_utilization_rec.object_id IS NULL THEN
3371: x_complete_rec.object_id := l_utilization_rec.object_id;
3370: IF p_utilization_rec.object_id IS NULL THEN
3371: x_complete_rec.object_id := l_utilization_rec.object_id;
3372: END IF;
3373:
3374: IF p_utilization_rec.order_id = fnd_api.g_miss_num THEN
3375: x_complete_rec.order_id := NULL;
3376: END IF;
3377: IF p_utilization_rec.order_id IS NULL THEN
3378: x_complete_rec.order_id := l_utilization_rec.order_id;
3377: IF p_utilization_rec.order_id IS NULL THEN
3378: x_complete_rec.order_id := l_utilization_rec.order_id;
3379: END IF;
3380:
3381: IF p_utilization_rec.invoice_id = fnd_api.g_miss_num THEN
3382: x_complete_rec.invoice_id := NULL;
3383: END IF;
3384: IF p_utilization_rec.invoice_id IS NULL THEN
3385: x_complete_rec.invoice_id := l_utilization_rec.invoice_id;
3384: IF p_utilization_rec.invoice_id IS NULL THEN
3385: x_complete_rec.invoice_id := l_utilization_rec.invoice_id;
3386: END IF;
3387:
3388: IF p_utilization_rec.amount = fnd_api.g_miss_num THEN
3389: x_complete_rec.amount := NULL;
3390: END IF;
3391: IF p_utilization_rec.amount IS NULL THEN
3392: x_complete_rec.amount := l_utilization_rec.amount;
3391: IF p_utilization_rec.amount IS NULL THEN
3392: x_complete_rec.amount := l_utilization_rec.amount;
3393: END IF;
3394:
3395: IF p_utilization_rec.acctd_amount = fnd_api.g_miss_num THEN
3396: x_complete_rec.acctd_amount := NULL;
3397: END IF;
3398: IF p_utilization_rec.acctd_amount IS NULL THEN
3399: x_complete_rec.acctd_amount := l_utilization_rec.acctd_amount;
3398: IF p_utilization_rec.acctd_amount IS NULL THEN
3399: x_complete_rec.acctd_amount := l_utilization_rec.acctd_amount;
3400: END IF;
3401:
3402: IF p_utilization_rec.currency_code = fnd_api.g_miss_char THEN
3403: x_complete_rec.currency_code := NULL;
3404: END IF;
3405: IF p_utilization_rec.currency_code IS NULL THEN
3406: x_complete_rec.currency_code := l_utilization_rec.currency_code;
3408:
3409:
3410: ----------------------------------------------------------------------------
3411: --02/09/2001 ADDEd by mpande for 11.5.5 reqmnts.--
3412: IF p_utilization_rec.adjustment_type_id = fnd_api.g_miss_num THEN
3413: x_complete_rec.adjustment_type_id := NULL;
3414: END IF;
3415: IF p_utilization_rec.adjustment_type_id IS NULL THEN
3416: x_complete_rec.adjustment_type_id := l_utilization_rec.adjustment_type_id;
3415: IF p_utilization_rec.adjustment_type_id IS NULL THEN
3416: x_complete_rec.adjustment_type_id := l_utilization_rec.adjustment_type_id;
3417: END IF;
3418:
3419: IF p_utilization_rec.camp_schedule_id = fnd_api.g_miss_num THEN
3420: x_complete_rec.camp_schedule_id := NULL;
3421: END IF;
3422: IF p_utilization_rec.camp_schedule_id IS NULL THEN
3423: x_complete_rec.camp_schedule_id := l_utilization_rec.camp_schedule_id;
3422: IF p_utilization_rec.camp_schedule_id IS NULL THEN
3423: x_complete_rec.camp_schedule_id := l_utilization_rec.camp_schedule_id;
3424: END IF;
3425:
3426: IF p_utilization_rec.gl_date = fnd_api.g_miss_date THEN
3427: x_complete_rec.gl_date := NULL;
3428: END IF;
3429: IF p_utilization_rec.gl_date IS NULL THEN
3430: x_complete_rec.gl_date := l_utilization_rec.gl_date;
3429: IF p_utilization_rec.gl_date IS NULL THEN
3430: x_complete_rec.gl_date := l_utilization_rec.gl_date;
3431: END IF;
3432:
3433: IF p_utilization_rec.product_level_type = fnd_api.g_miss_char THEN
3434: x_complete_rec.product_level_type := NULL;
3435: END IF;
3436: IF p_utilization_rec.product_level_type IS NULL THEN
3437: x_complete_rec.product_level_type := l_utilization_rec.product_level_type;
3436: IF p_utilization_rec.product_level_type IS NULL THEN
3437: x_complete_rec.product_level_type := l_utilization_rec.product_level_type;
3438: END IF;
3439:
3440: IF p_utilization_rec.product_id = fnd_api.g_miss_num THEN
3441: x_complete_rec.product_id := NULL;
3442: END IF;
3443: IF p_utilization_rec.product_id IS NULL THEN
3444: x_complete_rec.product_id := l_utilization_rec.product_id;
3443: IF p_utilization_rec.product_id IS NULL THEN
3444: x_complete_rec.product_id := l_utilization_rec.product_id;
3445: END IF;
3446:
3447: IF p_utilization_rec.ams_activity_budget_id = fnd_api.g_miss_num THEN
3448: x_complete_rec.ams_activity_budget_id := NULL;
3449: END IF;
3450: IF p_utilization_rec.ams_activity_budget_id IS NULL THEN
3451: x_complete_rec.ams_activity_budget_id := l_utilization_rec.ams_activity_budget_id;
3450: IF p_utilization_rec.ams_activity_budget_id IS NULL THEN
3451: x_complete_rec.ams_activity_budget_id := l_utilization_rec.ams_activity_budget_id;
3452: END IF;
3453:
3454: IF p_utilization_rec.amount_remaining = fnd_api.g_miss_num THEN
3455: x_complete_rec.amount_remaining := NULL;
3456: END IF;
3457: IF p_utilization_rec.amount_remaining IS NULL THEN
3458: x_complete_rec.amount_remaining := l_utilization_rec.amount_remaining;
3457: IF p_utilization_rec.amount_remaining IS NULL THEN
3458: x_complete_rec.amount_remaining := l_utilization_rec.amount_remaining;
3459: END IF;
3460:
3461: IF p_utilization_rec.acctd_amount_remaining = fnd_api.g_miss_num THEN
3462: x_complete_rec.acctd_amount_remaining := NULL;
3463: END IF;
3464: IF p_utilization_rec.acctd_amount_remaining IS NULL THEN
3465: x_complete_rec.acctd_amount_remaining := l_utilization_rec.acctd_amount_remaining;
3464: IF p_utilization_rec.acctd_amount_remaining IS NULL THEN
3465: x_complete_rec.acctd_amount_remaining := l_utilization_rec.acctd_amount_remaining;
3466: END IF;
3467:
3468: IF p_utilization_rec.cust_account_id = fnd_api.g_miss_num THEN
3469: x_complete_rec.cust_account_id := NULL;
3470: END IF;
3471: IF p_utilization_rec.cust_account_id IS NULL THEN
3472: x_complete_rec.cust_account_id := l_utilization_rec.cust_account_id;
3471: IF p_utilization_rec.cust_account_id IS NULL THEN
3472: x_complete_rec.cust_account_id := l_utilization_rec.cust_account_id;
3473: END IF;
3474:
3475: IF p_utilization_rec.price_adjustment_id = fnd_api.g_miss_num THEN
3476: x_complete_rec.price_adjustment_id := NULL;
3477: END IF;
3478: IF p_utilization_rec.price_adjustment_id IS NULL THEN
3479: x_complete_rec.price_adjustment_id := l_utilization_rec.price_adjustment_id;
3480: END IF;
3481:
3482:
3483: --------------------------------------------------------------------------------
3484: IF p_utilization_rec.exchange_rate_type = fnd_api.g_miss_char THEN
3485: x_complete_rec.exchange_rate_type := NULL;
3486: END IF;
3487: IF p_utilization_rec.exchange_rate_type IS NULL THEN
3488: x_complete_rec.exchange_rate_type := l_utilization_rec.exchange_rate_type;
3487: IF p_utilization_rec.exchange_rate_type IS NULL THEN
3488: x_complete_rec.exchange_rate_type := l_utilization_rec.exchange_rate_type;
3489: END IF;
3490:
3491: IF p_utilization_rec.exchange_rate_date = fnd_api.g_miss_date THEN
3492: x_complete_rec.exchange_rate_date := NULL;
3493: END IF;
3494: IF p_utilization_rec.exchange_rate_date IS NULL THEN
3495: x_complete_rec.exchange_rate_date := l_utilization_rec.exchange_rate_date;
3494: IF p_utilization_rec.exchange_rate_date IS NULL THEN
3495: x_complete_rec.exchange_rate_date := l_utilization_rec.exchange_rate_date;
3496: END IF;
3497:
3498: IF p_utilization_rec.exchange_rate = fnd_api.g_miss_num THEN
3499: x_complete_rec.exchange_rate := NULL;
3500: END IF;
3501: IF p_utilization_rec.exchange_rate IS NULL THEN
3502: x_complete_rec.exchange_rate := l_utilization_rec.exchange_rate;
3501: IF p_utilization_rec.exchange_rate IS NULL THEN
3502: x_complete_rec.exchange_rate := l_utilization_rec.exchange_rate;
3503: END IF;
3504:
3505: IF p_utilization_rec.adjustment_type = fnd_api.g_miss_char THEN
3506: x_complete_rec.adjustment_type := NULL;
3507: END IF;
3508: IF p_utilization_rec.adjustment_type IS NULL THEN
3509: x_complete_rec.adjustment_type := l_utilization_rec.adjustment_type;
3508: IF p_utilization_rec.adjustment_type IS NULL THEN
3509: x_complete_rec.adjustment_type := l_utilization_rec.adjustment_type;
3510: END IF;
3511:
3512: IF p_utilization_rec.adjustment_date = fnd_api.g_miss_date THEN
3513: x_complete_rec.adjustment_date := NULL;
3514: END IF;
3515: IF p_utilization_rec.adjustment_date IS NULL THEN
3516: x_complete_rec.adjustment_date := l_utilization_rec.adjustment_date;
3515: IF p_utilization_rec.adjustment_date IS NULL THEN
3516: x_complete_rec.adjustment_date := l_utilization_rec.adjustment_date;
3517: END IF;
3518:
3519: IF p_utilization_rec.object_version_number = fnd_api.g_miss_num THEN
3520: x_complete_rec.object_version_number := NULL;
3521: END IF;
3522: IF p_utilization_rec.object_version_number IS NULL THEN
3523: x_complete_rec.object_version_number := l_utilization_rec.object_version_number;
3522: IF p_utilization_rec.object_version_number IS NULL THEN
3523: x_complete_rec.object_version_number := l_utilization_rec.object_version_number;
3524: END IF;
3525:
3526: IF p_utilization_rec.attribute_category = fnd_api.g_miss_char THEN
3527: x_complete_rec.attribute_category := NULL;
3528: END IF;
3529: IF p_utilization_rec.attribute_category IS NULL THEN
3530: x_complete_rec.attribute_category := l_utilization_rec.attribute_category;
3529: IF p_utilization_rec.attribute_category IS NULL THEN
3530: x_complete_rec.attribute_category := l_utilization_rec.attribute_category;
3531: END IF;
3532:
3533: IF p_utilization_rec.attribute1 = fnd_api.g_miss_char THEN
3534: x_complete_rec.attribute1 := NULL;
3535: END IF;
3536: IF p_utilization_rec.attribute1 IS NULL THEN
3537: x_complete_rec.attribute1 := l_utilization_rec.attribute1;
3536: IF p_utilization_rec.attribute1 IS NULL THEN
3537: x_complete_rec.attribute1 := l_utilization_rec.attribute1;
3538: END IF;
3539:
3540: IF p_utilization_rec.attribute2 = fnd_api.g_miss_char THEN
3541: x_complete_rec.attribute2 := NULL;
3542: END IF;
3543: IF p_utilization_rec.attribute2 IS NULL THEN
3544: x_complete_rec.attribute2 := l_utilization_rec.attribute2;
3543: IF p_utilization_rec.attribute2 IS NULL THEN
3544: x_complete_rec.attribute2 := l_utilization_rec.attribute2;
3545: END IF;
3546:
3547: IF p_utilization_rec.attribute3 = fnd_api.g_miss_char THEN
3548: x_complete_rec.attribute3 := NULL;
3549: END IF;
3550: IF p_utilization_rec.attribute3 IS NULL THEN
3551: x_complete_rec.attribute3 := l_utilization_rec.attribute3;
3550: IF p_utilization_rec.attribute3 IS NULL THEN
3551: x_complete_rec.attribute3 := l_utilization_rec.attribute3;
3552: END IF;
3553:
3554: IF p_utilization_rec.attribute4 = fnd_api.g_miss_char THEN
3555: x_complete_rec.attribute4 := NULL;
3556: END IF;
3557: IF p_utilization_rec.attribute4 IS NULL THEN
3558: x_complete_rec.attribute4 := l_utilization_rec.attribute4;
3557: IF p_utilization_rec.attribute4 IS NULL THEN
3558: x_complete_rec.attribute4 := l_utilization_rec.attribute4;
3559: END IF;
3560:
3561: IF p_utilization_rec.attribute5 = fnd_api.g_miss_char THEN
3562: x_complete_rec.attribute5 := NULL;
3563: END IF;
3564: IF p_utilization_rec.attribute5 IS NULL THEN
3565: x_complete_rec.attribute5 := l_utilization_rec.attribute5;
3564: IF p_utilization_rec.attribute5 IS NULL THEN
3565: x_complete_rec.attribute5 := l_utilization_rec.attribute5;
3566: END IF;
3567:
3568: IF p_utilization_rec.attribute6 = fnd_api.g_miss_char THEN
3569: x_complete_rec.attribute6 := NULL;
3570: END IF;
3571: IF p_utilization_rec.attribute6 IS NULL THEN
3572: x_complete_rec.attribute6 := l_utilization_rec.attribute6;
3571: IF p_utilization_rec.attribute6 IS NULL THEN
3572: x_complete_rec.attribute6 := l_utilization_rec.attribute6;
3573: END IF;
3574:
3575: IF p_utilization_rec.attribute7 = fnd_api.g_miss_char THEN
3576: x_complete_rec.attribute7 := NULL;
3577: END IF;
3578: IF p_utilization_rec.attribute7 IS NULL THEN
3579: x_complete_rec.attribute7 := l_utilization_rec.attribute7;
3578: IF p_utilization_rec.attribute7 IS NULL THEN
3579: x_complete_rec.attribute7 := l_utilization_rec.attribute7;
3580: END IF;
3581:
3582: IF p_utilization_rec.attribute8 = fnd_api.g_miss_char THEN
3583: x_complete_rec.attribute8 := NULL;
3584: END IF;
3585: IF p_utilization_rec.attribute8 IS NULL THEN
3586: x_complete_rec.attribute8 := l_utilization_rec.attribute8;
3585: IF p_utilization_rec.attribute8 IS NULL THEN
3586: x_complete_rec.attribute8 := l_utilization_rec.attribute8;
3587: END IF;
3588:
3589: IF p_utilization_rec.attribute9 = fnd_api.g_miss_char THEN
3590: x_complete_rec.attribute9 := NULL;
3591: END IF;
3592: IF p_utilization_rec.attribute9 IS NULL THEN
3593: x_complete_rec.attribute9 := l_utilization_rec.attribute9;
3592: IF p_utilization_rec.attribute9 IS NULL THEN
3593: x_complete_rec.attribute9 := l_utilization_rec.attribute9;
3594: END IF;
3595:
3596: IF p_utilization_rec.attribute10 = fnd_api.g_miss_char THEN
3597: x_complete_rec.attribute10 := NULL;
3598: END IF;
3599: IF p_utilization_rec.attribute10 IS NULL THEN
3600: x_complete_rec.attribute10 := l_utilization_rec.attribute10;
3599: IF p_utilization_rec.attribute10 IS NULL THEN
3600: x_complete_rec.attribute10 := l_utilization_rec.attribute10;
3601: END IF;
3602:
3603: IF p_utilization_rec.attribute11 = fnd_api.g_miss_char THEN
3604: x_complete_rec.attribute11 := NULL;
3605: END IF;
3606: IF p_utilization_rec.attribute11 IS NULL THEN
3607: x_complete_rec.attribute11 := l_utilization_rec.attribute11;
3606: IF p_utilization_rec.attribute11 IS NULL THEN
3607: x_complete_rec.attribute11 := l_utilization_rec.attribute11;
3608: END IF;
3609:
3610: IF p_utilization_rec.attribute12 = fnd_api.g_miss_char THEN
3611: x_complete_rec.attribute12 := NULL;
3612: END IF;
3613: IF p_utilization_rec.attribute12 IS NULL THEN
3614: x_complete_rec.attribute12 := l_utilization_rec.attribute12;
3613: IF p_utilization_rec.attribute12 IS NULL THEN
3614: x_complete_rec.attribute12 := l_utilization_rec.attribute12;
3615: END IF;
3616:
3617: IF p_utilization_rec.attribute13 = fnd_api.g_miss_char THEN
3618: x_complete_rec.attribute13 := NULL;
3619: END IF;
3620: IF p_utilization_rec.attribute13 IS NULL THEN
3621: x_complete_rec.attribute13 := l_utilization_rec.attribute13;
3620: IF p_utilization_rec.attribute13 IS NULL THEN
3621: x_complete_rec.attribute13 := l_utilization_rec.attribute13;
3622: END IF;
3623:
3624: IF p_utilization_rec.attribute14 = fnd_api.g_miss_char THEN
3625: x_complete_rec.attribute14 := NULL;
3626: END IF;
3627: IF p_utilization_rec.attribute14 IS NULL THEN
3628: x_complete_rec.attribute14 := l_utilization_rec.attribute14;
3627: IF p_utilization_rec.attribute14 IS NULL THEN
3628: x_complete_rec.attribute14 := l_utilization_rec.attribute14;
3629: END IF;
3630:
3631: IF p_utilization_rec.attribute15 = fnd_api.g_miss_char THEN
3632: x_complete_rec.attribute15 := NULL;
3633: END IF;
3634: IF p_utilization_rec.attribute15 IS NULL THEN
3635: x_complete_rec.attribute15 := l_utilization_rec.attribute15;
3634: IF p_utilization_rec.attribute15 IS NULL THEN
3635: x_complete_rec.attribute15 := l_utilization_rec.attribute15;
3636: END IF;
3637:
3638: IF p_utilization_rec.adjustment_desc = fnd_api.g_miss_char THEN
3639: x_complete_rec.adjustment_desc := NULL;
3640: END IF;
3641: IF p_utilization_rec.adjustment_desc IS NULL THEN
3642: x_complete_rec.adjustment_desc := l_utilization_rec.adjustment_desc;
3641: IF p_utilization_rec.adjustment_desc IS NULL THEN
3642: x_complete_rec.adjustment_desc := l_utilization_rec.adjustment_desc;
3643: END IF;
3644:
3645: IF p_utilization_rec.plan_curr_amount = fnd_api.g_miss_num THEN
3646: x_complete_rec.plan_curr_amount := NULL;
3647: END IF;
3648: IF p_utilization_rec.plan_curr_amount IS NULL THEN
3649: x_complete_rec.plan_curr_amount := l_utilization_rec.plan_curr_amount;
3648: IF p_utilization_rec.plan_curr_amount IS NULL THEN
3649: x_complete_rec.plan_curr_amount := l_utilization_rec.plan_curr_amount;
3650: END IF;
3651:
3652: IF p_utilization_rec.plan_curr_amount_remaining = fnd_api.g_miss_num THEN
3653: x_complete_rec.plan_curr_amount_remaining := NULL;
3654: END IF;
3655: IF p_utilization_rec.plan_curr_amount_remaining IS NULL THEN
3656: x_complete_rec.plan_curr_amount_remaining := l_utilization_rec.plan_curr_amount_remaining;
3656: x_complete_rec.plan_curr_amount_remaining := l_utilization_rec.plan_curr_amount_remaining;
3657: END IF;
3658:
3659: -- added for 11.5.9
3660: IF p_utilization_rec.scan_unit = fnd_api.g_miss_num THEN
3661: x_complete_rec.scan_unit := NULL;
3662: END IF;
3663: IF p_utilization_rec.scan_unit IS NULL THEN
3664: x_complete_rec.scan_unit := l_utilization_rec.scan_unit;
3663: IF p_utilization_rec.scan_unit IS NULL THEN
3664: x_complete_rec.scan_unit := l_utilization_rec.scan_unit;
3665: END IF;
3666:
3667: IF p_utilization_rec.scan_unit_remaining = fnd_api.g_miss_num THEN
3668: x_complete_rec.scan_unit_remaining := NULL;
3669: END IF;
3670: IF p_utilization_rec.scan_unit_remaining IS NULL THEN
3671: x_complete_rec.scan_unit_remaining := l_utilization_rec.scan_unit_remaining;
3670: IF p_utilization_rec.scan_unit_remaining IS NULL THEN
3671: x_complete_rec.scan_unit_remaining := l_utilization_rec.scan_unit_remaining;
3672: END IF;
3673:
3674: IF p_utilization_rec.activity_product_id = fnd_api.g_miss_num THEN
3675: x_complete_rec.activity_product_id := NULL;
3676: END IF;
3677: IF p_utilization_rec.activity_product_id IS NULL THEN
3678: x_complete_rec.activity_product_id := l_utilization_rec.activity_product_id;
3677: IF p_utilization_rec.activity_product_id IS NULL THEN
3678: x_complete_rec.activity_product_id := l_utilization_rec.activity_product_id;
3679: END IF;
3680:
3681: IF p_utilization_rec.volume_offer_tiers_id = fnd_api.g_miss_num THEN
3682: x_complete_rec.volume_offer_tiers_id := NULL;
3683: END IF;
3684: IF p_utilization_rec.volume_offer_tiers_id IS NULL THEN
3685: x_complete_rec.volume_offer_tiers_id := l_utilization_rec.volume_offer_tiers_id;
3685: x_complete_rec.volume_offer_tiers_id := l_utilization_rec.volume_offer_tiers_id;
3686: END IF;
3687:
3688: -- yzhao: 03/20/2003 added gl_posted_flag
3689: IF p_utilization_rec.gl_posted_flag = fnd_api.g_miss_char THEN
3690: x_complete_rec.gl_posted_flag := NULL;
3691: END IF;
3692: IF p_utilization_rec.gl_posted_flag IS NULL THEN
3693: x_complete_rec.gl_posted_flag := l_utilization_rec.gl_posted_flag;
3693: x_complete_rec.gl_posted_flag := l_utilization_rec.gl_posted_flag;
3694: END IF;
3695:
3696: -- 11/04/2003 yzhao 11.5.10: added
3697: IF p_utilization_rec.billto_cust_account_id = fnd_api.g_miss_num THEN
3698: x_complete_rec.billto_cust_account_id := NULL;
3699: END IF;
3700: IF p_utilization_rec.billto_cust_account_id IS NULL THEN
3701: x_complete_rec.billto_cust_account_id := l_utilization_rec.billto_cust_account_id;
3700: IF p_utilization_rec.billto_cust_account_id IS NULL THEN
3701: x_complete_rec.billto_cust_account_id := l_utilization_rec.billto_cust_account_id;
3702: END IF;
3703:
3704: IF p_utilization_rec.reference_type = fnd_api.g_miss_char THEN
3705: x_complete_rec.reference_type := NULL;
3706: END IF;
3707: IF p_utilization_rec.reference_type IS NULL THEN
3708: x_complete_rec.reference_type := l_utilization_rec.reference_type;
3707: IF p_utilization_rec.reference_type IS NULL THEN
3708: x_complete_rec.reference_type := l_utilization_rec.reference_type;
3709: END IF;
3710:
3711: IF p_utilization_rec.reference_id = fnd_api.g_miss_num THEN
3712: x_complete_rec.reference_id := NULL;
3713: END IF;
3714: IF p_utilization_rec.reference_id IS NULL THEN
3715: x_complete_rec.reference_id := l_utilization_rec.reference_id;
3715: x_complete_rec.reference_id := l_utilization_rec.reference_id;
3716: END IF;
3717:
3718: /*fix for bug 4778995
3719: IF p_utilization_rec.month_id = fnd_api.g_miss_num THEN
3720: x_complete_rec.month_id := NULL;
3721: END IF;
3722: IF p_utilization_rec.month_id IS NULL THEN
3723: x_complete_rec.month_id := l_utilization_rec.month_id;
3722: IF p_utilization_rec.month_id IS NULL THEN
3723: x_complete_rec.month_id := l_utilization_rec.month_id;
3724: END IF;
3725:
3726: IF p_utilization_rec.quarter_id = fnd_api.g_miss_num THEN
3727: x_complete_rec.quarter_id := NULL;
3728: END IF;
3729: IF p_utilization_rec.quarter_id IS NULL THEN
3730: x_complete_rec.quarter_id := l_utilization_rec.quarter_id;
3729: IF p_utilization_rec.quarter_id IS NULL THEN
3730: x_complete_rec.quarter_id := l_utilization_rec.quarter_id;
3731: END IF;
3732:
3733: IF p_utilization_rec.year_id = fnd_api.g_miss_num THEN
3734: x_complete_rec.year_id := NULL;
3735: END IF;
3736: IF p_utilization_rec.year_id IS NULL THEN
3737: x_complete_rec.year_id := l_utilization_rec.year_id;
3737: x_complete_rec.year_id := l_utilization_rec.year_id;
3738: END IF;
3739: */
3740:
3741: IF p_utilization_rec.order_line_id = fnd_api.g_miss_num THEN
3742: x_complete_rec.order_line_id := NULL;
3743: END IF;
3744: IF p_utilization_rec.order_line_id IS NULL THEN
3745: x_complete_rec.order_line_id := l_utilization_rec.order_line_id;
3744: IF p_utilization_rec.order_line_id IS NULL THEN
3745: x_complete_rec.order_line_id := l_utilization_rec.order_line_id;
3746: END IF;
3747:
3748: IF p_utilization_rec.orig_utilization_id = fnd_api.g_miss_num THEN
3749: x_complete_rec.orig_utilization_id := NULL;
3750: END IF;
3751: IF p_utilization_rec.orig_utilization_id IS NULL THEN
3752: x_complete_rec.orig_utilization_id := l_utilization_rec.orig_utilization_id;
3752: x_complete_rec.orig_utilization_id := l_utilization_rec.orig_utilization_id;
3753: END IF;
3754:
3755: -- R12: yzhao add
3756: IF p_utilization_rec.univ_curr_amount = fnd_api.g_miss_num THEN
3757: x_complete_rec.univ_curr_amount := NULL;
3758: END IF;
3759: IF p_utilization_rec.univ_curr_amount IS NULL THEN
3760: x_complete_rec.univ_curr_amount := l_utilization_rec.univ_curr_amount;
3759: IF p_utilization_rec.univ_curr_amount IS NULL THEN
3760: x_complete_rec.univ_curr_amount := l_utilization_rec.univ_curr_amount;
3761: END IF;
3762:
3763: IF p_utilization_rec.univ_curr_amount_remaining = fnd_api.g_miss_num THEN
3764: x_complete_rec.univ_curr_amount_remaining := NULL;
3765: END IF;
3766: IF p_utilization_rec.univ_curr_amount_remaining IS NULL THEN
3767: x_complete_rec.univ_curr_amount_remaining := l_utilization_rec.univ_curr_amount_remaining;
3766: IF p_utilization_rec.univ_curr_amount_remaining IS NULL THEN
3767: x_complete_rec.univ_curr_amount_remaining := l_utilization_rec.univ_curr_amount_remaining;
3768: END IF;
3769:
3770: IF p_utilization_rec.bill_to_site_use_id = fnd_api.g_miss_num THEN
3771: x_complete_rec.bill_to_site_use_id := NULL;
3772: END IF;
3773: IF p_utilization_rec.bill_to_site_use_id IS NULL THEN
3774: x_complete_rec.bill_to_site_use_id := l_utilization_rec.bill_to_site_use_id;
3773: IF p_utilization_rec.bill_to_site_use_id IS NULL THEN
3774: x_complete_rec.bill_to_site_use_id := l_utilization_rec.bill_to_site_use_id;
3775: END IF;
3776:
3777: IF p_utilization_rec.ship_to_site_use_id = fnd_api.g_miss_num THEN
3778: x_complete_rec.ship_to_site_use_id := NULL;
3779: END IF;
3780: IF p_utilization_rec.ship_to_site_use_id IS NULL THEN
3781: x_complete_rec.ship_to_site_use_id := l_utilization_rec.ship_to_site_use_id;
3802:
3803:
3804: PROCEDURE create_act_utilization(
3805: p_api_version IN NUMBER
3806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3807: ,p_commit IN VARCHAR2 := fnd_api.g_false
3808: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3809: ,x_return_status OUT NOCOPY VARCHAR2
3810: ,x_msg_count OUT NOCOPY NUMBER
3803:
3804: PROCEDURE create_act_utilization(
3805: p_api_version IN NUMBER
3806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3807: ,p_commit IN VARCHAR2 := fnd_api.g_false
3808: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3809: ,x_return_status OUT NOCOPY VARCHAR2
3810: ,x_msg_count OUT NOCOPY NUMBER
3811: ,x_msg_data OUT NOCOPY VARCHAR2
3804: PROCEDURE create_act_utilization(
3805: p_api_version IN NUMBER
3806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3807: ,p_commit IN VARCHAR2 := fnd_api.g_false
3808: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3809: ,x_return_status OUT NOCOPY VARCHAR2
3810: ,x_msg_count OUT NOCOPY NUMBER
3811: ,x_msg_data OUT NOCOPY VARCHAR2
3812: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
3869: SELECT exchange_rate_type
3870: FROM ozf_sys_parameters_all
3871: WHERE org_id = p_org_id;
3872:
3873: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
3874: l_rate NUMBER;
3875:
3876:
3877: BEGIN
3881: ozf_utility_pvt.debug_message ( l_full_name
3882: || ': start');
3883: END IF;
3884:
3885: IF fnd_api.to_boolean (p_init_msg_list) THEN
3886: fnd_msg_pub.initialize;
3887: END IF;
3888:
3889: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3885: IF fnd_api.to_boolean (p_init_msg_list) THEN
3886: fnd_msg_pub.initialize;
3887: END IF;
3888:
3889: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3890: RAISE fnd_api.g_exc_unexpected_error;
3891: END IF;
3892:
3893: x_return_status := fnd_api.g_ret_sts_success;
3886: fnd_msg_pub.initialize;
3887: END IF;
3888:
3889: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3890: RAISE fnd_api.g_exc_unexpected_error;
3891: END IF;
3892:
3893: x_return_status := fnd_api.g_ret_sts_success;
3894:
3889: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3890: RAISE fnd_api.g_exc_unexpected_error;
3891: END IF;
3892:
3893: x_return_status := fnd_api.g_ret_sts_success;
3894:
3895: IF l_act_budgets_rec.transfer_type = 'UTILIZED' THEN
3896: l_act_budgets_rec.request_currency :=
3897: ozf_actbudgets_pvt.get_object_currency (
3916: ,x_to_amount=> l_act_budgets_rec.request_amount
3917: ,x_rate=> l_rate
3918: );
3919:
3920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3921: RAISE fnd_api.g_exc_unexpected_error;
3922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3923: RAISE fnd_api.g_exc_error;
3924: END IF;
3917: ,x_rate=> l_rate
3918: );
3919:
3920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3921: RAISE fnd_api.g_exc_unexpected_error;
3922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3923: RAISE fnd_api.g_exc_error;
3924: END IF;
3925: END IF;
3918: );
3919:
3920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3921: RAISE fnd_api.g_exc_unexpected_error;
3922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3923: RAISE fnd_api.g_exc_error;
3924: END IF;
3925: END IF;
3926: END IF;
3919:
3920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3921: RAISE fnd_api.g_exc_unexpected_error;
3922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3923: RAISE fnd_api.g_exc_error;
3924: END IF;
3925: END IF;
3926: END IF;
3927:
3983: p_act_util_rec=> l_act_util_rec,
3984: x_act_budget_id=> x_act_budget_id
3985: );
3986:
3987: IF l_return_status = fnd_api.g_ret_sts_error THEN
3988: RAISE fnd_api.g_exc_error;
3989: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3990: RAISE fnd_api.g_exc_unexpected_error;
3991: END IF;
3984: x_act_budget_id=> x_act_budget_id
3985: );
3986:
3987: IF l_return_status = fnd_api.g_ret_sts_error THEN
3988: RAISE fnd_api.g_exc_error;
3989: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3990: RAISE fnd_api.g_exc_unexpected_error;
3991: END IF;
3992:
3985: );
3986:
3987: IF l_return_status = fnd_api.g_ret_sts_error THEN
3988: RAISE fnd_api.g_exc_error;
3989: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3990: RAISE fnd_api.g_exc_unexpected_error;
3991: END IF;
3992:
3993: -- END IF;
3986:
3987: IF l_return_status = fnd_api.g_ret_sts_error THEN
3988: RAISE fnd_api.g_exc_error;
3989: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3990: RAISE fnd_api.g_exc_unexpected_error;
3991: END IF;
3992:
3993: -- END IF;
3994:
3993: -- END IF;
3994:
3995:
3996: -- Check for commit
3997: IF fnd_api.to_boolean (p_commit) THEN
3998: COMMIT;
3999: END IF;
4000:
4001: fnd_msg_pub.count_and_get (
3998: COMMIT;
3999: END IF;
4000:
4001: fnd_msg_pub.count_and_get (
4002: p_encoded=> fnd_api.g_false
4003: ,p_count=> x_msg_count
4004: ,p_data=> x_msg_data
4005: );
4006: IF G_DEBUG THEN
4008: || ': end');
4009: END IF;
4010:
4011: EXCEPTION
4012: WHEN fnd_api.g_exc_error THEN
4013: ROLLBACK TO create_act_utilization;
4014: x_return_status := fnd_api.g_ret_sts_error;
4015: fnd_msg_pub.count_and_get (
4016: p_encoded=> fnd_api.g_false
4010:
4011: EXCEPTION
4012: WHEN fnd_api.g_exc_error THEN
4013: ROLLBACK TO create_act_utilization;
4014: x_return_status := fnd_api.g_ret_sts_error;
4015: fnd_msg_pub.count_and_get (
4016: p_encoded=> fnd_api.g_false
4017: ,p_count=> x_msg_count
4018: ,p_data=> x_msg_data
4012: WHEN fnd_api.g_exc_error THEN
4013: ROLLBACK TO create_act_utilization;
4014: x_return_status := fnd_api.g_ret_sts_error;
4015: fnd_msg_pub.count_and_get (
4016: p_encoded=> fnd_api.g_false
4017: ,p_count=> x_msg_count
4018: ,p_data=> x_msg_data
4019: );
4020: WHEN fnd_api.g_exc_unexpected_error THEN
4016: p_encoded=> fnd_api.g_false
4017: ,p_count=> x_msg_count
4018: ,p_data=> x_msg_data
4019: );
4020: WHEN fnd_api.g_exc_unexpected_error THEN
4021: ROLLBACK TO create_act_utilization;
4022: x_return_status := fnd_api.g_ret_sts_unexp_error;
4023: fnd_msg_pub.count_and_get (
4024: p_encoded=> fnd_api.g_false
4018: ,p_data=> x_msg_data
4019: );
4020: WHEN fnd_api.g_exc_unexpected_error THEN
4021: ROLLBACK TO create_act_utilization;
4022: x_return_status := fnd_api.g_ret_sts_unexp_error;
4023: fnd_msg_pub.count_and_get (
4024: p_encoded=> fnd_api.g_false
4025: ,p_count=> x_msg_count
4026: ,p_data=> x_msg_data
4020: WHEN fnd_api.g_exc_unexpected_error THEN
4021: ROLLBACK TO create_act_utilization;
4022: x_return_status := fnd_api.g_ret_sts_unexp_error;
4023: fnd_msg_pub.count_and_get (
4024: p_encoded=> fnd_api.g_false
4025: ,p_count=> x_msg_count
4026: ,p_data=> x_msg_data
4027: );
4028: WHEN OTHERS THEN
4026: ,p_data=> x_msg_data
4027: );
4028: WHEN OTHERS THEN
4029: ROLLBACK TO create_act_utilization;
4030: x_return_status := fnd_api.g_ret_sts_unexp_error;
4031:
4032: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4033: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4034: END IF;
4033: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4034: END IF;
4035:
4036: fnd_msg_pub.count_and_get (
4037: p_encoded=> fnd_api.g_false
4038: ,p_count=> x_msg_count
4039: ,p_data=> x_msg_data
4040: );
4041: