[Home] [Help]
48: exit when c_get_quote_details%notfound;
49: END LOOP;
50:
51: IF (nvl(trunc(l_expiration_date), trunc(sysdate)+1) < trunc(sysdate)) THEN
52: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
53:
54: IBE_Util.Debug('is_quote_usable: Quote: '||p_quote_header_id||' has expired');
55: IBE_Util.Debug('Expiration date for the quote is: '||to_char(l_expiration_date,'mm-dd-yyyy:hh24:mi:ss'));
56: END IF;
50:
51: IF (nvl(trunc(l_expiration_date), trunc(sysdate)+1) < trunc(sysdate)) THEN
52: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
53:
54: IBE_Util.Debug('is_quote_usable: Quote: '||p_quote_header_id||' has expired');
55: IBE_Util.Debug('Expiration date for the quote is: '||to_char(l_expiration_date,'mm-dd-yyyy:hh24:mi:ss'));
56: END IF;
57: FOR rec_find_active_cart in c_find_active_cart(p_quote_header_id,
58: p_party_id,
51: IF (nvl(trunc(l_expiration_date), trunc(sysdate)+1) < trunc(sysdate)) THEN
52: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
53:
54: IBE_Util.Debug('is_quote_usable: Quote: '||p_quote_header_id||' has expired');
55: IBE_Util.Debug('Expiration date for the quote is: '||to_char(l_expiration_date,'mm-dd-yyyy:hh24:mi:ss'));
56: END IF;
57: FOR rec_find_active_cart in c_find_active_cart(p_quote_header_id,
58: p_party_id,
59: p_cust_account_id) LOOP
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:
94: ROLLBACK TO is_quote_usable;
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:
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
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;
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;
104: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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
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;
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
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)
140: IS
141: l_quote_header_id NUMBER := NULL;
142: l_is_quote_usable VARCHAR2(1) ;
143: BEGIN
144: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
145: IBE_Util.Debug(' Querying active quote id for partyid: ' || p_party_id || ' and acctid: ' || p_cust_account_id);
146: END IF;
147:
148: --MANNAMRA:09/22/02: Changed this query to get the active quote id from
141: l_quote_header_id NUMBER := NULL;
142: l_is_quote_usable VARCHAR2(1) ;
143: BEGIN
144: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
145: IBE_Util.Debug(' Querying active quote id for partyid: ' || p_party_id || ' and acctid: ' || p_cust_account_id);
146: END IF;
147:
148: --MANNAMRA:09/22/02: Changed this query to get the active quote id from
149: --active_quotes table(single source of truth for active quotes)
154: where party_id = p_party_id
155: and cust_account_id = p_cust_account_id
156: and record_type = 'CART';
157:
158: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
159: IBE_Util.Debug(' Querying found: ' || l_quote_header_id);
160: END IF;
161:
162: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
155: and cust_account_id = p_cust_account_id
156: and record_type = 'CART';
157:
158: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
159: IBE_Util.Debug(' Querying found: ' || l_quote_header_id);
160: END IF;
161:
162: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
163: IBE_Util.Debug('get_active_qute_id: checking to see the usability of above quote');
158: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
159: IBE_Util.Debug(' Querying found: ' || l_quote_header_id);
160: END IF;
161:
162: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
163: IBE_Util.Debug('get_active_qute_id: checking to see the usability of above quote');
164: END IF;
165:
166: IF(l_quote_header_id is not null) THEN
159: IBE_Util.Debug(' Querying found: ' || l_quote_header_id);
160: END IF;
161:
162: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
163: IBE_Util.Debug('get_active_qute_id: checking to see the usability of above quote');
164: END IF;
165:
166: IF(l_quote_header_id is not null) THEN
167: l_is_quote_usable := is_quote_usable(l_quote_header_id,
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;
175: END IF;
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;
175: END IF;
176: END IF;
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');
276: END IF;
277:
278: OPEN c_getLastUpdateDate(p_quote_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');
276: END IF;
277:
278: OPEN c_getLastUpdateDate(p_quote_header_id);
279: FETCH c_getLastUpdateDate into l_last_update_date;
278: OPEN c_getLastUpdateDate(p_quote_header_id);
279: FETCH c_getLastUpdateDate into l_last_update_date;
280: CLOSE c_getLastUpdateDate;
281:
282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
283: IBE_UTIL.Debug('getQuoteLastUpdateDate: ends');
284: END IF;
285:
286: RETURN l_last_update_date;
279: FETCH c_getLastUpdateDate into l_last_update_date;
280: CLOSE c_getLastUpdateDate;
281:
282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
283: IBE_UTIL.Debug('getQuoteLastUpdateDate: ends');
284: END IF;
285:
286: RETURN l_last_update_date;
287: END getQuoteLastUpdateDate;
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;
2081: x_return_status := FND_API.G_RET_STS_ERROR;
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;
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
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;
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;
2091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2094: p_data => x_msg_data);
2095:
2096: WHEN OTHERS THEN
2097:
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;
2095:
2096: WHEN OTHERS THEN
2097:
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
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:
2186: ROLLBACK to getQuoteOwner_pvt;
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:
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
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;
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;
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;
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
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;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
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;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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;
2308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2309: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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
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;
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
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
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(+)...');
2380: END IF;
2381:
2382: l_count := p_cust_item_number_tbl.COUNT;
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(+)...');
2380: END IF;
2381:
2382: l_count := p_cust_item_number_tbl.COUNT;
2383:
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
2444: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2445: END IF;
2446: EXCEPTION
2447: WHEN FND_API.G_EXC_ERROR THEN
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
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;
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2588: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2588: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2589: END IF;
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2588: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2589: END IF;
2590:
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);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
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();
2584: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2585: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2586: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2587: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
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
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
2631: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
2631: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2632: IBE_UTIL.debug('get recipient info based on retrieval number');
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
2635: l_end_date_active := rec_retrieval_number.end_date_active;
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
2635: l_end_date_active := rec_retrieval_number.end_date_active;
2636: l_recipient_id := rec_retrieval_number.quote_sharee_id;
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;
2646: l_exp_quote_header_id := l_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;
2646: l_exp_quote_header_id := l_quote_header_id;
2647: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
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;
2646: l_exp_quote_header_id := l_quote_header_id;
2647: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
2648: L_resource_id := rec_cart_columns.resource_id;
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
2668: l_end_date_active := rec_recipient_no_retnum.end_date_active;
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
2668: l_end_date_active := rec_recipient_no_retnum.end_date_active;
2669: l_recipient_id := rec_recipient_no_retnum.quote_sharee_id;
2671: exit when c_retrieval_number%NOTFOUND;
2672: end loop;
2673: end if;
2674:
2675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2676: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2677: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2678: IBE_UTIL.debug('l_access_code: '||l_access_code);
2679: end if;
2672: end loop;
2673: end if;
2674:
2675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2676: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2677: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2678: IBE_UTIL.debug('l_access_code: '||l_access_code);
2679: end if;
2680:
2673: end if;
2674:
2675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2676: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
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
2674:
2675: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2676: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
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
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;
2686: if(table_counter = 1) then
2687: x_reason_code.extend();
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;
2686: if(table_counter = 1) then
2687: x_reason_code.extend();
2688: X_reason_code(table_counter) := 'IBE_SC_INVALID_RETRIEVAL_NUM';
2689: Table_counter := table_counter+1;
2690: end if;
2691:
2692: Elsif (l_recipient_id is NULL) then
2693: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2694: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2695: END IF;
2696: if(table_counter = 1) then
2697: x_reason_code.extend();
2690: end if;
2691:
2692: Elsif (l_recipient_id is NULL) then
2693: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2694: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2695: END IF;
2696: if(table_counter = 1) then
2697: x_reason_code.extend();
2698: X_reason_code(table_counter) := 'IBE_SC_ERR_PRIVILEGE';
2702: Elsif ((p_access_level = L_UPDATE) or (p_access_level = L_FULL)) then
2703: -- if a certain access level was passed in, then see if the db access level is sufficient
2704: if (p_access_level = L_UPDATE and (l_access_code <> 'F' or l_access_code <> 'A')) or
2705: (p_access_level = L_FULL and (l_access_code <> 'A')) then
2706: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2707: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2708: END IF;
2709: if(table_counter = 1) then
2710: x_reason_code.extend();
2703: -- if a certain access level was passed in, then see if the db access level is sufficient
2704: if (p_access_level = L_UPDATE and (l_access_code <> 'F' or l_access_code <> 'A')) or
2705: (p_access_level = L_FULL and (l_access_code <> 'A')) then
2706: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2707: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2708: END IF;
2709: if(table_counter = 1) then
2710: x_reason_code.extend();
2711: X_reason_code(table_counter) := 'IBE_SC_ERR_PRIVILEGE';
2713: end if;
2714: end if;
2715:
2716: Elsif (Upper(l_status_code) = 'INACTIVE') then
2717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2718: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2719: END IF;
2720: if(table_counter = 1) then
2721: x_reason_code.extend();
2714: end if;
2715:
2716: Elsif (Upper(l_status_code) = 'INACTIVE') then
2717: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2718: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2719: END IF;
2720: if(table_counter = 1) then
2721: x_reason_code.extend();
2722: X_reason_code(table_counter) := 'IBE_SC_CART_DELETED';
2723: Table_counter := table_counter+1;
2724: end if;
2725:
2726: Elsif (l_order_id is NOT NULL) then
2727: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2728: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_ORDERED');
2729: END IF;
2730: if(table_counter = 1) then
2731: x_reason_code.extend();
2724: end if;
2725:
2726: Elsif (l_order_id is NOT NULL) then
2727: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2728: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_ORDERED');
2729: END IF;
2730: if(table_counter = 1) then
2731: x_reason_code.extend();
2732: X_reason_code(table_counter) := 'IBE_SC_CART_ORDERED';
2735:
2736: Elsif ((l_end_date_active is NOT NULL and l_end_date_active < sysdate) or
2737: (l_recipient_id is NULL)) then
2738: -- if the row has been end dated or we were unable to find a recip row by party, acct, and cart
2739: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2740: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_USERACCESS');
2741: END IF;
2742: if(table_counter = 1) then
2743: x_reason_code.extend();
2736: Elsif ((l_end_date_active is NOT NULL and l_end_date_active < sysdate) or
2737: (l_recipient_id is NULL)) then
2738: -- if the row has been end dated or we were unable to find a recip row by party, acct, and cart
2739: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2740: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_USERACCESS');
2741: END IF;
2742: if(table_counter = 1) then
2743: x_reason_code.extend();
2744: X_reason_code(table_counter) := 'IBE_SC_ERR_USERACCESS';
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;
2760: if(table_counter = 1) then
2761: x_reason_code.extend();
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;
2760: if(table_counter = 1) then
2761: x_reason_code.extend();
2762: X_reason_code(table_counter) := 'IBE_SC_CART_EXPIRED';
2763: Table_counter := table_counter+1;
2764: end if;
2765: End if;
2766: If(l_max_version_flag = 'N') then
2767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2768: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_MAX_VER_FLAG_N');
2769: END IF;
2770: if(table_counter = 1) then
2771: x_reason_code.extend();
2764: end if;
2765: End if;
2766: If(l_max_version_flag = 'N') then
2767: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2768: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_MAX_VER_FLAG_N');
2769: END IF;
2770: if(table_counter = 1) then
2771: x_reason_code.extend();
2772: X_reason_code(table_counter) := 'IBE_SC_QUOTE_MAX_VER_FLAG_N';
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
2782: x_reason_code.extend();
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
2782: x_reason_code.extend();
2783: X_reason_code(Table_counter) := 'IBE_SC_CART_HAS_RESOURCEID';
2785: end if;
2786: End If;
2787: --Status code 28 is for "store draft"
2788: If (upper(l_status_code) <> 'STORE DRAFT') then
2789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2790: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2791: END IF;
2792: if(table_counter = 1) then
2793: x_reason_code.extend();
2786: End If;
2787: --Status code 28 is for "store draft"
2788: If (upper(l_status_code) <> 'STORE DRAFT') then
2789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2790: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2791: END IF;
2792: if(table_counter = 1) then
2793: x_reason_code.extend();
2794: X_reason_code(Table_counter ) := 'IBE_SC_INVALID_CART_STS';
2796: end if;
2797: End if;
2798:
2799: If(l_publish_flag <> 'F') then
2800: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2801: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_NOT_PUBL');
2802: END IF;
2803: if(table_counter = 1) then
2804: x_reason_code.extend();
2797: End if;
2798:
2799: If(l_publish_flag <> 'F') then
2800: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2801: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_NOT_PUBL');
2802: END IF;
2803: if(table_counter = 1) then
2804: x_reason_code.extend();
2805: X_reason_code(Table_counter) := 'IBE_SC_CART_NOT_PUBL';
2807: end if;
2808: End if;
2809: Elsif(p_load_type = L_QUOTE_LOAD_TYPE) then
2810: If (l_resource_id is null) then
2811: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2812: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NEEDS_RESOURCEID');
2813: END IF;
2814: if(table_counter = 1) then
2815: x_reason_code.extend();
2808: End if;
2809: Elsif(p_load_type = L_QUOTE_LOAD_TYPE) then
2810: If (l_resource_id is null) then
2811: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2812: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NEEDS_RESOURCEID');
2813: END IF;
2814: if(table_counter = 1) then
2815: x_reason_code.extend();
2816: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NEEDS_RESOURCEID';
2817: Table_counter := table_counter+1;
2818: end if;
2819: End If;
2820: If (l_status_code = 'INACTIVE') then
2821: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2822: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_INACTIVE');
2823: END IF;
2824: if(table_counter = 1) then
2825: x_reason_code.extend();
2818: end if;
2819: End If;
2820: If (l_status_code = 'INACTIVE') then
2821: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2822: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_INACTIVE');
2823: END IF;
2824: if(table_counter = 1) then
2825: x_reason_code.extend();
2826: X_reason_code(table_counter) := 'IBE_SC_QUOTE_INACTIVE';
2827: Table_counter := table_counter+1;
2828: end if;
2829: End If;
2830: If(l_publish_flag <> 'T') then
2831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2832: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2833: END IF;
2834: if(table_counter = 1) then
2835: x_reason_code.extend();
2828: end if;
2829: End If;
2830: If(l_publish_flag <> 'T') then
2831: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2832: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2833: END IF;
2834: if(table_counter = 1) then
2835: x_reason_code.extend();
2836: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NOT_PUBL';
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');
2846: END IF;
2847: if(table_counter = 1) then
2848: x_reason_code.extend();
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');
2846: END IF;
2847: if(table_counter = 1) then
2848: x_reason_code.extend();
2849: X_reason_code(Table_counter):= 'IBE_SC_INVALID_QUOTE_STS';
2850: Table_counter := table_counter+1;
2851: end if;
2852: End if;
2853: If(l_publish_flag <> 'T') then
2854: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2855: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2856: END IF;
2857: if(table_counter = 1) then
2858: x_reason_code.extend();
2851: end if;
2852: End if;
2853: If(l_publish_flag <> 'T') then
2854: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2855: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2856: END IF;
2857: if(table_counter = 1) then
2858: x_reason_code.extend();
2859: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NOT_PUBL';
2861: end if;
2862: End if;
2863: Else -- for a cart, check for 'STORE DRAFT' (if the loadType is load_forupdate, status has to be 'STORE DRAFT')
2864: If (l_status_code <> 'STORE DRAFT') Then
2865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2866: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2867: END IF;
2868: if(table_counter = 1) then
2869: x_reason_code.extend();
2862: End if;
2863: Else -- for a cart, check for 'STORE DRAFT' (if the loadType is load_forupdate, status has to be 'STORE DRAFT')
2864: If (l_status_code <> 'STORE DRAFT') Then
2865: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2866: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2867: END IF;
2868: if(table_counter = 1) then
2869: x_reason_code.extend();
2870: X_reason_code(Table_counter):= 'IBE_SC_INVALID_CART_STS';
2875: End if;
2876: --load error for one click orders.
2877: If(p_load_type = L_LOAD_EXPRESSORDER) Then
2878: If(l_quote_name = l_exp_quote_header_id) Then
2879: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2880: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2881: END IF;
2882: if(table_counter = 1) then
2883: x_reason_code.extend();
2876: --load error for one click orders.
2877: If(p_load_type = L_LOAD_EXPRESSORDER) Then
2878: If(l_quote_name = l_exp_quote_header_id) Then
2879: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2880: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2881: END IF;
2882: if(table_counter = 1) then
2883: x_reason_code.extend();
2884: X_reason_code(table_counter) := 'IBE_SC_CART_DELETED';
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;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
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;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
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;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2915: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
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
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;
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
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
2992: x_last_update_date := Rec_get_quote_id.last_update_date;
2993: exit when c_get_quote_id%notfound;
2994: end loop;
2995:
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
2993: exit when c_get_quote_id%notfound;
2994: end loop;
2995:
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;
3011:
3012:
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;
3021: ( p_count => x_msg_count,
3022: p_data => x_msg_data
3023: );
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;
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
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
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
3094: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3095: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3096: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3097: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
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
3094: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3095: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3096: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3097: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3098: END IF;
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
3094: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3095: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3096: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3097: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3098: END IF;
3099:
3092:
3093: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3094: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3095: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3096: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3097: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3098: END IF;
3099:
3100: --ER#4025142
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'
3118: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3119: END IF;
3120:
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'
3118: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3119: END IF;
3120:
3121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3117: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3118: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3119: END IF;
3120:
3121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3122: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3123: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3124: END IF;
3125:
3118: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3119: END IF;
3120:
3121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3122: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3123: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3124: END IF;
3125:
3126: -- update all other dtl table
3119: END IF;
3120:
3121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3122: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3123: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3124: END IF;
3125:
3126: -- update all other dtl table
3127: FOR j in 1..px_qte_line_dtl_tbl.COUNT LOOP
3134: END IF;
3135: END LOOP;
3136: -- End of API body.
3137:
3138: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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.
3135: END LOOP;
3136: -- End of API body.
3137:
3138: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
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;
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;
3152: x_return_status := FND_API.G_RET_STS_ERROR;
3153: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3162: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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
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;
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
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:
3227: l_warranty_tbl ASO_SERVICE_CONTRACTS_INT.War_tbl_type;
3228: l_count NUMBER;
3229: BEGIN
3230:
3231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3232: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3233: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3234: p_product_item_id || ']');
3235: END IF;
3228: l_count NUMBER;
3229: BEGIN
3230:
3231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3232: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3233: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3234: p_product_item_id || ']');
3235: END IF;
3236:
3229: BEGIN
3230:
3231: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3232: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3233: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3234: p_product_item_id || ']');
3235: END IF;
3236:
3237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3233: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3234: p_product_item_id || ']');
3235: END IF;
3236:
3237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3238: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Starts');
3239: END IF;
3240: ASO_SERVICE_CONTRACTS_INT.Get_Warranty(
3241: p_api_version_number => p_api_version_number,
3234: p_product_item_id || ']');
3235: END IF;
3236:
3237: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3238: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Starts');
3239: END IF;
3240: ASO_SERVICE_CONTRACTS_INT.Get_Warranty(
3241: p_api_version_number => p_api_version_number,
3242: p_init_msg_list => p_init_msg_list,
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);
3256: END IF;
3257:
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);
3256: END IF;
3257:
3258: x_service_item_ids := JTF_NUMBER_TABLE();
3264: END LOOP;
3265: END IF;
3266: END IF;
3267:
3268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3269: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3270: END IF;
3271:
3272: END Get_Included_Warranties;
3265: END IF;
3266: END IF;
3267:
3268: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3269: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3270: END IF;
3271:
3272: END Get_Included_Warranties;
3273:
3288: l_orderable_Service_tbl ASO_SERVICE_CONTRACTS_INT.order_service_tbl_type;
3289: l_count NUMBER;
3290: BEGIN
3291:
3292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3293: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3294: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3295: p_customer_id || ', ' || p_product_revision || ', ' ||
3296: p_request_date || ']');
3289: l_count NUMBER;
3290: BEGIN
3291:
3292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3293: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3294: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3295: p_customer_id || ', ' || p_product_revision || ', ' ||
3296: p_request_date || ']');
3297: END IF;
3290: BEGIN
3291:
3292: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3293: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3294: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3295: p_customer_id || ', ' || p_product_revision || ', ' ||
3296: p_request_date || ']');
3297: END IF;
3298:
3301: l_avail_service_rec.customer_id := p_customer_id;
3302: l_avail_service_rec.product_revision := p_product_revision;
3303: l_avail_service_rec.request_date := p_request_date;
3304:
3305: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3306: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Starts');
3307: END IF;
3308: ASO_SERVICE_CONTRACTS_INT.Available_Services(
3309: p_api_version_number => p_api_version_number,
3302: l_avail_service_rec.product_revision := p_product_revision;
3303: l_avail_service_rec.request_date := p_request_date;
3304:
3305: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3306: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Starts');
3307: END IF;
3308: ASO_SERVICE_CONTRACTS_INT.Available_Services(
3309: p_api_version_number => p_api_version_number,
3310: p_init_msg_list => p_init_msg_list,
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
3327: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Finishes ' || x_return_status || ' ' ||
3328: 'x_orderable_service_tbl.COUNT=' || l_count);
3329: END IF;
3330:
3323: END IF;
3324:
3325: l_count := l_orderable_service_tbl.COUNT;
3326: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3327: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Finishes ' || x_return_status || ' ' ||
3328: 'x_orderable_service_tbl.COUNT=' || l_count);
3329: END IF;
3330:
3331: x_service_item_ids := JTF_NUMBER_TABLE();
3336: x_service_item_ids(i) := l_orderable_service_tbl(i).service_item_id;
3337: END LOOP;
3338: END IF;
3339:
3340: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3341: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3342: END IF;
3343:
3344: END Get_Available_Services;
3337: END LOOP;
3338: END IF;
3339:
3340: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3341: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3342: END IF;
3343:
3344: END Get_Available_Services;
3345:
3415:
3416: l_initial_count := x_qte_line_tbl.COUNT + 1;
3417: x_qte_line_tbl(l_initial_count) := IBE_Quote_Misc_pvt.getLineRec(p_qte_line_id);
3418:
3419: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3420: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3421: END IF;
3422: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3416: l_initial_count := x_qte_line_tbl.COUNT + 1;
3417: x_qte_line_tbl(l_initial_count) := IBE_Quote_Misc_pvt.getLineRec(p_qte_line_id);
3418:
3419: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3420: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3421: END IF;
3422: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3424: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3419: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3420: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3421: END IF;
3422: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3424: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3425: END IF;
3426: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3427: END LOOP;
3420: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3421: END IF;
3422: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3424: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3425: END IF;
3426: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3427: END LOOP;
3428:
3426: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3427: END LOOP;
3428:
3429:
3430: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3431: ibe_util.debug('line number is='|| x_qte_line_tbl.count);
3432: END IF;
3433: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3434:
3427: END LOOP;
3428:
3429:
3430: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3431: ibe_util.debug('line number is='|| x_qte_line_tbl.count);
3432: END IF;
3433: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3434:
3435: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3433: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3434:
3435: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3436: (x_qte_line_tbl(i).quote_line_id);
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
3434:
3435: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3436: (x_qte_line_tbl(i).quote_line_id);
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
3452: END LOOP;
3453:
3454:
3455: l_line_rltship_tbl := IBE_Quote_Misc_pvt.getlineRelationshipTbl(x_qte_line_tbl(i).quote_line_id);
3456: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3457: IBE_UTIL.Debug(' Processing LineRelationshipTbl Count=' || l_line_rltship_tbl.COUNT);
3458: END IF;
3459:
3460: FOR j IN 1..l_line_rltship_tbl.COUNT LOOP
3453:
3454:
3455: l_line_rltship_tbl := IBE_Quote_Misc_pvt.getlineRelationshipTbl(x_qte_line_tbl(i).quote_line_id);
3456: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3457: IBE_UTIL.Debug(' Processing LineRelationshipTbl Count=' || l_line_rltship_tbl.COUNT);
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
3467: := IBE_Quote_Misc_pvt.getLineIndexFromLineId
3468: ( l_line_rltship_tbl(j).related_quote_line_id
3469: ,x_qte_line_tbl
3470: );
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;
3468: ( l_line_rltship_tbl(j).related_quote_line_id
3469: ,x_qte_line_tbl
3470: );
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;
3482:
3483:
3484: l_line_attr_ext_tbl := IBE_Quote_Misc_pvt.getLineAttrExtTbl
3485: (x_qte_line_tbl(i).quote_line_id);
3486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
3483:
3484: l_line_attr_ext_tbl := IBE_Quote_Misc_pvt.getLineAttrExtTbl
3485: (x_qte_line_tbl(i).quote_line_id);
3486: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
3498: END LOOP;
3499:
3500: l_ln_price_attributes_tbl := IBE_Quote_Misc_pvt.getlinePrcAttrTbl
3501: (x_qte_line_tbl(i).quote_line_id);
3502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
3499:
3500: l_ln_price_attributes_tbl := IBE_Quote_Misc_pvt.getlinePrcAttrTbl
3501: (x_qte_line_tbl(i).quote_line_id);
3502: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
3515:
3516: l_ln_price_adj_tbl := getHdrPrcAdjNonPRGTbl
3517: (p_qte_header_id => p_quote_header_id,
3518: p_qte_line_id => x_qte_line_tbl(i).quote_line_id);
3519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
3516: l_ln_price_adj_tbl := getHdrPrcAdjNonPRGTbl
3517: (p_qte_header_id => p_quote_header_id,
3518: p_qte_line_id => x_qte_line_tbl(i).quote_line_id);
3519: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
3544: = 'MDL' THEN
3545: l_old_config_hdr_id := x_qte_line_dtl_tbl(i).config_header_id;
3546: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3547:
3548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3549: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3550: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3551: END IF;
3552:
3545: l_old_config_hdr_id := x_qte_line_dtl_tbl(i).config_header_id;
3546: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3547:
3548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3549: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3550: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3551: END IF;
3552:
3553:
3546: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3547:
3548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3549: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3550: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3551: END IF;
3552:
3553:
3554: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3550: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3551: END IF;
3552:
3553:
3554: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3555: IBE_UTIL.debug('call CZ_CONFIG_API_PUB.copy_configuration at'
3556: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3557: END IF;
3558:
3551: END IF;
3552:
3553:
3554: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3555: IBE_UTIL.debug('call CZ_CONFIG_API_PUB.copy_configuration at'
3556: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3557: END IF;
3558:
3559: --ER#4025142
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575:
3576: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3577: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3578: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3579: END IF;
3580:
3573: END IF;
3574:
3575:
3576: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3577: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3578: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3579: END IF;
3580:
3581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3577: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3578: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3579: END IF;
3580:
3581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3582: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3583: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3584: END IF;
3585:
3578: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3579: END IF;
3580:
3581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3582: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3583: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3584: END IF;
3585:
3586: -- update all other dtl table
3579: END IF;
3580:
3581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3582: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3583: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3584: END IF;
3585:
3586: -- update all other dtl table
3587: FOR j in l_initial_dtl_count..x_qte_line_dtl_tbl.COUNT LOOP
3594: END LOOP;
3595: END IF;
3596: END LOOP;
3597:
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
3595: END IF;
3596: END LOOP;
3597:
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;
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:
3616: ROLLBACK TO DUPLICATE_LINE_PVT;
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:
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
3623: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3624: END IF;
3625:
3626: ROLLBACK TO DUPLICATE_LINE_PVT;
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:
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;
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;
3907:
3908:
3909: IF p_quantities IS NOT NULL THEN
3910:
3911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3912: IBE_UTIL.Debug('Validating User Starts: Also Pquantities is not null');
3913: END IF;
3914:
3915: /* -- 4587019
3908:
3909: IF p_quantities IS NOT NULL THEN
3910:
3911: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3912: IBE_UTIL.Debug('Validating User Starts: Also Pquantities is not null');
3913: END IF;
3914:
3915: /* -- 4587019
3916: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
3915: /* -- 4587019
3916: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
3917:
3918: IF (l_last_update_date <> p_last_update_date) then
3919: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3920: IBE_UTIL.Debug('comparing dates');
3921: END IF;
3922: p_last_update_date := l_last_update_date;
3923: -- raise error
3916: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
3917:
3918: IF (l_last_update_date <> p_last_update_date) then
3919: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3920: IBE_UTIL.Debug('comparing dates');
3921: END IF;
3922: p_last_update_date := l_last_update_date;
3923: -- raise error
3924:
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');
3956: END IF;
3957:
3958: l_qte_header_rec.quote_header_id := p_quote_header_id;
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');
3956: END IF;
3957:
3958: l_qte_header_rec.quote_header_id := p_quote_header_id;
3959: l_qte_header_rec.last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
3960: l_qte_line_rec.quote_line_id := p_qte_line_id;
3961: l_qte_line_count := l_qte_line_tbl.COUNT;
3962:
3963: For counter in 1.. p_quantities.count loop
3964: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3965: IBE_UTIL.Debug('p_quantities(counter) '||p_quantities(counter));
3966: END IF;
3967: End loop;
3968:
3961: l_qte_line_count := l_qte_line_tbl.COUNT;
3962:
3963: For counter in 1.. p_quantities.count loop
3964: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3965: IBE_UTIL.Debug('p_quantities(counter) '||p_quantities(counter));
3966: END IF;
3967: End loop;
3968:
3969: For counter in 1.. p_quantities.count loop
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 (
3982: P_Api_Version_Number => 1.0,
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 (
3982: P_Api_Version_Number => 1.0,
3983: P_Init_Msg_List => FND_API.G_TRUE,
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;
4002: END IF;
4003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
4002: END IF;
4003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4004: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
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;
4002: 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
4000: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4001: END IF;
4002: 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;
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;
4020: x_return_status := FND_API.G_RET_STS_ERROR;
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;
4020: x_return_status := FND_API.G_RET_STS_ERROR;
4021: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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;
4029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
4029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4030: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
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
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;
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
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
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;
4105: fetch c_get_quote_details into l_resource_id,
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;
4105: fetch c_get_quote_details into l_resource_id,
4106: l_publish_flag,
4110: l_source_code;
4111: close c_get_quote_details;
4112:
4113: IF l_resource_id is not null and nvl(l_publish_flag,'N')='N' THEN
4114: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4115: IBE_UTIL.DEBUG('Validate_quote, quote is unpublished' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4116: END IF;
4117:
4118: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4111: close c_get_quote_details;
4112:
4113: IF l_resource_id is not null and nvl(l_publish_flag,'N')='N' THEN
4114: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4115: IBE_UTIL.DEBUG('Validate_quote, quote is unpublished' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4116: END IF;
4117:
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');
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
4159: IBE_UTIL.DEBUG('Validate_quote: Validation for one-click start');
4160: END IF;
4161: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4162: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4155: END IF;
4156: END IF;
4157: END IF;
4158: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4159: IBE_UTIL.DEBUG('Validate_quote: Validation for one-click start');
4160: END IF;
4161: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4162: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4163: AND (l_source_code <> 'IStore Oneclick')) THEN
4160: END IF;
4161: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4162: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4163: AND (l_source_code <> 'IStore Oneclick')) THEN
4164: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4165: IBE_UTIL.DEBUG('Validate_quote: Oneclick operation on a non-oneclick cart');
4166: END IF;
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
4161: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4162: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4163: AND (l_source_code <> 'IStore Oneclick')) THEN
4164: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4165: IBE_UTIL.DEBUG('Validate_quote: Oneclick operation on a non-oneclick cart');
4166: END IF;
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;
4172: ELSE
4173: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4174: AND (l_source_code = 'IStore Oneclick')) THEN
4175:
4176: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4177: IBE_UTIL.DEBUG('Validate_quote: Non-Oneclick operation on a oneclick cart');
4178: END IF;
4179:
4180: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4173: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4174: AND (l_source_code = 'IStore Oneclick')) THEN
4175:
4176: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4177: IBE_UTIL.DEBUG('Validate_quote: Non-Oneclick operation on a oneclick cart');
4178: END IF;
4179:
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');
4192: l_party_id,
4193: l_cust_account_id) LOOP
4194: l_active_cart := rec_get_active_cart.quote_header_id;
4195: IF (l_active_cart is not null) THEN
4196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4197: IBE_UTIL.DEBUG('Validate_quote, active cart found, deactivate it' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4198: END IF;
4199:
4200: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
4193: l_cust_account_id) LOOP
4194: l_active_cart := rec_get_active_cart.quote_header_id;
4195: IF (l_active_cart is not null) THEN
4196: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4197: IBE_UTIL.DEBUG('Validate_quote, active cart found, deactivate it' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4198: END IF;
4199:
4200: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
4201: P_Quote_header_id => p_quote_header_id,
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
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
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');
4238: END IF;
4239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4240: ROLLBACK TO validate_quote;
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');
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;
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');
4247: END IF;
4248: WHEN OTHERS THEN
4249: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
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');
4247: END IF;
4248: WHEN OTHERS THEN
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,
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');
4258: END IF;
4259: END validate_quote;
4260:
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');
4258: END IF;
4259: END validate_quote;
4260:
4261: PROCEDURE Validate_User_Update(
4357: rec_ActiveCartType_info c_getActiveCartTypeInfo%rowtype;
4358:
4359: BEGIN
4360:
4361: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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.
4358:
4359: BEGIN
4360:
4361: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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,
4381: x_return_status := FND_API.G_RET_STS_SUCCESS;
4382:
4383: -- API body
4384:
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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);
4382:
4383: -- API body
4384:
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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);
4383: -- API body
4384:
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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;
4384:
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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
4385: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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:
4386: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4387: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
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
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;
4397:
4398: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
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;
4397:
4398: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4399:
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;
4403:
4404: OPEN c_getShareeInfo;
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;
4403:
4404: OPEN c_getShareeInfo;
4405: FETCH c_getShareeInfo INTO rec_sharee_info;
4404: OPEN c_getShareeInfo;
4405: FETCH c_getShareeInfo INTO rec_sharee_info;
4406: CLOSE c_getShareeInfo;
4407:
4408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4409: IBE_UTIL.DEBUG('rec_sharee_info.quote_header_id : '||rec_sharee_info.quote_header_id);
4410: END IF;
4411:
4412: IF ((rec_sharee_info.quote_header_id is null) OR
4405: FETCH c_getShareeInfo INTO rec_sharee_info;
4406: CLOSE c_getShareeInfo;
4407:
4408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4409: IBE_UTIL.DEBUG('rec_sharee_info.quote_header_id : '||rec_sharee_info.quote_header_id);
4410: END IF;
4411:
4412: IF ((rec_sharee_info.quote_header_id is null) OR
4413: (nvl(rec_sharee_info.end_date_active,sysdate+1) <= sysdate)) then
4414: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4415: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4416: FND_Msg_Pub.Add;
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;
4415: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4416: FND_Msg_Pub.Add;
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:
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);
4426: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4427: END IF;
4428:
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);
4426: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4427: END IF;
4428:
4429:
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);
4426: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4427: END IF;
4428:
4429:
4430: -- if we have party and acct passed in AND in the table 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;
4440: END IF;
4441: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
4438: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4439: FND_Msg_Pub.Add;
4440: END IF;
4441: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
4439: FND_Msg_Pub.Add;
4440: END IF;
4441: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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;
4440: END IF;
4441: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
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;
4457: upgrade_recipient_row(
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;
4457: upgrade_recipient_row(
4458: p_party_id => p_party_id,
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;
4457: upgrade_recipient_row(
4458: p_party_id => p_party_id,
4459: p_cust_account_id => p_cust_account_id,
4467: END IF;
4468: end if;
4469: end if;
4470:
4471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4472: IBE_UTIL.DEBUG('rec_sharee_info.update_privilege_type_code : '||rec_sharee_info.update_privilege_type_code);
4473: END IF;
4474:
4475: --Skip this validation for Duplicate Action
4468: end if;
4469: end if;
4470:
4471: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4472: IBE_UTIL.DEBUG('rec_sharee_info.update_privilege_type_code : '||rec_sharee_info.update_privilege_type_code);
4473: END IF;
4474:
4475: --Skip this validation for Duplicate Action
4476: IF p_save_type <> OP_DUPLICATE_CART THEN
4496: end if;
4497: -- else, the access level is Admin and we are okay to do other validations
4498: END IF; --Duplicate action
4499: ELSE
4500: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4501: IBE_UTIL.DEBUG('no sharee number');
4502: END IF;
4503:
4504: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4497: -- else, the access level is Admin and we are okay to do other validations
4498: END IF; --Duplicate action
4499: ELSE
4500: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4501: IBE_UTIL.DEBUG('no sharee number');
4502: END IF;
4503:
4504: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4505: OPEN c_getActiveCartTypeInfo;
4504: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4505: OPEN c_getActiveCartTypeInfo;
4506: FETCH c_getActiveCartTypeInfo INTO rec_ActiveCartType_info;
4507: CLOSE c_getActiveCartTypeInfo;
4508: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4509: IBE_UTIL.DEBUG('quote_source_code of cart passed in='||rec_ActiveCartType_info.quote_source_code);
4510: END IF;
4511: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4512: return;
4505: OPEN c_getActiveCartTypeInfo;
4506: FETCH c_getActiveCartTypeInfo INTO rec_ActiveCartType_info;
4507: CLOSE c_getActiveCartTypeInfo;
4508: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4509: IBE_UTIL.DEBUG('quote_source_code of cart passed in='||rec_ActiveCartType_info.quote_source_code);
4510: END IF;
4511: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4512: return;
4513: end if;
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;
4520: OPEN c_getQuoteInfo;
4521: FETCH c_getQuoteInfo INTO l_db_quote_header_id;
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;
4520: OPEN c_getQuoteInfo;
4521: FETCH c_getQuoteInfo INTO l_db_quote_header_id;
4522: CLOSE c_getQuoteInfo;
4524: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4525: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4526: FND_Msg_Pub.Add;
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;
4525: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4526: FND_Msg_Pub.Add;
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;
4536: FETCH c_getResourceInfo INTO l_db_user_id;
4537: CLOSE c_getResourceInfo;
4538: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4539: IBE_UTIL.DEBUG('Owner flow with env. userid: '||l_db_user_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4540: END IF;
4541:
4542: IF l_db_user_id is null then
4535: OPEN c_getResourceInfo;
4536: FETCH c_getResourceInfo INTO l_db_user_id;
4537: CLOSE c_getResourceInfo;
4538: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4539: IBE_UTIL.DEBUG('Owner flow with env. userid: '||l_db_user_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4540: END IF;
4541:
4542: IF l_db_user_id is null then
4543: OPEN c_getPartyInfo(l_user_id);
4552: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4553: FND_Message.Set_Name('IBE', 'IBE_SC_USERACCESS_ERR');
4554: FND_Msg_Pub.Add;
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
4553: FND_Message.Set_Name('IBE', 'IBE_SC_USERACCESS_ERR');
4554: FND_Msg_Pub.Add;
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
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
4564:
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
4562: END IF; -- end section of user info from env
4563: END IF; -- end if no sharee number
4564:
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
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
4574: l_last_update_date := rec_last_update_date.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
4574: l_last_update_date := rec_last_update_date.last_update_date;
4575: l_quote_status := rec_last_update_date.status_code;
4577: l_owner_party_id := rec_last_update_date.party_id;
4578: l_resource_id := rec_last_update_date.resource_id;
4579: EXIT when c_last_update_date%NOTFOUND;
4580: END LOOP;
4581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4582: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4583: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4584: END IF;
4585: IF(l_last_update_date <> p_last_update_date) THEN
4578: l_resource_id := rec_last_update_date.resource_id;
4579: EXIT when c_last_update_date%NOTFOUND;
4580: END LOOP;
4581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4582: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4583: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4584: END IF;
4585: IF(l_last_update_date <> p_last_update_date) THEN
4586: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4579: EXIT when c_last_update_date%NOTFOUND;
4580: END LOOP;
4581: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4582: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4583: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4584: END IF;
4585: IF(l_last_update_date <> p_last_update_date) THEN
4586: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4587: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4583: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4584: END IF;
4585: IF(l_last_update_date <> p_last_update_date) THEN
4586: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4587: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4588: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_already_ordered error');
4589: END IF;
4590:
4591: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4584: END IF;
4585: IF(l_last_update_date <> p_last_update_date) THEN
4586: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4587: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4588: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_already_ordered error');
4589: END IF;
4590:
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');
4599: OPEN c_getPartyInfo(l_last_updated_by);
4600: FETCH c_getPartyInfo INTO l_last_upd_party_id;
4601: CLOSE c_getPartyInfo;
4602: -- have to use party id to determine owner since createdby may be the sales rep
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4605: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4606: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4607: END IF;
4600: FETCH c_getPartyInfo INTO l_last_upd_party_id;
4601: CLOSE c_getPartyInfo;
4602: -- have to use party id to determine owner since createdby may be the sales rep
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4605: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4606: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4607: END IF;
4608:
4601: CLOSE c_getPartyInfo;
4602: -- have to use party id to determine owner since createdby may be the sales rep
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4605: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4606: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4607: END IF;
4608:
4609: -- user is not last updated, and last update is the owner (another member)
4602: -- have to use party id to determine owner since createdby may be the sales rep
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4605: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4606: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4607: END IF;
4608:
4609: -- user is not last updated, and last update is the owner (another member)
4610: if (l_last_upd_party_id = l_owner_party_id) then
4630: -- otherwise, the last person to have updated the cart was a sales rep
4631: l_err_code := 'IBE_SC_ERR_RELOAD_SALESREP_UPD';
4632: end if;
4633:
4634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4635: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_needs_refresh error : ' || l_err_code);
4636: END IF;
4637:
4638: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4631: l_err_code := 'IBE_SC_ERR_RELOAD_SALESREP_UPD';
4632: end if;
4633:
4634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4635: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_needs_refresh error : ' || l_err_code);
4636: END IF;
4637:
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);
4643: END IF;
4644: END IF;
4645: END IF;
4646:
4647: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4648: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation END');
4649: END IF;
4650:
4651: END IF; -- last_update_date validation end.
4644: END IF;
4645: END IF;
4646:
4647: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4648: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation END');
4649: END IF;
4650:
4651: END IF; -- last_update_date validation end.
4652:
4649: END IF;
4650:
4651: END IF; -- last_update_date validation end.
4652:
4653: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4654: IBE_UTIL.DEBUG('Before calling validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4655: END IF;
4656: -- call an internal api, for quote or cart validation.
4657: validate_quote(p_quote_header_id,
4650:
4651: END IF; -- last_update_date validation end.
4652:
4653: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4654: IBE_UTIL.DEBUG('Before calling validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4655: END IF;
4656: -- call an internal api, for quote or cart validation.
4657: validate_quote(p_quote_header_id,
4658: p_save_type,
4659: x_return_status,
4660: x_msg_count,
4661: x_msg_data);
4662:
4663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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
4660: x_msg_count,
4661: x_msg_data);
4662:
4663: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
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);
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;
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');
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,
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');
4683: END IF;
4684: WHEN OTHERS THEN
4685: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
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');
4683: END IF;
4684: WHEN OTHERS THEN
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,
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');
4694: END IF;
4695: END validate_user_update;
4696:
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');
4694: END IF;
4695: END validate_user_update;
4696:
4697: /*This procedure is used to save the missing party_id and cust_account_id
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4737: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4737: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4738: END IF;
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4737: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4738: END IF;
4739:
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4737: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4738: END IF;
4739:
4740: FOR rec_get_sold_to in c_get_sold_to(p_quote_header_id) LOOP
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);
4736: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4737: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4738: END IF;
4739:
4740: FOR rec_get_sold_to in c_get_sold_to(p_quote_header_id) LOOP
4741: l_sold_to_cust := rec_get_sold_to.cust_account_id;
4741: l_sold_to_cust := rec_get_sold_to.cust_account_id;
4742: l_party_type_cart_owner := rec_get_sold_to.party_type;
4743: exit when c_get_sold_to%NOTFOUND;
4744: END LOOP;
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4747: end if;
4748: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4749: if (p_cust_account_id <> l_sold_to_cust) THEN
4742: l_party_type_cart_owner := rec_get_sold_to.party_type;
4743: exit when c_get_sold_to%NOTFOUND;
4744: END LOOP;
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4747: end if;
4748: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4749: if (p_cust_account_id <> l_sold_to_cust) THEN
4750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4747: end if;
4748: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4749: if (p_cust_account_id <> l_sold_to_cust) THEN
4750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4751: IBE_UTIL.DEBUG('Not upgrading as the b2b cart account id does not match the account id passed in');
4752: END IF;
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');
4747: end if;
4748: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4749: if (p_cust_account_id <> l_sold_to_cust) THEN
4750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4751: IBE_UTIL.DEBUG('Not upgrading as the b2b cart account id does not match the account id passed in');
4752: END IF;
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;
4762: FETCH c_get_party_type into l_party_type_recipient;
4763: CLOSE c_get_party_type;
4764:
4765: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4767: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4768: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4769: END IF;
4770: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4763: CLOSE c_get_party_type;
4764:
4765: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4767: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4768: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4769: END IF;
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');
4764:
4765: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4766: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4767: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4768: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4769: END IF;
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;
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;
4784:
4785: OPEN c_sharee_id(p_retrieval_number);
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;
4784:
4785: OPEN c_sharee_id(p_retrieval_number);
4786: FETCH c_sharee_id into l_recip_id;
4857: SELECT sys_context('multi_org2','current_org_id') sys_context from dual;
4858: rec_SysContext c_getSysContext%rowtype;
4859:
4860: Begin
4861: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4862: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
4863: END IF;
4864:
4865: -- 1. AppId
4858: rec_SysContext c_getSysContext%rowtype;
4859:
4860: Begin
4861: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4862: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
4863: END IF;
4864:
4865: -- 1. AppId
4866: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4862: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
4863: END IF;
4864:
4865: -- 1. AppId
4866: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4867: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: Begin');
4868: END IF;
4869: open c_getAppId;
4870: fetch c_getAppId into rec_AppId;
4863: END IF;
4864:
4865: -- 1. AppId
4866: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4867: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: Begin');
4868: END IF;
4869: open c_getAppId;
4870: fetch c_getAppId into rec_AppId;
4871: close c_getAppId;
4868: END IF;
4869: open c_getAppId;
4870: fetch c_getAppId into rec_AppId;
4871: close c_getAppId;
4872: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4873: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
4874: END IF;
4875:
4876: -- 2. RespId
4869: open c_getAppId;
4870: fetch c_getAppId into rec_AppId;
4871: close c_getAppId;
4872: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4873: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
4874: END IF;
4875:
4876: -- 2. RespId
4877: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4873: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
4874: END IF;
4875:
4876: -- 2. RespId
4877: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4878: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: Begin');
4879: END IF;
4880: open c_getRespId;
4881: fetch c_getRespId into rec_RespId;
4874: END IF;
4875:
4876: -- 2. RespId
4877: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4878: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: Begin');
4879: END IF;
4880: open c_getRespId;
4881: fetch c_getRespId into rec_RespId;
4882: close c_getRespId;
4879: END IF;
4880: open c_getRespId;
4881: fetch c_getRespId into rec_RespId;
4882: close c_getRespId;
4883: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4884: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
4885: END IF;
4886:
4887: -- 3. UserId
4880: open c_getRespId;
4881: fetch c_getRespId into rec_RespId;
4882: close c_getRespId;
4883: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4884: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
4885: END IF;
4886:
4887: -- 3. UserId
4888: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4884: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
4885: END IF;
4886:
4887: -- 3. UserId
4888: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4889: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: Begin');
4890: END IF;
4891: open c_getUserId;
4892: fetch c_getUserId into rec_UserId;
4885: END IF;
4886:
4887: -- 3. UserId
4888: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4889: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: Begin');
4890: END IF;
4891: open c_getUserId;
4892: fetch c_getUserId into rec_UserId;
4893: close c_getUserId;
4890: END IF;
4891: open c_getUserId;
4892: fetch c_getUserId into rec_UserId;
4893: close c_getUserId;
4894: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4895: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
4896: END IF;
4897:
4898: -- 4. OrgId
4891: open c_getUserId;
4892: fetch c_getUserId into rec_UserId;
4893: close c_getUserId;
4894: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4895: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
4896: END IF;
4897:
4898: -- 4. OrgId
4899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4895: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
4896: END IF;
4897:
4898: -- 4. OrgId
4899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4900: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: Begin');
4901: END IF;
4902: open c_getOrgId;
4903: fetch c_getOrgId into rec_OrgId;
4896: END IF;
4897:
4898: -- 4. OrgId
4899: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4900: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: Begin');
4901: END IF;
4902: open c_getOrgId;
4903: fetch c_getOrgId into rec_OrgId;
4904: close c_getOrgId;
4901: END IF;
4902: open c_getOrgId;
4903: fetch c_getOrgId into rec_OrgId;
4904: close c_getOrgId;
4905: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4906: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
4907: END IF;
4908:
4909: -- 5. EnvInfo
4902: open c_getOrgId;
4903: fetch c_getOrgId into rec_OrgId;
4904: close c_getOrgId;
4905: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4906: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
4907: END IF;
4908:
4909: -- 5. EnvInfo
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4906: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
4907: END IF;
4908:
4909: -- 5. EnvInfo
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4911: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: Begin');
4912: END IF;
4913: open c_getEnvInfo;
4914: fetch c_getEnvInfo into rec_EnvInfo;
4907: END IF;
4908:
4909: -- 5. EnvInfo
4910: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4911: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: Begin');
4912: END IF;
4913: open c_getEnvInfo;
4914: fetch c_getEnvInfo into rec_EnvInfo;
4915: close c_getEnvInfo;
4912: END IF;
4913: open c_getEnvInfo;
4914: fetch c_getEnvInfo into rec_EnvInfo;
4915: close c_getEnvInfo;
4916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4913: open c_getEnvInfo;
4914: fetch c_getEnvInfo into rec_EnvInfo;
4915: close c_getEnvInfo;
4916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4914: fetch c_getEnvInfo into rec_EnvInfo;
4915: close c_getEnvInfo;
4916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4922: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
4915: close c_getEnvInfo;
4916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4922: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
4923: END IF;
4916: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4922: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
4923: END IF;
4924:
4917: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4922: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
4923: END IF;
4924:
4925: -- 6. ICXSession Details
4918: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
4919: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
4920: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
4921: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
4922: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
4923: END IF;
4924:
4925: -- 6. ICXSession Details
4926: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
4923: END IF;
4924:
4925: -- 6. ICXSession Details
4926: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
4927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4928: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: Begin');
4929: END IF;
4930: open c_getICXSessionDetails(rec_EnvInfo.session_id);
4931: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
4924:
4925: -- 6. ICXSession Details
4926: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
4927: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4928: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: Begin');
4929: END IF;
4930: open c_getICXSessionDetails(rec_EnvInfo.session_id);
4931: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
4932: close c_getICXSessionDetails;
4929: END IF;
4930: open c_getICXSessionDetails(rec_EnvInfo.session_id);
4931: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
4932: close c_getICXSessionDetails;
4933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4930: open c_getICXSessionDetails(rec_EnvInfo.session_id);
4931: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
4932: close c_getICXSessionDetails;
4933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4931: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
4932: close c_getICXSessionDetails;
4933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4932: close c_getICXSessionDetails;
4933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4933: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4934: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4935: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4936: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4937: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4938: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4939: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4940: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4941: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4942: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4950: END IF; */
4943: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4950: END IF; */
4951:
4944: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4950: END IF; */
4951:
4952: -- 7.MO Temp Table details
4945: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
4946: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
4947: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
4948: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4950: END IF; */
4951:
4952: -- 7.MO Temp Table details
4953: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4949: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
4950: END IF; */
4951:
4952: -- 7.MO Temp Table details
4953: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4954: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: Begin');
4955: END IF;
4956: open c_getMOTempTableInfo;
4957: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
4950: END IF; */
4951:
4952: -- 7.MO Temp Table details
4953: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4954: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: Begin');
4955: END IF;
4956: open c_getMOTempTableInfo;
4957: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
4958: close c_getMOTempTableInfo;
4955: END IF;
4956: open c_getMOTempTableInfo;
4957: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
4958: close c_getMOTempTableInfo;
4959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4956: open c_getMOTempTableInfo;
4957: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
4958: close c_getMOTempTableInfo;
4959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4957: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
4958: close c_getMOTempTableInfo;
4959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4965: END IF;
4958: close c_getMOTempTableInfo;
4959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4965: END IF;
4966:
4959: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4965: END IF;
4966:
4967: -- 8. SysContext
4960: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
4961: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
4962: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
4963: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4965: END IF;
4966:
4967: -- 8. SysContext
4968: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4964: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
4965: END IF;
4966:
4967: -- 8. SysContext
4968: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4969: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: Begin');
4970: END IF;
4971: open c_getSysContext;
4972: fetch c_getSysContext into rec_SysContext;
4965: END IF;
4966:
4967: -- 8. SysContext
4968: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4969: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: Begin');
4970: END IF;
4971: open c_getSysContext;
4972: fetch c_getSysContext into rec_SysContext;
4973: close c_getSysContext;
4970: END IF;
4971: open c_getSysContext;
4972: fetch c_getSysContext into rec_SysContext;
4973: close c_getSysContext;
4974: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4975: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
4976: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
4977: END IF;
4978:
4971: open c_getSysContext;
4972: fetch c_getSysContext into rec_SysContext;
4973: close c_getSysContext;
4974: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4975: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
4976: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
4977: END IF;
4978:
4979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4972: fetch c_getSysContext into rec_SysContext;
4973: close c_getSysContext;
4974: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4975: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
4976: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
4977: END IF;
4978:
4979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4980: IBE_UTIL.DEBUG('Log_Environment_Info: End');
4975: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
4976: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
4977: END IF;
4978:
4979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4980: IBE_UTIL.DEBUG('Log_Environment_Info: End');
4981: END IF;
4982:
4983: END Log_Environment_Info;
4976: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
4977: END IF;
4978:
4979: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4980: IBE_UTIL.DEBUG('Log_Environment_Info: End');
4981: END IF;
4982:
4983: END Log_Environment_Info;
4984:
5052: l_api_version CONSTANT NUMBER := 1.0;
5053: l_seq_num VARCHAR2(30) := NULL;
5054:
5055: BEGIN
5056: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5057: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Add_Attachment()');
5058: END IF;
5059:
5060: -- Standard Start of API savepoint
5053: l_seq_num VARCHAR2(30) := NULL;
5054:
5055: BEGIN
5056: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5057: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Add_Attachment()');
5058: END IF;
5059:
5060: -- Standard Start of API savepoint
5061: SAVEPOINT Add_Attachment;
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');
5083: END IF;
5084:
5085: IBE_Quote_Misc_pvt.Validate_User_Update
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');
5083: END IF;
5084:
5085: IBE_Quote_Misc_pvt.Validate_User_Update
5086: ( p_init_msg_list => p_Init_Msg_List
5103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5104: END IF;
5105:
5106:
5107: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5108: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5109: END IF;
5110:
5111: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5104: END IF;
5105:
5106:
5107: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5108: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5109: END IF;
5110:
5111: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5112: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5108: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5109: END IF;
5110:
5111: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5112: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5113: IBE_Util.Debug('l_seq_num = '||l_seq_num);
5114: END IF;
5115:
5116: -- ASO Attachment Procedure Call
5109: END IF;
5110:
5111: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5112: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5113: IBE_Util.Debug('l_seq_num = '||l_seq_num);
5114: END IF;
5115:
5116: -- ASO Attachment Procedure Call
5117: ASO_ATTACHMENT_INT.Add_Attachment
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
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
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()');
5163: END IF;
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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()');
5163: END IF;
5164:
5165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5166: ROLLBACK TO Add_Attachment;
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
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;
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()');
5190: END IF;
5191:
5192: END Add_Attachment;
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()');
5190: END IF;
5191:
5192: END Add_Attachment;
5193:
5211: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Attachment';
5212: l_api_version CONSTANT NUMBER := 1.0;
5213:
5214: BEGIN
5215: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5216: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Delete_Attachment()');
5217: END IF;
5218:
5219: -- Standard Start of API savepoint
5212: l_api_version CONSTANT NUMBER := 1.0;
5213:
5214: BEGIN
5215: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5216: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Delete_Attachment()');
5217: END IF;
5218:
5219: -- Standard Start of API savepoint
5220: SAVEPOINT Add_Attachment;
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');
5242: END IF;
5243:
5244: IBE_Quote_Misc_pvt.Validate_User_Update(
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');
5242: END IF;
5243:
5244: IBE_Quote_Misc_pvt.Validate_User_Update(
5245: p_quote_header_id => p_quote_header_id
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5261: END IF;
5262:
5263:
5264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5265: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Delete_Attachment');
5266: END IF;
5267:
5268: -- ASO Attachment Procedure Call
5261: END IF;
5262:
5263:
5264: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5265: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Delete_Attachment');
5266: END IF;
5267:
5268: -- ASO Attachment Procedure Call
5269: ASO_ATTACHMENT_INT.Delete_Attachments
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
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
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()');
5308: END IF;
5309:
5310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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()');
5308: END IF;
5309:
5310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5311: ROLLBACK TO Add_Attachment;
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
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;
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()');
5335: END IF;
5336:
5337: END Delete_Attachment;
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()');
5335: END IF;
5336:
5337: END Delete_Attachment;
5338: