16:
17:
18: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Fundthreshold_PVT';
19: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvthrb.pls';
20: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
21: -----------------------------------------------------------------------
22: -- PROCEDURE
23: -- check_threshold_calendar
24: --
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE.
216: IF FND_API.to_Boolean( p_init_msg_list )
217: THEN
218: FND_MSG_PUB.initialize;
219: END IF;
220:
221: -- Debug Message
222: IF G_DEBUG THEN
375: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end' || x_threshold_id);
376: END IF;
377:
378: -- Standard call to get message count and if count is 1, get message info.
379: FND_MSG_PUB.Count_And_Get
380: (p_count => x_msg_count,
381: p_data => x_msg_data
382: );
383: EXCEPTION
389: WHEN FND_API.G_EXC_ERROR THEN
390: ROLLBACK TO CREATE_Threshold_PVT;
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: -- Standard call to get message count and if count=1, get the message
393: FND_MSG_PUB.Count_And_Get (
394: p_encoded => FND_API.G_FALSE,
395: p_count => x_msg_count,
396: p_data => x_msg_data
397: );
399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400: ROLLBACK TO CREATE_Threshold_PVT;
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
408:
409: WHEN OTHERS THEN
410: ROLLBACK TO CREATE_Threshold_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
415: END IF;
416: -- Standard call to get message count and if count=1, get the message
410: ROLLBACK TO CREATE_Threshold_PVT;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
415: END IF;
416: -- Standard call to get message count and if count=1, get the message
417: FND_MSG_PUB.Count_And_Get (
418: p_encoded => FND_API.G_FALSE,
413: THEN
414: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
415: END IF;
416: -- Standard call to get message count and if count=1, get the message
417: FND_MSG_PUB.Count_And_Get (
418: p_encoded => FND_API.G_FALSE,
419: p_count => x_msg_count,
420: p_data => x_msg_data
421: );
470:
471: -- Initialize message list if p_init_msg_list is set to TRUE.
472: IF FND_API.to_Boolean( p_init_msg_list )
473: THEN
474: FND_MSG_PUB.initialize;
475: END IF;
476:
477: -- Debug Message
478: IF G_DEBUG THEN
638: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
639: END IF;
640:
641: -- Standard call to get message count and if count is 1, get message info.
642: FND_MSG_PUB.Count_And_Get
643: (p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646: EXCEPTION
652: WHEN FND_API.G_EXC_ERROR THEN
653: ROLLBACK TO UPDATE_Threshold_PVT;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: -- Standard call to get message count and if count=1, get the message
656: FND_MSG_PUB.Count_And_Get (
657: p_encoded => FND_API.G_FALSE,
658: p_count => x_msg_count,
659: p_data => x_msg_data
660: );
662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
663: ROLLBACK TO UPDATE_Threshold_PVT;
664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
665: -- Standard call to get message count and if count=1, get the message
666: FND_MSG_PUB.Count_And_Get (
667: p_encoded => FND_API.G_FALSE,
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671:
672: WHEN OTHERS THEN
673: ROLLBACK TO UPDATE_Threshold_PVT;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
676: THEN
677: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
678: END IF;
679: -- Standard call to get message count and if count=1, get the message
673: ROLLBACK TO UPDATE_Threshold_PVT;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
675: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
676: THEN
677: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
678: END IF;
679: -- Standard call to get message count and if count=1, get the message
680: FND_MSG_PUB.Count_And_Get (
681: p_encoded => FND_API.G_FALSE,
676: THEN
677: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
678: END IF;
679: -- Standard call to get message count and if count=1, get the message
680: FND_MSG_PUB.Count_And_Get (
681: p_encoded => FND_API.G_FALSE,
682: p_count => x_msg_count,
683: p_data => x_msg_data
684: );
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list )
720: THEN
721: FND_MSG_PUB.initialize;
722: END IF;
723:
724: -- Debug Message
725: IF G_DEBUG THEN
757: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
758: END IF;
759:
760: -- Standard call to get message count and if count is 1, get message info.
761: FND_MSG_PUB.Count_And_Get
762: (p_count => x_msg_count,
763: p_data => x_msg_data
764: );
765: EXCEPTION
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO DELETE_Threshold_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO DELETE_Threshold_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO DELETE_Threshold_PVT;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
792: ROLLBACK TO DELETE_Threshold_PVT;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
843: THEN
844: FND_MSG_PUB.initialize;
845: END IF;
846:
847: -- Standard call to check for call compatibility.
848: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
868: FETCH c_Threshold INTO l_THRESHOLD_ID;
869:
870: IF (c_Threshold%NOTFOUND) THEN
871: CLOSE c_Threshold;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
874: FND_MSG_PUB.add;
875: END IF;
876: RAISE FND_API.g_exc_error;
870: IF (c_Threshold%NOTFOUND) THEN
871: CLOSE c_Threshold;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
874: FND_MSG_PUB.add;
875: END IF;
876: RAISE FND_API.g_exc_error;
877: END IF;
878:
878:
879: CLOSE c_Threshold;
880:
881: -------------------- finish --------------------------
882: FND_MSG_PUB.count_and_get(
883: p_encoded => FND_API.g_false,
884: p_count => x_msg_count,
885: p_data => x_msg_data);
886: IF G_DEBUG THEN
895: WHEN FND_API.G_EXC_ERROR THEN
896: ROLLBACK TO LOCK_Threshold_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: -- Standard call to get message count and if count=1, get the message
899: FND_MSG_PUB.Count_And_Get (
900: p_encoded => FND_API.G_FALSE,
901: p_count => x_msg_count,
902: p_data => x_msg_data
903: );
905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: ROLLBACK TO LOCK_Threshold_PVT;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: -- Standard call to get message count and if count=1, get the message
909: FND_MSG_PUB.Count_And_Get (
910: p_encoded => FND_API.G_FALSE,
911: p_count => x_msg_count,
912: p_data => x_msg_data
913: );
914:
915: WHEN OTHERS THEN
916: ROLLBACK TO LOCK_Threshold_PVT;
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
919: THEN
920: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
921: END IF;
922: -- Standard call to get message count and if count=1, get the message
916: ROLLBACK TO LOCK_Threshold_PVT;
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
919: THEN
920: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
921: END IF;
922: -- Standard call to get message count and if count=1, get the message
923: FND_MSG_PUB.Count_And_Get (
924: p_encoded => FND_API.G_FALSE,
919: THEN
920: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
921: END IF;
922: -- Standard call to get message count and if count=1, get the message
923: FND_MSG_PUB.Count_And_Get (
924: p_encoded => FND_API.G_FALSE,
925: p_count => x_msg_count,
926: p_data => x_msg_data
927: );
1487:
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1489: IF FND_API.to_Boolean( p_init_msg_list )
1490: THEN
1491: FND_MSG_PUB.initialize;
1492: END IF;
1493: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1494: Check_threshold_Items(
1495: p_threshold_rec => p_threshold_rec,
1536: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1537: END IF;
1538:
1539: -- Standard call to get message count and if count is 1, get message info.
1540: FND_MSG_PUB.Count_And_Get
1541: (p_count => x_msg_count,
1542: p_data => x_msg_data
1543: );
1544: EXCEPTION
1550: WHEN FND_API.G_EXC_ERROR THEN
1551: ROLLBACK TO VALIDATE_Threshold_;
1552: x_return_status := FND_API.G_RET_STS_ERROR;
1553: -- Standard call to get message count and if count=1, get the message
1554: FND_MSG_PUB.Count_And_Get (
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1561: ROLLBACK TO VALIDATE_Threshold_;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: -- Standard call to get message count and if count=1, get the message
1564: FND_MSG_PUB.Count_And_Get (
1565: p_encoded => FND_API.G_FALSE,
1566: p_count => x_msg_count,
1567: p_data => x_msg_data
1568: );
1569:
1570: WHEN OTHERS THEN
1571: ROLLBACK TO VALIDATE_Threshold_;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1574: THEN
1575: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1576: END IF;
1577: -- Standard call to get message count and if count=1, get the message
1571: ROLLBACK TO VALIDATE_Threshold_;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1574: THEN
1575: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1576: END IF;
1577: -- Standard call to get message count and if count=1, get the message
1578: FND_MSG_PUB.Count_And_Get (
1579: p_encoded => FND_API.G_FALSE,
1574: THEN
1575: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1576: END IF;
1577: -- Standard call to get message count and if count=1, get the message
1578: FND_MSG_PUB.Count_And_Get (
1579: p_encoded => FND_API.G_FALSE,
1580: p_count => x_msg_count,
1581: p_data => x_msg_data
1582: );
1596: BEGIN
1597: -- Initialize message list if p_init_msg_list is set to TRUE.
1598: IF FND_API.to_Boolean( p_init_msg_list )
1599: THEN
1600: FND_MSG_PUB.initialize;
1601: END IF;
1602:
1603: -- Initialize API return status to SUCCESS
1604: x_return_status := FND_API.G_RET_STS_SUCCESS;
1628: IF G_DEBUG THEN
1629: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1630: END IF;
1631: -- Standard call to get message count and if count is 1, get message info.
1632: FND_MSG_PUB.Count_And_Get
1633: (p_count => x_msg_count,
1634: p_data => x_msg_data
1635: );
1636: END Validate_threshold_Rec;