[Home] [Help]
46: -- from Workflow.
47:
48: PROCEDURE Approve_ActBudget (
49: p_api_version IN NUMBER,
50: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
51: p_commit IN VARCHAR2 := FND_API.G_FALSE,
52: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
47:
48: PROCEDURE Approve_ActBudget (
49: p_api_version IN NUMBER,
50: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
51: p_commit IN VARCHAR2 := FND_API.G_FALSE,
52: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
55: x_msg_data OUT NOCOPY VARCHAR2,
48: PROCEDURE Approve_ActBudget (
49: p_api_version IN NUMBER,
50: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
51: p_commit IN VARCHAR2 := FND_API.G_FALSE,
52: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
55: x_msg_data OUT NOCOPY VARCHAR2,
56:
71: -- requested budget amount. The API is called
72: -- from Workflow.
73: PROCEDURE Reject_ActBudget (
74: p_api_version IN NUMBER,
75: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
76: p_commit IN VARCHAR2 := FND_API.G_FALSE,
77: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
78: x_return_status OUT NOCOPY VARCHAR2,
79: x_msg_count OUT NOCOPY NUMBER,
72: -- from Workflow.
73: PROCEDURE Reject_ActBudget (
74: p_api_version IN NUMBER,
75: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
76: p_commit IN VARCHAR2 := FND_API.G_FALSE,
77: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
78: x_return_status OUT NOCOPY VARCHAR2,
79: x_msg_count OUT NOCOPY NUMBER,
80: x_msg_data OUT NOCOPY VARCHAR2,
73: PROCEDURE Reject_ActBudget (
74: p_api_version IN NUMBER,
75: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
76: p_commit IN VARCHAR2 := FND_API.G_FALSE,
77: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
78: x_return_status OUT NOCOPY VARCHAR2,
79: x_msg_count OUT NOCOPY NUMBER,
80: x_msg_data OUT NOCOPY VARCHAR2,
81:
129: -- HISTORY
130: -- 12-Sep-2000 choang Created.
131: PROCEDURE WF_Respond (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
130: -- 12-Sep-2000 choang Created.
131: PROCEDURE WF_Respond (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
138: x_msg_data OUT NOCOPY VARCHAR2,
131: PROCEDURE WF_Respond (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
134: p_commit IN VARCHAR2 := FND_API.G_FALSE,
135: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
138: x_msg_data OUT NOCOPY VARCHAR2,
139:
158: FROM ams_user_statuses_vl
159: WHERE user_status_id = p_status_id;
160: BEGIN
161: -- Standard call to check for call compatibility.
162: IF NOT FND_API.Compatible_API_Call ( l_api_version,
163: p_api_version,
164: l_api_name,
165: G_PACKAGE_NAME)
166: THEN
163: p_api_version,
164: l_api_name,
165: G_PACKAGE_NAME)
166: THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169: -- Initialize message list if p_init_msg_list is set to TRUE.
170: IF FND_API.to_Boolean( p_init_msg_list ) THEN
171: FND_MSG_PUB.initialize;
166: THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169: -- Initialize message list if p_init_msg_list is set to TRUE.
170: IF FND_API.to_Boolean( p_init_msg_list ) THEN
171: FND_MSG_PUB.initialize;
172: END IF;
173: -- Initialize API return status to success
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
170: IF FND_API.to_Boolean( p_init_msg_list ) THEN
171: FND_MSG_PUB.initialize;
172: END IF;
173: -- Initialize API return status to success
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
175:
176: OPEN c_status_code (p_respond_status_id);
177: FETCH c_status_code INTO l_status_code;
178: CLOSE c_status_code;
186:
187: IF l_status_code = 'APPROVED' THEN
188: Approve_ActBudget (
189: p_api_version => 1.0,
190: p_init_msg_list => FND_API.g_false,
191: p_commit => FND_API.g_false,
192: p_validation_level => p_validation_level,
193: x_return_status => x_return_status,
194: x_msg_count => x_msg_count,
187: IF l_status_code = 'APPROVED' THEN
188: Approve_ActBudget (
189: p_api_version => 1.0,
190: p_init_msg_list => FND_API.g_false,
191: p_commit => FND_API.g_false,
192: p_validation_level => p_validation_level,
193: x_return_status => x_return_status,
194: x_msg_count => x_msg_count,
195: x_msg_data => x_msg_data,
203: );
204: ELSIF l_status_code = 'REJECTED' THEN
205: Reject_ActBudget (
206: p_api_version => 1.0,
207: p_init_msg_list => FND_API.g_false,
208: p_commit => FND_API.g_false,
209: p_validation_level => p_validation_level,
210: x_return_status => x_return_status,
211: x_msg_count => x_msg_count,
204: ELSIF l_status_code = 'REJECTED' THEN
205: Reject_ActBudget (
206: p_api_version => 1.0,
207: p_init_msg_list => FND_API.g_false,
208: p_commit => FND_API.g_false,
209: p_validation_level => p_validation_level,
210: x_return_status => x_return_status,
211: x_msg_count => x_msg_count,
212: x_msg_data => x_msg_data,
227: -- 11/12/2001 mpande added the following
228: l_act_budget_rec.comment := p_comment ;
229: OZF_ActBudgets_PVT.Update_Act_Budgets (
230: p_api_version => 1.0,
231: p_init_msg_list => FND_API.g_false,
232: p_commit => FND_API.g_false,
233: p_validation_level => p_validation_level,
234: x_return_status => x_return_status,
235: x_msg_count => x_msg_count,
228: l_act_budget_rec.comment := p_comment ;
229: OZF_ActBudgets_PVT.Update_Act_Budgets (
230: p_api_version => 1.0,
231: p_init_msg_list => FND_API.g_false,
232: p_commit => FND_API.g_false,
233: p_validation_level => p_validation_level,
234: x_return_status => x_return_status,
235: x_msg_count => x_msg_count,
236: x_msg_data => x_msg_data,
237: p_act_budgets_rec => l_act_budget_rec
238: );
239: END IF;
240:
241: IF (p_commit = FND_API.g_true) THEN
242: COMMIT WORK;
243: END IF;
244: END WF_Respond;
245:
254: -- HISTORY
255: -- 16-Aug-2000 choang Created.
256: PROCEDURE Approve_ActBudget (
257: p_api_version IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: x_return_status OUT NOCOPY VARCHAR2,
262: x_msg_count OUT NOCOPY NUMBER,
255: -- 16-Aug-2000 choang Created.
256: PROCEDURE Approve_ActBudget (
257: p_api_version IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: x_return_status OUT NOCOPY VARCHAR2,
262: x_msg_count OUT NOCOPY NUMBER,
263: x_msg_data OUT NOCOPY VARCHAR2,
256: PROCEDURE Approve_ActBudget (
257: p_api_version IN NUMBER,
258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: x_return_status OUT NOCOPY VARCHAR2,
262: x_msg_count OUT NOCOPY NUMBER,
263: x_msg_data OUT NOCOPY VARCHAR2,
264:
304: -- HISTORY
305: -- 16-Aug-2000 choang Created.
306: PROCEDURE Reject_ActBudget (
307: p_api_version IN NUMBER,
308: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
309: p_commit IN VARCHAR2 := FND_API.G_FALSE,
310: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
311: x_return_status OUT NOCOPY VARCHAR2,
312: x_msg_count OUT NOCOPY NUMBER,
305: -- 16-Aug-2000 choang Created.
306: PROCEDURE Reject_ActBudget (
307: p_api_version IN NUMBER,
308: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
309: p_commit IN VARCHAR2 := FND_API.G_FALSE,
310: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
311: x_return_status OUT NOCOPY VARCHAR2,
312: x_msg_count OUT NOCOPY NUMBER,
313: x_msg_data OUT NOCOPY VARCHAR2,
306: PROCEDURE Reject_ActBudget (
307: p_api_version IN NUMBER,
308: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
309: p_commit IN VARCHAR2 := FND_API.G_FALSE,
310: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
311: x_return_status OUT NOCOPY VARCHAR2,
312: x_msg_count OUT NOCOPY NUMBER,
313: x_msg_data OUT NOCOPY VARCHAR2,
314:
369: -- PURPOSE
370: -- Close the books for the budget source line.
371: PROCEDURE Close_ActBudget (
372: p_api_version IN NUMBER,
373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
376: x_return_status OUT NOCOPY VARCHAR2,
377: x_msg_count OUT NOCOPY NUMBER,
370: -- Close the books for the budget source line.
371: PROCEDURE Close_ActBudget (
372: p_api_version IN NUMBER,
373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
376: x_return_status OUT NOCOPY VARCHAR2,
377: x_msg_count OUT NOCOPY NUMBER,
378: x_msg_data OUT NOCOPY VARCHAR2,
371: PROCEDURE Close_ActBudget (
372: p_api_version IN NUMBER,
373: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
374: p_commit IN VARCHAR2 := FND_API.G_FALSE,
375: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
376: x_return_status OUT NOCOPY VARCHAR2,
377: x_msg_count OUT NOCOPY NUMBER,
378: x_msg_data OUT NOCOPY VARCHAR2,
379:
421: AND budget_source_type = 'FUND'
422: AND status_code = 'APPROVED';
423:
424: l_camp_owner_id NUMBER;
425: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
426: l_notification_id NUMBER;
427: l_camp_status VARCHAR2(30);
428: l_strSubject VARCHAR2(200);
429: l_partner_name VARCHAR2(30);
481: ,x_notif_id => l_notification_id
482: ,x_return_status => l_return_status
483: );
484:
485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
486: RAISE fnd_api.g_exc_error;
487: END IF;
488:
489: END IF;
482: ,x_return_status => l_return_status
483: );
484:
485: IF l_return_status <> fnd_api.g_ret_sts_success THEN
486: RAISE fnd_api.g_exc_error;
487: END IF;
488:
489: END IF;
490: EXCEPTION
488:
489: END IF;
490: EXCEPTION
491: WHEN OTHERS THEN
492: x_return_status := fnd_api.g_ret_sts_error;
493: END notify_vendor;
494:
495:
496: /* zy: print whole string. For debug only. Remove them when done
577: l_fund_rec.object_version_number := l_object_version_number;
578:
579: -- reduce the committed amount of the budget
580: ozf_funds_pvt.update_fund( p_api_version => 1.0
581: ,p_init_msg_list => fnd_api.g_false
582: ,p_commit => fnd_api.g_false
583: ,p_validation_level => fnd_api.g_valid_level_full
584: ,x_return_status => l_return_status
585: ,x_msg_count => l_msg_count
578:
579: -- reduce the committed amount of the budget
580: ozf_funds_pvt.update_fund( p_api_version => 1.0
581: ,p_init_msg_list => fnd_api.g_false
582: ,p_commit => fnd_api.g_false
583: ,p_validation_level => fnd_api.g_valid_level_full
584: ,x_return_status => l_return_status
585: ,x_msg_count => l_msg_count
586: ,x_msg_data => l_msg_data
579: -- reduce the committed amount of the budget
580: ozf_funds_pvt.update_fund( p_api_version => 1.0
581: ,p_init_msg_list => fnd_api.g_false
582: ,p_commit => fnd_api.g_false
583: ,p_validation_level => fnd_api.g_valid_level_full
584: ,x_return_status => l_return_status
585: ,x_msg_count => l_msg_count
586: ,x_msg_data => l_msg_data
587: ,p_fund_rec => l_fund_rec
587: ,p_fund_rec => l_fund_rec
588: ,p_mode => jtf_plsql_api.g_update
589: );
590:
591: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
592: x_return_status := l_return_status;
593: RAISE fnd_api.G_EXC_ERROR;
594: END IF;
595:
589: );
590:
591: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
592: x_return_status := l_return_status;
593: RAISE fnd_api.G_EXC_ERROR;
594: END IF;
595:
596: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
597: l_act_budgets_rec.status_code := 'NEW';
594: END IF;
595:
596: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
597: l_act_budgets_rec.status_code := 'NEW';
598: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
599: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
600: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
601: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
595:
596: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
597: l_act_budgets_rec.status_code := 'NEW';
598: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
599: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
600: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
601: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
603:
596: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
597: l_act_budgets_rec.status_code := 'NEW';
598: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
599: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
600: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
601: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
603:
604: -- revert the APPROVED budget line to NEW
597: l_act_budgets_rec.status_code := 'NEW';
598: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
599: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
600: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
601: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
603:
604: -- revert the APPROVED budget line to NEW
605: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
598: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
599: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
600: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
601: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
603:
604: -- revert the APPROVED budget line to NEW
605: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
606: ,p_init_msg_list => fnd_api.g_false
602: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
603:
604: -- revert the APPROVED budget line to NEW
605: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
606: ,p_init_msg_list => fnd_api.g_false
607: ,p_commit => fnd_api.g_false
608: ,p_validation_level => fnd_api.g_valid_level_full
609: ,x_return_status => l_return_status
610: ,x_msg_count => l_msg_count
603:
604: -- revert the APPROVED budget line to NEW
605: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
606: ,p_init_msg_list => fnd_api.g_false
607: ,p_commit => fnd_api.g_false
608: ,p_validation_level => fnd_api.g_valid_level_full
609: ,x_return_status => l_return_status
610: ,x_msg_count => l_msg_count
611: ,x_msg_data => l_msg_data
604: -- revert the APPROVED budget line to NEW
605: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
606: ,p_init_msg_list => fnd_api.g_false
607: ,p_commit => fnd_api.g_false
608: ,p_validation_level => fnd_api.g_valid_level_full
609: ,x_return_status => l_return_status
610: ,x_msg_count => l_msg_count
611: ,x_msg_data => l_msg_data
612: ,p_act_budgets_rec => l_act_budgets_rec);
610: ,x_msg_count => l_msg_count
611: ,x_msg_data => l_msg_data
612: ,p_act_budgets_rec => l_act_budgets_rec);
613:
614: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
615: x_return_status := l_return_status;
616: RAISE fnd_api.G_EXC_ERROR;
617: END IF;
618:
612: ,p_act_budgets_rec => l_act_budgets_rec);
613:
614: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
615: x_return_status := l_return_status;
616: RAISE fnd_api.G_EXC_ERROR;
617: END IF;
618:
619: /*
620: -- delete utilization record
618:
619: /*
620: -- delete utilization record
621: ozf_fund_utilized_pvt.delete_utilization ( p_api_version => 1.0
622: ,p_init_msg_list => fnd_api.g_false
623: ,p_commit => fnd_api.g_false
624: ,x_return_status => l_return_status
625: ,x_msg_count => l_msg_count
626: ,x_msg_data => l_msg_data
619: /*
620: -- delete utilization record
621: ozf_fund_utilized_pvt.delete_utilization ( p_api_version => 1.0
622: ,p_init_msg_list => fnd_api.g_false
623: ,p_commit => fnd_api.g_false
624: ,x_return_status => l_return_status
625: ,x_msg_count => l_msg_count
626: ,x_msg_data => l_msg_data
627: ,p_utilization_id => l_utilization_id
626: ,x_msg_data => l_msg_data
627: ,p_utilization_id => l_utilization_id
628: ,p_object_version => l_util_object_version);
629:
630: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
631: x_return_status := l_return_status;
632: RAISE fnd_api.G_EXC_ERROR;
633: END IF;
634: */
628: ,p_object_version => l_util_object_version);
629:
630: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
631: x_return_status := l_return_status;
632: RAISE fnd_api.G_EXC_ERROR;
633: END IF;
634: */
635: END LOOP;
636:
638:
639: EXCEPTION
640: WHEN OTHERS THEN
641: ROLLBACK TO revert_approved_request;
642: x_return_status := fnd_api.g_ret_sts_error;
643: fnd_msg_pub.count_and_get (
644: p_count => x_msg_count
645: , p_data => x_msg_data
646: , p_encoded => fnd_api.g_false
642: x_return_status := fnd_api.g_ret_sts_error;
643: fnd_msg_pub.count_and_get (
644: p_count => x_msg_count
645: , p_data => x_msg_data
646: , p_encoded => fnd_api.g_false
647: );
648:
649: END revert_approved_request;
650:
710: FETCH c_check_exclude_items INTO l_exist_number;
711: CLOSE c_check_exclude_items;
712: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
713: IF l_exist_number = 1 THEN
714: x_return_status := fnd_api.g_ret_sts_success;
715: x_valid_flag := fnd_api.g_false;
716: RETURN;
717: END IF;
718: ELSE
711: CLOSE c_check_exclude_items;
712: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
713: IF l_exist_number = 1 THEN
714: x_return_status := fnd_api.g_ret_sts_success;
715: x_valid_flag := fnd_api.g_false;
716: RETURN;
717: END IF;
718: ELSE
719: OPEN c_check_items;
720: FETCH c_check_items INTO l_exist_number;
721: CLOSE c_check_items;
722: ----dbms_output.put_line('l_exist_number: ' || l_exist_number);
723: IF l_exist_number = 1 THEN
724: x_return_status := fnd_api.g_ret_sts_success;
725: x_valid_flag := fnd_api.g_false;
726: RETURN;
727: END IF;
728: END IF;
721: CLOSE c_check_items;
722: ----dbms_output.put_line('l_exist_number: ' || l_exist_number);
723: IF l_exist_number = 1 THEN
724: x_return_status := fnd_api.g_ret_sts_success;
725: x_valid_flag := fnd_api.g_false;
726: RETURN;
727: END IF;
728: END IF;
729: END check_product_market_strict;
778: FETCH c_check_exclude_items INTO l_exist_number;
779: CLOSE c_check_exclude_items;
780: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
781: IF NVL(l_exist_number,0) <> 1 THEN
782: x_return_status := fnd_api.g_ret_sts_success;
783: x_valid_flag := fnd_api.g_false;
784: RETURN;
785: END IF;
786: ELSE
779: CLOSE c_check_exclude_items;
780: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
781: IF NVL(l_exist_number,0) <> 1 THEN
782: x_return_status := fnd_api.g_ret_sts_success;
783: x_valid_flag := fnd_api.g_false;
784: RETURN;
785: END IF;
786: ELSE
787: OPEN c_check_items;
788: FETCH c_check_items INTO l_exist_number;
789: CLOSE c_check_items;
790: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
791: IF NVL(l_exist_number,0) <> 1 THEN
792: x_return_status := fnd_api.g_ret_sts_success;
793: x_valid_flag := fnd_api.g_false;
794: RETURN;
795: END IF;
796: END IF;
789: CLOSE c_check_items;
790: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
791: IF NVL(l_exist_number,0) <> 1 THEN
792: x_return_status := fnd_api.g_ret_sts_success;
793: x_valid_flag := fnd_api.g_false;
794: RETURN;
795: END IF;
796: END IF;
797:
833: AND arc_act_product_used_by = p_arc_act_product_used_by
834: AND excluded_flag = p_excluded_flag;
835:
836: BEGIN
837: x_return_status := fnd_api.G_RET_STS_SUCCESS;
838: x_budget_prod := FALSE;
839: x_exclude_prod := FALSE;
840: SAVEPOINT denorm_product_for_one_budget;
841:
946:
947: EXCEPTION
948: WHEN OTHERS THEN
949: ROLLBACK TO denorm_product_for_one_budget;
950: x_return_status := fnd_api.g_ret_sts_error;
951: END denorm_product_for_one_budget;
952:
953:
954: -------------------------------------------------------------------
987: AND arc_act_market_segment_used_by = 'FUND'
988: AND exclude_flag = p_exclude_flag;
989:
990: BEGIN
991: x_return_status := fnd_api.G_RET_STS_SUCCESS;
992: x_budget_mark := FALSE;
993: x_exclude_mark := FALSE;
994: SAVEPOINT denorm_market_for_one_budget;
995:
1162:
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: ROLLBACK TO denorm_market_for_one_budget;
1166: x_return_status := fnd_api.g_ret_sts_error;
1167:
1168: END denorm_market_for_one_budget;
1169:
1170:
1223: WHERE object_type = 'OFFR';
1224:
1225: BEGIN
1226:
1227: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1228: x_valid_flag := fnd_api.G_TRUE;
1229:
1230: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1231:
1224:
1225: BEGIN
1226:
1227: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1228: x_valid_flag := fnd_api.G_TRUE;
1229:
1230: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1231:
1232: denorm_product_for_one_budget (
1235: x_exclude_prod => l_exclude_prod,
1236: x_return_status => l_return_status,
1237: x_msg_count => l_msg_count,
1238: x_msg_data => l_msg_data);
1239: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1240: x_return_status := l_return_status;
1241: RAISE fnd_api.G_EXC_ERROR;
1242: END IF;
1243:
1237: x_msg_count => l_msg_count,
1238: x_msg_data => l_msg_data);
1239: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1240: x_return_status := l_return_status;
1241: RAISE fnd_api.G_EXC_ERROR;
1242: END IF;
1243:
1244: -- no product eligibility for budget, validation is true.
1245: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1242: END IF;
1243:
1244: -- no product eligibility for budget, validation is true.
1245: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1246: x_return_status := fnd_api.g_ret_sts_success;
1247: x_valid_flag := fnd_api.g_true;
1248: RETURN;
1249: END IF;
1250: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1243:
1244: -- no product eligibility for budget, validation is true.
1245: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1246: x_return_status := fnd_api.g_ret_sts_success;
1247: x_valid_flag := fnd_api.g_true;
1248: RETURN;
1249: END IF;
1250: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1251: l_exclude_only := TRUE;
1295: ELSE -- for other offer,
1296: -- get offer's product eligibility query
1297: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1298: p_api_version => 1.0,
1299: p_init_msg_list => fnd_api.g_false,
1300: p_commit => fnd_api.g_false,
1301: p_list_header_id => p_object_id,
1302: p_calling_from_den => 'N',
1303: x_return_status => l_return_status,
1296: -- get offer's product eligibility query
1297: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1298: p_api_version => 1.0,
1299: p_init_msg_list => fnd_api.g_false,
1300: p_commit => fnd_api.g_false,
1301: p_list_header_id => p_object_id,
1302: p_calling_from_den => 'N',
1303: x_return_status => l_return_status,
1304: x_msg_count => l_msg_count,
1305: x_msg_data => l_msg_data,
1306: x_product_stmt => l_offer_product_sql
1307: );
1308:
1309: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1310: x_return_status := l_return_status;
1311: RAISE fnd_api.G_EXC_ERROR;
1312: END IF;
1313:
1307: );
1308:
1309: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1310: x_return_status := l_return_status;
1311: RAISE fnd_api.G_EXC_ERROR;
1312: END IF;
1313:
1314: END IF;
1315: FND_DSQL.add_text(')');
1314: END IF;
1315: FND_DSQL.add_text(')');
1316:
1317: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1318: x_return_status := fnd_api.g_ret_sts_success;
1319: x_valid_flag := fnd_api.g_false;
1320: RETURN;
1321: END IF;
1322:
1315: FND_DSQL.add_text(')');
1316:
1317: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1318: x_return_status := fnd_api.g_ret_sts_success;
1319: x_valid_flag := fnd_api.g_false;
1320: RETURN;
1321: END IF;
1322:
1323: IF l_offer_product_sql IS NOT NULL OR l_offer_prod THEN
1340:
1341: IF l_count_offer_prod = 0 THEN
1342: FND_MESSAGE.Set_Name ('OZF', 'OZF_OFFER_NO_PROD');
1343: FND_MSG_PUB.Add;
1344: RAISE fnd_api.G_EXC_ERROR;
1345: END IF;
1346:
1347: IF p_mode = 'LOOSE' THEN
1348: check_product_market_loose(
1350: x_return_status => l_return_status,
1351: x_valid_flag => x_valid_flag
1352: );
1353:
1354: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1355: x_return_status := l_return_status;
1356: RAISE fnd_api.G_EXC_ERROR;
1357: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1358: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1352: );
1353:
1354: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1355: x_return_status := l_return_status;
1356: RAISE fnd_api.G_EXC_ERROR;
1357: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1358: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1359: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1360: FND_MSG_PUB.Add;
1353:
1354: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1355: x_return_status := l_return_status;
1356: RAISE fnd_api.G_EXC_ERROR;
1357: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1358: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1359: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1360: FND_MSG_PUB.Add;
1361: RAISE fnd_api.G_EXC_ERROR;
1357: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1358: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1359: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1360: FND_MSG_PUB.Add;
1361: RAISE fnd_api.G_EXC_ERROR;
1362: END IF;
1363: ELSIF p_mode = 'STRICT' THEN
1364: check_product_market_strict(
1365: p_exclude_only => l_exclude_only,
1366: x_return_status => l_return_status,
1367: x_valid_flag => x_valid_flag
1368: );
1369:
1370: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1371: x_return_status := l_return_status;
1372: RAISE fnd_api.G_EXC_ERROR;
1373: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1374: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1368: );
1369:
1370: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1371: x_return_status := l_return_status;
1372: RAISE fnd_api.G_EXC_ERROR;
1373: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1374: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1375: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1376: FND_MSG_PUB.Add;
1369:
1370: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1371: x_return_status := l_return_status;
1372: RAISE fnd_api.G_EXC_ERROR;
1373: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1374: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1375: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1376: FND_MSG_PUB.Add;
1377: RAISE fnd_api.G_EXC_ERROR;
1373: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1374: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1375: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1376: FND_MSG_PUB.Add;
1377: RAISE fnd_api.G_EXC_ERROR;
1378: END IF;
1379: END IF;
1380:
1381: EXCEPTION
1379: END IF;
1380:
1381: EXCEPTION
1382: WHEN OTHERS THEN
1383: x_return_status := fnd_api.g_ret_sts_error;
1384: END validate_product_by_each_line;
1385:
1386: -------------------------------------------------------------------
1387: -- NAME
1444: AND arc_act_product_used_by = 'OFFR'
1445: AND excluded_flag = 'N';
1446: BEGIN
1447:
1448: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1449: x_valid_flag := fnd_api.G_TRUE;
1450:
1451: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1452:
1445: AND excluded_flag = 'N';
1446: BEGIN
1447:
1448: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1449: x_valid_flag := fnd_api.G_TRUE;
1450:
1451: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1452:
1453: FND_DSQL.init;
1558: --dbms_output.put_line(l_ignore);
1559: END IF;
1560: -- not product eligibility for budget, validation is true.
1561: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1562: x_return_status := fnd_api.g_ret_sts_success;
1563: x_valid_flag := fnd_api.g_true;
1564: RETURN;
1565: END IF;
1566:
1559: END IF;
1560: -- not product eligibility for budget, validation is true.
1561: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1562: x_return_status := fnd_api.g_ret_sts_success;
1563: x_valid_flag := fnd_api.g_true;
1564: RETURN;
1565: END IF;
1566:
1567: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1611: ELSE -- for other offer,
1612: -- get offer's product eligibility query
1613: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1614: p_api_version => 1.0,
1615: p_init_msg_list => fnd_api.g_false,
1616: p_commit => fnd_api.g_false,
1617: p_list_header_id => p_object_id,
1618: p_calling_from_den => 'N',
1619: x_return_status => l_return_status,
1612: -- get offer's product eligibility query
1613: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1614: p_api_version => 1.0,
1615: p_init_msg_list => fnd_api.g_false,
1616: p_commit => fnd_api.g_false,
1617: p_list_header_id => p_object_id,
1618: p_calling_from_den => 'N',
1619: x_return_status => l_return_status,
1620: x_msg_count => l_msg_count,
1620: x_msg_count => l_msg_count,
1621: x_msg_data => l_msg_data,
1622: x_product_stmt => l_offer_product_sql
1623: );
1624: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1625: x_return_status := l_return_status;
1626: RAISE fnd_api.G_EXC_ERROR;
1627: END IF;
1628: END IF;
1622: x_product_stmt => l_offer_product_sql
1623: );
1624: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1625: x_return_status := l_return_status;
1626: RAISE fnd_api.G_EXC_ERROR;
1627: END IF;
1628: END IF;
1629: FND_DSQL.add_text(')');
1630:
1628: END IF;
1629: FND_DSQL.add_text(')');
1630:
1631: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1632: x_return_status := fnd_api.g_ret_sts_success;
1633: x_valid_flag := fnd_api.g_false;
1634: RETURN;
1635: END IF;
1636:
1629: FND_DSQL.add_text(')');
1630:
1631: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1632: x_return_status := fnd_api.g_ret_sts_success;
1633: x_valid_flag := fnd_api.g_false;
1634: RETURN;
1635: END IF;
1636:
1637: IF l_offer_product_sql IS NOT NULL OR l_offer_prod THEN
1651: x_return_status => l_return_status,
1652: x_valid_flag => x_valid_flag
1653: );
1654:
1655: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1656: x_return_status := l_return_status;
1657: RAISE fnd_api.G_EXC_ERROR;
1658: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1659: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1653: );
1654:
1655: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1656: x_return_status := l_return_status;
1657: RAISE fnd_api.G_EXC_ERROR;
1658: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1659: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1660: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1661: FND_MSG_PUB.Add;
1654:
1655: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1656: x_return_status := l_return_status;
1657: RAISE fnd_api.G_EXC_ERROR;
1658: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1659: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1660: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1661: FND_MSG_PUB.Add;
1662: RAISE fnd_api.G_EXC_ERROR;
1658: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1659: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1660: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1661: FND_MSG_PUB.Add;
1662: RAISE fnd_api.G_EXC_ERROR;
1663: END IF;
1664:
1665: EXCEPTION
1666: WHEN OTHERS THEN
1663: END IF;
1664:
1665: EXCEPTION
1666: WHEN OTHERS THEN
1667: x_return_status := fnd_api.g_ret_sts_error;
1668: END validate_product_by_all_lines;
1669:
1670:
1671: /* --------------------------------------------------------------------------
1743: FROM ozf_offers
1744: WHERE qp_list_header_id = p_object_id;
1745: BEGIN
1746:
1747: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1748: x_valid_flag := fnd_api.g_true;
1749:
1750: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1751: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1744: WHERE qp_list_header_id = p_object_id;
1745: BEGIN
1746:
1747: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1748: x_valid_flag := fnd_api.g_true;
1749:
1750: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1751: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1752: */
1760: x_exclude_mark => l_exclude_mark,
1761: x_return_status => l_return_status,
1762: x_msg_count => l_msg_count,
1763: x_msg_data => l_msg_data);
1764: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1765: x_return_status := l_return_status;
1766: RAISE fnd_api.G_EXC_ERROR;
1767: END IF;
1768:
1762: x_msg_count => l_msg_count,
1763: x_msg_data => l_msg_data);
1764: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1765: x_return_status := l_return_status;
1766: RAISE fnd_api.G_EXC_ERROR;
1767: END IF;
1768:
1769: -- no market eligibility for budget, validation is true.
1770: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1768:
1769: -- no market eligibility for budget, validation is true.
1770: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1771: --dbms_output.put_line('budget does not have market eligiblity.');
1772: x_return_status := fnd_api.g_ret_sts_success;
1773: x_valid_flag := fnd_api.g_true;
1774: RETURN;
1775: END IF;
1776:
1769: -- no market eligibility for budget, validation is true.
1770: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1771: --dbms_output.put_line('budget does not have market eligiblity.');
1772: x_return_status := fnd_api.g_ret_sts_success;
1773: x_valid_flag := fnd_api.g_true;
1774: RETURN;
1775: END IF;
1776:
1777: IF l_budget_mark = FALSE AND l_exclude_mark = TRUE THEN
1813: ELSE
1814: -- get offer's market eligibility query
1815: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
1816: p_api_version => 1.0,
1817: p_init_msg_list => fnd_api.g_false,
1818: p_commit => fnd_api.g_false,
1819: p_list_header_id => p_object_id,
1820: p_calling_from_den => 'N',
1821: x_return_status => l_return_status,
1814: -- get offer's market eligibility query
1815: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
1816: p_api_version => 1.0,
1817: p_init_msg_list => fnd_api.g_false,
1818: p_commit => fnd_api.g_false,
1819: p_list_header_id => p_object_id,
1820: p_calling_from_den => 'N',
1821: x_return_status => l_return_status,
1822: x_msg_count => l_msg_count,
1822: x_msg_count => l_msg_count,
1823: x_msg_data => l_msg_data,
1824: x_party_stmt => l_offer_market_sql
1825: );
1826: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1827: x_return_status := l_return_status;
1828: RAISE fnd_api.G_EXC_ERROR;
1829: END IF;
1830: END IF;
1824: x_party_stmt => l_offer_market_sql
1825: );
1826: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1827: x_return_status := l_return_status;
1828: RAISE fnd_api.G_EXC_ERROR;
1829: END IF;
1830: END IF;
1831: FND_DSQL.add_text(')');
1832:
1830: END IF;
1831: FND_DSQL.add_text(')');
1832:
1833: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
1834: x_return_status := fnd_api.g_ret_sts_success;
1835: x_valid_flag := fnd_api.g_false;
1836: RETURN;
1837: ELSE
1838: l_denorm_csr := DBMS_SQL.open_cursor;
1831: FND_DSQL.add_text(')');
1832:
1833: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
1834: x_return_status := fnd_api.g_ret_sts_success;
1835: x_valid_flag := fnd_api.g_false;
1836: RETURN;
1837: ELSE
1838: l_denorm_csr := DBMS_SQL.open_cursor;
1839: FND_DSQL.set_cursor(l_denorm_csr);
1863: x_return_status => l_return_status,
1864: x_valid_flag => x_valid_flag
1865: );
1866:
1867: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1868: x_return_status := l_return_status;
1869: RAISE fnd_api.G_EXC_ERROR;
1870: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1871: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1865: );
1866:
1867: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1868: x_return_status := l_return_status;
1869: RAISE fnd_api.G_EXC_ERROR;
1870: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1871: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1872: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1873: FND_MSG_PUB.Add;
1866:
1867: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1868: x_return_status := l_return_status;
1869: RAISE fnd_api.G_EXC_ERROR;
1870: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1871: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1872: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1873: FND_MSG_PUB.Add;
1874: RAISE fnd_api.G_EXC_ERROR;
1870: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1871: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1872: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1873: FND_MSG_PUB.Add;
1874: RAISE fnd_api.G_EXC_ERROR;
1875: END IF;
1876: ELSIF p_mode = 'STRICT' THEN
1877: check_product_market_strict(
1878: p_exclude_only => l_exclude_only,
1879: x_return_status => l_return_status,
1880: x_valid_flag => x_valid_flag
1881: );
1882:
1883: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1884: x_return_status := l_return_status;
1885: RAISE fnd_api.G_EXC_ERROR;
1886: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1887: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1881: );
1882:
1883: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1884: x_return_status := l_return_status;
1885: RAISE fnd_api.G_EXC_ERROR;
1886: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1887: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1888: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1889: FND_MSG_PUB.Add;
1882:
1883: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1884: x_return_status := l_return_status;
1885: RAISE fnd_api.G_EXC_ERROR;
1886: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1887: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1888: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1889: FND_MSG_PUB.Add;
1890: RAISE fnd_api.G_EXC_ERROR;
1886: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1887: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1888: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1889: FND_MSG_PUB.Add;
1890: RAISE fnd_api.G_EXC_ERROR;
1891: END IF;
1892: END IF;
1893:
1894: EXCEPTION
1892: END IF;
1893:
1894: EXCEPTION
1895: WHEN OTHERS THEN
1896: x_return_status := fnd_api.g_ret_sts_error;
1897:
1898: END validate_market_by_each_line;
1899:
1900: -------------------------------------------------------------------
1958: WHERE qp_list_header_id = p_object_id;
1959:
1960: BEGIN
1961:
1962: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1963: x_valid_flag := fnd_api.g_true;
1964:
1965: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1966: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1959:
1960: BEGIN
1961:
1962: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1963: x_valid_flag := fnd_api.g_true;
1964:
1965: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1966: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1967: */
2136: END IF;
2137: -- not product eligibility for budget, validation is true.
2138: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2139: --dbms_output.put_line('validate_market_by_all_lines: budget do not has market eligiblity.');
2140: x_return_status := fnd_api.g_ret_sts_success;
2141: x_valid_flag := fnd_api.g_true;
2142: RETURN;
2143: END IF;
2144:
2137: -- not product eligibility for budget, validation is true.
2138: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2139: --dbms_output.put_line('validate_market_by_all_lines: budget do not has market eligiblity.');
2140: x_return_status := fnd_api.g_ret_sts_success;
2141: x_valid_flag := fnd_api.g_true;
2142: RETURN;
2143: END IF;
2144:
2145: IF l_budget_mark = FALSE AND l_exclude_mark = TRUE THEN
2181: ELSE
2182: -- get offer's market eligibility query
2183: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
2184: p_api_version => 1.0,
2185: p_init_msg_list => fnd_api.g_false,
2186: p_commit => fnd_api.g_false,
2187: p_list_header_id => p_object_id,
2188: p_calling_from_den => 'N',
2189: x_return_status => l_return_status,
2182: -- get offer's market eligibility query
2183: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
2184: p_api_version => 1.0,
2185: p_init_msg_list => fnd_api.g_false,
2186: p_commit => fnd_api.g_false,
2187: p_list_header_id => p_object_id,
2188: p_calling_from_den => 'N',
2189: x_return_status => l_return_status,
2190: x_msg_count => l_msg_count,
2191: x_msg_data => l_msg_data,
2192: x_party_stmt => l_offer_market_sql
2193: );
2194: --dbms_output.put_line('validate_market_by_all_lines: Offer party sql returns ' || l_offer_market_sql);
2195: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2196: x_return_status := l_return_status;
2197: RAISE fnd_api.G_EXC_ERROR;
2198: END IF;
2199: END IF;
2193: );
2194: --dbms_output.put_line('validate_market_by_all_lines: Offer party sql returns ' || l_offer_market_sql);
2195: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2196: x_return_status := l_return_status;
2197: RAISE fnd_api.G_EXC_ERROR;
2198: END IF;
2199: END IF;
2200: FND_DSQL.add_text(')');
2201:
2199: END IF;
2200: FND_DSQL.add_text(')');
2201:
2202: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
2203: x_return_status := fnd_api.g_ret_sts_success;
2204: x_valid_flag := fnd_api.g_false;
2205: RETURN;
2206: ELSE
2207: l_denorm_csr := DBMS_SQL.open_cursor;
2200: FND_DSQL.add_text(')');
2201:
2202: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
2203: x_return_status := fnd_api.g_ret_sts_success;
2204: x_valid_flag := fnd_api.g_false;
2205: RETURN;
2206: ELSE
2207: l_denorm_csr := DBMS_SQL.open_cursor;
2208: FND_DSQL.set_cursor(l_denorm_csr);
2230: x_return_status => l_return_status,
2231: x_valid_flag => x_valid_flag
2232: );
2233:
2234: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2235: x_return_status := l_return_status;
2236: RAISE fnd_api.G_EXC_ERROR;
2237: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2238: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2232: );
2233:
2234: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2235: x_return_status := l_return_status;
2236: RAISE fnd_api.G_EXC_ERROR;
2237: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2238: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2239: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2240: FND_MSG_PUB.Add;
2233:
2234: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2235: x_return_status := l_return_status;
2236: RAISE fnd_api.G_EXC_ERROR;
2237: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2238: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2239: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2240: FND_MSG_PUB.Add;
2241: RAISE fnd_api.G_EXC_ERROR;
2237: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2238: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2239: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2240: FND_MSG_PUB.Add;
2241: RAISE fnd_api.G_EXC_ERROR;
2242: END IF;
2243:
2244: EXCEPTION
2245: WHEN OTHERS THEN
2242: END IF;
2243:
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: x_return_status := fnd_api.g_ret_sts_error;
2247:
2248: END validate_market_by_all_lines;
2249:
2250:
2302: END IF;
2303:
2304: IF (NVL(l_check_validation, 'NO') = 'NO') THEN
2305: -- return success if profile value is NO
2306: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2307: RETURN;
2308: END IF;
2309:
2310: IF p_object_type <> 'OFFR' THEN
2308: END IF;
2309:
2310: IF p_object_type <> 'OFFR' THEN
2311: -- return success. right now we only validate offer
2312: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2313: RETURN;
2314: END IF;
2315:
2316: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2312: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2313: RETURN;
2314: END IF;
2315:
2316: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2317:
2318: OPEN c_get_fund_info;
2319: FETCH c_get_fund_info INTO l_budget_id;
2320: CLOSE c_get_fund_info;
2347: );
2348: IF G_DEBUG THEN
2349: ozf_utility_pvt.debug_message(' validate_product_by_each_line returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2350: END IF;
2351: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2352: x_return_status := l_return_status;
2353: RAISE fnd_api.G_EXC_ERROR;
2354: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2355: -- how to return back message? through fnd_message?
2349: ozf_utility_pvt.debug_message(' validate_product_by_each_line returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2350: END IF;
2351: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2352: x_return_status := l_return_status;
2353: RAISE fnd_api.G_EXC_ERROR;
2354: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2355: -- how to return back message? through fnd_message?
2356: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2357: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2350: END IF;
2351: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2352: x_return_status := l_return_status;
2353: RAISE fnd_api.G_EXC_ERROR;
2354: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2355: -- how to return back message? through fnd_message?
2356: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2357: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2358: FND_MSG_PUB.Add;
2359: END IF;
2360: IF G_DEBUG THEN
2361: ozf_utility_pvt.debug_message('FAILURE: budget product eligibility does not match that of offer');
2362: END IF;
2363: RAISE fnd_api.G_EXC_ERROR;
2364: END IF;
2365: END IF;
2366:
2367: validate_market_by_each_line(
2374: );
2375: IF G_DEBUG THEN
2376: ozf_utility_pvt.debug_message(' validate_market_by_each_line returns ' || l_return_status);
2377: END IF;
2378: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2379: x_return_status := l_return_status;
2380: RAISE fnd_api.G_EXC_ERROR;
2381: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2382: -- how to return back message? through fnd_message?
2376: ozf_utility_pvt.debug_message(' validate_market_by_each_line returns ' || l_return_status);
2377: END IF;
2378: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2379: x_return_status := l_return_status;
2380: RAISE fnd_api.G_EXC_ERROR;
2381: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2382: -- how to return back message? through fnd_message?
2383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2384: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2377: END IF;
2378: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2379: x_return_status := l_return_status;
2380: RAISE fnd_api.G_EXC_ERROR;
2381: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2382: -- how to return back message? through fnd_message?
2383: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2384: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2385: FND_MSG_PUB.Add;
2386: END IF;
2387: IF G_DEBUG THEN
2388: ozf_utility_pvt.debug_message('FAILURE: budget market eligibility does not match that of offer');
2389: END IF;
2390: RAISE fnd_api.G_EXC_ERROR;
2391: END IF;
2392: IF G_DEBUG THEN
2393: ozf_utility_pvt.debug_message(' SUCCESS ');
2394: END IF;
2393: ozf_utility_pvt.debug_message(' SUCCESS ');
2394: END IF;
2395:
2396: EXCEPTION
2397: WHEN fnd_api.g_exc_error THEN
2398: ROLLBACK TO validate_object_budget;
2399: x_return_status := fnd_api.g_ret_sts_error;
2400: fnd_msg_pub.count_and_get(
2401: p_encoded => fnd_api.g_false
2395:
2396: EXCEPTION
2397: WHEN fnd_api.g_exc_error THEN
2398: ROLLBACK TO validate_object_budget;
2399: x_return_status := fnd_api.g_ret_sts_error;
2400: fnd_msg_pub.count_and_get(
2401: p_encoded => fnd_api.g_false
2402: ,p_count => x_msg_count
2403: ,p_data => x_msg_data);
2397: WHEN fnd_api.g_exc_error THEN
2398: ROLLBACK TO validate_object_budget;
2399: x_return_status := fnd_api.g_ret_sts_error;
2400: fnd_msg_pub.count_and_get(
2401: p_encoded => fnd_api.g_false
2402: ,p_count => x_msg_count
2403: ,p_data => x_msg_data);
2404: WHEN fnd_api.g_exc_unexpected_error THEN
2405: ROLLBACK TO validate_object_budget;
2400: fnd_msg_pub.count_and_get(
2401: p_encoded => fnd_api.g_false
2402: ,p_count => x_msg_count
2403: ,p_data => x_msg_data);
2404: WHEN fnd_api.g_exc_unexpected_error THEN
2405: ROLLBACK TO validate_object_budget;
2406: x_return_status := fnd_api.g_ret_sts_unexp_error;
2407: fnd_msg_pub.count_and_get(
2408: p_encoded => fnd_api.g_false
2402: ,p_count => x_msg_count
2403: ,p_data => x_msg_data);
2404: WHEN fnd_api.g_exc_unexpected_error THEN
2405: ROLLBACK TO validate_object_budget;
2406: x_return_status := fnd_api.g_ret_sts_unexp_error;
2407: fnd_msg_pub.count_and_get(
2408: p_encoded => fnd_api.g_false
2409: ,p_count => x_msg_count
2410: ,p_data => x_msg_data);
2404: WHEN fnd_api.g_exc_unexpected_error THEN
2405: ROLLBACK TO validate_object_budget;
2406: x_return_status := fnd_api.g_ret_sts_unexp_error;
2407: fnd_msg_pub.count_and_get(
2408: p_encoded => fnd_api.g_false
2409: ,p_count => x_msg_count
2410: ,p_data => x_msg_data);
2411:
2412: WHEN OTHERS THEN
2410: ,p_data => x_msg_data);
2411:
2412: WHEN OTHERS THEN
2413: ROLLBACK TO validate_object_budget;
2414: x_return_status := fnd_api.g_ret_sts_error;
2415: fnd_msg_pub.count_and_get (
2416: p_count => x_msg_count
2417: , p_data => x_msg_data
2418: , p_encoded => fnd_api.g_false
2414: x_return_status := fnd_api.g_ret_sts_error;
2415: fnd_msg_pub.count_and_get (
2416: p_count => x_msg_count
2417: , p_data => x_msg_data
2418: , p_encoded => fnd_api.g_false
2419: );
2420:
2421: END validate_object_budget;
2422:
2453: l_check_validation := fnd_profile.value('OZF_CHECK_MKTG_PROD_ELIG');
2454:
2455: IF (NVL(l_check_validation, 'NO') = 'NO') OR (l_check_validation = 'PRODUCT_STRICT_CUSTOMER_STRICT') THEN
2456: -- return success if profile value is NO or PRODUCT_STRICT_CUSTOMER_STRICT
2457: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2458: RETURN;
2459: END IF;
2460:
2461: IF p_object_type <> 'OFFR' THEN
2459: END IF;
2460:
2461: IF p_object_type <> 'OFFR' THEN
2462: -- return success. right now we only validate offer
2463: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2464: RETURN;
2465: END IF;
2466:
2467: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2463: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2464: RETURN;
2465: END IF;
2466:
2467: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2468:
2469: OPEN c_get_offer_type;
2470: FETCH c_get_offer_type INTO l_offer_type;
2471: CLOSE c_get_offer_type;
2480: );
2481: IF G_DEBUG THEN
2482: ozf_utility_pvt.debug_message(' validate_market_by_all_lines returns ' || l_return_status);
2483: END IF;
2484: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2485: x_return_status := l_return_status;
2486: -- revert all the approved budget lines
2487: revert_approved_request ( p_offer_id => p_object_id
2488: ,x_return_status => l_return_status
2488: ,x_return_status => l_return_status
2489: ,x_msg_count => x_msg_count
2490: ,x_msg_data => l_msg_data
2491: );
2492: RAISE fnd_api.G_EXC_ERROR;
2493: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2494: -- how to return back message? through fnd_message?
2495: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2496: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2489: ,x_msg_count => x_msg_count
2490: ,x_msg_data => l_msg_data
2491: );
2492: RAISE fnd_api.G_EXC_ERROR;
2493: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2494: -- how to return back message? through fnd_message?
2495: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2496: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2497: FND_MSG_PUB.Add;
2504: ,x_return_status => l_return_status
2505: ,x_msg_count => x_msg_count
2506: ,x_msg_data => l_msg_data
2507: );
2508: RAISE fnd_api.G_EXC_ERROR;
2509: END IF;
2510: ELSIF l_check_validation = 'PRODUCT_LOOSE_CUSTOMER_STRICT' THEN
2511: -- validate product by all budget lines
2512: IF l_offer_type <> 'ORDER' THEN
2520: );
2521: IF G_DEBUG THEN
2522: ozf_utility_pvt.debug_message(' validate_product_by_all_lines returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2523: END IF;
2524: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2525: x_return_status := l_return_status;
2526: -- revert all the approved budget lines
2527: revert_approved_request ( p_offer_id => p_object_id
2528: ,x_return_status => l_return_status
2528: ,x_return_status => l_return_status
2529: ,x_msg_count => x_msg_count
2530: ,x_msg_data => l_msg_data
2531: );
2532: RAISE fnd_api.G_EXC_ERROR;
2533: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2534: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2535: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2536: FND_MSG_PUB.Add;
2529: ,x_msg_count => x_msg_count
2530: ,x_msg_data => l_msg_data
2531: );
2532: RAISE fnd_api.G_EXC_ERROR;
2533: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2534: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2535: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2536: FND_MSG_PUB.Add;
2537: END IF;
2543: ,x_return_status => l_return_status
2544: ,x_msg_count => x_msg_count
2545: ,x_msg_data => l_msg_data
2546: );
2547: RAISE fnd_api.G_EXC_ERROR;
2548: END IF;
2549: END IF;
2550: END IF;
2551:
2554: ozf_utility_pvt.debug_message(' SUCCESS ');
2555: END IF;
2556:
2557: EXCEPTION
2558: WHEN fnd_api.g_exc_error THEN
2559: x_return_status := fnd_api.g_ret_sts_error;
2560: fnd_msg_pub.count_and_get(
2561: p_encoded => fnd_api.g_false
2562: ,p_count => x_msg_count
2555: END IF;
2556:
2557: EXCEPTION
2558: WHEN fnd_api.g_exc_error THEN
2559: x_return_status := fnd_api.g_ret_sts_error;
2560: fnd_msg_pub.count_and_get(
2561: p_encoded => fnd_api.g_false
2562: ,p_count => x_msg_count
2563: ,p_data => x_msg_data);
2557: EXCEPTION
2558: WHEN fnd_api.g_exc_error THEN
2559: x_return_status := fnd_api.g_ret_sts_error;
2560: fnd_msg_pub.count_and_get(
2561: p_encoded => fnd_api.g_false
2562: ,p_count => x_msg_count
2563: ,p_data => x_msg_data);
2564: WHEN fnd_api.g_exc_unexpected_error THEN
2565: x_return_status := fnd_api.g_ret_sts_unexp_error;
2560: fnd_msg_pub.count_and_get(
2561: p_encoded => fnd_api.g_false
2562: ,p_count => x_msg_count
2563: ,p_data => x_msg_data);
2564: WHEN fnd_api.g_exc_unexpected_error THEN
2565: x_return_status := fnd_api.g_ret_sts_unexp_error;
2566: fnd_msg_pub.count_and_get(
2567: p_encoded => fnd_api.g_false
2568: ,p_count => x_msg_count
2561: p_encoded => fnd_api.g_false
2562: ,p_count => x_msg_count
2563: ,p_data => x_msg_data);
2564: WHEN fnd_api.g_exc_unexpected_error THEN
2565: x_return_status := fnd_api.g_ret_sts_unexp_error;
2566: fnd_msg_pub.count_and_get(
2567: p_encoded => fnd_api.g_false
2568: ,p_count => x_msg_count
2569: ,p_data => x_msg_data);
2563: ,p_data => x_msg_data);
2564: WHEN fnd_api.g_exc_unexpected_error THEN
2565: x_return_status := fnd_api.g_ret_sts_unexp_error;
2566: fnd_msg_pub.count_and_get(
2567: p_encoded => fnd_api.g_false
2568: ,p_count => x_msg_count
2569: ,p_data => x_msg_data);
2570:
2571: WHEN OTHERS THEN
2568: ,p_count => x_msg_count
2569: ,p_data => x_msg_data);
2570:
2571: WHEN OTHERS THEN
2572: x_return_status := fnd_api.g_ret_sts_error;
2573: fnd_msg_pub.count_and_get (
2574: p_count => x_msg_count
2575: , p_data => x_msg_data
2576: , p_encoded => fnd_api.g_false
2572: x_return_status := fnd_api.g_ret_sts_error;
2573: fnd_msg_pub.count_and_get (
2574: p_count => x_msg_count
2575: , p_data => x_msg_data
2576: , p_encoded => fnd_api.g_false
2577: );
2578:
2579: END validate_object_budget_all;
2580:
2637: WHERE cust_account_id = p_cust_account_id;
2638:
2639: BEGIN
2640: x_qualify_flag := false;
2641: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2642:
2643: IF p_cust_account_id IS NULL THEN
2644: l_qualify_flag := true;
2645: ELSE
2655: x_exclude_mark => l_exclude_mark,
2656: x_return_status => l_return_status,
2657: x_msg_count => l_msg_count,
2658: x_msg_data => l_msg_data);
2659: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2660: RAISE fnd_api.G_EXC_ERROR;
2661: END IF;
2662:
2663: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2656: x_return_status => l_return_status,
2657: x_msg_count => l_msg_count,
2658: x_msg_data => l_msg_data);
2659: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2660: RAISE fnd_api.G_EXC_ERROR;
2661: END IF;
2662:
2663: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2664: -- no market eligibility for budget, validation is true.
2691: END IF;
2692:
2693: IF NOT l_qualify_flag THEN
2694: x_qualify_flag := false;
2695: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2696: RETURN;
2697: END IF;
2698:
2699: IF p_product_item_id IS NULL THEN
2697: END IF;
2698:
2699: IF p_product_item_id IS NULL THEN
2700: x_qualify_flag := true;
2701: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2702: RETURN;
2703: END IF;
2704:
2705: l_temp_id := null;
2712: x_exclude_prod => l_exclude_mark,
2713: x_return_status => l_return_status,
2714: x_msg_count => l_msg_count,
2715: x_msg_data => l_msg_data);
2716: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2717: RAISE fnd_api.G_EXC_ERROR;
2718: END IF;
2719:
2720: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2713: x_return_status => l_return_status,
2714: x_msg_count => l_msg_count,
2715: x_msg_data => l_msg_data);
2716: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2717: RAISE fnd_api.G_EXC_ERROR;
2718: END IF;
2719:
2720: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2721: -- no product eligibility for budget, validation is true.
2745: END IF;
2746: END IF;
2747:
2748: x_qualify_flag := l_qualify_flag;
2749: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2750:
2751: EXCEPTION
2752: WHEN OTHERS THEN
2753: x_return_status := fnd_api.g_ret_sts_error;
2749: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2750:
2751: EXCEPTION
2752: WHEN OTHERS THEN
2753: x_return_status := fnd_api.g_ret_sts_error;
2754: fnd_msg_pub.count_and_get (
2755: p_count => x_msg_count
2756: , p_data => x_msg_data
2757: , p_encoded => fnd_api.g_false
2753: x_return_status := fnd_api.g_ret_sts_error;
2754: fnd_msg_pub.count_and_get (
2755: p_count => x_msg_count
2756: , p_data => x_msg_data
2757: , p_encoded => fnd_api.g_false
2758: );
2759:
2760: END check_budget_qualification;
2761:
2799: AND arc_act_budget_used_by = p_object_type;
2800:
2801: BEGIN
2802:
2803: x_return_status := fnd_api.g_ret_sts_success;
2804: l_percent := NVL(Fnd_Profile.Value('AMS_APPROVAL_CUTOFF_PERCENT'),0)/100;
2805:
2806: IF l_percent = 0 THEN -- if profile value is set to zero, x_new_status is 'ACTIVE'
2807: x_new_status := 'ACTIVE';
2843: WHERE deliverable_id = p_object_id;
2844: ELSE
2845: Fnd_Message.Set_Name('OZF','OZF_BAD_APPROVAL_OBJECT_TYPE');
2846: Fnd_Msg_Pub.ADD;
2847: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2848: RETURN;
2849: END IF ;
2850:
2851: FETCH l_obj_details INTO l_budget_amount,l_owner_id;
2852: IF l_obj_details%NOTFOUND THEN
2853: CLOSE l_obj_details;
2854: Fnd_Message.Set_Name('OZF','OZF_APPR_BAD_DETAILS');
2855: Fnd_Msg_Pub.ADD;
2856: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2857: RETURN;
2858: END IF;
2859: CLOSE l_obj_details;
2860:
2894: END IF; -- end of l_percent.
2895:
2896: EXCEPTION
2897: WHEN OTHERS THEN
2898: x_return_status := fnd_api.g_ret_sts_error;
2899: fnd_msg_pub.count_and_get (
2900: p_count => l_msg_count
2901: , p_data => l_msg_data
2902: , p_encoded => fnd_api.g_false
2898: x_return_status := fnd_api.g_ret_sts_error;
2899: fnd_msg_pub.count_and_get (
2900: p_count => l_msg_count
2901: , p_data => l_msg_data
2902: , p_encoded => fnd_api.g_false
2903: );
2904: END check_budget_threshold;
2905: */
2906:
3011:
3012: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budgets_rec);
3013: l_act_budgets_rec.activity_budget_id := p_actbudget_id;
3014:
3015: IF l_return_status = fnd_api.G_RET_STS_SUCCESS THEN
3016: ozf_utility_pvt.Write_Conc_log('validation succeeds');
3017: -- validation succeeds. Change budget request status to 'APPROVED'
3018: l_act_budgets_rec.status_code := 'APPROVED';
3019: l_act_budgets_rec.user_status_id :=
3058: WHILE l_cnt < l_msg_count
3059: LOOP
3060: Fnd_Msg_Pub.Get
3061: (p_msg_index => l_cnt + 1,
3062: p_encoded => Fnd_Api.G_FALSE,
3063: p_data => l_msg_data,
3064: p_msg_index_out => l_msg_index );
3065:
3066: --kdass fix for bug 4621638
3085: ,x_notif_id => l_notification_id
3086: ,x_return_status => l_return_status
3087: );
3088:
3089: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3090: ozf_utility_pvt.Write_Conc_log('Sent notification fails.');
3091: END IF;
3092:
3093: END IF; -- end of validation fail.
3093: END IF; -- end of validation fail.
3094:
3095: ozf_actbudgets_pvt.Update_Act_Budgets (
3096: p_api_version => 1.0,
3097: p_init_msg_list => FND_API.g_false,
3098: p_commit => FND_API.g_false,
3099: p_validation_level => fnd_api.g_valid_level_full,
3100: x_return_status => l_return_status,
3101: x_msg_count => l_msg_count,
3094:
3095: ozf_actbudgets_pvt.Update_Act_Budgets (
3096: p_api_version => 1.0,
3097: p_init_msg_list => FND_API.g_false,
3098: p_commit => FND_API.g_false,
3099: p_validation_level => fnd_api.g_valid_level_full,
3100: x_return_status => l_return_status,
3101: x_msg_count => l_msg_count,
3102: x_msg_data => l_msg_data,
3095: ozf_actbudgets_pvt.Update_Act_Budgets (
3096: p_api_version => 1.0,
3097: p_init_msg_list => FND_API.g_false,
3098: p_commit => FND_API.g_false,
3099: p_validation_level => fnd_api.g_valid_level_full,
3100: x_return_status => l_return_status,
3101: x_msg_count => l_msg_count,
3102: x_msg_data => l_msg_data,
3103: p_act_budgets_rec => l_act_budgets_rec
3102: x_msg_data => l_msg_data,
3103: p_act_budgets_rec => l_act_budgets_rec
3104: );
3105:
3106: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3107: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets fails.');
3108: END IF;
3109:
3110: ELSE -- called from offer activation. Check all budget requests of this offer
3125: l_act_budgets_rec.activity_budget_id := request_rec.activity_budget_id;
3126:
3127: ozf_utility_pvt.Write_Conc_log('Validation return status = ' || l_return_status);
3128:
3129: IF l_return_status = fnd_api.G_RET_STS_SUCCESS THEN
3130: ozf_utility_pvt.Write_Conc_log('validation succeeds');
3131:
3132: -- validation succeeds. Change budget request status to 'APPROVED'
3133: l_act_budgets_rec.status_code := 'APPROVED';
3167: WHILE l_cnt < l_msg_count
3168: LOOP
3169: Fnd_Msg_Pub.Get
3170: (p_msg_index => l_cnt + 1,
3171: p_encoded => Fnd_Api.G_FALSE,
3172: p_data => l_msg_data,
3173: p_msg_index_out => l_msg_index );
3174:
3175: --kdass fix for bug 4621638
3194: ,x_notif_id => l_notification_id
3195: ,x_return_status => l_return_status
3196: );
3197:
3198: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3199: ozf_utility_pvt.Write_Conc_log('Sent notification fails.');
3200: END IF;
3201:
3202:
3203: ozf_utility_pvt.Write_Conc_log('l_act_budgets_rec.activity_budget_id: ' || l_act_budgets_rec.activity_budget_id);
3204:
3205: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3206: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3207: p_init_msg_list => FND_API.g_false,
3208: p_commit => FND_API.g_false,
3209: p_validation_level => fnd_api.g_valid_level_full,
3210: x_return_status => l_return_status,
3211: x_msg_count => l_msg_count,
3204:
3205: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3206: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3207: p_init_msg_list => FND_API.g_false,
3208: p_commit => FND_API.g_false,
3209: p_validation_level => fnd_api.g_valid_level_full,
3210: x_return_status => l_return_status,
3211: x_msg_count => l_msg_count,
3212: x_msg_data => l_msg_data,
3205: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3206: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3207: p_init_msg_list => FND_API.g_false,
3208: p_commit => FND_API.g_false,
3209: p_validation_level => fnd_api.g_valid_level_full,
3210: x_return_status => l_return_status,
3211: x_msg_count => l_msg_count,
3212: x_msg_data => l_msg_data,
3213: p_act_budgets_rec => l_act_budgets_rec
3214: );
3215:
3216: ozf_utility_pvt.Write_Conc_log('return status from Update_Act_Budgets = ' || l_return_status);
3217:
3218: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3219: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets fails');
3220: END IF;
3221: */
3222:
3222:
3223: END IF; -- end of validation fail
3224:
3225: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3226: p_init_msg_list => FND_API.g_false,
3227: p_commit => FND_API.g_false,
3228: p_validation_level => fnd_api.g_valid_level_full,
3229: x_return_status => l_return_status,
3230: x_msg_count => l_msg_count,
3223: END IF; -- end of validation fail
3224:
3225: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3226: p_init_msg_list => FND_API.g_false,
3227: p_commit => FND_API.g_false,
3228: p_validation_level => fnd_api.g_valid_level_full,
3229: x_return_status => l_return_status,
3230: x_msg_count => l_msg_count,
3231: x_msg_data => l_msg_data,
3224:
3225: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3226: p_init_msg_list => FND_API.g_false,
3227: p_commit => FND_API.g_false,
3228: p_validation_level => fnd_api.g_valid_level_full,
3229: x_return_status => l_return_status,
3230: x_msg_count => l_msg_count,
3231: x_msg_data => l_msg_data,
3232: p_act_budgets_rec => l_act_budgets_rec
3233: );
3234:
3235: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets returns = ' || l_return_status);
3236:
3237: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3238: ozf_utility_pvt.Write_Conc_log('Valid budget request id = ' || p_actbudget_id);
3239: ELSE
3240: ozf_utility_pvt.Write_Conc_log('Invalid budget request id = ' || p_actbudget_id);
3241: END IF;
3254: );
3255:
3256: ozf_utility_pvt.Write_Conc_log('return status = ' || l_return_status);
3257:
3258: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
3259: l_offer_status := 'DRAFT';
3260: ozf_utility_pvt.Write_Conc_log('Relaxed validation failed');
3261: END IF;
3262:
3273:
3274: -- update offer status. if validation fail.
3275: --- otherwise to 'ACTIVE'
3276: Ozf_Offer_Pvt.Activate_Offer_Over( p_api_version => 1.0
3277: ,p_init_msg_list => FND_API.g_false
3278: ,p_commit => FND_API.g_false
3279: ,x_return_status => l_return_status
3280: ,x_msg_count => l_msg_count
3281: ,x_msg_data => l_msg_data
3274: -- update offer status. if validation fail.
3275: --- otherwise to 'ACTIVE'
3276: Ozf_Offer_Pvt.Activate_Offer_Over( p_api_version => 1.0
3277: ,p_init_msg_list => FND_API.g_false
3278: ,p_commit => FND_API.g_false
3279: ,x_return_status => l_return_status
3280: ,x_msg_count => l_msg_count
3281: ,x_msg_data => l_msg_data
3282: ,p_called_from => 'R'
3285: );
3286:
3287: ozf_utility_pvt.Write_Conc_log('Activate_Offer_Over returns = ' || l_return_status);
3288:
3289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3290: ozf_utility_pvt.Write_Conc_log('exception raised');
3291: RAISE fnd_api.g_exc_error;
3292: END IF;
3293:
3287: ozf_utility_pvt.Write_Conc_log('Activate_Offer_Over returns = ' || l_return_status);
3288:
3289: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3290: ozf_utility_pvt.Write_Conc_log('exception raised');
3291: RAISE fnd_api.g_exc_error;
3292: END IF;
3293:
3294: END IF;
3295:
3299:
3300: ozf_utility_pvt.Write_Conc_log(l_msg_data);
3301:
3302: EXCEPTION
3303: WHEN fnd_api.g_exc_error THEN
3304: ozf_utility_pvt.Write_Conc_log('fnd_api.g_exc_error');
3305:
3306: ROLLBACK TO conc_validate_offer_budget;
3307:
3300: ozf_utility_pvt.Write_Conc_log(l_msg_data);
3301:
3302: EXCEPTION
3303: WHEN fnd_api.g_exc_error THEN
3304: ozf_utility_pvt.Write_Conc_log('fnd_api.g_exc_error');
3305:
3306: ROLLBACK TO conc_validate_offer_budget;
3307:
3308: -- revert to draft status
3339: WHILE l_cnt < l_msg_count
3340: LOOP
3341: Fnd_Msg_Pub.Get
3342: (p_msg_index => l_cnt + 1,
3343: p_encoded => Fnd_Api.G_FALSE,
3344: p_data => l_msg_data,
3345: p_msg_index_out => l_msg_index );
3346:
3347: --kdass fix for bug 4621638
3366: WHILE l_cnt < l_msg_count
3367: LOOP
3368: Fnd_Msg_Pub.Get
3369: (p_msg_index => l_cnt + 1,
3370: p_encoded => Fnd_Api.G_FALSE,
3371: p_data => l_msg_data,
3372: p_msg_index_out => l_msg_index );
3373:
3374: --kdass fix for bug 4621638
3428: := G_PACKAGE_NAME || '.' || l_api_name;
3429: l_api_version CONSTANT NUMBER := 1.0;
3430: l_msg_count NUMBER;
3431: l_msg_data VARCHAR2(4000);
3432: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3433: l_object_version_number NUMBER;
3434: l_custom_setup_id NUMBER;
3435: -- Cursor to find fund details
3436: CURSOR c_act_budgets(p_object_type VARCHAR2,p_object_id NUMBER)
3477: l_notification_id NUMBER;
3478: l_offer_code VARCHAR2(50);
3479:
3480: BEGIN
3481: x_return_status := fnd_api.g_ret_sts_success;
3482: -- Initialize
3483: IF G_DEBUG THEN
3484: ozf_utility_pvt.debug_message(l_full_name || ': start');
3485: END IF;
3543: ozf_utility_pvt.get_default_user_status ('OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
3544:
3545: ozf_actbudgets_pvt.update_act_budgets (
3546: p_api_version=> 1.0
3547: ,p_init_msg_list=> fnd_api.g_false
3548: ,p_commit=> fnd_api.g_false
3549: ,p_validation_level=> fnd_api.g_valid_level_full
3550: ,x_return_status=> l_return_status
3551: ,x_msg_data=> x_msg_data
3544:
3545: ozf_actbudgets_pvt.update_act_budgets (
3546: p_api_version=> 1.0
3547: ,p_init_msg_list=> fnd_api.g_false
3548: ,p_commit=> fnd_api.g_false
3549: ,p_validation_level=> fnd_api.g_valid_level_full
3550: ,x_return_status=> l_return_status
3551: ,x_msg_data=> x_msg_data
3552: ,x_msg_count=> x_msg_count
3545: ozf_actbudgets_pvt.update_act_budgets (
3546: p_api_version=> 1.0
3547: ,p_init_msg_list=> fnd_api.g_false
3548: ,p_commit=> fnd_api.g_false
3549: ,p_validation_level=> fnd_api.g_valid_level_full
3550: ,x_return_status=> l_return_status
3551: ,x_msg_data=> x_msg_data
3552: ,x_msg_count=> x_msg_count
3553: ,p_act_budgets_rec=> l_act_budgets_rec
3552: ,x_msg_count=> x_msg_count
3553: ,p_act_budgets_rec=> l_act_budgets_rec
3554: );
3555:
3556: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3557: RAISE fnd_api.g_exc_unexpected_error;
3558: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3559: RAISE fnd_api.g_exc_error;
3560: END IF;
3553: ,p_act_budgets_rec=> l_act_budgets_rec
3554: );
3555:
3556: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3557: RAISE fnd_api.g_exc_unexpected_error;
3558: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3559: RAISE fnd_api.g_exc_error;
3560: END IF;
3561:
3554: );
3555:
3556: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3557: RAISE fnd_api.g_exc_unexpected_error;
3558: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3559: RAISE fnd_api.g_exc_error;
3560: END IF;
3561:
3562: END LOOP;
3555:
3556: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3557: RAISE fnd_api.g_exc_unexpected_error;
3558: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3559: RAISE fnd_api.g_exc_error;
3560: END IF;
3561:
3562: END LOOP;
3563:
3584: ,x_notif_id => l_notification_id
3585: ,x_return_status => l_return_status
3586: );
3587:
3588: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3589: RAISE fnd_api.g_exc_error;
3590: END IF;
3591:
3592: END IF; -- end of status of draft.
3585: ,x_return_status => l_return_status
3586: );
3587:
3588: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3589: RAISE fnd_api.g_exc_error;
3590: END IF;
3591:
3592: END IF; -- end of status of draft.
3593:
3602: COMMIT;
3603: IF l_request_id <> 0 THEN
3604: x_status_code := 'PENDING_VALIDATION';
3605: ELSE
3606: RAISE fnd_api.g_exc_error;
3607: END IF;
3608: ELSIF l_status_code = 'NEW' THEN
3609: x_status_code := 'DRAFT';
3610: ELSE
3615: ozf_utility_pvt.debug_message(l_full_name || ': end');
3616: END IF;
3617:
3618: fnd_msg_pub.count_and_get(
3619: p_encoded => fnd_api.g_false
3620: ,p_count => x_msg_count
3621: ,p_data => x_msg_data);
3622:
3623: EXCEPTION
3620: ,p_count => x_msg_count
3621: ,p_data => x_msg_data);
3622:
3623: EXCEPTION
3624: WHEN fnd_api.g_exc_error THEN
3625: x_return_status := fnd_api.g_ret_sts_error;
3626: fnd_msg_pub.count_and_get(
3627: p_encoded => fnd_api.g_false
3628: ,p_count => x_msg_count
3621: ,p_data => x_msg_data);
3622:
3623: EXCEPTION
3624: WHEN fnd_api.g_exc_error THEN
3625: x_return_status := fnd_api.g_ret_sts_error;
3626: fnd_msg_pub.count_and_get(
3627: p_encoded => fnd_api.g_false
3628: ,p_count => x_msg_count
3629: ,p_data => x_msg_data);
3623: EXCEPTION
3624: WHEN fnd_api.g_exc_error THEN
3625: x_return_status := fnd_api.g_ret_sts_error;
3626: fnd_msg_pub.count_and_get(
3627: p_encoded => fnd_api.g_false
3628: ,p_count => x_msg_count
3629: ,p_data => x_msg_data);
3630: WHEN fnd_api.g_exc_unexpected_error THEN
3631: x_return_status := fnd_api.g_ret_sts_unexp_error;
3626: fnd_msg_pub.count_and_get(
3627: p_encoded => fnd_api.g_false
3628: ,p_count => x_msg_count
3629: ,p_data => x_msg_data);
3630: WHEN fnd_api.g_exc_unexpected_error THEN
3631: x_return_status := fnd_api.g_ret_sts_unexp_error;
3632: fnd_msg_pub.count_and_get(
3633: p_encoded => fnd_api.g_false
3634: ,p_count => x_msg_count
3627: p_encoded => fnd_api.g_false
3628: ,p_count => x_msg_count
3629: ,p_data => x_msg_data);
3630: WHEN fnd_api.g_exc_unexpected_error THEN
3631: x_return_status := fnd_api.g_ret_sts_unexp_error;
3632: fnd_msg_pub.count_and_get(
3633: p_encoded => fnd_api.g_false
3634: ,p_count => x_msg_count
3635: ,p_data => x_msg_data);
3629: ,p_data => x_msg_data);
3630: WHEN fnd_api.g_exc_unexpected_error THEN
3631: x_return_status := fnd_api.g_ret_sts_unexp_error;
3632: fnd_msg_pub.count_and_get(
3633: p_encoded => fnd_api.g_false
3634: ,p_count => x_msg_count
3635: ,p_data => x_msg_data);
3636: WHEN OTHERS THEN
3637: x_return_status := fnd_api.g_ret_sts_unexp_error;
3633: p_encoded => fnd_api.g_false
3634: ,p_count => x_msg_count
3635: ,p_data => x_msg_data);
3636: WHEN OTHERS THEN
3637: x_return_status := fnd_api.g_ret_sts_unexp_error;
3638:
3639: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3640: fnd_msg_pub.add_exc_msg(G_PACKAGE_NAME, l_api_name);
3641: END IF;
3640: fnd_msg_pub.add_exc_msg(G_PACKAGE_NAME, l_api_name);
3641: END IF;
3642:
3643: fnd_msg_pub.count_and_get(
3644: p_encoded => fnd_api.g_false
3645: ,p_count => x_msg_count
3646: ,p_data => x_msg_data);
3647: END budget_request_approval;
3648: