[Home] [Help]
83: -- 10/08/2001 huili Remove the message initialization in the
84: -- "Get_Function_Type".
85: -- 10/09/2001 huili Remove the schema checking for seeded function
86: -- metrics.
87: -- 10/12/2001 huili Pass the "FND_API.G_FALSE" to the "p_encoded"
88: -- parameter of the "FND_MSG_PUB.Count_And_Get"
89: -- module.
90: -- 10/29/2001 huili Add the " Inter_Metric_Validation" module and link
91: -- it to the "update_metric" module.
203: FROM ams_metrics_all_b
204: WHERE to_number(compute_using_function) = p_met_id;
205:
206: BEGIN
207: x_return_status := FND_API.G_RET_STS_SUCCESS;
208:
209: OPEN c_metric;
210: FETCH c_metric INTO l_metric_rec;
211: CLOSE c_metric;
223: AND ( p_metric_rec.metric_calculation_type <>
224: l_metric_rec.metric_calculation_type
225: OR p_metric_rec.metric_category <> l_metric_rec.metric_category )
226: THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: RETURN;
229: END IF;
230:
231: --
236: OPEN c_check_summary_children (l_metric_rec.metric_id);
237: FETCH c_check_summary_children INTO l_check_children;
238: CLOSE c_check_summary_children;
239: IF l_check_children IS NOT NULL THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: RETURN;
242: END IF;
243:
244: --
251: CLOSE c_check_variable_met;
252: -- BUG2411660: Test for dependent metric corrected.
253: -- IF l_check_children IS NULL THEN
254: IF l_check_children IS NOT NULL THEN
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: RETURN;
257: END IF;
258: END IF;
259: END;
289: -- End of comments
290:
291: PROCEDURE Create_Metric (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
296:
297: x_return_status OUT NOCOPY VARCHAR2,
290:
291: PROCEDURE Create_Metric (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
296:
297: x_return_status OUT NOCOPY VARCHAR2,
298: x_msg_count OUT NOCOPY NUMBER,
291: PROCEDURE Create_Metric (
292: p_api_version IN NUMBER,
293: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
294: p_commit IN VARCHAR2 := FND_API.G_FALSE,
295: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
296:
297: x_return_status OUT NOCOPY VARCHAR2,
298: x_msg_count OUT NOCOPY NUMBER,
299: x_msg_data OUT NOCOPY VARCHAR2,
334:
335: --
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: --
338: IF FND_API.To_Boolean (p_init_msg_list) THEN
339: FND_MSG_PUB.Initialize;
340: END IF;
341:
342: --
341:
342: --
343: -- Standard check for API version compatibility.
344: --
345: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
346: p_api_version,
347: L_API_NAME,
348: G_PKG_NAME)
349: THEN
346: p_api_version,
347: L_API_NAME,
348: G_PKG_NAME)
349: THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: END IF;
352:
353:
354: --
353:
354: --
355: -- Initialize API return status to success.
356: --
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358:
359: --
360: -- Begin API Body.
361: --
377: p_metric_rec => l_metrics_rec
378: );
379:
380: -- If any errors happen abort API.
381: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
378: );
379:
380: -- If any errors happen abort API.
381: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
379:
380: -- If any errors happen abort API.
381: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: --
380: -- If any errors happen abort API.
381: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
382: RAISE FND_API.G_EXC_ERROR;
383: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: --
388: -- Debug message.
407:
408: --function metric
409: IF UPPER(l_metrics_rec.metric_calculation_type) = G_FUNCTION THEN
410: IF l_metrics_rec.function_name IS NULL
411: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
412: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
413: FND_MSG_PUB.ADD;
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
410: IF l_metrics_rec.function_name IS NULL
411: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
412: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
413: FND_MSG_PUB.ADD;
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416: l_metrics_rec.function_name := UPPER (l_metrics_rec.function_name);
417:
418: Validate_Metric_Program (p_func_name => l_metrics_rec.function_name,
418: Validate_Metric_Program (p_func_name => l_metrics_rec.function_name,
419: x_func_type => l_func_type,
420: x_return_status => l_return_status);
421:
422: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
423: RAISE FND_API.G_EXC_ERROR;
424: END IF;
425:
426: -- elsif UPPER(l_metrics_rec.metric_calculation_type) = G_FORMULA THEN
419: x_func_type => l_func_type,
420: x_return_status => l_return_status);
421:
422: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
423: RAISE FND_API.G_EXC_ERROR;
424: END IF;
425:
426: -- elsif UPPER(l_metrics_rec.metric_calculation_type) = G_FORMULA THEN
427: -- l_metrics_rec.metric_category := null;
549:
550: --
551: -- Standard check for commit request.
552: --
553: IF FND_API.To_Boolean (p_commit) THEN
554: COMMIT WORK;
555: END IF;
556:
557: --
560: --
561: FND_MSG_PUB.Count_And_Get (
562: p_count => x_msg_count,
563: p_data => x_msg_data,
564: p_encoded => FND_API.G_FALSE
565: );
566:
567: --
568: -- Add success message to message list.
570: Ams_Utility_Pvt.debug_message(l_full_name ||': end Success');
571:
572:
573: EXCEPTION
574: WHEN FND_API.G_EXC_ERROR THEN
575: ROLLBACK TO Create_Metric_pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.g_false,
572:
573: EXCEPTION
574: WHEN FND_API.G_EXC_ERROR THEN
575: ROLLBACK TO Create_Metric_pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.g_false,
579: p_count => x_msg_count,
580: p_data => x_msg_data
574: WHEN FND_API.G_EXC_ERROR THEN
575: ROLLBACK TO Create_Metric_pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.g_false,
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
578: p_encoded => FND_API.g_false,
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: ROLLBACK TO Create_Metric_pvt;
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: FND_MSG_PUB.Count_And_Get (
586: p_encoded => FND_API.g_false,
580: p_data => x_msg_data
581: );
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: ROLLBACK TO Create_Metric_pvt;
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: FND_MSG_PUB.Count_And_Get (
586: p_encoded => FND_API.g_false,
587: p_count => x_msg_count,
588: p_data => x_msg_data
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: ROLLBACK TO Create_Metric_pvt;
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: FND_MSG_PUB.Count_And_Get (
586: p_encoded => FND_API.g_false,
587: p_count => x_msg_count,
588: p_data => x_msg_data
589: );
590: WHEN OTHERS THEN
588: p_data => x_msg_data
589: );
590: WHEN OTHERS THEN
591: ROLLBACK TO Create_Metric_pvt;
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
595: END IF;
596: FND_MSG_PUB.Count_And_Get (
593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
595: END IF;
596: FND_MSG_PUB.Count_And_Get (
597: p_encoded => FND_API.g_false,
598: p_count => x_msg_count,
599: p_data => x_msg_data
600: );
601: END Create_Metric;
618: -- End of comments
619:
620: PROCEDURE Update_Metric (
621: p_api_version IN NUMBER,
622: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
623: p_commit IN VARCHAR2 := FND_API.G_FALSE,
624: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
625:
626: x_return_status OUT NOCOPY VARCHAR2,
619:
620: PROCEDURE Update_Metric (
621: p_api_version IN NUMBER,
622: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
623: p_commit IN VARCHAR2 := FND_API.G_FALSE,
624: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
625:
626: x_return_status OUT NOCOPY VARCHAR2,
627: x_msg_count OUT NOCOPY NUMBER,
620: PROCEDURE Update_Metric (
621: p_api_version IN NUMBER,
622: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
623: p_commit IN VARCHAR2 := FND_API.G_FALSE,
624: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
625:
626: x_return_status OUT NOCOPY VARCHAR2,
627: x_msg_count OUT NOCOPY NUMBER,
628: x_msg_data OUT NOCOPY VARCHAR2,
654:
655: --
656: -- Initialize message list if p_init_msg_list is set to TRUE.
657: --
658: IF FND_API.To_Boolean (p_init_msg_list) THEN
659: FND_MSG_PUB.Initialize;
660: END IF;
661:
662: --
661:
662: --
663: -- Standard check for API version compatibility.
664: --
665: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
666: p_api_version,
667: L_API_NAME,
668: G_PKG_NAME)
669: THEN
666: p_api_version,
667: L_API_NAME,
668: G_PKG_NAME)
669: THEN
670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
671: END IF;
672:
673: --
674: -- Initialize API return status to success.
672:
673: --
674: -- Initialize API return status to success.
675: --
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: -- replace g_miss_char/num/date with current column values
679: Complete_Metric_Rec(p_metric_rec, l_metrics_rec, l_old_metrics_rec, l_seeded_ok);
680:
685: p_metric_rec => l_metrics_rec,
686: x_return_status => l_return_status
687: );
688:
689: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
690: Validate_Metric_Child (
691: p_metric_id => l_metrics_rec.metric_id,
692: x_return_status => l_return_status
693: );
692: x_return_status => l_return_status
693: );
694: END IF;
695:
696: IF l_return_status = FND_API.g_ret_sts_error THEN
697: IF l_metrics_rec.metric_calculation_type <>
698: l_old_metrics_rec.metric_calculation_type
699: OR l_metrics_rec.metric_category <> l_old_metrics_rec.metric_category
700: OR l_metrics_rec.accrual_type <> l_old_metrics_rec.accrual_type
709: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
710: FND_MESSAGE.set_name('AMS', 'AMS_METR_INVALID_UPDT_CHLD');
711: FND_MSG_PUB.ADD;
712: END IF;
713: RAISE FND_API.g_exc_error;
714: ELSE
715: l_return_status := FND_API.G_RET_STS_SUCCESS;
716: END IF;
717: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
711: FND_MSG_PUB.ADD;
712: END IF;
713: RAISE FND_API.g_exc_error;
714: ELSE
715: l_return_status := FND_API.G_RET_STS_SUCCESS;
716: END IF;
717: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
718: RAISE FND_API.g_exc_unexpected_error;
719: END IF;
713: RAISE FND_API.g_exc_error;
714: ELSE
715: l_return_status := FND_API.G_RET_STS_SUCCESS;
716: END IF;
717: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
718: RAISE FND_API.g_exc_unexpected_error;
719: END IF;
720:
721: -- Ams_Utility_Pvt.debug_message(l_full_name ||': validate');
714: ELSE
715: l_return_status := FND_API.G_RET_STS_SUCCESS;
716: END IF;
717: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
718: RAISE FND_API.g_exc_unexpected_error;
719: END IF;
720:
721: -- Ams_Utility_Pvt.debug_message(l_full_name ||': validate');
722:
726: p_validation_mode => JTF_PLSQL_API.g_update,
727: x_return_status => l_return_status
728: );
729:
730: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
731: RAISE FND_API.g_exc_unexpected_error;
732: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
733: RAISE FND_API.g_exc_error;
734: END IF;
727: x_return_status => l_return_status
728: );
729:
730: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
731: RAISE FND_API.g_exc_unexpected_error;
732: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
733: RAISE FND_API.g_exc_error;
734: END IF;
735: END IF;
728: );
729:
730: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
731: RAISE FND_API.g_exc_unexpected_error;
732: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
733: RAISE FND_API.g_exc_error;
734: END IF;
735: END IF;
736:
729:
730: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
731: RAISE FND_API.g_exc_unexpected_error;
732: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
733: RAISE FND_API.g_exc_error;
734: END IF;
735: END IF;
736:
737: -- If seeded then only update of enable flag is permitted.
741: FND_MESSAGE.set_name('AMS', 'AMS_METR_SEEDED_METR2');
742: FND_MSG_PUB.ADD;
743: END IF;
744:
745: RAISE FND_API.G_EXC_ERROR;
746: END IF;
747:
748: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
749: Validate_Metric_Record(
752: x_return_status => l_return_status
753: );
754:
755:
756: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
759: RAISE FND_API.g_exc_error;
760: END IF;
753: );
754:
755:
756: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
759: RAISE FND_API.g_exc_error;
760: END IF;
761: END IF;
754:
755:
756: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
759: RAISE FND_API.g_exc_error;
760: END IF;
761: END IF;
762:
755:
756: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
759: RAISE FND_API.g_exc_error;
760: END IF;
761: END IF;
762:
763: -- Ams_Utility_Pvt.debug_message(l_full_name ||': update Metrics Base Table');
764:
765: --function metric
766: IF UPPER(l_metrics_rec.metric_calculation_type) = G_FUNCTION THEN
767: IF l_metrics_rec.function_name IS NULL
768: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
769: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
770: FND_MSG_PUB.ADD;
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
767: IF l_metrics_rec.function_name IS NULL
768: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
769: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
770: FND_MSG_PUB.ADD;
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: l_metrics_rec.function_name := UPPER (l_metrics_rec.function_name);
774:
775: -- choang - 06-jan-2005 - bug 4107480
778: Validate_Metric_Program (p_func_name => l_metrics_rec.function_name,
779: x_func_type => l_func_type,
780: x_return_status => l_return_status);
781:
782: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785: END IF;
786:
779: x_func_type => l_func_type,
780: x_return_status => l_return_status);
781:
782: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785: END IF;
786:
787: -- Update AMS_METRICS_ALL_B
822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
823: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
824: FND_MSG_PUB.ADD;
825: END IF;
826: RAISE FND_API.g_exc_error;
827: END IF;
828:
829: -- Debug message.
830: Ams_Utility_Pvt.debug_message(l_full_name ||': updateMetrics TL Table');
849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
850: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
851: FND_MSG_PUB.ADD;
852: END IF;
853: RAISE FND_API.g_exc_error;
854:
855: END IF;
856:
857: --
857: --
858: -- End API Body
859: --
860:
861: IF FND_API.to_boolean(p_commit) THEN
862: COMMIT;
863: END IF;
864:
865: --
868: --
869: FND_MSG_PUB.Count_And_Get (
870: p_count => x_msg_count,
871: p_data => x_msg_data,
872: p_encoded => FND_API.G_FALSE
873: );
874:
875: --
876: -- Debug message.
878: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
879:
880:
881: EXCEPTION
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO Update_Metric_pvt;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885: FND_MSG_PUB.Count_And_Get (
886: p_encoded => FND_API.g_false,
880:
881: EXCEPTION
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO Update_Metric_pvt;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885: FND_MSG_PUB.Count_And_Get (
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO Update_Metric_pvt;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885: FND_MSG_PUB.Count_And_Get (
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO Update_Metric_pvt;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.g_false,
888: p_data => x_msg_data
889: );
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO Update_Metric_pvt;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO Update_Metric_pvt;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );
898: WHEN OTHERS THEN
896: p_data => x_msg_data
897: );
898: WHEN OTHERS THEN
899: ROLLBACK TO Update_Metric_pvt;
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
903: END IF;
904: FND_MSG_PUB.Count_And_Get (
901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
903: END IF;
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.g_false,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909: END Update_Metric;
925: -- End of comments
926:
927: PROCEDURE Delete_Metric (
928: p_api_version IN NUMBER,
929: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
930: p_commit IN VARCHAR2 := FND_API.G_FALSE,
931:
932: x_return_status OUT NOCOPY VARCHAR2,
933: x_msg_count OUT NOCOPY NUMBER,
926:
927: PROCEDURE Delete_Metric (
928: p_api_version IN NUMBER,
929: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
930: p_commit IN VARCHAR2 := FND_API.G_FALSE,
931:
932: x_return_status OUT NOCOPY VARCHAR2,
933: x_msg_count OUT NOCOPY NUMBER,
934: x_msg_data OUT NOCOPY VARCHAR2,
975:
976: --
977: -- Initialize message list if p_init_msg_list is set to TRUE.
978: --
979: IF FND_API.To_Boolean (p_init_msg_list) THEN
980: FND_MSG_PUB.Initialize;
981: END IF;
982:
983: --
982:
983: --
984: -- Standard check for API version compatibility.
985: --
986: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
987: p_api_version,
988: L_API_NAME,
989: G_PKG_NAME)
990: THEN
987: p_api_version,
988: L_API_NAME,
989: G_PKG_NAME)
990: THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: --
995: -- Check if record is seeded.
999: FND_MESSAGE.set_name('AMS', 'AMS_METR_SEEDED_METR3');
1000: FND_MSG_PUB.ADD;
1001: END IF;
1002:
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005:
1006: --
1007: -- Initialize API return status to success.
1005:
1006: --
1007: -- Initialize API return status to success.
1008: --
1009: x_return_status := FND_API.G_RET_STS_SUCCESS;
1010:
1011: --
1012: -- Begin API Body.
1013: --
1018: );
1019:
1020: -- If any errors happen abort API.
1021:
1022: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1023: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1024: FND_MESSAGE.set_name('AMS', 'AMS_METR_CHILD_EXIST');
1025: FND_MSG_PUB.ADD;
1026: END IF;
1023: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1024: FND_MESSAGE.set_name('AMS', 'AMS_METR_CHILD_EXIST');
1025: FND_MSG_PUB.ADD;
1026: END IF;
1027: RAISE FND_API.G_EXC_ERROR;
1028: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1024: FND_MESSAGE.set_name('AMS', 'AMS_METR_CHILD_EXIST');
1025: FND_MSG_PUB.ADD;
1026: END IF;
1027: RAISE FND_API.G_EXC_ERROR;
1028: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1032: --huili added on 07/09/2001 for bug fix #1865864
1025: FND_MSG_PUB.ADD;
1026: END IF;
1027: RAISE FND_API.G_EXC_ERROR;
1028: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1032: --huili added on 07/09/2001 for bug fix #1865864
1033: l_child_met_id := NULL;
1040: FND_MSG_PUB.Initialize;
1041: FND_MESSAGE.set_name('AMS', 'AMS_MET_ROLL_CHILD_EXISTS');
1042: FND_MSG_PUB.ADD;
1043: END IF;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1046: -- end addition
1047:
1048: --huili added on 08/14/2001 for checking for dependent metric
1056: FND_MSG_PUB.Initialize;
1057: FND_MESSAGE.set_name('AMS', 'AMS_MET_DEP_EXISTS');
1058: FND_MSG_PUB.ADD;
1059: END IF;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF;
1062:
1063: l_sum_met_id := NULL;
1064: OPEN c_sum_met_id (p_metric_id);
1070: FND_MSG_PUB.Initialize;
1071: FND_MESSAGE.set_name('AMS', 'AMS_MET_SUM_CHILD_EXISTS');
1072: FND_MSG_PUB.ADD;
1073: END IF;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: -- end addition
1077:
1078: -- Debug message.
1088: THEN
1089: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1090: FND_MSG_PUB.ADD;
1091: END IF;
1092: RAISE FND_API.g_exc_error;
1093: END IF;
1094:
1095:
1096: DELETE FROM ams_metrics_all_tl
1101: THEN
1102: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1103: FND_MSG_PUB.ADD;
1104: END IF;
1105: RAISE FND_API.g_exc_error;
1106: END IF;
1107:
1108: -- 02-SEP-2003: dmvincen - formula metrics support.
1109: delete from ams_metric_formulas
1113: --
1114: -- End API Body.
1115: --
1116:
1117: IF FND_API.To_Boolean (p_commit) THEN
1118: COMMIT WORK;
1119: END IF;
1120:
1121: --
1130: --
1131: FND_MSG_PUB.Count_And_Get (
1132: p_count => x_msg_count,
1133: p_data => x_msg_data,
1134: p_encoded => FND_API.G_FALSE
1135: );
1136:
1137: EXCEPTION
1138: WHEN FND_API.G_EXC_ERROR THEN
1134: p_encoded => FND_API.G_FALSE
1135: );
1136:
1137: EXCEPTION
1138: WHEN FND_API.G_EXC_ERROR THEN
1139: ROLLBACK TO Delete_Metric_pvt;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: FND_MSG_PUB.Count_And_Get (
1142: p_encoded => FND_API.g_false,
1136:
1137: EXCEPTION
1138: WHEN FND_API.G_EXC_ERROR THEN
1139: ROLLBACK TO Delete_Metric_pvt;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: FND_MSG_PUB.Count_And_Get (
1142: p_encoded => FND_API.g_false,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1138: WHEN FND_API.G_EXC_ERROR THEN
1139: ROLLBACK TO Delete_Metric_pvt;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: FND_MSG_PUB.Count_And_Get (
1142: p_encoded => FND_API.g_false,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1145: );
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1142: p_encoded => FND_API.g_false,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1145: );
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO Delete_Metric_pvt;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.g_false,
1144: p_data => x_msg_data
1145: );
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO Delete_Metric_pvt;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.g_false,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO Delete_Metric_pvt;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.g_false,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1154: WHEN OTHERS THEN
1152: p_data => x_msg_data
1153: );
1154: WHEN OTHERS THEN
1155: ROLLBACK TO Delete_Metric_pvt;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1158: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1159: END IF;
1160: FND_MSG_PUB.Count_And_Get (
1157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1158: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1159: END IF;
1160: FND_MSG_PUB.Count_And_Get (
1161: p_encoded => FND_API.g_false,
1162: p_count => x_msg_count,
1163: p_data => x_msg_data
1164: );
1165: END Delete_Metric;
1181: -- End of comments
1182:
1183: PROCEDURE Lock_Metric (
1184: p_api_version IN NUMBER,
1185: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1186:
1187: x_return_status OUT NOCOPY VARCHAR2,
1188: x_msg_count OUT NOCOPY NUMBER,
1189: x_msg_data OUT NOCOPY VARCHAR2,
1219:
1220: --
1221: -- Initialize message list if p_init_msg_list is set to TRUE.
1222: --
1223: IF FND_API.To_Boolean (p_init_msg_list) THEN
1224: FND_MSG_PUB.Initialize;
1225: END IF;
1226:
1227: --
1226:
1227: --
1228: -- Standard check for API version compatibility.
1229: --
1230: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1231: p_api_version,
1232: L_API_NAME,
1233: G_PKG_NAME)
1234: THEN
1231: p_api_version,
1232: L_API_NAME,
1233: G_PKG_NAME)
1234: THEN
1235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1236: END IF;
1237:
1238: --
1239: -- Initialize API return status to success.
1237:
1238: --
1239: -- Initialize API return status to success.
1240: --
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: --
1244: -- Begin API Body
1245: --
1256: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1257: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1258: FND_MSG_PUB.ADD;
1259: END IF;
1260: RAISE FND_API.g_exc_error;
1261: END IF;
1262: CLOSE c_metrics_info;
1263:
1264: OPEN c_language;
1270: --
1271: FND_MSG_PUB.Count_And_Get (
1272: p_count => x_msg_count,
1273: p_data => x_msg_data,
1274: p_encoded => FND_API.G_FALSE
1275: );
1276:
1277: --
1278: -- Debug message.
1280: Ams_Utility_Pvt.debug_message(l_full_name ||': end');
1281:
1282:
1283: EXCEPTION
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: FND_MSG_PUB.Count_And_Get (
1287: p_count => x_msg_count,
1288: p_data => x_msg_data
1281:
1282:
1283: EXCEPTION
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: FND_MSG_PUB.Count_And_Get (
1287: p_count => x_msg_count,
1288: p_data => x_msg_data
1289: );
1286: FND_MSG_PUB.Count_And_Get (
1287: p_count => x_msg_count,
1288: p_data => x_msg_data
1289: );
1290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: FND_MSG_PUB.Count_And_Get (
1293: p_encoded => FND_API.g_false,
1294: p_count => x_msg_count,
1287: p_count => x_msg_count,
1288: p_data => x_msg_data
1289: );
1290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: FND_MSG_PUB.Count_And_Get (
1293: p_encoded => FND_API.g_false,
1294: p_count => x_msg_count,
1295: p_data => x_msg_data
1289: );
1290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: FND_MSG_PUB.Count_And_Get (
1293: p_encoded => FND_API.g_false,
1294: p_count => x_msg_count,
1295: p_data => x_msg_data
1296: );
1297: WHEN Ams_Utility_Pvt.RESOURCE_LOCKED THEN
1294: p_count => x_msg_count,
1295: p_data => x_msg_data
1296: );
1297: WHEN Ams_Utility_Pvt.RESOURCE_LOCKED THEN
1298: x_return_status := FND_API.G_RET_STS_ERROR ;
1299:
1300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1301: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1302: FND_MSG_PUB.ADD;
1304:
1305: FND_MSG_PUB.Count_And_Get (
1306: p_count => x_msg_count,
1307: p_data => x_msg_data,
1308: p_encoded => FND_API.G_FALSE
1309: );
1310: WHEN OTHERS THEN
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1307: p_data => x_msg_data,
1308: p_encoded => FND_API.G_FALSE
1309: );
1310: WHEN OTHERS THEN
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1313: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1314: END IF;
1315: FND_MSG_PUB.Count_And_Get (
1314: END IF;
1315: FND_MSG_PUB.Count_And_Get (
1316: p_count => x_msg_count,
1317: p_data => x_msg_data,
1318: p_encoded => FND_API.G_FALSE
1319: );
1320: END Lock_Metric;
1321:
1322: -- Start of comments
1336: -- End of comments
1337:
1338: PROCEDURE Validate_Metric (
1339: p_api_version IN NUMBER,
1340: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1341: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1342:
1343: x_return_status OUT NOCOPY VARCHAR2,
1344: x_msg_count OUT NOCOPY NUMBER,
1337:
1338: PROCEDURE Validate_Metric (
1339: p_api_version IN NUMBER,
1340: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1341: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1342:
1343: x_return_status OUT NOCOPY VARCHAR2,
1344: x_msg_count OUT NOCOPY NUMBER,
1345: x_msg_data OUT NOCOPY VARCHAR2,
1362:
1363: --
1364: -- Initialize message list if p_init_msg_list is set to TRUE.
1365: --
1366: IF FND_API.To_Boolean (p_init_msg_list) THEN
1367: FND_MSG_PUB.Initialize;
1368: END IF;
1369:
1370: --
1369:
1370: --
1371: -- Standard check for API version compatibility.
1372: --
1373: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1374: p_api_version,
1375: L_API_NAME,
1376: G_PKG_NAME)
1377: THEN
1374: p_api_version,
1375: L_API_NAME,
1376: G_PKG_NAME)
1377: THEN
1378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1379: END IF;
1380:
1381: --
1382: -- Initialize API return status to success.
1380:
1381: --
1382: -- Initialize API return status to success.
1383: --
1384: x_return_status := FND_API.G_RET_STS_SUCCESS;
1385:
1386: --
1387: -- Begin API Body.
1388: --
1399: );
1400:
1401:
1402: -- If any errors happen abort API.
1403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: END IF;
1400:
1401:
1402: -- If any errors happen abort API.
1403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: END IF;
1408: END IF;
1401:
1402: -- If any errors happen abort API.
1403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: END IF;
1408: END IF;
1409:
1402: -- If any errors happen abort API.
1403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_ERROR;
1407: END IF;
1408: END IF;
1409:
1410: Ams_Utility_Pvt.debug_message(l_full_name||': check record');
1416: p_complete_rec => p_metric_rec,
1417: x_return_status => l_return_status
1418: );
1419:
1420: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1421: RAISE FND_API.g_exc_unexpected_error;
1422: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1423: RAISE FND_API.g_exc_error;
1424: END IF;
1417: x_return_status => l_return_status
1418: );
1419:
1420: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1421: RAISE FND_API.g_exc_unexpected_error;
1422: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1423: RAISE FND_API.g_exc_error;
1424: END IF;
1425: END IF;
1418: );
1419:
1420: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1421: RAISE FND_API.g_exc_unexpected_error;
1422: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1423: RAISE FND_API.g_exc_error;
1424: END IF;
1425: END IF;
1426:
1419:
1420: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1421: RAISE FND_API.g_exc_unexpected_error;
1422: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1423: RAISE FND_API.g_exc_error;
1424: END IF;
1425: END IF;
1426:
1427: --
1434: --
1435: FND_MSG_PUB.Count_And_Get (
1436: p_count => x_msg_count,
1437: p_data => x_msg_data,
1438: p_encoded => FND_API.G_FALSE
1439: );
1440:
1441:
1442:
1444:
1445:
1446:
1447: EXCEPTION
1448: WHEN FND_API.G_EXC_ERROR THEN
1449: x_return_status := FND_API.G_RET_STS_ERROR;
1450: FND_MSG_PUB.Count_And_Get (
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1445:
1446:
1447: EXCEPTION
1448: WHEN FND_API.G_EXC_ERROR THEN
1449: x_return_status := FND_API.G_RET_STS_ERROR;
1450: FND_MSG_PUB.Count_And_Get (
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1447: EXCEPTION
1448: WHEN FND_API.G_EXC_ERROR THEN
1449: x_return_status := FND_API.G_RET_STS_ERROR;
1450: FND_MSG_PUB.Count_And_Get (
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1454: );
1455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1454: );
1455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: FND_MSG_PUB.Count_And_Get (
1458: p_encoded => FND_API.g_false,
1459: p_count => x_msg_count,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1454: );
1455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: FND_MSG_PUB.Count_And_Get (
1458: p_encoded => FND_API.g_false,
1459: p_count => x_msg_count,
1460: p_data => x_msg_data
1454: );
1455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: FND_MSG_PUB.Count_And_Get (
1458: p_encoded => FND_API.g_false,
1459: p_count => x_msg_count,
1460: p_data => x_msg_data
1461: );
1462: WHEN OTHERS THEN
1459: p_count => x_msg_count,
1460: p_data => x_msg_data
1461: );
1462: WHEN OTHERS THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1465: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1466: END IF;
1467: FND_MSG_PUB.Count_And_Get (
1464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1465: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1466: END IF;
1467: FND_MSG_PUB.Count_And_Get (
1468: p_encoded => FND_API.g_false,
1469: p_count => x_msg_count,
1470: p_data => x_msg_data
1471: );
1472: END Validate_Metric;
1496: )
1497: IS
1498: BEGIN
1499: -- Initialize return status to success.
1500: x_return_status := FND_API.G_RET_STS_SUCCESS;
1501:
1502: -- VIEW_APPLICATION_ID
1503:
1504: IF p_metric_rec.application_id IS NULL
1509: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_APP_ID');
1510: FND_MSG_PUB.ADD;
1511: END IF;
1512:
1513: x_return_status := FND_API.G_RET_STS_ERROR;
1514:
1515: -- If any error happens abort API.
1516: RETURN;
1517: END IF;
1526: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
1527: FND_MSG_PUB.ADD;
1528: END IF;
1529:
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1531:
1532: -- If any error happens abort API.
1533: RETURN;
1534: END IF;
1543: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_CALC_TYPE');
1544: FND_MSG_PUB.ADD;
1545: END IF;
1546:
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548:
1549: -- If any error happens abort API.
1550: RETURN;
1551: END IF;
1561: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_CATEGORY');
1562: FND_MSG_PUB.ADD;
1563: END IF;
1564:
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566:
1567: -- If any error happens abort API.
1568: RETURN;
1569: END IF;
1578: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ACCRUAL_TYPE');
1579: FND_MSG_PUB.ADD;
1580: END IF;
1581:
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583:
1584: -- If any error happens abort API.
1585: RETURN;
1586: END IF;
1595: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_VAL_TYPE');
1596: FND_MSG_PUB.ADD;
1597: END IF;
1598:
1599: x_return_status := FND_API.G_RET_STS_ERROR;
1600:
1601: -- If any error happens abort API.
1602: RETURN;
1603: END IF;
1612: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_SENSITIVE');
1613: FND_MSG_PUB.ADD;
1614: END IF;
1615:
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1617:
1618: -- If any error happens abort API.
1619: RETURN;
1620: END IF;
1629: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ENABLED_FLAG');
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632:
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1634:
1635: -- If any error happens abort API.
1636: RETURN;
1637: END IF;
1650: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_UOM_TYPE');
1651: FND_MSG_PUB.Add;
1652: END IF;
1653:
1654: x_return_status := FND_API.G_RET_STS_ERROR;
1655:
1656: -- If any error happens abort API.
1657: RETURN;
1658: END IF;
1667: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_DEF_UOM');
1668: FND_MSG_PUB.Add;
1669: END IF;
1670:
1671: x_return_status := FND_API.G_RET_STS_ERROR;
1672:
1673: -- If any error happens abort API.
1674: RETURN;
1675: END IF;
1687: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_NAME');
1688: FND_MSG_PUB.ADD;
1689: END IF;
1690:
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692:
1693: -- If any error happens abort API.
1694: RETURN;
1695: END IF;
1704: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_DISPLAY_TYPE');
1705: FND_MSG_PUB.ADD;
1706: END IF;
1707:
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709:
1710: -- If any error happens abort API.
1711: RETURN;
1712: END IF;
1759: l_dummy NUMBER;
1760:
1761: BEGIN
1762:
1763: x_return_status := FND_API.g_ret_sts_success;
1764:
1765: -- For create_metric, when metric_id is passed in, we need to
1766: -- check if this metric_id is unique.
1767: IF p_validation_mode = JTF_PLSQL_API.g_create
1771:
1772: IF Ams_Utility_Pvt.Check_Uniqueness(
1773: p_table_name => 'ams_metrics_vl',
1774: p_where_clause => l_where_clause
1775: ) = FND_API.g_false
1776: THEN
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1778: THEN
1779: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_ID');
1778: THEN
1779: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_ID');
1780: FND_MSG_PUB.ADD;
1781: END IF;
1782: x_return_status := FND_API.g_ret_sts_error;
1783: RETURN;
1784: END IF;
1785: END IF;
1786:
1805:
1806: IF AMS_Utility_PVT.Check_Uniqueness(
1807: p_table_name => 'ams_metrics_vl',
1808: p_where_clause => l_where_clause
1809: ) = FND_API.g_false
1810: THEN
1811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1812: THEN
1813: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1812: THEN
1813: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1814: FND_MSG_PUB.add;
1815: END IF;
1816: x_return_status := FND_API.g_ret_sts_error;
1817: RETURN;
1818: END IF;
1819: */
1820: -- For Updates, must also check that uniqueness is not checked against the same record.
1826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1827: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1828: FND_MSG_PUB.ADD;
1829: END IF;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: END IF;
1832: CLOSE c_upd_get_dup_names;
1833: RETURN;
1834: ELSE
1839: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1840: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1841: FND_MSG_PUB.ADD;
1842: END IF;
1843: x_return_status := FND_API.g_ret_sts_error;
1844: END IF;
1845: CLOSE c_crt_get_dup_names;
1846: RETURN;
1847: END IF;
1925: l_count number;
1926:
1927: BEGIN
1928: -- Initialize return status to success.
1929: x_return_status := FND_API.G_RET_STS_SUCCESS;
1930:
1931: --
1932:
1933: --
1936:
1937: -- METRIC_PARENT_ID
1938: -- Do not validate FK if NULL
1939:
1940: IF (l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM
1941: AND l_metrics_rec.metric_parent_id IS NOT NULL) THEN
1942:
1943: OPEN c_check_metric_id(l_metrics_rec.metric_parent_id,G_ROLLUP);
1944: IF c_check_metric_id%NOTFOUND
1948: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_PARENT_MET');
1949: FND_MSG_PUB.ADD;
1950: END IF;
1951:
1952: x_return_status := FND_API.G_RET_STS_ERROR;
1953: CLOSE c_check_metric_id;
1954: RETURN;
1955: END IF;
1956: CLOSE c_check_metric_id;
1971: ,p_pk_name => l_pk_name
1972: ,p_pk_value => l_pk_value
1973: ,p_pk_data_type => l_pk_data_type
1974: ,p_additional_where_clause => l_additional_where_clause
1975: ) = FND_API.G_FALSE
1976: THEN
1977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1978: THEN
1979: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_PARENT_MET');
1979: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_PARENT_MET');
1980: FND_MSG_PUB.ADD;
1981: END IF;
1982:
1983: x_return_status := FND_API.G_RET_STS_ERROR;
1984: RETURN;*/
1985:
1986: /*added by sunkumar for alternate to the code commented above 20-apr-2004*/
1987:
1988:
1989:
1990:
1991: -- SUMMARY_METRIC_ID
1992: IF l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM AND
1993: l_metrics_rec.summary_metric_id IS NOT NULL THEN
1994:
1995:
1996: OPEN c_check_metric_id(l_metrics_rec.metric_parent_id,G_SUMMARY);
2001: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUMMARY_MET');
2002: FND_MSG_PUB.ADD;
2003: END IF;
2004:
2005: x_return_status := FND_API.G_RET_STS_ERROR;
2006: CLOSE c_check_metric_id;
2007: RETURN;
2008: END IF;
2009: CLOSE c_check_metric_id;
2024: ,p_pk_name => l_pk_name
2025: ,p_pk_value => l_pk_value
2026: ,p_pk_data_type => l_pk_data_type
2027: ,p_additional_where_clause => l_additional_where_clause
2028: ) = FND_API.G_FALSE
2029: THEN
2030: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2031: THEN
2032: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUMMARY_MET');
2032: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUMMARY_MET');
2033: FND_MSG_PUB.ADD;
2034: END IF;
2035:
2036: x_return_status := FND_API.G_RET_STS_ERROR;
2037: RETURN;
2038: END IF; -- Check_FK_Exists*/
2039:
2040:
2040:
2041:
2042:
2043: -- UOM_CLASS
2044: IF l_metrics_rec.uom_type <> FND_API.G_MISS_CHAR THEN
2045:
2046: OPEN c_check_uom(l_metrics_rec.uom_type);
2047: IF c_check_uom%NOTFOUND
2048: THEN
2051: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM_TYPE');
2052: FND_MSG_PUB.ADD;
2053: END IF;
2054:
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2056: CLOSE c_check_uom;
2057: RETURN;
2058: END IF;
2059: CLOSE c_check_uom;
2072: ,p_pk_name => l_pk_name
2073: ,p_pk_value => l_pk_value
2074: ,p_pk_data_type => l_pk_data_type
2075: ,p_additional_where_clause => l_additional_where_clause
2076: ) = FND_API.G_FALSE
2077: THEN
2078: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2079: THEN
2080: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM_TYPE');
2080: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM_TYPE');
2081: FND_MSG_PUB.ADD;
2082: END IF;
2083:
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: RETURN;
2086: END IF; -- Check_FK_Exists*/
2087:
2088:
2087:
2088:
2089:
2090: -- Metric_category
2091: IF l_metrics_rec.metric_category <> FND_API.G_MISS_NUM THEN
2092:
2093:
2094: OPEN c_check_category(l_metrics_rec.metric_category);
2095: IF c_check_category%NOTFOUND
2099: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_CATEGORY');
2100: FND_MSG_PUB.ADD;
2101: END IF;
2102:
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: CLOSE c_check_category;
2105: RETURN;
2106: END IF;
2107: CLOSE c_check_category;
2121: ,p_pk_name => l_pk_name
2122: ,p_pk_value => l_pk_value
2123: ,p_pk_data_type => l_pk_data_type
2124: ,p_additional_where_clause => l_additional_where_clause
2125: ) = FND_API.G_FALSE
2126: THEN
2127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2128: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CATEGORY');
2129: FND_MSG_PUB.ADD;
2128: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CATEGORY');
2129: FND_MSG_PUB.ADD;
2130: END IF;
2131:
2132: x_return_status := FND_API.G_RET_STS_ERROR;
2133: RETURN;
2134: END IF;*/
2135:
2136:
2144: -- Begin Validate Flags
2145: --
2146:
2147: -- SENSITIVE_DATA_FLAG
2148: IF l_metrics_rec.sensitive_data_flag <> FND_API.G_MISS_CHAR THEN
2149: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.sensitive_data_flag)
2150: = FND_API.G_FALSE
2151: THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2146:
2147: -- SENSITIVE_DATA_FLAG
2148: IF l_metrics_rec.sensitive_data_flag <> FND_API.G_MISS_CHAR THEN
2149: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.sensitive_data_flag)
2150: = FND_API.G_FALSE
2151: THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2153: THEN
2154: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SENS_FLAG');
2154: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SENS_FLAG');
2155: FND_MSG_PUB.ADD;
2156: END IF;
2157:
2158: x_return_status := FND_API.G_RET_STS_ERROR;
2159: RETURN;
2160: END IF; -- Is_Y_Or_N
2161: END IF;
2162:
2160: END IF; -- Is_Y_Or_N
2161: END IF;
2162:
2163: -- ENABLED_FLAG
2164: IF l_metrics_rec.enabled_flag <> FND_API.G_MISS_CHAR THEN
2165: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.enabled_flag)
2166: = FND_API.G_FALSE
2167: THEN
2168: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2162:
2163: -- ENABLED_FLAG
2164: IF l_metrics_rec.enabled_flag <> FND_API.G_MISS_CHAR THEN
2165: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.enabled_flag)
2166: = FND_API.G_FALSE
2167: THEN
2168: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2169: THEN
2170: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_ENABLED_FLAG');
2170: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_ENABLED_FLAG');
2171: FND_MSG_PUB.ADD;
2172: END IF;
2173:
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: RETURN;
2176: END IF; -- Is_Y_Or_N
2177: END IF;
2178:
2184: -- Begin Validate LOOKUPS
2185: --
2186:
2187: -- ACCRUAL_TYPE
2188: IF l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR THEN
2189: l_lookup_type := 'AMS_METRIC_ACCRUAL_TYPE';
2190: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2191: p_lookup_table_name => 'AMS_LOOKUPS'
2192: ,p_lookup_type => l_lookup_type
2190: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2191: p_lookup_table_name => 'AMS_LOOKUPS'
2192: ,p_lookup_type => l_lookup_type
2193: ,p_lookup_code => l_metrics_rec.accrual_type
2194: ) = FND_API.G_FALSE
2195: THEN
2196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2197: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCRUAL_TYPE');
2198: FND_MSG_PUB.ADD;
2197: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCRUAL_TYPE');
2198: FND_MSG_PUB.ADD;
2199: END IF;
2200:
2201: x_return_status := FND_API.G_RET_STS_ERROR;
2202: RETURN;
2203: END IF;
2204: END IF;
2205:
2204: END IF;
2205:
2206: -- METRIC_CALCULATION_TYPE
2207: -- DMVINCEN 05/15/2001: Allow SUMMARY for 11.5.4.11 (change in 11.5.5).
2208: IF l_metrics_rec.metric_calculation_type <> FND_API.G_MISS_CHAR THEN
2209: l_lookup_type := 'AMS_METRIC_CALCULATION_TYPE';
2210: IF -- l_metrics_rec.metric_calculation_type <> G_SUMMARY AND
2211: Ams_Utility_Pvt.Check_Lookup_Exists (
2212: p_lookup_table_name => 'AMS_LOOKUPS'
2211: Ams_Utility_Pvt.Check_Lookup_Exists (
2212: p_lookup_table_name => 'AMS_LOOKUPS'
2213: ,p_lookup_type => l_lookup_type
2214: ,p_lookup_code => l_metrics_rec.metric_calculation_type
2215: ) = FND_API.G_FALSE
2216: THEN
2217: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2218: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_TYPE');
2219: FND_MSG_PUB.ADD;
2218: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_TYPE');
2219: FND_MSG_PUB.ADD;
2220: END IF;
2221:
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: RETURN;
2224: END IF;
2225: END IF;
2226:
2225: END IF;
2226:
2227:
2228: -- VALUE_TYPE
2229: IF l_metrics_rec.DISPLAY_TYPE <> FND_API.G_MISS_CHAR THEN
2230: l_lookup_type := 'AMS_METRIC_DISPLAY_TYPE';
2231: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2232: p_lookup_table_name => 'AMS_LOOKUPS'
2233: ,p_lookup_type => l_lookup_type
2231: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2232: p_lookup_table_name => 'AMS_LOOKUPS'
2233: ,p_lookup_type => l_lookup_type
2234: ,p_lookup_code => l_metrics_rec.DISPLAY_TYPE
2235: ) = FND_API.G_FALSE
2236: THEN
2237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2238: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2239: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2239: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2240: FND_MSG_PUB.ADD;
2241: END IF;
2242:
2243: x_return_status := FND_API.G_RET_STS_ERROR;
2244: RETURN;
2245: END IF;
2246: END IF;
2247:
2245: END IF;
2246: END IF;
2247:
2248: -- VALUE_TYPE
2249: IF l_metrics_rec.value_type <> FND_API.G_MISS_CHAR THEN
2250: l_lookup_type := 'AMS_METRIC_VALUE_TYPE';
2251: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2252: p_lookup_table_name => 'AMS_LOOKUPS'
2253: ,p_lookup_type => l_lookup_type
2251: IF Ams_Utility_Pvt.Check_Lookup_Exists (
2252: p_lookup_table_name => 'AMS_LOOKUPS'
2253: ,p_lookup_type => l_lookup_type
2254: ,p_lookup_code => l_metrics_rec.value_type
2255: ) = FND_API.G_FALSE
2256: THEN
2257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2258: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2259: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2259: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2260: FND_MSG_PUB.ADD;
2261: END IF;
2262:
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2264: RETURN;
2265: END IF;
2266: END IF;
2267:
2272: -- 17-Apr-2000 tdonohoe@us modified, added FUND and FCST qualifiers.
2273: -- 11-Mar-2002 DMVINCEN Added components.
2274: -- 11-Mar-2003 BUG2845365: Removed dialgue components.
2275: -- ARC_METRIC_USED_FOR_OBJECT
2276: IF l_metrics_rec.arc_metric_used_for_object <> FND_API.G_MISS_CHAR THEN
2277: l_count := 0;
2278: IF l_metrics_rec.metric_calculation_type in (G_FUNCTION, G_MANUAL) THEN
2279: OPEN c_check_object_type(l_metrics_rec.arc_metric_used_for_object);
2280: fetch c_check_object_type into l_count;
2301: -- IF AMS_Utility_PVT.Check_Lookup_Exists (
2302: -- p_lookup_table_name => 'AMS_LOOKUPS'
2303: -- ,p_lookup_type => l_lookup_type
2304: -- ,p_lookup_code => l_metrics_rec.arc_metric_used_for_object
2305: -- ) = FND_API.G_FALSE
2306: THEN
2307: ***/
2308: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2309: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
2309: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
2310: FND_MSG_PUB.ADD;
2311: END IF;
2312:
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: RETURN;
2315: END IF;
2316: END IF;
2317:
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330:
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: RETURN;
2333: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2334: END Check_Metric_Items;
2335:
2329: WHEN OTHERS THEN
2330:
2331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2332: RETURN;
2333: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2334: END Check_Metric_Items;
2335:
2336: /**** OBSOLETE: DMVINCEN 03/04/2003
2337: --
2357: p_parent_metric_used_by IN VARCHAR2,
2358: x_return_status OUT NOCOPY VARCHAR2 )
2359: IS
2360: BEGIN
2361: x_return_status := FND_API.g_ret_sts_success;
2362:
2363: -- If Child is Attached to Program then Parent must be attached to Program
2364: IF p_metric_used_by = 'RCAM' AND
2365: p_parent_metric_used_by <> 'RCAM'
2363: -- If Child is Attached to Program then Parent must be attached to Program
2364: IF p_metric_used_by = 'RCAM' AND
2365: p_parent_metric_used_by <> 'RCAM'
2366: THEN
2367: x_return_status := FND_API.G_RET_STS_ERROR;
2368: RETURN;
2369: END IF;
2370:
2371: -- If Child is Attached to Campaign then Parent must be attached to Program
2371: -- If Child is Attached to Campaign then Parent must be attached to Program
2372: IF p_metric_used_by = 'CAMP' AND
2373: p_parent_metric_used_by <> 'RCAM'
2374: THEN
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: RETURN;
2377: END IF;
2378:
2379: -- If Child is Attached to Campaign Schedule then Parent must be attached to Campaign
2379: -- If Child is Attached to Campaign Schedule then Parent must be attached to Campaign
2380: IF p_metric_used_by = 'CSCH' AND
2381: p_parent_metric_used_by <> 'CAMP'
2382: THEN
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: RETURN;
2385: END IF;
2386:
2387: -- Deliverable Child can not be rolled up into any other entity
2386:
2387: -- Deliverable Child can not be rolled up into any other entity
2388: IF p_metric_used_by = 'DELV'
2389: THEN
2390: x_return_status := FND_API.G_RET_STS_ERROR;
2391: RETURN;
2392: END IF;
2393:
2394: --06/10/2001 huili changed logic
2395: -- If Child is Attached to Event Header then Parent must be attached to Program
2396: IF p_metric_used_by = 'EVEH' AND
2397: p_parent_metric_used_by <> 'RCAM'
2398: THEN
2399: x_return_status := FND_API.G_RET_STS_ERROR;
2400: RETURN;
2401: END IF;
2402:
2403: -- If Child is Attached to Event Offer then Parent must be attached to
2404: -- Event Header or Event Offer
2405: IF p_metric_used_by = 'EVEO' AND
2406: p_parent_metric_used_by <> 'EVEH'
2407: THEN
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: RETURN;
2410: END IF;
2411:
2412: -- If Child is Attached to One Off Event then Parent must be attached to Program
2415: --FND_MSG_PUB.add;
2416: IF p_metric_used_by = 'EONE' AND
2417: p_parent_metric_used_by <> 'RCAM'
2418: THEN
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2420: RETURN;
2421: END IF;
2422:
2423: END Check_Valid_Parent;
2520: l_additional_where_clause VARCHAR2(4000); -- Used by Check_FK_Exists.
2521:
2522: BEGIN
2523:
2524: x_return_status := FND_API.g_ret_sts_success;
2525:
2526: IF --l_metrics_rec.metric_sub_category <> FND_API.G_MISS_NUM AND
2527: p_complete_rec.metric_sub_category IS NOT NULL THEN
2528: -- IF l_metrics_rec.metric_category = FND_API.G_MISS_NUM THEN
2522: BEGIN
2523:
2524: x_return_status := FND_API.g_ret_sts_success;
2525:
2526: IF --l_metrics_rec.metric_sub_category <> FND_API.G_MISS_NUM AND
2527: p_complete_rec.metric_sub_category IS NOT NULL THEN
2528: -- IF l_metrics_rec.metric_category = FND_API.G_MISS_NUM THEN
2529: -- l_metrics_rec.metric_category := p_complete_rec.metric_category ;
2530: -- END IF;
2524: x_return_status := FND_API.g_ret_sts_success;
2525:
2526: IF --l_metrics_rec.metric_sub_category <> FND_API.G_MISS_NUM AND
2527: p_complete_rec.metric_sub_category IS NOT NULL THEN
2528: -- IF l_metrics_rec.metric_category = FND_API.G_MISS_NUM THEN
2529: -- l_metrics_rec.metric_category := p_complete_rec.metric_category ;
2530: -- END IF;
2531:
2532: /*sunkumar 20 april 2004*/
2538: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUB_CATEGORY');
2539: FND_MSG_PUB.ADD;
2540: END IF;
2541:
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543: CLOSE c_check_subcategory;
2544: RETURN;
2545: END IF;
2546: CLOSE c_check_subcategory;
2559: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
2560: FND_MSG_PUB.ADD;
2561: END IF;
2562:
2563: x_return_status := FND_API.G_RET_STS_ERROR;
2564: CLOSE c_check_uom;
2565: RETURN;
2566: END IF;
2567: CLOSE c_check_uom;
2586: ,p_pk_name => l_pk_name
2587: ,p_pk_value => l_pk_value
2588: ,p_pk_data_type => l_pk_data_type
2589: ,p_additional_where_clause => l_additional_where_clause
2590: ) = FND_API.G_FALSE
2591: THEN
2592: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2593: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUB_CATEGORY');
2594: FND_MSG_PUB.ADD;
2593: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUB_CATEGORY');
2594: FND_MSG_PUB.ADD;
2595: END IF;
2596:
2597: x_return_status := FND_API.G_RET_STS_ERROR;
2598: RETURN;
2599: END IF; */
2600:
2601:
2599: END IF; */
2600:
2601:
2602: -- DEFAULT_UOM_CODE
2603: -- IF l_metrics_rec.default_uom_code <> FND_API.G_MISS_CHAR THEN
2604:
2605:
2606:
2607: -- IF l_metrics_rec.uom_type = FND_API.G_MISS_CHAR THEN
2603: -- IF l_metrics_rec.default_uom_code <> FND_API.G_MISS_CHAR THEN
2604:
2605:
2606:
2607: -- IF l_metrics_rec.uom_type = FND_API.G_MISS_CHAR THEN
2608: -- l_metrics_rec.uom_type := p_complete_rec.uom_type ;
2609: -- END IF;
2610: /* l_table_name := 'MTL_UNITS_OF_MEASURE';
2611: l_pk_name := 'UOM_CODE';
2618: ,p_pk_name => l_pk_name
2619: ,p_pk_value => l_pk_value
2620: ,p_pk_data_type => l_pk_data_type
2621: ,p_additional_where_clause => l_additional_where_clause
2622: ) = FND_API.G_FALSE
2623: THEN
2624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2625: THEN
2626: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
2626: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
2627: FND_MSG_PUB.ADD;
2628: END IF;
2629:
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2631: RETURN;
2632: END IF; -- Check_FK_Exists*/
2633:
2634:
2633:
2634:
2635:
2636: /*****
2637: IF (l_metrics_rec.metric_calculation_type <> FND_API.G_MISS_CHAR
2638: OR l_metrics_rec.function_name <> FND_API.G_MISS_CHAR
2639: OR l_metrics_rec.compute_using_function <> FND_API.G_MISS_CHAR
2640: OR l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR)
2641: THEN
2634:
2635:
2636: /*****
2637: IF (l_metrics_rec.metric_calculation_type <> FND_API.G_MISS_CHAR
2638: OR l_metrics_rec.function_name <> FND_API.G_MISS_CHAR
2639: OR l_metrics_rec.compute_using_function <> FND_API.G_MISS_CHAR
2640: OR l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR)
2641: THEN
2642: IF l_metrics_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
2635:
2636: /*****
2637: IF (l_metrics_rec.metric_calculation_type <> FND_API.G_MISS_CHAR
2638: OR l_metrics_rec.function_name <> FND_API.G_MISS_CHAR
2639: OR l_metrics_rec.compute_using_function <> FND_API.G_MISS_CHAR
2640: OR l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR)
2641: THEN
2642: IF l_metrics_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
2643: l_metrics_rec.metric_calculation_type :=
2636: /*****
2637: IF (l_metrics_rec.metric_calculation_type <> FND_API.G_MISS_CHAR
2638: OR l_metrics_rec.function_name <> FND_API.G_MISS_CHAR
2639: OR l_metrics_rec.compute_using_function <> FND_API.G_MISS_CHAR
2640: OR l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR)
2641: THEN
2642: IF l_metrics_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
2643: l_metrics_rec.metric_calculation_type :=
2644: p_complete_rec.metric_calculation_type ;
2638: OR l_metrics_rec.function_name <> FND_API.G_MISS_CHAR
2639: OR l_metrics_rec.compute_using_function <> FND_API.G_MISS_CHAR
2640: OR l_metrics_rec.accrual_type <> FND_API.G_MISS_CHAR)
2641: THEN
2642: IF l_metrics_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
2643: l_metrics_rec.metric_calculation_type :=
2644: p_complete_rec.metric_calculation_type ;
2645: END IF;
2646:
2643: l_metrics_rec.metric_calculation_type :=
2644: p_complete_rec.metric_calculation_type ;
2645: END IF;
2646:
2647: IF l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
2648: l_metrics_rec.function_name := p_complete_rec.function_name ;
2649: END IF;
2650:
2651: IF l_metrics_rec.compute_using_function = FND_API.G_MISS_CHAR THEN
2647: IF l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
2648: l_metrics_rec.function_name := p_complete_rec.function_name ;
2649: END IF;
2650:
2651: IF l_metrics_rec.compute_using_function = FND_API.G_MISS_CHAR THEN
2652: l_metrics_rec.compute_using_function :=
2653: p_complete_rec.compute_using_function ;
2654: END IF;
2655:
2652: l_metrics_rec.compute_using_function :=
2653: p_complete_rec.compute_using_function ;
2654: END IF;
2655:
2656: IF l_metrics_rec.accrual_type = FND_API.G_MISS_CHAR THEN
2657: l_metrics_rec.accrual_type := p_complete_rec.accrual_type ;
2658: END IF;
2659: *****/
2660: -- Has to change when routine for Validate Function is done
2663: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2664: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCR_VAR_FUN');
2665: FND_MSG_PUB.ADD;
2666: END IF;
2667: x_return_status := FND_API.G_RET_STS_ERROR;
2668: RETURN;
2669: ELSE -- compute_using_function is null
2670: IF p_complete_rec.metric_calculation_type = G_FUNCTION THEN
2671: IF p_complete_rec.function_name IS NULL THEN
2673: THEN
2674: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_FUNC');
2675: FND_MSG_PUB.ADD;
2676: END IF;
2677: x_return_status := FND_API.G_RET_STS_ERROR;
2678: RETURN;
2679: END IF; -- function_name is null
2680: ELSE -- metric_calculation_type <> G_FUNCTION
2681: IF p_complete_rec.function_name IS NOT NULL THEN
2683: THEN
2684: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_FUNC');
2685: FND_MSG_PUB.ADD;
2686: END IF;
2687: x_return_status := FND_API.G_RET_STS_ERROR;
2688: RETURN;
2689: END IF; -- function_name is not null
2690: END IF; -- metric_calculation_type = 'FUNCTION'
2691: END IF; -- compute_using_function is not null
2695: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2696: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCR_FUN');
2697: FND_MSG_PUB.ADD;
2698: END IF;
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700: RETURN;
2701: END IF; -- function_name is not null
2702: **/
2703: IF p_complete_rec.compute_using_function IS NULL THEN
2704: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2705: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_COMP_FUNC');
2706: FND_MSG_PUB.ADD;
2707: END IF;
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2709: RETURN;
2710: ELSE
2711: OPEN c_check_multiplier(
2712: to_number(p_complete_rec.compute_using_function));
2719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2720: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_METR');
2721: FND_MSG_PUB.ADD;
2722: END IF;
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: END IF;
2725: CLOSE c_check_multiplier;
2726: IF l_category_id IN (G_COST_ID,G_REVENUE_ID) THEN
2727: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2732: FND_MESSAGE.set_token('CATEGORY',
2733: NVL(l_name,to_char(l_category_id)), FALSE);
2734: FND_MSG_PUB.ADD;
2735: END IF;
2736: x_return_status := FND_API.G_RET_STS_ERROR;
2737: END IF;
2738: IF l_object_type <> p_complete_rec.arc_metric_used_for_object THEN
2739: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2740: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_OBJ');
2743: FND_MESSAGE.set_token('OBJECT',
2744: NVL(l_name,l_object_type), FALSE);
2745: FND_MSG_PUB.ADD;
2746: END IF;
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: END IF;
2749: IF l_calculation_type NOT IN (G_MANUAL, G_FUNCTION) THEN
2750: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2751: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_CALC');
2754: FND_MESSAGE.set_token('CALCULATION',
2755: NVL(l_name,l_calculation_type), FALSE);
2756: FND_MSG_PUB.ADD;
2757: END IF;
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759: END IF;
2760: END IF; -- compute_using_function is null
2761:
2762: END IF; -- accrual_type = 'FIXED'
2765: --
2766: -- Begin Other Business Rule Validations
2767: --
2768: /*****
2769: IF (l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM OR
2770: l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM ) AND
2771: (l_metrics_rec.metric_parent_id IS NOT NULL OR
2772: l_metrics_rec.summary_metric_id IS NOT NULL )
2773: THEN
2766: -- Begin Other Business Rule Validations
2767: --
2768: /*****
2769: IF (l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM OR
2770: l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM ) AND
2771: (l_metrics_rec.metric_parent_id IS NOT NULL OR
2772: l_metrics_rec.summary_metric_id IS NOT NULL )
2773: THEN
2774: IF l_metrics_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
2770: l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM ) AND
2771: (l_metrics_rec.metric_parent_id IS NOT NULL OR
2772: l_metrics_rec.summary_metric_id IS NOT NULL )
2773: THEN
2774: IF l_metrics_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
2775: l_metrics_rec.metric_parent_id := p_complete_rec.metric_parent_id ;
2776: END IF;
2777:
2778: IF l_metrics_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
2774: IF l_metrics_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
2775: l_metrics_rec.metric_parent_id := p_complete_rec.metric_parent_id ;
2776: END IF;
2777:
2778: IF l_metrics_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
2779: l_metrics_rec.summary_metric_id := p_complete_rec.summary_metric_id ;
2780: END IF;
2781: /* **** DMVINCEN 04/27/2001 - Allow both same level and parent level.
2782: IF (l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM AND
2778: IF l_metrics_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
2779: l_metrics_rec.summary_metric_id := p_complete_rec.summary_metric_id ;
2780: END IF;
2781: /* **** DMVINCEN 04/27/2001 - Allow both same level and parent level.
2782: IF (l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM AND
2783: l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM ) AND
2784: (l_metrics_rec.summary_metric_id IS NOT NULL AND
2785: l_metrics_rec.metric_parent_id IS NOT NULL )
2786: THEN
2779: l_metrics_rec.summary_metric_id := p_complete_rec.summary_metric_id ;
2780: END IF;
2781: /* **** DMVINCEN 04/27/2001 - Allow both same level and parent level.
2782: IF (l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM AND
2783: l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM ) AND
2784: (l_metrics_rec.summary_metric_id IS NOT NULL AND
2785: l_metrics_rec.metric_parent_id IS NOT NULL )
2786: THEN
2787: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2787: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2788: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2789: FND_MSG_PUB.Add;
2790: END IF;
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792: RETURN;
2793: END IF;
2794: ***** * /
2795: END IF;
2796: ****/
2797: -- DMVINCEN 04/27/2001 - Summary metrics may not rollup.
2798: IF p_complete_rec.metric_calculation_type = G_SUMMARY AND
2799: p_complete_rec.metric_parent_id IS NOT NULL --AND
2800: --l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM
2801: THEN
2802: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2803: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_SUMM_NOT_ROLL');
2804: FND_MSG_PUB.ADD;
2802: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2803: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_SUMM_NOT_ROLL');
2804: FND_MSG_PUB.ADD;
2805: END IF;
2806: x_return_status := FND_API.G_RET_STS_ERROR;
2807: RETURN;
2808: END IF;
2809:
2810: -- Validate ROLLUP_METRIC_ID
2808: END IF;
2809:
2810: -- Validate ROLLUP_METRIC_ID
2811:
2812: IF --l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM AND
2813: p_complete_rec.metric_parent_id IS NOT NULL THEN
2814:
2815: -- Check if this Parent Metric is Summary Metric of any other Metric
2816: OPEN c_summary_count(p_complete_rec.metric_id);
2822: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2823: FND_MSG_PUB.ADD;
2824: END IF;
2825:
2826: x_return_status := FND_API.G_RET_STS_ERROR;
2827: RETURN;
2828: END IF;
2829:
2830: OPEN c_rollup_metric(p_complete_rec.metric_parent_id);
2848: -- p_parent_metric_used_by => l_rollup_metric_rec.arc_metric_used_for_object,
2849: -- x_return_status => x_return_status );
2850:
2851:
2852: -- IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2853: --
2854: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2855: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_PARENT');
2856: -- FND_MSG_PUB.ADD;
2858: -- RETURN;
2859: -- END IF;
2860:
2861: -- METRIC_CATEGORY
2862: -- IF l_metrics_rec.metric_category = FND_API.G_MISS_NUM THEN
2863: -- l_metrics_rec.metric_category := p_complete_rec.metric_category ;
2864: -- END IF;
2865: -- The parent rollup metric category must be the same as the child's.
2866: IF p_complete_rec.metric_category <> l_rollup_metric_rec.metric_category
2869: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_CAT');
2870: FND_MSG_PUB.ADD;
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_ERROR;
2874: RETURN;
2875: END IF;
2876:
2877: -- VALUE_TYPE
2876:
2877: -- VALUE_TYPE
2878: -- The parent rollup metric return type must be the same as the child's.
2879: -- i.e. Numeric Metric can not be rolled up into Ratio Metric
2880: -- IF l_metrics_rec.value_type = FND_API.G_MISS_CHAR THEN
2881: -- l_metrics_rec.value_type := p_complete_rec.value_type ;
2882: -- END IF;
2883:
2884: IF p_complete_rec.value_type <> l_rollup_metric_rec.value_type THEN
2886: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_VAL');
2887: FND_MSG_PUB.ADD;
2888: END IF;
2889:
2890: x_return_status := FND_API.G_RET_STS_ERROR;
2891: RETURN;
2892: END IF;
2893:
2894: -- UOM_TYPE
2892: END IF;
2893:
2894: -- UOM_TYPE
2895: -- The parent rollup metric unit of measure must be the same as the child's.
2896: -- IF l_metrics_rec.uom_type = FND_API.G_MISS_CHAR THEN
2897: -- l_metrics_rec.uom_type := p_complete_rec.uom_type ;
2898: -- END IF;
2899:
2900: IF p_complete_rec.uom_type <> l_rollup_metric_rec.uom_type THEN
2902: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_UOM');
2903: FND_MSG_PUB.ADD;
2904: END IF;
2905:
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2907: RETURN;
2908: END IF;
2909:
2910:
2921: -- FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2922: -- FND_MSG_PUB.Add;
2923: -- END IF;
2924: --
2925: -- x_return_status := FND_API.G_RET_STS_ERROR;
2926: -- END IF;
2927:
2928: END IF;
2929:
2927:
2928: END IF;
2929:
2930: -- Validate SUMMARY_METRIC_ID
2931: IF --l_metrics_rec.summary_metric_id <> FND_API.G_MISS_NUM AND
2932: p_complete_rec.summary_metric_id IS NOT NULL THEN
2933: -- Check if this Parent Metric is Rollup Metric of any other Metric
2934: /*****
2935: OPEN c_rollup_count(p_complete_rec.metric_id);
2941: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2942: FND_MSG_PUB.ADD;
2943: END IF;
2944:
2945: x_return_status := FND_API.G_RET_STS_ERROR;
2946: RETURN;
2947: END IF;
2948: ****/
2949: OPEN c_summary_metric(p_complete_rec.summary_metric_id);
2955: --
2956: CLOSE c_summary_metric;
2957:
2958: -- METRIC_CATEGORY
2959: -- IF l_metrics_rec.metric_category = FND_API.G_MISS_NUM THEN
2960: -- l_metrics_rec.metric_category := p_complete_rec.metric_category ;
2961: -- END IF;
2962: -- The parent rollup metric category must be the same as the child's.
2963: IF p_complete_rec.metric_category <> l_summary_metric_rec.metric_category
2966: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_CAT');
2967: FND_MSG_PUB.ADD;
2968: END IF;
2969:
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: RETURN;
2972: END IF;
2973:
2974: -- UOM_TYPE
2971: RETURN;
2972: END IF;
2973:
2974: -- UOM_TYPE
2975: -- IF l_metrics_rec.uom_type = FND_API.G_MISS_CHAR THEN
2976: -- l_metrics_rec.uom_type := p_complete_rec.uom_type ;
2977: -- END IF;
2978: -- The parent rollup metric unit of measure must be the same as the child's.
2979: IF p_complete_rec.uom_type <> l_summary_metric_rec.uom_type THEN
2981: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_UOM');
2982: FND_MSG_PUB.ADD;
2983: END IF;
2984:
2985: x_return_status := FND_API.G_RET_STS_ERROR;
2986: RETURN;
2987: END IF;
2988:
2989: -- VALUE_TYPE
2986: RETURN;
2987: END IF;
2988:
2989: -- VALUE_TYPE
2990: -- IF l_metrics_rec.value_type = FND_API.G_MISS_CHAR THEN
2991: -- l_metrics_rec.value_type := p_complete_rec.value_type ;
2992: -- END IF;
2993: -- The return value type of the parent metric must be the same
2994: -- as that of the child's.
2997: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_VAL');
2998: FND_MSG_PUB.ADD;
2999: END IF;
3000:
3001: x_return_status := FND_API.G_RET_STS_ERROR;
3002: RETURN;
3003: END IF;
3004:
3005: -- ARC_METRIC_USED_FOR_OBJECT
3002: RETURN;
3003: END IF;
3004:
3005: -- ARC_METRIC_USED_FOR_OBJECT
3006: --IF l_metrics_rec.arc_metric_used_for_object = FND_API.G_MISS_CHAR THEN
3007: -- l_metrics_rec.arc_metric_used_for_object :=
3008: -- p_complete_rec.arc_metric_used_for_object ;
3009: --END IF;
3010: -- The return value type of the parent metric must be the same as that
3020: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_OBJ');
3021: -- FND_MSG_PUB.ADD;
3022: -- END IF;
3023:
3024: -- x_return_status := FND_API.G_RET_STS_ERROR;
3025: -- RETURN;
3026: -- END IF;
3027: END IF;
3028:
3035: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3036: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CATEGORY');
3037: FND_MSG_PUB.ADD;
3038: END IF;
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: RETURN;
3041: END IF;
3042:
3043: -- 04-OCT-2001 DMVINCEN New object type for summary and rollup.
3048: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_CALC');
3049: FND_MSG_PUB.ADD;
3050: END IF;
3051:
3052: x_return_status := FND_API.G_RET_STS_ERROR;
3053: RETURN;
3054: END IF;
3055:
3056: -- 04-OCT-2001 DMVINCEN New object type for summary and rollup.
3061: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_USED');
3062: FND_MSG_PUB.ADD;
3063: END IF;
3064:
3065: x_return_status := FND_API.G_RET_STS_ERROR;
3066: RETURN;
3067: END IF;
3068:
3069: EXCEPTION
3067: END IF;
3068:
3069: EXCEPTION
3070: WHEN OTHERS THEN
3071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3072: RETURN ;
3073:
3074: END Validate_Metric_record;
3075:
3100: p_metric_rec => p_metric_rec,
3101: x_return_status => x_return_status
3102: );
3103:
3104: IF x_return_status <> FND_API.g_ret_sts_success THEN
3105: RETURN;
3106: END IF;
3107:
3108: Check_Metric_Uk_Items(
3110: p_validation_mode => p_validation_mode,
3111: x_return_status => x_return_status
3112: );
3113:
3114: IF x_return_status <> FND_API.g_ret_sts_success THEN
3115: RETURN;
3116: END IF;
3117:
3118: Check_Metric_Items(
3119: p_metric_rec => p_metric_rec,
3120: x_return_status => x_return_status
3121: );
3122:
3123: IF x_return_status <> FND_API.g_ret_sts_success THEN
3124: RETURN;
3125: END IF;
3126:
3127:
3160:
3161:
3162: BEGIN
3163: -- Initialize return status to success.
3164: x_return_status := FND_API.G_RET_STS_SUCCESS;
3165:
3166: OPEN c_check_metric_id(l_metric_id);
3167: IF c_check_metric_id%NOTFOUND
3168: THEN
3165:
3166: OPEN c_check_metric_id(l_metric_id);
3167: IF c_check_metric_id%NOTFOUND
3168: THEN
3169: x_return_status := FND_API.G_RET_STS_ERROR;
3170: RETURN;
3171: END IF;
3172: CLOSE c_check_metric_id;
3173:
3178: p_table_name => 'AMS_ACT_METRICS_ALL',
3179: p_pk_name => 'METRIC_ID',
3180: p_pk_value => l_metric_id,
3181: p_pk_data_type => Ams_Utility_Pvt.G_NUMBER
3182: ) = FND_API.G_TRUE
3183: THEN
3184: x_return_status := FND_API.G_RET_STS_ERROR;
3185: RETURN;
3186: END IF;
3180: p_pk_value => l_metric_id,
3181: p_pk_data_type => Ams_Utility_Pvt.G_NUMBER
3182: ) = FND_API.G_TRUE
3183: THEN
3184: x_return_status := FND_API.G_RET_STS_ERROR;
3185: RETURN;
3186: END IF;
3187: */
3188: -- Do not validate FK if NULL
3186: END IF;
3187: */
3188: -- Do not validate FK if NULL
3189: -- IF l_metrics_rec.metric_parent_id IS NULL THEN
3190: -- l_metrics_validate_fk_rec.metric_parent_id := FND_API.G_FALSE;
3191: -- END IF;
3192: -- IF l_metrics_validate_fk_rec.metric_parent_id = FND_API.G_TRUE THEN
3193: -- AMS_METRICS_VL
3194: -- Start of the changes made by PTENDULK on 08/19/1999
3188: -- Do not validate FK if NULL
3189: -- IF l_metrics_rec.metric_parent_id IS NULL THEN
3190: -- l_metrics_validate_fk_rec.metric_parent_id := FND_API.G_FALSE;
3191: -- END IF;
3192: -- IF l_metrics_validate_fk_rec.metric_parent_id = FND_API.G_TRUE THEN
3193: -- AMS_METRICS_VL
3194: -- Start of the changes made by PTENDULK on 08/19/1999
3195: -- The check is modified to check whether this metric id is parent metric
3196: -- id of any other id
3200: -- IF AMS_Utility_PVT.Check_FK_Exists (
3201: -- p_table_name => 'AMS_METRICS_VL',
3202: -- p_pk_name => 'METRIC_ID',
3203: -- p_pk_value => l_metrics_rec.metric_parent_id
3204: -- ) = FND_API.G_TRUE
3205: -- THEN
3206: -- Modified Code
3207:
3208: --
3215: -- p_table_name => 'AMS_METRICS_VL',
3216: -- p_pk_name => 'METRIC_PARENT_ID',
3217: -- p_pk_value => l_metric_id,
3218: -- p_pk_data_type => AMS_Utility_PVT.G_NUMBER
3219: -- ) = FND_API.G_TRUE
3220: -- End of the changes made by PTENDULK on 08/19/1999
3221: -- THEN
3222: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3223: -- THEN
3223: -- THEN
3224: -- FND_MESSAGE.Set_Name('AMS', 'AMS_METR_CHILD_EXIST');
3225: -- FND_MSG_PUB.Add;
3226: -- END IF;
3227: -- x_return_status := FND_API.G_RET_STS_ERROR;
3228: -- RETURN;
3229: -- END IF;
3230: -- end of change 07/17/2000 khung
3231:
3229: -- END IF;
3230: -- end of change 07/17/2000 khung
3231:
3232: -- IF l_metrics_rec.summary_metric_id IS NULL THEN
3233: -- l_metrics_validate_fk_rec.summary_metric_id := FND_API.G_FALSE;
3234: -- END IF;
3235: -- IF l_metrics_validate_fk_rec.summary_metric_id = FND_API.G_TRUE THEN
3236: -- AMS_METRICS_VL
3237: -- Start of the changes made by PTENDULK on 08/19/1999
3231:
3232: -- IF l_metrics_rec.summary_metric_id IS NULL THEN
3233: -- l_metrics_validate_fk_rec.summary_metric_id := FND_API.G_FALSE;
3234: -- END IF;
3235: -- IF l_metrics_validate_fk_rec.summary_metric_id = FND_API.G_TRUE THEN
3236: -- AMS_METRICS_VL
3237: -- Start of the changes made by PTENDULK on 08/19/1999
3238: -- The check is modified to check whether this metric id is Summary metric
3239: -- id of any other metric id
3241: -- IF AMS_Utility_PVT.Check_FK_Exists (
3242: -- p_table_name => 'AMS_METRICS_VL',
3243: -- p_pk_name => 'METRIC_ID',
3244: -- p_pk_value => l_metrics_rec.summary_metric_id
3245: -- ) = FND_API.G_TRUE
3246:
3247: -- Modified Code
3248: --
3249: -- Check that the metric is not used by another metric as
3255: -- p_table_name => 'AMS_METRICS_VL',
3256: -- p_pk_name => 'SUMMARY_METRIC_ID',
3257: -- p_pk_value => l_metric_id,
3258: -- p_pk_data_type => AMS_Utility_PVT.G_NUMBER
3259: -- ) = FND_API.G_TRUE
3260: -- End of the changes made by PTENDULK on 08/19/1999
3261: -- THEN
3262:
3263: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3264: -- THEN
3265: -- FND_MESSAGE.Set_Name('AMS', 'AMS_METR_CHILD_EXIST');
3266: -- FND_MSG_PUB.Add;
3267: -- END IF;
3268: -- x_return_status := FND_API.G_RET_STS_ERROR;
3269: -- RETURN;
3270: -- END IF;
3271: -- end of change 07/17/2000 khung
3272: EXCEPTION
3270: -- END IF;
3271: -- end of change 07/17/2000 khung
3272: EXCEPTION
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3275: RETURN ;
3276: END Validate_Metric_Child;
3277:
3278: --
3345: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3346: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3347: FND_MSG_PUB.ADD;
3348: END IF;
3349: RAISE FND_API.g_exc_error;
3350: END IF;
3351: CLOSE c_metric;
3352:
3353: IF p_metric_rec.application_id = FND_API.G_MISS_NUM THEN
3349: RAISE FND_API.g_exc_error;
3350: END IF;
3351: CLOSE c_metric;
3352:
3353: IF p_metric_rec.application_id = FND_API.G_MISS_NUM THEN
3354: x_complete_rec.application_id := x_old_metric_rec.application_id;
3355: END IF;
3356:
3357: IF p_metric_rec.arc_metric_used_for_object = FND_API.G_MISS_CHAR THEN
3353: IF p_metric_rec.application_id = FND_API.G_MISS_NUM THEN
3354: x_complete_rec.application_id := x_old_metric_rec.application_id;
3355: END IF;
3356:
3357: IF p_metric_rec.arc_metric_used_for_object = FND_API.G_MISS_CHAR THEN
3358: x_complete_rec.arc_metric_used_for_object := x_old_metric_rec.arc_metric_used_for_object;
3359: END IF;
3360:
3361: IF p_metric_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
3357: IF p_metric_rec.arc_metric_used_for_object = FND_API.G_MISS_CHAR THEN
3358: x_complete_rec.arc_metric_used_for_object := x_old_metric_rec.arc_metric_used_for_object;
3359: END IF;
3360:
3361: IF p_metric_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
3362: x_complete_rec.metric_calculation_type := x_old_metric_rec.metric_calculation_type ;
3363: END IF;
3364:
3365: IF p_metric_rec.metric_category = FND_API.G_MISS_NUM THEN
3361: IF p_metric_rec.metric_calculation_type = FND_API.G_MISS_CHAR THEN
3362: x_complete_rec.metric_calculation_type := x_old_metric_rec.metric_calculation_type ;
3363: END IF;
3364:
3365: IF p_metric_rec.metric_category = FND_API.G_MISS_NUM THEN
3366: x_complete_rec.metric_category := x_old_metric_rec.metric_category ;
3367: END IF;
3368:
3369: IF p_metric_rec.accrual_type = FND_API.G_MISS_CHAR THEN
3365: IF p_metric_rec.metric_category = FND_API.G_MISS_NUM THEN
3366: x_complete_rec.metric_category := x_old_metric_rec.metric_category ;
3367: END IF;
3368:
3369: IF p_metric_rec.accrual_type = FND_API.G_MISS_CHAR THEN
3370: x_complete_rec.accrual_type := x_old_metric_rec.accrual_type ;
3371: END IF;
3372:
3373: IF p_metric_rec.value_type = FND_API.G_MISS_CHAR THEN
3369: IF p_metric_rec.accrual_type = FND_API.G_MISS_CHAR THEN
3370: x_complete_rec.accrual_type := x_old_metric_rec.accrual_type ;
3371: END IF;
3372:
3373: IF p_metric_rec.value_type = FND_API.G_MISS_CHAR THEN
3374: x_complete_rec.value_type := x_old_metric_rec.value_type ;
3375: END IF;
3376:
3377: IF p_metric_rec.sensitive_data_flag = FND_API.G_MISS_CHAR THEN
3373: IF p_metric_rec.value_type = FND_API.G_MISS_CHAR THEN
3374: x_complete_rec.value_type := x_old_metric_rec.value_type ;
3375: END IF;
3376:
3377: IF p_metric_rec.sensitive_data_flag = FND_API.G_MISS_CHAR THEN
3378: x_complete_rec.sensitive_data_flag := x_old_metric_rec.sensitive_data_flag;
3379: END IF;
3380:
3381: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3377: IF p_metric_rec.sensitive_data_flag = FND_API.G_MISS_CHAR THEN
3378: x_complete_rec.sensitive_data_flag := x_old_metric_rec.sensitive_data_flag;
3379: END IF;
3380:
3381: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3382: x_complete_rec.enabled_flag := x_old_metric_rec.enabled_flag ;
3383: END IF;
3384:
3385: IF p_metric_rec.metric_sub_category = FND_API.G_MISS_NUM THEN
3381: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3382: x_complete_rec.enabled_flag := x_old_metric_rec.enabled_flag ;
3383: END IF;
3384:
3385: IF p_metric_rec.metric_sub_category = FND_API.G_MISS_NUM THEN
3386: x_complete_rec.metric_sub_category := x_old_metric_rec.metric_sub_category ;
3387: END IF;
3388:
3389: IF p_metric_rec.function_name = FND_API.G_MISS_CHAR THEN
3385: IF p_metric_rec.metric_sub_category = FND_API.G_MISS_NUM THEN
3386: x_complete_rec.metric_sub_category := x_old_metric_rec.metric_sub_category ;
3387: END IF;
3388:
3389: IF p_metric_rec.function_name = FND_API.G_MISS_CHAR THEN
3390: x_complete_rec.function_name := x_old_metric_rec.function_name ;
3391: END IF;
3392:
3393: IF p_metric_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
3389: IF p_metric_rec.function_name = FND_API.G_MISS_CHAR THEN
3390: x_complete_rec.function_name := x_old_metric_rec.function_name ;
3391: END IF;
3392:
3393: IF p_metric_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
3394: x_complete_rec.metric_parent_id := x_old_metric_rec.metric_parent_id ;
3395: END IF;
3396:
3397: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3393: IF p_metric_rec.metric_parent_id = FND_API.G_MISS_NUM THEN
3394: x_complete_rec.metric_parent_id := x_old_metric_rec.metric_parent_id ;
3395: END IF;
3396:
3397: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3398: x_complete_rec.enabled_flag := x_old_metric_rec.enabled_flag ;
3399: END IF;
3400:
3401: IF p_metric_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
3397: IF p_metric_rec.enabled_flag = FND_API.G_MISS_CHAR THEN
3398: x_complete_rec.enabled_flag := x_old_metric_rec.enabled_flag ;
3399: END IF;
3400:
3401: IF p_metric_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
3402: x_complete_rec.summary_metric_id := x_old_metric_rec.summary_metric_id ;
3403: END IF;
3404:
3405: IF p_metric_rec.compute_using_function = FND_API.G_MISS_CHAR THEN
3401: IF p_metric_rec.summary_metric_id = FND_API.G_MISS_NUM THEN
3402: x_complete_rec.summary_metric_id := x_old_metric_rec.summary_metric_id ;
3403: END IF;
3404:
3405: IF p_metric_rec.compute_using_function = FND_API.G_MISS_CHAR THEN
3406: x_complete_rec.compute_using_function := x_old_metric_rec.compute_using_function ;
3407: END IF;
3408:
3409: IF p_metric_rec.default_uom_code = FND_API.G_MISS_CHAR THEN
3405: IF p_metric_rec.compute_using_function = FND_API.G_MISS_CHAR THEN
3406: x_complete_rec.compute_using_function := x_old_metric_rec.compute_using_function ;
3407: END IF;
3408:
3409: IF p_metric_rec.default_uom_code = FND_API.G_MISS_CHAR THEN
3410: x_complete_rec.default_uom_code := x_old_metric_rec.default_uom_code ;
3411: END IF;
3412:
3413: IF p_metric_rec.uom_type = FND_API.G_MISS_CHAR THEN
3409: IF p_metric_rec.default_uom_code = FND_API.G_MISS_CHAR THEN
3410: x_complete_rec.default_uom_code := x_old_metric_rec.default_uom_code ;
3411: END IF;
3412:
3413: IF p_metric_rec.uom_type = FND_API.G_MISS_CHAR THEN
3414: x_complete_rec.uom_type := x_old_metric_rec.uom_type ;
3415: END IF;
3416:
3417: IF p_metric_rec.formula = FND_API.G_MISS_CHAR THEN
3413: IF p_metric_rec.uom_type = FND_API.G_MISS_CHAR THEN
3414: x_complete_rec.uom_type := x_old_metric_rec.uom_type ;
3415: END IF;
3416:
3417: IF p_metric_rec.formula = FND_API.G_MISS_CHAR THEN
3418: x_complete_rec.formula := x_old_metric_rec.formula ;
3419: END IF;
3420:
3421: IF p_metric_rec.metrics_name = FND_API.G_MISS_CHAR THEN
3417: IF p_metric_rec.formula = FND_API.G_MISS_CHAR THEN
3418: x_complete_rec.formula := x_old_metric_rec.formula ;
3419: END IF;
3420:
3421: IF p_metric_rec.metrics_name = FND_API.G_MISS_CHAR THEN
3422: x_complete_rec.metrics_name := x_old_metric_rec.metrics_name ;
3423: END IF;
3424:
3425: IF p_metric_rec.description = FND_API.G_MISS_CHAR THEN
3421: IF p_metric_rec.metrics_name = FND_API.G_MISS_CHAR THEN
3422: x_complete_rec.metrics_name := x_old_metric_rec.metrics_name ;
3423: END IF;
3424:
3425: IF p_metric_rec.description = FND_API.G_MISS_CHAR THEN
3426: x_complete_rec.description := x_old_metric_rec.description;
3427: END IF;
3428:
3429: IF p_metric_rec.formula_display = FND_API.G_MISS_CHAR THEN
3425: IF p_metric_rec.description = FND_API.G_MISS_CHAR THEN
3426: x_complete_rec.description := x_old_metric_rec.description;
3427: END IF;
3428:
3429: IF p_metric_rec.formula_display = FND_API.G_MISS_CHAR THEN
3430: x_complete_rec.formula_display := x_old_metric_rec.formula_display;
3431: END IF;
3432:
3433: -- 17-Apr-2000 tdonohoe@us added.
3430: x_complete_rec.formula_display := x_old_metric_rec.formula_display;
3431: END IF;
3432:
3433: -- 17-Apr-2000 tdonohoe@us added.
3434: IF p_metric_rec.hierarchy_id = FND_API.G_MISS_NUM THEN
3435: x_complete_rec.hierarchy_id := x_old_metric_rec.hierarchy_id;
3436: END IF;
3437:
3438: -- 17-Apr-2000 tdonohoe@us added.
3435: x_complete_rec.hierarchy_id := x_old_metric_rec.hierarchy_id;
3436: END IF;
3437:
3438: -- 17-Apr-2000 tdonohoe@us added.
3439: IF p_metric_rec.set_function_name = FND_API.G_MISS_CHAR THEN
3440: x_complete_rec.set_function_name := x_old_metric_rec.set_function_name;
3441: END IF;
3442:
3443: if p_metric_rec.display_type = FND_API.G_MISS_CHAR then
3439: IF p_metric_rec.set_function_name = FND_API.G_MISS_CHAR THEN
3440: x_complete_rec.set_function_name := x_old_metric_rec.set_function_name;
3441: END IF;
3442:
3443: if p_metric_rec.display_type = FND_API.G_MISS_CHAR then
3444: x_complete_rec.display_type := x_old_metric_rec.display_type;
3445: end if;
3446:
3447: if p_metric_rec.target_type = FND_API.G_MISS_CHAR then
3443: if p_metric_rec.display_type = FND_API.G_MISS_CHAR then
3444: x_complete_rec.display_type := x_old_metric_rec.display_type;
3445: end if;
3446:
3447: if p_metric_rec.target_type = FND_API.G_MISS_CHAR then
3448: x_complete_rec.target_type := x_old_metric_rec.target_type;
3449: end if;
3450:
3451: if p_metric_rec.denorm_code = FND_API.G_MISS_CHAR then
3447: if p_metric_rec.target_type = FND_API.G_MISS_CHAR then
3448: x_complete_rec.target_type := x_old_metric_rec.target_type;
3449: end if;
3450:
3451: if p_metric_rec.denorm_code = FND_API.G_MISS_CHAR then
3452: x_complete_rec.denorm_code := x_old_metric_rec.denorm_code;
3453: end if;
3454:
3455: x_seeded_ok := TRUE;
3461: x_old_metric_rec.metric_category <> x_complete_rec.metric_category OR
3462: x_old_metric_rec.accrual_type <> x_complete_rec.accrual_type OR
3463: x_old_metric_rec.value_type <> x_complete_rec.value_type OR
3464: x_old_metric_rec.sensitive_data_flag <> x_complete_rec.sensitive_data_flag OR
3465: NVL(x_old_metric_rec.metric_sub_category,FND_API.G_MISS_NUM) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3462: x_old_metric_rec.accrual_type <> x_complete_rec.accrual_type OR
3463: x_old_metric_rec.value_type <> x_complete_rec.value_type OR
3464: x_old_metric_rec.sensitive_data_flag <> x_complete_rec.sensitive_data_flag OR
3465: NVL(x_old_metric_rec.metric_sub_category,FND_API.G_MISS_NUM) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3463: x_old_metric_rec.value_type <> x_complete_rec.value_type OR
3464: x_old_metric_rec.sensitive_data_flag <> x_complete_rec.sensitive_data_flag OR
3465: NVL(x_old_metric_rec.metric_sub_category,FND_API.G_MISS_NUM) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3464: x_old_metric_rec.sensitive_data_flag <> x_complete_rec.sensitive_data_flag OR
3465: NVL(x_old_metric_rec.metric_sub_category,FND_API.G_MISS_NUM) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3465: NVL(x_old_metric_rec.metric_sub_category,FND_API.G_MISS_NUM) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3466: NVL(x_complete_rec.metric_sub_category,FND_API.G_MISS_NUM) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3467: NVL(x_old_metric_rec.function_name,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3468: NVL(x_complete_rec.function_name,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3469: NVL(x_old_metric_rec.metric_parent_id,FND_API.G_MISS_NUM) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3470: NVL(x_complete_rec.metric_parent_id,FND_API.G_MISS_NUM) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3471: NVL(x_old_metric_rec.summary_metric_id,FND_API.G_MISS_NUM) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3472: NVL(x_complete_rec.summary_metric_id,FND_API.G_MISS_NUM) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3473: NVL(x_old_metric_rec.compute_using_function,FND_API.G_MISS_CHAR) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3474: NVL(x_complete_rec.compute_using_function,FND_API.G_MISS_CHAR) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3475: NVL(x_old_metric_rec.default_uom_code,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3476: NVL(x_complete_rec.default_uom_code,FND_API.G_MISS_CHAR) OR
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3484: NVL(x_complete_rec.set_function_name,FND_API.G_MISS_CHAR) THEN
3477: NVL(x_old_metric_rec.uom_type,FND_API.G_MISS_CHAR) <>
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3484: NVL(x_complete_rec.set_function_name,FND_API.G_MISS_CHAR) THEN
3485: x_seeded_ok := FALSE;
3478: NVL(x_complete_rec.uom_type,FND_API.G_MISS_CHAR) OR
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3484: NVL(x_complete_rec.set_function_name,FND_API.G_MISS_CHAR) THEN
3485: x_seeded_ok := FALSE;
3486: END IF;
3479: NVL(x_old_metric_rec.formula,FND_API.G_MISS_CHAR) <>
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3484: NVL(x_complete_rec.set_function_name,FND_API.G_MISS_CHAR) THEN
3485: x_seeded_ok := FALSE;
3486: END IF;
3487: END Complete_Metric_Rec ;
3480: NVL(x_complete_rec.formula,FND_API.G_MISS_CHAR) OR
3481: NVL(x_old_metric_rec.hierarchy_id,FND_API.G_MISS_NUM) <>
3482: NVL(x_complete_rec.hierarchy_id,FND_API.G_MISS_NUM) OR
3483: NVL(x_old_metric_rec.set_function_name,FND_API.G_MISS_CHAR) <>
3484: NVL(x_complete_rec.set_function_name,FND_API.G_MISS_CHAR) THEN
3485: x_seeded_ok := FALSE;
3486: END IF;
3487: END Complete_Metric_Rec ;
3488:
3561:
3562: BEGIN
3563:
3564: x_func_type := NULL;
3565: x_return_status := FND_API.G_RET_STS_SUCCESS;
3566:
3567: l_parse_string := 'DECLARE l_num_value NUMBER; Begin l_num_value := '||
3568: p_func_name || '(10000); end;';
3569:
3592: IF x_func_type is null THEN
3593:
3594: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_INVALID_DETAILS');
3595: FND_MSG_PUB.ADD;
3596: x_return_status := FND_API.G_RET_STS_ERROR;
3597:
3598: END IF;
3599:
3600: END Validate_Metric_Program;