[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;
2514: -- Initialize API return status to success
2515: x_return_status := FND_API.G_RET_STS_SUCCESS;
2516:
2517: -- API body
2518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2519: IBE_Util.Debug('IBE_Quote_Misc_pvt.Check_Item_IDs(+)...');
2520: END IF;
2521:
2522: l_count := x_inventory_item_id_tbl.COUNT;
2515: x_return_status := FND_API.G_RET_STS_SUCCESS;
2516:
2517: -- API body
2518: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2519: IBE_Util.Debug('IBE_Quote_Misc_pvt.Check_Item_IDs(+)...');
2520: END IF;
2521:
2522: l_count := x_inventory_item_id_tbl.COUNT;
2523:
2559: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2560: p_count => x_msg_count,
2561: p_data => x_msg_data);
2562: --inv_debug.message('ssia', 'x_msg_count is ' || x_msg_count);
2563: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2564: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2565: END IF;
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2560: p_count => x_msg_count,
2561: p_data => x_msg_data);
2562: --inv_debug.message('ssia', 'x_msg_count is ' || x_msg_count);
2563: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2564: IBE_Util.Debug('Ibe_Shopcart_Pvt10.Load_Merchant_InvId(-)...');
2565: END IF;
2566: EXCEPTION
2567: WHEN FND_API.G_EXC_ERROR THEN
2568: x_return_status := FND_API.G_RET_STS_ERROR;
2696:
2697: -- Initialize API return status to success
2698: x_return_status := FND_API.G_RET_STS_SUCCESS;
2699: --Start of API Body
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2697: -- Initialize API return status to success
2698: x_return_status := FND_API.G_RET_STS_SUCCESS;
2699: --Start of API Body
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2698: x_return_status := FND_API.G_RET_STS_SUCCESS;
2699: --Start of API Body
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2699: --Start of API Body
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2707: END IF;
2700: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2707: END IF;
2708:
2701: IBE_UTIL.debug('incoming quote_header_id in get_load_errors is '||p_quote_header_id);
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2707: END IF;
2708:
2709: X_reason_code := JTF_VARCHAR2_TABLE_100();
2702: IBE_UTIL.debug('incoming retrievalnumber in get_load_errors is '||p_retrieval_number);
2703: IBE_UTIL.debug('incoming partyid in get_load_errors is '||p_party_id);
2704: IBE_UTIL.debug('incoming accountid in get_load_errors is '||p_cust_account_id);
2705: IBE_UTIL.debug('incoming sharetype in get_load_errors is '||p_share_type);
2706: IBE_UTIL.debug('incoming accesslevel in get_load_errors is '||p_access_level);
2707: END IF;
2708:
2709: X_reason_code := JTF_VARCHAR2_TABLE_100();
2710: If (p_quote_header_id <> fnd_api.g_miss_num) then
2741: and (p_share_type = L_SHARED_TO_TYPE)
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2742: and (p_party_id <> FND_API.G_MISS_NUM)
2743: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2744: and (p_quote_header_id <> FND_API.G_MISS_NUM))) then
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2750: IBE_UTIL.debug('get recipient info based on retrieval number');
2745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2750: IBE_UTIL.debug('get recipient info based on retrieval number');
2751: end if;
2752: for rec_retrieval_number in c_retrieval_number(p_retrieval_number) loop
2753: l_end_date_active := rec_retrieval_number.end_date_active;
2746: IBE_UTIL.debug('Checking for recipient info...');
2747: end if;
2748: If(p_retrieval_number <> FND_API.G_MISS_NUM) then
2749: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2750: IBE_UTIL.debug('get recipient info based on retrieval number');
2751: end if;
2752: for rec_retrieval_number in c_retrieval_number(p_retrieval_number) loop
2753: l_end_date_active := rec_retrieval_number.end_date_active;
2754: l_recipient_id := rec_retrieval_number.quote_sharee_id;
2756: l_quote_header_id := rec_retrieval_number.quote_header_id;
2757: exit when c_retrieval_number%NOTFOUND;
2758: end loop;
2759: if((p_quote_header_id = fnd_api.g_miss_num) and (l_quote_header_id is not null)) then
2760: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2761: IBE_UTIL.debug('tried to load with retreival number only (no cartid)');
2762: IBE_UTIL.debug('but the retrieval number was valid so get cart info... ');
2763: end if;
2764: l_exp_quote_header_id := l_quote_header_id;
2757: exit when c_retrieval_number%NOTFOUND;
2758: end loop;
2759: if((p_quote_header_id = fnd_api.g_miss_num) and (l_quote_header_id is not null)) then
2760: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2761: IBE_UTIL.debug('tried to load with retreival number only (no cartid)');
2762: IBE_UTIL.debug('but the retrieval number was valid so get cart info... ');
2763: end if;
2764: l_exp_quote_header_id := l_quote_header_id;
2765: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
2758: end loop;
2759: if((p_quote_header_id = fnd_api.g_miss_num) and (l_quote_header_id is not null)) then
2760: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2761: IBE_UTIL.debug('tried to load with retreival number only (no cartid)');
2762: IBE_UTIL.debug('but the retrieval number was valid so get cart info... ');
2763: end if;
2764: l_exp_quote_header_id := l_quote_header_id;
2765: For rec_cart_columns in c_cart_columns(l_quote_header_id) loop
2766: L_resource_id := rec_cart_columns.resource_id;
2778: and (p_share_type = L_SHARED_TO_TYPE)
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2783: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2784: end if;
2785: for rec_recipient_no_retnum in c_recipient_no_retnum(p_quote_header_id, p_party_id, p_cust_account_id) loop
2786: l_end_date_active := rec_recipient_no_retnum.end_date_active;
2779: and (p_party_id <> FND_API.G_MISS_NUM)
2780: and (p_cust_account_id <> FND_API.G_MISS_NUM)
2781: and (p_quote_header_id <> FND_API.G_MISS_NUM)) then
2782: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2783: IBE_UTIL.debug('get recipient info based on cartid, partyid, acctid');
2784: end if;
2785: for rec_recipient_no_retnum in c_recipient_no_retnum(p_quote_header_id, p_party_id, p_cust_account_id) loop
2786: l_end_date_active := rec_recipient_no_retnum.end_date_active;
2787: l_recipient_id := rec_recipient_no_retnum.quote_sharee_id;
2789: exit when c_retrieval_number%NOTFOUND;
2790: end loop;
2791: end if;
2792:
2793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2794: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2795: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2796: IBE_UTIL.debug('l_access_code: '||l_access_code);
2797: end if;
2790: end loop;
2791: end if;
2792:
2793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2794: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2795: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2796: IBE_UTIL.debug('l_access_code: '||l_access_code);
2797: end if;
2798:
2791: end if;
2792:
2793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2794: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2795: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2796: IBE_UTIL.debug('l_access_code: '||l_access_code);
2797: end if;
2798:
2799: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2792:
2793: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2794: IBE_UTIL.debug('l_end_date_active: '||TO_CHAR(l_end_date_active, 'mm/dd/yyyy:hh24:MI:SS'));
2795: IBE_UTIL.debug('l_recipient_id: '||l_recipient_id);
2796: IBE_UTIL.debug('l_access_code: '||l_access_code);
2797: end if;
2798:
2799: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2800: -- if we were given a retrieval number and it was not in the database
2797: end if;
2798:
2799: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2800: -- if we were given a retrieval number and it was not in the database
2801: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2802: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_RETRIEVAL_NUM');
2803: END IF;
2804: if(table_counter = 1) then
2805: x_reason_code.extend();
2798:
2799: If ((p_retrieval_number <> FND_API.G_MISS_NUM) and (l_recipient_id is NULL)) then
2800: -- if we were given a retrieval number and it was not in the database
2801: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2802: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_RETRIEVAL_NUM');
2803: END IF;
2804: if(table_counter = 1) then
2805: x_reason_code.extend();
2806: X_reason_code(table_counter) := 'IBE_SC_INVALID_RETRIEVAL_NUM';
2807: Table_counter := table_counter+1;
2808: end if;
2809:
2810: Elsif (l_recipient_id is NULL) then
2811: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2812: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2813: END IF;
2814: if(table_counter = 1) then
2815: x_reason_code.extend();
2808: end if;
2809:
2810: Elsif (l_recipient_id is NULL) then
2811: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2812: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2813: END IF;
2814: if(table_counter = 1) then
2815: x_reason_code.extend();
2816: X_reason_code(table_counter) := 'IBE_SC_ERR_PRIVILEGE';
2820: Elsif ((p_access_level = L_UPDATE) or (p_access_level = L_FULL)) then
2821: -- if a certain access level was passed in, then see if the db access level is sufficient
2822: if (p_access_level = L_UPDATE and (l_access_code <> 'F' or l_access_code <> 'A')) or
2823: (p_access_level = L_FULL and (l_access_code <> 'A')) then
2824: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2825: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2826: END IF;
2827: if(table_counter = 1) then
2828: x_reason_code.extend();
2821: -- if a certain access level was passed in, then see if the db access level is sufficient
2822: if (p_access_level = L_UPDATE and (l_access_code <> 'F' or l_access_code <> 'A')) or
2823: (p_access_level = L_FULL and (l_access_code <> 'A')) then
2824: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2825: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_PRIVILEGE');
2826: END IF;
2827: if(table_counter = 1) then
2828: x_reason_code.extend();
2829: X_reason_code(table_counter) := 'IBE_SC_ERR_PRIVILEGE';
2831: end if;
2832: end if;
2833:
2834: Elsif (Upper(l_status_code) = 'INACTIVE') then
2835: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2836: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2837: END IF;
2838: if(table_counter = 1) then
2839: x_reason_code.extend();
2832: end if;
2833:
2834: Elsif (Upper(l_status_code) = 'INACTIVE') then
2835: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2836: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2837: END IF;
2838: if(table_counter = 1) then
2839: x_reason_code.extend();
2840: X_reason_code(table_counter) := 'IBE_SC_CART_DELETED';
2841: Table_counter := table_counter+1;
2842: end if;
2843:
2844: Elsif (l_order_id is NOT NULL) then
2845: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2846: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_ORDERED');
2847: END IF;
2848: if(table_counter = 1) then
2849: x_reason_code.extend();
2842: end if;
2843:
2844: Elsif (l_order_id is NOT NULL) then
2845: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2846: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_ORDERED');
2847: END IF;
2848: if(table_counter = 1) then
2849: x_reason_code.extend();
2850: X_reason_code(table_counter) := 'IBE_SC_CART_ORDERED';
2853:
2854: Elsif ((l_end_date_active is NOT NULL and l_end_date_active < sysdate) or
2855: (l_recipient_id is NULL)) then
2856: -- if the row has been end dated or we were unable to find a recip row by party, acct, and cart
2857: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2858: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_USERACCESS');
2859: END IF;
2860: if(table_counter = 1) then
2861: x_reason_code.extend();
2854: Elsif ((l_end_date_active is NOT NULL and l_end_date_active < sysdate) or
2855: (l_recipient_id is NULL)) then
2856: -- if the row has been end dated or we were unable to find a recip row by party, acct, and cart
2857: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2858: IBE_UTIL.debug('Including the Error code: IBE_SC_ERR_USERACCESS');
2859: END IF;
2860: if(table_counter = 1) then
2861: x_reason_code.extend();
2862: X_reason_code(table_counter) := 'IBE_SC_ERR_USERACCESS';
2871: if ((p_quote_header_id <> fnd_api.g_miss_num) or
2872: ((p_quote_number <> fnd_api.g_miss_num)
2873: and (p_quote_version <> fnd_api.g_miss_num))) then
2874: if(trunc(l_expiration_date) < trunc(sysdate)) then
2875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2876: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2877: END IF;
2878: if(table_counter = 1) then
2879: x_reason_code.extend();
2872: ((p_quote_number <> fnd_api.g_miss_num)
2873: and (p_quote_version <> fnd_api.g_miss_num))) then
2874: if(trunc(l_expiration_date) < trunc(sysdate)) then
2875: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2876: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_EXPIRED');
2877: END IF;
2878: if(table_counter = 1) then
2879: x_reason_code.extend();
2880: X_reason_code(table_counter) := 'IBE_SC_CART_EXPIRED';
2881: Table_counter := table_counter+1;
2882: end if;
2883: End if;
2884: If(l_max_version_flag = 'N') then
2885: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2886: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_MAX_VER_FLAG_N');
2887: END IF;
2888: if(table_counter = 1) then
2889: x_reason_code.extend();
2882: end if;
2883: End if;
2884: If(l_max_version_flag = 'N') then
2885: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2886: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_MAX_VER_FLAG_N');
2887: END IF;
2888: if(table_counter = 1) then
2889: x_reason_code.extend();
2890: X_reason_code(table_counter) := 'IBE_SC_QUOTE_MAX_VER_FLAG_N';
2892: end if;
2893: End If;
2894: If (p_load_type = L_CART_LOAD_TYPE) then
2895: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) then
2896: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2897: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_HAS_RESOURCEID');
2898: END IF;
2899: if(table_counter = 1) then
2900: x_reason_code.extend();
2893: End If;
2894: If (p_load_type = L_CART_LOAD_TYPE) then
2895: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) then
2896: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2897: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_HAS_RESOURCEID');
2898: END IF;
2899: if(table_counter = 1) then
2900: x_reason_code.extend();
2901: X_reason_code(Table_counter) := 'IBE_SC_CART_HAS_RESOURCEID';
2903: end if;
2904: End If;
2905: --Status code 28 is for "store draft"
2906: If (upper(l_status_code) <> 'STORE DRAFT') then
2907: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2908: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2909: END IF;
2910: if(table_counter = 1) then
2911: x_reason_code.extend();
2904: End If;
2905: --Status code 28 is for "store draft"
2906: If (upper(l_status_code) <> 'STORE DRAFT') then
2907: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2908: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2909: END IF;
2910: if(table_counter = 1) then
2911: x_reason_code.extend();
2912: X_reason_code(Table_counter ) := 'IBE_SC_INVALID_CART_STS';
2914: end if;
2915: End if;
2916:
2917: If(l_publish_flag <> 'F') then
2918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2919: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_NOT_PUBL');
2920: END IF;
2921: if(table_counter = 1) then
2922: x_reason_code.extend();
2915: End if;
2916:
2917: If(l_publish_flag <> 'F') then
2918: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2919: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_NOT_PUBL');
2920: END IF;
2921: if(table_counter = 1) then
2922: x_reason_code.extend();
2923: X_reason_code(Table_counter) := 'IBE_SC_CART_NOT_PUBL';
2925: end if;
2926: End if;
2927: Elsif(p_load_type = L_QUOTE_LOAD_TYPE) then
2928: If (l_resource_id is null) then
2929: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2930: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NEEDS_RESOURCEID');
2931: END IF;
2932: if(table_counter = 1) then
2933: x_reason_code.extend();
2926: End if;
2927: Elsif(p_load_type = L_QUOTE_LOAD_TYPE) then
2928: If (l_resource_id is null) then
2929: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2930: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NEEDS_RESOURCEID');
2931: END IF;
2932: if(table_counter = 1) then
2933: x_reason_code.extend();
2934: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NEEDS_RESOURCEID';
2935: Table_counter := table_counter+1;
2936: end if;
2937: End If;
2938: If (l_status_code = 'INACTIVE') then
2939: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2940: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_INACTIVE');
2941: END IF;
2942: if(table_counter = 1) then
2943: x_reason_code.extend();
2936: end if;
2937: End If;
2938: If (l_status_code = 'INACTIVE') then
2939: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2940: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_INACTIVE');
2941: END IF;
2942: if(table_counter = 1) then
2943: x_reason_code.extend();
2944: X_reason_code(table_counter) := 'IBE_SC_QUOTE_INACTIVE';
2945: Table_counter := table_counter+1;
2946: end if;
2947: End If;
2948: If(l_publish_flag <> 'T') then
2949: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2950: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2951: END IF;
2952: if(table_counter = 1) then
2953: x_reason_code.extend();
2946: end if;
2947: End If;
2948: If(l_publish_flag <> 'T') then
2949: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2950: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2951: END IF;
2952: if(table_counter = 1) then
2953: x_reason_code.extend();
2954: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NOT_PUBL';
2958: Elsif(p_load_type = L_LOAD_FORUPDATE) then
2959: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) THEN
2960: If (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' and l_status_code <> 'DRAFT') THEN
2961: -- Update on Draft profile enabled, only allow updates on DRAFT.
2962: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2963: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_QUOTE_STS');
2964: END IF;
2965: if(table_counter = 1) then
2966: x_reason_code.extend();
2959: If (l_resource_id is not null and (l_resource_id <> FND_API.G_MISS_NUM)) THEN
2960: If (FND_Profile.Value('IBE_UPDATE_DRAFT_QUOTES') = 'Y' and l_status_code <> 'DRAFT') THEN
2961: -- Update on Draft profile enabled, only allow updates on DRAFT.
2962: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2963: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_QUOTE_STS');
2964: END IF;
2965: if(table_counter = 1) then
2966: x_reason_code.extend();
2967: X_reason_code(Table_counter):= 'IBE_SC_INVALID_QUOTE_STS';
2968: Table_counter := table_counter+1;
2969: end if;
2970: End if;
2971: If(l_publish_flag <> 'T') then
2972: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2973: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2974: END IF;
2975: if(table_counter = 1) then
2976: x_reason_code.extend();
2969: end if;
2970: End if;
2971: If(l_publish_flag <> 'T') then
2972: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2973: IBE_UTIL.debug('Including the Error code: IBE_SC_QUOTE_NOT_PUBL');
2974: END IF;
2975: if(table_counter = 1) then
2976: x_reason_code.extend();
2977: X_reason_code(Table_counter):= 'IBE_SC_QUOTE_NOT_PUBL';
2979: end if;
2980: End if;
2981: Else -- for a cart, check for 'STORE DRAFT' (if the loadType is load_forupdate, status has to be 'STORE DRAFT')
2982: If (l_status_code <> 'STORE DRAFT') Then
2983: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2984: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2985: END IF;
2986: if(table_counter = 1) then
2987: x_reason_code.extend();
2980: End if;
2981: Else -- for a cart, check for 'STORE DRAFT' (if the loadType is load_forupdate, status has to be 'STORE DRAFT')
2982: If (l_status_code <> 'STORE DRAFT') Then
2983: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2984: IBE_UTIL.debug('Including the Error code: IBE_SC_INVALID_CART_STS');
2985: END IF;
2986: if(table_counter = 1) then
2987: x_reason_code.extend();
2988: X_reason_code(Table_counter):= 'IBE_SC_INVALID_CART_STS';
2993: End if;
2994: --load error for one click orders.
2995: If(p_load_type = L_LOAD_EXPRESSORDER) Then
2996: If(l_quote_name = l_exp_quote_header_id) Then
2997: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2998: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2999: END IF;
3000: if(table_counter = 1) then
3001: x_reason_code.extend();
2994: --load error for one click orders.
2995: If(p_load_type = L_LOAD_EXPRESSORDER) Then
2996: If(l_quote_name = l_exp_quote_header_id) Then
2997: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2998: IBE_UTIL.debug('Including the Error code: IBE_SC_CART_DELETED');
2999: END IF;
3000: if(table_counter = 1) then
3001: x_reason_code.extend();
3002: X_reason_code(table_counter) := 'IBE_SC_CART_DELETED';
3015: p_count => x_msg_count ,
3016: p_data => x_msg_data);
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_ERROR THEN
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3021: end if;
3022: ROLLBACK TO Get_load_errors_pvt;
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3016: p_data => x_msg_data);
3017: EXCEPTION
3018: WHEN FND_API.G_EXC_ERROR THEN
3019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3020: IBE_UTIL.debug('Expected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3021: end if;
3022: ROLLBACK TO Get_load_errors_pvt;
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3024: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3025: p_count => x_msg_count ,
3026: p_data => x_msg_data);
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3029: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3030: end if;
3031: ROLLBACK TO Get_load_errors_pvt;
3032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3025: p_count => x_msg_count ,
3026: p_data => x_msg_data);
3027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3028: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3029: IBE_UTIL.debug('Unexpected exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3030: end if;
3031: ROLLBACK TO Get_load_errors_pvt;
3032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3033: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3033: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
3034: p_count => x_msg_count ,
3035: p_data => x_msg_data);
3036: WHEN OTHERS THEN
3037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3038: IBE_UTIL.debug('Unknown exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3039: end if;
3040: ROLLBACK TO Get_load_errors_pvt;
3041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3034: p_count => x_msg_count ,
3035: p_data => x_msg_data);
3036: WHEN OTHERS THEN
3037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3038: IBE_UTIL.debug('Unknown exception in IBE_QUOTE_MISC_PVT.get_load_errors');
3039: end if;
3040: ROLLBACK TO Get_load_errors_pvt;
3041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3042: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
3110: x_last_update_date := Rec_get_quote_id.last_update_date;
3111: exit when c_get_quote_id%notfound;
3112: end loop;
3113:
3114: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3115: ibe_util.debug('ibeactivecart ='||l_cartHeaderId);
3116: END IF;
3117:
3118: IF (l_cartHeaderId = fnd_api.g_miss_num or l_cartHeaderid is null ) then
3111: exit when c_get_quote_id%notfound;
3112: end loop;
3113:
3114: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3115: ibe_util.debug('ibeactivecart ='||l_cartHeaderId);
3116: END IF;
3117:
3118: IF (l_cartHeaderId = fnd_api.g_miss_num or l_cartHeaderid is null ) then
3119: x_cartHeaderId := null;
3129:
3130:
3131: EXCEPTION
3132: WHEN TOO_MANY_ROWS then
3133: --ibe_util.debug('TOO_MANY_ROWS');
3134: ROLLBACK TO GETACTIVECARTID_pvt;
3135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: FND_MESSAGE.set_name('IBE','IBE_SC_GETACTIVEC_MANY');
3137: FND_MSG_PUB.add;
3139: ( p_count => x_msg_count,
3140: p_data => x_msg_data
3141: );
3142: WHEN NO_DATA_FOUND then
3143: --ibe_util.debug('NO_DATA_FOUND');
3144: null;
3145:
3146: WHEN FND_API.G_EXC_ERROR THEN
3147: ROLLBACK TO GETACTIVECARTID_pvt;
3196: SAVEPOINT Update_Config_Item_Lines;
3197: -- Initialize API return status to success
3198: x_return_status := FND_API.G_RET_STS_SUCCESS;
3199:
3200: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3201: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(+)');
3202: END IF;
3203:
3204: -- API body
3197: -- Initialize API return status to success
3198: x_return_status := FND_API.G_RET_STS_SUCCESS;
3199:
3200: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3201: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(+)');
3202: END IF;
3203:
3204: -- API body
3205: FOR i IN 1..px_qte_line_dtl_tbl.COUNT LOOP
3207: AND px_qte_line_dtl_tbl(i).config_header_id <> FND_API.G_MISS_NUM THEN
3208: l_old_config_header_id := px_qte_line_dtl_tbl(i).config_header_id;
3209: l_old_config_revision_num := px_qte_line_dtl_tbl(i).config_revision_num;
3210:
3211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3212: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3213: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3214: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3215: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3208: l_old_config_header_id := px_qte_line_dtl_tbl(i).config_header_id;
3209: l_old_config_revision_num := px_qte_line_dtl_tbl(i).config_revision_num;
3210:
3211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3212: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3213: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3214: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3215: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3216: END IF;
3209: l_old_config_revision_num := px_qte_line_dtl_tbl(i).config_revision_num;
3210:
3211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3212: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3213: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3214: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3215: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3216: END IF;
3217:
3210:
3211: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3212: IBE_Util.Debug('old config header id = '|| l_old_config_header_id);
3213: IBE_Util.Debug('old config revision number = '|| l_old_config_revision_num);
3214: IBE_Util.Debug('Call CZ_CONFIG_API_PUB.copy_configuration at'
3215: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3216: END IF;
3217:
3218: --ER#4025142
3230: IF (l_ret_status <> FND_API.G_RET_STS_SUCCESS) THEN
3231: RAISE FND_API.G_EXC_ERROR;
3232: END IF;
3233:
3234: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3235: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3236: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3237: END IF;
3238:
3231: RAISE FND_API.G_EXC_ERROR;
3232: END IF;
3233:
3234: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3235: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3236: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3237: END IF;
3238:
3239: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3235: IBE_Util.Debug('Done CZ_CONFIG_API_PUB.Copy_Configuration at'
3236: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3237: END IF;
3238:
3239: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3240: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3241: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3242: END IF;
3243:
3236: || TO_CHAR(SYSDATE, 'mm/dd/yyyy:hh24:MI:SS'));
3237: END IF;
3238:
3239: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3240: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3241: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3242: END IF;
3243:
3244: -- update all other dtl table
3237: END IF;
3238:
3239: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3240: IBE_Util.Debug('new config header id = '|| l_new_config_header_id);
3241: IBE_Util.Debug('new config revision number = '|| l_new_config_revision_num);
3242: END IF;
3243:
3244: -- update all other dtl table
3245: FOR j in 1..px_qte_line_dtl_tbl.COUNT LOOP
3252: END IF;
3253: END LOOP;
3254: -- End of API body.
3255:
3256: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3257: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(-)');
3258: END IF;
3259:
3260: -- Standard call to get message count and IF count is 1, get message info.
3253: END LOOP;
3254: -- End of API body.
3255:
3256: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3257: IBE_Util.Debug('IBE_Quote_Misc_pvt.Update_Config_Item_Lines(-)');
3258: END IF;
3259:
3260: -- Standard call to get message count and IF count is 1, get message info.
3261: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3262: p_count => x_msg_count ,
3263: p_data => x_msg_data );
3264: EXCEPTION
3265: WHEN FND_API.G_EXC_ERROR THEN
3266: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3267: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3268: END IF;
3269: ROLLBACK to Update_config_item_lines;
3270: x_return_status := FND_API.G_RET_STS_ERROR;
3263: p_data => x_msg_data );
3264: EXCEPTION
3265: WHEN FND_API.G_EXC_ERROR THEN
3266: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3267: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3268: END IF;
3269: ROLLBACK to Update_config_item_lines;
3270: x_return_status := FND_API.G_RET_STS_ERROR;
3271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3271: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3272: p_count => x_msg_count,
3273: p_data => x_msg_data);
3274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3276: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3277: END IF;
3278: ROLLBACK to Update_config_item_lines;
3279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3272: p_count => x_msg_count,
3273: p_data => x_msg_data);
3274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3275: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3276: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3277: END IF;
3278: ROLLBACK to Update_config_item_lines;
3279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3280: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3281: p_count => x_msg_count,
3282: p_data => x_msg_data);
3283: WHEN OTHERS THEN
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3286: END IF;
3287: ROLLBACK to Update_config_item_lines;
3288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3281: p_count => x_msg_count,
3282: p_data => x_msg_data);
3283: WHEN OTHERS THEN
3284: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3285: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Update_Config_Item_Lines');
3286: END IF;
3287: ROLLBACK to Update_config_item_lines;
3288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3289:
3345: l_warranty_tbl ASO_SERVICE_CONTRACTS_INT.War_tbl_type;
3346: l_count NUMBER;
3347: BEGIN
3348:
3349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3350: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3351: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3352: p_product_item_id || ']');
3353: END IF;
3346: l_count NUMBER;
3347: BEGIN
3348:
3349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3350: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3351: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3352: p_product_item_id || ']');
3353: END IF;
3354:
3347: BEGIN
3348:
3349: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3350: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3351: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3352: p_product_item_id || ']');
3353: END IF;
3354:
3355: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3351: IBE_UTIL.Debug(' Parms: [' || p_organization_id || ', ' ||
3352: p_product_item_id || ']');
3353: END IF;
3354:
3355: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3356: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Starts');
3357: END IF;
3358: ASO_SERVICE_CONTRACTS_INT.Get_Warranty(
3359: p_api_version_number => p_api_version_number,
3352: p_product_item_id || ']');
3353: END IF;
3354:
3355: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3356: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Starts');
3357: END IF;
3358: ASO_SERVICE_CONTRACTS_INT.Get_Warranty(
3359: p_api_version_number => p_api_version_number,
3360: p_init_msg_list => p_init_msg_list,
3367: x_warranty_tbl => l_warranty_tbl
3368: );
3369: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3370: l_count := l_warranty_tbl.COUNT;
3371: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3372: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Finishes ' || x_return_status ||
3373: ' x_warranty_tbl.COUNT=' || l_count);
3374: END IF;
3375:
3368: );
3369: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3370: l_count := l_warranty_tbl.COUNT;
3371: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3372: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Get_Warranty Finishes ' || x_return_status ||
3373: ' x_warranty_tbl.COUNT=' || l_count);
3374: END IF;
3375:
3376: x_service_item_ids := JTF_NUMBER_TABLE();
3382: END LOOP;
3383: END IF;
3384: END IF;
3385:
3386: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3387: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3388: END IF;
3389:
3390: END Get_Included_Warranties;
3383: END IF;
3384: END IF;
3385:
3386: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3387: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3388: END IF;
3389:
3390: END Get_Included_Warranties;
3391:
3406: l_orderable_Service_tbl ASO_SERVICE_CONTRACTS_INT.order_service_tbl_type;
3407: l_count NUMBER;
3408: BEGIN
3409:
3410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3411: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3412: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3413: p_customer_id || ', ' || p_product_revision || ', ' ||
3414: p_request_date || ']');
3407: l_count NUMBER;
3408: BEGIN
3409:
3410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3411: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3412: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3413: p_customer_id || ', ' || p_product_revision || ', ' ||
3414: p_request_date || ']');
3415: END IF;
3408: BEGIN
3409:
3410: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3411: IBE_UTIL.Debug('Start IBE_Quote_Misc_pvt.Get_Available_Services');
3412: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
3413: p_customer_id || ', ' || p_product_revision || ', ' ||
3414: p_request_date || ']');
3415: END IF;
3416:
3419: l_avail_service_rec.customer_id := p_customer_id;
3420: l_avail_service_rec.product_revision := p_product_revision;
3421: l_avail_service_rec.request_date := p_request_date;
3422:
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3424: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Starts');
3425: END IF;
3426: ASO_SERVICE_CONTRACTS_INT.Available_Services(
3427: p_api_version_number => p_api_version_number,
3420: l_avail_service_rec.product_revision := p_product_revision;
3421: l_avail_service_rec.request_date := p_request_date;
3422:
3423: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3424: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Starts');
3425: END IF;
3426: ASO_SERVICE_CONTRACTS_INT.Available_Services(
3427: p_api_version_number => p_api_version_number,
3428: p_init_msg_list => p_init_msg_list,
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3443: l_count := l_orderable_service_tbl.COUNT;
3444: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3445: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Finishes ' || x_return_status || ' ' ||
3446: 'x_orderable_service_tbl.COUNT=' || l_count);
3447: END IF;
3448:
3441: END IF;
3442:
3443: l_count := l_orderable_service_tbl.COUNT;
3444: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3445: IBE_UTIL.Debug(' ASO_SERVICE_CONTRACTS_INT.Available_Services Finishes ' || x_return_status || ' ' ||
3446: 'x_orderable_service_tbl.COUNT=' || l_count);
3447: END IF;
3448:
3449: x_service_item_ids := JTF_NUMBER_TABLE();
3454: x_service_item_ids(i) := l_orderable_service_tbl(i).service_item_id;
3455: END LOOP;
3456: END IF;
3457:
3458: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3459: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3460: END IF;
3461:
3462: END Get_Available_Services;
3455: END LOOP;
3456: END IF;
3457:
3458: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3459: IBE_UTIL.Debug('End IBE_Quote_Misc_pvt.Get_Available_Services');
3460: END IF;
3461:
3462: END Get_Available_Services;
3463:
3533:
3534: l_initial_count := x_qte_line_tbl.COUNT + 1;
3535: x_qte_line_tbl(l_initial_count) := IBE_Quote_Misc_pvt.getLineRec(p_qte_line_id);
3536:
3537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3539: END IF;
3540: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3541: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3534: l_initial_count := x_qte_line_tbl.COUNT + 1;
3535: x_qte_line_tbl(l_initial_count) := IBE_Quote_Misc_pvt.getLineRec(p_qte_line_id);
3536:
3537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3539: END IF;
3540: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3541: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3542: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3537: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3538: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3539: END IF;
3540: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3541: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3542: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3543: END IF;
3544: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3545: END LOOP;
3538: IBE_UTIL.Debug(' Adding Lines From c_related_lines');
3539: END IF;
3540: FOR l_related_lines_rec IN c_related_lines(p_qte_line_id) LOOP
3541: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3542: IBE_UTIL.Debug(' Adding related_quote_line_id=' || l_related_lines_rec.related_quote_line_id);
3543: END IF;
3544: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3545: END LOOP;
3546:
3544: x_qte_line_tbl(x_qte_line_tbl.COUNT + 1) := IBE_Quote_Misc_pvt.getLineRec(l_related_lines_rec.related_quote_line_id);
3545: END LOOP;
3546:
3547:
3548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3549: ibe_util.debug('line number is='|| x_qte_line_tbl.count);
3550: END IF;
3551: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3552:
3545: END LOOP;
3546:
3547:
3548: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3549: ibe_util.debug('line number is='|| x_qte_line_tbl.count);
3550: END IF;
3551: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3552:
3553: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3551: FOR i IN l_initial_count..x_qte_line_tbl.COUNT LOOP
3552:
3553: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3554: (x_qte_line_tbl(i).quote_line_id);
3555: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3556: IBE_UTIL.Debug(' Processing LineDetailTbl Count=' || l_qte_line_dtl_tbl.COUNT);
3557: END IF;
3558: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3559: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3552:
3553: l_qte_line_dtl_tbl := IBE_Quote_Misc_pvt.getlineDetailTbl
3554: (x_qte_line_tbl(i).quote_line_id);
3555: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3556: IBE_UTIL.Debug(' Processing LineDetailTbl Count=' || l_qte_line_dtl_tbl.COUNT);
3557: END IF;
3558: FOR j IN 1..l_qte_line_dtl_tbl.COUNT LOOP
3559: IF l_qte_line_dtl_tbl(j).service_ref_line_id <> fnd_api.g_miss_num THEN
3560: -- All service_ref_line_id's should point to first entry in x_qte_line_tbl
3570: END LOOP;
3571:
3572:
3573: l_line_rltship_tbl := IBE_Quote_Misc_pvt.getlineRelationshipTbl(x_qte_line_tbl(i).quote_line_id);
3574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3575: IBE_UTIL.Debug(' Processing LineRelationshipTbl Count=' || l_line_rltship_tbl.COUNT);
3576: END IF;
3577:
3578: FOR j IN 1..l_line_rltship_tbl.COUNT LOOP
3571:
3572:
3573: l_line_rltship_tbl := IBE_Quote_Misc_pvt.getlineRelationshipTbl(x_qte_line_tbl(i).quote_line_id);
3574: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3575: IBE_UTIL.Debug(' Processing LineRelationshipTbl Count=' || l_line_rltship_tbl.COUNT);
3576: END IF;
3577:
3578: FOR j IN 1..l_line_rltship_tbl.COUNT LOOP
3579: IF NVL(l_line_rltship_tbl(j).relationship_type_code, '*') <> 'SERVICE' THEN
3585: := IBE_Quote_Misc_pvt.getLineIndexFromLineId
3586: ( l_line_rltship_tbl(j).related_quote_line_id
3587: ,x_qte_line_tbl
3588: );
3589: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3590: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3591: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3592: END IF;
3593: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3586: ( l_line_rltship_tbl(j).related_quote_line_id
3587: ,x_qte_line_tbl
3588: );
3589: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3590: IBE_UTIL.Debug(' related_quote_line_id=' || l_line_rltship_tbl(j).related_quote_line_id ||
3591: ' related_quote_line_index=' || l_line_rltship_tbl(j).related_qte_line_index);
3592: END IF;
3593: l_line_rltship_tbl(j).quote_line_id := fnd_api.g_miss_num;
3594: l_line_rltship_tbl(j).related_quote_line_id := fnd_api.g_miss_num;
3600:
3601:
3602: l_line_attr_ext_tbl := IBE_Quote_Misc_pvt.getLineAttrExtTbl
3603: (x_qte_line_tbl(i).quote_line_id);
3604: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3605: IBE_UTIL.Debug(' Processing LineAttrExtTbl Count=' || l_line_attr_ext_tbl.COUNT);
3606: END IF;
3607:
3608: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3601:
3602: l_line_attr_ext_tbl := IBE_Quote_Misc_pvt.getLineAttrExtTbl
3603: (x_qte_line_tbl(i).quote_line_id);
3604: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3605: IBE_UTIL.Debug(' Processing LineAttrExtTbl Count=' || l_line_attr_ext_tbl.COUNT);
3606: END IF;
3607:
3608: FOR j IN 1..l_line_attr_ext_tbl.COUNT LOOP
3609: l_line_attr_ext_tbl(j).line_attribute_id := fnd_api.g_miss_num;
3616: END LOOP;
3617:
3618: l_ln_price_attributes_tbl := IBE_Quote_Misc_pvt.getlinePrcAttrTbl
3619: (x_qte_line_tbl(i).quote_line_id);
3620: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3621: IBE_UTIL.Debug(' Processing linePrcAttrTbl Count=' || l_ln_price_attributes_tbl.COUNT);
3622: END IF;
3623:
3624: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3617:
3618: l_ln_price_attributes_tbl := IBE_Quote_Misc_pvt.getlinePrcAttrTbl
3619: (x_qte_line_tbl(i).quote_line_id);
3620: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3621: IBE_UTIL.Debug(' Processing linePrcAttrTbl Count=' || l_ln_price_attributes_tbl.COUNT);
3622: END IF;
3623:
3624: FOR j IN 1..l_ln_price_attributes_tbl.COUNT LOOP
3625: l_ln_price_attributes_tbl(j).price_attribute_id := fnd_api.g_miss_num;
3633:
3634: l_ln_price_adj_tbl := getHdrPrcAdjNonPRGTbl
3635: (p_qte_header_id => p_quote_header_id,
3636: p_qte_line_id => x_qte_line_tbl(i).quote_line_id);
3637: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3638: IBE_UTIL.Debug(' Processing LinePriceAdjTbl Count=' || l_ln_price_adj_tbl.COUNT);
3639: END IF;
3640:
3641: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3634: l_ln_price_adj_tbl := getHdrPrcAdjNonPRGTbl
3635: (p_qte_header_id => p_quote_header_id,
3636: p_qte_line_id => x_qte_line_tbl(i).quote_line_id);
3637: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3638: IBE_UTIL.Debug(' Processing LinePriceAdjTbl Count=' || l_ln_price_adj_tbl.COUNT);
3639: END IF;
3640:
3641: FOR j IN 1..l_ln_price_adj_tbl.COUNT LOOP
3642: l_ln_price_adj_tbl(j).price_adjustment_id := fnd_api.g_miss_num;
3662: = 'MDL' THEN
3663: l_old_config_hdr_id := x_qte_line_dtl_tbl(i).config_header_id;
3664: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3665:
3666: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3667: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3668: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3669: END IF;
3670:
3663: l_old_config_hdr_id := x_qte_line_dtl_tbl(i).config_header_id;
3664: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3665:
3666: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3667: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3668: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3669: END IF;
3670:
3671:
3664: l_old_config_rev_nbr := x_qte_line_dtl_tbl(i).config_revision_num;
3665:
3666: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3667: IBE_UTIL.debug('old config id = '|| l_old_config_hdr_id);
3668: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3669: END IF;
3670:
3671:
3672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3668: IBE_UTIL.debug('old config rev number = '|| l_old_config_rev_nbr);
3669: END IF;
3670:
3671:
3672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3673: IBE_UTIL.debug('call CZ_CONFIG_API_PUB.copy_configuration at'
3674: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3675: END IF;
3676:
3669: END IF;
3670:
3671:
3672: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3673: IBE_UTIL.debug('call CZ_CONFIG_API_PUB.copy_configuration at'
3674: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3675: END IF;
3676:
3677: --ER#4025142
3690: RAISE FND_API.G_EXC_ERROR;
3691: END IF;
3692:
3693:
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3696: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3697: END IF;
3698:
3691: END IF;
3692:
3693:
3694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3696: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3697: END IF;
3698:
3699: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3695: IBE_UTIL.DEBUG('done CZ_CONFIG_API_PUB.Copy_Configuration at'
3696: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3697: END IF;
3698:
3699: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3700: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3701: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3702: END IF;
3703:
3696: || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
3697: END IF;
3698:
3699: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3700: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3701: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3702: END IF;
3703:
3704: -- update all other dtl table
3697: END IF;
3698:
3699: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3700: IBE_UTIL.debug('new config id = '|| l_new_config_hdr_id);
3701: IBE_UTIL.debug('new config rev number = '|| l_new_config_rev_nbr);
3702: END IF;
3703:
3704: -- update all other dtl table
3705: FOR j in l_initial_dtl_count..x_qte_line_dtl_tbl.COUNT LOOP
3712: END LOOP;
3713: END IF;
3714: END LOOP;
3715:
3716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3717: ibe_util.debug('before out line number is='|| x_qte_line_tbl.count);
3718: END IF;
3719: -- Standard check of p_commit.
3720: IF FND_API.To_Boolean( p_commit ) THEN
3713: END IF;
3714: END LOOP;
3715:
3716: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3717: ibe_util.debug('before out line number is='|| x_qte_line_tbl.count);
3718: END IF;
3719: -- Standard check of p_commit.
3720: IF FND_API.To_Boolean( p_commit ) THEN
3721: COMMIT WORK;
3726: p_count => x_msg_count,
3727: p_data => x_msg_data);
3728: EXCEPTION
3729: WHEN FND_API.G_EXC_ERROR THEN
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3732: END IF;
3733:
3734: ROLLBACK TO DUPLICATE_LINE_PVT;
3727: p_data => x_msg_data);
3728: EXCEPTION
3729: WHEN FND_API.G_EXC_ERROR THEN
3730: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3731: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3732: END IF;
3733:
3734: ROLLBACK TO DUPLICATE_LINE_PVT;
3735: x_return_status := FND_API.G_RET_STS_ERROR;
3736: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3737: p_count => x_msg_count,
3738: p_data => x_msg_data);
3739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3741: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3742: END IF;
3743:
3744: ROLLBACK TO DUPLICATE_LINE_PVT;
3737: p_count => x_msg_count,
3738: p_data => x_msg_data);
3739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3740: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3741: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Duplicate_line');
3742: END IF;
3743:
3744: ROLLBACK TO DUPLICATE_LINE_PVT;
3745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3746: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3747: p_count => x_msg_count,
3748: p_data => x_msg_data);
3749: WHEN OTHERS THEN
3750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3751: IBE_Util.Debug('unknown error IBE_Quote_Misc_pvt.Duplicate_line');
3752: END IF;
3753:
3754: ROLLBACK TO DUPLICATE_LINE_PVT;
3747: p_count => x_msg_count,
3748: p_data => x_msg_data);
3749: WHEN OTHERS THEN
3750: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
3751: IBE_Util.Debug('unknown error IBE_Quote_Misc_pvt.Duplicate_line');
3752: END IF;
3753:
3754: ROLLBACK TO DUPLICATE_LINE_PVT;
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025:
4026:
4027: IF p_quantities IS NOT NULL THEN
4028:
4029: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4030: IBE_UTIL.Debug('Validating User Starts: Also Pquantities is not null');
4031: END IF;
4032:
4033: /* -- 4587019
4026:
4027: IF p_quantities IS NOT NULL THEN
4028:
4029: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4030: IBE_UTIL.Debug('Validating User Starts: Also Pquantities is not null');
4031: END IF;
4032:
4033: /* -- 4587019
4034: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
4033: /* -- 4587019
4034: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
4035:
4036: IF (l_last_update_date <> p_last_update_date) then
4037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4038: IBE_UTIL.Debug('comparing dates');
4039: END IF;
4040: p_last_update_date := l_last_update_date;
4041: -- raise error
4034: l_last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
4035:
4036: IF (l_last_update_date <> p_last_update_date) then
4037: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4038: IBE_UTIL.Debug('comparing dates');
4039: END IF;
4040: p_last_update_date := l_last_update_date;
4041: -- raise error
4042:
4068: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071:
4072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4073: IBE_UTIL.Debug('Validating User Finishes');
4074: END IF;
4075:
4076: l_qte_header_rec.quote_header_id := p_quote_header_id;
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071:
4072: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4073: IBE_UTIL.Debug('Validating User Finishes');
4074: END IF;
4075:
4076: l_qte_header_rec.quote_header_id := p_quote_header_id;
4077: l_qte_header_rec.last_update_date := IBE_Quote_Misc_pvt.getQuoteLastUpdatedate(p_quote_header_id);
4078: l_qte_line_rec.quote_line_id := p_qte_line_id;
4079: l_qte_line_count := l_qte_line_tbl.COUNT;
4080:
4081: For counter in 1.. p_quantities.count loop
4082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4083: IBE_UTIL.Debug('p_quantities(counter) '||p_quantities(counter));
4084: END IF;
4085: End loop;
4086:
4079: l_qte_line_count := l_qte_line_tbl.COUNT;
4080:
4081: For counter in 1.. p_quantities.count loop
4082: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4083: IBE_UTIL.Debug('p_quantities(counter) '||p_quantities(counter));
4084: END IF;
4085: End loop;
4086:
4087: For counter in 1.. p_quantities.count loop
4092: --mannamra:Removing references to obsoleted profile IBE_PRICE_REQUEST_TYPE see bug 2594529 for details
4093: l_control_rec.pricing_request_type := 'ASO';--FND_PROFILE.Value('IBE_PRICE_REQUEST_TYPE');
4094: l_control_rec.header_pricing_event := FND_PROFILE.Value('IBE_INCART_PRICING_EVENT');
4095: l_control_rec.line_pricing_event := FND_API.G_MISS_CHAR;
4096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4097: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
4098: END IF;
4099: aso_split_line_int.Split_Quote_line (
4100: P_Api_Version_Number => 1.0,
4093: l_control_rec.pricing_request_type := 'ASO';--FND_PROFILE.Value('IBE_PRICE_REQUEST_TYPE');
4094: l_control_rec.header_pricing_event := FND_PROFILE.Value('IBE_INCART_PRICING_EVENT');
4095: l_control_rec.line_pricing_event := FND_API.G_MISS_CHAR;
4096: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4097: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:start');
4098: END IF;
4099: aso_split_line_int.Split_Quote_line (
4100: P_Api_Version_Number => 1.0,
4101: P_Init_Msg_List => FND_API.G_TRUE,
4113: END IF;
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4116: END IF;
4117: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4119: END IF;
4120: END IF;
4121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4114: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4116: END IF;
4117: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4119: END IF;
4120: END IF;
4121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4122: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
4117: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4119: END IF;
4120: END IF;
4121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4122: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
4123: END IF;
4124: -- Standard check of p_commit.
4125: IF FND_API.To_Boolean( p_commit ) THEN
4118: IBE_UTIL.Debug('Split_quote_line: aso_split_line_int.split_quote_line:end');
4119: END IF;
4120: END IF;
4121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4122: IBE_UTIL.Debug('IBE_Quote_Misc_pvt.Split_Line Ends');
4123: END IF;
4124: -- Standard check of p_commit.
4125: IF FND_API.To_Boolean( p_commit ) THEN
4126: COMMIT WORK;
4130: p_count => lx_msg_count,
4131: p_data => lx_msg_data);
4132: EXCEPTION
4133: WHEN FND_API.G_EXC_ERROR THEN
4134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4135: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4136: END IF;
4137: ROLLBACK TO SPLIT_LINE_PVT;
4138: x_return_status := FND_API.G_RET_STS_ERROR;
4131: p_data => lx_msg_data);
4132: EXCEPTION
4133: WHEN FND_API.G_EXC_ERROR THEN
4134: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4135: IBE_Util.Debug('Unexpected error IBE_Quote_Misc_pvt.Split_line');
4136: END IF;
4137: ROLLBACK TO SPLIT_LINE_PVT;
4138: x_return_status := FND_API.G_RET_STS_ERROR;
4139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4139: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4140: p_count => lx_msg_count,
4141: p_data => lx_msg_data);
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4143: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4144: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4145: END IF;
4146: ROLLBACK TO SPLIT_LINE_PVT;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4140: p_count => lx_msg_count,
4141: p_data => lx_msg_data);
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4143: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4144: IBE_Util.Debug('Expected error IBE_Quote_Misc_pvt.Split_line');
4145: END IF;
4146: ROLLBACK TO SPLIT_LINE_PVT;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4148: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
4149: p_count => lx_msg_count,
4150: p_data => lx_msg_data);
4151: WHEN OTHERS THEN
4152: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4153: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Split_line');
4154: END IF;
4155: ROLLBACK TO SPLIT_LINE_PVT;
4156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4149: p_count => lx_msg_count,
4150: p_data => lx_msg_data);
4151: WHEN OTHERS THEN
4152: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4153: IBE_Util.Debug('Unknown error IBE_Quote_Misc_pvt.Split_line');
4154: END IF;
4155: ROLLBACK TO SPLIT_LINE_PVT;
4156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4215: SAVEPOINT validate_quote;
4216: -- Get resource_id, publish_flag and quote_status of a quote.
4217: -- Initialize API return status to success
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4220: IBE_UTIL.DEBUG('Begin Validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4221: END IF;
4222: open c_get_quote_details;
4223: fetch c_get_quote_details into l_resource_id,
4216: -- Get resource_id, publish_flag and quote_status of a quote.
4217: -- Initialize API return status to success
4218: x_return_status := FND_API.G_RET_STS_SUCCESS;
4219: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4220: IBE_UTIL.DEBUG('Begin Validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4221: END IF;
4222: open c_get_quote_details;
4223: fetch c_get_quote_details into l_resource_id,
4224: l_publish_flag,
4228: l_source_code;
4229: close c_get_quote_details;
4230:
4231: IF l_resource_id is not null and nvl(l_publish_flag,'N')='N' THEN
4232: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4233: IBE_UTIL.DEBUG('Validate_quote, quote is unpublished' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4234: END IF;
4235:
4236: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4229: close c_get_quote_details;
4230:
4231: IF l_resource_id is not null and nvl(l_publish_flag,'N')='N' THEN
4232: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4233: IBE_UTIL.DEBUG('Validate_quote, quote is unpublished' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4234: END IF;
4235:
4236: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4237: FND_Message.Set_Name('IBE', 'IBE_SC_QUOTE_NOT_PUBL');
4272: l_error := FND_API.G_TRUE;
4273: END IF;
4274: END IF;
4275: END IF;
4276: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4277: IBE_UTIL.DEBUG('Validate_quote: Validation for one-click start');
4278: END IF;
4279: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4280: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4273: END IF;
4274: END IF;
4275: END IF;
4276: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4277: IBE_UTIL.DEBUG('Validate_quote: Validation for one-click start');
4278: END IF;
4279: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4280: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4281: AND (l_source_code <> 'IStore Oneclick')) THEN
4278: END IF;
4279: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4280: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4281: AND (l_source_code <> 'IStore Oneclick')) THEN
4282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4283: IBE_UTIL.DEBUG('Validate_quote: Oneclick operation on a non-oneclick cart');
4284: END IF;
4285: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4286: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4279: IF (p_save_type <> END_WORKING AND p_save_type <> OP_DELETE_CART) THEN
4280: IF ((p_save_type = UPDATE_EXPRESSORDER OR p_save_type = SAVE_EXPRESSORDER)
4281: AND (l_source_code <> 'IStore Oneclick')) THEN
4282: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4283: IBE_UTIL.DEBUG('Validate_quote: Oneclick operation on a non-oneclick cart');
4284: END IF;
4285: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4286: FND_Message.Set_Name('IBE', 'IBE_SC_INVALID_OPERATION'); -- Invalid Operation
4287: FND_Msg_Pub.Add;
4290: ELSE
4291: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4292: AND (l_source_code = 'IStore Oneclick')) THEN
4293:
4294: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4295: IBE_UTIL.DEBUG('Validate_quote: Non-Oneclick operation on a oneclick cart');
4296: END IF;
4297:
4298: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4291: IF ((p_save_type <> UPDATE_EXPRESSORDER AND p_save_type <> SAVE_EXPRESSORDER)
4292: AND (l_source_code = 'IStore Oneclick')) THEN
4293:
4294: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4295: IBE_UTIL.DEBUG('Validate_quote: Non-Oneclick operation on a oneclick cart');
4296: END IF;
4297:
4298: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4299: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4310: l_party_id,
4311: l_cust_account_id) LOOP
4312: l_active_cart := rec_get_active_cart.quote_header_id;
4313: IF (l_active_cart is not null) THEN
4314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4315: IBE_UTIL.DEBUG('Validate_quote, active cart found, deactivate it' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4316: END IF;
4317:
4318: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
4311: l_cust_account_id) LOOP
4312: l_active_cart := rec_get_active_cart.quote_header_id;
4313: IF (l_active_cart is not null) THEN
4314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4315: IBE_UTIL.DEBUG('Validate_quote, active cart found, deactivate it' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4316: END IF;
4317:
4318: IBE_QUOTE_SAVESHARE_V2_PVT.DEACTIVATE_QUOTE (
4319: P_Quote_header_id => p_quote_header_id,
4339: RAISE FND_API.G_EXC_ERROR;
4340: END IF;
4341:
4342:
4343: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4344: IBE_UTIL.DEBUG('End validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4345: END IF;
4346:
4347: EXCEPTION
4340: END IF;
4341:
4342:
4343: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4344: IBE_UTIL.DEBUG('End validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4345: END IF;
4346:
4347: EXCEPTION
4348: WHEN FND_API.G_EXC_ERROR THEN
4350: x_return_status := FND_API.G_RET_STS_ERROR;
4351: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count ,
4353: p_data => x_msg_data);
4354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4355: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4356: END IF;
4357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4358: ROLLBACK TO validate_quote;
4351: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4352: p_count => x_msg_count ,
4353: p_data => x_msg_data);
4354: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4355: IBE_Util.Debug('End With Exp Exception IBE_Quote_Misc_pvt.validate_quote');
4356: END IF;
4357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4358: ROLLBACK TO validate_quote;
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4361: p_count => x_msg_count ,
4362: p_data => x_msg_data);
4363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4364: IBE_Util.Debug('End with UnExp Exception IBE_Quote_Misc_pvt.validate_quote');
4365: END IF;
4366: WHEN OTHERS THEN
4367: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4360: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4361: p_count => x_msg_count ,
4362: p_data => x_msg_data);
4363: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4364: IBE_Util.Debug('End with UnExp Exception IBE_Quote_Misc_pvt.validate_quote');
4365: END IF;
4366: WHEN OTHERS THEN
4367: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4368: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4370: END IF;
4371: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4372: p_count => x_msg_count ,
4373: p_data => x_msg_data);
4374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4375: IBE_Util.Debug('End with Others Exception IBE_Quote_Misc_pvt.validate_quote');
4376: END IF;
4377: END validate_quote;
4378:
4371: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4372: p_count => x_msg_count ,
4373: p_data => x_msg_data);
4374: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4375: IBE_Util.Debug('End with Others Exception IBE_Quote_Misc_pvt.validate_quote');
4376: END IF;
4377: END validate_quote;
4378:
4379: PROCEDURE Validate_User_Update(
4489: rec_ActiveCartType_info c_getActiveCartTypeInfo%rowtype;
4490:
4491: BEGIN
4492:
4493: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4494: IBE_UTIL.DEBUG('Begin validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4495: END IF;
4496:
4497: -- Standard call to check for call compatibility.
4490:
4491: BEGIN
4492:
4493: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4494: IBE_UTIL.DEBUG('Begin validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4495: END IF;
4496:
4497: -- Standard call to check for call compatibility.
4498: IF NOT FND_API.Compatible_API_Call (l_api_version,
4513: x_return_status := FND_API.G_RET_STS_SUCCESS;
4514:
4515: -- API body
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4514:
4515: -- API body
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4515: -- API body
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4516:
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4517: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4525:
4518: IBE_UTIL.DEBUG('Incoming party_id is '||p_party_id);
4519: IBE_UTIL.DEBUG('Incoming cust_account_id is '||p_cust_account_id);
4520: IBE_UTIL.DEBUG('Incoming quote_header_id is '||p_quote_header_id);
4521: IBE_UTIL.DEBUG('User id obtained from environment is: '||l_user_id);
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4525:
4526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4522: IBE_UTIL.DEBUG('p_save_type is :'||p_save_type);
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4525:
4526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4527: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4528: END IF;
4529:
4530: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4523: END IF;
4524: IF (FND_API.to_Boolean(p_validate_user) AND p_quote_header_id is not null AND p_quote_header_id <> FND_API.G_MISS_NUM) Then
4525:
4526: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4527: IBE_UTIL.DEBUG('Entered Validation...'|| p_validate_user);
4528: END IF;
4529:
4530: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4531:
4528: END IF;
4529:
4530: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4531:
4532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4533: IBE_UTIL.DEBUG('In validating Recipient flow '||p_quote_retrieval_number||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4534: END IF;
4535:
4536: OPEN c_getShareeInfo;
4529:
4530: IF (p_quote_retrieval_number is not null AND p_quote_retrieval_number <> FND_API.G_MISS_NUM) then
4531:
4532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4533: IBE_UTIL.DEBUG('In validating Recipient flow '||p_quote_retrieval_number||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4534: END IF;
4535:
4536: OPEN c_getShareeInfo;
4537: FETCH c_getShareeInfo INTO rec_sharee_info;
4536: OPEN c_getShareeInfo;
4537: FETCH c_getShareeInfo INTO rec_sharee_info;
4538: CLOSE c_getShareeInfo;
4539:
4540: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4541: IBE_UTIL.DEBUG('rec_sharee_info.quote_header_id : '||rec_sharee_info.quote_header_id);
4542: END IF;
4543:
4544: IF ((rec_sharee_info.quote_header_id is null) OR
4537: FETCH c_getShareeInfo INTO rec_sharee_info;
4538: CLOSE c_getShareeInfo;
4539:
4540: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4541: IBE_UTIL.DEBUG('rec_sharee_info.quote_header_id : '||rec_sharee_info.quote_header_id);
4542: END IF;
4543:
4544: IF ((rec_sharee_info.quote_header_id is null) OR
4545: (nvl(rec_sharee_info.end_date_active,sysdate+1) <= sysdate)) then
4546: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4547: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4548: FND_Msg_Pub.Add;
4549: END IF;
4550: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4551: IBE_UTIL.DEBUG('quote_retrieval_number::quotehdrId'||'('||p_quote_retrieval_number||','||p_quote_header_id||')');
4552: END IF;
4553: RAISE FND_API.G_EXC_ERROR;
4554: END IF;
4547: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4548: FND_Msg_Pub.Add;
4549: END IF;
4550: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4551: IBE_UTIL.DEBUG('quote_retrieval_number::quotehdrId'||'('||p_quote_retrieval_number||','||p_quote_header_id||')');
4552: END IF;
4553: RAISE FND_API.G_EXC_ERROR;
4554: END IF;
4555:
4552: END IF;
4553: RAISE FND_API.G_EXC_ERROR;
4554: END IF;
4555:
4556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4557: IBE_UTIL.DEBUG('rec_sharee_info.party_id : '||rec_sharee_info.party_id);
4558: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4559: END IF;
4560:
4553: RAISE FND_API.G_EXC_ERROR;
4554: END IF;
4555:
4556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4557: IBE_UTIL.DEBUG('rec_sharee_info.party_id : '||rec_sharee_info.party_id);
4558: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4559: END IF;
4560:
4561:
4554: END IF;
4555:
4556: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4557: IBE_UTIL.DEBUG('rec_sharee_info.party_id : '||rec_sharee_info.party_id);
4558: IBE_UTIL.DEBUG('rec_sharee_info.cust_account_id : '||rec_sharee_info.cust_account_id);
4559: END IF;
4560:
4561:
4562: -- if we have party and acct passed in AND in the table then
4569: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4570: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4571: FND_Msg_Pub.Add;
4572: END IF;
4573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4574: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4575: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4576: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4577: END IF;
4570: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4571: FND_Msg_Pub.Add;
4572: END IF;
4573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4574: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4575: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4576: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4577: END IF;
4578: RAISE FND_API.G_EXC_ERROR;
4571: FND_Msg_Pub.Add;
4572: END IF;
4573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4574: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4575: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4576: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4577: END IF;
4578: RAISE FND_API.G_EXC_ERROR;
4579: end if;
4572: END IF;
4573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4574: IBE_UTIL.DEBUG('passed in partyid and account id does not match those of the retrieval number');
4575: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4576: IBE_UTIL.DEBUG('retrieval partyid: ' || rec_sharee_info.party_id || ' and account id : ' || rec_sharee_info.cust_account_id);
4577: END IF;
4578: RAISE FND_API.G_EXC_ERROR;
4579: end if;
4580: -- otherwise, we may have a case where we can validate and then upgrade a partyless row to have a partyid and acctid
4581: elsif ((rec_sharee_info.party_id is null) and
4582: (rec_sharee_info.cust_account_id is null) and
4583: (p_party_id <> FND_API.G_MISS_NUM) and
4584: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4585: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4586: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4587: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4588: END IF;
4589: upgrade_recipient_row(
4582: (rec_sharee_info.cust_account_id is null) and
4583: (p_party_id <> FND_API.G_MISS_NUM) and
4584: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4585: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4586: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4587: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4588: END IF;
4589: upgrade_recipient_row(
4590: p_party_id => p_party_id,
4583: (p_party_id <> FND_API.G_MISS_NUM) and
4584: (p_cust_account_id <> FND_API.G_MISS_NUM)) then
4585: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4586: IBE_UTIL.DEBUG('we have blank partyid and acctid in the share table, see if we can upgrade this row...');
4587: IBE_UTIL.DEBUG('passed in partyid: ' || p_party_id || ' and account id : ' || p_cust_account_id);
4588: END IF;
4589: upgrade_recipient_row(
4590: p_party_id => p_party_id,
4591: p_cust_account_id => p_cust_account_id,
4599: END IF;
4600: end if;
4601: end if;
4602:
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('rec_sharee_info.update_privilege_type_code : '||rec_sharee_info.update_privilege_type_code);
4605: END IF;
4606:
4607: --Skip this validation for Duplicate Action
4600: end if;
4601: end if;
4602:
4603: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4604: IBE_UTIL.DEBUG('rec_sharee_info.update_privilege_type_code : '||rec_sharee_info.update_privilege_type_code);
4605: END IF;
4606:
4607: --Skip this validation for Duplicate Action
4608: IF p_save_type <> OP_DUPLICATE_CART THEN
4628: end if;
4629: -- else, the access level is Admin and we are okay to do other validations
4630: END IF; --Duplicate action
4631: ELSE
4632: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4633: IBE_UTIL.DEBUG('no sharee number');
4634: END IF;
4635:
4636: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4629: -- else, the access level is Admin and we are okay to do other validations
4630: END IF; --Duplicate action
4631: ELSE
4632: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4633: IBE_UTIL.DEBUG('no sharee number');
4634: END IF;
4635:
4636: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4637: OPEN c_getActiveCartTypeInfo;
4636: -- 9/11/02: if the cartId passed in is a Guest Cart, we should not go forth w/ the validation
4637: OPEN c_getActiveCartTypeInfo;
4638: FETCH c_getActiveCartTypeInfo INTO rec_ActiveCartType_info;
4639: CLOSE c_getActiveCartTypeInfo;
4640: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4641: IBE_UTIL.DEBUG('quote_source_code of cart passed in='||rec_ActiveCartType_info.quote_source_code);
4642: END IF;
4643: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4644: return;
4637: OPEN c_getActiveCartTypeInfo;
4638: FETCH c_getActiveCartTypeInfo INTO rec_ActiveCartType_info;
4639: CLOSE c_getActiveCartTypeInfo;
4640: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4641: IBE_UTIL.DEBUG('quote_source_code of cart passed in='||rec_ActiveCartType_info.quote_source_code);
4642: END IF;
4643: if (rec_ActiveCartType_info.quote_source_code = 'IStore Walkin') then
4644: return;
4645: end if;
4645: end if;
4646:
4647: IF ((p_party_id is not null AND p_party_id <> FND_API.G_MISS_NUM) AND (p_cust_account_id is not null AND p_cust_account_id <> FND_API.G_MISS_NUM)) THEN
4648:
4649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4650: IBE_UTIL.DEBUG('In validating Owner flow: '||p_party_id||','||p_cust_account_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4651: END IF;
4652: OPEN c_getQuoteInfo;
4653: FETCH c_getQuoteInfo INTO l_db_quote_header_id;
4646:
4647: IF ((p_party_id is not null AND p_party_id <> FND_API.G_MISS_NUM) AND (p_cust_account_id is not null AND p_cust_account_id <> FND_API.G_MISS_NUM)) THEN
4648:
4649: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4650: IBE_UTIL.DEBUG('In validating Owner flow: '||p_party_id||','||p_cust_account_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4651: END IF;
4652: OPEN c_getQuoteInfo;
4653: FETCH c_getQuoteInfo INTO l_db_quote_header_id;
4654: CLOSE c_getQuoteInfo;
4656: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4657: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4658: FND_Msg_Pub.Add;
4659: END IF;
4660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4661: IBE_UTIL.DEBUG('partyId::custAcctId::quotehdrId'||'('||p_party_id||','||p_cust_account_id||','||p_quote_header_id||')');
4662: END IF;
4663: RAISE FND_API.G_EXC_ERROR;
4664: END IF;
4657: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4658: FND_Msg_Pub.Add;
4659: END IF;
4660: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4661: IBE_UTIL.DEBUG('partyId::custAcctId::quotehdrId'||'('||p_party_id||','||p_cust_account_id||','||p_quote_header_id||')');
4662: END IF;
4663: RAISE FND_API.G_EXC_ERROR;
4664: END IF;
4665: ELSE
4666: -- retrieving user info from environment
4667: OPEN c_getResourceInfo;
4668: FETCH c_getResourceInfo INTO l_db_user_id;
4669: CLOSE c_getResourceInfo;
4670: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4671: IBE_UTIL.DEBUG('Owner flow with env. userid: '||l_db_user_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4672: END IF;
4673:
4674: IF l_db_user_id is null then
4667: OPEN c_getResourceInfo;
4668: FETCH c_getResourceInfo INTO l_db_user_id;
4669: CLOSE c_getResourceInfo;
4670: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4671: IBE_UTIL.DEBUG('Owner flow with env. userid: '||l_db_user_id||' '||to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4672: END IF;
4673:
4674: IF l_db_user_id is null then
4675: OPEN c_getPartyInfo(l_user_id);
4694: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4695: FND_Message.Set_Name('IBE', 'IBE_SC_USERACCESS_ERR');
4696: FND_Msg_Pub.Add;
4697: END IF;
4698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4699: IBE_UTIL.DEBUG('partyId::quotehdrId'||'('||p_party_id||','||p_quote_header_id||')');
4700: END IF;
4701: RAISE FND_API.G_EXC_ERROR;
4702: END IF; -- end if l_db_quote_header_id is null
4695: FND_Message.Set_Name('IBE', 'IBE_SC_USERACCESS_ERR');
4696: FND_Msg_Pub.Add;
4697: END IF;
4698: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4699: IBE_UTIL.DEBUG('partyId::quotehdrId'||'('||p_party_id||','||p_quote_header_id||')');
4700: END IF;
4701: RAISE FND_API.G_EXC_ERROR;
4702: END IF; -- end if l_db_quote_header_id is null
4703: END IF; -- end if l_db_user_id is null
4703: END IF; -- end if l_db_user_id is null
4704: END IF; -- end section of user info from env
4705: END IF; -- end if no sharee number
4706:
4707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4708: IBE_UTIL.DEBUG('Validate_user_update: Before Last update date validation,p_last_update_date= '||p_last_update_date);
4709: END IF;
4710:
4711: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4704: END IF; -- end section of user info from env
4705: END IF; -- end if no sharee number
4706:
4707: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4708: IBE_UTIL.DEBUG('Validate_user_update: Before Last update date validation,p_last_update_date= '||p_last_update_date);
4709: END IF;
4710:
4711: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4712: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4708: IBE_UTIL.DEBUG('Validate_user_update: Before Last update date validation,p_last_update_date= '||p_last_update_date);
4709: END IF;
4710:
4711: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4712: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4713: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation START');
4714: END IF;
4715: FOR rec_last_update_date in c_last_update_date(p_quote_header_id) LOOP
4716: l_last_update_date := rec_last_update_date.last_update_date;
4709: END IF;
4710:
4711: IF (p_last_update_date <> FND_API.G_MISS_DATE) THEN
4712: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4713: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation START');
4714: END IF;
4715: FOR rec_last_update_date in c_last_update_date(p_quote_header_id) LOOP
4716: l_last_update_date := rec_last_update_date.last_update_date;
4717: l_quote_status := rec_last_update_date.status_code;
4719: l_owner_party_id := rec_last_update_date.party_id;
4720: l_resource_id := rec_last_update_date.resource_id;
4721: EXIT when c_last_update_date%NOTFOUND;
4722: END LOOP;
4723: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4724: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4725: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4726: END IF;
4727: IF(l_last_update_date <> p_last_update_date) THEN
4720: l_resource_id := rec_last_update_date.resource_id;
4721: EXIT when c_last_update_date%NOTFOUND;
4722: END LOOP;
4723: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4724: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4725: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4726: END IF;
4727: IF(l_last_update_date <> p_last_update_date) THEN
4728: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4721: EXIT when c_last_update_date%NOTFOUND;
4722: END LOOP;
4723: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4724: IBE_UTIL.DEBUG('Validate_user_update: l_last_update_date='||to_char(l_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4725: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4726: END IF;
4727: IF(l_last_update_date <> p_last_update_date) THEN
4728: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4725: IBE_UTIL.DEBUG('Validate_user_update: p_last_update_date='||to_char(p_last_update_date,'mm/dd/yyyy:hh24:MI:SS'));
4726: END IF;
4727: IF(l_last_update_date <> p_last_update_date) THEN
4728: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4730: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_already_ordered error');
4731: END IF;
4732:
4733: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4726: END IF;
4727: IF(l_last_update_date <> p_last_update_date) THEN
4728: IF (l_quote_status = 'ORDER SUBMITTED') THEN
4729: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4730: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_already_ordered error');
4731: END IF;
4732:
4733: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4734: FND_Message.Set_Name('IBE', 'IBE_SC_CART_ORDERED');
4741: OPEN c_getPartyInfo(l_last_updated_by);
4742: FETCH c_getPartyInfo INTO l_last_upd_party_id;
4743: CLOSE c_getPartyInfo;
4744: -- have to use party id to determine owner since createdby may be the sales rep
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4747: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4748: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4749: END IF;
4742: FETCH c_getPartyInfo INTO l_last_upd_party_id;
4743: CLOSE c_getPartyInfo;
4744: -- have to use party id to determine owner since createdby may be the sales rep
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4747: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4748: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4749: END IF;
4750:
4743: CLOSE c_getPartyInfo;
4744: -- have to use party id to determine owner since createdby may be the sales rep
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4747: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4748: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4749: END IF;
4750:
4751: -- user is not last updated, and last update is the owner (another member)
4744: -- have to use party id to determine owner since createdby may be the sales rep
4745: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4746: IBE_UTIL.DEBUG('Validate_user_update: l_last_upd_party_id : ' || l_last_upd_party_id);
4747: IBE_UTIL.DEBUG('Validate_user_update: l_owner_party_id : ' || l_owner_party_id);
4748: IBE_UTIL.DEBUG('Validate_user_update: l_resource_id : ' || l_resource_id);
4749: END IF;
4750:
4751: -- user is not last updated, and last update is the owner (another member)
4752: if (l_last_upd_party_id = l_owner_party_id) then
4772: -- otherwise, the last person to have updated the cart was a sales rep
4773: l_err_code := 'IBE_SC_ERR_RELOAD_SALESREP_UPD';
4774: end if;
4775:
4776: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4777: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_needs_refresh error : ' || l_err_code);
4778: END IF;
4779:
4780: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4773: l_err_code := 'IBE_SC_ERR_RELOAD_SALESREP_UPD';
4774: end if;
4775:
4776: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4777: IBE_UTIL.DEBUG('Validate_user_update: raising Quote_needs_refresh error : ' || l_err_code);
4778: END IF;
4779:
4780: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4781: FND_Message.Set_Name('IBE', l_err_code);
4785: END IF;
4786: END IF;
4787: END IF;
4788:
4789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4790: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation END');
4791: END IF;
4792:
4793: END IF; -- last_update_date validation end.
4786: END IF;
4787: END IF;
4788:
4789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4790: IBE_UTIL.DEBUG('Validate_user_update: Last update date validation END');
4791: END IF;
4792:
4793: END IF; -- last_update_date validation end.
4794:
4791: END IF;
4792:
4793: END IF; -- last_update_date validation end.
4794:
4795: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4796: IBE_UTIL.DEBUG('Before calling validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4797: END IF;
4798: -- call an internal api, for quote or cart validation.
4799: validate_quote(p_quote_header_id,
4792:
4793: END IF; -- last_update_date validation end.
4794:
4795: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4796: IBE_UTIL.DEBUG('Before calling validate_quote' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4797: END IF;
4798: -- call an internal api, for quote or cart validation.
4799: validate_quote(p_quote_header_id,
4800: p_save_type,
4801: x_return_status,
4802: x_msg_count,
4803: x_msg_data);
4804:
4805: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4806: IBE_UTIL.DEBUG('End validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4807: END IF;
4808: END IF; -- end if quote header id is not null
4809: EXCEPTION
4802: x_msg_count,
4803: x_msg_data);
4804:
4805: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4806: IBE_UTIL.DEBUG('End validate_user_update' || to_char(sysdate, 'mm/dd/yyyy:hh24:MI:SS'));
4807: END IF;
4808: END IF; -- end if quote header id is not null
4809: EXCEPTION
4810: WHEN FND_API.G_EXC_ERROR THEN
4811: x_return_status := FND_API.G_RET_STS_ERROR;
4812: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4813: p_count => x_msg_count ,
4814: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4817: END IF;
4818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4812: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4813: p_count => x_msg_count ,
4814: p_data => x_msg_data);
4815: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4816: IBE_Util.Debug('End:Expected exception:IBE_Quote_Misc_pvt.validate_user_update');
4817: END IF;
4818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4821: p_count => x_msg_count ,
4822: p_data => x_msg_data);
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: IBE_Util.Debug('End:Unexpected exception:IBE_Quote_Misc_pvt.validate_user_update');
4825: END IF;
4826: WHEN OTHERS THEN
4827: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4820: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4821: p_count => x_msg_count ,
4822: p_data => x_msg_data);
4823: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4824: IBE_Util.Debug('End:Unexpected exception:IBE_Quote_Misc_pvt.validate_user_update');
4825: END IF;
4826: WHEN OTHERS THEN
4827: IF FND_Msg_Pub.Check_Msg_Level(FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
4828: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
4830: END IF;
4831: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4832: p_count => x_msg_count ,
4833: p_data => x_msg_data);
4834: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4835: IBE_Util.Debug('End:Others exception:IBE_Quote_Misc_pvt.validate_user_update');
4836: END IF;
4837: END validate_user_update;
4838:
4831: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
4832: p_count => x_msg_count ,
4833: p_data => x_msg_data);
4834: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4835: IBE_Util.Debug('End:Others exception:IBE_Quote_Misc_pvt.validate_user_update');
4836: END IF;
4837: END validate_user_update;
4838:
4839: /*This procedure is used to save the missing party_id and cust_account_id
4870: l_party_type_recipient VARCHAR2(30);
4871:
4872: BEGIN
4873: x_valid_flag := FND_API.G_TRUE;
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4871:
4872: BEGIN
4873: x_valid_flag := FND_API.G_TRUE;
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4879: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4872: BEGIN
4873: x_valid_flag := FND_API.G_TRUE;
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4879: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4880: END IF;
4873: x_valid_flag := FND_API.G_TRUE;
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4879: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4880: END IF;
4881:
4874: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4879: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4880: END IF;
4881:
4882: FOR rec_get_sold_to in c_get_sold_to(p_quote_header_id) LOOP
4875: IBE_UTIL.DEBUG('upgrade_recipient_row: BEGIN ');
4876: IBE_UTIL.DEBUG(' p_party_id : ' || p_party_id);
4877: IBE_UTIL.DEBUG(' p_cust_account_id : ' || p_cust_account_id);
4878: IBE_UTIL.DEBUG(' p_retrieval_number: ' || p_retrieval_number);
4879: IBE_UTIL.DEBUG(' p_quote_header_id : ' || p_quote_header_id);
4880: END IF;
4881:
4882: FOR rec_get_sold_to in c_get_sold_to(p_quote_header_id) LOOP
4883: l_sold_to_cust := rec_get_sold_to.cust_account_id;
4883: l_sold_to_cust := rec_get_sold_to.cust_account_id;
4884: l_party_type_cart_owner := rec_get_sold_to.party_type;
4885: exit when c_get_sold_to%NOTFOUND;
4886: END LOOP;
4887: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4888: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4889: end if;
4890: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4891: if (p_cust_account_id <> l_sold_to_cust) THEN
4884: l_party_type_cart_owner := rec_get_sold_to.party_type;
4885: exit when c_get_sold_to%NOTFOUND;
4886: END LOOP;
4887: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4888: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4889: end if;
4890: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4891: if (p_cust_account_id <> l_sold_to_cust) THEN
4892: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4888: IBE_UTIL.DEBUG(' cart owner pty type: ' || l_party_type_cart_owner);
4889: end if;
4890: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4891: if (p_cust_account_id <> l_sold_to_cust) THEN
4892: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4893: IBE_UTIL.DEBUG('Not upgrading as the b2b cart account id does not match the account id passed in');
4894: END IF;
4895: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4896: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4889: end if;
4890: IF(l_party_type_cart_owner = 'PARTY_RELATIONSHIP') then
4891: if (p_cust_account_id <> l_sold_to_cust) THEN
4892: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4893: IBE_UTIL.DEBUG('Not upgrading as the b2b cart account id does not match the account id passed in');
4894: END IF;
4895: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4896: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4897: FND_Msg_Pub.Add;
4904: FETCH c_get_party_type into l_party_type_recipient;
4905: CLOSE c_get_party_type;
4906:
4907: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4908: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4909: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4910: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4911: END IF;
4912: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4905: CLOSE c_get_party_type;
4906:
4907: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4908: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4909: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4910: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4911: END IF;
4912: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4913: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4906:
4907: if (l_party_type_cart_owner <> l_party_type_recipient) THEN
4908: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4909: IBE_UTIL.DEBUG('Not saving party and cust_account_id because the recipient is not a b2c user');
4910: IBE_UTIL.DEBUG('Recipient user type: ' || l_party_type_recipient);
4911: END IF;
4912: IF FND_Msg_Pub.Check_Msg_Level (FND_Msg_Pub.G_MSG_LVL_ERROR) THEN
4913: FND_Message.Set_Name('IBE', 'IBE_SC_ERR_USERACCESS');
4914: FND_Msg_Pub.Add;
4919: END IF; -- end person check
4920:
4921: if (x_valid_flag = FND_API.G_TRUE) then
4922: -- if we passed validations then upgrade the share row with the partyid and accountid
4923: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4924: IBE_UTIL.DEBUG('Upgrading the share row with input partyid and accountid.');
4925: END IF;
4926:
4927: OPEN c_sharee_id(p_retrieval_number);
4920:
4921: if (x_valid_flag = FND_API.G_TRUE) then
4922: -- if we passed validations then upgrade the share row with the partyid and accountid
4923: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
4924: IBE_UTIL.DEBUG('Upgrading the share row with input partyid and accountid.');
4925: END IF;
4926:
4927: OPEN c_sharee_id(p_retrieval_number);
4928: FETCH c_sharee_id into l_recip_id;
4999: SELECT sys_context('multi_org2','current_org_id') sys_context from dual;
5000: rec_SysContext c_getSysContext%rowtype;
5001:
5002: Begin
5003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5004: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
5005: END IF;
5006:
5007: -- 1. AppId
5000: rec_SysContext c_getSysContext%rowtype;
5001:
5002: Begin
5003: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5004: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
5005: END IF;
5006:
5007: -- 1. AppId
5008: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5004: IBE_UTIL.DEBUG('Log_Environment_Info: Begin');
5005: END IF;
5006:
5007: -- 1. AppId
5008: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5009: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: Begin');
5010: END IF;
5011: open c_getAppId;
5012: fetch c_getAppId into rec_AppId;
5005: END IF;
5006:
5007: -- 1. AppId
5008: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5009: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: Begin');
5010: END IF;
5011: open c_getAppId;
5012: fetch c_getAppId into rec_AppId;
5013: close c_getAppId;
5010: END IF;
5011: open c_getAppId;
5012: fetch c_getAppId into rec_AppId;
5013: close c_getAppId;
5014: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5015: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
5016: END IF;
5017:
5018: -- 2. RespId
5011: open c_getAppId;
5012: fetch c_getAppId into rec_AppId;
5013: close c_getAppId;
5014: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5015: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
5016: END IF;
5017:
5018: -- 2. RespId
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5015: IBE_UTIL.DEBUG('Log_Environment_Info: AppId: End='||rec_AppId.appId);
5016: END IF;
5017:
5018: -- 2. RespId
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5020: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: Begin');
5021: END IF;
5022: open c_getRespId;
5023: fetch c_getRespId into rec_RespId;
5016: END IF;
5017:
5018: -- 2. RespId
5019: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5020: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: Begin');
5021: END IF;
5022: open c_getRespId;
5023: fetch c_getRespId into rec_RespId;
5024: close c_getRespId;
5021: END IF;
5022: open c_getRespId;
5023: fetch c_getRespId into rec_RespId;
5024: close c_getRespId;
5025: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5026: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
5027: END IF;
5028:
5029: -- 3. UserId
5022: open c_getRespId;
5023: fetch c_getRespId into rec_RespId;
5024: close c_getRespId;
5025: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5026: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
5027: END IF;
5028:
5029: -- 3. UserId
5030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5026: IBE_UTIL.DEBUG('Log_Environment_Info: RespId: End='||rec_RespId.respId);
5027: END IF;
5028:
5029: -- 3. UserId
5030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5031: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: Begin');
5032: END IF;
5033: open c_getUserId;
5034: fetch c_getUserId into rec_UserId;
5027: END IF;
5028:
5029: -- 3. UserId
5030: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5031: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: Begin');
5032: END IF;
5033: open c_getUserId;
5034: fetch c_getUserId into rec_UserId;
5035: close c_getUserId;
5032: END IF;
5033: open c_getUserId;
5034: fetch c_getUserId into rec_UserId;
5035: close c_getUserId;
5036: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5037: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
5038: END IF;
5039:
5040: -- 4. OrgId
5033: open c_getUserId;
5034: fetch c_getUserId into rec_UserId;
5035: close c_getUserId;
5036: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5037: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
5038: END IF;
5039:
5040: -- 4. OrgId
5041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5037: IBE_UTIL.DEBUG('Log_Environment_Info: UserId: End='||rec_UserId.userId);
5038: END IF;
5039:
5040: -- 4. OrgId
5041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5042: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: Begin');
5043: END IF;
5044: open c_getOrgId;
5045: fetch c_getOrgId into rec_OrgId;
5038: END IF;
5039:
5040: -- 4. OrgId
5041: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5042: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: Begin');
5043: END IF;
5044: open c_getOrgId;
5045: fetch c_getOrgId into rec_OrgId;
5046: close c_getOrgId;
5043: END IF;
5044: open c_getOrgId;
5045: fetch c_getOrgId into rec_OrgId;
5046: close c_getOrgId;
5047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5048: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
5049: END IF;
5050:
5051: -- 5. EnvInfo
5044: open c_getOrgId;
5045: fetch c_getOrgId into rec_OrgId;
5046: close c_getOrgId;
5047: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5048: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
5049: END IF;
5050:
5051: -- 5. EnvInfo
5052: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5048: IBE_UTIL.DEBUG('Log_Environment_Info: OrgId: End='||rec_OrgId.orgId);
5049: END IF;
5050:
5051: -- 5. EnvInfo
5052: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5053: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: Begin');
5054: END IF;
5055: open c_getEnvInfo;
5056: fetch c_getEnvInfo into rec_EnvInfo;
5049: END IF;
5050:
5051: -- 5. EnvInfo
5052: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5053: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: Begin');
5054: END IF;
5055: open c_getEnvInfo;
5056: fetch c_getEnvInfo into rec_EnvInfo;
5057: close c_getEnvInfo;
5054: END IF;
5055: open c_getEnvInfo;
5056: fetch c_getEnvInfo into rec_EnvInfo;
5057: close c_getEnvInfo;
5058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5055: open c_getEnvInfo;
5056: fetch c_getEnvInfo into rec_EnvInfo;
5057: close c_getEnvInfo;
5058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5056: fetch c_getEnvInfo into rec_EnvInfo;
5057: close c_getEnvInfo;
5058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5064: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
5057: close c_getEnvInfo;
5058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5064: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
5065: END IF;
5058: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5064: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
5065: END IF;
5066:
5059: IBE_UTIL.DEBUG('Session_id='||rec_EnvInfo.session_id);
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5064: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
5065: END IF;
5066:
5067: -- 6. ICXSession Details
5060: IBE_UTIL.DEBUG('UserName='||rec_EnvInfo.user_name);
5061: IBE_UTIL.DEBUG('login_id='||rec_EnvInfo.login_id);
5062: IBE_UTIL.DEBUG('Client_info='||rec_EnvInfo.client_info);
5063: IBE_UTIL.DEBUG('Language='||rec_EnvInfo.lang);
5064: IBE_UTIL.DEBUG('Log_Environment_Info: EnvInfo: End');
5065: END IF;
5066:
5067: -- 6. ICXSession Details
5068: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
5065: END IF;
5066:
5067: -- 6. ICXSession Details
5068: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
5069: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5070: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: Begin');
5071: END IF;
5072: open c_getICXSessionDetails(rec_EnvInfo.session_id);
5073: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
5066:
5067: -- 6. ICXSession Details
5068: /* COMMENTED OUT..NEED TO GET THE ICX SESSION ID AND RUN THE CURSOR.
5069: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5070: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: Begin');
5071: END IF;
5072: open c_getICXSessionDetails(rec_EnvInfo.session_id);
5073: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
5074: close c_getICXSessionDetails;
5071: END IF;
5072: open c_getICXSessionDetails(rec_EnvInfo.session_id);
5073: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
5074: close c_getICXSessionDetails;
5075: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5072: open c_getICXSessionDetails(rec_EnvInfo.session_id);
5073: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
5074: close c_getICXSessionDetails;
5075: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5073: fetch c_getICXSessionDetails into rec_ICXSessionDetails;
5074: close c_getICXSessionDetails;
5075: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5074: close c_getICXSessionDetails;
5075: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5075: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5076: IBE_UTIL.DEBUG('session_id='||rec_ICXSessionDetails.session_id);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5077: IBE_UTIL.DEBUG('user_id='||rec_ICXSessionDetails.user_id);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5078: IBE_UTIL.DEBUG('responsibility_id='||rec_ICXSessionDetails.responsibility_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5079: IBE_UTIL.DEBUG('org_id='||rec_ICXSessionDetails.org_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5080: IBE_UTIL.DEBUG('nls_language='||rec_ICXSessionDetails.nls_language);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5081: IBE_UTIL.DEBUG('created_by='||rec_ICXSessionDetails.created_by);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5082: IBE_UTIL.DEBUG('creation_date='||rec_ICXSessionDetails.creation_date);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5083: IBE_UTIL.DEBUG('last_updated_by='||rec_ICXSessionDetails.last_updated_by);
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5084: IBE_UTIL.DEBUG('last_update_date='||rec_ICXSessionDetails.last_update_date);
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5092: END IF; */
5085: IBE_UTIL.DEBUG('last_update_login='||rec_ICXSessionDetails.last_update_login);
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5092: END IF; */
5093:
5086: IBE_UTIL.DEBUG('responsibility_application_id='||rec_ICXSessionDetails.responsibility_application_id);
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5092: END IF; */
5093:
5094: -- 7.MO Temp Table details
5087: IBE_UTIL.DEBUG('security_group_id='||rec_ICXSessionDetails.security_group_id);
5088: IBE_UTIL.DEBUG('page_id='||rec_ICXSessionDetails.page_id);
5089: IBE_UTIL.DEBUG('login_id='||rec_ICXSessionDetails.login_id);
5090: IBE_UTIL.DEBUG('time_out='||rec_ICXSessionDetails.time_out);
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5092: END IF; */
5093:
5094: -- 7.MO Temp Table details
5095: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5091: IBE_UTIL.DEBUG('Log_Environment_Info: ICXSessionDetails: End');
5092: END IF; */
5093:
5094: -- 7.MO Temp Table details
5095: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5096: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: Begin');
5097: END IF;
5098: open c_getMOTempTableInfo;
5099: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
5092: END IF; */
5093:
5094: -- 7.MO Temp Table details
5095: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5096: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: Begin');
5097: END IF;
5098: open c_getMOTempTableInfo;
5099: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
5100: close c_getMOTempTableInfo;
5097: END IF;
5098: open c_getMOTempTableInfo;
5099: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
5100: close c_getMOTempTableInfo;
5101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5098: open c_getMOTempTableInfo;
5099: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
5100: close c_getMOTempTableInfo;
5101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5099: fetch c_getMOTempTableInfo into rec_MOTempTableInfo;
5100: close c_getMOTempTableInfo;
5101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5107: END IF;
5100: close c_getMOTempTableInfo;
5101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5107: END IF;
5108:
5101: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5107: END IF;
5108:
5109: -- 8. SysContext
5102: IBE_UTIL.DEBUG('organization_id='||rec_MOTempTableInfo.organization_id);
5103: IBE_UTIL.DEBUG('organization_name='||rec_MOTempTableInfo.organization_name);
5104: IBE_UTIL.DEBUG('legal_entity_id='||rec_MOTempTableInfo.legal_entity_id);
5105: IBE_UTIL.DEBUG('legal_entity_name='||rec_MOTempTableInfo.legal_entity_name);
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5107: END IF;
5108:
5109: -- 8. SysContext
5110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5106: IBE_UTIL.DEBUG('Log_Environment_Info: MOTempTableDetails: End');
5107: END IF;
5108:
5109: -- 8. SysContext
5110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5111: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: Begin');
5112: END IF;
5113: open c_getSysContext;
5114: fetch c_getSysContext into rec_SysContext;
5107: END IF;
5108:
5109: -- 8. SysContext
5110: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5111: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: Begin');
5112: END IF;
5113: open c_getSysContext;
5114: fetch c_getSysContext into rec_SysContext;
5115: close c_getSysContext;
5112: END IF;
5113: open c_getSysContext;
5114: fetch c_getSysContext into rec_SysContext;
5115: close c_getSysContext;
5116: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5117: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
5118: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
5119: END IF;
5120:
5113: open c_getSysContext;
5114: fetch c_getSysContext into rec_SysContext;
5115: close c_getSysContext;
5116: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5117: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
5118: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
5119: END IF;
5120:
5121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5114: fetch c_getSysContext into rec_SysContext;
5115: close c_getSysContext;
5116: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5117: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
5118: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
5119: END IF;
5120:
5121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5122: IBE_UTIL.DEBUG('Log_Environment_Info: End');
5117: IBE_UTIL.DEBUG('Sys_Context='||rec_SysContext.sys_context);
5118: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
5119: END IF;
5120:
5121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5122: IBE_UTIL.DEBUG('Log_Environment_Info: End');
5123: END IF;
5124:
5125: END Log_Environment_Info;
5118: IBE_UTIL.DEBUG('Log_Environment_Info: SysContext: End');
5119: END IF;
5120:
5121: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5122: IBE_UTIL.DEBUG('Log_Environment_Info: End');
5123: END IF;
5124:
5125: END Log_Environment_Info;
5126:
5194: l_api_version CONSTANT NUMBER := 1.0;
5195: l_seq_num VARCHAR2(30) := NULL;
5196:
5197: BEGIN
5198: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5199: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Add_Attachment()');
5200: END IF;
5201:
5202: -- Standard Start of API savepoint
5195: l_seq_num VARCHAR2(30) := NULL;
5196:
5197: BEGIN
5198: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5199: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Add_Attachment()');
5200: END IF;
5201:
5202: -- Standard Start of API savepoint
5203: SAVEPOINT Add_Attachment;
5219: -- Initialize API return status to success
5220: x_return_status := FND_API.G_RET_STS_SUCCESS;
5221:
5222: -- User Authentication
5223: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5224: IBE_Util.Debug('Call to Validate_User_Update');
5225: END IF;
5226:
5227: IBE_Quote_Misc_pvt.Validate_User_Update
5220: x_return_status := FND_API.G_RET_STS_SUCCESS;
5221:
5222: -- User Authentication
5223: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5224: IBE_Util.Debug('Call to Validate_User_Update');
5225: END IF;
5226:
5227: IBE_Quote_Misc_pvt.Validate_User_Update
5228: ( p_init_msg_list => p_Init_Msg_List
5245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: END IF;
5247:
5248:
5249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5250: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5251: END IF;
5252:
5253: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5246: END IF;
5247:
5248:
5249: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5250: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5251: END IF;
5252:
5253: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5250: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Add_Attachment');
5251: END IF;
5252:
5253: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5255: IBE_Util.Debug('l_seq_num = '||l_seq_num);
5256: END IF;
5257:
5258: -- ASO Attachment Procedure Call
5251: END IF;
5252:
5253: l_seq_num := to_char(FND_CRYPTO.SmallRandomNumber);
5254: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5255: IBE_Util.Debug('l_seq_num = '||l_seq_num);
5256: END IF;
5257:
5258: -- ASO Attachment Procedure Call
5259: ASO_ATTACHMENT_INT.Add_Attachment
5287: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5288: p_count => x_msg_count ,
5289: p_data => x_msg_data);
5290:
5291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5292: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Add_Attachment');
5293: END IF;
5294:
5295: EXCEPTION
5288: p_count => x_msg_count ,
5289: p_data => x_msg_data);
5290:
5291: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5292: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Add_Attachment');
5293: END IF;
5294:
5295: EXCEPTION
5296: WHEN FND_API.G_EXC_ERROR THEN
5299: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5300: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5301: p_count => x_msg_count ,
5302: p_data => x_msg_data);
5303: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5304: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5305: END IF;
5306:
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5300: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5301: p_count => x_msg_count ,
5302: p_data => x_msg_data);
5303: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5304: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5305: END IF;
5306:
5307: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5308: ROLLBACK TO Add_Attachment;
5310: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5312: p_count => x_msg_count ,
5313: p_data => x_msg_data);
5314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5315: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5316: END IF;
5317:
5318: WHEN OTHERS THEN
5311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5312: p_count => x_msg_count ,
5313: p_data => x_msg_data);
5314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5315: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5316: END IF;
5317:
5318: WHEN OTHERS THEN
5319: ROLLBACK TO Add_Attachment;
5326:
5327: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5328: p_count => x_msg_count ,
5329: p_data => x_msg_data);
5330: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5331: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5332: END IF;
5333:
5334: END Add_Attachment;
5327: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5328: p_count => x_msg_count ,
5329: p_data => x_msg_data);
5330: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5331: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Add_Attachment()');
5332: END IF;
5333:
5334: END Add_Attachment;
5335:
5353: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Attachment';
5354: l_api_version CONSTANT NUMBER := 1.0;
5355:
5356: BEGIN
5357: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5358: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Delete_Attachment()');
5359: END IF;
5360:
5361: -- Standard Start of API savepoint
5354: l_api_version CONSTANT NUMBER := 1.0;
5355:
5356: BEGIN
5357: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5358: IBE_Util.Debug('Begin IBE_Quote_Misc_pvt.Delete_Attachment()');
5359: END IF;
5360:
5361: -- Standard Start of API savepoint
5362: SAVEPOINT Add_Attachment;
5378: -- Initialize API return status to success
5379: x_return_status := FND_API.G_RET_STS_SUCCESS;
5380:
5381: -- User Authentication
5382: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5383: IBE_Util.Debug('Call to Validate_User_Update');
5384: END IF;
5385:
5386: IBE_Quote_Misc_pvt.Validate_User_Update(
5379: x_return_status := FND_API.G_RET_STS_SUCCESS;
5380:
5381: -- User Authentication
5382: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5383: IBE_Util.Debug('Call to Validate_User_Update');
5384: END IF;
5385:
5386: IBE_Quote_Misc_pvt.Validate_User_Update(
5387: p_quote_header_id => p_quote_header_id
5402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5403: END IF;
5404:
5405:
5406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5407: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Delete_Attachment');
5408: END IF;
5409:
5410: -- ASO Attachment Procedure Call
5403: END IF;
5404:
5405:
5406: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5407: IBE_Util.Debug('Call to ASO_ATTACHMENT_INT.Delete_Attachment');
5408: END IF;
5409:
5410: -- ASO Attachment Procedure Call
5411: ASO_ATTACHMENT_INT.Delete_Attachments
5432: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5433: p_count => x_msg_count ,
5434: p_data => x_msg_data);
5435:
5436: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5437: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Delete_Attachment');
5438: END IF;
5439:
5440: EXCEPTION
5433: p_count => x_msg_count ,
5434: p_data => x_msg_data);
5435:
5436: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5437: IBE_Util.Debug('End ASO_ATTACHMENT_INT.Delete_Attachment');
5438: END IF;
5439:
5440: EXCEPTION
5441: WHEN FND_API.G_EXC_ERROR THEN
5444: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5445: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5446: p_count => x_msg_count ,
5447: p_data => x_msg_data);
5448: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5449: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5450: END IF;
5451:
5452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5445: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5446: p_count => x_msg_count ,
5447: p_data => x_msg_data);
5448: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5449: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5450: END IF;
5451:
5452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5453: ROLLBACK TO Add_Attachment;
5455: x_last_update_date := getQuoteLastUpdateDate(p_quote_header_id);
5456: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5457: p_count => x_msg_count ,
5458: p_data => x_msg_data);
5459: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5460: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5461: END IF;
5462:
5463: WHEN OTHERS THEN
5456: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5457: p_count => x_msg_count ,
5458: p_data => x_msg_data);
5459: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5460: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5461: END IF;
5462:
5463: WHEN OTHERS THEN
5464: ROLLBACK TO Add_Attachment;
5471:
5472: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count ,
5474: p_data => x_msg_data);
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5477: END IF;
5478:
5479: END Delete_Attachment;
5472: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
5473: p_count => x_msg_count ,
5474: p_data => x_msg_data);
5475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
5476: IBE_Util.Debug('End IBE_Quote_Misc_pvt.Delete_Attachment()');
5477: END IF;
5478:
5479: END Delete_Attachment;
5480: