eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AS_FOUNDATION_PVT dependencies on AS_FOUNDATION_PVT

Line 1: PACKAGE BODY AS_FOUNDATION_PVT as

1: PACKAGE BODY AS_FOUNDATION_PVT as
2: /* $Header: asxvfoub.pls 120.1 2005/12/06 03:14:26 amagupta noship $ */
3: --
4: -- NAME
5: -- AS_FOUNDATION_PVT

Line 5: -- AS_FOUNDATION_PVT

1: PACKAGE BODY AS_FOUNDATION_PVT as
2: /* $Header: asxvfoub.pls 120.1 2005/12/06 03:14:26 amagupta noship $ */
3: --
4: -- NAME
5: -- AS_FOUNDATION_PVT
6: --
7: -- HISTORY
8: -- 7/22/98 AWU CREATED
9: --

Line 11: G_PKG_NAME CONSTANT VARCHAR2(30):='AS_FOUNDATION_PVT';

7: -- HISTORY
8: -- 7/22/98 AWU CREATED
9: --
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):='AS_FOUNDATION_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12):='asxvfoub.pls';
13:
14: G_APPL_ID NUMBER := FND_GLOBAL.Prog_Appl_Id;
15: G_LOGIN_ID NUMBER := FND_GLOBAL.Conc_Login_Id;

Line 681: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_items: Start');

677:
678: -- Debug Message
679: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
680: -- THEN
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;

Line 711: -- dbms_output.put_line('AS_Foundation_PVT - Open NO ID Cursor to Select');

707:
708: -- Debug Message
709: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
710: -- THEN
711: -- dbms_output.put_line('AS_Foundation_PVT - Open NO ID Cursor to Select');
712: -- END IF;
713:
714: l_inventory_item_rec.description := nvl(p_inventory_item_rec.description,'%');
715: Open C_Get_inv_items_NO_inv_id(p_inventory_item_rec.organization_id,

Line 724: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');

720:
721: -- Debug Message
722: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
723: -- THEN
724: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');
725: -- END IF;
726:
727: Loop
728:

Line 753: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');

749: End Loop;
750:
751: -- Debug Message
752: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
753: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');
754: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));
755: -- END IF;
756:
757: Close C_Get_inv_items_NO_inv_id;

Line 754: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));

750:
751: -- Debug Message
752: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
753: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');
754: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));
755: -- END IF;
756:
757: Close C_Get_inv_items_NO_inv_id;
758: Else

Line 762: -- dbms_output.put_line('AS_Foundation_PVT - Open With ID Cursor to Select');

758: Else
759:
760: -- Debug Message
761: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
762: -- dbms_output.put_line('AS_Foundation_PVT - Open With ID Cursor to Select');
763: -- END IF;
764:
765: Open C_Get_inv_items_w_inv_id(p_inventory_item_rec.inventory_item_id,
766: p_inventory_item_rec.organization_id,

Line 774: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');

770: p_inventory_item_rec.bom_item_type );
771:
772: -- Debug Message
773: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
774: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');
775: -- END IF;
776:
777: Loop
778:

Line 803: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');

799: End Loop;
800:
801: -- Debug Message
802: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
803: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');
804: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));
805: -- END IF;
806:
807: Close C_Get_inv_items_w_inv_id;

Line 804: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));

800:
801: -- Debug Message
802: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
803: -- dbms_output.put_line('AS_Foundation_PVT - Closing Cursor');
804: -- dbms_output.put_line('AS_Foundation_PVT - retrived lines =' || to_char(l_cur_index));
805: -- END IF;
806:
807: Close C_Get_inv_items_w_inv_id;
808:

Line 828: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_items: End');

824:
825: -- Debug Message
826: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
827: -- THEN
828: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_items: End');
829: -- END IF;
830:
831: -- Standard call to get message count and if count is 1, get message info.
832: FND_MSG_PUB.Count_And_Get

Line 865: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find Inventory Item');

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');
866: -- END IF;
867:
868:
869: FND_MSG_PUB.Count_And_Get

Line 1001: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_itemPrice: Start');

997:
998: -- Debug Message
999: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1000: -- THEN
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;

Line 1030: -- dbms_output.put_line('AS_Foundation_PVT - Open Primary Cursor to Select');

