[Home] [Help]
29: WHERE EXISTS( SELECT 1
30: FROM ams_act_products
31: WHERE act_product_used_by_id = p_fund_id AND arc_act_product_used_by = 'FUND');
32: BEGIN
33: x_return_status := fnd_api.g_ret_sts_success;
34: -- Fetch the cursor
35: OPEN c_product_elig;
36: FETCH c_product_elig INTO l_dummy;
37: CLOSE c_product_elig;
37: CLOSE c_product_elig;
38:
39: IF l_dummy IS NULL THEN
40: ozf_utility_pvt.error_message('OZF_ACCRUAL_NO_PROD');
41: x_return_status := fnd_api.g_ret_sts_error;
42: END IF;
43: END check_product_elig_exists;
44:
45:
80: l_par_curr_code VARCHAR2(30);
81: l_coverted_orig_budget NUMBER;
82: l_rate NUMBER;
83: BEGIN
84: x_return_status := fnd_api.g_ret_sts_success;
85:
86: IF p_parent_id IS NULL THEN
87: RETURN;
88: END IF;
123: END IF;
124: fnd_msg_pub.ADD;
125: END IF;
126:
127: x_return_status := fnd_api.g_ret_sts_error;
128: END IF;
129: END check_fund_amount_vs_parent;
130:
131:
152: WHERE fund_id = p_parent_id;
153:
154: l_parent_fund_type VARCHAR2(30);
155: BEGIN
156: x_return_status := fnd_api.g_ret_sts_success;
157:
158: IF p_parent_id IS NULL THEN
159: RETURN;
160: END IF;
172: fnd_message.set_name('OZF', 'OZF_CHILD_WRONG_FUND_TYPE');
173: END IF;
174: fnd_msg_pub.ADD;
175: END IF;
176: x_return_status := fnd_api.g_ret_sts_error;
177: END IF;
178: END check_fund_type_vs_parent;
179:
180:
202: l_parent_fund_status VARCHAR2(30);
203: l_parent_fund_type VARCHAR2(30);
204:
205: BEGIN
206: x_return_status := fnd_api.g_ret_sts_success;
207:
208:
209: IF p_parent_id IS NULL THEN
210: RETURN;
226: END IF;
227: fnd_msg_pub.ADD;
228: END IF;
229:
230: x_return_status := fnd_api.g_ret_sts_error;
231: END IF;
232: ELSIF p_status_code = 'ON_HOLD' THEN
233: -- Check parent fund status
234: IF l_parent_fund_status NOT IN ('ON_HOLD', 'ACTIVE') THEN
240: END IF;
241: fnd_msg_pub.ADD;
242: END IF;
243:
244: x_return_status := fnd_api.g_ret_sts_error;
245: END IF; --status_code
246: END IF;
247: END check_fund_status_vs_parent;
248:
272:
273: l_parent_start_date DATE;
274: l_parent_end_date DATE;
275: BEGIN
276: x_return_status := fnd_api.g_ret_sts_success;
277:
278: IF p_parent_id IS NULL THEN
279: RETURN;
280: END IF;
291: fnd_message.set_name('OZF', 'OZF_CHILD_ILLEGAL_DATE');
292: fnd_msg_pub.ADD;
293: END IF;
294:
295: x_return_status := fnd_api.g_ret_sts_error;
296: END IF;
297: END check_fund_dates_vs_parent;
298:
299:
319: WHERE fund_id = p_parent_id;
320:
321: l_parent_fund_curr VARCHAR2(30);
322: BEGIN
323: x_return_status := fnd_api.g_ret_sts_success;
324:
325: IF p_parent_id IS NULL THEN
326: RETURN;
327: END IF;
336: fnd_message.set_name('OZF', 'OZF_CHILD_ILLEGAL_CURRENCY');
337: fnd_msg_pub.ADD;
338: END IF;
339:
340: x_return_status := fnd_api.g_ret_sts_error;
341: END IF;
342: END check_fund_curr_vs_parent;
343:
344:
379: WHERE fund_id = p_fund_id;
380:
381: l_parent_fund_type VARCHAR2(30);
382: BEGIN
383: x_return_status := fnd_api.g_ret_sts_success;
384:
385: IF p_fund_id IS NULL THEN
386: RETURN;
387: END IF;
424: 'FUND_NAME',
425: l_sub_rec.short_name);
426: END IF;
427:
428: x_return_status := fnd_api.g_ret_sts_error;
429: END IF;
430: END LOOP;
431: END check_fund_amount_vs_child;
432:
454: fund_type AS fund_type
455: FROM ozf_funds_all_vl
456: WHERE parent_fund_id = p_fund_id;
457: BEGIN
458: x_return_status := fnd_api.g_ret_sts_success;
459:
460: IF p_fund_id IS NULL THEN
461: RETURN;
462: END IF;
463:
464: FOR l_sub_rec IN c_sub_fund
465: LOOP
466: IF p_start_date > l_sub_rec.start_date THEN
467: x_return_status := fnd_api.g_ret_sts_error;
468: IF l_sub_rec.fund_type = 'QUOTA' THEN
469: ozf_utility_pvt.error_message('OZF_TP_START_AFT_SUB_START', 'FUND_NAME', l_sub_rec.short_name);
470: ELSE
471: ozf_utility_pvt.error_message('OZF_FUND_START_AFT_SUB_START', 'FUND_NAME', l_sub_rec.short_name);
470: ELSE
471: ozf_utility_pvt.error_message('OZF_FUND_START_AFT_SUB_START', 'FUND_NAME', l_sub_rec.short_name);
472: END IF;
473: ELSIF p_start_date > l_sub_rec.end_date THEN
474: x_return_status := fnd_api.g_ret_sts_error;
475: IF l_sub_rec.fund_type = 'QUOTA' THEN
476: ozf_utility_pvt.error_message('OZF_TP_START_AFT_SUB_END', 'FUND_NAME', l_sub_rec.short_name);
477: ELSE
478: ozf_utility_pvt.error_message('OZF_FUND_START_AFT_SUB_END', 'FUND_NAME', l_sub_rec.short_name);
479: END IF;
480: END IF;
481:
482: IF p_end_date < l_sub_rec.end_date THEN
483: x_return_status := fnd_api.g_ret_sts_error;
484: IF l_sub_rec.fund_type = 'QUOTA' THEN
485: ozf_utility_pvt.error_message('OZF_TP_QUOTA_END_BEF_SUB_END', 'FUND_NAME', l_sub_rec.short_name);
486: ELSE
487: ozf_utility_pvt.error_message('OZF_FUND_END_BEF_SUB_END', 'FUND_NAME', l_sub_rec.short_name);
486: ELSE
487: ozf_utility_pvt.error_message('OZF_FUND_END_BEF_SUB_END', 'FUND_NAME', l_sub_rec.short_name);
488: END IF;
489: ELSIF p_end_date < l_sub_rec.start_date THEN
490: x_return_status := fnd_api.g_ret_sts_error;
491: IF l_sub_rec.fund_type = 'QUOTA' THEN
492: ozf_utility_pvt.error_message('OZF_TP_END_BEF_SUB_START', 'FUND_NAME', l_sub_rec.short_name);
493: ELSE
494: ozf_utility_pvt.error_message('OZF_FUND_END_BEF_SUB_START', 'FUND_NAME', l_sub_rec.short_name);
519: fund_type AS fund_type
520: FROM ozf_funds_all_vl
521: WHERE parent_fund_id = p_fund_id;
522: BEGIN
523: x_return_status := fnd_api.g_ret_sts_success;
524:
525: IF p_fund_id IS NULL THEN
526: RETURN;
527: END IF;
534: ozf_utility_pvt.error_message('OZF_TP_PAR_MISMATCH_CHILD_TYPE', 'FUND_NAME', l_sub_rec.short_name);
535: ELSE
536: ozf_utility_pvt.error_message('OZF_PAR_MISMATCH_CHILD_TYPE', 'FUND_NAME', l_sub_rec.short_name);
537: END IF;
538: x_return_status := fnd_api.g_ret_sts_error;
539: END IF;
540: END LOOP;
541: END check_fund_type_vs_child;
542:
563: fund_type AS fund_type
564: FROM ozf_funds_all_vl
565: WHERE parent_fund_id = p_fund_id;
566: BEGIN
567: x_return_status := fnd_api.g_ret_sts_success;
568:
569: IF p_fund_id IS NULL THEN
570: RETURN;
571: END IF;
578: ozf_utility_pvt.error_message('OZF_TP_PAR_MISMATCH_CHILD_CURR', 'FUND_NAME', l_sub_rec.short_name);
579: ELSE
580: ozf_utility_pvt.error_message('OZF_PAR_MISMATCH_CHILD_CURR', 'FUND_NAME', l_sub_rec.short_name);
581: END IF;
582: x_return_status := fnd_api.g_ret_sts_error;
583: END IF;
584: END LOOP;
585: END check_fund_curr_vs_child;
586:
670: WHERE NAME = p_end_period_name;
671: */
672:
673: BEGIN
674: x_return_status := fnd_api.g_ret_sts_success;
675:
676: -- check if p_fund_calendar is null
677: IF p_fund_calendar IS NULL AND p_start_period_name IS NULL AND p_end_period_name IS NULL THEN
678: RETURN;
676: -- check if p_fund_calendar is null
677: IF p_fund_calendar IS NULL AND p_start_period_name IS NULL AND p_end_period_name IS NULL THEN
678: RETURN;
679: ELSIF p_fund_calendar IS NULL THEN
680: x_return_status := fnd_api.g_ret_sts_error;
681: ozf_utility_pvt.error_message('OZF_FUND_NO_CALENDAR');
682: RETURN;
683: END IF;
684:
687: FETCH c_fund_calendar INTO l_local;
688: CLOSE c_fund_calendar;
689:
690: IF l_local IS NULL THEN
691: x_return_status := fnd_api.g_ret_sts_error;
692: ozf_utility_pvt.error_message('OZF_FUND_BAD_CALENDAR');
693: RETURN;
694: END IF;
695:
706: CLOSE c_start_period;
707: END IF;
708:
709: IF l_start_start IS NULL THEN
710: x_return_status := fnd_api.g_ret_sts_error;
711: ozf_utility_pvt.error_message('OZF_FUND_BAD_START_PERIOD');
712: RETURN;
713: ELSIF p_start_date < l_start_start
714: OR p_start_date > l_start_end THEN
711: ozf_utility_pvt.error_message('OZF_FUND_BAD_START_PERIOD');
712: RETURN;
713: ELSIF p_start_date < l_start_start
714: OR p_start_date > l_start_end THEN
715: x_return_status := fnd_api.g_ret_sts_error;
716: IF p_fund_type = 'QUOTA' THEN
717: ozf_utility_pvt.error_message('OZF_TP_QUOTA_OUT_START_PERIOD');
718: ELSE
719: ozf_utility_pvt.error_message('OZF_FUND_OUT_START_PERIOD');
734: CLOSE c_end_period;
735: END IF;
736:
737: IF l_end_end IS NULL THEN
738: x_return_status := fnd_api.g_ret_sts_error;
739: ozf_utility_pvt.error_message('OZF_FUND_BAD_END_PERIOD');
740: RETURN;
741: ELSIF TRUNC(p_end_date) < TRUNC(l_end_start)
742: OR TRUNC(p_end_date) > TRUNC(l_end_end) THEN
739: ozf_utility_pvt.error_message('OZF_FUND_BAD_END_PERIOD');
740: RETURN;
741: ELSIF TRUNC(p_end_date) < TRUNC(l_end_start)
742: OR TRUNC(p_end_date) > TRUNC(l_end_end) THEN
743: x_return_status := fnd_api.g_ret_sts_error;
744: IF p_fund_type = 'QUOTA' THEN
745: ozf_utility_pvt.error_message('OZF_TP_QUOTA_OUT_END_PERIOD');
746: ELSE
747: ozf_utility_pvt.error_message('OZF_FUND_OUT_END_PERIOD');
751: END IF;
752:
753: -- compare the start date and the end date
754: IF TRUNC(l_start_start) > TRUNC(l_end_end) THEN
755: x_return_status := fnd_api.g_ret_sts_error;
756: ozf_utility_pvt.error_message('OZF_FUND_BAD_PERIODS');
757: END IF;
758: END check_fund_calendar;
759:
793: p_old_fund_status IN VARCHAR2 := NULL,
794: x_msg_count OUT NOCOPY NUMBER,
795: x_msg_data OUT NOCOPY VARCHAR2,
796: x_return_status OUT NOCOPY VARCHAR2) IS
797: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
798: l_msg_count NUMBER;
799: l_msg_data VARCHAR2(2000);
800: l_api_name CONSTANT VARCHAR2(30) := 'process_offers';
801: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||
846: IF G_DEBUG THEN
847: ozf_utility_pvt.debug_message(l_full_name ||
848: ': create offers');
849: END IF;
850: x_return_status := fnd_api.g_ret_sts_success;
851:
852: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
853: RAISE fnd_api.g_exc_unexpected_error;
854: END IF;
848: ': create offers');
849: END IF;
850: x_return_status := fnd_api.g_ret_sts_success;
851:
852: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
853: RAISE fnd_api.g_exc_unexpected_error;
854: END IF;
855:
856: IF p_old_fund_status IS NULL THEN
849: END IF;
850: x_return_status := fnd_api.g_ret_sts_success;
851:
852: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
853: RAISE fnd_api.g_exc_unexpected_error;
854: END IF;
855:
856: IF p_old_fund_status IS NULL THEN
857: OPEN c_old_fund(p_fund_rec.fund_id);
863: IF G_DEBUG THEN
864: ozf_utility_pvt.debug_message('Create');
865: END IF;
866: -- first process_offerss in QP
867: l_offer_hdr_rec.qp_list_header_id := fnd_api.g_miss_num;
868: l_offer_hdr_rec.activity_media_id := p_fund_rec.task_id;
869: l_offer_hdr_rec.offer_id := fnd_api.g_miss_num;
870:
871: --kdass 18-MAY-2004 fix for bug 3628608
865: END IF;
866: -- first process_offerss in QP
867: l_offer_hdr_rec.qp_list_header_id := fnd_api.g_miss_num;
868: l_offer_hdr_rec.activity_media_id := p_fund_rec.task_id;
869: l_offer_hdr_rec.offer_id := fnd_api.g_miss_num;
870:
871: --kdass 18-MAY-2004 fix for bug 3628608
872: l_offer_hdr_rec.confidential_flag := 'Y';
873: -- commented for 11.5.9
874: /*
875: IF p_fund_rec.liability_flag = 'Y' THEN
876: l_offer_hdr_rec.offer_operation := 'CREATE';
877: ELSE
878: l_offer_hdr_rec.offer_operation := fnd_api.g_miss_char;
879: END IF;
880: */
881: l_offer_hdr_rec.offer_operation := 'CREATE';
882: l_offer_hdr_rec.modifier_operation := 'CREATE';
923: x_msg_data=> x_msg_data,
924: p_act_budgets_rec=> l_act_budgets_rec_type,
925: p_act_util_rec=> ozf_actbudgets_pvt.g_miss_act_util_rec,
926: x_act_budget_id=> l_act_budget_id,
927: p_approval_flag=> fnd_api.g_true);
928:
929: -- dbms_output.put_line('fundrules: create_act_budget returns ' || l_return_status);
930: -- dbms_output.put_line(' actbudget_used_by_id=' || l_act_budgets_rec_type.act_budget_used_by_id);
931: IF l_return_status = fnd_api.g_ret_sts_error THEN
927: p_approval_flag=> fnd_api.g_true);
928:
929: -- dbms_output.put_line('fundrules: create_act_budget returns ' || l_return_status);
930: -- dbms_output.put_line(' actbudget_used_by_id=' || l_act_budgets_rec_type.act_budget_used_by_id);
931: IF l_return_status = fnd_api.g_ret_sts_error THEN
932: RAISE fnd_api.g_exc_error;
933: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
928:
929: -- dbms_output.put_line('fundrules: create_act_budget returns ' || l_return_status);
930: -- dbms_output.put_line(' actbudget_used_by_id=' || l_act_budgets_rec_type.act_budget_used_by_id);
931: IF l_return_status = fnd_api.g_ret_sts_error THEN
932: RAISE fnd_api.g_exc_error;
933: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936:
929: -- dbms_output.put_line('fundrules: create_act_budget returns ' || l_return_status);
930: -- dbms_output.put_line(' actbudget_used_by_id=' || l_act_budgets_rec_type.act_budget_used_by_id);
931: IF l_return_status = fnd_api.g_ret_sts_error THEN
932: RAISE fnd_api.g_exc_error;
933: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936:
937: IF G_DEBUG THEN
930: -- dbms_output.put_line(' actbudget_used_by_id=' || l_act_budgets_rec_type.act_budget_used_by_id);
931: IF l_return_status = fnd_api.g_ret_sts_error THEN
932: RAISE fnd_api.g_exc_error;
933: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936:
937: IF G_DEBUG THEN
938: ozf_utility_pvt.debug_message(l_full_name ||
973: /*
974: IF p_fund_rec.liability_flag = 'Y' THEN
975: l_offer_hdr_rec.offer_operation := 'UPDATE';
976: ELSE
977: l_offer_hdr_rec.offer_operation := fnd_api.g_miss_char;
978: END IF;
979: */
980: l_offer_hdr_rec.offer_operation := 'UPDATE';
981: l_offer_hdr_rec.modifier_operation := 'UPDATE';
1048: p_fund_rec.fund_id;
1049: l_offer_hdr_rec.description := p_fund_rec.short_name;
1050: l_offer_hdr_rec.offer_amount := NVL(p_fund_rec.accrual_cap, 0);
1051: l_offer_hdr_rec.budget_amount_tc := NVL(p_fund_rec.accrual_cap, 0);
1052: --l_offer_hdr_rec.BUDGET_AMOUNT_FC NUMBER := Fnd_Api.g_miss_num
1053: IF l_qp_list_header_id IS NULL THEN
1054: l_offer_hdr_rec.offer_code := p_fund_rec.fund_number;
1055: END IF;
1056: l_offer_hdr_rec.ql_qualifier_type := p_fund_rec.apply_accrual_on;
1079:
1080: IF p_mode = 'CREATE' THEN
1081: IF NVL(fnd_profile.value('QP_SECURITY_CONTROL'), 'OFF') <> 'OFF' THEN
1082: -- QP_SECURITY_PROFILE IS ON.
1083: IF(p_fund_rec.org_id IS NULL OR p_fund_rec.org_id = FND_API.G_MISS_NUM) THEN
1084: -- DEFAULT OU IS NULL
1085: IF (NVL(fnd_profile.value('OZF_GLOBAL_FLAG'), 'N') = 'N') THEN
1086: OZF_Utility_PVT.Error_Message('OZF_ORG_ID_OR_GFLAG_REQD');
1087: RAISE FND_API.G_EXC_ERROR;
1083: IF(p_fund_rec.org_id IS NULL OR p_fund_rec.org_id = FND_API.G_MISS_NUM) THEN
1084: -- DEFAULT OU IS NULL
1085: IF (NVL(fnd_profile.value('OZF_GLOBAL_FLAG'), 'N') = 'N') THEN
1086: OZF_Utility_PVT.Error_Message('OZF_ORG_ID_OR_GFLAG_REQD');
1087: RAISE FND_API.G_EXC_ERROR;
1088: ELSE
1089: l_offer_hdr_rec.global_flag := 'Y';
1090: END IF;
1091: ELSE
1097: --QP_SECURITY_PROFILE IS OFF.
1098: IF (NVL(fnd_profile.value('OZF_GLOBAL_FLAG'), 'N') = 'N') THEN
1099: -- OZF_GLOBAL_FLAG IS NO.
1100: OZF_Utility_PVT.Error_Message('QP_SEC_PROF_AND_GFLAG_NOT_COMP');
1101: RAISE FND_API.G_EXC_ERROR;
1102: ELSE
1103: l_offer_hdr_rec.global_flag := 'Y';
1104: END IF;
1105: END IF;
1107: ELSIF p_mode = 'UPDATE' THEN
1108:
1109: OZF_Utility_PVT.debug_message(FND_LOG.LEVEL_STATEMENT,'ozf_fundrules_pvt','Update mode = p_fund_rec.org_id'|| p_fund_rec.org_id);
1110:
1111: IF p_fund_rec.org_id IS NOT NULL AND p_fund_rec.org_id <> FND_API.G_MISS_NUM AND NVL(fnd_profile.value('QP_SECURITY_CONTROL'), 'OFF') <> 'OFF' THEN
1112: l_offer_hdr_rec.global_flag := 'N';
1113: l_offer_hdr_rec.orig_org_id := p_fund_rec.org_id; /*12_11_2012 pass it to offer API process_modifier*/
1114: ELSE
1115: l_offer_hdr_rec.global_flag := 'Y';
1131: AND p_fund_rec.status_code in('ACTIVE','ON_HOLD','REJECTED') THEN
1132: */
1133: ozf_offer_pvt.update_offer_status
1134: (
1135: p_commit => fnd_api.g_false,
1136: x_return_status=> l_return_status,
1137: x_msg_count=> x_msg_count,
1138: x_msg_data=> x_msg_data,
1139: p_modifier_list_rec => l_offer_hdr_rec
1138: x_msg_data=> x_msg_data,
1139: p_modifier_list_rec => l_offer_hdr_rec
1140: );
1141:
1142: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1143: IF G_DEBUG THEN
1144: ozf_utility_pvt.debug_message('OZF_OFFR_UPDATE_SATAUS FAIL');
1145: END IF;
1146:
1143: IF G_DEBUG THEN
1144: ozf_utility_pvt.debug_message('OZF_OFFR_UPDATE_SATAUS FAIL');
1145: END IF;
1146:
1147: IF l_return_status = fnd_api.g_ret_sts_error THEN
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1150: RAISE fnd_api.g_exc_unexpected_error;
1151: END IF;
1144: ozf_utility_pvt.debug_message('OZF_OFFR_UPDATE_SATAUS FAIL');
1145: END IF;
1146:
1147: IF l_return_status = fnd_api.g_ret_sts_error THEN
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1150: RAISE fnd_api.g_exc_unexpected_error;
1151: END IF;
1152: END IF;
1145: END IF;
1146:
1147: IF l_return_status = fnd_api.g_ret_sts_error THEN
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1150: RAISE fnd_api.g_exc_unexpected_error;
1151: END IF;
1152: END IF;
1153:
1146:
1147: IF l_return_status = fnd_api.g_ret_sts_error THEN
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1150: RAISE fnd_api.g_exc_unexpected_error;
1151: END IF;
1152: END IF;
1153:
1154: ELSE
1155: IF G_DEBUG THEN
1156: ozf_utility_pvt.debug_message('process modifiers');
1157: END IF;
1158: ozf_offer_pvt.process_modifiers(
1159: p_init_msg_list=> fnd_api.g_false,
1160: p_api_version=> 1.0,
1161: p_commit=> fnd_api.g_false,
1162: x_return_status=> l_return_status,
1163: x_msg_count=> x_msg_count,
1157: END IF;
1158: ozf_offer_pvt.process_modifiers(
1159: p_init_msg_list=> fnd_api.g_false,
1160: p_api_version=> 1.0,
1161: p_commit=> fnd_api.g_false,
1162: x_return_status=> l_return_status,
1163: x_msg_count=> x_msg_count,
1164: x_msg_data=> x_msg_data,
1165: p_modifier_list_rec=> l_offer_hdr_rec,
1176: x_msg_data);
1177: END IF;
1178: END IF;
1179:
1180: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1181: IF G_DEBUG THEN
1182: ozf_utility_pvt.debug_message('OZF_OFFR_QP_FAILURE' ||
1183: l_error_location ||
1184: x_msg_data);
1184: x_msg_data);
1185: END IF;
1186:
1187: -- ozf_utility_pvt.error_message('OZF_OFFR_QP_FAILURE'||l_error_location||x_msg_data);
1188: IF l_return_status = fnd_api.g_ret_sts_error THEN
1189: RAISE fnd_api.g_exc_error;
1190: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1191: RAISE fnd_api.g_exc_unexpected_error;
1192: END IF;
1185: END IF;
1186:
1187: -- ozf_utility_pvt.error_message('OZF_OFFR_QP_FAILURE'||l_error_location||x_msg_data);
1188: IF l_return_status = fnd_api.g_ret_sts_error THEN
1189: RAISE fnd_api.g_exc_error;
1190: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1191: RAISE fnd_api.g_exc_unexpected_error;
1192: END IF;
1193: END IF;
1186:
1187: -- ozf_utility_pvt.error_message('OZF_OFFR_QP_FAILURE'||l_error_location||x_msg_data);
1188: IF l_return_status = fnd_api.g_ret_sts_error THEN
1189: RAISE fnd_api.g_exc_error;
1190: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1191: RAISE fnd_api.g_exc_unexpected_error;
1192: END IF;
1193: END IF;
1194:
1187: -- ozf_utility_pvt.error_message('OZF_OFFR_QP_FAILURE'||l_error_location||x_msg_data);
1188: IF l_return_status = fnd_api.g_ret_sts_error THEN
1189: RAISE fnd_api.g_exc_error;
1190: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1191: RAISE fnd_api.g_exc_unexpected_error;
1192: END IF;
1193: END IF;
1194:
1195: -- Update ozf_offers with status code 'PENDING' by incrementing object_version_number.
1249: IF p_fund_rec.accrual_discount_level <> 'ORDER' THEN
1250: l_offer_advd_opt_rec.pricing_group_sequence := p_fund_rec.accrual_method;
1251: END IF;
1252:
1253: --l_offer_advd_opt_rec.PRINT_ON_INVOICE_FLAG VARCHAR2(1) := Fnd_Api.g_miss_char
1254: ozf_offer_pvt.process_adv_options(
1255: p_init_msg_list=> fnd_api.g_false,
1256: p_api_version=> 1.0,
1257: p_commit=> fnd_api.g_false,
1251: END IF;
1252:
1253: --l_offer_advd_opt_rec.PRINT_ON_INVOICE_FLAG VARCHAR2(1) := Fnd_Api.g_miss_char
1254: ozf_offer_pvt.process_adv_options(
1255: p_init_msg_list=> fnd_api.g_false,
1256: p_api_version=> 1.0,
1257: p_commit=> fnd_api.g_false,
1258: x_return_status=> l_return_status,
1259: x_msg_count=> l_msg_count,
1253: --l_offer_advd_opt_rec.PRINT_ON_INVOICE_FLAG VARCHAR2(1) := Fnd_Api.g_miss_char
1254: ozf_offer_pvt.process_adv_options(
1255: p_init_msg_list=> fnd_api.g_false,
1256: p_api_version=> 1.0,
1257: p_commit=> fnd_api.g_false,
1258: x_return_status=> l_return_status,
1259: x_msg_count=> l_msg_count,
1260: x_msg_data=> l_msg_data,
1261: p_advanced_options_rec=> l_offer_advd_opt_rec);
1263: ozf_utility_pvt.debug_message('ret status for process adv options =>' ||
1264: l_return_status);
1265: END IF;
1266:
1267: IF l_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1264: l_return_status);
1265: END IF;
1266:
1267: IF l_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272: END IF;
1265: END IF;
1266:
1267: IF l_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272: END IF;
1273: */
1266:
1267: IF l_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1270: RAISE fnd_api.g_exc_unexpected_error;
1271: END IF;
1272: END IF;
1273: */
1274: EXCEPTION
1271: END IF;
1272: END IF;
1273: */
1274: EXCEPTION
1275: WHEN fnd_api.g_exc_error THEN
1276: ROLLBACK TO process_offers;
1277: x_return_status := fnd_api.g_ret_sts_error;
1278: fnd_msg_pub.count_and_get(
1279: p_encoded=> fnd_api.g_false,
1273: */
1274: EXCEPTION
1275: WHEN fnd_api.g_exc_error THEN
1276: ROLLBACK TO process_offers;
1277: x_return_status := fnd_api.g_ret_sts_error;
1278: fnd_msg_pub.count_and_get(
1279: p_encoded=> fnd_api.g_false,
1280: p_count=> x_msg_count,
1281: p_data=> x_msg_data);
1275: WHEN fnd_api.g_exc_error THEN
1276: ROLLBACK TO process_offers;
1277: x_return_status := fnd_api.g_ret_sts_error;
1278: fnd_msg_pub.count_and_get(
1279: p_encoded=> fnd_api.g_false,
1280: p_count=> x_msg_count,
1281: p_data=> x_msg_data);
1282: WHEN fnd_api.g_exc_unexpected_error THEN
1283: ROLLBACK TO process_offers;
1278: fnd_msg_pub.count_and_get(
1279: p_encoded=> fnd_api.g_false,
1280: p_count=> x_msg_count,
1281: p_data=> x_msg_data);
1282: WHEN fnd_api.g_exc_unexpected_error THEN
1283: ROLLBACK TO process_offers;
1284: x_return_status := fnd_api.g_ret_sts_unexp_error;
1285: fnd_msg_pub.count_and_get(
1286: p_encoded=> fnd_api.g_false,
1280: p_count=> x_msg_count,
1281: p_data=> x_msg_data);
1282: WHEN fnd_api.g_exc_unexpected_error THEN
1283: ROLLBACK TO process_offers;
1284: x_return_status := fnd_api.g_ret_sts_unexp_error;
1285: fnd_msg_pub.count_and_get(
1286: p_encoded=> fnd_api.g_false,
1287: p_count=> x_msg_count,
1288: p_data=> x_msg_data);
1282: WHEN fnd_api.g_exc_unexpected_error THEN
1283: ROLLBACK TO process_offers;
1284: x_return_status := fnd_api.g_ret_sts_unexp_error;
1285: fnd_msg_pub.count_and_get(
1286: p_encoded=> fnd_api.g_false,
1287: p_count=> x_msg_count,
1288: p_data=> x_msg_data);
1289: WHEN OTHERS THEN
1290: ROLLBACK TO process_offers;
1287: p_count=> x_msg_count,
1288: p_data=> x_msg_data);
1289: WHEN OTHERS THEN
1290: ROLLBACK TO process_offers;
1291: x_return_status := fnd_api.g_ret_sts_unexp_error;
1292:
1293: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1294: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1295: END IF;
1294: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1295: END IF;
1296:
1297: fnd_msg_pub.count_and_get(
1298: p_encoded=> fnd_api.g_false,
1299: p_count=> x_msg_count,
1300: p_data=> x_msg_data);
1301: END process_offers;
1302:
1334: BEGIN
1335: -- If the fund_status is changing from 'DRAFT to 'ACTIVE', we need to create a record in the
1336: -- FUND_REQUESTS table for the holdback amount.
1337: SAVEPOINT process_approval;
1338: x_return_status := fnd_api.g_ret_sts_success;
1339:
1340: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1341: RAISE fnd_api.g_exc_unexpected_error;
1342: END IF;
1336: -- FUND_REQUESTS table for the holdback amount.
1337: SAVEPOINT process_approval;
1338: x_return_status := fnd_api.g_ret_sts_success;
1339:
1340: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1341: RAISE fnd_api.g_exc_unexpected_error;
1342: END IF;
1343:
1344: IF p_mode = 'ACTIVE' THEN
1337: SAVEPOINT process_approval;
1338: x_return_status := fnd_api.g_ret_sts_success;
1339:
1340: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1341: RAISE fnd_api.g_exc_unexpected_error;
1342: END IF;
1343:
1344: IF p_mode = 'ACTIVE' THEN
1345: IF (NVL(p_fund_rec.holdback_amt, 0) <> 0) THEN
1366: x_msg_data=> x_msg_data,
1367: p_act_budgets_rec=> l_act_budget_rec,
1368: x_act_budget_id=> l_act_budget_id);
1369:
1370: IF l_return_status = fnd_api.g_ret_sts_error THEN
1371: RAISE fnd_api.g_exc_error;
1372: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1373: RAISE fnd_api.g_exc_unexpected_error;
1374: END IF;
1367: p_act_budgets_rec=> l_act_budget_rec,
1368: x_act_budget_id=> l_act_budget_id);
1369:
1370: IF l_return_status = fnd_api.g_ret_sts_error THEN
1371: RAISE fnd_api.g_exc_error;
1372: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1373: RAISE fnd_api.g_exc_unexpected_error;
1374: END IF;
1375: END IF; -- end for holdback mat
1368: x_act_budget_id=> l_act_budget_id);
1369:
1370: IF l_return_status = fnd_api.g_ret_sts_error THEN
1371: RAISE fnd_api.g_exc_error;
1372: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1373: RAISE fnd_api.g_exc_unexpected_error;
1374: END IF;
1375: END IF; -- end for holdback mat
1376: END IF;
1369:
1370: IF l_return_status = fnd_api.g_ret_sts_error THEN
1371: RAISE fnd_api.g_exc_error;
1372: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1373: RAISE fnd_api.g_exc_unexpected_error;
1374: END IF;
1375: END IF; -- end for holdback mat
1376: END IF;
1377:
1385: x_return_status=> l_return_status,
1386: x_msg_count=> x_msg_count,
1387: x_msg_data=> x_msg_data);
1388:
1389: IF l_return_status = fnd_api.g_ret_sts_error THEN
1390: RAISE fnd_api.g_exc_error;
1391: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1392: RAISE fnd_api.g_exc_unexpected_error;
1393: END IF;
1386: x_msg_count=> x_msg_count,
1387: x_msg_data=> x_msg_data);
1388:
1389: IF l_return_status = fnd_api.g_ret_sts_error THEN
1390: RAISE fnd_api.g_exc_error;
1391: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1392: RAISE fnd_api.g_exc_unexpected_error;
1393: END IF;
1394: END IF;
1387: x_msg_data=> x_msg_data);
1388:
1389: IF l_return_status = fnd_api.g_ret_sts_error THEN
1390: RAISE fnd_api.g_exc_error;
1391: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1392: RAISE fnd_api.g_exc_unexpected_error;
1393: END IF;
1394: END IF;
1395:
1388:
1389: IF l_return_status = fnd_api.g_ret_sts_error THEN
1390: RAISE fnd_api.g_exc_error;
1391: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1392: RAISE fnd_api.g_exc_unexpected_error;
1393: END IF;
1394: END IF;
1395:
1396: IF G_DEBUG THEN
1397: ozf_utility_pvt.debug_message(l_full_name ||
1398: ': end');
1399: END IF;
1400: EXCEPTION
1401: WHEN fnd_api.g_exc_error THEN
1402: ROLLBACK TO process_approval;
1403: x_return_status := fnd_api.g_ret_sts_error;
1404: fnd_msg_pub.count_and_get(
1405: p_encoded=> fnd_api.g_false,
1399: END IF;
1400: EXCEPTION
1401: WHEN fnd_api.g_exc_error THEN
1402: ROLLBACK TO process_approval;
1403: x_return_status := fnd_api.g_ret_sts_error;
1404: fnd_msg_pub.count_and_get(
1405: p_encoded=> fnd_api.g_false,
1406: p_count=> x_msg_count,
1407: p_data=> x_msg_data);
1401: WHEN fnd_api.g_exc_error THEN
1402: ROLLBACK TO process_approval;
1403: x_return_status := fnd_api.g_ret_sts_error;
1404: fnd_msg_pub.count_and_get(
1405: p_encoded=> fnd_api.g_false,
1406: p_count=> x_msg_count,
1407: p_data=> x_msg_data);
1408: WHEN fnd_api.g_exc_unexpected_error THEN
1409: ROLLBACK TO process_approval;
1404: fnd_msg_pub.count_and_get(
1405: p_encoded=> fnd_api.g_false,
1406: p_count=> x_msg_count,
1407: p_data=> x_msg_data);
1408: WHEN fnd_api.g_exc_unexpected_error THEN
1409: ROLLBACK TO process_approval;
1410: x_return_status := fnd_api.g_ret_sts_unexp_error;
1411: fnd_msg_pub.count_and_get(
1412: p_encoded=> fnd_api.g_false,
1406: p_count=> x_msg_count,
1407: p_data=> x_msg_data);
1408: WHEN fnd_api.g_exc_unexpected_error THEN
1409: ROLLBACK TO process_approval;
1410: x_return_status := fnd_api.g_ret_sts_unexp_error;
1411: fnd_msg_pub.count_and_get(
1412: p_encoded=> fnd_api.g_false,
1413: p_count=> x_msg_count,
1414: p_data=> x_msg_data);
1408: WHEN fnd_api.g_exc_unexpected_error THEN
1409: ROLLBACK TO process_approval;
1410: x_return_status := fnd_api.g_ret_sts_unexp_error;
1411: fnd_msg_pub.count_and_get(
1412: p_encoded=> fnd_api.g_false,
1413: p_count=> x_msg_count,
1414: p_data=> x_msg_data);
1415: WHEN OTHERS THEN
1416: ROLLBACK TO process_approval;
1413: p_count=> x_msg_count,
1414: p_data=> x_msg_data);
1415: WHEN OTHERS THEN
1416: ROLLBACK TO process_approval;
1417: x_return_status := fnd_api.g_ret_sts_unexp_error;
1418:
1419: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1420: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1421: END IF;
1420: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1421: END IF;
1422:
1423: fnd_msg_pub.count_and_get(
1424: p_encoded=> fnd_api.g_false,
1425: p_count=> x_msg_count,
1426: p_data=> x_msg_data);
1427: END process_approval;
1428:
1462: l_earned_amt NUMBER;
1463: l_paid_amt NUMBER;
1464: l_fund_type VARCHAR2(20);
1465: BEGIN
1466: x_return_status := fnd_api.g_ret_sts_success;
1467:
1468: OPEN c_get_fund_amount;
1469: FETCH c_get_fund_amount INTO l_total_budget, l_committed_amt, l_utilized_amt, l_earned_amt, l_paid_amt, l_fund_type;
1470: CLOSE c_get_fund_amount;
1476: ozf_utility_pvt.error_message('OZF_TP_QUOTA_BAN_CLOSE');
1477: ELSE
1478: ozf_utility_pvt.error_message('OZF_FUND_BAN_CLOSE');
1479: END IF;
1480: x_return_status := fnd_api.g_ret_sts_error;
1481: ELSIF l_total_budget < l_committed_amt THEN
1482: -- total < re-calculated committed This only happens when profile 'OZF_BUDGET_ADJ_ALLOW_RECAL' is 'Y'
1483: -- don't close budget because re-calculated committed has committed funds for over the pool of money originally available,
1484: -- need a budget transfer into the budget
1486: ozf_utility_pvt.error_message('OZF_TP_QUOTA_BAN_CLOSE');
1487: ELSE
1488: ozf_utility_pvt.error_message('OZF_FUND_BAN_CLOSE_COMM_MORE');
1489: END IF;
1490: x_return_status := fnd_api.g_ret_sts_error;
1491: ELSE
1492: -- total = committed
1493: IF l_committed_amt > l_utilized_amt THEN
1494: -- total = calculated committed > utilized
1497: ozf_utility_pvt.error_message('OZF_TP_QUOTA_BAN_CLOSE');
1498: ELSE
1499: ozf_utility_pvt.error_message('OZF_FUND_BAN_CLOSE_UTIL_LESS');
1500: END IF;
1501: x_return_status := fnd_api.g_ret_sts_error;
1502: ELSIF l_committed_amt = l_utilized_amt THEN
1503: -- total = committed = utilized
1504: IF l_utilized_amt > l_earned_amt THEN
1505: -- total = calculated committed = utilized > earned
1508: ozf_utility_pvt.error_message('OZF_TP_QUOTA_BAN_CLOSE');
1509: ELSE
1510: ozf_utility_pvt.error_message('OZF_FUND_BAN_CLOSE_EARN_LESS');
1511: END IF;
1512: x_return_status := fnd_api.g_ret_sts_error;
1513: ELSIF l_utilized_amt = l_earned_amt THEN
1514: -- total = calculated committed = utilized = earned
1515: IF l_earned_amt > l_paid_amt THEN
1516: -- total = re-calculated committed = utilized = earned > paid
1520: ozf_utility_pvt.error_message('OZF_TP_QUOTA_BAN_CLOSE');
1521: ELSE
1522: ozf_utility_pvt.error_message('OZF_FUND_BAN_CLOSE_PAID_LESS');
1523: END IF;
1524: x_return_status := fnd_api.g_ret_sts_error;
1525: ELSIF l_earned_amt = l_paid_amt THEN
1526: -- total = re-calculated committed = utilized = earned = paid
1527: x_return_status := fnd_api.g_ret_sts_success;
1528: END IF;
1523: END IF;
1524: x_return_status := fnd_api.g_ret_sts_error;
1525: ELSIF l_earned_amt = l_paid_amt THEN
1526: -- total = re-calculated committed = utilized = earned = paid
1527: x_return_status := fnd_api.g_ret_sts_success;
1528: END IF;
1529: END IF;
1530: END IF;
1531: END IF;
1530: END IF;
1531: END IF;
1532: EXCEPTION
1533: WHEN OTHERS THEN
1534: x_return_status := fnd_api.g_ret_sts_unexp_error;
1535: fnd_msg_pub.count_and_get(
1536: p_encoded => fnd_api.g_false
1537: ,p_count => x_msg_count
1538: ,p_data => x_msg_data);
1532: EXCEPTION
1533: WHEN OTHERS THEN
1534: x_return_status := fnd_api.g_ret_sts_unexp_error;
1535: fnd_msg_pub.count_and_get(
1536: p_encoded => fnd_api.g_false
1537: ,p_count => x_msg_count
1538: ,p_data => x_msg_data);
1539: END check_fund_before_close;
1540:
1567: l_api_name CONSTANT VARCHAR2(30) := 'Update_fund_status';
1568: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||
1569: '.' ||
1570: l_api_name;
1571: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1572: l_msg_count NUMBER;
1573: l_msg_data VARCHAR2(4000);
1574: l_old_status_code VARCHAR2(30);
1575: l_old_user_status_id NUMBER;
1608: IF G_DEBUG THEN
1609: ozf_utility_pvt.debug_message(l_full_name ||
1610: '- enter');
1611: END IF;
1612: x_return_status := fnd_api.g_ret_sts_success;
1613: -- initiallize the out params 08/14/2001 mpande added
1614: x_submit_budget_approval := fnd_api.g_false;
1615: x_submit_child_approval := fnd_api.g_false;
1616: --Get old_status
1610: '- enter');
1611: END IF;
1612: x_return_status := fnd_api.g_ret_sts_success;
1613: -- initiallize the out params 08/14/2001 mpande added
1614: x_submit_budget_approval := fnd_api.g_false;
1615: x_submit_child_approval := fnd_api.g_false;
1616: --Get old_status
1617: OPEN l_old_status;
1618: FETCH l_old_status INTO l_old_status_code, l_old_user_status_id, l_old_owner_id, l_fund_type, l_plan_id;
1611: END IF;
1612: x_return_status := fnd_api.g_ret_sts_success;
1613: -- initiallize the out params 08/14/2001 mpande added
1614: x_submit_budget_approval := fnd_api.g_false;
1615: x_submit_child_approval := fnd_api.g_false;
1616: --Get old_status
1617: OPEN l_old_status;
1618: FETCH l_old_status INTO l_old_status_code, l_old_user_status_id, l_old_owner_id, l_fund_type, l_plan_id;
1619: CLOSE l_old_status;
1634: END IF;
1635: --return the old status
1636: x_new_status_id := l_old_user_status_id;
1637: x_new_status_code := l_old_status_code;
1638: x_return_status := fnd_api.g_ret_sts_error;
1639: ELSE
1640: x_new_status_code := p_fund_rec.status_code;
1641: x_new_status_id := p_fund_rec.user_status_id;
1642: END IF;
1683: l_status_type,
1684: l_new_status_code);
1685: x_new_status_code := l_new_status_code;
1686: IF p_fund_rec.parent_fund_id IS NOT NULL THEN
1687: x_submit_child_approval := fnd_api.g_true;
1688: END IF;
1689: END IF;
1690: -- niprakas ends
1691:
1695: l_status_type,
1696: l_new_status_code);
1697: x_new_status_code := l_new_status_code;
1698: IF p_fund_rec.parent_fund_id IS NOT NULL THEN
1699: x_submit_child_approval := fnd_api.g_true;
1700: END IF;
1701: ELSE
1702: /* yzhao: 01/29/2003 fix bug 2775762 MKTF1R9:1159.0127:FUNC: ACCRUAL BUDGET CANNOT GO ACTIVE
1703: for accrual budget, check if discount rule already defined
1711: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1712: FND_MESSAGE.set_name('OZF', 'OZF_OFFR_NO_DISC_LINES');
1713: FND_MSG_PUB.add;
1714: END IF;
1715: RAISE FND_API.g_exc_error;
1716: END IF;
1717: END IF;
1718: -- yzhao: 01/29/2003 fix bug 2775762 ends
1719:
1725: ozf_utility_pvt.debug_message(l_full_name ||
1726: 'owner' ||
1727: p_fund_rec.owner);
1728: END IF;
1729: x_submit_child_approval := fnd_api.g_true;
1730: OPEN c_parent_fund_owner(p_fund_rec.parent_fund_id);
1731: FETCH c_parent_fund_owner INTO l_approver_id;
1732:
1733: IF (c_parent_fund_owner%NOTFOUND) THEN
1737: fnd_message.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1738: fnd_msg_pub.ADD;
1739: END IF;
1740:
1741: RAISE fnd_api.g_exc_error;
1742: END IF;
1743:
1744: CLOSE c_parent_fund_owner;
1745:
1765: -- the approval API would updatethe fund status to pending
1766: IF G_DEBUG THEN
1767: ozf_utility_pvt.debug_message('Approval');
1768: END IF;
1769: x_submit_budget_approval := fnd_api.g_true;
1770: x_new_status_id := ozf_utility_pvt.get_default_user_status(l_status_type, 'PENDING');
1771: x_new_status_code := 'PENDING';
1772: END IF; -- end of parent fund id check
1773: END IF; -- IF (p_fund_rec.fund_usage == 'ALLOC')
1776: ozf_utility_pvt.error_message('OZF_FUND_WRONG_STATUS');
1777: --return the old status
1778: x_new_status_id := l_old_user_status_id;
1779: x_new_status_code := l_old_status_code;
1780: x_return_status := fnd_api.g_ret_sts_error;
1781: ELSE
1782: x_new_status_code := p_fund_rec.status_code;
1783: x_new_status_id := p_fund_rec.user_status_id;
1784: END IF; -- end for old draft
1786: ELSIF l_old_status_code IN('ACTIVE', 'ON_HOLD') THEN
1787: IF l_new_status_code IN('CANCELLED', 'CLOSED') THEN
1788: -- 06/14/2004 yzhao: for quota, do not check remaining amount before closing
1789: IF l_fund_type = 'QUOTA' THEN
1790: l_return_status := fnd_api.g_ret_sts_success;
1791: ELSE
1792: check_fund_before_close( p_fund_id => p_fund_rec.fund_id
1793: , x_return_status => l_return_status
1794: , x_msg_count => l_msg_count
1793: , x_return_status => l_return_status
1794: , x_msg_count => l_msg_count
1795: , x_msg_data => l_msg_data);
1796: END IF;
1797: IF l_return_status = fnd_api.g_ret_sts_success THEN
1798: x_new_status_code := p_fund_rec.status_code;
1799: x_new_status_id := p_fund_rec.user_status_id;
1800: ELSE
1801: -- can not close budget, return the old status
1800: ELSE
1801: -- can not close budget, return the old status
1802: x_new_status_id := l_old_user_status_id;
1803: x_new_status_code := l_old_status_code;
1804: x_return_status := fnd_api.g_ret_sts_error;
1805: END IF;
1806:
1807: -- 05/11/2003 niprakas added the else loop for the bug#2950428
1808: ELSIF l_new_status_code IN('ACTIVE') THEN
1815: ozf_utility_pvt.error_message('OZF_FUND_WRONG_STATUS');
1816: -- return the old status
1817: x_new_status_id := l_old_user_status_id;
1818: x_new_status_code := l_old_status_code;
1819: x_return_status := fnd_api.g_ret_sts_error;
1820: END IF;
1821: -- 01/20/2003 yzhao bug 2532491 ends
1822:
1823: ELSE
1843: IF l_resource_id = l_old_owner_id
1844: OR ams_access_pvt.check_admin_access(l_resource_id) THEN
1845: x_new_status_id := l_old_user_status_id;
1846: x_new_status_code := l_old_status_code;
1847: x_return_status := fnd_api.g_ret_sts_success;
1848: ELSE
1849: --ozf_utility_pvt.error_message('OZF_FUND_BAN_UPDATE');
1850: IF l_fund_type = 'QUOTA' THEN
1851: ozf_utility_pvt.error_message('OZF_TP_QUOTA_UPDT_OWNER_PERM');
1854: END IF;
1855: --return the old status
1856: x_new_status_id := l_old_user_status_id;
1857: x_new_status_code := l_old_status_code;
1858: x_return_status := fnd_api.g_ret_sts_error;
1859: END IF;
1860: /*
1861: ELSIF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
1862: x_new_status_id := l_old_user_status_id;
1860: /*
1861: ELSIF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
1862: x_new_status_id := l_old_user_status_id;
1863: x_new_status_code := l_old_status_code;
1864: x_return_status := fnd_api.g_ret_sts_success;
1865: */
1866: ELSE
1867: x_new_status_code := p_fund_rec.status_code;
1868: x_new_status_id := p_fund_rec.user_status_id;
1865: */
1866: ELSE
1867: x_new_status_code := p_fund_rec.status_code;
1868: x_new_status_id := p_fund_rec.user_status_id;
1869: x_return_status := fnd_api.g_ret_sts_success;
1870: END IF;
1871: ELSE
1872: x_new_status_code := p_fund_rec.status_code;
1873: x_new_status_id := p_fund_rec.user_status_id;
1877: ozf_utility_pvt.debug_message(l_full_name ||
1878: ': end');
1879: END IF;
1880: EXCEPTION
1881: WHEN fnd_api.g_exc_error THEN
1882: ROLLBACK TO update_fund_status;
1883: x_return_status := fnd_api.g_ret_sts_error;
1884: fnd_msg_pub.count_and_get(
1885: p_encoded=> fnd_api.g_false,
1879: END IF;
1880: EXCEPTION
1881: WHEN fnd_api.g_exc_error THEN
1882: ROLLBACK TO update_fund_status;
1883: x_return_status := fnd_api.g_ret_sts_error;
1884: fnd_msg_pub.count_and_get(
1885: p_encoded=> fnd_api.g_false,
1886: p_count=> x_msg_count,
1887: p_data=> x_msg_data);
1881: WHEN fnd_api.g_exc_error THEN
1882: ROLLBACK TO update_fund_status;
1883: x_return_status := fnd_api.g_ret_sts_error;
1884: fnd_msg_pub.count_and_get(
1885: p_encoded=> fnd_api.g_false,
1886: p_count=> x_msg_count,
1887: p_data=> x_msg_data);
1888: WHEN fnd_api.g_exc_unexpected_error THEN
1889: ROLLBACK TO update_fund_status;
1884: fnd_msg_pub.count_and_get(
1885: p_encoded=> fnd_api.g_false,
1886: p_count=> x_msg_count,
1887: p_data=> x_msg_data);
1888: WHEN fnd_api.g_exc_unexpected_error THEN
1889: ROLLBACK TO update_fund_status;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1891: fnd_msg_pub.count_and_get(
1892: p_encoded=> fnd_api.g_false,
1886: p_count=> x_msg_count,
1887: p_data=> x_msg_data);
1888: WHEN fnd_api.g_exc_unexpected_error THEN
1889: ROLLBACK TO update_fund_status;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1891: fnd_msg_pub.count_and_get(
1892: p_encoded=> fnd_api.g_false,
1893: p_count=> x_msg_count,
1894: p_data=> x_msg_data);
1888: WHEN fnd_api.g_exc_unexpected_error THEN
1889: ROLLBACK TO update_fund_status;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1891: fnd_msg_pub.count_and_get(
1892: p_encoded=> fnd_api.g_false,
1893: p_count=> x_msg_count,
1894: p_data=> x_msg_data);
1895: WHEN OTHERS THEN
1896: ROLLBACK TO update_fund_status;
1893: p_count=> x_msg_count,
1894: p_data=> x_msg_data);
1895: WHEN OTHERS THEN
1896: ROLLBACK TO update_fund_status;
1897: x_return_status := fnd_api.g_ret_sts_unexp_error;
1898:
1899: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1900: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1901: END IF;
1900: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
1901: END IF;
1902:
1903: fnd_msg_pub.count_and_get(
1904: p_encoded=> fnd_api.g_false,
1905: p_count=> x_msg_count,
1906: p_data=> x_msg_data);
1907: END update_fund_status;
1908:
1951: ozf_utility_pvt.debug_message(l_full_name ||
1952: ': begin');
1953: END IF;
1954: SAVEPOINT process_accrual;
1955: x_return_status := fnd_api.g_ret_sts_success;
1956:
1957: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1958: RAISE fnd_api.g_exc_unexpected_error;
1959: END IF;
1953: END IF;
1954: SAVEPOINT process_accrual;
1955: x_return_status := fnd_api.g_ret_sts_success;
1956:
1957: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1958: RAISE fnd_api.g_exc_unexpected_error;
1959: END IF;
1960:
1961: -- dbms_OUTPUT.put_line('FUND ID ' ||
1954: SAVEPOINT process_accrual;
1955: x_return_status := fnd_api.g_ret_sts_success;
1956:
1957: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1958: RAISE fnd_api.g_exc_unexpected_error;
1959: END IF;
1960:
1961: -- dbms_OUTPUT.put_line('FUND ID ' ||
1962: -- p_fund_rec.fund_id ||
1976: x_msg_count=> l_msg_count,
1977: x_msg_data=> l_msg_data,
1978: x_return_status=> l_return_status);
1979:
1980: IF l_return_status = fnd_api.g_ret_sts_error THEN
1981: RAISE fnd_api.g_exc_error;
1982: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1977: x_msg_data=> l_msg_data,
1978: x_return_status=> l_return_status);
1979:
1980: IF l_return_status = fnd_api.g_ret_sts_error THEN
1981: RAISE fnd_api.g_exc_error;
1982: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1978: x_return_status=> l_return_status);
1979:
1980: IF l_return_status = fnd_api.g_ret_sts_error THEN
1981: RAISE fnd_api.g_exc_error;
1982: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: EXCEPTION
1979:
1980: IF l_return_status = fnd_api.g_ret_sts_error THEN
1981: RAISE fnd_api.g_exc_error;
1982: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: EXCEPTION
1987: WHEN fnd_api.g_exc_error THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: EXCEPTION
1987: WHEN fnd_api.g_exc_error THEN
1988: ROLLBACK TO process_accrual;
1989: x_return_status := fnd_api.g_ret_sts_error;
1990: fnd_msg_pub.count_and_get(
1991: p_encoded=> fnd_api.g_false,
1985:
1986: EXCEPTION
1987: WHEN fnd_api.g_exc_error THEN
1988: ROLLBACK TO process_accrual;
1989: x_return_status := fnd_api.g_ret_sts_error;
1990: fnd_msg_pub.count_and_get(
1991: p_encoded=> fnd_api.g_false,
1992: p_count=> x_msg_count,
1993: p_data=> x_msg_data);
1987: WHEN fnd_api.g_exc_error THEN
1988: ROLLBACK TO process_accrual;
1989: x_return_status := fnd_api.g_ret_sts_error;
1990: fnd_msg_pub.count_and_get(
1991: p_encoded=> fnd_api.g_false,
1992: p_count=> x_msg_count,
1993: p_data=> x_msg_data);
1994: WHEN fnd_api.g_exc_unexpected_error THEN
1995: ROLLBACK TO process_accrual;
1990: fnd_msg_pub.count_and_get(
1991: p_encoded=> fnd_api.g_false,
1992: p_count=> x_msg_count,
1993: p_data=> x_msg_data);
1994: WHEN fnd_api.g_exc_unexpected_error THEN
1995: ROLLBACK TO process_accrual;
1996: x_return_status := fnd_api.g_ret_sts_unexp_error;
1997: fnd_msg_pub.count_and_get(
1998: p_encoded=> fnd_api.g_false,
1992: p_count=> x_msg_count,
1993: p_data=> x_msg_data);
1994: WHEN fnd_api.g_exc_unexpected_error THEN
1995: ROLLBACK TO process_accrual;
1996: x_return_status := fnd_api.g_ret_sts_unexp_error;
1997: fnd_msg_pub.count_and_get(
1998: p_encoded=> fnd_api.g_false,
1999: p_count=> x_msg_count,
2000: p_data=> x_msg_data);
1994: WHEN fnd_api.g_exc_unexpected_error THEN
1995: ROLLBACK TO process_accrual;
1996: x_return_status := fnd_api.g_ret_sts_unexp_error;
1997: fnd_msg_pub.count_and_get(
1998: p_encoded=> fnd_api.g_false,
1999: p_count=> x_msg_count,
2000: p_data=> x_msg_data);
2001: WHEN OTHERS THEN
2002: ROLLBACK TO process_accrual;
1999: p_count=> x_msg_count,
2000: p_data=> x_msg_data);
2001: WHEN OTHERS THEN
2002: ROLLBACK TO process_accrual;
2003: x_return_status := fnd_api.g_ret_sts_unexp_error;
2004:
2005: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2006: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2007: END IF;
2006: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2007: END IF;
2008:
2009: fnd_msg_pub.count_and_get(
2010: p_encoded=> fnd_api.g_false,
2011: p_count=> x_msg_count,
2012: p_data=> x_msg_data);
2013: END process_accrual;
2014: END ozf_fundrules_pvt;