50: -- -----------------------------------------------------------------------------------
51:
52: PROCEDURE removePreferedPartner (
53: p_api_version_number IN NUMBER
54: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
55: , p_commit IN VARCHAR2 := FND_API.G_FALSE
56: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
57: , p_lead_id IN NUMBER
58: , p_item_type IN VARCHAR2
51:
52: PROCEDURE removePreferedPartner (
53: p_api_version_number IN NUMBER
54: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
55: , p_commit IN VARCHAR2 := FND_API.G_FALSE
56: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
57: , p_lead_id IN NUMBER
58: , p_item_type IN VARCHAR2
59: , p_item_key IN VARCHAR2
52: PROCEDURE removePreferedPartner (
53: p_api_version_number IN NUMBER
54: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
55: , p_commit IN VARCHAR2 := FND_API.G_FALSE
56: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
57: , p_lead_id IN NUMBER
58: , p_item_type IN VARCHAR2
59: , p_item_key IN VARCHAR2
60: , p_partner_id IN NUMBER
91: AND al.lead_id = pc_lead_id ;
92:
93: BEGIN
94:
95: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
96: p_api_version_number,
97: l_api_name,
98: G_PKG_NAME) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
96: p_api_version_number,
97: l_api_name,
98: G_PKG_NAME) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100:
101: END IF;
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
100:
101: END IF;
102:
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104: IF FND_API.to_Boolean( p_init_msg_list )
105: THEN
106: fnd_msg_pub.initialize;
107: END IF;
108:
112: fnd_message.Set_token('TEXT', 'In ' || l_api_name);
113: fnd_msg_pub.Add;
114: END IF;
115:
116: x_return_status := FND_API.G_RET_STS_SUCCESS ;
117:
118: IF p_lead_id IS NOT NULL
119: AND p_partner_id IS NOT NULL
120: THEN
143: incumbent_partner_resource_id = NULL
144: WHERE lead_id = p_lead_id;
145:
146: END IF;
147: IF FND_API.To_Boolean ( p_commit ) THEN
148: COMMIT WORK;
149: END IF;
150:
151: -- Standard call to get message count and if count is 1, get message info.
148: COMMIT WORK;
149: END IF;
150:
151: -- Standard call to get message count and if count is 1, get message info.
152: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
153: p_count => x_msg_count,
154: p_data => x_msg_data);
155: EXCEPTION
156:
153: p_count => x_msg_count,
154: p_data => x_msg_data);
155: EXCEPTION
156:
157: WHEN FND_API.G_EXC_ERROR THEN
158:
159: x_return_status := FND_API.G_RET_STS_ERROR ;
160: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
161: p_count => x_msg_count,
155: EXCEPTION
156:
157: WHEN FND_API.G_EXC_ERROR THEN
158:
159: x_return_status := FND_API.G_RET_STS_ERROR ;
160: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
161: p_count => x_msg_count,
162: p_data => x_msg_data);
163:
156:
157: WHEN FND_API.G_EXC_ERROR THEN
158:
159: x_return_status := FND_API.G_RET_STS_ERROR ;
160: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
161: p_count => x_msg_count,
162: p_data => x_msg_data);
163:
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
161: p_count => x_msg_count,
162: p_data => x_msg_data);
163:
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165:
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
168: p_count => x_msg_count,
162: p_data => x_msg_data);
163:
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165:
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
168: p_count => x_msg_count,
169: p_data => x_msg_data);
170:
163:
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165:
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
168: p_count => x_msg_count,
169: p_data => x_msg_data);
170:
171: WHEN OTHERS THEN
169: p_data => x_msg_data);
170:
171: WHEN OTHERS THEN
172:
173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
175: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
176: p_count => x_msg_count,
177: p_data => x_msg_data);
171: WHEN OTHERS THEN
172:
173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
175: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
176: p_count => x_msg_count,
177: p_data => x_msg_data);
178:
179: END;
180:
181:
182: procedure Log_assignment_status (
183: p_api_version_number IN NUMBER
184: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
185: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
186: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
187: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
188: ,x_return_status OUT NOCOPY VARCHAR2
181:
182: procedure Log_assignment_status (
183: p_api_version_number IN NUMBER
184: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
185: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
186: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
187: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
188: ,x_return_status OUT NOCOPY VARCHAR2
189: ,x_msg_count OUT NOCOPY NUMBER
182: procedure Log_assignment_status (
183: p_api_version_number IN NUMBER
184: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
185: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
186: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
187: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
188: ,x_return_status OUT NOCOPY VARCHAR2
189: ,x_msg_count OUT NOCOPY NUMBER
190: ,x_msg_data OUT NOCOPY VARCHAR2) is
203:
204: begin
205: -- Standard call to check for call compatibility.
206:
207: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
208: p_api_version_number,
209: l_api_name,
210: G_PKG_NAME) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
208: p_api_version_number,
209: l_api_name,
210: G_PKG_NAME) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212:
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE.
212:
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE.
216: IF FND_API.to_Boolean( p_init_msg_list )
217: THEN
218: fnd_msg_pub.initialize;
219: END IF;
220:
224: fnd_message.Set_token('TEXT', 'In ' || l_api_name);
225: fnd_msg_pub.Add;
226: END IF;
227:
228: x_return_status := FND_API.G_RET_STS_SUCCESS ;
229:
230: if p_assignment_rec.status in ( 'CM_ADDED','CM_ADD_APP_FOR_PT','UNASSIGNED') then
231: -- not used statuses. Added just in case
232: null;
278: x_return_status => x_return_status,
279: x_msg_count => x_msg_count,
280: x_msg_data => x_msg_data);
281:
282: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
283: raise FND_API.G_EXC_ERROR;
284: end if;
285: end if;
286:
279: x_msg_count => x_msg_count,
280: x_msg_data => x_msg_data);
281:
282: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
283: raise FND_API.G_EXC_ERROR;
284: end if;
285: end if;
286:
287: IF FND_API.To_Boolean ( p_commit ) THEN
283: raise FND_API.G_EXC_ERROR;
284: end if;
285: end if;
286:
287: IF FND_API.To_Boolean ( p_commit ) THEN
288: COMMIT WORK;
289: END IF;
290:
291: -- Standard call to get message count and if count is 1, get message info.
288: COMMIT WORK;
289: END IF;
290:
291: -- Standard call to get message count and if count is 1, get message info.
292: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
293: p_count => x_msg_count,
294: p_data => x_msg_data);
295: EXCEPTION
296:
293: p_count => x_msg_count,
294: p_data => x_msg_data);
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
301: p_count => x_msg_count,
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
301: p_count => x_msg_count,
302: p_data => x_msg_data);
303:
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: x_return_status := FND_API.G_RET_STS_ERROR ;
300: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
301: p_count => x_msg_count,
302: p_data => x_msg_data);
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
300: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
301: p_count => x_msg_count,
302: p_data => x_msg_data);
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305:
306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
307: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
308: p_count => x_msg_count,
302: p_data => x_msg_data);
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305:
306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
307: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
308: p_count => x_msg_count,
309: p_data => x_msg_data);
310:
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305:
306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
307: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
308: p_count => x_msg_count,
309: p_data => x_msg_data);
310:
311: WHEN OTHERS THEN
309: p_data => x_msg_data);
310:
311: WHEN OTHERS THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
315: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
316: p_count => x_msg_count,
317: p_data => x_msg_data);
311: WHEN OTHERS THEN
312:
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
315: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
316: p_count => x_msg_count,
317: p_data => x_msg_data);
318: end;
319:
319:
320:
321: PROCEDURE Create_party_notification(
322: P_Api_Version_Number IN NUMBER,
323: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
324: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: P_party_notify_Rec IN PV_ASSIGN_UTIL_PVT.PARTY_NOTIFY_REC_TYPE,
327: X_PARTY_NOTIFICATION_ID OUT NOCOPY NUMBER,
320:
321: PROCEDURE Create_party_notification(
322: P_Api_Version_Number IN NUMBER,
323: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
324: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: P_party_notify_Rec IN PV_ASSIGN_UTIL_PVT.PARTY_NOTIFY_REC_TYPE,
327: X_PARTY_NOTIFICATION_ID OUT NOCOPY NUMBER,
328: X_Return_Status OUT NOCOPY VARCHAR2,
321: PROCEDURE Create_party_notification(
322: P_Api_Version_Number IN NUMBER,
323: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
324: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326: P_party_notify_Rec IN PV_ASSIGN_UTIL_PVT.PARTY_NOTIFY_REC_TYPE,
327: X_PARTY_NOTIFICATION_ID OUT NOCOPY NUMBER,
328: X_Return_Status OUT NOCOPY VARCHAR2,
329: X_Msg_Count OUT NOCOPY NUMBER,
339:
340: BEGIN
341:
342: -- Standard call to check for call compatibility.
343: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
344: p_api_version_number,
345: l_api_name,
346: G_PKG_NAME)
347: THEN
344: p_api_version_number,
345: l_api_name,
346: G_PKG_NAME)
347: THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize message list if p_init_msg_list is set to TRUE.
352: IF FND_API.to_Boolean( p_init_msg_list )
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize message list if p_init_msg_list is set to TRUE.
352: IF FND_API.to_Boolean( p_init_msg_list )
353: THEN
354: FND_MSG_PUB.initialize;
355: END IF;
356:
361: fnd_msg_pub.Add;
362: END IF;
363:
364: -- Initialize API return status to SUCCESS
365: x_return_status := FND_API.G_RET_STS_SUCCESS;
366:
367: --
368: -- API body
369: --
459: -- End of API body
460: --
461:
462: -- Standard check for p_commit
463: IF FND_API.to_Boolean( p_commit )
464: THEN
465: COMMIT WORK;
466: END IF;
467:
472: );
473:
474: EXCEPTION
475:
476: WHEN FND_API.G_EXC_ERROR THEN
477:
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
480: p_count => x_msg_count,
474: EXCEPTION
475:
476: WHEN FND_API.G_EXC_ERROR THEN
477:
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482:
475:
476: WHEN FND_API.G_EXC_ERROR THEN
477:
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
480: p_count => x_msg_count,
481: p_data => x_msg_data);
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484:
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
487: p_count => x_msg_count,
481: p_data => x_msg_data);
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484:
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
487: p_count => x_msg_count,
488: p_data => x_msg_data);
489:
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484:
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
486: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
487: p_count => x_msg_count,
488: p_data => x_msg_data);
489:
490: WHEN OTHERS THEN
488: p_data => x_msg_data);
489:
490: WHEN OTHERS THEN
491:
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
494: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data);
490: WHEN OTHERS THEN
491:
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
494: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data);
497:
498: End Create_party_notification;
499:
500:
501: procedure create_lead_assignment_row (
502: p_api_version_number IN NUMBER
503: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
505: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
506: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
507: ,x_lead_assignment_id OUT NOCOPY NUMBER
500:
501: procedure create_lead_assignment_row (
502: p_api_version_number IN NUMBER
503: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
505: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
506: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
507: ,x_lead_assignment_id OUT NOCOPY NUMBER
508: ,x_return_status OUT NOCOPY VARCHAR2
501: procedure create_lead_assignment_row (
502: p_api_version_number IN NUMBER
503: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
505: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
506: ,p_assignment_rec IN ASSIGNMENT_REC_TYPE
507: ,x_lead_assignment_id OUT NOCOPY NUMBER
508: ,x_return_status OUT NOCOPY VARCHAR2
509: ,x_msg_count OUT NOCOPY NUMBER
516:
517: begin
518: -- Standard call to check for call compatibility.
519:
520: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
521: p_api_version_number,
522: l_api_name,
523: G_PKG_NAME) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
521: p_api_version_number,
522: l_api_name,
523: G_PKG_NAME) THEN
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525:
526: END IF;
527:
528: -- Initialize message list if p_init_msg_list is set to TRUE.
525:
526: END IF;
527:
528: -- Initialize message list if p_init_msg_list is set to TRUE.
529: IF FND_API.to_Boolean( p_init_msg_list )
530: THEN
531: fnd_msg_pub.initialize;
532: END IF;
533:
537: fnd_message.Set_token('TEXT', 'In ' || l_api_name);
538: fnd_msg_pub.Add;
539: END IF;
540:
541: x_return_status := FND_API.G_RET_STS_SUCCESS ;
542:
543: if p_assignment_rec.SOURCE_TYPE not in ('CAMPAIGN', 'MATCHING', 'TAP', 'SALESTEAM') then
544: fnd_message.SET_NAME('PV', 'PV_INVALID_SOURCE_TYPE');
545: fnd_msg_pub.ADD;
543: if p_assignment_rec.SOURCE_TYPE not in ('CAMPAIGN', 'MATCHING', 'TAP', 'SALESTEAM') then
544: fnd_message.SET_NAME('PV', 'PV_INVALID_SOURCE_TYPE');
545: fnd_msg_pub.ADD;
546:
547: raise FND_API.G_EXC_ERROR;
548: end if;
549:
550: select pv_lead_assignments_s.nextval into l_Lead_assignment_ID from sys.dual;
551:
611: if p_assignment_rec.wf_item_key is not null then
612:
613: Log_assignment_status (
614: p_api_version_number => 1.0,
615: p_init_msg_list => FND_API.G_FALSE,
616: p_commit => FND_API.G_FALSE,
617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
618: p_assignment_rec => p_assignment_rec,
619: x_return_status => x_return_status,
612:
613: Log_assignment_status (
614: p_api_version_number => 1.0,
615: p_init_msg_list => FND_API.G_FALSE,
616: p_commit => FND_API.G_FALSE,
617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
618: p_assignment_rec => p_assignment_rec,
619: x_return_status => x_return_status,
620: x_msg_count => x_msg_count,
613: Log_assignment_status (
614: p_api_version_number => 1.0,
615: p_init_msg_list => FND_API.G_FALSE,
616: p_commit => FND_API.G_FALSE,
617: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
618: p_assignment_rec => p_assignment_rec,
619: x_return_status => x_return_status,
620: x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
619: x_return_status => x_return_status,
620: x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
622:
623: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
624: raise FND_API.G_EXC_ERROR;
625: end if;
626:
627: end if;
620: x_msg_count => x_msg_count,
621: x_msg_data => x_msg_data);
622:
623: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
624: raise FND_API.G_EXC_ERROR;
625: end if;
626:
627: end if;
628:
633: fnd_message.Set_token('TEXT', 'x_lead_assignment_id ' || x_lead_assignment_id);
634: fnd_msg_pub.Add;
635: END IF;
636:
637: IF FND_API.To_Boolean ( p_commit ) THEN
638: COMMIT WORK;
639: END IF;
640:
641: -- Standard call to get message count and if count is 1, get message info.
638: COMMIT WORK;
639: END IF;
640:
641: -- Standard call to get message count and if count is 1, get message info.
642: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
643: p_count => x_msg_count,
644: p_data => x_msg_data);
645: EXCEPTION
646:
643: p_count => x_msg_count,
644: p_data => x_msg_data);
645: EXCEPTION
646:
647: WHEN FND_API.G_EXC_ERROR THEN
648:
649: x_return_status := FND_API.G_RET_STS_ERROR ;
650: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
651: p_count => x_msg_count,
645: EXCEPTION
646:
647: WHEN FND_API.G_EXC_ERROR THEN
648:
649: x_return_status := FND_API.G_RET_STS_ERROR ;
650: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
651: p_count => x_msg_count,
652: p_data => x_msg_data);
653:
646:
647: WHEN FND_API.G_EXC_ERROR THEN
648:
649: x_return_status := FND_API.G_RET_STS_ERROR ;
650: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
651: p_count => x_msg_count,
652: p_data => x_msg_data);
653:
654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
650: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
651: p_count => x_msg_count,
652: p_data => x_msg_data);
653:
654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
655:
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
658: p_count => x_msg_count,
652: p_data => x_msg_data);
653:
654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
655:
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
658: p_count => x_msg_count,
659: p_data => x_msg_data);
660:
653:
654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
655:
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
658: p_count => x_msg_count,
659: p_data => x_msg_data);
660:
661: WHEN OTHERS THEN
659: p_data => x_msg_data);
660:
661: WHEN OTHERS THEN
662:
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
665: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
666: p_count => x_msg_count,
667: p_data => x_msg_data);
661: WHEN OTHERS THEN
662:
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
665: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
666: p_count => x_msg_count,
667: p_data => x_msg_data);
668:
669: end create_lead_assignment_row;
670:
671:
672: procedure create_lead_workflow_row (
673: p_api_version_number IN NUMBER
674: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
675: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
676: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
677: ,p_workflow_rec IN LEAD_WORKFLOW_REC_TYPE
678: ,x_itemkey OUT NOCOPY VARCHAR2
671:
672: procedure create_lead_workflow_row (
673: p_api_version_number IN NUMBER
674: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
675: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
676: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
677: ,p_workflow_rec IN LEAD_WORKFLOW_REC_TYPE
678: ,x_itemkey OUT NOCOPY VARCHAR2
679: ,x_return_status OUT NOCOPY VARCHAR2
672: procedure create_lead_workflow_row (
673: p_api_version_number IN NUMBER
674: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
675: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
676: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
677: ,p_workflow_rec IN LEAD_WORKFLOW_REC_TYPE
678: ,x_itemkey OUT NOCOPY VARCHAR2
679: ,x_return_status OUT NOCOPY VARCHAR2
680: ,x_msg_count OUT NOCOPY NUMBER
697: l_user_id NUMBER;
698: BEGIN
699: -- Standard call to check for call compatibility.
700:
701: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
702: p_api_version_number,
703: l_api_name,
704: G_PKG_NAME) THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
702: p_api_version_number,
703: l_api_name,
704: G_PKG_NAME) THEN
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706:
707: END IF;
708:
709: -- Initialize message list if p_init_msg_list is set to TRUE.
706:
707: END IF;
708:
709: -- Initialize message list if p_init_msg_list is set to TRUE.
710: IF FND_API.to_Boolean( p_init_msg_list )
711: THEN
712: fnd_msg_pub.initialize;
713: END IF;
714:
718: fnd_message.Set_token('TEXT', 'In ' || l_api_name);
719: fnd_msg_pub.Add;
720: END IF;
721:
722: x_return_status := FND_API.G_RET_STS_SUCCESS ;
723:
724: select pv_lead_workflows_s.nextval into l_Lead_Workflow_ID from sys.dual;
725:
726: insert into pv_lead_workflows(
819: fnd_msg_pub.Add;
820: END IF;
821: pv_assignment_pvt.Create_Oppty_Routing_Log_Row (
822: p_api_version_number => 1.0,
823: p_init_msg_list => FND_API.G_FALSE,
824: p_commit => FND_API.G_FALSE,
825: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
826: P_oppty_routing_log_rec => l_oppty_routing_log_rec,
827: x_return_status => x_return_status,
820: END IF;
821: pv_assignment_pvt.Create_Oppty_Routing_Log_Row (
822: p_api_version_number => 1.0,
823: p_init_msg_list => FND_API.G_FALSE,
824: p_commit => FND_API.G_FALSE,
825: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
826: P_oppty_routing_log_rec => l_oppty_routing_log_rec,
827: x_return_status => x_return_status,
828: x_msg_count => x_msg_count,
821: pv_assignment_pvt.Create_Oppty_Routing_Log_Row (
822: p_api_version_number => 1.0,
823: p_init_msg_list => FND_API.G_FALSE,
824: p_commit => FND_API.G_FALSE,
825: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
826: P_oppty_routing_log_rec => l_oppty_routing_log_rec,
827: x_return_status => x_return_status,
828: x_msg_count => x_msg_count,
829: x_msg_data => x_msg_data);
827: x_return_status => x_return_status,
828: x_msg_count => x_msg_count,
829: x_msg_data => x_msg_data);
830: END IF;
831: IF FND_API.To_Boolean ( p_commit ) THEN
832: COMMIT WORK;
833: END IF;
834:
835: -- Standard call to get message count and if count is 1, get message info.
832: COMMIT WORK;
833: END IF;
834:
835: -- Standard call to get message count and if count is 1, get message info.
836: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
837: p_count => x_msg_count,
838: p_data => x_msg_data);
839: EXCEPTION
840:
837: p_count => x_msg_count,
838: p_data => x_msg_data);
839: EXCEPTION
840:
841: WHEN FND_API.G_EXC_ERROR THEN
842:
843: x_return_status := FND_API.G_RET_STS_ERROR ;
844: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
845: p_count => x_msg_count,
839: EXCEPTION
840:
841: WHEN FND_API.G_EXC_ERROR THEN
842:
843: x_return_status := FND_API.G_RET_STS_ERROR ;
844: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
845: p_count => x_msg_count,
846: p_data => x_msg_data);
847:
840:
841: WHEN FND_API.G_EXC_ERROR THEN
842:
843: x_return_status := FND_API.G_RET_STS_ERROR ;
844: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
845: p_count => x_msg_count,
846: p_data => x_msg_data);
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
844: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
845: p_count => x_msg_count,
846: p_data => x_msg_data);
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849:
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
851: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
852: p_count => x_msg_count,
846: p_data => x_msg_data);
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849:
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
851: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
852: p_count => x_msg_count,
853: p_data => x_msg_data);
854:
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849:
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
851: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
852: p_count => x_msg_count,
853: p_data => x_msg_data);
854:
855: WHEN OTHERS THEN
853: p_data => x_msg_data);
854:
855: WHEN OTHERS THEN
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
859: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
860: p_count => x_msg_count,
861: p_data => x_msg_data);
855: WHEN OTHERS THEN
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
858: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
859: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
860: p_count => x_msg_count,
861: p_data => x_msg_data);
862:
863: end create_lead_workflow_row;
864:
865:
866: procedure delete_lead_assignment_row (
867: p_api_version_number IN NUMBER
868: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
869: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
870: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
871: ,p_lead_assignment_id IN NUMBER
872: ,x_return_status OUT NOCOPY VARCHAR2
865:
866: procedure delete_lead_assignment_row (
867: p_api_version_number IN NUMBER
868: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
869: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
870: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
871: ,p_lead_assignment_id IN NUMBER
872: ,x_return_status OUT NOCOPY VARCHAR2
873: ,x_msg_count OUT NOCOPY NUMBER
866: procedure delete_lead_assignment_row (
867: p_api_version_number IN NUMBER
868: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
869: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
870: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
871: ,p_lead_assignment_id IN NUMBER
872: ,x_return_status OUT NOCOPY VARCHAR2
873: ,x_msg_count OUT NOCOPY NUMBER
874: ,x_msg_data OUT NOCOPY VARCHAR2) is
878:
879: begin
880: -- Standard call to check for call compatibility.
881:
882: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
883: p_api_version_number,
884: l_api_name,
885: G_PKG_NAME) THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
883: p_api_version_number,
884: l_api_name,
885: G_PKG_NAME) THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: END IF;
889:
890: -- Initialize message list if p_init_msg_list is set to TRUE.
887:
888: END IF;
889:
890: -- Initialize message list if p_init_msg_list is set to TRUE.
891: IF FND_API.to_Boolean( p_init_msg_list )
892: THEN
893: fnd_msg_pub.initialize;
894: END IF;
895:
899: fnd_message.Set_token('TEXT', 'In ' || l_api_name);
900: fnd_msg_pub.Add;
901: END IF;
902:
903: x_return_status := FND_API.G_RET_STS_SUCCESS ;
904:
905: delete from pv_lead_assignments
906: where lead_assignment_id = p_lead_assignment_id;
907:
915: fnd_message.SET_NAME('PV', 'PV_DEBUG_MESSAGE');
916: fnd_message.SET_token('TEXT', 'Deleted ' || sql%rowcount || ' rows. Should have deleted 1 row');
917: fnd_msg_pub.ADD;
918:
919: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
920:
921: end if;
922:
923: IF FND_API.To_Boolean ( p_commit ) THEN
919: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
920:
921: end if;
922:
923: IF FND_API.To_Boolean ( p_commit ) THEN
924: COMMIT WORK;
925: END IF;
926:
927: -- Standard call to get message count and if count is 1, get message info.
924: COMMIT WORK;
925: END IF;
926:
927: -- Standard call to get message count and if count is 1, get message info.
928: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
929: p_count => x_msg_count,
930: p_data => x_msg_data);
931: EXCEPTION
932:
929: p_count => x_msg_count,
930: p_data => x_msg_data);
931: EXCEPTION
932:
933: WHEN FND_API.G_EXC_ERROR THEN
934:
935: x_return_status := FND_API.G_RET_STS_ERROR ;
936: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
937: p_count => x_msg_count,
931: EXCEPTION
932:
933: WHEN FND_API.G_EXC_ERROR THEN
934:
935: x_return_status := FND_API.G_RET_STS_ERROR ;
936: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939:
932:
933: WHEN FND_API.G_EXC_ERROR THEN
934:
935: x_return_status := FND_API.G_RET_STS_ERROR ;
936: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939:
940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
936: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
937: p_count => x_msg_count,
938: p_data => x_msg_data);
939:
940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
941:
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
944: p_count => x_msg_count,
938: p_data => x_msg_data);
939:
940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
941:
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
944: p_count => x_msg_count,
945: p_data => x_msg_data);
946:
939:
940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
941:
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
944: p_count => x_msg_count,
945: p_data => x_msg_data);
946:
947: WHEN OTHERS THEN
945: p_data => x_msg_data);
946:
947: WHEN OTHERS THEN
948:
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
951: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
952: p_count => x_msg_count,
953: p_data => x_msg_data);
947: WHEN OTHERS THEN
948:
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
951: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
952: p_count => x_msg_count,
953: p_data => x_msg_data);
954:
955: end delete_lead_assignment_row;
956:
957:
958: procedure get_partner_info (
959: p_api_version_number IN NUMBER,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_mode IN VARCHAR2, -- VENDOR or EXTERNAL
964: p_partner_id IN NUMBER,
957:
958: procedure get_partner_info (
959: p_api_version_number IN NUMBER,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_mode IN VARCHAR2, -- VENDOR or EXTERNAL
964: p_partner_id IN NUMBER,
965: p_entity IN VARCHAR2, -- LEAD,OPPORTUNITY or PARTNER
958: procedure get_partner_info (
959: p_api_version_number IN NUMBER,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_mode IN VARCHAR2, -- VENDOR or EXTERNAL
964: p_partner_id IN NUMBER,
965: p_entity IN VARCHAR2, -- LEAD,OPPORTUNITY or PARTNER
966: p_entity_id IN NUMBER,
1190:
1191:
1192: begin
1193: -- Standard call to check for call compatibility.
1194: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1195: p_api_version_number,
1196: l_api_name,
1197: G_PKG_NAME) THEN
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1195: p_api_version_number,
1196: l_api_name,
1197: G_PKG_NAME) THEN
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: END IF;
1200:
1201: -- Initialize message list if p_init_msg_list is set to TRUE.
1202: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1199: END IF;
1200:
1201: -- Initialize message list if p_init_msg_list is set to TRUE.
1202: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1203: fnd_msg_pub.initialize;
1204: END IF;
1205:
1206: -- Debug Message
1210: fnd_msg_pub.Add;
1211: END IF;
1212:
1213: -- Initialize API return status to success
1214: x_return_status := FND_API.G_RET_STS_SUCCESS;
1215:
1216: -- check to see if partner relationship exists. Also
1217: -- get partner organization/contact name to be used in error messaging if needed
1218:
1225: fnd_message.SET_NAME('PV', 'PV_BAD_ID');
1226: fnd_message.SET_TOKEN('ID' ,p_partner_id);
1227:
1228: fnd_msg_pub.ADD;
1229: raise FND_API.G_EXC_ERROR;
1230:
1231: end if;
1232:
1233: if l_id_type <> 'PARTNER_OF' then
1240: fnd_message.SET_TOKEN('PARTY_NAME', l_id_name);
1241: fnd_message.SET_TOKEN('RELATION_TYPE', l_id_type_meaning);
1242:
1243: fnd_msg_pub.ADD;
1244: raise FND_API.G_EXC_ERROR;
1245:
1246: end if;
1247:
1248: if p_retrieve_mode in ('BOTH', 'CM') then
1331: fnd_message.SET_NAME('PV', 'PV_NO_CM_FOR_PT');
1332: fnd_message.SET_TOKEN('P_PARTNER' ,l_id_name);
1333:
1334: fnd_msg_pub.ADD;
1335: raise FND_API.G_EXC_ERROR;
1336:
1337: end if;
1338:
1339: l_cm_rs_id_tbl.extend;
1569:
1570: end if; -- p_retrieve_mode
1571:
1572: if not l_pt_ok_flag then
1573: raise FND_API.G_EXC_ERROR;
1574: end if;
1575:
1576: --
1577: -- End of API body.
1576: --
1577: -- End of API body.
1578: --
1579:
1580: IF FND_API.To_Boolean ( p_commit ) THEN
1581: COMMIT WORK;
1582: END IF;
1583:
1584: -- Standard call to get message count and if count is 1, get message info.
1581: COMMIT WORK;
1582: END IF;
1583:
1584: -- Standard call to get message count and if count is 1, get message info.
1585: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1586: p_count => x_msg_count,
1587: p_data => x_msg_data);
1588: EXCEPTION
1589:
1586: p_count => x_msg_count,
1587: p_data => x_msg_data);
1588: EXCEPTION
1589:
1590: WHEN FND_API.G_EXC_ERROR THEN
1591:
1592: x_return_status := FND_API.G_RET_STS_ERROR ;
1593: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1594: p_count => x_msg_count,
1588: EXCEPTION
1589:
1590: WHEN FND_API.G_EXC_ERROR THEN
1591:
1592: x_return_status := FND_API.G_RET_STS_ERROR ;
1593: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data);
1596:
1589:
1590: WHEN FND_API.G_EXC_ERROR THEN
1591:
1592: x_return_status := FND_API.G_RET_STS_ERROR ;
1593: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data);
1596:
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1593: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data);
1596:
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598:
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1600: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1601: p_count => x_msg_count,
1595: p_data => x_msg_data);
1596:
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598:
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1600: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1601: p_count => x_msg_count,
1602: p_data => x_msg_data);
1603:
1596:
1597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1598:
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1600: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
1601: p_count => x_msg_count,
1602: p_data => x_msg_data);
1603:
1604: WHEN OTHERS THEN
1602: p_data => x_msg_data);
1603:
1604: WHEN OTHERS THEN
1605:
1606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1607: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1608: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
1609: p_count => x_msg_count,
1610: p_data => x_msg_data);
1604: WHEN OTHERS THEN
1605:
1606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1607: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1608: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
1609: p_count => x_msg_count,
1610: p_data => x_msg_data);
1611:
1612: end get_partner_info;
1630: --| |
1631: --==============================================================================
1632: procedure UpdateAccess
1633: ( p_api_version_number IN NUMBER,
1634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1637: p_itemtype IN VARCHAR2,
1638: p_itemkey IN VARCHAR2,
1631: --==============================================================================
1632: procedure UpdateAccess
1633: ( p_api_version_number IN NUMBER,
1634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1637: p_itemtype IN VARCHAR2,
1638: p_itemkey IN VARCHAR2,
1639: p_current_username IN VARCHAR2,
1632: procedure UpdateAccess
1633: ( p_api_version_number IN NUMBER,
1634: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1635: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1637: p_itemtype IN VARCHAR2,
1638: p_itemkey IN VARCHAR2,
1639: p_current_username IN VARCHAR2,
1640: p_lead_id IN NUMBER,
1817: l_resoucre_nature VARCHAR2(30) := 'PART_OR_CONT';
1818:
1819: begin
1820:
1821: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1822: p_api_version_number,
1823: l_api_name,
1824: G_PKG_NAME)
1825: THEN
1822: p_api_version_number,
1823: l_api_name,
1824: G_PKG_NAME)
1825: THEN
1826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1827: END IF;
1828:
1829:
1830: -- Initialize message list if p_init_msg_list is set to TRUE.
1827: END IF;
1828:
1829:
1830: -- Initialize message list if p_init_msg_list is set to TRUE.
1831: IF FND_API.to_Boolean( p_init_msg_list )
1832: THEN
1833: fnd_msg_pub.initialize;
1834: END IF;
1835:
1854:
1855: END IF;
1856:
1857: -- Initialize API return status to success
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860:
1861:
1862: -- salesforce may appear multiple times in access for the same opportunity
1915: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1916: fnd_message.SET_TOKEN('TEXT', 'Does not recognize person type: ' || l_person_category);
1917: fnd_msg_pub.ADD;
1918:
1919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1920:
1921: end if;
1922:
1923: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1938: fnd_message.SET_NAME ('PV', 'PV_RESOURCE_NOT_FOUND');
1939: fnd_message.SET_TOKEN ('P_RESOURCE_ID' , p_resource_id);
1940: fnd_msg_pub.ADD;
1941:
1942: RAISE fnd_api.g_exc_error;
1943:
1944: end if;
1945:
1946: close lc_cursor;
1965: fnd_message.SET_NAME ('PV', 'PV_NO_DEFAULT_SALESGROUP');
1966: fnd_message.SET_TOKEN ('P_USER' , l_username);
1967: fnd_msg_pub.ADD;
1968: end if;
1969: -- RAISE fnd_api.g_exc_error;
1970:
1971: end if;
1972:
1973: end if;
1993: if l_am_rs_id is null then
1994: fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
1995: fnd_message.SET_TOKEN('TEXT', 'Cannot identify Assignment manager or Opportunity creator');
1996: fnd_msg_pub.ADD;
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: end if;
1999:
2000:
2001: for i in 1 .. l_access_id_tbl.count loop
2705: );
2706:
2707: end if;
2708:
2709: IF FND_API.To_Boolean ( p_commit ) THEN
2710: COMMIT WORK;
2711: END IF;
2712:
2713: -- Debug Message
2716: fnd_msg_pub.Add;
2717: END IF;
2718:
2719: -- Standard call to get message count and if count is 1, get message info.
2720: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2721: p_count => x_msg_count,
2722: p_data => x_msg_data);
2723:
2724: EXCEPTION
2722: p_data => x_msg_data);
2723:
2724: EXCEPTION
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727:
2728: x_return_status := FND_API.G_RET_STS_ERROR ;
2729:
2730: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2724: EXCEPTION
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727:
2728: x_return_status := FND_API.G_RET_STS_ERROR ;
2729:
2730: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2731: p_count => x_msg_count,
2732: p_data => x_msg_data);
2726: WHEN FND_API.G_EXC_ERROR THEN
2727:
2728: x_return_status := FND_API.G_RET_STS_ERROR ;
2729:
2730: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2731: p_count => x_msg_count,
2732: p_data => x_msg_data);
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2730: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2731: p_count => x_msg_count,
2732: p_data => x_msg_data);
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735:
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2732: p_data => x_msg_data);
2733:
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735:
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2739: p_count => x_msg_count,
2740: p_data => x_msg_data);
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735:
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2739: p_count => x_msg_count,
2740: p_data => x_msg_data);
2741:
2742: WHEN OTHERS THEN
2740: p_data => x_msg_data);
2741:
2742: WHEN OTHERS THEN
2743:
2744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2745:
2746: fnd_msg_pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2747: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2748: p_count => x_msg_count,
2743:
2744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2745:
2746: fnd_msg_pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2747: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
2748: p_count => x_msg_count,
2749: p_data => x_msg_data);
2750:
2751: end UpdateAccess;
2751: end UpdateAccess;
2752:
2753:
2754: procedure GetWorkflowID (p_api_version_number IN NUMBER,
2755: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2756: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2757: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2758: p_lead_id IN NUMBER,
2759: p_entity IN VARCHAR2,
2752:
2753:
2754: procedure GetWorkflowID (p_api_version_number IN NUMBER,
2755: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2756: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2757: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2758: p_lead_id IN NUMBER,
2759: p_entity IN VARCHAR2,
2760: x_itemType OUT NOCOPY VARCHAR2,
2753:
2754: procedure GetWorkflowID (p_api_version_number IN NUMBER,
2755: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2756: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2757: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2758: p_lead_id IN NUMBER,
2759: p_entity IN VARCHAR2,
2760: x_itemType OUT NOCOPY VARCHAR2,
2761: x_itemKey OUT NOCOPY VARCHAR2,
2769: l_api_version_number CONSTANT NUMBER := 1.0;
2770:
2771: begin
2772: -- Standard call to check for call compatibility.
2773: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2774: p_api_version_number,
2775: l_api_name,
2776: G_PKG_NAME)
2777: THEN
2774: p_api_version_number,
2775: l_api_name,
2776: G_PKG_NAME)
2777: THEN
2778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2779: END IF;
2780:
2781:
2782: -- Initialize message list if p_init_msg_list is set to TRUE.
2779: END IF;
2780:
2781:
2782: -- Initialize message list if p_init_msg_list is set to TRUE.
2783: IF FND_API.to_Boolean( p_init_msg_list )
2784: THEN
2785: fnd_msg_pub.initialize;
2786: END IF;
2787:
2792: fnd_msg_pub.Add;
2793: END IF;
2794:
2795: -- Initialize API return status to success
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: begin
2799:
2800: select wl.wf_item_type, wl.wf_item_key, wl.routing_status, wl.wf_status
2810: fnd_message.Set_Name('PV', 'PV_INVALID_ROUTING_ROW');
2811: fnd_message.Set_Token('P_LEAD_ID', p_lead_id);
2812: fnd_msg_pub.Add;
2813:
2814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2815:
2816: when NO_DATA_FOUND then
2817: null;
2818: end;
2832: fnd_message.Set_Name('PV', 'PV_UNKNOWN_ROUTING_STAGE');
2833: fnd_message.SET_TOKEN('P_ROUTING', x_routing_status);
2834: fnd_msg_pub.ADD;
2835:
2836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2837:
2838: elsif x_wf_status not in (pv_assignment_pub.g_wf_status_open, pv_assignment_pub.g_wf_status_closed) then
2839:
2840: fnd_message.Set_Name('PV', 'PV_INVALID_WF_STATUS');
2841: fnd_message.SET_TOKEN('P_WF_STATUS', x_wf_status);
2842: fnd_message.Set_Token('P_LEAD_ID', p_lead_id);
2843: fnd_msg_pub.ADD;
2844:
2845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2846:
2847: end if;
2848:
2849: --
2849: --
2850: -- End of API body.
2851: --
2852:
2853: IF FND_API.To_Boolean ( p_commit ) THEN
2854: COMMIT WORK;
2855: END IF;
2856:
2857: -- Standard call to get message count and if count is 1, get message info.
2854: COMMIT WORK;
2855: END IF;
2856:
2857: -- Standard call to get message count and if count is 1, get message info.
2858: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2859: p_count => x_msg_count,
2860: p_data => x_msg_data);
2861: EXCEPTION
2862:
2859: p_count => x_msg_count,
2860: p_data => x_msg_data);
2861: EXCEPTION
2862:
2863: WHEN FND_API.G_EXC_ERROR THEN
2864:
2865: x_return_status := FND_API.G_RET_STS_ERROR ;
2866: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2867: p_count => x_msg_count,
2861: EXCEPTION
2862:
2863: WHEN FND_API.G_EXC_ERROR THEN
2864:
2865: x_return_status := FND_API.G_RET_STS_ERROR ;
2866: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2867: p_count => x_msg_count,
2868: p_data => x_msg_data);
2869:
2862:
2863: WHEN FND_API.G_EXC_ERROR THEN
2864:
2865: x_return_status := FND_API.G_RET_STS_ERROR ;
2866: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2867: p_count => x_msg_count,
2868: p_data => x_msg_data);
2869:
2870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2867: p_count => x_msg_count,
2868: p_data => x_msg_data);
2869:
2870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2871:
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2873: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2874: p_count => x_msg_count,
2868: p_data => x_msg_data);
2869:
2870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2871:
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2873: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2874: p_count => x_msg_count,
2875: p_data => x_msg_data);
2876:
2869:
2870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2871:
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2873: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2874: p_count => x_msg_count,
2875: p_data => x_msg_data);
2876:
2877: WHEN OTHERS THEN
2875: p_data => x_msg_data);
2876:
2877: WHEN OTHERS THEN
2878:
2879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2880: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2881: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2882: p_count => x_msg_count,
2883: p_data => x_msg_data);
2877: WHEN OTHERS THEN
2878:
2879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2880: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2881: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_TRUE,
2882: p_count => x_msg_count,
2883: p_data => x_msg_data);
2884: end GetWorkflowID;
2885:
2974: END Get_Salesgroup_ID;
2975:
2976: procedure checkforErrors (
2977: p_api_version_number IN NUMBER
2978: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2979: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2980: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2981: ,p_itemtype IN VARCHAR2
2982: ,p_itemkey IN VARCHAR2
2975:
2976: procedure checkforErrors (
2977: p_api_version_number IN NUMBER
2978: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2979: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2980: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2981: ,p_itemtype IN VARCHAR2
2982: ,p_itemkey IN VARCHAR2
2983: ,x_return_status OUT NOCOPY VARCHAR2
2976: procedure checkforErrors (
2977: p_api_version_number IN NUMBER
2978: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2979: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2980: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2981: ,p_itemtype IN VARCHAR2
2982: ,p_itemkey IN VARCHAR2
2983: ,x_return_status OUT NOCOPY VARCHAR2
2984: ,x_msg_count OUT NOCOPY NUMBER
3009:
3010: begin
3011: -- Standard call to check for call compatibility.
3012:
3013: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
3014: p_api_version_number,
3015: l_api_name,
3016: G_PKG_NAME) THEN
3017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3013: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
3014: p_api_version_number,
3015: l_api_name,
3016: G_PKG_NAME) THEN
3017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3018:
3019: END IF;
3020:
3021: -- Initialize message list if p_init_msg_list is set to TRUE.
3018:
3019: END IF;
3020:
3021: -- Initialize message list if p_init_msg_list is set to TRUE.
3022: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3023: fnd_msg_pub.initialize;
3024: END IF;
3025:
3026: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
3028: fnd_message.Set_Token('TEXT', 'In ' || l_api_name);
3029: fnd_msg_pub.Add;
3030: END IF;
3031:
3032: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3033:
3034: open lc_wf_error_message(pc_itemtype => p_itemtype, pc_itemkey => p_itemkey);
3035: fetch lc_wf_error_message into l_wf_error_msg, l_wf_error_stack;
3036: close lc_wf_error_message;
3052: fnd_msg_pub.Add;
3053:
3054: end if;
3055:
3056: raise FND_API.G_EXC_ERROR;
3057:
3058: end if;
3059: IF FND_API.To_Boolean ( p_commit ) THEN
3060: COMMIT WORK;
3055:
3056: raise FND_API.G_EXC_ERROR;
3057:
3058: end if;
3059: IF FND_API.To_Boolean ( p_commit ) THEN
3060: COMMIT WORK;
3061: END IF;
3062:
3063: -- Standard call to get message count and if count is 1, get message info.
3060: COMMIT WORK;
3061: END IF;
3062:
3063: -- Standard call to get message count and if count is 1, get message info.
3064: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3065: p_count => x_msg_count,
3066: p_data => x_msg_data);
3067: EXCEPTION
3068:
3065: p_count => x_msg_count,
3066: p_data => x_msg_data);
3067: EXCEPTION
3068:
3069: WHEN FND_API.G_EXC_ERROR THEN
3070:
3071: x_return_status := FND_API.G_RET_STS_ERROR ;
3072: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3067: EXCEPTION
3068:
3069: WHEN FND_API.G_EXC_ERROR THEN
3070:
3071: x_return_status := FND_API.G_RET_STS_ERROR ;
3072: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3068:
3069: WHEN FND_API.G_EXC_ERROR THEN
3070:
3071: x_return_status := FND_API.G_RET_STS_ERROR ;
3072: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3072: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3073: p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3077:
3078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3079: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3080: p_count => x_msg_count,
3074: p_data => x_msg_data);
3075:
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3077:
3078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3079: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3080: p_count => x_msg_count,
3081: p_data => x_msg_data);
3082:
3075:
3076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3077:
3078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3079: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3080: p_count => x_msg_count,
3081: p_data => x_msg_data);
3082:
3083: WHEN OTHERS THEN
3081: p_data => x_msg_data);
3082:
3083: WHEN OTHERS THEN
3084:
3085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3086: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3087: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3088: p_count => x_msg_count,
3089: p_data => x_msg_data);
3083: WHEN OTHERS THEN
3084:
3085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3086: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3087: fnd_msg_pub.Count_And_Get( p_encoded => FND_API.G_FALSE,
3088: p_count => x_msg_count,
3089: p_data => x_msg_data);
3090:
3091: end checkforErrors;