140: where amut.user_id = p_user_id
141: and amut.stock_id = amst.stock_id;
142:
143: BEGIN
144: IF p_user_id = FND_API.G_MISS_NUM OR
145: p_user_id IS NULL THEN
146: l_rec_num := null;
147: --RAISE;
148: ELSE
329: SELECT amv_user_ticker_s.nextval
330: FROM dual;
331:
332: BEGIN
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334: FOR i in 1..p_symbols_array.count LOOP
335: l_symbol := p_symbols_array(i);
336: -- get stock id's
337: OPEN Get_StockId;
375: END;
376: --
377: l_stock_id := null;
378: ELSE
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: END IF;
381: END LOOP;
382: --
383:
457: -- Function : Returns the list of tickers for an user
458: -- Parameters :
459: -- IN p_api_version IN NUMBER Required
460: -- p_init_msg_list IN VARCHAR2 Optional
461: -- Default = FND_API.G_FALSE
462: -- p_validation_level IN NUMBER Optional
463: -- Default = FND_API.G_VALID_LEVEL_FULL
464: -- p_user_id IN NUMBER Required
465: -- p_sort_order IN VARCHAR2 Optional
459: -- IN p_api_version IN NUMBER Required
460: -- p_init_msg_list IN VARCHAR2 Optional
461: -- Default = FND_API.G_FALSE
462: -- p_validation_level IN NUMBER Optional
463: -- Default = FND_API.G_VALID_LEVEL_FULL
464: -- p_user_id IN NUMBER Required
465: -- p_sort_order IN VARCHAR2 Optional
466: -- OUT NOCOPY : x_return_status OUT NOCOPY VARCHAR2
467: -- x_msg_count OUT NOCOPY NUMBER
475: -- End of comments
476: --
477: PROCEDURE Get_UserTicker
478: ( p_api_version IN NUMBER,
479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
481: x_return_status OUT NOCOPY VARCHAR2,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
476: --
477: PROCEDURE Get_UserTicker
478: ( p_api_version IN NUMBER,
479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
481: x_return_status OUT NOCOPY VARCHAR2,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
484: p_user_id IN NUMBER,
481: x_return_status OUT NOCOPY VARCHAR2,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
484: p_user_id IN NUMBER,
485: p_distinct_stocks IN VARCHAR2 := FND_API.G_FALSE,
486: p_sort_order IN VARCHAR2 := FND_API.G_MISS_CHAR,
487: x_stkpr_array OUT NOCOPY AMV_STK_VARRAY_TYPE
488: )
489: IS
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
484: p_user_id IN NUMBER,
485: p_distinct_stocks IN VARCHAR2 := FND_API.G_FALSE,
486: p_sort_order IN VARCHAR2 := FND_API.G_MISS_CHAR,
487: x_stkpr_array OUT NOCOPY AMV_STK_VARRAY_TYPE
488: )
489: IS
490: l_api_name CONSTANT VARCHAR2(30) := 'Get_UserTicker';
547: BEGIN
548: -- Standard begin of API savepoint
549: SAVEPOINT Get_UserTicker;
550: -- Standard call to check for call compatibility.
551: IF NOT FND_API.Compatible_API_Call (
552: l_api_version,
553: p_api_version,
554: l_api_name,
555: G_PKG_NAME)
553: p_api_version,
554: l_api_name,
555: G_PKG_NAME)
556: THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559: -- Debug Message
560: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
561: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
562: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
563: FND_MSG_PUB.Add;
564: END IF;
565: --Initialize message list if p_init_msg_list is TRUE.
566: IF FND_API.To_Boolean (p_init_msg_list) THEN
567: FND_MSG_PUB.initialize;
568: END IF;
569: -- Initialize API return status to sucess
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
566: IF FND_API.To_Boolean (p_init_msg_list) THEN
567: FND_MSG_PUB.initialize;
568: END IF;
569: -- Initialize API return status to sucess
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572: --
573: --IF Is_UserIdValid(p_user_id) THEN
574: --
571:
572: --
573: --IF Is_UserIdValid(p_user_id) THEN
574: --
575: IF p_distinct_stocks = FND_API.G_FALSE THEN
576: l_select_stmt := 'SELECT amst.stock_symbol, amut.stock_id, amut.last_update_date ';
577: ELSE
578: l_select_stmt := 'SELECT distinct amst.stock_symbol, amut.stock_id, amut.last_update_date ';
579: END IF;
581: l_from_stmt := 'FROM amv_user_ticker amut, amv_stocks amst ';
582: l_where_clause := 'WHERE amut.user_id = :user_id ';
583: l_where_clause := l_where_clause || 'AND amut.stock_id = amst.stock_id ';
584:
585: IF p_sort_order = FND_API.G_MISS_CHAR OR
586: p_sort_order IS NULL
587: THEN
588: l_order_by := 'ORDER BY amut.last_update_date ASC';
589: ELSE
606: END LOOP;
607: CLOSE l_cursor;
608:
609: /*
610: IF p_distinct_stocks = FND_API.G_FALSE THEN
611: OPEN Get_UserStocks_csr;
612: LOOP
613: FETCH Get_UserStocks_csr INTO l_stock_id;
614: EXIT WHEN Get_UserStocks_csr%NOTFOUND;
644: -- FND_MESSAGE.Set_name('AMV','AMV_USER_ID_INVALID');
645: -- FND_MESSAGE.Set_Token('TKN',p_user_id);
646: -- FND_MSG_PUB.Add;
647: -- END IF;
648: -- RAISE FND_API.G_EXC_ERROR;
649: -- END IF;
650: --
651:
652: -- Success message
663: FND_MSG_PUB.Add;
664: END IF;
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: EXCEPTION
668: p_count => x_msg_count,
669: p_data => x_msg_data
670: );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO Get_UserTicker;
674: x_return_status := FND_API.G_RET_STS_ERROR;
675: -- Standard call to get message count and if count=1, get the message
676: FND_MSG_PUB.Count_And_Get (
670: );
671: EXCEPTION
672: WHEN FND_API.G_EXC_ERROR THEN
673: ROLLBACK TO Get_UserTicker;
674: x_return_status := FND_API.G_RET_STS_ERROR;
675: -- Standard call to get message count and if count=1, get the message
676: FND_MSG_PUB.Count_And_Get (
677: p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count,
673: ROLLBACK TO Get_UserTicker;
674: x_return_status := FND_API.G_RET_STS_ERROR;
675: -- Standard call to get message count and if count=1, get the message
676: FND_MSG_PUB.Count_And_Get (
677: p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count,
679: p_data => x_msg_data
680: );
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
677: p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count,
679: p_data => x_msg_data
680: );
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: ROLLBACK TO Get_UserTicker;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: -- Standard call to get message count and if count=1, get the message
685: FND_MSG_PUB.Count_And_Get (
679: p_data => x_msg_data
680: );
681: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
682: ROLLBACK TO Get_UserTicker;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: -- Standard call to get message count and if count=1, get the message
685: FND_MSG_PUB.Count_And_Get (
686: p_encoded => FND_API.G_FALSE,
687: p_count => x_msg_count,
682: ROLLBACK TO Get_UserTicker;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: -- Standard call to get message count and if count=1, get the message
685: FND_MSG_PUB.Count_And_Get (
686: p_encoded => FND_API.G_FALSE,
687: p_count => x_msg_count,
688: p_data => x_msg_data
689: );
690: WHEN OTHERS THEN
688: p_data => x_msg_data
689: );
690: WHEN OTHERS THEN
691: ROLLBACK TO Get_UserTicker;
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
694: THEN
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
695: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
696: END IF;
697: -- Standard call to get message count and if count=1, get the message
698: FND_MSG_PUB.Count_And_Get (
699: p_encoded => FND_API.G_FALSE,
700: p_count => x_msg_count,
701: p_data => x_msg_data
702: );
703: --
711: -- Function : Returns the ticker details for list of stocks
712: -- Parameters :
713: -- IN p_api_version IN NUMBER Required
714: -- p_init_msg_list IN VARCHAR2 Optional
715: -- Default = FND_API.G_FALSE
716: -- p_validation_level IN NUMBER Optional
717: -- Default = FND_API.G_VALID_LEVEL_FULL
718: -- p_symbols IN VARCHAR2 Required
719: -- OUT NOCOPY : x_return_status OUT NOCOPY VARCHAR2
713: -- IN p_api_version IN NUMBER Required
714: -- p_init_msg_list IN VARCHAR2 Optional
715: -- Default = FND_API.G_FALSE
716: -- p_validation_level IN NUMBER Optional
717: -- Default = FND_API.G_VALID_LEVEL_FULL
718: -- p_symbols IN VARCHAR2 Required
719: -- OUT NOCOPY : x_return_status OUT NOCOPY VARCHAR2
720: -- x_msg_count OUT NOCOPY NUMBER
721: -- x_msg_data OUT NOCOPY VARCHAR2
728: -- End of comments
729: --
730: PROCEDURE Get_StockDetails
731: ( p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: x_return_status OUT NOCOPY VARCHAR2,
735: x_msg_count OUT NOCOPY NUMBER,
736: x_msg_data OUT NOCOPY VARCHAR2,
729: --
730: PROCEDURE Get_StockDetails
731: ( p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: x_return_status OUT NOCOPY VARCHAR2,
735: x_msg_count OUT NOCOPY NUMBER,
736: x_msg_data OUT NOCOPY VARCHAR2,
737: p_symbols IN VARCHAR2,
772: BEGIN
773: -- Standard begin of API savepoint
774: SAVEPOINT Get_StockDetails;
775: -- Standard call to check for call compatibility.
776: IF NOT FND_API.Compatible_API_Call (
777: l_api_version,
778: p_api_version,
779: l_api_name,
780: G_PKG_NAME)
778: p_api_version,
779: l_api_name,
780: G_PKG_NAME)
781: THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784: -- Debug Message
785: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
786: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
787: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
788: FND_MSG_PUB.Add;
789: END IF;
790: --Initialize message list if p_init_msg_list is TRUE.
791: IF FND_API.To_Boolean (p_init_msg_list) THEN
792: FND_MSG_PUB.initialize;
793: END IF;
794: -- Initialize API return status to sucess
795: x_return_status := FND_API.G_RET_STS_SUCCESS;
791: IF FND_API.To_Boolean (p_init_msg_list) THEN
792: FND_MSG_PUB.initialize;
793: END IF;
794: -- Initialize API return status to sucess
795: x_return_status := FND_API.G_RET_STS_SUCCESS;
796:
797: --
798: -- parse symbols into a table
799: Parse_Symbols(p_symbols, l_symbols_array);
833: FND_MSG_PUB.Add;
834: END IF;
835: --Standard call to get message count and if count=1, get the message
836: FND_MSG_PUB.Count_And_Get (
837: p_encoded => FND_API.G_FALSE,
838: p_count => x_msg_count,
839: p_data => x_msg_data
840: );
841: EXCEPTION
838: p_count => x_msg_count,
839: p_data => x_msg_data
840: );
841: EXCEPTION
842: WHEN FND_API.G_EXC_ERROR THEN
843: ROLLBACK TO Get_StockDetails;
844: x_return_status := FND_API.G_RET_STS_ERROR;
845: -- Standard call to get message count and if count=1, get the message
846: FND_MSG_PUB.Count_And_Get (
840: );
841: EXCEPTION
842: WHEN FND_API.G_EXC_ERROR THEN
843: ROLLBACK TO Get_StockDetails;
844: x_return_status := FND_API.G_RET_STS_ERROR;
845: -- Standard call to get message count and if count=1, get the message
846: FND_MSG_PUB.Count_And_Get (
847: p_encoded => FND_API.G_FALSE,
848: p_count => x_msg_count,
843: ROLLBACK TO Get_StockDetails;
844: x_return_status := FND_API.G_RET_STS_ERROR;
845: -- Standard call to get message count and if count=1, get the message
846: FND_MSG_PUB.Count_And_Get (
847: p_encoded => FND_API.G_FALSE,
848: p_count => x_msg_count,
849: p_data => x_msg_data
850: );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
847: p_encoded => FND_API.G_FALSE,
848: p_count => x_msg_count,
849: p_data => x_msg_data
850: );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: ROLLBACK TO Get_StockDetails;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
849: p_data => x_msg_data
850: );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: ROLLBACK TO Get_StockDetails;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
856: p_encoded => FND_API.G_FALSE,
857: p_count => x_msg_count,
852: ROLLBACK TO Get_StockDetails;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
854: -- Standard call to get message count and if count=1, get the message
855: FND_MSG_PUB.Count_And_Get (
856: p_encoded => FND_API.G_FALSE,
857: p_count => x_msg_count,
858: p_data => x_msg_data
859: );
860: WHEN OTHERS THEN
858: p_data => x_msg_data
859: );
860: WHEN OTHERS THEN
861: ROLLBACK TO Get_StockDetails;
862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
863: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
864: THEN
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
867: -- Standard call to get message count and if count=1, get the message
868: FND_MSG_PUB.Count_And_Get (
869: p_encoded => FND_API.G_FALSE,
870: p_count => x_msg_count,
871: p_data => x_msg_data
872: );
873: --
881: -- Function : Update the tickers for an user
882: -- Parameters :
883: -- IN p_api_version IN NUMBER Required
884: -- p_init_msg_list IN VARCHAR2 Optional
885: -- Default = FND_API.G_FALSE
886: -- p_commit IN VARCHAR2 Optional
887: -- Default = FND_API.G_FALSE
888: -- p_validation_level IN NUMBER Optional
889: -- Default = FND_API.G_VALID_LEVEL_FULL
883: -- IN p_api_version IN NUMBER Required
884: -- p_init_msg_list IN VARCHAR2 Optional
885: -- Default = FND_API.G_FALSE
886: -- p_commit IN VARCHAR2 Optional
887: -- Default = FND_API.G_FALSE
888: -- p_validation_level IN NUMBER Optional
889: -- Default = FND_API.G_VALID_LEVEL_FULL
890: -- p_object_version_number IN NUMBER Required
891: -- object version number
885: -- Default = FND_API.G_FALSE
886: -- p_commit IN VARCHAR2 Optional
887: -- Default = FND_API.G_FALSE
888: -- p_validation_level IN NUMBER Optional
889: -- Default = FND_API.G_VALID_LEVEL_FULL
890: -- p_object_version_number IN NUMBER Required
891: -- object version number
892: -- p_user_id IN NUMBER Required
893: -- user id.
904: -- End of comments
905: --
906: PROCEDURE Update_UserTicker
907: ( p_api_version IN NUMBER,
908: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
909: p_commit IN VARCHAR2 := FND_API.G_FALSE,
910: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
911: x_return_status OUT NOCOPY VARCHAR2,
912: x_msg_count OUT NOCOPY NUMBER,
905: --
906: PROCEDURE Update_UserTicker
907: ( p_api_version IN NUMBER,
908: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
909: p_commit IN VARCHAR2 := FND_API.G_FALSE,
910: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
911: x_return_status OUT NOCOPY VARCHAR2,
912: x_msg_count OUT NOCOPY NUMBER,
913: x_msg_data OUT NOCOPY VARCHAR2,
906: PROCEDURE Update_UserTicker
907: ( p_api_version IN NUMBER,
908: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
909: p_commit IN VARCHAR2 := FND_API.G_FALSE,
910: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
911: x_return_status OUT NOCOPY VARCHAR2,
912: x_msg_count OUT NOCOPY NUMBER,
913: x_msg_data OUT NOCOPY VARCHAR2,
914: p_object_version_number IN NUMBER,
939: BEGIN
940: -- Standard begin of API savepoint
941: SAVEPOINT Update_UserTicker;
942: -- Standard call to check for call compatibility.
943: IF NOT FND_API.Compatible_API_Call (
944: l_api_version,
945: p_api_version,
946: l_api_name,
947: G_PKG_NAME)
945: p_api_version,
946: l_api_name,
947: G_PKG_NAME)
948: THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951: -- Debug Message
952: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
953: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
954: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
955: FND_MSG_PUB.Add;
956: END IF;
957: --Initialize message list if p_init_msg_list is TRUE.
958: IF FND_API.To_Boolean (p_init_msg_list) THEN
959: FND_MSG_PUB.initialize;
960: END IF;
961: -- Initialize API return status to sucess
962: x_return_status := FND_API.G_RET_STS_SUCCESS;
958: IF FND_API.To_Boolean (p_init_msg_list) THEN
959: FND_MSG_PUB.initialize;
960: END IF;
961: -- Initialize API return status to sucess
962: x_return_status := FND_API.G_RET_STS_SUCCESS;
963:
964: --
965: --IF Is_UserIdValid(p_user_id) THEN
966: --
1028: -- FND_MESSAGE.Set_name('AMV','AMV_USER_ID_INVALID');
1029: -- FND_MESSAGE.Set_Token('TKN',p_user_id);
1030: -- FND_MSG_PUB.Add;
1031: -- END IF;
1032: -- RAISE FND_API.G_EXC_ERROR;
1033: --END IF;
1034: --
1035:
1036: -- Success message
1040: FND_MESSAGE.Set_Token('ROW', l_full_name);
1041: FND_MSG_PUB.Add;
1042: END IF;
1043: --Standard check of commit
1044: IF FND_API.To_Boolean ( p_commit ) THEN
1045: COMMIT WORK;
1046: END IF;
1047: -- Debug Message
1048: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1051: FND_MSG_PUB.Add;
1052: END IF;
1053: --Standard call to get message count and if count=1, get the message
1054: FND_MSG_PUB.Count_And_Get (
1055: p_encoded => FND_API.G_FALSE,
1056: p_count => x_msg_count,
1057: p_data => x_msg_data
1058: );
1059: EXCEPTION
1056: p_count => x_msg_count,
1057: p_data => x_msg_data
1058: );
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: ROLLBACK TO Update_UserTicker;
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: -- Standard call to get message count and if count=1, get the message
1064: FND_MSG_PUB.Count_And_Get (
1058: );
1059: EXCEPTION
1060: WHEN FND_API.G_EXC_ERROR THEN
1061: ROLLBACK TO Update_UserTicker;
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: -- Standard call to get message count and if count=1, get the message
1064: FND_MSG_PUB.Count_And_Get (
1065: p_encoded => FND_API.G_FALSE,
1066: p_count => x_msg_count,
1061: ROLLBACK TO Update_UserTicker;
1062: x_return_status := FND_API.G_RET_STS_ERROR;
1063: -- Standard call to get message count and if count=1, get the message
1064: FND_MSG_PUB.Count_And_Get (
1065: p_encoded => FND_API.G_FALSE,
1066: p_count => x_msg_count,
1067: p_data => x_msg_data
1068: );
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: p_encoded => FND_API.G_FALSE,
1066: p_count => x_msg_count,
1067: p_data => x_msg_data
1068: );
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1070: ROLLBACK TO Update_UserTicker;
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1072: -- Standard call to get message count and if count=1, get the message
1073: FND_MSG_PUB.Count_And_Get (
1067: p_data => x_msg_data
1068: );
1069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1070: ROLLBACK TO Update_UserTicker;
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1072: -- Standard call to get message count and if count=1, get the message
1073: FND_MSG_PUB.Count_And_Get (
1074: p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1070: ROLLBACK TO Update_UserTicker;
1071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1072: -- Standard call to get message count and if count=1, get the message
1073: FND_MSG_PUB.Count_And_Get (
1074: p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1076: p_data => x_msg_data
1077: );
1078: WHEN OTHERS THEN
1076: p_data => x_msg_data
1077: );
1078: WHEN OTHERS THEN
1079: ROLLBACK TO Update_UserTicker;
1080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: THEN
1083: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1084: END IF;
1083: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1084: END IF;
1085: -- Standard call to get message count and if count=1, get the message
1086: FND_MSG_PUB.Count_And_Get (
1087: p_encoded => FND_API.G_FALSE,
1088: p_count => x_msg_count,
1089: p_data => x_msg_data
1090: );
1091: --
1100: -- been identified
1101: -- Parameters :
1102: -- IN p_api_version IN NUMBER Required
1103: -- p_init_msg_list IN VARCHAR2 Optional
1104: -- Default = FND_API.G_FALSE
1105: -- p_validation_level IN NUMBER Optional
1106: -- Default = FND_API.G_VALID_LEVEL_FULL
1107: -- p_vendor_id IN NUMBER Required
1108: -- vendor id.
1102: -- IN p_api_version IN NUMBER Required
1103: -- p_init_msg_list IN VARCHAR2 Optional
1104: -- Default = FND_API.G_FALSE
1105: -- p_validation_level IN NUMBER Optional
1106: -- Default = FND_API.G_VALID_LEVEL_FULL
1107: -- p_vendor_id IN NUMBER Required
1108: -- vendor id.
1109: -- p_start_index IN NUMBER Optional
1110: -- Default = 1
1108: -- vendor id.
1109: -- p_start_index IN NUMBER Optional
1110: -- Default = 1
1111: -- p_batch_size IN NUMBER Optional
1112: -- Default = FND_API.G_MISS_NUM
1113: -- batch size of keys.
1114: -- OUT NOCOPY : x_return_status OUT NOCOPY VARCHAR2
1115: -- x_msg_count OUT NOCOPY NUMBER
1116: -- x_msg_data OUT NOCOPY VARCHAR2
1124: -- End of comments
1125: --
1126: PROCEDURE Get_VendorMissedStocks
1127: ( p_api_version IN NUMBER,
1128: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1130: x_return_status OUT NOCOPY VARCHAR2,
1131: x_msg_count OUT NOCOPY NUMBER,
1132: x_msg_data OUT NOCOPY VARCHAR2,
1125: --
1126: PROCEDURE Get_VendorMissedStocks
1127: ( p_api_version IN NUMBER,
1128: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1129: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1130: x_return_status OUT NOCOPY VARCHAR2,
1131: x_msg_count OUT NOCOPY NUMBER,
1132: x_msg_data OUT NOCOPY VARCHAR2,
1133: p_vendor_id IN NUMBER,
1131: x_msg_count OUT NOCOPY NUMBER,
1132: x_msg_data OUT NOCOPY VARCHAR2,
1133: p_vendor_id IN NUMBER,
1134: p_start_index IN NUMBER := 1,
1135: p_batch_size IN NUMBER := FND_API.G_MISS_NUM,
1136: x_stocks_array OUT NOCOPY AMV_SYM_VARRAY_TYPE
1137: )
1138: IS
1139: l_api_name CONSTANT VARCHAR2(30) := 'Get_VendorMissedStocks';
1169: BEGIN
1170: -- Standard begin of API savepoint
1171: SAVEPOINT Get_VendorMissedStocks;
1172: -- Standard call to check for call compatibility.
1173: IF NOT FND_API.Compatible_API_Call (
1174: l_api_version,
1175: p_api_version,
1176: l_api_name,
1177: G_PKG_NAME)
1175: p_api_version,
1176: l_api_name,
1177: G_PKG_NAME)
1178: THEN
1179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1180: END IF;
1181: -- Debug Message
1182: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1183: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
1184: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
1185: FND_MSG_PUB.Add;
1186: END IF;
1187: --Initialize message list if p_init_msg_list is TRUE.
1188: IF FND_API.To_Boolean (p_init_msg_list) THEN
1189: FND_MSG_PUB.initialize;
1190: END IF;
1191: -- Initialize API return status to sucess
1192: x_return_status := FND_API.G_RET_STS_SUCCESS;
1188: IF FND_API.To_Boolean (p_init_msg_list) THEN
1189: FND_MSG_PUB.initialize;
1190: END IF;
1191: -- Initialize API return status to sucess
1192: x_return_status := FND_API.G_RET_STS_SUCCESS;
1193:
1194: --
1195: OPEN Get_VenMissStk_csr;
1196: LOOP
1203: FETCH Get_StocksInfo_csr INTO x_stocks_array(l_rec_num);
1204: CLOSE Get_StocksInfo_csr;
1205: END IF;
1206: --
1207: IF p_batch_size <> FND_API.G_MISS_NUM THEN
1208: EXIT WHEN l_rec_num = p_batch_size;
1209: END IF;
1210: END LOOP;
1211: CLOSE Get_VenMissStk_csr;
1225: FND_MSG_PUB.Add;
1226: END IF;
1227: --Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );
1233: EXCEPTION
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );
1233: EXCEPTION
1234: WHEN FND_API.G_EXC_ERROR THEN
1235: ROLLBACK TO Get_VendorMissedStocks;
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1232: );
1233: EXCEPTION
1234: WHEN FND_API.G_EXC_ERROR THEN
1235: ROLLBACK TO Get_VendorMissedStocks;
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1235: ROLLBACK TO Get_VendorMissedStocks;
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: -- Standard call to get message count and if count=1, get the message
1238: FND_MSG_PUB.Count_And_Get (
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data
1242: );
1243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data
1242: );
1243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1244: ROLLBACK TO Get_VendorMissedStocks;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: -- Standard call to get message count and if count=1, get the message
1247: FND_MSG_PUB.Count_And_Get (
1241: p_data => x_msg_data
1242: );
1243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1244: ROLLBACK TO Get_VendorMissedStocks;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: -- Standard call to get message count and if count=1, get the message
1247: FND_MSG_PUB.Count_And_Get (
1248: p_encoded => FND_API.G_FALSE,
1249: p_count => x_msg_count,
1244: ROLLBACK TO Get_VendorMissedStocks;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: -- Standard call to get message count and if count=1, get the message
1247: FND_MSG_PUB.Count_And_Get (
1248: p_encoded => FND_API.G_FALSE,
1249: p_count => x_msg_count,
1250: p_data => x_msg_data
1251: );
1252: WHEN OTHERS THEN
1250: p_data => x_msg_data
1251: );
1252: WHEN OTHERS THEN
1253: ROLLBACK TO Get_VendorMissedStocks;
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1256: THEN
1257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1258: END IF;
1257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1258: END IF;
1259: -- Standard call to get message count and if count=1, get the message
1260: FND_MSG_PUB.Count_And_Get (
1261: p_encoded => FND_API.G_FALSE,
1262: p_count => x_msg_count,
1263: p_data => x_msg_data
1264: );
1265: --
1273: -- Function : Inserts the Stock id and the vendor id and key id for vendor
1274: -- Parameters :
1275: -- IN p_api_version IN NUMBER Required
1276: -- p_init_msg_list IN VARCHAR2 Optional
1277: -- Default = FND_API.G_FALSE
1278: -- p_commit IN VARCHAR2 Optional
1279: -- Default = FND_API.G_FALSE
1280: -- p_validation_level IN NUMBER Optional
1281: -- Default = FND_API.G_VALID_LEVEL_FULL
1275: -- IN p_api_version IN NUMBER Required
1276: -- p_init_msg_list IN VARCHAR2 Optional
1277: -- Default = FND_API.G_FALSE
1278: -- p_commit IN VARCHAR2 Optional
1279: -- Default = FND_API.G_FALSE
1280: -- p_validation_level IN NUMBER Optional
1281: -- Default = FND_API.G_VALID_LEVEL_FULL
1282: -- p_vendor_id IN NUMBER Required
1283: -- vendor id.
1277: -- Default = FND_API.G_FALSE
1278: -- p_commit IN VARCHAR2 Optional
1279: -- Default = FND_API.G_FALSE
1280: -- p_validation_level IN NUMBER Optional
1281: -- Default = FND_API.G_VALID_LEVEL_FULL
1282: -- p_vendor_id IN NUMBER Required
1283: -- vendor id.
1284: -- p_ticker_rec IN AMV_TKR_OBJ_TYPE Required
1285: -- ticker array (ric and key id).
1294: -- End of comments
1295: --
1296: PROCEDURE Insert_StockVendorKeys
1297: ( p_api_version IN NUMBER,
1298: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1300: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1301: x_return_status OUT NOCOPY VARCHAR2,
1302: x_msg_count OUT NOCOPY NUMBER,
1295: --
1296: PROCEDURE Insert_StockVendorKeys
1297: ( p_api_version IN NUMBER,
1298: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1300: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1301: x_return_status OUT NOCOPY VARCHAR2,
1302: x_msg_count OUT NOCOPY NUMBER,
1303: x_msg_data OUT NOCOPY VARCHAR2,
1296: PROCEDURE Insert_StockVendorKeys
1297: ( p_api_version IN NUMBER,
1298: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1300: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1301: x_return_status OUT NOCOPY VARCHAR2,
1302: x_msg_count OUT NOCOPY NUMBER,
1303: x_msg_data OUT NOCOPY VARCHAR2,
1304: p_vendor_id IN NUMBER,
1329: BEGIN
1330: -- Standard begin of API savepoint
1331: SAVEPOINT Insert_StockVendorKeys;
1332: -- Standard call to check for call compatibility.
1333: IF NOT FND_API.Compatible_API_Call (
1334: l_api_version,
1335: p_api_version,
1336: l_api_name,
1337: G_PKG_NAME)
1335: p_api_version,
1336: l_api_name,
1337: G_PKG_NAME)
1338: THEN
1339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1340: END IF;
1341: -- Debug Message
1342: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1343: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
1344: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
1345: FND_MSG_PUB.Add;
1346: END IF;
1347: --Initialize message list if p_init_msg_list is TRUE.
1348: IF FND_API.To_Boolean (p_init_msg_list) THEN
1349: FND_MSG_PUB.initialize;
1350: END IF;
1351: -- Initialize API return status to sucess
1352: x_return_status := FND_API.G_RET_STS_SUCCESS;
1348: IF FND_API.To_Boolean (p_init_msg_list) THEN
1349: FND_MSG_PUB.initialize;
1350: END IF;
1351: -- Initialize API return status to sucess
1352: x_return_status := FND_API.G_RET_STS_SUCCESS;
1353:
1354: --
1355: l_key_id := p_ticker_rec.key_id;
1356: l_stock_id := p_ticker_rec.stock_id;
1405: FND_MESSAGE.Set_Token('ROW', l_full_name);
1406: FND_MSG_PUB.Add;
1407: END IF;
1408: --Standard check of commit
1409: IF FND_API.To_Boolean ( p_commit ) THEN
1410: COMMIT WORK;
1411: END IF;
1412: -- Debug Message
1413: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1416: FND_MSG_PUB.Add;
1417: END IF;
1418: --Standard call to get message count and if count=1, get the message
1419: FND_MSG_PUB.Count_And_Get (
1420: p_encoded => FND_API.G_FALSE,
1421: p_count => x_msg_count,
1422: p_data => x_msg_data
1423: );
1424: EXCEPTION
1421: p_count => x_msg_count,
1422: p_data => x_msg_data
1423: );
1424: EXCEPTION
1425: WHEN FND_API.G_EXC_ERROR THEN
1426: ROLLBACK TO Insert_StockVendorKeys;
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428: -- Standard call to get message count and if count=1, get the message
1429: FND_MSG_PUB.Count_And_Get (
1423: );
1424: EXCEPTION
1425: WHEN FND_API.G_EXC_ERROR THEN
1426: ROLLBACK TO Insert_StockVendorKeys;
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428: -- Standard call to get message count and if count=1, get the message
1429: FND_MSG_PUB.Count_And_Get (
1430: p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1426: ROLLBACK TO Insert_StockVendorKeys;
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428: -- Standard call to get message count and if count=1, get the message
1429: FND_MSG_PUB.Count_And_Get (
1430: p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1432: p_data => x_msg_data
1433: );
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1430: p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count,
1432: p_data => x_msg_data
1433: );
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO Insert_StockVendorKeys;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: -- Standard call to get message count and if count=1, get the message
1438: FND_MSG_PUB.Count_And_Get (
1432: p_data => x_msg_data
1433: );
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO Insert_StockVendorKeys;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: -- Standard call to get message count and if count=1, get the message
1438: FND_MSG_PUB.Count_And_Get (
1439: p_encoded => FND_API.G_FALSE,
1440: p_count => x_msg_count,
1435: ROLLBACK TO Insert_StockVendorKeys;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: -- Standard call to get message count and if count=1, get the message
1438: FND_MSG_PUB.Count_And_Get (
1439: p_encoded => FND_API.G_FALSE,
1440: p_count => x_msg_count,
1441: p_data => x_msg_data
1442: );
1443: WHEN OTHERS THEN
1441: p_data => x_msg_data
1442: );
1443: WHEN OTHERS THEN
1444: ROLLBACK TO Insert_StockVendorKeys;
1445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1446: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1447: THEN
1448: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1449: END IF;
1448: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1449: END IF;
1450: -- Standard call to get message count and if count=1, get the message
1451: FND_MSG_PUB.Count_And_Get (
1452: p_encoded => FND_API.G_FALSE,
1453: p_count => x_msg_count,
1454: p_data => x_msg_data
1455: );
1456: --
1464: -- Function : Gives an array of all the stocks selected by all users
1465: -- Parameters :
1466: -- IN p_api_version IN NUMBER Required
1467: -- p_init_msg_list IN VARCHAR2 Optional
1468: -- Default = FND_API.G_FALSE
1469: -- p_validation_level IN NUMBER Optional
1470: -- Default = FND_API.G_VALID_LEVEL_FULL
1471: -- p_vendor_id IN NUMBER Required
1472: -- vendor id
1466: -- IN p_api_version IN NUMBER Required
1467: -- p_init_msg_list IN VARCHAR2 Optional
1468: -- Default = FND_API.G_FALSE
1469: -- p_validation_level IN NUMBER Optional
1470: -- Default = FND_API.G_VALID_LEVEL_FULL
1471: -- p_vendor_id IN NUMBER Required
1472: -- vendor id
1473: -- OUT NOCOPY : x_return_status OUT NOCOPY VARCHAR2
1474: -- x_msg_count OUT NOCOPY NUMBER
1483: -- End of comments
1484: --
1485: PROCEDURE Get_UserSelectedKeys
1486: ( p_api_version IN NUMBER,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1489: x_return_status OUT NOCOPY VARCHAR2,
1490: x_msg_count OUT NOCOPY NUMBER,
1491: x_msg_data OUT NOCOPY VARCHAR2,
1484: --
1485: PROCEDURE Get_UserSelectedKeys
1486: ( p_api_version IN NUMBER,
1487: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1489: x_return_status OUT NOCOPY VARCHAR2,
1490: x_msg_count OUT NOCOPY NUMBER,
1491: x_msg_data OUT NOCOPY VARCHAR2,
1492: p_vendor_id IN NUMBER,
1489: x_return_status OUT NOCOPY VARCHAR2,
1490: x_msg_count OUT NOCOPY NUMBER,
1491: x_msg_data OUT NOCOPY VARCHAR2,
1492: p_vendor_id IN NUMBER,
1493: p_all_keys IN VARCHAR2 := FND_API.G_FALSE,
1494: x_keys_array OUT NOCOPY AMV_CHAR_VARRAY_TYPE
1495: )
1496: IS
1497: l_api_name CONSTANT VARCHAR2(30) := 'Get_UserSelectedKeys';
1533: BEGIN
1534: -- Standard begin of API savepoint
1535: SAVEPOINT Get_UserSelectedKeys;
1536: -- Standard call to check for call compatibility.
1537: IF NOT FND_API.Compatible_API_Call (
1538: l_api_version,
1539: p_api_version,
1540: l_api_name,
1541: G_PKG_NAME)
1539: p_api_version,
1540: l_api_name,
1541: G_PKG_NAME)
1542: THEN
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: END IF;
1545: -- Debug Message
1546: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1547: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
1548: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
1549: FND_MSG_PUB.Add;
1550: END IF;
1551: --Initialize message list if p_init_msg_list is TRUE.
1552: IF FND_API.To_Boolean (p_init_msg_list) THEN
1553: FND_MSG_PUB.initialize;
1554: END IF;
1555: -- Initialize API return status to sucess
1556: x_return_status := FND_API.G_RET_STS_SUCCESS;
1552: IF FND_API.To_Boolean (p_init_msg_list) THEN
1553: FND_MSG_PUB.initialize;
1554: END IF;
1555: -- Initialize API return status to sucess
1556: x_return_status := FND_API.G_RET_STS_SUCCESS;
1557:
1558: --
1559: IF p_all_keys = FND_API.G_TRUE THEN
1560: -- get all keys
1555: -- Initialize API return status to sucess
1556: x_return_status := FND_API.G_RET_STS_SUCCESS;
1557:
1558: --
1559: IF p_all_keys = FND_API.G_TRUE THEN
1560: -- get all keys
1561: OPEN Get_AllKeys_csr;
1562: LOOP
1563: l_rec_num := l_rec_num + 1;
1609: FND_MSG_PUB.Add;
1610: END IF;
1611: --Standard call to get message count and if count=1, get the message
1612: FND_MSG_PUB.Count_And_Get (
1613: p_encoded => FND_API.G_FALSE,
1614: p_count => x_msg_count,
1615: p_data => x_msg_data
1616: );
1617: EXCEPTION
1614: p_count => x_msg_count,
1615: p_data => x_msg_data
1616: );
1617: EXCEPTION
1618: WHEN FND_API.G_EXC_ERROR THEN
1619: ROLLBACK TO Get_UserSelectedKeys;
1620: x_return_status := FND_API.G_RET_STS_ERROR;
1621: -- Standard call to get message count and if count=1, get the message
1622: FND_MSG_PUB.Count_And_Get (
1616: );
1617: EXCEPTION
1618: WHEN FND_API.G_EXC_ERROR THEN
1619: ROLLBACK TO Get_UserSelectedKeys;
1620: x_return_status := FND_API.G_RET_STS_ERROR;
1621: -- Standard call to get message count and if count=1, get the message
1622: FND_MSG_PUB.Count_And_Get (
1623: p_encoded => FND_API.G_FALSE,
1624: p_count => x_msg_count,
1619: ROLLBACK TO Get_UserSelectedKeys;
1620: x_return_status := FND_API.G_RET_STS_ERROR;
1621: -- Standard call to get message count and if count=1, get the message
1622: FND_MSG_PUB.Count_And_Get (
1623: p_encoded => FND_API.G_FALSE,
1624: p_count => x_msg_count,
1625: p_data => x_msg_data
1626: );
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1623: p_encoded => FND_API.G_FALSE,
1624: p_count => x_msg_count,
1625: p_data => x_msg_data
1626: );
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1628: ROLLBACK TO Get_UserSelectedKeys;
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: -- Standard call to get message count and if count=1, get the message
1631: FND_MSG_PUB.Count_And_Get (
1625: p_data => x_msg_data
1626: );
1627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1628: ROLLBACK TO Get_UserSelectedKeys;
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: -- Standard call to get message count and if count=1, get the message
1631: FND_MSG_PUB.Count_And_Get (
1632: p_encoded => FND_API.G_FALSE,
1633: p_count => x_msg_count,
1628: ROLLBACK TO Get_UserSelectedKeys;
1629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1630: -- Standard call to get message count and if count=1, get the message
1631: FND_MSG_PUB.Count_And_Get (
1632: p_encoded => FND_API.G_FALSE,
1633: p_count => x_msg_count,
1634: p_data => x_msg_data
1635: );
1636: WHEN OTHERS THEN
1634: p_data => x_msg_data
1635: );
1636: WHEN OTHERS THEN
1637: ROLLBACK TO Get_UserSelectedKeys;
1638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1639: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1640: THEN
1641: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1642: END IF;
1641: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1642: END IF;
1643: -- Standard call to get message count and if count=1, get the message
1644: FND_MSG_PUB.Count_And_Get (
1645: p_encoded => FND_API.G_FALSE,
1646: p_count => x_msg_count,
1647: p_data => x_msg_data
1648: );
1649: --
1657: -- Function : Inserts News in to the vendor news table
1658: -- Parameters :
1659: -- IN p_api_version IN NUMBER Required
1660: -- p_init_msg_list IN VARCHAR2 Optional
1661: -- Default = FND_API.G_FALSE
1662: -- p_commit IN VARCHAR2 Optional
1663: -- Default = FND_API.G_FALSE
1664: -- p_validation_level IN NUMBER Optional
1665: -- Default = FND_API.G_VALID_LEVEL_FULL
1659: -- IN p_api_version IN NUMBER Required
1660: -- p_init_msg_list IN VARCHAR2 Optional
1661: -- Default = FND_API.G_FALSE
1662: -- p_commit IN VARCHAR2 Optional
1663: -- Default = FND_API.G_FALSE
1664: -- p_validation_level IN NUMBER Optional
1665: -- Default = FND_API.G_VALID_LEVEL_FULL
1666: -- p_vendor_id IN NUMBER Required
1667: -- vendor id.
1661: -- Default = FND_API.G_FALSE
1662: -- p_commit IN VARCHAR2 Optional
1663: -- Default = FND_API.G_FALSE
1664: -- p_validation_level IN NUMBER Optional
1665: -- Default = FND_API.G_VALID_LEVEL_FULL
1666: -- p_vendor_id IN NUMBER Required
1667: -- vendor id.
1668: -- p_news_rec IN AMV_NEWS_OBJ_TYPE Required
1669: -- array of news objects.
1678: -- End of comments
1679: --
1680: PROCEDURE Insert_VendorNews
1681: ( p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1679: --
1680: PROCEDURE Insert_VendorNews
1681: ( p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1687: x_msg_data OUT NOCOPY VARCHAR2,
1680: PROCEDURE Insert_VendorNews
1681: ( p_api_version IN NUMBER,
1682: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1683: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1684: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: x_msg_count OUT NOCOPY NUMBER,
1687: x_msg_data OUT NOCOPY VARCHAR2,
1688: p_vendor_id IN NUMBER,
1718: BEGIN
1719: -- Standard begin of API savepoint
1720: SAVEPOINT Insert_VendorNews;
1721: -- Standard call to check for call compatibility.
1722: IF NOT FND_API.Compatible_API_Call (
1723: l_api_version,
1724: p_api_version,
1725: l_api_name,
1726: G_PKG_NAME)
1724: p_api_version,
1725: l_api_name,
1726: G_PKG_NAME)
1727: THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: -- Debug Message
1731: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1732: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
1733: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
1734: FND_MSG_PUB.Add;
1735: END IF;
1736: --Initialize message list if p_init_msg_list is TRUE.
1737: IF FND_API.To_Boolean (p_init_msg_list) THEN
1738: FND_MSG_PUB.initialize;
1739: END IF;
1740: -- Initialize API return status to sucess
1741: x_return_status := FND_API.G_RET_STS_SUCCESS;
1737: IF FND_API.To_Boolean (p_init_msg_list) THEN
1738: FND_MSG_PUB.initialize;
1739: END IF;
1740: -- Initialize API return status to sucess
1741: x_return_status := FND_API.G_RET_STS_SUCCESS;
1742:
1743: --
1744: l_key_id := p_news_rec.key_id;
1745: OPEN Get_VendorKeyId_csr;
1796: FND_MESSAGE.Set_Token('ROW', l_full_name);
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: --Standard check of commit
1800: IF FND_API.To_Boolean ( p_commit ) THEN
1801: COMMIT WORK;
1802: END IF;
1803: -- Debug Message
1804: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1807: FND_MSG_PUB.Add;
1808: END IF;
1809: --Standard call to get message count and if count=1, get the message
1810: FND_MSG_PUB.Count_And_Get (
1811: p_encoded => FND_API.G_FALSE,
1812: p_count => x_msg_count,
1813: p_data => x_msg_data
1814: );
1815: EXCEPTION
1812: p_count => x_msg_count,
1813: p_data => x_msg_data
1814: );
1815: EXCEPTION
1816: WHEN FND_API.G_EXC_ERROR THEN
1817: ROLLBACK TO Insert_VendorNews;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1814: );
1815: EXCEPTION
1816: WHEN FND_API.G_EXC_ERROR THEN
1817: ROLLBACK TO Insert_VendorNews;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1817: ROLLBACK TO Insert_VendorNews;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: ROLLBACK TO Insert_VendorNews;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: ROLLBACK TO Insert_VendorNews;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1826: ROLLBACK TO Insert_VendorNews;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834: WHEN OTHERS THEN
1832: p_data => x_msg_data
1833: );
1834: WHEN OTHERS THEN
1835: ROLLBACK TO Insert_VendorNews;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1838: THEN
1839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1840: END IF;
1839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1840: END IF;
1841: -- Standard call to get message count and if count=1, get the message
1842: FND_MSG_PUB.Count_And_Get (
1843: p_encoded => FND_API.G_FALSE,
1844: p_count => x_msg_count,
1845: p_data => x_msg_data
1846: );
1847: --
1855: -- Function : Inserts News in to the vendor news table
1856: -- Parameters :
1857: -- IN p_api_version IN NUMBER Required
1858: -- p_init_msg_list IN VARCHAR2 Optional
1859: -- Default = FND_API.G_FALSE
1860: -- p_commit IN VARCHAR2 Optional
1861: -- Default = FND_API.G_FALSE
1862: -- p_validation_level IN NUMBER Optional
1863: -- Default = FND_API.G_VALID_LEVEL_FULL
1857: -- IN p_api_version IN NUMBER Required
1858: -- p_init_msg_list IN VARCHAR2 Optional
1859: -- Default = FND_API.G_FALSE
1860: -- p_commit IN VARCHAR2 Optional
1861: -- Default = FND_API.G_FALSE
1862: -- p_validation_level IN NUMBER Optional
1863: -- Default = FND_API.G_VALID_LEVEL_FULL
1864: -- p_vendor_id IN NUMBER Required
1865: -- vendor id.
1859: -- Default = FND_API.G_FALSE
1860: -- p_commit IN VARCHAR2 Optional
1861: -- Default = FND_API.G_FALSE
1862: -- p_validation_level IN NUMBER Optional
1863: -- Default = FND_API.G_VALID_LEVEL_FULL
1864: -- p_vendor_id IN NUMBER Required
1865: -- vendor id.
1866: -- OUT : x_return_status OUT VARCHAR2
1867: -- x_msg_count OUT NUMBER
1876: -- End of comments
1877: --
1878: PROCEDURE Get_CompanyNews
1879: ( p_api_version IN NUMBER,
1880: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1881: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1882: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1883: x_return_status OUT NOCOPY VARCHAR2,
1884: x_msg_count OUT NOCOPY NUMBER,
1877: --
1878: PROCEDURE Get_CompanyNews
1879: ( p_api_version IN NUMBER,
1880: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1881: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1882: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1883: x_return_status OUT NOCOPY VARCHAR2,
1884: x_msg_count OUT NOCOPY NUMBER,
1885: x_msg_data OUT NOCOPY VARCHAR2,
1878: PROCEDURE Get_CompanyNews
1879: ( p_api_version IN NUMBER,
1880: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1881: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1882: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1883: x_return_status OUT NOCOPY VARCHAR2,
1884: x_msg_count OUT NOCOPY NUMBER,
1885: x_msg_data OUT NOCOPY VARCHAR2,
1886: p_stock_id IN NUMBER,
1921: BEGIN
1922: -- Standard begin of API savepoint
1923: SAVEPOINT Get_CompanyNews;
1924: -- Standard call to check for call compatibility.
1925: IF NOT FND_API.Compatible_API_Call (
1926: l_api_version,
1927: p_api_version,
1928: l_api_name,
1929: G_PKG_NAME)
1927: p_api_version,
1928: l_api_name,
1929: G_PKG_NAME)
1930: THEN
1931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932: END IF;
1933: -- Debug Message
1934: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1935: FND_MESSAGE.Set_Name('AMV','AMV_API_DEBUG_MESSAGE');
1936: FND_MESSAGE.Set_Token('ROW',l_full_name||': Start');
1937: FND_MSG_PUB.Add;
1938: END IF;
1939: --Initialize message list if p_init_msg_list is TRUE.
1940: IF FND_API.To_Boolean (p_init_msg_list) THEN
1941: FND_MSG_PUB.initialize;
1942: END IF;
1943: -- Initialize API return status to sucess
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
1940: IF FND_API.To_Boolean (p_init_msg_list) THEN
1941: FND_MSG_PUB.initialize;
1942: END IF;
1943: -- Initialize API return status to sucess
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
1945:
1946: --
1947: OPEN Get_News_csr;
1948: LOOP
1960: FND_MESSAGE.Set_Token('ROW', l_full_name);
1961: FND_MSG_PUB.Add;
1962: END IF;
1963: --Standard check of commit
1964: IF FND_API.To_Boolean ( p_commit ) THEN
1965: COMMIT WORK;
1966: END IF;
1967: -- Debug Message
1968: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1971: FND_MSG_PUB.Add;
1972: END IF;
1973: --Standard call to get message count and if count=1, get the message
1974: FND_MSG_PUB.Count_And_Get (
1975: p_encoded => FND_API.G_FALSE,
1976: p_count => x_msg_count,
1977: p_data => x_msg_data
1978: );
1979: EXCEPTION
1976: p_count => x_msg_count,
1977: p_data => x_msg_data
1978: );
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: ROLLBACK TO Get_CompanyNews;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: -- Standard call to get message count and if count=1, get the message
1984: FND_MSG_PUB.Count_And_Get (
1978: );
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: ROLLBACK TO Get_CompanyNews;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: -- Standard call to get message count and if count=1, get the message
1984: FND_MSG_PUB.Count_And_Get (
1985: p_encoded => FND_API.G_FALSE,
1986: p_count => x_msg_count,
1981: ROLLBACK TO Get_CompanyNews;
1982: x_return_status := FND_API.G_RET_STS_ERROR;
1983: -- Standard call to get message count and if count=1, get the message
1984: FND_MSG_PUB.Count_And_Get (
1985: p_encoded => FND_API.G_FALSE,
1986: p_count => x_msg_count,
1987: p_data => x_msg_data
1988: );
1989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1985: p_encoded => FND_API.G_FALSE,
1986: p_count => x_msg_count,
1987: p_data => x_msg_data
1988: );
1989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1990: ROLLBACK TO Get_CompanyNews;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: -- Standard call to get message count and if count=1, get the message
1993: FND_MSG_PUB.Count_And_Get (
1987: p_data => x_msg_data
1988: );
1989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1990: ROLLBACK TO Get_CompanyNews;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: -- Standard call to get message count and if count=1, get the message
1993: FND_MSG_PUB.Count_And_Get (
1994: p_encoded => FND_API.G_FALSE,
1995: p_count => x_msg_count,
1990: ROLLBACK TO Get_CompanyNews;
1991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1992: -- Standard call to get message count and if count=1, get the message
1993: FND_MSG_PUB.Count_And_Get (
1994: p_encoded => FND_API.G_FALSE,
1995: p_count => x_msg_count,
1996: p_data => x_msg_data
1997: );
1998: WHEN OTHERS THEN
1996: p_data => x_msg_data
1997: );
1998: WHEN OTHERS THEN
1999: ROLLBACK TO Get_CompanyNews;
2000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2001: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2002: THEN
2003: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2004: END IF;
2003: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2004: END IF;
2005: -- Standard call to get message count and if count=1, get the message
2006: FND_MSG_PUB.Count_And_Get (
2007: p_encoded => FND_API.G_FALSE,
2008: p_count => x_msg_count,
2009: p_data => x_msg_data
2010: );
2011: --