[Home] [Help]
19: IS
20: l_sysparm_rec ar_system_parameters%rowtype;
21: l_sys_parm_rec ar_system_parameters_all%rowtype;
22: --
23: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
24: --
25: Begin
26:
27: IF l_debug_level > 0 THEN
24: --
25: Begin
26:
27: IF l_debug_level > 0 THEN
28: oe_debug_pub.add( 'ENTERING PROCEDURE INITIALIZE_GLOBAL' ) ;
29: END IF;
30: x_return_status := FND_API.G_RET_STS_SUCCESS;
31:
32: -- { Start of the ar_system_parameters select and assignment
40: END IF;
41:
42:
43: IF l_debug_level > 0 THEN
44: oe_debug_pub.add( 'AFTER SELECT FROM AR_SYSTEM_PARAMETES' ) ;
45: END IF;
46:
47: IF oe_code_control.code_release_level < '110510' THEN
48: G_AUTO_CUST_NUMBERING := nvl(l_sysparm_rec.generate_customer_number,'Y');
67:
68: -- End for global values from profile }
69: G_INITIALIZED := FND_API.G_TRUE;
70: IF l_debug_level > 0 THEN
71: oe_debug_pub.add( 'EXITING PROCEDURE INITIALIZE_GLOBAL' ) ;
72: END IF;
73: Exception
74: When Others Then
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: Exception
74: When Others Then
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: IF l_debug_level > 0 THEN
77: oe_debug_pub.add( 'PROBLEM IN CALL TO INITIALIZE_GLOBAL. ABORT PROCESSING' ) ;
78: END IF;
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
81: END IF;
76: IF l_debug_level > 0 THEN
77: oe_debug_pub.add( 'PROBLEM IN CALL TO INITIALIZE_GLOBAL. ABORT PROCESSING' ) ;
78: END IF;
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
81: END IF;
82: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
83: fnd_message.set_token('API_NAME', 'Initialize_Global');
84: oe_msg_pub.add;
83: fnd_message.set_token('API_NAME', 'Initialize_Global');
84: oe_msg_pub.add;
85: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
86: IF l_debug_level > 0 THEN
87: oe_debug_pub.add( 'EXITING PROCEDURE INITIALIZE_GLOBAL' ) ;
88: END IF;
89: End Initialize_Global;
90: -- End of procedure Initialize_Global}
91:
99: x_party_name OUT NOCOPY /* file.sql.39 change */ Varchar2,
100: x_return_status OUT NOCOPY /* file.sql.39 change */ Varchar2)
101: IS
102: --
103: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
104: --
105: Begin
106:
107: IF l_debug_level > 0 THEN
104: --
105: Begin
106:
107: IF l_debug_level > 0 THEN
108: oe_debug_pub.add( 'ENTERNING VALIDATE PARTY NUMBER API' ) ;
109: END IF;
110: Select party_id,
111: party_name
112: Into x_party_id,
115: Where party_number = p_party_number
116: And party_type = p_party_type;
117:
118: IF l_debug_level > 0 THEN
119: oe_debug_pub.add( 'AFTER SELECT OF PARTY INFO.' ) ;
120: END IF;
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: IF l_debug_level > 0 THEN
120: END IF;
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: IF l_debug_level > 0 THEN
124: oe_debug_pub.add( 'EXITING VALIDATE PARTY NUMBER API WITH PARTY ID' ) ;
125: END IF;
126: Exception
127: When No_Data_Found Then
128: x_return_status := FND_API.G_RET_STS_SUCCESS;
126: Exception
127: When No_Data_Found Then
128: x_return_status := FND_API.G_RET_STS_SUCCESS;
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add( 'EXITING VALIDATE PARTY NUMBER API WITHOUT PARTY ID' ) ;
131: END IF;
132: When Others Then
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: IF l_debug_level > 0 THEN
131: END IF;
132: When Others Then
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: IF l_debug_level > 0 THEN
135: oe_debug_pub.add( 'PROBLEM IN CALL TO VALIDATE PARTY. ABORT PROCESSING' ) ;
136: END IF;
137: IF l_debug_level > 0 THEN
138: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
139: END IF;
134: IF l_debug_level > 0 THEN
135: oe_debug_pub.add( 'PROBLEM IN CALL TO VALIDATE PARTY. ABORT PROCESSING' ) ;
136: END IF;
137: IF l_debug_level > 0 THEN
138: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
139: END IF;
140: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
141: fnd_message.set_token('API_NAME', 'Validate_Party_Number');
142: oe_msg_pub.add;
141: fnd_message.set_token('API_NAME', 'Validate_Party_Number');
142: oe_msg_pub.add;
143: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
144: IF l_debug_level > 0 THEN
145: oe_debug_pub.add( 'EXITING VALIDATE PARTY NUMBER API WITHOUT PARTY ID' ) ;
146: END IF;
147: End Validate_Party_Number;
148: -- End of procedure Validate_Party_Number}
149:
153: IS
154: PRAGMA AUTONOMOUS_TRANSACTION;
155:
156: --
157: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
158: --
159:
160: BEGIN
161:
159:
160: BEGIN
161:
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'ENTERING PROCEDURE UPDATE_ERROR_FLAG' ) ;
164: END IF;
165:
166: Update Oe_Customer_Info_Iface_All
167: Set Error_Flag = 'Y'
168: Where rowid = p_rowid;
169: Commit;
170:
171: IF l_debug_level > 0 THEN
172: oe_debug_pub.add( 'EXITING PROCEDURE UPDATE_ERROR_FLAG' ) ;
173: END IF;
174: Exception
175:
176: when others then
174: Exception
175:
176: when others then
177: IF l_debug_level > 0 THEN
178: OE_DEBUG_PUB.add ('Update Error Flag: Unexpected Error : '||sqlerrm);
179: END IF;
180:
181: END Update_Error_Flag;
182: -- End of Update Error Flag }
192: l_address_id_deliver NUMBER;
193: l_dummy VARCHAR2(2);
194:
195: --
196: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
197: --
198:
199: BEGIN
200: IF l_debug_level > 0 THEN
198:
199: BEGIN
200: IF l_debug_level > 0 THEN
201:
202: oe_debug_pub.add (' Entering Update_Address_id');
203: oe_debug_pub.add (' locking table for: '||type_of_address);
204: oe_debug_pub.add (' p_usage_site_id :'|| usage_site_id);
205: oe_debug_pub.add (' Row Id :'||row_id );
206:
199: BEGIN
200: IF l_debug_level > 0 THEN
201:
202: oe_debug_pub.add (' Entering Update_Address_id');
203: oe_debug_pub.add (' locking table for: '||type_of_address);
204: oe_debug_pub.add (' p_usage_site_id :'|| usage_site_id);
205: oe_debug_pub.add (' Row Id :'||row_id );
206:
207: END IF;
200: IF l_debug_level > 0 THEN
201:
202: oe_debug_pub.add (' Entering Update_Address_id');
203: oe_debug_pub.add (' locking table for: '||type_of_address);
204: oe_debug_pub.add (' p_usage_site_id :'|| usage_site_id);
205: oe_debug_pub.add (' Row Id :'||row_id );
206:
207: END IF;
208:
201:
202: oe_debug_pub.add (' Entering Update_Address_id');
203: oe_debug_pub.add (' locking table for: '||type_of_address);
204: oe_debug_pub.add (' p_usage_site_id :'|| usage_site_id);
205: oe_debug_pub.add (' Row Id :'||row_id );
206:
207: END IF;
208:
209: SELECT new_address_id_ship,new_address_id_bill,new_address_id_Deliver
234: End if;
235: Commit;
236:
237: IF l_debug_level > 0 THEN
238: oe_debug_pub.add (' Type of Address : '|| type_of_address);
239: oe_debug_pub.add ('Update_Address_id: ' || usage_site_id);
240: END IF;
241:
242: EXCEPTION
235: Commit;
236:
237: IF l_debug_level > 0 THEN
238: oe_debug_pub.add (' Type of Address : '|| type_of_address);
239: oe_debug_pub.add ('Update_Address_id: ' || usage_site_id);
240: END IF;
241:
242: EXCEPTION
243: when no_data_found then
244: null;
245:
246: when others then
247: IF l_debug_level > 0 THEN
248: OE_DEBUG_PUB.add ('Update_address_id: Unexpected Error : '||sqlerrm);
249: END IF;
250:
251: END Update_Address_Id;
252:
270: l_return_status Varchar2(1);
271: l_need_cust_rel Varchar2(1);
272:
273: --
274: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
275: --
276: BEGIN
277:
278: IF l_debug_level > 0 THEN
275: --
276: BEGIN
277:
278: IF l_debug_level > 0 THEN
279: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE_CUST_RELATIONSHIP' ) ;
280: END IF;
281:
282: l_need_cust_rel := OE_Sys_Parameters.Value('CUSTOMER_RELATIONSHIPS_FLAG');
283:
282: l_need_cust_rel := OE_Sys_Parameters.Value('CUSTOMER_RELATIONSHIPS_FLAG');
283:
284: If l_need_cust_rel In ('N', 'A') Then
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'NO NEED TO CREATE RELATIONSHIP' ) ;
287: END IF;
288: IF l_debug_level > 0 THEN
289: oe_debug_pub.add( 'EXITING PROCEDURE CREATE_CUST_RELATIONSHIP' ) ;
290: END IF;
285: IF l_debug_level > 0 THEN
286: oe_debug_pub.add( 'NO NEED TO CREATE RELATIONSHIP' ) ;
287: END IF;
288: IF l_debug_level > 0 THEN
289: oe_debug_pub.add( 'EXITING PROCEDURE CREATE_CUST_RELATIONSHIP' ) ;
290: END IF;
291: Return;
292: End If;
293: l_cust_rel_rec.cust_account_id := p_cust_acct_id;
298: l_cust_rel_rec.application_id := 660;
299: l_cust_rel_rec.org_id := p_org_id;
300:
301: IF l_debug_level > 0 THEN
302: oe_debug_pub.add( 'CUST_ACCOUNT_ID:'||P_CUST_ACCT_ID||':RELATED_CUST_ACCOUNT_ID:'||P_RELATED_CUST_ACCT_ID ) ;
303: END IF;
304: HZ_CUST_ACCOUNT_V2PUB.Create_Cust_Acct_Relate
305: (
306: p_cust_acct_relate_rec => l_cust_rel_rec,
309: x_msg_data => x_msg_data
310: );
311:
312: IF l_debug_level > 0 THEN
313: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
314: END IF;
315: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
313: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
314: END IF;
315: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
318: END IF;
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM ACC RELATE '|| X_MSG_DATA ) ;
321: END IF;
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
318: END IF;
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM ACC RELATE '|| X_MSG_DATA ) ;
321: END IF;
322: x_return_status := l_return_status;
323: oe_msg_pub.transfer_msg_stack;
324: fnd_msg_pub.delete_msg;
322: x_return_status := l_return_status;
323: oe_msg_pub.transfer_msg_stack;
324: fnd_msg_pub.delete_msg;
325: IF l_debug_level > 0 THEN
326: oe_debug_pub.add( 'EXITING PROCEDURE CREATE_CUST_RELATIONSHIP' ) ;
327: END IF;
328: return;
329: Else
330: IF l_debug_level > 0 THEN
327: END IF;
328: return;
329: Else
330: IF l_debug_level > 0 THEN
331: oe_debug_pub.add( 'NEW CUSTOMER RELATIONSHIP IS CREATED' ) ;
332: END IF;
333: End if;
334:
335: IF l_debug_level > 0 THEN
332: END IF;
333: End if;
334:
335: IF l_debug_level > 0 THEN
336: oe_debug_pub.add( 'EXITING PROCEDURE CREATE_CUST_RELATIONSHIP' ) ;
337: END IF;
338: EXCEPTION
339: When Others Then
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: EXCEPTION
339: When Others Then
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF l_debug_level > 0 THEN
342: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUST_RELATIONSHIP. ABORT PROCESSING' ) ;
343: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
344: END IF;
345: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
346: fnd_message.set_token('API_NAME', 'Create_Cust_Relationship');
339: When Others Then
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF l_debug_level > 0 THEN
342: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUST_RELATIONSHIP. ABORT PROCESSING' ) ;
343: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
344: END IF;
345: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
346: fnd_message.set_token('API_NAME', 'Create_Cust_Relationship');
347: oe_msg_pub.add;
346: fnd_message.set_token('API_NAME', 'Create_Cust_Relationship');
347: oe_msg_pub.add;
348: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'EXITING CREATE_CUST_RELATIONSHIP API WITH ERROR' ) ;
351: END IF;
352: END create_cust_relationship;
353: -- End of Create Cust Relationship}
354:
386: l_role_resp_rec HZ_CUST_ACCOUNT_ROLE_V2PUB.role_responsibility_rec_type;
387: l_return_status Varchar2(1);
388:
389: --
390: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
391: --
392: BEGIN
393:
394: IF l_debug_level > 0 THEN
391: --
392: BEGIN
393:
394: IF l_debug_level > 0 THEN
395: oe_debug_pub.add( 'ENTERING CHECK AND CREATE CONTACT API' ) ;
396: END IF;
397: -- checking to see if there is cust_account_role for the party contact
398: Open c_cust_acct_role;
399: Fetch c_cust_acct_role
404: x_contact_id := null;
405: Elsif c_cust_acct_role%FOUND then
406:
407: IF l_debug_level > 0 THEN
408: oe_debug_pub.add( 'A CUST ACCT ROLE USAGE TYPE = '|| P_USAGE_TYPE ) ;
409: END IF;
410:
411: --if cust_acct_role is found then we check the usage_type of this
412: --role
413: -- {Start of the loop for c_usage_type
414: FOR c_record in c_usage_type(l_cust_account_role_id)
415: LOOP
416: IF l_debug_level > 0 THEN
417: oe_debug_pub.add( 'LOOP FOR ROLE TYPE' ) ;
418: END IF;
419: If c_record.responsibility_type = p_usage_type then
420: IF l_debug_level > 0 THEN
421: oe_debug_pub.add( 'ROLE TYPE FOUND' ) ;
417: oe_debug_pub.add( 'LOOP FOR ROLE TYPE' ) ;
418: END IF;
419: If c_record.responsibility_type = p_usage_type then
420: IF l_debug_level > 0 THEN
421: oe_debug_pub.add( 'ROLE TYPE FOUND' ) ;
422: END IF;
423: l_create_role := 'FOUND';
424: Else
425: IF l_debug_level > 0 THEN
422: END IF;
423: l_create_role := 'FOUND';
424: Else
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'ROLE TYPE NOT FOUND' ) ;
427: END IF;
428: if l_create_role <> 'FOUND' then
429: l_create_role := 'NOTFOUND';
430: end if;
433: END LOOP;
434: -- End of the loop for c_usage_type}
435:
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add( 'IF THE TYPE OF ROLE IS NOTFOUND THEN WE WILL' ) ;
438: END IF;
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add( 'CREATE NEW ROLE DEPENDING ON THE TYPE OF USAGE' ) ;
441: END IF;
436: IF l_debug_level > 0 THEN
437: oe_debug_pub.add( 'IF THE TYPE OF ROLE IS NOTFOUND THEN WE WILL' ) ;
438: END IF;
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add( 'CREATE NEW ROLE DEPENDING ON THE TYPE OF USAGE' ) ;
441: END IF;
442: IF l_debug_level > 0 THEN
443: oe_debug_pub.add( 'PASSED. ELSE IF IT IS REMAIN UNKNOWN OR FOUND' ) ;
444: END IF;
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add( 'CREATE NEW ROLE DEPENDING ON THE TYPE OF USAGE' ) ;
441: END IF;
442: IF l_debug_level > 0 THEN
443: oe_debug_pub.add( 'PASSED. ELSE IF IT IS REMAIN UNKNOWN OR FOUND' ) ;
444: END IF;
445: IF l_debug_level > 0 THEN
446: oe_debug_pub.add( 'IN THAT CASE RETURN THE EXISITING ID I.E.' ) ;
447: END IF;
442: IF l_debug_level > 0 THEN
443: oe_debug_pub.add( 'PASSED. ELSE IF IT IS REMAIN UNKNOWN OR FOUND' ) ;
444: END IF;
445: IF l_debug_level > 0 THEN
446: oe_debug_pub.add( 'IN THAT CASE RETURN THE EXISITING ID I.E.' ) ;
447: END IF;
448: IF l_debug_level > 0 THEN
449: oe_debug_pub.add( 'L_CUST_ACCOUNT_ROLE_ID =>' || L_CUST_ACCOUNT_ROLE_ID ) ;
450: END IF;
445: IF l_debug_level > 0 THEN
446: oe_debug_pub.add( 'IN THAT CASE RETURN THE EXISITING ID I.E.' ) ;
447: END IF;
448: IF l_debug_level > 0 THEN
449: oe_debug_pub.add( 'L_CUST_ACCOUNT_ROLE_ID =>' || L_CUST_ACCOUNT_ROLE_ID ) ;
450: END IF;
451:
452: IF l_debug_level > 0 THEN
453: oe_debug_pub.add( 'L_CREATE_ROLE => '||L_CREATE_ROLE ) ;
449: oe_debug_pub.add( 'L_CUST_ACCOUNT_ROLE_ID =>' || L_CUST_ACCOUNT_ROLE_ID ) ;
450: END IF;
451:
452: IF l_debug_level > 0 THEN
453: oe_debug_pub.add( 'L_CREATE_ROLE => '||L_CREATE_ROLE ) ;
454: END IF;
455: -- { Start of the l_create_role
456: If l_create_role = 'NOTFOUND' then
457: -- role usage type is only created if the user comes from the
464: l_role_resp_rec.created_by_module := G_CREATED_BY_MODULE;
465: l_role_resp_rec.application_id := 660;
466:
467: IF l_debug_level > 0 THEN
468: oe_debug_pub.add( 'CREATING ROLE RESP. CALLING HZ_API' ) ;
469: END IF;
470: -- {Start Call hz api to create role resp
471: HZ_CUST_ACCOUNT_ROLE_V2PUB.Create_Role_Responsibility(
472: p_role_responsibility_rec => l_role_resp_rec,
478: -- End Call hz api to create role resp }
479:
480: -- Let us check the status of the call to hz api
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
483: END IF;
484: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
485: IF l_debug_level > 0 THEN
486: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
482: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
483: END IF;
484: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
485: IF l_debug_level > 0 THEN
486: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
487: END IF;
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
490: END IF;
485: IF l_debug_level > 0 THEN
486: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
487: END IF;
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
490: END IF;
491: x_return_status := l_return_status;
492: oe_msg_pub.transfer_msg_stack;
493: fnd_msg_pub.delete_msg;
491: x_return_status := l_return_status;
492: oe_msg_pub.transfer_msg_stack;
493: fnd_msg_pub.delete_msg;
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'EXITING CREATE ROLE RESPONSIBILITY API WITH ERROR' ) ;
496: END IF;
497: return;
498: Else
499: IF l_debug_level > 0 THEN
496: END IF;
497: return;
498: Else
499: IF l_debug_level > 0 THEN
500: oe_debug_pub.add( 'NEW RESPO. ID FOR SITE => '|| L_RESPONSIBILITY_ID ) ;
501: END IF;
502: End If;
503: -- End if of Let us check the status of the call to hz api
504: End If;
511: End If;
512: -- End of the If of NOTFOUND}
513:
514: Close c_cust_acct_role;
515: --oe_debug_pub.add('out contact_id ='||out_contact_id);
516: IF l_debug_level > 0 THEN
517: oe_debug_pub.add( 'EXISING CHECK AND CREATE CONTACT API' ) ;
518: END IF;
519:
513:
514: Close c_cust_acct_role;
515: --oe_debug_pub.add('out contact_id ='||out_contact_id);
516: IF l_debug_level > 0 THEN
517: oe_debug_pub.add( 'EXISING CHECK AND CREATE CONTACT API' ) ;
518: END IF;
519:
520: EXCEPTION
521: WHEN others then
526: If c_usage_type%ISOPEN then
527: CLOSE c_usage_type;
528: End If;
529: IF l_debug_level > 0 THEN
530: oe_debug_pub.add( 'PROBLEM IN CALL TO CHECK_AND_CREATE_CONTACT. ABORT PROCESSING' ) ;
531: END IF;
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
534: END IF;
529: IF l_debug_level > 0 THEN
530: oe_debug_pub.add( 'PROBLEM IN CALL TO CHECK_AND_CREATE_CONTACT. ABORT PROCESSING' ) ;
531: END IF;
532: IF l_debug_level > 0 THEN
533: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
534: END IF;
535: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
536: fnd_message.set_token('API_NAME', 'Check_and_Create_Contact');
537: oe_msg_pub.add;
536: fnd_message.set_token('API_NAME', 'Check_and_Create_Contact');
537: oe_msg_pub.add;
538: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
539: IF l_debug_level > 0 THEN
540: oe_debug_pub.add( 'EXITING CHECK AND CREATE AND CREATE CONTACT API' ) ;
541: END IF;
542:
543: END Check_and_Create_Contact;
544: -- End of procedure Check and Create Contact}
565: l_email_rec HZ_CONTACT_POINT_V2PUB.email_rec_type;
566: l_phone_rec HZ_CONTACT_POINT_V2PUB.phone_rec_type;
567: l_return_status Varchar2(1);
568: --
569: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
570: --
571: BEGIN
572:
573: IF l_debug_level > 0 THEN
570: --
571: BEGIN
572:
573: IF l_debug_level > 0 THEN
574: oe_debug_pub.add( 'ENTERING CREATE CONTACT POINT API' ) ;
575: END IF;
576:
577: x_return_status := FND_API.G_RET_STS_SUCCESS;
578: l_contact_points_rec.contact_point_type := p_contact_point_type;
604: -- End Call hz api to create contact point }
605:
606: -- Let us check the status of the call to hz api
607: IF l_debug_level > 0 THEN
608: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
609: END IF;
610: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
608: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
609: END IF;
610: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
613: END IF;
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || X_MSG_DATA ) ;
616: END IF;
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
613: END IF;
614: IF l_debug_level > 0 THEN
615: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || X_MSG_DATA ) ;
616: END IF;
617: x_return_status := l_return_status;
618: oe_msg_pub.transfer_msg_stack;
619: fnd_msg_pub.delete_msg;
617: x_return_status := l_return_status;
618: oe_msg_pub.transfer_msg_stack;
619: fnd_msg_pub.delete_msg;
620: IF l_debug_level > 0 THEN
621: oe_debug_pub.add( 'EXITING CREATE CONTACT POINT API WITH ERROR' ) ;
622: END IF;
623: return;
624: Else
625: IF l_debug_level > 0 THEN
622: END IF;
623: return;
624: Else
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add( 'NEW CONTACT ID FOR EMAIL => '|| L_CONTACT_POINT_ID ) ;
627: END IF;
628: End if;
629: Elsif p_contact_point_type = 'PHONE' Then
630:
646: -- End Call hz api to create contact point }
647:
648: -- Let us check the status of the call to hz api
649: IF l_debug_level > 0 THEN
650: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
651: END IF;
652: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
650: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
651: END IF;
652: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
655: END IF;
656: IF l_debug_level > 0 THEN
657: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || X_MSG_DATA ) ;
658: END IF;
653: IF l_debug_level > 0 THEN
654: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => X_MSG_COUNT ) ) ;
655: END IF;
656: IF l_debug_level > 0 THEN
657: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || X_MSG_DATA ) ;
658: END IF;
659: x_return_status := l_return_status;
660: oe_msg_pub.transfer_msg_stack;
661: fnd_msg_pub.delete_msg;
659: x_return_status := l_return_status;
660: oe_msg_pub.transfer_msg_stack;
661: fnd_msg_pub.delete_msg;
662: IF l_debug_level > 0 THEN
663: oe_debug_pub.add( 'EXITING CREATE CONTACT POINT API WITH ERROR' ) ;
664: END IF;
665: return;
666: Else
667: IF l_debug_level > 0 THEN
664: END IF;
665: return;
666: Else
667: IF l_debug_level > 0 THEN
668: oe_debug_pub.add( 'NEW CONTACT ID FOR PHONE =>' || L_CONTACT_POINT_ID ) ;
669: END IF;
670: End if;
671:
672: END IF;
673: Exception
674: When Others Then
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: IF l_debug_level > 0 THEN
677: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE CONTACT PT. ABORT PROCESSING' ) ;
678: END IF;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
681: END IF;
676: IF l_debug_level > 0 THEN
677: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE CONTACT PT. ABORT PROCESSING' ) ;
678: END IF;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
681: END IF;
682: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
683: fnd_message.set_token('API_NAME', 'Create_Contact_Point');
684: oe_msg_pub.add;
683: fnd_message.set_token('API_NAME', 'Create_Contact_Point');
684: oe_msg_pub.add;
685: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add( 'EXITING CREATE CONTACT POINT API WITH ERROR' ) ;
688: END IF;
689:
690: END create_contact_point;
691: -- End of procedure Create Contact Point(Phone and Email) }
789: and customer_info_type_code = 'ACCOUNT';
790:
791: -- End of Cursor definition for l_customer_info_cur }
792: --
793: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
794: --
795: Begin
796:
797: IF l_debug_level > 0 THEN
794: --
795: Begin
796:
797: IF l_debug_level > 0 THEN
798: oe_debug_pub.add( 'ENTERING IN CREATE_ACCOUNT PROCEDURE' ) ;
799: END IF;
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
801: x_existing_value := 'N';
802:
802:
803: --{ If to check whether Add Customer privilege is set
804: If OE_ORDER_IMPORT_SPECIFIC_PVT.G_ONT_ADD_CUSTOMER = 'Y' Then
805: IF l_debug_level > 0 THEN
806: oe_debug_pub.add( 'ADD CUSTOMER PRIVILEGE IS THERE' ) ;
807: END IF;
808: OE_MSG_PUB.set_msg_context(
809: p_entity_code => 'OI_INL_ADDCUST'
810: ,p_entity_ref => null
833: -- Customer then return that value and exit out of the
834: -- process
835:
836: IF l_debug_level > 0 THEN
837: oe_debug_pub.add( 'INSIDE LOOP FOR THE CUSTOMER_INFO_CUR' ) ;
838: END IF;
839:
840: If customer_rec.New_Account_Id Is Not Null Then
841: IF l_debug_level > 0 THEN
838: END IF;
839:
840: If customer_rec.New_Account_Id Is Not Null Then
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'NEW ACCOUNT ID IS THERE , RETURING THE EXISTING VAL' ) ;
843: END IF;
844: x_cust_account_id := customer_rec.New_Account_id;
845: x_cust_account_number := customer_rec.New_Account_number;
846: x_cust_party_id := customer_rec.New_Party_Id;
845: x_cust_account_number := customer_rec.New_Account_number;
846: x_cust_party_id := customer_rec.New_Party_Id;
847: x_existing_value := 'Y';
848: IF l_debug_level > 0 THEN
849: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH CURRENT VAL' ) ;
850: END IF;
851: return;
852: End If;
853:
864: End If;
865: If l_duplicate_account <> FND_API.G_MISS_NUM Then
866: -- Raise Error and Abort Processing
867: IF l_debug_level > 0 THEN
868: oe_debug_pub.add( 'TRYING TO ENTER THE ACCOUNT WHICH ALREADY EXISTS' ) ;
869: END IF;
870: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
871: fnd_message.set_token('TYPE', 'ACCOUNT');
872: fnd_message.set_token('REFERENCE', p_customer_info_ref);
886: If G_EMAIL_REQUIRED = 'Y' and
887: customer_rec.email_address is Null Then
888: -- Raise Error and Abort Processing
889: IF l_debug_level > 0 THEN
890: oe_debug_pub.add( 'EMAIL REQUIRED BUT NOT ENTERED' ) ;
891: END IF;
892: fnd_message.set_name('ONT','ONT_OI_INL_REQD');
893: fnd_message.set_token('API_NAME', 'Create_Account');
894: fnd_message.set_token('FIELD_REQD', 'EMAIL_ADDRESS');
900: If G_AUTO_PARTY_NUMBERING = 'N' and
901: customer_rec.party_number is Null Then
902: -- Raise Error and Abort Processing
903: IF l_debug_level > 0 THEN
904: oe_debug_pub.add( 'PARTY NUMBER REQUIRED BUT NOT ENTERED' ) ;
905: END IF;
906: fnd_message.set_name('ONT','ONT_OI_INL_REQD');
907: fnd_message.set_token('API_NAME', 'Create_Account');
908: fnd_message.set_token('FIELD_REQD', 'PARTY_NUMBER');
914: If G_AUTO_CUST_NUMBERING = 'N' and
915: customer_rec.customer_number is Null Then
916: -- Raise Error and Abort Processing
917: IF l_debug_level > 0 THEN
918: oe_debug_pub.add( 'CUSTOMER NUMBER REQUIRED BUT NOT ENTERED' ) ;
919: END IF;
920: fnd_message.set_name('ONT','ONT_OI_INL_REQD');
921: fnd_message.set_token('API_NAME', 'Create_Account');
922: fnd_message.set_token('FIELD_REQD', 'CUSTOMER_NUMBER');
939: x_return_status => l_return_status);
940: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
941: x_return_status := l_return_status;
942: IF l_debug_level > 0 THEN
943: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
944: END IF;
945: return;
946: End If;
947: End If;
948:
949: -- End Check to see if the Party Number is passed}
950:
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'PARTY NAME => ' || L_PARTY_NAME ) ;
953: END IF;
954: -- { Start if
955: If customer_rec.person_first_name is not Null And
956: customer_rec.organization_name is not Null Then
955: If customer_rec.person_first_name is not Null And
956: customer_rec.organization_name is not Null Then
957:
958: IF l_debug_level > 0 THEN
959: oe_debug_pub.add( 'BOTH PERSON AND ORGANIZATION INFORMATION CAN NOT BE POPULATED TOGETHER , POPULATE WHAT YOU ARE CREATING' ) ;
960: END IF;
961: fnd_message.set_name('ONT','ONT_OI_INL_BOTH_PARTY_CUST');
962: oe_msg_pub.add;
963: x_return_status := FND_API.G_RET_STS_ERROR;
961: fnd_message.set_name('ONT','ONT_OI_INL_BOTH_PARTY_CUST');
962: oe_msg_pub.add;
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: IF l_debug_level > 0 THEN
965: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
966: END IF;
967: Update_Error_Flag(p_rowid => customer_rec.rowid);
968: Return;
969: End if;
972: -- Assign values to l_account_rec which will be passed to hz
973: -- api to create account
974:
975: IF l_debug_level > 0 THEN
976: oe_debug_pub.add( 'START ASSIGNING THE COLUMNS TO THE HZ RECORD STRUCTURE' ) ;
977: END IF;
978:
979: l_account_rec.attribute_category := customer_rec.attribute_category;
980: l_account_rec.attribute1 := customer_rec.attribute1;
1033: l_account_rec.created_by_module := G_CREATED_BY_MODULE;
1034: l_account_rec.application_id := 660;
1035:
1036: IF l_debug_level > 0 THEN
1037: oe_debug_pub.add( 'END ASSIGNING THE COLUMNS TO THE HZ ACCOUNT STRUCTURE' ) ;
1038: END IF;
1039:
1040: -- { Start of the If for the customer_type condition
1041: -- Type is PERSON
1041: -- Type is PERSON
1042: If customer_rec.customer_type = 'PERSON' Then
1043:
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'INSIDE CUSTOMER_TYPE PERSON' ) ;
1046: END IF;
1047: l_person_rec.person_first_name := customer_rec.person_first_name;
1048: l_person_rec.person_last_name := customer_rec.person_last_name;
1049: l_person_rec.person_middle_name := customer_rec.person_middle_name;
1057:
1058: l_person_rec.party_rec := l_party_rec;
1059:
1060: IF l_debug_level > 0 THEN
1061: oe_debug_pub.add( 'BEFORE CALL TO CREATE_ACCOUNT FOR TYPE PERSON' ) ;
1062: END IF;
1063: -- { Start Call hz api to create customer account
1064: HZ_CUST_ACCOUNT_V2PUB.Create_Cust_Account
1065: (
1078: -- End Call hz api to create customer account}
1079:
1080: -- Let us check the status of the call to hz api
1081: IF l_debug_level > 0 THEN
1082: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1083: END IF;
1084: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1085: IF l_debug_level > 0 THEN
1086: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1082: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1083: END IF;
1084: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1085: IF l_debug_level > 0 THEN
1086: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1087: END IF;
1088: IF l_debug_level > 0 THEN
1089: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1090: END IF;
1085: IF l_debug_level > 0 THEN
1086: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1087: END IF;
1088: IF l_debug_level > 0 THEN
1089: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1090: END IF;
1091: x_return_status := l_return_status;
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1089: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1090: END IF;
1091: x_return_status := l_return_status;
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1094: END IF;
1095: Update_Error_Flag(p_rowid => customer_rec.rowid);
1096: oe_msg_pub.transfer_msg_stack;
1097: fnd_msg_pub.delete_msg;
1097: fnd_msg_pub.delete_msg;
1098: return;
1099: Else
1100: IF l_debug_level > 0 THEN
1101: oe_debug_pub.add( 'NEW CUSTOMER NUMBER => ' || X_CUST_ACCOUNT_NUMBER ) ;
1102: END IF;
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1105: END IF;
1100: IF l_debug_level > 0 THEN
1101: oe_debug_pub.add( 'NEW CUSTOMER NUMBER => ' || X_CUST_ACCOUNT_NUMBER ) ;
1102: END IF;
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1105: END IF;
1106: IF l_debug_level > 0 THEN
1107: oe_debug_pub.add( 'NEW PARTY ID => ' || X_CUST_PARTY_ID ) ;
1108: END IF;
1103: IF l_debug_level > 0 THEN
1104: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1105: END IF;
1106: IF l_debug_level > 0 THEN
1107: oe_debug_pub.add( 'NEW PARTY ID => ' || X_CUST_PARTY_ID ) ;
1108: END IF;
1109:
1110: Update oe_customer_info_iface_all
1111: Set New_Party_Id = x_cust_party_id,
1134: x_msg_data => l_msg_data
1135: );
1136: -- Let us check the status of the call to hz api
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1139: END IF;
1140: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1141: IF l_debug_level > 0 THEN
1142: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1138: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1139: END IF;
1140: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1141: IF l_debug_level > 0 THEN
1142: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1143: END IF;
1144: x_return_status := l_return_status;
1145: IF l_debug_level > 0 THEN
1146: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1142: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1143: END IF;
1144: x_return_status := l_return_status;
1145: IF l_debug_level > 0 THEN
1146: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1147: END IF;
1148: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1149: return;
1150: Else
1148: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1149: return;
1150: Else
1151: IF l_debug_level > 0 THEN
1152: oe_debug_pub.add( 'NEW EMAIL => ' || CUSTOMER_REC.EMAIL_ADDRESS ) ;
1153: END IF;
1154: End if;
1155:
1156: End If;
1171: x_msg_data => l_msg_data
1172: );
1173: -- Let us check the status of the call to hz api
1174: IF l_debug_level > 0 THEN
1175: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1176: END IF;
1177: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1175: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1176: END IF;
1177: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1178: IF l_debug_level > 0 THEN
1179: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1180: END IF;
1181: x_return_status := l_return_status;
1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1179: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1180: END IF;
1181: x_return_status := l_return_status;
1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1184: END IF;
1185: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1186: return;
1187: Else
1185: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1186: return;
1187: Else
1188: IF l_debug_level > 0 THEN
1189: oe_debug_pub.add( 'NEW PHONE => ' || CUSTOMER_REC.PHONE_NUMBER ) ;
1190: END IF;
1191: End if;
1192:
1193: End If;
1196: -- Type is ORGANIZATION
1197: Elsif customer_rec.customer_type = 'ORGANIZATION' Then
1198:
1199: IF l_debug_level > 0 THEN
1200: oe_debug_pub.add( 'INSIDE CUSTOMER_TYPE ORGANIZATION' ) ;
1201: END IF;
1202: l_organization_rec.organization_name := customer_rec.organization_name;
1203: -- ??? l_organization_rec.organization_name_phonetic := p_alternate_name;
1204: -- ??? l_organization_rec.tax_reference:=p_tax_reference;
1211: End If;
1212: l_organization_rec.party_rec := l_party_rec;
1213:
1214: IF l_debug_level > 0 THEN
1215: oe_debug_pub.add( 'BEFORE CALL TO CREATE_ACCOUNT FOR TYPE ORGANIZATION' ) ;
1216: END IF;
1217: -- { Start Call hz api to create customer account type Organization
1218: HZ_CUST_ACCOUNT_V2PUB.Create_Cust_Account
1219: (
1232: -- End Call hz api to create customer account type Organization}
1233:
1234: -- Let us check the status of the call to hz api
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1237: END IF;
1238: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1236: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1237: END IF;
1238: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1244: END IF;
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1241: END IF;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1244: END IF;
1245: x_return_status := l_return_status;
1246: IF l_debug_level > 0 THEN
1247: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1243: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1244: END IF;
1245: x_return_status := l_return_status;
1246: IF l_debug_level > 0 THEN
1247: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1248: END IF;
1249: Update_Error_Flag(p_rowid => customer_rec.rowid);
1250: oe_msg_pub.transfer_msg_stack;
1251: fnd_msg_pub.delete_msg;
1251: fnd_msg_pub.delete_msg;
1252: return;
1253: Else
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'NEW CUSTOMER NUMBER => ' || X_CUST_ACCOUNT_NUMBER ) ;
1256: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1259: END IF;
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'NEW CUSTOMER NUMBER => ' || X_CUST_ACCOUNT_NUMBER ) ;
1256: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1259: END IF;
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'NEW PARTY ID => ' || X_CUST_PARTY_ID ) ;
1262: END IF;
1257: IF l_debug_level > 0 THEN
1258: oe_debug_pub.add( 'NEW CUSTOMER ID => ' || X_CUST_ACCOUNT_ID ) ;
1259: END IF;
1260: IF l_debug_level > 0 THEN
1261: oe_debug_pub.add( 'NEW PARTY ID => ' || X_CUST_PARTY_ID ) ;
1262: END IF;
1263:
1264: Update oe_customer_info_iface_all
1265: Set New_Party_Id = x_cust_party_id,
1288: x_msg_data => l_msg_data
1289: );
1290: -- Let us check the status of the call to hz api
1291: IF l_debug_level > 0 THEN
1292: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1293: END IF;
1294: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1295: IF l_debug_level > 0 THEN
1296: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1292: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1293: END IF;
1294: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1295: IF l_debug_level > 0 THEN
1296: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1297: END IF;
1298: x_return_status := l_return_status;
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1296: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
1297: END IF;
1298: x_return_status := l_return_status;
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1301: END IF;
1302: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1303: return;
1304: Else
1302: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1303: return;
1304: Else
1305: IF l_debug_level > 0 THEN
1306: oe_debug_pub.add( 'NEW EMAIL => ' || CUSTOMER_REC.EMAIL_ADDRESS ) ;
1307: END IF;
1308: End if;
1309:
1310: End If;
1325: x_msg_data => l_msg_data
1326: );
1327: -- Let us check the status of the call to hz api
1328: IF l_debug_level > 0 THEN
1329: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1330: END IF;
1331: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1329: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
1330: END IF;
1331: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1334: END IF;
1335: x_return_status := l_return_status;
1336: IF l_debug_level > 0 THEN
1337: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1333: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
1334: END IF;
1335: x_return_status := l_return_status;
1336: IF l_debug_level > 0 THEN
1337: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1338: END IF;
1339: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1340: return;
1341: Else
1339: -- Update_Error_Flag(p_rowid => customer_rec.rowid);
1340: return;
1341: Else
1342: IF l_debug_level > 0 THEN
1343: oe_debug_pub.add( 'NEW PHONE => ' || CUSTOMER_REC.PHONE_NUMBER ) ;
1344: END IF;
1345: End if;
1346:
1347: End If;
1349:
1350: Else
1351: -- Wrong Type is passed Error out
1352: IF l_debug_level > 0 THEN
1353: oe_debug_pub.add( 'WRONG TYPE OF CUSTOMER INFORMATION PASSED.' ) ;
1354: END IF;
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356: fnd_message.set_name('ONT','ONT_OI_INL_INV_CUST_TYPE');
1357: oe_msg_pub.add;
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356: fnd_message.set_name('ONT','ONT_OI_INL_INV_CUST_TYPE');
1357: oe_msg_pub.add;
1358: IF l_debug_level > 0 THEN
1359: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1360: END IF;
1361: Update_Error_Flag(p_rowid => customer_rec.rowid);
1362: Return;
1363: End If;
1361: Update_Error_Flag(p_rowid => customer_rec.rowid);
1362: Return;
1363: End If;
1364: IF l_debug_level > 0 THEN
1365: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE ' ) ;
1366: END IF;
1367: -- End of the If for the customer_type condition}
1368: Exception
1369: When Others Then
1367: -- End of the If for the customer_type condition}
1368: Exception
1369: When Others Then
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ACCOUNT. ABORT PROCESSING' ) ;
1372: END IF;
1373: IF l_debug_level > 0 THEN
1374: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
1375: END IF;
1370: IF l_debug_level > 0 THEN
1371: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ACCOUNT. ABORT PROCESSING' ) ;
1372: END IF;
1373: IF l_debug_level > 0 THEN
1374: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
1375: END IF;
1376: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
1377: fnd_message.set_token('API_NAME', 'Create_Account');
1378: oe_msg_pub.add;
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1380: Update_Error_Flag(p_rowid => customer_rec.rowid);
1381: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
1382: IF l_debug_level > 0 THEN
1383: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1384: END IF;
1385: End;
1386: -- End of Begin after Loop }
1387: End Loop;
1387: End Loop;
1388: -- End Customer Loop }
1389: If l_no_record_exists Then
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED REF , PLEASE CHECK DATA' ) ;
1392: END IF;
1393: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
1394: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1395: oe_msg_pub.add;
1394: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1395: oe_msg_pub.add;
1396: x_return_status := FND_API.G_RET_STS_ERROR;
1397: IF l_debug_level > 0 THEN
1398: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1399: END IF;
1400: End If;
1401:
1402: Else
1400: End If;
1401:
1402: Else
1403: IF l_debug_level > 0 THEN
1404: oe_debug_pub.add( 'ADD CUSTOMER PRIVILEGE IS NOT THERE' ) ;
1405: END IF;
1406: fnd_message.set_name('ONT','ONT_OI_INL_SET_PARAMETER');
1407: fnd_message.set_token('TYPE', 'Customers');
1408: oe_msg_pub.add;
1412: Exception
1413: When Others Then
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: IF l_debug_level > 0 THEN
1416: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ACCOUNT. ABORT PROCESSING' ) ;
1417: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
1418: END IF;
1419: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
1420: fnd_message.set_token('API_NAME', 'Create_Account');
1413: When Others Then
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: IF l_debug_level > 0 THEN
1416: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ACCOUNT. ABORT PROCESSING' ) ;
1417: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
1418: END IF;
1419: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
1420: fnd_message.set_token('API_NAME', 'Create_Account');
1421: oe_msg_pub.add;
1420: fnd_message.set_token('API_NAME', 'Create_Account');
1421: oe_msg_pub.add;
1422: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
1423: IF l_debug_level > 0 THEN
1424: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1425: END IF;
1426: End Create_Account;
1427: -- End of procedure Create_Account}
1428:
1434: x_return_status Out NOCOPY /* file.sql.39 change */ VARCHAR2
1435: )
1436: Is
1437: --
1438: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1439: --
1440: Begin
1441:
1442: IF l_debug_level > 0 THEN
1439: --
1440: Begin
1441:
1442: IF l_debug_level > 0 THEN
1443: oe_debug_pub.add( 'ENTERNING VALIDATE_CUSTOMER_NUMBER API' ) ;
1444: END IF;
1445: Select party_id, cust_account_id
1446: Into x_party_id, x_account_id
1447: From hz_cust_accounts
1448: Where account_number = p_customer_number;
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: IF l_debug_level > 0 THEN
1452: oe_debug_pub.add( 'EXITING VALIDATE_CUSTOMER_NUMBER API' ) ;
1453: END IF;
1454: Exception
1455: When NO_DATA_FOUND Then
1456: x_return_status := FND_API.G_RET_STS_ERROR;
1454: Exception
1455: When NO_DATA_FOUND Then
1456: x_return_status := FND_API.G_RET_STS_ERROR;
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED EXISTING CUSTOMER , PLEASE CHECK DATA' ) ;
1459: END IF;
1460: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
1461: fnd_message.set_token('REFERENCE', p_customer_number);
1462: oe_msg_pub.add;
1460: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
1461: fnd_message.set_token('REFERENCE', p_customer_number);
1462: oe_msg_pub.add;
1463: IF l_debug_level > 0 THEN
1464: oe_debug_pub.add( 'EXITING IN CREATE_ACCOUNT PROCEDURE WITH ERROR' ) ;
1465: END IF;
1466: End validate_customer_number;
1467:
1468:
1578: l_site_id_exists Varchar2(1);
1579: l_val_addr Varchar2(1):= 'Y'; ---bug 7299729
1580: l_temp_Usage_to_cust_id NUMBER DEFAULT NULL; --bug 7299729
1581: --
1582: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1583: --
1584: Begin
1585: IF l_debug_level > 0 THEN
1586: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE ADDRESS' ) ;
1582: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1583: --
1584: Begin
1585: IF l_debug_level > 0 THEN
1586: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE ADDRESS' ) ;
1587: END IF;
1588:
1589: x_return_status := FND_API.G_RET_STS_SUCCESS;
1590:
1607: ,p_constraint_id => null
1608: );
1609:
1610: IF l_debug_level > 0 THEN
1611: oe_debug_pub.add( 'TYPE_OF_USAGE => ' || P_TYPE_OF_ADDRESS ) ;
1612: END IF;
1613: FOR address_info_rec IN address_info_cur LOOP
1614: BEGIN
1615: l_no_record_exists := FALSE;
1615: l_no_record_exists := FALSE;
1616: If p_type_of_address = 'SHIP_TO' and
1617: nvl(address_info_rec.is_ship_to_address, 'N') <> 'Y' Then
1618: IF l_debug_level > 0 THEN
1619: oe_debug_pub.add( 'USAGE IS NOT SET FOR SHIP_TO. PLEASE CORRECT DATA' ) ;
1620: END IF;
1621: fnd_message.set_name('ONT','ONT_OI_INL_NO_USAGE_SET');
1622: fnd_message.set_token('USAGE', 'SHIP_TO');
1623: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1626: Return;
1627: Elsif p_type_of_address = 'BILL_TO' and
1628: nvl(address_info_rec.is_bill_to_address, 'N') <> 'Y' Then
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'USAGE IS NOT SET FOR BILL_TO. PLEASE CORRECT DATA' ) ;
1631: END IF;
1632: fnd_message.set_name('ONT','ONT_OI_INL_NO_USAGE_SET');
1633: fnd_message.set_token('USAGE', 'BILL_TO');
1634: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1637: Return;
1638: Elsif p_type_of_address = 'DELIVER_TO' and
1639: nvl(address_info_rec.is_deliver_to_address, 'N') <> 'Y' Then
1640: IF l_debug_level > 0 THEN
1641: oe_debug_pub.add( 'USAGE IS NOT SET FOR DELIVER_TO. PLEASE CORRECT DATA' ) ;
1642: END IF;
1643: fnd_message.set_name('ONT','ONT_OI_INL_NO_USAGE_SET');
1644: fnd_message.set_token('USAGE', 'DELIVER_TO');
1645: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1661: if l_site_id_exists='Y' then
1662: x_usage_site_id := address_info_rec.new_address_id_ship;
1663: x_return_status := FND_API.G_RET_STS_SUCCESS;
1664: IF l_debug_level > 0 THEN
1665: oe_debug_pub.add( 'RETURNING EXISING SHIP_TO ID=> '|| X_USAGE_SITE_ID ) ;
1666: END IF;
1667: RETURN;
1668:
1669: end if;
1686: if l_site_id_exists='Y' then
1687: x_usage_site_id := address_info_rec.new_address_id_bill;
1688: x_return_status := FND_API.G_RET_STS_SUCCESS;
1689: IF l_debug_level > 0 THEN
1690: oe_debug_pub.add( 'RETURNING EXISING BILL_TO ID=> '|| X_USAGE_SITE_ID ) ;
1691: END IF;
1692: RETURN;
1693:
1694: end if;
1711: if l_site_id_exists='Y' then
1712: x_usage_site_id := address_info_rec.new_address_id_deliver;
1713: x_return_status := FND_API.G_RET_STS_SUCCESS;
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add( 'RETURNING EXISING DELIVER_TO ID=> '|| X_USAGE_SITE_ID ) ;
1716: END IF;
1717: RETURN;
1718:
1719: end if;
1733: -- { Start of If for parent_customer_ref Null
1734: If address_info_rec.parent_customer_ref IS NULL
1735: Then
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'PARENT_CUSTOMER_INFO_REF IS NULL' ) ;
1738: END IF;
1739: fnd_message.set_name('ONT','ONT_OI_INL_NO_PARENT_REF');
1740: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1741: oe_msg_pub.add;
1743: x_return_status := FND_API.G_RET_STS_ERROR;
1744: Return;
1745: Else
1746: IF l_debug_level > 0 THEN
1747: oe_debug_pub.add( 'BEFORE CALLING CREATE ACCOUNT PROCEDURE' ) ;
1748: END IF;
1749: -- call Create_Account api
1750: create_account(p_customer_info_ref => address_info_rec.parent_customer_ref,
1751: p_orig_sys_document_ref => p_orig_sys_document_ref,
1757: x_existing_value => l_existing_value,
1758: x_return_status => l_return_status
1759: );
1760: IF l_debug_level > 0 THEN
1761: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
1762: END IF;
1763: IF l_debug_level > 0 THEN
1764: oe_debug_pub.add( 'CUST_ACCOUNT_ID = '||L_CUSTOMER_INFO_ID ) ;
1765: END IF;
1760: IF l_debug_level > 0 THEN
1761: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
1762: END IF;
1763: IF l_debug_level > 0 THEN
1764: oe_debug_pub.add( 'CUST_ACCOUNT_ID = '||L_CUSTOMER_INFO_ID ) ;
1765: END IF;
1766: IF l_debug_level > 0 THEN
1767: oe_debug_pub.add( 'CUST_PARTY_ID = '||L_CUSTOMER_PARTY_ID ) ;
1768: END IF;
1763: IF l_debug_level > 0 THEN
1764: oe_debug_pub.add( 'CUST_ACCOUNT_ID = '||L_CUSTOMER_INFO_ID ) ;
1765: END IF;
1766: IF l_debug_level > 0 THEN
1767: oe_debug_pub.add( 'CUST_PARTY_ID = '||L_CUSTOMER_PARTY_ID ) ;
1768: END IF;
1769:
1770: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1771: IF l_debug_level > 0 THEN
1768: END IF;
1769:
1770: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add( 'RETURN STATUS AFTER CREATE_ACCOUNT IS ERROR' ) ;
1773: END IF;
1774: x_return_status := l_return_status;
1775: Return;
1776: End If;
1786: x_msg_count => l_msg_count,
1787: x_msg_data => l_msg_data);
1788:
1789: IF l_debug_level > 0 THEN
1790: oe_debug_pub.add( 'AFTER CREATE_CUST_RELATIONSHIP' ) ;
1791: END IF;
1792:
1793: If l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1794: IF l_debug_level > 0 THEN
1791: END IF;
1792:
1793: If l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1794: IF l_debug_level > 0 THEN
1795: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1796: END IF;
1797: IF l_debug_level > 0 THEN
1798: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1799: END IF;
1794: IF l_debug_level > 0 THEN
1795: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
1796: END IF;
1797: IF l_debug_level > 0 THEN
1798: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
1799: END IF;
1800: Update_Error_Flag(p_rowid => address_info_rec.rowid);
1801: x_return_status := l_return_status;
1802: Return;
1817: Where cust_account_id = l_customer_info_id;
1818: Exception
1819: When No_Data_Found Then
1820: IF l_debug_level > 0 THEN
1821: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED EXISTING CUSTOMER , PLEASE CHECK DATA' ) ;
1822: END IF;
1823: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
1824: fnd_message.set_token('REFERENCE', address_info_rec.Current_Customer_id);
1825: oe_msg_pub.add;
1844: End If;
1845: -- End of OR}
1846: l_val_addr :=OE_Sys_Parameters.VALUE('OE_ADDR_VALID_OIMP'); --bug 7299729
1847: IF l_debug_level > 0 THEN
1848: oe_debug_pub.add( 'Customer validation for OI '||l_val_addr ) ;
1849: END IF;
1850:
1851:
1852: IF NOT (l_val_addr = 'N' ) THEN ---skip duplicate check bug 7299729
1873: );
1874: If l_duplicate_address <> FND_API.G_MISS_NUM Then
1875: -- Raise Error and Abort Processing
1876: IF l_debug_level > 0 THEN
1877: oe_debug_pub.add( 'TRYING TO ENTER THE SHIP TO WHICH ALREADY EXISTS' ) ;
1878: END IF;
1879: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
1880: fnd_message.set_token('TYPE', 'SHIP_TO ADDRESS');
1881: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1906: );
1907: If l_duplicate_address <> FND_API.G_MISS_NUM Then
1908: -- Raise Error and Abort Processing
1909: IF l_debug_level > 0 THEN
1910: oe_debug_pub.add( 'TRYING TO ENTER THE BILL TO WHICH ALREADY EXISTS' ) ;
1911: END IF;
1912: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
1913: fnd_message.set_token('TYPE', 'BILL_TO ADDRESS');
1914: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1939: );
1940: If l_duplicate_address <> FND_API.G_MISS_NUM Then
1941: -- Raise Error and Abort Processing
1942: IF l_debug_level > 0 THEN
1943: oe_debug_pub.add( 'TRYING TO ENTER THE DELIVER TO WHICH ALREADY EXISTS' ) ;
1944: END IF;
1945: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
1946: fnd_message.set_token('TYPE', 'DELIVER_TO ADDRESS');
1947: fnd_message.set_token('REFERENCE', p_customer_info_ref);
1960: END IF; ----end of skip duplicate check --bug 7299729
1961:
1962: --check if site number is passed, else error
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'AUTO_SITE_NUMBERING = '|| G_AUTO_SITE_NUMBERING ) ;
1965: END IF;
1966: IF l_debug_level > 0 THEN
1967: oe_debug_pub.add( 'AUTO_LOCATION_NUMBERING = '|| G_AUTO_LOCATION_NUMBERING ) ;
1968: END IF;
1963: IF l_debug_level > 0 THEN
1964: oe_debug_pub.add( 'AUTO_SITE_NUMBERING = '|| G_AUTO_SITE_NUMBERING ) ;
1965: END IF;
1966: IF l_debug_level > 0 THEN
1967: oe_debug_pub.add( 'AUTO_LOCATION_NUMBERING = '|| G_AUTO_LOCATION_NUMBERING ) ;
1968: END IF;
1969:
1970: IF nvl(G_AUTO_SITE_NUMBERING, 'Y') = 'N' AND
1971: address_info_rec.site_number IS NULL
1975: fnd_message.set_token('FIELD_REQD', 'SITE_NUMBER');
1976: oe_msg_pub.add;
1977: x_return_status := FND_API.G_RET_STS_ERROR;
1978: IF l_debug_level > 0 THEN
1979: oe_debug_pub.add( 'SPECIFY SITE NUMBER , PROFILE NO AUTO' ) ;
1980: END IF;
1981: RETURN;
1982: ELSIF nvl(G_AUTO_SITE_NUMBERING, 'Y') = 'N' AND
1983: address_info_rec.site_number IS NOT NULL
1993: fnd_message.set_token('FIELD_REQD', 'LOCATION_NUMBER');
1994: oe_msg_pub.add;
1995: x_return_status := FND_API.G_RET_STS_ERROR;
1996: IF l_debug_level > 0 THEN
1997: oe_debug_pub.add( 'SPECIFY LOCATION NUMBER' ) ;
1998: END IF;
1999: RETURN;
2000: ELSIF nvl(g_auto_location_numbering, 'Y') = 'N' AND
2001: address_info_rec.location_number IS NOT NULL
2003: l_location_number := address_info_rec.location_number;
2004: END IF;
2005:
2006: IF l_debug_level > 0 THEN
2007: oe_debug_pub.add( 'CALL CREATE_LOCATION API' ) ;
2008: END IF;
2009:
2010: l_location_rec.country := address_info_rec.country;
2011: l_location_rec.address1 := address_info_rec.address1;
2049: ,x_msg_data => l_msg_data
2050: ,x_location_id => l_location_id
2051: );
2052: IF l_debug_level > 0 THEN
2053: oe_debug_pub.add( 'AFTER HZ CREATE_LOCATION' ) ;
2054: END IF;
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'LOCATION ID = '||L_LOCATION_ID ) ;
2057: END IF;
2052: IF l_debug_level > 0 THEN
2053: oe_debug_pub.add( 'AFTER HZ CREATE_LOCATION' ) ;
2054: END IF;
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'LOCATION ID = '||L_LOCATION_ID ) ;
2057: END IF;
2058:
2059: -- Let us check the status of the call to hz api
2060: IF l_debug_level > 0 THEN
2057: END IF;
2058:
2059: -- Let us check the status of the call to hz api
2060: IF l_debug_level > 0 THEN
2061: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2062: END IF;
2063: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add( 'HZ CREATE_LOCATION API ERROR ' ) ;
2061: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2062: END IF;
2063: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add( 'HZ CREATE_LOCATION API ERROR ' ) ;
2066: END IF;
2067: IF l_debug_level > 0 THEN
2068: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2069: END IF;
2064: IF l_debug_level > 0 THEN
2065: oe_debug_pub.add( 'HZ CREATE_LOCATION API ERROR ' ) ;
2066: END IF;
2067: IF l_debug_level > 0 THEN
2068: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2069: END IF;
2070: IF l_debug_level > 0 THEN
2071: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2072: END IF;
2067: IF l_debug_level > 0 THEN
2068: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2069: END IF;
2070: IF l_debug_level > 0 THEN
2071: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2072: END IF;
2073: x_return_status := l_return_status;
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2071: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2072: END IF;
2073: x_return_status := l_return_status;
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2076: END IF;
2077: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2078: oe_msg_pub.transfer_msg_stack;
2079: fnd_msg_pub.delete_msg;
2080: return;
2081: End If;
2082:
2083: IF l_debug_level > 0 THEN
2084: oe_debug_pub.add( 'CALL CREATE_PARTY_SITE API' ) ;
2085: END IF;
2086:
2087: l_party_site_rec.party_id:= l_customer_party_id;
2088: l_party_site_rec.location_id := l_location_id;
2120: x_msg_count => l_msg_count,
2121: x_msg_data => l_msg_data
2122: );
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add( 'AFTER HZ CREATE_PARTY_SITE API' ) ;
2125: END IF;
2126: IF l_debug_level > 0 THEN
2127: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2128: END IF;
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add( 'AFTER HZ CREATE_PARTY_SITE API' ) ;
2125: END IF;
2126: IF l_debug_level > 0 THEN
2127: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2128: END IF;
2129: IF l_debug_level > 0 THEN
2130: oe_debug_pub.add( 'PARTY_SITE_NUMBER = '||L_PARTY_SITE_NUMBER ) ;
2131: END IF;
2126: IF l_debug_level > 0 THEN
2127: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2128: END IF;
2129: IF l_debug_level > 0 THEN
2130: oe_debug_pub.add( 'PARTY_SITE_NUMBER = '||L_PARTY_SITE_NUMBER ) ;
2131: END IF;
2132:
2133: -- Let us check the status of the call to hz api
2134: IF l_debug_level > 0 THEN
2131: END IF;
2132:
2133: -- Let us check the status of the call to hz api
2134: IF l_debug_level > 0 THEN
2135: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2136: END IF;
2137: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2138: IF l_debug_level > 0 THEN
2139: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2135: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2136: END IF;
2137: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2138: IF l_debug_level > 0 THEN
2139: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2140: END IF;
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2143: END IF;
2138: IF l_debug_level > 0 THEN
2139: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2140: END IF;
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2143: END IF;
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2146: END IF;
2141: IF l_debug_level > 0 THEN
2142: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2143: END IF;
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2146: END IF;
2147: x_return_status := l_return_status;
2148: IF l_debug_level > 0 THEN
2149: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2145: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2146: END IF;
2147: x_return_status := l_return_status;
2148: IF l_debug_level > 0 THEN
2149: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2150: END IF;
2151: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2152: oe_msg_pub.transfer_msg_stack;
2153: fnd_msg_pub.delete_msg;
2154: return;
2155: End If;
2156:
2157: IF l_debug_level > 0 THEN
2158: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCOUNT_SITE API' ) ;
2159: END IF;
2160:
2161: l_account_site_rec.party_site_id := l_party_site_id;
2162: l_account_site_rec.cust_account_id := l_customer_info_id;
2214: x_msg_data => l_msg_data,
2215: x_cust_acct_site_id => l_customer_site_id
2216: );
2217: IF l_debug_level > 0 THEN
2218: oe_debug_pub.add( 'AFTER HZ CREATE_ACCOUNT_SITE API' ) ;
2219: END IF;
2220: IF l_debug_level > 0 THEN
2221: oe_debug_pub.add( 'CUSTOMER_SITE_ID = '||L_CUSTOMER_SITE_ID ) ;
2222: END IF;
2217: IF l_debug_level > 0 THEN
2218: oe_debug_pub.add( 'AFTER HZ CREATE_ACCOUNT_SITE API' ) ;
2219: END IF;
2220: IF l_debug_level > 0 THEN
2221: oe_debug_pub.add( 'CUSTOMER_SITE_ID = '||L_CUSTOMER_SITE_ID ) ;
2222: END IF;
2223:
2224: -- Let us check the status of the call to hz api
2225: IF l_debug_level > 0 THEN
2222: END IF;
2223:
2224: -- Let us check the status of the call to hz api
2225: IF l_debug_level > 0 THEN
2226: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2227: END IF;
2228: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2229: IF l_debug_level > 0 THEN
2230: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2226: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2227: END IF;
2228: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2229: IF l_debug_level > 0 THEN
2230: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2231: END IF;
2232: IF l_debug_level > 0 THEN
2233: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2234: END IF;
2229: IF l_debug_level > 0 THEN
2230: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2231: END IF;
2232: IF l_debug_level > 0 THEN
2233: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2234: END IF;
2235: IF l_debug_level > 0 THEN
2236: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2237: END IF;
2232: IF l_debug_level > 0 THEN
2233: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2234: END IF;
2235: IF l_debug_level > 0 THEN
2236: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2237: END IF;
2238: x_return_status := l_return_status;
2239: IF l_debug_level > 0 THEN
2240: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2236: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2237: END IF;
2238: x_return_status := l_return_status;
2239: IF l_debug_level > 0 THEN
2240: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2241: END IF;
2242: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2243: oe_msg_pub.transfer_msg_stack;
2244: fnd_msg_pub.delete_msg;
2245: return;
2246: End If;
2247:
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCOUNT_SITE_USES API' ) ;
2250: END IF;
2251:
2252: l_acct_site_uses.cust_acct_site_id := l_customer_site_id;
2253: l_acct_site_uses.location := l_location_number;
2257:
2258: IF address_info_rec.is_ship_to_address = 'Y' THEN
2259: l_acct_site_uses.site_use_code := 'SHIP_TO';
2260: IF l_debug_level > 0 THEN
2261: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2262: END IF;
2263: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2264: (
2265: p_cust_site_use_rec => l_acct_site_uses,
2271: x_site_use_id => l_site_use_id_ship
2272: );
2273: -- Let us check the status of the call to hz api
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2276: END IF;
2277: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2275: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2276: END IF;
2277: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2280: END IF;
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2283: END IF;
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2280: END IF;
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2283: END IF;
2284: IF l_debug_level > 0 THEN
2285: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2286: END IF;
2281: IF l_debug_level > 0 THEN
2282: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2283: END IF;
2284: IF l_debug_level > 0 THEN
2285: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2286: END IF;
2287: x_return_status := l_return_status;
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2285: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2286: END IF;
2287: x_return_status := l_return_status;
2288: IF l_debug_level > 0 THEN
2289: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2290: END IF;
2291: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2292: oe_msg_pub.transfer_msg_stack;
2293: fnd_msg_pub.delete_msg;
2294: return;
2295: End If;
2296:
2297: IF l_debug_level > 0 THEN
2298: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2299: END IF;
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2302: END IF;
2297: IF l_debug_level > 0 THEN
2298: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2299: END IF;
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2302: END IF;
2303: IF l_debug_level > 0 THEN
2304: oe_debug_pub.add( 'L_RETURN_STATUS = '||L_RETURN_STATUS ) ;
2305: END IF;
2300: IF l_debug_level > 0 THEN
2301: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2302: END IF;
2303: IF l_debug_level > 0 THEN
2304: oe_debug_pub.add( 'L_RETURN_STATUS = '||L_RETURN_STATUS ) ;
2305: END IF;
2306: If p_type_of_address = 'SHIP_TO' Then
2307: x_usage_site_id := l_site_use_id_ship;
2308: End if;
2315:
2316: IF address_info_rec.is_bill_to_address = 'Y' THEN
2317: l_acct_site_uses.site_use_code := 'BILL_TO';
2318: IF l_debug_level > 0 THEN
2319: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2320: END IF;
2321: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2322: (
2323: p_cust_site_use_rec => l_acct_site_uses,
2329: x_site_use_id => l_site_use_id_bill
2330: );
2331: -- Let us check the status of the call to hz api
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2334: END IF;
2335: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2336: IF l_debug_level > 0 THEN
2337: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2333: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2334: END IF;
2335: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2336: IF l_debug_level > 0 THEN
2337: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2338: END IF;
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2341: END IF;
2336: IF l_debug_level > 0 THEN
2337: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2338: END IF;
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2341: END IF;
2342: IF l_debug_level > 0 THEN
2343: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2344: END IF;
2339: IF l_debug_level > 0 THEN
2340: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2341: END IF;
2342: IF l_debug_level > 0 THEN
2343: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2344: END IF;
2345: x_return_status := l_return_status;
2346: IF l_debug_level > 0 THEN
2347: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2343: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2344: END IF;
2345: x_return_status := l_return_status;
2346: IF l_debug_level > 0 THEN
2347: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2348: END IF;
2349: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2350: oe_msg_pub.transfer_msg_stack;
2351: fnd_msg_pub.delete_msg;
2352: return;
2353: End If;
2354:
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2357: END IF;
2358: IF l_debug_level > 0 THEN
2359: oe_debug_pub.add( 'SITE_USE_ID_BILL = '||L_SITE_USE_ID_BILL ) ;
2360: END IF;
2355: IF l_debug_level > 0 THEN
2356: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2357: END IF;
2358: IF l_debug_level > 0 THEN
2359: oe_debug_pub.add( 'SITE_USE_ID_BILL = '||L_SITE_USE_ID_BILL ) ;
2360: END IF;
2361: If p_type_of_address = 'BILL_TO' Then
2362: x_usage_site_id := l_site_use_id_bill;
2363: End if;
2369:
2370: IF address_info_rec.is_deliver_to_address = 'Y' THEN
2371: l_acct_site_uses.site_use_code := 'DELIVER_TO';
2372: IF l_debug_level > 0 THEN
2373: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO ' ) ;
2374: END IF;
2375: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2376: (
2377: p_cust_site_use_rec => l_acct_site_uses,
2383: x_site_use_id => l_site_use_id_deliver
2384: );
2385: -- Let us check the status of the call to hz api
2386: IF l_debug_level > 0 THEN
2387: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2388: END IF;
2389: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2390: IF l_debug_level > 0 THEN
2391: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2387: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2388: END IF;
2389: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2390: IF l_debug_level > 0 THEN
2391: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2392: END IF;
2393: IF l_debug_level > 0 THEN
2394: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2395: END IF;
2390: IF l_debug_level > 0 THEN
2391: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2392: END IF;
2393: IF l_debug_level > 0 THEN
2394: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2395: END IF;
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2398: END IF;
2393: IF l_debug_level > 0 THEN
2394: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2395: END IF;
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2398: END IF;
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2401: END IF;
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2398: END IF;
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2401: END IF;
2402: x_return_status := l_return_status;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2400: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2401: END IF;
2402: x_return_status := l_return_status;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2405: END IF;
2406: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2407: oe_msg_pub.transfer_msg_stack;
2408: fnd_msg_pub.delete_msg;
2409: return;
2410: End If;
2411:
2412: IF l_debug_level > 0 THEN
2413: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO' ) ;
2414: END IF;
2415: IF l_debug_level > 0 THEN
2416: oe_debug_pub.add( 'SITE_USE_ID_DELIVER = '||L_SITE_USE_ID_DELIVER ) ;
2417: END IF;
2412: IF l_debug_level > 0 THEN
2413: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO' ) ;
2414: END IF;
2415: IF l_debug_level > 0 THEN
2416: oe_debug_pub.add( 'SITE_USE_ID_DELIVER = '||L_SITE_USE_ID_DELIVER ) ;
2417: END IF;
2418: If p_type_of_address = 'DELIVER_TO' Then
2419: x_usage_site_id := l_site_use_id_deliver;
2420: End if;
2426:
2427: EXCEPTION
2428: When Others Then
2429: IF l_debug_level > 0 THEN
2430: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2431: END IF;
2432: IF l_debug_level > 0 THEN
2433: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2434: END IF;
2429: IF l_debug_level > 0 THEN
2430: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2431: END IF;
2432: IF l_debug_level > 0 THEN
2433: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2434: END IF;
2435: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2436: fnd_message.set_token('API_NAME', 'Create_Address');
2437: oe_msg_pub.add;
2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2439: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2440: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
2441: IF l_debug_level > 0 THEN
2442: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2443: END IF;
2444:
2445: END;
2446: -- End of Begin after loop
2447: END LOOP;
2448: -- End of For loop
2449: If l_no_record_exists Then
2450: IF l_debug_level > 0 THEN
2451: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED REF , PLEASE CHECK DATA' ) ;
2452: END IF;
2453: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
2454: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2455: oe_msg_pub.add;
2454: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2455: oe_msg_pub.add;
2456: x_return_status := FND_API.G_RET_STS_ERROR;
2457: IF l_debug_level > 0 THEN
2458: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2459: END IF;
2460: End If;
2461:
2462: IF l_debug_level > 0 THEN
2459: END IF;
2460: End If;
2461:
2462: IF l_debug_level > 0 THEN
2463: oe_debug_pub.add( 'EXITING PROCEDURE CREATE ADDRESS' ) ;
2464: END IF;
2465: Exception
2466: When Others Then
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2465: Exception
2466: When Others Then
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468: IF l_debug_level > 0 THEN
2469: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2470: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2471: END IF;
2472: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2473: fnd_message.set_token('API_NAME', 'Create_Address');
2466: When Others Then
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468: IF l_debug_level > 0 THEN
2469: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2470: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2471: END IF;
2472: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2473: fnd_message.set_token('API_NAME', 'Create_Address');
2474: oe_msg_pub.add;
2473: fnd_message.set_token('API_NAME', 'Create_Address');
2474: oe_msg_pub.add;
2475: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
2476: IF l_debug_level > 0 THEN
2477: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2478: END IF;
2479:
2480: End Create_Address;
2481: -- End procedure Create Address }
2565:
2566: -- End of Cursor definition for l_contact_info_cur }
2567:
2568: --
2569: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2570: --
2571: Begin
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE CONTACT' ) ;
2569: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2570: --
2571: Begin
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE CONTACT' ) ;
2574: END IF;
2575:
2576: x_return_status := FND_API.G_RET_STS_SUCCESS;
2577:
2603: -- Customer then return that value and exit out of the
2604: -- process
2605:
2606: IF l_debug_level > 0 THEN
2607: oe_debug_pub.add( 'INSIDE LOOP FOR THE CUSTOMER_INFO_CUR' ) ;
2608: END IF;
2609:
2610: If contact_rec.New_Contact_Id Is Not Null And
2611: l_type_of_contact = 'SOLD_TO' Then
2609:
2610: If contact_rec.New_Contact_Id Is Not Null And
2611: l_type_of_contact = 'SOLD_TO' Then
2612: IF l_debug_level > 0 THEN
2613: oe_debug_pub.add( 'NEW CONTACT ID IS THERE , RETURING THE EXISTING VAL' ) ;
2614: END IF;
2615: x_contact_id := contact_rec.New_Contact_id;
2616: IF l_debug_level > 0 THEN
2617: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2613: oe_debug_pub.add( 'NEW CONTACT ID IS THERE , RETURING THE EXISTING VAL' ) ;
2614: END IF;
2615: x_contact_id := contact_rec.New_Contact_id;
2616: IF l_debug_level > 0 THEN
2617: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2618: END IF;
2619: RETURN;
2620: End If;
2621:
2630: contact_rec.is_bill_to_address = 'Y') Or
2631: (l_type_of_contact = 'DELIVER_TO' and
2632: contact_rec.is_deliver_to_address = 'Y') Then
2633: IF l_debug_level > 0 THEN
2634: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
2635: END IF;
2636: x_contact_id := contact_rec.New_Contact_id;
2637: IF l_debug_level > 0 THEN
2638: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2634: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
2635: END IF;
2636: x_contact_id := contact_rec.New_Contact_id;
2637: IF l_debug_level > 0 THEN
2638: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2639: END IF;
2640: RETURN;
2641: End If;
2642: End If;
2643: -- End of the site level contact check}
2644:
2645: -- {Start of the checking of existing customer or not
2646: IF l_debug_level > 0 THEN
2647: oe_debug_pub.add( 'LET US CHECK IF THIS IS FOR EXISTING CUSTOMER' ) ;
2648: END IF;
2649:
2650: If (contact_rec.current_customer_id IS NULL) And
2651: (contact_rec.current_customer_number) IS NULL Then
2651: (contact_rec.current_customer_number) IS NULL Then
2652: --{Start of if parent rec is passed or not
2653: If contact_rec.parent_customer_ref is Null Then
2654: IF l_debug_level > 0 THEN
2655: oe_debug_pub.add( 'NO PARENT CUSTOMER REF POPULATED. CHECK THE DATA' ) ;
2656: END IF;
2657: x_return_status := FND_API.G_RET_STS_ERROR;
2658: fnd_message.set_name('ONT','ONT_OI_INL_NO_PARENT_INFO');
2659: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2662: End If;
2663: -- End of if parent rec is passed or not}
2664:
2665: IF l_debug_level > 0 THEN
2666: oe_debug_pub.add( 'BEFORE CALLING CREATE ACCOUNT PROCEDURE' ) ;
2667: END IF;
2668: -- call Create_Account api
2669: Create_Account( p_customer_info_ref => contact_rec.parent_customer_ref,
2670: p_orig_sys_document_ref => p_orig_sys_document_ref,
2676: x_existing_value => l_existing_value,
2677: x_return_status => l_return_status
2678: );
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
2681: END IF;
2682:
2683: -- Check for the return status of the api
2684: -- to return the proper information to the called program.
2683: -- Check for the return status of the api
2684: -- to return the proper information to the called program.
2685: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2686: IF l_debug_level > 0 THEN
2687: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC. FOR CONTACT' ) ;
2688: END IF;
2689: x_return_status := l_return_status;
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
2687: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC. FOR CONTACT' ) ;
2688: END IF;
2689: x_return_status := l_return_status;
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
2692: END IF;
2693: Return;
2694: End if;
2695: -- End of the checking of the Parent Info and creation}
2695: -- End of the checking of the Parent Info and creation}
2696:
2697: Else
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add( 'FOR EXISTING CUSTOMER' ) ;
2700: END IF;
2701: If contact_rec.current_customer_id IS NOT NULL Then
2702: l_customer_info_id := contact_rec.Current_Customer_id;
2703: Begin
2707: Where cust_account_id = l_customer_info_id;
2708: Exception
2709: When No_Data_Found Then
2710: IF l_debug_level > 0 THEN
2711: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED EXISTING CUSTOMER , PLEASE CHECK DATA' ) ;
2712: END IF;
2713: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
2714: fnd_message.set_token('REFERENCE', contact_rec.Current_Customer_id);
2715: oe_msg_pub.add;
2744: p_sold_to_org_id => l_customer_info_id);
2745: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2746: -- Raise Error and Abort Processing
2747: IF l_debug_level > 0 THEN
2748: oe_debug_pub.add( 'TRYING TO ENTER THE SOLD_TO CONTACT WHICH ALREADY EXISTS' ) ;
2749: END IF;
2750: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2751: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2752: oe_msg_pub.add;
2765: p_ship_to_org_id => l_usage_site_id);
2766: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2767: -- Raise Error and Abort Processing
2768: IF l_debug_level > 0 THEN
2769: oe_debug_pub.add( 'TRYING TO ENTER THE SHIP_TO CONTACT WHICH ALREADY EXISTS' ) ;
2770: END IF;
2771: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2772: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2773: oe_msg_pub.add;
2786: p_invoice_to_org_id => l_usage_site_id);
2787: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2788: -- Raise Error and Abort Processing
2789: IF l_debug_level > 0 THEN
2790: oe_debug_pub.add( 'TRYING TO ENTER THE BILL_TO CONTACT WHICH ALREADY EXISTS' ) ;
2791: END IF;
2792: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2793: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2794: oe_msg_pub.add;
2807: p_deliver_to_org_id => l_usage_site_id);
2808: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2809: -- Raise Error and Abort Processing
2810: IF l_debug_level > 0 THEN
2811: oe_debug_pub.add( 'TRYING TO ENTER THE DELIVER_TO CONTACT WHICH ALREADY EXISTS' ) ;
2812: END IF;
2813: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2814: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2815: oe_msg_pub.add;
2838: x_return_status => l_return_status
2839: );
2840: If contact_rec.New_Contact_Id = l_ret_contact_id Then
2841: IF l_debug_level > 0 THEN
2842: oe_debug_pub.add( 'GENERATED CONTACT ID IS => ' || L_RET_CONTACT_ID ) ;
2843: END IF;
2844: x_contact_id := contact_rec.New_Contact_id;
2845: IF l_debug_level > 0 THEN
2846: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2842: oe_debug_pub.add( 'GENERATED CONTACT ID IS => ' || L_RET_CONTACT_ID ) ;
2843: END IF;
2844: x_contact_id := contact_rec.New_Contact_id;
2845: IF l_debug_level > 0 THEN
2846: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2847: END IF;
2848: RETURN;
2849: Else
2850: IF l_debug_level > 0 THEN
2847: END IF;
2848: RETURN;
2849: Else
2850: IF l_debug_level > 0 THEN
2851: oe_debug_pub.add( 'THERE IS SOME PROBLEM , PLEASE INVESTIGATE.' ) ;
2852: END IF;
2853: End If;
2854: End If;
2855:
2863: l_person_rec.application_id := 660;
2864:
2865: If G_AUTO_PARTY_NUMBERING = 'N' Then
2866: IF l_debug_level > 0 THEN
2867: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE' ) ;
2868: END IF;
2869: Select hz_party_number_s.nextval
2870: Into l_party_rec.party_number
2871: From Dual;
2869: Select hz_party_number_s.nextval
2870: Into l_party_rec.party_number
2871: From Dual;
2872: IF l_debug_level > 0 THEN
2873: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_PARTY_REC.PARTY_NUMBER ) ;
2874: END IF;
2875: End If; -- If G_AUTO_PARTY_NUMBERING
2876:
2877: l_person_rec.party_rec := l_party_rec;
2889:
2890: -- End Call hz api to create contact person }
2891: -- Let us check the status of the call to hz api
2892: IF l_debug_level > 0 THEN
2893: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2894: END IF;
2895: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2893: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2894: END IF;
2895: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2898: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2901: END IF;
2896: IF l_debug_level > 0 THEN
2897: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2898: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2901: END IF;
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2904: END IF;
2899: IF l_debug_level > 0 THEN
2900: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2901: END IF;
2902: IF l_debug_level > 0 THEN
2903: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2904: END IF;
2905: x_return_status := l_return_status;
2906: IF l_debug_level > 0 THEN
2907: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2903: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2904: END IF;
2905: x_return_status := l_return_status;
2906: IF l_debug_level > 0 THEN
2907: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2908: END IF;
2909: Update_Error_Flag(p_rowid => contact_rec.rowid);
2910: oe_msg_pub.transfer_msg_stack;
2911: fnd_msg_pub.delete_msg;
2912: return;
2913: End If;
2914:
2915: IF l_debug_level > 0 THEN
2916: oe_debug_pub.add( 'NEW PARTY ID FOR CONTACT =>' || L_CONTACT_PARTY_ID ) ;
2917: END IF;
2918: IF l_debug_level > 0 THEN
2919: oe_debug_pub.add( 'NEW PARTY NUMBER FOR CONTACT =>' || L_CONTACT_PARTY_NUMBER ) ;
2920: END IF;
2915: IF l_debug_level > 0 THEN
2916: oe_debug_pub.add( 'NEW PARTY ID FOR CONTACT =>' || L_CONTACT_PARTY_ID ) ;
2917: END IF;
2918: IF l_debug_level > 0 THEN
2919: oe_debug_pub.add( 'NEW PARTY NUMBER FOR CONTACT =>' || L_CONTACT_PARTY_NUMBER ) ;
2920: END IF;
2921:
2922: If G_AUTO_PARTY_NUMBERING = 'N' Then
2923: IF l_debug_level > 0 THEN
2920: END IF;
2921:
2922: If G_AUTO_PARTY_NUMBERING = 'N' Then
2923: IF l_debug_level > 0 THEN
2924: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE FOR ORG' ) ;
2925: END IF;
2926: Select hz_party_number_s.nextval
2927: Into l_org_contact_rec.party_rel_rec.party_rec.party_number
2928: From Dual;
2926: Select hz_party_number_s.nextval
2927: Into l_org_contact_rec.party_rel_rec.party_rec.party_number
2928: From Dual;
2929: IF l_debug_level > 0 THEN
2930: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_ORG_CONTACT_REC.PARTY_REL_REC.PARTY_REC.PARTY_NUMBER ) ;
2931: END IF;
2932: End If; -- If G_AUTO_PARTY_NUMBERING
2933:
2934: l_org_contact_rec.party_rel_rec.subject_id := l_contact_party_id;
2946: From HZ_PARTIES
2947: Where party_id = l_customer_party_id;
2948:
2949: IF l_debug_level > 0 THEN
2950: oe_debug_pub.add( 'SUBJECT_ID:'||L_CONTACT_PARTY_ID||':OBJECT_ID:'||L_CUSTOMER_PARTY_ID||':OBJECT_TYPE'||L_ORG_CONTACT_REC.PARTY_REL_REC.OBJECT_TYPE ) ;
2951: END IF;
2952: If G_AUTO_CONTACT_NUMBERING = 'N' Then
2953: IF l_debug_level > 0 THEN
2954: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM CONTACT SEQ' ) ;
2950: oe_debug_pub.add( 'SUBJECT_ID:'||L_CONTACT_PARTY_ID||':OBJECT_ID:'||L_CUSTOMER_PARTY_ID||':OBJECT_TYPE'||L_ORG_CONTACT_REC.PARTY_REL_REC.OBJECT_TYPE ) ;
2951: END IF;
2952: If G_AUTO_CONTACT_NUMBERING = 'N' Then
2953: IF l_debug_level > 0 THEN
2954: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM CONTACT SEQ' ) ;
2955: END IF;
2956: Select hz_contact_numbers_s.nextval
2957: Into l_org_contact_rec.contact_number
2958: From Dual;
2956: Select hz_contact_numbers_s.nextval
2957: Into l_org_contact_rec.contact_number
2958: From Dual;
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'AFTER SELECTING NEW CONTACT SEQUENCE ' || L_ORG_CONTACT_REC.CONTACT_NUMBER ) ;
2961: END IF;
2962: End If; -- If G_AUTO_CONTACT_NUMBERING
2963:
2964:
2980: );
2981: -- End Call hz api to create org contact }
2982: -- Let us check the status of the call to hz api
2983: IF l_debug_level > 0 THEN
2984: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2985: END IF;
2986: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2984: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2985: END IF;
2986: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2989: END IF;
2990: IF l_debug_level > 0 THEN
2991: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2992: END IF;
2987: IF l_debug_level > 0 THEN
2988: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2989: END IF;
2990: IF l_debug_level > 0 THEN
2991: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2992: END IF;
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2995: END IF;
2990: IF l_debug_level > 0 THEN
2991: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2992: END IF;
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2995: END IF;
2996: x_return_status := l_return_status;
2997: IF l_debug_level > 0 THEN
2998: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2994: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2995: END IF;
2996: x_return_status := l_return_status;
2997: IF l_debug_level > 0 THEN
2998: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2999: END IF;
3000: Update_Error_Flag(p_rowid => contact_rec.rowid);
3001: oe_msg_pub.transfer_msg_stack;
3002: fnd_msg_pub.delete_msg;
3003: return;
3004: End If;
3005:
3006: IF l_debug_level > 0 THEN
3007: oe_debug_pub.add( 'NEW REL PARTY ID FOR CONTACT =>' || X_REL_PARTY_ID ) ;
3008: END IF;
3009: IF l_debug_level > 0 THEN
3010: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3011: END IF;
3006: IF l_debug_level > 0 THEN
3007: oe_debug_pub.add( 'NEW REL PARTY ID FOR CONTACT =>' || X_REL_PARTY_ID ) ;
3008: END IF;
3009: IF l_debug_level > 0 THEN
3010: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3011: END IF;
3012: IF l_debug_level > 0 THEN
3013: oe_debug_pub.add( 'NEW ORG CONTCT ID =>' || X_ORG_CONTACT_ID ) ;
3014: END IF;
3009: IF l_debug_level > 0 THEN
3010: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3011: END IF;
3012: IF l_debug_level > 0 THEN
3013: oe_debug_pub.add( 'NEW ORG CONTCT ID =>' || X_ORG_CONTACT_ID ) ;
3014: END IF;
3015:
3016: -- { Let us create the Contact's contact point EMAIL and PHONE
3017: If contact_rec.email_address is Not Null Then
3028: x_msg_data => l_msg_data
3029: );
3030: -- Let us check the status of the call to hz api
3031: IF l_debug_level > 0 THEN
3032: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3033: END IF;
3034: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3035: IF l_debug_level > 0 THEN
3036: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3032: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3033: END IF;
3034: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3035: IF l_debug_level > 0 THEN
3036: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3037: END IF;
3038: x_return_status := l_return_status;
3039: IF l_debug_level > 0 THEN
3040: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3036: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3037: END IF;
3038: x_return_status := l_return_status;
3039: IF l_debug_level > 0 THEN
3040: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3041: END IF;
3042: return;
3043: Else
3044: IF l_debug_level > 0 THEN
3041: END IF;
3042: return;
3043: Else
3044: IF l_debug_level > 0 THEN
3045: oe_debug_pub.add( 'NEW EMAIL => ' || CONTACT_REC.EMAIL_ADDRESS ) ;
3046: END IF;
3047: End if;
3048:
3049: End If;
3064: x_msg_data => l_msg_data
3065: );
3066: -- Let us check the status of the call to hz api
3067: IF l_debug_level > 0 THEN
3068: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3069: END IF;
3070: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3068: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3069: END IF;
3070: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3073: END IF;
3074: x_return_status := l_return_status;
3075: IF l_debug_level > 0 THEN
3076: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3072: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3073: END IF;
3074: x_return_status := l_return_status;
3075: IF l_debug_level > 0 THEN
3076: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3077: END IF;
3078: return;
3079: Else
3080: IF l_debug_level > 0 THEN
3077: END IF;
3078: return;
3079: Else
3080: IF l_debug_level > 0 THEN
3081: oe_debug_pub.add( 'NEW PHONE => ' || CONTACT_REC.PHONE_NUMBER ) ;
3082: END IF;
3083: End if;
3084:
3085: End If;
3103: x_cust_account_role_id => x_cust_account_role_id
3104: );
3105:
3106: IF l_debug_level > 0 THEN
3107: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3108: END IF;
3109: -- Let us check the status of the call to hz api
3110: IF l_debug_level > 0 THEN
3111: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3107: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3108: END IF;
3109: -- Let us check the status of the call to hz api
3110: IF l_debug_level > 0 THEN
3111: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3112: END IF;
3113: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3111: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3112: END IF;
3113: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3116: END IF;
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3119: END IF;
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3116: END IF;
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3119: END IF;
3120: IF l_debug_level > 0 THEN
3121: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3122: END IF;
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3119: END IF;
3120: IF l_debug_level > 0 THEN
3121: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3122: END IF;
3123: x_return_status := l_return_status;
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3121: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3122: END IF;
3123: x_return_status := l_return_status;
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3126: END IF;
3127: Update_Error_Flag(p_rowid => contact_rec.rowid);
3128: oe_msg_pub.transfer_msg_stack;
3129: fnd_msg_pub.delete_msg;
3129: fnd_msg_pub.delete_msg;
3130: return;
3131: End If;
3132: IF l_debug_level > 0 THEN
3133: oe_debug_pub.add( 'NEW CUST ACC. ROLE => ' || X_CUST_ACCOUNT_ROLE_ID ) ;
3134: END IF;
3135: x_contact_id := x_cust_account_role_id;
3136:
3137: If contact_rec.New_Contact_Id Is Null and
3142: x_contact_id => l_ret_contact_id,
3143: x_return_status => l_return_status
3144: );
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
3147: END IF;
3148: x_contact_id := l_ret_Contact_id;
3149: End If;
3150:
3169: Where rowid = contact_rec.rowid;
3170:
3171: -- x_contact_id := l_contact_party_id;
3172: IF l_debug_level > 0 THEN
3173: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT ' ) ;
3174: END IF;
3175: -- End CONTACT role for the new contact}
3176:
3177: Exception
3176:
3177: Exception
3178: When Others Then
3179: IF l_debug_level > 0 THEN
3180: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3181: END IF;
3182: IF l_debug_level > 0 THEN
3183: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3184: END IF;
3179: IF l_debug_level > 0 THEN
3180: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3181: END IF;
3182: IF l_debug_level > 0 THEN
3183: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3184: END IF;
3185: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3186: fnd_message.set_token('API_NAME', 'Create_Contact');
3187: oe_msg_pub.add;
3188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3189: Update_Error_Flag(p_rowid => contact_rec.rowid);
3190: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3191: IF l_debug_level > 0 THEN
3192: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3193: END IF;
3194: End;
3195: -- End of Begin after Loop }
3196:
3198: -- End Contact Loop }
3199:
3200: If l_no_record_exists Then
3201: IF l_debug_level > 0 THEN
3202: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED REF , PLEASE CHECK DATA' ) ;
3203: END IF;
3204: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
3205: fnd_message.set_token('REFERENCE', p_customer_info_ref);
3206: oe_msg_pub.add;
3205: fnd_message.set_token('REFERENCE', p_customer_info_ref);
3206: oe_msg_pub.add;
3207: x_return_status := FND_API.G_RET_STS_ERROR;
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3210: END IF;
3211: End If;
3212:
3213: IF l_debug_level > 0 THEN
3210: END IF;
3211: End If;
3212:
3213: IF l_debug_level > 0 THEN
3214: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT' ) ;
3215: END IF;
3216: Exception
3217: When Others Then
3218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3216: Exception
3217: When Others Then
3218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3219: IF l_debug_level > 0 THEN
3220: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3221: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3222: END IF;
3223: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3224: fnd_message.set_token('API_NAME', 'Create_Contact');
3217: When Others Then
3218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3219: IF l_debug_level > 0 THEN
3220: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3221: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3222: END IF;
3223: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3224: fnd_message.set_token('API_NAME', 'Create_Contact');
3225: oe_msg_pub.add;
3224: fnd_message.set_token('API_NAME', 'Create_Contact');
3225: oe_msg_pub.add;
3226: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3227: IF l_debug_level > 0 THEN
3228: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3229: END IF;
3230: End Create_Contact;
3231: -- End procedure Create Contact }
3232:
3327:
3328: -- End of Cursor definition for l_address_info_cur }
3329:
3330: --
3331: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3332: --
3333: Begin
3334:
3335: x_return_status := FND_API.G_RET_STS_SUCCESS;
3351:
3352: -- { Start of if for p_customer_info_type_code
3353: if p_customer_info_type_code = 'ACCOUNT' then
3354: IF l_debug_level > 0 THEN
3355: oe_debug_pub.add( 'BEFORE CALLING CREATE ACCOUNT PROCEDURE' ) ;
3356: END IF;
3357: -- call Create_Account api
3358: Create_Account( p_customer_info_ref => p_customer_info_ref,
3359: p_orig_sys_document_ref => p_orig_sys_document_ref,
3366: x_return_status => l_return_status
3367: );
3368:
3369: IF l_debug_level > 0 THEN
3370: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
3371: END IF;
3372:
3373: -- Check for the return status of the api
3374: -- to return the proper information to the called program.
3373: -- Check for the return status of the api
3374: -- to return the proper information to the called program.
3375: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3376: IF l_debug_level > 0 THEN
3377: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC.' ) ;
3378: END IF;
3379: x_return_status := l_return_status;
3380: else
3381: IF l_debug_level > 0 THEN
3378: END IF;
3379: x_return_status := l_return_status;
3380: else
3381: IF l_debug_level > 0 THEN
3382: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ACCOUNT' ) ;
3383: END IF;
3384: x_customer_info_id := l_customer_info_id;
3385: x_customer_info_number := l_customer_info_number;
3386: x_return_status := l_return_status;
3404: -- Check for the return status of the api
3405: -- to return the proper information to the called program.
3406: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3407: IF l_debug_level > 0 THEN
3408: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE CONT.' ) ;
3409: END IF;
3410: x_return_status := l_return_status;
3411: else
3412: IF l_debug_level > 0 THEN
3409: END IF;
3410: x_return_status := l_return_status;
3411: else
3412: IF l_debug_level > 0 THEN
3413: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ACCOUNT' ) ;
3414: END IF;
3415: x_customer_info_id := l_contact_id;
3416: x_return_status := l_return_status;
3417: end if;
3430: -- Check for the return status of the api
3431: -- to return the proper information to the called program.
3432: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3433: IF l_debug_level > 0 THEN
3434: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ADDRESS.' ) ;
3435: END IF;
3436: x_return_status := l_return_status;
3437: Else
3438: IF l_debug_level > 0 THEN
3435: END IF;
3436: x_return_status := l_return_status;
3437: Else
3438: IF l_debug_level > 0 THEN
3439: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ADDRESS' ) ;
3440: END IF;
3441: -- { Start If
3442: If l_type_of_address = 'SHIP_TO' Then
3443: x_customer_info_id := l_usage_site_id;
3459: Exception
3460: When Others Then
3461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3464: END IF;
3465: IF l_debug_level > 0 THEN
3466: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3467: END IF;
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3464: END IF;
3465: IF l_debug_level > 0 THEN
3466: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3467: END IF;
3468: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3469: fnd_message.set_token('API_NAME', 'Create_Customer_Info');
3470: oe_msg_pub.add;
3469: fnd_message.set_token('API_NAME', 'Create_Customer_Info');
3470: oe_msg_pub.add;
3471: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add( 'EXITING IN CREATE_CUSTOMER_INFO PROCEDURE WITH ERROR' ) ;
3474: END IF;
3475:
3476: End Create_Customer_Info;
3477:
3482: p_line_customer_tbl In OE_ORDER_IMPORT_SPECIFIC_PVT.Customer_Tbl_Type)
3483: Is
3484:
3485: --
3486: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3487: --
3488: Begin
3489:
3490: IF l_debug_level > 0 THEN
3487: --
3488: Begin
3489:
3490: IF l_debug_level > 0 THEN
3491: oe_debug_pub.add( 'INSIDE DELETE_CUSTOMER_INFO' ) ;
3492: END IF;
3493:
3494: If p_header_customer_rec.Orig_Sys_Customer_Ref IS NOT NULL Then
3495: Delete
3818: End Loop;
3819: Exception
3820: When Others Then
3821: IF l_debug_level > 0 THEN
3822: oe_debug_pub.add( 'PROBLEM IN CALL TO DELETE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3823: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3824: END IF;
3825: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3826: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3819: Exception
3820: When Others Then
3821: IF l_debug_level > 0 THEN
3822: oe_debug_pub.add( 'PROBLEM IN CALL TO DELETE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3823: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3824: END IF;
3825: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3826: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3827: oe_msg_pub.add;
3826: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3827: oe_msg_pub.add;
3828: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3829: IF l_debug_level > 0 THEN
3830: oe_debug_pub.add( 'EXITING IN DELETE_CUSTOMER_INFO PROCEDURE WITH ERROR' ) ;
3831: END IF;
3832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3833: End Delete_Customer_Info;
3834: