[Home] [Help]
31: then
32: fnd_message.set_name('AS', 'API_MISSING_ORDERBY_ELEMENT');
33: fnd_msg_pub.add;
34: end if;
35: raise fnd_api.g_exc_error;
36: end if;
37:
38: if floor(p_col_choice/10) > G_MAX
39: -- Greater than maximum order by columns
45: fnd_message.set_name('AS', 'API_INVALID_ORDERBY_CHOICE');
46: fnd_message.set_token('PARAM',p_col_choice, false);
47: fnd_msg_pub.add;
48: end if;
49: raise fnd_api.g_exc_error;
50: return '';
51: end if;
52:
53: if (nls_upper(p_col_name) = 'CUSTOMER_NAME')
68: fnd_message.set_name('AS', 'API_INVALID_ORDERBY_CHOICE');
69: fnd_message.set_token('PARAM',p_col_choice, false);
70: fnd_msg_pub.add;
71: end if;
72: raise fnd_api.g_exc_error;
73: return '';
74: end if;
75: end;
76:
76:
77: PROCEDURE Translate_OrderBy
78: ( p_api_version_number IN NUMBER,
79: p_init_msg_list IN VARCHAR2
80: := FND_API.G_FALSE,
81: p_validation_level IN NUMBER
82: := FND_API.G_VALID_LEVEL_FULL,
83: p_order_by_rec IN UTIL_ORDER_BY_REC_TYPE,
84: x_order_by_clause OUT NOCOPY VARCHAR2,
78: ( p_api_version_number IN NUMBER,
79: p_init_msg_list IN VARCHAR2
80: := FND_API.G_FALSE,
81: p_validation_level IN NUMBER
82: := FND_API.G_VALID_LEVEL_FULL,
83: p_order_by_rec IN UTIL_ORDER_BY_REC_TYPE,
84: x_order_by_clause OUT NOCOPY VARCHAR2,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
94: l_api_name CONSTANT VARCHAR2(30) := 'Translate_OrderBy';
95: l_api_version_number CONSTANT NUMBER := 2.0;
96: begin
97: -- Standard call to check for call compatibility.
98: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
99: p_api_version_number,
100: l_api_name,
101: G_PKG_NAME)
102: THEN
105: FND_MESSAGE.Set_Name('AS', 'API_UNEXP_ERROR_IN_PROCESSING');
106: FND_MESSAGE.Set_Token('ROW', 'TRANSLATE_ORDERBY', TRUE);
107: FND_MSG_PUB.ADD;
108: END IF;
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: -- Initialize message list if p_init_msg_list is set to TRUE.
113: IF FND_API.to_Boolean( p_init_msg_list )
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: -- Initialize message list if p_init_msg_list is set to TRUE.
113: IF FND_API.to_Boolean( p_init_msg_list )
114: THEN
115: FND_MSG_PUB.initialize;
116: END IF;
117:
116: END IF;
117:
118: -- Initialize API return status to success
119: --
120: x_return_status := FND_API.G_RET_STS_SUCCESS;
121:
122: --
123: -- API body
124: --
239: x_order_by_clause := l_order_by_clause;
240:
241: EXCEPTION
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: x_return_status := FND_API.G_RET_STS_ERROR ;
246:
247: FND_MSG_PUB.Count_And_Get
241: EXCEPTION
242:
243: WHEN FND_API.G_EXC_ERROR THEN
244:
245: x_return_status := FND_API.G_RET_STS_ERROR ;
246:
247: FND_MSG_PUB.Count_And_Get
248: ( p_count => x_msg_count,
249: p_data => x_msg_data
249: p_data => x_msg_data
250: );
251:
252:
253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254:
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
256:
257: FND_MSG_PUB.Count_And_Get
251:
252:
253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254:
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
256:
257: FND_MSG_PUB.Count_And_Get
258: ( p_count => x_msg_count,
259: p_data => x_msg_data
262:
263: WHEN OTHERS THEN
264:
265:
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
267:
268: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
269: THEN
270: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
279:
280: PROCEDURE Get_PeriodNames
281: ( p_api_version_number IN NUMBER,
282: p_init_msg_list IN VARCHAR2
283: := FND_API.G_FALSE,
284: p_validation_level IN NUMBER
285: := FND_API.G_VALID_LEVEL_FULL,
286: p_period_rec IN UTIL_PERIOD_REC_TYPE,
287: x_period_tbl OUT NOCOPY UTIL_PERIOD_TBL_TYPE,
281: ( p_api_version_number IN NUMBER,
282: p_init_msg_list IN VARCHAR2
283: := FND_API.G_FALSE,
284: p_validation_level IN NUMBER
285: := FND_API.G_VALID_LEVEL_FULL,
286: p_period_rec IN UTIL_PERIOD_REC_TYPE,
287: x_period_tbl OUT NOCOPY UTIL_PERIOD_TBL_TYPE,
288: x_return_status OUT NOCOPY VARCHAR2,
289: x_msg_count OUT NOCOPY NUMBER,
294: l_period_end_date DATE, l_period_set_name VARCHAR2) is
295: select period_name, start_date, end_date
296: from gl_periods
297: where period_name like decode(l_period_name, NULL, '%',
298: FND_API.G_MISS_CHAR, '%',
299: l_period_name)
300: and start_date >= decode(l_period_start_date, NULL, to_date('01/01/1000',
301: 'DD/MM/YYYY'),
302: FND_API.G_MISS_CHAR, to_date('01/01/1000',
298: FND_API.G_MISS_CHAR, '%',
299: l_period_name)
300: and start_date >= decode(l_period_start_date, NULL, to_date('01/01/1000',
301: 'DD/MM/YYYY'),
302: FND_API.G_MISS_CHAR, to_date('01/01/1000',
303: 'DD/MM/YYYY'),
304: l_period_start_date)
305: and end_date <= decode(l_period_end_date, NULL, to_date('01/01/9999',
306: 'DD/MM/YYYY'),
303: 'DD/MM/YYYY'),
304: l_period_start_date)
305: and end_date <= decode(l_period_end_date, NULL, to_date('01/01/9999',
306: 'DD/MM/YYYY'),
307: FND_API.G_MISS_CHAR, to_date('01/01/9999',
308: 'DD/MM/YYYY'),
309: l_period_end_date)
310: and (period_set_name = l_period_set_name or period_set_name is NULL);
311:
318: i BINARY_INTEGER := 0;
319:
320: begin
321: -- Standard call to check for call compatibility.
322: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
323: p_api_version_number,
324: l_api_name,
325: G_PKG_NAME)
326: THEN
329: FND_MESSAGE.Set_Name('AS', 'API_UNEXP_ERROR_IN_PROCESSING');
330: FND_MESSAGE.Set_Token('ROW', 'AS_ACCESSES', TRUE);
331: FND_MSG_PUB.ADD;
332: END IF;
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: END IF;
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: IF FND_API.to_Boolean( p_init_msg_list )
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: END IF;
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: IF FND_API.to_Boolean( p_init_msg_list )
338: THEN
339: FND_MSG_PUB.initialize;
340: END IF;
341:
340: END IF;
341:
342: -- Initialize API return status to success
343: --
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345:
346: --
347: -- API body
348: --
372: end loop;
373:
374: EXCEPTION
375:
376: WHEN FND_API.G_EXC_ERROR THEN
377:
378: x_return_status := FND_API.G_RET_STS_ERROR ;
379:
380: FND_MSG_PUB.Count_And_Get
374: EXCEPTION
375:
376: WHEN FND_API.G_EXC_ERROR THEN
377:
378: x_return_status := FND_API.G_RET_STS_ERROR ;
379:
380: FND_MSG_PUB.Count_And_Get
381: ( p_count => x_msg_count,
382: p_data => x_msg_data
382: p_data => x_msg_data
383: );
384:
385:
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387:
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389:
390: FND_MSG_PUB.Count_And_Get
384:
385:
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387:
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389:
390: FND_MSG_PUB.Count_And_Get
391: ( p_count => x_msg_count,
392: p_data => x_msg_data
395:
396: WHEN OTHERS THEN
397:
398:
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
400:
401: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
402: THEN
403: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
505: fetch fnd_common_lookups_meaning_csr into l_meaning;
506: close fnd_common_lookups_meaning_csr;
507: return l_meaning;
508: else
509: raise fnd_api.g_exc_error;
510: return NULL;
511: end if;
512:
513: end;
543: end;
544:
545: PROCEDURE Get_inventory_items( p_api_version_number IN NUMBER,
546: p_init_msg_list IN VARCHAR2
547: := FND_API.G_FALSE,
548: p_identity_salesforce_id IN NUMBER,
549: p_validation_level IN NUMBER
550: := FND_API.G_VALID_LEVEL_FULL,
551: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
546: p_init_msg_list IN VARCHAR2
547: := FND_API.G_FALSE,
548: p_identity_salesforce_id IN NUMBER,
549: p_validation_level IN NUMBER
550: := FND_API.G_VALID_LEVEL_FULL,
551: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
552: x_return_status OUT NOCOPY VARCHAR2,
553: x_msg_count OUT NOCOPY NUMBER,
554: x_msg_data OUT NOCOPY VARCHAR2,
660: l_return_status Varchar2(1);
661:
662: BEGIN
663: -- Standard call to check for call compatibility.
664: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
665: p_api_version_number,
666: l_api_name,
667: G_PKG_NAME)
668: THEN
665: p_api_version_number,
666: l_api_name,
667: G_PKG_NAME)
668: THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672:
673: -- Initialize message list if p_init_msg_list is set to TRUE.
670: END IF;
671:
672:
673: -- Initialize message list if p_init_msg_list is set to TRUE.
674: IF FND_API.to_Boolean( p_init_msg_list ) THEN
675: FND_MSG_PUB.initialize;
676: END IF;
677:
678: -- Debug Message
681: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_items: Start');
682: -- END IF;
683:
684: -- Initialize API return status to success
685: x_return_status := FND_API.G_RET_STS_SUCCESS;
686:
687:
688: -- Validating Environment
689: /*
694: ,x_msg_count => x_msg_count
695: ,x_msg_data => x_msg_data
696: ,x_sales_member_rec => l_identity_sales_member_rec);
697:
698: IF l_return_status != FND_API.G_RET_STS_SUCCESS THEN
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
701: */
702:
695: ,x_msg_data => x_msg_data
696: ,x_sales_member_rec => l_identity_sales_member_rec);
697:
698: IF l_return_status != FND_API.G_RET_STS_SUCCESS THEN
699: RAISE FND_API.G_EXC_ERROR;
700: END IF;
701: */
702:
703:
810:
811:
812: -- API Ending
813:
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815:
816: -- Success Message
817: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
818: THEN
836:
837:
838: EXCEPTION
839:
840: WHEN FND_API.G_EXC_ERROR THEN
841:
842: x_return_status := FND_API.G_RET_STS_ERROR ;
843:
844: FND_MSG_PUB.Count_And_Get
838: EXCEPTION
839:
840: WHEN FND_API.G_EXC_ERROR THEN
841:
842: x_return_status := FND_API.G_RET_STS_ERROR ;
843:
844: FND_MSG_PUB.Count_And_Get
845: ( p_count => x_msg_count,
846: p_data => x_msg_data
846: p_data => x_msg_data
847: );
848:
849:
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851:
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
853:
854: FND_MSG_PUB.Count_And_Get
848:
849:
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851:
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
853:
854: FND_MSG_PUB.Count_And_Get
855: ( p_count => x_msg_count,
856: p_data => x_msg_data
857: );
858:
859: WHEN NO_DATA_FOUND THEN
860:
861: x_return_status := FND_API.G_RET_STS_ERROR ;
862:
863: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
864: -- THEN
865: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find Inventory Item');
874:
875: WHEN OTHERS THEN
876:
877:
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
879:
880: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
881: THEN
882: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
919:
920:
921: PROCEDURE Get_inventory_itemPrice( p_api_version_number IN NUMBER,
922: p_init_msg_list IN VARCHAR2
923: := FND_API.G_FALSE,
924: p_identity_salesforce_id IN NUMBER,
925: p_validation_level IN NUMBER
926: := FND_API.G_VALID_LEVEL_FULL,
927: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
922: p_init_msg_list IN VARCHAR2
923: := FND_API.G_FALSE,
924: p_identity_salesforce_id IN NUMBER,
925: p_validation_level IN NUMBER
926: := FND_API.G_VALID_LEVEL_FULL,
927: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
928: p_price_list_id IN NUMBER,
929: x_return_status OUT NOCOPY VARCHAR2,
930: x_msg_count OUT NOCOPY NUMBER,
980: l_currency_code Varchar2(30);
981:
982: BEGIN
983: -- Standard call to check for call compatibility.
984: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
985: p_api_version_number,
986: l_api_name,
987: G_PKG_NAME)
988: THEN
985: p_api_version_number,
986: l_api_name,
987: G_PKG_NAME)
988: THEN
989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
990: END IF;
991:
992:
993: -- Initialize message list if p_init_msg_list is set to TRUE.
990: END IF;
991:
992:
993: -- Initialize message list if p_init_msg_list is set to TRUE.
994: IF FND_API.to_Boolean( p_init_msg_list ) THEN
995: FND_MSG_PUB.initialize;
996: END IF;
997:
998: -- Debug Message
1001: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_itemPrice: Start');
1002: -- END IF;
1003:
1004: -- Initialize API return status to success
1005: x_return_status := FND_API.G_RET_STS_SUCCESS;
1006:
1007:
1008: -- Validating Environment
1009: /*
1014: ,x_msg_count => x_msg_count
1015: ,x_msg_data => x_msg_data
1016: ,x_sales_member_rec => l_identity_sales_member_rec);
1017:
1018: IF l_return_status != FND_API.G_RET_STS_SUCCESS THEN
1019: RAISE FND_API.G_EXC_ERROR;
1020: END IF;
1021: */
1022:
1015: ,x_msg_data => x_msg_data
1016: ,x_sales_member_rec => l_identity_sales_member_rec);
1017:
1018: IF l_return_status != FND_API.G_RET_STS_SUCCESS THEN
1019: RAISE FND_API.G_EXC_ERROR;
1020: END IF;
1021: */
1022:
1023:
1062: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1063: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find List Price');
1064: -- END IF;
1065: l_list_price := NULL;
1066: x_return_status := FND_API.G_RET_STS_SUCCESS;
1067: Else
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069: End if;
1070:
1064: -- END IF;
1065: l_list_price := NULL;
1066: x_return_status := FND_API.G_RET_STS_SUCCESS;
1067: Else
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069: End if;
1070:
1071: -- Debug Message
1072: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1075:
1076: Close C_Get_inv_item_second_pr;
1077:
1078: Else
1079: x_return_status := FND_API.G_RET_STS_SUCCESS;
1080: End if;
1081:
1082: -- Debug Message
1083: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1115:
1116:
1117: EXCEPTION
1118:
1119: WHEN FND_API.G_EXC_ERROR THEN
1120:
1121: x_return_status := FND_API.G_RET_STS_ERROR ;
1122:
1123: FND_MSG_PUB.Count_And_Get
1117: EXCEPTION
1118:
1119: WHEN FND_API.G_EXC_ERROR THEN
1120:
1121: x_return_status := FND_API.G_RET_STS_ERROR ;
1122:
1123: FND_MSG_PUB.Count_And_Get
1124: ( p_count => x_msg_count,
1125: p_data => x_msg_data
1125: p_data => x_msg_data
1126: );
1127:
1128:
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130:
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132:
1133: FND_MSG_PUB.Count_And_Get
1127:
1128:
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130:
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1132:
1133: FND_MSG_PUB.Count_And_Get
1134: ( p_count => x_msg_count,
1135: p_data => x_msg_data
1136: );
1137:
1138: WHEN NO_DATA_FOUND THEN
1139:
1140: x_return_status := FND_API.G_RET_STS_ERROR ;
1141:
1142: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1143: -- THEN
1144: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find Inventory Item List Price');
1153:
1154: WHEN OTHERS THEN
1155:
1156:
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1158:
1159: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1160: THEN
1161: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1169:
1170: End Get_inventory_itemPrice;
1171:
1172: PROCEDURE Get_Price_List_Id(p_api_version_number IN NUMBER,
1173: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1174: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1175: x_return_status OUT NOCOPY VARCHAR2,
1176: x_msg_count OUT NOCOPY NUMBER,
1177: x_msg_data OUT NOCOPY VARCHAR2,
1170: End Get_inventory_itemPrice;
1171:
1172: PROCEDURE Get_Price_List_Id(p_api_version_number IN NUMBER,
1173: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1174: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1175: x_return_status OUT NOCOPY VARCHAR2,
1176: x_msg_count OUT NOCOPY NUMBER,
1177: x_msg_data OUT NOCOPY VARCHAR2,
1178: p_currency_code IN VARCHAR2,
1194: l_price_list_id Number;
1195:
1196: BEGIN
1197: -- Standard call to check for call compatibility.
1198: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1199: p_api_version_number,
1200: l_api_name,
1201: G_PKG_NAME)
1202: THEN
1199: p_api_version_number,
1200: l_api_name,
1201: G_PKG_NAME)
1202: THEN
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: END IF;
1205:
1206: -- Initialize message list if p_init_msg_list is set to TRUE.
1207: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1204: END IF;
1205:
1206: -- Initialize message list if p_init_msg_list is set to TRUE.
1207: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1208: FND_MSG_PUB.initialize;
1209: END IF;
1210:
1211: -- Debug Message
1214: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id: Start');
1215: -- END IF;
1216:
1217: -- Initialize API return status to success
1218: x_return_status := FND_API.G_RET_STS_SUCCESS;
1219:
1220: -- Debug Message
1221: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1222: -- THEN
1242: l_price_list_id := NULL;
1243: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1244: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_List_Id - No Price List Id is found');
1245: -- END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: Else
1248: x_return_status := FND_API.G_RET_STS_SUCCESS;
1249: END IF;
1250: CLOSE l_price_list_id_csr;
1244: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_List_Id - No Price List Id is found');
1245: -- END IF;
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: Else
1248: x_return_status := FND_API.G_RET_STS_SUCCESS;
1249: END IF;
1250: CLOSE l_price_list_id_csr;
1251: x_price_list_id := l_price_list_id;
1252:
1272: );
1273:
1274: EXCEPTION
1275:
1276: WHEN FND_API.G_EXC_ERROR THEN
1277: x_return_status := FND_API.G_RET_STS_ERROR ;
1278: FND_MSG_PUB.Count_And_Get
1279: ( p_count => x_msg_count,
1280: p_data => x_msg_data
1273:
1274: EXCEPTION
1275:
1276: WHEN FND_API.G_EXC_ERROR THEN
1277: x_return_status := FND_API.G_RET_STS_ERROR ;
1278: FND_MSG_PUB.Count_And_Get
1279: ( p_count => x_msg_count,
1280: p_data => x_msg_data
1281: );
1278: FND_MSG_PUB.Count_And_Get
1279: ( p_count => x_msg_count,
1280: p_data => x_msg_data
1281: );
1282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: ( p_count => x_msg_count,
1286: p_data => x_msg_data
1279: ( p_count => x_msg_count,
1280: p_data => x_msg_data
1281: );
1282: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1284: FND_MSG_PUB.Count_And_Get
1285: ( p_count => x_msg_count,
1286: p_data => x_msg_data
1287: );
1285: ( p_count => x_msg_count,
1286: p_data => x_msg_data
1287: );
1288: WHEN NO_DATA_FOUND THEN
1289: x_return_status := FND_API.G_RET_STS_ERROR ;
1290: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1291: -- THEN
1292: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');
1293: -- END IF;
1295: ( p_count => x_msg_count,
1296: p_data => x_msg_data
1297: );
1298: WHEN OTHERS THEN
1299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1300: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1301: THEN
1302: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1303: END IF;
1310:
1311:
1312:
1313: PROCEDURE Get_Price_Info(p_api_version_number IN NUMBER,
1314: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1315: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1316: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1317: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1318: p_currency_code IN VARCHAR2,
1311:
1312:
1313: PROCEDURE Get_Price_Info(p_api_version_number IN NUMBER,
1314: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1315: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1316: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1317: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1318: p_currency_code IN VARCHAR2,
1319: x_return_status OUT NOCOPY VARCHAR2,
1313: PROCEDURE Get_Price_Info(p_api_version_number IN NUMBER,
1314: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1315: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1316: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1317: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1318: p_currency_code IN VARCHAR2,
1319: x_return_status OUT NOCOPY VARCHAR2,
1320: x_msg_count OUT NOCOPY NUMBER,
1321: x_msg_data OUT NOCOPY VARCHAR2,
1339: l_price Number;
1340: l_currency_code VARCHAR2(15);
1341: BEGIN
1342: -- Standard call to check for call compatibility.
1343: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1344: p_api_version_number,
1345: l_api_name,
1346: G_PKG_NAME)
1347: THEN
1344: p_api_version_number,
1345: l_api_name,
1346: G_PKG_NAME)
1347: THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: -- Initialize message list if p_init_msg_list is set to TRUE.
1352: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: -- Initialize message list if p_init_msg_list is set to TRUE.
1352: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1353: FND_MSG_PUB.initialize;
1354: END IF;
1355:
1356: -- Debug Message
1359: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info: Start');
1360: -- END IF;
1361:
1362: -- Initialize API return status to success
1363: x_return_status := FND_API.G_RET_STS_SUCCESS;
1364:
1365: -- Check inventory item id, if it's not null, use it to get the price list id and price
1366: IF (p_inventory_item_rec.inventory_item_id <> FND_API.G_MISS_NUM AND p_inventory_item_rec.inventory_item_id IS NOT NULL)
1367: THEN
1362: -- Initialize API return status to success
1363: x_return_status := FND_API.G_RET_STS_SUCCESS;
1364:
1365: -- Check inventory item id, if it's not null, use it to get the price list id and price
1366: IF (p_inventory_item_rec.inventory_item_id <> FND_API.G_MISS_NUM AND p_inventory_item_rec.inventory_item_id IS NOT NULL)
1367: THEN
1368: Get_Price_List_Id(p_api_version_number => 2.0,
1369: p_init_msg_list => FND_API.G_FALSE,
1370: x_return_status => l_return_status,
1365: -- Check inventory item id, if it's not null, use it to get the price list id and price
1366: IF (p_inventory_item_rec.inventory_item_id <> FND_API.G_MISS_NUM AND p_inventory_item_rec.inventory_item_id IS NOT NULL)
1367: THEN
1368: Get_Price_List_Id(p_api_version_number => 2.0,
1369: p_init_msg_list => FND_API.G_FALSE,
1370: x_return_status => l_return_status,
1371: x_msg_count => x_msg_count,
1372: x_msg_data => x_msg_data,
1373: p_currency_code => p_currency_code,
1371: x_msg_count => x_msg_count,
1372: x_msg_data => x_msg_data,
1373: p_currency_code => p_currency_code,
1374: x_price_list_id => l_price_list_id);
1375: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1376: raise FND_API.G_EXC_ERROR;
1377: END IF;
1378: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1379: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_Info - Price_list_id : ' || to_char(l_price_list_id));
1372: x_msg_data => x_msg_data,
1373: p_currency_code => p_currency_code,
1374: x_price_list_id => l_price_list_id);
1375: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1376: raise FND_API.G_EXC_ERROR;
1377: END IF;
1378: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1379: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_Info - Price_list_id : ' || to_char(l_price_list_id));
1380: -- END IF;
1378: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1379: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_Info - Price_list_id : ' || to_char(l_price_list_id));
1380: -- END IF;
1381: Get_inventory_itemPrice( p_api_version_number => 2.0,
1382: p_init_msg_list => FND_API.G_FALSE,
1383: p_identity_salesforce_id => NULL,
1384: p_inventory_item_rec => p_inventory_item_rec,
1385: p_price_list_id => l_price_list_id,
1386: x_return_status => l_return_status,
1387: x_msg_count => x_msg_count,
1388: x_msg_data => x_msg_data,
1389: x_list_price => l_price,
1390: x_currency_code => l_currency_code);
1391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394: x_price_list_id := l_price_list_id;
1395: x_price := l_price;
1388: x_msg_data => x_msg_data,
1389: x_list_price => l_price,
1390: x_currency_code => l_currency_code);
1391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394: x_price_list_id := l_price_list_id;
1395: x_price := l_price;
1396: Elsif (p_secondary_interest_code_id IS NOT NULL) THEN
1405: FND_MSG_PUB.ADD;
1406: END IF;
1407: l_price := NULL;
1408: -- close l_secondary_price_csr;
1409: -- raise FND_API.G_EXC_ERROR;
1410: END IF;
1411: close l_secondary_price_csr;
1412: Else
1413: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1417: FND_MESSAGE.Set_Name('AS','API_UNEXP_ERROR_IN_PROCESSING');
1418: FND_MESSAGE.Set_Token('ROW','AS_FOUNDATION');
1419: FND_MSG_PUB.ADD;
1420: END IF;
1421: raise FND_API.G_EXC_ERROR;
1422: END IF;
1423: x_price_list_id := l_price_list_id;
1424: x_price := l_price;
1425: -- Success Message
1443: );
1444:
1445: EXCEPTION
1446:
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: x_return_status := FND_API.G_RET_STS_ERROR ;
1449: FND_MSG_PUB.Count_And_Get
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data
1444:
1445: EXCEPTION
1446:
1447: WHEN FND_API.G_EXC_ERROR THEN
1448: x_return_status := FND_API.G_RET_STS_ERROR ;
1449: FND_MSG_PUB.Count_And_Get
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data
1452: );
1449: FND_MSG_PUB.Count_And_Get
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data
1452: );
1453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1455: FND_MSG_PUB.Count_And_Get
1456: ( p_count => x_msg_count,
1457: p_data => x_msg_data
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data
1452: );
1453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1455: FND_MSG_PUB.Count_And_Get
1456: ( p_count => x_msg_count,
1457: p_data => x_msg_data
1458: );
1456: ( p_count => x_msg_count,
1457: p_data => x_msg_data
1458: );
1459: WHEN NO_DATA_FOUND THEN
1460: x_return_status := FND_API.G_RET_STS_ERROR ;
1461: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1462: -- THEN
1463: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');
1464: -- END IF;
1466: ( p_count => x_msg_count,
1467: p_data => x_msg_data
1468: );
1469: WHEN OTHERS THEN
1470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1471: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1472: THEN
1473: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1474: END IF;
1492: -- Parameters :
1493: -- IN :
1494: -- p_api_version_number IN NUMBER,
1495: -- p_init_msg_list IN VARCHAR2
1496: -- := FND_API.G_FALSE
1497: -- p_validation_level IN NUMBER
1498: -- := FND_API.G_VALID_LEVEL_FULL
1499: -- p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE
1500: -- DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC
1494: -- p_api_version_number IN NUMBER,
1495: -- p_init_msg_list IN VARCHAR2
1496: -- := FND_API.G_FALSE
1497: -- p_validation_level IN NUMBER
1498: -- := FND_API.G_VALID_LEVEL_FULL
1499: -- p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE
1500: -- DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC
1501: -- p_secondary_interest_code_id IN NUMBER
1502: -- DEFAULT FND_API.G_MISS_NUM
1498: -- := FND_API.G_VALID_LEVEL_FULL
1499: -- p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE
1500: -- DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC
1501: -- p_secondary_interest_code_id IN NUMBER
1502: -- DEFAULT FND_API.G_MISS_NUM
1503: -- p_currency_code IN VARCHAR2
1504: -- p_volume IN NUMBER
1505: -- DEFAULT FND_API.G_MISS_NUM
1506: -- p_amount IN NUMBER
1501: -- p_secondary_interest_code_id IN NUMBER
1502: -- DEFAULT FND_API.G_MISS_NUM
1503: -- p_currency_code IN VARCHAR2
1504: -- p_volume IN NUMBER
1505: -- DEFAULT FND_API.G_MISS_NUM
1506: -- p_amount IN NUMBER
1507: -- DEFAULT FND_API.G_MISS_NUM
1508: -- x_return_status OUT VARCHAR2
1509: -- x_msg_count OUT NUMBER
1503: -- p_currency_code IN VARCHAR2
1504: -- p_volume IN NUMBER
1505: -- DEFAULT FND_API.G_MISS_NUM
1506: -- p_amount IN NUMBER
1507: -- DEFAULT FND_API.G_MISS_NUM
1508: -- x_return_status OUT VARCHAR2
1509: -- x_msg_count OUT NUMBER
1510: -- x_msg_data OUT VARCHAR2
1511: -- x_vol_tolerance_margin OUT NUMBER
1526: -- Among them, if uom_code is not set, the value in the table will be used
1527: -- 3. p_volume and p_amount are a pair of volume_amount to be checking. If one of them is missed,
1528: -- this API will compute the other one.
1529: -- 4. If the profile value tells that the volume forecasting is disabled, all parameters from
1530: -- x_vol_tolerance_margin to x_price will be NULL and x_return_status is FND_API.G_RET_STS_SUCCESS.
1531: --End of Comments
1532: PROCEDURE Check_Volume_Amount(p_api_version_number IN NUMBER,
1533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1529: -- 4. If the profile value tells that the volume forecasting is disabled, all parameters from
1530: -- x_vol_tolerance_margin to x_price will be NULL and x_return_status is FND_API.G_RET_STS_SUCCESS.
1531: --End of Comments
1532: PROCEDURE Check_Volume_Amount(p_api_version_number IN NUMBER,
1533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1535: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1536: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1537: p_currency_code IN VARCHAR2,
1530: -- x_vol_tolerance_margin to x_price will be NULL and x_return_status is FND_API.G_RET_STS_SUCCESS.
1531: --End of Comments
1532: PROCEDURE Check_Volume_Amount(p_api_version_number IN NUMBER,
1533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1535: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1536: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1537: p_currency_code IN VARCHAR2,
1538: p_volume IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1532: PROCEDURE Check_Volume_Amount(p_api_version_number IN NUMBER,
1533: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1535: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1536: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1537: p_currency_code IN VARCHAR2,
1538: p_volume IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1539: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1540: x_return_status OUT NOCOPY VARCHAR2,
1534: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1535: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1536: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1537: p_currency_code IN VARCHAR2,
1538: p_volume IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1539: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1540: x_return_status OUT NOCOPY VARCHAR2,
1541: x_msg_count OUT NOCOPY NUMBER,
1542: x_msg_data OUT NOCOPY VARCHAR2,
1535: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
1536: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1537: p_currency_code IN VARCHAR2,
1538: p_volume IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1539: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1540: x_return_status OUT NOCOPY VARCHAR2,
1541: x_msg_count OUT NOCOPY NUMBER,
1542: x_msg_data OUT NOCOPY VARCHAR2,
1543: x_vol_tolerance_margin OUT NOCOPY NUMBER,
1561: l_amount_ceiling NUMBER;
1562: l_vol_tolerance_margin NUMBER := TO_NUMBER(NVL(FND_PROFILE.Value('AS_PRICE_VOLUME_TOLERANCE_MARGIN'),'100'));
1563: BEGIN
1564: -- Standard call to check for call compatibility.
1565: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1566: p_api_version_number,
1567: l_api_name,
1568: G_PKG_NAME) THEN
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1566: p_api_version_number,
1567: l_api_name,
1568: G_PKG_NAME) THEN
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570: END IF;
1571:
1572: -- Initialize message list if p_init_msg_list is set to TRUE.
1573: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1570: END IF;
1571:
1572: -- Initialize message list if p_init_msg_list is set to TRUE.
1573: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1574: FND_MSG_PUB.initialize;
1575: END IF;
1576:
1577: -- Debug Message
1579: -- dbms_output.put_line('AS_Foundation_PVT.Check_Volume_Amount: Start');
1580: -- END IF;
1581:
1582: -- Initialize API return status to success
1583: x_return_status := FND_API.G_RET_STS_SUCCESS;
1584:
1585: -- API body
1586: l_volume_forecast_enable := NVL(FND_PROFILE.Value('AS_VOLUME_FORECASTING_ENABLED'),'N');
1587: -- Debug Message
1591: x_vol_tolerance_margin := l_vol_tolerance_margin;
1592: IF (p_inventory_item_rec.inventory_item_id IS NOT NULL) THEN
1593: AS_FOUNDATION_PUB.Get_Inventory_items(
1594: p_api_version_number => 2.0,
1595: p_init_msg_list => FND_API.G_TRUE,
1596: p_identity_salesforce_id => NULL,
1597: p_inventory_item_rec => p_inventory_item_rec,
1598: x_return_status => l_return_status,
1599: x_msg_count => l_msg_count,
1598: x_return_status => l_return_status,
1599: x_msg_count => l_msg_count,
1600: x_msg_data => l_msg_data,
1601: x_inventory_item_tbl => l_inv_item_tbl);
1602: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1603: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1604: -- dbms_output.put_line('AS_FOUNDATION_PVT - Item : Not Found');
1605: -- END IF;
1606: raise FND_API.G_EXC_ERROR;
1602: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1603: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1604: -- dbms_output.put_line('AS_FOUNDATION_PVT - Item : Not Found');
1605: -- END IF;
1606: raise FND_API.G_EXC_ERROR;
1607: END IF;
1608: IF (p_inventory_item_rec.Primary_UOM_Code IS NOT NULL) THEN
1609: l_inv_item_tbl(1).Primary_UOM_Code := p_inventory_item_rec.Primary_UOM_Code;
1610: END IF;
1614: -- dbms_output.put_line('AS_Foundation_PVT - UOM:' || x_uom_code);
1615: -- END IF;
1616: Get_Price_Info(
1617: p_api_version_number => 2.0,
1618: p_init_msg_list => FND_API.G_FALSE,
1619: p_inventory_item_rec => l_inv_item_tbl(1),
1620: p_secondary_interest_code_id => NULL,
1621: p_currency_code => p_currency_code,
1622: x_return_status => l_return_status,
1626: x_price => l_price);
1627: Elsif (p_secondary_interest_code_id IS NOT NULL) THEN
1628: Get_Price_Info(
1629: p_api_version_number => 2.0,
1630: p_init_msg_list => FND_API.G_FALSE,
1631: p_inventory_item_rec => NULL,
1632: p_secondary_interest_code_id => p_secondary_interest_code_id,
1633: p_currency_code => p_currency_code,
1634: x_return_status => l_return_status,
1636: x_msg_data => l_msg_data,
1637: x_price_list_id => l_price_list_id,
1638: x_price => l_price);
1639: END IF;
1640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1641: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1642: -- dbms_output.put_line('AS_FOUNDATION_PVT - Price : Not Found');
1643: -- END IF;
1644: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1645: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
1646: FND_MESSAGE.Set_Token('COLUMN','Price', FALSE);
1647: FND_MSG_PUB.ADD;
1648: END IF;
1649: raise FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1652: IF l_volume_forecast_enable = 'Y' THEN
1653: IF ((p_volume = FND_API.G_MISS_NUM AND p_amount = FND_API.G_MISS_NUM) OR l_price IS NULL) THEN
1649: raise FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1652: IF l_volume_forecast_enable = 'Y' THEN
1653: IF ((p_volume = FND_API.G_MISS_NUM AND p_amount = FND_API.G_MISS_NUM) OR l_price IS NULL) THEN
1654: IF l_price IS NULL THEN
1655: IF p_volume = FND_API.G_MISS_NUM THEN
1656: x_volume := NULL;
1657: ELSE
1651:
1652: IF l_volume_forecast_enable = 'Y' THEN
1653: IF ((p_volume = FND_API.G_MISS_NUM AND p_amount = FND_API.G_MISS_NUM) OR l_price IS NULL) THEN
1654: IF l_price IS NULL THEN
1655: IF p_volume = FND_API.G_MISS_NUM THEN
1656: x_volume := NULL;
1657: ELSE
1658: x_volume := p_volume;
1659: END IF;
1656: x_volume := NULL;
1657: ELSE
1658: x_volume := p_volume;
1659: END IF;
1660: IF p_amount = FND_API.G_MISS_NUM THEN
1661: x_amount := NULL;
1662: ELSE
1663: x_amount := p_amount;
1664: END IF;
1671: -- END IF;
1672: x_volume := NULL;
1673: x_amount := NULL;
1674: END IF;
1675: Elsif (p_volume = FND_API.G_MISS_NUM or p_volume IS NULL) THEN
1676: x_volume := p_amount / l_price;
1677: x_amount := p_amount;
1678: Elsif (p_amount = FND_API.G_MISS_NUM or p_amount IS NULL) THEN
1679: x_amount := p_volume * l_price;
1674: END IF;
1675: Elsif (p_volume = FND_API.G_MISS_NUM or p_volume IS NULL) THEN
1676: x_volume := p_amount / l_price;
1677: x_amount := p_amount;
1678: Elsif (p_amount = FND_API.G_MISS_NUM or p_amount IS NULL) THEN
1679: x_amount := p_volume * l_price;
1680: x_volume := p_volume;
1681: Else
1682: x_amount := p_amount;
1690: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1691: FND_MESSAGE.Set_Name('AS', 'API_EXCEED_MARGIN');
1692: FND_MSG_PUB.ADD;
1693: END IF;
1694: raise FND_API.G_EXC_ERROR;
1695: END IF;
1696: END IF; -- End of p_volume and p_amount Checking
1697: -- Fix bug 889659, 889809 pass back volume and amount when Volume forecasting is turned off
1698: ELSE
1696: END IF; -- End of p_volume and p_amount Checking
1697: -- Fix bug 889659, 889809 pass back volume and amount when Volume forecasting is turned off
1698: ELSE
1699: x_vol_tolerance_margin := l_vol_tolerance_margin;
1700: IF p_volume <> FND_API.G_MISS_NUM THEN
1701: x_volume := p_volume;
1702: END IF;
1703: IF p_amount <> FND_API.G_MISS_NUM THEN
1704: x_amount := p_amount;
1699: x_vol_tolerance_margin := l_vol_tolerance_margin;
1700: IF p_volume <> FND_API.G_MISS_NUM THEN
1701: x_volume := p_volume;
1702: END IF;
1703: IF p_amount <> FND_API.G_MISS_NUM THEN
1704: x_amount := p_amount;
1705: END IF;
1706: END IF; -- End of checking p_volume_forecast_enable flag
1707: -- API body end
1726: p_data => x_msg_data
1727: );
1728:
1729: EXCEPTION
1730: WHEN FND_API.G_EXC_ERROR THEN
1731: x_return_status := FND_API.G_RET_STS_ERROR ;
1732: FND_MSG_PUB.Count_And_Get
1733: ( p_count => x_msg_count,
1734: p_data => x_msg_data
1727: );
1728:
1729: EXCEPTION
1730: WHEN FND_API.G_EXC_ERROR THEN
1731: x_return_status := FND_API.G_RET_STS_ERROR ;
1732: FND_MSG_PUB.Count_And_Get
1733: ( p_count => x_msg_count,
1734: p_data => x_msg_data
1735: );
1732: FND_MSG_PUB.Count_And_Get
1733: ( p_count => x_msg_count,
1734: p_data => x_msg_data
1735: );
1736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data
1733: ( p_count => x_msg_count,
1734: p_data => x_msg_data
1735: );
1736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1738: FND_MSG_PUB.Count_And_Get
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data
1741: );
1739: ( p_count => x_msg_count,
1740: p_data => x_msg_data
1741: );
1742: WHEN NO_DATA_FOUND THEN
1743: x_return_status := FND_API.G_RET_STS_ERROR ;
1744: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1745: -- THEN
1746: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');
1747: -- END IF;
1749: ( p_count => x_msg_count,
1750: p_data => x_msg_data
1751: );
1752: WHEN OTHERS THEN
1753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1754: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1755: THEN
1756: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1757: END IF;
1772: -- END IF;
1773:
1774: FOR i IN 1..p_flex_where_tbl_type.count LOOP
1775: IF (p_flex_where_tbl_type(i).value IS NOT NULL
1776: AND p_flex_where_tbl_type(i).value <> FND_API.G_MISS_CHAR) THEN
1777: l_flex_where_cl := l_flex_where_cl||' AND '||p_flex_where_tbl_type(i).name
1778: || ' = '''||p_flex_where_tbl_type(i).value||'''';
1779: END IF;
1780: END LOOP;
1795: -- END IF;
1796:
1797: FOR i IN 1..p_flex_where_tbl_type.count LOOP
1798: IF (p_flex_where_tbl_type(i).value IS NOT NULL
1799: AND p_flex_where_tbl_type(i).value <> FND_API.G_MISS_CHAR) THEN
1800: l_flex_where_cl := l_flex_where_cl||' AND '||p_flex_where_tbl_type(i).name
1801: || ' = :p_ofso_flex_var'||i;
1802: END IF;
1803: END LOOP;
1817: -- END IF;
1818:
1819: FOR i IN 1..p_flex_where_tbl_type.count LOOP
1820: IF (p_flex_where_tbl_type(i).value IS NOT NULL
1821: AND p_flex_where_tbl_type(i).value <> FND_API.G_MISS_CHAR) THEN
1822: DBMS_SQL.Bind_Variable(p_cursor_id, ':p_ofso_flex_var'||i,
1823: p_flex_where_tbl_type(i).value);
1824: END IF;
1825: END LOOP;
1856: and lng.language_id = x_lang_id;
1857: BEGIN
1858: FOR l_count in 1..p_message_count LOOP
1859:
1860: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_true);
1861: fnd_message.parse_encoded(l_temp_msg, l_appl_short_name, l_message_name);
1862: OPEN Get_Appl_Id (l_appl_short_name);
1863: FETCH Get_Appl_Id into l_id;
1864: CLOSE Get_Appl_Id;
1871: FETCH Get_Message_Num into l_message_num;
1872: CLOSE Get_Message_Num;
1873: END IF;
1874:
1875: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, fnd_api.g_true);
1876:
1877: IF NVL(l_message_num, 0) <> 0
1878: THEN
1879: l_temp_msg := 'APP-' || to_char(l_message_num) || ': ';
1883:
1884: IF l_count = 1
1885: THEN
1886: l_msg_list := l_msg_list || l_temp_msg ||
1887: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
1888: ELSE
1889: l_msg_list := l_msg_list || l_temp_msg ||
1890: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
1891: END IF;
1886: l_msg_list := l_msg_list || l_temp_msg ||
1887: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
1888: ELSE
1889: l_msg_list := l_msg_list || l_temp_msg ||
1890: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
1891: END IF;
1892:
1893: l_msg_list := l_msg_list || '
1894: ';