[Home] [Help]
42: -- from Workflow.
43:
44: PROCEDURE Approve_ActBudget (
45: p_api_version IN NUMBER,
46: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
47: p_commit IN VARCHAR2 := FND_API.G_FALSE,
48: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
43:
44: PROCEDURE Approve_ActBudget (
45: p_api_version IN NUMBER,
46: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
47: p_commit IN VARCHAR2 := FND_API.G_FALSE,
48: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
51: x_msg_data OUT NOCOPY VARCHAR2,
44: PROCEDURE Approve_ActBudget (
45: p_api_version IN NUMBER,
46: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
47: p_commit IN VARCHAR2 := FND_API.G_FALSE,
48: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
51: x_msg_data OUT NOCOPY VARCHAR2,
52:
67: -- requested budget amount. The API is called
68: -- from Workflow.
69: PROCEDURE Reject_ActBudget (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: x_return_status OUT NOCOPY VARCHAR2,
75: x_msg_count OUT NOCOPY NUMBER,
68: -- from Workflow.
69: PROCEDURE Reject_ActBudget (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: x_return_status OUT NOCOPY VARCHAR2,
75: x_msg_count OUT NOCOPY NUMBER,
76: x_msg_data OUT NOCOPY VARCHAR2,
69: PROCEDURE Reject_ActBudget (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
72: p_commit IN VARCHAR2 := FND_API.G_FALSE,
73: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74: x_return_status OUT NOCOPY VARCHAR2,
75: x_msg_count OUT NOCOPY NUMBER,
76: x_msg_data OUT NOCOPY VARCHAR2,
77:
125: -- HISTORY
126: -- 12-Sep-2000 choang Created.
127: PROCEDURE WF_Respond (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
130: p_commit IN VARCHAR2 := FND_API.G_FALSE,
131: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
132: x_return_status OUT NOCOPY VARCHAR2,
133: x_msg_count OUT NOCOPY NUMBER,
126: -- 12-Sep-2000 choang Created.
127: PROCEDURE WF_Respond (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
130: p_commit IN VARCHAR2 := FND_API.G_FALSE,
131: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
132: x_return_status OUT NOCOPY VARCHAR2,
133: x_msg_count OUT NOCOPY NUMBER,
134: x_msg_data OUT NOCOPY VARCHAR2,
127: PROCEDURE WF_Respond (
128: p_api_version IN NUMBER,
129: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
130: p_commit IN VARCHAR2 := FND_API.G_FALSE,
131: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
132: x_return_status OUT NOCOPY VARCHAR2,
133: x_msg_count OUT NOCOPY NUMBER,
134: x_msg_data OUT NOCOPY VARCHAR2,
135:
154: FROM ams_user_statuses_vl
155: WHERE user_status_id = p_status_id;
156: BEGIN
157: -- Standard call to check for call compatibility.
158: IF NOT FND_API.Compatible_API_Call ( l_api_version,
159: p_api_version,
160: l_api_name,
161: G_PACKAGE_NAME)
162: THEN
159: p_api_version,
160: l_api_name,
161: G_PACKAGE_NAME)
162: THEN
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165: -- Initialize message list if p_init_msg_list is set to TRUE.
166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
167: FND_MSG_PUB.initialize;
162: THEN
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164: END IF;
165: -- Initialize message list if p_init_msg_list is set to TRUE.
166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
167: FND_MSG_PUB.initialize;
168: END IF;
169: -- Initialize API return status to success
170: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
167: FND_MSG_PUB.initialize;
168: END IF;
169: -- Initialize API return status to success
170: x_return_status := FND_API.G_RET_STS_SUCCESS;
171:
172: OPEN c_status_code (p_respond_status_id);
173: FETCH c_status_code INTO l_status_code;
174: CLOSE c_status_code;
182:
183: IF l_status_code = 'APPROVED' THEN
184: Approve_ActBudget (
185: p_api_version => 1.0,
186: p_init_msg_list => FND_API.g_false,
187: p_commit => FND_API.g_false,
188: p_validation_level => p_validation_level,
189: x_return_status => x_return_status,
190: x_msg_count => x_msg_count,
183: IF l_status_code = 'APPROVED' THEN
184: Approve_ActBudget (
185: p_api_version => 1.0,
186: p_init_msg_list => FND_API.g_false,
187: p_commit => FND_API.g_false,
188: p_validation_level => p_validation_level,
189: x_return_status => x_return_status,
190: x_msg_count => x_msg_count,
191: x_msg_data => x_msg_data,
199: );
200: ELSIF l_status_code = 'REJECTED' THEN
201: Reject_ActBudget (
202: p_api_version => 1.0,
203: p_init_msg_list => FND_API.g_false,
204: p_commit => FND_API.g_false,
205: p_validation_level => p_validation_level,
206: x_return_status => x_return_status,
207: x_msg_count => x_msg_count,
200: ELSIF l_status_code = 'REJECTED' THEN
201: Reject_ActBudget (
202: p_api_version => 1.0,
203: p_init_msg_list => FND_API.g_false,
204: p_commit => FND_API.g_false,
205: p_validation_level => p_validation_level,
206: x_return_status => x_return_status,
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data,
223: -- 11/12/2001 mpande added the following
224: l_act_budget_rec.comment := p_comment ;
225: OZF_ActBudgets_PVT.Update_Act_Budgets (
226: p_api_version => 1.0,
227: p_init_msg_list => FND_API.g_false,
228: p_commit => FND_API.g_false,
229: p_validation_level => p_validation_level,
230: x_return_status => x_return_status,
231: x_msg_count => x_msg_count,
224: l_act_budget_rec.comment := p_comment ;
225: OZF_ActBudgets_PVT.Update_Act_Budgets (
226: p_api_version => 1.0,
227: p_init_msg_list => FND_API.g_false,
228: p_commit => FND_API.g_false,
229: p_validation_level => p_validation_level,
230: x_return_status => x_return_status,
231: x_msg_count => x_msg_count,
232: x_msg_data => x_msg_data,
233: p_act_budgets_rec => l_act_budget_rec
234: );
235: END IF;
236:
237: IF (p_commit = FND_API.g_true) THEN
238: COMMIT WORK;
239: END IF;
240: END WF_Respond;
241:
250: -- HISTORY
251: -- 16-Aug-2000 choang Created.
252: PROCEDURE Approve_ActBudget (
253: p_api_version IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_commit IN VARCHAR2 := FND_API.G_FALSE,
256: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
257: x_return_status OUT NOCOPY VARCHAR2,
258: x_msg_count OUT NOCOPY NUMBER,
251: -- 16-Aug-2000 choang Created.
252: PROCEDURE Approve_ActBudget (
253: p_api_version IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_commit IN VARCHAR2 := FND_API.G_FALSE,
256: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
257: x_return_status OUT NOCOPY VARCHAR2,
258: x_msg_count OUT NOCOPY NUMBER,
259: x_msg_data OUT NOCOPY VARCHAR2,
252: PROCEDURE Approve_ActBudget (
253: p_api_version IN NUMBER,
254: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
255: p_commit IN VARCHAR2 := FND_API.G_FALSE,
256: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
257: x_return_status OUT NOCOPY VARCHAR2,
258: x_msg_count OUT NOCOPY NUMBER,
259: x_msg_data OUT NOCOPY VARCHAR2,
260:
300: -- HISTORY
301: -- 16-Aug-2000 choang Created.
302: PROCEDURE Reject_ActBudget (
303: p_api_version IN NUMBER,
304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
305: p_commit IN VARCHAR2 := FND_API.G_FALSE,
306: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
307: x_return_status OUT NOCOPY VARCHAR2,
308: x_msg_count OUT NOCOPY NUMBER,
301: -- 16-Aug-2000 choang Created.
302: PROCEDURE Reject_ActBudget (
303: p_api_version IN NUMBER,
304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
305: p_commit IN VARCHAR2 := FND_API.G_FALSE,
306: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
307: x_return_status OUT NOCOPY VARCHAR2,
308: x_msg_count OUT NOCOPY NUMBER,
309: x_msg_data OUT NOCOPY VARCHAR2,
302: PROCEDURE Reject_ActBudget (
303: p_api_version IN NUMBER,
304: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
305: p_commit IN VARCHAR2 := FND_API.G_FALSE,
306: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
307: x_return_status OUT NOCOPY VARCHAR2,
308: x_msg_count OUT NOCOPY NUMBER,
309: x_msg_data OUT NOCOPY VARCHAR2,
310:
365: -- PURPOSE
366: -- Close the books for the budget source line.
367: PROCEDURE Close_ActBudget (
368: p_api_version IN NUMBER,
369: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
370: p_commit IN VARCHAR2 := FND_API.G_FALSE,
371: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
372: x_return_status OUT NOCOPY VARCHAR2,
373: x_msg_count OUT NOCOPY NUMBER,
366: -- Close the books for the budget source line.
367: PROCEDURE Close_ActBudget (
368: p_api_version IN NUMBER,
369: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
370: p_commit IN VARCHAR2 := FND_API.G_FALSE,
371: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
372: x_return_status OUT NOCOPY VARCHAR2,
373: x_msg_count OUT NOCOPY NUMBER,
374: x_msg_data OUT NOCOPY VARCHAR2,
367: PROCEDURE Close_ActBudget (
368: p_api_version IN NUMBER,
369: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
370: p_commit IN VARCHAR2 := FND_API.G_FALSE,
371: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
372: x_return_status OUT NOCOPY VARCHAR2,
373: x_msg_count OUT NOCOPY NUMBER,
374: x_msg_data OUT NOCOPY VARCHAR2,
375:
417: AND budget_source_type = 'FUND'
418: AND status_code = 'APPROVED';
419:
420: l_camp_owner_id NUMBER;
421: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
422: l_notification_id NUMBER;
423: l_camp_status VARCHAR2(30);
424: l_strSubject VARCHAR2(200);
425: l_partner_name VARCHAR2(30);
477: ,x_notif_id => l_notification_id
478: ,x_return_status => l_return_status
479: );
480:
481: IF l_return_status <> fnd_api.g_ret_sts_success THEN
482: RAISE fnd_api.g_exc_error;
483: END IF;
484:
485: END IF;
478: ,x_return_status => l_return_status
479: );
480:
481: IF l_return_status <> fnd_api.g_ret_sts_success THEN
482: RAISE fnd_api.g_exc_error;
483: END IF;
484:
485: END IF;
486: EXCEPTION
484:
485: END IF;
486: EXCEPTION
487: WHEN OTHERS THEN
488: x_return_status := fnd_api.g_ret_sts_error;
489: END notify_vendor;
490:
491:
492: /* zy: print whole string. For debug only. Remove them when done
573: l_fund_rec.object_version_number := l_object_version_number;
574:
575: -- reduce the committed amount of the budget
576: ozf_funds_pvt.update_fund( p_api_version => 1.0
577: ,p_init_msg_list => fnd_api.g_false
578: ,p_commit => fnd_api.g_false
579: ,p_validation_level => fnd_api.g_valid_level_full
580: ,x_return_status => l_return_status
581: ,x_msg_count => l_msg_count
574:
575: -- reduce the committed amount of the budget
576: ozf_funds_pvt.update_fund( p_api_version => 1.0
577: ,p_init_msg_list => fnd_api.g_false
578: ,p_commit => fnd_api.g_false
579: ,p_validation_level => fnd_api.g_valid_level_full
580: ,x_return_status => l_return_status
581: ,x_msg_count => l_msg_count
582: ,x_msg_data => l_msg_data
575: -- reduce the committed amount of the budget
576: ozf_funds_pvt.update_fund( p_api_version => 1.0
577: ,p_init_msg_list => fnd_api.g_false
578: ,p_commit => fnd_api.g_false
579: ,p_validation_level => fnd_api.g_valid_level_full
580: ,x_return_status => l_return_status
581: ,x_msg_count => l_msg_count
582: ,x_msg_data => l_msg_data
583: ,p_fund_rec => l_fund_rec
583: ,p_fund_rec => l_fund_rec
584: ,p_mode => jtf_plsql_api.g_update
585: );
586:
587: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
588: x_return_status := l_return_status;
589: RAISE fnd_api.G_EXC_ERROR;
590: END IF;
591:
585: );
586:
587: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
588: x_return_status := l_return_status;
589: RAISE fnd_api.G_EXC_ERROR;
590: END IF;
591:
592: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
593: l_act_budgets_rec.status_code := 'NEW';
590: END IF;
591:
592: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
593: l_act_budgets_rec.status_code := 'NEW';
594: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
595: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
596: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
597: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
591:
592: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
593: l_act_budgets_rec.status_code := 'NEW';
594: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
595: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
596: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
597: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
599:
592: l_act_budgets_rec.activity_budget_id := l_activity_budget_id;
593: l_act_budgets_rec.status_code := 'NEW';
594: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
595: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
596: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
597: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
599:
600: -- revert the APPROVED budget line to NEW
593: l_act_budgets_rec.status_code := 'NEW';
594: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
595: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
596: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
597: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
599:
600: -- revert the APPROVED budget line to NEW
601: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
594: l_act_budgets_rec.approval_date := fnd_api.g_miss_date;
595: l_act_budgets_rec.approver_id := fnd_api.g_miss_num;
596: l_act_budgets_rec.approved_amount := fnd_api.g_miss_num;
597: l_act_budgets_rec.approved_original_amount := fnd_api.g_miss_num;
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
599:
600: -- revert the APPROVED budget line to NEW
601: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
602: ,p_init_msg_list => fnd_api.g_false
598: l_act_budgets_rec.approved_in_currency := fnd_api.g_miss_char;
599:
600: -- revert the APPROVED budget line to NEW
601: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
602: ,p_init_msg_list => fnd_api.g_false
603: ,p_commit => fnd_api.g_false
604: ,p_validation_level => fnd_api.g_valid_level_full
605: ,x_return_status => l_return_status
606: ,x_msg_count => l_msg_count
599:
600: -- revert the APPROVED budget line to NEW
601: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
602: ,p_init_msg_list => fnd_api.g_false
603: ,p_commit => fnd_api.g_false
604: ,p_validation_level => fnd_api.g_valid_level_full
605: ,x_return_status => l_return_status
606: ,x_msg_count => l_msg_count
607: ,x_msg_data => l_msg_data
600: -- revert the APPROVED budget line to NEW
601: ozf_actbudgets_pvt.update_act_budgets ( p_api_version => 1.0
602: ,p_init_msg_list => fnd_api.g_false
603: ,p_commit => fnd_api.g_false
604: ,p_validation_level => fnd_api.g_valid_level_full
605: ,x_return_status => l_return_status
606: ,x_msg_count => l_msg_count
607: ,x_msg_data => l_msg_data
608: ,p_act_budgets_rec => l_act_budgets_rec);
606: ,x_msg_count => l_msg_count
607: ,x_msg_data => l_msg_data
608: ,p_act_budgets_rec => l_act_budgets_rec);
609:
610: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
611: x_return_status := l_return_status;
612: RAISE fnd_api.G_EXC_ERROR;
613: END IF;
614:
608: ,p_act_budgets_rec => l_act_budgets_rec);
609:
610: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
611: x_return_status := l_return_status;
612: RAISE fnd_api.G_EXC_ERROR;
613: END IF;
614:
615: /*
616: -- delete utilization record
614:
615: /*
616: -- delete utilization record
617: ozf_fund_utilized_pvt.delete_utilization ( p_api_version => 1.0
618: ,p_init_msg_list => fnd_api.g_false
619: ,p_commit => fnd_api.g_false
620: ,x_return_status => l_return_status
621: ,x_msg_count => l_msg_count
622: ,x_msg_data => l_msg_data
615: /*
616: -- delete utilization record
617: ozf_fund_utilized_pvt.delete_utilization ( p_api_version => 1.0
618: ,p_init_msg_list => fnd_api.g_false
619: ,p_commit => fnd_api.g_false
620: ,x_return_status => l_return_status
621: ,x_msg_count => l_msg_count
622: ,x_msg_data => l_msg_data
623: ,p_utilization_id => l_utilization_id
622: ,x_msg_data => l_msg_data
623: ,p_utilization_id => l_utilization_id
624: ,p_object_version => l_util_object_version);
625:
626: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
627: x_return_status := l_return_status;
628: RAISE fnd_api.G_EXC_ERROR;
629: END IF;
630: */
624: ,p_object_version => l_util_object_version);
625:
626: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
627: x_return_status := l_return_status;
628: RAISE fnd_api.G_EXC_ERROR;
629: END IF;
630: */
631: END LOOP;
632:
634:
635: EXCEPTION
636: WHEN OTHERS THEN
637: ROLLBACK TO revert_approved_request;
638: x_return_status := fnd_api.g_ret_sts_error;
639: fnd_msg_pub.count_and_get (
640: p_count => x_msg_count
641: , p_data => x_msg_data
642: , p_encoded => fnd_api.g_false
638: x_return_status := fnd_api.g_ret_sts_error;
639: fnd_msg_pub.count_and_get (
640: p_count => x_msg_count
641: , p_data => x_msg_data
642: , p_encoded => fnd_api.g_false
643: );
644:
645: END revert_approved_request;
646:
706: FETCH c_check_exclude_items INTO l_exist_number;
707: CLOSE c_check_exclude_items;
708: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
709: IF l_exist_number = 1 THEN
710: x_return_status := fnd_api.g_ret_sts_success;
711: x_valid_flag := fnd_api.g_false;
712: RETURN;
713: END IF;
714: ELSE
707: CLOSE c_check_exclude_items;
708: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
709: IF l_exist_number = 1 THEN
710: x_return_status := fnd_api.g_ret_sts_success;
711: x_valid_flag := fnd_api.g_false;
712: RETURN;
713: END IF;
714: ELSE
715: OPEN c_check_items;
716: FETCH c_check_items INTO l_exist_number;
717: CLOSE c_check_items;
718: ----dbms_output.put_line('l_exist_number: ' || l_exist_number);
719: IF l_exist_number = 1 THEN
720: x_return_status := fnd_api.g_ret_sts_success;
721: x_valid_flag := fnd_api.g_false;
722: RETURN;
723: END IF;
724: END IF;
717: CLOSE c_check_items;
718: ----dbms_output.put_line('l_exist_number: ' || l_exist_number);
719: IF l_exist_number = 1 THEN
720: x_return_status := fnd_api.g_ret_sts_success;
721: x_valid_flag := fnd_api.g_false;
722: RETURN;
723: END IF;
724: END IF;
725: END check_product_market_strict;
774: FETCH c_check_exclude_items INTO l_exist_number;
775: CLOSE c_check_exclude_items;
776: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
777: IF NVL(l_exist_number,0) <> 1 THEN
778: x_return_status := fnd_api.g_ret_sts_success;
779: x_valid_flag := fnd_api.g_false;
780: RETURN;
781: END IF;
782: ELSE
775: CLOSE c_check_exclude_items;
776: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
777: IF NVL(l_exist_number,0) <> 1 THEN
778: x_return_status := fnd_api.g_ret_sts_success;
779: x_valid_flag := fnd_api.g_false;
780: RETURN;
781: END IF;
782: ELSE
783: OPEN c_check_items;
784: FETCH c_check_items INTO l_exist_number;
785: CLOSE c_check_items;
786: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
787: IF NVL(l_exist_number,0) <> 1 THEN
788: x_return_status := fnd_api.g_ret_sts_success;
789: x_valid_flag := fnd_api.g_false;
790: RETURN;
791: END IF;
792: END IF;
785: CLOSE c_check_items;
786: --dbms_output.put_line('l_exist_number: ' || l_exist_number);
787: IF NVL(l_exist_number,0) <> 1 THEN
788: x_return_status := fnd_api.g_ret_sts_success;
789: x_valid_flag := fnd_api.g_false;
790: RETURN;
791: END IF;
792: END IF;
793:
829: AND arc_act_product_used_by = p_arc_act_product_used_by
830: AND excluded_flag = p_excluded_flag;
831:
832: BEGIN
833: x_return_status := fnd_api.G_RET_STS_SUCCESS;
834: x_budget_prod := FALSE;
835: x_exclude_prod := FALSE;
836: SAVEPOINT denorm_product_for_one_budget;
837:
942:
943: EXCEPTION
944: WHEN OTHERS THEN
945: ROLLBACK TO denorm_product_for_one_budget;
946: x_return_status := fnd_api.g_ret_sts_error;
947: END denorm_product_for_one_budget;
948:
949:
950: -------------------------------------------------------------------
983: AND arc_act_market_segment_used_by = 'FUND'
984: AND exclude_flag = p_exclude_flag;
985:
986: BEGIN
987: x_return_status := fnd_api.G_RET_STS_SUCCESS;
988: x_budget_mark := FALSE;
989: x_exclude_mark := FALSE;
990: SAVEPOINT denorm_market_for_one_budget;
991:
1158:
1159: EXCEPTION
1160: WHEN OTHERS THEN
1161: ROLLBACK TO denorm_market_for_one_budget;
1162: x_return_status := fnd_api.g_ret_sts_error;
1163:
1164: END denorm_market_for_one_budget;
1165:
1166:
1219: WHERE object_type = 'OFFR';
1220:
1221: BEGIN
1222:
1223: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1224: x_valid_flag := fnd_api.G_TRUE;
1225:
1226: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1227:
1220:
1221: BEGIN
1222:
1223: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1224: x_valid_flag := fnd_api.G_TRUE;
1225:
1226: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1227:
1228: denorm_product_for_one_budget (
1231: x_exclude_prod => l_exclude_prod,
1232: x_return_status => l_return_status,
1233: x_msg_count => l_msg_count,
1234: x_msg_data => l_msg_data);
1235: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1236: x_return_status := l_return_status;
1237: RAISE fnd_api.G_EXC_ERROR;
1238: END IF;
1239:
1233: x_msg_count => l_msg_count,
1234: x_msg_data => l_msg_data);
1235: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1236: x_return_status := l_return_status;
1237: RAISE fnd_api.G_EXC_ERROR;
1238: END IF;
1239:
1240: -- no product eligibility for budget, validation is true.
1241: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1238: END IF;
1239:
1240: -- no product eligibility for budget, validation is true.
1241: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1242: x_return_status := fnd_api.g_ret_sts_success;
1243: x_valid_flag := fnd_api.g_true;
1244: RETURN;
1245: END IF;
1246: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1239:
1240: -- no product eligibility for budget, validation is true.
1241: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1242: x_return_status := fnd_api.g_ret_sts_success;
1243: x_valid_flag := fnd_api.g_true;
1244: RETURN;
1245: END IF;
1246: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1247: l_exclude_only := TRUE;
1291: ELSE -- for other offer,
1292: -- get offer's product eligibility query
1293: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1294: p_api_version => 1.0,
1295: p_init_msg_list => fnd_api.g_false,
1296: p_commit => fnd_api.g_false,
1297: p_list_header_id => p_object_id,
1298: p_calling_from_den => 'N',
1299: x_return_status => l_return_status,
1292: -- get offer's product eligibility query
1293: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1294: p_api_version => 1.0,
1295: p_init_msg_list => fnd_api.g_false,
1296: p_commit => fnd_api.g_false,
1297: p_list_header_id => p_object_id,
1298: p_calling_from_den => 'N',
1299: x_return_status => l_return_status,
1300: x_msg_count => l_msg_count,
1301: x_msg_data => l_msg_data,
1302: x_product_stmt => l_offer_product_sql
1303: );
1304:
1305: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1306: x_return_status := l_return_status;
1307: RAISE fnd_api.G_EXC_ERROR;
1308: END IF;
1309:
1303: );
1304:
1305: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1306: x_return_status := l_return_status;
1307: RAISE fnd_api.G_EXC_ERROR;
1308: END IF;
1309:
1310: END IF;
1311: FND_DSQL.add_text(')');
1310: END IF;
1311: FND_DSQL.add_text(')');
1312:
1313: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1314: x_return_status := fnd_api.g_ret_sts_success;
1315: x_valid_flag := fnd_api.g_false;
1316: RETURN;
1317: END IF;
1318:
1311: FND_DSQL.add_text(')');
1312:
1313: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1314: x_return_status := fnd_api.g_ret_sts_success;
1315: x_valid_flag := fnd_api.g_false;
1316: RETURN;
1317: END IF;
1318:
1319: IF l_offer_product_sql IS NOT NULL OR l_offer_prod THEN
1336:
1337: IF l_count_offer_prod = 0 THEN
1338: FND_MESSAGE.Set_Name ('OZF', 'OZF_OFFER_NO_PROD');
1339: FND_MSG_PUB.Add;
1340: RAISE fnd_api.G_EXC_ERROR;
1341: END IF;
1342:
1343: IF p_mode = 'LOOSE' THEN
1344: check_product_market_loose(
1346: x_return_status => l_return_status,
1347: x_valid_flag => x_valid_flag
1348: );
1349:
1350: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1351: x_return_status := l_return_status;
1352: RAISE fnd_api.G_EXC_ERROR;
1353: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1354: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1348: );
1349:
1350: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1351: x_return_status := l_return_status;
1352: RAISE fnd_api.G_EXC_ERROR;
1353: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1354: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1355: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1356: FND_MSG_PUB.Add;
1349:
1350: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1351: x_return_status := l_return_status;
1352: RAISE fnd_api.G_EXC_ERROR;
1353: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1354: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1355: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1356: FND_MSG_PUB.Add;
1357: RAISE fnd_api.G_EXC_ERROR;
1353: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1354: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1355: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer does not have a single product that matches the product of the budget');
1356: FND_MSG_PUB.Add;
1357: RAISE fnd_api.G_EXC_ERROR;
1358: END IF;
1359: ELSIF p_mode = 'STRICT' THEN
1360: check_product_market_strict(
1361: p_exclude_only => l_exclude_only,
1362: x_return_status => l_return_status,
1363: x_valid_flag => x_valid_flag
1364: );
1365:
1366: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1367: x_return_status := l_return_status;
1368: RAISE fnd_api.G_EXC_ERROR;
1369: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1370: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1364: );
1365:
1366: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1367: x_return_status := l_return_status;
1368: RAISE fnd_api.G_EXC_ERROR;
1369: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1370: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1371: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1372: FND_MSG_PUB.Add;
1365:
1366: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1367: x_return_status := l_return_status;
1368: RAISE fnd_api.G_EXC_ERROR;
1369: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1370: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1371: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1372: FND_MSG_PUB.Add;
1373: RAISE fnd_api.G_EXC_ERROR;
1369: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1370: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1371: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in budget product list');
1372: FND_MSG_PUB.Add;
1373: RAISE fnd_api.G_EXC_ERROR;
1374: END IF;
1375: END IF;
1376:
1377: EXCEPTION
1375: END IF;
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: x_return_status := fnd_api.g_ret_sts_error;
1380: END validate_product_by_each_line;
1381:
1382: -------------------------------------------------------------------
1383: -- NAME
1440: AND arc_act_product_used_by = 'OFFR'
1441: AND excluded_flag = 'N';
1442: BEGIN
1443:
1444: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1445: x_valid_flag := fnd_api.G_TRUE;
1446:
1447: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1448:
1441: AND excluded_flag = 'N';
1442: BEGIN
1443:
1444: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1445: x_valid_flag := fnd_api.G_TRUE;
1446:
1447: EXECUTE IMMEDIATE 'DELETE FROM ozf_temp_eligibility';
1448:
1449: FND_DSQL.init;
1554: --dbms_output.put_line(l_ignore);
1555: END IF;
1556: -- not product eligibility for budget, validation is true.
1557: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1558: x_return_status := fnd_api.g_ret_sts_success;
1559: x_valid_flag := fnd_api.g_true;
1560: RETURN;
1561: END IF;
1562:
1555: END IF;
1556: -- not product eligibility for budget, validation is true.
1557: IF l_budget_prod = FALSE AND l_exclude_prod = FALSE THEN
1558: x_return_status := fnd_api.g_ret_sts_success;
1559: x_valid_flag := fnd_api.g_true;
1560: RETURN;
1561: END IF;
1562:
1563: IF l_budget_prod = FALSE AND l_exclude_prod = TRUE THEN
1607: ELSE -- for other offer,
1608: -- get offer's product eligibility query
1609: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1610: p_api_version => 1.0,
1611: p_init_msg_list => fnd_api.g_false,
1612: p_commit => fnd_api.g_false,
1613: p_list_header_id => p_object_id,
1614: p_calling_from_den => 'N',
1615: x_return_status => l_return_status,
1608: -- get offer's product eligibility query
1609: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_products(
1610: p_api_version => 1.0,
1611: p_init_msg_list => fnd_api.g_false,
1612: p_commit => fnd_api.g_false,
1613: p_list_header_id => p_object_id,
1614: p_calling_from_den => 'N',
1615: x_return_status => l_return_status,
1616: x_msg_count => l_msg_count,
1616: x_msg_count => l_msg_count,
1617: x_msg_data => l_msg_data,
1618: x_product_stmt => l_offer_product_sql
1619: );
1620: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1621: x_return_status := l_return_status;
1622: RAISE fnd_api.G_EXC_ERROR;
1623: END IF;
1624: END IF;
1618: x_product_stmt => l_offer_product_sql
1619: );
1620: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1621: x_return_status := l_return_status;
1622: RAISE fnd_api.G_EXC_ERROR;
1623: END IF;
1624: END IF;
1625: FND_DSQL.add_text(')');
1626:
1624: END IF;
1625: FND_DSQL.add_text(')');
1626:
1627: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1628: x_return_status := fnd_api.g_ret_sts_success;
1629: x_valid_flag := fnd_api.g_false;
1630: RETURN;
1631: END IF;
1632:
1625: FND_DSQL.add_text(')');
1626:
1627: IF l_offer_product_sql IS NULL AND l_offer_prod = FALSE THEN
1628: x_return_status := fnd_api.g_ret_sts_success;
1629: x_valid_flag := fnd_api.g_false;
1630: RETURN;
1631: END IF;
1632:
1633: IF l_offer_product_sql IS NOT NULL OR l_offer_prod THEN
1647: x_return_status => l_return_status,
1648: x_valid_flag => x_valid_flag
1649: );
1650:
1651: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1652: x_return_status := l_return_status;
1653: RAISE fnd_api.G_EXC_ERROR;
1654: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1655: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1649: );
1650:
1651: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1652: x_return_status := l_return_status;
1653: RAISE fnd_api.G_EXC_ERROR;
1654: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1655: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1656: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1657: FND_MSG_PUB.Add;
1650:
1651: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1652: x_return_status := l_return_status;
1653: RAISE fnd_api.G_EXC_ERROR;
1654: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1655: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1656: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1657: FND_MSG_PUB.Add;
1658: RAISE fnd_api.G_EXC_ERROR;
1654: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1655: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1656: FND_MESSAGE.SET_TOKEN('text', 'Product validation fails. Offer has product that is not in product list of all budgets');
1657: FND_MSG_PUB.Add;
1658: RAISE fnd_api.G_EXC_ERROR;
1659: END IF;
1660:
1661: EXCEPTION
1662: WHEN OTHERS THEN
1659: END IF;
1660:
1661: EXCEPTION
1662: WHEN OTHERS THEN
1663: x_return_status := fnd_api.g_ret_sts_error;
1664: END validate_product_by_all_lines;
1665:
1666:
1667: /* --------------------------------------------------------------------------
1739: FROM ozf_offers
1740: WHERE qp_list_header_id = p_object_id;
1741: BEGIN
1742:
1743: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1744: x_valid_flag := fnd_api.g_true;
1745:
1746: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1747: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1740: WHERE qp_list_header_id = p_object_id;
1741: BEGIN
1742:
1743: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1744: x_valid_flag := fnd_api.g_true;
1745:
1746: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1747: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1748: */
1756: x_exclude_mark => l_exclude_mark,
1757: x_return_status => l_return_status,
1758: x_msg_count => l_msg_count,
1759: x_msg_data => l_msg_data);
1760: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1761: x_return_status := l_return_status;
1762: RAISE fnd_api.G_EXC_ERROR;
1763: END IF;
1764:
1758: x_msg_count => l_msg_count,
1759: x_msg_data => l_msg_data);
1760: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1761: x_return_status := l_return_status;
1762: RAISE fnd_api.G_EXC_ERROR;
1763: END IF;
1764:
1765: -- no market eligibility for budget, validation is true.
1766: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1764:
1765: -- no market eligibility for budget, validation is true.
1766: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1767: --dbms_output.put_line('budget does not have market eligiblity.');
1768: x_return_status := fnd_api.g_ret_sts_success;
1769: x_valid_flag := fnd_api.g_true;
1770: RETURN;
1771: END IF;
1772:
1765: -- no market eligibility for budget, validation is true.
1766: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
1767: --dbms_output.put_line('budget does not have market eligiblity.');
1768: x_return_status := fnd_api.g_ret_sts_success;
1769: x_valid_flag := fnd_api.g_true;
1770: RETURN;
1771: END IF;
1772:
1773: IF l_budget_mark = FALSE AND l_exclude_mark = TRUE THEN
1809: ELSE
1810: -- get offer's market eligibility query
1811: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
1812: p_api_version => 1.0,
1813: p_init_msg_list => fnd_api.g_false,
1814: p_commit => fnd_api.g_false,
1815: p_list_header_id => p_object_id,
1816: p_calling_from_den => 'N',
1817: x_return_status => l_return_status,
1810: -- get offer's market eligibility query
1811: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
1812: p_api_version => 1.0,
1813: p_init_msg_list => fnd_api.g_false,
1814: p_commit => fnd_api.g_false,
1815: p_list_header_id => p_object_id,
1816: p_calling_from_den => 'N',
1817: x_return_status => l_return_status,
1818: x_msg_count => l_msg_count,
1818: x_msg_count => l_msg_count,
1819: x_msg_data => l_msg_data,
1820: x_party_stmt => l_offer_market_sql
1821: );
1822: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1823: x_return_status := l_return_status;
1824: RAISE fnd_api.G_EXC_ERROR;
1825: END IF;
1826: END IF;
1820: x_party_stmt => l_offer_market_sql
1821: );
1822: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1823: x_return_status := l_return_status;
1824: RAISE fnd_api.G_EXC_ERROR;
1825: END IF;
1826: END IF;
1827: FND_DSQL.add_text(')');
1828:
1826: END IF;
1827: FND_DSQL.add_text(')');
1828:
1829: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
1830: x_return_status := fnd_api.g_ret_sts_success;
1831: x_valid_flag := fnd_api.g_false;
1832: RETURN;
1833: ELSE
1834: l_denorm_csr := DBMS_SQL.open_cursor;
1827: FND_DSQL.add_text(')');
1828:
1829: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
1830: x_return_status := fnd_api.g_ret_sts_success;
1831: x_valid_flag := fnd_api.g_false;
1832: RETURN;
1833: ELSE
1834: l_denorm_csr := DBMS_SQL.open_cursor;
1835: FND_DSQL.set_cursor(l_denorm_csr);
1859: x_return_status => l_return_status,
1860: x_valid_flag => x_valid_flag
1861: );
1862:
1863: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1864: x_return_status := l_return_status;
1865: RAISE fnd_api.G_EXC_ERROR;
1866: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1867: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1861: );
1862:
1863: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1864: x_return_status := l_return_status;
1865: RAISE fnd_api.G_EXC_ERROR;
1866: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1867: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1868: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1869: FND_MSG_PUB.Add;
1862:
1863: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1864: x_return_status := l_return_status;
1865: RAISE fnd_api.G_EXC_ERROR;
1866: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1867: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1868: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1869: FND_MSG_PUB.Add;
1870: RAISE fnd_api.G_EXC_ERROR;
1866: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1867: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1868: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer does not have a single party that matches the party of the budget');
1869: FND_MSG_PUB.Add;
1870: RAISE fnd_api.G_EXC_ERROR;
1871: END IF;
1872: ELSIF p_mode = 'STRICT' THEN
1873: check_product_market_strict(
1874: p_exclude_only => l_exclude_only,
1875: x_return_status => l_return_status,
1876: x_valid_flag => x_valid_flag
1877: );
1878:
1879: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1880: x_return_status := l_return_status;
1881: RAISE fnd_api.G_EXC_ERROR;
1882: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1883: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1877: );
1878:
1879: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1880: x_return_status := l_return_status;
1881: RAISE fnd_api.G_EXC_ERROR;
1882: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1883: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1884: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1885: FND_MSG_PUB.Add;
1878:
1879: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
1880: x_return_status := l_return_status;
1881: RAISE fnd_api.G_EXC_ERROR;
1882: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1883: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1884: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1885: FND_MSG_PUB.Add;
1886: RAISE fnd_api.G_EXC_ERROR;
1882: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
1883: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
1884: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in budget market list');
1885: FND_MSG_PUB.Add;
1886: RAISE fnd_api.G_EXC_ERROR;
1887: END IF;
1888: END IF;
1889:
1890: EXCEPTION
1888: END IF;
1889:
1890: EXCEPTION
1891: WHEN OTHERS THEN
1892: x_return_status := fnd_api.g_ret_sts_error;
1893:
1894: END validate_market_by_each_line;
1895:
1896: -------------------------------------------------------------------
1954: WHERE qp_list_header_id = p_object_id;
1955:
1956: BEGIN
1957:
1958: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1959: x_valid_flag := fnd_api.g_true;
1960:
1961: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1962: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1955:
1956: BEGIN
1957:
1958: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1959: x_valid_flag := fnd_api.g_true;
1960:
1961: /* yzhao: 02/07/2003 fix bug 2789518 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY CUSTOMER BILL TO FAILS
1962: set org id since for customer bill to, denorm query on org-striped table ra_addresses party,ra_site_uses
1963: */
2132: END IF;
2133: -- not product eligibility for budget, validation is true.
2134: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2135: --dbms_output.put_line('validate_market_by_all_lines: budget do not has market eligiblity.');
2136: x_return_status := fnd_api.g_ret_sts_success;
2137: x_valid_flag := fnd_api.g_true;
2138: RETURN;
2139: END IF;
2140:
2133: -- not product eligibility for budget, validation is true.
2134: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2135: --dbms_output.put_line('validate_market_by_all_lines: budget do not has market eligiblity.');
2136: x_return_status := fnd_api.g_ret_sts_success;
2137: x_valid_flag := fnd_api.g_true;
2138: RETURN;
2139: END IF;
2140:
2141: IF l_budget_mark = FALSE AND l_exclude_mark = TRUE THEN
2177: ELSE
2178: -- get offer's market eligibility query
2179: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
2180: p_api_version => 1.0,
2181: p_init_msg_list => fnd_api.g_false,
2182: p_commit => fnd_api.g_false,
2183: p_list_header_id => p_object_id,
2184: p_calling_from_den => 'N',
2185: x_return_status => l_return_status,
2178: -- get offer's market eligibility query
2179: OZF_OFFR_ELIG_PROD_DENORM_PVT.refresh_parties(
2180: p_api_version => 1.0,
2181: p_init_msg_list => fnd_api.g_false,
2182: p_commit => fnd_api.g_false,
2183: p_list_header_id => p_object_id,
2184: p_calling_from_den => 'N',
2185: x_return_status => l_return_status,
2186: x_msg_count => l_msg_count,
2187: x_msg_data => l_msg_data,
2188: x_party_stmt => l_offer_market_sql
2189: );
2190: --dbms_output.put_line('validate_market_by_all_lines: Offer party sql returns ' || l_offer_market_sql);
2191: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2192: x_return_status := l_return_status;
2193: RAISE fnd_api.G_EXC_ERROR;
2194: END IF;
2195: END IF;
2189: );
2190: --dbms_output.put_line('validate_market_by_all_lines: Offer party sql returns ' || l_offer_market_sql);
2191: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2192: x_return_status := l_return_status;
2193: RAISE fnd_api.G_EXC_ERROR;
2194: END IF;
2195: END IF;
2196: FND_DSQL.add_text(')');
2197:
2195: END IF;
2196: FND_DSQL.add_text(')');
2197:
2198: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
2199: x_return_status := fnd_api.g_ret_sts_success;
2200: x_valid_flag := fnd_api.g_false;
2201: RETURN;
2202: ELSE
2203: l_denorm_csr := DBMS_SQL.open_cursor;
2196: FND_DSQL.add_text(')');
2197:
2198: IF l_offer_market_sql IS NULL AND l_offer_mark = FALSE THEN
2199: x_return_status := fnd_api.g_ret_sts_success;
2200: x_valid_flag := fnd_api.g_false;
2201: RETURN;
2202: ELSE
2203: l_denorm_csr := DBMS_SQL.open_cursor;
2204: FND_DSQL.set_cursor(l_denorm_csr);
2226: x_return_status => l_return_status,
2227: x_valid_flag => x_valid_flag
2228: );
2229:
2230: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2231: x_return_status := l_return_status;
2232: RAISE fnd_api.G_EXC_ERROR;
2233: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2234: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2228: );
2229:
2230: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2231: x_return_status := l_return_status;
2232: RAISE fnd_api.G_EXC_ERROR;
2233: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2234: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2235: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2236: FND_MSG_PUB.Add;
2229:
2230: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2231: x_return_status := l_return_status;
2232: RAISE fnd_api.G_EXC_ERROR;
2233: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2234: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2235: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2236: FND_MSG_PUB.Add;
2237: RAISE fnd_api.G_EXC_ERROR;
2233: ELSIF x_valid_flag <> fnd_api.G_TRUE THEN
2234: FND_MESSAGE.Set_Name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2235: FND_MESSAGE.SET_TOKEN('text', 'Market validation fails. Offer has party that is not in market list of all budgets');
2236: FND_MSG_PUB.Add;
2237: RAISE fnd_api.G_EXC_ERROR;
2238: END IF;
2239:
2240: EXCEPTION
2241: WHEN OTHERS THEN
2238: END IF;
2239:
2240: EXCEPTION
2241: WHEN OTHERS THEN
2242: x_return_status := fnd_api.g_ret_sts_error;
2243:
2244: END validate_market_by_all_lines;
2245:
2246:
2298: END IF;
2299:
2300: IF (NVL(l_check_validation, 'NO') = 'NO') THEN
2301: -- return success if profile value is NO
2302: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2303: RETURN;
2304: END IF;
2305:
2306: IF p_object_type <> 'OFFR' THEN
2304: END IF;
2305:
2306: IF p_object_type <> 'OFFR' THEN
2307: -- return success. right now we only validate offer
2308: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2309: RETURN;
2310: END IF;
2311:
2312: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2308: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2309: RETURN;
2310: END IF;
2311:
2312: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2313:
2314: OPEN c_get_fund_info;
2315: FETCH c_get_fund_info INTO l_budget_id;
2316: CLOSE c_get_fund_info;
2343: );
2344: IF G_DEBUG THEN
2345: ozf_utility_pvt.debug_message(' validate_product_by_each_line returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2346: END IF;
2347: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2348: x_return_status := l_return_status;
2349: RAISE fnd_api.G_EXC_ERROR;
2350: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2351: -- how to return back message? through fnd_message?
2345: ozf_utility_pvt.debug_message(' validate_product_by_each_line returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2346: END IF;
2347: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2348: x_return_status := l_return_status;
2349: RAISE fnd_api.G_EXC_ERROR;
2350: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2351: -- how to return back message? through fnd_message?
2352: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2353: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2346: END IF;
2347: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2348: x_return_status := l_return_status;
2349: RAISE fnd_api.G_EXC_ERROR;
2350: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2351: -- how to return back message? through fnd_message?
2352: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2353: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2354: FND_MSG_PUB.Add;
2355: END IF;
2356: IF G_DEBUG THEN
2357: ozf_utility_pvt.debug_message('FAILURE: budget product eligibility does not match that of offer');
2358: END IF;
2359: RAISE fnd_api.G_EXC_ERROR;
2360: END IF;
2361: END IF;
2362:
2363: validate_market_by_each_line(
2370: );
2371: IF G_DEBUG THEN
2372: ozf_utility_pvt.debug_message(' validate_market_by_each_line returns ' || l_return_status);
2373: END IF;
2374: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2375: x_return_status := l_return_status;
2376: RAISE fnd_api.G_EXC_ERROR;
2377: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2378: -- how to return back message? through fnd_message?
2372: ozf_utility_pvt.debug_message(' validate_market_by_each_line returns ' || l_return_status);
2373: END IF;
2374: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2375: x_return_status := l_return_status;
2376: RAISE fnd_api.G_EXC_ERROR;
2377: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2378: -- how to return back message? through fnd_message?
2379: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2380: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2373: END IF;
2374: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2375: x_return_status := l_return_status;
2376: RAISE fnd_api.G_EXC_ERROR;
2377: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2378: -- how to return back message? through fnd_message?
2379: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2380: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2381: FND_MSG_PUB.Add;
2382: END IF;
2383: IF G_DEBUG THEN
2384: ozf_utility_pvt.debug_message('FAILURE: budget market eligibility does not match that of offer');
2385: END IF;
2386: RAISE fnd_api.G_EXC_ERROR;
2387: END IF;
2388: IF G_DEBUG THEN
2389: ozf_utility_pvt.debug_message(' SUCCESS ');
2390: END IF;
2389: ozf_utility_pvt.debug_message(' SUCCESS ');
2390: END IF;
2391:
2392: EXCEPTION
2393: WHEN fnd_api.g_exc_error THEN
2394: ROLLBACK TO validate_object_budget;
2395: x_return_status := fnd_api.g_ret_sts_error;
2396: fnd_msg_pub.count_and_get(
2397: p_encoded => fnd_api.g_false
2391:
2392: EXCEPTION
2393: WHEN fnd_api.g_exc_error THEN
2394: ROLLBACK TO validate_object_budget;
2395: x_return_status := fnd_api.g_ret_sts_error;
2396: fnd_msg_pub.count_and_get(
2397: p_encoded => fnd_api.g_false
2398: ,p_count => x_msg_count
2399: ,p_data => x_msg_data);
2393: WHEN fnd_api.g_exc_error THEN
2394: ROLLBACK TO validate_object_budget;
2395: x_return_status := fnd_api.g_ret_sts_error;
2396: fnd_msg_pub.count_and_get(
2397: p_encoded => fnd_api.g_false
2398: ,p_count => x_msg_count
2399: ,p_data => x_msg_data);
2400: WHEN fnd_api.g_exc_unexpected_error THEN
2401: ROLLBACK TO validate_object_budget;
2396: fnd_msg_pub.count_and_get(
2397: p_encoded => fnd_api.g_false
2398: ,p_count => x_msg_count
2399: ,p_data => x_msg_data);
2400: WHEN fnd_api.g_exc_unexpected_error THEN
2401: ROLLBACK TO validate_object_budget;
2402: x_return_status := fnd_api.g_ret_sts_unexp_error;
2403: fnd_msg_pub.count_and_get(
2404: p_encoded => fnd_api.g_false
2398: ,p_count => x_msg_count
2399: ,p_data => x_msg_data);
2400: WHEN fnd_api.g_exc_unexpected_error THEN
2401: ROLLBACK TO validate_object_budget;
2402: x_return_status := fnd_api.g_ret_sts_unexp_error;
2403: fnd_msg_pub.count_and_get(
2404: p_encoded => fnd_api.g_false
2405: ,p_count => x_msg_count
2406: ,p_data => x_msg_data);
2400: WHEN fnd_api.g_exc_unexpected_error THEN
2401: ROLLBACK TO validate_object_budget;
2402: x_return_status := fnd_api.g_ret_sts_unexp_error;
2403: fnd_msg_pub.count_and_get(
2404: p_encoded => fnd_api.g_false
2405: ,p_count => x_msg_count
2406: ,p_data => x_msg_data);
2407:
2408: WHEN OTHERS THEN
2406: ,p_data => x_msg_data);
2407:
2408: WHEN OTHERS THEN
2409: ROLLBACK TO validate_object_budget;
2410: x_return_status := fnd_api.g_ret_sts_error;
2411: fnd_msg_pub.count_and_get (
2412: p_count => x_msg_count
2413: , p_data => x_msg_data
2414: , p_encoded => fnd_api.g_false
2410: x_return_status := fnd_api.g_ret_sts_error;
2411: fnd_msg_pub.count_and_get (
2412: p_count => x_msg_count
2413: , p_data => x_msg_data
2414: , p_encoded => fnd_api.g_false
2415: );
2416:
2417: END validate_object_budget;
2418:
2449: l_check_validation := fnd_profile.value('OZF_CHECK_MKTG_PROD_ELIG');
2450:
2451: IF (NVL(l_check_validation, 'NO') = 'NO') OR (l_check_validation = 'PRODUCT_STRICT_CUSTOMER_STRICT') THEN
2452: -- return success if profile value is NO or PRODUCT_STRICT_CUSTOMER_STRICT
2453: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2454: RETURN;
2455: END IF;
2456:
2457: IF p_object_type <> 'OFFR' THEN
2455: END IF;
2456:
2457: IF p_object_type <> 'OFFR' THEN
2458: -- return success. right now we only validate offer
2459: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2460: RETURN;
2461: END IF;
2462:
2463: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2459: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2460: RETURN;
2461: END IF;
2462:
2463: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2464:
2465: OPEN c_get_offer_type;
2466: FETCH c_get_offer_type INTO l_offer_type;
2467: CLOSE c_get_offer_type;
2476: );
2477: IF G_DEBUG THEN
2478: ozf_utility_pvt.debug_message(' validate_market_by_all_lines returns ' || l_return_status);
2479: END IF;
2480: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2481: x_return_status := l_return_status;
2482: -- revert all the approved budget lines
2483: revert_approved_request ( p_offer_id => p_object_id
2484: ,x_return_status => l_return_status
2484: ,x_return_status => l_return_status
2485: ,x_msg_count => x_msg_count
2486: ,x_msg_data => l_msg_data
2487: );
2488: RAISE fnd_api.G_EXC_ERROR;
2489: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2490: -- how to return back message? through fnd_message?
2491: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2492: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2485: ,x_msg_count => x_msg_count
2486: ,x_msg_data => l_msg_data
2487: );
2488: RAISE fnd_api.G_EXC_ERROR;
2489: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2490: -- how to return back message? through fnd_message?
2491: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2492: FND_MESSAGE.Set_Name ('OZF', 'OZF_MARKET_ELIG_MISMATCH');
2493: FND_MSG_PUB.Add;
2500: ,x_return_status => l_return_status
2501: ,x_msg_count => x_msg_count
2502: ,x_msg_data => l_msg_data
2503: );
2504: RAISE fnd_api.G_EXC_ERROR;
2505: END IF;
2506: ELSIF l_check_validation = 'PRODUCT_LOOSE_CUSTOMER_STRICT' THEN
2507: -- validate product by all budget lines
2508: IF l_offer_type <> 'ORDER' THEN
2516: );
2517: IF G_DEBUG THEN
2518: ozf_utility_pvt.debug_message(' validate_product_by_all_lines returns ' || l_return_status || ' valid_flag=' || l_valid_flag);
2519: END IF;
2520: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2521: x_return_status := l_return_status;
2522: -- revert all the approved budget lines
2523: revert_approved_request ( p_offer_id => p_object_id
2524: ,x_return_status => l_return_status
2524: ,x_return_status => l_return_status
2525: ,x_msg_count => x_msg_count
2526: ,x_msg_data => l_msg_data
2527: );
2528: RAISE fnd_api.G_EXC_ERROR;
2529: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2530: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2531: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2532: FND_MSG_PUB.Add;
2525: ,x_msg_count => x_msg_count
2526: ,x_msg_data => l_msg_data
2527: );
2528: RAISE fnd_api.G_EXC_ERROR;
2529: ELSIF l_valid_flag <> fnd_api.G_TRUE THEN
2530: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2531: FND_MESSAGE.Set_Name ('OZF', 'OZF_PRODUCT_ELIG_MISMATCH');
2532: FND_MSG_PUB.Add;
2533: END IF;
2539: ,x_return_status => l_return_status
2540: ,x_msg_count => x_msg_count
2541: ,x_msg_data => l_msg_data
2542: );
2543: RAISE fnd_api.G_EXC_ERROR;
2544: END IF;
2545: END IF;
2546: END IF;
2547:
2550: ozf_utility_pvt.debug_message(' SUCCESS ');
2551: END IF;
2552:
2553: EXCEPTION
2554: WHEN fnd_api.g_exc_error THEN
2555: x_return_status := fnd_api.g_ret_sts_error;
2556: fnd_msg_pub.count_and_get(
2557: p_encoded => fnd_api.g_false
2558: ,p_count => x_msg_count
2551: END IF;
2552:
2553: EXCEPTION
2554: WHEN fnd_api.g_exc_error THEN
2555: x_return_status := fnd_api.g_ret_sts_error;
2556: fnd_msg_pub.count_and_get(
2557: p_encoded => fnd_api.g_false
2558: ,p_count => x_msg_count
2559: ,p_data => x_msg_data);
2553: EXCEPTION
2554: WHEN fnd_api.g_exc_error THEN
2555: x_return_status := fnd_api.g_ret_sts_error;
2556: fnd_msg_pub.count_and_get(
2557: p_encoded => fnd_api.g_false
2558: ,p_count => x_msg_count
2559: ,p_data => x_msg_data);
2560: WHEN fnd_api.g_exc_unexpected_error THEN
2561: x_return_status := fnd_api.g_ret_sts_unexp_error;
2556: fnd_msg_pub.count_and_get(
2557: p_encoded => fnd_api.g_false
2558: ,p_count => x_msg_count
2559: ,p_data => x_msg_data);
2560: WHEN fnd_api.g_exc_unexpected_error THEN
2561: x_return_status := fnd_api.g_ret_sts_unexp_error;
2562: fnd_msg_pub.count_and_get(
2563: p_encoded => fnd_api.g_false
2564: ,p_count => x_msg_count
2557: p_encoded => fnd_api.g_false
2558: ,p_count => x_msg_count
2559: ,p_data => x_msg_data);
2560: WHEN fnd_api.g_exc_unexpected_error THEN
2561: x_return_status := fnd_api.g_ret_sts_unexp_error;
2562: fnd_msg_pub.count_and_get(
2563: p_encoded => fnd_api.g_false
2564: ,p_count => x_msg_count
2565: ,p_data => x_msg_data);
2559: ,p_data => x_msg_data);
2560: WHEN fnd_api.g_exc_unexpected_error THEN
2561: x_return_status := fnd_api.g_ret_sts_unexp_error;
2562: fnd_msg_pub.count_and_get(
2563: p_encoded => fnd_api.g_false
2564: ,p_count => x_msg_count
2565: ,p_data => x_msg_data);
2566:
2567: WHEN OTHERS THEN
2564: ,p_count => x_msg_count
2565: ,p_data => x_msg_data);
2566:
2567: WHEN OTHERS THEN
2568: x_return_status := fnd_api.g_ret_sts_error;
2569: fnd_msg_pub.count_and_get (
2570: p_count => x_msg_count
2571: , p_data => x_msg_data
2572: , p_encoded => fnd_api.g_false
2568: x_return_status := fnd_api.g_ret_sts_error;
2569: fnd_msg_pub.count_and_get (
2570: p_count => x_msg_count
2571: , p_data => x_msg_data
2572: , p_encoded => fnd_api.g_false
2573: );
2574:
2575: END validate_object_budget_all;
2576:
2633: WHERE cust_account_id = p_cust_account_id;
2634:
2635: BEGIN
2636: x_qualify_flag := false;
2637: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2638:
2639: IF p_cust_account_id IS NULL THEN
2640: l_qualify_flag := true;
2641: ELSE
2651: x_exclude_mark => l_exclude_mark,
2652: x_return_status => l_return_status,
2653: x_msg_count => l_msg_count,
2654: x_msg_data => l_msg_data);
2655: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2656: RAISE fnd_api.G_EXC_ERROR;
2657: END IF;
2658:
2659: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2652: x_return_status => l_return_status,
2653: x_msg_count => l_msg_count,
2654: x_msg_data => l_msg_data);
2655: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2656: RAISE fnd_api.G_EXC_ERROR;
2657: END IF;
2658:
2659: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2660: -- no market eligibility for budget, validation is true.
2687: END IF;
2688:
2689: IF NOT l_qualify_flag THEN
2690: x_qualify_flag := false;
2691: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2692: RETURN;
2693: END IF;
2694:
2695: IF p_product_item_id IS NULL THEN
2693: END IF;
2694:
2695: IF p_product_item_id IS NULL THEN
2696: x_qualify_flag := true;
2697: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2698: RETURN;
2699: END IF;
2700:
2701: l_temp_id := null;
2708: x_exclude_prod => l_exclude_mark,
2709: x_return_status => l_return_status,
2710: x_msg_count => l_msg_count,
2711: x_msg_data => l_msg_data);
2712: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2713: RAISE fnd_api.G_EXC_ERROR;
2714: END IF;
2715:
2716: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2709: x_return_status => l_return_status,
2710: x_msg_count => l_msg_count,
2711: x_msg_data => l_msg_data);
2712: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
2713: RAISE fnd_api.G_EXC_ERROR;
2714: END IF;
2715:
2716: IF l_budget_mark = FALSE AND l_exclude_mark = FALSE THEN
2717: -- no product eligibility for budget, validation is true.
2741: END IF;
2742: END IF;
2743:
2744: x_qualify_flag := l_qualify_flag;
2745: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2746:
2747: EXCEPTION
2748: WHEN OTHERS THEN
2749: x_return_status := fnd_api.g_ret_sts_error;
2745: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2746:
2747: EXCEPTION
2748: WHEN OTHERS THEN
2749: x_return_status := fnd_api.g_ret_sts_error;
2750: fnd_msg_pub.count_and_get (
2751: p_count => x_msg_count
2752: , p_data => x_msg_data
2753: , p_encoded => fnd_api.g_false
2749: x_return_status := fnd_api.g_ret_sts_error;
2750: fnd_msg_pub.count_and_get (
2751: p_count => x_msg_count
2752: , p_data => x_msg_data
2753: , p_encoded => fnd_api.g_false
2754: );
2755:
2756: END check_budget_qualification;
2757:
2795: AND arc_act_budget_used_by = p_object_type;
2796:
2797: BEGIN
2798:
2799: x_return_status := fnd_api.g_ret_sts_success;
2800: l_percent := NVL(Fnd_Profile.Value('AMS_APPROVAL_CUTOFF_PERCENT'),0)/100;
2801:
2802: IF l_percent = 0 THEN -- if profile value is set to zero, x_new_status is 'ACTIVE'
2803: x_new_status := 'ACTIVE';
2839: WHERE deliverable_id = p_object_id;
2840: ELSE
2841: Fnd_Message.Set_Name('OZF','OZF_BAD_APPROVAL_OBJECT_TYPE');
2842: Fnd_Msg_Pub.ADD;
2843: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2844: RETURN;
2845: END IF ;
2846:
2847: FETCH l_obj_details INTO l_budget_amount,l_owner_id;
2848: IF l_obj_details%NOTFOUND THEN
2849: CLOSE l_obj_details;
2850: Fnd_Message.Set_Name('OZF','OZF_APPR_BAD_DETAILS');
2851: Fnd_Msg_Pub.ADD;
2852: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2853: RETURN;
2854: END IF;
2855: CLOSE l_obj_details;
2856:
2890: END IF; -- end of l_percent.
2891:
2892: EXCEPTION
2893: WHEN OTHERS THEN
2894: x_return_status := fnd_api.g_ret_sts_error;
2895: fnd_msg_pub.count_and_get (
2896: p_count => l_msg_count
2897: , p_data => l_msg_data
2898: , p_encoded => fnd_api.g_false
2894: x_return_status := fnd_api.g_ret_sts_error;
2895: fnd_msg_pub.count_and_get (
2896: p_count => l_msg_count
2897: , p_data => l_msg_data
2898: , p_encoded => fnd_api.g_false
2899: );
2900: END check_budget_threshold;
2901: */
2902:
3007:
3008: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budgets_rec);
3009: l_act_budgets_rec.activity_budget_id := p_actbudget_id;
3010:
3011: IF l_return_status = fnd_api.G_RET_STS_SUCCESS THEN
3012: ozf_utility_pvt.Write_Conc_log('validation succeeds');
3013: -- validation succeeds. Change budget request status to 'APPROVED'
3014: l_act_budgets_rec.status_code := 'APPROVED';
3015: l_act_budgets_rec.user_status_id :=
3054: WHILE l_cnt < l_msg_count
3055: LOOP
3056: Fnd_Msg_Pub.Get
3057: (p_msg_index => l_cnt + 1,
3058: p_encoded => Fnd_Api.G_FALSE,
3059: p_data => l_msg_data,
3060: p_msg_index_out => l_msg_index );
3061:
3062: --kdass fix for bug 4621638
3081: ,x_notif_id => l_notification_id
3082: ,x_return_status => l_return_status
3083: );
3084:
3085: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3086: ozf_utility_pvt.Write_Conc_log('Sent notification fails.');
3087: END IF;
3088:
3089: END IF; -- end of validation fail.
3089: END IF; -- end of validation fail.
3090:
3091: ozf_actbudgets_pvt.Update_Act_Budgets (
3092: p_api_version => 1.0,
3093: p_init_msg_list => FND_API.g_false,
3094: p_commit => FND_API.g_false,
3095: p_validation_level => fnd_api.g_valid_level_full,
3096: x_return_status => l_return_status,
3097: x_msg_count => l_msg_count,
3090:
3091: ozf_actbudgets_pvt.Update_Act_Budgets (
3092: p_api_version => 1.0,
3093: p_init_msg_list => FND_API.g_false,
3094: p_commit => FND_API.g_false,
3095: p_validation_level => fnd_api.g_valid_level_full,
3096: x_return_status => l_return_status,
3097: x_msg_count => l_msg_count,
3098: x_msg_data => l_msg_data,
3091: ozf_actbudgets_pvt.Update_Act_Budgets (
3092: p_api_version => 1.0,
3093: p_init_msg_list => FND_API.g_false,
3094: p_commit => FND_API.g_false,
3095: p_validation_level => fnd_api.g_valid_level_full,
3096: x_return_status => l_return_status,
3097: x_msg_count => l_msg_count,
3098: x_msg_data => l_msg_data,
3099: p_act_budgets_rec => l_act_budgets_rec
3098: x_msg_data => l_msg_data,
3099: p_act_budgets_rec => l_act_budgets_rec
3100: );
3101:
3102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3103: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets fails.');
3104: END IF;
3105:
3106: ELSE -- called from offer activation. Check all budget requests of this offer
3121: l_act_budgets_rec.activity_budget_id := request_rec.activity_budget_id;
3122:
3123: ozf_utility_pvt.Write_Conc_log('Validation return status = ' || l_return_status);
3124:
3125: IF l_return_status = fnd_api.G_RET_STS_SUCCESS THEN
3126: ozf_utility_pvt.Write_Conc_log('validation succeeds');
3127:
3128: -- validation succeeds. Change budget request status to 'APPROVED'
3129: l_act_budgets_rec.status_code := 'APPROVED';
3163: WHILE l_cnt < l_msg_count
3164: LOOP
3165: Fnd_Msg_Pub.Get
3166: (p_msg_index => l_cnt + 1,
3167: p_encoded => Fnd_Api.G_FALSE,
3168: p_data => l_msg_data,
3169: p_msg_index_out => l_msg_index );
3170:
3171: --kdass fix for bug 4621638
3190: ,x_notif_id => l_notification_id
3191: ,x_return_status => l_return_status
3192: );
3193:
3194: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3195: ozf_utility_pvt.Write_Conc_log('Sent notification fails.');
3196: END IF;
3197:
3198:
3199: ozf_utility_pvt.Write_Conc_log('l_act_budgets_rec.activity_budget_id: ' || l_act_budgets_rec.activity_budget_id);
3200:
3201: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3202: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3203: p_init_msg_list => FND_API.g_false,
3204: p_commit => FND_API.g_false,
3205: p_validation_level => fnd_api.g_valid_level_full,
3206: x_return_status => l_return_status,
3207: x_msg_count => l_msg_count,
3200:
3201: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3202: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3203: p_init_msg_list => FND_API.g_false,
3204: p_commit => FND_API.g_false,
3205: p_validation_level => fnd_api.g_valid_level_full,
3206: x_return_status => l_return_status,
3207: x_msg_count => l_msg_count,
3208: x_msg_data => l_msg_data,
3201: /*kdass 05-DEC-2005 bug 4662453 - Update_Act_Budgets is being called twice, so removing this one
3202: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3203: p_init_msg_list => FND_API.g_false,
3204: p_commit => FND_API.g_false,
3205: p_validation_level => fnd_api.g_valid_level_full,
3206: x_return_status => l_return_status,
3207: x_msg_count => l_msg_count,
3208: x_msg_data => l_msg_data,
3209: p_act_budgets_rec => l_act_budgets_rec
3210: );
3211:
3212: ozf_utility_pvt.Write_Conc_log('return status from Update_Act_Budgets = ' || l_return_status);
3213:
3214: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3215: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets fails');
3216: END IF;
3217: */
3218:
3218:
3219: END IF; -- end of validation fail
3220:
3221: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3222: p_init_msg_list => FND_API.g_false,
3223: p_commit => FND_API.g_false,
3224: p_validation_level => fnd_api.g_valid_level_full,
3225: x_return_status => l_return_status,
3226: x_msg_count => l_msg_count,
3219: END IF; -- end of validation fail
3220:
3221: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3222: p_init_msg_list => FND_API.g_false,
3223: p_commit => FND_API.g_false,
3224: p_validation_level => fnd_api.g_valid_level_full,
3225: x_return_status => l_return_status,
3226: x_msg_count => l_msg_count,
3227: x_msg_data => l_msg_data,
3220:
3221: ozf_actbudgets_pvt.Update_Act_Budgets ( p_api_version => 1.0,
3222: p_init_msg_list => FND_API.g_false,
3223: p_commit => FND_API.g_false,
3224: p_validation_level => fnd_api.g_valid_level_full,
3225: x_return_status => l_return_status,
3226: x_msg_count => l_msg_count,
3227: x_msg_data => l_msg_data,
3228: p_act_budgets_rec => l_act_budgets_rec
3229: );
3230:
3231: ozf_utility_pvt.Write_Conc_log('Update_Act_Budgets returns = ' || l_return_status);
3232:
3233: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3234: ozf_utility_pvt.Write_Conc_log('Valid budget request id = ' || p_actbudget_id);
3235: ELSE
3236: ozf_utility_pvt.Write_Conc_log('Invalid budget request id = ' || p_actbudget_id);
3237: END IF;
3250: );
3251:
3252: ozf_utility_pvt.Write_Conc_log('return status = ' || l_return_status);
3253:
3254: IF l_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
3255: l_offer_status := 'DRAFT';
3256: ozf_utility_pvt.Write_Conc_log('Relaxed validation failed');
3257: END IF;
3258:
3269:
3270: -- update offer status. if validation fail.
3271: --- otherwise to 'ACTIVE'
3272: Ozf_Offer_Pvt.Activate_Offer_Over( p_api_version => 1.0
3273: ,p_init_msg_list => FND_API.g_false
3274: ,p_commit => FND_API.g_false
3275: ,x_return_status => l_return_status
3276: ,x_msg_count => l_msg_count
3277: ,x_msg_data => l_msg_data
3270: -- update offer status. if validation fail.
3271: --- otherwise to 'ACTIVE'
3272: Ozf_Offer_Pvt.Activate_Offer_Over( p_api_version => 1.0
3273: ,p_init_msg_list => FND_API.g_false
3274: ,p_commit => FND_API.g_false
3275: ,x_return_status => l_return_status
3276: ,x_msg_count => l_msg_count
3277: ,x_msg_data => l_msg_data
3278: ,p_called_from => 'R'
3281: );
3282:
3283: ozf_utility_pvt.Write_Conc_log('Activate_Offer_Over returns = ' || l_return_status);
3284:
3285: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3286: ozf_utility_pvt.Write_Conc_log('exception raised');
3287: RAISE fnd_api.g_exc_error;
3288: END IF;
3289:
3283: ozf_utility_pvt.Write_Conc_log('Activate_Offer_Over returns = ' || l_return_status);
3284:
3285: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3286: ozf_utility_pvt.Write_Conc_log('exception raised');
3287: RAISE fnd_api.g_exc_error;
3288: END IF;
3289:
3290: END IF;
3291:
3295:
3296: ozf_utility_pvt.Write_Conc_log(l_msg_data);
3297:
3298: EXCEPTION
3299: WHEN fnd_api.g_exc_error THEN
3300: ozf_utility_pvt.Write_Conc_log('fnd_api.g_exc_error');
3301:
3302: ROLLBACK TO conc_validate_offer_budget;
3303:
3296: ozf_utility_pvt.Write_Conc_log(l_msg_data);
3297:
3298: EXCEPTION
3299: WHEN fnd_api.g_exc_error THEN
3300: ozf_utility_pvt.Write_Conc_log('fnd_api.g_exc_error');
3301:
3302: ROLLBACK TO conc_validate_offer_budget;
3303:
3304: -- revert to draft status
3335: WHILE l_cnt < l_msg_count
3336: LOOP
3337: Fnd_Msg_Pub.Get
3338: (p_msg_index => l_cnt + 1,
3339: p_encoded => Fnd_Api.G_FALSE,
3340: p_data => l_msg_data,
3341: p_msg_index_out => l_msg_index );
3342:
3343: --kdass fix for bug 4621638
3362: WHILE l_cnt < l_msg_count
3363: LOOP
3364: Fnd_Msg_Pub.Get
3365: (p_msg_index => l_cnt + 1,
3366: p_encoded => Fnd_Api.G_FALSE,
3367: p_data => l_msg_data,
3368: p_msg_index_out => l_msg_index );
3369:
3370: --kdass fix for bug 4621638
3424: := G_PACKAGE_NAME || '.' || l_api_name;
3425: l_api_version CONSTANT NUMBER := 1.0;
3426: l_msg_count NUMBER;
3427: l_msg_data VARCHAR2(4000);
3428: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3429: l_object_version_number NUMBER;
3430: l_custom_setup_id NUMBER;
3431: -- Cursor to find fund details
3432: CURSOR c_act_budgets(p_object_type VARCHAR2,p_object_id NUMBER)
3473: l_notification_id NUMBER;
3474: l_offer_code VARCHAR2(50);
3475:
3476: BEGIN
3477: x_return_status := fnd_api.g_ret_sts_success;
3478: -- Initialize
3479: IF G_DEBUG THEN
3480: ozf_utility_pvt.debug_message(l_full_name || ': start');
3481: END IF;
3539: ozf_utility_pvt.get_default_user_status ('OZF_BUDGETSOURCE_STATUS', l_act_budgets_rec.status_code);
3540:
3541: ozf_actbudgets_pvt.update_act_budgets (
3542: p_api_version=> 1.0
3543: ,p_init_msg_list=> fnd_api.g_false
3544: ,p_commit=> fnd_api.g_false
3545: ,p_validation_level=> fnd_api.g_valid_level_full
3546: ,x_return_status=> l_return_status
3547: ,x_msg_data=> x_msg_data
3540:
3541: ozf_actbudgets_pvt.update_act_budgets (
3542: p_api_version=> 1.0
3543: ,p_init_msg_list=> fnd_api.g_false
3544: ,p_commit=> fnd_api.g_false
3545: ,p_validation_level=> fnd_api.g_valid_level_full
3546: ,x_return_status=> l_return_status
3547: ,x_msg_data=> x_msg_data
3548: ,x_msg_count=> x_msg_count
3541: ozf_actbudgets_pvt.update_act_budgets (
3542: p_api_version=> 1.0
3543: ,p_init_msg_list=> fnd_api.g_false
3544: ,p_commit=> fnd_api.g_false
3545: ,p_validation_level=> fnd_api.g_valid_level_full
3546: ,x_return_status=> l_return_status
3547: ,x_msg_data=> x_msg_data
3548: ,x_msg_count=> x_msg_count
3549: ,p_act_budgets_rec=> l_act_budgets_rec
3548: ,x_msg_count=> x_msg_count
3549: ,p_act_budgets_rec=> l_act_budgets_rec
3550: );
3551:
3552: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3553: RAISE fnd_api.g_exc_unexpected_error;
3554: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3555: RAISE fnd_api.g_exc_error;
3556: END IF;
3549: ,p_act_budgets_rec=> l_act_budgets_rec
3550: );
3551:
3552: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3553: RAISE fnd_api.g_exc_unexpected_error;
3554: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3555: RAISE fnd_api.g_exc_error;
3556: END IF;
3557:
3550: );
3551:
3552: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3553: RAISE fnd_api.g_exc_unexpected_error;
3554: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3555: RAISE fnd_api.g_exc_error;
3556: END IF;
3557:
3558: END LOOP;
3551:
3552: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3553: RAISE fnd_api.g_exc_unexpected_error;
3554: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3555: RAISE fnd_api.g_exc_error;
3556: END IF;
3557:
3558: END LOOP;
3559:
3580: ,x_notif_id => l_notification_id
3581: ,x_return_status => l_return_status
3582: );
3583:
3584: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3585: RAISE fnd_api.g_exc_error;
3586: END IF;
3587:
3588: END IF; -- end of status of draft.
3581: ,x_return_status => l_return_status
3582: );
3583:
3584: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3585: RAISE fnd_api.g_exc_error;
3586: END IF;
3587:
3588: END IF; -- end of status of draft.
3589:
3598: COMMIT;
3599: IF l_request_id <> 0 THEN
3600: x_status_code := 'PENDING_VALIDATION';
3601: ELSE
3602: RAISE fnd_api.g_exc_error;
3603: END IF;
3604: ELSIF l_status_code = 'NEW' THEN
3605: x_status_code := 'DRAFT';
3606: ELSE
3611: ozf_utility_pvt.debug_message(l_full_name || ': end');
3612: END IF;
3613:
3614: fnd_msg_pub.count_and_get(
3615: p_encoded => fnd_api.g_false
3616: ,p_count => x_msg_count
3617: ,p_data => x_msg_data);
3618:
3619: EXCEPTION
3616: ,p_count => x_msg_count
3617: ,p_data => x_msg_data);
3618:
3619: EXCEPTION
3620: WHEN fnd_api.g_exc_error THEN
3621: x_return_status := fnd_api.g_ret_sts_error;
3622: fnd_msg_pub.count_and_get(
3623: p_encoded => fnd_api.g_false
3624: ,p_count => x_msg_count
3617: ,p_data => x_msg_data);
3618:
3619: EXCEPTION
3620: WHEN fnd_api.g_exc_error THEN
3621: x_return_status := fnd_api.g_ret_sts_error;
3622: fnd_msg_pub.count_and_get(
3623: p_encoded => fnd_api.g_false
3624: ,p_count => x_msg_count
3625: ,p_data => x_msg_data);
3619: EXCEPTION
3620: WHEN fnd_api.g_exc_error THEN
3621: x_return_status := fnd_api.g_ret_sts_error;
3622: fnd_msg_pub.count_and_get(
3623: p_encoded => fnd_api.g_false
3624: ,p_count => x_msg_count
3625: ,p_data => x_msg_data);
3626: WHEN fnd_api.g_exc_unexpected_error THEN
3627: x_return_status := fnd_api.g_ret_sts_unexp_error;
3622: fnd_msg_pub.count_and_get(
3623: p_encoded => fnd_api.g_false
3624: ,p_count => x_msg_count
3625: ,p_data => x_msg_data);
3626: WHEN fnd_api.g_exc_unexpected_error THEN
3627: x_return_status := fnd_api.g_ret_sts_unexp_error;
3628: fnd_msg_pub.count_and_get(
3629: p_encoded => fnd_api.g_false
3630: ,p_count => x_msg_count
3623: p_encoded => fnd_api.g_false
3624: ,p_count => x_msg_count
3625: ,p_data => x_msg_data);
3626: WHEN fnd_api.g_exc_unexpected_error THEN
3627: x_return_status := fnd_api.g_ret_sts_unexp_error;
3628: fnd_msg_pub.count_and_get(
3629: p_encoded => fnd_api.g_false
3630: ,p_count => x_msg_count
3631: ,p_data => x_msg_data);
3625: ,p_data => x_msg_data);
3626: WHEN fnd_api.g_exc_unexpected_error THEN
3627: x_return_status := fnd_api.g_ret_sts_unexp_error;
3628: fnd_msg_pub.count_and_get(
3629: p_encoded => fnd_api.g_false
3630: ,p_count => x_msg_count
3631: ,p_data => x_msg_data);
3632: WHEN OTHERS THEN
3633: x_return_status := fnd_api.g_ret_sts_unexp_error;
3629: p_encoded => fnd_api.g_false
3630: ,p_count => x_msg_count
3631: ,p_data => x_msg_data);
3632: WHEN OTHERS THEN
3633: x_return_status := fnd_api.g_ret_sts_unexp_error;
3634:
3635: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3636: fnd_msg_pub.add_exc_msg(G_PACKAGE_NAME, l_api_name);
3637: END IF;
3636: fnd_msg_pub.add_exc_msg(G_PACKAGE_NAME, l_api_name);
3637: END IF;
3638:
3639: fnd_msg_pub.count_and_get(
3640: p_encoded => fnd_api.g_false
3641: ,p_count => x_msg_count
3642: ,p_data => x_msg_data);
3643: END budget_request_approval;
3644: