[Home] [Help]
1: PACKAGE BODY IBE_CUSTOMER_ACCT_PVT AS
2: /* $Header: IBEVCACB.pls 120.4 2006/01/24 23:21:26 susinha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBE_CUSTOMER_ACCT_PVT';
5: l_true VARCHAR2(1) := FND_API.G_TRUE;
6:
7: PROCEDURE GetPartySiteId(
8: p_api_version_number IN NUMBER,
9: p_init_msg_list IN VARCHAR2,
111: -- Standard Start of API savepoint
112: SAVEPOINT CUSTACCT_GETPARTYSITEID;
113:
114: -- Standard call to check for call compatibility.
115: IF NOT FND_API.Compatible_API_Call (l_api_version,
116: P_Api_Version_Number,
117: l_api_name,
118: G_PKG_NAME )
119: THEN
116: P_Api_Version_Number,
117: l_api_name,
118: G_PKG_NAME )
119: THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: -- Initialize message list if p_init_msg_list is set to TRUE.
124: IF FND_API.To_Boolean( p_init_msg_list ) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: -- Initialize message list if p_init_msg_list is set to TRUE.
124: IF FND_API.To_Boolean( p_init_msg_list ) THEN
125: FND_Msg_Pub.initialize;
126: END IF;
127:
128: -- Initialize API return status to success
125: FND_Msg_Pub.initialize;
126: END IF;
127:
128: -- Initialize API return status to success
129: x_return_status := FND_API.G_RET_STS_SUCCESS;
130:
131: -- Start OF API body --
132:
133: IF (p_site_use_type = 'SHIP_TO') THEN
156: -- End of API body
157: --
158:
159: -- Standard check for p_commit
160: IF FND_API.to_Boolean( p_commit )
161: THEN
162: COMMIT WORK;
163: END IF;
164:
170: Ibe_Util.debug('End IBE_CUSTOMER_ACCT_PVT:GetPartySiteId');
171: END IF;
172:
173: EXCEPTION
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
178: p_count => x_msg_count ,
172:
173: EXCEPTION
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
178: p_count => x_msg_count ,
179: p_data => x_msg_data);
180: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
173: EXCEPTION
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
178: p_count => x_msg_count ,
179: p_data => x_msg_data);
180: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
181: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:GetPartySiteId()'|| sqlerrm);
180: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
181: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:GetPartySiteId()'|| sqlerrm);
182: END IF;
183:
184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
185: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
188: p_count => x_msg_count ,
182: END IF;
183:
184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
185: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
188: p_count => x_msg_count ,
189: p_data => x_msg_data);
190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
183:
184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
185: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
188: p_count => x_msg_count ,
189: p_data => x_msg_data);
190: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
191: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:GetPartySiteId()' || sqlerrm);
192: END IF;
193:
194: WHEN OTHERS THEN
195: ROLLBACK TO CUSTACCT_GETPARTYSITEID;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
198: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
199: L_API_NAME);
200: END IF;
197: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
198: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
199: L_API_NAME);
200: END IF;
201: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
202: p_count => x_msg_count ,
203: p_data => x_msg_data);
204: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
205: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:GetPartySiteId' || sqlerrm);
222: IS
223:
224: l_party_site_use_rec HZ_PARTY_SITE_V2PUB.Party_Site_Use_Rec_Type;
225: --## l_party_site_use_rec HZ_PARTY_PUB.Party_Site_Use_Rec_Type;
226: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
227: l_party_site_use_id NUMBER;
228:
229: l_return_values varchar2(2000);
230: l_api_version NUMBER := 1.0;
241: -- Standard Start of API savepoint
242: SAVEPOINT CUSTACCT_CREATEPARTYSITEUSE;
243:
244: -- Standard call to check for call compatibility.
245: IF NOT FND_API.Compatible_API_Call (l_api_version,
246: P_Api_Version_Number,
247: l_api_name,
248: G_PKG_NAME )
249: THEN
246: P_Api_Version_Number,
247: l_api_name,
248: G_PKG_NAME )
249: THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: -- Initialize message list if p_init_msg_list is set to TRUE.
254: IF FND_API.To_Boolean( p_init_msg_list ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: -- Initialize message list if p_init_msg_list is set to TRUE.
254: IF FND_API.To_Boolean( p_init_msg_list ) THEN
255: FND_Msg_Pub.initialize;
256: END IF;
257:
258: -- Initialize API return status to success
255: FND_Msg_Pub.initialize;
256: END IF;
257:
258: -- Initialize API return status to success
259: x_return_status := FND_API.G_RET_STS_SUCCESS;
260:
261: -- Start OF API body --
262:
263: l_party_site_use_rec.party_site_id := p_party_site_id;
263: l_party_site_use_rec.party_site_id := p_party_site_id;
264: l_party_site_use_rec.site_use_type := p_party_site_use_type;
265:
266: HZ_PARTY_SITE_V2PUB.create_party_site_use (
267: p_init_msg_list => FND_API.G_FALSE,
268: p_party_site_use_rec => l_party_site_use_rec,
269: x_party_site_use_id => l_party_site_use_id,
270: x_return_status => x_return_status,
271: x_msg_count => x_msg_count,
276: Ibe_Util.debug('create_pty_site_use:after create_pty_site_use:x_party_site_use_id: ' || x_party_site_use_id);
277: Ibe_Util.debug('create_pty_site_use:after create_pty_site_use:x_return_status: ' || x_return_status);
278: END IF;
279:
280: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
281: x_party_site_use_id := l_party_site_use_id;
282: ELSE
283: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: Ibe_Util.debug('Exception in Hz Create_Party_Site_Use: '|| x_msg_data);
282: ELSE
283: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
284: Ibe_Util.debug('Exception in Hz Create_Party_Site_Use: '|| x_msg_data);
285: ENd IF;
286: RAISE FND_API.G_EXC_ERROR;
287: END IF;
288:
289: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
290: Ibe_Util.debug('End IBE_CUSTOMER_ACCT_PVT:Create_Party_Site_Use');
294: -- End of API body
295: --
296:
297: -- Standard check for p_commit
298: IF FND_API.to_Boolean( p_commit )
299: THEN
300: COMMIT WORK;
301: END IF;
302:
304: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
305: p_data => x_msg_data);
306:
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count ,
306:
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count ,
313: p_data => x_msg_data);
314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count ,
313: p_data => x_msg_data);
314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
315: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Create_Party_Site_Use'|| sqlerrm);
314: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
315: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Create_Party_Site_Use'|| sqlerrm);
316: END IF;
317:
318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
319: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
321: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count ,
316: END IF;
317:
318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
319: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
321: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count ,
323: p_data => x_msg_data);
324: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
317:
318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
319: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
321: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count ,
323: p_data => x_msg_data);
324: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
325: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:Create_Party_Site_Use' || sqlerrm);
326: END IF;
327:
328: WHEN OTHERS THEN
329: ROLLBACK TO CUSTACCT_CREATEPARTYSITEUSE;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
332: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
333: L_API_NAME);
334: END IF;
331: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
332: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
333: L_API_NAME);
334: END IF;
335: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
336: p_count => x_msg_count ,
337: p_data => x_msg_data);
338: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
339: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:Create_Party_Site_Use' || sqlerrm);
370: FROM hz_role_responsibility
371: WHERE cust_account_role_id = role_id
372: AND responsibility_type = role_type;
373:
374: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
375: l_msg_count NUMBER :=0;
376: l_msg_data VARCHAR2(2000):='';
377: l_api_version NUMBER := 1.0;
378: l_api_name VARCHAR2(30) := 'CUSTACCT_CREATCUSTACCTROLE';
387: -- Standard Start of API savepoint
388: SAVEPOINT CUSTACCT_CREATCUSTACCTROLE;
389:
390: -- Standard call to check for call compatibility.
391: IF NOT FND_API.Compatible_API_Call (l_api_version,
392: P_Api_Version_Number,
393: l_api_name,
394: G_PKG_NAME )
395: THEN
392: P_Api_Version_Number,
393: l_api_name,
394: G_PKG_NAME )
395: THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398:
399: -- Initialize message list if p_init_msg_list is set to TRUE.
400: IF FND_API.To_Boolean( p_init_msg_list ) THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398:
399: -- Initialize message list if p_init_msg_list is set to TRUE.
400: IF FND_API.To_Boolean( p_init_msg_list ) THEN
401: FND_Msg_Pub.initialize;
402: END IF;
403:
404: -- Initialize API return status to success
401: FND_Msg_Pub.initialize;
402: END IF;
403:
404: -- Initialize API return status to success
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406:
407: -- Start OF API body --
408:
409: p_cust_acct_roles_rec.party_id := p_party_id;
423: -- hz_customer_accounts_pub.create_cust_acct_roles.
424:
425:
426: HZ_CUST_ACCOUNT_ROLE_V2PUB.create_cust_account_role (
427: p_init_msg_list => FND_API.G_FALSE,
428: p_cust_account_role_rec => p_cust_acct_roles_rec,
429: x_cust_account_role_id => x_cust_acct_role_id,
430: x_return_status => l_return_status,
431: x_msg_count => l_msg_count,
435: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
436: IBE_Util.debug('create_contact_role:after create_cust_acct_role: x_return_status: '||l_return_status);
437: END IF;
438:
439: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
441: IBE_Util.debug('Exception in HZ create_cust_account_role: '||l_msg_data);
442: END IF;
443: RAISE FND_API.G_EXC_ERROR;
439: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
440: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
441: IBE_Util.debug('Exception in HZ create_cust_account_role: '||l_msg_data);
442: END IF;
443: RAISE FND_API.G_EXC_ERROR;
444: END IF;
445:
446: -- Setting Responsibility id for newly created role id.
447:
445:
446: -- Setting Responsibility id for newly created role id.
447:
448: IF (x_cust_acct_role_id is not null AND
449: x_cust_acct_role_id <> FND_API.G_MISS_NUM)
450: THEN
451:
452: OPEN C_Get_Resp(x_cust_acct_role_id, p_role_type);
453: FETCH C_Get_Resp INTO l_responsibility_id;
456: END IF;
457: IF C_Get_Resp%NOTFOUND THEN
458:
459: IF p_cust_acct_site_id is not NULL AND
460: p_cust_acct_site_id <> FND_API.G_MISS_NUM
461: THEN
462: p_role_resp_rec.cust_account_role_id := x_cust_acct_role_id;
463: p_role_resp_rec.responsibility_type := p_role_type;
464: p_role_resp_rec.Created_by_Module := 'IBE_CUSTOMER_DATA';
467: -- HZ_CUSTOMER_ACCOUNTS_PUB.create_role_resp.
468:
469: -- version 2 API
470: HZ_CUST_ACCOUNT_ROLE_V2PUB.create_role_responsibility (
471: p_init_msg_list => FND_API.G_FALSE,
472: p_role_responsibility_rec => p_role_resp_rec,
473: x_responsibility_id => l_responsibility_id,
474: x_return_status => l_return_status,
475: x_msg_count => l_msg_count,
480: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
481: IBE_Util.debug('create_contact_role:after create_role_resp: x_return_status: '||l_return_status);
482: END IF;
483:
484: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
485: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
486: IBE_Util.debug('Exception in HZ create_role_responsibility: '||l_msg_data);
487: END IF;
488: RAISE FND_API.G_EXC_ERROR;
484: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
485: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
486: IBE_Util.debug('Exception in HZ create_role_responsibility: '||l_msg_data);
487: END IF;
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
490:
491: END IF; --if p_cust_account_site_id is not NULL
492: END IF; -- IF C_Get_Resp%NOTFOUND THEN
497: -- End of API body
498: --
499:
500: -- Standard check for p_commit
501: IF FND_API.to_Boolean( p_commit )
502: THEN
503: COMMIT WORK;
504: END IF;
505:
512: p_data => x_msg_data);
513:
514: EXCEPTION
515:
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
518: x_return_status := FND_API.G_RET_STS_ERROR;
519: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
520: p_count => x_msg_count ,
514: EXCEPTION
515:
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
518: x_return_status := FND_API.G_RET_STS_ERROR;
519: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
520: p_count => x_msg_count ,
521: p_data => x_msg_data);
522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
515:
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
518: x_return_status := FND_API.G_RET_STS_ERROR;
519: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
520: p_count => x_msg_count ,
521: p_data => x_msg_data);
522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
523: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:create_cust_account_role()'|| sqlerrm);
522: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
523: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:create_cust_account_role()'|| sqlerrm);
524: END IF;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
530: p_count => x_msg_count ,
524: END IF;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
530: p_count => x_msg_count ,
531: p_data => x_msg_data);
532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
530: p_count => x_msg_count ,
531: p_data => x_msg_data);
532: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
533: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:create_cust_account_role' || sqlerrm);
534: END IF;
535:
536: WHEN OTHERS THEN
537: ROLLBACK TO CUSTACCT_CREATCUSTACCTROLE;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
539: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
540: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
541: L_API_NAME);
542: END IF;
540: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
541: L_API_NAME);
542: END IF;
543:
544: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
545: p_count => x_msg_count ,
546: p_data => x_msg_data);
547: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
548: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:create_cust_account_role)' || sqlerrm);
573:
574: p_acct_site_rec HZ_CUST_ACCOUNT_SITE_V2PUB.cust_acct_site_rec_type;
575: -- ## p_acct_site_rec hz_customer_accounts_pub.acct_site_rec_type;
576: l_customer_site_id NUMBER := NULL;
577: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
578: l_msg_count NUMBER :=0;
579: l_msg_data VARCHAR2(2000):='';
580: l_api_version NUMBER := 1.0;
581: l_api_name VARCHAR2(30) := 'CUSTACCT_CREATCUSTACCTSITE';
591: -- Standard Start of API savepoint
592: SAVEPOINT CUSTACCT_CREATCUSTACCTSITE;
593:
594: -- Standard call to check for call compatibility.
595: IF NOT FND_API.Compatible_API_Call (l_api_version,
596: P_Api_Version_Number,
597: l_api_name,
598: G_PKG_NAME )
599: THEN
596: P_Api_Version_Number,
597: l_api_name,
598: G_PKG_NAME )
599: THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: END IF;
602:
603: -- Initialize message list if p_init_msg_list is set to TRUE.
604: IF FND_API.To_Boolean( p_init_msg_list ) THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: END IF;
602:
603: -- Initialize message list if p_init_msg_list is set to TRUE.
604: IF FND_API.To_Boolean( p_init_msg_list ) THEN
605: FND_Msg_Pub.initialize;
606: END IF;
607:
608: -- Initialize API return status to success
605: FND_Msg_Pub.initialize;
606: END IF;
607:
608: -- Initialize API return status to success
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610:
611: -- Start OF API body --
612:
613: Open c_acct_site (p_custacct_id, p_partysite_id);
631: -- old TCA API call
632: --hz_customer_accounts_pub.create_account_site
633:
634: HZ_CUST_ACCOUNT_SITE_V2PUB.create_cust_acct_site (
635: p_init_msg_list => FND_API.G_FALSE,
636: p_cust_acct_site_rec => p_acct_site_rec,
637: x_cust_acct_site_id => l_customer_site_id,
638: x_return_status => l_return_status,
639: x_msg_count => l_msg_count,
640: x_msg_data => l_msg_data );
641:
642: END IF;
643:
644: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
645: x_custacct_site_id := l_customer_site_id ;
646: else
647: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
648: IBE_Util.debug('Exception in HZ create_cust_acct_site: '||l_msg_data);
646: else
647: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
648: IBE_Util.debug('Exception in HZ create_cust_acct_site: '||l_msg_data);
649: END IF;
650: RAISE FND_API.G_EXC_ERROR;
651: end if;
652:
653: --
654: -- End of API body
654: -- End of API body
655: --
656:
657: -- Standard check for p_commit
658: IF FND_API.to_Boolean( p_commit )
659: THEN
660: COMMIT WORK;
661: END IF;
662:
670: IBE_Util.debug('End IBE_CUSTOMER_ACCT_PVT: Create_Cust_Acct_Site custacct_site_id: '||x_custacct_site_id);
671: END IF;
672:
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count ,
672:
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count ,
679: p_data => x_msg_data);
680: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
678: p_count => x_msg_count ,
679: p_data => x_msg_data);
680: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
681: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT: Create_Cust_Acct_Site()'|| sqlerrm);
680: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
681: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT: Create_Cust_Acct_Site()'|| sqlerrm);
682: END IF;
683:
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count ,
682: END IF;
683:
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count ,
689: p_data => x_msg_data);
690: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
683:
684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
685: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
688: p_count => x_msg_count ,
689: p_data => x_msg_data);
690: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
691: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT: Create_Cust_Acct_Site()' || sqlerrm);
692: END IF;
693:
694: WHEN OTHERS THEN
695: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITE;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
698: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
699: L_API_NAME);
700: END IF;
698: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
699: L_API_NAME);
700: END IF;
701:
702: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
703: p_count => x_msg_count ,
704: p_data => x_msg_data);
705: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
706: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT: Create_Cust_Acct_Site()' || sqlerrm);
732: l_custacct_site_use_id NUMBER := NULL;
733: l_cust_acct_site_id NUMBER := NULL;
734: l_profile varchar2(1):= '';
735: l_location VARCHAR2(40):= '';
736: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
737:
738: l_party_site_use NUMBER := null;
739: l_party_site_id NUMBER := null;
740: lx_party_site_use_id NUMBER;
772: -- Standard Start of API savepoint
773: SAVEPOINT CUSTACCT_CREATCUSTACCTSITEUSE;
774:
775: -- Standard call to check for call compatibility.
776: IF NOT FND_API.Compatible_API_Call (l_api_version,
777: P_Api_Version_Number,
778: l_api_name,
779: G_PKG_NAME )
780: THEN
777: P_Api_Version_Number,
778: l_api_name,
779: G_PKG_NAME )
780: THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: END IF;
783:
784: -- Initialize message list if p_init_msg_list is set to TRUE.
785: IF FND_API.To_Boolean( p_init_msg_list ) THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: END IF;
783:
784: -- Initialize message list if p_init_msg_list is set to TRUE.
785: IF FND_API.To_Boolean( p_init_msg_list ) THEN
786: FND_Msg_Pub.initialize;
787: END IF;
788:
789: -- Initialize API return status to success
786: FND_Msg_Pub.initialize;
787: END IF;
788:
789: -- Initialize API return status to success
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: -- Start OF API body --
793:
794: l_cust_acct_site_id := p_cust_acct_site_id;
840: -- hz_customer_accounts_pub.create_acct_site_uses
841:
842:
843: HZ_CUST_ACCOUNT_SITE_V2PUB.create_cust_site_use (
844: p_init_msg_list => FND_API.G_FALSE,
845: p_cust_site_use_rec => l_acctsite_uses_rec,
846: p_customer_profile_rec => l_cust_profile_rec,
847: p_create_profile => FND_API.G_TRUE,
848: p_create_profile_amt => FND_API.G_TRUE,
843: HZ_CUST_ACCOUNT_SITE_V2PUB.create_cust_site_use (
844: p_init_msg_list => FND_API.G_FALSE,
845: p_cust_site_use_rec => l_acctsite_uses_rec,
846: p_customer_profile_rec => l_cust_profile_rec,
847: p_create_profile => FND_API.G_TRUE,
848: p_create_profile_amt => FND_API.G_TRUE,
849: x_site_use_id => l_custacct_site_use_id,
850: x_return_status => x_return_status,
851: x_msg_count => x_msg_count,
844: p_init_msg_list => FND_API.G_FALSE,
845: p_cust_site_use_rec => l_acctsite_uses_rec,
846: p_customer_profile_rec => l_cust_profile_rec,
847: p_create_profile => FND_API.G_TRUE,
848: p_create_profile_amt => FND_API.G_TRUE,
849: x_site_use_id => l_custacct_site_use_id,
850: x_return_status => x_return_status,
851: x_msg_count => x_msg_count,
852: x_msg_data => x_msg_data );
856: Ibe_Util.debug('create_acct_site_use: x_return_status: '|| l_return_status);
857: Ibe_Util.debug('create_acct_site_use: l_custacct_site_use_id: '||l_custacct_site_use_id);
858: END IF;
859:
860: IF l_Return_Status = FND_API.G_RET_STS_SUCCESS THEN
861: x_custacct_site_use_id := l_custacct_site_use_id;
862: ELSE
863: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
864: Ibe_util.Debug('Exception in HZ create_cust_site_use: '|| x_msg_data);
862: ELSE
863: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
864: Ibe_util.Debug('Exception in HZ create_cust_site_use: '|| x_msg_data);
865: END IF;
866: RAISE FND_API.G_EXC_ERROR;
867: END IF;
868:
869: END IF; -- IF x_site_use is null
870:
877: OPEN c_party_site_use(p_party_site_Id,p_acct_site_type);
878: FETCH c_party_site_use into l_party_site_use;
879: CLOSE c_party_site_use;
880:
881: IF (l_party_site_use = NULL OR l_party_site_use = FND_API.G_MISS_NUM)
882: then
883:
884: Create_Party_Site_Use(p_party_site_id => l_party_site_id,
885: p_party_site_use_type => p_acct_site_type,
888: x_msg_count => x_msg_count,
889: x_msg_data => x_msg_data
890: );
891:
892: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
894: Ibe_util.Debug('Exception in HZ Create_Party_Site_Use: '|| x_msg_data);
895: END IF;
896: RAISE FND_API.G_EXC_ERROR;
892: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
893: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
894: Ibe_util.Debug('Exception in HZ Create_Party_Site_Use: '|| x_msg_data);
895: END IF;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: END IF;
899:
900: */
903: -- End of API body
904: --
905:
906: -- Standard check for p_commit
907: IF FND_API.to_Boolean( p_commit )
908: THEN
909: COMMIT WORK;
910: END IF;
911:
919: Ibe_util.Debug('End IBE_CUSTOMER_ACCT_PVT:Create_Cust_Acct_Site_Use');
920: END IF;
921:
922: EXCEPTION
923: WHEN FND_API.G_EXC_ERROR THEN
924: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
921:
922: EXCEPTION
923: WHEN FND_API.G_EXC_ERROR THEN
924: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
928: p_data => x_msg_data);
929: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
922: EXCEPTION
923: WHEN FND_API.G_EXC_ERROR THEN
924: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
928: p_data => x_msg_data);
929: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
930: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Create_Cust_Acct_Site_Use()'|| sqlerrm);
929: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
930: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Create_Cust_Acct_Site_Use()'|| sqlerrm);
931: END IF;
932:
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count ,
931: END IF;
932:
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count ,
938: p_data => x_msg_data);
939: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
932:
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
937: p_count => x_msg_count ,
938: p_data => x_msg_data);
939: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
940: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:Create_Cust_Acct_Site_Use()' || sqlerrm);
941: END IF;
942:
943: WHEN OTHERS THEN
944: ROLLBACK TO CUSTACCT_CREATCUSTACCTSITEUSE;
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
946: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
947: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
948: L_API_NAME);
949: END IF;
947: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
948: L_API_NAME);
949: END IF;
950:
951: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
952: p_count => x_msg_count ,
953: p_data => x_msg_data);
954: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
955: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:Create_Cust_Acct_Site_Use()' || sqlerrm);
999: l_cust_acct_site_status VARCHAR2(10) := '';
1000: l_site_use_id NUMBER := NULL;
1001: l_custsite_use_status VARCHAR2(10) := '';
1002: lx_cust_acct_site_id NUMBER := NULL;
1003: l_cust_siteid_notavl VARCHAR2(10) := FND_API.G_FALSE;
1004: l_cust_siteuseid_flow VARCHAR2(10) := FND_API.G_FALSE;
1005: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1006:
1007: l_return_values varchar2(2000);
1000: l_site_use_id NUMBER := NULL;
1001: l_custsite_use_status VARCHAR2(10) := '';
1002: lx_cust_acct_site_id NUMBER := NULL;
1003: l_cust_siteid_notavl VARCHAR2(10) := FND_API.G_FALSE;
1004: l_cust_siteuseid_flow VARCHAR2(10) := FND_API.G_FALSE;
1005: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1006:
1007: l_return_values varchar2(2000);
1008: l_api_version NUMBER := 1.0;
1001: l_custsite_use_status VARCHAR2(10) := '';
1002: lx_cust_acct_site_id NUMBER := NULL;
1003: l_cust_siteid_notavl VARCHAR2(10) := FND_API.G_FALSE;
1004: l_cust_siteuseid_flow VARCHAR2(10) := FND_API.G_FALSE;
1005: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1006:
1007: l_return_values varchar2(2000);
1008: l_api_version NUMBER := 1.0;
1009: l_api_name VARCHAR2(30) := 'CUSTACCT_CUSTACCTSITEUSE';
1017: -- Standard Start of API savepoint
1018: SAVEPOINT CUSTACCT_CUSTACCTSITEUSE;
1019:
1020: -- Standard call to check for call compatibility.
1021: IF NOT FND_API.Compatible_API_Call (l_api_version,
1022: P_Api_Version_Number,
1023: l_api_name,
1024: G_PKG_NAME )
1025: THEN
1022: P_Api_Version_Number,
1023: l_api_name,
1024: G_PKG_NAME )
1025: THEN
1026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1027: END IF;
1028:
1029: -- Initialize message list if p_init_msg_list is set to TRUE.
1030: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1027: END IF;
1028:
1029: -- Initialize message list if p_init_msg_list is set to TRUE.
1030: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1031: FND_Msg_Pub.initialize;
1032: END IF;
1033:
1034: -- Initialize API return status to success
1031: FND_Msg_Pub.initialize;
1032: END IF;
1033:
1034: -- Initialize API return status to success
1035: x_return_status := FND_API.G_RET_STS_SUCCESS;
1036:
1037: -- Start OF API body --
1038:
1039: -- PART I party site id fetching
1036:
1037: -- Start OF API body --
1038:
1039: -- PART I party site id fetching
1040: IF (p_partysite_id is null OR p_partysite_id = FND_API.G_MISS_NUM) THEN
1041:
1042: /*** Use GetPartySiteId to use the Address rule.(primary, non primary or any valid address) ***/
1043:
1044: GetPartySiteId(p_party_id => p_party_id
1075:
1076: OPEN c_get_cust_site(p_cust_acct_id, lx_party_site_id);
1077: FETCH c_get_cust_site INTO l_cust_acct_site_id, l_cust_acct_site_status;
1078: IF (c_get_cust_site%NOTFOUND) THEN
1079: l_cust_siteid_notavl := FND_API.G_TRUE;
1080: END IF;
1081: CLOSE c_get_cust_site;
1082:
1083: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1084: Ibe_util.Debug('cust_acct_site_id: ' || l_cust_acct_site_id);
1085: Ibe_util.Debug('cust_acct_site_status: ' || l_cust_acct_site_status||' : '||l_cust_siteid_notavl);
1086: END IF;
1087:
1088: IF FND_API.to_Boolean(l_cust_siteid_notavl) THEN
1089:
1090: -- No Valid Cust Acct Site Id is present
1091: -- so try to create one
1092: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1103:
1104: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1105: Ibe_util.Debug('Create_Cust_Acct_Site returned id : ' || l_cust_acct_site_id);
1106: END IF;
1107: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1108: (l_cust_acct_site_id is null OR l_cust_acct_site_id = FND_API.G_MISS_NUM))
1109: THEN
1110: -- Creation Failed.
1111: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1104: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1105: Ibe_util.Debug('Create_Cust_Acct_Site returned id : ' || l_cust_acct_site_id);
1106: END IF;
1107: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1108: (l_cust_acct_site_id is null OR l_cust_acct_site_id = FND_API.G_MISS_NUM))
1109: THEN
1110: -- Creation Failed.
1111: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1112: FND_Msg_Pub.Add;
1109: THEN
1110: -- Creation Failed.
1111: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1112: FND_Msg_Pub.Add;
1113: RAISE FND_API.G_EXC_ERROR;
1114: END IF;
1115:
1116: ELSIF (l_cust_acct_site_status <> 'A') THEN -- IF c_get_cust_site%NOTFOUND
1117:
1125: ELSE
1126: FND_MESSAGE.Set_Name('IBE','IBE_ERR_OT_INVALID_SHIPTO_ADDR'); -- need error message
1127: END IF;
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130:
1131: END IF; -- c_get_cust_site%NOTFOUND
1132:
1133:
1137:
1138: OPEN c_get_custsite_use(l_cust_acct_site_id,p_siteuse_type);
1139: FETCH c_get_custsite_use INTO l_site_use_id, l_custsite_use_status;
1140: IF (c_get_custsite_use%NOTFOUND) THEN
1141: l_cust_siteuseid_flow := FND_API.G_TRUE; -- custacctsiteuseid not present.
1142: END IF;
1143: CLOSE c_get_custsite_use;
1144:
1145: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1146: Ibe_util.Debug('In l_site_use_id :' || l_site_use_id);
1147: Ibe_util.Debug('In l_custsite_use_status :' || l_custsite_use_status );
1148: END IF;
1149:
1150: IF (FND_API.to_Boolean(l_cust_siteuseid_flow)) THEN
1151:
1152: -- No valid Cust Acct Site Use Id present, so Create One.
1153: Create_Cust_Acct_Site_Use (p_Cust_Account_Id => p_cust_acct_id
1154: ,P_Party_Site_Id => lx_party_site_id
1161: ,x_msg_data => x_msg_data
1162: );
1163:
1164:
1165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1166: (l_cust_acct_site_id is null OR l_cust_acct_site_id = FND_API.G_MISS_NUM))
1167: THEN
1168: -- Creation Failed.
1169: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1162: );
1163:
1164:
1165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR
1166: (l_cust_acct_site_id is null OR l_cust_acct_site_id = FND_API.G_MISS_NUM))
1167: THEN
1168: -- Creation Failed.
1169: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1170: FND_Msg_Pub.Add;
1167: THEN
1168: -- Creation Failed.
1169: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_BILLTO_ADDR');
1170: FND_Msg_Pub.Add;
1171: RAISE FND_API.G_EXC_ERROR;
1172: ELSE
1173: x_siteuse_id := l_site_use_id;
1174: END IF;
1175:
1188: ELSE
1189: FND_MESSAGE.Set_Name('IBE','IBE_ERR_OT_INVALID_SHIPTO_ADDR'); -- need error message
1190: END IF;
1191: FND_MSG_PUB.ADD;
1192: RAISE FND_API.G_EXC_ERROR;
1193:
1194: ELSE
1195: -- valid cust_acct_site_use_id available, so use it
1196: x_siteuse_id := l_site_use_id;
1200: Ibe_util.Debug('x_siteuse_id: ' || x_siteuse_id);
1201: END IF;
1202:
1203: ELSE --party_site_id =-1
1204: l_return_status := FND_API.G_RET_STS_ERROR;
1205: END IF;
1206:
1207: --
1208: -- End of API body
1208: -- End of API body
1209: --
1210:
1211: -- Standard check for p_commit
1212: IF FND_API.to_Boolean( p_commit )
1213: THEN
1214: COMMIT WORK;
1215: END IF;
1216:
1224: Ibe_util.Debug('End IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use');
1225: END IF;
1226:
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1232: p_data => x_msg_data);
1225: END IF;
1226:
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1232: p_data => x_msg_data);
1233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1226:
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1232: p_data => x_msg_data);
1233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1234: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1234: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1235: END IF;
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data);
1234: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1235: END IF;
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data);
1242: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1235: END IF;
1236:
1237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1239: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1240: p_count => x_msg_count,
1241: p_data => x_msg_data);
1242: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1243: IBE_Util.Debug('UnexError IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1243: IBE_Util.Debug('UnexError IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1244: END IF;
1245:
1246: WHEN OTHERS THEN
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1249: p_count => x_msg_count,
1250: p_data => x_msg_data);
1251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1244: END IF;
1245:
1246: WHEN OTHERS THEN
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1248: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1249: p_count => x_msg_count,
1250: p_data => x_msg_data);
1251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1252: IBE_Util.Debug('Others IBE_CUSTOMER_ACCT_PVT:Get_Cust_Account_Site_Use()'|| sqlerrm);
1313: -- Standard Start of API savepoint
1314: SAVEPOINT CUSTACCT_GETCUSTACCTRLE;
1315:
1316: -- Standard call to check for call compatibility.
1317: IF NOT FND_API.Compatible_API_Call (l_api_version,
1318: P_Api_Version_Number,
1319: l_api_name,
1320: G_PKG_NAME )
1321: THEN
1318: P_Api_Version_Number,
1319: l_api_name,
1320: G_PKG_NAME )
1321: THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324:
1325: -- Initialize message list if p_init_msg_list is set to TRUE.
1326: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324:
1325: -- Initialize message list if p_init_msg_list is set to TRUE.
1326: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1327: FND_Msg_Pub.initialize;
1328: END IF;
1329:
1330: -- Initialize API return status to success
1327: FND_Msg_Pub.initialize;
1328: END IF;
1329:
1330: -- Initialize API return status to success
1331: x_return_status := FND_API.G_RET_STS_SUCCESS;
1332:
1333: -- Start OF API body --
1334:
1335: --for the available site_use_id fetch cust_acct_id.
1360: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1361: Ibe_util.Debug('Get_Cust_Acct_Role cust_acct_role_id: '||l_cust_acct_role_id);
1362: end if;
1363:
1364: IF (l_cust_acct_role_id IS NULL or l_cust_acct_role_id = FND_API.G_MISS_NUM)
1365: THEN
1366: create_cust_account_role(p_party_id => p_party_id
1367: ,p_cust_acct_id => p_sold_to_orgid
1368: ,p_cust_acct_site_id => l_custacct_site_id
1387: -- End of API body
1388: --
1389:
1390: -- Standard check for p_commit
1391: IF FND_API.to_Boolean( p_commit )
1392: THEN
1393: COMMIT WORK;
1394: END IF;
1395:
1398: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1399: p_data => x_msg_data);
1400:
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1406: p_count => x_msg_count ,
1400:
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1406: p_count => x_msg_count ,
1407: p_data => x_msg_data);
1408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1406: p_count => x_msg_count ,
1407: p_data => x_msg_data);
1408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1409: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Get_Cust_Acct_Role()'|| sqlerrm);
1408: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1409: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:Get_Cust_Acct_Role()'|| sqlerrm);
1410: END IF;
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1416: p_count => x_msg_count ,
1410: END IF;
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1416: p_count => x_msg_count ,
1417: p_data => x_msg_data);
1418: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1411:
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1416: p_count => x_msg_count ,
1417: p_data => x_msg_data);
1418: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1419: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:Get_Cust_Acct_Role()' || sqlerrm);
1420: END IF;
1421:
1422: WHEN OTHERS THEN
1423: ROLLBACK TO CUSTACCT_CUSTACCTSITEUSE;
1424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
1426: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1427: L_API_NAME);
1428: END IF;
1426: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1427: L_API_NAME);
1428: END IF;
1429:
1430: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1431: p_count => x_msg_count ,
1432: p_data => x_msg_data);
1433: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1434: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:Get_Cust_Acct_Role()' || sqlerrm);
1437: END Get_Cust_Acct_Role;
1438:
1439: PROCEDURE GetCustomerAcctData(
1440: p_api_version_number IN NUMBER := 1
1441: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1438:
1439: PROCEDURE GetCustomerAcctData(
1440: p_api_version_number IN NUMBER := 1
1441: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1446: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
1439: PROCEDURE GetCustomerAcctData(
1440: p_api_version_number IN NUMBER := 1
1441: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1446: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
1447: ,x_cust_account_id OUT NOCOPY NUMBER
1440: p_api_version_number IN NUMBER := 1
1441: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1446: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
1447: ,x_cust_account_id OUT NOCOPY NUMBER
1448: ,x_cust_party_name OUT NOCOPY VARCHAR2
1441: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1446: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
1447: ,x_cust_account_id OUT NOCOPY NUMBER
1448: ,x_cust_party_name OUT NOCOPY VARCHAR2
1449: ,x_cust_party_id OUT NOCOPY NUMBER
1442: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1443: ,p_invoice_to_org_id IN NUMBER := FND_API.G_MISS_NUM
1444: ,p_invoice_to_contact_id IN NUMBER := FND_API.G_MISS_NUM
1445: ,p_contact_party_id IN NUMBER := FND_API.G_MISS_NUM
1446: ,p_cust_account_id IN NUMBER := FND_API.G_MISS_NUM
1447: ,x_cust_account_id OUT NOCOPY NUMBER
1448: ,x_cust_party_name OUT NOCOPY VARCHAR2
1449: ,x_cust_party_id OUT NOCOPY NUMBER
1450: ,x_cust_party_type OUT NOCOPY VARCHAR2
1523: -- Standard Start of API savepoint
1524: SAVEPOINT CUSTACCT_CUSTOMERDATA;
1525:
1526: -- Standard call to check for call compatibility.
1527: IF NOT FND_API.Compatible_API_Call (l_api_version,
1528: P_Api_Version_Number,
1529: l_api_name,
1530: G_PKG_NAME )
1531: THEN
1528: P_Api_Version_Number,
1529: l_api_name,
1530: G_PKG_NAME )
1531: THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE.
1536: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE.
1536: IF FND_API.To_Boolean( p_init_msg_list ) THEN
1537: FND_Msg_Pub.initialize;
1538: END IF;
1539:
1540: -- Initialize API return status to success
1537: FND_Msg_Pub.initialize;
1538: END IF;
1539:
1540: -- Initialize API return status to success
1541: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542:
1543: -- Start OF API body --
1544:
1545:
1558: IBE_Util.Debug('p_cust_account_id: '|| p_cust_account_id);
1559:
1560: END IF;
1561:
1562: if(p_invoice_to_org_id is not null AND p_invoice_to_org_id <> FND_API.G_MISS_NUM) then
1563: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1564: IBE_Util.Debug('Inside invoiceToorg id IF loop');
1565: END IF;
1566: open c_cust_acct_det(p_invoice_to_org_id);
1567: fetch c_cust_acct_det into lc_cust_acct_det;
1568: if(c_cust_acct_det%notfound) then
1569: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_CUST'); --need err msg
1570: FND_Msg_Pub.Add;
1571: RAISE FND_API.G_EXC_ERROR;
1572: else
1573: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1574: IBE_Util.Debug('Customer details available');
1575: END IF;
1577: l_partysite_id := lc_cust_acct_det.party_site_id;
1578: l_partysite_stat := lc_cust_acct_det.status;
1579: end if;
1580: close c_cust_acct_det;
1581: elsif(p_cust_account_id is not null AND p_cust_account_id <> FND_API.G_MISS_NUM) then
1582: -- this flow would be reached for Contact/ Address getting changed in UI.
1583: l_cust_account_id := p_cust_account_id;
1584: l_partysite_id := null;
1585: l_partysite_stat := '';
1599: fetch c_customer_details into lc_customer_details;
1600: if(c_customer_details%notfound) then
1601: FND_Message.Set_Name('IBE', 'IBE_ERR_OT_INVALID_CUST'); --need err msg
1602: FND_Msg_Pub.Add;
1603: RAISE FND_API.G_EXC_ERROR;
1604: else
1605: x_cust_party_id := lc_customer_details.party_id;
1606: x_cust_party_name := lc_customer_details.party_name;
1607: x_cust_party_type := lc_customer_details.party_type;
1621: -- If InvoiceToContactId is passed Retrieve the ContactPartyId and fetch the related Contact details.
1622: -- Else if ConatctPartyId is directly passed from UI then fetch the related details.
1623: -- ContactName, phone and email would be sent back.
1624:
1625: if (p_invoice_to_contact_id is not null AND p_invoice_to_contact_id <> FND_API.G_MISS_NUM) then
1626: open c_contact_partyid(p_invoice_to_contact_id);
1627: fetch c_contact_partyid into l_cntct_partyid;
1628: CLOSE c_contact_partyid;
1629:
1626: open c_contact_partyid(p_invoice_to_contact_id);
1627: fetch c_contact_partyid into l_cntct_partyid;
1628: CLOSE c_contact_partyid;
1629:
1630: elsif(p_contact_party_id is not null AND p_contact_party_id <> FND_API.G_MISS_NUM) then
1631: l_cntct_partyid := p_contact_party_id;
1632: end if; -- (p_invoice_to_contact_id <> FND_API.G_MISS_NUM
1633:
1634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1628: CLOSE c_contact_partyid;
1629:
1630: elsif(p_contact_party_id is not null AND p_contact_party_id <> FND_API.G_MISS_NUM) then
1631: l_cntct_partyid := p_contact_party_id;
1632: end if; -- (p_invoice_to_contact_id <> FND_API.G_MISS_NUM
1633:
1634: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1635: IBE_Util.Debug('l_cntct_partyid: '|| l_cntct_partyid);
1636: END IF;
1635: IBE_Util.Debug('l_cntct_partyid: '|| l_cntct_partyid);
1636: END IF;
1637:
1638:
1639: if (l_cntct_partyid is null OR l_cntct_partyid = FND_API.G_MISS_NUM) then
1640: x_contact_party_id := null;
1641: x_contact_party_name := '';
1642: x_contact_phone := '';
1643: x_contact_email := '';
1684: IBE_Util.Debug('IBE_CUSTOMER_ACCT_PVT:GetCustomerAcctData() -END');
1685: END If;
1686:
1687: EXCEPTION
1688: WHEN FND_API.G_EXC_ERROR THEN
1689: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1690: x_return_status := FND_API.G_RET_STS_ERROR;
1691: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1692: p_count => x_msg_count ,
1686:
1687: EXCEPTION
1688: WHEN FND_API.G_EXC_ERROR THEN
1689: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1690: x_return_status := FND_API.G_RET_STS_ERROR;
1691: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1692: p_count => x_msg_count ,
1693: p_data => x_msg_data);
1694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1687: EXCEPTION
1688: WHEN FND_API.G_EXC_ERROR THEN
1689: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1690: x_return_status := FND_API.G_RET_STS_ERROR;
1691: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1692: p_count => x_msg_count ,
1693: p_data => x_msg_data);
1694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1695: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:GetCustomerAcctData()'|| sqlerrm);
1694: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1695: IBE_Util.Debug('Error IBE_CUSTOMER_ACCT_PVT:GetCustomerAcctData()'|| sqlerrm);
1696: END IF;
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count ,
1696: END IF;
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count ,
1703: p_data => x_msg_data);
1704: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count ,
1703: p_data => x_msg_data);
1704: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1705: IBE_Util.Debug('UNEXPECTEDErr IBE_CUSTOMER_ACCT_PVT:GetCustomerAcctData()' || sqlerrm);
1706: END IF;
1707:
1708: WHEN OTHERS THEN
1709: ROLLBACK TO CUSTACCT_CUSTOMERDATA;
1710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1711: IF FND_Msg_Pub.Check_Msg_Level( FND_Msg_Pub.G_MSG_LVL_UNEXP_ERROR ) THEN
1712: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1713: L_API_NAME);
1714: END IF;
1712: FND_Msg_Pub.Add_Exc_Msg(G_PKG_NAME,
1713: L_API_NAME);
1714: END IF;
1715:
1716: FND_Msg_Pub.Count_And_Get(p_encoded => FND_API.G_FALSE,
1717: p_count => x_msg_count ,
1718: p_data => x_msg_data);
1719: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1720: IBE_Util.Debug('OtherExc IBE_CUSTOMER_ACCT_PVT:GetCustomerAcctData()' || sqlerrm);