[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;
2121: x_msg_count => l_msg_count,
2122: x_msg_data => l_msg_data
2123: );
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add( 'AFTER HZ CREATE_PARTY_SITE API' ) ;
2126: END IF;
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2129: END IF;
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add( 'AFTER HZ CREATE_PARTY_SITE API' ) ;
2126: END IF;
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2129: END IF;
2130: IF l_debug_level > 0 THEN
2131: oe_debug_pub.add( 'PARTY_SITE_NUMBER = '||L_PARTY_SITE_NUMBER ) ;
2132: END IF;
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add( 'PARTY_SITE_ID = '||L_PARTY_SITE_ID ) ;
2129: END IF;
2130: IF l_debug_level > 0 THEN
2131: oe_debug_pub.add( 'PARTY_SITE_NUMBER = '||L_PARTY_SITE_NUMBER ) ;
2132: END IF;
2133:
2134: -- Let us check the status of the call to hz api
2135: IF l_debug_level > 0 THEN
2132: END IF;
2133:
2134: -- Let us check the status of the call to hz api
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2137: END IF;
2138: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2139: IF l_debug_level > 0 THEN
2140: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2136: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2137: END IF;
2138: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2139: IF l_debug_level > 0 THEN
2140: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2141: END IF;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2144: END IF;
2139: IF l_debug_level > 0 THEN
2140: oe_debug_pub.add( 'HZ CREATE_PARTY_SITE API ERROR ' ) ;
2141: END IF;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2144: END IF;
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2147: END IF;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2144: END IF;
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2147: END IF;
2148: x_return_status := l_return_status;
2149: IF l_debug_level > 0 THEN
2150: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2146: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2147: END IF;
2148: x_return_status := l_return_status;
2149: IF l_debug_level > 0 THEN
2150: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2151: END IF;
2152: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2153: oe_msg_pub.transfer_msg_stack;
2154: fnd_msg_pub.delete_msg;
2155: return;
2156: End If;
2157:
2158: IF l_debug_level > 0 THEN
2159: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCOUNT_SITE API' ) ;
2160: END IF;
2161:
2162: l_account_site_rec.party_site_id := l_party_site_id;
2163: l_account_site_rec.cust_account_id := l_customer_info_id;
2215: x_msg_data => l_msg_data,
2216: x_cust_acct_site_id => l_customer_site_id
2217: );
2218: IF l_debug_level > 0 THEN
2219: oe_debug_pub.add( 'AFTER HZ CREATE_ACCOUNT_SITE API' ) ;
2220: END IF;
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add( 'CUSTOMER_SITE_ID = '||L_CUSTOMER_SITE_ID ) ;
2223: END IF;
2218: IF l_debug_level > 0 THEN
2219: oe_debug_pub.add( 'AFTER HZ CREATE_ACCOUNT_SITE API' ) ;
2220: END IF;
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add( 'CUSTOMER_SITE_ID = '||L_CUSTOMER_SITE_ID ) ;
2223: END IF;
2224:
2225: -- Let us check the status of the call to hz api
2226: IF l_debug_level > 0 THEN
2223: END IF;
2224:
2225: -- Let us check the status of the call to hz api
2226: IF l_debug_level > 0 THEN
2227: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2228: END IF;
2229: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2230: IF l_debug_level > 0 THEN
2231: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2227: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2228: END IF;
2229: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2230: IF l_debug_level > 0 THEN
2231: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2232: END IF;
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2235: END IF;
2230: IF l_debug_level > 0 THEN
2231: oe_debug_pub.add( 'HZ CREATE_ACCOUNT_SITE API ERROR ' ) ;
2232: END IF;
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2235: END IF;
2236: IF l_debug_level > 0 THEN
2237: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2238: END IF;
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2235: END IF;
2236: IF l_debug_level > 0 THEN
2237: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2238: END IF;
2239: x_return_status := l_return_status;
2240: IF l_debug_level > 0 THEN
2241: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2237: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2238: END IF;
2239: x_return_status := l_return_status;
2240: IF l_debug_level > 0 THEN
2241: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2242: END IF;
2243: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2244: oe_msg_pub.transfer_msg_stack;
2245: fnd_msg_pub.delete_msg;
2246: return;
2247: End If;
2248:
2249: IF l_debug_level > 0 THEN
2250: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCOUNT_SITE_USES API' ) ;
2251: END IF;
2252:
2253: l_acct_site_uses.cust_acct_site_id := l_customer_site_id;
2254: l_acct_site_uses.location := l_location_number;
2258:
2259: IF address_info_rec.is_ship_to_address = 'Y' THEN
2260: l_acct_site_uses.site_use_code := 'SHIP_TO';
2261: IF l_debug_level > 0 THEN
2262: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2263: END IF;
2264: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2265: (
2266: p_cust_site_use_rec => l_acct_site_uses,
2272: x_site_use_id => l_site_use_id_ship
2273: );
2274: -- Let us check the status of the call to hz api
2275: IF l_debug_level > 0 THEN
2276: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2277: END IF;
2278: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2276: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2277: END IF;
2278: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2281: END IF;
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2284: END IF;
2279: IF l_debug_level > 0 THEN
2280: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2281: END IF;
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2284: END IF;
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2287: END IF;
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2284: END IF;
2285: IF l_debug_level > 0 THEN
2286: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2287: END IF;
2288: x_return_status := l_return_status;
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2286: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2287: END IF;
2288: x_return_status := l_return_status;
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2291: END IF;
2292: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2293: oe_msg_pub.transfer_msg_stack;
2294: fnd_msg_pub.delete_msg;
2295: return;
2296: End If;
2297:
2298: IF l_debug_level > 0 THEN
2299: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2300: END IF;
2301: IF l_debug_level > 0 THEN
2302: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2303: END IF;
2298: IF l_debug_level > 0 THEN
2299: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR SHIP_TO' ) ;
2300: END IF;
2301: IF l_debug_level > 0 THEN
2302: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2303: END IF;
2304: IF l_debug_level > 0 THEN
2305: oe_debug_pub.add( 'L_RETURN_STATUS = '||L_RETURN_STATUS ) ;
2306: END IF;
2301: IF l_debug_level > 0 THEN
2302: oe_debug_pub.add( 'SITE_USE_ID_SHIP = '||L_SITE_USE_ID_SHIP ) ;
2303: END IF;
2304: IF l_debug_level > 0 THEN
2305: oe_debug_pub.add( 'L_RETURN_STATUS = '||L_RETURN_STATUS ) ;
2306: END IF;
2307: If p_type_of_address = 'SHIP_TO' Then
2308: x_usage_site_id := l_site_use_id_ship;
2309: End if;
2316:
2317: IF address_info_rec.is_bill_to_address = 'Y' THEN
2318: l_acct_site_uses.site_use_code := 'BILL_TO';
2319: IF l_debug_level > 0 THEN
2320: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2321: END IF;
2322: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2323: (
2324: p_cust_site_use_rec => l_acct_site_uses,
2330: x_site_use_id => l_site_use_id_bill
2331: );
2332: -- Let us check the status of the call to hz api
2333: IF l_debug_level > 0 THEN
2334: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2335: END IF;
2336: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2337: IF l_debug_level > 0 THEN
2338: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2334: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2335: END IF;
2336: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2337: IF l_debug_level > 0 THEN
2338: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2339: END IF;
2340: IF l_debug_level > 0 THEN
2341: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2342: END IF;
2337: IF l_debug_level > 0 THEN
2338: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2339: END IF;
2340: IF l_debug_level > 0 THEN
2341: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2342: END IF;
2343: IF l_debug_level > 0 THEN
2344: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2345: END IF;
2340: IF l_debug_level > 0 THEN
2341: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2342: END IF;
2343: IF l_debug_level > 0 THEN
2344: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2345: END IF;
2346: x_return_status := l_return_status;
2347: IF l_debug_level > 0 THEN
2348: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2344: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2345: END IF;
2346: x_return_status := l_return_status;
2347: IF l_debug_level > 0 THEN
2348: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2349: END IF;
2350: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2351: oe_msg_pub.transfer_msg_stack;
2352: fnd_msg_pub.delete_msg;
2353: return;
2354: End If;
2355:
2356: IF l_debug_level > 0 THEN
2357: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2358: END IF;
2359: IF l_debug_level > 0 THEN
2360: oe_debug_pub.add( 'SITE_USE_ID_BILL = '||L_SITE_USE_ID_BILL ) ;
2361: END IF;
2356: IF l_debug_level > 0 THEN
2357: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR BILL_TO' ) ;
2358: END IF;
2359: IF l_debug_level > 0 THEN
2360: oe_debug_pub.add( 'SITE_USE_ID_BILL = '||L_SITE_USE_ID_BILL ) ;
2361: END IF;
2362: If p_type_of_address = 'BILL_TO' Then
2363: x_usage_site_id := l_site_use_id_bill;
2364: End if;
2370:
2371: IF address_info_rec.is_deliver_to_address = 'Y' THEN
2372: l_acct_site_uses.site_use_code := 'DELIVER_TO';
2373: IF l_debug_level > 0 THEN
2374: oe_debug_pub.add( 'BEFORE HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO ' ) ;
2375: END IF;
2376: HZ_CUST_ACCOUNT_SITE_V2PUB.Create_Cust_Site_Use
2377: (
2378: p_cust_site_use_rec => l_acct_site_uses,
2384: x_site_use_id => l_site_use_id_deliver
2385: );
2386: -- Let us check the status of the call to hz api
2387: IF l_debug_level > 0 THEN
2388: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2389: END IF;
2390: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2388: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2389: END IF;
2390: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2393: END IF;
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2396: END IF;
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add( 'HZ CREATE_SITE_USAGE API ERROR ' ) ;
2393: END IF;
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2396: END IF;
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2399: END IF;
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2396: END IF;
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2402: END IF;
2397: IF l_debug_level > 0 THEN
2398: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2399: END IF;
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2402: END IF;
2403: x_return_status := l_return_status;
2404: IF l_debug_level > 0 THEN
2405: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2401: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2402: END IF;
2403: x_return_status := l_return_status;
2404: IF l_debug_level > 0 THEN
2405: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2406: END IF;
2407: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2408: oe_msg_pub.transfer_msg_stack;
2409: fnd_msg_pub.delete_msg;
2410: return;
2411: End If;
2412:
2413: IF l_debug_level > 0 THEN
2414: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO' ) ;
2415: END IF;
2416: IF l_debug_level > 0 THEN
2417: oe_debug_pub.add( 'SITE_USE_ID_DELIVER = '||L_SITE_USE_ID_DELIVER ) ;
2418: END IF;
2413: IF l_debug_level > 0 THEN
2414: oe_debug_pub.add( 'AFTER HZ CREATE_ACCT_SITE_USES FOR DELIVER_TO' ) ;
2415: END IF;
2416: IF l_debug_level > 0 THEN
2417: oe_debug_pub.add( 'SITE_USE_ID_DELIVER = '||L_SITE_USE_ID_DELIVER ) ;
2418: END IF;
2419: If p_type_of_address = 'DELIVER_TO' Then
2420: x_usage_site_id := l_site_use_id_deliver;
2421: End if;
2427:
2428: EXCEPTION
2429: When Others Then
2430: IF l_debug_level > 0 THEN
2431: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2432: END IF;
2433: IF l_debug_level > 0 THEN
2434: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2435: END IF;
2430: IF l_debug_level > 0 THEN
2431: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2432: END IF;
2433: IF l_debug_level > 0 THEN
2434: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2435: END IF;
2436: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2437: fnd_message.set_token('API_NAME', 'Create_Address');
2438: oe_msg_pub.add;
2439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2440: Update_Error_Flag(p_rowid => address_info_rec.rowid);
2441: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
2442: IF l_debug_level > 0 THEN
2443: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2444: END IF;
2445:
2446: END;
2447: -- End of Begin after loop
2448: END LOOP;
2449: -- End of For loop
2450: If l_no_record_exists Then
2451: IF l_debug_level > 0 THEN
2452: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED REF , PLEASE CHECK DATA' ) ;
2453: END IF;
2454: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
2455: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2456: oe_msg_pub.add;
2455: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2456: oe_msg_pub.add;
2457: x_return_status := FND_API.G_RET_STS_ERROR;
2458: IF l_debug_level > 0 THEN
2459: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2460: END IF;
2461: End If;
2462:
2463: IF l_debug_level > 0 THEN
2460: END IF;
2461: End If;
2462:
2463: IF l_debug_level > 0 THEN
2464: oe_debug_pub.add( 'EXITING PROCEDURE CREATE ADDRESS' ) ;
2465: END IF;
2466: Exception
2467: When Others Then
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2466: Exception
2467: When Others Then
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: IF l_debug_level > 0 THEN
2470: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2471: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2472: END IF;
2473: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2474: fnd_message.set_token('API_NAME', 'Create_Address');
2467: When Others Then
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: IF l_debug_level > 0 THEN
2470: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_ADDRESS. ABORT PROCESSING' ) ;
2471: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
2472: END IF;
2473: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
2474: fnd_message.set_token('API_NAME', 'Create_Address');
2475: oe_msg_pub.add;
2474: fnd_message.set_token('API_NAME', 'Create_Address');
2475: oe_msg_pub.add;
2476: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
2477: IF l_debug_level > 0 THEN
2478: oe_debug_pub.add( 'EXITING IN CREATE_ADDRESS PROCEDURE WITH ERROR' ) ;
2479: END IF;
2480:
2481: End Create_Address;
2482: -- End procedure Create Address }
2566:
2567: -- End of Cursor definition for l_contact_info_cur }
2568:
2569: --
2570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2571: --
2572: Begin
2573: IF l_debug_level > 0 THEN
2574: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE CONTACT' ) ;
2570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2571: --
2572: Begin
2573: IF l_debug_level > 0 THEN
2574: oe_debug_pub.add( 'ENTERING PROCEDURE CREATE CONTACT' ) ;
2575: END IF;
2576:
2577: x_return_status := FND_API.G_RET_STS_SUCCESS;
2578:
2604: -- Customer then return that value and exit out of the
2605: -- process
2606:
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'INSIDE LOOP FOR THE CUSTOMER_INFO_CUR' ) ;
2609: END IF;
2610:
2611: If contact_rec.New_Contact_Id Is Not Null And
2612: l_type_of_contact = 'SOLD_TO' Then
2610:
2611: If contact_rec.New_Contact_Id Is Not Null And
2612: l_type_of_contact = 'SOLD_TO' Then
2613: IF l_debug_level > 0 THEN
2614: oe_debug_pub.add( 'NEW CONTACT ID IS THERE , RETURING THE EXISTING VAL' ) ;
2615: END IF;
2616: x_contact_id := contact_rec.New_Contact_id;
2617: IF l_debug_level > 0 THEN
2618: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2614: oe_debug_pub.add( 'NEW CONTACT ID IS THERE , RETURING THE EXISTING VAL' ) ;
2615: END IF;
2616: x_contact_id := contact_rec.New_Contact_id;
2617: IF l_debug_level > 0 THEN
2618: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2619: END IF;
2620: RETURN;
2621: End If;
2622:
2631: contact_rec.is_bill_to_address = 'Y') Or
2632: (l_type_of_contact = 'DELIVER_TO' and
2633: contact_rec.is_deliver_to_address = 'Y') Then
2634: IF l_debug_level > 0 THEN
2635: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
2636: END IF;
2637: x_contact_id := contact_rec.New_Contact_id;
2638: IF l_debug_level > 0 THEN
2639: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2635: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
2636: END IF;
2637: x_contact_id := contact_rec.New_Contact_id;
2638: IF l_debug_level > 0 THEN
2639: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2640: END IF;
2641: RETURN;
2642: End If;
2643: End If;
2644: -- End of the site level contact check}
2645:
2646: -- {Start of the checking of existing customer or not
2647: IF l_debug_level > 0 THEN
2648: oe_debug_pub.add( 'LET US CHECK IF THIS IS FOR EXISTING CUSTOMER' ) ;
2649: END IF;
2650:
2651: If (contact_rec.current_customer_id IS NULL) And
2652: (contact_rec.current_customer_number) IS NULL Then
2652: (contact_rec.current_customer_number) IS NULL Then
2653: --{Start of if parent rec is passed or not
2654: If contact_rec.parent_customer_ref is Null Then
2655: IF l_debug_level > 0 THEN
2656: oe_debug_pub.add( 'NO PARENT CUSTOMER REF POPULATED. CHECK THE DATA' ) ;
2657: END IF;
2658: x_return_status := FND_API.G_RET_STS_ERROR;
2659: fnd_message.set_name('ONT','ONT_OI_INL_NO_PARENT_INFO');
2660: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2663: End If;
2664: -- End of if parent rec is passed or not}
2665:
2666: IF l_debug_level > 0 THEN
2667: oe_debug_pub.add( 'BEFORE CALLING CREATE ACCOUNT PROCEDURE' ) ;
2668: END IF;
2669: -- call Create_Account api
2670: Create_Account( p_customer_info_ref => contact_rec.parent_customer_ref,
2671: p_orig_sys_document_ref => p_orig_sys_document_ref,
2677: x_existing_value => l_existing_value,
2678: x_return_status => l_return_status
2679: );
2680: IF l_debug_level > 0 THEN
2681: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
2682: END IF;
2683:
2684: -- Check for the return status of the api
2685: -- to return the proper information to the called program.
2684: -- Check for the return status of the api
2685: -- to return the proper information to the called program.
2686: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2687: IF l_debug_level > 0 THEN
2688: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC. FOR CONTACT' ) ;
2689: END IF;
2690: x_return_status := l_return_status;
2691: IF l_debug_level > 0 THEN
2692: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
2688: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC. FOR CONTACT' ) ;
2689: END IF;
2690: x_return_status := l_return_status;
2691: IF l_debug_level > 0 THEN
2692: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
2693: END IF;
2694: Return;
2695: End if;
2696: -- End of the checking of the Parent Info and creation}
2696: -- End of the checking of the Parent Info and creation}
2697:
2698: Else
2699: IF l_debug_level > 0 THEN
2700: oe_debug_pub.add( 'FOR EXISTING CUSTOMER' ) ;
2701: END IF;
2702: If contact_rec.current_customer_id IS NOT NULL Then
2703: l_customer_info_id := contact_rec.Current_Customer_id;
2704: Begin
2708: Where cust_account_id = l_customer_info_id;
2709: Exception
2710: When No_Data_Found Then
2711: IF l_debug_level > 0 THEN
2712: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED EXISTING CUSTOMER , PLEASE CHECK DATA' ) ;
2713: END IF;
2714: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
2715: fnd_message.set_token('REFERENCE', contact_rec.Current_Customer_id);
2716: oe_msg_pub.add;
2745: p_sold_to_org_id => l_customer_info_id);
2746: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2747: -- Raise Error and Abort Processing
2748: IF l_debug_level > 0 THEN
2749: oe_debug_pub.add( 'TRYING TO ENTER THE SOLD_TO CONTACT WHICH ALREADY EXISTS' ) ;
2750: END IF;
2751: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2752: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2753: oe_msg_pub.add;
2766: p_ship_to_org_id => l_usage_site_id);
2767: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2768: -- Raise Error and Abort Processing
2769: IF l_debug_level > 0 THEN
2770: oe_debug_pub.add( 'TRYING TO ENTER THE SHIP_TO CONTACT WHICH ALREADY EXISTS' ) ;
2771: END IF;
2772: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2773: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2774: oe_msg_pub.add;
2787: p_invoice_to_org_id => l_usage_site_id);
2788: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2789: -- Raise Error and Abort Processing
2790: IF l_debug_level > 0 THEN
2791: oe_debug_pub.add( 'TRYING TO ENTER THE BILL_TO CONTACT WHICH ALREADY EXISTS' ) ;
2792: END IF;
2793: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2794: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2795: oe_msg_pub.add;
2808: p_deliver_to_org_id => l_usage_site_id);
2809: If l_sold_to_contact <> FND_API.G_MISS_NUM Then
2810: -- Raise Error and Abort Processing
2811: IF l_debug_level > 0 THEN
2812: oe_debug_pub.add( 'TRYING TO ENTER THE DELIVER_TO CONTACT WHICH ALREADY EXISTS' ) ;
2813: END IF;
2814: fnd_message.set_name('ONT','ONT_OI_INL_DUPLICATE');
2815: fnd_message.set_token('REFERENCE', p_customer_info_ref);
2816: oe_msg_pub.add;
2839: x_return_status => l_return_status
2840: );
2841: If contact_rec.New_Contact_Id = l_ret_contact_id Then
2842: IF l_debug_level > 0 THEN
2843: oe_debug_pub.add( 'GENERATED CONTACT ID IS => ' || L_RET_CONTACT_ID ) ;
2844: END IF;
2845: x_contact_id := contact_rec.New_Contact_id;
2846: IF l_debug_level > 0 THEN
2847: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2843: oe_debug_pub.add( 'GENERATED CONTACT ID IS => ' || L_RET_CONTACT_ID ) ;
2844: END IF;
2845: x_contact_id := contact_rec.New_Contact_id;
2846: IF l_debug_level > 0 THEN
2847: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH CURRENT VAL' ) ;
2848: END IF;
2849: RETURN;
2850: Else
2851: IF l_debug_level > 0 THEN
2848: END IF;
2849: RETURN;
2850: Else
2851: IF l_debug_level > 0 THEN
2852: oe_debug_pub.add( 'THERE IS SOME PROBLEM , PLEASE INVESTIGATE.' ) ;
2853: END IF;
2854: End If;
2855: End If;
2856:
2864: l_person_rec.application_id := 660;
2865:
2866: If G_AUTO_PARTY_NUMBERING = 'N' Then
2867: IF l_debug_level > 0 THEN
2868: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE' ) ;
2869: END IF;
2870: Select hz_party_number_s.nextval
2871: Into l_party_rec.party_number
2872: From Dual;
2870: Select hz_party_number_s.nextval
2871: Into l_party_rec.party_number
2872: From Dual;
2873: IF l_debug_level > 0 THEN
2874: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_PARTY_REC.PARTY_NUMBER ) ;
2875: END IF;
2876: End If; -- If G_AUTO_PARTY_NUMBERING
2877:
2878: l_person_rec.party_rec := l_party_rec;
2890:
2891: -- End Call hz api to create contact person }
2892: -- Let us check the status of the call to hz api
2893: IF l_debug_level > 0 THEN
2894: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2895: END IF;
2896: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2894: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2895: END IF;
2896: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2899: END IF;
2900: IF l_debug_level > 0 THEN
2901: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2902: END IF;
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add( 'HZ CREATE_PERSON API ERROR ' ) ;
2899: END IF;
2900: IF l_debug_level > 0 THEN
2901: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2902: END IF;
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2905: END IF;
2900: IF l_debug_level > 0 THEN
2901: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2902: END IF;
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2905: END IF;
2906: x_return_status := l_return_status;
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2904: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2905: END IF;
2906: x_return_status := l_return_status;
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2909: END IF;
2910: Update_Error_Flag(p_rowid => contact_rec.rowid);
2911: oe_msg_pub.transfer_msg_stack;
2912: fnd_msg_pub.delete_msg;
2913: return;
2914: End If;
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'NEW PARTY ID FOR CONTACT =>' || L_CONTACT_PARTY_ID ) ;
2918: END IF;
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add( 'NEW PARTY NUMBER FOR CONTACT =>' || L_CONTACT_PARTY_NUMBER ) ;
2921: END IF;
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'NEW PARTY ID FOR CONTACT =>' || L_CONTACT_PARTY_ID ) ;
2918: END IF;
2919: IF l_debug_level > 0 THEN
2920: oe_debug_pub.add( 'NEW PARTY NUMBER FOR CONTACT =>' || L_CONTACT_PARTY_NUMBER ) ;
2921: END IF;
2922:
2923: If G_AUTO_PARTY_NUMBERING = 'N' Then
2924: IF l_debug_level > 0 THEN
2921: END IF;
2922:
2923: If G_AUTO_PARTY_NUMBERING = 'N' Then
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM PARTY SEQUENCE FOR ORG' ) ;
2926: END IF;
2927: Select hz_party_number_s.nextval
2928: Into l_org_contact_rec.party_rel_rec.party_rec.party_number
2929: From Dual;
2927: Select hz_party_number_s.nextval
2928: Into l_org_contact_rec.party_rel_rec.party_rec.party_number
2929: From Dual;
2930: IF l_debug_level > 0 THEN
2931: oe_debug_pub.add( 'AFTER SELECTING NEW PARTY SEQUENCE ' || L_ORG_CONTACT_REC.PARTY_REL_REC.PARTY_REC.PARTY_NUMBER ) ;
2932: END IF;
2933: End If; -- If G_AUTO_PARTY_NUMBERING
2934:
2935: l_org_contact_rec.party_rel_rec.subject_id := l_contact_party_id;
2947: From HZ_PARTIES
2948: Where party_id = l_customer_party_id;
2949:
2950: IF l_debug_level > 0 THEN
2951: 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 ) ;
2952: END IF;
2953: If G_AUTO_CONTACT_NUMBERING = 'N' Then
2954: IF l_debug_level > 0 THEN
2955: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM CONTACT SEQ' ) ;
2951: 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 ) ;
2952: END IF;
2953: If G_AUTO_CONTACT_NUMBERING = 'N' Then
2954: IF l_debug_level > 0 THEN
2955: oe_debug_pub.add( 'BEFORE SELECTING NEXTVAL FROM CONTACT SEQ' ) ;
2956: END IF;
2957: Select hz_contact_numbers_s.nextval
2958: Into l_org_contact_rec.contact_number
2959: From Dual;
2957: Select hz_contact_numbers_s.nextval
2958: Into l_org_contact_rec.contact_number
2959: From Dual;
2960: IF l_debug_level > 0 THEN
2961: oe_debug_pub.add( 'AFTER SELECTING NEW CONTACT SEQUENCE ' || L_ORG_CONTACT_REC.CONTACT_NUMBER ) ;
2962: END IF;
2963: End If; -- If G_AUTO_CONTACT_NUMBERING
2964:
2965:
2981: );
2982: -- End Call hz api to create org contact }
2983: -- Let us check the status of the call to hz api
2984: IF l_debug_level > 0 THEN
2985: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2986: END IF;
2987: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2988: IF l_debug_level > 0 THEN
2989: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2985: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
2986: END IF;
2987: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
2988: IF l_debug_level > 0 THEN
2989: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2990: END IF;
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2993: END IF;
2988: IF l_debug_level > 0 THEN
2989: oe_debug_pub.add( 'HZ CREATE_ORG_CONTACT API ERROR ' ) ;
2990: END IF;
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2993: END IF;
2994: IF l_debug_level > 0 THEN
2995: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2996: END IF;
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
2993: END IF;
2994: IF l_debug_level > 0 THEN
2995: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2996: END IF;
2997: x_return_status := l_return_status;
2998: IF l_debug_level > 0 THEN
2999: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
2995: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
2996: END IF;
2997: x_return_status := l_return_status;
2998: IF l_debug_level > 0 THEN
2999: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3000: END IF;
3001: Update_Error_Flag(p_rowid => contact_rec.rowid);
3002: oe_msg_pub.transfer_msg_stack;
3003: fnd_msg_pub.delete_msg;
3004: return;
3005: End If;
3006:
3007: IF l_debug_level > 0 THEN
3008: oe_debug_pub.add( 'NEW REL PARTY ID FOR CONTACT =>' || X_REL_PARTY_ID ) ;
3009: END IF;
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3012: END IF;
3007: IF l_debug_level > 0 THEN
3008: oe_debug_pub.add( 'NEW REL PARTY ID FOR CONTACT =>' || X_REL_PARTY_ID ) ;
3009: END IF;
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3012: END IF;
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'NEW ORG CONTCT ID =>' || X_ORG_CONTACT_ID ) ;
3015: END IF;
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add( 'NEW REL PARTY NUMBER CONTCT =>' || X_REL_PARTY_NUMBER ) ;
3012: END IF;
3013: IF l_debug_level > 0 THEN
3014: oe_debug_pub.add( 'NEW ORG CONTCT ID =>' || X_ORG_CONTACT_ID ) ;
3015: END IF;
3016:
3017: -- { Let us create the Contact's contact point EMAIL and PHONE
3018: If contact_rec.email_address is Not Null Then
3029: x_msg_data => l_msg_data
3030: );
3031: -- Let us check the status of the call to hz api
3032: IF l_debug_level > 0 THEN
3033: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3034: END IF;
3035: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3033: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3034: END IF;
3035: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3038: END IF;
3039: x_return_status := l_return_status;
3040: IF l_debug_level > 0 THEN
3041: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3037: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT EML '|| L_MSG_DATA ) ;
3038: END IF;
3039: x_return_status := l_return_status;
3040: IF l_debug_level > 0 THEN
3041: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3042: END IF;
3043: return;
3044: Else
3045: IF l_debug_level > 0 THEN
3042: END IF;
3043: return;
3044: Else
3045: IF l_debug_level > 0 THEN
3046: oe_debug_pub.add( 'NEW EMAIL => ' || CONTACT_REC.EMAIL_ADDRESS ) ;
3047: END IF;
3048: End if;
3049:
3050: End If;
3065: x_msg_data => l_msg_data
3066: );
3067: -- Let us check the status of the call to hz api
3068: IF l_debug_level > 0 THEN
3069: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3070: END IF;
3071: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3072: IF l_debug_level > 0 THEN
3073: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3069: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3070: END IF;
3071: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3072: IF l_debug_level > 0 THEN
3073: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3074: END IF;
3075: x_return_status := l_return_status;
3076: IF l_debug_level > 0 THEN
3077: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3073: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM CONTACT PH '|| L_MSG_DATA ) ;
3074: END IF;
3075: x_return_status := l_return_status;
3076: IF l_debug_level > 0 THEN
3077: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT WITH ERROR' ) ;
3078: END IF;
3079: return;
3080: Else
3081: IF l_debug_level > 0 THEN
3078: END IF;
3079: return;
3080: Else
3081: IF l_debug_level > 0 THEN
3082: oe_debug_pub.add( 'NEW PHONE => ' || CONTACT_REC.PHONE_NUMBER ) ;
3083: END IF;
3084: End if;
3085:
3086: End If;
3104: x_cust_account_role_id => x_cust_account_role_id
3105: );
3106:
3107: IF l_debug_level > 0 THEN
3108: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3109: END IF;
3110: -- Let us check the status of the call to hz api
3111: IF l_debug_level > 0 THEN
3112: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3108: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3109: END IF;
3110: -- Let us check the status of the call to hz api
3111: IF l_debug_level > 0 THEN
3112: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3113: END IF;
3114: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3115: IF l_debug_level > 0 THEN
3116: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3112: oe_debug_pub.add( 'RETURN STATS ' || L_RETURN_STATUS ) ;
3113: END IF;
3114: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3115: IF l_debug_level > 0 THEN
3116: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3117: END IF;
3118: IF l_debug_level > 0 THEN
3119: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3120: END IF;
3115: IF l_debug_level > 0 THEN
3116: oe_debug_pub.add( 'HZ CREATE_CUST_ACCT_ROLES API ERROR ' ) ;
3117: END IF;
3118: IF l_debug_level > 0 THEN
3119: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3120: END IF;
3121: IF l_debug_level > 0 THEN
3122: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3123: END IF;
3118: IF l_debug_level > 0 THEN
3119: oe_debug_pub.add( 'RETURN ERROR MESSAGE COUNT FROM HZ ' || OE_MSG_PUB.GET ( P_MSG_INDEX => L_MSG_COUNT ) ) ;
3120: END IF;
3121: IF l_debug_level > 0 THEN
3122: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3123: END IF;
3124: x_return_status := l_return_status;
3125: IF l_debug_level > 0 THEN
3126: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3122: oe_debug_pub.add( 'RETURN ERROR MESSAGE FROM HZ ' || L_MSG_DATA ) ;
3123: END IF;
3124: x_return_status := l_return_status;
3125: IF l_debug_level > 0 THEN
3126: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3127: END IF;
3128: Update_Error_Flag(p_rowid => contact_rec.rowid);
3129: oe_msg_pub.transfer_msg_stack;
3130: fnd_msg_pub.delete_msg;
3130: fnd_msg_pub.delete_msg;
3131: return;
3132: End If;
3133: IF l_debug_level > 0 THEN
3134: oe_debug_pub.add( 'NEW CUST ACC. ROLE => ' || X_CUST_ACCOUNT_ROLE_ID ) ;
3135: END IF;
3136: x_contact_id := x_cust_account_role_id;
3137:
3138: If contact_rec.New_Contact_Id Is Null and
3143: x_contact_id => l_ret_contact_id,
3144: x_return_status => l_return_status
3145: );
3146: IF l_debug_level > 0 THEN
3147: oe_debug_pub.add( 'NEW CONTACT ID IS THERE FOR SITE ' || L_TYPE_OF_CONTACT || ' , RETURING THE EXISTING VAL' ) ;
3148: END IF;
3149: x_contact_id := l_ret_Contact_id;
3150: End If;
3151:
3170: Where rowid = contact_rec.rowid;
3171:
3172: -- x_contact_id := l_contact_party_id;
3173: IF l_debug_level > 0 THEN
3174: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT ' ) ;
3175: END IF;
3176: -- End CONTACT role for the new contact}
3177:
3178: Exception
3177:
3178: Exception
3179: When Others Then
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3182: END IF;
3183: IF l_debug_level > 0 THEN
3184: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3185: END IF;
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3182: END IF;
3183: IF l_debug_level > 0 THEN
3184: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3185: END IF;
3186: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3187: fnd_message.set_token('API_NAME', 'Create_Contact');
3188: oe_msg_pub.add;
3189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3190: Update_Error_Flag(p_rowid => contact_rec.rowid);
3191: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3192: IF l_debug_level > 0 THEN
3193: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3194: END IF;
3195: End;
3196: -- End of Begin after Loop }
3197:
3199: -- End Contact Loop }
3200:
3201: If l_no_record_exists Then
3202: IF l_debug_level > 0 THEN
3203: oe_debug_pub.add( 'NO RECORD FOUND FOR THE PASSED REF , PLEASE CHECK DATA' ) ;
3204: END IF;
3205: fnd_message.set_name('ONT','ONT_OI_INL_NO_DATA');
3206: fnd_message.set_token('REFERENCE', p_customer_info_ref);
3207: oe_msg_pub.add;
3206: fnd_message.set_token('REFERENCE', p_customer_info_ref);
3207: oe_msg_pub.add;
3208: x_return_status := FND_API.G_RET_STS_ERROR;
3209: IF l_debug_level > 0 THEN
3210: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3211: END IF;
3212: End If;
3213:
3214: IF l_debug_level > 0 THEN
3211: END IF;
3212: End If;
3213:
3214: IF l_debug_level > 0 THEN
3215: oe_debug_pub.add( 'EXITING PROCEDURE CREATE CONTACT' ) ;
3216: END IF;
3217: Exception
3218: When Others Then
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3217: Exception
3218: When Others Then
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3222: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3223: END IF;
3224: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3225: fnd_message.set_token('API_NAME', 'Create_Contact');
3218: When Others Then
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CONTACT. ABORT PROCESSING' ) ;
3222: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3223: END IF;
3224: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3225: fnd_message.set_token('API_NAME', 'Create_Contact');
3226: oe_msg_pub.add;
3225: fnd_message.set_token('API_NAME', 'Create_Contact');
3226: oe_msg_pub.add;
3227: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3228: IF l_debug_level > 0 THEN
3229: oe_debug_pub.add( 'EXITING IN CREATE_CONTACT PROCEDURE WITH ERROR' ) ;
3230: END IF;
3231: End Create_Contact;
3232: -- End procedure Create Contact }
3233:
3328:
3329: -- End of Cursor definition for l_address_info_cur }
3330:
3331: --
3332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3333: --
3334: Begin
3335:
3336: x_return_status := FND_API.G_RET_STS_SUCCESS;
3352:
3353: -- { Start of if for p_customer_info_type_code
3354: if p_customer_info_type_code = 'ACCOUNT' then
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'BEFORE CALLING CREATE ACCOUNT PROCEDURE' ) ;
3357: END IF;
3358: -- call Create_Account api
3359: Create_Account( p_customer_info_ref => p_customer_info_ref,
3360: p_orig_sys_document_ref => p_orig_sys_document_ref,
3367: x_return_status => l_return_status
3368: );
3369:
3370: IF l_debug_level > 0 THEN
3371: oe_debug_pub.add( 'AFTER CALLING CREATE ACCOUNT PROCEDURE' ) ;
3372: END IF;
3373:
3374: -- Check for the return status of the api
3375: -- to return the proper information to the called program.
3374: -- Check for the return status of the api
3375: -- to return the proper information to the called program.
3376: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3377: IF l_debug_level > 0 THEN
3378: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ACC.' ) ;
3379: END IF;
3380: x_return_status := l_return_status;
3381: else
3382: IF l_debug_level > 0 THEN
3379: END IF;
3380: x_return_status := l_return_status;
3381: else
3382: IF l_debug_level > 0 THEN
3383: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ACCOUNT' ) ;
3384: END IF;
3385: x_customer_info_id := l_customer_info_id;
3386: x_customer_info_number := l_customer_info_number;
3387: x_return_status := l_return_status;
3405: -- Check for the return status of the api
3406: -- to return the proper information to the called program.
3407: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3408: IF l_debug_level > 0 THEN
3409: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE CONT.' ) ;
3410: END IF;
3411: x_return_status := l_return_status;
3412: else
3413: IF l_debug_level > 0 THEN
3410: END IF;
3411: x_return_status := l_return_status;
3412: else
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ACCOUNT' ) ;
3415: END IF;
3416: x_customer_info_id := l_contact_id;
3417: x_return_status := l_return_status;
3418: end if;
3431: -- Check for the return status of the api
3432: -- to return the proper information to the called program.
3433: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'RETURN STATUS IS NOT SUCCESS , AFTER CREATE ADDRESS.' ) ;
3436: END IF;
3437: x_return_status := l_return_status;
3438: Else
3439: IF l_debug_level > 0 THEN
3436: END IF;
3437: x_return_status := l_return_status;
3438: Else
3439: IF l_debug_level > 0 THEN
3440: oe_debug_pub.add( 'RETURN STATUS IS SUCCESS , AFTER CREATE ADDRESS' ) ;
3441: END IF;
3442: -- { Start If
3443: If l_type_of_address = 'SHIP_TO' Then
3444: x_customer_info_id := l_usage_site_id;
3460: Exception
3461: When Others Then
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3463: IF l_debug_level > 0 THEN
3464: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3465: END IF;
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3468: END IF;
3463: IF l_debug_level > 0 THEN
3464: oe_debug_pub.add( 'PROBLEM IN CALL TO CREATE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3465: END IF;
3466: IF l_debug_level > 0 THEN
3467: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3468: END IF;
3469: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3470: fnd_message.set_token('API_NAME', 'Create_Customer_Info');
3471: oe_msg_pub.add;
3470: fnd_message.set_token('API_NAME', 'Create_Customer_Info');
3471: oe_msg_pub.add;
3472: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3473: IF l_debug_level > 0 THEN
3474: oe_debug_pub.add( 'EXITING IN CREATE_CUSTOMER_INFO PROCEDURE WITH ERROR' ) ;
3475: END IF;
3476:
3477: End Create_Customer_Info;
3478:
3483: p_line_customer_tbl In OE_ORDER_IMPORT_SPECIFIC_PVT.Customer_Tbl_Type)
3484: Is
3485:
3486: --
3487: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3488: --
3489: Begin
3490:
3491: IF l_debug_level > 0 THEN
3488: --
3489: Begin
3490:
3491: IF l_debug_level > 0 THEN
3492: oe_debug_pub.add( 'INSIDE DELETE_CUSTOMER_INFO' ) ;
3493: END IF;
3494:
3495: If p_header_customer_rec.Orig_Sys_Customer_Ref IS NOT NULL Then
3496: Delete
3819: End Loop;
3820: Exception
3821: When Others Then
3822: IF l_debug_level > 0 THEN
3823: oe_debug_pub.add( 'PROBLEM IN CALL TO DELETE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3824: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3825: END IF;
3826: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3827: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3820: Exception
3821: When Others Then
3822: IF l_debug_level > 0 THEN
3823: oe_debug_pub.add( 'PROBLEM IN CALL TO DELETE_CUSTOMER_INFO. ABORT PROCESSING' ) ;
3824: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3825: END IF;
3826: fnd_message.set_name('ONT','ONT_OI_INL_API_FAILED');
3827: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3828: oe_msg_pub.add;
3827: fnd_message.set_token('API_NAME', 'Delete_Customer_Info');
3828: oe_msg_pub.add;
3829: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Unexpected error occured: ' || sqlerrm);
3830: IF l_debug_level > 0 THEN
3831: oe_debug_pub.add( 'EXITING IN DELETE_CUSTOMER_INFO PROCEDURE WITH ERROR' ) ;
3832: END IF;
3833: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3834: End Delete_Customer_Info;
3835: