[Home] [Help]
42: OZF_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
43: OZF_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
44:
45: PROCEDURE Default_ActMetricFact(
46: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
47: p_act_metric_fact_rec IN act_metric_fact_rec_type,
48: p_validation_mode IN VARCHAR2 ,
49: x_complete_rec OUT NOCOPY act_metric_fact_rec_type,
50: x_return_status OUT NOCOPY VARCHAR2,
56: BEGIN
57: --
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: --
60: IF FND_API.To_Boolean (p_init_msg_list) THEN
61: FND_MSG_PUB.Initialize;
62: END IF;
63:
64: --
63:
64: --
65: -- Initialize API return status to success.
66: --
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: x_complete_rec := p_act_metric_fact_rec;
70:
71: -- Insert Mode
140: -- End of comments
141:
142: PROCEDURE Create_ActMetricFact (
143: p_api_version IN NUMBER,
144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
145: p_commit IN VARCHAR2 := FND_API.G_FALSE,
146: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
147:
148: x_return_status OUT NOCOPY VARCHAR2,
141:
142: PROCEDURE Create_ActMetricFact (
143: p_api_version IN NUMBER,
144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
145: p_commit IN VARCHAR2 := FND_API.G_FALSE,
146: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
147:
148: x_return_status OUT NOCOPY VARCHAR2,
149: x_msg_count OUT NOCOPY NUMBER,
142: PROCEDURE Create_ActMetricFact (
143: p_api_version IN NUMBER,
144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
145: p_commit IN VARCHAR2 := FND_API.G_FALSE,
146: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
147:
148: x_return_status OUT NOCOPY VARCHAR2,
149: x_msg_count OUT NOCOPY NUMBER,
150: x_msg_data OUT NOCOPY VARCHAR2,
193:
194: --
195: -- Initialize message list if p_init_msg_list is set to TRUE.
196: --
197: IF FND_API.To_Boolean (p_init_msg_list) THEN
198: FND_MSG_PUB.Initialize;
199: END IF;
200:
201: --
200:
201: --
202: -- Standard check for API version compatibility.
203: --
204: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
205: p_api_version,
206: L_API_NAME,
207: G_PKG_NAME)
208: THEN
205: p_api_version,
206: L_API_NAME,
207: G_PKG_NAME)
208: THEN
209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
210: END IF;
211:
212: --
213: -- Initialize API return status to success.
211:
212: --
213: -- Initialize API return status to success.
214: --
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216:
217: --
218: -- Begin API Body.
219: --
229: x_msg_count => x_msg_count,
230: x_msg_data => x_msg_data ) ;
231:
232: -- If any errors happen abort API.
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: END IF;
230: x_msg_data => x_msg_data ) ;
231:
232: -- If any errors happen abort API.
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: END IF;
238:
231:
232: -- If any errors happen abort API.
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: END IF;
238:
239:
232: -- If any errors happen abort API.
233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: END IF;
238:
239:
240:
273: p_act_metric_fact_rec => l_act_metric_fact_rec
274: );
275:
276: -- If any errors happen abort API.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
274: );
275:
276: -- If any errors happen abort API.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
275:
276: -- If any errors happen abort API.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283:
276: -- If any errors happen abort API.
277: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
278: RAISE FND_API.G_EXC_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283:
284:
519: /* 08/12/2005 mkothari: add ends */
520: );
521:
522: -- If any errors happen abort API.
523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
524: RAISE FND_API.G_EXC_ERROR;
525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
520: );
521:
522: -- If any errors happen abort API.
523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
524: RAISE FND_API.G_EXC_ERROR;
525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
528:
521:
522: -- If any errors happen abort API.
523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
524: RAISE FND_API.G_EXC_ERROR;
525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
528:
529:
522: -- If any errors happen abort API.
523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
524: RAISE FND_API.G_EXC_ERROR;
525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
528:
529:
530:
542:
543: --
544: -- Standard check for commit request.
545: --
546: IF FND_API.To_Boolean (p_commit) THEN
547: COMMIT WORK;
548: END IF;
549:
550: --
553: --
554: FND_MSG_PUB.Count_And_Get (
555: p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => FND_API.G_FALSE
558: );
559:
560: --
561: -- Add success message to message list.
568:
569:
570:
571: EXCEPTION
572: WHEN FND_API.G_EXC_ERROR THEN
573:
574:
575: ROLLBACK TO Create_ActMetricFact_Pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
572: WHEN FND_API.G_EXC_ERROR THEN
573:
574:
575: ROLLBACK TO Create_ActMetricFact_Pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get (
578: p_count => x_msg_count,
579: p_data => x_msg_data
580: );
577: FND_MSG_PUB.Count_And_Get (
578: p_count => x_msg_count,
579: p_data => x_msg_data
580: );
581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
582:
583:
584:
585: ROLLBACK TO Create_ActMetricFact_Pvt;
582:
583:
584:
585: ROLLBACK TO Create_ActMetricFact_Pvt;
586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
587: FND_MSG_PUB.Count_And_Get (
588: p_count => x_msg_count,
589: p_data => x_msg_data
590: );
591: WHEN OTHERS THEN
592:
593:
594: ROLLBACK TO Create_ActMetricFact_Pvt;
595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
596: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
597: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
598: END IF;
599: FND_MSG_PUB.Count_And_Get (
619: -- End of comments
620:
621: PROCEDURE Update_ActMetricFact (
622: p_api_version IN NUMBER,
623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
625: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
626:
627: x_return_status OUT NOCOPY VARCHAR2,
620:
621: PROCEDURE Update_ActMetricFact (
622: p_api_version IN NUMBER,
623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
625: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
626:
627: x_return_status OUT NOCOPY VARCHAR2,
628: x_msg_count OUT NOCOPY NUMBER,
621: PROCEDURE Update_ActMetricFact (
622: p_api_version IN NUMBER,
623: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
624: p_commit IN VARCHAR2 := FND_API.G_FALSE,
625: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
626:
627: x_return_status OUT NOCOPY VARCHAR2,
628: x_msg_count OUT NOCOPY NUMBER,
629: x_msg_data OUT NOCOPY VARCHAR2,
656:
657: --
658: -- Initialize message list if p_init_msg_list is set to TRUE.
659: --
660: IF FND_API.To_Boolean (p_init_msg_list) THEN
661: FND_MSG_PUB.Initialize;
662: END IF;
663:
664: --
663:
664: --
665: -- Standard check for API version compatibility.
666: --
667: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
668: p_api_version,
669: L_API_NAME,
670: G_PKG_NAME)
671: THEN
668: p_api_version,
669: L_API_NAME,
670: G_PKG_NAME)
671: THEN
672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
673: END IF;
674:
675: --
676: -- Initialize API return status to success.
674:
675: --
676: -- Initialize API return status to success.
677: --
678: x_return_status := FND_API.G_RET_STS_SUCCESS;
679:
680: --
681: -- Begin API Body
682: --
692: x_msg_count => x_msg_count,
693: x_msg_data => x_msg_data ) ;
694: -- dbms_output.put_line(l_full_name || ' default_actmetricfact returns ' || l_return_status);
695: -- If any errors happen abort API.
696: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
697: RAISE FND_API.G_EXC_ERROR;
698: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
693: x_msg_data => x_msg_data ) ;
694: -- dbms_output.put_line(l_full_name || ' default_actmetricfact returns ' || l_return_status);
695: -- If any errors happen abort API.
696: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
697: RAISE FND_API.G_EXC_ERROR;
698: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
694: -- dbms_output.put_line(l_full_name || ' default_actmetricfact returns ' || l_return_status);
695: -- If any errors happen abort API.
696: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
697: RAISE FND_API.G_EXC_ERROR;
698: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702:
695: -- If any errors happen abort API.
696: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
697: RAISE FND_API.G_EXC_ERROR;
698: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702:
703: IF (OZF_DEBUG_HIGH_ON) THEN
729: p_validation_mode => JTF_PLSQL_API.g_update,
730: x_return_status => l_return_status
731: );
732: -- dbms_output.put_line(l_full_name || ' validate_items returns ' || l_return_status);
733: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
734: RAISE FND_API.g_exc_unexpected_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
736: RAISE FND_API.g_exc_error;
737: END IF;
730: x_return_status => l_return_status
731: );
732: -- dbms_output.put_line(l_full_name || ' validate_items returns ' || l_return_status);
733: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
734: RAISE FND_API.g_exc_unexpected_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
736: RAISE FND_API.g_exc_error;
737: END IF;
738: END IF;
731: );
732: -- dbms_output.put_line(l_full_name || ' validate_items returns ' || l_return_status);
733: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
734: RAISE FND_API.g_exc_unexpected_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
736: RAISE FND_API.g_exc_error;
737: END IF;
738: END IF;
739:
732: -- dbms_output.put_line(l_full_name || ' validate_items returns ' || l_return_status);
733: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
734: RAISE FND_API.g_exc_unexpected_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
736: RAISE FND_API.g_exc_error;
737: END IF;
738: END IF;
739:
740:
743: p_act_metric_fact_rec => p_act_metric_fact_rec,
744: p_complete_fact_rec => l_act_metric_fact_rec,
745: x_return_status => l_return_status
746: );
747: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
750: RAISE FND_API.g_exc_error;
751: END IF;
744: p_complete_fact_rec => l_act_metric_fact_rec,
745: x_return_status => l_return_status
746: );
747: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
750: RAISE FND_API.g_exc_error;
751: END IF;
752:
745: x_return_status => l_return_status
746: );
747: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
750: RAISE FND_API.g_exc_error;
751: END IF;
752:
753: END IF;
746: );
747: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
748: RAISE FND_API.g_exc_unexpected_error;
749: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
750: RAISE FND_API.g_exc_error;
751: END IF;
752:
753: END IF;
754:
883: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
884: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
885: FND_MSG_PUB.add;
886: END IF;
887: RAISE FND_API.g_exc_error;
888: END IF;
889:
890:
891: --
891: --
892: -- End API Body
893: --
894:
895: IF FND_API.to_boolean(p_commit) THEN
896: COMMIT;
897: END IF;
898:
899: --
902: --
903: FND_MSG_PUB.Count_And_Get (
904: p_count => x_msg_count,
905: p_data => x_msg_data,
906: p_encoded => FND_API.G_FALSE
907: );
908:
909: --
910: -- Debug message.
915: END IF;
916:
917:
918: EXCEPTION
919: WHEN FND_API.G_EXC_ERROR THEN
920:
921:
922:
923: ROLLBACK TO Update_ActMetricFact_pvt;
920:
921:
922:
923: ROLLBACK TO Update_ActMetricFact_pvt;
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: FND_MSG_PUB.Count_And_Get (
926: p_count => x_msg_count,
927: p_data => x_msg_data
928: );
925: FND_MSG_PUB.Count_And_Get (
926: p_count => x_msg_count,
927: p_data => x_msg_data
928: );
929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
930:
931:
932:
933: ROLLBACK TO Update_ActMetricFact_pvt;
930:
931:
932:
933: ROLLBACK TO Update_ActMetricFact_pvt;
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935: FND_MSG_PUB.Count_And_Get (
936: p_count => x_msg_count,
937: p_data => x_msg_data
938: );
940:
941:
942:
943: ROLLBACK TO Update_ActMetricFact_pvt;
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
946: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
947: END IF;
948: FND_MSG_PUB.Count_And_Get (
986: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
987: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
988: FND_MSG_PUB.add;
989: END IF;
990: RAISE FND_API.g_exc_error;
991: END IF;
992: CLOSE c_act_metric_fact;
993:
994:
991: END IF;
992: CLOSE c_act_metric_fact;
993:
994:
995: IF p_act_metric_fact_rec.activity_metric_fact_id = FND_API.G_MISS_NUM THEN
996: x_complete_fact_rec.activity_metric_fact_id := NULL;
997: END IF;
998: IF p_act_metric_fact_rec.activity_metric_fact_id IS NULL THEN
999: x_complete_fact_rec.activity_metric_fact_id := l_act_metric_fact_rec.activity_metric_fact_id;
998: IF p_act_metric_fact_rec.activity_metric_fact_id IS NULL THEN
999: x_complete_fact_rec.activity_metric_fact_id := l_act_metric_fact_rec.activity_metric_fact_id;
1000: END IF;
1001:
1002: IF p_act_metric_fact_rec.act_metric_used_by_id = FND_API.G_MISS_NUM THEN
1003: x_complete_fact_rec.act_metric_used_by_id := NULL;
1004: END IF;
1005: IF p_act_metric_fact_rec.act_metric_used_by_id IS NULL THEN
1006: x_complete_fact_rec.act_metric_used_by_id := l_act_metric_fact_rec.act_metric_used_by_id;
1005: IF p_act_metric_fact_rec.act_metric_used_by_id IS NULL THEN
1006: x_complete_fact_rec.act_metric_used_by_id := l_act_metric_fact_rec.act_metric_used_by_id;
1007: END IF;
1008:
1009: IF p_act_metric_fact_rec.arc_act_metric_used_by = FND_API.G_MISS_CHAR THEN
1010: x_complete_fact_rec.arc_act_metric_used_by := NULL;
1011: END IF;
1012: IF p_act_metric_fact_rec.arc_act_metric_used_by IS NULL THEN
1013: x_complete_fact_rec.arc_act_metric_used_by := l_act_metric_fact_rec.arc_act_metric_used_by;
1012: IF p_act_metric_fact_rec.arc_act_metric_used_by IS NULL THEN
1013: x_complete_fact_rec.arc_act_metric_used_by := l_act_metric_fact_rec.arc_act_metric_used_by;
1014: END IF;
1015:
1016: IF p_act_metric_fact_rec.value_type = FND_API.G_MISS_CHAR THEN
1017: x_complete_fact_rec.value_type := NULL;
1018: END IF;
1019: IF p_act_metric_fact_rec.value_type IS NULL THEN
1020: x_complete_fact_rec.value_type := l_act_metric_fact_rec.value_type;
1019: IF p_act_metric_fact_rec.value_type IS NULL THEN
1020: x_complete_fact_rec.value_type := l_act_metric_fact_rec.value_type;
1021: END IF;
1022:
1023: IF p_act_metric_fact_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
1024: x_complete_fact_rec.activity_metric_id := NULL;
1025: END IF;
1026: IF p_act_metric_fact_rec.activity_metric_id IS NULL THEN
1027: x_complete_fact_rec.activity_metric_id := l_act_metric_fact_rec.activity_metric_id;
1026: IF p_act_metric_fact_rec.activity_metric_id IS NULL THEN
1027: x_complete_fact_rec.activity_metric_id := l_act_metric_fact_rec.activity_metric_id;
1028: END IF;
1029:
1030: IF p_act_metric_fact_rec.activity_geo_area_id = FND_API.G_MISS_NUM THEN
1031: x_complete_fact_rec.activity_geo_area_id := NULL;
1032: END IF;
1033: IF p_act_metric_fact_rec.activity_geo_area_id IS NULL THEN
1034: x_complete_fact_rec.activity_geo_area_id := l_act_metric_fact_rec.activity_geo_area_id;
1033: IF p_act_metric_fact_rec.activity_geo_area_id IS NULL THEN
1034: x_complete_fact_rec.activity_geo_area_id := l_act_metric_fact_rec.activity_geo_area_id;
1035: END IF;
1036:
1037: IF p_act_metric_fact_rec.activity_product_id = FND_API.G_MISS_NUM THEN
1038: x_complete_fact_rec.activity_product_id := NULL;
1039: END IF;
1040: IF p_act_metric_fact_rec.activity_product_id IS NULL THEN
1041: x_complete_fact_rec.activity_product_id := l_act_metric_fact_rec.activity_product_id;
1040: IF p_act_metric_fact_rec.activity_product_id IS NULL THEN
1041: x_complete_fact_rec.activity_product_id := l_act_metric_fact_rec.activity_product_id;
1042: END IF;
1043:
1044: IF p_act_metric_fact_rec.transaction_currency_code = FND_API.G_MISS_CHAR THEN
1045: x_complete_fact_rec.transaction_currency_code := NULL;
1046: END IF;
1047: IF p_act_metric_fact_rec.transaction_currency_code IS NULL THEN
1048: x_complete_fact_rec.transaction_currency_code := l_act_metric_fact_rec.transaction_currency_code;
1047: IF p_act_metric_fact_rec.transaction_currency_code IS NULL THEN
1048: x_complete_fact_rec.transaction_currency_code := l_act_metric_fact_rec.transaction_currency_code;
1049: END IF;
1050:
1051: IF p_act_metric_fact_rec.trans_forecasted_value = FND_API.G_MISS_NUM THEN
1052: x_complete_fact_rec.trans_forecasted_value := NULL;
1053: END IF;
1054: IF p_act_metric_fact_rec.trans_forecasted_value IS NULL THEN
1055: x_complete_fact_rec.trans_forecasted_value := l_act_metric_fact_rec.trans_forecasted_value;
1054: IF p_act_metric_fact_rec.trans_forecasted_value IS NULL THEN
1055: x_complete_fact_rec.trans_forecasted_value := l_act_metric_fact_rec.trans_forecasted_value;
1056: END IF;
1057:
1058: IF p_act_metric_fact_rec.base_quantity = FND_API.G_MISS_NUM THEN
1059: x_complete_fact_rec.base_quantity := NULL;
1060: END IF;
1061: IF p_act_metric_fact_rec.base_quantity IS NULL THEN
1062: x_complete_fact_rec.base_quantity := l_act_metric_fact_rec.base_quantity;
1061: IF p_act_metric_fact_rec.base_quantity IS NULL THEN
1062: x_complete_fact_rec.base_quantity := l_act_metric_fact_rec.base_quantity;
1063: END IF;
1064:
1065: IF p_act_metric_fact_rec.functional_currency_code = FND_API.G_MISS_CHAR THEN
1066: x_complete_fact_rec.functional_currency_code := NULL;
1067: END IF;
1068: IF p_act_metric_fact_rec.functional_currency_code IS NULL THEN
1069: x_complete_fact_rec.functional_currency_code := l_act_metric_fact_rec.functional_currency_code;
1068: IF p_act_metric_fact_rec.functional_currency_code IS NULL THEN
1069: x_complete_fact_rec.functional_currency_code := l_act_metric_fact_rec.functional_currency_code;
1070: END IF;
1071:
1072: IF p_act_metric_fact_rec.func_forecasted_value = FND_API.G_MISS_NUM THEN
1073: x_complete_fact_rec.func_forecasted_value := NULL;
1074: END IF;
1075: IF p_act_metric_fact_rec.func_forecasted_value IS NULL THEN
1076: x_complete_fact_rec.func_forecasted_value := l_act_metric_fact_rec.func_forecasted_value;
1075: IF p_act_metric_fact_rec.func_forecasted_value IS NULL THEN
1076: x_complete_fact_rec.func_forecasted_value := l_act_metric_fact_rec.func_forecasted_value;
1077: END IF;
1078:
1079: IF p_act_metric_fact_rec.org_id = FND_API.G_MISS_NUM THEN
1080: x_complete_fact_rec.org_id := NULL;
1081: END IF;
1082: IF p_act_metric_fact_rec.org_id IS NULL THEN
1083: x_complete_fact_rec.org_id := l_act_metric_fact_rec.org_id;
1082: IF p_act_metric_fact_rec.org_id IS NULL THEN
1083: x_complete_fact_rec.org_id := l_act_metric_fact_rec.org_id;
1084: END IF;
1085:
1086: IF p_act_metric_fact_rec.de_metric_id = FND_API.G_MISS_NUM THEN
1087: x_complete_fact_rec.de_metric_id := NULL;
1088: END IF;
1089: IF p_act_metric_fact_rec.de_metric_id IS NULL THEN
1090: x_complete_fact_rec.de_metric_id := l_act_metric_fact_rec.de_metric_id;
1089: IF p_act_metric_fact_rec.de_metric_id IS NULL THEN
1090: x_complete_fact_rec.de_metric_id := l_act_metric_fact_rec.de_metric_id;
1091: END IF;
1092:
1093: IF p_act_metric_fact_rec.de_geographic_area_id = FND_API.G_MISS_NUM THEN
1094: x_complete_fact_rec.de_geographic_area_id := NULL;
1095: END IF;
1096: IF p_act_metric_fact_rec.de_geographic_area_id IS NULL THEN
1097: x_complete_fact_rec.de_geographic_area_id := l_act_metric_fact_rec.de_geographic_area_id;
1096: IF p_act_metric_fact_rec.de_geographic_area_id IS NULL THEN
1097: x_complete_fact_rec.de_geographic_area_id := l_act_metric_fact_rec.de_geographic_area_id;
1098: END IF;
1099:
1100: IF p_act_metric_fact_rec.de_geographic_area_type = FND_API.G_MISS_CHAR THEN
1101: x_complete_fact_rec.de_geographic_area_type := NULL;
1102: END IF;
1103: IF p_act_metric_fact_rec.de_geographic_area_type IS NULL THEN
1104: x_complete_fact_rec.de_geographic_area_type := l_act_metric_fact_rec.de_geographic_area_type;
1103: IF p_act_metric_fact_rec.de_geographic_area_type IS NULL THEN
1104: x_complete_fact_rec.de_geographic_area_type := l_act_metric_fact_rec.de_geographic_area_type;
1105: END IF;
1106:
1107: IF p_act_metric_fact_rec.de_inventory_item_id = FND_API.G_MISS_NUM THEN
1108: x_complete_fact_rec.de_inventory_item_id := NULL;
1109: END IF;
1110: IF p_act_metric_fact_rec.de_inventory_item_id IS NULL THEN
1111: x_complete_fact_rec.de_inventory_item_id := l_act_metric_fact_rec.de_inventory_item_id;
1110: IF p_act_metric_fact_rec.de_inventory_item_id IS NULL THEN
1111: x_complete_fact_rec.de_inventory_item_id := l_act_metric_fact_rec.de_inventory_item_id;
1112: END IF;
1113:
1114: IF p_act_metric_fact_rec.de_inventory_item_org_id = FND_API.G_MISS_NUM THEN
1115: x_complete_fact_rec.de_inventory_item_org_id := NULL;
1116: END IF;
1117: IF p_act_metric_fact_rec.de_inventory_item_org_id IS NULL THEN
1118: x_complete_fact_rec.de_inventory_item_org_id := l_act_metric_fact_rec.de_inventory_item_org_id;
1117: IF p_act_metric_fact_rec.de_inventory_item_org_id IS NULL THEN
1118: x_complete_fact_rec.de_inventory_item_org_id := l_act_metric_fact_rec.de_inventory_item_org_id;
1119: END IF;
1120:
1121: IF p_act_metric_fact_rec.time_id1 = FND_API.G_MISS_NUM THEN
1122: x_complete_fact_rec.time_id1 := NULL;
1123: END IF;
1124: IF p_act_metric_fact_rec.time_id1 IS NULL THEN
1125: x_complete_fact_rec.time_id1 := l_act_metric_fact_rec.time_id1;
1124: IF p_act_metric_fact_rec.time_id1 IS NULL THEN
1125: x_complete_fact_rec.time_id1 := l_act_metric_fact_rec.time_id1;
1126: END IF;
1127:
1128: IF p_act_metric_fact_rec.time_id2 = FND_API.G_MISS_NUM THEN
1129: x_complete_fact_rec.time_id2 := NULL;
1130: END IF;
1131: IF p_act_metric_fact_rec.time_id2 IS NULL THEN
1132: x_complete_fact_rec.time_id2 := l_act_metric_fact_rec.time_id2;
1131: IF p_act_metric_fact_rec.time_id2 IS NULL THEN
1132: x_complete_fact_rec.time_id2 := l_act_metric_fact_rec.time_id2;
1133: END IF;
1134:
1135: IF p_act_metric_fact_rec.time_id3 = FND_API.G_MISS_NUM THEN
1136: x_complete_fact_rec.time_id3 := NULL;
1137: END IF;
1138: IF p_act_metric_fact_rec.time_id3 IS NULL THEN
1139: x_complete_fact_rec.time_id3 := l_act_metric_fact_rec.time_id3;
1138: IF p_act_metric_fact_rec.time_id3 IS NULL THEN
1139: x_complete_fact_rec.time_id3 := l_act_metric_fact_rec.time_id3;
1140: END IF;
1141:
1142: IF p_act_metric_fact_rec.time_id4 = FND_API.G_MISS_NUM THEN
1143: x_complete_fact_rec.time_id4 := NULL;
1144: END IF;
1145: IF p_act_metric_fact_rec.time_id4 IS NULL THEN
1146: x_complete_fact_rec.time_id4 := l_act_metric_fact_rec.time_id4;
1145: IF p_act_metric_fact_rec.time_id4 IS NULL THEN
1146: x_complete_fact_rec.time_id4 := l_act_metric_fact_rec.time_id4;
1147: END IF;
1148:
1149: IF p_act_metric_fact_rec.time_id5 = FND_API.G_MISS_NUM THEN
1150: x_complete_fact_rec.time_id5 := NULL;
1151: END IF;
1152: IF p_act_metric_fact_rec.time_id5 IS NULL THEN
1153: x_complete_fact_rec.time_id5 := l_act_metric_fact_rec.time_id5;
1152: IF p_act_metric_fact_rec.time_id5 IS NULL THEN
1153: x_complete_fact_rec.time_id5 := l_act_metric_fact_rec.time_id5;
1154: END IF;
1155:
1156: IF p_act_metric_fact_rec.time_id6 = FND_API.G_MISS_NUM THEN
1157: x_complete_fact_rec.time_id6 := NULL;
1158: END IF;
1159: IF p_act_metric_fact_rec.time_id6 IS NULL THEN
1160: x_complete_fact_rec.time_id6 := l_act_metric_fact_rec.time_id6;
1159: IF p_act_metric_fact_rec.time_id6 IS NULL THEN
1160: x_complete_fact_rec.time_id6 := l_act_metric_fact_rec.time_id6;
1161: END IF;
1162:
1163: IF p_act_metric_fact_rec.time_id7 = FND_API.G_MISS_NUM THEN
1164: x_complete_fact_rec.time_id7 := NULL;
1165: END IF;
1166: IF p_act_metric_fact_rec.time_id7 IS NULL THEN
1167: x_complete_fact_rec.time_id7 := l_act_metric_fact_rec.time_id7;
1166: IF p_act_metric_fact_rec.time_id7 IS NULL THEN
1167: x_complete_fact_rec.time_id7 := l_act_metric_fact_rec.time_id7;
1168: END IF;
1169:
1170: IF p_act_metric_fact_rec.time_id8 = FND_API.G_MISS_NUM THEN
1171: x_complete_fact_rec.time_id8 := NULL;
1172: END IF;
1173: IF p_act_metric_fact_rec.time_id8 IS NULL THEN
1174: x_complete_fact_rec.time_id8 := l_act_metric_fact_rec.time_id8;
1173: IF p_act_metric_fact_rec.time_id8 IS NULL THEN
1174: x_complete_fact_rec.time_id8 := l_act_metric_fact_rec.time_id8;
1175: END IF;
1176:
1177: IF p_act_metric_fact_rec.time_id9 = FND_API.G_MISS_NUM THEN
1178: x_complete_fact_rec.time_id9 := NULL;
1179: END IF;
1180: IF p_act_metric_fact_rec.time_id9 IS NULL THEN
1181: x_complete_fact_rec.time_id9 := l_act_metric_fact_rec.time_id9;
1180: IF p_act_metric_fact_rec.time_id9 IS NULL THEN
1181: x_complete_fact_rec.time_id9 := l_act_metric_fact_rec.time_id9;
1182: END IF;
1183:
1184: IF p_act_metric_fact_rec.time_id10 = FND_API.G_MISS_NUM THEN
1185: x_complete_fact_rec.time_id10 := NULL;
1186: END IF;
1187: IF p_act_metric_fact_rec.time_id10 IS NULL THEN
1188: x_complete_fact_rec.time_id10 := l_act_metric_fact_rec.time_id10;
1187: IF p_act_metric_fact_rec.time_id10 IS NULL THEN
1188: x_complete_fact_rec.time_id10 := l_act_metric_fact_rec.time_id10;
1189: END IF;
1190:
1191: IF p_act_metric_fact_rec.time_id11 = FND_API.G_MISS_NUM THEN
1192: x_complete_fact_rec.time_id11 := NULL;
1193: END IF;
1194: IF p_act_metric_fact_rec.time_id11 IS NULL THEN
1195: x_complete_fact_rec.time_id11 := l_act_metric_fact_rec.time_id11;
1194: IF p_act_metric_fact_rec.time_id11 IS NULL THEN
1195: x_complete_fact_rec.time_id11 := l_act_metric_fact_rec.time_id11;
1196: END IF;
1197:
1198: IF p_act_metric_fact_rec.time_id12 = FND_API.G_MISS_NUM THEN
1199: x_complete_fact_rec.time_id12 := NULL;
1200: END IF;
1201: IF p_act_metric_fact_rec.time_id12 IS NULL THEN
1202: x_complete_fact_rec.time_id12 := l_act_metric_fact_rec.time_id12;
1201: IF p_act_metric_fact_rec.time_id12 IS NULL THEN
1202: x_complete_fact_rec.time_id12 := l_act_metric_fact_rec.time_id12;
1203: END IF;
1204:
1205: IF p_act_metric_fact_rec.time_id13 = FND_API.G_MISS_NUM THEN
1206: x_complete_fact_rec.time_id13 := NULL;
1207: END IF;
1208: IF p_act_metric_fact_rec.time_id13 IS NULL THEN
1209: x_complete_fact_rec.time_id13 := l_act_metric_fact_rec.time_id13;
1208: IF p_act_metric_fact_rec.time_id13 IS NULL THEN
1209: x_complete_fact_rec.time_id13 := l_act_metric_fact_rec.time_id13;
1210: END IF;
1211:
1212: IF p_act_metric_fact_rec.time_id14 = FND_API.G_MISS_NUM THEN
1213: x_complete_fact_rec.time_id14 := NULL;
1214: END IF;
1215: IF p_act_metric_fact_rec.time_id14 IS NULL THEN
1216: x_complete_fact_rec.time_id14 := l_act_metric_fact_rec.time_id14;
1215: IF p_act_metric_fact_rec.time_id14 IS NULL THEN
1216: x_complete_fact_rec.time_id14 := l_act_metric_fact_rec.time_id14;
1217: END IF;
1218:
1219: IF p_act_metric_fact_rec.time_id15 = FND_API.G_MISS_NUM THEN
1220: x_complete_fact_rec.time_id15 := NULL;
1221: END IF;
1222: IF p_act_metric_fact_rec.time_id15 IS NULL THEN
1223: x_complete_fact_rec.time_id15 := l_act_metric_fact_rec.time_id15;
1222: IF p_act_metric_fact_rec.time_id15 IS NULL THEN
1223: x_complete_fact_rec.time_id15 := l_act_metric_fact_rec.time_id15;
1224: END IF;
1225:
1226: IF p_act_metric_fact_rec.time_id16 = FND_API.G_MISS_NUM THEN
1227: x_complete_fact_rec.time_id16 := NULL;
1228: END IF;
1229: IF p_act_metric_fact_rec.time_id16 IS NULL THEN
1230: x_complete_fact_rec.time_id16 := l_act_metric_fact_rec.time_id16;
1229: IF p_act_metric_fact_rec.time_id16 IS NULL THEN
1230: x_complete_fact_rec.time_id16 := l_act_metric_fact_rec.time_id16;
1231: END IF;
1232:
1233: IF p_act_metric_fact_rec.time_id17 = FND_API.G_MISS_NUM THEN
1234: x_complete_fact_rec.time_id17 := NULL;
1235: END IF;
1236: IF p_act_metric_fact_rec.time_id17 IS NULL THEN
1237: x_complete_fact_rec.time_id17 := l_act_metric_fact_rec.time_id17;
1236: IF p_act_metric_fact_rec.time_id17 IS NULL THEN
1237: x_complete_fact_rec.time_id17 := l_act_metric_fact_rec.time_id17;
1238: END IF;
1239:
1240: IF p_act_metric_fact_rec.time_id18 = FND_API.G_MISS_NUM THEN
1241: x_complete_fact_rec.time_id18 := NULL;
1242: END IF;
1243: IF p_act_metric_fact_rec.time_id18 IS NULL THEN
1244: x_complete_fact_rec.time_id18 := l_act_metric_fact_rec.time_id18;
1243: IF p_act_metric_fact_rec.time_id18 IS NULL THEN
1244: x_complete_fact_rec.time_id18 := l_act_metric_fact_rec.time_id18;
1245: END IF;
1246:
1247: IF p_act_metric_fact_rec.time_id19 = FND_API.G_MISS_NUM THEN
1248: x_complete_fact_rec.time_id19 := NULL;
1249: END IF;
1250: IF p_act_metric_fact_rec.time_id19 IS NULL THEN
1251: x_complete_fact_rec.time_id19 := l_act_metric_fact_rec.time_id19;
1250: IF p_act_metric_fact_rec.time_id19 IS NULL THEN
1251: x_complete_fact_rec.time_id19 := l_act_metric_fact_rec.time_id19;
1252: END IF;
1253:
1254: IF p_act_metric_fact_rec.time_id20 = FND_API.G_MISS_NUM THEN
1255: x_complete_fact_rec.time_id20 := NULL;
1256: END IF;
1257: IF p_act_metric_fact_rec.time_id20 IS NULL THEN
1258: x_complete_fact_rec.time_id20 := l_act_metric_fact_rec.time_id20;
1257: IF p_act_metric_fact_rec.time_id20 IS NULL THEN
1258: x_complete_fact_rec.time_id20 := l_act_metric_fact_rec.time_id20;
1259: END IF;
1260:
1261: IF p_act_metric_fact_rec.time_id21 = FND_API.G_MISS_NUM THEN
1262: x_complete_fact_rec.time_id21 := NULL;
1263: END IF;
1264: IF p_act_metric_fact_rec.time_id21 IS NULL THEN
1265: x_complete_fact_rec.time_id21 := l_act_metric_fact_rec.time_id21;
1264: IF p_act_metric_fact_rec.time_id21 IS NULL THEN
1265: x_complete_fact_rec.time_id21 := l_act_metric_fact_rec.time_id21;
1266: END IF;
1267:
1268: IF p_act_metric_fact_rec.time_id22 = FND_API.G_MISS_NUM THEN
1269: x_complete_fact_rec.time_id22 := NULL;
1270: END IF;
1271: IF p_act_metric_fact_rec.time_id22 IS NULL THEN
1272: x_complete_fact_rec.time_id22 := l_act_metric_fact_rec.time_id22;
1271: IF p_act_metric_fact_rec.time_id22 IS NULL THEN
1272: x_complete_fact_rec.time_id22 := l_act_metric_fact_rec.time_id22;
1273: END IF;
1274:
1275: IF p_act_metric_fact_rec.time_id23 = FND_API.G_MISS_NUM THEN
1276: x_complete_fact_rec.time_id23 := NULL;
1277: END IF;
1278: IF p_act_metric_fact_rec.time_id23 IS NULL THEN
1279: x_complete_fact_rec.time_id23 := l_act_metric_fact_rec.time_id23;
1278: IF p_act_metric_fact_rec.time_id23 IS NULL THEN
1279: x_complete_fact_rec.time_id23 := l_act_metric_fact_rec.time_id23;
1280: END IF;
1281:
1282: IF p_act_metric_fact_rec.time_id24 = FND_API.G_MISS_NUM THEN
1283: x_complete_fact_rec.time_id24 := NULL;
1284: END IF;
1285: IF p_act_metric_fact_rec.time_id24 IS NULL THEN
1286: x_complete_fact_rec.time_id24 := l_act_metric_fact_rec.time_id24;
1285: IF p_act_metric_fact_rec.time_id24 IS NULL THEN
1286: x_complete_fact_rec.time_id24 := l_act_metric_fact_rec.time_id24;
1287: END IF;
1288:
1289: IF p_act_metric_fact_rec.time_id25 = FND_API.G_MISS_NUM THEN
1290: x_complete_fact_rec.time_id25 := NULL;
1291: END IF;
1292: IF p_act_metric_fact_rec.time_id25 IS NULL THEN
1293: x_complete_fact_rec.time_id25 := l_act_metric_fact_rec.time_id25;
1292: IF p_act_metric_fact_rec.time_id25 IS NULL THEN
1293: x_complete_fact_rec.time_id25 := l_act_metric_fact_rec.time_id25;
1294: END IF;
1295:
1296: IF p_act_metric_fact_rec.time_id26 = FND_API.G_MISS_NUM THEN
1297: x_complete_fact_rec.time_id26 := NULL;
1298: END IF;
1299: IF p_act_metric_fact_rec.time_id26 IS NULL THEN
1300: x_complete_fact_rec.time_id26 := l_act_metric_fact_rec.time_id26;
1299: IF p_act_metric_fact_rec.time_id26 IS NULL THEN
1300: x_complete_fact_rec.time_id26 := l_act_metric_fact_rec.time_id26;
1301: END IF;
1302:
1303: IF p_act_metric_fact_rec.time_id27 = FND_API.G_MISS_NUM THEN
1304: x_complete_fact_rec.time_id27 := NULL;
1305: END IF;
1306: IF p_act_metric_fact_rec.time_id27 IS NULL THEN
1307: x_complete_fact_rec.time_id27 := l_act_metric_fact_rec.time_id27;
1306: IF p_act_metric_fact_rec.time_id27 IS NULL THEN
1307: x_complete_fact_rec.time_id27 := l_act_metric_fact_rec.time_id27;
1308: END IF;
1309:
1310: IF p_act_metric_fact_rec.time_id28 = FND_API.G_MISS_NUM THEN
1311: x_complete_fact_rec.time_id28 := NULL;
1312: END IF;
1313: IF p_act_metric_fact_rec.time_id28 IS NULL THEN
1314: x_complete_fact_rec.time_id28 := l_act_metric_fact_rec.time_id28;
1313: IF p_act_metric_fact_rec.time_id28 IS NULL THEN
1314: x_complete_fact_rec.time_id28 := l_act_metric_fact_rec.time_id28;
1315: END IF;
1316:
1317: IF p_act_metric_fact_rec.time_id29 = FND_API.G_MISS_NUM THEN
1318: x_complete_fact_rec.time_id29 := NULL;
1319: END IF;
1320: IF p_act_metric_fact_rec.time_id29 IS NULL THEN
1321: x_complete_fact_rec.time_id29 := l_act_metric_fact_rec.time_id29;
1320: IF p_act_metric_fact_rec.time_id29 IS NULL THEN
1321: x_complete_fact_rec.time_id29 := l_act_metric_fact_rec.time_id29;
1322: END IF;
1323:
1324: IF p_act_metric_fact_rec.time_id30 = FND_API.G_MISS_NUM THEN
1325: x_complete_fact_rec.time_id30 := NULL;
1326: END IF;
1327: IF p_act_metric_fact_rec.time_id30 IS NULL THEN
1328: x_complete_fact_rec.time_id30 := l_act_metric_fact_rec.time_id30;
1327: IF p_act_metric_fact_rec.time_id30 IS NULL THEN
1328: x_complete_fact_rec.time_id30 := l_act_metric_fact_rec.time_id30;
1329: END IF;
1330:
1331: IF p_act_metric_fact_rec.time_id31 = FND_API.G_MISS_NUM THEN
1332: x_complete_fact_rec.time_id31 := NULL;
1333: END IF;
1334: IF p_act_metric_fact_rec.time_id31 IS NULL THEN
1335: x_complete_fact_rec.time_id31 := l_act_metric_fact_rec.time_id31;
1334: IF p_act_metric_fact_rec.time_id31 IS NULL THEN
1335: x_complete_fact_rec.time_id31 := l_act_metric_fact_rec.time_id31;
1336: END IF;
1337:
1338: IF p_act_metric_fact_rec.time_id32 = FND_API.G_MISS_NUM THEN
1339: x_complete_fact_rec.time_id32 := NULL;
1340: END IF;
1341: IF p_act_metric_fact_rec.time_id32 IS NULL THEN
1342: x_complete_fact_rec.time_id32 := l_act_metric_fact_rec.time_id32;
1341: IF p_act_metric_fact_rec.time_id32 IS NULL THEN
1342: x_complete_fact_rec.time_id32 := l_act_metric_fact_rec.time_id32;
1343: END IF;
1344:
1345: IF p_act_metric_fact_rec.time_id33 = FND_API.G_MISS_NUM THEN
1346: x_complete_fact_rec.time_id33 := NULL;
1347: END IF;
1348: IF p_act_metric_fact_rec.time_id33 IS NULL THEN
1349: x_complete_fact_rec.time_id33 := l_act_metric_fact_rec.time_id33;
1348: IF p_act_metric_fact_rec.time_id33 IS NULL THEN
1349: x_complete_fact_rec.time_id33 := l_act_metric_fact_rec.time_id33;
1350: END IF;
1351:
1352: IF p_act_metric_fact_rec.time_id34 = FND_API.G_MISS_NUM THEN
1353: x_complete_fact_rec.time_id34 := NULL;
1354: END IF;
1355: IF p_act_metric_fact_rec.time_id34 IS NULL THEN
1356: x_complete_fact_rec.time_id34 := l_act_metric_fact_rec.time_id34;
1355: IF p_act_metric_fact_rec.time_id34 IS NULL THEN
1356: x_complete_fact_rec.time_id34 := l_act_metric_fact_rec.time_id34;
1357: END IF;
1358:
1359: IF p_act_metric_fact_rec.time_id35 = FND_API.G_MISS_NUM THEN
1360: x_complete_fact_rec.time_id35 := NULL;
1361: END IF;
1362: IF p_act_metric_fact_rec.time_id35 IS NULL THEN
1363: x_complete_fact_rec.time_id35 := l_act_metric_fact_rec.time_id35;
1362: IF p_act_metric_fact_rec.time_id35 IS NULL THEN
1363: x_complete_fact_rec.time_id35 := l_act_metric_fact_rec.time_id35;
1364: END IF;
1365:
1366: IF p_act_metric_fact_rec.time_id36 = FND_API.G_MISS_NUM THEN
1367: x_complete_fact_rec.time_id36 := NULL;
1368: END IF;
1369: IF p_act_metric_fact_rec.time_id36 IS NULL THEN
1370: x_complete_fact_rec.time_id36 := l_act_metric_fact_rec.time_id36;
1369: IF p_act_metric_fact_rec.time_id36 IS NULL THEN
1370: x_complete_fact_rec.time_id36 := l_act_metric_fact_rec.time_id36;
1371: END IF;
1372:
1373: IF p_act_metric_fact_rec.time_id37 = FND_API.G_MISS_NUM THEN
1374: x_complete_fact_rec.time_id37 := NULL;
1375: END IF;
1376: IF p_act_metric_fact_rec.time_id37 IS NULL THEN
1377: x_complete_fact_rec.time_id37 := l_act_metric_fact_rec.time_id37;
1376: IF p_act_metric_fact_rec.time_id37 IS NULL THEN
1377: x_complete_fact_rec.time_id37 := l_act_metric_fact_rec.time_id37;
1378: END IF;
1379:
1380: IF p_act_metric_fact_rec.time_id38 = FND_API.G_MISS_NUM THEN
1381: x_complete_fact_rec.time_id38 := NULL;
1382: END IF;
1383: IF p_act_metric_fact_rec.time_id38 IS NULL THEN
1384: x_complete_fact_rec.time_id38 := l_act_metric_fact_rec.time_id38;
1383: IF p_act_metric_fact_rec.time_id38 IS NULL THEN
1384: x_complete_fact_rec.time_id38 := l_act_metric_fact_rec.time_id38;
1385: END IF;
1386:
1387: IF p_act_metric_fact_rec.time_id39 = FND_API.G_MISS_NUM THEN
1388: x_complete_fact_rec.time_id39 := NULL;
1389: END IF;
1390: IF p_act_metric_fact_rec.time_id39 IS NULL THEN
1391: x_complete_fact_rec.time_id39 := l_act_metric_fact_rec.time_id39;
1390: IF p_act_metric_fact_rec.time_id39 IS NULL THEN
1391: x_complete_fact_rec.time_id39 := l_act_metric_fact_rec.time_id39;
1392: END IF;
1393:
1394: IF p_act_metric_fact_rec.time_id40 = FND_API.G_MISS_NUM THEN
1395: x_complete_fact_rec.time_id40 := NULL;
1396: END IF;
1397: IF p_act_metric_fact_rec.time_id40 IS NULL THEN
1398: x_complete_fact_rec.time_id40 := l_act_metric_fact_rec.time_id40;
1397: IF p_act_metric_fact_rec.time_id40 IS NULL THEN
1398: x_complete_fact_rec.time_id40 := l_act_metric_fact_rec.time_id40;
1399: END IF;
1400:
1401: IF p_act_metric_fact_rec.time_id41 = FND_API.G_MISS_NUM THEN
1402: x_complete_fact_rec.time_id41 := NULL;
1403: END IF;
1404: IF p_act_metric_fact_rec.time_id41 IS NULL THEN
1405: x_complete_fact_rec.time_id41 := l_act_metric_fact_rec.time_id41;
1404: IF p_act_metric_fact_rec.time_id41 IS NULL THEN
1405: x_complete_fact_rec.time_id41 := l_act_metric_fact_rec.time_id41;
1406: END IF;
1407:
1408: IF p_act_metric_fact_rec.time_id42 = FND_API.G_MISS_NUM THEN
1409: x_complete_fact_rec.time_id42 := NULL;
1410: END IF;
1411: IF p_act_metric_fact_rec.time_id42 IS NULL THEN
1412: x_complete_fact_rec.time_id42 := l_act_metric_fact_rec.time_id42;
1411: IF p_act_metric_fact_rec.time_id42 IS NULL THEN
1412: x_complete_fact_rec.time_id42 := l_act_metric_fact_rec.time_id42;
1413: END IF;
1414:
1415: IF p_act_metric_fact_rec.time_id43 = FND_API.G_MISS_NUM THEN
1416: x_complete_fact_rec.time_id43 := NULL;
1417: END IF;
1418: IF p_act_metric_fact_rec.time_id43 IS NULL THEN
1419: x_complete_fact_rec.time_id43 := l_act_metric_fact_rec.time_id43;
1418: IF p_act_metric_fact_rec.time_id43 IS NULL THEN
1419: x_complete_fact_rec.time_id43 := l_act_metric_fact_rec.time_id43;
1420: END IF;
1421:
1422: IF p_act_metric_fact_rec.time_id44 = FND_API.G_MISS_NUM THEN
1423: x_complete_fact_rec.time_id44 := NULL;
1424: END IF;
1425: IF p_act_metric_fact_rec.time_id44 IS NULL THEN
1426: x_complete_fact_rec.time_id44 := l_act_metric_fact_rec.time_id44;
1425: IF p_act_metric_fact_rec.time_id44 IS NULL THEN
1426: x_complete_fact_rec.time_id44 := l_act_metric_fact_rec.time_id44;
1427: END IF;
1428:
1429: IF p_act_metric_fact_rec.time_id45 = FND_API.G_MISS_NUM THEN
1430: x_complete_fact_rec.time_id45 := NULL;
1431: END IF;
1432: IF p_act_metric_fact_rec.time_id45 IS NULL THEN
1433: x_complete_fact_rec.time_id45 := l_act_metric_fact_rec.time_id45;
1432: IF p_act_metric_fact_rec.time_id45 IS NULL THEN
1433: x_complete_fact_rec.time_id45 := l_act_metric_fact_rec.time_id45;
1434: END IF;
1435:
1436: IF p_act_metric_fact_rec.time_id46 = FND_API.G_MISS_NUM THEN
1437: x_complete_fact_rec.time_id46 := NULL;
1438: END IF;
1439: IF p_act_metric_fact_rec.time_id46 IS NULL THEN
1440: x_complete_fact_rec.time_id46 := l_act_metric_fact_rec.time_id46;
1439: IF p_act_metric_fact_rec.time_id46 IS NULL THEN
1440: x_complete_fact_rec.time_id46 := l_act_metric_fact_rec.time_id46;
1441: END IF;
1442:
1443: IF p_act_metric_fact_rec.time_id47 = FND_API.G_MISS_NUM THEN
1444: x_complete_fact_rec.time_id47 := NULL;
1445: END IF;
1446: IF p_act_metric_fact_rec.time_id47 IS NULL THEN
1447: x_complete_fact_rec.time_id47 := l_act_metric_fact_rec.time_id47;
1446: IF p_act_metric_fact_rec.time_id47 IS NULL THEN
1447: x_complete_fact_rec.time_id47 := l_act_metric_fact_rec.time_id47;
1448: END IF;
1449:
1450: IF p_act_metric_fact_rec.time_id48 = FND_API.G_MISS_NUM THEN
1451: x_complete_fact_rec.time_id48 := NULL;
1452: END IF;
1453: IF p_act_metric_fact_rec.time_id48 IS NULL THEN
1454: x_complete_fact_rec.time_id48 := l_act_metric_fact_rec.time_id48;
1453: IF p_act_metric_fact_rec.time_id48 IS NULL THEN
1454: x_complete_fact_rec.time_id48 := l_act_metric_fact_rec.time_id48;
1455: END IF;
1456:
1457: IF p_act_metric_fact_rec.time_id49 = FND_API.G_MISS_NUM THEN
1458: x_complete_fact_rec.time_id49 := NULL;
1459: END IF;
1460: IF p_act_metric_fact_rec.time_id49 IS NULL THEN
1461: x_complete_fact_rec.time_id49 := l_act_metric_fact_rec.time_id49;
1460: IF p_act_metric_fact_rec.time_id49 IS NULL THEN
1461: x_complete_fact_rec.time_id49 := l_act_metric_fact_rec.time_id49;
1462: END IF;
1463:
1464: IF p_act_metric_fact_rec.time_id50 = FND_API.G_MISS_NUM THEN
1465: x_complete_fact_rec.time_id50 := NULL;
1466: END IF;
1467: IF p_act_metric_fact_rec.time_id50 IS NULL THEN
1468: x_complete_fact_rec.time_id50 := l_act_metric_fact_rec.time_id50;
1467: IF p_act_metric_fact_rec.time_id50 IS NULL THEN
1468: x_complete_fact_rec.time_id50 := l_act_metric_fact_rec.time_id50;
1469: END IF;
1470:
1471: IF p_act_metric_fact_rec.time_id51 = FND_API.G_MISS_NUM THEN
1472: x_complete_fact_rec.time_id51 := NULL;
1473: END IF;
1474: IF p_act_metric_fact_rec.time_id51 IS NULL THEN
1475: x_complete_fact_rec.time_id51 := l_act_metric_fact_rec.time_id51;
1474: IF p_act_metric_fact_rec.time_id51 IS NULL THEN
1475: x_complete_fact_rec.time_id51 := l_act_metric_fact_rec.time_id51;
1476: END IF;
1477:
1478: IF p_act_metric_fact_rec.time_id52 = FND_API.G_MISS_NUM THEN
1479: x_complete_fact_rec.time_id52 := NULL;
1480: END IF;
1481: IF p_act_metric_fact_rec.time_id52 IS NULL THEN
1482: x_complete_fact_rec.time_id52 := l_act_metric_fact_rec.time_id52;
1481: IF p_act_metric_fact_rec.time_id52 IS NULL THEN
1482: x_complete_fact_rec.time_id52 := l_act_metric_fact_rec.time_id52;
1483: END IF;
1484:
1485: IF p_act_metric_fact_rec.time_id53 = FND_API.G_MISS_NUM THEN
1486: x_complete_fact_rec.time_id53 := NULL;
1487: END IF;
1488: IF p_act_metric_fact_rec.time_id53 IS NULL THEN
1489: x_complete_fact_rec.time_id53 := l_act_metric_fact_rec.time_id53;
1488: IF p_act_metric_fact_rec.time_id53 IS NULL THEN
1489: x_complete_fact_rec.time_id53 := l_act_metric_fact_rec.time_id53;
1490: END IF;
1491:
1492: IF p_act_metric_fact_rec.hierarchy_id = FND_API.G_MISS_NUM THEN
1493: x_complete_fact_rec.hierarchy_id := NULL;
1494: END IF;
1495: IF p_act_metric_fact_rec.hierarchy_id IS NULL THEN
1496: x_complete_fact_rec.hierarchy_id := l_act_metric_fact_rec.hierarchy_id;
1495: IF p_act_metric_fact_rec.hierarchy_id IS NULL THEN
1496: x_complete_fact_rec.hierarchy_id := l_act_metric_fact_rec.hierarchy_id;
1497: END IF;
1498:
1499: IF p_act_metric_fact_rec.node_id = FND_API.G_MISS_NUM THEN
1500: x_complete_fact_rec.node_id := NULL;
1501: END IF;
1502: IF p_act_metric_fact_rec.node_id IS NULL THEN
1503: x_complete_fact_rec.node_id := l_act_metric_fact_rec.node_id;
1502: IF p_act_metric_fact_rec.node_id IS NULL THEN
1503: x_complete_fact_rec.node_id := l_act_metric_fact_rec.node_id;
1504: END IF;
1505:
1506: IF p_act_metric_fact_rec.level_depth = FND_API.G_MISS_NUM THEN
1507: x_complete_fact_rec.level_depth := NULL;
1508: END IF;
1509: IF p_act_metric_fact_rec.level_depth IS NULL THEN
1510: x_complete_fact_rec.level_depth := l_act_metric_fact_rec.level_depth;
1509: IF p_act_metric_fact_rec.level_depth IS NULL THEN
1510: x_complete_fact_rec.level_depth := l_act_metric_fact_rec.level_depth;
1511: END IF;
1512:
1513: IF p_act_metric_fact_rec.formula_id = FND_API.G_MISS_NUM THEN
1514: x_complete_fact_rec.formula_id := NULL;
1515: END IF;
1516: IF p_act_metric_fact_rec.formula_id IS NULL THEN
1517: x_complete_fact_rec.formula_id := l_act_metric_fact_rec.formula_id;
1516: IF p_act_metric_fact_rec.formula_id IS NULL THEN
1517: x_complete_fact_rec.formula_id := l_act_metric_fact_rec.formula_id;
1518: END IF;
1519:
1520: IF p_act_metric_fact_rec.from_date = FND_API.G_MISS_DATE THEN
1521: x_complete_fact_rec.from_date := NULL;
1522: END IF;
1523: IF p_act_metric_fact_rec.from_date IS NULL THEN
1524: x_complete_fact_rec.from_date := l_act_metric_fact_rec.from_date;
1523: IF p_act_metric_fact_rec.from_date IS NULL THEN
1524: x_complete_fact_rec.from_date := l_act_metric_fact_rec.from_date;
1525: END IF;
1526:
1527: IF p_act_metric_fact_rec.to_date = FND_API.G_MISS_DATE THEN
1528: x_complete_fact_rec.to_date := NULL;
1529: END IF;
1530: IF p_act_metric_fact_rec.to_date IS NULL THEN
1531: x_complete_fact_rec.to_date := l_act_metric_fact_rec.to_date;
1530: IF p_act_metric_fact_rec.to_date IS NULL THEN
1531: x_complete_fact_rec.to_date := l_act_metric_fact_rec.to_date;
1532: END IF;
1533:
1534: IF p_act_metric_fact_rec.fact_value = FND_API.G_MISS_NUM THEN
1535: x_complete_fact_rec.fact_value := NULL;
1536: END IF;
1537: IF p_act_metric_fact_rec.fact_value IS NULL THEN
1538: x_complete_fact_rec.fact_value := l_act_metric_fact_rec.fact_value;
1537: IF p_act_metric_fact_rec.fact_value IS NULL THEN
1538: x_complete_fact_rec.fact_value := l_act_metric_fact_rec.fact_value;
1539: END IF;
1540:
1541: IF p_act_metric_fact_rec.fact_percent = FND_API.G_MISS_NUM THEN
1542: x_complete_fact_rec.fact_percent := NULL;
1543: END IF;
1544: IF p_act_metric_fact_rec.fact_percent IS NULL THEN
1545: x_complete_fact_rec.fact_percent := l_act_metric_fact_rec.fact_percent;
1544: IF p_act_metric_fact_rec.fact_percent IS NULL THEN
1545: x_complete_fact_rec.fact_percent := l_act_metric_fact_rec.fact_percent;
1546: END IF;
1547:
1548: IF p_act_metric_fact_rec.root_fact_id = FND_API.G_MISS_NUM THEN
1549: x_complete_fact_rec.root_fact_id := NULL;
1550: END IF;
1551: IF p_act_metric_fact_rec.root_fact_id IS NULL THEN
1552: x_complete_fact_rec.root_fact_id := l_act_metric_fact_rec.root_fact_id;
1551: IF p_act_metric_fact_rec.root_fact_id IS NULL THEN
1552: x_complete_fact_rec.root_fact_id := l_act_metric_fact_rec.root_fact_id;
1553: END IF;
1554:
1555: IF p_act_metric_fact_rec.previous_fact_id = FND_API.G_MISS_NUM THEN
1556: x_complete_fact_rec.previous_fact_id := NULL;
1557: END IF;
1558: IF p_act_metric_fact_rec.previous_fact_id IS NULL THEN
1559: x_complete_fact_rec.previous_fact_id := l_act_metric_fact_rec.previous_fact_id;
1558: IF p_act_metric_fact_rec.previous_fact_id IS NULL THEN
1559: x_complete_fact_rec.previous_fact_id := l_act_metric_fact_rec.previous_fact_id;
1560: END IF;
1561:
1562: IF p_act_metric_fact_rec.fact_type = FND_API.G_MISS_CHAR THEN
1563: x_complete_fact_rec.fact_type := NULL;
1564: END IF;
1565: IF p_act_metric_fact_rec.fact_type IS NULL THEN
1566: x_complete_fact_rec.fact_type := l_act_metric_fact_rec.fact_type;
1565: IF p_act_metric_fact_rec.fact_type IS NULL THEN
1566: x_complete_fact_rec.fact_type := l_act_metric_fact_rec.fact_type;
1567: END IF;
1568:
1569: IF p_act_metric_fact_rec.fact_reference = FND_API.G_MISS_CHAR THEN
1570: x_complete_fact_rec.fact_reference := NULL;
1571: END IF;
1572: IF p_act_metric_fact_rec.fact_reference IS NULL THEN
1573: x_complete_fact_rec.fact_reference := l_act_metric_fact_rec.fact_reference;
1572: IF p_act_metric_fact_rec.fact_reference IS NULL THEN
1573: x_complete_fact_rec.fact_reference := l_act_metric_fact_rec.fact_reference;
1574: END IF;
1575:
1576: IF p_act_metric_fact_rec.forward_buy_quantity = FND_API.G_MISS_NUM THEN
1577: x_complete_fact_rec.forward_buy_quantity := NULL;
1578: END IF;
1579: IF p_act_metric_fact_rec.forward_buy_quantity IS NULL THEN
1580: x_complete_fact_rec.forward_buy_quantity := l_act_metric_fact_rec.forward_buy_quantity;
1580: x_complete_fact_rec.forward_buy_quantity := l_act_metric_fact_rec.forward_buy_quantity;
1581: END IF;
1582:
1583: /* 05/21/2002 yzhao: add 11 new columns for top-down bottom-up budgeting */
1584: IF p_act_metric_fact_rec.status_code = FND_API.G_MISS_CHAR THEN
1585: x_complete_fact_rec.status_code := NULL;
1586: END IF;
1587: IF p_act_metric_fact_rec.status_code IS NULL THEN
1588: x_complete_fact_rec.status_code := l_act_metric_fact_rec.status_code;
1587: IF p_act_metric_fact_rec.status_code IS NULL THEN
1588: x_complete_fact_rec.status_code := l_act_metric_fact_rec.status_code;
1589: END IF;
1590:
1591: IF p_act_metric_fact_rec.hierarchy_type = FND_API.G_MISS_CHAR THEN
1592: x_complete_fact_rec.hierarchy_type := NULL;
1593: END IF;
1594: IF p_act_metric_fact_rec.hierarchy_type IS NULL THEN
1595: x_complete_fact_rec.hierarchy_type := l_act_metric_fact_rec.hierarchy_type;
1594: IF p_act_metric_fact_rec.hierarchy_type IS NULL THEN
1595: x_complete_fact_rec.hierarchy_type := l_act_metric_fact_rec.hierarchy_type;
1596: END IF;
1597:
1598: IF p_act_metric_fact_rec.approval_date = FND_API.G_MISS_DATE THEN
1599: x_complete_fact_rec.approval_date := NULL;
1600: END IF;
1601: IF p_act_metric_fact_rec.approval_date IS NULL THEN
1602: x_complete_fact_rec.approval_date := l_act_metric_fact_rec.approval_date;
1601: IF p_act_metric_fact_rec.approval_date IS NULL THEN
1602: x_complete_fact_rec.approval_date := l_act_metric_fact_rec.approval_date;
1603: END IF;
1604:
1605: IF p_act_metric_fact_rec.recommend_total_amount = FND_API.G_MISS_NUM THEN
1606: x_complete_fact_rec.recommend_total_amount := NULL;
1607: END IF;
1608: IF p_act_metric_fact_rec.recommend_total_amount IS NULL THEN
1609: x_complete_fact_rec.recommend_total_amount := l_act_metric_fact_rec.recommend_total_amount;
1608: IF p_act_metric_fact_rec.recommend_total_amount IS NULL THEN
1609: x_complete_fact_rec.recommend_total_amount := l_act_metric_fact_rec.recommend_total_amount;
1610: END IF;
1611:
1612: IF p_act_metric_fact_rec.recommend_hb_amount = FND_API.G_MISS_NUM THEN
1613: x_complete_fact_rec.recommend_hb_amount := NULL;
1614: END IF;
1615: IF p_act_metric_fact_rec.recommend_hb_amount IS NULL THEN
1616: x_complete_fact_rec.recommend_hb_amount := l_act_metric_fact_rec.recommend_hb_amount;
1615: IF p_act_metric_fact_rec.recommend_hb_amount IS NULL THEN
1616: x_complete_fact_rec.recommend_hb_amount := l_act_metric_fact_rec.recommend_hb_amount;
1617: END IF;
1618:
1619: IF p_act_metric_fact_rec.request_total_amount = FND_API.G_MISS_NUM THEN
1620: x_complete_fact_rec.request_total_amount := NULL;
1621: END IF;
1622: IF p_act_metric_fact_rec.request_total_amount IS NULL THEN
1623: x_complete_fact_rec.request_total_amount := l_act_metric_fact_rec.request_total_amount;
1622: IF p_act_metric_fact_rec.request_total_amount IS NULL THEN
1623: x_complete_fact_rec.request_total_amount := l_act_metric_fact_rec.request_total_amount;
1624: END IF;
1625:
1626: IF p_act_metric_fact_rec.request_hb_amount = FND_API.G_MISS_NUM THEN
1627: x_complete_fact_rec.request_hb_amount := NULL;
1628: END IF;
1629: IF p_act_metric_fact_rec.request_hb_amount IS NULL THEN
1630: x_complete_fact_rec.request_hb_amount := l_act_metric_fact_rec.request_hb_amount;
1629: IF p_act_metric_fact_rec.request_hb_amount IS NULL THEN
1630: x_complete_fact_rec.request_hb_amount := l_act_metric_fact_rec.request_hb_amount;
1631: END IF;
1632:
1633: IF p_act_metric_fact_rec.actual_total_amount = FND_API.G_MISS_NUM THEN
1634: x_complete_fact_rec.actual_total_amount := NULL;
1635: END IF;
1636: IF p_act_metric_fact_rec.actual_total_amount IS NULL THEN
1637: x_complete_fact_rec.actual_total_amount := l_act_metric_fact_rec.actual_total_amount;
1636: IF p_act_metric_fact_rec.actual_total_amount IS NULL THEN
1637: x_complete_fact_rec.actual_total_amount := l_act_metric_fact_rec.actual_total_amount;
1638: END IF;
1639:
1640: IF p_act_metric_fact_rec.actual_hb_amount = FND_API.G_MISS_NUM THEN
1641: x_complete_fact_rec.actual_hb_amount := NULL;
1642: END IF;
1643: IF p_act_metric_fact_rec.actual_hb_amount IS NULL THEN
1644: x_complete_fact_rec.actual_hb_amount := l_act_metric_fact_rec.actual_hb_amount;
1643: IF p_act_metric_fact_rec.actual_hb_amount IS NULL THEN
1644: x_complete_fact_rec.actual_hb_amount := l_act_metric_fact_rec.actual_hb_amount;
1645: END IF;
1646:
1647: IF p_act_metric_fact_rec.base_total_pct = FND_API.G_MISS_NUM THEN
1648: x_complete_fact_rec.base_total_pct := NULL;
1649: END IF;
1650: IF p_act_metric_fact_rec.base_total_pct IS NULL THEN
1651: x_complete_fact_rec.base_total_pct := l_act_metric_fact_rec.base_total_pct;
1650: IF p_act_metric_fact_rec.base_total_pct IS NULL THEN
1651: x_complete_fact_rec.base_total_pct := l_act_metric_fact_rec.base_total_pct;
1652: END IF;
1653:
1654: IF p_act_metric_fact_rec.base_hb_pct = FND_API.G_MISS_NUM THEN
1655: x_complete_fact_rec.base_hb_pct := NULL;
1656: END IF;
1657: IF p_act_metric_fact_rec.base_hb_pct IS NULL THEN
1658: x_complete_fact_rec.base_hb_pct := l_act_metric_fact_rec.base_hb_pct;
1659: END IF;
1660: /* 05/21/2002 yzhao: add ends */
1661:
1662: /* 08/12/2005 mkothari: added 4 new columns for forecasting with 3rd party baseline sales */
1663: IF p_act_metric_fact_rec.baseline_sales = FND_API.G_MISS_NUM THEN
1664: x_complete_fact_rec.baseline_sales := NULL;
1665: END IF;
1666: IF p_act_metric_fact_rec.baseline_sales IS NULL THEN
1667: x_complete_fact_rec.baseline_sales := l_act_metric_fact_rec.baseline_sales;
1666: IF p_act_metric_fact_rec.baseline_sales IS NULL THEN
1667: x_complete_fact_rec.baseline_sales := l_act_metric_fact_rec.baseline_sales;
1668: END IF;
1669:
1670: IF p_act_metric_fact_rec.tpr_percent = FND_API.G_MISS_NUM THEN
1671: x_complete_fact_rec.tpr_percent := NULL;
1672: END IF;
1673: IF p_act_metric_fact_rec.tpr_percent IS NULL THEN
1674: x_complete_fact_rec.tpr_percent := l_act_metric_fact_rec.tpr_percent;
1673: IF p_act_metric_fact_rec.tpr_percent IS NULL THEN
1674: x_complete_fact_rec.tpr_percent := l_act_metric_fact_rec.tpr_percent;
1675: END IF;
1676:
1677: IF p_act_metric_fact_rec.lift_factor = FND_API.G_MISS_NUM THEN
1678: x_complete_fact_rec.lift_factor := NULL;
1679: END IF;
1680: IF p_act_metric_fact_rec.lift_factor IS NULL THEN
1681: x_complete_fact_rec.lift_factor := l_act_metric_fact_rec.lift_factor;
1680: IF p_act_metric_fact_rec.lift_factor IS NULL THEN
1681: x_complete_fact_rec.lift_factor := l_act_metric_fact_rec.lift_factor;
1682: END IF;
1683:
1684: IF p_act_metric_fact_rec.incremental_sales = FND_API.G_MISS_NUM THEN
1685: x_complete_fact_rec.incremental_sales := NULL;
1686: END IF;
1687: IF p_act_metric_fact_rec.incremental_sales IS NULL THEN
1688: x_complete_fact_rec.incremental_sales := l_act_metric_fact_rec.incremental_sales;
1709: -- End of comments
1710:
1711: PROCEDURE Validate_ActMetFact (
1712: p_api_version IN NUMBER,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1714: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1715:
1716: x_return_status OUT NOCOPY VARCHAR2,
1717: x_msg_count OUT NOCOPY NUMBER,
1710:
1711: PROCEDURE Validate_ActMetFact (
1712: p_api_version IN NUMBER,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1714: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1715:
1716: x_return_status OUT NOCOPY VARCHAR2,
1717: x_msg_count OUT NOCOPY NUMBER,
1718: x_msg_data OUT NOCOPY VARCHAR2,
1738:
1739: --
1740: -- Initialize message list if p_init_msg_list is set to TRUE.
1741: --
1742: IF FND_API.To_Boolean (p_init_msg_list) THEN
1743: FND_MSG_PUB.Initialize;
1744: END IF;
1745:
1746: --
1745:
1746: --
1747: -- Standard check for API version compatibility.
1748: --
1749: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1750: p_api_version,
1751: L_API_NAME,
1752: G_PKG_NAME)
1753: THEN
1750: p_api_version,
1751: L_API_NAME,
1752: G_PKG_NAME)
1753: THEN
1754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1755: END IF;
1756:
1757: --
1758: -- Initialize API return status to success.
1756:
1757: --
1758: -- Initialize API return status to success.
1759: --
1760: x_return_status := FND_API.G_RET_STS_SUCCESS;
1761:
1762: --
1763: -- Begin API Body.
1764: --
1782: x_return_status => l_return_status
1783: );
1784:
1785: -- If any errors happen abort API.
1786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1783: );
1784:
1785: -- If any errors happen abort API.
1786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791: END IF;
1784:
1785: -- If any errors happen abort API.
1786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791: END IF;
1792:
1785: -- If any errors happen abort API.
1786: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1789: RAISE FND_API.G_EXC_ERROR;
1790: END IF;
1791: END IF;
1792:
1793: IF (OZF_DEBUG_HIGH_ON) THEN
1807: p_complete_fact_rec => NULL,
1808: x_return_status => l_return_status
1809: );
1810:
1811: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1812: RAISE FND_API.g_exc_unexpected_error;
1813: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1814: RAISE FND_API.g_exc_error;
1815: END IF;
1808: x_return_status => l_return_status
1809: );
1810:
1811: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1812: RAISE FND_API.g_exc_unexpected_error;
1813: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1814: RAISE FND_API.g_exc_error;
1815: END IF;
1816: END IF;
1809: );
1810:
1811: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1812: RAISE FND_API.g_exc_unexpected_error;
1813: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1814: RAISE FND_API.g_exc_error;
1815: END IF;
1816: END IF;
1817:
1810:
1811: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1812: RAISE FND_API.g_exc_unexpected_error;
1813: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1814: RAISE FND_API.g_exc_error;
1815: END IF;
1816: END IF;
1817:
1818:
1827: --
1828: FND_MSG_PUB.Count_And_Get (
1829: p_count => x_msg_count,
1830: p_data => x_msg_data,
1831: p_encoded => FND_API.G_FALSE
1832: );
1833:
1834:
1835:
1849:
1850:
1851:
1852: EXCEPTION
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: FND_MSG_PUB.Count_And_Get (
1856: p_count => x_msg_count,
1857: p_data => x_msg_data
1850:
1851:
1852: EXCEPTION
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855: FND_MSG_PUB.Count_And_Get (
1856: p_count => x_msg_count,
1857: p_data => x_msg_data
1858: );
1855: FND_MSG_PUB.Count_And_Get (
1856: p_count => x_msg_count,
1857: p_data => x_msg_data
1858: );
1859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: FND_MSG_PUB.Count_And_Get (
1862: p_count => x_msg_count,
1863: p_data => x_msg_data
1856: p_count => x_msg_count,
1857: p_data => x_msg_data
1858: );
1859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: FND_MSG_PUB.Count_And_Get (
1862: p_count => x_msg_count,
1863: p_data => x_msg_data
1864: );
1862: p_count => x_msg_count,
1863: p_data => x_msg_data
1864: );
1865: WHEN OTHERS THEN
1866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1868: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1869: END IF;
1870: FND_MSG_PUB.Count_And_Get (
1895: )
1896: IS
1897: BEGIN
1898: -- Initialize return status to success.
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900:
1901: --ACT_METRIC_USED_BY_ID
1902:
1903:
1911: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_ARC_USED_FOR');
1912: FND_MSG_PUB.Add;
1913: END IF;
1914:
1915: x_return_status := FND_API.G_RET_STS_ERROR;
1916:
1917: -- If any error happens abort API.
1918: RETURN;
1919: END IF;
1930: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_ARC_USED_FOR');
1931: FND_MSG_PUB.Add;
1932: END IF;
1933:
1934: x_return_status := FND_API.G_RET_STS_ERROR;
1935:
1936: -- If any error happens abort API.
1937: RETURN;
1938: END IF;
1949: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_VAL_TYPE');
1950: FND_MSG_PUB.Add;
1951: END IF;
1952:
1953: x_return_status := FND_API.G_RET_STS_ERROR;
1954:
1955: -- If any error happens abort API.
1956: RETURN;
1957: END IF;
1969: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_ACT_METRIC_ID');
1970: FND_MSG_PUB.Add;
1971: END IF;
1972:
1973: x_return_status := FND_API.G_RET_STS_ERROR;
1974:
1975: -- If any error happens abort API.
1976: RETURN;
1977: END IF;
1988: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_TRAN_FCST_VAL');
1989: FND_MSG_PUB.Add;
1990: END IF;
1991:
1992: x_return_status := FND_API.G_RET_STS_ERROR;
1993:
1994: -- If any error happens abort API.
1995: RETURN;
1996: END IF;
2007: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_FUNC_CUR_CODE');
2008: FND_MSG_PUB.Add;
2009: END IF;
2010:
2011: x_return_status := FND_API.G_RET_STS_ERROR;
2012:
2013: -- If any error happens abort API.
2014: RETURN;
2015: END IF;
2026: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_FUNC_FCST_VAL');
2027: FND_MSG_PUB.Add;
2028: END IF;
2029:
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031:
2032: -- If any error happens abort API.
2033: RETURN;
2034: END IF;
2046: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_METRIC_ID');
2047: FND_MSG_PUB.Add;
2048: END IF;
2049:
2050: x_return_status := FND_API.G_RET_STS_ERROR;
2051:
2052: -- If any error happens abort API.
2053: RETURN;
2054: END IF;
2066: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_TIME_ID1');
2067: FND_MSG_PUB.Add;
2068: END IF;
2069:
2070: x_return_status := FND_API.G_RET_STS_ERROR;
2071:
2072: -- If any error happens abort API.
2073: RETURN;
2074: END IF;
2077:
2078: -------------------------------------------------------------------------------------
2079: --When a Hierarchy Id is present then the node_id and fact_value fields are mandatory
2080: -------------------------------------------------------------------------------------
2081: IF p_act_metric_fact_rec.hierarchy_id IS NOT NULL AND p_act_metric_fact_rec.hierarchy_id <> FND_API.G_MISS_NUM
2082: THEN
2083:
2084:
2085:
2097: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_NODE_ID');
2098: FND_MSG_PUB.Add;
2099: END IF;
2100:
2101: x_return_status := FND_API.G_RET_STS_ERROR;
2102:
2103: -- If any error happens abort API.
2104: RETURN;
2105: END IF;
2115: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_MISSING_FACT_VAL');
2116: FND_MSG_PUB.Add;
2117: END IF;
2118:
2119: x_return_status := FND_API.G_RET_STS_ERROR;
2120:
2121: -- If any error happens abort API.
2122: RETURN;
2123: END IF;
2154: IS
2155: l_where_clause VARCHAR2(2000); -- Used By Check_Uniqueness
2156: BEGIN
2157:
2158: x_return_status := FND_API.g_ret_sts_success;
2159:
2160: -- For Create_ActMetricFact, when activity_metric_fact_id is passed in, we need to
2161: -- check if this activity_metric_id is unique.
2162: IF p_validation_mode = JTF_PLSQL_API.g_create
2167:
2168: IF OZF_Utility_PVT.Check_Uniqueness(
2169: p_table_name => 'ozf_act_metric_facts_all',
2170: p_where_clause => l_where_clause
2171: ) = FND_API.g_false
2172: THEN
2173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2174: THEN
2175: FND_MESSAGE.set_name('OZF', 'OZF_METR_FACT_DUP_ID');
2174: THEN
2175: FND_MESSAGE.set_name('OZF', 'OZF_METR_FACT_DUP_ID');
2176: FND_MSG_PUB.add;
2177: END IF;
2178: x_return_status := FND_API.g_ret_sts_error;
2179: RETURN;
2180: END IF;
2181: END IF;
2182:
2230:
2231:
2232: BEGIN
2233: -- Initialize return status to success.
2234: x_return_status := FND_API.G_RET_STS_SUCCESS;
2235:
2236:
2237:
2238: -- ACTIVITY_METRIC_ID
2237:
2238: -- ACTIVITY_METRIC_ID
2239: -- Do not validate FK if NULL
2240:
2241: IF l_act_metric_fact_rec.activity_metric_id <> FND_API.G_MISS_NUM THEN
2242: l_table_name := 'OZF_ACT_METRICS_ALL';
2243: l_pk_name := 'ACTIVITY_METRIC_ID';
2244: l_pk_value := l_act_metric_fact_rec.activity_metric_id;
2245: l_pk_data_type := OZF_Utility_PVT.G_NUMBER;
2250: ,p_pk_name => l_pk_name
2251: ,p_pk_value => l_pk_value
2252: ,p_pk_data_type => l_pk_data_type
2253: ,p_additional_where_clause => l_additional_where_clause
2254: ) = FND_API.G_FALSE
2255: THEN
2256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2257: THEN
2258: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_INVALID_MET');
2258: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_INVALID_MET');
2259: FND_MSG_PUB.Add;
2260: END IF;
2261:
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263: RETURN;
2264: END IF; -- Check_FK_Exists
2265:
2266: END IF;
2267:
2268:
2269:
2270: -- ARC_ACT_METRIC_USED_BY
2271: IF l_act_metric_fact_rec.arc_act_metric_used_by <> FND_API.G_MISS_CHAR THEN
2272: IF l_act_metric_fact_rec.arc_act_metric_used_by NOT IN
2273: ('CAMP','CSCH','EVEH','EVEO','DELV','FUND','FCST')
2274: THEN
2275: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2276: FND_MESSAGE.Set_Name ('OZF', 'OZF_METR_INVALID_USED_BY');
2277: FND_MSG_PUB.Add;
2278: END IF;
2279:
2280: x_return_status := FND_API.G_RET_STS_ERROR;
2281: RETURN;
2282: END IF;
2283: END IF;
2284:
2288: ----------------------------------------------------------------------------------
2289: --When a Hierarchy and Node are specified then a check must be done to verify
2290: --that the node is unique in the set of result entries for this activity metric.
2291: ----------------------------------------------------------------------------------
2292: IF l_act_metric_fact_rec.hierarchy_id <> FND_API.G_MISS_NUM THEN
2293:
2294: OPEN c_hierarchy_node_check(l_act_metric_fact_rec.hierarchy_id,
2295: l_act_metric_fact_rec.node_id,
2296: l_act_metric_fact_rec.activity_metric_fact_id,
2307: CLOSE c_hierarchy_node_check;
2308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2309: FND_MESSAGE.set_name('OZF', 'OZF_METR_FACT_DUP_NODE_ID');
2310: FND_MSG_PUB.add;
2311: RAISE FND_API.g_exc_error;
2312: END IF;
2313: ELSE
2314: CLOSE c_hierarchy_node_check;
2315: END IF;
2316: END IF;
2317:
2318: EXCEPTION
2319: WHEN OTHERS THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END Check_ActMetricFact_Items;
2322:
2323:
2324: --
2356:
2357:
2358: BEGIN
2359:
2360: x_return_status := FND_API.g_ret_sts_success;
2361:
2362: IF l_act_metric_fact_rec.arc_act_metric_used_by <> FND_API.G_MISS_CHAR THEN
2363:
2364: IF l_act_metric_fact_rec.act_metric_used_by_id = FND_API.G_MISS_NUM THEN
2358: BEGIN
2359:
2360: x_return_status := FND_API.g_ret_sts_success;
2361:
2362: IF l_act_metric_fact_rec.arc_act_metric_used_by <> FND_API.G_MISS_CHAR THEN
2363:
2364: IF l_act_metric_fact_rec.act_metric_used_by_id = FND_API.G_MISS_NUM THEN
2365: l_act_metric_fact_rec.act_metric_used_by_id := p_complete_fact_rec.act_metric_used_by_id ;
2366: END IF;
2360: x_return_status := FND_API.g_ret_sts_success;
2361:
2362: IF l_act_metric_fact_rec.arc_act_metric_used_by <> FND_API.G_MISS_CHAR THEN
2363:
2364: IF l_act_metric_fact_rec.act_metric_used_by_id = FND_API.G_MISS_NUM THEN
2365: l_act_metric_fact_rec.act_metric_used_by_id := p_complete_fact_rec.act_metric_used_by_id ;
2366: END IF;
2367:
2368: IF l_act_metric_fact_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
2364: IF l_act_metric_fact_rec.act_metric_used_by_id = FND_API.G_MISS_NUM THEN
2365: l_act_metric_fact_rec.act_metric_used_by_id := p_complete_fact_rec.act_metric_used_by_id ;
2366: END IF;
2367:
2368: IF l_act_metric_fact_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
2369: l_act_metric_fact_rec.activity_metric_id := p_complete_fact_rec.activity_metric_id ;
2370: END IF;
2371:
2372: -- first Check whether the Metric is attached to same usage or not
2384: ,p_pk_name => l_pk_name
2385: ,p_pk_value => l_pk_value
2386: ,p_pk_data_type => l_pk_data_type
2387: ,p_additional_where_clause => l_additional_where_clause
2388: ) = FND_API.G_FALSE
2389: THEN
2390:
2391: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2392: THEN
2393: FND_MESSAGE.Set_Name('OZF', 'OZF_METR_INVALID_ACT_USAGE');
2394: FND_MSG_PUB.Add;
2395: END IF;
2396:
2397: x_return_status := FND_API.G_RET_STS_ERROR;
2398:
2399: RETURN;
2400:
2401: END IF; -- Check_FK_Exists
2422: ,p_pk_name => l_pk_name
2423: ,p_pk_value => l_pk_value
2424: ,p_pk_data_type => l_pk_data_type
2425: ,p_additional_where_clause => NULL
2426: ) = FND_API.G_FALSE
2427: THEN
2428: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2429: FND_MESSAGE.Set_Name ('OZF', 'OZF_METR_INVALID_USED_BY');
2430: FND_MSG_PUB.Add;
2429: FND_MESSAGE.Set_Name ('OZF', 'OZF_METR_INVALID_USED_BY');
2430: FND_MSG_PUB.Add;
2431: END IF;
2432:
2433: x_return_status := FND_API.G_RET_STS_ERROR;
2434: RETURN;
2435: END IF;
2436: */
2437:
2438: END IF;
2439:
2440: EXCEPTION
2441: WHEN OTHERS THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443:
2444:
2445: END Validate_ActMetFact_Rec;
2446:
2474: Check_Req_ActMetricFact_Items(
2475: p_act_metric_fact_rec => p_act_metric_fact_rec,
2476: x_return_status => x_return_status
2477: );
2478: IF x_return_status <> FND_API.g_ret_sts_success THEN
2479: RETURN;
2480: END IF;
2481:
2482:
2486: p_validation_mode => p_validation_mode,
2487: x_return_status => x_return_status
2488: );
2489:
2490: IF x_return_status <> FND_API.g_ret_sts_success THEN
2491: RETURN;
2492: END IF;
2493:
2494:
2497: p_act_metric_fact_rec => p_act_metric_fact_rec,
2498: x_return_status => x_return_status
2499: );
2500:
2501: IF x_return_status <> FND_API.g_ret_sts_success THEN
2502: RETURN;
2503: END IF;
2504:
2505: END Validate_ActMetFact_Items;
2519: --
2520: -- End of comments
2521:
2522: PROCEDURE Default_Formula(
2523: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2524: p_formula_rec IN ozf_formula_rec_type,
2525: p_validation_mode IN VARCHAR2 ,
2526: x_complete_rec OUT NOCOPY ozf_formula_rec_type,
2527: x_return_status OUT NOCOPY VARCHAR2,
2533: BEGIN
2534: --
2535: -- Initialize message list if p_init_msg_list is set to TRUE.
2536: --
2537: IF FND_API.To_Boolean (p_init_msg_list) THEN
2538: FND_MSG_PUB.Initialize;
2539: END IF;
2540:
2541: --
2540:
2541: --
2542: -- Initialize API return status to success.
2543: --
2544: x_return_status := FND_API.G_RET_STS_SUCCESS;
2545:
2546: x_complete_rec := p_formula_rec;
2547:
2548: -- Insert Mode
2568: --
2569: -- End of comments
2570:
2571: PROCEDURE Default_Formula_Entry(
2572: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2573: p_formula_entry_rec IN ozf_formula_entry_rec_type,
2574: p_validation_mode IN VARCHAR2 ,
2575: x_complete_entry_rec OUT NOCOPY ozf_formula_entry_rec_type,
2576: x_return_status OUT NOCOPY VARCHAR2,
2582: BEGIN
2583: --
2584: -- Initialize message list if p_init_msg_list is set to TRUE.
2585: --
2586: IF FND_API.To_Boolean (p_init_msg_list) THEN
2587: FND_MSG_PUB.Initialize;
2588: END IF;
2589:
2590: --
2589:
2590: --
2591: -- Initialize API return status to success.
2592: --
2593: x_return_status := FND_API.G_RET_STS_SUCCESS;
2594:
2595: x_complete_entry_rec := p_formula_entry_rec;
2596:
2597: -- Insert Mode
2625: )
2626: IS
2627: BEGIN
2628: -- Initialize return status to success.
2629: x_return_status := FND_API.G_RET_STS_SUCCESS;
2630:
2631:
2632: --ACTIVITY_METRIC_ID
2633:
2639: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_ACT_METRIC_ID');
2640: FND_MSG_PUB.Add;
2641: END IF;
2642:
2643: x_return_status := FND_API.G_RET_STS_ERROR;
2644:
2645: -- If any error happens abort API.
2646: RETURN;
2647: END IF;
2656: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_LEVEL_DEPTH');
2657: FND_MSG_PUB.Add;
2658: END IF;
2659:
2660: x_return_status := FND_API.G_RET_STS_ERROR;
2661:
2662: -- If any error happens abort API.
2663: RETURN;
2664: END IF;
2691: )
2692: IS
2693: BEGIN
2694: -- Initialize return status to success.
2695: x_return_status := FND_API.G_RET_STS_SUCCESS;
2696:
2697:
2698:
2699: --FORMULA_ID
2706: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_FORMULA_ID');
2707: FND_MSG_PUB.Add;
2708: END IF;
2709:
2710: x_return_status := FND_API.G_RET_STS_ERROR;
2711:
2712: -- If any error happens abort API.
2713: RETURN;
2714: END IF;
2722: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_ORDER_NUM');
2723: FND_MSG_PUB.Add;
2724: END IF;
2725:
2726: x_return_status := FND_API.G_RET_STS_ERROR;
2727:
2728: -- If any error happens abort API.
2729: RETURN;
2730: END IF;
2738: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_ENT_TYPE');
2739: FND_MSG_PUB.Add;
2740: END IF;
2741:
2742: x_return_status := FND_API.G_RET_STS_ERROR;
2743:
2744: -- If any error happens abort API.
2745: RETURN;
2746: END IF;
2754: FND_MESSAGE.Set_Name('OZF', 'OZF_FML_MISSING_OBJ_NUM');
2755: FND_MSG_PUB.Add;
2756: END IF;
2757:
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759:
2760: -- If any error happens abort API.
2761: RETURN;
2762: END IF;
2804:
2805:
2806: BEGIN
2807:
2808: x_return_status := FND_API.g_ret_sts_success;
2809:
2810: OPEN c_formula_type;
2811: FETCH c_formula_type INTO l_formula_count;
2812: CLOSE c_formula_type;
2816:
2817: FND_MESSAGE.set_name('OZF', 'OZF_FML_MAX_LEVEL');
2818: FND_MSG_PUB.add;
2819: END IF;
2820: x_return_status := FND_API.g_ret_sts_error;
2821: RETURN;
2822: END IF;
2823:
2824: END Check_Formula_Uk_Items;
2856:
2857:
2858: BEGIN
2859:
2860: x_return_status := FND_API.g_ret_sts_success;
2861:
2862: /*
2863: OPEN c_formula_entry_type;
2864: FETCH c_formula_entry_type INTO l_formula_entry_count;
2869:
2870: FND_MESSAGE.set_name('OZF', 'OZF_FML_ENT_DUP_ORDNUM');
2871: FND_MSG_PUB.add;
2872: END IF;
2873: x_return_status := FND_API.g_ret_sts_error;
2874: RETURN;
2875: END IF;
2876: */
2877: END Check_Formula_Entry_Uk_Items;
2905: l_return_status VARCHAR2(1);
2906:
2907: BEGIN
2908: -- Initialize return status to success.
2909: x_return_status := FND_API.G_RET_STS_SUCCESS;
2910:
2911: --FORMULA_TYPE
2912:
2913: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
2909: x_return_status := FND_API.G_RET_STS_SUCCESS;
2910:
2911: --FORMULA_TYPE
2912:
2913: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
2914:
2915:
2916: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_TYPE',
2917: p_lookup_code => l_formula_rec.formula_type) = FND_API.g_false THEN
2913: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
2914:
2915:
2916: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_TYPE',
2917: p_lookup_code => l_formula_rec.formula_type) = FND_API.g_false THEN
2918:
2919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2920: FND_MESSAGE.set_name('OZF', 'OZF_FML_INVALID_TYPE');
2921: FND_MSG_PUB.add;
2920: FND_MESSAGE.set_name('OZF', 'OZF_FML_INVALID_TYPE');
2921: FND_MSG_PUB.add;
2922: END IF;
2923:
2924: x_return_status := FND_API.g_ret_sts_error;
2925: RETURN;
2926: END IF;
2927: END IF;
2928:
2927: END IF;
2928:
2929: EXCEPTION
2930: WHEN OTHERS THEN
2931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2932: END Check_Formula_Items;
2933:
2934:
2935: --
2960:
2961: BEGIN
2962:
2963: -- Initialize return status to success.
2964: x_return_status := FND_API.G_RET_STS_SUCCESS;
2965:
2966: --FORMULA_ENTRY_TYPE
2967:
2968: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
2964: x_return_status := FND_API.G_RET_STS_SUCCESS;
2965:
2966: --FORMULA_ENTRY_TYPE
2967:
2968: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
2969:
2970:
2971: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_ENT_TYPE',
2972: p_lookup_code => l_formula_entry_rec.formula_entry_type) = FND_API.g_false THEN
2968: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
2969:
2970:
2971: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_ENT_TYPE',
2972: p_lookup_code => l_formula_entry_rec.formula_entry_type) = FND_API.g_false THEN
2973:
2974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2975: FND_MESSAGE.set_name('OZF', 'OZF_FML_ENT_INVALID_TYPE');
2976: FND_MSG_PUB.add;
2975: FND_MESSAGE.set_name('OZF', 'OZF_FML_ENT_INVALID_TYPE');
2976: FND_MSG_PUB.add;
2977: END IF;
2978:
2979: x_return_status := FND_API.g_ret_sts_error;
2980: RETURN;
2981: END IF;
2982: END IF;
2983:
2982: END IF;
2983:
2984: --OZF_FORMULA_OPERATORS
2985:
2986: IF l_formula_entry_rec.formula_entry_operator IS NOT NULL AND l_formula_entry_rec.formula_entry_operator <> FND_API.G_MISS_CHAR THEN
2987:
2988:
2989: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_OPERATOR',
2990: p_lookup_code => l_formula_entry_rec.formula_entry_operator) = FND_API.g_false THEN
2986: IF l_formula_entry_rec.formula_entry_operator IS NOT NULL AND l_formula_entry_rec.formula_entry_operator <> FND_API.G_MISS_CHAR THEN
2987:
2988:
2989: IF ozf_utility_pvt.check_lookup_exists(p_lookup_type => 'OZF_FORMULA_OPERATOR',
2990: p_lookup_code => l_formula_entry_rec.formula_entry_operator) = FND_API.g_false THEN
2991:
2992: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2993: FND_MESSAGE.set_name('OZF', 'OZF_FML_ENT_INVALID_OP');
2994: FND_MSG_PUB.add;
2993: FND_MESSAGE.set_name('OZF', 'OZF_FML_ENT_INVALID_OP');
2994: FND_MSG_PUB.add;
2995: END IF;
2996:
2997: x_return_status := FND_API.g_ret_sts_error;
2998: RETURN;
2999: END IF;
3000: END IF;
3001:
3000: END IF;
3001:
3002: EXCEPTION
3003: WHEN OTHERS THEN
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END Check_Formula_Entry_Items;
3006:
3007:
3008:
3034:
3035:
3036: BEGIN
3037:
3038: x_return_status := FND_API.g_ret_sts_success;
3039:
3040: IF (l_formula_rec.activity_metric_id <> FND_API.G_MISS_NUM) THEN
3041:
3042: IF ozf_utility_pvt.Check_FK_Exists (
3036: BEGIN
3037:
3038: x_return_status := FND_API.g_ret_sts_success;
3039:
3040: IF (l_formula_rec.activity_metric_id <> FND_API.G_MISS_NUM) THEN
3041:
3042: IF ozf_utility_pvt.Check_FK_Exists (
3043: p_table_name => 'OZF_ACT_METRICS_ALL'
3044: ,p_pk_name => 'ACTIVITY_METRIC_ID'
3044: ,p_pk_name => 'ACTIVITY_METRIC_ID'
3045: ,p_pk_value => l_formula_rec.activity_metric_id
3046: ,p_pk_data_type => NULL
3047: ,p_additional_where_clause => NULL
3048: ) = FND_API.G_FALSE
3049: THEN
3050: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3051: FND_MESSAGE.Set_Name ('OZF', 'OZF_FML_INVALID_ACT_METRIC');
3052: FND_MSG_PUB.Add;
3051: FND_MESSAGE.Set_Name ('OZF', 'OZF_FML_INVALID_ACT_METRIC');
3052: FND_MSG_PUB.Add;
3053: END IF;
3054:
3055: x_return_status := FND_API.G_RET_STS_ERROR;
3056: RETURN;
3057: END IF;
3058: END IF;
3059:
3058: END IF;
3059:
3060: EXCEPTION
3061: WHEN OTHERS THEN
3062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3063:
3064: END Validate_Formula_rec;
3065:
3066:
3092:
3093:
3094: BEGIN
3095:
3096: x_return_status := FND_API.g_ret_sts_success;
3097:
3098: IF (l_formula_entry_rec.formula_id <> FND_API.G_MISS_NUM) THEN
3099:
3100: IF ozf_utility_pvt.Check_FK_Exists (
3094: BEGIN
3095:
3096: x_return_status := FND_API.g_ret_sts_success;
3097:
3098: IF (l_formula_entry_rec.formula_id <> FND_API.G_MISS_NUM) THEN
3099:
3100: IF ozf_utility_pvt.Check_FK_Exists (
3101: p_table_name => 'OZF_ACT_METRIC_FORMULAS'
3102: ,p_pk_name => 'FORMULA_ID'
3102: ,p_pk_name => 'FORMULA_ID'
3103: ,p_pk_value => l_formula_entry_rec.formula_id
3104: ,p_pk_data_type => NULL
3105: ,p_additional_where_clause => NULL
3106: ) = FND_API.G_FALSE
3107: THEN
3108: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3109: FND_MESSAGE.Set_Name ('OZF', 'OZF_FML_INVALID_FORMULA_ID');
3110: FND_MSG_PUB.Add;
3109: FND_MESSAGE.Set_Name ('OZF', 'OZF_FML_INVALID_FORMULA_ID');
3110: FND_MSG_PUB.Add;
3111: END IF;
3112:
3113: x_return_status := FND_API.G_RET_STS_ERROR;
3114: RETURN;
3115: END IF;
3116: END IF;
3117:
3116: END IF;
3117:
3118: EXCEPTION
3119: WHEN OTHERS THEN
3120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3121:
3122: END Validate_Form_ent_rec;
3123:
3124:
3151: Check_Req_Formula_Items(
3152: p_formula_rec => p_formula_rec,
3153: x_return_status => x_return_status
3154: );
3155: IF x_return_status <> FND_API.g_ret_sts_success THEN
3156: RETURN;
3157: END IF;
3158:
3159:
3162: p_validation_mode => p_validation_mode,
3163: x_return_status => x_return_status
3164: );
3165:
3166: IF x_return_status <> FND_API.g_ret_sts_success THEN
3167: RETURN;
3168: END IF;
3169:
3170:
3172: p_formula_rec => p_formula_rec,
3173: x_return_status => x_return_status
3174: );
3175:
3176: IF x_return_status <> FND_API.g_ret_sts_success THEN
3177: RETURN;
3178: END IF;
3179:
3180: END Validate_Formula_Items;
3209: Check_Req_Formula_Entry_Items(
3210: p_formula_entry_rec => p_formula_entry_rec,
3211: x_return_status => x_return_status
3212: );
3213: IF x_return_status <> FND_API.g_ret_sts_success THEN
3214: RETURN;
3215: END IF;
3216:
3217:
3220: p_validation_mode => p_validation_mode,
3221: x_return_status => x_return_status
3222: );
3223:
3224: IF x_return_status <> FND_API.g_ret_sts_success THEN
3225: RETURN;
3226: END IF;
3227:
3228:
3230: p_formula_entry_rec => p_formula_entry_rec,
3231: x_return_status => x_return_status
3232: );
3233:
3234: IF x_return_status <> FND_API.g_ret_sts_success THEN
3235: RETURN;
3236: END IF;
3237:
3238: END Validate_Form_Ent_Items;
3254: --
3255: -- End of comments
3256: PROCEDURE Validate_Formula (
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3259: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3260:
3261: x_return_status OUT NOCOPY VARCHAR2,
3262: x_msg_count OUT NOCOPY NUMBER,
3255: -- End of comments
3256: PROCEDURE Validate_Formula (
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3259: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3260:
3261: x_return_status OUT NOCOPY VARCHAR2,
3262: x_msg_count OUT NOCOPY NUMBER,
3263: x_msg_data OUT NOCOPY VARCHAR2,
3282:
3283: --
3284: -- Initialize message list if p_init_msg_list is set to TRUE.
3285: --
3286: IF FND_API.To_Boolean (p_init_msg_list) THEN
3287: FND_MSG_PUB.Initialize;
3288: END IF;
3289:
3290: --
3289:
3290: --
3291: -- Standard check for API version compatibility.
3292: --
3293: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
3294: p_api_version,
3295: L_API_NAME,
3296: G_PKG_NAME)
3297: THEN
3294: p_api_version,
3295: L_API_NAME,
3296: G_PKG_NAME)
3297: THEN
3298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3299: END IF;
3300:
3301: --
3302: -- Initialize API return status to success.
3300:
3301: --
3302: -- Initialize API return status to success.
3303: --
3304: x_return_status := FND_API.G_RET_STS_SUCCESS;
3305:
3306: --
3307: -- Begin API Body.
3308: --
3320: x_return_status => l_return_status
3321: );
3322:
3323: -- If any errors happen abort API.
3324: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3321: );
3322:
3323: -- If any errors happen abort API.
3324: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: END IF;
3322:
3323: -- If any errors happen abort API.
3324: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: END IF;
3330:
3323: -- If any errors happen abort API.
3324: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3327: RAISE FND_API.G_EXC_ERROR;
3328: END IF;
3329: END IF;
3330:
3331: IF G_DEBUG THEN
3338: p_complete_formula_rec => NULL,
3339: x_return_status => l_return_status
3340: );
3341:
3342: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: IF G_DEBUG THEN
3344: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3345: END IF;
3346: RAISE FND_API.g_exc_unexpected_error;
3342: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: IF G_DEBUG THEN
3344: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3345: END IF;
3346: RAISE FND_API.g_exc_unexpected_error;
3347: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3348: IF G_DEBUG THEN
3349: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3350: END IF;
3343: IF G_DEBUG THEN
3344: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3345: END IF;
3346: RAISE FND_API.g_exc_unexpected_error;
3347: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3348: IF G_DEBUG THEN
3349: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3350: END IF;
3351: RAISE FND_API.g_exc_error;
3347: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3348: IF G_DEBUG THEN
3349: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3350: END IF;
3351: RAISE FND_API.g_exc_error;
3352: END IF;
3353: END IF;
3354:
3355: IF G_DEBUG THEN
3367: --
3368: FND_MSG_PUB.Count_And_Get (
3369: p_count => x_msg_count,
3370: p_data => x_msg_data,
3371: p_encoded => FND_API.G_FALSE
3372: );
3373:
3374: IF G_DEBUG THEN
3375: ozf_utility_pvt.debug_message(l_full_name ||': end');
3376: END IF;
3377:
3378:
3379: EXCEPTION
3380: WHEN FND_API.G_EXC_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_ERROR;
3382: FND_MSG_PUB.Count_And_Get (
3383: p_count => x_msg_count,
3384: p_data => x_msg_data
3377:
3378:
3379: EXCEPTION
3380: WHEN FND_API.G_EXC_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_ERROR;
3382: FND_MSG_PUB.Count_And_Get (
3383: p_count => x_msg_count,
3384: p_data => x_msg_data
3385: );
3382: FND_MSG_PUB.Count_And_Get (
3383: p_count => x_msg_count,
3384: p_data => x_msg_data
3385: );
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: FND_MSG_PUB.Count_And_Get (
3389: p_count => x_msg_count,
3390: p_data => x_msg_data
3383: p_count => x_msg_count,
3384: p_data => x_msg_data
3385: );
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3388: FND_MSG_PUB.Count_And_Get (
3389: p_count => x_msg_count,
3390: p_data => x_msg_data
3391: );
3389: p_count => x_msg_count,
3390: p_data => x_msg_data
3391: );
3392: WHEN OTHERS THEN
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3394: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3395: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3396: END IF;
3397: FND_MSG_PUB.Count_And_Get (
3416: --
3417: -- End of comments
3418: PROCEDURE Validate_Formula_Entry (
3419: p_api_version IN NUMBER,
3420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3421: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3422:
3423: x_return_status OUT NOCOPY VARCHAR2,
3424: x_msg_count OUT NOCOPY NUMBER,
3417: -- End of comments
3418: PROCEDURE Validate_Formula_Entry (
3419: p_api_version IN NUMBER,
3420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3421: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3422:
3423: x_return_status OUT NOCOPY VARCHAR2,
3424: x_msg_count OUT NOCOPY NUMBER,
3425: x_msg_data OUT NOCOPY VARCHAR2,
3444:
3445: --
3446: -- Initialize message list if p_init_msg_list is set to TRUE.
3447: --
3448: IF FND_API.To_Boolean (p_init_msg_list) THEN
3449: FND_MSG_PUB.Initialize;
3450: END IF;
3451:
3452: --
3451:
3452: --
3453: -- Standard check for API version compatibility.
3454: --
3455: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
3456: p_api_version,
3457: L_API_NAME,
3458: G_PKG_NAME)
3459: THEN
3456: p_api_version,
3457: L_API_NAME,
3458: G_PKG_NAME)
3459: THEN
3460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3461: END IF;
3462:
3463: --
3464: -- Initialize API return status to success.
3462:
3463: --
3464: -- Initialize API return status to success.
3465: --
3466: x_return_status := FND_API.G_RET_STS_SUCCESS;
3467:
3468: --
3469: -- Begin API Body.
3470: --
3482: x_return_status => l_return_status
3483: );
3484:
3485: -- If any errors happen abort API.
3486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3483: );
3484:
3485: -- If any errors happen abort API.
3486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491: END IF;
3484:
3485: -- If any errors happen abort API.
3486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491: END IF;
3492:
3485: -- If any errors happen abort API.
3486: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491: END IF;
3492:
3493: IF G_DEBUG THEN
3500: p_complete_formula_entry_rec => NULL,
3501: x_return_status => l_return_status
3502: );
3503:
3504: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: IF G_DEBUG THEN
3506: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3507: END IF;
3508: RAISE FND_API.g_exc_unexpected_error;
3504: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: IF G_DEBUG THEN
3506: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3507: END IF;
3508: RAISE FND_API.g_exc_unexpected_error;
3509: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3510: IF G_DEBUG THEN
3511: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3512: END IF;
3505: IF G_DEBUG THEN
3506: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3507: END IF;
3508: RAISE FND_API.g_exc_unexpected_error;
3509: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3510: IF G_DEBUG THEN
3511: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3512: END IF;
3513: RAISE FND_API.g_exc_error;
3509: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
3510: IF G_DEBUG THEN
3511: ozf_utility_pvt.debug_message(l_full_name||': error in check record');
3512: END IF;
3513: RAISE FND_API.g_exc_error;
3514: END IF;
3515: END IF;
3516:
3517: IF G_DEBUG THEN
3529: --
3530: FND_MSG_PUB.Count_And_Get (
3531: p_count => x_msg_count,
3532: p_data => x_msg_data,
3533: p_encoded => FND_API.G_FALSE
3534: );
3535:
3536: IF G_DEBUG THEN
3537: ozf_utility_pvt.debug_message(l_full_name ||': end');
3538: END IF;
3539:
3540:
3541: EXCEPTION
3542: WHEN FND_API.G_EXC_ERROR THEN
3543: x_return_status := FND_API.G_RET_STS_ERROR;
3544: FND_MSG_PUB.Count_And_Get (
3545: p_count => x_msg_count,
3546: p_data => x_msg_data
3539:
3540:
3541: EXCEPTION
3542: WHEN FND_API.G_EXC_ERROR THEN
3543: x_return_status := FND_API.G_RET_STS_ERROR;
3544: FND_MSG_PUB.Count_And_Get (
3545: p_count => x_msg_count,
3546: p_data => x_msg_data
3547: );
3544: FND_MSG_PUB.Count_And_Get (
3545: p_count => x_msg_count,
3546: p_data => x_msg_data
3547: );
3548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3550: FND_MSG_PUB.Count_And_Get (
3551: p_count => x_msg_count,
3552: p_data => x_msg_data
3545: p_count => x_msg_count,
3546: p_data => x_msg_data
3547: );
3548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3550: FND_MSG_PUB.Count_And_Get (
3551: p_count => x_msg_count,
3552: p_data => x_msg_data
3553: );
3551: p_count => x_msg_count,
3552: p_data => x_msg_data
3553: );
3554: WHEN OTHERS THEN
3555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3556: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3557: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3558: END IF;
3559: FND_MSG_PUB.Count_And_Get (
3582: -- End of comments
3583: -------------------------------------------------------------------------------
3584: PROCEDURE Create_Formula (
3585: p_api_version IN NUMBER,
3586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3588: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3589:
3590: x_return_status OUT NOCOPY VARCHAR2,
3583: -------------------------------------------------------------------------------
3584: PROCEDURE Create_Formula (
3585: p_api_version IN NUMBER,
3586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3588: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3589:
3590: x_return_status OUT NOCOPY VARCHAR2,
3591: x_msg_count OUT NOCOPY NUMBER,
3584: PROCEDURE Create_Formula (
3585: p_api_version IN NUMBER,
3586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3588: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3589:
3590: x_return_status OUT NOCOPY VARCHAR2,
3591: x_msg_count OUT NOCOPY NUMBER,
3592: x_msg_data OUT NOCOPY VARCHAR2,
3630:
3631: --
3632: -- Initialize message list if p_init_msg_list is set to TRUE.
3633: --
3634: IF FND_API.To_Boolean (p_init_msg_list) THEN
3635: FND_MSG_PUB.Initialize;
3636: END IF;
3637:
3638: --
3637:
3638: --
3639: -- Standard check for API version compatibility.
3640: --
3641: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
3642: p_api_version,
3643: L_API_NAME,
3644: G_PKG_NAME)
3645: THEN
3642: p_api_version,
3643: L_API_NAME,
3644: G_PKG_NAME)
3645: THEN
3646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3647: END IF;
3648:
3649: --
3650: -- Initialize API return status to success.
3648:
3649: --
3650: -- Initialize API return status to success.
3651: --
3652: x_return_status := FND_API.G_RET_STS_SUCCESS;
3653:
3654: --
3655: -- Begin API Body.
3656: --
3666:
3667:
3668:
3669: -- If any errors happen abort API.
3670: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3674: END IF;
3667:
3668:
3669: -- If any errors happen abort API.
3670: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3674: END IF;
3675:
3668:
3669: -- If any errors happen abort API.
3670: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3674: END IF;
3675:
3676:
3669: -- If any errors happen abort API.
3670: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3674: END IF;
3675:
3676:
3677:
3708: p_formula_rec => l_formula_rec
3709: );
3710:
3711: -- If any errors happen abort API.
3712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3713: RAISE FND_API.G_EXC_ERROR;
3714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716: END IF;
3709: );
3710:
3711: -- If any errors happen abort API.
3712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3713: RAISE FND_API.G_EXC_ERROR;
3714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716: END IF;
3717:
3710:
3711: -- If any errors happen abort API.
3712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3713: RAISE FND_API.G_EXC_ERROR;
3714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716: END IF;
3717:
3718:
3711: -- If any errors happen abort API.
3712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3713: RAISE FND_API.G_EXC_ERROR;
3714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716: END IF;
3717:
3718:
3719: --
3756: );
3757:
3758:
3759: -- If any errors happen abort API.
3760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3761: RAISE FND_API.G_EXC_ERROR;
3762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3764: END IF;
3757:
3758:
3759: -- If any errors happen abort API.
3760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3761: RAISE FND_API.G_EXC_ERROR;
3762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3764: END IF;
3765:
3758:
3759: -- If any errors happen abort API.
3760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3761: RAISE FND_API.G_EXC_ERROR;
3762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3764: END IF;
3765:
3766:
3759: -- If any errors happen abort API.
3760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3761: RAISE FND_API.G_EXC_ERROR;
3762: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3764: END IF;
3765:
3766:
3767: -- finish
3777:
3778: --
3779: -- Standard check for commit request.
3780: --
3781: IF FND_API.To_Boolean (p_commit) THEN
3782: COMMIT WORK;
3783: END IF;
3784:
3785: --
3788: --
3789: FND_MSG_PUB.Count_And_Get (
3790: p_count => x_msg_count,
3791: p_data => x_msg_data,
3792: p_encoded => FND_API.G_FALSE
3793: );
3794:
3795: --
3796: -- Add success message to message list.
3803:
3804:
3805:
3806: EXCEPTION
3807: WHEN FND_API.G_EXC_ERROR THEN
3808:
3809:
3810: ROLLBACK TO Create_Formula_Pvt;
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3807: WHEN FND_API.G_EXC_ERROR THEN
3808:
3809:
3810: ROLLBACK TO Create_Formula_Pvt;
3811: x_return_status := FND_API.G_RET_STS_ERROR;
3812: FND_MSG_PUB.Count_And_Get (
3813: p_count => x_msg_count,
3814: p_data => x_msg_data
3815: );
3812: FND_MSG_PUB.Count_And_Get (
3813: p_count => x_msg_count,
3814: p_data => x_msg_data
3815: );
3816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3817:
3818:
3819:
3820: ROLLBACK TO Create_Formula_Pvt;
3817:
3818:
3819:
3820: ROLLBACK TO Create_Formula_Pvt;
3821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3822: FND_MSG_PUB.Count_And_Get (
3823: p_count => x_msg_count,
3824: p_data => x_msg_data
3825: );
3826: WHEN OTHERS THEN
3827:
3828:
3829: ROLLBACK TO Create_Formula_Pvt;
3830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3832: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3833: END IF;
3834: FND_MSG_PUB.Count_And_Get (
3858: -- End of comments
3859: -------------------------------------------------------------------------------
3860: PROCEDURE Create_Formula_Entry (
3861: p_api_version IN NUMBER,
3862: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3863: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3864: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3865:
3866: x_return_status OUT NOCOPY VARCHAR2,
3859: -------------------------------------------------------------------------------
3860: PROCEDURE Create_Formula_Entry (
3861: p_api_version IN NUMBER,
3862: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3863: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3864: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3865:
3866: x_return_status OUT NOCOPY VARCHAR2,
3867: x_msg_count OUT NOCOPY NUMBER,
3860: PROCEDURE Create_Formula_Entry (
3861: p_api_version IN NUMBER,
3862: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3863: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3864: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
3865:
3866: x_return_status OUT NOCOPY VARCHAR2,
3867: x_msg_count OUT NOCOPY NUMBER,
3868: x_msg_data OUT NOCOPY VARCHAR2,
3906:
3907: --
3908: -- Initialize message list if p_init_msg_list is set to TRUE.
3909: --
3910: IF FND_API.To_Boolean (p_init_msg_list) THEN
3911: FND_MSG_PUB.Initialize;
3912: END IF;
3913:
3914: --
3913:
3914: --
3915: -- Standard check for API version compatibility.
3916: --
3917: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
3918: p_api_version,
3919: L_API_NAME,
3920: G_PKG_NAME)
3921: THEN
3918: p_api_version,
3919: L_API_NAME,
3920: G_PKG_NAME)
3921: THEN
3922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3923: END IF;
3924:
3925: --
3926: -- Initialize API return status to success.
3924:
3925: --
3926: -- Initialize API return status to success.
3927: --
3928: x_return_status := FND_API.G_RET_STS_SUCCESS;
3929:
3930: --
3931: -- Begin API Body.
3932: --
3942:
3943:
3944:
3945: -- If any errors happen abort API.
3946: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3947: RAISE FND_API.G_EXC_ERROR;
3948: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3950: END IF;
3943:
3944:
3945: -- If any errors happen abort API.
3946: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3947: RAISE FND_API.G_EXC_ERROR;
3948: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3950: END IF;
3951:
3944:
3945: -- If any errors happen abort API.
3946: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3947: RAISE FND_API.G_EXC_ERROR;
3948: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3950: END IF;
3951:
3952:
3945: -- If any errors happen abort API.
3946: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3947: RAISE FND_API.G_EXC_ERROR;
3948: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3950: END IF;
3951:
3952:
3953:
3984: p_formula_entry_rec => l_formula_entry_rec
3985: );
3986:
3987: -- If any errors happen abort API.
3988: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3989: RAISE FND_API.G_EXC_ERROR;
3990: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
3985: );
3986:
3987: -- If any errors happen abort API.
3988: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3989: RAISE FND_API.G_EXC_ERROR;
3990: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
3993:
3986:
3987: -- If any errors happen abort API.
3988: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3989: RAISE FND_API.G_EXC_ERROR;
3990: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
3993:
3994:
3987: -- If any errors happen abort API.
3988: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3989: RAISE FND_API.G_EXC_ERROR;
3990: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3992: END IF;
3993:
3994:
3995: --
4036: );
4037:
4038:
4039: -- If any errors happen abort API.
4040: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4041: RAISE FND_API.G_EXC_ERROR;
4042: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4044: END IF;
4037:
4038:
4039: -- If any errors happen abort API.
4040: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4041: RAISE FND_API.G_EXC_ERROR;
4042: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4044: END IF;
4045:
4038:
4039: -- If any errors happen abort API.
4040: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4041: RAISE FND_API.G_EXC_ERROR;
4042: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4044: END IF;
4045:
4046:
4039: -- If any errors happen abort API.
4040: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4041: RAISE FND_API.G_EXC_ERROR;
4042: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4044: END IF;
4045:
4046:
4047: -- finish
4057:
4058: --
4059: -- Standard check for commit request.
4060: --
4061: IF FND_API.To_Boolean (p_commit) THEN
4062: COMMIT WORK;
4063: END IF;
4064:
4065: --
4068: --
4069: FND_MSG_PUB.Count_And_Get (
4070: p_count => x_msg_count,
4071: p_data => x_msg_data,
4072: p_encoded => FND_API.G_FALSE
4073: );
4074:
4075: --
4076: -- Add success message to message list.
4083:
4084:
4085:
4086: EXCEPTION
4087: WHEN FND_API.G_EXC_ERROR THEN
4088:
4089:
4090: ROLLBACK TO Create_Formula_Entry_Pvt;
4091: x_return_status := FND_API.G_RET_STS_ERROR;
4087: WHEN FND_API.G_EXC_ERROR THEN
4088:
4089:
4090: ROLLBACK TO Create_Formula_Entry_Pvt;
4091: x_return_status := FND_API.G_RET_STS_ERROR;
4092: FND_MSG_PUB.Count_And_Get (
4093: p_count => x_msg_count,
4094: p_data => x_msg_data
4095: );
4092: FND_MSG_PUB.Count_And_Get (
4093: p_count => x_msg_count,
4094: p_data => x_msg_data
4095: );
4096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4097:
4098:
4099:
4100: ROLLBACK TO Create_Formula_Entry_Pvt;
4097:
4098:
4099:
4100: ROLLBACK TO Create_Formula_Entry_Pvt;
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: FND_MSG_PUB.Count_And_Get (
4103: p_count => x_msg_count,
4104: p_data => x_msg_data
4105: );
4106: WHEN OTHERS THEN
4107:
4108:
4109: ROLLBACK TO Create_Formula_Entry_Pvt;
4110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4111: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4112: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4113: END IF;
4114: FND_MSG_PUB.Count_And_Get (
4135: -- End of comments
4136:
4137: PROCEDURE Delete_Formula (
4138: p_api_version IN NUMBER,
4139: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4140: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4141:
4142: x_return_status OUT NOCOPY VARCHAR2,
4143: x_msg_count OUT NOCOPY NUMBER,
4136:
4137: PROCEDURE Delete_Formula (
4138: p_api_version IN NUMBER,
4139: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4140: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4141:
4142: x_return_status OUT NOCOPY VARCHAR2,
4143: x_msg_count OUT NOCOPY NUMBER,
4144: x_msg_data OUT NOCOPY VARCHAR2,
4168:
4169: --
4170: -- Initialize message list if p_init_msg_list is set to TRUE.
4171: --
4172: IF FND_API.To_Boolean (p_init_msg_list) THEN
4173: FND_MSG_PUB.Initialize;
4174: END IF;
4175:
4176: --
4175:
4176: --
4177: -- Standard check for API version compatibility.
4178: --
4179: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
4180: p_api_version,
4181: L_API_NAME,
4182: G_PKG_NAME)
4183: THEN
4180: p_api_version,
4181: L_API_NAME,
4182: G_PKG_NAME)
4183: THEN
4184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4185: END IF;
4186:
4187: --
4188: -- Initialize API return status to success.
4186:
4187: --
4188: -- Initialize API return status to success.
4189: --
4190: x_return_status := FND_API.G_RET_STS_SUCCESS;
4191:
4192: --
4193: -- Begin API Body.
4194: --
4212: THEN
4213:
4214: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4215: FND_MSG_PUB.add;
4216: RAISE FND_API.g_exc_error;
4217: END IF;
4218: END IF;
4219:
4220: DELETE
4224: --
4225: -- End API Body.
4226: --
4227:
4228: IF FND_API.To_Boolean (p_commit) THEN
4229: COMMIT WORK;
4230: END IF;
4231:
4232: --
4243: --
4244: FND_MSG_PUB.Count_And_Get (
4245: p_count => x_msg_count,
4246: p_data => x_msg_data,
4247: p_encoded => FND_API.G_FALSE
4248: );
4249:
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4247: p_encoded => FND_API.G_FALSE
4248: );
4249:
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4252: ROLLBACK TO Delete_Formula_pvt;
4253: x_return_status := FND_API.G_RET_STS_ERROR;
4254: FND_MSG_PUB.Count_And_Get (
4255: p_count => x_msg_count,
4249:
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4252: ROLLBACK TO Delete_Formula_pvt;
4253: x_return_status := FND_API.G_RET_STS_ERROR;
4254: FND_MSG_PUB.Count_And_Get (
4255: p_count => x_msg_count,
4256: p_data => x_msg_data
4257: );
4254: FND_MSG_PUB.Count_And_Get (
4255: p_count => x_msg_count,
4256: p_data => x_msg_data
4257: );
4258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4259: ROLLBACK TO Delete_Formula_pvt;
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: FND_MSG_PUB.Count_And_Get (
4262: p_count => x_msg_count,
4256: p_data => x_msg_data
4257: );
4258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4259: ROLLBACK TO Delete_Formula_pvt;
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: FND_MSG_PUB.Count_And_Get (
4262: p_count => x_msg_count,
4263: p_data => x_msg_data
4264: );
4263: p_data => x_msg_data
4264: );
4265: WHEN OTHERS THEN
4266: ROLLBACK TO Delete_Formula_pvt;
4267: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4268: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4269: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
4270: END IF;
4271: FND_MSG_PUB.Count_And_Get (