[Home] [Help]
58:
59: SAVEPOINT CHECK_TCA_PVT;
60:
61: IF FND_API.to_boolean(p_init_msg_list) THEN
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65: IF NOT FND_API.compatible_api_call(
66: l_api_version,
184: OPEN C_Get_Party_From_Acct(p_qte_rec.cust_account_id);
185: FETCH C_Get_Party_From_Acct INTO p_qte_rec.party_id;
186: IF C_Get_Party_From_Acct%NOTFOUND THEN
187: x_Return_Status := FND_API.G_RET_STS_ERROR;
188: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
189: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
190: FND_MESSAGE.Set_Token('COLUMN', 'CUST_ACCOUNT_ID', FALSE);
191: FND_MESSAGE.Set_Token('VALUE', to_char(p_qte_rec.cust_account_id), FALSE);
192: FND_MSG_PUB.ADD;
188: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
189: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
190: FND_MESSAGE.Set_Token('COLUMN', 'CUST_ACCOUNT_ID', FALSE);
191: FND_MESSAGE.Set_Token('VALUE', to_char(p_qte_rec.cust_account_id), FALSE);
192: FND_MSG_PUB.ADD;
193: END IF;
194: CLOSE C_Get_Party_From_Acct;
195: raise FND_API.G_EXC_ERROR;
196: END IF;
304: if p_qte_rec.org_contact_id is not null and p_qte_rec.org_contact_id <> FND_API.G_MISS_NUM then
305: p_qte_rec.party_id := l_org_contact_party_id;
306: end if;
307: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
308: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
309: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
310: -- FND_MESSAGE.Set_Token('ID', to_char(p_qte_rec.org_contact_id),FALSE);
311: FND_MSG_PUB.ADD;
312: END IF;
307: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
308: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
309: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
310: -- FND_MESSAGE.Set_Token('ID', to_char(p_qte_rec.org_contact_id),FALSE);
311: FND_MSG_PUB.ADD;
312: END IF;
313: raise FND_API.G_EXC_ERROR;
314: END IF;
315: IF l_sold_to_contact_id is NULL OR
330: aso_debug_pub.add('after create contact role. sold_to_contact_id = ' || l_sold_to_contact_id ,1, 'N');
331: aso_debug_pub.add('after create contact role. x_return_status = ' || x_return_status ,1, 'N');
332: END IF;
333: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_CONTACT');
336: FND_MESSAGE.Set_Token('ID', to_char(p_qte_rec.party_id), FALSE);
337: FND_MSG_PUB.ADD;
338: END IF;
333: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_CONTACT');
336: FND_MESSAGE.Set_Token('ID', to_char(p_qte_rec.party_id), FALSE);
337: FND_MSG_PUB.ADD;
338: END IF;
339: raise FND_API.G_EXC_ERROR;
340: END IF;
341: END IF;
365: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
366: raise FND_API.G_EXC_ERROR;
367: END IF;
368:
369: FND_MSG_PUB.Count_And_Get
370: ( p_count => x_msg_count,
371: p_data => x_msg_data
372: );
373:
375: WHEN FND_API.G_EXC_ERROR THEN
376: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
377: P_API_NAME => L_API_NAME
378: ,P_PKG_NAME => G_PKG_NAME
379: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
380: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
381: ,P_SQLCODE => SQLCODE
382: ,P_SQLERRM => SQLERRM
383: ,X_MSG_COUNT => X_MSG_COUNT
387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
388: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
389: P_API_NAME => L_API_NAME
390: ,P_PKG_NAME => G_PKG_NAME
391: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
392: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
393: ,P_SQLCODE => SQLCODE
394: ,P_SQLERRM => SQLERRM
395: ,X_MSG_COUNT => X_MSG_COUNT
466:
467: SAVEPOINT CHECK_HEADER_ACCOUNT_INFO_PVT;
468:
469: IF FND_API.to_boolean(p_init_msg_list) THEN
470: FND_MSG_PUB.initialize;
471: END IF;
472:
473: IF NOT FND_API.compatible_api_call(
474: l_api_version,
605: aso_debug_pub.add('chk_hdr:site_use_id after deriving invoice = ' || l_invoice_to_org_id,1,'N');
606: aso_debug_pub.add('chk_hdr:cust_acct_site_id after deriving invoice = ' || l_inv_cust_acct_site_id,1,'N');
607: END IF;
608: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
609: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
610: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
611: FND_MSG_PUB.ADD;
612: END IF;
613: raise FND_API.G_EXC_ERROR;
607: END IF;
608: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
609: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
610: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
611: FND_MSG_PUB.ADD;
612: END IF;
613: raise FND_API.G_EXC_ERROR;
614: END IF;
615:
733: aso_debug_pub.add('chk_hdr:site_use_id after deriving End_Customer = ' || l_End_Customer_org_id,1,'N');
734: aso_debug_pub.add('chk_hdr:cust_acct_site_id after deriving End_Customer = ' || l_end_cust_acct_site_id,1,'N');
735: END IF;
736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
737: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
738: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
739: FND_MSG_PUB.ADD;
740: END IF;
741: raise FND_API.G_EXC_ERROR;
735: END IF;
736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
737: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
738: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
739: FND_MSG_PUB.ADD;
740: END IF;
741: raise FND_API.G_EXC_ERROR;
742: END IF;
743:
874: aso_debug_pub.add('chk_hdr:ship to org after deriving = ' || l_ship_to_org_id, 1, 'Y');
875: aso_debug_pub.add('chk_hdr:ship cust acct site after deriving = ' || l_shp_cust_acct_site_id, 1, 'Y');
876: END IF;
877: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
878: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
879: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SHP_SITE_AC_CRS');
880: -- FND_MESSAGE.Set_Token('ID', to_char(p_header_shipment_tbl(1).ship_to_party_site_id),FALSE);
881: FND_MSG_PUB.ADD;
882: END IF;
877: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
878: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
879: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SHP_SITE_AC_CRS');
880: -- FND_MESSAGE.Set_Token('ID', to_char(p_header_shipment_tbl(1).ship_to_party_site_id),FALSE);
881: FND_MSG_PUB.ADD;
882: END IF;
883: raise FND_API.G_EXC_ERROR;
884: END IF;
885:
917: IF aso_debug_pub.g_debug_flag = 'Y' THEN
918: aso_debug_pub.add('end chk_hdr:after map 2 for header',1,'N');
919: END IF;
920:
921: FND_MSG_PUB.Count_And_Get
922: ( p_count => x_msg_count,
923: p_data => x_msg_data
924: );
925:
927: WHEN FND_API.G_EXC_ERROR THEN
928: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
929: P_API_NAME => L_API_NAME
930: ,P_PKG_NAME => G_PKG_NAME
931: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
932: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
933: ,P_SQLCODE => SQLCODE
934: ,P_SQLERRM => SQLERRM
935: ,X_MSG_COUNT => X_MSG_COUNT
939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
940: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
941: P_API_NAME => L_API_NAME
942: ,P_PKG_NAME => G_PKG_NAME
943: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
944: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
945: ,P_SQLCODE => SQLCODE
946: ,P_SQLERRM => SQLERRM
947: ,X_MSG_COUNT => X_MSG_COUNT
1034:
1035: SAVEPOINT CHECK_LINE_ACCOUNT_INFO_PVT;
1036:
1037: IF FND_API.to_boolean(p_init_msg_list) THEN
1038: FND_MSG_PUB.initialize;
1039: END IF;
1040:
1041: IF NOT FND_API.compatible_api_call(
1042: l_api_version,
1228: ,x_msg_data => x_msg_data
1229: ,x_site_use_id => l_site_use_id);
1230:
1231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1233: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
1234: FND_MSG_PUB.ADD;
1235: END IF;
1236: raise FND_API.G_EXC_ERROR;
1230:
1231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1233: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
1234: FND_MSG_PUB.ADD;
1235: END IF;
1236: raise FND_API.G_EXC_ERROR;
1237: END IF;
1238: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1372: ,x_msg_data => x_msg_data
1373: ,x_site_use_id => l_site_use_id);
1374:
1375: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1377: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
1378: FND_MSG_PUB.ADD;
1379: END IF;
1380: raise FND_API.G_EXC_ERROR;
1374:
1375: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1377: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
1378: FND_MSG_PUB.ADD;
1379: END IF;
1380: raise FND_API.G_EXC_ERROR;
1381: END IF;
1382: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1511: aso_debug_pub.add('line acct info: after cust_acct_site:l_site_use_id: '||l_site_use_id,1,'N');
1512: aso_debug_pub.add('line acct info: after cust_acct_site:l_shp_cust_acct_site_id: '||l_shp_cust_acct_site_id,1,'N');
1513: END IF;
1514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1515: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1516: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
1517: -- FND_MESSAGE.Set_Token('ID', to_char(p_line_shipment_tbl(j).ship_to_party_site_id),FALSE);
1518: FND_MSG_PUB.ADD;
1519: END IF;
1514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1515: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1516: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
1517: -- FND_MESSAGE.Set_Token('ID', to_char(p_line_shipment_tbl(j).ship_to_party_site_id),FALSE);
1518: FND_MSG_PUB.ADD;
1519: END IF;
1520: raise FND_API.G_EXC_ERROR;
1521: END IF;
1522:
1551:
1552: END LOOP; -- for shipment
1553:
1554:
1555: FND_MSG_PUB.Count_And_Get
1556: ( p_count => x_msg_count,
1557: p_data => x_msg_data
1558: );
1559:
1561: WHEN FND_API.G_EXC_ERROR THEN
1562: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1563: P_API_NAME => L_API_NAME
1564: ,P_PKG_NAME => G_PKG_NAME
1565: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1566: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1567: ,P_SQLCODE => SQLCODE
1568: ,P_SQLERRM => SQLERRM
1569: ,X_MSG_COUNT => X_MSG_COUNT
1573: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1574: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1575: P_API_NAME => L_API_NAME
1576: ,P_PKG_NAME => G_PKG_NAME
1577: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1578: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1579: ,P_SQLCODE => SQLCODE
1580: ,P_SQLERRM => SQLERRM
1581: ,X_MSG_COUNT => X_MSG_COUNT
1675:
1676: SAVEPOINT CUSTOMER_ACCOUNT_PVT;
1677:
1678: IF FND_API.to_boolean(p_init_msg_list) THEN
1679: FND_MSG_PUB.initialize;
1680: END IF;
1681:
1682: IF NOT FND_API.compatible_api_call(
1683: l_api_version,
1717: IF l_acct_count > 1 THEN
1718: x_return_status := FND_API.G_RET_STS_ERROR;
1719: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
1720: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1721: FND_MSG_PUB.ADD;
1722: RAISE FND_API.G_EXC_ERROR;
1723: END IF;
1724: END IF;
1725:
1745: IF l_acct_count > 1 THEN
1746: x_return_status := FND_API.G_RET_STS_ERROR;
1747: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
1748: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1749: FND_MSG_PUB.ADD;
1750: RAISE FND_API.G_EXC_ERROR;
1751: END IF;
1752: END IF;
1753:
1787: IF l_acct_count > 1 THEN
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
1790: FND_MESSAGE.Set_Token('ID', to_char(l_object_party_id), FALSE);
1791: FND_MSG_PUB.ADD;
1792: RAISE FND_API.G_EXC_ERROR;
1793: END IF;
1794: END IF;
1795:
1813: END IF;
1814: IF p_calling_api_flag = 1 AND (l_create_acct_prof = 'PLACE_ORDER') THEN
1815: x_return_status := FND_API.G_RET_STS_ERROR;
1816: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
1817: FND_MSG_PUB.ADD;
1818: RAISE FND_API.G_EXC_ERROR;
1819: END IF;
1820: -- ER 5484749
1821: IF p_calling_api_flag = 2 AND (l_create_acct_prof = 'NEVER') THEN
1820: -- ER 5484749
1821: IF p_calling_api_flag = 2 AND (l_create_acct_prof = 'NEVER') THEN
1822: x_return_status := FND_API.G_RET_STS_ERROR;
1823: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
1824: FND_MSG_PUB.ADD;
1825: RAISE FND_API.G_EXC_ERROR;
1826: END IF;
1827:
1828:
1844: x_msg_count => x_msg_count,
1845: x_msg_data => x_msg_data,
1846: x_cust_acct_id => cust_account_id);
1847: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
1848: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1849: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
1850: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1851: FND_MSG_PUB.ADD;
1852: END IF;
1847: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
1848: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1849: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
1850: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1851: FND_MSG_PUB.ADD;
1852: END IF;
1853: raise FND_API.G_EXC_ERROR;
1854: END IF;
1855: x_Cust_Acct_Id := cust_account_id;
1855: x_Cust_Acct_Id := cust_account_id;
1856: END IF; -- end party if
1857: ELSIF p_calling_api_flag <> 0 THEN -- profile is N raise error
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1860: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
1861: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1862: FND_MSG_PUB.ADD;
1863: END IF;
1858: x_return_status := FND_API.G_RET_STS_ERROR;
1859: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1860: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
1861: FND_MESSAGE.Set_Token('ID', to_char(p_Party_Id), FALSE);
1862: FND_MSG_PUB.ADD;
1863: END IF;
1864: raise FND_API.G_EXC_ERROR;
1865: END IF; -- end profile condition
1866:
1872:
1873: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1874: aso_debug_pub.add('x_cust_acct_id = '|| x_cust_acct_id,1,'N');
1875: END IF;
1876: FND_MSG_PUB.Count_And_Get
1877: ( p_count => x_msg_count,
1878: p_data => x_msg_data
1879: );
1880:
1882: WHEN FND_API.G_EXC_ERROR THEN
1883: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1884: P_API_NAME => L_API_NAME
1885: ,P_PKG_NAME => G_PKG_NAME
1886: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1887: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1888: ,P_SQLCODE => SQLCODE
1889: ,P_SQLERRM => SQLERRM
1890: ,X_MSG_COUNT => X_MSG_COUNT
1894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1895: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1896: P_API_NAME => L_API_NAME
1897: ,P_PKG_NAME => G_PKG_NAME
1898: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1899: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1900: ,P_SQLCODE => SQLCODE
1901: ,P_SQLERRM => SQLERRM
1902: ,X_MSG_COUNT => X_MSG_COUNT
2021:
2022: SAVEPOINT CUSTOMER_ACCOUNT_SITE_PVT;
2023:
2024: IF FND_API.to_boolean(p_init_msg_list) THEN
2025: FND_MSG_PUB.initialize;
2026: END IF;
2027:
2028: IF NOT FND_API.compatible_api_call(
2029: l_api_version,
2051: IF (party_cur%NOTFOUND) THEN
2052: l_party_type := NULL;
2053:
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2056: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2057: FND_MSG_PUB.ADD;
2058: END IF;
2059: raise FND_API.G_EXC_ERROR;
2053:
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2056: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2057: FND_MSG_PUB.ADD;
2058: END IF;
2059: raise FND_API.G_EXC_ERROR;
2060: END IF;
2061: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2068: FETCH relationship_cur INTO cur_party_id;
2069: IF (relationship_cur%NOTFOUND) THEN
2070: cur_party_id := NULL;
2071: x_return_status := FND_API.G_RET_STS_ERROR;
2072: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2073: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2074: FND_MSG_PUB.ADD;
2075: END IF;
2076: raise FND_API.G_EXC_ERROR;
2070: cur_party_id := NULL;
2071: x_return_status := FND_API.G_RET_STS_ERROR;
2072: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2073: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2074: FND_MSG_PUB.ADD;
2075: END IF;
2076: raise FND_API.G_EXC_ERROR;
2077: END IF;
2078: CLOSE relationship_cur;
2108: FND_MESSAGE.Set_Name('ASO','ASO_END_CUST_SITE_INACTIVE');
2109: ELSIF p_acct_site_type = 'SHIP_TO' THEN
2110: FND_MESSAGE.Set_Name('ASO','ASO_SHP_CUST_SITE_INACTIVE');
2111: END IF;
2112: FND_MSG_PUB.ADD;
2113: raise FND_API.G_EXC_ERROR;
2114: END IF;
2115: CLOSE inactive_site_cur;
2116: END IF; -- active_site_cur%NOTFOUND end if
2142: FND_MESSAGE.Set_Name('ASO','ASO_END_CUST_SITE_INACTIVE');
2143: ELSIF p_acct_site_type = 'SHIP_TO' THEN
2144: FND_MESSAGE.Set_Name('ASO','ASO_SHP_CUST_SITE_INACTIVE');
2145: END IF;
2146: FND_MSG_PUB.ADD;
2147: raise FND_API.G_EXC_ERROR;
2148: ELSE
2149: -- this means that there no site uses , either active or inactive
2150: x_site_use_id := NULL;
2186: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2187: aso_debug_pub.add('site_use_id after deriving invoice = ' || x_site_use_id,1, 'Y');
2188: END IF;
2189: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2190: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2191: FND_MESSAGE.Set_Name('ASO', 'ASO_ACCT_SITE_USE');
2192: FND_MESSAGE.Set_Token('ID', to_char(p_party_site_id),FALSE);
2193: FND_MSG_PUB.ADD;
2194: END IF;
2189: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2190: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2191: FND_MESSAGE.Set_Name('ASO', 'ASO_ACCT_SITE_USE');
2192: FND_MESSAGE.Set_Token('ID', to_char(p_party_site_id),FALSE);
2193: FND_MSG_PUB.ADD;
2194: END IF;
2195: raise FND_API.G_EXC_ERROR;
2196: END IF;
2197: END IF;
2195: raise FND_API.G_EXC_ERROR;
2196: END IF;
2197: END IF;
2198:
2199: FND_MSG_PUB.Count_And_Get
2200: ( p_count => x_msg_count,
2201: p_data => x_msg_data
2202: );
2203:
2205: WHEN FND_API.G_EXC_ERROR THEN
2206: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2207: P_API_NAME => L_API_NAME
2208: ,P_PKG_NAME => G_PKG_NAME
2209: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2210: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2211: ,P_SQLCODE => SQLCODE
2212: ,P_SQLERRM => SQLERRM
2213: ,X_MSG_COUNT => X_MSG_COUNT
2217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2218: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2219: P_API_NAME => L_API_NAME
2220: ,P_PKG_NAME => G_PKG_NAME
2221: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2222: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2223: ,P_SQLCODE => SQLCODE
2224: ,P_SQLERRM => SQLERRM
2225: ,X_MSG_COUNT => X_MSG_COUNT
2277:
2278: SAVEPOINT CUST_ACCT_RELATIONSHIP_PVT;
2279:
2280: IF FND_API.to_boolean(p_init_msg_list) THEN
2281: FND_MSG_PUB.initialize;
2282: END IF;
2283:
2284: IF NOT FND_API.compatible_api_call(
2285: l_api_version,
2350: end if;
2351: -- the account ids are matched but bill_to_flag or ship_to_flag is not matched.
2352: -- and the profile is 'Y'.
2353: --- x_return_status := FND_API.G_RET_STS_ERROR;
2354: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2355: -- FND_MESSAGE.Set_Name(' + appShortName +', 'ASO_INVALID_ACCT_RELTN');
2356: -- FND_MESSAGE.Set_Token('TYPE', p_relationship_type, FALSE);
2357: -- FND_MSG_PUB.ADD;
2358: -- END IF;
2353: --- x_return_status := FND_API.G_RET_STS_ERROR;
2354: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2355: -- FND_MESSAGE.Set_Name(' + appShortName +', 'ASO_INVALID_ACCT_RELTN');
2356: -- FND_MESSAGE.Set_Token('TYPE', p_relationship_type, FALSE);
2357: -- FND_MSG_PUB.ADD;
2358: -- END IF;
2359: -- RAISE FND_API.G_EXC_ERROR;
2360:
2361: END IF;
2360:
2361: END IF;
2362: /*else
2363: x_return_status := FND_API.G_RET_STS_ERROR;
2364: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2365: FND_MESSAGE.Set_Name(' + appShortName +', 'ASO_INVALID_ACCT_RELTN');
2366: FND_MESSAGE.Set_Token('TYPE', p_relationship_type, FALSE);
2367: FND_MSG_PUB.ADD;
2368: END IF;
2363: x_return_status := FND_API.G_RET_STS_ERROR;
2364: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2365: FND_MESSAGE.Set_Name(' + appShortName +', 'ASO_INVALID_ACCT_RELTN');
2366: FND_MESSAGE.Set_Token('TYPE', p_relationship_type, FALSE);
2367: FND_MSG_PUB.ADD;
2368: END IF;
2369: RAISE FND_API.G_EXC_ERROR; */
2370:
2371:
2372:
2373: END IF; -- l_cust_acct_flag_match
2374:
2375:
2376: FND_MSG_PUB.Count_And_Get
2377: ( p_count => x_msg_count,
2378: p_data => x_msg_data
2379: );
2380:
2382: WHEN FND_API.G_EXC_ERROR THEN
2383: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2384: P_API_NAME => L_API_NAME
2385: ,P_PKG_NAME => G_PKG_NAME
2386: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2387: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2388: ,P_SQLCODE => SQLCODE
2389: ,P_SQLERRM => SQLERRM
2390: ,X_MSG_COUNT => X_MSG_COUNT
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2396: P_API_NAME => L_API_NAME
2397: ,P_PKG_NAME => G_PKG_NAME
2398: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2399: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2400: ,P_SQLCODE => SQLCODE
2401: ,P_SQLERRM => SQLERRM
2402: ,X_MSG_COUNT => X_MSG_COUNT
2444: ---- Initialize---------------------
2445: SAVEPOINT CUST_ACCT_CONTACT_ADDR_PVT;
2446:
2447: IF FND_API.to_boolean(p_init_msg_list) THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: IF NOT FND_API.compatible_api_call(
2452: l_api_version,
2490: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2491: aso_debug_pub.add('status after get cust acct roles in Cust_Acct_Contact_Addr = ' || x_return_status,1,'N');
2492: END IF;
2493: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2494: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2495: IF p_role_type = 'BILL_TO' THEN
2496: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_PARTY_AC_CRS');
2497: ELSIF p_role_type = 'END_USER' THEN
2498: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_PARTY_AC_CRS');
2498: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_PARTY_AC_CRS');
2499: ELSIF p_role_type = 'SHIP_TO' THEN
2500: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SHP_PARTY_AC_CRS');
2501: END IF;
2502: FND_MSG_PUB.ADD;
2503: END IF;
2504: raise FND_API.G_EXC_ERROR;
2505:
2506: ELSE -- x_ret_status = success
2524: aso_debug_pub.add('status after create contact role ship = '|| x_return_status,1,'N');
2525: END IF;
2526:
2527: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2528: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2529: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATE_CONTACT');
2530: FND_MESSAGE.Set_Token('ID', to_char(
2531: l_contact_party_id), FALSE);
2532: FND_MSG_PUB.ADD;
2528: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2529: FND_MESSAGE.Set_Name('ASO', 'ASO_CREATE_CONTACT');
2530: FND_MESSAGE.Set_Token('ID', to_char(
2531: l_contact_party_id), FALSE);
2532: FND_MSG_PUB.ADD;
2533: END IF;
2534: raise FND_API.G_EXC_ERROR;
2535: END IF; -- for creatE_contact_role
2536:
2541: END IF; -- for party site
2542:
2543: END IF; -- for party id
2544:
2545: FND_MSG_PUB.Count_And_Get
2546: ( p_count => x_msg_count,
2547: p_data => x_msg_data
2548: );
2549:
2551: WHEN FND_API.G_EXC_ERROR THEN
2552: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2553: P_API_NAME => L_API_NAME
2554: ,P_PKG_NAME => G_PKG_NAME
2555: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2556: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2557: ,P_SQLCODE => SQLCODE
2558: ,P_SQLERRM => SQLERRM
2559: ,X_MSG_COUNT => X_MSG_COUNT
2563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2564: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2565: P_API_NAME => L_API_NAME
2566: ,P_PKG_NAME => G_PKG_NAME
2567: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
2568: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
2569: ,P_SQLCODE => SQLCODE
2570: ,P_SQLERRM => SQLERRM
2571: ,X_MSG_COUNT => X_MSG_COUNT
2659: SAVEPOINT Assign_Customer_Accounts_PVT;
2660:
2661: -- Initialize message list if p_init_msg_list is set to TRUE.
2662: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2663: FND_MSG_PUB.initialize;
2664: END IF;
2665:
2666: -- Initialize API return status to success
2667: x_return_status := FND_API.G_RET_STS_SUCCESS;
2672:
2673: OPEN C_Validate_Quote (p_qte_header_id);
2674: FETCH C_Validate_Quote into l_dummy;
2675: IF C_Validate_Quote%NOTFOUND THEN
2676: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2677: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2678: FND_MESSAGE.Set_Token('COLUMN', 'ORIGINAL_QUOTE_ID', FALSE);
2679: FND_MESSAGE.Set_Token('VALUE', TO_CHAR(p_qte_header_id), FALSE);
2680: FND_MSG_PUB.ADD;
2676: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2677: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2678: FND_MESSAGE.Set_Token('COLUMN', 'ORIGINAL_QUOTE_ID', FALSE);
2679: FND_MESSAGE.Set_Token('VALUE', TO_CHAR(p_qte_header_id), FALSE);
2680: FND_MSG_PUB.ADD;
2681: END IF;
2682:
2683: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2684: aso_debug_pub.add('Assign_Customer_Accounts - Invalid qte_hdr_id', 1, 'Y');
2768: END IF;
2769:
2770:
2771: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2773: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2774: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2775: FND_MESSAGE.Set_Token('ID', to_char( l_cust_party), FALSE);
2776: FND_MSG_PUB.ADD;
2772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2773: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2774: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2775: FND_MESSAGE.Set_Token('ID', to_char( l_cust_party), FALSE);
2776: FND_MSG_PUB.ADD;
2777: end if;
2778: END IF;
2779: raise FND_API.G_EXC_ERROR;
2780:
2819: END IF;
2820:
2821:
2822: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2824: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2825: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2826: FND_MESSAGE.Set_Token('ID', to_char( l_inv_cust_party), FALSE);
2827: FND_MSG_PUB.ADD;
2823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2824: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2825: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2826: FND_MESSAGE.Set_Token('ID', to_char( l_inv_cust_party), FALSE);
2827: FND_MSG_PUB.ADD;
2828: end if;
2829: END IF;
2830: raise FND_API.G_EXC_ERROR;
2831:
2870: END IF;
2871:
2872:
2873: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2875: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2876: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2877: FND_MESSAGE.Set_Token('ID', to_char( l_end_cust_party), FALSE);
2878: FND_MSG_PUB.ADD;
2874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2875: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2876: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2877: FND_MESSAGE.Set_Token('ID', to_char( l_end_cust_party), FALSE);
2878: FND_MSG_PUB.ADD;
2879: end if;
2880: END IF;
2881: raise FND_API.G_EXC_ERROR;
2882:
2922: aso_debug_pub.add('header ship to account = ' || l_account_id,1,'N');
2923: END IF;
2924:
2925: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2926: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2927: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2928: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2929: FND_MESSAGE.Set_Token('ID', to_char( l_header_shipment_tbl(1).ship_to_cust_party_id), FALSE);
2930: FND_MSG_PUB.ADD;
2926: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2927: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2928: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2929: FND_MESSAGE.Set_Token('ID', to_char( l_header_shipment_tbl(1).ship_to_cust_party_id), FALSE);
2930: FND_MSG_PUB.ADD;
2931: END IF;
2932: end if;
2933: raise FND_API.G_EXC_ERROR;
2934:
3039: l_account_id,1,'N');
3040: END IF;
3041:
3042: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3044: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3045: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3046: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.invoice_to_cust_party_id), FALSE);
3047: FND_MSG_PUB.ADD;
3043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3044: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3045: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3046: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.invoice_to_cust_party_id), FALSE);
3047: FND_MSG_PUB.ADD;
3048: end if;
3049: END IF;
3050: raise FND_API.G_EXC_ERROR;
3051:
3088: l_account_id,1,'N');
3089: END IF;
3090:
3091: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3092: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3093: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3094: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3095: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.End_Customer_cust_party_id), FALSE);
3096: FND_MSG_PUB.ADD;
3092: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3093: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3094: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3095: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.End_Customer_cust_party_id), FALSE);
3096: FND_MSG_PUB.ADD;
3097: end if;
3098: END IF;
3099: raise FND_API.G_EXC_ERROR;
3100:
3137: l_account_id,1,'N');
3138: END IF;
3139:
3140: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3142: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3143: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3144: FND_MESSAGE.Set_Token('ID', to_char( Line_Acct.ship_to_cust_party_id), FALSE);
3145: FND_MSG_PUB.ADD;
3141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3142: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3143: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3144: FND_MESSAGE.Set_Token('ID', to_char( Line_Acct.ship_to_cust_party_id), FALSE);
3145: FND_MSG_PUB.ADD;
3146: end if;
3147: END IF;
3148: raise FND_API.G_EXC_ERROR;
3149:
3193: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3194: aso_debug_pub.add('Assign_Customer_Accounts: End ', 1, 'N');
3195: END IF;
3196:
3197: FND_MSG_PUB.Count_And_Get
3198: ( p_count => x_msg_count,
3199: p_data => x_msg_data
3200: );
3201:
3203: WHEN FND_API.G_EXC_ERROR THEN
3204: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3205: P_API_NAME => L_API_NAME
3206: ,P_PKG_NAME => G_PKG_NAME
3207: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3208: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3209: ,P_SQLCODE => SQLCODE
3210: ,P_SQLERRM => SQLERRM
3211: ,X_MSG_COUNT => X_MSG_COUNT
3215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3216: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3217: P_API_NAME => L_API_NAME
3218: ,P_PKG_NAME => G_PKG_NAME
3219: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3220: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3221: ,P_SQLCODE => SQLCODE
3222: ,P_SQLERRM => SQLERRM
3223: ,X_MSG_COUNT => X_MSG_COUNT
3284: aso_debug_pub.add('Check_Hdr_Acct: l_inv_cust_id: '|| l_inv_cust_id, 1, 'N');
3285: END IF;
3286: IF l_inv_cust_id <> p_cust_party_id THEN
3287: x_return_status := FND_API.G_RET_STS_ERROR;
3288: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3289: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3290: FND_MESSAGE.Set_Token('COLUMN', 'CUST_PARTY_ID',FALSE);
3291: FND_MESSAGE.Set_Token('VALUE', to_char(p_cust_party_id),FALSE);
3292: FND_MSG_PUB.ADD;
3288: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3289: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3290: FND_MESSAGE.Set_Token('COLUMN', 'CUST_PARTY_ID',FALSE);
3291: FND_MESSAGE.Set_Token('VALUE', to_char(p_cust_party_id),FALSE);
3292: FND_MSG_PUB.ADD;
3293: END IF;
3294: raise FND_API.G_EXC_ERROR;
3295: END IF;
3296:
3400: SAVEPOINT Check_Customer_Accounts_INT;
3401:
3402: -- Initialize message list if p_init_msg_list is set to TRUE.
3403: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3404: FND_MSG_PUB.initialize;
3405: END IF;
3406:
3407: -- Initialize API return status to success
3408: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413:
3414: OPEN C_Validate_Quote (p_qte_header_id);
3415: FETCH C_Validate_Quote into l_dummy;
3416: IF C_Validate_Quote%NOTFOUND THEN
3417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3418: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3419: FND_MESSAGE.Set_Token('COLUMN', 'ORIGINAL_QUOTE_ID', FALSE);
3420: FND_MESSAGE.Set_Token('VALUE', TO_CHAR(p_qte_header_id), FALSE);
3421: FND_MSG_PUB.ADD;
3417: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3418: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3419: FND_MESSAGE.Set_Token('COLUMN', 'ORIGINAL_QUOTE_ID', FALSE);
3420: FND_MESSAGE.Set_Token('VALUE', TO_CHAR(p_qte_header_id), FALSE);
3421: FND_MSG_PUB.ADD;
3422: END IF;
3423:
3424: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3425: aso_debug_pub.add('Check_Customer_Accounts - Invalid qte_hdr_id', 1, 'Y');
3459: aso_debug_pub.add('Check_Customer_Accounts:hdr_CustAcct - l_cust_acct: '||l_cust_acct, 1, 'N');
3460: END IF;
3461:
3462: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3464: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3465: FND_MSG_PUB.ADD;
3466: END IF;
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3461:
3462: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3464: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3465: FND_MSG_PUB.ADD;
3466: END IF;
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: RAISE FND_API.G_EXC_ERROR;
3469: END IF;
3491: aso_debug_pub.add('Check_Customer_Accounts:hdr_InvCustAcct - l_cust_acct: '||l_cust_acct, 1, 'N');
3492: END IF;
3493:
3494: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3495: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3496: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3497: FND_MSG_PUB.ADD;
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_ERROR;
3493:
3494: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3495: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3496: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3497: FND_MSG_PUB.ADD;
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_ERROR;
3500: RAISE FND_API.G_EXC_ERROR;
3501: END IF;
3523: aso_debug_pub.add('Check_Customer_Accounts:hdr_EndCustAcct - l_cust_acct: '||l_cust_acct, 1, 'N');
3524: END IF;
3525:
3526: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3527: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3528: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3529: FND_MSG_PUB.ADD;
3530: END IF;
3531: x_return_status := FND_API.G_RET_STS_ERROR;
3525:
3526: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3527: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3528: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3529: FND_MSG_PUB.ADD;
3530: END IF;
3531: x_return_status := FND_API.G_RET_STS_ERROR;
3532: RAISE FND_API.G_EXC_ERROR;
3533: END IF;
3555: aso_debug_pub.add('Check_Customer_Accounts:lin_Acct - l_cust_acct: '||l_cust_acct, 1, 'N');
3556: END IF;
3557:
3558: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3560: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3561: FND_MSG_PUB.ADD;
3562: END IF;
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3557:
3558: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3560: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3561: FND_MSG_PUB.ADD;
3562: END IF;
3563: x_return_status := FND_API.G_RET_STS_ERROR;
3564: RAISE FND_API.G_EXC_ERROR;
3565: END IF;
3589: aso_debug_pub.add('Check_Customer_Accounts:lin_EndCustAcct - l_cust_acct: '||l_cust_acct, 1, 'N');
3590: END IF;
3591:
3592: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3594: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3595: FND_MSG_PUB.ADD;
3596: END IF;
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3591:
3592: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3594: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3595: FND_MSG_PUB.ADD;
3596: END IF;
3597: x_return_status := FND_API.G_RET_STS_ERROR;
3598: RAISE FND_API.G_EXC_ERROR;
3599: END IF;
3623: aso_debug_pub.add('Check_Customer_Accounts:shp_Acct - l_cust_acct: '||l_cust_acct, 1, 'N');
3624: END IF;
3625:
3626: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3628: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3629: FND_MSG_PUB.ADD;
3630: END IF;
3631: x_return_status := FND_API.G_RET_STS_ERROR;
3625:
3626: IF l_cust_acct IS NULL OR l_cust_acct = FND_API.G_MISS_NUM THEN
3627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3628: FND_MESSAGE.Set_Name('ASO', 'ASO_CANNOT_CREATE_ACCOUNT');
3629: FND_MSG_PUB.ADD;
3630: END IF;
3631: x_return_status := FND_API.G_RET_STS_ERROR;
3632: RAISE FND_API.G_EXC_ERROR;
3633: END IF;
3641: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3642: aso_debug_pub.add('Check_Customer_Accounts: End ', 1, 'N');
3643: END IF;
3644:
3645: FND_MSG_PUB.Count_And_Get
3646: ( p_count => x_msg_count,
3647: p_data => x_msg_data
3648: );
3649:
3651: WHEN FND_API.G_EXC_ERROR THEN
3652: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3653: P_API_NAME => L_API_NAME
3654: ,P_PKG_NAME => G_PKG_NAME
3655: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3656: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT
3657: ,P_SQLCODE => SQLCODE
3658: ,P_SQLERRM => SQLERRM
3659: ,X_MSG_COUNT => X_MSG_COUNT
3663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3664: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3665: P_API_NAME => L_API_NAME
3666: ,P_PKG_NAME => G_PKG_NAME
3667: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3668: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_INT
3669: ,P_SQLCODE => SQLCODE
3670: ,P_SQLERRM => SQLERRM
3671: ,X_MSG_COUNT => X_MSG_COUNT