2: /* $Header: IBEVADB.pls 120.9 2006/01/09 00:59:56 banatara ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBE_ADDRESS_V2PVT';
6: l_true VARCHAR2(1) := FND_API.G_TRUE;
7:
8:
9: ----------------- private procedures -----------------------------------------
10:
9: ----------------- private procedures -----------------------------------------
10:
11: PROCEDURE do_create_address(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
10:
11: PROCEDURE do_create_address(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
18: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
18: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
19: p_billto IN VARCHAR2 := FND_API.G_FALSE,
20: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
21: p_default_primary IN VARCHAR2,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
18: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
19: p_billto IN VARCHAR2 := FND_API.G_FALSE,
20: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
21: p_default_primary IN VARCHAR2,
22: x_return_status OUT NOCOPY VARCHAR2,
15: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
18: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
19: p_billto IN VARCHAR2 := FND_API.G_FALSE,
20: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
21: p_default_primary IN VARCHAR2,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER,
16: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
17: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
18: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
19: p_billto IN VARCHAR2 := FND_API.G_FALSE,
20: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
21: p_default_primary IN VARCHAR2,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER,
24: x_msg_data OUT NOCOPY VARCHAR2,
27: );
28:
29: PROCEDURE do_delete_address(
30: p_api_version IN NUMBER,
31: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
32: p_commit IN VARCHAR2 := FND_API.G_FALSE,
33: p_party_id IN NUMBER,
34: p_party_site_id IN NUMBER,
35: p_ps_object_version_number IN NUMBER,
28:
29: PROCEDURE do_delete_address(
30: p_api_version IN NUMBER,
31: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
32: p_commit IN VARCHAR2 := FND_API.G_FALSE,
33: p_party_id IN NUMBER,
34: p_party_site_id IN NUMBER,
35: p_ps_object_version_number IN NUMBER,
36: p_bill_object_version_number IN NUMBER,
54: -----------------------public procedures -------------------------------------
55:
56: PROCEDURE create_address(
57: p_api_version IN NUMBER,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE,
60: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
55:
56: PROCEDURE create_address(
57: p_api_version IN NUMBER,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE,
60: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE,
60: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
64: p_billto IN VARCHAR2 := FND_API.G_FALSE,
65: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
66: p_default_primary IN VARCHAR2 := FND_API.G_TRUE,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE,
60: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
64: p_billto IN VARCHAR2 := FND_API.G_FALSE,
65: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
66: p_default_primary IN VARCHAR2 := FND_API.G_TRUE,
67: x_return_status OUT NOCOPY VARCHAR2,
60: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
64: p_billto IN VARCHAR2 := FND_API.G_FALSE,
65: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
66: p_default_primary IN VARCHAR2 := FND_API.G_TRUE,
67: x_return_status OUT NOCOPY VARCHAR2,
68: x_msg_count OUT NOCOPY NUMBER,
61: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
64: p_billto IN VARCHAR2 := FND_API.G_FALSE,
65: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
66: p_default_primary IN VARCHAR2 := FND_API.G_TRUE,
67: x_return_status OUT NOCOPY VARCHAR2,
68: x_msg_count OUT NOCOPY NUMBER,
69: x_msg_data OUT NOCOPY VARCHAR2,
62: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
63: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
64: p_billto IN VARCHAR2 := FND_API.G_FALSE,
65: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
66: p_default_primary IN VARCHAR2 := FND_API.G_TRUE,
67: x_return_status OUT NOCOPY VARCHAR2,
68: x_msg_count OUT NOCOPY NUMBER,
69: x_msg_data OUT NOCOPY VARCHAR2,
70: x_location_id OUT NOCOPY NUMBER,
94: -- standard start of API savepoint
95: SAVEPOINT create_address_pvt;
96:
97: -- standard call to check for call compatibility
98: IF NOT FND_API.compatible_api_call(l_api_version,
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME)
102: THEN
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME)
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: -- initialize message list if p_init_msg_list is set to TRUE.
107: IF FND_API.to_boolean(p_init_msg_list) THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: -- initialize message list if p_init_msg_list is set to TRUE.
107: IF FND_API.to_boolean(p_init_msg_list) THEN
108: FND_MSG_PUB.initialize;
109: END IF;
110:
111: begin
127: x_party_site_id
128: );
129: end;
130: --3639679 begin
131: if p_primary_shipto = FND_API.G_TRUE then
132: UPDATE
133: IBE_ORD_ONECLICK_ALL
134: SET
135: LAST_UPDATE_DATE = sysdate,
138: party_id = p_party_site.party_id
139: and SHIP_TO_PTY_SITE_ID is null;
140: end if;
141:
142: if p_primary_billto = FND_API.G_TRUE then
143: UPDATE
144: IBE_ORD_ONECLICK_ALL
145: SET
146: LAST_UPDATE_DATE = sysdate,
151: end if;
152: --3639679 end
153:
154: -- standard check of p_commit
155: IF FND_API.to_boolean(p_commit) THEN
156: commit;
157: END IF;
158:
159: -- standard call to get message count and if count is 1, get message info
157: END IF;
158:
159: -- standard call to get message count and if count is 1, get message info
160: FND_MSG_PUB.count_and_get(
161: p_encoded => FND_API.G_FALSE,
162: p_count => x_msg_count,
163: p_data => x_msg_data
164: );
165:
169:
170: --IBE_UTIL.disable_debug();
171:
172: EXCEPTION
173: WHEN FND_API.G_EXC_ERROR THEN
174: --IBE_UTIL.enable_debug();
175:
176: ROLLBACK TO create_address_pvt;
177: x_return_status := FND_API.G_RET_STS_ERROR;
173: WHEN FND_API.G_EXC_ERROR THEN
174: --IBE_UTIL.enable_debug();
175:
176: ROLLBACK TO create_address_pvt;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: FND_MSG_PUB.count_and_get(
179: p_encoded => FND_API.G_FALSE,
180: p_count => x_msg_count,
181: p_data => x_msg_data
175:
176: ROLLBACK TO create_address_pvt;
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: FND_MSG_PUB.count_and_get(
179: p_encoded => FND_API.G_FALSE,
180: p_count => x_msg_count,
181: p_data => x_msg_data
182: );
183: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
189: END IF;
190:
191: --IBE_UTIL.disable_debug();
192:
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: --IBE_UTIL.enable_debug();
195:
196: ROLLBACK TO create_address_pvt;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: --IBE_UTIL.enable_debug();
195:
196: ROLLBACK TO create_address_pvt;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: FND_MSG_PUB.count_and_get(
199: p_encoded => FND_API.G_FALSE,
200: p_count => x_msg_count,
201: p_data => x_msg_data
195:
196: ROLLBACK TO create_address_pvt;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: FND_MSG_PUB.count_and_get(
199: p_encoded => FND_API.G_FALSE,
200: p_count => x_msg_count,
201: p_data => x_msg_data
202: );
203: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
213: WHEN OTHERS THEN
214: --IBE_UTIL.enable_debug();
215:
216: ROLLBACK TO create_address_pvt;
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: FND_MSG_PUB.count_and_get(
219: p_encoded => FND_API.G_FALSE,
220: p_count => x_msg_count,
221: p_data => x_msg_data
215:
216: ROLLBACK TO create_address_pvt;
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: FND_MSG_PUB.count_and_get(
219: p_encoded => FND_API.G_FALSE,
220: p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
232: END;
233:
234: PROCEDURE update_address(
235: p_api_version IN NUMBER,
236: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
237: p_commit IN VARCHAR2 := FND_API.G_FALSE,
238: p_party_site_id IN NUMBER,
239: p_ps_object_version_number IN NUMBER,
240: p_bill_object_version_number IN NUMBER,
233:
234: PROCEDURE update_address(
235: p_api_version IN NUMBER,
236: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
237: p_commit IN VARCHAR2 := FND_API.G_FALSE,
238: p_party_site_id IN NUMBER,
239: p_ps_object_version_number IN NUMBER,
240: p_bill_object_version_number IN NUMBER,
241: p_ship_object_version_number IN NUMBER,
290: -- standard start of API savepoint
291: SAVEPOINT update_address_pvt;
292:
293: -- standard call to check for call compatibility
294: IF NOT FND_API.compatible_api_call(l_api_version,
295: p_api_version,
296: l_api_name,
297: G_PKG_NAME)
298: THEN
295: p_api_version,
296: l_api_name,
297: G_PKG_NAME)
298: THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- initialize message list if p_init_msg_list is set to TRUE.
303: IF FND_API.to_boolean(p_init_msg_list) THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- initialize message list if p_init_msg_list is set to TRUE.
303: IF FND_API.to_boolean(p_init_msg_list) THEN
304: FND_MSG_PUB.initialize;
305: END IF;
306:
307: --
347: --
348: -- Update party_site if it's changed
349: --
350: if l_ps_changed = true then
351: -- l_chk_ps.party_id := FND_API.G_MISS_NUM;
352:
353: HZ_PARTY_SITE_V2PUB.update_party_site(
354: p_init_msg_list,
355: l_chk_ps,
366: l_chk_psu.site_use_type := 'BILL_TO';
367: --TCA API doesn't alllowing unsetting primary, NOOP
368: l_chk_psu.primary_per_type := 'N';
369: --if both billto flags are false, inactivate billto usage
370: if p_primary_billto = FND_API.G_FALSE and p_billto = FND_API.G_FALSE then
371: l_chk_psu.status := 'I';
372: elsif p_primary_billto = FND_API.G_TRUE then
373: l_chk_psu.status := 'A';
374: l_chk_psu.primary_per_type := 'Y';
368: l_chk_psu.primary_per_type := 'N';
369: --if both billto flags are false, inactivate billto usage
370: if p_primary_billto = FND_API.G_FALSE and p_billto = FND_API.G_FALSE then
371: l_chk_psu.status := 'I';
372: elsif p_primary_billto = FND_API.G_TRUE then
373: l_chk_psu.status := 'A';
374: l_chk_psu.primary_per_type := 'Y';
375: elsif p_billto = FND_API.G_TRUE then
376: l_chk_psu.status := 'A';
371: l_chk_psu.status := 'I';
372: elsif p_primary_billto = FND_API.G_TRUE then
373: l_chk_psu.status := 'A';
374: l_chk_psu.primary_per_type := 'Y';
375: elsif p_billto = FND_API.G_TRUE then
376: l_chk_psu.status := 'A';
377: --TCA API doesn't alllowing unsetting primary, NOOP
378: l_chk_psu.primary_per_type := 'N';
379: end if;
393: x_msg_data
394: );
395: close c_party_site_use;
396: --if BILL _TO PSU record not found, create a new one
397: elsif l_psu_changed = 'N' and (p_billto = FND_API.G_TRUE or p_primary_billto = FND_API.G_TRUE) THEN
398: l_chk_psu.created_by_module := l_chk_ps.created_by_module;
399: l_chk_psu.party_site_use_id := NULL;
400: if l_chk_psu.created_by_module is NULL then
401: l_chk_psu.created_by_module := 'USER MANAGEMENT';
417: l_chk_psu.site_use_type := 'SHIP_TO';
418: --TCA API doesn't alllowing unsetting primary, NOOP
419: l_chk_psu.primary_per_type := 'N';
420: --if both shipto flags are false, inactivate shipto usage
421: if p_primary_shipto = FND_API.G_FALSE and p_shipto = FND_API.G_FALSE then
422: l_chk_psu.status:='I';
423: elsif p_primary_shipto = FND_API.G_TRUE then
424: l_chk_psu.status:='A';
425: l_chk_psu.primary_per_type:='Y';
419: l_chk_psu.primary_per_type := 'N';
420: --if both shipto flags are false, inactivate shipto usage
421: if p_primary_shipto = FND_API.G_FALSE and p_shipto = FND_API.G_FALSE then
422: l_chk_psu.status:='I';
423: elsif p_primary_shipto = FND_API.G_TRUE then
424: l_chk_psu.status:='A';
425: l_chk_psu.primary_per_type:='Y';
426: elsif p_shipto = FND_API.G_TRUE then
427: l_chk_psu.status:='A';
422: l_chk_psu.status:='I';
423: elsif p_primary_shipto = FND_API.G_TRUE then
424: l_chk_psu.status:='A';
425: l_chk_psu.primary_per_type:='Y';
426: elsif p_shipto = FND_API.G_TRUE then
427: l_chk_psu.status:='A';
428: --TCA API doesn't alllowing unsetting primary, NOOP
429: l_chk_psu.primary_per_type:='N';
430: end if;
445: x_msg_data
446: );
447: close c_party_site_use;
448: --if SHIP_TO PSU record not found, create a new one
449: elsif l_psu_changed = 'N' and (p_shipto = FND_API.G_TRUE or p_primary_shipto = FND_API.G_TRUE) THEN
450: l_chk_psu.party_site_use_id := NULL;
451: l_chk_psu.created_by_module := l_chk_ps.created_by_module;
452: if l_chk_psu.created_by_module is NULL then
453: l_chk_psu.created_by_module := 'USER MANAGEMENT';
462: x_msg_data
463: );
464: end if;
465:
466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
467: RAISE FND_API.G_EXC_ERROR;
468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
463: );
464: end if;
465:
466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
467: RAISE FND_API.G_EXC_ERROR;
468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
471:
464: end if;
465:
466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
467: RAISE FND_API.G_EXC_ERROR;
468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
471:
472: --
465:
466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
467: RAISE FND_API.G_EXC_ERROR;
468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
470: END IF;
471:
472: --
473: -- set return parameters
486:
487: Open c_get_location_ovn(p_location.location_id);
488: FETCH c_get_location_ovn INTO l_loc_object_version_number;
489: --Convert null to G_Miss, as TCA is ignoring null
490: l_chk_loc.address2 := nvl(l_chk_loc.address2,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
487: Open c_get_location_ovn(p_location.location_id);
488: FETCH c_get_location_ovn INTO l_loc_object_version_number;
489: --Convert null to G_Miss, as TCA is ignoring null
490: l_chk_loc.address2 := nvl(l_chk_loc.address2,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
488: FETCH c_get_location_ovn INTO l_loc_object_version_number;
489: --Convert null to G_Miss, as TCA is ignoring null
490: l_chk_loc.address2 := nvl(l_chk_loc.address2,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
489: --Convert null to G_Miss, as TCA is ignoring null
490: l_chk_loc.address2 := nvl(l_chk_loc.address2,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
490: l_chk_loc.address2 := nvl(l_chk_loc.address2,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
498: l_chk_loc.address_lines_phonetic := nvl(l_chk_loc.address_lines_phonetic,FND_API.G_MISS_CHAR);
491: l_chk_loc.address3 := nvl(l_chk_loc.address3,FND_API.G_MISS_CHAR);
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
498: l_chk_loc.address_lines_phonetic := nvl(l_chk_loc.address_lines_phonetic,FND_API.G_MISS_CHAR);
499: --End conversion
492: l_chk_loc.address4 := nvl(l_chk_loc.address4,FND_API.G_MISS_CHAR);
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
498: l_chk_loc.address_lines_phonetic := nvl(l_chk_loc.address_lines_phonetic,FND_API.G_MISS_CHAR);
499: --End conversion
500: HZ_LOCATION_V2PUB.update_location(
493: l_chk_loc.city := nvl(l_chk_loc.city,FND_API.G_MISS_CHAR);
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
498: l_chk_loc.address_lines_phonetic := nvl(l_chk_loc.address_lines_phonetic,FND_API.G_MISS_CHAR);
499: --End conversion
500: HZ_LOCATION_V2PUB.update_location(
501: p_init_msg_list,
494: l_chk_loc.postal_code := nvl(l_chk_loc.postal_code,FND_API.G_MISS_CHAR);
495: l_chk_loc.state := nvl(l_chk_loc.state,FND_API.G_MISS_CHAR);
496: l_chk_loc.province := nvl(l_chk_loc.province,FND_API.G_MISS_CHAR);
497: l_chk_loc.county := nvl(l_chk_loc.county,FND_API.G_MISS_CHAR);
498: l_chk_loc.address_lines_phonetic := nvl(l_chk_loc.address_lines_phonetic,FND_API.G_MISS_CHAR);
499: --End conversion
500: HZ_LOCATION_V2PUB.update_location(
501: p_init_msg_list,
502: l_chk_loc,
506: x_msg_data
507: );
508: Close c_get_location_ovn;
509:
510: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
507: );
508: Close c_get_location_ovn;
509:
510: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
515:
508: Close c_get_location_ovn;
509:
510: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
515:
516: --check BILL_TO usage
509:
510: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
512: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
515:
516: --check BILL_TO usage
517: -- value T=changed, F=not changed, N=usage not found
519: l_chk_psu.site_use_type := 'BILL_TO';
520: --TCA API doesn't alllowing unsetting primary, NOOP
521: l_chk_psu.primary_per_type := 'N';
522: --if both billto flags are false, inactivate billto usage
523: if p_primary_billto = FND_API.G_FALSE and p_billto = FND_API.G_FALSE then
524: l_chk_psu.status := 'I';
525: elsif p_primary_billto = FND_API.G_TRUE then
526: l_chk_psu.status := 'A';
527: l_chk_psu.primary_per_type := 'Y';
521: l_chk_psu.primary_per_type := 'N';
522: --if both billto flags are false, inactivate billto usage
523: if p_primary_billto = FND_API.G_FALSE and p_billto = FND_API.G_FALSE then
524: l_chk_psu.status := 'I';
525: elsif p_primary_billto = FND_API.G_TRUE then
526: l_chk_psu.status := 'A';
527: l_chk_psu.primary_per_type := 'Y';
528: elsif p_billto = FND_API.G_TRUE then
529: l_chk_psu.status := 'A';
524: l_chk_psu.status := 'I';
525: elsif p_primary_billto = FND_API.G_TRUE then
526: l_chk_psu.status := 'A';
527: l_chk_psu.primary_per_type := 'Y';
528: elsif p_billto = FND_API.G_TRUE then
529: l_chk_psu.status := 'A';
530: --TCA API doesn't alllowing unsetting primary, NOOP
531: l_chk_psu.primary_per_type := 'N';
532: end if;
546: x_msg_data
547: );
548: close c_party_site_use;
549: --if BILL _TO PSU record not found, create a new one
550: elsif l_psu_changed = 'N' and (p_billto = FND_API.G_TRUE or p_primary_billto = FND_API.G_TRUE) THEN
551: l_chk_psu.created_by_module := l_chk_ps.created_by_module;
552: l_chk_psu.party_site_use_id := NULL;
553: if l_chk_psu.created_by_module is NULL then
554: l_chk_psu.created_by_module := 'USER MANAGEMENT';
570: l_chk_psu.site_use_type := 'SHIP_TO';
571: --TCA API doesn't alllowing unsetting primary, NOOP
572: l_chk_psu.primary_per_type := 'N';
573: --if both shipto flags are false, inactivate shipto usage
574: if p_primary_shipto = FND_API.G_FALSE and p_shipto = FND_API.G_FALSE then
575: l_chk_psu.status:='I';
576: elsif p_primary_shipto = FND_API.G_TRUE then
577: l_chk_psu.status:='A';
578: l_chk_psu.primary_per_type:='Y';
572: l_chk_psu.primary_per_type := 'N';
573: --if both shipto flags are false, inactivate shipto usage
574: if p_primary_shipto = FND_API.G_FALSE and p_shipto = FND_API.G_FALSE then
575: l_chk_psu.status:='I';
576: elsif p_primary_shipto = FND_API.G_TRUE then
577: l_chk_psu.status:='A';
578: l_chk_psu.primary_per_type:='Y';
579: elsif p_shipto = FND_API.G_TRUE then
580: l_chk_psu.status:='A';
575: l_chk_psu.status:='I';
576: elsif p_primary_shipto = FND_API.G_TRUE then
577: l_chk_psu.status:='A';
578: l_chk_psu.primary_per_type:='Y';
579: elsif p_shipto = FND_API.G_TRUE then
580: l_chk_psu.status:='A';
581: --TCA API doesn't alllowing unsetting primary, NOOP
582: l_chk_psu.primary_per_type:='N';
583: end if;
598: x_msg_data
599: );
600: close c_party_site_use;
601: --if SHIP_TO PSU record not found, create a new one
602: elsif l_psu_changed = 'N' and (p_shipto = FND_API.G_TRUE or p_primary_shipto = FND_API.G_TRUE) THEN
603: l_chk_psu.party_site_use_id := NULL;
604: l_chk_psu.created_by_module := l_chk_ps.created_by_module;
605: if l_chk_psu.created_by_module is NULL then
606: l_chk_psu.created_by_module := 'USER MANAGEMENT';
615: x_msg_data
616: );
617: end if;
618:
619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
616: );
617: end if;
618:
619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
617: end if;
618:
619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: x_location_id := p_location.location_id;
618:
619: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
620: RAISE FND_API.G_EXC_ERROR;
621: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
623: END IF;
624:
625: x_location_id := p_location.location_id;
626: x_party_site_id := p_party_site_id;
651: x_msg_count,
652: x_msg_data
653: );
654:
655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
652: x_msg_data
653: );
654:
655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
653: );
654:
655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
661: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
654:
655: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660:
661: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
662: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.delete_address(-)');
688: p_primary_billto,
689: p_primary_shipto,
690: p_billto,
691: p_shipto,
692: FND_API.G_FALSE,
693: x_return_status,
694: x_msg_count,
695: x_msg_data,
696: x_location_id,
726: END IF;
727:
728:
729: -- standard check of p_commit
730: IF FND_API.to_boolean(p_commit) THEN
731: commit;
732: END IF;
733:
734: -- standard call to get message count and if count is 1, get message info
732: END IF;
733:
734: -- standard call to get message count and if count is 1, get message info
735: FND_MSG_PUB.count_and_get(
736: p_encoded => FND_API.G_FALSE,
737: p_count => x_msg_count,
738: p_data => x_msg_data
739: );
740:
744:
745: --IBE_UTIL.disable_debug();
746:
747: EXCEPTION
748: WHEN FND_API.G_EXC_ERROR THEN
749: --IBE_UTIL.enable_debug();
750:
751: ROLLBACK TO update_address_pvt;
752: x_return_status := FND_API.G_RET_STS_ERROR;
748: WHEN FND_API.G_EXC_ERROR THEN
749: --IBE_UTIL.enable_debug();
750:
751: ROLLBACK TO update_address_pvt;
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: FND_MSG_PUB.count_and_get(
754: p_encoded => FND_API.G_FALSE,
755: p_count => x_msg_count,
756: p_data => x_msg_data
750:
751: ROLLBACK TO update_address_pvt;
752: x_return_status := FND_API.G_RET_STS_ERROR;
753: FND_MSG_PUB.count_and_get(
754: p_encoded => FND_API.G_FALSE,
755: p_count => x_msg_count,
756: p_data => x_msg_data
757: );
758: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
764: END IF;
765:
766: --IBE_UTIL.disable_debug();
767:
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: --IBE_UTIL.enable_debug();
770:
771: ROLLBACK TO update_address_pvt;
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: --IBE_UTIL.enable_debug();
770:
771: ROLLBACK TO update_address_pvt;
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: FND_MSG_PUB.count_and_get(
774: p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => x_msg_data
770:
771: ROLLBACK TO update_address_pvt;
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: FND_MSG_PUB.count_and_get(
774: p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => x_msg_data
777: );
778: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
788: WHEN OTHERS THEN
789: --IBE_UTIL.enable_debug();
790:
791: ROLLBACK TO update_address_pvt;
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: FND_MSG_PUB.count_and_get(
794: p_encoded => FND_API.G_FALSE,
795: p_count => x_msg_count,
796: p_data => x_msg_data
790:
791: ROLLBACK TO update_address_pvt;
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: FND_MSG_PUB.count_and_get(
794: p_encoded => FND_API.G_FALSE,
795: p_count => x_msg_count,
796: p_data => x_msg_data
797: );
798: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
808:
809:
810: PROCEDURE delete_address(
811: p_api_version IN NUMBER,
812: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
813: p_commit IN VARCHAR2 := FND_API.G_FALSE,
814: p_party_id IN NUMBER,
815: p_party_site_id IN NUMBER,
816: p_ps_object_version_number IN NUMBER,
809:
810: PROCEDURE delete_address(
811: p_api_version IN NUMBER,
812: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
813: p_commit IN VARCHAR2 := FND_API.G_FALSE,
814: p_party_id IN NUMBER,
815: p_party_site_id IN NUMBER,
816: p_ps_object_version_number IN NUMBER,
817: p_bill_object_version_number IN NUMBER,
839: -- standard start of API savepoint
840: SAVEPOINT delete_address_pvt;
841:
842: -- standard call to check for call compatibility
843: IF NOT FND_API.compatible_api_call(l_api_version,
844: p_api_version,
845: l_api_name,
846: G_PKG_NAME)
847: THEN
844: p_api_version,
845: l_api_name,
846: G_PKG_NAME)
847: THEN
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -- initialize message list if p_init_msg_list is set to TRUE.
852: IF FND_API.to_boolean(p_init_msg_list) THEN
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -- initialize message list if p_init_msg_list is set to TRUE.
852: IF FND_API.to_boolean(p_init_msg_list) THEN
853: FND_MSG_PUB.initialize;
854: END IF;
855:
856: --
874: x_msg_count,
875: x_msg_data
876: );
877:
878: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
879: RAISE FND_API.G_EXC_ERROR;
880: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
875: x_msg_data
876: );
877:
878: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
879: RAISE FND_API.G_EXC_ERROR;
880: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
876: );
877:
878: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
879: RAISE FND_API.G_EXC_ERROR;
880: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
884: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
877:
878: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
879: RAISE FND_API.G_EXC_ERROR;
880: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
884: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
885: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.do_delete_address(-)');
911: BILL_TO_PTY_SITE_ID = p_party_site_id;
912:
913:
914: -- standard check of p_commit
915: IF FND_API.to_boolean(p_commit) THEN
916: commit;
917: END IF;
918:
919: -- standard call to get message count and if count is 1, get message info
917: END IF;
918:
919: -- standard call to get message count and if count is 1, get message info
920: FND_MSG_PUB.count_and_get(
921: p_encoded => FND_API.G_FALSE,
922: p_count => x_msg_count,
923: p_data => x_msg_data
924: );
925:
929:
930: --IBE_UTIL.disable_debug();
931:
932: EXCEPTION
933: WHEN FND_API.G_EXC_ERROR THEN
934: --IBE_UTIL.enable_debug();
935:
936: ROLLBACK TO delete_address_pvt;
937: x_return_status := FND_API.G_RET_STS_ERROR;
933: WHEN FND_API.G_EXC_ERROR THEN
934: --IBE_UTIL.enable_debug();
935:
936: ROLLBACK TO delete_address_pvt;
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: FND_MSG_PUB.count_and_get(
939: p_encoded => FND_API.G_FALSE,
940: p_count => x_msg_count,
941: p_data => x_msg_data
935:
936: ROLLBACK TO delete_address_pvt;
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: FND_MSG_PUB.count_and_get(
939: p_encoded => FND_API.G_FALSE,
940: p_count => x_msg_count,
941: p_data => x_msg_data
942: );
943: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
949: END IF;
950:
951: --IBE_UTIL.disable_debug();
952:
953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954: --IBE_UTIL.enable_debug();
955:
956: ROLLBACK TO delete_address_pvt;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
954: --IBE_UTIL.enable_debug();
955:
956: ROLLBACK TO delete_address_pvt;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
958: FND_MSG_PUB.count_and_get(
959: p_encoded => FND_API.G_FALSE,
960: p_count => x_msg_count,
961: p_data => x_msg_data
955:
956: ROLLBACK TO delete_address_pvt;
957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
958: FND_MSG_PUB.count_and_get(
959: p_encoded => FND_API.G_FALSE,
960: p_count => x_msg_count,
961: p_data => x_msg_data
962: );
963: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
973: WHEN OTHERS THEN
974: --IBE_UTIL.enable_debug();
975:
976: ROLLBACK TO delete_address_pvt;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.count_and_get(
979: p_encoded => FND_API.G_FALSE,
980: p_count => x_msg_count,
981: p_data => x_msg_data
975:
976: ROLLBACK TO delete_address_pvt;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.count_and_get(
979: p_encoded => FND_API.G_FALSE,
980: p_count => x_msg_count,
981: p_data => x_msg_data
982: );
983: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
993: END;
994:
995: PROCEDURE set_address_usage(
996: p_api_version IN NUMBER,
997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
999: p_party_site_id IN NUMBER,
1000: p_primary_flag IN VARCHAR2 := FND_API.G_FALSE,
1001: p_site_use_type IN VARCHAR2,
994:
995: PROCEDURE set_address_usage(
996: p_api_version IN NUMBER,
997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
999: p_party_site_id IN NUMBER,
1000: p_primary_flag IN VARCHAR2 := FND_API.G_FALSE,
1001: p_site_use_type IN VARCHAR2,
1002: p_createdby IN VARCHAR2 := 'User Management',
996: p_api_version IN NUMBER,
997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
999: p_party_site_id IN NUMBER,
1000: p_primary_flag IN VARCHAR2 := FND_API.G_FALSE,
1001: p_site_use_type IN VARCHAR2,
1002: p_createdby IN VARCHAR2 := 'User Management',
1003: x_return_status OUT NOCOPY VARCHAR2,
1004: x_msg_count OUT NOCOPY NUMBER,
1037: -- standard start of API savepoint
1038: SAVEPOINT set_address__usage_pvt;
1039:
1040: -- standard call to check for call compatibility
1041: IF NOT FND_API.compatible_api_call(l_api_version,
1042: p_api_version,
1043: l_api_name,
1044: G_PKG_NAME)
1045: THEN
1042: p_api_version,
1043: l_api_name,
1044: G_PKG_NAME)
1045: THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: -- initialize message list if p_init_msg_list is set to TRUE.
1050: IF FND_API.to_boolean(p_init_msg_list) THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: -- initialize message list if p_init_msg_list is set to TRUE.
1050: IF FND_API.to_boolean(p_init_msg_list) THEN
1051: FND_MSG_PUB.initialize;
1052: END IF;
1053:
1054: -- try finding an existing party site use
1056: OPEN c_party_site_use;
1057: FETCH c_party_site_use INTO l_party_site_use_id, l_object_version_number;
1058:
1059:
1060: if (p_primary_flag = FND_API.G_TRUE) then
1061: l_party_site_use.primary_per_type := 'Y';
1062: end if;
1063:
1064: IF c_party_site_use%FOUND THEN
1112: END IF;
1113:
1114: CLOSE c_party_site_use;
1115:
1116: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1113:
1114: CLOSE c_party_site_use;
1115:
1116: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1114: CLOSE c_party_site_use;
1115:
1116: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122: -- standard check of p_commit
1115:
1116: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1117: RAISE FND_API.G_EXC_ERROR;
1118: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122: -- standard check of p_commit
1123: IF FND_API.to_boolean(p_commit) THEN
1119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1120: END IF;
1121:
1122: -- standard check of p_commit
1123: IF FND_API.to_boolean(p_commit) THEN
1124: commit;
1125: END IF;
1126:
1127: -- standard call to get message count and if count is 1, get message info
1125: END IF;
1126:
1127: -- standard call to get message count and if count is 1, get message info
1128: FND_MSG_PUB.count_and_get(
1129: p_encoded => FND_API.G_FALSE,
1130: p_count => x_msg_count,
1131: p_data => x_msg_data
1132: );
1133:
1137:
1138: --IBE_UTIL.disable_debug();
1139:
1140: EXCEPTION
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: --IBE_UTIL.enable_debug();
1143:
1144: ROLLBACK TO set_address__usage_pvt;
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1141: WHEN FND_API.G_EXC_ERROR THEN
1142: --IBE_UTIL.enable_debug();
1143:
1144: ROLLBACK TO set_address__usage_pvt;
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1146: FND_MSG_PUB.count_and_get(
1147: p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data
1143:
1144: ROLLBACK TO set_address__usage_pvt;
1145: x_return_status := FND_API.G_RET_STS_ERROR;
1146: FND_MSG_PUB.count_and_get(
1147: p_encoded => FND_API.G_FALSE,
1148: p_count => x_msg_count,
1149: p_data => x_msg_data
1150: );
1151: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1157: END IF;
1158:
1159: --IBE_UTIL.disable_debug();
1160:
1161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1162: --IBE_UTIL.enable_debug();
1163:
1164: ROLLBACK TO set_address__usage_pvt;
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1162: --IBE_UTIL.enable_debug();
1163:
1164: ROLLBACK TO set_address__usage_pvt;
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: FND_MSG_PUB.count_and_get(
1167: p_encoded => FND_API.G_FALSE,
1168: p_count => x_msg_count,
1169: p_data => x_msg_data
1163:
1164: ROLLBACK TO set_address__usage_pvt;
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: FND_MSG_PUB.count_and_get(
1167: p_encoded => FND_API.G_FALSE,
1168: p_count => x_msg_count,
1169: p_data => x_msg_data
1170: );
1171: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1181: WHEN OTHERS THEN
1182: --IBE_UTIL.enable_debug();
1183:
1184: ROLLBACK TO set_address__usage_pvt;
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MSG_PUB.count_and_get(
1187: p_encoded => FND_API.G_FALSE,
1188: p_count => x_msg_count,
1189: p_data => x_msg_data
1183:
1184: ROLLBACK TO set_address__usage_pvt;
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MSG_PUB.count_and_get(
1187: p_encoded => FND_API.G_FALSE,
1188: p_count => x_msg_count,
1189: p_data => x_msg_data
1190: );
1191: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1200: END;
1201:
1202: PROCEDURE get_primary_addr_details(
1203: p_api_version IN NUMBER,
1204: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1205: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1206: p_party_id IN NUMBER,
1207: p_site_use_type IN VARCHAR2,
1208: p_org_id IN NUMBER,
1201:
1202: PROCEDURE get_primary_addr_details(
1203: p_api_version IN NUMBER,
1204: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1205: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1206: p_party_id IN NUMBER,
1207: p_site_use_type IN VARCHAR2,
1208: p_org_id IN NUMBER,
1209: p_alt_party_id IN NUMBER,
1228: x_msg_count => x_msg_count,
1229: x_msg_data => x_msg_data,
1230: x_party_site_id => x_party_site_id
1231: );
1232: if(x_party_site_id = FND_API.G_MISS_NUM OR x_party_site_id is null) THEN
1233: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1234: IBE_UTIL.debug(' getPrimary Addr Details of alt PartyId ');
1235: END IF;
1236: x_party_id := p_alt_party_id;
1244: x_msg_data => x_msg_data,
1245: x_party_site_id => x_party_site_id
1246: );
1247: END IF;
1248: if(x_party_Site_id = FND_API.G_MISS_NUM OR x_party_site_id is null) then
1249: x_party_id := null;
1250: end if;
1251: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1252: IBE_UTIL.debug('Ending getPrimary Addr Details with party_site_id '||x_party_site_id);
1254: END;
1255:
1256: PROCEDURE get_primary_addr_id(
1257: p_api_version IN NUMBER,
1258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1260: p_party_id IN NUMBER,
1261: p_site_use_type IN VARCHAR2,
1262: p_org_id IN NUMBER,
1255:
1256: PROCEDURE get_primary_addr_id(
1257: p_api_version IN NUMBER,
1258: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1260: p_party_id IN NUMBER,
1261: p_site_use_type IN VARCHAR2,
1262: p_org_id IN NUMBER,
1263: p_get_org_prim_addr IN VARCHAR2 := FND_API.G_FALSE,
1259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1260: p_party_id IN NUMBER,
1261: p_site_use_type IN VARCHAR2,
1262: p_org_id IN NUMBER,
1263: p_get_org_prim_addr IN VARCHAR2 := FND_API.G_FALSE,
1264: x_return_status OUT NOCOPY VARCHAR2,
1265: x_msg_count OUT NOCOPY NUMBER,
1266: x_msg_data OUT NOCOPY VARCHAR2,
1267: x_party_site_id OUT NOCOPY NUMBER)
1380: -- standard start of API savepoint
1381: SAVEPOINT get_primary_addr_id_pvt;
1382:
1383: -- standard call to check for call compatibility
1384: IF NOT FND_API.compatible_api_call(l_api_version,
1385: p_api_version,
1386: l_api_name,
1387: G_PKG_NAME)
1388: THEN
1385: p_api_version,
1386: l_api_name,
1387: G_PKG_NAME)
1388: THEN
1389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1390: END IF;
1391:
1392: -- initialize message list if p_init_msg_list is set to TRUE.
1393: IF FND_API.to_boolean(p_init_msg_list) THEN
1389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1390: END IF;
1391:
1392: -- initialize message list if p_init_msg_list is set to TRUE.
1393: IF FND_API.to_boolean(p_init_msg_list) THEN
1394: FND_MSG_PUB.initialize;
1395: END IF;
1396:
1397: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1429:
1430:
1431: /* madesai - 7/10 fixed bug 2608767 */
1432: if x_party_site_id IS NULL then
1433: if FND_API.to_boolean(p_get_org_prim_addr) then
1434: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1435: IBE_UTIL.debug('ContactPrimAddr not found,get Org Primary Addr');
1436: END IF;
1437: OPEN c_getOrgPartyId(p_party_id);
1459: else
1460: x_party_site_id := null;
1461: end if;--p_get_org_prim_addr of loop
1462: end if;--getPrimAddrId cursor end
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464: -- standard check of p_commit
1465: IF FND_API.to_boolean(p_commit) THEN
1466: commit;
1467: END IF;
1461: end if;--p_get_org_prim_addr of loop
1462: end if;--getPrimAddrId cursor end
1463: x_return_status := FND_API.G_RET_STS_SUCCESS;
1464: -- standard check of p_commit
1465: IF FND_API.to_boolean(p_commit) THEN
1466: commit;
1467: END IF;
1468:
1469: -- standard call to get message count and if count is 1, get message info
1467: END IF;
1468:
1469: -- standard call to get message count and if count is 1, get message info
1470: FND_MSG_PUB.count_and_get(
1471: p_encoded => FND_API.G_FALSE,
1472: p_count => x_msg_count,
1473: p_data => x_msg_data
1474: );
1475:
1484: WHEN OTHERS THEN
1485: --IBE_UTIL.enable_debug();
1486:
1487: ROLLBACK TO get_primary_addr_id_pvt;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1489: FND_MSG_PUB.count_and_get(
1490: p_encoded => FND_API.G_FALSE,
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1486:
1487: ROLLBACK TO get_primary_addr_id_pvt;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1489: FND_MSG_PUB.count_and_get(
1490: p_encoded => FND_API.G_FALSE,
1491: p_count => x_msg_count,
1492: p_data => x_msg_data
1493: );
1494: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1504:
1505:
1506: PROCEDURE get_primary_address(
1507: p_api_version IN NUMBER,
1508: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1509: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1510: p_party_id IN NUMBER,
1511: p_site_use_type IN VARCHAR2,
1512: x_return_status OUT NOCOPY VARCHAR2,
1505:
1506: PROCEDURE get_primary_address(
1507: p_api_version IN NUMBER,
1508: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1509: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1510: p_party_id IN NUMBER,
1511: p_site_use_type IN VARCHAR2,
1512: x_return_status OUT NOCOPY VARCHAR2,
1513: x_msg_count OUT NOCOPY NUMBER,
1530: -- standard start of API savepoint
1531: SAVEPOINT get_primary_address_pvt;
1532:
1533: -- standard call to check for call compatibility
1534: IF NOT FND_API.compatible_api_call(l_api_version,
1535: p_api_version,
1536: l_api_name,
1537: G_PKG_NAME)
1538: THEN
1535: p_api_version,
1536: l_api_name,
1537: G_PKG_NAME)
1538: THEN
1539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1540: END IF;
1541:
1542: -- initialize message list if p_init_msg_list is set to TRUE.
1543: IF FND_API.to_boolean(p_init_msg_list) THEN
1539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1540: END IF;
1541:
1542: -- initialize message list if p_init_msg_list is set to TRUE.
1543: IF FND_API.to_boolean(p_init_msg_list) THEN
1544: FND_MSG_PUB.initialize;
1545: END IF;
1546:
1547: BEGIN
1569: x_party_site_id := -1;
1570: x_location_id := -1;
1571: END;
1572:
1573: x_return_status := FND_API.G_RET_STS_SUCCESS;
1574:
1575: -- standard check of p_commit
1576: IF FND_API.to_boolean(p_commit) THEN
1577: commit;
1572:
1573: x_return_status := FND_API.G_RET_STS_SUCCESS;
1574:
1575: -- standard check of p_commit
1576: IF FND_API.to_boolean(p_commit) THEN
1577: commit;
1578: END IF;
1579:
1580: -- standard call to get message count and if count is 1, get message info
1578: END IF;
1579:
1580: -- standard call to get message count and if count is 1, get message info
1581: FND_MSG_PUB.count_and_get(
1582: p_encoded => FND_API.G_FALSE,
1583: p_count => x_msg_count,
1584: p_data => x_msg_data
1585: );
1586:
1594: WHEN OTHERS THEN
1595: --IBE_UTIL.enable_debug();
1596:
1597: ROLLBACK TO get_primary_address_pvt;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: FND_MSG_PUB.count_and_get(
1600: p_encoded => FND_API.G_FALSE,
1601: p_count => x_msg_count,
1602: p_data => x_msg_data
1596:
1597: ROLLBACK TO get_primary_address_pvt;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1599: FND_MSG_PUB.count_and_get(
1600: p_encoded => FND_API.G_FALSE,
1601: p_count => x_msg_count,
1602: p_data => x_msg_data
1603: );
1604: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1614:
1615:
1616: PROCEDURE do_create_address(
1617: p_api_version IN NUMBER,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1620: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1615:
1616: PROCEDURE do_create_address(
1617: p_api_version IN NUMBER,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1620: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1623: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1620: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1623: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
1624: p_billto IN VARCHAR2 := FND_API.G_FALSE,
1625: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
1626: p_default_primary IN VARCHAR2,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1620: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1623: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
1624: p_billto IN VARCHAR2 := FND_API.G_FALSE,
1625: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
1626: p_default_primary IN VARCHAR2,
1627: x_return_status OUT NOCOPY VARCHAR2,
1620: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1623: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
1624: p_billto IN VARCHAR2 := FND_API.G_FALSE,
1625: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
1626: p_default_primary IN VARCHAR2,
1627: x_return_status OUT NOCOPY VARCHAR2,
1628: x_msg_count OUT NOCOPY NUMBER,
1621: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1622: p_primary_billto IN VARCHAR2 := FND_API.G_FALSE,
1623: p_primary_shipto IN VARCHAR2 := FND_API.G_FALSE,
1624: p_billto IN VARCHAR2 := FND_API.G_FALSE,
1625: p_shipto IN VARCHAR2 := FND_API.G_FALSE,
1626: p_default_primary IN VARCHAR2,
1627: x_return_status OUT NOCOPY VARCHAR2,
1628: x_msg_count OUT NOCOPY NUMBER,
1629: x_msg_data OUT NOCOPY VARCHAR2,
1646: l_primary_shipto VARCHAR2(1) := p_primary_shipto;
1647: l_createdby VARCHAR2(150) :='User Management';
1648: l_org_id NUMBER;
1649: l_addr_val VARCHAR2(30);
1650: l_lock_flag VARCHAR2(1) := FND_API.G_FALSE;
1651:
1652: BEGIN
1653:
1654: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1658: --
1659: -- create a location
1660: --
1661:
1662: l_location.location_id := FND_API.G_MISS_NUM;
1663: l_location.address_effective_date := sysdate;
1664:
1665: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1666: IBE_UTIL.debug('hz_location_v2pub.create_location(+)');
1687: x_msg_data
1688: );
1689:
1690: l_location.location_id := x_location_id;
1691: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: END IF;
1688: );
1689:
1690: l_location.location_id := x_location_id;
1691: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: END IF;
1696:
1689:
1690: l_location.location_id := x_location_id;
1691: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: END IF;
1696:
1697: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1690: l_location.location_id := x_location_id;
1691: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1692: RAISE FND_API.G_EXC_ERROR;
1693: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: END IF;
1696:
1697: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1698: IBE_UTIL.debug('hz_location_v2pub.create_location(-)');
1703: --
1704: -- prepare to create a party site
1705: --
1706:
1707: l_party_site.party_site_id := FND_API.G_MISS_NUM;
1708: l_party_site.location_id := x_location_id;
1709: l_party_site.status := 'A';
1710: --V2
1711: --l_party_site.start_date_active := sysdate;
1721: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1722: IBE_UTIL.debug('HZ_GENERATE_PARTY_SITE_NUMBER is off');
1723: END IF;
1724:
1725: IF l_party_site_number = FND_API.G_MISS_CHAR OR
1726: l_party_site_number IS NULL THEN
1727:
1728: l_count := 1;
1729:
1779: x_msg_count,
1780: x_msg_data
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1780: x_msg_data
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1781: );
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1782:
1783: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1784: RAISE FND_API.G_EXC_ERROR;
1785: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1787: END IF;
1788:
1789: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1790: IBE_UTIL.debug('hz_party_site_v2pub.create_party_site(-)');
1795: -- if p_default_primary is true, create a primary address
1796: -- if user does not already have one.
1797: --
1798:
1799: IF p_default_primary = FND_API.G_TRUE THEN
1800:
1801: -- check primary billing address
1802:
1803: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1816: l_prim_site_id,
1817: l_prim_loc_id
1818: );
1819:
1820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1824: END IF;
1817: l_prim_loc_id
1818: );
1819:
1820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1824: END IF;
1825:
1818: );
1819:
1820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1824: END IF;
1825:
1826: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1819:
1820: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1821: RAISE FND_API.G_EXC_ERROR;
1822: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1824: END IF;
1825:
1826: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1827: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.get_primary_address(-)');
1829: END IF;
1830:
1831: IF (l_prim_site_id = -1) THEN
1832: -- no primary billing address
1833: l_primary_billto := FND_API.G_TRUE;
1834: END IF;
1835:
1836: -- check primary shipping address
1837:
1851: l_prim_site_id,
1852: l_prim_loc_id
1853: );
1854:
1855: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1856: RAISE FND_API.G_EXC_ERROR;
1857: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1852: l_prim_loc_id
1853: );
1854:
1855: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1856: RAISE FND_API.G_EXC_ERROR;
1857: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860:
1853: );
1854:
1855: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1856: RAISE FND_API.G_EXC_ERROR;
1857: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860:
1861: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1854:
1855: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1856: RAISE FND_API.G_EXC_ERROR;
1857: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: END IF;
1860:
1861: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1862: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.get_primary_address(-)');
1864: END IF;
1865:
1866: IF (l_prim_site_id = -1) THEN
1867: -- no primary shipping address
1868: l_primary_shipto := FND_API.G_TRUE;
1869: END IF;
1870:
1871: END IF;
1872:
1874: --
1875: -- create a party site use for bill to or ship to
1876: --
1877:
1878: IF (l_primary_billto = FND_API.G_TRUE OR p_billto = FND_API.G_TRUE)THEN
1879:
1880: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1881: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.set_primary_address(+) for BILL_TO');
1882: END IF;
1894: x_msg_data,
1895: l_party_site_use_id
1896: );
1897:
1898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1895: l_party_site_use_id
1896: );
1897:
1898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1903:
1896: );
1897:
1898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1903:
1904: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1897:
1898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1902: END IF;
1903:
1904: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1905: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.set_primary_address(-)');
1907: END IF;
1908:
1909: END IF;
1910:
1911: IF (l_primary_shipto = FND_API.G_TRUE OR p_shipto = FND_API.G_TRUE) THEN
1912: l_createdby := l_location.created_by_module;
1913: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1914: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.set_primary_address(+) for SHIP_TO');
1915: END IF;
1926: x_msg_data,
1927: l_party_site_use_id
1928: );
1929:
1930: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1931: RAISE FND_API.G_EXC_ERROR;
1932: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1927: l_party_site_use_id
1928: );
1929:
1930: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1931: RAISE FND_API.G_EXC_ERROR;
1932: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1928: );
1929:
1930: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1931: RAISE FND_API.G_EXC_ERROR;
1932: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1929:
1930: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1931: RAISE FND_API.G_EXC_ERROR;
1932: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: END IF;
1935:
1936: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1937: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.set_address_usage(-)');
1986: x_return_status,
1987: x_msg_count,
1988: x_msg_data,
1989: l_loc_id,
1990: FND_API.G_TRUE
1991: );
1992: */
1993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1989: l_loc_id,
1990: FND_API.G_TRUE
1991: );
1992: */
1993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1990: FND_API.G_TRUE
1991: );
1992: */
1993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998:
1991: );
1992: */
1993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998:
1999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
1992: */
1993: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: END IF;
1998:
1999: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2000: IBE_UTIL.debug('hz_tax_assignment_pub.create_loc_assignment(-)');
2008: END;
2009:
2010: PROCEDURE do_delete_address(
2011: p_api_version IN NUMBER,
2012: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2013: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2014: p_party_id IN NUMBER,
2015: p_party_site_id IN NUMBER,
2016: p_ps_object_version_number IN NUMBER,
2009:
2010: PROCEDURE do_delete_address(
2011: p_api_version IN NUMBER,
2012: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2013: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2014: p_party_id IN NUMBER,
2015: p_party_site_id IN NUMBER,
2016: p_ps_object_version_number IN NUMBER,
2017: p_bill_object_version_number IN NUMBER,
2094: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2095: IBE_UTIL.debug('hz_party_v2pub.update_party_site_use(-)');
2096: END IF;
2097:
2098: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2095: IBE_UTIL.debug('hz_party_v2pub.update_party_site_use(-)');
2096: END IF;
2097:
2098: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103:
2096: END IF;
2097:
2098: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103:
2104: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2097:
2098: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2099: RAISE FND_API.G_EXC_ERROR;
2100: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2102: END IF;
2103:
2104: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2105: IBE_UTIL.debug('hz_party_v2pub.update_party_site(-)');
2119: l_dummy NUMBER;
2120: l_gmiss VARCHAR2(1) := NULL;
2121: BEGIN
2122:
2123: l_gmiss := FND_API.G_MISS_CHAR;
2124: -- for debug purpose
2125: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2126: IBE_UTIL.debug('location_id = ' || p_location.location_id || '.');
2127: IBE_UTIL.debug('address1 = ' || p_location.address1 || '.');
2182: l_dummy NUMBER;
2183: l_gmiss VARCHAR2(1) := NULL;
2184: BEGIN
2185:
2186: l_gmiss := FND_API.G_MISS_CHAR;
2187: -- for debug purpose
2188: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2189: IBE_UTIL.debug('party_site_id = ' || p_party_site.party_site_id || '.');
2190: IBE_UTIL.debug('party_site_name = ' || p_party_site.party_site_name || '.');
2286:
2287:
2288: PROCEDURE valid_usages (
2289: p_api_version IN NUMBER,
2290: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2291: p_party_site_id IN NUMBER,
2292: p_operating_unit_id IN NUMBER,
2293: p_usage_codes IN JTF_VARCHAR2_TABLE_100,
2294: x_return_codes OUT NOCOPY JTF_VARCHAR2_TABLE_100,
2318:
2319: --IBE_UTIL.enable_debug();
2320:
2321: -- Standard call to check for call compatibility.
2322: IF NOT FND_API.Compatible_API_Call(l_api_version,
2323: p_api_version,
2324: l_api_name,
2325: G_PKG_NAME)
2326: THEN
2323: p_api_version,
2324: l_api_name,
2325: G_PKG_NAME)
2326: THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: END IF;
2329:
2330: -- Initialize message list if p_init_msg_list is set to TRUE.
2331: IF FND_API.to_Boolean(p_init_msg_list) THEN
2327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2328: END IF;
2329:
2330: -- Initialize message list if p_init_msg_list is set to TRUE.
2331: IF FND_API.to_Boolean(p_init_msg_list) THEN
2332: FND_MSG_PUB.initialize;
2333: END IF;
2334:
2335: -- Initialize API return status to success
2332: FND_MSG_PUB.initialize;
2333: END IF;
2334:
2335: -- Initialize API return status to success
2336: x_return_status := FND_API.G_RET_STS_SUCCESS;
2337:
2338: --
2339: -- Get the country associated with the party site
2340: --
2344: CLOSE c1;
2345: FND_MESSAGE.Set_Name('IBE', 'IBE_OU_GET_PSITE_COUNTRY_FAIL');
2346: FND_MESSAGE.Set_Token('PARTY_SITE_ID', p_party_site_id);
2347: FND_MSG_PUB.Add;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350: CLOSE c1;
2351:
2352: x_return_codes := JTF_VARCHAR2_TABLE_100();
2352: x_return_codes := JTF_VARCHAR2_TABLE_100();
2353: FOR i IN 1..p_usage_codes.COUNT LOOP
2354:
2355: x_return_codes.EXTEND();
2356: x_return_codes(i) := FND_API.G_RET_STS_ERROR;
2357:
2358: --
2359: -- Process SHIP_TO_COUNTRY usage code
2360: --
2372: l_flag := TRUE;
2373: END IF;
2374:
2375: IF (r2.org_information1 = l_psite_terr_code) THEN
2376: x_return_codes(i) := FND_API.G_RET_STS_SUCCESS;
2377: EXIT;
2378: END IF;
2379:
2380: END LOOP; -- end for r2
2379:
2380: END LOOP; -- end for r2
2381:
2382: IF (l_flag = FALSE) THEN
2383: x_return_codes(i) := FND_API.G_RET_STS_SUCCESS;
2384: END IF;
2385:
2386: END IF; -- end if SHIP_TO_COUNTRY
2387:
2403: l_flag := TRUE;
2404: END IF;
2405:
2406: IF (r2.org_information1 = l_psite_terr_code) THEN
2407: x_return_codes(i) := FND_API.G_RET_STS_SUCCESS;
2408: EXIT;
2409: END IF;
2410:
2411: END LOOP; -- end for r2
2410:
2411: END LOOP; -- end for r2
2412:
2413: IF (l_flag = FALSE) THEN
2414: x_return_codes(i) := FND_API.G_RET_STS_SUCCESS;
2415: END IF;
2416:
2417: END IF; -- end if BILL_TO_COUNTRY
2418:
2421: --IBE_UTIL.disable_debug();
2422:
2423: EXCEPTION
2424:
2425: WHEN FND_API.G_EXC_ERROR THEN
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2427: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2428: p_data => x_msg_data,
2429: p_encoded => 'F');
2422:
2423: EXCEPTION
2424:
2425: WHEN FND_API.G_EXC_ERROR THEN
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2427: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2428: p_data => x_msg_data,
2429: p_encoded => 'F');
2430:
2427: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2428: p_data => x_msg_data,
2429: p_encoded => 'F');
2430:
2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2434: p_data => x_msg_data,
2435: p_encoded => 'F');
2428: p_data => x_msg_data,
2429: p_encoded => 'F');
2430:
2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2434: p_data => x_msg_data,
2435: p_encoded => 'F');
2436:
2439: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2440: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2441: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2442: FND_MSG_PUB.Add;
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444:
2445: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2446: THEN
2447: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2454: END;
2455:
2456: PROCEDURE copy_party_site (
2457: p_api_version IN NUMBER,
2458: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2459: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2460: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
2461: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
2462: x_party_site_id OUT NOCOPY NUMBER,
2455:
2456: PROCEDURE copy_party_site (
2457: p_api_version IN NUMBER,
2458: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2459: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2460: p_party_site IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
2461: p_location IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
2462: x_party_site_id OUT NOCOPY NUMBER,
2463: x_return_status OUT NOCOPY VARCHAR2,
2475: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2476: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Begin ');
2477: END IF;
2478: /*PROCEDURE create_party_site (
2479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2480: p_party_site_rec IN PARTY_SITE_REC_TYPE,
2481: x_party_site_id OUT NOCOPY NUMBER,
2482: x_party_site_number OUT NOCOPY VARCHAR2,
2483: x_return_status OUT NOCOPY VARCHAR2,
2494: x_return_status => x_return_status,
2495: x_msg_count => x_msg_count,
2496: x_msg_data => x_msg_data );
2497:
2498: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2500: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Expected error ');
2501: END IF;
2502:
2499: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2500: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Expected error ');
2501: END IF;
2502:
2503: RAISE FND_API.G_EXC_ERROR;
2504: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2506: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Unexpected error ');
2507: END IF;
2500: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Expected error ');
2501: END IF;
2502:
2503: RAISE FND_API.G_EXC_ERROR;
2504: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2506: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Unexpected error ');
2507: END IF;
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2504: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2505: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2506: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Unexpected error ');
2507: END IF;
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: END IF;
2510:
2511: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2512: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:Done ');
2516: x_party_site_id := l_party_site_id;
2517:
2518: EXCEPTION
2519:
2520: WHEN FND_API.G_EXC_ERROR THEN
2521: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2522: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:In the expected exception block ');
2523: END IF;
2524:
2521: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2522: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:In the expected exception block ');
2523: END IF;
2524:
2525: x_return_status := FND_API.G_RET_STS_ERROR;
2526: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2527: p_data => x_msg_data,
2528: p_encoded => 'F');
2529:
2534: IBE_UTIL.debug('Error msg: '||substr(lx_msg_data,1,240));
2535: end loop;
2536:
2537:
2538: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2539: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2540: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:In the unexpected exception block ');
2541: END IF;
2542:
2539: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2540: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:In the unexpected exception block ');
2541: END IF;
2542:
2543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2544: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2545: p_data => x_msg_data,
2546: p_encoded => 'F');
2547:
2557: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
2558: IBE_UTIL.debug('IBE_ADDRESS_V2PVT.copy_pary_site:In the others exception block ');
2559: END IF;
2560:
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562:
2563: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2564: THEN
2565: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);