1: PACKAGE BODY HZ_MERGE_DUP_CHECK AS
2: /*$Header: ARHMDUPB.pls 120.15.12010000.2 2008/09/08 07:06:18 kguggila ship $ */
3:
4: FUNCTION check_cust_account_dup(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2)
3:
4: FUNCTION check_cust_account_dup(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2)
10: RETURN VARCHAR2 IS
11:
4: FUNCTION check_cust_account_dup(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2)
10: RETURN VARCHAR2 IS
11:
12: BEGIN
9: x_return_status IN OUT NOCOPY VARCHAR2)
10: RETURN VARCHAR2 IS
11:
12: BEGIN
13: x_to_id := FND_API.G_MISS_NUM;
14: RETURN FND_API.G_FALSE;
15: END check_cust_account_dup;
16:
17: FUNCTION check_cust_account_role_dup(
10: RETURN VARCHAR2 IS
11:
12: BEGIN
13: x_to_id := FND_API.G_MISS_NUM;
14: RETURN FND_API.G_FALSE;
15: END check_cust_account_dup;
16:
17: FUNCTION check_cust_account_role_dup(
18: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
14: RETURN FND_API.G_FALSE;
15: END check_cust_account_dup;
16:
17: FUNCTION check_cust_account_role_dup(
18: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
19: x_to_id IN OUT NOCOPY NUMBER,
20: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
21: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
22: x_return_status IN OUT NOCOPY VARCHAR2)
16:
17: FUNCTION check_cust_account_role_dup(
18: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
19: x_to_id IN OUT NOCOPY NUMBER,
20: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
21: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
22: x_return_status IN OUT NOCOPY VARCHAR2)
23: RETURN VARCHAR2 IS
24:
17: FUNCTION check_cust_account_role_dup(
18: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
19: x_to_id IN OUT NOCOPY NUMBER,
20: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
21: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
22: x_return_status IN OUT NOCOPY VARCHAR2)
23: RETURN VARCHAR2 IS
24:
25: BEGIN
22: x_return_status IN OUT NOCOPY VARCHAR2)
23: RETURN VARCHAR2 IS
24:
25: BEGIN
26: x_to_id := FND_API.G_MISS_NUM;
27: RETURN FND_API.G_FALSE;
28: END check_cust_account_role_dup;
29:
30: FUNCTION check_cust_account_site_dup(
23: RETURN VARCHAR2 IS
24:
25: BEGIN
26: x_to_id := FND_API.G_MISS_NUM;
27: RETURN FND_API.G_FALSE;
28: END check_cust_account_role_dup;
29:
30: FUNCTION check_cust_account_site_dup(
31: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
27: RETURN FND_API.G_FALSE;
28: END check_cust_account_role_dup;
29:
30: FUNCTION check_cust_account_site_dup(
31: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
32: x_to_id IN OUT NOCOPY NUMBER,
33: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
34: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: x_return_status IN OUT NOCOPY VARCHAR2)
29:
30: FUNCTION check_cust_account_site_dup(
31: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
32: x_to_id IN OUT NOCOPY NUMBER,
33: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
34: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: x_return_status IN OUT NOCOPY VARCHAR2)
36: RETURN VARCHAR2 IS
37:
30: FUNCTION check_cust_account_site_dup(
31: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
32: x_to_id IN OUT NOCOPY NUMBER,
33: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
34: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: x_return_status IN OUT NOCOPY VARCHAR2)
36: RETURN VARCHAR2 IS
37:
38: BEGIN
35: x_return_status IN OUT NOCOPY VARCHAR2)
36: RETURN VARCHAR2 IS
37:
38: BEGIN
39: x_to_id := FND_API.G_MISS_NUM;
40: RETURN FND_API.G_FALSE;
41: END check_cust_account_site_dup;
42:
43: FUNCTION check_financial_profile_dup(
36: RETURN VARCHAR2 IS
37:
38: BEGIN
39: x_to_id := FND_API.G_MISS_NUM;
40: RETURN FND_API.G_FALSE;
41: END check_cust_account_site_dup;
42:
43: FUNCTION check_financial_profile_dup(
44: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
40: RETURN FND_API.G_FALSE;
41: END check_cust_account_site_dup;
42:
43: FUNCTION check_financial_profile_dup(
44: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
45: x_to_id IN OUT NOCOPY NUMBER,
46: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
47: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
48: x_return_status IN OUT NOCOPY VARCHAR2)
42:
43: FUNCTION check_financial_profile_dup(
44: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
45: x_to_id IN OUT NOCOPY NUMBER,
46: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
47: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
48: x_return_status IN OUT NOCOPY VARCHAR2)
49: RETURN VARCHAR2 IS
50:
43: FUNCTION check_financial_profile_dup(
44: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
45: x_to_id IN OUT NOCOPY NUMBER,
46: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
47: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
48: x_return_status IN OUT NOCOPY VARCHAR2)
49: RETURN VARCHAR2 IS
50:
51: CURSOR dupcheck IS
74: WHERE financial_profile_id = p_from_id);
75:
76: l_record_id NUMBER;
77: BEGIN
78: x_to_id := FND_API.G_MISS_NUM;
79:
80: OPEN dupcheck;
81: FETCH dupcheck INTO l_record_id;
82: IF dupcheck%NOTFOUND THEN
80: OPEN dupcheck;
81: FETCH dupcheck INTO l_record_id;
82: IF dupcheck%NOTFOUND THEN
83: CLOSE dupcheck;
84: RETURN FND_API.G_FALSE;
85: END IF;
86:
87: x_to_id := l_record_id;
88: CLOSE dupcheck;
85: END IF;
86:
87: x_to_id := l_record_id;
88: CLOSE dupcheck;
89: RETURN FND_API.G_TRUE;
90:
91: EXCEPTION
92: WHEN OTHERS THEN
93: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
92: WHEN OTHERS THEN
93: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
94: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
95: FND_MSG_PUB.ADD;
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: END check_financial_profile_dup;
98:
99: FUNCTION check_contact_point_dup(
100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: END check_financial_profile_dup;
98:
99: FUNCTION check_contact_point_dup(
100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
101: x_to_id IN OUT NOCOPY NUMBER,
102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
104: p_owner_table_name IN VARCHAR2,
98:
99: FUNCTION check_contact_point_dup(
100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
101: x_to_id IN OUT NOCOPY NUMBER,
102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
104: p_owner_table_name IN VARCHAR2,
105: x_return_status IN OUT NOCOPY VARCHAR2)
106: RETURN VARCHAR2 IS
99: FUNCTION check_contact_point_dup(
100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
101: x_to_id IN OUT NOCOPY NUMBER,
102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
104: p_owner_table_name IN VARCHAR2,
105: x_return_status IN OUT NOCOPY VARCHAR2)
106: RETURN VARCHAR2 IS
107:
192: l_cont_source_type VARCHAR2(255);
193: l_source_type VARCHAR2(1) :='S';
194: BEGIN
195:
196: x_to_id := FND_API.G_MISS_NUM;
197:
198: OPEN c_cont_source;
199: FETCH c_cont_source INTO l_cont_source;
200: CLOSE c_cont_source;
199: FETCH c_cont_source INTO l_cont_source;
200: CLOSE c_cont_source;
201:
202: IF l_cont_source = 'DNB' THEN
203: RETURN FND_API.G_FALSE;
204: ELSE---Find Whether Purchased or Spoke
205: SELECT orig_system_type INTO l_cont_source_type
206: FROM HZ_ORIG_SYSTEMS_B WHERE orig_system = l_cont_source;
207: IF l_cont_source_type = 'PURCHASED' THEN
212: OPEN dupcheck(l_source_type);
213: FETCH dupcheck INTO l_record_id;
214: IF dupcheck%NOTFOUND THEN
215: CLOSE dupcheck;
216: RETURN FND_API.G_FALSE;
217: END IF;
218:
219: x_to_id := l_record_id;
220: CLOSE dupcheck;
217: END IF;
218:
219: x_to_id := l_record_id;
220: CLOSE dupcheck;
221: RETURN FND_API.G_TRUE;
222:
223: EXCEPTION
224: WHEN OTHERS THEN
225: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
224: WHEN OTHERS THEN
225: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
226: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
227: FND_MSG_PUB.ADD;
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: END check_contact_point_dup;
230:
231: FUNCTION check_references_dup(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: END check_contact_point_dup;
230:
231: FUNCTION check_references_dup(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2)
230:
231: FUNCTION check_references_dup(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2)
237: RETURN VARCHAR2 IS
238:
231: FUNCTION check_references_dup(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2)
237: RETURN VARCHAR2 IS
238:
239: CURSOR dupcheck IS
255:
256: l_record_id NUMBER;
257: BEGIN
258:
259: x_to_id := FND_API.G_MISS_NUM;
260:
261: OPEN dupcheck;
262: FETCH dupcheck INTO l_record_id;
263: IF dupcheck%NOTFOUND THEN
261: OPEN dupcheck;
262: FETCH dupcheck INTO l_record_id;
263: IF dupcheck%NOTFOUND THEN
264: CLOSE dupcheck;
265: RETURN FND_API.G_FALSE;
266: END IF;
267:
268: x_to_id := l_record_id;
269: CLOSE dupcheck;
266: END IF;
267:
268: x_to_id := l_record_id;
269: CLOSE dupcheck;
270: RETURN FND_API.G_TRUE;
271:
272: EXCEPTION
273: WHEN OTHERS THEN
274: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
273: WHEN OTHERS THEN
274: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
275: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
276: FND_MSG_PUB.ADD;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: END check_references_dup;
279:
280:
281: FUNCTION check_certification_dup(
278: END check_references_dup;
279:
280:
281: FUNCTION check_certification_dup(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2)
280:
281: FUNCTION check_certification_dup(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2)
287: RETURN VARCHAR2 IS
288:
281: FUNCTION check_certification_dup(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2)
287: RETURN VARCHAR2 IS
288:
289: CURSOR dupcheck IS
311:
312: l_record_id NUMBER;
313: BEGIN
314:
315: x_to_id := FND_API.G_MISS_NUM;
316:
317: OPEN dupcheck;
318: FETCH dupcheck INTO l_record_id;
319: IF dupcheck%NOTFOUND THEN
317: OPEN dupcheck;
318: FETCH dupcheck INTO l_record_id;
319: IF dupcheck%NOTFOUND THEN
320: CLOSE dupcheck;
321: RETURN FND_API.G_FALSE;
322: END IF;
323:
324: x_to_id := l_record_id;
325: CLOSE dupcheck;
322: END IF;
323:
324: x_to_id := l_record_id;
325: CLOSE dupcheck;
326: RETURN FND_API.G_TRUE;
327:
328: EXCEPTION
329: WHEN OTHERS THEN
330: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
329: WHEN OTHERS THEN
330: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
331: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
332: FND_MSG_PUB.ADD;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: END check_certification_dup;
335:
336:
337: FUNCTION check_credit_ratings_dup(
334: END check_certification_dup;
335:
336:
337: FUNCTION check_credit_ratings_dup(
338: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
339: x_to_id IN OUT NOCOPY NUMBER,
340: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
341: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
342: x_return_status IN OUT NOCOPY VARCHAR2)
336:
337: FUNCTION check_credit_ratings_dup(
338: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
339: x_to_id IN OUT NOCOPY NUMBER,
340: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
341: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
342: x_return_status IN OUT NOCOPY VARCHAR2)
343: RETURN VARCHAR2 IS
344:
337: FUNCTION check_credit_ratings_dup(
338: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
339: x_to_id IN OUT NOCOPY NUMBER,
340: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
341: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
342: x_return_status IN OUT NOCOPY VARCHAR2)
343: RETURN VARCHAR2 IS
344:
345: CURSOR dupcheck (source_type VARCHAR2) IS
370: l_cont_source_type VARCHAR2(255);
371: l_source_type VARCHAR2(1) :='S';
372: BEGIN
373:
374: x_to_id := FND_API.G_MISS_NUM;
375:
376: OPEN c_cont_source;
377: FETCH c_cont_source INTO l_cont_source;
378: CLOSE c_cont_source;
377: FETCH c_cont_source INTO l_cont_source;
378: CLOSE c_cont_source;
379:
380: IF l_cont_source = 'DNB' THEN
381: RETURN FND_API.G_FALSE;
382: ELSE---Find Whether Purchased or Spoke
383: SELECT orig_system_type INTO l_cont_source_type
384: FROM HZ_ORIG_SYSTEMS_B WHERE orig_system = l_cont_source;
385: IF l_cont_source_type = 'PURCHASED' THEN
390: OPEN dupcheck(l_source_type);
391: FETCH dupcheck INTO l_record_id;
392: IF dupcheck%NOTFOUND THEN
393: CLOSE dupcheck;
394: RETURN FND_API.G_FALSE;
395: END IF;
396:
397: x_to_id := l_record_id;
398: CLOSE dupcheck;
396:
397: x_to_id := l_record_id;
398: CLOSE dupcheck;
399:
400: RETURN FND_API.G_TRUE;
401: EXCEPTION
402: WHEN OTHERS THEN
403: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
404: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
402: WHEN OTHERS THEN
403: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
404: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
405: FND_MSG_PUB.ADD;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: END check_credit_ratings_dup;
408:
409:
410: FUNCTION check_security_issued_dup(
407: END check_credit_ratings_dup;
408:
409:
410: FUNCTION check_security_issued_dup(
411: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
412: x_to_id IN OUT NOCOPY NUMBER,
413: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
414: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
415: x_return_status IN OUT NOCOPY VARCHAR2)
409:
410: FUNCTION check_security_issued_dup(
411: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
412: x_to_id IN OUT NOCOPY NUMBER,
413: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
414: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
415: x_return_status IN OUT NOCOPY VARCHAR2)
416: RETURN VARCHAR2 IS
417:
410: FUNCTION check_security_issued_dup(
411: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
412: x_to_id IN OUT NOCOPY NUMBER,
413: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
414: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
415: x_return_status IN OUT NOCOPY VARCHAR2)
416: RETURN VARCHAR2 IS
417:
418: CURSOR dupcheck IS
446:
447: l_record_id NUMBER;
448: BEGIN
449:
450: x_to_id := FND_API.G_MISS_NUM;
451:
452: OPEN dupcheck;
453: FETCH dupcheck INTO l_record_id;
454: IF dupcheck%NOTFOUND THEN
452: OPEN dupcheck;
453: FETCH dupcheck INTO l_record_id;
454: IF dupcheck%NOTFOUND THEN
455: CLOSE dupcheck;
456: RETURN FND_API.G_FALSE;
457: END IF;
458:
459: x_to_id := l_record_id;
460: CLOSE dupcheck;
457: END IF;
458:
459: x_to_id := l_record_id;
460: CLOSE dupcheck;
461: RETURN FND_API.G_TRUE;
462:
463: EXCEPTION
464: WHEN OTHERS THEN
465: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
464: WHEN OTHERS THEN
465: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
466: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
467: FND_MSG_PUB.ADD;
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: END check_security_issued_dup;
470:
471: FUNCTION check_financial_reports_dup(
472: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: END check_security_issued_dup;
470:
471: FUNCTION check_financial_reports_dup(
472: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
473: x_to_id IN OUT NOCOPY NUMBER,
474: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
475: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
476: x_return_status IN OUT NOCOPY VARCHAR2)
470:
471: FUNCTION check_financial_reports_dup(
472: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
473: x_to_id IN OUT NOCOPY NUMBER,
474: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
475: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
476: x_return_status IN OUT NOCOPY VARCHAR2)
477: RETURN VARCHAR2 IS
478:
471: FUNCTION check_financial_reports_dup(
472: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
473: x_to_id IN OUT NOCOPY NUMBER,
474: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
475: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
476: x_return_status IN OUT NOCOPY VARCHAR2)
477: RETURN VARCHAR2 IS
478:
479: CURSOR dupcheck (source_type VARCHAR2) IS
526: l_source_type VARCHAR2(1) :='S';
527:
528: BEGIN
529:
530: x_to_id := FND_API.G_MISS_NUM;
531:
532: OPEN c_cont_source;
533: FETCH c_cont_source INTO l_cont_source;
534: CLOSE c_cont_source;
538: OPEN dnb_dup_check;
539: FETCH dnb_dup_check INTO l_record_id;
540: IF dnb_dup_check%NOTFOUND THEN
541: CLOSE dnb_dup_check;
542: RETURN FND_API.G_FALSE;
543: END IF;
544: x_to_id := l_record_id;
545: CLOSE dnb_dup_check;
546: RETURN FND_API.G_TRUE;
542: RETURN FND_API.G_FALSE;
543: END IF;
544: x_to_id := l_record_id;
545: CLOSE dnb_dup_check;
546: RETURN FND_API.G_TRUE;
547:
548: ELSE---Find Whether Purchased or Spoke
549: SELECT orig_system_type INTO l_cont_source_type
550: FROM HZ_ORIG_SYSTEMS_B WHERE orig_system = l_cont_source;
558: OPEN dupcheck(l_source_type);
559: FETCH dupcheck INTO l_record_id;
560: IF dupcheck%NOTFOUND THEN
561: CLOSE dupcheck;
562: RETURN FND_API.G_FALSE;
563: END IF;
564:
565: x_to_id := l_record_id;
566: CLOSE dupcheck;
564:
565: x_to_id := l_record_id;
566: CLOSE dupcheck;
567:
568: RETURN FND_API.G_TRUE;
569:
570: EXCEPTION
571: WHEN OTHERS THEN
572: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
571: WHEN OTHERS THEN
572: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
573: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
574: FND_MSG_PUB.ADD;
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: END check_financial_reports_dup;
577:
578:
579: FUNCTION check_org_indicators_dup(
576: END check_financial_reports_dup;
577:
578:
579: FUNCTION check_org_indicators_dup(
580: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
581: x_to_id IN OUT NOCOPY NUMBER,
582: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
583: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
584: x_return_status IN OUT NOCOPY VARCHAR2)
578:
579: FUNCTION check_org_indicators_dup(
580: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
581: x_to_id IN OUT NOCOPY NUMBER,
582: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
583: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
584: x_return_status IN OUT NOCOPY VARCHAR2)
585: RETURN VARCHAR2 IS
586:
579: FUNCTION check_org_indicators_dup(
580: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
581: x_to_id IN OUT NOCOPY NUMBER,
582: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
583: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
584: x_return_status IN OUT NOCOPY VARCHAR2)
585: RETURN VARCHAR2 IS
586:
587: CURSOR dupcheck IS
608:
609: l_record_id NUMBER;
610: BEGIN
611:
612: x_to_id := FND_API.G_MISS_NUM;
613:
614: OPEN dupcheck;
615: FETCH dupcheck INTO l_record_id;
616: IF dupcheck%NOTFOUND THEN
614: OPEN dupcheck;
615: FETCH dupcheck INTO l_record_id;
616: IF dupcheck%NOTFOUND THEN
617: CLOSE dupcheck;
618: RETURN FND_API.G_FALSE;
619: END IF;
620:
621: x_to_id := l_record_id;
622: CLOSE dupcheck;
619: END IF;
620:
621: x_to_id := l_record_id;
622: CLOSE dupcheck;
623: RETURN FND_API.G_TRUE;
624:
625: EXCEPTION
626: WHEN OTHERS THEN
627: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
626: WHEN OTHERS THEN
627: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
628: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
629: FND_MSG_PUB.ADD;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: END check_org_indicators_dup;
632:
633: FUNCTION check_ind_reference_dup(
634: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: END check_org_indicators_dup;
632:
633: FUNCTION check_ind_reference_dup(
634: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
635: x_to_id IN OUT NOCOPY NUMBER,
636: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
637: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
638: x_return_status IN OUT NOCOPY VARCHAR2)
632:
633: FUNCTION check_ind_reference_dup(
634: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
635: x_to_id IN OUT NOCOPY NUMBER,
636: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
637: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
638: x_return_status IN OUT NOCOPY VARCHAR2)
639: RETURN VARCHAR2 IS
640:
633: FUNCTION check_ind_reference_dup(
634: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
635: x_to_id IN OUT NOCOPY NUMBER,
636: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
637: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
638: x_return_status IN OUT NOCOPY VARCHAR2)
639: RETURN VARCHAR2 IS
640:
641: CURSOR dupcheck IS
659:
660: l_record_id NUMBER;
661: BEGIN
662:
663: x_to_id := FND_API.G_MISS_NUM;
664:
665: OPEN dupcheck;
666: FETCH dupcheck INTO l_record_id;
667: IF dupcheck%NOTFOUND THEN
665: OPEN dupcheck;
666: FETCH dupcheck INTO l_record_id;
667: IF dupcheck%NOTFOUND THEN
668: CLOSE dupcheck;
669: RETURN FND_API.G_FALSE;
670: END IF;
671:
672: x_to_id := l_record_id;
673: CLOSE dupcheck;
670: END IF;
671:
672: x_to_id := l_record_id;
673: CLOSE dupcheck;
674: RETURN FND_API.G_TRUE;
675:
676: EXCEPTION
677: WHEN OTHERS THEN
678: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
677: WHEN OTHERS THEN
678: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
679: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
680: FND_MSG_PUB.ADD;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: END check_ind_reference_dup;
683:
684: FUNCTION check_per_interest_dup(
685: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
682: END check_ind_reference_dup;
683:
684: FUNCTION check_per_interest_dup(
685: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
686: x_to_id IN OUT NOCOPY NUMBER,
687: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
688: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
689: x_return_status IN OUT NOCOPY VARCHAR2)
683:
684: FUNCTION check_per_interest_dup(
685: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
686: x_to_id IN OUT NOCOPY NUMBER,
687: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
688: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
689: x_return_status IN OUT NOCOPY VARCHAR2)
690: RETURN VARCHAR2 IS
691:
684: FUNCTION check_per_interest_dup(
685: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
686: x_to_id IN OUT NOCOPY NUMBER,
687: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
688: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
689: x_return_status IN OUT NOCOPY VARCHAR2)
690: RETURN VARCHAR2 IS
691:
692: CURSOR dupcheck IS
706:
707: l_record_id NUMBER;
708: BEGIN
709:
710: x_to_id := FND_API.G_MISS_NUM;
711:
712: OPEN dupcheck;
713: FETCH dupcheck INTO l_record_id;
714: IF dupcheck%NOTFOUND THEN
712: OPEN dupcheck;
713: FETCH dupcheck INTO l_record_id;
714: IF dupcheck%NOTFOUND THEN
715: CLOSE dupcheck;
716: RETURN FND_API.G_FALSE;
717: END IF;
718:
719: x_to_id := l_record_id;
720: CLOSE dupcheck;
717: END IF;
718:
719: x_to_id := l_record_id;
720: CLOSE dupcheck;
721: RETURN FND_API.G_TRUE;
722:
723: EXCEPTION
724: WHEN OTHERS THEN
725: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
724: WHEN OTHERS THEN
725: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
726: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
727: FND_MSG_PUB.ADD;
728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
729: END check_per_interest_dup;
730:
731:
732: FUNCTION check_citizenship_dup(
729: END check_per_interest_dup;
730:
731:
732: FUNCTION check_citizenship_dup(
733: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
734: x_to_id IN OUT NOCOPY NUMBER,
735: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
736: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
737: x_return_status IN OUT NOCOPY VARCHAR2)
731:
732: FUNCTION check_citizenship_dup(
733: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
734: x_to_id IN OUT NOCOPY NUMBER,
735: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
736: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
737: x_return_status IN OUT NOCOPY VARCHAR2)
738: RETURN VARCHAR2 IS
739:
732: FUNCTION check_citizenship_dup(
733: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
734: x_to_id IN OUT NOCOPY NUMBER,
735: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
736: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
737: x_return_status IN OUT NOCOPY VARCHAR2)
738: RETURN VARCHAR2 IS
739:
740: CURSOR dupcheck IS
764:
765: l_record_id NUMBER;
766: BEGIN
767:
768: x_to_id := FND_API.G_MISS_NUM;
769:
770: OPEN dupcheck;
771: FETCH dupcheck INTO l_record_id;
772: IF dupcheck%NOTFOUND THEN
770: OPEN dupcheck;
771: FETCH dupcheck INTO l_record_id;
772: IF dupcheck%NOTFOUND THEN
773: CLOSE dupcheck;
774: RETURN FND_API.G_FALSE;
775: END IF;
776:
777: x_to_id := l_record_id;
778: CLOSE dupcheck;
775: END IF;
776:
777: x_to_id := l_record_id;
778: CLOSE dupcheck;
779: RETURN FND_API.G_TRUE;
780:
781: EXCEPTION
782: WHEN OTHERS THEN
783: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
782: WHEN OTHERS THEN
783: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
784: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
785: FND_MSG_PUB.ADD;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
787: END check_citizenship_dup;
788:
789:
790: FUNCTION check_education_dup(
787: END check_citizenship_dup;
788:
789:
790: FUNCTION check_education_dup(
791: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
792: x_to_id IN OUT NOCOPY NUMBER,
793: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
794: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
795: x_return_status IN OUT NOCOPY VARCHAR2)
789:
790: FUNCTION check_education_dup(
791: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
792: x_to_id IN OUT NOCOPY NUMBER,
793: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
794: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
795: x_return_status IN OUT NOCOPY VARCHAR2)
796: RETURN VARCHAR2 IS
797:
790: FUNCTION check_education_dup(
791: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
792: x_to_id IN OUT NOCOPY NUMBER,
793: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
794: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
795: x_return_status IN OUT NOCOPY VARCHAR2)
796: RETURN VARCHAR2 IS
797:
798: CURSOR dupcheck IS
822:
823: l_record_id NUMBER;
824: BEGIN
825:
826: x_to_id := FND_API.G_MISS_NUM;
827:
828: OPEN dupcheck;
829: FETCH dupcheck INTO l_record_id;
830: IF dupcheck%NOTFOUND THEN
828: OPEN dupcheck;
829: FETCH dupcheck INTO l_record_id;
830: IF dupcheck%NOTFOUND THEN
831: CLOSE dupcheck;
832: RETURN FND_API.G_FALSE;
833: END IF;
834:
835: x_to_id := l_record_id;
836: CLOSE dupcheck;
833: END IF;
834:
835: x_to_id := l_record_id;
836: CLOSE dupcheck;
837: RETURN FND_API.G_TRUE;
838:
839: EXCEPTION
840: WHEN OTHERS THEN
841: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
840: WHEN OTHERS THEN
841: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
842: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
843: FND_MSG_PUB.ADD;
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: END check_education_dup;
846:
847: FUNCTION check_work_class_dup(
848: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
845: END check_education_dup;
846:
847: FUNCTION check_work_class_dup(
848: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
849: x_to_id IN OUT NOCOPY NUMBER,
850: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
851: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
852: x_return_status IN OUT NOCOPY VARCHAR2)
846:
847: FUNCTION check_work_class_dup(
848: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
849: x_to_id IN OUT NOCOPY NUMBER,
850: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
851: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
852: x_return_status IN OUT NOCOPY VARCHAR2)
853: RETURN VARCHAR2 IS
854: CURSOR dupcheck IS
847: FUNCTION check_work_class_dup(
848: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
849: x_to_id IN OUT NOCOPY NUMBER,
850: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
851: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
852: x_return_status IN OUT NOCOPY VARCHAR2)
853: RETURN VARCHAR2 IS
854: CURSOR dupcheck IS
855: SELECT
865: WHERE work_class_id = p_from_id);
866: l_record_id NUMBER;
867: BEGIN
868:
869: x_to_id := FND_API.G_MISS_NUM;
870:
871: OPEN dupcheck;
872: FETCH dupcheck INTO l_record_id;
873: IF dupcheck%NOTFOUND THEN
871: OPEN dupcheck;
872: FETCH dupcheck INTO l_record_id;
873: IF dupcheck%NOTFOUND THEN
874: CLOSE dupcheck;
875: RETURN FND_API.G_FALSE;
876: END IF;
877:
878: x_to_id := l_record_id;
879: CLOSE dupcheck;
876: END IF;
877:
878: x_to_id := l_record_id;
879: CLOSE dupcheck;
880: RETURN FND_API.G_TRUE;
881:
882: EXCEPTION
883: WHEN OTHERS THEN
884: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
883: WHEN OTHERS THEN
884: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
885: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
886: FND_MSG_PUB.ADD;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888: END check_work_class_dup;
889:
890:
891: FUNCTION check_emp_history_dup(
888: END check_work_class_dup;
889:
890:
891: FUNCTION check_emp_history_dup(
892: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
893: x_to_id IN OUT NOCOPY NUMBER,
894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
896: x_return_status IN OUT NOCOPY VARCHAR2)
890:
891: FUNCTION check_emp_history_dup(
892: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
893: x_to_id IN OUT NOCOPY NUMBER,
894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
896: x_return_status IN OUT NOCOPY VARCHAR2)
897: RETURN VARCHAR2 IS
898:
891: FUNCTION check_emp_history_dup(
892: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
893: x_to_id IN OUT NOCOPY NUMBER,
894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
896: x_return_status IN OUT NOCOPY VARCHAR2)
897: RETURN VARCHAR2 IS
898:
899: CURSOR dupcheck IS
929:
930: l_record_id NUMBER;
931: BEGIN
932:
933: x_to_id := FND_API.G_MISS_NUM;
934:
935: OPEN dupcheck;
936: FETCH dupcheck INTO l_record_id;
937: IF dupcheck%NOTFOUND THEN
935: OPEN dupcheck;
936: FETCH dupcheck INTO l_record_id;
937: IF dupcheck%NOTFOUND THEN
938: CLOSE dupcheck;
939: RETURN FND_API.G_FALSE;
940: END IF;
941:
942: x_to_id := l_record_id;
943: CLOSE dupcheck;
940: END IF;
941:
942: x_to_id := l_record_id;
943: CLOSE dupcheck;
944: RETURN FND_API.G_TRUE;
945:
946: EXCEPTION
947: WHEN OTHERS THEN
948: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
947: WHEN OTHERS THEN
948: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
949: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
950: FND_MSG_PUB.ADD;
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952: END check_emp_history_dup;
953:
954:
955: FUNCTION check_languages_dup(
952: END check_emp_history_dup;
953:
954:
955: FUNCTION check_languages_dup(
956: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
957: x_to_id IN OUT NOCOPY NUMBER,
958: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
959: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
960: x_return_status IN OUT NOCOPY VARCHAR2)
954:
955: FUNCTION check_languages_dup(
956: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
957: x_to_id IN OUT NOCOPY NUMBER,
958: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
959: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
960: x_return_status IN OUT NOCOPY VARCHAR2)
961: RETURN VARCHAR2 IS
962:
955: FUNCTION check_languages_dup(
956: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
957: x_to_id IN OUT NOCOPY NUMBER,
958: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
959: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
960: x_return_status IN OUT NOCOPY VARCHAR2)
961: RETURN VARCHAR2 IS
962:
963: CURSOR dupcheck IS
974:
975: l_record_id NUMBER;
976: BEGIN
977:
978: x_to_id := FND_API.G_MISS_NUM;
979:
980: OPEN dupcheck;
981: FETCH dupcheck INTO l_record_id;
982: IF dupcheck%NOTFOUND THEN
980: OPEN dupcheck;
981: FETCH dupcheck INTO l_record_id;
982: IF dupcheck%NOTFOUND THEN
983: CLOSE dupcheck;
984: RETURN FND_API.G_FALSE;
985: END IF;
986:
987: x_to_id := l_record_id;
988: CLOSE dupcheck;
985: END IF;
986:
987: x_to_id := l_record_id;
988: CLOSE dupcheck;
989: RETURN FND_API.G_TRUE;
990:
991: EXCEPTION
992: WHEN OTHERS THEN
993: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
992: WHEN OTHERS THEN
993: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
994: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
995: FND_MSG_PUB.ADD;
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: END check_languages_dup;
998:
999: FUNCTION check_party_site_use_dup(
1000: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
997: END check_languages_dup;
998:
999: FUNCTION check_party_site_use_dup(
1000: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1001: x_to_id IN OUT NOCOPY NUMBER,
1002: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1003: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1004: x_return_status IN OUT NOCOPY VARCHAR2)
998:
999: FUNCTION check_party_site_use_dup(
1000: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1001: x_to_id IN OUT NOCOPY NUMBER,
1002: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1003: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1004: x_return_status IN OUT NOCOPY VARCHAR2)
1005: RETURN VARCHAR2 IS
1006:
999: FUNCTION check_party_site_use_dup(
1000: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1001: x_to_id IN OUT NOCOPY NUMBER,
1002: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1003: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1004: x_return_status IN OUT NOCOPY VARCHAR2)
1005: RETURN VARCHAR2 IS
1006:
1007: ---Bug:2619948 remove comments, begin_date and end_date from duplicate check
1020:
1021: l_record_id NUMBER;
1022: BEGIN
1023:
1024: x_to_id := FND_API.G_MISS_NUM;
1025:
1026: OPEN dupcheck;
1027: FETCH dupcheck INTO l_record_id;
1028: IF dupcheck%NOTFOUND THEN
1026: OPEN dupcheck;
1027: FETCH dupcheck INTO l_record_id;
1028: IF dupcheck%NOTFOUND THEN
1029: CLOSE dupcheck;
1030: RETURN FND_API.G_FALSE;
1031: END IF;
1032:
1033: x_to_id := l_record_id;
1034: CLOSE dupcheck;
1031: END IF;
1032:
1033: x_to_id := l_record_id;
1034: CLOSE dupcheck;
1035: RETURN FND_API.G_TRUE;
1036:
1037: EXCEPTION
1038: WHEN OTHERS THEN
1039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1038: WHEN OTHERS THEN
1039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1040: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1041: FND_MSG_PUB.ADD;
1042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1043: END check_party_site_use_dup;
1044:
1045: FUNCTION check_party_site_dup(
1046: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1043: END check_party_site_use_dup;
1044:
1045: FUNCTION check_party_site_dup(
1046: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1047: x_to_id IN OUT NOCOPY NUMBER,
1048: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1049: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1050: x_return_status IN OUT NOCOPY VARCHAR2)
1044:
1045: FUNCTION check_party_site_dup(
1046: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1047: x_to_id IN OUT NOCOPY NUMBER,
1048: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1049: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1050: x_return_status IN OUT NOCOPY VARCHAR2)
1051: RETURN VARCHAR2 IS
1052:
1045: FUNCTION check_party_site_dup(
1046: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1047: x_to_id IN OUT NOCOPY NUMBER,
1048: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1049: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1050: x_return_status IN OUT NOCOPY VARCHAR2)
1051: RETURN VARCHAR2 IS
1052:
1053: CURSOR dupcheck IS
1063:
1064: l_record_id NUMBER;
1065: BEGIN
1066:
1067: x_to_id := FND_API.G_MISS_NUM;
1068:
1069: OPEN dupcheck;
1070: FETCH dupcheck INTO l_record_id;
1071: IF dupcheck%NOTFOUND THEN
1069: OPEN dupcheck;
1070: FETCH dupcheck INTO l_record_id;
1071: IF dupcheck%NOTFOUND THEN
1072: CLOSE dupcheck;
1073: RETURN FND_API.G_FALSE;
1074: END IF;
1075:
1076: x_to_id := l_record_id;
1077: CLOSE dupcheck;
1074: END IF;
1075:
1076: x_to_id := l_record_id;
1077: CLOSE dupcheck;
1078: RETURN FND_API.G_TRUE;
1079:
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1081: WHEN OTHERS THEN
1082: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1083: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1084: FND_MSG_PUB.ADD;
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086: END check_party_site_dup;
1087:
1088: FUNCTION check_code_assignment_dup(
1089: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1086: END check_party_site_dup;
1087:
1088: FUNCTION check_code_assignment_dup(
1089: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1090: x_to_id IN OUT NOCOPY NUMBER,
1091: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1092: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1093: p_owner_table_name IN VARCHAR2,
1087:
1088: FUNCTION check_code_assignment_dup(
1089: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1090: x_to_id IN OUT NOCOPY NUMBER,
1091: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1092: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1093: p_owner_table_name IN VARCHAR2,
1094: x_return_status IN OUT NOCOPY VARCHAR2)
1095: RETURN VARCHAR2 IS
1088: FUNCTION check_code_assignment_dup(
1089: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1090: x_to_id IN OUT NOCOPY NUMBER,
1091: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1092: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1093: p_owner_table_name IN VARCHAR2,
1094: x_return_status IN OUT NOCOPY VARCHAR2)
1095: RETURN VARCHAR2 IS
1096:
1119: l_temp NUMBER;
1120:
1121: BEGIN
1122:
1123: x_to_id := FND_API.G_MISS_NUM;
1124:
1125: OPEN c_cont_source;
1126: FETCH c_cont_source INTO l_cont_source;
1127: CLOSE c_cont_source;
1126: FETCH c_cont_source INTO l_cont_source;
1127: CLOSE c_cont_source;
1128:
1129: IF l_cont_source = 'DNB' THEN
1130: RETURN FND_API.G_FALSE;
1131: END IF;
1132:
1133: OPEN dupcheck;
1134: FETCH dupcheck INTO l_record_id;
1133: OPEN dupcheck;
1134: FETCH dupcheck INTO l_record_id;
1135: IF dupcheck%NOTFOUND THEN
1136: CLOSE dupcheck;
1137: RETURN FND_API.G_FALSE;
1138: END IF;
1139:
1140: x_to_id := l_record_id;
1141: CLOSE dupcheck;
1138: END IF;
1139:
1140: x_to_id := l_record_id;
1141: CLOSE dupcheck;
1142: RETURN FND_API.G_TRUE;
1143:
1144: END check_code_assignment_dup;
1145:
1146: FUNCTION check_financial_number_dup(
1143:
1144: END check_code_assignment_dup;
1145:
1146: FUNCTION check_financial_number_dup(
1147: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1148: x_to_id IN OUT NOCOPY NUMBER,
1149: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1150: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1151: x_return_status IN OUT NOCOPY VARCHAR2)
1145:
1146: FUNCTION check_financial_number_dup(
1147: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1148: x_to_id IN OUT NOCOPY NUMBER,
1149: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1150: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1151: x_return_status IN OUT NOCOPY VARCHAR2)
1152: RETURN VARCHAR2 IS
1153:
1146: FUNCTION check_financial_number_dup(
1147: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1148: x_to_id IN OUT NOCOPY NUMBER,
1149: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1150: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1151: x_return_status IN OUT NOCOPY VARCHAR2)
1152: RETURN VARCHAR2 IS
1153:
1154: CURSOR dupcheck IS
1165: l_record_id NUMBER;
1166:
1167: BEGIN
1168:
1169: x_to_id := FND_API.G_MISS_NUM;
1170:
1171: OPEN dupcheck;
1172: FETCH dupcheck INTO l_record_id;
1173: IF dupcheck%NOTFOUND THEN
1171: OPEN dupcheck;
1172: FETCH dupcheck INTO l_record_id;
1173: IF dupcheck%NOTFOUND THEN
1174: CLOSE dupcheck;
1175: RETURN FND_API.G_FALSE;
1176: END IF;
1177:
1178: x_to_id := l_record_id;
1179: CLOSE dupcheck;
1176: END IF;
1177:
1178: x_to_id := l_record_id;
1179: CLOSE dupcheck;
1180: RETURN FND_API.G_TRUE;
1181:
1182: END check_financial_number_dup;
1183:
1184: FUNCTION check_org_contact_role_dup(
1181:
1182: END check_financial_number_dup;
1183:
1184: FUNCTION check_org_contact_role_dup(
1185: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1186: x_to_id IN OUT NOCOPY NUMBER,
1187: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1188: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1189: x_return_status IN OUT NOCOPY VARCHAR2)
1183:
1184: FUNCTION check_org_contact_role_dup(
1185: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1186: x_to_id IN OUT NOCOPY NUMBER,
1187: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1188: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1189: x_return_status IN OUT NOCOPY VARCHAR2)
1190: RETURN VARCHAR2 IS
1191:
1184: FUNCTION check_org_contact_role_dup(
1185: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1186: x_to_id IN OUT NOCOPY NUMBER,
1187: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1188: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1189: x_return_status IN OUT NOCOPY VARCHAR2)
1190: RETURN VARCHAR2 IS
1191:
1192: CURSOR dupcheck IS
1202: l_record_id NUMBER;
1203:
1204: BEGIN
1205:
1206: x_to_id := FND_API.G_MISS_NUM;
1207:
1208: OPEN dupcheck;
1209: FETCH dupcheck INTO l_record_id;
1210: IF dupcheck%NOTFOUND THEN
1208: OPEN dupcheck;
1209: FETCH dupcheck INTO l_record_id;
1210: IF dupcheck%NOTFOUND THEN
1211: CLOSE dupcheck;
1212: RETURN FND_API.G_FALSE;
1213: END IF;
1214:
1215: x_to_id := l_record_id;
1216: CLOSE dupcheck;
1213: END IF;
1214:
1215: x_to_id := l_record_id;
1216: CLOSE dupcheck;
1217: RETURN FND_API.G_TRUE;
1218:
1219: END check_org_contact_role_dup;
1220:
1221: FUNCTION check_contact_preference_dup(
1218:
1219: END check_org_contact_role_dup;
1220:
1221: FUNCTION check_contact_preference_dup(
1222: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1223: x_to_id IN OUT NOCOPY NUMBER,
1224: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1225: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1226: p_owner_table_name IN VARCHAR2,
1220:
1221: FUNCTION check_contact_preference_dup(
1222: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1223: x_to_id IN OUT NOCOPY NUMBER,
1224: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1225: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1226: p_owner_table_name IN VARCHAR2,
1227: x_return_status IN OUT NOCOPY VARCHAR2)
1228: RETURN VARCHAR2 IS
1221: FUNCTION check_contact_preference_dup(
1222: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1223: x_to_id IN OUT NOCOPY NUMBER,
1224: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1225: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1226: p_owner_table_name IN VARCHAR2,
1227: x_return_status IN OUT NOCOPY VARCHAR2)
1228: RETURN VARCHAR2 IS
1229:
1280: l_record_id NUMBER;
1281:
1282: BEGIN
1283:
1284: x_to_id := FND_API.G_MISS_NUM;
1285:
1286: OPEN dupcheck;
1287: FETCH dupcheck INTO l_record_id;
1288: IF dupcheck%NOTFOUND THEN
1286: OPEN dupcheck;
1287: FETCH dupcheck INTO l_record_id;
1288: IF dupcheck%NOTFOUND THEN
1289: CLOSE dupcheck;
1290: RETURN FND_API.G_FALSE;
1291: END IF;
1292:
1293: x_to_id := l_record_id;
1294: CLOSE dupcheck;
1291: END IF;
1292:
1293: x_to_id := l_record_id;
1294: CLOSE dupcheck;
1295: RETURN FND_API.G_TRUE;
1296:
1297: EXCEPTION
1298: WHEN OTHERS THEN
1299: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1298: WHEN OTHERS THEN
1299: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1300: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1301: FND_MSG_PUB.ADD;
1302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1303: END check_contact_preference_dup;
1304:
1305: --Bug No: 4577535 fix checking for duplicate addresses
1306:
1304:
1305: --Bug No: 4577535 fix checking for duplicate addresses
1306:
1307: FUNCTION check_address_dup(
1308: p_from_location_id IN NUMBER:=FND_API.G_MISS_NUM,
1309: x_to_id IN OUT NOCOPY NUMBER,
1310: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1311: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1312: x_return_status IN OUT NOCOPY VARCHAR2)
1306:
1307: FUNCTION check_address_dup(
1308: p_from_location_id IN NUMBER:=FND_API.G_MISS_NUM,
1309: x_to_id IN OUT NOCOPY NUMBER,
1310: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1311: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1312: x_return_status IN OUT NOCOPY VARCHAR2)
1313: RETURN VARCHAR2 IS
1314:
1307: FUNCTION check_address_dup(
1308: p_from_location_id IN NUMBER:=FND_API.G_MISS_NUM,
1309: x_to_id IN OUT NOCOPY NUMBER,
1310: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1311: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1312: x_return_status IN OUT NOCOPY VARCHAR2)
1313: RETURN VARCHAR2 IS
1314:
1315: CURSOR dupcheck IS
1344:
1345: l_record_id NUMBER;
1346: BEGIN
1347:
1348: x_to_id := FND_API.G_MISS_NUM;
1349:
1350: OPEN dupcheck;
1351: FETCH dupcheck INTO l_record_id;
1352: IF dupcheck%NOTFOUND THEN
1350: OPEN dupcheck;
1351: FETCH dupcheck INTO l_record_id;
1352: IF dupcheck%NOTFOUND THEN
1353: CLOSE dupcheck;
1354: RETURN FND_API.G_FALSE;
1355: END IF;
1356:
1357: x_to_id := l_record_id;
1358: CLOSE dupcheck;
1355: END IF;
1356:
1357: x_to_id := l_record_id;
1358: CLOSE dupcheck;
1359: RETURN FND_API.G_TRUE;
1360:
1361: EXCEPTION
1362: WHEN OTHERS THEN
1363: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1362: WHEN OTHERS THEN
1363: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1364: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1365: FND_MSG_PUB.ADD;
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367: END check_address_dup;
1368:
1369: END HZ_MERGE_DUP_CHECK;