43: BEGIN
44:
45: SAVEPOINT TERRITORY_PARTY_MERGE_PUB;
46:
47: x_return_status := fnd_api.g_ret_sts_success;
48:
49: IF ( p_entity_name <> 'JTF_TERR_VALUES_ALL' OR
50: p_parent_entity_name <> 'HZ_PARTIES' ) THEN
51:
53: fnd_message.set_token('P_ENTITY',p_entity_name);
54: fnd_message.set_token('P_PARENT_ENTITY',p_parent_entity_name);
55: FND_MSG_PUB.add;
56:
57: x_return_status := fnd_api.g_ret_sts_error;
58:
59: END IF;
60:
61: IF (p_from_FK_id <> p_to_FK_id) THEN
76: x_to_id := p_from_id;
77:
78: END IF;
79:
80: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
81: RAISE fnd_api.g_exc_error;
82: END IF;
83:
84: EXCEPTION
77:
78: END IF;
79:
80: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
81: RAISE fnd_api.g_exc_error;
82: END IF;
83:
84: EXCEPTION
85:
82: END IF;
83:
84: EXCEPTION
85:
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := fnd_api.g_ret_sts_unexp_error;
88: ROLLBACK TO TERR_PARTY_MERGE_PUB;
89:
90: WHEN fnd_api.g_exc_error THEN
83:
84: EXCEPTION
85:
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := fnd_api.g_ret_sts_unexp_error;
88: ROLLBACK TO TERR_PARTY_MERGE_PUB;
89:
90: WHEN fnd_api.g_exc_error THEN
91: x_return_status := fnd_api.g_ret_sts_error;
86: WHEN fnd_api.g_exc_unexpected_error THEN
87: x_return_status := fnd_api.g_ret_sts_unexp_error;
88: ROLLBACK TO TERR_PARTY_MERGE_PUB;
89:
90: WHEN fnd_api.g_exc_error THEN
91: x_return_status := fnd_api.g_ret_sts_error;
92: ROLLBACK TO TERR_PARTY_MERGE_PUB;
93:
94: WHEN OTHERS THEN
87: x_return_status := fnd_api.g_ret_sts_unexp_error;
88: ROLLBACK TO TERR_PARTY_MERGE_PUB;
89:
90: WHEN fnd_api.g_exc_error THEN
91: x_return_status := fnd_api.g_ret_sts_error;
92: ROLLBACK TO TERR_PARTY_MERGE_PUB;
93:
94: WHEN OTHERS THEN
95: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
96: fnd_message.set_token('P_SQLCODE', SQLCODE);
97: fnd_message.set_token('P_SQLERRM', SQLERRM);
98: fnd_message.set_token('P_API_NAME', l_api_name);
99: FND_MSG_PUB.add;
100: x_return_status := fnd_api.g_ret_sts_unexp_error;
101: ROLLBACK TO TERR_PARTY_MERGE_PUB;
102:
103: END party_merge;
104:
126: BEGIN
127:
128: SAVEPOINT TERR_PARTY_SITE_MERGE_PUB;
129:
130: x_return_status := fnd_api.g_ret_sts_success;
131:
132:
133: IF ( p_entity_name <> 'JTF_TERR_VALUES_ALL' OR
134: p_parent_entity_name <> 'HZ_PARTY_SITES' ) THEN
137: fnd_message.set_token('P_ENTITY', p_entity_name);
138: fnd_message.set_token('P_PARENT_ENTITY', p_parent_entity_name);
139: FND_MSG_PUB.add;
140:
141: x_return_status := fnd_api.g_ret_sts_error;
142:
143: END IF;
144:
145: IF (p_from_FK_id <> p_to_FK_id) THEN
160: x_to_id := p_from_id;
161:
162: END IF;
163:
164: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
165: RAISE fnd_api.g_exc_error;
166: END IF;
167:
168: EXCEPTION
161:
162: END IF;
163:
164: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
165: RAISE fnd_api.g_exc_error;
166: END IF;
167:
168: EXCEPTION
169:
166: END IF;
167:
168: EXCEPTION
169:
170: WHEN fnd_api.g_exc_unexpected_error THEN
171: x_return_status := fnd_api.g_ret_sts_unexp_error;
172: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
173:
174: WHEN fnd_api.g_exc_error THEN
167:
168: EXCEPTION
169:
170: WHEN fnd_api.g_exc_unexpected_error THEN
171: x_return_status := fnd_api.g_ret_sts_unexp_error;
172: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
173:
174: WHEN fnd_api.g_exc_error THEN
175: x_return_status := fnd_api.g_ret_sts_error;
170: WHEN fnd_api.g_exc_unexpected_error THEN
171: x_return_status := fnd_api.g_ret_sts_unexp_error;
172: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
173:
174: WHEN fnd_api.g_exc_error THEN
175: x_return_status := fnd_api.g_ret_sts_error;
176: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
177:
178: WHEN OTHERS THEN
171: x_return_status := fnd_api.g_ret_sts_unexp_error;
172: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
173:
174: WHEN fnd_api.g_exc_error THEN
175: x_return_status := fnd_api.g_ret_sts_error;
176: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
177:
178: WHEN OTHERS THEN
179: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
180: fnd_message.set_token('P_SQLCODE',SQLCODE);
181: fnd_message.set_token('P_SQLERRM',SQLERRM);
182: fnd_message.set_token('P_API_NAME', l_api_name);
183: FND_MSG_PUB.add;
184: x_return_status := fnd_api.g_ret_sts_unexp_error;
185: ROLLBACK TO TERR_PARTY_SITE_MERGE_PUB;
186:
187: END party_site_merge;
188: