89: HZ_PREFERENCE_PUB.Add(
90: p_party_id,
91: l_category,
92: G_PREFERENCE_CODE,
93: FND_API.G_MISS_CHAR,
94: p_bookmarked_party_id,
95: FND_API.G_MISS_DATE,
96: SUBSTR(l_party_name,1,10),
97: G_MODLUE,
91: l_category,
92: G_PREFERENCE_CODE,
93: FND_API.G_MISS_CHAR,
94: p_bookmarked_party_id,
95: FND_API.G_MISS_DATE,
96: SUBSTR(l_party_name,1,10),
97: G_MODLUE,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
94: p_bookmarked_party_id,
95: FND_API.G_MISS_DATE,
96: SUBSTR(l_party_name,1,10),
97: G_MODLUE,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
100: FND_API.G_MISS_CHAR,
101: FND_API.G_MISS_CHAR,
102: FND_API.G_MISS_CHAR,
95: FND_API.G_MISS_DATE,
96: SUBSTR(l_party_name,1,10),
97: G_MODLUE,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
100: FND_API.G_MISS_CHAR,
101: FND_API.G_MISS_CHAR,
102: FND_API.G_MISS_CHAR,
103: l_return_status,
96: SUBSTR(l_party_name,1,10),
97: G_MODLUE,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
100: FND_API.G_MISS_CHAR,
101: FND_API.G_MISS_CHAR,
102: FND_API.G_MISS_CHAR,
103: l_return_status,
104: x_msg_count,
97: G_MODLUE,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
100: FND_API.G_MISS_CHAR,
101: FND_API.G_MISS_CHAR,
102: FND_API.G_MISS_CHAR,
103: l_return_status,
104: x_msg_count,
105: x_msg_data,
98: FND_API.G_MISS_CHAR,
99: FND_API.G_MISS_CHAR,
100: FND_API.G_MISS_CHAR,
101: FND_API.G_MISS_CHAR,
102: FND_API.G_MISS_CHAR,
103: l_return_status,
104: x_msg_count,
105: x_msg_data,
106: l_obj_version_no);
110: x_return_status := G_MAX_REACHED_ERROR;
111: FND_MESSAGE.SET_NAME('IMC', 'IMC_MAX_BOOKMARKS_REACHED');
112: FND_MSG_PUB.ADD;
113: FND_MSG_PUB.Count_And_Get(
114: p_encoded => FND_API.G_FALSE,
115: p_count => x_msg_count,
116: p_data => x_msg_data);
117: END IF;
118:
117: END IF;
118:
119: EXCEPTION
120: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: FND_MSG_PUB.Count_And_Get(
124: p_encoded => FND_API.G_FALSE,
125: p_count => x_msg_count,
118:
119: EXCEPTION
120: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: FND_MSG_PUB.Count_And_Get(
124: p_encoded => FND_API.G_FALSE,
125: p_count => x_msg_count,
126: p_data => x_msg_data);
120: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123: FND_MSG_PUB.Count_And_Get(
124: p_encoded => FND_API.G_FALSE,
125: p_count => x_msg_count,
126: p_data => x_msg_data);
127:
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
124: p_encoded => FND_API.G_FALSE,
125: p_count => x_msg_count,
126: p_data => x_msg_data);
127:
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: FND_MSG_PUB.Count_And_Get(
131: p_encoded => FND_API.G_FALSE,
132: p_count => x_msg_count,
125: p_count => x_msg_count,
126: p_data => x_msg_data);
127:
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: FND_MSG_PUB.Count_And_Get(
131: p_encoded => FND_API.G_FALSE,
132: p_count => x_msg_count,
133: p_data => x_msg_data);
127:
128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: FND_MSG_PUB.Count_And_Get(
131: p_encoded => FND_API.G_FALSE,
132: p_count => x_msg_count,
133: p_data => x_msg_data);
134:
135: WHEN NO_DATA_FOUND THEN
133: p_data => x_msg_data);
134:
135: WHEN NO_DATA_FOUND THEN
136: /* party ID of user does not exist */
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_ID');
139: FND_MSG_PUB.ADD;
140: FND_MSG_PUB.Count_And_Get(
141: p_encoded => FND_API.G_FALSE,
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_ID');
139: FND_MSG_PUB.ADD;
140: FND_MSG_PUB.Count_And_Get(
141: p_encoded => FND_API.G_FALSE,
142: p_count => x_msg_count,
143: p_data => x_msg_data);
144:
145: END Add_Bookmark;
177: l_email_address,
178: l_party_id,
179: l_hz_return_status);
180:
181: IF l_hz_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: /* problem creating party for FND user */
183: x_return_status := FND_API.G_RET_STS_ERROR;
184: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
185: FND_MSG_PUB.ADD;
179: l_hz_return_status);
180:
181: IF l_hz_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: /* problem creating party for FND user */
183: x_return_status := FND_API.G_RET_STS_ERROR;
184: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
185: FND_MSG_PUB.ADD;
186: FND_MSG_PUB.Count_And_Get(
187: p_encoded => FND_API.G_FALSE,
183: x_return_status := FND_API.G_RET_STS_ERROR;
184: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
185: FND_MSG_PUB.ADD;
186: FND_MSG_PUB.Count_And_Get(
187: p_encoded => FND_API.G_FALSE,
188: p_count => x_msg_count,
189: p_data => x_msg_data);
190: END IF;
191:
213: END IF;
214:
215: EXCEPTION
216: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
217: WHEN FND_API.G_EXC_ERROR THEN
218: x_return_status := FND_API.G_RET_STS_ERROR;
219: FND_MSG_PUB.Count_And_Get(
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
214:
215: EXCEPTION
216: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
217: WHEN FND_API.G_EXC_ERROR THEN
218: x_return_status := FND_API.G_RET_STS_ERROR;
219: FND_MSG_PUB.Count_And_Get(
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
216: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
217: WHEN FND_API.G_EXC_ERROR THEN
218: x_return_status := FND_API.G_RET_STS_ERROR;
219: FND_MSG_PUB.Count_And_Get(
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
220: p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(
227: p_encoded => FND_API.G_FALSE,
228: p_count => x_msg_count,
221: p_count => x_msg_count,
222: p_data => x_msg_data);
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(
227: p_encoded => FND_API.G_FALSE,
228: p_count => x_msg_count,
229: p_data => x_msg_data);
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(
227: p_encoded => FND_API.G_FALSE,
228: p_count => x_msg_count,
229: p_data => x_msg_data);
230:
231: WHEN NO_DATA_FOUND THEN
229: p_data => x_msg_data);
230:
231: WHEN NO_DATA_FOUND THEN
232: /* FND user ID does not exist */
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: FND_MESSAGE.SET_NAME('IMC', 'IMC_FND_USER_NOT_EXIST');
235: FND_MSG_PUB.ADD;
236: FND_MSG_PUB.Count_And_Get(
237: p_encoded => FND_API.G_FALSE,
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: FND_MESSAGE.SET_NAME('IMC', 'IMC_FND_USER_NOT_EXIST');
235: FND_MSG_PUB.ADD;
236: FND_MSG_PUB.Count_And_Get(
237: p_encoded => FND_API.G_FALSE,
238: p_count => x_msg_count,
239: p_data => x_msg_data);
240: END Add_Bookmark;
241:
257:
258: l_category := Get_Category(p_bookmarked_party_id);
259: IF l_category IS NULL THEN
260: /* bookmark ID is invalid */
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_ID');
263: FND_MSG_PUB.ADD;
264: FND_MSG_PUB.Count_And_Get(
265: p_encoded => FND_API.G_FALSE,
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_ID');
263: FND_MSG_PUB.ADD;
264: FND_MSG_PUB.Count_And_Get(
265: p_encoded => FND_API.G_FALSE,
266: p_count => x_msg_count,
267: p_data => x_msg_data);
268: ELSE
269: IF p_user_type NOT IN (G_PARTY_USER_TYPE, G_FND_USER_TYPE) THEN
266: p_count => x_msg_count,
267: p_data => x_msg_data);
268: ELSE
269: IF p_user_type NOT IN (G_PARTY_USER_TYPE, G_FND_USER_TYPE) THEN
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_USER_TYPE');
272: FND_MSG_PUB.ADD;
273: FND_MSG_PUB.Count_And_Get(
274: p_encoded => FND_API.G_FALSE,
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_USER_TYPE');
272: FND_MSG_PUB.ADD;
273: FND_MSG_PUB.Count_And_Get(
274: p_encoded => FND_API.G_FALSE,
275: p_count => x_msg_count,
276: p_data => x_msg_data);
277: END IF;
278:
289: HZ_PREFERENCE_PUB.Remove(
290: l_user_id,
291: l_category,
292: G_PREFERENCE_CODE,
293: FND_API.G_MISS_CHAR,
294: p_bookmarked_party_id,
295: FND_API.G_MISS_DATE,
296: G_OBJECT_VERSION_NUMBER,
297: l_return_status,
291: l_category,
292: G_PREFERENCE_CODE,
293: FND_API.G_MISS_CHAR,
294: p_bookmarked_party_id,
295: FND_API.G_MISS_DATE,
296: G_OBJECT_VERSION_NUMBER,
297: l_return_status,
298: x_msg_count,
299: x_msg_data
304: END IF;
305:
306: EXCEPTION
307: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
310: FND_MSG_PUB.Count_And_Get(
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
305:
306: EXCEPTION
307: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
310: FND_MSG_PUB.Count_And_Get(
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
307: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
310: FND_MSG_PUB.Count_And_Get(
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
314:
315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
314:
315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: FND_MSG_PUB.Count_And_Get(
318: p_encoded => FND_API.G_FALSE,
319: p_count => x_msg_count,
312: p_count => x_msg_count,
313: p_data => x_msg_data);
314:
315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: FND_MSG_PUB.Count_And_Get(
318: p_encoded => FND_API.G_FALSE,
319: p_count => x_msg_count,
320: p_data => x_msg_data);
314:
315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
317: FND_MSG_PUB.Count_And_Get(
318: p_encoded => FND_API.G_FALSE,
319: p_count => x_msg_count,
320: p_data => x_msg_data);
321:
322: WHEN OTHERS THEN
319: p_count => x_msg_count,
320: p_data => x_msg_data);
321:
322: WHEN OTHERS THEN
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
325: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
326: FND_MSG_PUB.ADD;
327: FND_MSG_PUB.Count_And_Get(
324: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
325: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
326: FND_MSG_PUB.ADD;
327: FND_MSG_PUB.Count_And_Get(
328: p_encoded => FND_API.G_FALSE,
329: p_count => x_msg_count,
330: p_data => x_msg_data);
331:
332: END Remove_Bookmark;
344: l_return_status VARCHAR2(1);
345: l_party_id NUMBER;
346: BEGIN
347:
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349:
350: /* Check if party id is valid */
351: SELECT party_id
352: INTO l_party_id
365: AND PREFERENCE_CODE = G_PREFERENCE_CODE
366: AND PARTY_ID = p_party_id;
367:
368: ELSE
369: x_return_status := FND_API.G_RET_STS_ERROR;
370: /* bookmark type is invalid */
371: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_TYPE');
372: FND_MSG_PUB.ADD;
373: FND_MSG_PUB.Count_And_Get(
370: /* bookmark type is invalid */
371: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_BOOKMARK_TYPE');
372: FND_MSG_PUB.ADD;
373: FND_MSG_PUB.Count_And_Get(
374: p_encoded => FND_API.G_FALSE,
375: p_count => x_msg_count,
376: p_data => x_msg_data);
377: END IF;
378:
389:
390: EXCEPTION
391: WHEN NO_DATA_FOUND THEN
392: /* party id is invalid */
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_PARTY_ID');
395: FND_MSG_PUB.ADD;
396: FND_MSG_PUB.Count_And_Get(
397: p_encoded => FND_API.G_FALSE,
393: x_return_status := FND_API.G_RET_STS_ERROR;
394: FND_MESSAGE.SET_NAME('IMC', 'IMC_INVALID_PARTY_ID');
395: FND_MSG_PUB.ADD;
396: FND_MSG_PUB.Count_And_Get(
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400: WHEN OTHERS THEN
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data);
400: WHEN OTHERS THEN
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
402: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
404: FND_MSG_PUB.ADD;
405: FND_MSG_PUB.Count_And_Get(
402: FND_MESSAGE.SET_NAME('IMC', 'HZ_API_OTHERS_EXCEP');
403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
404: FND_MSG_PUB.ADD;
405: FND_MSG_PUB.Count_And_Get(
406: p_encoded => FND_API.G_FALSE,
407: p_count => x_msg_count,
408: p_data => x_msg_data);
409:
410: END Get_Bookmarked_Parties;
449: RETURN l_ret;
450:
451: EXCEPTION
452: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
453: WHEN FND_API.G_EXC_ERROR THEN
454: RETURN FND_API.G_RET_STS_ERROR;
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
450:
451: EXCEPTION
452: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
453: WHEN FND_API.G_EXC_ERROR THEN
454: RETURN FND_API.G_RET_STS_ERROR;
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
458:
452: /* Exceptions may be raised from HZ_PREFERENCE_PUB */
453: WHEN FND_API.G_EXC_ERROR THEN
454: RETURN FND_API.G_RET_STS_ERROR;
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
458:
459: WHEN OTHERS THEN
460: RETURN 'E';
453: WHEN FND_API.G_EXC_ERROR THEN
454: RETURN FND_API.G_RET_STS_ERROR;
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
458:
459: WHEN OTHERS THEN
460: RETURN 'E';
461:
537: par_rec hz_party_v2pub.party_rec_type;
538: cpoint_rec hz_contact_point_v2pub.contact_point_rec_type;
539: email_rec hz_contact_point_v2pub.email_rec_type;
540:
541: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
542: l_msg_count NUMBER;
543: l_msg_data VARCHAR2(2000);
544: l_person_party_id NUMBER;
545: l_party_number hz_parties.party_number%TYPE;
594:
595: --
596: -- Call TCA API to create email contact point for the person party.
597: --
598: IF ( l_return_status = FND_API.G_RET_STS_SUCCESS
599: AND l_person_party_id IS NOT NULL
600: AND per_person_rec.email_address
601: IS NOT NULL) THEN
602: