APPS.HZ_AUTOMERGE_PKG dependencies on FND_API

Line 50: l_msg_data := substr(l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 2000) ;

46: l_msg_data VARCHAR2(2000);
47: BEGIN
48: FND_MSG_PUB.Reset;
49: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
50: l_msg_data := substr(l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 2000) ;
51: END LOOP;
52: IF (SQLERRM IS NOT NULL) THEN
53: l_msg_data := substr(l_msg_data || SQLERRM, 1, 2000);
54: END IF;

Line 308: x_return_status := FND_API.G_RET_STS_SUCCESS;

304: log (' l_batch_name = ' || l_batch_name);
305: --log (' l_req_type = ' || l_req_type);
306: --log(' l_no_of_workers ' || l_no_of_workers);
307: log(' l_dup_batch_id ' || l_dup_batch_id);
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309: fnd_msg_pub.initialize;
310:
311: -- get all dup_set_id's for a particular batch. this conditions also helps in re-running
312: -- the program again for same batch.

Line 439: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

435: --log(SubStr(' x_return_status from api HZ_MERGE_DUP_PVT.Create_Merge_Batch = '||x_return_status,1,255));
436: END IF;
437: -- If no 'N', then do not request party merge
438: IF (l_count = 0) THEN
439: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
440: update hz_dup_sets set status = 'AM_QUEUE' where dup_set_id = A_DUP_SET_ID(I);
441: ELSE
442: l_success := FALSE;
443: retcode := 2;

Line 446: p_encoded => fnd_api.g_false,

442: l_success := FALSE;
443: retcode := 2;
444: err := SQLERRM;
445: fnd_msg_pub.count_and_get(
446: p_encoded => fnd_api.g_false,
447: p_count => x_msg_count,
448: p_data => x_msg_data);
449: ROLLBACK TO automerge;
450: EXIT;

Line 454: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

450: EXIT;
451: END IF;
452: END IF;
453: IF (l_count > 0) THEN
454: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
455: create_rem_batch( p_dup_batch_id, A_DUP_SET_ID(I), L_WINNER_PARTY_ID(I), l_new_dup_batch_id, 'S');
456: delete_non_am_dup_set(A_DUP_SET_ID(I), l_all_count, l_count);
457:
458: IF (l_all_count > l_count) THEN

Line 462: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

458: IF (l_all_count > l_count) THEN
459: log (' updating hz_dup_sets status to AM Queue for dup_set_id = ' || A_DUP_SET_ID(I));
460: update hz_dup_sets set status = 'AM_QUEUE' where dup_set_id = A_DUP_SET_ID(I);
461: END IF;
462: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
463: -- if unexpected error, then error out the program
464: l_success := FALSE;
465: retcode := 2;
466: err := SQLERRM;

Line 468: p_encoded => fnd_api.g_false,

464: l_success := FALSE;
465: retcode := 2;
466: err := SQLERRM;
467: fnd_msg_pub.count_and_get(
468: p_encoded => fnd_api.g_false,
469: p_count => x_msg_count,
470: p_data => x_msg_data);
471: ROLLBACK TO automerge;
472: close c1;

Line 475: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN

471: ROLLBACK TO automerge;
472: close c1;
473: EXIT;
474: -- if expected error, create remainder batch but do not run party merge
475: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
476: l_success := FALSE;
477: l_count := chk_for_rem_batch(A_DUP_SET_ID(I));
478: create_rem_batch( p_dup_batch_id, A_DUP_SET_ID(I), L_WINNER_PARTY_ID(I), l_new_dup_batch_id, 'E');
479: update hz_dup_sets set status = 'CREATION_ERROR' where dup_set_id = A_DUP_SET_ID(I);

Line 540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

536: END IF;
537: END IF; -- IF (upper(l_automerge_flag) <> 'Y') THEN
538: EXCEPTION WHEN OTHERS THEN
539: ROLLBACK to automerge;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541: retcode := 2;
542: err := SQLERRM;
543: log ('ERROR :: =' || SQLERRM);
544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');

Line 548: p_encoded => FND_API.G_FALSE,

544: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
546: FND_MSG_PUB.ADD;
547: FND_MSG_PUB.Count_And_Get(
548: p_encoded => FND_API.G_FALSE,
549: p_count => x_msg_count,
550: p_data => x_msg_data);
551:
552: RAISE;