[Home] [Help]
1: PACKAGE BODY IBE_Quote_Misc_pvt AS
2: /* $Header: IBEVQMIB.pls 120.15 2007/10/10 07:25:29 scnagara 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(
2045: l_api_version CONSTANT NUMBER := 1.0;
2046: l_last_update_date DATE;
2047: BEGIN
2048: SAVEPOINT validateLastUpdate_pvt;
2049: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2050: P_Api_Version_Number,
2051: l_api_name,
2052: G_PKG_NAME )
2053: THEN
2050: P_Api_Version_Number,
2051: l_api_name,
2052: G_PKG_NAME )
2053: THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: x_return_status := FND_API.G_RET_STS_SUCCESS;
2058:
2053: THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: x_return_status := FND_API.G_RET_STS_SUCCESS;
2058:
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
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;
2473:
2474: procedure get_load_errors(
2475: X_reason_code OUT NOCOPY JTF_VARCHAR2_TABLE_100 ,
2476: p_api_version IN NUMBER := 1.0 ,
2477: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2478: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2479: x_return_status OUT NOCOPY VARCHAR2 ,
2480: x_msg_count OUT NOCOPY NUMBER ,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2474: procedure get_load_errors(
2475: X_reason_code OUT NOCOPY JTF_VARCHAR2_TABLE_100 ,
2476: p_api_version IN NUMBER := 1.0 ,
2477: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2478: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2479: x_return_status OUT NOCOPY VARCHAR2 ,
2480: x_msg_count OUT NOCOPY NUMBER ,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2478: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2479: x_return_status OUT NOCOPY VARCHAR2 ,
2480: x_msg_count OUT NOCOPY NUMBER ,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2479: x_return_status OUT NOCOPY VARCHAR2 ,
2480: x_msg_count OUT NOCOPY NUMBER ,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2480: x_msg_count OUT NOCOPY NUMBER ,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2488: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2481: x_msg_data OUT NOCOPY VARCHAR2 ,
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2488: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2489: P_share_type IN number := -1, -- defaulted to no share type
2482: P_quote_header_id IN number := FND_API.G_MISS_NUM,
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2488: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2489: P_share_type IN number := -1, -- defaulted to no share type
2490: p_access_level IN number := 0) is
2483: P_Load_type IN number := FND_API.G_MISS_NUM,
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2488: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2489: P_share_type IN number := -1, -- defaulted to no share type
2490: p_access_level IN number := 0) is
2491:
2484: P_quote_number IN number := FND_API.G_MISS_NUM,
2485: P_quote_version IN number := FND_API.G_MISS_NUM,
2486: P_party_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2487: P_cust_account_id IN number := FND_API.G_MISS_NUM, -- only involved in sharee w/o retr num
2488: p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM,
2489: P_share_type IN number := -1, -- defaulted to no share type
2490: p_access_level IN number := 0) is
2491:
2492: Cursor c_cart_columns (quote_hdr_id number) is
2535: L_UPDATE CONSTANT number := 2;
2536: L_FULL CONSTANT number := 3;
2537:
2538: l_quote_header_id NUMBER;
2539: l_resource_id number :=fnd_api.g_miss_num;
2540: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2541: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2542: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2543: l_return_status VARCHAR2(100);
2536: L_FULL CONSTANT number := 3;
2537:
2538: l_quote_header_id NUMBER;
2539: l_resource_id number :=fnd_api.g_miss_num;
2540: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2541: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2542: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2543: l_return_status VARCHAR2(100);
2544: l_msg_count NUMBER;
2537:
2538: l_quote_header_id NUMBER;
2539: l_resource_id number :=fnd_api.g_miss_num;
2540: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2541: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2542: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2543: l_return_status VARCHAR2(100);
2544: l_msg_count NUMBER;
2545: l_msg_data VARCHAR2(2000);
2538: l_quote_header_id NUMBER;
2539: l_resource_id number :=fnd_api.g_miss_num;
2540: l_status_code varchar2(100) :=fnd_api.g_miss_char;
2541: l_publish_flag varchar2(10) :=fnd_api.g_miss_char;
2542: l_quote_type varchar2(10) :=fnd_api.g_miss_char;
2543: l_return_status VARCHAR2(100);
2544: l_msg_count NUMBER;
2545: l_msg_data VARCHAR2(2000);
2546: l_max_version_flag varchar2(2);
2548: table_counter number := 1;
2549: l_end_date_active DATE;
2550: l_order_id NUMBER;
2551: l_recipient_id NUMBER;
2552: l_access_code VARCHAR2(10) :=fnd_api.g_miss_char;
2553: l_quote_name VARCHAR2(2000);
2554: l_exp_quote_header_id NUMBER;
2555:
2556: rec_cart_columns c_cart_columns%rowtype;
2562: -- Standard Start of API savepoint
2563: SAVEPOINT Get_load_errors_pvt;
2564:
2565: -- Standard call to check for call compatibility.
2566: IF NOT FND_API.Compatible_API_Call(L_API_VERSION,
2567: p_api_version,
2568: L_API_NAME ,
2569: G_PKG_NAME )
2570: THEN
2567: p_api_version,
2568: L_API_NAME ,
2569: G_PKG_NAME )
2570: THEN
2571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2572: END IF;
2573:
2574: -- Initialize message list if p_init_msg_list is set to TRUE.
2575: IF FND_API.To_Boolean(p_init_msg_list) THEN
2571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2572: END IF;
2573:
2574: -- Initialize message list if p_init_msg_list is set to TRUE.
2575: IF FND_API.To_Boolean(p_init_msg_list) THEN
2576: FND_Msg_Pub.initialize;
2577: END IF;
2578:
2579: -- Initialize API return status to success
2576: FND_Msg_Pub.initialize;
2577: END IF;
2578:
2579: -- Initialize API return status to success
2580: x_return_status := FND_API.G_RET_STS_SUCCESS;
2581: --Start of API Body
2582: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2583: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2584: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2588: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2589: END IF;
2590:
2591: X_reason_code := JTF_VARCHAR2_TABLE_100();
2592: If (p_quote_header_id <> fnd_api.g_miss_num) then
2593: l_exp_quote_header_id := p_quote_header_id;
2594: For rec_cart_columns in c_cart_columns(p_quote_header_id) loop
2595: L_resource_id := rec_cart_columns.resource_id;
2596: l_status_code := rec_cart_columns.status_code;
2600: l_order_id := rec_cart_columns.order_id;
2601: l_quote_name := rec_cart_columns.quote_name;
2602: exit when c_cart_columns%notfound;
2603: end loop;
2604: Elsif ((p_quote_number <> fnd_api.g_miss_num) and (p_quote_version <> fnd_api.g_miss_num)) then
2605: For rec_cart_from_number in c_cart_from_number(p_quote_number, p_quote_version) loop
2606: l_quote_header_id := rec_cart_from_number.quote_header_id;
2607: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
2608: L_resource_id := rec_cart_columns.resource_id;
2617: End if;
2618:
2619: -- 1st half of errors for share information
2620: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2621: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2622: ((p_retrieval_number = FND_API.G_MISS_NUM)
2623: and (p_share_type = L_SHARED_TO_TYPE)
2624: and (p_party_id <> FND_API.G_MISS_NUM)
2625: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2618:
2619: -- 1st half of errors for share information
2620: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2621: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2622: ((p_retrieval_number = FND_API.G_MISS_NUM)
2623: and (p_share_type = L_SHARED_TO_TYPE)
2624: and (p_party_id <> FND_API.G_MISS_NUM)
2625: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2626: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2620: -- only do these checks if given retrieval number or qtehdrid, ptyid, acctid, and sharetype
2621: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2622: ((p_retrieval_number = FND_API.G_MISS_NUM)
2623: and (p_share_type = L_SHARED_TO_TYPE)
2624: and (p_party_id <> FND_API.G_MISS_NUM)
2625: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2626: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2628: IBE_UTIL.debug('Checking for recipient info...');
2621: If((p_retrieval_number <> FND_API.G_MISS_NUM) or
2622: ((p_retrieval_number = FND_API.G_MISS_NUM)
2623: and (p_share_type = L_SHARED_TO_TYPE)
2624: and (p_party_id <> FND_API.G_MISS_NUM)
2625: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2626: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2628: IBE_UTIL.debug('Checking for recipient info...');
2629: end if;
2622: ((p_retrieval_number = FND_API.G_MISS_NUM)
2623: and (p_share_type = L_SHARED_TO_TYPE)
2624: and (p_party_id <> FND_API.G_MISS_NUM)
2625: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2626: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2628: IBE_UTIL.debug('Checking for recipient info...');
2629: end if;
2630: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2626: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2627: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2628: IBE_UTIL.debug('Checking for recipient info...');
2629: end if;
2630: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2631: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2632: IBE_UTIL.debug('get recipient info based on retrieval number');
2633: end if;
2634: for rec_retrieval_number in c_retrieval_number(p_retrieval_number) loop
2637: l_access_code := rec_retrieval_number.update_privilege_type_code;
2638: l_quote_header_id := rec_retrieval_number.quote_header_id;
2639: exit when c_retrieval_number%NOTFOUND;
2640: end loop;
2641: if((p_quote_header_id = fnd_api.g_miss_num) and (l_quote_header_id is not null)) then
2642: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2643: IBE_UTIL.debug('tried to load with retreival number only (no cartid)');
2644: IBE_UTIL.debug('but the retrieval number was valid so get cart info... ');
2645: end if;
2655: end loop;
2656: end if;
2657: end if;
2658:
2659: If((p_retrieval_number = FND_API.G_MISS_NUM)
2660: and (p_share_type = L_SHARED_TO_TYPE)
2661: and (p_party_id <> FND_API.G_MISS_NUM)
2662: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2663: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2657: end if;
2658:
2659: If((p_retrieval_number = FND_API.G_MISS_NUM)
2660: and (p_share_type = L_SHARED_TO_TYPE)
2661: and (p_party_id <> FND_API.G_MISS_NUM)
2662: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2663: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2665: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2658:
2659: If((p_retrieval_number = FND_API.G_MISS_NUM)
2660: and (p_share_type = L_SHARED_TO_TYPE)
2661: and (p_party_id <> FND_API.G_MISS_NUM)
2662: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2663: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2665: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2666: end if;
2659: If((p_retrieval_number = FND_API.G_MISS_NUM)
2660: and (p_share_type = L_SHARED_TO_TYPE)
2661: and (p_party_id <> FND_API.G_MISS_NUM)
2662: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2663: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2664: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2665: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2666: end if;
2667: for rec_recipient_no_retnum in c_recipient_no_retnum(p_quote_header_id, p_party_id, p_cust_account_id) loop
2677: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2678: IBE_UTIL.debug('l_access_code: '||l_access_code);
2679: end if;
2680:
2681: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2682: -- if we were given a retrieval number and it was not in the database
2683: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2684: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_RETRIEVAL_NUM');
2685: END IF;
2749:
2750: End If;
2751: -- 2nd half of errors for cart information
2752: -- only do these latter checks if we had a request for a cart - either by id or number and version
2753: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2754: ((p_quote_number <> fnd_api.g_miss_num)
2755: and (p_quote_version <> fnd_api.g_miss_num))) then
2756: if(trunc(l_expiration_date) < trunc(sysdate)) then
2757: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2750: End If;
2751: -- 2nd half of errors for cart information
2752: -- only do these latter checks if we had a request for a cart - either by id or number and version
2753: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2754: ((p_quote_number <> fnd_api.g_miss_num)
2755: and (p_quote_version <> fnd_api.g_miss_num))) then
2756: if(trunc(l_expiration_date) < trunc(sysdate)) then
2757: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2758: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2751: -- 2nd half of errors for cart information
2752: -- only do these latter checks if we had a request for a cart - either by id or number and version
2753: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2754: ((p_quote_number <> fnd_api.g_miss_num)
2755: and (p_quote_version <> fnd_api.g_miss_num))) then
2756: if(trunc(l_expiration_date) < trunc(sysdate)) then
2757: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2758: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2759: END IF;
2773: Table_counter := table_counter+1;
2774: end if;
2775: End If;
2776: If (p_load_type = L_CART_LOAD_TYPE) then
2777: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) then
2778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2779: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_HAS_RESOURCEID');
2780: END IF;
2781: if(table_counter = 1) then
2837: Table_counter := table_counter+1;
2838: end if;
2839: End if;
2840: Elsif(p_load_type = L_LOAD_FORUPDATE) then
2841: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) THEN
2842: If (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' and l_status_code <> 'DRAFT') THEN
2843: -- Update on Draft profile enabled, only allow updates on DRAFT.
2844: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2845: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_QUOTE_STS');
2887: End If;
2888: End if;
2889: End if;-- end if we have an input cartid or cartnum and version
2890: -- Standard check of p_commit.
2891: IF FND_API.To_Boolean(p_commit) THEN
2892: COMMIT WORK;
2893: END IF;
2894:
2895: -- Standard call to get message count and if count is 1, get message info.
2892: COMMIT WORK;
2893: END IF;
2894:
2895: -- Standard call to get message count and if count is 1, get message info.
2896: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2897: p_count => x_msg_count ,
2898: p_data => x_msg_data);
2899: EXCEPTION
2900: WHEN FND_API.G_EXC_ERROR THEN
2896: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2897: p_count => x_msg_count ,
2898: p_data => x_msg_data);
2899: EXCEPTION
2900: WHEN FND_API.G_EXC_ERROR THEN
2901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2902: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2903: end if;
2904: ROLLBACK TO Get_load_errors_pvt;
2901: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2902: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2903: end if;
2904: ROLLBACK TO Get_load_errors_pvt;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2907: p_count => x_msg_count ,
2908: p_data => x_msg_data);
2909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2902: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2903: end if;
2904: ROLLBACK TO Get_load_errors_pvt;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2907: p_count => x_msg_count ,
2908: p_data => x_msg_data);
2909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2907: p_count => x_msg_count ,
2908: p_data => x_msg_data);
2909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2911: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2912: end if;
2913: ROLLBACK TO Get_load_errors_pvt;
2910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2911: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2912: end if;
2913: ROLLBACK TO Get_load_errors_pvt;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2915: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2916: p_count => x_msg_count ,
2917: p_data => x_msg_data);
2918: WHEN OTHERS THEN
2911: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2912: end if;
2913: ROLLBACK TO Get_load_errors_pvt;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2915: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2916: p_count => x_msg_count ,
2917: p_data => x_msg_data);
2918: WHEN OTHERS THEN
2919: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2919: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2920: IBE_UTIL.debug('Unknown exception in IBE_QUOTE_MISC_PVT.get_load_errors');
2921: end if;
2922: ROLLBACK TO Get_load_errors_pvt;
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2924: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
2925: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2926: L_API_NAME);
2927: END IF;
2925: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
2926: L_API_NAME);
2927: END IF;
2928:
2929: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
2930: p_count => x_msg_count ,
2931: p_data => x_msg_data);
2932:
2933: End get_load_errors;
2935: /*PROCEDURE Get_ActiveCart_Id (
2936: p_party_id IN number
2937: ,p_cust_account_id IN number
2938: ,p_api_version_number IN NUMBER
2939: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2940: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2941: ,X_Return_Status OUT NOCOPY VARCHAR2
2942: ,X_Msg_Count OUT NOCOPY NUMBER
2943: ,X_Msg_Data OUT NOCOPY VARCHAR2
2936: p_party_id IN number
2937: ,p_cust_account_id IN number
2938: ,p_api_version_number IN NUMBER
2939: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2940: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2941: ,X_Return_Status OUT NOCOPY VARCHAR2
2942: ,X_Msg_Count OUT NOCOPY NUMBER
2943: ,X_Msg_Data OUT NOCOPY VARCHAR2
2944: ,x_cartHeaderId OUT NOCOPY number
2971: begin
2972: -- Standard Start of API savepoint
2973: SAVEPOINT GetActiveCartId_pvt;
2974: -- Standard call to check for call compatibility.
2975: IF NOT FND_API.Compatible_API_Call (
2976: l_api_version ,
2977: P_Api_Version_Number,
2978: l_api_name ,
2979: G_PKG_NAME )
2977: P_Api_Version_Number,
2978: l_api_name ,
2979: G_PKG_NAME )
2980: THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: END IF;
2983: -- Initialize message list if p_init_msg_list is set to TRUE.
2984: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2985: FND_MSG_PUB.initialize;
2980: THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: END IF;
2983: -- Initialize message list if p_init_msg_list is set to TRUE.
2984: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2985: FND_MSG_PUB.initialize;
2986: END IF;
2987: -- Initialize API return status to success
2988: x_return_status := FND_API.G_RET_STS_SUCCESS;
2984: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2985: FND_MSG_PUB.initialize;
2986: END IF;
2987: -- Initialize API return status to success
2988: x_return_status := FND_API.G_RET_STS_SUCCESS;
2989: -- API body
2990: FOR Rec_get_quote_id in c_get_quote_id(p_party_id, p_cust_account_id) loop
2991: l_cartHeaderId := Rec_get_quote_id.quote_header_id;
2992: x_last_update_date := Rec_get_quote_id.last_update_date;
2996: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2997: ibe_util.debug('ibeactivecart ='||l_cartHeaderId);
2998: END IF;
2999:
3000: IF (l_cartHeaderId = fnd_api.g_miss_num or l_cartHeaderid is null ) then
3001: x_cartHeaderId := null;
3002: else
3003: x_cartHeaderId := l_cartHeaderId;
3004: end if;
3013: EXCEPTION
3014: WHEN TOO_MANY_ROWS then
3015: --ibe_util.debug('TOO_MANY_ROWS');
3016: ROLLBACK TO GETACTIVECARTID_pvt;
3017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3018: FND_MESSAGE.set_name('IBE','IBE_SC_GETACTIVEC_MANY');
3019: FND_MSG_PUB.add;
3020: FND_MSG_PUB.Count_And_Get
3021: ( p_count => x_msg_count,
3024: WHEN NO_DATA_FOUND then
3025: --ibe_util.debug('NO_DATA_FOUND');
3026: null;
3027:
3028: WHEN FND_API.G_EXC_ERROR THEN
3029: ROLLBACK TO GETACTIVECARTID_pvt;
3030: x_return_status := FND_API.G_RET_STS_ERROR;
3031: FND_MSG_PUB.Count_And_Get
3032: ( p_count => x_msg_count,
3026: null;
3027:
3028: WHEN FND_API.G_EXC_ERROR THEN
3029: ROLLBACK TO GETACTIVECARTID_pvt;
3030: x_return_status := FND_API.G_RET_STS_ERROR;
3031: FND_MSG_PUB.Count_And_Get
3032: ( p_count => x_msg_count,
3033: p_data => x_msg_data
3034: );
3031: FND_MSG_PUB.Count_And_Get
3032: ( p_count => x_msg_count,
3033: p_data => x_msg_data
3034: );
3035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3036: ROLLBACK TO GETACTIVECARTID_pvt;
3037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3038: FND_MSG_PUB.Count_And_Get
3039: ( p_count => x_msg_count,
3033: p_data => x_msg_data
3034: );
3035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3036: ROLLBACK TO GETACTIVECARTID_pvt;
3037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3038: FND_MSG_PUB.Count_And_Get
3039: ( p_count => x_msg_count,
3040: p_data => x_msg_data
3041: );
3040: p_data => x_msg_data
3041: );
3042: WHEN OTHERS THEN
3043: ROLLBACK TO GETACTIVECARTID_pvt;
3044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3045: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3046: FND_MSG_PUB.Add_Exc_Msg
3047: ( G_PKG_NAME,
3048: l_api_name);
3076: l_new_item_id_tbl CZ_API_PUB.number_tbl_type;
3077: BEGIN
3078: SAVEPOINT Update_Config_Item_Lines;
3079: -- Initialize API return status to success
3080: x_return_status := FND_API.G_RET_STS_SUCCESS;
3081:
3082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3083: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(+)');
3084: END IF;
3085:
3086: -- API body
3087: FOR i IN 1..px_qte_line_dtl_tbl.COUNT LOOP
3088: IF px_qte_line_dtl_tbl(i).config_header_id IS NOT NULL
3089: AND px_qte_line_dtl_tbl(i).config_header_id <> FND_API.G_MISS_NUM THEN
3090: l_old_config_header_id := px_qte_line_dtl_tbl(i).config_header_id;
3091: l_old_config_revision_num := px_qte_line_dtl_tbl(i).config_revision_num;
3092:
3093: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3108: ,x_new_item_id_tbl => l_new_item_id_tbl
3109: ,x_return_status => l_ret_status
3110: ,x_msg_count => l_msg_count
3111: ,x_msg_data => x_msg_data);
3112: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: END IF;
3115:
3116: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3109: ,x_return_status => l_ret_status
3110: ,x_msg_count => l_msg_count
3111: ,x_msg_data => x_msg_data);
3112: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3113: RAISE FND_API.G_EXC_ERROR;
3114: END IF;
3115:
3116: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3117: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3139: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(-)');
3140: END IF;
3141:
3142: -- Standard call to get message count and IF count is 1, get message info.
3143: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3144: p_count => x_msg_count ,
3145: p_data => x_msg_data );
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3143: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3144: p_count => x_msg_count ,
3145: p_data => x_msg_data );
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3148: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3149: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3150: END IF;
3151: ROLLBACK to Update_config_item_lines;
3148: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3149: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3150: END IF;
3151: ROLLBACK to Update_config_item_lines;
3152: x_return_status := FND_API.G_RET_STS_ERROR;
3153: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3154: p_count => x_msg_count,
3155: p_data => x_msg_data);
3156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3150: END IF;
3151: ROLLBACK to Update_config_item_lines;
3152: x_return_status := FND_API.G_RET_STS_ERROR;
3153: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3154: p_count => x_msg_count,
3155: p_data => x_msg_data);
3156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3157: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3152: x_return_status := FND_API.G_RET_STS_ERROR;
3153: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3154: p_count => x_msg_count,
3155: p_data => x_msg_data);
3156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3157: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3158: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3159: END IF;
3160: ROLLBACK to Update_config_item_lines;
3157: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3158: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3159: END IF;
3160: ROLLBACK to Update_config_item_lines;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3162: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3163: p_count => x_msg_count,
3164: p_data => x_msg_data);
3165: WHEN OTHERS THEN
3158: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3159: END IF;
3160: ROLLBACK to Update_config_item_lines;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3162: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3163: p_count => x_msg_count,
3164: p_data => x_msg_data);
3165: WHEN OTHERS THEN
3166: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3166: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3167: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3168: END IF;
3169: ROLLBACK to Update_config_item_lines;
3170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3171:
3172: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3173: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3174: l_api_name);
3173: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3174: l_api_name);
3175: END IF;
3176:
3177: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3178: p_count => x_msg_count,
3179: p_data => x_msg_data);
3180: END Update_Config_Item_Lines;
3181:
3214: END Validate_Items;
3215:
3216: PROCEDURE Get_Included_Warranties(
3217: p_api_version_number IN NUMBER := 1,
3218: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3219: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3220: x_return_status OUT NOCOPY VARCHAR2,
3221: x_msg_count OUT NOCOPY NUMBER,
3222: x_msg_data OUT NOCOPY VARCHAR2,
3215:
3216: PROCEDURE Get_Included_Warranties(
3217: p_api_version_number IN NUMBER := 1,
3218: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3219: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3220: x_return_status OUT NOCOPY VARCHAR2,
3221: x_msg_count OUT NOCOPY NUMBER,
3222: x_msg_data OUT NOCOPY VARCHAR2,
3223: p_organization_id IN NUMBER := NULL,
3247: p_product_item_id => p_product_item_id,
3248: x_return_status => x_return_status,
3249: x_warranty_tbl => l_warranty_tbl
3250: );
3251: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3252: l_count := l_warranty_tbl.COUNT;
3253: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3254: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Finishes ' || x_return_status ||
3255: ' x_warranty_tbl.COUNT=' || l_count);
3272: END Get_Included_Warranties;
3273:
3274: PROCEDURE Get_Available_Services(
3275: p_api_version_number IN NUMBER := 1,
3276: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3277: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3278: x_return_status OUT NOCOPY VARCHAR2,
3279: x_msg_count OUT NOCOPY NUMBER,
3280: x_msg_data OUT NOCOPY VARCHAR2,
3273:
3274: PROCEDURE Get_Available_Services(
3275: p_api_version_number IN NUMBER := 1,
3276: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3277: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3278: x_return_status OUT NOCOPY VARCHAR2,
3279: x_msg_count OUT NOCOPY NUMBER,
3280: x_msg_data OUT NOCOPY VARCHAR2,
3281: p_product_item_id IN NUMBER,
3314: p_avail_service_rec => l_avail_service_rec,
3315: x_orderable_service_tbl => l_orderable_service_tbl
3316: );
3317:
3318: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: END IF;
3321: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: x_orderable_service_tbl => l_orderable_service_tbl
3316: );
3317:
3318: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: END IF;
3321: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3323: END IF;
3317:
3318: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: END IF;
3321: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3323: END IF;
3324:
3325: l_count := l_orderable_service_tbl.COUNT;
3318: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3319: RAISE FND_API.G_EXC_ERROR;
3320: END IF;
3321: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3323: END IF;
3324:
3325: l_count := l_orderable_service_tbl.COUNT;
3326: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3344: END Get_Available_Services;
3345:
3346: Procedure Duplicate_Line(
3347: p_api_version_number IN NUMBER
3348: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3349: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3350: ,X_Return_Status OUT NOCOPY VARCHAR2
3351: ,X_Msg_Count OUT NOCOPY NUMBER
3352: ,X_Msg_Data OUT NOCOPY VARCHAR2
3345:
3346: Procedure Duplicate_Line(
3347: p_api_version_number IN NUMBER
3348: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3349: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3350: ,X_Return_Status OUT NOCOPY VARCHAR2
3351: ,X_Msg_Count OUT NOCOPY NUMBER
3352: ,X_Msg_Data OUT NOCOPY VARCHAR2
3353: ,p_quote_header_id IN NUMBER
3395: BEGIN
3396: -- Standard Start of API savepoint
3397: SAVEPOINT DUPLICATE_LINE_PVT;
3398: -- Standard call to check for call compatibility.
3399: IF NOT FND_API.Compatible_API_Call (l_api_version,
3400: P_Api_Version_Number,
3401: l_api_name,
3402: G_PKG_NAME )
3403: THEN
3400: P_Api_Version_Number,
3401: l_api_name,
3402: G_PKG_NAME )
3403: THEN
3404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3405: END IF;
3406: -- Initialize message list IF p_init_msg_list is set to TRUE.
3407: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3408: FND_MSG_PUB.initialize;
3403: THEN
3404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3405: END IF;
3406: -- Initialize message list IF p_init_msg_list is set to TRUE.
3407: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3408: FND_MSG_PUB.initialize;
3409: END IF;
3410:
3411: -- Initialize API return status to success
3408: FND_MSG_PUB.initialize;
3409: END IF;
3410:
3411: -- Initialize API return status to success
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413:
3414: l_initial_dtl_count := x_qte_line_dtl_tbl.COUNT + 1;
3415:
3416: l_initial_count := x_qte_line_tbl.COUNT + 1;
3437: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3438: IBE_UTIL.Debug(' Processing LineDetailTbl Count=' || l_qte_line_dtl_tbl.COUNT);
3439: END IF;
3440: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3441: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3442: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3443: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3444: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3445: END IF;
3440: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3441: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3442: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3443: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3444: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3445: END IF;
3446: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3447: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3448: l_qte_line_dtl_tbl(j).qte_line_index := i;
3442: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3443: l_qte_line_dtl_tbl(j).service_ref_qte_line_index := l_initial_count;
3444: l_qte_line_dtl_tbl(j).service_ref_line_id := fnd_api.g_miss_num;
3445: END IF;
3446: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3447: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3448: l_qte_line_dtl_tbl(j).qte_line_index := i;
3449: l_qte_line_dtl_tbl(j).quote_line_id := fnd_api.g_miss_num;
3450: x_qte_line_dtl_tbl(x_qte_line_dtl_tbl.count+1)
3445: END IF;
3446: l_qte_line_dtl_tbl(j).quote_line_detail_id := fnd_api.g_miss_num;
3447: l_qte_line_dtl_tbl(j).operation_code := 'CREATE';
3448: l_qte_line_dtl_tbl(j).qte_line_index := i;
3449: l_qte_line_dtl_tbl(j).quote_line_id := fnd_api.g_miss_num;
3450: x_qte_line_dtl_tbl(x_qte_line_dtl_tbl.count+1)
3451: := l_qte_line_dtl_tbl(j);
3452: END LOOP;
3453:
3458: END IF;
3459:
3460: FOR j IN 1..l_line_rltship_tbl.COUNT LOOP
3461: IF NVL(l_line_rltship_tbl(j).relationship_type_code, '*') <> 'SERVICE' THEN
3462: l_line_rltship_tbl(j).line_relationship_id := fnd_api.g_miss_num;
3463: l_line_rltship_tbl(j).operation_code := 'CREATE';
3464:
3465: l_line_rltship_tbl(j).qte_line_index := i;
3466: l_line_rltship_tbl(j).related_qte_line_index
3471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3472: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3473: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3474: END IF;
3475: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3476: l_line_rltship_tbl(j).related_quote_line_id := fnd_api.g_miss_num;
3477: x_line_rltship_tbl(x_line_rltship_tbl.count+1)
3478: := l_line_rltship_tbl(j);
3479: END IF;
3472: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3473: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3474: END IF;
3475: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3476: l_line_rltship_tbl(j).related_quote_line_id := fnd_api.g_miss_num;
3477: x_line_rltship_tbl(x_line_rltship_tbl.count+1)
3478: := l_line_rltship_tbl(j);
3479: END IF;
3480:
3487: IBE_UTIL.Debug(' Processing LineAttrExtTbl Count=' || l_line_attr_ext_tbl.COUNT);
3488: END IF;
3489:
3490: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3491: l_line_attr_ext_tbl(j).line_attribute_id := fnd_api.g_miss_num;
3492: l_line_attr_ext_tbl(j).operation_code := 'CREATE';
3493: l_line_attr_ext_tbl(j).qte_line_index := i;
3494: l_line_attr_ext_tbl(j).quote_line_id := fnd_api.g_miss_num;
3495:
3490: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3491: l_line_attr_ext_tbl(j).line_attribute_id := fnd_api.g_miss_num;
3492: l_line_attr_ext_tbl(j).operation_code := 'CREATE';
3493: l_line_attr_ext_tbl(j).qte_line_index := i;
3494: l_line_attr_ext_tbl(j).quote_line_id := fnd_api.g_miss_num;
3495:
3496: x_line_attr_ext_tbl(x_line_attr_ext_tbl.count+1)
3497: := l_line_attr_ext_tbl(j);
3498: END LOOP;
3503: IBE_UTIL.Debug(' Processing linePrcAttrTbl Count=' || l_ln_price_attributes_tbl.COUNT);
3504: END IF;
3505:
3506: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3507: l_ln_price_attributes_tbl(j).price_attribute_id := fnd_api.g_miss_num;
3508: l_ln_price_attributes_tbl(j).operation_code := 'CREATE';
3509: l_ln_price_attributes_tbl(j).qte_line_index := i;
3510: l_ln_price_attributes_tbl(j).quote_line_id := fnd_api.g_miss_num;
3511: l_ln_price_attributes_tbl(j).quote_header_id := p_quote_header_id;
3506: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3507: l_ln_price_attributes_tbl(j).price_attribute_id := fnd_api.g_miss_num;
3508: l_ln_price_attributes_tbl(j).operation_code := 'CREATE';
3509: l_ln_price_attributes_tbl(j).qte_line_index := i;
3510: l_ln_price_attributes_tbl(j).quote_line_id := fnd_api.g_miss_num;
3511: l_ln_price_attributes_tbl(j).quote_header_id := p_quote_header_id;
3512: x_ln_price_attributes_tbl(x_ln_price_attributes_tbl.count+1)
3513: := l_ln_price_attributes_tbl(j);
3514: END LOOP;
3520: IBE_UTIL.Debug(' Processing LinePriceAdjTbl Count=' || l_ln_price_adj_tbl.COUNT);
3521: END IF;
3522:
3523: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3524: l_ln_price_adj_tbl(j).price_adjustment_id := fnd_api.g_miss_num;
3525: l_ln_price_adj_tbl(j).operation_code := 'CREATE';
3526: l_ln_price_adj_tbl(j).qte_line_index := i;
3527: l_ln_price_adj_tbl(j).quote_line_id := fnd_api.g_miss_num;
3528: l_ln_price_adj_tbl(j).quote_header_id := p_quote_header_id;
3523: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3524: l_ln_price_adj_tbl(j).price_adjustment_id := fnd_api.g_miss_num;
3525: l_ln_price_adj_tbl(j).operation_code := 'CREATE';
3526: l_ln_price_adj_tbl(j).qte_line_index := i;
3527: l_ln_price_adj_tbl(j).quote_line_id := fnd_api.g_miss_num;
3528: l_ln_price_adj_tbl(j).quote_header_id := p_quote_header_id;
3529: x_ln_price_adj_tbl(x_ln_price_adj_tbl.count+1)
3530: := l_ln_price_adj_tbl(j);
3531: END LOOP;
3533: END LOOP; -- end of get line information
3534:
3535: FOR I IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3536: x_qte_line_tbl(I).operation_code := 'CREATE';
3537: x_qte_line_tbl(I).quote_line_id := fnd_api.g_miss_num;
3538: x_qte_line_tbl(I).quote_header_id := p_quote_header_id;
3539: END LOOP;
3540:
3541: -- takes care of configuraton item
3567: ,x_new_item_id_tbl => l_new_item_id_tbl
3568: ,x_return_status => l_ret_status
3569: ,x_msg_count => l_msg_count
3570: ,x_msg_data => x_msg_data);
3571: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575:
3568: ,x_return_status => l_ret_status
3569: ,x_msg_count => l_msg_count
3570: ,x_msg_data => x_msg_data);
3571: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575:
3576: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3598: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3599: ibe_util.debug('before out line number is='|| x_qte_line_tbl.count);
3600: END IF;
3601: -- Standard check of p_commit.
3602: IF FND_API.To_Boolean( p_commit ) THEN
3603: COMMIT WORK;
3604: END IF;
3605:
3606: -- Standard call to get message count and IF count is 1, get message info.
3603: COMMIT WORK;
3604: END IF;
3605:
3606: -- Standard call to get message count and IF count is 1, get message info.
3607: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3608: p_count => x_msg_count,
3609: p_data => x_msg_data);
3610: EXCEPTION
3611: WHEN FND_API.G_EXC_ERROR THEN
3607: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3608: p_count => x_msg_count,
3609: p_data => x_msg_data);
3610: EXCEPTION
3611: WHEN FND_API.G_EXC_ERROR THEN
3612: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3613: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3614: END IF;
3615:
3613: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3614: END IF;
3615:
3616: ROLLBACK TO DUPLICATE_LINE_PVT;
3617: x_return_status := FND_API.G_RET_STS_ERROR;
3618: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3620: p_data => x_msg_data);
3621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3614: END IF;
3615:
3616: ROLLBACK TO DUPLICATE_LINE_PVT;
3617: x_return_status := FND_API.G_RET_STS_ERROR;
3618: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3620: p_data => x_msg_data);
3621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3622: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3617: x_return_status := FND_API.G_RET_STS_ERROR;
3618: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3619: p_count => x_msg_count,
3620: p_data => x_msg_data);
3621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3622: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3623: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3624: END IF;
3625:
3623: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3624: END IF;
3625:
3626: ROLLBACK TO DUPLICATE_LINE_PVT;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data);
3631: WHEN OTHERS THEN
3624: END IF;
3625:
3626: ROLLBACK TO DUPLICATE_LINE_PVT;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data);
3631: WHEN OTHERS THEN
3632: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3633: IBE_Util.Debug('unknown error IBE_Quote_Misc_pvt.Duplicate_line');
3634: END IF;
3635:
3636: ROLLBACK TO DUPLICATE_LINE_PVT;
3637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3638:
3639: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3640: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3641: l_api_name);
3640: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
3641: l_api_name);
3642: END IF;
3643:
3644: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3645: p_count => x_msg_count,
3646: p_data => x_msg_data);
3647: END Duplicate_Line;
3648:
3646: p_data => x_msg_data);
3647: END Duplicate_Line;
3648:
3649: FUNCTION getHdrPrcAdjNonPRGTbl (
3650: P_Qte_Header_Id IN NUMBER := FND_API.G_MISS_NUM,
3651: P_Qte_Line_Id IN NUMBER := FND_API.G_MISS_NUM
3652: ) RETURN ASO_QUOTE_PUB.Price_Adj_Tbl_Type
3653: IS
3654: CURSOR c_price_adj IS
3647: END Duplicate_Line;
3648:
3649: FUNCTION getHdrPrcAdjNonPRGTbl (
3650: P_Qte_Header_Id IN NUMBER := FND_API.G_MISS_NUM,
3651: P_Qte_Line_Id IN NUMBER := FND_API.G_MISS_NUM
3652: ) RETURN ASO_QUOTE_PUB.Price_Adj_Tbl_Type
3653: IS
3654: CURSOR c_price_adj IS
3655: SELECT
3841: END getHdrPrcAdjNonPRGTbl;
3842:
3843: Procedure Split_Line(
3844: p_api_version_number IN NUMBER
3845: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3846: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3847: ,X_Return_Status OUT NOCOPY VARCHAR2
3848: ,X_Msg_Count OUT NOCOPY NUMBER
3849: ,X_Msg_Data OUT NOCOPY VARCHAR2
3842:
3843: Procedure Split_Line(
3844: p_api_version_number IN NUMBER
3845: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3846: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3847: ,X_Return_Status OUT NOCOPY VARCHAR2
3848: ,X_Msg_Count OUT NOCOPY NUMBER
3849: ,X_Msg_Data OUT NOCOPY VARCHAR2
3850: ,p_quote_header_id IN NUMBER
3850: ,p_quote_header_id IN NUMBER
3851: ,p_qte_line_id IN NUMBER
3852: ,p_quantities IN jtf_number_table
3853: ,p_last_update_date IN OUT NOCOPY DATE
3854: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3855: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3856: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3857: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3858: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3851: ,p_qte_line_id IN NUMBER
3852: ,p_quantities IN jtf_number_table
3853: ,p_last_update_date IN OUT NOCOPY DATE
3854: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3855: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3856: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3857: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3858: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3859: )
3852: ,p_quantities IN jtf_number_table
3853: ,p_last_update_date IN OUT NOCOPY DATE
3854: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3855: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3856: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3857: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3858: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3859: )
3860: IS
3853: ,p_last_update_date IN OUT NOCOPY DATE
3854: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3855: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3856: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3857: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3858: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3859: )
3860: IS
3861: l_api_name CONSTANT VARCHAR2(30) := 'Split_Line';
3854: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
3855: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
3856: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
3857: ,p_minisite_id IN NUMBER := FND_API.G_MISS_NUM
3858: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
3859: )
3860: IS
3861: l_api_name CONSTANT VARCHAR2(30) := 'Split_Line';
3862: l_api_version CONSTANT NUMBER := 1.0;
3890: BEGIN
3891: -- Standard Start of API savepoint
3892: SAVEPOINT SPLIT_LINE_PVT;
3893: -- Standard call to check for call compatibility.
3894: IF NOT FND_API.Compatible_API_Call (l_api_version,
3895: P_Api_Version_Number,
3896: l_api_name,
3897: G_PKG_NAME )
3898: THEN
3895: P_Api_Version_Number,
3896: l_api_name,
3897: G_PKG_NAME )
3898: THEN
3899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3900: END IF;
3901: -- Initialize message list IF p_init_msg_list is set to TRUE.
3902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3903: FND_MSG_PUB.initialize;
3898: THEN
3899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3900: END IF;
3901: -- Initialize message list IF p_init_msg_list is set to TRUE.
3902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905: -- Initialize API return status to success
3906: x_return_status := FND_API.G_RET_STS_SUCCESS;
3902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905: -- Initialize API return status to success
3906: x_return_status := FND_API.G_RET_STS_SUCCESS;
3907:
3908:
3909: IF p_quantities IS NOT NULL THEN
3910:
3925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3926: FND_MESSAGE.Set_Name('IBE', 'IBE_SC_QUOTE_NEED_REFRESH');
3927: FND_MSG_PUB.ADD;
3928: END IF;
3929: RAISE FND_API.G_EXC_ERROR; -- need error message
3930: END IF;
3931: -- 4587019
3932: */
3933:
3944: ,x_msg_data => x_msg_data
3945: );
3946:
3947:
3948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3945: );
3946:
3947:
3948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3946:
3947:
3948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3954: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3947:
3948: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3954: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3955: IBE_UTIL.Debug('Validating User Finishes');
3973: l_control_rec.calculate_freight_charge_flag := 'Y';
3974: --mannamra:Removing references to obsoleted profile IBE_PRICE_REQUEST_TYPE see bug 2594529 for details
3975: l_control_rec.pricing_request_type := 'ASO';--FND_PROFILE.Value('IBE_PRICE_REQUEST_TYPE');
3976: l_control_rec.header_pricing_event := FND_PROFILE.Value('IBE_INCART_PRICING_EVENT');
3977: l_control_rec.line_pricing_event := FND_API.G_MISS_CHAR;
3978: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3979: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
3980: END IF;
3981: aso_split_line_int.Split_Quote_line (
3979: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
3980: END IF;
3981: aso_split_line_int.Split_Quote_line (
3982: P_Api_Version_Number => 1.0,
3983: P_Init_Msg_List => FND_API.G_TRUE,
3984: P_Commit => FND_API.G_TRUE,
3985: p_qte_header_rec => l_qte_header_rec,
3986: p_original_qte_line_rec => l_qte_line_rec,
3987: p_control_rec => l_control_rec,
3980: END IF;
3981: aso_split_line_int.Split_Quote_line (
3982: P_Api_Version_Number => 1.0,
3983: P_Init_Msg_List => FND_API.G_TRUE,
3984: P_Commit => FND_API.G_TRUE,
3985: p_qte_header_rec => l_qte_header_rec,
3986: p_original_qte_line_rec => l_qte_line_rec,
3987: p_control_rec => l_control_rec,
3988: P_Qte_Line_Tbl => l_qte_line_tbl,
3989: X_Qte_Line_Tbl => lx_qte_line_tbl,
3990: X_Return_Status => lx_return_status,
3991: X_Msg_Count => lx_msg_count,
3992: X_Msg_Data => lx_msg_data );
3993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3994: RAISE FND_API.G_EXC_ERROR;
3995: END IF;
3996: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3990: X_Return_Status => lx_return_status,
3991: X_Msg_Count => lx_msg_count,
3992: X_Msg_Data => lx_msg_data );
3993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3994: RAISE FND_API.G_EXC_ERROR;
3995: END IF;
3996: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3998: END IF;
3992: X_Msg_Data => lx_msg_data );
3993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3994: RAISE FND_API.G_EXC_ERROR;
3995: END IF;
3996: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3998: END IF;
3999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4000: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
3993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3994: RAISE FND_API.G_EXC_ERROR;
3995: END IF;
3996: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3998: END IF;
3999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4000: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4001: END IF;
4003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4004: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
4005: END IF;
4006: -- Standard check of p_commit.
4007: IF FND_API.To_Boolean( p_commit ) THEN
4008: COMMIT WORK;
4009: END IF;
4010: -- Standard call to get message count and IF count is 1, get message info.
4011: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4007: IF FND_API.To_Boolean( p_commit ) THEN
4008: COMMIT WORK;
4009: END IF;
4010: -- Standard call to get message count and IF count is 1, get message info.
4011: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4012: p_count => lx_msg_count,
4013: p_data => lx_msg_data);
4014: EXCEPTION
4015: WHEN FND_API.G_EXC_ERROR THEN
4011: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4012: p_count => lx_msg_count,
4013: p_data => lx_msg_data);
4014: EXCEPTION
4015: WHEN FND_API.G_EXC_ERROR THEN
4016: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4017: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4018: END IF;
4019: ROLLBACK TO SPLIT_LINE_PVT;
4016: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4017: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4018: END IF;
4019: ROLLBACK TO SPLIT_LINE_PVT;
4020: x_return_status := FND_API.G_RET_STS_ERROR;
4021: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4022: p_count => lx_msg_count,
4023: p_data => lx_msg_data);
4024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4017: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4018: END IF;
4019: ROLLBACK TO SPLIT_LINE_PVT;
4020: x_return_status := FND_API.G_RET_STS_ERROR;
4021: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4022: p_count => lx_msg_count,
4023: p_data => lx_msg_data);
4024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4025: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4020: x_return_status := FND_API.G_RET_STS_ERROR;
4021: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4022: p_count => lx_msg_count,
4023: p_data => lx_msg_data);
4024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4025: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4026: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4027: END IF;
4028: ROLLBACK TO SPLIT_LINE_PVT;
4025: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4026: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4027: END IF;
4028: ROLLBACK TO SPLIT_LINE_PVT;
4029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4030: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4031: p_count => lx_msg_count,
4032: p_data => lx_msg_data);
4033: WHEN OTHERS THEN
4026: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4027: END IF;
4028: ROLLBACK TO SPLIT_LINE_PVT;
4029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4030: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4031: p_count => lx_msg_count,
4032: p_data => lx_msg_data);
4033: WHEN OTHERS THEN
4034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4034: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4035: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Split_line');
4036: END IF;
4037: ROLLBACK TO SPLIT_LINE_PVT;
4038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4039: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4040: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
4041: l_api_name);
4042: END IF;
4039: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4040: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
4041: l_api_name);
4042: END IF;
4043: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4044: p_count => lx_msg_count,
4045: p_data => lx_msg_data);
4046: END Split_Line;
4047:
4072: l_status_code VARCHAR2(30);
4073: l_source_code VARCHAR2(100);
4074: l_party_id NUMBER;
4075: l_cust_account_id NUMBER;
4076: l_validate_quote_sts VARCHAR2(2) := FND_API.G_TRUE;
4077: l_error VARCHAR2(1) := FND_API.G_FALSE;
4078:
4079: CURSOR c_get_active_cart(c_quote_header_id NUMBER,
4080: c_party_id NUMBER,
4073: l_source_code VARCHAR2(100);
4074: l_party_id NUMBER;
4075: l_cust_account_id NUMBER;
4076: l_validate_quote_sts VARCHAR2(2) := FND_API.G_TRUE;
4077: l_error VARCHAR2(1) := FND_API.G_FALSE;
4078:
4079: CURSOR c_get_active_cart(c_quote_header_id NUMBER,
4080: c_party_id NUMBER,
4081: c_cust_account_id NUMBER) is
4096: BEGIN
4097: SAVEPOINT validate_quote;
4098: -- Get resource_id, publish_flag and quote_status of a quote.
4099: -- Initialize API return status to success
4100: x_return_status := FND_API.G_RET_STS_SUCCESS;
4101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4102: IBE_UTIL.DEBUG('Begin Validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4103: END IF;
4104: open c_get_quote_details;
4118: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4119: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_NOT_PUBL');
4120: FND_Msg_Pub.Add;
4121: END IF;
4122: l_error := FND_API.G_TRUE;
4123: END IF;
4124:
4125: IF (p_save_type is not null and
4126: (p_save_type = END_WORKING OR p_save_type = SAVE_PAYMENT_ONLY
4124:
4125: IF (p_save_type is not null and
4126: (p_save_type = END_WORKING OR p_save_type = SAVE_PAYMENT_ONLY
4127: OR p_save_type = SALES_ASSISTANCE OR p_save_type = PLACE_ORDER OR p_save_type = OP_DUPLICATE_CART)) THEN
4128: l_validate_quote_sts := FND_API.G_FALSE;
4129: END IF;
4130:
4131: IF (l_validate_quote_sts = FND_API.G_TRUE) THEN
4132: IF (l_resource_id is not null) THEN
4127: OR p_save_type = SALES_ASSISTANCE OR p_save_type = PLACE_ORDER OR p_save_type = OP_DUPLICATE_CART)) THEN
4128: l_validate_quote_sts := FND_API.G_FALSE;
4129: END IF;
4130:
4131: IF (l_validate_quote_sts = FND_API.G_TRUE) THEN
4132: IF (l_resource_id is not null) THEN
4133: IF (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' ) THEN -- Update on Draft profile enabled, only allow updates on DRAFT.
4134: IF (l_status_code <> 'DRAFT') THEN
4135: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4135: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4136: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_QUOTE_STS');
4137: FND_Msg_Pub.Add;
4138: END IF;
4139: l_error := FND_API.G_TRUE;
4140: END IF;
4141: ELSE -- update profile is not enabled, but update call for quote is coming down.
4142: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4143: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4142: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4143: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4144: FND_Msg_Pub.Add;
4145: END IF;
4146: l_error := FND_API.G_TRUE;
4147: END IF;
4148: ELSE -- for a cart, check for 'STORE DRAFT'
4149: IF (l_status_code <> 'STORE DRAFT') THEN
4150: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4150: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4151: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_CART_STS');
4152: FND_Msg_Pub.Add;
4153: END IF;
4154: l_error := FND_API.G_TRUE;
4155: END IF;
4156: END IF;
4157: END IF;
4158: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4167: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4168: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4169: FND_Msg_Pub.Add;
4170: END IF;
4171: l_error := FND_API.G_TRUE;
4172: ELSE
4173: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4174: AND (l_source_code = 'IStore Oneclick')) THEN
4175:
4180: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4181: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4182: FND_Msg_Pub.Add;
4183: END IF;
4184: l_error := FND_API.G_TRUE;
4185: END IF;
4186: END IF;
4187:
4188: END IF;
4186: END IF;
4187:
4188: END IF;
4189:
4190: IF (l_error = FND_API.G_TRUE) THEN
4191: FOR rec_get_active_cart in c_get_active_cart(p_quote_header_id,
4192: l_party_id,
4193: l_cust_account_id) LOOP
4194: l_active_cart := rec_get_active_cart.quote_header_id;
4201: P_Quote_header_id => p_quote_header_id,
4202: P_Party_id => l_party_id ,
4203: P_Cust_account_id => l_Cust_account_id ,
4204: p_api_version => 1 ,
4205: p_init_msg_list => fnd_api.g_false ,
4206: p_commit => fnd_api.g_true ,
4207: x_return_status => l_return_status ,
4208: x_msg_count => l_msg_count ,
4209: x_msg_data => l_msg_data );
4202: P_Party_id => l_party_id ,
4203: P_Cust_account_id => l_Cust_account_id ,
4204: p_api_version => 1 ,
4205: p_init_msg_list => fnd_api.g_false ,
4206: p_commit => fnd_api.g_true ,
4207: x_return_status => l_return_status ,
4208: x_msg_count => l_msg_count ,
4209: x_msg_data => l_msg_data );
4210:
4207: x_return_status => l_return_status ,
4208: x_msg_count => l_msg_count ,
4209: x_msg_data => l_msg_data );
4210:
4211: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4212: RAISE FND_API.G_EXC_ERROR;
4213: END IF;
4214:
4215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4208: x_msg_count => l_msg_count ,
4209: x_msg_data => l_msg_data );
4210:
4211: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4212: RAISE FND_API.G_EXC_ERROR;
4213: END IF;
4214:
4215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4211: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4212: RAISE FND_API.G_EXC_ERROR;
4213: END IF;
4214:
4215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4217: END IF;
4218: END IF;
4219: EXIT when c_get_active_cart%notfound;
4212: RAISE FND_API.G_EXC_ERROR;
4213: END IF;
4214:
4215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4217: END IF;
4218: END IF;
4219: EXIT when c_get_active_cart%notfound;
4220: END LOOP;
4217: END IF;
4218: END IF;
4219: EXIT when c_get_active_cart%notfound;
4220: END LOOP;
4221: RAISE FND_API.G_EXC_ERROR;
4222: END IF;
4223:
4224:
4225: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4226: IBE_UTIL.DEBUG('End validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4227: END IF;
4228:
4229: EXCEPTION
4230: WHEN FND_API.G_EXC_ERROR THEN
4231: ROLLBACK TO validate_quote;
4232: x_return_status := FND_API.G_RET_STS_ERROR;
4233: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4234: p_count => x_msg_count ,
4228:
4229: EXCEPTION
4230: WHEN FND_API.G_EXC_ERROR THEN
4231: ROLLBACK TO validate_quote;
4232: x_return_status := FND_API.G_RET_STS_ERROR;
4233: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4234: p_count => x_msg_count ,
4235: p_data => x_msg_data);
4236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4229: EXCEPTION
4230: WHEN FND_API.G_EXC_ERROR THEN
4231: ROLLBACK TO validate_quote;
4232: x_return_status := FND_API.G_RET_STS_ERROR;
4233: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4234: p_count => x_msg_count ,
4235: p_data => x_msg_data);
4236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4237: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4235: p_data => x_msg_data);
4236: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4237: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4238: END IF;
4239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4240: ROLLBACK TO validate_quote;
4241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4242: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4243: p_count => x_msg_count ,
4237: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4238: END IF;
4239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4240: ROLLBACK TO validate_quote;
4241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4242: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4243: p_count => x_msg_count ,
4244: p_data => x_msg_data);
4245: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4238: END IF;
4239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4240: ROLLBACK TO validate_quote;
4241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4242: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4243: p_count => x_msg_count ,
4244: p_data => x_msg_data);
4245: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4246: IBE_Util.Debug('End with UnExp Exception IBE_Quote_Misc_pvt.validate_quote');
4249: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4250: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4251: l_api_name);
4252: END IF;
4253: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4254: p_count => x_msg_count ,
4255: p_data => x_msg_data);
4256: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4257: IBE_Util.Debug('End with Others Exception IBE_Quote_Misc_pvt.validate_quote');
4259: END validate_quote;
4260:
4261: PROCEDURE Validate_User_Update(
4262: p_api_version_number IN NUMBER := 1.0
4263: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4264: ,p_quote_header_id IN NUMBER
4265: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4261: PROCEDURE Validate_User_Update(
4262: p_api_version_number IN NUMBER := 1.0
4263: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4264: ,p_quote_header_id IN NUMBER
4265: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4262: p_api_version_number IN NUMBER := 1.0
4263: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4264: ,p_quote_header_id IN NUMBER
4265: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4270: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4263: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4264: ,p_quote_header_id IN NUMBER
4265: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4270: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4271: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4264: ,p_quote_header_id IN NUMBER
4265: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4270: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4271: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4272: ,x_return_status OUT NOCOPY VARCHAR2
4266: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4270: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4271: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4272: ,x_return_status OUT NOCOPY VARCHAR2
4273: ,x_msg_count OUT NOCOPY NUMBER
4274: ,x_msg_data OUT NOCOPY VARCHAR2)
4267: ,p_quote_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
4268: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
4269: ,p_privilege_type_code IN VARCHAR2 := 'F'
4270: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
4271: ,p_last_update_date IN DATE := FND_API.G_MISS_DATE
4272: ,x_return_status OUT NOCOPY VARCHAR2
4273: ,x_msg_count OUT NOCOPY NUMBER
4274: ,x_msg_data OUT NOCOPY VARCHAR2)
4275:
4282: l_user_id NUMBER :=FND_GLOBAL.USER_ID;
4283: l_db_user_id NUMBER;
4284: l_privilege_type_code VARCHAR2(10);
4285: l_end_date_active DATE;
4286: l_upgrade_flag varchar2(1) := FND_API.G_TRUE;
4287:
4288: l_last_update_date DATE;
4289: l_quote_status VARCHAR2(100);
4290: l_last_updated_by NUMBER;
4362: IBE_UTIL.DEBUG('Begin validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4363: END IF;
4364:
4365: -- Standard call to check for call compatibility.
4366: IF NOT FND_API.Compatible_API_Call (l_api_version,
4367: p_api_version_number,
4368: l_api_name,
4369: G_PKG_NAME )
4370: THEN
4367: p_api_version_number,
4368: l_api_name,
4369: G_PKG_NAME )
4370: THEN
4371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4372: END IF;
4373:
4374: -- Initialize message list if p_init_msg_list is set to TRUE.
4375:
4372: END IF;
4373:
4374: -- Initialize message list if p_init_msg_list is set to TRUE.
4375:
4376: IF FND_API.To_Boolean( p_init_msg_list ) THEN
4377: FND_Msg_Pub.initialize;
4378: END IF;
4379:
4380: -- Initialize API return status to success
4377: FND_Msg_Pub.initialize;
4378: END IF;
4379:
4380: -- Initialize API return status to success
4381: x_return_status := FND_API.G_RET_STS_SUCCESS;
4382:
4383: -- API body
4384:
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4388: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4389: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4390: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4391: END IF;
4392: 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
4393:
4394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4395: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4396: END IF;
4394: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4395: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4396: END IF;
4397:
4398: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4399:
4400: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4401: IBE_UTIL.DEBUG('In validating Recipient flow '||p_quote_retrieval_number||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4402: END IF;
4417: END IF;
4418: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4419: IBE_UTIL.DEBUG('quote_retrieval_number::quotehdrId'||'('||p_quote_retrieval_number||','||p_quote_header_id||')');
4420: END IF;
4421: RAISE FND_API.G_EXC_ERROR;
4422: END IF;
4423:
4424: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4425: IBE_UTIL.DEBUG('rec_sharee_info.party_id : '||rec_sharee_info.party_id);
4430: -- if we have party and acct passed in AND in the table then
4431: -- check that the passed-in user matches the recipient identity we have in the table
4432: if ((rec_sharee_info.party_id is not null) and
4433: (rec_sharee_info.cust_account_id is not null) and
4434: (p_party_id <> FND_API.G_MISS_NUM) and
4435: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4436: if ((rec_sharee_info.party_id <> p_party_id) or (rec_sharee_info.cust_account_id <> p_cust_account_id)) then
4437: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4438: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4431: -- check that the passed-in user matches the recipient identity we have in the table
4432: if ((rec_sharee_info.party_id is not null) and
4433: (rec_sharee_info.cust_account_id is not null) and
4434: (p_party_id <> FND_API.G_MISS_NUM) and
4435: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4436: if ((rec_sharee_info.party_id <> p_party_id) or (rec_sharee_info.cust_account_id <> p_cust_account_id)) then
4437: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4438: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4439: FND_Msg_Pub.Add;
4442: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4443: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4444: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4445: END IF;
4446: RAISE FND_API.G_EXC_ERROR;
4447: end if;
4448: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4449: elsif ((rec_sharee_info.party_id is null) and
4450: (rec_sharee_info.cust_account_id is null) and
4447: end if;
4448: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4449: elsif ((rec_sharee_info.party_id is null) and
4450: (rec_sharee_info.cust_account_id is null) and
4451: (p_party_id <> FND_API.G_MISS_NUM) and
4452: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4454: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4455: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4448: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4449: elsif ((rec_sharee_info.party_id is null) and
4450: (rec_sharee_info.cust_account_id is null) and
4451: (p_party_id <> FND_API.G_MISS_NUM) and
4452: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4453: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4454: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4455: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4456: END IF;
4459: p_cust_account_id => p_cust_account_id,
4460: p_retrieval_number => p_quote_retrieval_number,
4461: p_quote_header_id => p_quote_header_id,
4462: x_valid_flag => l_upgrade_flag);
4463: if (l_upgrade_flag <> FND_API.G_TRUE) then
4464: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4465: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4466: FND_Msg_Pub.Add;
4467: END IF;
4481: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4482: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
4483: FND_Msg_Pub.Add;
4484: END IF;
4485: RAISE FND_API.G_EXC_ERROR;
4486: END IF;
4487: ELSE
4488: IF p_privilege_type_code <> 'R' THEN
4489: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4489: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4490: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_PRIVILEGE');
4491: FND_Msg_Pub.Add;
4492: END IF;
4493: RAISE FND_API.G_EXC_ERROR; -- need error message
4494: END IF;
4495: END IF;
4496: end if;
4497: -- else, the access level is Admin and we are okay to do other validations
4511: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4512: return;
4513: end if;
4514:
4515: 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
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('In validating Owner flow: '||p_party_id||','||p_cust_account_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4519: END IF;
4527: END IF;
4528: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4529: IBE_UTIL.DEBUG('partyId::custAcctId::quotehdrId'||'('||p_party_id||','||p_cust_account_id||','||p_quote_header_id||')');
4530: END IF;
4531: RAISE FND_API.G_EXC_ERROR;
4532: END IF;
4533: ELSE
4534: -- retrieving user info from environment
4535: OPEN c_getResourceInfo;
4555: END IF;
4556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4557: IBE_UTIL.DEBUG('partyId::quotehdrId'||'('||p_party_id||','||p_quote_header_id||')');
4558: END IF;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF; -- end if l_db_quote_header_id is null
4561: END IF; -- end if l_db_user_id is null
4562: END IF; -- end section of user info from env
4563: END IF; -- end if no sharee number
4565: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4566: IBE_UTIL.DEBUG('Validate_user_update: Before Last update date validation,p_last_update_date= '||p_last_update_date);
4567: END IF;
4568:
4569: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4570: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4571: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation START');
4572: END IF;
4573: FOR rec_last_update_date in c_last_update_date(p_quote_header_id) LOOP
4591: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4592: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4593: FND_Msg_Pub.Add;
4594: END IF;
4595: RAISE FND_API.G_EXC_ERROR;
4596: ELSE
4597: IF ((l_last_updated_by <> l_user_id) OR (p_save_type = PLACE_ORDER)) THEN
4598: -- determine which error message we need to show
4599: OPEN c_getPartyInfo(l_last_updated_by);
4638: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4639: FND_Message.Set_Name('IBE', l_err_code);
4640: FND_Msg_Pub.Add;
4641: END IF;
4642: RAISE FND_API.G_EXC_ERROR;
4643: END IF;
4644: END IF;
4645: END IF;
4646:
4664: IBE_UTIL.DEBUG('End validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4665: END IF;
4666: END IF; -- end if quote header id is not null
4667: EXCEPTION
4668: WHEN FND_API.G_EXC_ERROR THEN
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4671: p_count => x_msg_count ,
4672: p_data => x_msg_data);
4665: END IF;
4666: END IF; -- end if quote header id is not null
4667: EXCEPTION
4668: WHEN FND_API.G_EXC_ERROR THEN
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4671: p_count => x_msg_count ,
4672: p_data => x_msg_data);
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4666: END IF; -- end if quote header id is not null
4667: EXCEPTION
4668: WHEN FND_API.G_EXC_ERROR THEN
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4671: p_count => x_msg_count ,
4672: p_data => x_msg_data);
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4672: p_data => x_msg_data);
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4675: END IF;
4676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4678: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4679: p_count => x_msg_count ,
4680: p_data => x_msg_data);
4673: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4675: END IF;
4676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4678: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4679: p_count => x_msg_count ,
4680: p_data => x_msg_data);
4681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4674: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4675: END IF;
4676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4678: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4679: p_count => x_msg_count ,
4680: p_data => x_msg_data);
4681: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4682: IBE_Util.Debug('End:Unexpected exception:IBE_Quote_Misc_pvt.validate_user_update');
4685: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4686: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4687: l_api_name);
4688: END IF;
4689: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4690: p_count => x_msg_count ,
4691: p_data => x_msg_data);
4692: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4693: IBE_Util.Debug('End:Others exception:IBE_Quote_Misc_pvt.validate_user_update');
4727: l_party_type_cart_owner VARCHAR2(30);
4728: l_party_type_recipient VARCHAR2(30);
4729:
4730: BEGIN
4731: x_valid_flag := FND_API.G_TRUE;
4732: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4733: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4734: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4735: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4753: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4754: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4755: FND_Msg_Pub.Add;
4756: END IF;
4757: x_valid_flag := FND_API.G_FALSE;
4758: RAISE FND_API.G_EXC_ERROR;
4759: end if;
4760: elsif (l_party_type_cart_owner = 'PERSON') then
4761: OPEN c_get_party_type(p_party_id);
4754: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4755: FND_Msg_Pub.Add;
4756: END IF;
4757: x_valid_flag := FND_API.G_FALSE;
4758: RAISE FND_API.G_EXC_ERROR;
4759: end if;
4760: elsif (l_party_type_cart_owner = 'PERSON') then
4761: OPEN c_get_party_type(p_party_id);
4762: FETCH c_get_party_type into l_party_type_recipient;
4770: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4771: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4772: FND_Msg_Pub.Add;
4773: END IF;
4774: x_valid_flag := FND_API.G_FALSE;
4775: RAISE FND_API.G_EXC_ERROR;
4776: end if;
4777: END IF; -- end person check
4778:
4771: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4772: FND_Msg_Pub.Add;
4773: END IF;
4774: x_valid_flag := FND_API.G_FALSE;
4775: RAISE FND_API.G_EXC_ERROR;
4776: end if;
4777: END IF; -- end person check
4778:
4779: if (x_valid_flag = FND_API.G_TRUE) then
4775: RAISE FND_API.G_EXC_ERROR;
4776: end if;
4777: END IF; -- end person check
4778:
4779: if (x_valid_flag = FND_API.G_TRUE) then
4780: -- if we passed validations then upgrade the share row with the partyid and accountid
4781: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4782: IBE_UTIL.DEBUG('Upgrading the share row with input partyid and accountid.');
4783: END IF;
5024: END Get_party_name;
5025:
5026: PROCEDURE Add_Attachment(
5027: p_api_version_number IN NUMBER
5028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5030: ,p_category_id IN VARCHAR2
5031: ,p_document_description IN VARCHAR2
5032: ,p_datatype_id IN VARCHAR2
5025:
5026: PROCEDURE Add_Attachment(
5027: p_api_version_number IN NUMBER
5028: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5029: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5030: ,p_category_id IN VARCHAR2
5031: ,p_document_description IN VARCHAR2
5032: ,p_datatype_id IN VARCHAR2
5033: ,p_text IN LONG
5035: ,p_url IN VARCHAR2
5036: ,p_function_name IN VARCHAR2 := null
5037: ,p_quote_header_id IN NUMBER
5038: ,p_media_id IN NUMBER
5039: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5036: ,p_function_name IN VARCHAR2 := null
5037: ,p_quote_header_id IN NUMBER
5038: ,p_media_id IN NUMBER
5039: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5044: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5037: ,p_quote_header_id IN NUMBER
5038: ,p_media_id IN NUMBER
5039: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5044: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5045: ,x_last_update_date OUT NOCOPY DATE
5038: ,p_media_id IN NUMBER
5039: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5044: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5045: ,x_last_update_date OUT NOCOPY DATE
5046: ,x_return_status OUT NOCOPY VARCHAR2
5039: ,p_party_id IN NUMBER := FND_API.G_MISS_NUM
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5044: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5045: ,x_last_update_date OUT NOCOPY DATE
5046: ,x_return_status OUT NOCOPY VARCHAR2
5047: ,x_msg_count OUT NOCOPY NUMBER
5040: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
5041: ,p_retrieval_number IN NUMBER := FND_API.G_MISS_NUM
5042: ,p_validate_user IN VARCHAR2 := FND_API.G_FALSE
5043: ,p_last_update_date IN DATE :=FND_API.G_MISS_DATE
5044: ,p_save_type IN NUMBER := FND_API.G_MISS_NUM
5045: ,x_last_update_date OUT NOCOPY DATE
5046: ,x_return_status OUT NOCOPY VARCHAR2
5047: ,x_msg_count OUT NOCOPY NUMBER
5048: ,x_msg_data OUT NOCOPY VARCHAR2
5060: -- Standard Start of API savepoint
5061: SAVEPOINT Add_Attachment;
5062:
5063: -- Standard call to check for call compatibility.
5064: IF NOT FND_API.Compatible_API_Call (l_api_version,
5065: P_Api_Version_Number,
5066: l_api_name,
5067: G_PKG_NAME )
5068: THEN
5065: P_Api_Version_Number,
5066: l_api_name,
5067: G_PKG_NAME )
5068: THEN
5069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5070: END IF;
5071:
5072: -- Initialize message list if p_init_msg_list is set to TRUE.
5073: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5070: END IF;
5071:
5072: -- Initialize message list if p_init_msg_list is set to TRUE.
5073: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5074: FND_Msg_Pub.initialize;
5075: END IF;
5076:
5077: -- Initialize API return status to success
5074: FND_Msg_Pub.initialize;
5075: END IF;
5076:
5077: -- Initialize API return status to success
5078: x_return_status := FND_API.G_RET_STS_SUCCESS;
5079:
5080: -- User Authentication
5081: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5082: IBE_Util.Debug('Call to Validate_User_Update');
5095: ,x_msg_count => x_msg_count
5096: ,x_msg_data => x_msg_data
5097: );
5098:
5099: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5100: RAISE FND_API.G_EXC_ERROR;
5101: END IF;
5102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5096: ,x_msg_data => x_msg_data
5097: );
5098:
5099: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5100: RAISE FND_API.G_EXC_ERROR;
5101: END IF;
5102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: END IF;
5098:
5099: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5100: RAISE FND_API.G_EXC_ERROR;
5101: END IF;
5102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: END IF;
5105:
5106:
5099: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5100: RAISE FND_API.G_EXC_ERROR;
5101: END IF;
5102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: END IF;
5105:
5106:
5107: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5132: ,x_return_status => x_return_status
5133: ,x_msg_count => x_msg_count
5134: ,x_msg_data => x_msg_data
5135: );
5136: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5137: RAISE FND_API.G_EXC_ERROR;
5138: END IF;
5139:
5140: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5133: ,x_msg_count => x_msg_count
5134: ,x_msg_data => x_msg_data
5135: );
5136: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5137: RAISE FND_API.G_EXC_ERROR;
5138: END IF;
5139:
5140: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5136: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5137: RAISE FND_API.G_EXC_ERROR;
5138: END IF;
5139:
5140: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5142: END IF;
5143:
5144: -- Standard call to get message count and if count is 1, get message info.
5137: RAISE FND_API.G_EXC_ERROR;
5138: END IF;
5139:
5140: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5142: END IF;
5143:
5144: -- Standard call to get message count and if count is 1, get message info.
5145: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5142: END IF;
5143:
5144: -- Standard call to get message count and if count is 1, get message info.
5145: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5146: p_count => x_msg_count ,
5147: p_data => x_msg_data);
5148:
5149: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5150: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Add_Attachment');
5151: END IF;
5152:
5153: EXCEPTION
5154: WHEN FND_API.G_EXC_ERROR THEN
5155: ROLLBACK TO Add_Attachment;
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5158: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5152:
5153: EXCEPTION
5154: WHEN FND_API.G_EXC_ERROR THEN
5155: ROLLBACK TO Add_Attachment;
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5158: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5159: p_count => x_msg_count ,
5160: p_data => x_msg_data);
5154: WHEN FND_API.G_EXC_ERROR THEN
5155: ROLLBACK TO Add_Attachment;
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5158: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5159: p_count => x_msg_count ,
5160: p_data => x_msg_data);
5161: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5162: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5161: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5162: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5163: END IF;
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: ROLLBACK TO Add_Attachment;
5167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5168: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5169: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5163: END IF;
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: ROLLBACK TO Add_Attachment;
5167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5168: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5169: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5170: p_count => x_msg_count ,
5171: p_data => x_msg_data);
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: ROLLBACK TO Add_Attachment;
5167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5168: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5169: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5170: p_count => x_msg_count ,
5171: p_data => x_msg_data);
5172: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5173: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5174: END IF;
5175:
5176: WHEN OTHERS THEN
5177: ROLLBACK TO Add_Attachment;
5178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5179:
5180: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5181: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5182: l_api_name);
5181: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5182: l_api_name);
5183: END IF;
5184:
5185: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5186: p_count => x_msg_count ,
5187: p_data => x_msg_data);
5188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5189: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5219: -- Standard Start of API savepoint
5220: SAVEPOINT Add_Attachment;
5221:
5222: -- Standard call to check for call compatibility.
5223: IF NOT FND_API.Compatible_API_Call (l_api_version,
5224: P_Api_Version_Number,
5225: l_api_name,
5226: G_PKG_NAME )
5227: THEN
5224: P_Api_Version_Number,
5225: l_api_name,
5226: G_PKG_NAME )
5227: THEN
5228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5229: END IF;
5230:
5231: -- Initialize message list if p_init_msg_list is set to TRUE.
5232: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5229: END IF;
5230:
5231: -- Initialize message list if p_init_msg_list is set to TRUE.
5232: IF FND_API.To_Boolean( p_init_msg_list ) THEN
5233: FND_Msg_Pub.initialize;
5234: END IF;
5235:
5236: -- Initialize API return status to success
5233: FND_Msg_Pub.initialize;
5234: END IF;
5235:
5236: -- Initialize API return status to success
5237: x_return_status := FND_API.G_RET_STS_SUCCESS;
5238:
5239: -- User Authentication
5240: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5241: IBE_Util.Debug('Call to Validate_User_Update');
5244: IBE_Quote_Misc_pvt.Validate_User_Update(
5245: p_quote_header_id => p_quote_header_id
5246: ,p_party_id => p_party_id
5247: ,p_cust_account_id => p_cust_account_id
5248: ,p_validate_user => FND_API.G_TRUE
5249: ,p_quote_retrieval_number => p_retrieval_number
5250: ,p_last_update_date => p_last_update_date
5251: ,x_return_status => x_return_status
5252: ,x_msg_count => x_msg_count
5252: ,x_msg_count => x_msg_count
5253: ,x_msg_data => x_msg_data
5254: );
5255:
5256: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5257: RAISE FND_API.G_EXC_ERROR;
5258: END IF;
5259: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5253: ,x_msg_data => x_msg_data
5254: );
5255:
5256: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5257: RAISE FND_API.G_EXC_ERROR;
5258: END IF;
5259: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5261: END IF;
5255:
5256: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5257: RAISE FND_API.G_EXC_ERROR;
5258: END IF;
5259: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5261: END IF;
5262:
5263:
5256: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5257: RAISE FND_API.G_EXC_ERROR;
5258: END IF;
5259: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5261: END IF;
5262:
5263:
5264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5277: ,x_msg_count => x_msg_count
5278: ,x_msg_data => x_msg_data
5279: );
5280:
5281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5282: RAISE FND_API.G_EXC_ERROR;
5283: END IF;
5284:
5285: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5278: ,x_msg_data => x_msg_data
5279: );
5280:
5281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5282: RAISE FND_API.G_EXC_ERROR;
5283: END IF;
5284:
5285: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5281: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5282: RAISE FND_API.G_EXC_ERROR;
5283: END IF;
5284:
5285: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: END IF;
5288:
5289: -- Standard call to get message count and if count is 1, get message info.
5282: RAISE FND_API.G_EXC_ERROR;
5283: END IF;
5284:
5285: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: END IF;
5288:
5289: -- Standard call to get message count and if count is 1, get message info.
5290: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: END IF;
5288:
5289: -- Standard call to get message count and if count is 1, get message info.
5290: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5291: p_count => x_msg_count ,
5292: p_data => x_msg_data);
5293:
5294: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5295: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Delete_Attachment');
5296: END IF;
5297:
5298: EXCEPTION
5299: WHEN FND_API.G_EXC_ERROR THEN
5300: ROLLBACK TO Add_Attachment;
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5302: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5303: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5297:
5298: EXCEPTION
5299: WHEN FND_API.G_EXC_ERROR THEN
5300: ROLLBACK TO Add_Attachment;
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5302: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5303: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5304: p_count => x_msg_count ,
5305: p_data => x_msg_data);
5299: WHEN FND_API.G_EXC_ERROR THEN
5300: ROLLBACK TO Add_Attachment;
5301: x_return_status := FND_API.G_RET_STS_ERROR;
5302: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5303: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5304: p_count => x_msg_count ,
5305: p_data => x_msg_data);
5306: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5307: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5306: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5307: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5308: END IF;
5309:
5310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5311: ROLLBACK TO Add_Attachment;
5312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5313: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5314: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5308: END IF;
5309:
5310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5311: ROLLBACK TO Add_Attachment;
5312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5313: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5314: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5315: p_count => x_msg_count ,
5316: p_data => x_msg_data);
5310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5311: ROLLBACK TO Add_Attachment;
5312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5313: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5314: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5315: p_count => x_msg_count ,
5316: p_data => x_msg_data);
5317: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5318: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5319: END IF;
5320:
5321: WHEN OTHERS THEN
5322: ROLLBACK TO Add_Attachment;
5323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5324:
5325: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
5326: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5327: l_api_name);
5326: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
5327: l_api_name);
5328: END IF;
5329:
5330: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5331: p_count => x_msg_count ,
5332: p_data => x_msg_data);
5333: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5334: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');