38: x_party_site_number hz_party_sites.party_site_number%TYPE;
39: p_party_site_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE;
40: l_prof_value VARCHAR2(1);
41: BEGIN
42: l_return_status := OKL_API.G_RET_STS_SUCCESS;
43: L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.CREATE_PARTY_SITE';
44:
45: -- check for logging on PROCEDURE level
46: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
49: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
50:
51: -- call START_ACTIVITY to create savepoint, check compatibility
52: -- and initialize message list
53: l_return_status := OKL_API.START_ACTIVITY(
54: p_api_name => l_api_name
55: ,p_init_msg_list => p_init_msg_list
56: ,p_api_type => G_API_TYPE
57: ,x_return_status => l_return_status);
56: ,p_api_type => G_API_TYPE
57: ,x_return_status => l_return_status);
58:
59: -- check if activity started successfully
60: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
61: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
63: RAISE OKL_API.G_EXCEPTION_ERROR;
64: END IF;
57: ,x_return_status => l_return_status);
58:
59: -- check if activity started successfully
60: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
61: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
63: RAISE OKL_API.G_EXCEPTION_ERROR;
64: END IF;
65:
58:
59: -- check if activity started successfully
60: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
61: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
63: RAISE OKL_API.G_EXCEPTION_ERROR;
64: END IF;
65:
66: --Obtain the details of the given Party Site which is to be copied
59: -- check if activity started successfully
60: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
61: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
62: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
63: RAISE OKL_API.G_EXCEPTION_ERROR;
64: END IF;
65:
66: --Obtain the details of the given Party Site which is to be copied
67: SELECT LOCATION_ID
136: ' result status ' || l_return_status ||
137: ' x_msg_data ' || x_msg_data);
138: END IF; -- end of statement level debug
139:
140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
143: RAISE OKL_API.G_EXCEPTION_ERROR;
144: END IF;
137: ' x_msg_data ' || x_msg_data);
138: END IF; -- end of statement level debug
139:
140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
143: RAISE OKL_API.G_EXCEPTION_ERROR;
144: END IF;
145:
138: END IF; -- end of statement level debug
139:
140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
143: RAISE OKL_API.G_EXCEPTION_ERROR;
144: END IF;
145:
146: x_return_status := l_return_status;
139:
140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
143: RAISE OKL_API.G_EXCEPTION_ERROR;
144: END IF;
145:
146: x_return_status := l_return_status;
147:
144: END IF;
145:
146: x_return_status := l_return_status;
147:
148: OKL_API.END_ACTIVITY(
149: x_msg_count => x_msg_count
150: ,x_msg_data => x_msg_data);
151: EXCEPTION
152: WHEN OKL_API.G_EXCEPTION_ERROR
148: OKL_API.END_ACTIVITY(
149: x_msg_count => x_msg_count
150: ,x_msg_data => x_msg_data);
151: EXCEPTION
152: WHEN OKL_API.G_EXCEPTION_ERROR
153: THEN
154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
155: p_api_name => l_api_name,
156: p_pkg_name => G_PKG_NAME,
150: ,x_msg_data => x_msg_data);
151: EXCEPTION
152: WHEN OKL_API.G_EXCEPTION_ERROR
153: THEN
154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
155: p_api_name => l_api_name,
156: p_pkg_name => G_PKG_NAME,
157: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
158: x_msg_count => x_msg_count,
153: THEN
154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
155: p_api_name => l_api_name,
156: p_pkg_name => G_PKG_NAME,
157: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
158: x_msg_count => x_msg_count,
159: x_msg_data => x_msg_data,
160: p_api_type => G_API_TYPE);
161:
158: x_msg_count => x_msg_count,
159: x_msg_data => x_msg_data,
160: p_api_type => G_API_TYPE);
161:
162: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
163: THEN
164: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
165: p_api_name => l_api_name,
166: p_pkg_name => G_PKG_NAME,
160: p_api_type => G_API_TYPE);
161:
162: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
163: THEN
164: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
165: p_api_name => l_api_name,
166: p_pkg_name => G_PKG_NAME,
167: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
168: x_msg_count => x_msg_count,
163: THEN
164: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
165: p_api_name => l_api_name,
166: p_pkg_name => G_PKG_NAME,
167: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
168: x_msg_count => x_msg_count,
169: x_msg_data => x_msg_data,
170: p_api_type => G_API_TYPE);
171:
170: p_api_type => G_API_TYPE);
171:
172: WHEN OTHERS
173: THEN
174: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
175: p_api_name => l_api_name,
176: p_pkg_name => G_PKG_NAME,
177: p_exc_name => 'OTHERS',
178: x_msg_count => x_msg_count,
207: l_return_status VARCHAR2(1);
208:
209: p_party_site_use_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE;
210: BEGIN
211: l_return_status := OKL_API.G_RET_STS_SUCCESS;
212: L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.CREATE_PARTY_SITE_USE';
213:
214: -- check for logging on PROCEDURE level
215: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
218: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
219:
220: -- call START_ACTIVITY to create savepoint, check compatibility
221: -- and initialize message list
222: l_return_status := OKL_API.START_ACTIVITY(
223: p_api_name => l_api_name
224: ,p_init_msg_list => p_init_msg_list
225: ,p_api_type => G_API_TYPE
226: ,x_return_status => l_return_status);
225: ,p_api_type => G_API_TYPE
226: ,x_return_status => l_return_status);
227:
228: -- check if activity started successfully
229: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
232: RAISE OKL_API.G_EXCEPTION_ERROR;
233: END IF;
226: ,x_return_status => l_return_status);
227:
228: -- check if activity started successfully
229: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
232: RAISE OKL_API.G_EXCEPTION_ERROR;
233: END IF;
234:
227:
228: -- check if activity started successfully
229: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
232: RAISE OKL_API.G_EXCEPTION_ERROR;
233: END IF;
234:
235: --Obtain the details of the existing Site Use
228: -- check if activity started successfully
229: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
232: RAISE OKL_API.G_EXCEPTION_ERROR;
233: END IF;
234:
235: --Obtain the details of the existing Site Use
236: SELECT COMMENTS
282: ' result status ' || l_return_status ||
283: ' x_msg_data ' || x_msg_data);
284: END IF; -- end of statement level debug
285:
286: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: END IF;
283: ' x_msg_data ' || x_msg_data);
284: END IF; -- end of statement level debug
285:
286: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: END IF;
291:
284: END IF; -- end of statement level debug
285:
286: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: END IF;
291:
292: x_return_status := l_return_status;
285:
286: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: END IF;
291:
292: x_return_status := l_return_status;
293:
290: END IF;
291:
292: x_return_status := l_return_status;
293:
294: OKL_API.END_ACTIVITY(
295: x_msg_count => x_msg_count
296: ,x_msg_data => x_msg_data);
297: EXCEPTION
298: WHEN OKL_API.G_EXCEPTION_ERROR
294: OKL_API.END_ACTIVITY(
295: x_msg_count => x_msg_count
296: ,x_msg_data => x_msg_data);
297: EXCEPTION
298: WHEN OKL_API.G_EXCEPTION_ERROR
299: THEN
300: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
301: p_api_name => l_api_name,
302: p_pkg_name => G_PKG_NAME,
296: ,x_msg_data => x_msg_data);
297: EXCEPTION
298: WHEN OKL_API.G_EXCEPTION_ERROR
299: THEN
300: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
301: p_api_name => l_api_name,
302: p_pkg_name => G_PKG_NAME,
303: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
304: x_msg_count => x_msg_count,
299: THEN
300: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
301: p_api_name => l_api_name,
302: p_pkg_name => G_PKG_NAME,
303: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
304: x_msg_count => x_msg_count,
305: x_msg_data => x_msg_data,
306: p_api_type => G_API_TYPE);
307:
304: x_msg_count => x_msg_count,
305: x_msg_data => x_msg_data,
306: p_api_type => G_API_TYPE);
307:
308: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
309: THEN
310: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
311: p_api_name => l_api_name,
312: p_pkg_name => G_PKG_NAME,
306: p_api_type => G_API_TYPE);
307:
308: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
309: THEN
310: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
311: p_api_name => l_api_name,
312: p_pkg_name => G_PKG_NAME,
313: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
314: x_msg_count => x_msg_count,
309: THEN
310: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
311: p_api_name => l_api_name,
312: p_pkg_name => G_PKG_NAME,
313: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
314: x_msg_count => x_msg_count,
315: x_msg_data => x_msg_data,
316: p_api_type => G_API_TYPE);
317:
316: p_api_type => G_API_TYPE);
317:
318: WHEN OTHERS
319: THEN
320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => G_PKG_NAME,
323: p_exc_name => 'OTHERS',
324: x_msg_count => x_msg_count,
526: AND HPSU.PARTY_SITE_USE_ID = ASS.INSTALL_SITE_ID
527: AND HPSU.PARTY_SITE_ID = HPS.PARTY_SITE_ID
528: AND LOP.ID = l_lop_id;
529: BEGIN
530: l_return_status := OKL_API.G_RET_STS_SUCCESS;
531: L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.UPDATE_ASSET_LOCATION';
532:
533: -- check for logging on PROCEDURE level
534: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
537: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
538:
539: -- call START_ACTIVITY to create savepoint, check compatibility
540: -- and initialize message list
541: l_return_status := OKL_API.START_ACTIVITY(
542: p_api_name => l_api_name
543: ,p_init_msg_list => p_init_msg_list
544: ,p_api_type => G_API_TYPE
545: ,x_return_status => l_return_status);
544: ,p_api_type => G_API_TYPE
545: ,x_return_status => l_return_status);
546:
547: -- check if activity started successfully
548: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
551: RAISE OKL_API.G_EXCEPTION_ERROR;
552: END IF;
545: ,x_return_status => l_return_status);
546:
547: -- check if activity started successfully
548: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
551: RAISE OKL_API.G_EXCEPTION_ERROR;
552: END IF;
553:
546:
547: -- check if activity started successfully
548: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
551: RAISE OKL_API.G_EXCEPTION_ERROR;
552: END IF;
553:
554: IF(p_parent_object_code = 'LEASEAPP')
547: -- check if activity started successfully
548: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
550: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
551: RAISE OKL_API.G_EXCEPTION_ERROR;
552: END IF;
553:
554: IF(p_parent_object_code = 'LEASEAPP')
555: THEN
614: ' result status ' || l_return_status ||
615: ' x_msg_data ' || x_msg_data);
616: END IF; -- end of statement level debug
617:
618: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
615: ' x_msg_data ' || x_msg_data);
616: END IF; -- end of statement level debug
617:
618: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623: END IF;
616: END IF; -- end of statement level debug
617:
618: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623: END IF;
624:
617:
618: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
620: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
621: RAISE OKL_API.G_EXCEPTION_ERROR;
622: END IF;
623: END IF;
624:
625: --Call the API to create the site use
657: ' result status ' || l_return_status ||
658: ' x_msg_data ' || x_msg_data);
659: END IF; -- end of statement level debug
660:
661: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
664: RAISE OKL_API.G_EXCEPTION_ERROR;
665: END IF;
658: ' x_msg_data ' || x_msg_data);
659: END IF; -- end of statement level debug
660:
661: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
664: RAISE OKL_API.G_EXCEPTION_ERROR;
665: END IF;
666: END IF;
659: END IF; -- end of statement level debug
660:
661: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
664: RAISE OKL_API.G_EXCEPTION_ERROR;
665: END IF;
666: END IF;
667: ELSE
660:
661: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
664: RAISE OKL_API.G_EXCEPTION_ERROR;
665: END IF;
666: END IF;
667: ELSE
668: NEW_IS_ID_LIST(I) := NULL;
713: WHERE ID = ASSET_ID_LIST(I);
714:
715: x_return_status := l_return_status;
716:
717: OKL_API.END_ACTIVITY(
718: x_msg_count => x_msg_count
719: ,x_msg_data => x_msg_data);
720: EXCEPTION
721: WHEN OKL_API.G_EXCEPTION_ERROR
717: OKL_API.END_ACTIVITY(
718: x_msg_count => x_msg_count
719: ,x_msg_data => x_msg_data);
720: EXCEPTION
721: WHEN OKL_API.G_EXCEPTION_ERROR
722: THEN
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => G_PKG_NAME,
719: ,x_msg_data => x_msg_data);
720: EXCEPTION
721: WHEN OKL_API.G_EXCEPTION_ERROR
722: THEN
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => G_PKG_NAME,
726: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
727: x_msg_count => x_msg_count,
722: THEN
723: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
724: p_api_name => l_api_name,
725: p_pkg_name => G_PKG_NAME,
726: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
727: x_msg_count => x_msg_count,
728: x_msg_data => x_msg_data,
729: p_api_type => G_API_TYPE);
730:
727: x_msg_count => x_msg_count,
728: x_msg_data => x_msg_data,
729: p_api_type => G_API_TYPE);
730:
731: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
732: THEN
733: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
734: p_api_name => l_api_name,
735: p_pkg_name => G_PKG_NAME,
729: p_api_type => G_API_TYPE);
730:
731: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
732: THEN
733: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
734: p_api_name => l_api_name,
735: p_pkg_name => G_PKG_NAME,
736: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
737: x_msg_count => x_msg_count,
732: THEN
733: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
734: p_api_name => l_api_name,
735: p_pkg_name => G_PKG_NAME,
736: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
737: x_msg_count => x_msg_count,
738: x_msg_data => x_msg_data,
739: p_api_type => G_API_TYPE);
740:
739: p_api_type => G_API_TYPE);
740:
741: WHEN OTHERS
742: THEN
743: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
744: p_api_name => l_api_name,
745: p_pkg_name => G_PKG_NAME,
746: p_exc_name => 'OTHERS',
747: x_msg_count => x_msg_count,
2978:
2979: chk_vendor_chr_rec chk_vendor_chr_csr%ROWTYPE;
2980: BEGIN
2981: l_count := 0;
2982: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2983: l_debug_enabled := okl_debug_pub.check_log_enabled;
2984: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module
2985: ,fnd_log.level_procedure);
2986: --Log statements for all input parameters and the procedure name
3004: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
3005: ,fnd_log.level_statement);
3006: -- call START_ACTIVITY to create savepoint, check compatibility
3007: -- and initialize message list
3008: l_return_status := okl_api.start_activity(p_api_name => l_api_name
3009: ,p_pkg_name => G_PKG_NAME
3010: ,p_init_msg_list => p_init_msg_list
3011: ,p_api_version => l_api_version
3012: ,l_api_version => l_api_version
3013: ,p_api_type => G_API_TYPE
3014: ,x_return_status => l_return_status);
3015: -- check if activity started successfully
3016:
3017: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3018: RAISE okl_api.g_exception_unexpected_error;
3019: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3020: RAISE okl_api.g_exception_error;
3021: END IF;
3014: ,x_return_status => l_return_status);
3015: -- check if activity started successfully
3016:
3017: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3018: RAISE okl_api.g_exception_unexpected_error;
3019: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3020: RAISE okl_api.g_exception_error;
3021: END IF;
3022:
3015: -- check if activity started successfully
3016:
3017: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3018: RAISE okl_api.g_exception_unexpected_error;
3019: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3020: RAISE okl_api.g_exception_error;
3021: END IF;
3022:
3023: select merge_reason_code into l_merge_reason_code
3016:
3017: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3018: RAISE okl_api.g_exception_unexpected_error;
3019: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3020: RAISE okl_api.g_exception_error;
3021: END IF;
3022:
3023: select merge_reason_code into l_merge_reason_code
3024: from hz_merge_batch
3081: FETCH c_get_party_name INTO l_des_party_name;
3082: CLOSE c_get_party_name;
3083:
3084: -- set the error message to stop the proceeding of party merge
3085: OKL_API.SET_MESSAGE
3086: (
3087: p_app_name => G_APP_NAME,
3088: p_msg_name => 'OKL_BLOCK_PARTYMERGE_MSG',
3089: p_token1 => 'SOURCE',
3098: p_token5_value => chk_vendor_chr_rec.CONTRACT_NUMBER
3099: );
3100: --end NISINHA Bug#6655434
3101:
3102: l_return_status := OKL_API.G_RET_STS_ERROR;
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (chk_vendor_chr_rec.RLE_CODE IN ('BROKER', 'DEALER', 'EXTERNAL_PARTY', 'GUARANTOR', 'MANUFACTURER')
3105: OR (chk_vendor_chr_rec.RLE_CODE = 'INVESTOR' AND chk_vendor_chr_rec.SCS_CODE = 'OPERATING'))
3106: THEN
3099: );
3100: --end NISINHA Bug#6655434
3101:
3102: l_return_status := OKL_API.G_RET_STS_ERROR;
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (chk_vendor_chr_rec.RLE_CODE IN ('BROKER', 'DEALER', 'EXTERNAL_PARTY', 'GUARANTOR', 'MANUFACTURER')
3105: OR (chk_vendor_chr_rec.RLE_CODE = 'INVESTOR' AND chk_vendor_chr_rec.SCS_CODE = 'OPERATING'))
3106: THEN
3107: --If there is no passthrough setup which uses both the vendors at line level
3142: ,L_MODULE || ' Result of OKL_KPL_PVT.DELETE_ROW'
3143: ,'l_return_status ' || l_return_status);
3144: END IF; -- end of statement level debug
3145:
3146: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3149: RAISE OKL_API.G_EXCEPTION_ERROR;
3150: END IF;
3143: ,'l_return_status ' || l_return_status);
3144: END IF; -- end of statement level debug
3145:
3146: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3149: RAISE OKL_API.G_EXCEPTION_ERROR;
3150: END IF;
3151:
3144: END IF; -- end of statement level debug
3145:
3146: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3149: RAISE OKL_API.G_EXCEPTION_ERROR;
3150: END IF;
3151:
3152: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3145:
3146: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3149: RAISE OKL_API.G_EXCEPTION_ERROR;
3150: END IF;
3151:
3152: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3153: THEN
3182: ,L_MODULE || ' Result of OKC_CONTRACT_PARTY_PVT.DELETE_K_PARTY_ROLE'
3183: ,'l_return_status ' || l_return_status);
3184: END IF; -- end of statement level debug
3185:
3186: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3183: ,'l_return_status ' || l_return_status);
3184: END IF; -- end of statement level debug
3185:
3186: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: END IF;
3184: END IF; -- end of statement level debug
3185:
3186: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: END IF;
3192: END LOOP;
3185:
3186: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: END IF;
3192: END LOOP;
3193: CLOSE chk_vendor_chr_csr;
3194: END IF;
3195: END IF;
3196:
3197: x_return_status := l_return_status;
3198: okl_api.end_activity(x_msg_count => p_msg_count
3199: ,x_msg_data => p_msg_data);
3200:
3201: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on)
3202: THEN
3205: ,'end debug okl_vendormerge_grp.merge_vendor');
3206: END IF;
3207:
3208: EXCEPTION
3209: WHEN OKL_API.G_EXCEPTION_ERROR
3210: THEN
3211: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3212: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3213: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3223: CLOSE c_get_party_name;
3224: END IF;
3225: --end NISINHA 6655434
3226:
3227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3228: p_api_name => l_api_name,
3229: p_pkg_name => G_PKG_NAME,
3230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3231: x_msg_count => p_msg_count,
3226:
3227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3228: p_api_name => l_api_name,
3229: p_pkg_name => G_PKG_NAME,
3230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3231: x_msg_count => p_msg_count,
3232: x_msg_data => p_msg_data,
3233: p_api_type => G_API_TYPE);
3234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3230: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3231: x_msg_count => p_msg_count,
3232: x_msg_data => p_msg_data,
3233: p_api_type => G_API_TYPE);
3234: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3235: THEN
3236: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3237: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
3238: 'OKC_K_PARTY_ROLES_B for = '|| p_from_id));
3248: CLOSE c_get_party_name;
3249: END IF;
3250: --end NISINHA 6655434
3251:
3252: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3253: p_api_name => l_api_name,
3254: p_pkg_name => G_PKG_NAME,
3255: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3256: x_msg_count => p_msg_count,
3251:
3252: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3253: p_api_name => l_api_name,
3254: p_pkg_name => G_PKG_NAME,
3255: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3256: x_msg_count => p_msg_count,
3257: x_msg_data => p_msg_data,
3258: p_api_type => G_API_TYPE);
3259: WHEN OTHERS
3273: CLOSE c_get_party_name;
3274: END IF;
3275: --end NISINHA 6655434
3276:
3277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3278: p_api_name => l_api_name,
3279: p_pkg_name => G_PKG_NAME,
3280: p_exc_name => 'OTHERS',
3281: x_msg_count => p_msg_count,
3453:
3454: l_last_fetch BOOLEAN := FALSE;
3455: l_count NUMBER;
3456: BEGIN
3457: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3458: L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.LOP_ACCOUNT_MERGE';
3459:
3460: -- check for logging on PROCEDURE level
3461: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3464: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3465:
3466: -- call START_ACTIVITY to create savepoint, check compatibility
3467: -- and initialize message list
3468: l_return_status := OKL_API.START_ACTIVITY(
3469: p_api_name => l_api_name
3470: ,p_init_msg_list => l_init_msg_list
3471: ,p_api_type => G_API_TYPE
3472: ,x_return_status => l_return_status);
3471: ,p_api_type => G_API_TYPE
3472: ,x_return_status => l_return_status);
3473:
3474: -- check if activity started successfully
3475: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_ERROR;
3479: END IF;
3472: ,x_return_status => l_return_status);
3473:
3474: -- check if activity started successfully
3475: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_ERROR;
3479: END IF;
3480:
3473:
3474: -- check if activity started successfully
3475: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_ERROR;
3479: END IF;
3480:
3481: l_count := 0;
3474: -- check if activity started successfully
3475: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3478: RAISE OKL_API.G_EXCEPTION_ERROR;
3479: END IF;
3480:
3481: l_count := 0;
3482: IF process_mode='LOCK' THEN
3562: ' result status ' || l_return_status ||
3563: ' x_msg_data ' || x_msg_data);
3564: END IF; -- end of statement level debug
3565:
3566: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3563: ' x_msg_data ' || x_msg_data);
3564: END IF; -- end of statement level debug
3565:
3566: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571: END IF;
3564: END IF; -- end of statement level debug
3565:
3566: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571: END IF;
3572: ELSE
3565:
3566: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571: END IF;
3572: ELSE
3573: PROSPECT_ADDRESS_ID_LIST(I) := NULL;
3618: ' result status ' || l_return_status ||
3619: ' x_msg_data ' || x_msg_data);
3620: END IF; -- end of statement level debug
3621:
3622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3619: ' x_msg_data ' || x_msg_data);
3620: END IF; -- end of statement level debug
3621:
3622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627: END IF;
3620: END IF; -- end of statement level debug
3621:
3622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627: END IF;
3628:
3621:
3622: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3623: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3624: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3625: RAISE OKL_API.G_EXCEPTION_ERROR;
3626: END IF;
3627: END IF;
3628:
3629: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3660: ' result status ' || l_return_status ||
3661: ' x_msg_data ' || x_msg_data);
3662: END IF; -- end of statement level debug
3663:
3664: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3667: RAISE OKL_API.G_EXCEPTION_ERROR;
3668: END IF;
3661: ' x_msg_data ' || x_msg_data);
3662: END IF; -- end of statement level debug
3663:
3664: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3667: RAISE OKL_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: END IF;
3662: END IF; -- end of statement level debug
3663:
3664: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3667: RAISE OKL_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: END IF;
3670: ELSE
3663:
3664: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3667: RAISE OKL_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: END IF;
3670: ELSE
3671: IS_ID_LIST(I) := NULL;
3716: ' result status ' || l_return_status ||
3717: ' x_msg_data ' || x_msg_data);
3718: END IF; -- end of statement level debug
3719:
3720: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3723: RAISE OKL_API.G_EXCEPTION_ERROR;
3724: END IF;
3717: ' x_msg_data ' || x_msg_data);
3718: END IF; -- end of statement level debug
3719:
3720: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3723: RAISE OKL_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: END IF;
3718: END IF; -- end of statement level debug
3719:
3720: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3723: RAISE OKL_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: END IF;
3726:
3719:
3720: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3723: RAISE OKL_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: END IF;
3726:
3727: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON)
3758: ' result status ' || l_return_status ||
3759: ' x_msg_data ' || x_msg_data);
3760: END IF; -- end of statement level debug
3761:
3762: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3759: ' x_msg_data ' || x_msg_data);
3760: END IF; -- end of statement level debug
3761:
3762: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF;
3760: END IF; -- end of statement level debug
3761:
3762: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF;
3768: ELSE
3761:
3762: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3764: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3765: RAISE OKL_API.G_EXCEPTION_ERROR;
3766: END IF;
3767: END IF;
3768: ELSE
3769: UL_ID_LIST(I) := NULL;
3806: ,' result status ' || l_return_status ||
3807: ' x_msg_data ' || x_msg_data);
3808: END IF; -- end of statement level debug
3809:
3810: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3807: ' x_msg_data ' || x_msg_data);
3808: END IF; -- end of statement level debug
3809:
3810: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815: END IF;
3808: END IF; -- end of statement level debug
3809:
3810: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815: END IF;
3816: END LOOP;
3809:
3810: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3812: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
3813: RAISE OKL_API.G_EXCEPTION_ERROR;
3814: END IF;
3815: END IF;
3816: END LOOP;
3817:
3885: arp_message.set_name('AR','AR_ROWS_UPDATED');
3886: arp_message.set_token('NUM_ROWS',to_char(l_count));
3887: END IF;
3888:
3889: OKL_API.END_ACTIVITY(
3890: x_msg_count => x_msg_count
3891: ,x_msg_data => x_msg_data);
3892: EXCEPTION
3893: WHEN OKL_API.G_EXCEPTION_ERROR
3889: OKL_API.END_ACTIVITY(
3890: x_msg_count => x_msg_count
3891: ,x_msg_data => x_msg_data);
3892: EXCEPTION
3893: WHEN OKL_API.G_EXCEPTION_ERROR
3894: THEN
3895: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3896: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3897: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3893: WHEN OKL_API.G_EXCEPTION_ERROR
3894: THEN
3895: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3896: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3897: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3898: p_api_name => l_api_name,
3899: p_pkg_name => G_PKG_NAME,
3900: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3901: x_msg_count => x_msg_count,
3896: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3897: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3898: p_api_name => l_api_name,
3899: p_pkg_name => G_PKG_NAME,
3900: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3901: x_msg_count => x_msg_count,
3902: x_msg_data => x_msg_data,
3903: p_api_type => G_API_TYPE);
3904: RAISE;
3901: x_msg_count => x_msg_count,
3902: x_msg_data => x_msg_data,
3903: p_api_type => G_API_TYPE);
3904: RAISE;
3905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3906: THEN
3907: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3908: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3909: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
3906: THEN
3907: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3908: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3909: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3910: p_api_name => l_api_name,
3911: p_pkg_name => G_PKG_NAME,
3912: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3913: x_msg_count => x_msg_count,
3908: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3909: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3910: p_api_name => l_api_name,
3911: p_pkg_name => G_PKG_NAME,
3912: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3913: x_msg_count => x_msg_count,
3914: x_msg_data => x_msg_data,
3915: p_api_type => G_API_TYPE);
3916: RAISE;
3917: WHEN OTHERS
3918: THEN
3919: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
3920: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
3921: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3922: p_api_name => l_api_name,
3923: p_pkg_name => G_PKG_NAME,
3924: p_exc_name => 'OTHERS',
3925: x_msg_count => x_msg_count,
3983: AND m.set_number = set_num;
3984: l_last_fetch BOOLEAN := FALSE;
3985: l_count NUMBER;
3986: BEGIN
3987: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3988: L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.LAP_ACCOUNT_MERGE';
3989:
3990: -- check for logging on PROCEDURE level
3991: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
3994: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
3995:
3996: -- call START_ACTIVITY to create savepoint, check compatibility
3997: -- and initialize message list
3998: l_return_status := OKL_API.START_ACTIVITY(
3999: p_api_name => l_api_name
4000: ,p_init_msg_list => l_init_msg_list
4001: ,p_api_type => G_API_TYPE
4002: ,x_return_status => l_return_status);
4001: ,p_api_type => G_API_TYPE
4002: ,x_return_status => l_return_status);
4003:
4004: -- check if activity started successfully
4005: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
4002: ,x_return_status => l_return_status);
4003:
4004: -- check if activity started successfully
4005: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
4010:
4003:
4004: -- check if activity started successfully
4005: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
4010:
4011: l_count := 0;
4004: -- check if activity started successfully
4005: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
4010:
4011: l_count := 0;
4012: IF process_mode='LOCK' THEN
4088: ' result status ' || l_return_status ||
4089: ' x_msg_data ' || x_msg_data);
4090: END IF; -- end of statement level debug
4091:
4092: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4095: RAISE OKL_API.G_EXCEPTION_ERROR;
4096: END IF;
4089: ' x_msg_data ' || x_msg_data);
4090: END IF; -- end of statement level debug
4091:
4092: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4095: RAISE OKL_API.G_EXCEPTION_ERROR;
4096: END IF;
4097: END IF;
4090: END IF; -- end of statement level debug
4091:
4092: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4095: RAISE OKL_API.G_EXCEPTION_ERROR;
4096: END IF;
4097: END IF;
4098: ELSE
4091:
4092: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4094: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4095: RAISE OKL_API.G_EXCEPTION_ERROR;
4096: END IF;
4097: END IF;
4098: ELSE
4099: PROSPECT_ADDRESS_ID_LIST(I) := NULL;
4136: ,' result status ' || l_return_status ||
4137: ' x_msg_data ' || x_msg_data);
4138: END IF; -- end of statement level debug
4139:
4140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4143: RAISE OKL_API.G_EXCEPTION_ERROR;
4144: END IF;
4137: ' x_msg_data ' || x_msg_data);
4138: END IF; -- end of statement level debug
4139:
4140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4143: RAISE OKL_API.G_EXCEPTION_ERROR;
4144: END IF;
4145: END IF;
4138: END IF; -- end of statement level debug
4139:
4140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4143: RAISE OKL_API.G_EXCEPTION_ERROR;
4144: END IF;
4145: END IF;
4146: END LOOP;
4139:
4140: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
4141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4142: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)THEN
4143: RAISE OKL_API.G_EXCEPTION_ERROR;
4144: END IF;
4145: END IF;
4146: END LOOP;
4147: IF l_profile_val IS NOT NULL AND l_profile_val = 'Y'
4204: arp_message.set_name('AR','AR_ROWS_UPDATED');
4205: arp_message.set_token('NUM_ROWS',to_char(l_count));
4206: END IF;
4207:
4208: OKL_API.END_ACTIVITY(
4209: x_msg_count => x_msg_count
4210: ,x_msg_data => x_msg_data);
4211: EXCEPTION
4212: WHEN OKL_API.G_EXCEPTION_ERROR
4208: OKL_API.END_ACTIVITY(
4209: x_msg_count => x_msg_count
4210: ,x_msg_data => x_msg_data);
4211: EXCEPTION
4212: WHEN OKL_API.G_EXCEPTION_ERROR
4213: THEN
4214: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4215: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4216: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4212: WHEN OKL_API.G_EXCEPTION_ERROR
4213: THEN
4214: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4215: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4216: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4217: p_api_name => l_api_name,
4218: p_pkg_name => G_PKG_NAME,
4219: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4220: x_msg_count => x_msg_count,
4215: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4216: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4217: p_api_name => l_api_name,
4218: p_pkg_name => G_PKG_NAME,
4219: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4220: x_msg_count => x_msg_count,
4221: x_msg_data => x_msg_data,
4222: p_api_type => G_API_TYPE);
4223: RAISE;
4220: x_msg_count => x_msg_count,
4221: x_msg_data => x_msg_data,
4222: p_api_type => G_API_TYPE);
4223: RAISE;
4224: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4225: THEN
4226: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4227: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4228: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4224: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
4225: THEN
4226: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4227: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4228: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4229: p_api_name => l_api_name,
4230: p_pkg_name => G_PKG_NAME,
4231: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4232: x_msg_count => x_msg_count,
4227: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4228: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4229: p_api_name => l_api_name,
4230: p_pkg_name => G_PKG_NAME,
4231: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4232: x_msg_count => x_msg_count,
4233: x_msg_data => x_msg_data,
4234: p_api_type => G_API_TYPE);
4235: RAISE;
4236: WHEN OTHERS
4237: THEN
4238: arp_message.set_line(G_PKG_NAME || '.' || l_api_name || ': ' || sqlerrm);
4239: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
4240: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4241: p_api_name => l_api_name,
4242: p_pkg_name => G_PKG_NAME,
4243: p_exc_name => 'OTHERS',
4244: x_msg_count => x_msg_count,