1026:
1027: -- Debug Message
1028: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1029: -- THEN
1030: -- dbms_output.put_line('AS_Foundation_PVT - Open Primary Cursor to Select');
1031: -- END IF;
1032:
1033: Open C_Get_inv_item_price (p_inventory_item_rec.inventory_item_id,
1034: p_inventory_item_rec.primary_uom_code,

Line 1040: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');

1036:
1037: -- Debug Message
1038: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1039: -- THEN
1040: -- dbms_output.put_line('AS_Foundation_PVT - Fetching');
1041: -- END IF;
1042:
1043: -- If first price list yields nothing, use secondary
1044: Fetch C_Get_inv_item_price into l_list_price, l_currency_code;

Line 1056: -- dbms_output.put_line('AS_Foundation_PVT - Open Secondary Cursor');

1052:
1053:
1054: -- Debug Message
1055: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1056: -- dbms_output.put_line('AS_Foundation_PVT - Open Secondary Cursor');
1057: -- END IF;
1058:
1059: Fetch C_Get_inv_item_second_pr into l_list_price, l_currency_code;
1060:

Line 1063: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find List Price');

1059: Fetch C_Get_inv_item_second_pr into l_list_price, l_currency_code;
1060:
1061: If (C_Get_inv_item_second_pr%NOTFOUND = TRUE) Then
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

Line 1073: -- dbms_output.put_line('AS_Foundation_PVT - Closing Secondary Cursor');

1069: End if;
1070:
1071: -- Debug Message
1072: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1073: -- dbms_output.put_line('AS_Foundation_PVT - Closing Secondary Cursor');
1074: -- END IF;
1075:
1076: Close C_Get_inv_item_second_pr;
1077:

Line 1084: -- dbms_output.put_line('AS_Foundation_PVT - Closing Primary Cursor');

1080: End if;
1081:
1082: -- Debug Message
1083: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1084: -- dbms_output.put_line('AS_Foundation_PVT - Closing Primary Cursor');
1085: -- END IF;
1086:
1087: Close C_Get_inv_item_price;
1088:

Line 1107: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_itemPrice: End');

1103:
1104: -- Debug Message
1105: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1106: --THEN
1107: -- dbms_output.put_line('AS_Foundation_PVT.Get_inventory_itemPrice: End');
1108: -- END IF;
1109:
1110: -- Standard call to get message count and if count is 1, get message info.
1111: FND_MSG_PUB.Count_And_Get

Line 1144: -- dbms_output.put_line('AS_Foundation_PVT - Cannot Find Inventory Item List Price');

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');
1145: -- END IF;
1146:
1147:
1148: FND_MSG_PUB.Count_And_Get

Line 1214: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id: Start');

1210:
1211: -- Debug Message
1212: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1213: -- THEN
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;

Line 1223: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - Open Price list Cursor');

1219:
1220: -- Debug Message
1221: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1222: -- THEN
1223: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - Open Price list Cursor');
1224: -- END IF;
1225:
1226: -- IF FND_PROFILE.Value('AS_MC_PRICE_LIST_GROUP') IS NULL
1227: -- THEN

Line 1228: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - No Price List Group is set');

1224: -- END IF;
1225:
1226: -- IF FND_PROFILE.Value('AS_MC_PRICE_LIST_GROUP') IS NULL
1227: -- THEN
1228: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - No Price List Group is set');
1229: -- END IF;
1230: OPEN l_price_list_id_csr(FND_PROFILE.Value('AS_MC_PRICE_LIST_GROUP'),p_currency_code);
1231:
1232: -- Debug Message

Line 1235: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - Fetching');

1231:
1232: -- Debug Message
1233: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1234: -- THEN
1235: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id - Fetching');
1236: -- END IF;
1237:
1238: FETCH l_price_list_id_csr INTO l_price_list_id;
1239: -- Fix bug 858247 Jshang, when price list id is missing, set it to NULL instead of 0

Line 1244: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_List_Id - No Price List Id is found');

1240: IF l_price_list_id_csr%NOTFOUND THEN
1241: -- l_price_list_id := 0;
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;

Line 1265: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id: End');

1261:
1262: -- Debug Message
1263: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1264: -- THEN
1265: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_List_Id: End');
1266: -- END IF;
1267:
1268: -- Standard call to get message count and if count is 1, get message info.
1269: FND_MSG_PUB.Count_And_Get

Line 1292: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');

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;
1294: FND_MSG_PUB.Count_And_Get
1295: ( p_count => x_msg_count,
1296: p_data => x_msg_data

Line 1359: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info: Start');

1355:
1356: -- Debug Message
1357: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1358: -- THEN
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;

Line 1379: -- dbms_output.put_line('AS_FOUNDATION_PVT.Get_Price_Info - Price_list_id : ' || to_char(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;
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,

Line 1401: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info - Cannot find price');

1397: open l_secondary_price_csr(p_secondary_interest_code_id,p_currency_code);
1398: fetch l_secondary_price_csr into l_price;
1399: IF l_secondary_price_csr%NOTFOUND THEN
1400: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1401: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info - Cannot find price');
1402: -- END IF;
1403: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
1404: FND_MESSAGE.Set_Name('AS','FC_SEC_NO_LIST_PRICE');
1405: FND_MSG_PUB.ADD;

Line 1414: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info - Wrong Parameter');

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
1414: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info - Wrong Parameter');
1415: -- END IF;
1416: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1417: FND_MESSAGE.Set_Name('AS','API_UNEXP_ERROR_IN_PROCESSING');
1418: FND_MESSAGE.Set_Token('ROW','AS_FOUNDATION');

Line 1436: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info: End');

1432:
1433: -- Debug Message
1434: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1435: -- THEN
1436: -- dbms_output.put_line('AS_Foundation_PVT.Get_Price_Info: End');
1437: -- END IF;
1438:
1439: -- Standard call to get message count and if count is 1, get message info.
1440: FND_MSG_PUB.Count_And_Get

Line 1463: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');

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;
1465: FND_MSG_PUB.Count_And_Get
1466: ( p_count => x_msg_count,
1467: p_data => x_msg_data

Line 1579: -- dbms_output.put_line('AS_Foundation_PVT.Check_Volume_Amount: Start');

1575: END IF;
1576:
1577: -- Debug Message
1578: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
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;

Line 1589: -- dbms_output.put_line('AS_Foundation_PVT - AS_VOLUME_FORECASTING_ENABLED:' || l_volume_forecast_enable);

1585: -- API body
1586: l_volume_forecast_enable := NVL(FND_PROFILE.Value('AS_VOLUME_FORECASTING_ENABLED'),'N');
1587: -- Debug Message
1588: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1589: -- dbms_output.put_line('AS_Foundation_PVT - AS_VOLUME_FORECASTING_ENABLED:' || l_volume_forecast_enable);
1590: -- END IF;
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(

Line 1604: -- dbms_output.put_line('AS_FOUNDATION_PVT - Item : Not Found');

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;
1607: END IF;
1608: IF (p_inventory_item_rec.Primary_UOM_Code IS NOT NULL) THEN

Line 1614: -- dbms_output.put_line('AS_Foundation_PVT - UOM:' || x_uom_code);

1610: END IF;
1611: x_uom_code := l_inv_item_tbl(1).Primary_UOM_Code;
1612: -- Debug Message
1613: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
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,

Line 1642: -- dbms_output.put_line('AS_FOUNDATION_PVT - Price : Not Found');

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);

Line 1666: -- dbms_output.put_line('AS_FOUNDATION_PVT - price is missing');

1662: ELSE
1663: x_amount := p_amount;
1664: END IF;
1665: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1666: -- dbms_output.put_line('AS_FOUNDATION_PVT - price is missing');
1667: -- END IF;
1668: ELSE
1669: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1670: --dbms_output.put_line('AS_FOUNDATION_PVT - volume and amount are missing');

Line 1670: --dbms_output.put_line('AS_FOUNDATION_PVT - volume and amount are missing');

1666: -- dbms_output.put_line('AS_FOUNDATION_PVT - price is missing');
1667: -- END IF;
1668: ELSE
1669: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1670: --dbms_output.put_line('AS_FOUNDATION_PVT - volume and amount are missing');
1671: -- END IF;
1672: x_volume := NULL;
1673: x_amount := NULL;
1674: END IF;

Line 1688: -- dbms_output.put_line('AS_FOUNDATION_PVT - Validate volume, amount : Exceeds Margin');

1684: l_amount_floor := p_volume * l_price * (100 - l_vol_tolerance_margin) / 100;
1685: l_amount_ceiling := p_volume * l_price * (100 + l_vol_tolerance_margin) / 100;
1686: IF p_amount > l_amount_ceiling OR p_amount < l_amount_floor THEN
1687: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1688: -- dbms_output.put_line('AS_FOUNDATION_PVT - Validate volume, amount : Exceeds Margin');
1689: -- END IF;
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;

Line 1720: -- dbms_output.put_line('AS_Foundation_PVT.Check_Volume_Amount: End');

1716: END IF;
1717:
1718: -- Debug Message
1719: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1720: -- dbms_output.put_line('AS_Foundation_PVT.Check_Volume_Amount: End');
1721: -- END IF;
1722:
1723: -- Standard call to get message count and if count is 1, get message info.
1724: FND_MSG_PUB.Count_And_Get

Line 1746: -- dbms_output.put_line('AS_Foundation_PVT. - Cannot Find Price List Id');

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;
1748: FND_MSG_PUB.Count_And_Get
1749: ( p_count => x_msg_count,
1750: p_data => x_msg_data

Line 1766: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type,

1762: END Check_Volume_Amount;
1763:
1764:
1765: PROCEDURE Gen_NoBind_Flex_Where(
1766: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type,
1767: x_flex_where_clause OUT NOCOPY VARCHAR2) IS
1768: l_flex_where_cl VARCHAR2(2000) := NULL;
1769: BEGIN
1770: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN

Line 1771: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: begin');

1767: x_flex_where_clause OUT NOCOPY VARCHAR2) IS
1768: l_flex_where_cl VARCHAR2(2000) := NULL;
1769: BEGIN
1770: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1771: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: begin');
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

Line 1784: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: end');

1780: END LOOP;
1781: x_flex_where_clause := l_flex_where_cl;
1782:
1783: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1784: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: end');
1785: -- END IF;
1786: END;
1787:
1788: PROCEDURE Gen_Flexfield_Where(

Line 1789: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type,

1785: -- END IF;
1786: END;
1787:
1788: PROCEDURE Gen_Flexfield_Where(
1789: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type,
1790: x_flex_where_clause OUT NOCOPY VARCHAR2) IS
1791: l_flex_where_cl VARCHAR2(2000) := NULL;
1792: BEGIN
1793: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN

Line 1794: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: begin');

1790: x_flex_where_clause OUT NOCOPY VARCHAR2) IS
1791: l_flex_where_cl VARCHAR2(2000) := NULL;
1792: BEGIN
1793: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1794: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: begin');
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

Line 1807: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: end');

1803: END LOOP;
1804: x_flex_where_clause := l_flex_where_cl;
1805:
1806: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1807: -- dbms_output.put_line('AS_FOUNDATION_PVT Generate Flexfield Where: end');
1808: -- END IF;
1809: END;
1810:
1811: PROCEDURE Bind_Flexfield_Where(

Line 1813: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type) IS

1809: END;
1810:
1811: PROCEDURE Bind_Flexfield_Where(
1812: p_cursor_id IN NUMBER,
1813: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type) IS
1814: BEGIN
1815: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1816: -- dbms_output.put_line('AS_FOUNDATION_PVT Bind Flexfield Where: begin');
1817: -- END IF;

Line 1816: -- dbms_output.put_line('AS_FOUNDATION_PVT Bind Flexfield Where: begin');

1812: p_cursor_id IN NUMBER,
1813: p_flex_where_tbl_type IN AS_FOUNDATION_PVT.flex_where_tbl_type) IS
1814: BEGIN
1815: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1816: -- dbms_output.put_line('AS_FOUNDATION_PVT Bind Flexfield Where: begin');
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

Line 1828: -- dbms_output.put_line('AS_FOUNDATION_PVT Bind Flexfield Where: end');

1824: END IF;
1825: END LOOP;
1826:
1827: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1828: -- dbms_output.put_line('AS_FOUNDATION_PVT Bind Flexfield Where: end');
1829: -- END IF;
1830: END;
1831:
1832: PROCEDURE Get_Messages (p_message_count IN NUMBER,

Line 1902: END AS_FOUNDATION_PVT;

1898: p_msgs := l_msg_list;
1899:
1900: END Get_Messages;
1901:
1902: END AS_FOUNDATION_PVT;