[Home] [Help]
1: PACKAGE BODY IBE_Quote_Misc_pvt AS
2: /* $Header: IBEVQMIB.pls 120.16.12020000.2 2012/08/14 06:44:52 amaheshw ship $ */
3:
4:
5: l_true VARCHAR2(1) := FND_API.G_TRUE;
6:
7: FUNCTION get_multi_svc_profile return varchar2 is
8: BEGIN
9: IF(FND_PROFILE.Value('IBE_ENABLE_MULT_SVC') = 'Y') THEN
6:
7: FUNCTION get_multi_svc_profile return varchar2 is
8: BEGIN
9: IF(FND_PROFILE.Value('IBE_ENABLE_MULT_SVC') = 'Y') THEN
10: return FND_API.G_TRUE;
11: ELSE
12: return FND_API.G_FALSE;
13: END IF;
14: END;
8: BEGIN
9: IF(FND_PROFILE.Value('IBE_ENABLE_MULT_SVC') = 'Y') THEN
10: return FND_API.G_TRUE;
11: ELSE
12: return FND_API.G_FALSE;
13: END IF;
14: END;
15:
16: FUNCTION is_quote_usable(
63: P_Quote_header_id => p_quote_header_id,
64: P_Party_id => p_party_id ,
65: P_Cust_account_id => p_Cust_account_id ,
66: p_api_version => 1 ,
67: p_init_msg_list => fnd_api.g_false ,
68: p_commit => fnd_api.g_false ,
69: x_return_status => l_return_status ,
70: x_msg_count => l_msg_count ,
71: x_msg_data => l_msg_data );
64: P_Party_id => p_party_id ,
65: P_Cust_account_id => p_Cust_account_id ,
66: p_api_version => 1 ,
67: p_init_msg_list => fnd_api.g_false ,
68: p_commit => fnd_api.g_false ,
69: x_return_status => l_return_status ,
70: x_msg_count => l_msg_count ,
71: x_msg_data => l_msg_data );
72:
69: x_return_status => l_return_status ,
70: x_msg_count => l_msg_count ,
71: x_msg_data => l_msg_data );
72:
73: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
70: x_msg_count => l_msg_count ,
71: x_msg_data => l_msg_data );
72:
73: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80: END IF;
81: EXIT when c_find_active_cart%notfound;
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: END IF;
80: END IF;
81: EXIT when c_find_active_cart%notfound;
82: END LOOP;
79: END IF;
80: END IF;
81: EXIT when c_find_active_cart%notfound;
82: END LOOP;
83: return FND_API.G_FALSE;
84: ELSE
85: return FND_API.G_TRUE;
86: END IF;
87:
81: EXIT when c_find_active_cart%notfound;
82: END LOOP;
83: return FND_API.G_FALSE;
84: ELSE
85: return FND_API.G_TRUE;
86: END IF;
87:
88: EXCEPTION
89: WHEN FND_API.G_EXC_ERROR THEN
85: return FND_API.G_TRUE;
86: END IF;
87:
88: EXCEPTION
89: WHEN FND_API.G_EXC_ERROR THEN
90: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
91: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
92: END IF;
93:
91: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
92: END IF;
93:
94: ROLLBACK TO is_quote_usable;
95: l_return_status := FND_API.G_RET_STS_ERROR;
96: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
97: p_count => l_msg_count,
98: p_data => l_msg_data);
99: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
92: END IF;
93:
94: ROLLBACK TO is_quote_usable;
95: l_return_status := FND_API.G_RET_STS_ERROR;
96: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
97: p_count => l_msg_count,
98: p_data => l_msg_data);
99: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
95: l_return_status := FND_API.G_RET_STS_ERROR;
96: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
97: p_count => l_msg_count,
98: p_data => l_msg_data);
99: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
101: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
102: END IF;
103: ROLLBACK TO is_quote_usable;
100: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
101: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
102: END IF;
103: ROLLBACK TO is_quote_usable;
104: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
106: p_count => l_msg_count,
107: p_data => l_msg_data);
108: WHEN OTHERS THEN
101: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
102: END IF;
103: ROLLBACK TO is_quote_usable;
104: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
106: p_count => l_msg_count,
107: p_data => l_msg_data);
108: WHEN OTHERS THEN
109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
109: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
110: IBE_Util.Debug('Unknown exception in IBE_QUOTE_MISC_PVT.Is_quote_usable');
111: END IF;
112: ROLLBACK TO is_quote_usable;
113: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
115: THEN
116: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
117: l_api_name);
115: THEN
116: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
117: l_api_name);
118: END IF;
119: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
120: p_count => l_msg_count,
121: p_data => l_msg_data);
122:
123: END ;
166: IF(l_quote_header_id is not null) THEN
167: l_is_quote_usable := is_quote_usable(l_quote_header_id,
168: p_party_id,
169: p_cust_account_id);
170: IF (l_is_quote_usable =FND_API.G_TRUE) THEN
171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
172: IBE_Util.Debug('get_active_qute_id:l_quote_usable is true');
173: END IF;
174: RETURN l_quote_header_id;
255:
256:
257: END LOOP;
258:
259: RETURN FND_API.G_MISS_NUM;
260: END getLineIndexFromLineId;
261:
262:
263: FUNCTION getQuoteLastUpdateDate(
267:
268: CURSOR c_getLastUpdateDate(c_qte_header_id NUMBER) IS
269: SELECT last_update_date FROM ASO_QUOTE_HEADERS
270: WHERE quote_header_id = c_qte_header_id;
271: l_last_update_date date := FND_API.G_MISS_DATE;
272: BEGIN
273:
274: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
275: IBE_UTIL.Debug('getQuoteLastUpdateDate: starts');
1443:
1444:
1445: END LOOP;
1446:
1447: RETURN FND_API.G_MISS_NUM;
1448: END getPrcAdjIndexFromPrcAdjId;
1449:
1450:
1451: FUNCTION getLinePrcAdjRelTbl(
2046: l_api_version CONSTANT NUMBER := 1.0;
2047: l_last_update_date DATE;
2048: BEGIN
2049: SAVEPOINT validateLastUpdate_pvt;
2050: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2051: P_Api_Version_Number,
2052: l_api_name,
2053: G_PKG_NAME )
2054: THEN
2051: P_Api_Version_Number,
2052: l_api_name,
2053: G_PKG_NAME )
2054: THEN
2055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2056: END IF;
2057:
2058: x_return_status := FND_API.G_RET_STS_SUCCESS;
2059:
2054: THEN
2055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2056: END IF;
2057:
2058: x_return_status := FND_API.G_RET_STS_SUCCESS;
2059:
2060: l_last_update_date :=IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
2061: if (l_last_update_date <> p_last_update_date) then
2062: -- raise error
2063: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2064: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_QUOTE_NEED_REFRESH');
2065: FND_MSG_PUB.ADD;
2066: END IF;
2067: RAISE FND_API.G_EXC_ERROR; -- need error message
2068: end if;
2069:
2070: -- Standard call to get message count and if count is 1, get message info.
2071:
2068: end if;
2069:
2070: -- Standard call to get message count and if count is 1, get message info.
2071:
2072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2073: p_count => x_msg_count,
2074: p_data => x_msg_data);
2075: EXCEPTION
2076: WHEN FND_API.G_EXC_ERROR THEN
2072: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2073: p_count => x_msg_count,
2074: p_data => x_msg_data);
2075: EXCEPTION
2076: WHEN FND_API.G_EXC_ERROR THEN
2077: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2078: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2079: END IF;
2080: ROLLBACK TO validateLastUpdate_pvt;
2077: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2078: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2079: END IF;
2080: ROLLBACK TO validateLastUpdate_pvt;
2081: x_return_status := FND_API.G_RET_STS_ERROR;
2082: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2083: p_count => x_msg_count,
2084: p_data => x_msg_data);
2085:
2078: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2079: END IF;
2080: ROLLBACK TO validateLastUpdate_pvt;
2081: x_return_status := FND_API.G_RET_STS_ERROR;
2082: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2083: p_count => x_msg_count,
2084: p_data => x_msg_data);
2085:
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2082: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2083: p_count => x_msg_count,
2084: p_data => x_msg_data);
2085:
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2087: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2088: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2089: END IF;
2090: ROLLBACK TO validateLastUpdate_pvt;
2087: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2088: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2089: END IF;
2090: ROLLBACK TO validateLastUpdate_pvt;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data);
2095:
2088: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2089: END IF;
2090: ROLLBACK TO validateLastUpdate_pvt;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data);
2095:
2096: WHEN OTHERS THEN
2098: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2099: IBE_Util.Debug('Unknown exception in IBE_QUOTE_MISC_PVT.ValidateQuotelastUpdateDate');
2100: END IF;
2101: ROLLBACK TO validateLastUpdate_pvt;
2102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2103: IF FND_MSG_PUB.Check_Msg_Level
2104: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: FND_MSG_PUB.Add_Exc_Msg
2107: ( G_PKG_NAME,
2108: l_api_name
2109: );
2110: END IF;
2111: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2112: p_count => x_msg_count,
2113: p_data => x_msg_data);
2114: END validateQuoteLastUpdateDate;
2115:
2127: is
2128: l_api_name CONSTANT VARCHAR2(30) := 'getQuoteOwner';
2129: l_api_version CONSTANT NUMBER := 1.0;
2130:
2131: l_party_id number := FND_API.G_MISS_NUM;
2132: l_cust_account_id number := FND_API.G_MISS_NUM;
2133:
2134: CURSOR getuserinfo(p_quote_header_id NUMBER) IS
2135: SELECT party_id, cust_account_id
2128: l_api_name CONSTANT VARCHAR2(30) := 'getQuoteOwner';
2129: l_api_version CONSTANT NUMBER := 1.0;
2130:
2131: l_party_id number := FND_API.G_MISS_NUM;
2132: l_cust_account_id number := FND_API.G_MISS_NUM;
2133:
2134: CURSOR getuserinfo(p_quote_header_id NUMBER) IS
2135: SELECT party_id, cust_account_id
2136: FROM aso_quote_headers
2138:
2139: BEGIN
2140: SAVEPOINT getQuoteOwner_pvt;
2141: -- Standard call to check for call compatibility.
2142: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2143: P_Api_Version_Number,
2144: l_api_name,
2145: G_PKG_NAME )
2146: THEN
2143: P_Api_Version_Number,
2144: l_api_name,
2145: G_PKG_NAME )
2146: THEN
2147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2148: END IF;
2149:
2150: x_return_status := FND_API.G_RET_STS_SUCCESS;
2151:
2146: THEN
2147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2148: END IF;
2149:
2150: x_return_status := FND_API.G_RET_STS_SUCCESS;
2151:
2152: -- API body
2153:
2154: open getuserinfo(p_quote_header_id);
2155: fetch getuserinfo into l_party_id
2156: ,l_cust_account_id;
2157: close getuserinfo;
2158:
2159: IF (l_party_id = FND_API.G_MISS_NUM OR l_party_id IS NULL
2160: OR l_cust_account_id = FND_API.G_MISS_NUM OR l_cust_account_id IS NULL) THEN
2161: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2162: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_NO_QUOTE_OWNER');
2163: FND_MSG_PUB.ADD;
2156: ,l_cust_account_id;
2157: close getuserinfo;
2158:
2159: IF (l_party_id = FND_API.G_MISS_NUM OR l_party_id IS NULL
2160: OR l_cust_account_id = FND_API.G_MISS_NUM OR l_cust_account_id IS NULL) THEN
2161: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2162: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_NO_QUOTE_OWNER');
2163: FND_MSG_PUB.ADD;
2164: END IF;
2161: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2162: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_NO_QUOTE_OWNER');
2163: FND_MSG_PUB.ADD;
2164: END IF;
2165: RAISE FND_API.G_EXC_ERROR;
2166: END IF;
2167: -- End of API body.
2168: x_party_id := l_party_id;
2169: x_cust_account_id := l_cust_account_id;
2168: x_party_id := l_party_id;
2169: x_cust_account_id := l_cust_account_id;
2170: -- Standard call to get message count and if count is 1, get message info.
2171: FND_MSG_PUB.Count_And_Get
2172: ( p_encoded => FND_API.G_FALSE,
2173: p_count => x_msg_count,
2174: p_data => x_msg_data
2175: );
2176:
2177:
2178:
2179: EXCEPTION
2180:
2181: WHEN FND_API.G_EXC_ERROR THEN
2182: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2183: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2184: END IF;
2185:
2183: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2184: END IF;
2185:
2186: ROLLBACK to getQuoteOwner_pvt;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2184: END IF;
2185:
2186: ROLLBACK to getQuoteOwner_pvt;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2192: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2189: p_count => x_msg_count,
2190: p_data => x_msg_data);
2191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2192: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2193: IBE_Util.Debug('uNExpected exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2194: END IF;
2195: ROLLBACK to getQuoteOwner_pvt;
2192: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2193: IBE_Util.Debug('uNExpected exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2194: END IF;
2195: ROLLBACK to getQuoteOwner_pvt;
2196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2198: p_count => x_msg_count,
2199: p_data => x_msg_data);
2200:
2193: IBE_Util.Debug('uNExpected exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2194: END IF;
2195: ROLLBACK to getQuoteOwner_pvt;
2196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2198: p_count => x_msg_count,
2199: p_data => x_msg_data);
2200:
2201: WHEN OTHERS THEN
2202: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2203: IBE_Util.Debug('Unknown exception in IBE_QUOTE_MISC_PVT.getQuoteOwner');
2204: END IF;
2205: ROLLBACK to getQuoteOwner_pvt;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level
2208: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2209: THEN
2210: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
2209: THEN
2210: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,
2211: l_api_name);
2212: END IF;
2213: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2214: p_count => x_msg_count,
2215: p_data => x_msg_data);
2216:
2217: END getQuoteOwner;
2218:
2219:
2220: PROCEDURE Get_Shared_Quote(
2221: p_api_version_number IN NUMBER ,
2222: p_quote_password IN VARCHAR2 := FND_API.G_MISS_CHAR,
2223: p_quote_number IN NUMBER ,
2224: p_quote_version IN NUMBER := FND_API.G_MISS_NUM ,
2225: x_quote_header_id OUT NOCOPY NUMBER ,
2226: x_last_update_date OUT NOCOPY DATE ,
2220: PROCEDURE Get_Shared_Quote(
2221: p_api_version_number IN NUMBER ,
2222: p_quote_password IN VARCHAR2 := FND_API.G_MISS_CHAR,
2223: p_quote_number IN NUMBER ,
2224: p_quote_version IN NUMBER := FND_API.G_MISS_NUM ,
2225: x_quote_header_id OUT NOCOPY NUMBER ,
2226: x_last_update_date OUT NOCOPY DATE ,
2227: x_return_status OUT NOCOPY VARCHAR2 ,
2228: x_msg_count OUT NOCOPY NUMBER ,
2232: l_api_name CONSTANT VARCHAR2(30) := 'getshareeQuote';
2233: l_api_version CONSTANT NUMBER := 1.0;
2234:
2235: l_quote_version NUMBER;
2236: l_quote_header_id NUMBER := FND_API.G_MISS_NUM;
2237: l_last_update_date DATE := FND_API.G_MISS_DATE;
2238:
2239: l_sql1 VARCHAR2(200) :=
2240: 'SELECT quote_header_id,
2233: l_api_version CONSTANT NUMBER := 1.0;
2234:
2235: l_quote_version NUMBER;
2236: l_quote_header_id NUMBER := FND_API.G_MISS_NUM;
2237: l_last_update_date DATE := FND_API.G_MISS_DATE;
2238:
2239: l_sql1 VARCHAR2(200) :=
2240: 'SELECT quote_header_id,
2241: last_update_date
2246: l_sql2 VARCHAR2(100) := 'AND quote_password = :3';
2247: BEGIN
2248: SAVEPOINT get_shared_quote;
2249: -- Standard call to check for call compatibility.
2250: IF NOT FND_API.Compatible_API_Call(l_api_version,
2251: p_api_version_number,
2252: l_api_name,
2253: G_PKG_NAME) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2250: IF NOT FND_API.Compatible_API_Call(l_api_version,
2251: p_api_version_number,
2252: l_api_name,
2253: G_PKG_NAME) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: x_return_status := FND_API.G_RET_STS_SUCCESS;
2258:
2253: G_PKG_NAME) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: x_return_status := FND_API.G_RET_STS_SUCCESS;
2258:
2259: -- API body
2260: l_quote_version := p_quote_version;
2261:
2259: -- API body
2260: l_quote_version := p_quote_version;
2261:
2262: IF l_quote_version IS NULL
2263: OR l_quote_version = FND_API.G_MISS_NUM THEN
2264: SELECT MAX(quote_version)
2265: INTO l_quote_version
2266: FROM aso_quote_headers
2267: WHERE quote_number = p_quote_number;
2267: WHERE quote_number = p_quote_number;
2268: END IF;
2269:
2270: IF p_quote_password IS NULL
2271: OR p_quote_password = FND_API.G_MISS_CHAR THEN
2272: EXECUTE IMMEDIATE l_sql1
2273: INTO l_quote_header_id, l_last_update_date
2274: USING p_quote_number, l_quote_version;
2275: ELSE
2278: USING p_quote_number, l_quote_version, p_quote_password;
2279: END IF;
2280:
2281: IF l_quote_header_id IS NULL
2282: OR l_quote_header_id = FND_API.G_MISS_NUM THEN
2283: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2284: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_NO_SHARE_QUOTE');
2285: FND_MSG_PUB.ADD;
2286: END IF;
2284: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_NO_SHARE_QUOTE');
2285: FND_MSG_PUB.ADD;
2286: END IF;
2287:
2288: RAISE FND_API.G_EXC_ERROR;
2289: END IF;
2290:
2291: x_quote_header_id := l_quote_header_id;
2292: x_last_update_date := l_last_update_date;
2290:
2291: x_quote_header_id := l_quote_header_id;
2292: x_last_update_date := l_last_update_date;
2293: EXCEPTION
2294: WHEN FND_API.G_EXC_ERROR THEN
2295: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2296: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2297: END IF;
2298: ROLLBACK to get_shared_quote;
2295: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2296: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2297: END IF;
2298: ROLLBACK to get_shared_quote;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2301: p_count => x_msg_count,
2302: p_data => x_msg_data);
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2296: IBE_Util.Debug('Expected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2297: END IF;
2298: ROLLBACK to get_shared_quote;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2301: p_count => x_msg_count,
2302: p_data => x_msg_data);
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2304: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2301: p_count => x_msg_count,
2302: p_data => x_msg_data);
2303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2304: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2305: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2306: END IF;
2307: ROLLBACK to get_shared_quote;
2304: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2305: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2306: END IF;
2307: ROLLBACK to get_shared_quote;
2308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2309: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2310: p_count => x_msg_count,
2311: p_data => x_msg_data);
2312: WHEN OTHERS THEN
2305: IBE_Util.Debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2306: END IF;
2307: ROLLBACK to get_shared_quote;
2308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2309: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2310: p_count => x_msg_count,
2311: p_data => x_msg_data);
2312: WHEN OTHERS THEN
2313: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2313: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2314: IBE_Util.Debug('Unknown exception in IBE_QUOTE_MISC_PVT.get_shared_quote');
2315: END IF;
2316: ROLLBACK to get_shared_quote;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2319: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2320: l_api_name);
2321: END IF;
2319: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2320: l_api_name);
2321: END IF;
2322:
2323: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2324: p_count => x_msg_count,
2325: p_data => x_msg_data);
2326: END Get_Shared_Quote;
2327:
2329: -- direct entry
2330: -- load inventory_item_ids based on customer number
2331: PROCEDURE Load_Item_IDs(
2332: p_api_version IN NUMBER := 1 ,
2333: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2334: p_cust_id IN NUMBER ,
2335: p_cust_item_number_tbl IN jtf_varchar2_table_100 ,
2336: p_organization_id IN NUMBER ,
2337: p_minisite_id IN NUMBER ,
2357: inv_debug.message('ssia', 'p_organization_id is ' || p_organization_id);
2358: inv_debug.message('ssia', 'p_minisite_id is ' || p_minisite_id);*/
2359:
2360: -- Standard call to check for call compatibility
2361: IF NOT FND_API.Compatible_API_Call(l_api_version,
2362: p_api_version,
2363: l_api_name ,
2364: g_pkg_name)
2365: THEN
2362: p_api_version,
2363: l_api_name ,
2364: g_pkg_name)
2365: THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368:
2369: -- Initialize message list if p_init_msg_list is set to TRUE
2370: IF FND_API.to_Boolean(p_init_msg_list) THEN
2366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2367: END IF;
2368:
2369: -- Initialize message list if p_init_msg_list is set to TRUE
2370: IF FND_API.to_Boolean(p_init_msg_list) THEN
2371: FND_MSG_PUB.initialize;
2372: END IF;
2373:
2374: -- Initialize API return status to success
2371: FND_MSG_PUB.initialize;
2372: END IF;
2373:
2374: -- Initialize API return status to success
2375: x_return_status := FND_API.G_RET_STS_SUCCESS;
2376:
2377: -- API body
2378: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2379: IBE_Util.Debug('IBE_Quote_Misc_pvt.Load_Item_IDs(+)...');
2435: END LOOP;
2436:
2437:
2438: -- Standard call to get message count and if count is 1, get message info.
2439: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2440: p_count => x_msg_count,
2441: p_data => x_msg_data);
2442: --inv_debug.message('ssia', 'x_msg_count is ' || x_msg_count);
2443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2443: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2444: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2445: END IF;
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2444: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2445: END IF;
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2445: END IF;
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2448: x_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data);
2449: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data);
2457: WHEN OTHERS THEN
2450: p_count => x_msg_count,
2451: p_data => x_msg_data);
2452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data);
2457: WHEN OTHERS THEN
2458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data);
2457: WHEN OTHERS THEN
2458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2459: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2460: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2461: l_api_name);
2462: END IF;
2460: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2461: l_api_name);
2462: END IF;
2463:
2464: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2465: p_count => x_msg_count,
2466: p_data => x_msg_data);
2467:
2468: END Load_Item_IDs;
2470:
2471: ---converting ShoppingList, saved cart, Quote to Active shopping cart
2472: PROCEDURE Check_Item_IDs(
2473: p_api_version IN NUMBER := 1 ,
2474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2475: p_cust_id IN NUMBER ,
2476: p_organization_id IN NUMBER ,
2477: p_minisite_id IN NUMBER ,
2478: x_inventory_item_id_tbl IN OUT NOCOPY jtf_number_table ,
2497: inv_debug.message('ssia', 'p_organization_id is ' || p_organization_id);
2498: inv_debug.message('ssia', 'p_minisite_id is ' || p_minisite_id);*/
2499:
2500: -- Standard call to check for call compatibility
2501: IF NOT FND_API.Compatible_API_Call(l_api_version,
2502: p_api_version,
2503: l_api_name ,
2504: g_pkg_name)
2505: THEN
2502: p_api_version,
2503: l_api_name ,
2504: g_pkg_name)
2505: THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: END IF;
2508:
2509: -- Initialize message list if p_init_msg_list is set to TRUE
2510: IF FND_API.to_Boolean(p_init_msg_list) THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2507: END IF;
2508:
2509: -- Initialize message list if p_init_msg_list is set to TRUE
2510: IF FND_API.to_Boolean(p_init_msg_list) THEN
2511: FND_MSG_PUB.initialize;
2512: END IF;
2513:
2514: -- Initialize API return status to success
2511: FND_MSG_PUB.initialize;
2512: END IF;
2513:
2514: -- Initialize API return status to success
2515: x_return_status := FND_API.G_RET_STS_SUCCESS;
2516:
2517: -- API body
2518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2519: IBE_Util.Debug('IBE_Quote_Misc_pvt.Check_Item_IDs(+)...');
2555: END LOOP;
2556:
2557:
2558: -- Standard call to get message count and if count is 1, get message info.
2559: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2560: p_count => x_msg_count,
2561: p_data => x_msg_data);
2562: --inv_debug.message('ssia', 'x_msg_count is ' || x_msg_count);
2563: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2563: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2564: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2565: END IF;
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2564: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2565: END IF;
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2565: END IF;
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2575: p_count => x_msg_count,
2576: p_data => x_msg_data);
2569: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2575: p_count => x_msg_count,
2576: p_data => x_msg_data);
2577: WHEN OTHERS THEN
2570: p_count => x_msg_count,
2571: p_data => x_msg_data);
2572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2575: p_count => x_msg_count,
2576: p_data => x_msg_data);
2577: WHEN OTHERS THEN
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2575: p_count => x_msg_count,
2576: p_data => x_msg_data);
2577: WHEN OTHERS THEN
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2579: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2580: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2581: l_api_name);
2582: END IF;
2580: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
2581: l_api_name);
2582: END IF;
2583:
2584: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2585: p_count => x_msg_count,
2586: p_data => x_msg_data);
2587:
2588: END Check_Item_IDs;
2591:
2592: procedure get_load_errors(
2593: X_reason_code OUT NOCOPY JTF_VARCHAR2_TABLE_100 ,
2594: p_api_version IN NUMBER := 1.0 ,
2595: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2596: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2597: x_return_status OUT NOCOPY VARCHAR2 ,
2598: x_msg_count OUT NOCOPY NUMBER ,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2592: procedure get_load_errors(
2593: X_reason_code OUT NOCOPY JTF_VARCHAR2_TABLE_100 ,
2594: p_api_version IN NUMBER := 1.0 ,
2595: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2596: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2597: x_return_status OUT NOCOPY VARCHAR2 ,
2598: x_msg_count OUT NOCOPY NUMBER ,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2596: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2597: x_return_status OUT NOCOPY VARCHAR2 ,
2598: x_msg_count OUT NOCOPY NUMBER ,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2597: x_return_status OUT NOCOPY VARCHAR2 ,
2598: x_msg_count OUT NOCOPY NUMBER ,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2598: x_msg_count OUT NOCOPY NUMBER ,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2606: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2599: x_msg_data OUT NOCOPY VARCHAR2 ,
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2606: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2607: P_share_type IN number := -1, -- defaulted to no share type
2600: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2606: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2607: P_share_type IN number := -1, -- defaulted to no share type
2608: p_access_level IN number := 0) is
2601: P_Load_type IN number := FND_API.G_MISS_NUM,
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2606: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2607: P_share_type IN number := -1, -- defaulted to no share type
2608: p_access_level IN number := 0) is
2609:
2602: P_quote_number IN number := FND_API.G_MISS_NUM,
2603: P_quote_version IN number := FND_API.G_MISS_NUM,
2604: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2605: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2606: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2607: P_share_type IN number := -1, -- defaulted to no share type
2608: p_access_level IN number := 0) is
2609:
2610: Cursor c_cart_columns (quote_hdr_id number) is
2653: L_UPDATE CONSTANT number := 2;
2654: L_FULL CONSTANT number := 3;
2655:
2656: l_quote_header_id NUMBER;
2657: l_resource_id number :=fnd_api.g_miss_num;
2658: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2659: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2660: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2661: l_return_status VARCHAR2(100);
2654: L_FULL CONSTANT number := 3;
2655:
2656: l_quote_header_id NUMBER;
2657: l_resource_id number :=fnd_api.g_miss_num;
2658: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2659: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2660: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2661: l_return_status VARCHAR2(100);
2662: l_msg_count NUMBER;
2655:
2656: l_quote_header_id NUMBER;
2657: l_resource_id number :=fnd_api.g_miss_num;
2658: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2659: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2660: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2661: l_return_status VARCHAR2(100);
2662: l_msg_count NUMBER;
2663: l_msg_data VARCHAR2(2000);
2656: l_quote_header_id NUMBER;
2657: l_resource_id number :=fnd_api.g_miss_num;
2658: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2659: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2660: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2661: l_return_status VARCHAR2(100);
2662: l_msg_count NUMBER;
2663: l_msg_data VARCHAR2(2000);
2664: l_max_version_flag varchar2(2);
2666: table_counter number := 1;
2667: l_end_date_active DATE;
2668: l_order_id NUMBER;
2669: l_recipient_id NUMBER;
2670: l_access_code VARCHAR2(10) :=fnd_api.g_miss_char;
2671: l_quote_name VARCHAR2(2000);
2672: l_exp_quote_header_id NUMBER;
2673:
2674: rec_cart_columns c_cart_columns%rowtype;
2680: -- Standard Start of API savepoint
2681: SAVEPOINT Get_load_errors_pvt;
2682:
2683: -- Standard call to check for call compatibility.
2684: IF NOT FND_API.Compatible_API_Call(L_API_VERSION,
2685: p_api_version,
2686: L_API_NAME ,
2687: G_PKG_NAME )
2688: THEN
2685: p_api_version,
2686: L_API_NAME ,
2687: G_PKG_NAME )
2688: THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691:
2692: -- Initialize message list if p_init_msg_list is set to TRUE.
2693: IF FND_API.To_Boolean(p_init_msg_list) THEN
2689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2690: END IF;
2691:
2692: -- Initialize message list if p_init_msg_list is set to TRUE.
2693: IF FND_API.To_Boolean(p_init_msg_list) THEN
2694: FND_Msg_Pub.initialize;
2695: END IF;
2696:
2697: -- Initialize API return status to success
2694: FND_Msg_Pub.initialize;
2695: END IF;
2696:
2697: -- Initialize API return status to success
2698: x_return_status := FND_API.G_RET_STS_SUCCESS;
2699: --Start of API Body
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2707: END IF;
2708:
2709: X_reason_code := JTF_VARCHAR2_TABLE_100();
2710: If (p_quote_header_id <> fnd_api.g_miss_num) then
2711: l_exp_quote_header_id := p_quote_header_id;
2712: For rec_cart_columns in c_cart_columns(p_quote_header_id) loop
2713: L_resource_id := rec_cart_columns.resource_id;
2714: l_status_code := rec_cart_columns.status_code;
2718: l_order_id := rec_cart_columns.order_id;
2719: l_quote_name := rec_cart_columns.quote_name;
2720: exit when c_cart_columns%notfound;
2721: end loop;
2722: Elsif ((p_quote_number <> fnd_api.g_miss_num) and (p_quote_version <> fnd_api.g_miss_num)) then
2723: For rec_cart_from_number in c_cart_from_number(p_quote_number, p_quote_version) loop
2724: l_quote_header_id := rec_cart_from_number.quote_header_id;
2725: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
2726: L_resource_id := rec_cart_columns.resource_id;
2735: End if;
2736:
2737: -- 1st half of errors for share information
2738: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2739: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2740: ((p_retrieval_number = FND_API.G_MISS_NUM)
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2736:
2737: -- 1st half of errors for share information
2738: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2739: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2740: ((p_retrieval_number = FND_API.G_MISS_NUM)
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2738: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2739: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2740: ((p_retrieval_number = FND_API.G_MISS_NUM)
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2739: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2740: ((p_retrieval_number = FND_API.G_MISS_NUM)
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2740: ((p_retrieval_number = FND_API.G_MISS_NUM)
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2750: IBE_UTIL.debug('get recipient info based on retrieval number');
2751: end if;
2752: for rec_retrieval_number in c_retrieval_number(p_retrieval_number) loop
2755: l_access_code := rec_retrieval_number.update_privilege_type_code;
2756: l_quote_header_id := rec_retrieval_number.quote_header_id;
2757: exit when c_retrieval_number%NOTFOUND;
2758: end loop;
2759: if((p_quote_header_id = fnd_api.g_miss_num) and (l_quote_header_id is not null)) then
2760: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2761: IBE_UTIL.debug('tried to load with retreival number only (no cartid)');
2762: IBE_UTIL.debug('but the retrieval number was valid so get cart info... ');
2763: end if;
2773: end loop;
2774: end if;
2775: end if;
2776:
2777: If((p_retrieval_number = FND_API.G_MISS_NUM)
2778: and (p_share_type = L_SHARED_TO_TYPE)
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2775: end if;
2776:
2777: If((p_retrieval_number = FND_API.G_MISS_NUM)
2778: and (p_share_type = L_SHARED_TO_TYPE)
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2783: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2776:
2777: If((p_retrieval_number = FND_API.G_MISS_NUM)
2778: and (p_share_type = L_SHARED_TO_TYPE)
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2783: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2784: end if;
2777: If((p_retrieval_number = FND_API.G_MISS_NUM)
2778: and (p_share_type = L_SHARED_TO_TYPE)
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2783: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2784: end if;
2785: for rec_recipient_no_retnum in c_recipient_no_retnum(p_quote_header_id, p_party_id, p_cust_account_id) loop
2795: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2796: IBE_UTIL.debug('l_access_code: '||l_access_code);
2797: end if;
2798:
2799: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2800: -- if we were given a retrieval number and it was not in the database
2801: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2802: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_RETRIEVAL_NUM');
2803: END IF;
2867:
2868: End If;
2869: -- 2nd half of errors for cart information
2870: -- only do these latter checks if we had a request for a cart - either by id or number and version
2871: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2872: ((p_quote_number <> fnd_api.g_miss_num)
2873: and (p_quote_version <> fnd_api.g_miss_num))) then
2874: if(trunc(l_expiration_date) < trunc(sysdate)) then
2875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2868: End If;
2869: -- 2nd half of errors for cart information
2870: -- only do these latter checks if we had a request for a cart - either by id or number and version
2871: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2872: ((p_quote_number <> fnd_api.g_miss_num)
2873: and (p_quote_version <> fnd_api.g_miss_num))) then
2874: if(trunc(l_expiration_date) < trunc(sysdate)) then
2875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2876: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2869: -- 2nd half of errors for cart information
2870: -- only do these latter checks if we had a request for a cart - either by id or number and version
2871: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2872: ((p_quote_number <> fnd_api.g_miss_num)
2873: and (p_quote_version <> fnd_api.g_miss_num))) then
2874: if(trunc(l_expiration_date) < trunc(sysdate)) then
2875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2876: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2877: END IF;
2891: Table_counter := table_counter+1;
2892: end if;
2893: End If;
2894: If (p_load_type = L_CART_LOAD_TYPE) then
2895: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) then
2896: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2897: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_HAS_RESOURCEID');
2898: END IF;
2899: if(table_counter = 1) then
2955: Table_counter := table_counter+1;
2956: end if;
2957: End if;
2958: Elsif(p_load_type = L_LOAD_FORUPDATE) then
2959: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) THEN
2960: If (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' and l_status_code <> 'DRAFT') THEN
2961: -- Update on Draft profile enabled, only allow updates on DRAFT.
2962: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2963: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_QUOTE_STS');
3005: End If;
3006: End if;
3007: End if;-- end if we have an input cartid or cartnum and version
3008: -- Standard check of p_commit.
3009: IF FND_API.To_Boolean(p_commit) THEN
3010: COMMIT WORK;
3011: END IF;
3012:
3013: -- Standard call to get message count and if count is 1, get message info.
3010: COMMIT WORK;
3011: END IF;
3012:
3013: -- Standard call to get message count and if count is 1, get message info.
3014: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3015: p_count => x_msg_count ,
3016: p_data => x_msg_data);
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_ERROR THEN
3014: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3015: p_count => x_msg_count ,
3016: p_data => x_msg_data);
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_ERROR THEN
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3021: end if;
3022: ROLLBACK TO Get_load_errors_pvt;
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3021: end if;
3022: ROLLBACK TO Get_load_errors_pvt;
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3025: p_count => x_msg_count ,
3026: p_data => x_msg_data);
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3020: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3021: end if;
3022: ROLLBACK TO Get_load_errors_pvt;
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3025: p_count => x_msg_count ,
3026: p_data => x_msg_data);
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3025: p_count => x_msg_count ,
3026: p_data => x_msg_data);
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3029: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3030: end if;
3031: ROLLBACK TO Get_load_errors_pvt;
3028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3029: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3030: end if;
3031: ROLLBACK TO Get_load_errors_pvt;
3032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3033: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3034: p_count => x_msg_count ,
3035: p_data => x_msg_data);
3036: WHEN OTHERS THEN
3029: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3030: end if;
3031: ROLLBACK TO Get_load_errors_pvt;
3032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3033: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3034: p_count => x_msg_count ,
3035: p_data => x_msg_data);
3036: WHEN OTHERS THEN
3037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3038: IBE_UTIL.debug('Unknown exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3039: end if;
3040: ROLLBACK TO Get_load_errors_pvt;
3041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3042: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3043: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3044: L_API_NAME);
3045: END IF;
3043: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
3044: L_API_NAME);
3045: END IF;
3046:
3047: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3048: p_count => x_msg_count ,
3049: p_data => x_msg_data);
3050:
3051: End get_load_errors;
3053: /*PROCEDURE Get_ActiveCart_Id (
3054: p_party_id IN number
3055: ,p_cust_account_id IN number
3056: ,p_api_version_number IN NUMBER
3057: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3058: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3059: ,X_Return_Status OUT NOCOPY VARCHAR2
3060: ,X_Msg_Count OUT NOCOPY NUMBER
3061: ,X_Msg_Data OUT NOCOPY VARCHAR2
3054: p_party_id IN number
3055: ,p_cust_account_id IN number
3056: ,p_api_version_number IN NUMBER
3057: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3058: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3059: ,X_Return_Status OUT NOCOPY VARCHAR2
3060: ,X_Msg_Count OUT NOCOPY NUMBER
3061: ,X_Msg_Data OUT NOCOPY VARCHAR2
3062: ,x_cartHeaderId OUT NOCOPY number
3089: begin
3090: -- Standard Start of API savepoint
3091: SAVEPOINT GetActiveCartId_pvt;
3092: -- Standard call to check for call compatibility.
3093: IF NOT FND_API.Compatible_API_Call (
3094: l_api_version ,
3095: P_Api_Version_Number,
3096: l_api_name ,
3097: G_PKG_NAME )
3095: P_Api_Version_Number,
3096: l_api_name ,
3097: G_PKG_NAME )
3098: THEN
3099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3100: END IF;
3101: -- Initialize message list if p_init_msg_list is set to TRUE.
3102: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3103: FND_MSG_PUB.initialize;
3098: THEN
3099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3100: END IF;
3101: -- Initialize message list if p_init_msg_list is set to TRUE.
3102: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3103: FND_MSG_PUB.initialize;
3104: END IF;
3105: -- Initialize API return status to success
3106: x_return_status := FND_API.G_RET_STS_SUCCESS;
3102: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3103: FND_MSG_PUB.initialize;
3104: END IF;
3105: -- Initialize API return status to success
3106: x_return_status := FND_API.G_RET_STS_SUCCESS;
3107: -- API body
3108: FOR Rec_get_quote_id in c_get_quote_id(p_party_id, p_cust_account_id) loop
3109: l_cartHeaderId := Rec_get_quote_id.quote_header_id;
3110: x_last_update_date := Rec_get_quote_id.last_update_date;
3114: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3115: ibe_util.debug('ibeactivecart ='||l_cartHeaderId);
3116: END IF;
3117:
3118: IF (l_cartHeaderId = fnd_api.g_miss_num or l_cartHeaderid is null ) then
3119: x_cartHeaderId := null;
3120: else
3121: x_cartHeaderId := l_cartHeaderId;
3122: end if;
3131: EXCEPTION
3132: WHEN TOO_MANY_ROWS then
3133: --ibe_util.debug('TOO_MANY_ROWS');
3134: ROLLBACK TO GETACTIVECARTID_pvt;
3135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: FND_MESSAGE.set_name('IBE','IBE_SC_GETACTIVEC_MANY');
3137: FND_MSG_PUB.add;
3138: FND_MSG_PUB.Count_And_Get
3139: ( p_count => x_msg_count,
3142: WHEN NO_DATA_FOUND then
3143: --ibe_util.debug('NO_DATA_FOUND');
3144: null;
3145:
3146: WHEN FND_API.G_EXC_ERROR THEN
3147: ROLLBACK TO GETACTIVECARTID_pvt;
3148: x_return_status := FND_API.G_RET_STS_ERROR;
3149: FND_MSG_PUB.Count_And_Get
3150: ( p_count => x_msg_count,
3144: null;
3145:
3146: WHEN FND_API.G_EXC_ERROR THEN
3147: ROLLBACK TO GETACTIVECARTID_pvt;
3148: x_return_status := FND_API.G_RET_STS_ERROR;
3149: FND_MSG_PUB.Count_And_Get
3150: ( p_count => x_msg_count,
3151: p_data => x_msg_data
3152: );
3149: FND_MSG_PUB.Count_And_Get
3150: ( p_count => x_msg_count,
3151: p_data => x_msg_data
3152: );
3153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3154: ROLLBACK TO GETACTIVECARTID_pvt;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: FND_MSG_PUB.Count_And_Get
3157: ( p_count => x_msg_count,
3151: p_data => x_msg_data
3152: );
3153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3154: ROLLBACK TO GETACTIVECARTID_pvt;
3155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3156: FND_MSG_PUB.Count_And_Get
3157: ( p_count => x_msg_count,
3158: p_data => x_msg_data
3159: );
3158: p_data => x_msg_data
3159: );
3160: WHEN OTHERS THEN
3161: ROLLBACK TO GETACTIVECARTID_pvt;
3162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3163: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3164: FND_MSG_PUB.Add_Exc_Msg
3165: ( G_PKG_NAME,
3166: l_api_name);
3194: l_new_item_id_tbl CZ_API_PUB.number_tbl_type;
3195: BEGIN
3196: SAVEPOINT Update_Config_Item_Lines;
3197: -- Initialize API return status to success
3198: x_return_status := FND_API.G_RET_STS_SUCCESS;
3199:
3200: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3201: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(+)');
3202: END IF;
3203:
3204: -- API body
3205: FOR i IN 1..px_qte_line_dtl_tbl.COUNT LOOP
3206: IF px_qte_line_dtl_tbl(i).config_header_id IS NOT NULL
3207: AND px_qte_line_dtl_tbl(i).config_header_id <> FND_API.G_MISS_NUM THEN
3208: l_old_config_header_id := px_qte_line_dtl_tbl(i).config_header_id;
3209: l_old_config_revision_num := px_qte_line_dtl_tbl(i).config_revision_num;
3210:
3211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3226: ,x_new_item_id_tbl => l_new_item_id_tbl
3227: ,x_return_status => l_ret_status
3228: ,x_msg_count => l_msg_count
3229: ,x_msg_data => x_msg_data);
3230: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3231: RAISE FND_API.G_EXC_ERROR;
3232: END IF;
3233:
3234: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3227: ,x_return_status => l_ret_status
3228: ,x_msg_count => l_msg_count
3229: ,x_msg_data => x_msg_data);
3230: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3231: RAISE FND_API.G_EXC_ERROR;
3232: END IF;
3233:
3234: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3235: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3257: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(-)');
3258: END IF;
3259:
3260: -- Standard call to get message count and IF count is 1, get message info.
3261: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3262: p_count => x_msg_count ,
3263: p_data => x_msg_data );
3264: EXCEPTION
3265: WHEN FND_API.G_EXC_ERROR THEN
3261: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3262: p_count => x_msg_count ,
3263: p_data => x_msg_data );
3264: EXCEPTION
3265: WHEN FND_API.G_EXC_ERROR THEN
3266: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3267: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3268: END IF;
3269: ROLLBACK to Update_config_item_lines;
3266: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3267: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3268: END IF;
3269: ROLLBACK to Update_config_item_lines;
3270: x_return_status := FND_API.G_RET_STS_ERROR;
3271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3272: p_count => x_msg_count,
3273: p_data => x_msg_data);
3274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3267: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3268: END IF;
3269: ROLLBACK to Update_config_item_lines;
3270: x_return_status := FND_API.G_RET_STS_ERROR;
3271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3272: p_count => x_msg_count,
3273: p_data => x_msg_data);
3274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3270: x_return_status := FND_API.G_RET_STS_ERROR;
3271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3272: p_count => x_msg_count,
3273: p_data => x_msg_data);
3274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3276: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3277: END IF;
3278: ROLLBACK to Update_config_item_lines;
3275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3276: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3277: END IF;
3278: ROLLBACK to Update_config_item_lines;
3279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3281: p_count => x_msg_count,
3282: p_data => x_msg_data);
3283: WHEN OTHERS THEN
3276: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3277: END IF;
3278: ROLLBACK to Update_config_item_lines;
3279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3281: p_count => x_msg_count,
3282: p_data => x_msg_data);
3283: WHEN OTHERS THEN
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3286: END IF;
3287: ROLLBACK to Update_config_item_lines;
3288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3289:
3290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3291: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3292: l_api_name);
3291: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3292: l_api_name);
3293: END IF;
3294:
3295: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3296: p_count => x_msg_count,
3297: p_data => x_msg_data);
3298: END Update_Config_Item_Lines;
3299:
3332: END Validate_Items;
3333:
3334: PROCEDURE Get_Included_Warranties(
3335: p_api_version_number IN NUMBER := 1,
3336: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3338: x_return_status OUT NOCOPY VARCHAR2,
3339: x_msg_count OUT NOCOPY NUMBER,
3340: x_msg_data OUT NOCOPY VARCHAR2,
3333:
3334: PROCEDURE Get_Included_Warranties(
3335: p_api_version_number IN NUMBER := 1,
3336: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3338: x_return_status OUT NOCOPY VARCHAR2,
3339: x_msg_count OUT NOCOPY NUMBER,
3340: x_msg_data OUT NOCOPY VARCHAR2,
3341: p_organization_id IN NUMBER := NULL,
3365: p_product_item_id => p_product_item_id,
3366: x_return_status => x_return_status,
3367: x_warranty_tbl => l_warranty_tbl
3368: );
3369: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3370: l_count := l_warranty_tbl.COUNT;
3371: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3372: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Finishes ' || x_return_status ||
3373: ' x_warranty_tbl.COUNT=' || l_count);
3390: END Get_Included_Warranties;
3391:
3392: PROCEDURE Get_Available_Services(
3393: p_api_version_number IN NUMBER := 1,
3394: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3395: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3396: x_return_status OUT NOCOPY VARCHAR2,
3397: x_msg_count OUT NOCOPY NUMBER,
3398: x_msg_data OUT NOCOPY VARCHAR2,
3391:
3392: PROCEDURE Get_Available_Services(
3393: p_api_version_number IN NUMBER := 1,
3394: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3395: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3396: x_return_status OUT NOCOPY VARCHAR2,
3397: x_msg_count OUT NOCOPY NUMBER,
3398: x_msg_data OUT NOCOPY VARCHAR2,
3399: p_product_item_id IN NUMBER,
3432: p_avail_service_rec => l_avail_service_rec,
3433: x_orderable_service_tbl => l_orderable_service_tbl
3434: );
3435:
3436: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: END IF;
3439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3433: x_orderable_service_tbl => l_orderable_service_tbl
3434: );
3435:
3436: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: END IF;
3439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3435:
3436: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: END IF;
3439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3443: l_count := l_orderable_service_tbl.COUNT;
3436: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: END IF;
3439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3443: l_count := l_orderable_service_tbl.COUNT;
3444: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3462: END Get_Available_Services;
3463:
3464: Procedure Duplicate_Line(
3465: p_api_version_number IN NUMBER
3466: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3467: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3468: ,X_Return_Status OUT NOCOPY VARCHAR2
3469: ,X_Msg_Count OUT NOCOPY NUMBER
3470: ,X_Msg_Data OUT NOCOPY VARCHAR2
3463:
3464: Procedure Duplicate_Line(
3465: p_api_version_number IN NUMBER
3466: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3467: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3468: ,X_Return_Status OUT NOCOPY VARCHAR2
3469: ,X_Msg_Count OUT NOCOPY NUMBER
3470: ,X_Msg_Data OUT NOCOPY VARCHAR2
3471: ,p_quote_header_id IN NUMBER
3513: BEGIN
3514: -- Standard Start of API savepoint
3515: SAVEPOINT DUPLICATE_LINE_PVT;
3516: -- Standard call to check for call compatibility.
3517: IF NOT FND_API.Compatible_API_Call (l_api_version,
3518: P_Api_Version_Number,
3519: l_api_name,
3520: G_PKG_NAME )
3521: THEN
3518: P_Api_Version_Number,
3519: l_api_name,
3520: G_PKG_NAME )
3521: THEN
3522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3523: END IF;
3524: -- Initialize message list IF p_init_msg_list is set to TRUE.
3525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3526: FND_MSG_PUB.initialize;
3521: THEN
3522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3523: END IF;
3524: -- Initialize message list IF p_init_msg_list is set to TRUE.
3525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3526: FND_MSG_PUB.initialize;
3527: END IF;
3528:
3529: -- Initialize API return status to success
3526: FND_MSG_PUB.initialize;
3527: END IF;
3528:
3529: -- Initialize API return status to success
3530: x_return_status := FND_API.G_RET_STS_SUCCESS;
3531:
3532: l_initial_dtl_count := x_qte_line_dtl_tbl.COUNT + 1;
3533:
3534: l_initial_count := x_qte_line_tbl.COUNT + 1;
3555: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3556: IBE_UTIL.Debug(' Processing LineDetailTbl Count=' || l_qte_line_dtl_tbl.COUNT);
3557: END IF;
3558: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3559: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3560: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3561: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3562: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3563: END IF;
3558: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3559: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3560: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3561: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3562: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3563: END IF;
3564: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3565: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3566: l_qte_line_dtl_tbl(j).qte_line_index := i;
3560: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3561: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3562: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3563: END IF;
3564: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3565: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3566: l_qte_line_dtl_tbl(j).qte_line_index := i;
3567: l_qte_line_dtl_tbl(j).quote_line_id := fnd_api.g_miss_num;
3568: x_qte_line_dtl_tbl(x_qte_line_dtl_tbl.count+1)
3563: END IF;
3564: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3565: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3566: l_qte_line_dtl_tbl(j).qte_line_index := i;
3567: l_qte_line_dtl_tbl(j).quote_line_id := fnd_api.g_miss_num;
3568: x_qte_line_dtl_tbl(x_qte_line_dtl_tbl.count+1)
3569: := l_qte_line_dtl_tbl(j);
3570: END LOOP;
3571:
3576: END IF;
3577:
3578: FOR j IN 1..l_line_rltship_tbl.COUNT LOOP
3579: IF NVL(l_line_rltship_tbl(j).relationship_type_code, '*') <> 'SERVICE' THEN
3580: l_line_rltship_tbl(j).line_relationship_id := fnd_api.g_miss_num;
3581: l_line_rltship_tbl(j).operation_code := 'CREATE';
3582:
3583: l_line_rltship_tbl(j).qte_line_index := i;
3584: l_line_rltship_tbl(j).related_qte_line_index
3589: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3590: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3591: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3592: END IF;
3593: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3594: l_line_rltship_tbl(j).related_quote_line_id := fnd_api.g_miss_num;
3595: x_line_rltship_tbl(x_line_rltship_tbl.count+1)
3596: := l_line_rltship_tbl(j);
3597: END IF;
3590: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3591: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3592: END IF;
3593: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3594: l_line_rltship_tbl(j).related_quote_line_id := fnd_api.g_miss_num;
3595: x_line_rltship_tbl(x_line_rltship_tbl.count+1)
3596: := l_line_rltship_tbl(j);
3597: END IF;
3598:
3605: IBE_UTIL.Debug(' Processing LineAttrExtTbl Count=' || l_line_attr_ext_tbl.COUNT);
3606: END IF;
3607:
3608: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3609: l_line_attr_ext_tbl(j).line_attribute_id := fnd_api.g_miss_num;
3610: l_line_attr_ext_tbl(j).operation_code := 'CREATE';
3611: l_line_attr_ext_tbl(j).qte_line_index := i;
3612: l_line_attr_ext_tbl(j).quote_line_id := fnd_api.g_miss_num;
3613:
3608: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3609: l_line_attr_ext_tbl(j).line_attribute_id := fnd_api.g_miss_num;
3610: l_line_attr_ext_tbl(j).operation_code := 'CREATE';
3611: l_line_attr_ext_tbl(j).qte_line_index := i;
3612: l_line_attr_ext_tbl(j).quote_line_id := fnd_api.g_miss_num;
3613:
3614: x_line_attr_ext_tbl(x_line_attr_ext_tbl.count+1)
3615: := l_line_attr_ext_tbl(j);
3616: END LOOP;
3621: IBE_UTIL.Debug(' Processing linePrcAttrTbl Count=' || l_ln_price_attributes_tbl.COUNT);
3622: END IF;
3623:
3624: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3625: l_ln_price_attributes_tbl(j).price_attribute_id := fnd_api.g_miss_num;
3626: l_ln_price_attributes_tbl(j).operation_code := 'CREATE';
3627: l_ln_price_attributes_tbl(j).qte_line_index := i;
3628: l_ln_price_attributes_tbl(j).quote_line_id := fnd_api.g_miss_num;
3629: l_ln_price_attributes_tbl(j).quote_header_id := p_quote_header_id;
3624: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3625: l_ln_price_attributes_tbl(j).price_attribute_id := fnd_api.g_miss_num;
3626: l_ln_price_attributes_tbl(j).operation_code := 'CREATE';
3627: l_ln_price_attributes_tbl(j).qte_line_index := i;
3628: l_ln_price_attributes_tbl(j).quote_line_id := fnd_api.g_miss_num;
3629: l_ln_price_attributes_tbl(j).quote_header_id := p_quote_header_id;
3630: x_ln_price_attributes_tbl(x_ln_price_attributes_tbl.count+1)
3631: := l_ln_price_attributes_tbl(j);
3632: END LOOP;
3638: IBE_UTIL.Debug(' Processing LinePriceAdjTbl Count=' || l_ln_price_adj_tbl.COUNT);
3639: END IF;
3640:
3641: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3642: l_ln_price_adj_tbl(j).price_adjustment_id := fnd_api.g_miss_num;
3643: l_ln_price_adj_tbl(j).operation_code := 'CREATE';
3644: l_ln_price_adj_tbl(j).qte_line_index := i;
3645: l_ln_price_adj_tbl(j).quote_line_id := fnd_api.g_miss_num;
3646: l_ln_price_adj_tbl(j).quote_header_id := p_quote_header_id;
3641: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3642: l_ln_price_adj_tbl(j).price_adjustment_id := fnd_api.g_miss_num;
3643: l_ln_price_adj_tbl(j).operation_code := 'CREATE';
3644: l_ln_price_adj_tbl(j).qte_line_index := i;
3645: l_ln_price_adj_tbl(j).quote_line_id := fnd_api.g_miss_num;
3646: l_ln_price_adj_tbl(j).quote_header_id := p_quote_header_id;
3647: x_ln_price_adj_tbl(x_ln_price_adj_tbl.count+1)
3648: := l_ln_price_adj_tbl(j);
3649: END LOOP;
3651: END LOOP; -- end of get line information
3652:
3653: FOR I IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3654: x_qte_line_tbl(I).operation_code := 'CREATE';
3655: x_qte_line_tbl(I).quote_line_id := fnd_api.g_miss_num;
3656: x_qte_line_tbl(I).quote_header_id := p_quote_header_id;
3657: END LOOP;
3658:
3659: -- takes care of configuraton item
3685: ,x_new_item_id_tbl => l_new_item_id_tbl
3686: ,x_return_status => l_ret_status
3687: ,x_msg_count => l_msg_count
3688: ,x_msg_data => x_msg_data);
3689: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3690: RAISE FND_API.G_EXC_ERROR;
3691: END IF;
3692:
3693:
3686: ,x_return_status => l_ret_status
3687: ,x_msg_count => l_msg_count
3688: ,x_msg_data => x_msg_data);
3689: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3690: RAISE FND_API.G_EXC_ERROR;
3691: END IF;
3692:
3693:
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3717: ibe_util.debug('before out line number is='|| x_qte_line_tbl.count);
3718: END IF;
3719: -- Standard check of p_commit.
3720: IF FND_API.To_Boolean( p_commit ) THEN
3721: COMMIT WORK;
3722: END IF;
3723:
3724: -- Standard call to get message count and IF count is 1, get message info.
3721: COMMIT WORK;
3722: END IF;
3723:
3724: -- Standard call to get message count and IF count is 1, get message info.
3725: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3726: p_count => x_msg_count,
3727: p_data => x_msg_data);
3728: EXCEPTION
3729: WHEN FND_API.G_EXC_ERROR THEN
3725: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3726: p_count => x_msg_count,
3727: p_data => x_msg_data);
3728: EXCEPTION
3729: WHEN FND_API.G_EXC_ERROR THEN
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3732: END IF;
3733:
3731: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3732: END IF;
3733:
3734: ROLLBACK TO DUPLICATE_LINE_PVT;
3735: x_return_status := FND_API.G_RET_STS_ERROR;
3736: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3737: p_count => x_msg_count,
3738: p_data => x_msg_data);
3739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3732: END IF;
3733:
3734: ROLLBACK TO DUPLICATE_LINE_PVT;
3735: x_return_status := FND_API.G_RET_STS_ERROR;
3736: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3737: p_count => x_msg_count,
3738: p_data => x_msg_data);
3739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3735: x_return_status := FND_API.G_RET_STS_ERROR;
3736: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3737: p_count => x_msg_count,
3738: p_data => x_msg_data);
3739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3741: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3742: END IF;
3743:
3741: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3742: END IF;
3743:
3744: ROLLBACK TO DUPLICATE_LINE_PVT;
3745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3746: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3747: p_count => x_msg_count,
3748: p_data => x_msg_data);
3749: WHEN OTHERS THEN
3742: END IF;
3743:
3744: ROLLBACK TO DUPLICATE_LINE_PVT;
3745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3746: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3747: p_count => x_msg_count,
3748: p_data => x_msg_data);
3749: WHEN OTHERS THEN
3750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3751: IBE_Util.Debug('unknown error IBE_Quote_Misc_pvt.Duplicate_line');
3752: END IF;
3753:
3754: ROLLBACK TO DUPLICATE_LINE_PVT;
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756:
3757: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3758: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3759: l_api_name);
3758: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3759: l_api_name);
3760: END IF;
3761:
3762: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3763: p_count => x_msg_count,
3764: p_data => x_msg_data);
3765: END Duplicate_Line;
3766:
3764: p_data => x_msg_data);
3765: END Duplicate_Line;
3766:
3767: FUNCTION getHdrPrcAdjNonPRGTbl (
3768: P_Qte_Header_Id IN NUMBER := FND_API.G_MISS_NUM,
3769: P_Qte_Line_Id IN NUMBER := FND_API.G_MISS_NUM
3770: ) RETURN ASO_QUOTE_PUB.Price_Adj_Tbl_Type
3771: IS
3772: CURSOR c_price_adj IS
3765: END Duplicate_Line;
3766:
3767: FUNCTION getHdrPrcAdjNonPRGTbl (
3768: P_Qte_Header_Id IN NUMBER := FND_API.G_MISS_NUM,
3769: P_Qte_Line_Id IN NUMBER := FND_API.G_MISS_NUM
3770: ) RETURN ASO_QUOTE_PUB.Price_Adj_Tbl_Type
3771: IS
3772: CURSOR c_price_adj IS
3773: SELECT
3959: END getHdrPrcAdjNonPRGTbl;
3960:
3961: Procedure Split_Line(
3962: p_api_version_number IN NUMBER
3963: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3964: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3965: ,X_Return_Status OUT NOCOPY VARCHAR2
3966: ,X_Msg_Count OUT NOCOPY NUMBER
3967: ,X_Msg_Data OUT NOCOPY VARCHAR2
3960:
3961: Procedure Split_Line(
3962: p_api_version_number IN NUMBER
3963: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3964: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3965: ,X_Return_Status OUT NOCOPY VARCHAR2
3966: ,X_Msg_Count OUT NOCOPY NUMBER
3967: ,X_Msg_Data OUT NOCOPY VARCHAR2
3968: ,p_quote_header_id IN NUMBER
3968: ,p_quote_header_id IN NUMBER
3969: ,p_qte_line_id IN NUMBER
3970: ,p_quantities IN jtf_number_table
3971: ,p_last_update_date IN OUT NOCOPY DATE
3972: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3973: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3974: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3975: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3976: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3969: ,p_qte_line_id IN NUMBER
3970: ,p_quantities IN jtf_number_table
3971: ,p_last_update_date IN OUT NOCOPY DATE
3972: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3973: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3974: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3975: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3976: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3977: )
3970: ,p_quantities IN jtf_number_table
3971: ,p_last_update_date IN OUT NOCOPY DATE
3972: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3973: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3974: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3975: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3976: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3977: )
3978: IS
3971: ,p_last_update_date IN OUT NOCOPY DATE
3972: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3973: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3974: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3975: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3976: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3977: )
3978: IS
3979: l_api_name CONSTANT VARCHAR2(30) := 'Split_Line';
3972: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3973: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3974: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3975: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3976: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3977: )
3978: IS
3979: l_api_name CONSTANT VARCHAR2(30) := 'Split_Line';
3980: l_api_version CONSTANT NUMBER := 1.0;
4008: BEGIN
4009: -- Standard Start of API savepoint
4010: SAVEPOINT SPLIT_LINE_PVT;
4011: -- Standard call to check for call compatibility.
4012: IF NOT FND_API.Compatible_API_Call (l_api_version,
4013: P_Api_Version_Number,
4014: l_api_name,
4015: G_PKG_NAME )
4016: THEN
4013: P_Api_Version_Number,
4014: l_api_name,
4015: G_PKG_NAME )
4016: THEN
4017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4018: END IF;
4019: -- Initialize message list IF p_init_msg_list is set to TRUE.
4020: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4021: FND_MSG_PUB.initialize;
4016: THEN
4017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4018: END IF;
4019: -- Initialize message list IF p_init_msg_list is set to TRUE.
4020: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4021: FND_MSG_PUB.initialize;
4022: END IF;
4023: -- Initialize API return status to success
4024: x_return_status := FND_API.G_RET_STS_SUCCESS;
4020: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4021: FND_MSG_PUB.initialize;
4022: END IF;
4023: -- Initialize API return status to success
4024: x_return_status := FND_API.G_RET_STS_SUCCESS;
4025:
4026:
4027: IF p_quantities IS NOT NULL THEN
4028:
4043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4044: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_QUOTE_NEED_REFRESH');
4045: FND_MSG_PUB.ADD;
4046: END IF;
4047: RAISE FND_API.G_EXC_ERROR; -- need error message
4048: END IF;
4049: -- 4587019
4050: */
4051:
4062: ,x_msg_data => x_msg_data
4063: );
4064:
4065:
4066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4067: RAISE FND_API.G_EXC_ERROR;
4068: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4063: );
4064:
4065:
4066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4067: RAISE FND_API.G_EXC_ERROR;
4068: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071:
4064:
4065:
4066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4067: RAISE FND_API.G_EXC_ERROR;
4068: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071:
4072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4065:
4066: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4067: RAISE FND_API.G_EXC_ERROR;
4068: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071:
4072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4073: IBE_UTIL.Debug('Validating User Finishes');
4091: l_control_rec.calculate_freight_charge_flag := 'Y';
4092: --mannamra:Removing references to obsoleted profile IBE_PRICE_REQUEST_TYPE see bug 2594529 for details
4093: l_control_rec.pricing_request_type := 'ASO';--FND_PROFILE.Value('IBE_PRICE_REQUEST_TYPE');
4094: l_control_rec.header_pricing_event := FND_PROFILE.Value('IBE_INCART_PRICING_EVENT');
4095: l_control_rec.line_pricing_event := FND_API.G_MISS_CHAR;
4096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4097: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
4098: END IF;
4099: aso_split_line_int.Split_Quote_line (
4097: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
4098: END IF;
4099: aso_split_line_int.Split_Quote_line (
4100: P_Api_Version_Number => 1.0,
4101: P_Init_Msg_List => FND_API.G_TRUE,
4102: P_Commit => FND_API.G_TRUE,
4103: p_qte_header_rec => l_qte_header_rec,
4104: p_original_qte_line_rec => l_qte_line_rec,
4105: p_control_rec => l_control_rec,
4098: END IF;
4099: aso_split_line_int.Split_Quote_line (
4100: P_Api_Version_Number => 1.0,
4101: P_Init_Msg_List => FND_API.G_TRUE,
4102: P_Commit => FND_API.G_TRUE,
4103: p_qte_header_rec => l_qte_header_rec,
4104: p_original_qte_line_rec => l_qte_line_rec,
4105: p_control_rec => l_control_rec,
4106: P_Qte_Line_Tbl => l_qte_line_tbl,
4107: X_Qte_Line_Tbl => lx_qte_line_tbl,
4108: X_Return_Status => lx_return_status,
4109: X_Msg_Count => lx_msg_count,
4110: X_Msg_Data => lx_msg_data );
4111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4112: RAISE FND_API.G_EXC_ERROR;
4113: END IF;
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: X_Return_Status => lx_return_status,
4109: X_Msg_Count => lx_msg_count,
4110: X_Msg_Data => lx_msg_data );
4111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4112: RAISE FND_API.G_EXC_ERROR;
4113: END IF;
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4116: END IF;
4110: X_Msg_Data => lx_msg_data );
4111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4112: RAISE FND_API.G_EXC_ERROR;
4113: END IF;
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4116: END IF;
4117: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4111: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
4112: RAISE FND_API.G_EXC_ERROR;
4113: END IF;
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4116: END IF;
4117: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4119: END IF;
4121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4122: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
4123: END IF;
4124: -- Standard check of p_commit.
4125: IF FND_API.To_Boolean( p_commit ) THEN
4126: COMMIT WORK;
4127: END IF;
4128: -- Standard call to get message count and IF count is 1, get message info.
4129: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4125: IF FND_API.To_Boolean( p_commit ) THEN
4126: COMMIT WORK;
4127: END IF;
4128: -- Standard call to get message count and IF count is 1, get message info.
4129: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4130: p_count => lx_msg_count,
4131: p_data => lx_msg_data);
4132: EXCEPTION
4133: WHEN FND_API.G_EXC_ERROR THEN
4129: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4130: p_count => lx_msg_count,
4131: p_data => lx_msg_data);
4132: EXCEPTION
4133: WHEN FND_API.G_EXC_ERROR THEN
4134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4135: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4136: END IF;
4137: ROLLBACK TO SPLIT_LINE_PVT;
4134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4135: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4136: END IF;
4137: ROLLBACK TO SPLIT_LINE_PVT;
4138: x_return_status := FND_API.G_RET_STS_ERROR;
4139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4140: p_count => lx_msg_count,
4141: p_data => lx_msg_data);
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4135: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4136: END IF;
4137: ROLLBACK TO SPLIT_LINE_PVT;
4138: x_return_status := FND_API.G_RET_STS_ERROR;
4139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4140: p_count => lx_msg_count,
4141: p_data => lx_msg_data);
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4143: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4138: x_return_status := FND_API.G_RET_STS_ERROR;
4139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4140: p_count => lx_msg_count,
4141: p_data => lx_msg_data);
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4143: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4144: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4145: END IF;
4146: ROLLBACK TO SPLIT_LINE_PVT;
4143: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4144: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4145: END IF;
4146: ROLLBACK TO SPLIT_LINE_PVT;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4149: p_count => lx_msg_count,
4150: p_data => lx_msg_data);
4151: WHEN OTHERS THEN
4144: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4145: END IF;
4146: ROLLBACK TO SPLIT_LINE_PVT;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4149: p_count => lx_msg_count,
4150: p_data => lx_msg_data);
4151: WHEN OTHERS THEN
4152: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4152: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4153: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Split_line');
4154: END IF;
4155: ROLLBACK TO SPLIT_LINE_PVT;
4156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4158: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
4159: l_api_name);
4160: END IF;
4157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4158: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
4159: l_api_name);
4160: END IF;
4161: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4162: p_count => lx_msg_count,
4163: p_data => lx_msg_data);
4164: END Split_Line;
4165:
4190: l_status_code VARCHAR2(30);
4191: l_source_code VARCHAR2(100);
4192: l_party_id NUMBER;
4193: l_cust_account_id NUMBER;
4194: l_validate_quote_sts VARCHAR2(2) := FND_API.G_TRUE;
4195: l_error VARCHAR2(1) := FND_API.G_FALSE;
4196:
4197: CURSOR c_get_active_cart(c_quote_header_id NUMBER,
4198: c_party_id NUMBER,
4191: l_source_code VARCHAR2(100);
4192: l_party_id NUMBER;
4193: l_cust_account_id NUMBER;
4194: l_validate_quote_sts VARCHAR2(2) := FND_API.G_TRUE;
4195: l_error VARCHAR2(1) := FND_API.G_FALSE;
4196:
4197: CURSOR c_get_active_cart(c_quote_header_id NUMBER,
4198: c_party_id NUMBER,
4199: c_cust_account_id NUMBER) is
4214: BEGIN
4215: SAVEPOINT validate_quote;
4216: -- Get resource_id, publish_flag and quote_status of a quote.
4217: -- Initialize API return status to success
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4220: IBE_UTIL.DEBUG('Begin Validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4221: END IF;
4222: open c_get_quote_details;
4236: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4237: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_NOT_PUBL');
4238: FND_Msg_Pub.Add;
4239: END IF;
4240: l_error := FND_API.G_TRUE;
4241: END IF;
4242:
4243: IF (p_save_type is not null and
4244: (p_save_type = END_WORKING OR p_save_type = SAVE_PAYMENT_ONLY
4242:
4243: IF (p_save_type is not null and
4244: (p_save_type = END_WORKING OR p_save_type = SAVE_PAYMENT_ONLY
4245: OR p_save_type = SALES_ASSISTANCE OR p_save_type = PLACE_ORDER OR p_save_type = OP_DUPLICATE_CART)) THEN
4246: l_validate_quote_sts := FND_API.G_FALSE;
4247: END IF;
4248:
4249: IF (l_validate_quote_sts = FND_API.G_TRUE) THEN
4250: IF (l_resource_id is not null) THEN
4245: OR p_save_type = SALES_ASSISTANCE OR p_save_type = PLACE_ORDER OR p_save_type = OP_DUPLICATE_CART)) THEN
4246: l_validate_quote_sts := FND_API.G_FALSE;
4247: END IF;
4248:
4249: IF (l_validate_quote_sts = FND_API.G_TRUE) THEN
4250: IF (l_resource_id is not null) THEN
4251: IF (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' ) THEN -- Update on Draft profile enabled, only allow updates on DRAFT.
4252: IF (l_status_code <> 'DRAFT') THEN
4253: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4253: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4254: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_QUOTE_STS');
4255: FND_Msg_Pub.Add;
4256: END IF;
4257: l_error := FND_API.G_TRUE;
4258: END IF;
4259: ELSE -- update profile is not enabled, but update call for quote is coming down.
4260: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4261: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4260: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4261: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4262: FND_Msg_Pub.Add;
4263: END IF;
4264: l_error := FND_API.G_TRUE;
4265: END IF;
4266: ELSE -- for a cart, check for 'STORE DRAFT'
4267: IF (l_status_code <> 'STORE DRAFT') THEN
4268: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4268: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4269: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_CART_STS');
4270: FND_Msg_Pub.Add;
4271: END IF;
4272: l_error := FND_API.G_TRUE;
4273: END IF;
4274: END IF;
4275: END IF;
4276: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4285: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4286: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4287: FND_Msg_Pub.Add;
4288: END IF;
4289: l_error := FND_API.G_TRUE;
4290: ELSE
4291: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4292: AND (l_source_code = 'IStore Oneclick')) THEN
4293:
4298: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4299: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4300: FND_Msg_Pub.Add;
4301: END IF;
4302: l_error := FND_API.G_TRUE;
4303: END IF;
4304: END IF;
4305:
4306: END IF;
4304: END IF;
4305:
4306: END IF;
4307:
4308: IF (l_error = FND_API.G_TRUE) THEN
4309: FOR rec_get_active_cart in c_get_active_cart(p_quote_header_id,
4310: l_party_id,
4311: l_cust_account_id) LOOP
4312: l_active_cart := rec_get_active_cart.quote_header_id;
4319: P_Quote_header_id => p_quote_header_id,
4320: P_Party_id => l_party_id ,
4321: P_Cust_account_id => l_Cust_account_id ,
4322: p_api_version => 1 ,
4323: p_init_msg_list => fnd_api.g_false ,
4324: p_commit => fnd_api.g_true ,
4325: x_return_status => l_return_status ,
4326: x_msg_count => l_msg_count ,
4327: x_msg_data => l_msg_data );
4320: P_Party_id => l_party_id ,
4321: P_Cust_account_id => l_Cust_account_id ,
4322: p_api_version => 1 ,
4323: p_init_msg_list => fnd_api.g_false ,
4324: p_commit => fnd_api.g_true ,
4325: x_return_status => l_return_status ,
4326: x_msg_count => l_msg_count ,
4327: x_msg_data => l_msg_data );
4328:
4325: x_return_status => l_return_status ,
4326: x_msg_count => l_msg_count ,
4327: x_msg_data => l_msg_data );
4328:
4329: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4330: RAISE FND_API.G_EXC_ERROR;
4331: END IF;
4332:
4333: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4326: x_msg_count => l_msg_count ,
4327: x_msg_data => l_msg_data );
4328:
4329: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4330: RAISE FND_API.G_EXC_ERROR;
4331: END IF;
4332:
4333: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4329: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4330: RAISE FND_API.G_EXC_ERROR;
4331: END IF;
4332:
4333: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4335: END IF;
4336: END IF;
4337: EXIT when c_get_active_cart%notfound;
4330: RAISE FND_API.G_EXC_ERROR;
4331: END IF;
4332:
4333: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4335: END IF;
4336: END IF;
4337: EXIT when c_get_active_cart%notfound;
4338: END LOOP;
4335: END IF;
4336: END IF;
4337: EXIT when c_get_active_cart%notfound;
4338: END LOOP;
4339: RAISE FND_API.G_EXC_ERROR;
4340: END IF;
4341:
4342:
4343: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4344: IBE_UTIL.DEBUG('End validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4345: END IF;
4346:
4347: EXCEPTION
4348: WHEN FND_API.G_EXC_ERROR THEN
4349: ROLLBACK TO validate_quote;
4350: x_return_status := FND_API.G_RET_STS_ERROR;
4351: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count ,
4346:
4347: EXCEPTION
4348: WHEN FND_API.G_EXC_ERROR THEN
4349: ROLLBACK TO validate_quote;
4350: x_return_status := FND_API.G_RET_STS_ERROR;
4351: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count ,
4353: p_data => x_msg_data);
4354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4347: EXCEPTION
4348: WHEN FND_API.G_EXC_ERROR THEN
4349: ROLLBACK TO validate_quote;
4350: x_return_status := FND_API.G_RET_STS_ERROR;
4351: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count ,
4353: p_data => x_msg_data);
4354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4355: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4353: p_data => x_msg_data);
4354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4355: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4356: END IF;
4357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4358: ROLLBACK TO validate_quote;
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4361: p_count => x_msg_count ,
4355: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4356: END IF;
4357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4358: ROLLBACK TO validate_quote;
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4361: p_count => x_msg_count ,
4362: p_data => x_msg_data);
4363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4356: END IF;
4357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4358: ROLLBACK TO validate_quote;
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4361: p_count => x_msg_count ,
4362: p_data => x_msg_data);
4363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4364: IBE_Util.Debug('End with UnExp Exception IBE_Quote_Misc_pvt.validate_quote');
4367: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4368: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4369: l_api_name);
4370: END IF;
4371: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4372: p_count => x_msg_count ,
4373: p_data => x_msg_data);
4374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4375: IBE_Util.Debug('End with Others Exception IBE_Quote_Misc_pvt.validate_quote');
4377: END validate_quote;
4378:
4379: PROCEDURE Validate_User_Update(
4380: p_api_version_number IN NUMBER := 1.0
4381: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4382: ,p_quote_header_id IN NUMBER
4383: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4379: PROCEDURE Validate_User_Update(
4380: p_api_version_number IN NUMBER := 1.0
4381: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4382: ,p_quote_header_id IN NUMBER
4383: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4380: p_api_version_number IN NUMBER := 1.0
4381: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4382: ,p_quote_header_id IN NUMBER
4383: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4388: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4381: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4382: ,p_quote_header_id IN NUMBER
4383: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4388: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4389: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4382: ,p_quote_header_id IN NUMBER
4383: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4388: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4389: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4390: ,x_return_status OUT NOCOPY VARCHAR2
4384: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4388: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4389: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4390: ,x_return_status OUT NOCOPY VARCHAR2
4391: ,x_msg_count OUT NOCOPY NUMBER
4392: ,x_msg_data OUT NOCOPY VARCHAR2)
4385: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4386: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4387: ,p_privilege_type_code IN VARCHAR2 := 'F'
4388: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4389: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4390: ,x_return_status OUT NOCOPY VARCHAR2
4391: ,x_msg_count OUT NOCOPY NUMBER
4392: ,x_msg_data OUT NOCOPY VARCHAR2)
4393:
4400: l_user_id NUMBER :=FND_GLOBAL.USER_ID;
4401: l_db_user_id NUMBER;
4402: l_privilege_type_code VARCHAR2(10);
4403: l_end_date_active DATE;
4404: l_upgrade_flag varchar2(1) := FND_API.G_TRUE;
4405:
4406: l_last_update_date DATE;
4407: l_quote_status VARCHAR2(100);
4408: l_last_updated_by NUMBER;
4494: IBE_UTIL.DEBUG('Begin validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4495: END IF;
4496:
4497: -- Standard call to check for call compatibility.
4498: IF NOT FND_API.Compatible_API_Call (l_api_version,
4499: p_api_version_number,
4500: l_api_name,
4501: G_PKG_NAME )
4502: THEN
4499: p_api_version_number,
4500: l_api_name,
4501: G_PKG_NAME )
4502: THEN
4503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4504: END IF;
4505:
4506: -- Initialize message list if p_init_msg_list is set to TRUE.
4507:
4504: END IF;
4505:
4506: -- Initialize message list if p_init_msg_list is set to TRUE.
4507:
4508: IF FND_API.To_Boolean( p_init_msg_list ) THEN
4509: FND_Msg_Pub.initialize;
4510: END IF;
4511:
4512: -- Initialize API return status to success
4509: FND_Msg_Pub.initialize;
4510: END IF;
4511:
4512: -- Initialize API return status to success
4513: x_return_status := FND_API.G_RET_STS_SUCCESS;
4514:
4515: -- API body
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4525:
4526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4527: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4528: END IF;
4526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4527: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4528: END IF;
4529:
4530: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4531:
4532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4533: IBE_UTIL.DEBUG('In validating Recipient flow '||p_quote_retrieval_number||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4534: END IF;
4549: END IF;
4550: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4551: IBE_UTIL.DEBUG('quote_retrieval_number::quotehdrId'||'('||p_quote_retrieval_number||','||p_quote_header_id||')');
4552: END IF;
4553: RAISE FND_API.G_EXC_ERROR;
4554: END IF;
4555:
4556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4557: IBE_UTIL.DEBUG('rec_sharee_info.party_id : '||rec_sharee_info.party_id);
4562: -- if we have party and acct passed in AND in the table then
4563: -- check that the passed-in user matches the recipient identity we have in the table
4564: if ((rec_sharee_info.party_id is not null) and
4565: (rec_sharee_info.cust_account_id is not null) and
4566: (p_party_id <> FND_API.G_MISS_NUM) and
4567: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4568: if ((rec_sharee_info.party_id <> p_party_id) or (rec_sharee_info.cust_account_id <> p_cust_account_id)) then
4569: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4570: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4563: -- check that the passed-in user matches the recipient identity we have in the table
4564: if ((rec_sharee_info.party_id is not null) and
4565: (rec_sharee_info.cust_account_id is not null) and
4566: (p_party_id <> FND_API.G_MISS_NUM) and
4567: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4568: if ((rec_sharee_info.party_id <> p_party_id) or (rec_sharee_info.cust_account_id <> p_cust_account_id)) then
4569: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4570: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4571: FND_Msg_Pub.Add;
4574: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4575: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4576: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4577: END IF;
4578: RAISE FND_API.G_EXC_ERROR;
4579: end if;
4580: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4581: elsif ((rec_sharee_info.party_id is null) and
4582: (rec_sharee_info.cust_account_id is null) and
4579: end if;
4580: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4581: elsif ((rec_sharee_info.party_id is null) and
4582: (rec_sharee_info.cust_account_id is null) and
4583: (p_party_id <> FND_API.G_MISS_NUM) and
4584: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4585: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4586: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4587: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4580: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4581: elsif ((rec_sharee_info.party_id is null) and
4582: (rec_sharee_info.cust_account_id is null) and
4583: (p_party_id <> FND_API.G_MISS_NUM) and
4584: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4585: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4586: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4587: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4588: END IF;
4591: p_cust_account_id => p_cust_account_id,
4592: p_retrieval_number => p_quote_retrieval_number,
4593: p_quote_header_id => p_quote_header_id,
4594: x_valid_flag => l_upgrade_flag);
4595: if (l_upgrade_flag <> FND_API.G_TRUE) then
4596: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4597: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4598: FND_Msg_Pub.Add;
4599: END IF;
4613: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4614: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
4615: FND_Msg_Pub.Add;
4616: END IF;
4617: RAISE FND_API.G_EXC_ERROR;
4618: END IF;
4619: ELSE
4620: IF p_privilege_type_code <> 'R' THEN
4621: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4621: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4622: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
4623: FND_Msg_Pub.Add;
4624: END IF;
4625: RAISE FND_API.G_EXC_ERROR; -- need error message
4626: END IF;
4627: END IF;
4628: end if;
4629: -- else, the access level is Admin and we are okay to do other validations
4643: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4644: return;
4645: end if;
4646:
4647: IF ((p_party_id is not null AND p_party_id <> FND_API.G_MISS_NUM) AND (p_cust_account_id is not null AND p_cust_account_id <> FND_API.G_MISS_NUM)) THEN
4648:
4649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4650: IBE_UTIL.DEBUG('In validating Owner flow: '||p_party_id||','||p_cust_account_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4651: END IF;
4659: END IF;
4660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4661: IBE_UTIL.DEBUG('partyId::custAcctId::quotehdrId'||'('||p_party_id||','||p_cust_account_id||','||p_quote_header_id||')');
4662: END IF;
4663: RAISE FND_API.G_EXC_ERROR;
4664: END IF;
4665: ELSE
4666: -- retrieving user info from environment
4667: OPEN c_getResourceInfo;
4697: END IF;
4698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4699: IBE_UTIL.DEBUG('partyId::quotehdrId'||'('||p_party_id||','||p_quote_header_id||')');
4700: END IF;
4701: RAISE FND_API.G_EXC_ERROR;
4702: END IF; -- end if l_db_quote_header_id is null
4703: END IF; -- end if l_db_user_id is null
4704: END IF; -- end section of user info from env
4705: END IF; -- end if no sharee number
4707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4708: IBE_UTIL.DEBUG('Validate_user_update: Before Last update date validation,p_last_update_date= '||p_last_update_date);
4709: END IF;
4710:
4711: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4712: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4713: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation START');
4714: END IF;
4715: FOR rec_last_update_date in c_last_update_date(p_quote_header_id) LOOP
4733: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4734: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4735: FND_Msg_Pub.Add;
4736: END IF;
4737: RAISE FND_API.G_EXC_ERROR;
4738: ELSE
4739: IF ((l_last_updated_by <> l_user_id) OR (p_save_type = PLACE_ORDER)) THEN
4740: -- determine which error message we need to show
4741: OPEN c_getPartyInfo(l_last_updated_by);
4780: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4781: FND_Message.Set_Name('IBE', l_err_code);
4782: FND_Msg_Pub.Add;
4783: END IF;
4784: RAISE FND_API.G_EXC_ERROR;
4785: END IF;
4786: END IF;
4787: END IF;
4788:
4806: IBE_UTIL.DEBUG('End validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4807: END IF;
4808: END IF; -- end if quote header id is not null
4809: EXCEPTION
4810: WHEN FND_API.G_EXC_ERROR THEN
4811: x_return_status := FND_API.G_RET_STS_ERROR;
4812: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4813: p_count => x_msg_count ,
4814: p_data => x_msg_data);
4807: END IF;
4808: END IF; -- end if quote header id is not null
4809: EXCEPTION
4810: WHEN FND_API.G_EXC_ERROR THEN
4811: x_return_status := FND_API.G_RET_STS_ERROR;
4812: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4813: p_count => x_msg_count ,
4814: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4808: END IF; -- end if quote header id is not null
4809: EXCEPTION
4810: WHEN FND_API.G_EXC_ERROR THEN
4811: x_return_status := FND_API.G_RET_STS_ERROR;
4812: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4813: p_count => x_msg_count ,
4814: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4814: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4817: END IF;
4818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4821: p_count => x_msg_count ,
4822: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4817: END IF;
4818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4821: p_count => x_msg_count ,
4822: p_data => x_msg_data);
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4817: END IF;
4818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4821: p_count => x_msg_count ,
4822: p_data => x_msg_data);
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: IBE_Util.Debug('End:Unexpected exception:IBE_Quote_Misc_pvt.validate_user_update');
4827: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4828: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4829: l_api_name);
4830: END IF;
4831: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4832: p_count => x_msg_count ,
4833: p_data => x_msg_data);
4834: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4835: IBE_Util.Debug('End:Others exception:IBE_Quote_Misc_pvt.validate_user_update');
4869: l_party_type_cart_owner VARCHAR2(30);
4870: l_party_type_recipient VARCHAR2(30);
4871:
4872: BEGIN
4873: x_valid_flag := FND_API.G_TRUE;
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4895: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4896: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4897: FND_Msg_Pub.Add;
4898: END IF;
4899: x_valid_flag := FND_API.G_FALSE;
4900: RAISE FND_API.G_EXC_ERROR;
4901: end if;
4902: elsif (l_party_type_cart_owner = 'PERSON') then
4903: OPEN c_get_party_type(p_party_id);
4896: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4897: FND_Msg_Pub.Add;
4898: END IF;
4899: x_valid_flag := FND_API.G_FALSE;
4900: RAISE FND_API.G_EXC_ERROR;
4901: end if;
4902: elsif (l_party_type_cart_owner = 'PERSON') then
4903: OPEN c_get_party_type(p_party_id);
4904: FETCH c_get_party_type into l_party_type_recipient;
4912: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4913: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4914: FND_Msg_Pub.Add;
4915: END IF;
4916: x_valid_flag := FND_API.G_FALSE;
4917: RAISE FND_API.G_EXC_ERROR;
4918: end if;
4919: END IF; -- end person check
4920:
4913: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4914: FND_Msg_Pub.Add;
4915: END IF;
4916: x_valid_flag := FND_API.G_FALSE;
4917: RAISE FND_API.G_EXC_ERROR;
4918: end if;
4919: END IF; -- end person check
4920:
4921: if (x_valid_flag = FND_API.G_TRUE) then
4917: RAISE FND_API.G_EXC_ERROR;
4918: end if;
4919: END IF; -- end person check
4920:
4921: if (x_valid_flag = FND_API.G_TRUE) then
4922: -- if we passed validations then upgrade the share row with the partyid and accountid
4923: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4924: IBE_UTIL.DEBUG('Upgrading the share row with input partyid and accountid.');
4925: END IF;
5166: END Get_party_name;
5167:
5168: PROCEDURE Add_Attachment(
5169: p_api_version_number IN NUMBER
5170: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5171: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5172: ,p_category_id IN VARCHAR2
5173: ,p_document_description IN VARCHAR2
5174: ,p_datatype_id IN VARCHAR2
5167:
5168: PROCEDURE Add_Attachment(
5169: p_api_version_number IN NUMBER
5170: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5171: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5172: ,p_category_id IN VARCHAR2
5173: ,p_document_description IN VARCHAR2
5174: ,p_datatype_id IN VARCHAR2
5175: ,p_text IN LONG
5177: ,p_url IN VARCHAR2
5178: ,p_function_name IN VARCHAR2 := null
5179: ,p_quote_header_id IN NUMBER
5180: ,p_media_id IN NUMBER
5181: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5178: ,p_function_name IN VARCHAR2 := null
5179: ,p_quote_header_id IN NUMBER
5180: ,p_media_id IN NUMBER
5181: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5186: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5179: ,p_quote_header_id IN NUMBER
5180: ,p_media_id IN NUMBER
5181: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5186: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5187: ,x_last_update_date OUT NOCOPY DATE
5180: ,p_media_id IN NUMBER
5181: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5186: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5187: ,x_last_update_date OUT NOCOPY DATE
5188: ,x_return_status OUT NOCOPY VARCHAR2
5181: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5186: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5187: ,x_last_update_date OUT NOCOPY DATE
5188: ,x_return_status OUT NOCOPY VARCHAR2
5189: ,x_msg_count OUT NOCOPY NUMBER
5182: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5183: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5184: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5185: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5186: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5187: ,x_last_update_date OUT NOCOPY DATE
5188: ,x_return_status OUT NOCOPY VARCHAR2
5189: ,x_msg_count OUT NOCOPY NUMBER
5190: ,x_msg_data OUT NOCOPY VARCHAR2
5202: -- Standard Start of API savepoint
5203: SAVEPOINT Add_Attachment;
5204:
5205: -- Standard call to check for call compatibility.
5206: IF NOT FND_API.Compatible_API_Call (l_api_version,
5207: P_Api_Version_Number,
5208: l_api_name,
5209: G_PKG_NAME )
5210: THEN
5207: P_Api_Version_Number,
5208: l_api_name,
5209: G_PKG_NAME )
5210: THEN
5211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5212: END IF;
5213:
5214: -- Initialize message list if p_init_msg_list is set to TRUE.
5215: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5212: END IF;
5213:
5214: -- Initialize message list if p_init_msg_list is set to TRUE.
5215: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5216: FND_Msg_Pub.initialize;
5217: END IF;
5218:
5219: -- Initialize API return status to success
5216: FND_Msg_Pub.initialize;
5217: END IF;
5218:
5219: -- Initialize API return status to success
5220: x_return_status := FND_API.G_RET_STS_SUCCESS;
5221:
5222: -- User Authentication
5223: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5224: IBE_Util.Debug('Call to Validate_User_Update');
5237: ,x_msg_count => x_msg_count
5238: ,x_msg_data => x_msg_data
5239: );
5240:
5241: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: END IF;
5244: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5238: ,x_msg_data => x_msg_data
5239: );
5240:
5241: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: END IF;
5244: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: END IF;
5240:
5241: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: END IF;
5244: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: END IF;
5247:
5248:
5241: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: END IF;
5244: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: END IF;
5247:
5248:
5249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5274: ,x_return_status => x_return_status
5275: ,x_msg_count => x_msg_count
5276: ,x_msg_data => x_msg_data
5277: );
5278: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: END IF;
5281:
5282: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5275: ,x_msg_count => x_msg_count
5276: ,x_msg_data => x_msg_data
5277: );
5278: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: END IF;
5281:
5282: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5278: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5279: RAISE FND_API.G_EXC_ERROR;
5280: END IF;
5281:
5282: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284: END IF;
5285:
5286: -- Standard call to get message count and if count is 1, get message info.
5279: RAISE FND_API.G_EXC_ERROR;
5280: END IF;
5281:
5282: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284: END IF;
5285:
5286: -- Standard call to get message count and if count is 1, get message info.
5287: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5284: END IF;
5285:
5286: -- Standard call to get message count and if count is 1, get message info.
5287: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5288: p_count => x_msg_count ,
5289: p_data => x_msg_data);
5290:
5291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5292: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Add_Attachment');
5293: END IF;
5294:
5295: EXCEPTION
5296: WHEN FND_API.G_EXC_ERROR THEN
5297: ROLLBACK TO Add_Attachment;
5298: x_return_status := FND_API.G_RET_STS_ERROR;
5299: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5300: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5294:
5295: EXCEPTION
5296: WHEN FND_API.G_EXC_ERROR THEN
5297: ROLLBACK TO Add_Attachment;
5298: x_return_status := FND_API.G_RET_STS_ERROR;
5299: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5300: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5301: p_count => x_msg_count ,
5302: p_data => x_msg_data);
5296: WHEN FND_API.G_EXC_ERROR THEN
5297: ROLLBACK TO Add_Attachment;
5298: x_return_status := FND_API.G_RET_STS_ERROR;
5299: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5300: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5301: p_count => x_msg_count ,
5302: p_data => x_msg_data);
5303: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5304: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5303: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5304: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5305: END IF;
5306:
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5308: ROLLBACK TO Add_Attachment;
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5305: END IF;
5306:
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5308: ROLLBACK TO Add_Attachment;
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5312: p_count => x_msg_count ,
5313: p_data => x_msg_data);
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5308: ROLLBACK TO Add_Attachment;
5309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5310: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5312: p_count => x_msg_count ,
5313: p_data => x_msg_data);
5314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5315: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5316: END IF;
5317:
5318: WHEN OTHERS THEN
5319: ROLLBACK TO Add_Attachment;
5320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5321:
5322: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5323: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5324: l_api_name);
5323: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5324: l_api_name);
5325: END IF;
5326:
5327: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5328: p_count => x_msg_count ,
5329: p_data => x_msg_data);
5330: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5331: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5361: -- Standard Start of API savepoint
5362: SAVEPOINT Add_Attachment;
5363:
5364: -- Standard call to check for call compatibility.
5365: IF NOT FND_API.Compatible_API_Call (l_api_version,
5366: P_Api_Version_Number,
5367: l_api_name,
5368: G_PKG_NAME )
5369: THEN
5366: P_Api_Version_Number,
5367: l_api_name,
5368: G_PKG_NAME )
5369: THEN
5370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5371: END IF;
5372:
5373: -- Initialize message list if p_init_msg_list is set to TRUE.
5374: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5371: END IF;
5372:
5373: -- Initialize message list if p_init_msg_list is set to TRUE.
5374: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5375: FND_Msg_Pub.initialize;
5376: END IF;
5377:
5378: -- Initialize API return status to success
5375: FND_Msg_Pub.initialize;
5376: END IF;
5377:
5378: -- Initialize API return status to success
5379: x_return_status := FND_API.G_RET_STS_SUCCESS;
5380:
5381: -- User Authentication
5382: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5383: IBE_Util.Debug('Call to Validate_User_Update');
5386: IBE_Quote_Misc_pvt.Validate_User_Update(
5387: p_quote_header_id => p_quote_header_id
5388: ,p_party_id => p_party_id
5389: ,p_cust_account_id => p_cust_account_id
5390: ,p_validate_user => FND_API.G_TRUE
5391: ,p_quote_retrieval_number => p_retrieval_number
5392: ,p_last_update_date => p_last_update_date
5393: ,x_return_status => x_return_status
5394: ,x_msg_count => x_msg_count
5394: ,x_msg_count => x_msg_count
5395: ,x_msg_data => x_msg_data
5396: );
5397:
5398: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5399: RAISE FND_API.G_EXC_ERROR;
5400: END IF;
5401: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5395: ,x_msg_data => x_msg_data
5396: );
5397:
5398: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5399: RAISE FND_API.G_EXC_ERROR;
5400: END IF;
5401: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5403: END IF;
5397:
5398: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5399: RAISE FND_API.G_EXC_ERROR;
5400: END IF;
5401: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5403: END IF;
5404:
5405:
5398: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5399: RAISE FND_API.G_EXC_ERROR;
5400: END IF;
5401: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5403: END IF;
5404:
5405:
5406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5419: ,x_msg_count => x_msg_count
5420: ,x_msg_data => x_msg_data
5421: );
5422:
5423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5424: RAISE FND_API.G_EXC_ERROR;
5425: END IF;
5426:
5427: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5420: ,x_msg_data => x_msg_data
5421: );
5422:
5423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5424: RAISE FND_API.G_EXC_ERROR;
5425: END IF;
5426:
5427: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5423: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5424: RAISE FND_API.G_EXC_ERROR;
5425: END IF;
5426:
5427: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5429: END IF;
5430:
5431: -- Standard call to get message count and if count is 1, get message info.
5424: RAISE FND_API.G_EXC_ERROR;
5425: END IF;
5426:
5427: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5429: END IF;
5430:
5431: -- Standard call to get message count and if count is 1, get message info.
5432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5429: END IF;
5430:
5431: -- Standard call to get message count and if count is 1, get message info.
5432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5433: p_count => x_msg_count ,
5434: p_data => x_msg_data);
5435:
5436: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5437: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Delete_Attachment');
5438: END IF;
5439:
5440: EXCEPTION
5441: WHEN FND_API.G_EXC_ERROR THEN
5442: ROLLBACK TO Add_Attachment;
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5445: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5439:
5440: EXCEPTION
5441: WHEN FND_API.G_EXC_ERROR THEN
5442: ROLLBACK TO Add_Attachment;
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5445: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5446: p_count => x_msg_count ,
5447: p_data => x_msg_data);
5441: WHEN FND_API.G_EXC_ERROR THEN
5442: ROLLBACK TO Add_Attachment;
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5445: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5446: p_count => x_msg_count ,
5447: p_data => x_msg_data);
5448: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5449: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5448: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5449: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5450: END IF;
5451:
5452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5453: ROLLBACK TO Add_Attachment;
5454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5455: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5456: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5450: END IF;
5451:
5452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5453: ROLLBACK TO Add_Attachment;
5454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5455: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5456: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5457: p_count => x_msg_count ,
5458: p_data => x_msg_data);
5452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5453: ROLLBACK TO Add_Attachment;
5454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5455: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5456: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5457: p_count => x_msg_count ,
5458: p_data => x_msg_data);
5459: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5460: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5461: END IF;
5462:
5463: WHEN OTHERS THEN
5464: ROLLBACK TO Add_Attachment;
5465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5466:
5467: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5468: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5469: l_api_name);
5468: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5469: l_api_name);
5470: END IF;
5471:
5472: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count ,
5474: p_data => x_msg_data);
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');