[Home] [Help]
1: PACKAGE BODY AS_FOUNDATION_PUB as
2: /* $Header: asxpfoub.pls 120.1 2005/06/05 22:52:17 appldev $ */
3: --
4: -- NAME
5: -- AS_FOUNDATION_PUB
1: PACKAGE BODY AS_FOUNDATION_PUB as
2: /* $Header: asxpfoub.pls 120.1 2005/06/05 22:52:17 appldev $ */
3: --
4: -- NAME
5: -- AS_FOUNDATION_PUB
6: --
7: -- HISTORY
8: -- 8/06/98 ALHUNG CREATED
9: -- Sept 1, 98 cklee Added new function Get_Constant
9: -- Sept 1, 98 cklee Added new function Get_Constant
10: -- 06/22/99 awu Added get_messages and get_periodNames
11: -- 6/29/2000 Srikanth deleted get_messages as it was implemented in as_utility_pub
12:
13: G_PKG_NAME CONSTANT VARCHAR2(30):='AS_FOUNDATION_PUB';
14: G_FILE_NAME CONSTANT VARCHAR2(12):='asxpfoub.pls';
15: --G_USER_ID NUMBER := FND_GLOBAL.User_Id;
16:
17:
18: PROCEDURE Get_inventory_items( p_api_version_number IN NUMBER,
19: p_init_msg_list IN VARCHAR2
20: := FND_API.G_FALSE,
21: p_identity_salesforce_id IN NUMBER,
22: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
23: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
24: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
25: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
26: x_inventory_item_tbl OUT NOCOPY /* file.sql.39 change */ AS_FOUNDATION_PUB.inventory_item_TBL_TYPE) IS
22: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE,
23: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
24: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
25: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
26: x_inventory_item_tbl OUT NOCOPY /* file.sql.39 change */ AS_FOUNDATION_PUB.inventory_item_TBL_TYPE) IS
27:
28:
29:
30:
36:
37: l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
38:
39: -- Locat tmp Variables
40: l_inventory_item_rec AS_FOUNDATION_PUB.inventory_item_Rec_Type;
41:
42: -- Local record index
43: l_cur_index Number := 0;
44:
63:
64: -- Debug Message
65: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
66: --THEN
67: --dbms_output.put_line('AS_FOUNDATION_PUB.Get_inventory_items: Start');
68: --END IF;
69:
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
102:
103: -- Debug Message
104: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
105: --THEN
106: --dbms_output.put_line('AS_FOUNDATION_PUB.Get_inventory_items: End');
107: --END IF;
108:
109: -- Standard call to get message count and if count is 1, get message info.
110: FND_MSG_PUB.Count_And_Get
189: PROCEDURE Calculate_Amount( p_api_version_number IN NUMBER,
190: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_identity_salesforce_id IN NUMBER,
193: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE
194: DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
195: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
196: p_currency_code IN VARCHAR2,
197: p_volume IN NUMBER,
190: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_identity_salesforce_id IN NUMBER,
193: p_inventory_item_rec IN AS_FOUNDATION_PUB.Inventory_Item_REC_TYPE
194: DEFAULT AS_FOUNDATION_PUB.G_MISS_INVENTORY_ITEM_REC,
195: p_secondary_interest_code_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
196: p_currency_code IN VARCHAR2,
197: p_volume IN NUMBER,
198: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
203: -- Local API Variables
204: l_api_name CONSTANT VARCHAR2(30) := 'Calculate_Amount';
205: l_api_version_number CONSTANT NUMBER := 2.0;
206:
207: l_inv_item_tbl AS_FOUNDATION_PUB.Inventory_Item_tbl_type;
208: l_price_list_id NUMBER;
209: l_price NUMBER;
210: l_amount NUMBER;
211: BEGIN
223: END IF;
224:
225: -- Debug Message
226: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
227: --dbms_output.put_line('AS_Foundation_PUB.Calculate_Amount: Start');
228: --END IF;
229:
230: -- Initialize API return status to success
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232: -- Fix bug 858155 initialize the l_price to NULL instead of 0
233: l_price := NULL;
234: IF (p_inventory_item_rec.inventory_item_id IS NOT NULL) AND
235: (p_inventory_item_rec.inventory_item_id <> FND_API.G_MISS_NUM) THEN
236: AS_FOUNDATION_PUB.Get_Inventory_items(
237: p_api_version_number => 2.0,
238: p_init_msg_list => FND_API.G_TRUE,
239: p_identity_salesforce_id => NULL,
240: p_inventory_item_rec => p_inventory_item_rec,
243: x_msg_data => x_msg_data,
244: x_inventory_item_tbl => l_inv_item_tbl);
245: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
246: --IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
247: --dbms_output.put_line('AS_FOUNDATION_PUB - Item : Not Found');
248: --END IF;
249: raise FND_API.G_EXC_ERROR;
250: END IF;
251: IF (p_inventory_item_rec.Primary_UOM_Code IS NOT NULL) THEN
279: x_price => l_price);
280: END IF;
281: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
282: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
283: --dbms_output.put_line('AS_FOUNDATION_PUB - Price : Not Found');
284: --END IF;
285: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
286: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
287: FND_MESSAGE.Set_Token('COLUMN','Price', FALSE);
295: ELSE
296: l_amount := p_volume * l_price;
297: END IF;
298: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
299: --dbms_output.put_line('AS_Foundation_PUB - Amount: ' || to_char(l_amount));
300: --END IF;
301: x_amount := l_amount;
302: -- Success Message
303: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
307: END IF;
308:
309: -- Debug Message
310: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
311: --dbms_output.put_line('AS_Foundation_PUB.Calculate_Amount: End');
312: --END IF;
313:
314: -- Standard call to get message count and if count is 1, get message info.
315: FND_MSG_PUB.Count_And_Get
333: WHEN NO_DATA_FOUND THEN
334: x_return_status := FND_API.G_RET_STS_ERROR ;
335: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
336: --THEN
337: --dbms_output.put_line('AS_Foundation_PUB. - Cannot Find Price List Id');
338: --END IF;
339: FND_MSG_PUB.Count_And_Get
340: ( p_count => x_msg_count,
341: p_data => x_msg_data
463:
464: end get_periodNames;
465:
466:
467: END AS_FOUNDATION_PUB;