31:
32: BEGIN
33:
34: -- Initialize status to SUCCESS
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36:
37: -- Check if msite_id exists in ibe_msites_b
38: OPEN c1(p_msite_id);
39: FETCH c1 INTO l_tmp_id;
41: CLOSE c1;
42: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_NOT_FOUND');
43: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
44: FND_MSG_PUB.Add;
45: RAISE FND_API.G_EXC_ERROR;
46: END IF;
47: CLOSE c1;
48:
49: EXCEPTION
47: CLOSE c1;
48:
49: EXCEPTION
50:
51: WHEN FND_API.G_EXC_ERROR THEN
52: x_return_status := FND_API.G_RET_STS_ERROR;
53: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
54: p_data => x_msg_data,
55: p_encoded => 'F');
48:
49: EXCEPTION
50:
51: WHEN FND_API.G_EXC_ERROR THEN
52: x_return_status := FND_API.G_RET_STS_ERROR;
53: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
54: p_data => x_msg_data,
55: p_encoded => 'F');
56:
53: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
54: p_data => x_msg_data,
55: p_encoded => 'F');
56:
57: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
58: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
60: p_data => x_msg_data,
61: p_encoded => 'F');
54: p_data => x_msg_data,
55: p_encoded => 'F');
56:
57: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
58: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
60: p_data => x_msg_data,
61: p_encoded => 'F');
62:
66: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
67: FND_MESSAGE.Set_Token('REASON', SQLERRM);
68: FND_MSG_PUB.Add;
69:
70: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71:
72: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
73: THEN
74: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
106:
107: BEGIN
108:
109: -- Initialize status to SUCCESS
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111:
112: -- Check if p_payment_method_code exists in fnd_lookups
113: OPEN c1(p_payment_method_code);
114: FETCH c1 INTO l_tmp_id;
116: CLOSE c1;
117: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_CODE_NOT_EXISTS');
118: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_payment_method_code);
119: FND_MSG_PUB.Add;
120: RAISE FND_API.G_EXC_ERROR;
121: END IF;
122: CLOSE c1;
123:
124: EXCEPTION
122: CLOSE c1;
123:
124: EXCEPTION
125:
126: WHEN FND_API.G_EXC_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
129: p_data => x_msg_data,
130: p_encoded => 'F');
123:
124: EXCEPTION
125:
126: WHEN FND_API.G_EXC_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
129: p_data => x_msg_data,
130: p_encoded => 'F');
131:
128: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
129: p_data => x_msg_data,
130: p_encoded => 'F');
131:
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
135: p_data => x_msg_data,
136: p_encoded => 'F');
129: p_data => x_msg_data,
130: p_encoded => 'F');
131:
132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
135: p_data => x_msg_data,
136: p_encoded => 'F');
137:
141: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
142: FND_MESSAGE.Set_Token('REASON', SQLERRM);
143: FND_MSG_PUB.Add;
144:
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146:
147: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
148: THEN
149: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
177:
178: BEGIN
179:
180: -- Initialize status to SUCCESS
181: x_return_status := FND_API.G_RET_STS_SUCCESS;
182: -- Check if p_credit_card_code exists in oe_lookups
183: OPEN c1(p_credit_card_code);
184: FETCH c1 INTO l_tmp_id;
185: IF (c1%NOTFOUND) THEN
186: CLOSE c1;
187: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_CODE_NOT_EXISTS');
188: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_credit_card_code);
189: FND_MSG_PUB.Add;
190: RAISE FND_API.G_EXC_ERROR;
191: END IF;
192: CLOSE c1;
193:
194: EXCEPTION
192: CLOSE c1;
193:
194: EXCEPTION
195:
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
199: p_data => x_msg_data,
200: p_encoded => 'F');
193:
194: EXCEPTION
195:
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
199: p_data => x_msg_data,
200: p_encoded => 'F');
201:
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
199: p_data => x_msg_data,
200: p_encoded => 'F');
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
205: p_data => x_msg_data,
206: p_encoded => 'F');
199: p_data => x_msg_data,
200: p_encoded => 'F');
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
205: p_data => x_msg_data,
206: p_encoded => 'F');
207:
211: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
212: FND_MESSAGE.Set_Token('REASON', SQLERRM);
213: FND_MSG_PUB.Add;
214:
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216:
217: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
218: THEN
219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
251:
252: BEGIN
253:
254: -- Initialize status to SUCCESS
255: x_return_status := FND_API.G_RET_STS_SUCCESS;
256:
257: -- Check if p_shipment_method_code exists in oe_ship_methods_v
258: OPEN c1(p_shipment_method_code);
259: FETCH c1 INTO l_tmp_id;
261: CLOSE c1;
262: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_CODE_NOT_EXISTS');
263: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_shipment_method_code);
264: FND_MSG_PUB.Add;
265: RAISE FND_API.G_EXC_ERROR;
266: END IF;
267: CLOSE c1;
268:
269: EXCEPTION
267: CLOSE c1;
268:
269: EXCEPTION
270:
271: WHEN FND_API.G_EXC_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
274: p_data => x_msg_data,
275: p_encoded => 'F');
268:
269: EXCEPTION
270:
271: WHEN FND_API.G_EXC_ERROR THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
274: p_data => x_msg_data,
275: p_encoded => 'F');
276:
273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
274: p_data => x_msg_data,
275: p_encoded => 'F');
276:
277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
280: p_data => x_msg_data,
281: p_encoded => 'F');
274: p_data => x_msg_data,
275: p_encoded => 'F');
276:
277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
280: p_data => x_msg_data,
281: p_encoded => 'F');
282:
286: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
287: FND_MESSAGE.Set_Token('REASON', SQLERRM);
288: FND_MSG_PUB.Add;
289:
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
291:
292: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
293: THEN
294: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
304: -- PROCEDURE Check_Duplicate_Entry()
305: --*****************************************************************************
306:
307: --
308: -- x_return_status = FND_API.G_RET_STS_SUCCESS, if there is duplicate entry
309: -- x_return_status = FND_API.G_RET_STS_ERROR, if there is no duplicate entry
310: --
311: PROCEDURE Check_Duplicate_Entry
312: (
305: --*****************************************************************************
306:
307: --
308: -- x_return_status = FND_API.G_RET_STS_SUCCESS, if there is duplicate entry
309: -- x_return_status = FND_API.G_RET_STS_ERROR, if there is no duplicate entry
310: --
311: PROCEDURE Check_Duplicate_Entry
312: (
313: p_msite_id IN NUMBER,
361:
362: BEGIN
363:
364: -- Initialize API return status to error, i.e, its not duplicate
365: x_return_status := FND_API.G_RET_STS_ERROR;
366:
367: -- developer flexfield
368: IF (p_msite_information_context = 'PMT_MTHD') THEN
369:
376: FND_MESSAGE.Set_Token('VALUE', p_msite_information1);
377: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
378: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
379: FND_MSG_PUB.Add;
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382: CLOSE c1;
383:
384: ELSIF (p_msite_information_context = 'CC_TYPE') THEN
392: FND_MESSAGE.Set_Token('VALUE', p_msite_information1);
393: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
394: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
395: FND_MSG_PUB.Add;
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398: CLOSE c2;
399:
400: ELSIF (p_msite_information_context = 'SHPMT_MTHD') THEN
408: FND_MESSAGE.Set_Token('VALUE', p_msite_information1);
409: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
410: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
411: FND_MSG_PUB.Add;
412: RAISE FND_API.G_EXC_ERROR;
413: END IF;
414: CLOSE c3;
415:
416: END IF;
416: END IF;
417:
418: EXCEPTION
419:
420: WHEN FND_API.G_EXC_ERROR THEN
421: x_return_status := FND_API.G_RET_STS_SUCCESS; -- found duplicate
422: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => 'F');
417:
418: EXCEPTION
419:
420: WHEN FND_API.G_EXC_ERROR THEN
421: x_return_status := FND_API.G_RET_STS_SUCCESS; -- found duplicate
422: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => 'F');
425:
422: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => 'F');
425:
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
429: p_data => x_msg_data,
430: p_encoded => 'F');
423: p_data => x_msg_data,
424: p_encoded => 'F');
425:
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
429: p_data => x_msg_data,
430: p_encoded => 'F');
431:
435: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
436: FND_MESSAGE.Set_Token('REASON', SQLERRM);
437: FND_MSG_PUB.Add;
438:
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440:
441: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN
443: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
450: END Check_Duplicate_Entry;
451:
452: PROCEDURE Validate_Create
453: (
454: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
455: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
456: p_msite_id IN NUMBER,
457: p_msite_information_context IN VARCHAR2,
458: p_msite_information1 IN VARCHAR2,
451:
452: PROCEDURE Validate_Create
453: (
454: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
455: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
456: p_msite_id IN NUMBER,
457: p_msite_information_context IN VARCHAR2,
458: p_msite_information1 IN VARCHAR2,
459: p_msite_information2 IN VARCHAR2,
502: l_return_status VARCHAR2(30);
503: BEGIN
504:
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean(p_init_msg_list) THEN
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: -- Initialize API return status to success
507: FND_MSG_PUB.initialize;
508: END IF;
509:
510: -- Initialize API return status to success
511: x_return_status := FND_API.G_RET_STS_SUCCESS;
512:
513: --
514: -- Check null values for required fields
515: --
514: -- Check null values for required fields
515: --
516:
517: IF ((p_msite_id IS NULL) OR
518: (p_msite_id = FND_API.G_MISS_NUM))
519: THEN
520: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_MSITE_ID');
521: FND_MSG_PUB.Add;
522: RAISE FND_API.G_EXC_ERROR;
518: (p_msite_id = FND_API.G_MISS_NUM))
519: THEN
520: FND_MESSAGE.Set_Name('IBE', 'IBE_DSP_INVALID_MSITE_ID');
521: FND_MSG_PUB.Add;
522: RAISE FND_API.G_EXC_ERROR;
523: END IF;
524:
525: IF ((p_msite_information_context IS NULL) OR
526: (p_msite_information_context = FND_API.G_MISS_CHAR))
522: RAISE FND_API.G_EXC_ERROR;
523: END IF;
524:
525: IF ((p_msite_information_context IS NULL) OR
526: (p_msite_information_context = FND_API.G_MISS_CHAR))
527: THEN
528: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_INFO_CTX');
529: FND_MSG_PUB.Add;
530: RAISE FND_API.G_EXC_ERROR;
526: (p_msite_information_context = FND_API.G_MISS_CHAR))
527: THEN
528: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_INFO_CTX');
529: FND_MSG_PUB.Add;
530: RAISE FND_API.G_EXC_ERROR;
531: END IF;
532: -- developer flex-fields
533: IF ((p_msite_information_context = 'PMT_MTHD') OR
534: (p_msite_information_context = 'CC_TYPE') OR
535: (p_msite_information_context = 'SHPMT_MTHD'))
536: THEN
537:
538: IF ((p_msite_information1 IS NULL) OR
539: (p_msite_information1 = FND_API.G_MISS_CHAR))
540: THEN
541: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_MSITE_INFO');
542: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
543: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
541: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_MSITE_INFO');
542: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
543: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
544: FND_MSG_PUB.Add;
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547:
548: END IF;
549:
563: x_msg_count => x_msg_count,
564: x_msg_data => x_msg_data
565: );
566:
567: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
568: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
569: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
570: FND_MSG_PUB.Add;
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
568: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
569: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
570: FND_MSG_PUB.Add;
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
573: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
574: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
575: FND_MSG_PUB.Add;
568: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
569: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
570: FND_MSG_PUB.Add;
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
573: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
574: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
575: FND_MSG_PUB.Add;
576: RAISE FND_API.G_EXC_ERROR; -- invalid msite_id
572: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
573: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSITE_ID_VLD_FAIL');
574: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
575: FND_MSG_PUB.Add;
576: RAISE FND_API.G_EXC_ERROR; -- invalid msite_id
577: END IF;
578: -- developer flexfield
579: IF (p_msite_information_context = 'PMT_MTHD') THEN
580:
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data
587: );
588:
589: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
590: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
591: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
590: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
591: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
595: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
596: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
597: FND_MSG_PUB.Add;
590: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
591: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
595: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
596: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
597: FND_MSG_PUB.Add;
598: RAISE FND_API.G_EXC_ERROR;
594: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
595: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
596: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
597: FND_MSG_PUB.Add;
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
600: ELSIF (p_msite_information_context = 'CC_TYPE') THEN
601:
602: Validate_Credit_Card_Code
606: x_msg_count => x_msg_count,
607: x_msg_data => x_msg_data
608: );
609:
610: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
611: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
612: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
613: FND_MSG_PUB.Add;
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
610: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
611: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
612: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
613: FND_MSG_PUB.Add;
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
616: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
617: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
618: FND_MSG_PUB.Add;
611: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
612: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
613: FND_MSG_PUB.Add;
614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
616: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
617: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
618: FND_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR;
615: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
616: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
617: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
618: FND_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621: ELSIF (p_msite_information_context = 'SHPMT_MTHD') THEN
622:
623: Validate_Shipment_Method_Code
627: x_msg_count => x_msg_count,
628: x_msg_data => x_msg_data
629: );
630:
631: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
633: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
634: FND_MSG_PUB.Add;
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
632: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
633: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
634: FND_MSG_PUB.Add;
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
636: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
637: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
638: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
639: FND_MSG_PUB.Add;
632: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
633: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
634: FND_MSG_PUB.Add;
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
636: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
637: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
638: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
639: FND_MSG_PUB.Add;
640: RAISE FND_API.G_EXC_ERROR;
636: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
637: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
638: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
639: FND_MSG_PUB.Add;
640: RAISE FND_API.G_EXC_ERROR;
641: END IF;
642:
643: END IF;
644: --
672: x_msg_count => x_msg_count,
673: x_msg_data => x_msg_data
674: );
675:
676: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
677: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_UNEXP_DUP_CHECK');
678: FND_MSG_PUB.Add;
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
675:
676: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
677: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_UNEXP_DUP_CHECK');
678: FND_MSG_PUB.Add;
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
681: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DUPLICATE_MSITE_INFO');
682: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
683: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
676: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
677: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_UNEXP_DUP_CHECK');
678: FND_MSG_PUB.Add;
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
681: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DUPLICATE_MSITE_INFO');
682: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
683: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
684: FND_MSG_PUB.Add;
681: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DUPLICATE_MSITE_INFO');
682: FND_MESSAGE.Set_Token('MSITE_ID', p_msite_id);
683: FND_MESSAGE.Set_Token('CONTEXT', p_msite_information_context);
684: FND_MSG_PUB.Add;
685: RAISE FND_API.G_EXC_ERROR; -- duplicate entry
686: END IF;
687: EXCEPTION
688:
689: WHEN FND_API.G_EXC_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR; -- duplicate entry
686: END IF;
687: EXCEPTION
688:
689: WHEN FND_API.G_EXC_ERROR THEN
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
692: p_data => x_msg_data,
693: p_encoded => 'F');
686: END IF;
687: EXCEPTION
688:
689: WHEN FND_API.G_EXC_ERROR THEN
690: x_return_status := FND_API.G_RET_STS_ERROR;
691: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
692: p_data => x_msg_data,
693: p_encoded => 'F');
694:
691: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
692: p_data => x_msg_data,
693: p_encoded => 'F');
694:
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
698: p_data => x_msg_data,
699: p_encoded => 'F');
692: p_data => x_msg_data,
693: p_encoded => 'F');
694:
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
698: p_data => x_msg_data,
699: p_encoded => 'F');
700:
704: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
705: FND_MESSAGE.Set_Token('REASON', SQLERRM);
706: FND_MSG_PUB.Add;
707:
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709:
710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
711: THEN
712: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
722: --
723: --
724: PROCEDURE Validate_Update
725: (
726: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
727: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
728: p_msite_information_id IN NUMBER,
729: p_object_version_number IN NUMBER,
730: p_msite_information1 IN VARCHAR2,
723: --
724: PROCEDURE Validate_Update
725: (
726: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
727: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
728: p_msite_information_id IN NUMBER,
729: p_object_version_number IN NUMBER,
730: p_msite_information1 IN VARCHAR2,
731: p_msite_information2 IN VARCHAR2,
780:
781: BEGIN
782:
783: -- Initialize message list if p_init_msg_list is set to TRUE.
784: IF FND_API.to_Boolean(p_init_msg_list) THEN
785: FND_MSG_PUB.initialize;
786: END IF;
787:
788: -- Initialize API return status to success
785: FND_MSG_PUB.initialize;
786: END IF;
787:
788: -- Initialize API return status to success
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790:
791: --
792: -- Check null values for required fields
793: --
795: -- msite_information_id
796: IF (p_msite_information_id IS NULL) THEN
797: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_MSINF_ID_IS_NULL');
798: FND_MSG_PUB.Add;
799: RAISE FND_API.G_EXC_ERROR;
800: END IF;
801:
802: -- object_version_number
803: IF (p_object_version_number IS NULL)
803: IF (p_object_version_number IS NULL)
804: THEN
805: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_OVN_IS_NULL');
806: FND_MSG_PUB.Add;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809:
810: --
811: -- non-null field validation
818: CLOSE c1;
819: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_ID_NOT_FOUND');
820: FND_MESSAGE.Set_Token('MSITE_INFO_ID', p_msite_information_id);
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF;
824: CLOSE c1;
825:
826: -- developer flexfield - check for null value
829: (l_msite_information_context = 'SHPMT_MTHD'))
830: THEN
831:
832: IF ((p_msite_information1 IS NULL) OR
833: (p_msite_information1 = FND_API.G_MISS_CHAR))
834: THEN
835: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_MSITE_INFO');
836: FND_MESSAGE.Set_Token('MSITE_ID', l_msite_id);
837: FND_MESSAGE.Set_Token('CONTEXT', l_msite_information_context);
835: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INVALID_MSITE_INFO');
836: FND_MESSAGE.Set_Token('MSITE_ID', l_msite_id);
837: FND_MESSAGE.Set_Token('CONTEXT', l_msite_information_context);
838: FND_MSG_PUB.Add;
839: RAISE FND_API.G_EXC_ERROR;
840: END IF;
841:
842: END IF;
843:
851: x_msg_count => x_msg_count,
852: x_msg_data => x_msg_data
853: );
854:
855: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
856: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
857: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
858: FND_MSG_PUB.Add;
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
856: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
857: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
858: FND_MSG_PUB.Add;
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
861: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
862: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
863: FND_MSG_PUB.Add;
856: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
857: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
858: FND_MSG_PUB.Add;
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
861: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
862: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
863: FND_MSG_PUB.Add;
864: RAISE FND_API.G_EXC_ERROR;
860: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
861: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_PM_VLD_FAIL');
862: FND_MESSAGE.Set_Token('PAYMENT_METHOD_CODE', p_msite_information1);
863: FND_MSG_PUB.Add;
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
866:
867: ELSIF (l_msite_information_context = 'CC_TYPE') THEN
868:
873: x_msg_count => x_msg_count,
874: x_msg_data => x_msg_data
875: );
876:
877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
879: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
880: FND_MSG_PUB.Add;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
878: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
879: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
880: FND_MSG_PUB.Add;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
883: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
884: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
885: FND_MSG_PUB.Add;
878: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
879: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
880: FND_MSG_PUB.Add;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
883: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
884: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
885: FND_MSG_PUB.Add;
886: RAISE FND_API.G_EXC_ERROR;
882: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
883: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CC_VLD_FAIL');
884: FND_MESSAGE.Set_Token('CREDIT_CARD_CODE', p_msite_information1);
885: FND_MSG_PUB.Add;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888:
889: ELSIF (l_msite_information_context = 'SHPMT_MTHD') THEN
890:
895: x_msg_count => x_msg_count,
896: x_msg_data => x_msg_data
897: );
898:
899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
900: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
901: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
902: FND_MSG_PUB.Add;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
899: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
900: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
901: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
902: FND_MSG_PUB.Add;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
905: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
906: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
907: FND_MSG_PUB.Add;
900: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
901: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
902: FND_MSG_PUB.Add;
903: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
905: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
906: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
907: FND_MSG_PUB.Add;
908: RAISE FND_API.G_EXC_ERROR;
904: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
905: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_SM_VLD_FAIL');
906: FND_MESSAGE.Set_Token('SHIPMENT_METHOD_CODE', p_msite_information1);
907: FND_MSG_PUB.Add;
908: RAISE FND_API.G_EXC_ERROR;
909: END IF;
910:
911: END IF;
912:
911: END IF;
912:
913: EXCEPTION
914:
915: WHEN FND_API.G_EXC_ERROR THEN
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data,
919: p_encoded => 'F');
912:
913: EXCEPTION
914:
915: WHEN FND_API.G_EXC_ERROR THEN
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data,
919: p_encoded => 'F');
920:
917: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
918: p_data => x_msg_data,
919: p_encoded => 'F');
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => 'F');
918: p_data => x_msg_data,
919: p_encoded => 'F');
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => 'F');
926:
930: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
931: FND_MESSAGE.Set_Token('REASON', SQLERRM);
932: FND_MSG_PUB.Add;
933:
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935:
936: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
937: THEN
938: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
947:
948: PROCEDURE Create_Msite_Information
949: (
950: p_api_version IN NUMBER,
951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
952: p_commit IN VARCHAR2 := FND_API.G_FALSE,
953: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
954: p_msite_id IN NUMBER,
955: p_msite_information_context IN VARCHAR2,
948: PROCEDURE Create_Msite_Information
949: (
950: p_api_version IN NUMBER,
951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
952: p_commit IN VARCHAR2 := FND_API.G_FALSE,
953: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
954: p_msite_id IN NUMBER,
955: p_msite_information_context IN VARCHAR2,
956: p_msite_information1 IN VARCHAR2,
949: (
950: p_api_version IN NUMBER,
951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
952: p_commit IN VARCHAR2 := FND_API.G_FALSE,
953: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
954: p_msite_id IN NUMBER,
955: p_msite_information_context IN VARCHAR2,
956: p_msite_information1 IN VARCHAR2,
957: p_msite_information2 IN VARCHAR2,
1006: -- Standard Start of API savepoint
1007: SAVEPOINT create_msite_information_pvt;
1008:
1009: -- Standard call to check for call compatibility.
1010: IF NOT FND_API.Compatible_API_Call(l_api_version,
1011: p_api_version,
1012: l_api_name,
1013: G_PKG_NAME)
1014: THEN
1011: p_api_version,
1012: l_api_name,
1013: G_PKG_NAME)
1014: THEN
1015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1016: END IF;
1017:
1018: -- Initialize message list if p_init_msg_list is set to TRUE.
1019: IF FND_API.to_Boolean(p_init_msg_list) THEN
1015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1016: END IF;
1017:
1018: -- Initialize message list if p_init_msg_list is set to TRUE.
1019: IF FND_API.to_Boolean(p_init_msg_list) THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022: -- Initialize API return status to success
1023: x_return_status := FND_API.G_RET_STS_SUCCESS;
1019: IF FND_API.to_Boolean(p_init_msg_list) THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022: -- Initialize API return status to success
1023: x_return_status := FND_API.G_RET_STS_SUCCESS;
1024:
1025: -- API body
1026: -- CALL FLOW :
1027: -- 1. Check if everything is valid
1032: -- 1. Check if everything is valid
1033: --
1034: Validate_Create
1035: (
1036: p_init_msg_list => FND_API.G_FALSE,
1037: p_validation_level => p_validation_level,
1038: p_msite_id => p_msite_id,
1039: p_msite_information_context => p_msite_information_context,
1040: p_msite_information1 => p_msite_information1,
1076: x_return_status => x_return_status,
1077: x_msg_count => x_msg_count,
1078: x_msg_data => x_msg_data
1079: );
1080: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1081: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1082: FND_MSG_PUB.Add;
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1079: );
1080: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1081: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1082: FND_MSG_PUB.Add;
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1085: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1086: FND_MSG_PUB.Add;
1087: RAISE FND_API.G_EXC_ERROR; -- invalid
1080: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1081: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1082: FND_MSG_PUB.Add;
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1085: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1086: FND_MSG_PUB.Add;
1087: RAISE FND_API.G_EXC_ERROR; -- invalid
1088: END IF;
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1085: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_CREATE');
1086: FND_MSG_PUB.Add;
1087: RAISE FND_API.G_EXC_ERROR; -- invalid
1088: END IF;
1089: --
1090: -- 2. Insert row
1091: --
1091: --
1092: BEGIN
1093: Ibe_Msite_Information_Pkg.insert_row
1094: (
1095: p_msite_information_id => FND_API.G_MISS_NUM,
1096: p_object_version_number => l_object_version_number,
1097: p_msite_id => p_msite_id,
1098: p_msite_information_context => p_msite_information_context,
1099: p_msite_information1 => p_msite_information1,
1144: EXCEPTION
1145: WHEN NO_DATA_FOUND THEN
1146: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INSERT_FL');
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1149: WHEN OTHERS THEN
1150: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1151: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1152: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1154: FND_MSG_PUB.Add;
1155:
1156: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INSERT_FL');
1157: FND_MSG_PUB.Add;
1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1159: END;
1160:
1161: --
1162: -- End of main API body.
1161: --
1162: -- End of main API body.
1163:
1164: -- Standard check of p_commit.
1165: IF (FND_API.To_Boolean(p_commit)) THEN
1166: COMMIT WORK;
1167: END IF;
1168:
1169: -- Standard call to get message count and if count is 1, get message info.
1172: p_encoded => 'F');
1173:
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177: ROLLBACK TO create_msite_information_pvt;
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1180: p_data => x_msg_data,
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177: ROLLBACK TO create_msite_information_pvt;
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1180: p_data => x_msg_data,
1181: p_encoded => 'F');
1182:
1179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1180: p_data => x_msg_data,
1181: p_encoded => 'F');
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1184: ROLLBACK TO create_msite_information_pvt;
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1187: p_data => x_msg_data,
1181: p_encoded => 'F');
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1184: ROLLBACK TO create_msite_information_pvt;
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1187: p_data => x_msg_data,
1188: p_encoded => 'F');
1189:
1194: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1195: FND_MSG_PUB.Add;
1196:
1197: ROLLBACK TO create_msite_information_pvt;
1198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1199:
1200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1201: THEN
1202: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1210:
1211: PROCEDURE Update_Msite_Information
1212: (
1213: p_api_version IN NUMBER,
1214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1217: p_msite_information_id IN NUMBER,
1218: p_object_version_number IN NUMBER,
1211: PROCEDURE Update_Msite_Information
1212: (
1213: p_api_version IN NUMBER,
1214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1217: p_msite_information_id IN NUMBER,
1218: p_object_version_number IN NUMBER,
1219: p_msite_information1 IN VARCHAR2,
1212: (
1213: p_api_version IN NUMBER,
1214: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1215: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1216: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1217: p_msite_information_id IN NUMBER,
1218: p_object_version_number IN NUMBER,
1219: p_msite_information1 IN VARCHAR2,
1220: p_msite_information2 IN VARCHAR2,
1265: -- Standard Start of API savepoint
1266: SAVEPOINT update_msite_information_pvt;
1267:
1268: -- Standard call to check for call compatibility.
1269: IF NOT FND_API.Compatible_API_Call(l_api_version,
1270: p_api_version,
1271: l_api_name,
1272: G_PKG_NAME)
1273: THEN
1270: p_api_version,
1271: l_api_name,
1272: G_PKG_NAME)
1273: THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276:
1277: -- Initialize message list if p_init_msg_list is set to TRUE.
1278: IF FND_API.to_Boolean(p_init_msg_list) THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276:
1277: -- Initialize message list if p_init_msg_list is set to TRUE.
1278: IF FND_API.to_Boolean(p_init_msg_list) THEN
1279: FND_MSG_PUB.initialize;
1280: END IF;
1281:
1282: -- Initialize API return status to success
1279: FND_MSG_PUB.initialize;
1280: END IF;
1281:
1282: -- Initialize API return status to success
1283: x_return_status := FND_API.G_RET_STS_SUCCESS;
1284:
1285: -- API body
1286: -- CALL FLOW :
1287: -- 1. Check if everything is valid
1290: -- 1. Validate the input data
1291: --
1292: Validate_Update
1293: (
1294: p_init_msg_list => FND_API.G_FALSE,
1295: p_validation_level => p_validation_level,
1296: p_msite_information_id => p_msite_information_id,
1297: p_object_version_number => p_object_version_number,
1298: p_msite_information1 => p_msite_information1,
1335: x_msg_count => x_msg_count,
1336: x_msg_data => x_msg_data
1337: );
1338:
1339: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1340: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1341: FND_MSG_PUB.Add;
1342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1343: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1338:
1339: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1340: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1341: FND_MSG_PUB.Add;
1342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1343: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1344: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1345: FND_MSG_PUB.Add;
1346: RAISE FND_API.G_EXC_ERROR; -- invalid
1339: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1340: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1341: FND_MSG_PUB.Add;
1342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1343: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1344: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1345: FND_MSG_PUB.Add;
1346: RAISE FND_API.G_EXC_ERROR; -- invalid
1347: END IF;
1342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1343: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1344: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_UPDATE');
1345: FND_MSG_PUB.Add;
1346: RAISE FND_API.G_EXC_ERROR; -- invalid
1347: END IF;
1348:
1349: -- 2. update row with section data into section table
1350: BEGIN
1396: EXCEPTION
1397: WHEN NO_DATA_FOUND THEN
1398: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_UPDATE_FL');
1399: FND_MSG_PUB.ADD;
1400: RAISE FND_API.G_EXC_ERROR;
1401: WHEN OTHERS THEN
1402: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1403: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1404: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1406: FND_MSG_PUB.Add;
1407:
1408: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_UPDATE_FL');
1409: FND_MSG_PUB.ADD;
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END;
1412:
1413: --
1414: -- end of main api body.
1413: --
1414: -- end of main api body.
1415:
1416: -- standard check of p_commit.
1417: IF (FND_API.to_boolean(p_commit)) THEN
1418: COMMIT WORK;
1419: END IF;
1420:
1421: -- standard call to get message count and if count is 1, get message info.
1424: p_encoded => 'F');
1425:
1426: EXCEPTION
1427:
1428: WHEN FND_API.G_EXC_ERROR THEN
1429: ROLLBACK TO update_msite_information_pvt;
1430: x_return_status := FND_API.G_RET_STS_ERROR;
1431: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1432: p_data => x_msg_data,
1426: EXCEPTION
1427:
1428: WHEN FND_API.G_EXC_ERROR THEN
1429: ROLLBACK TO update_msite_information_pvt;
1430: x_return_status := FND_API.G_RET_STS_ERROR;
1431: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1432: p_data => x_msg_data,
1433: p_encoded => 'F');
1434:
1431: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1432: p_data => x_msg_data,
1433: p_encoded => 'F');
1434:
1435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1436: ROLLBACK TO update_msite_information_pvt;
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1439: p_data => x_msg_data,
1433: p_encoded => 'F');
1434:
1435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1436: ROLLBACK TO update_msite_information_pvt;
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1439: p_data => x_msg_data,
1440: p_encoded => 'F');
1441:
1446: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1447: FND_MSG_PUB.Add;
1448:
1449: ROLLBACK TO update_msite_information_pvt;
1450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1451:
1452: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1453: THEN
1454: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1462:
1463: PROCEDURE Delete_Msite_Information
1464: (
1465: p_api_version IN NUMBER,
1466: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1467: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1468: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1469: p_msite_information_id IN NUMBER := FND_API.G_MISS_NUM,
1470: x_return_status OUT NOCOPY VARCHAR2,
1463: PROCEDURE Delete_Msite_Information
1464: (
1465: p_api_version IN NUMBER,
1466: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1467: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1468: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1469: p_msite_information_id IN NUMBER := FND_API.G_MISS_NUM,
1470: x_return_status OUT NOCOPY VARCHAR2,
1471: x_msg_count OUT NOCOPY NUMBER,
1464: (
1465: p_api_version IN NUMBER,
1466: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1467: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1468: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1469: p_msite_information_id IN NUMBER := FND_API.G_MISS_NUM,
1470: x_return_status OUT NOCOPY VARCHAR2,
1471: x_msg_count OUT NOCOPY NUMBER,
1472: x_msg_data OUT NOCOPY VARCHAR2
1465: p_api_version IN NUMBER,
1466: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1467: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1468: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1469: p_msite_information_id IN NUMBER := FND_API.G_MISS_NUM,
1470: x_return_status OUT NOCOPY VARCHAR2,
1471: x_msg_count OUT NOCOPY NUMBER,
1472: x_msg_data OUT NOCOPY VARCHAR2
1473: )
1480: -- Standard Start of API savepoint
1481: SAVEPOINT delete_msite_information_pvt;
1482:
1483: -- Standard call to check for call compatibility.
1484: IF NOT FND_API.Compatible_API_Call(l_api_version,
1485: p_api_version,
1486: l_api_name,
1487: G_PKG_NAME)
1488: THEN
1485: p_api_version,
1486: l_api_name,
1487: G_PKG_NAME)
1488: THEN
1489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1490: END IF;
1491:
1492: -- Initialize message list if p_init_msg_list is set to TRUE.
1493: IF FND_API.to_Boolean(p_init_msg_list) THEN
1489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1490: END IF;
1491:
1492: -- Initialize message list if p_init_msg_list is set to TRUE.
1493: IF FND_API.to_Boolean(p_init_msg_list) THEN
1494: FND_MSG_PUB.initialize;
1495: END IF;
1496:
1497: -- Initialize API return status to success
1494: FND_MSG_PUB.initialize;
1495: END IF;
1496:
1497: -- Initialize API return status to success
1498: x_return_status := FND_API.G_RET_STS_SUCCESS;
1499:
1500: -- CALL FLOW
1501:
1502: -- 1a. Check if msite_information_id is specified
1500: -- CALL FLOW
1501:
1502: -- 1a. Check if msite_information_id is specified
1503: IF ((p_msite_information_id IS NULL) OR
1504: (p_msite_information_id = FND_API.G_MISS_NUM))
1505: THEN
1506: -- msite_information_id is not specified
1507: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MINFO_ID_SPEC');
1508: FND_MSG_PUB.Add;
1505: THEN
1506: -- msite_information_id is not specified
1507: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_NO_MINFO_ID_SPEC');
1508: FND_MSG_PUB.Add;
1509: RAISE FND_API.G_EXC_ERROR;
1510: END IF;
1511:
1512: -- delete for ibe_msite_information
1513: BEGIN
1515: EXCEPTION
1516: WHEN NO_DATA_FOUND THEN
1517: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_DELETE_FL');
1518: FND_MSG_PUB.Add;
1519: RAISE FND_API.G_EXC_ERROR;
1520: WHEN OTHERS THEN
1521: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1522: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1523: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1525: FND_MSG_PUB.Add;
1526:
1527: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_DELETE_FL');
1528: FND_MSG_PUB.Add;
1529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1530: END;
1531:
1532: --
1533: -- end of main api body.
1532: --
1533: -- end of main api body.
1534:
1535: -- standard check of p_commit.
1536: IF (FND_API.to_boolean(p_commit)) THEN
1537: COMMIT WORK;
1538: END IF;
1539:
1540: -- standard call to get message count and if count is 1, get message info.
1543: p_encoded => 'F');
1544:
1545: EXCEPTION
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: ROLLBACK TO delete_msite_information_pvt;
1549: x_return_status := FND_API.G_RET_STS_ERROR;
1550: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1551: p_data => x_msg_data,
1545: EXCEPTION
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: ROLLBACK TO delete_msite_information_pvt;
1549: x_return_status := FND_API.G_RET_STS_ERROR;
1550: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1551: p_data => x_msg_data,
1552: p_encoded => 'F');
1553:
1550: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1551: p_data => x_msg_data,
1552: p_encoded => 'F');
1553:
1554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1555: ROLLBACK TO delete_msite_information_pvt;
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1558: p_data => x_msg_data,
1552: p_encoded => 'F');
1553:
1554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1555: ROLLBACK TO delete_msite_information_pvt;
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1558: p_data => x_msg_data,
1559: p_encoded => 'F');
1560:
1565: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1566: FND_MSG_PUB.Add;
1567:
1568: ROLLBACK TO delete_msite_information_pvt;
1569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1570:
1571: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1572: THEN
1573: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );