[Home] [Help]
127:
128: close valid_language_cur;
129:
130: if l_return_status = false then
131: raise FND_API.g_exc_error;
132: -----dbms_output.put_line('invalid languages:' || p_language);
133: END IF;
134:
135: -----dbms_output.put_line('valid languages:' || p_language);
166: l_return_status := false;
167: end if;
168:
169: if l_return_status = false then
170: raise FND_API.g_exc_error;
171: end if;
172:
173: -----dbms_output.put_line('invalid orgid:' || p_orgid);
174:
207: end if;
208:
209: close valid_currency_cur;
210: if l_return_status = false then
211: raise FND_API.g_exc_error;
212: END IF;
213:
214: return l_return_status;
215:
256: then
257: FND_MESSAGE.set_name('IBE','IBE_MSITE_PRCLSTID_REQ');
258: FND_MESSAGE.set_token('CURR_CODE', p_currency);
259: FND_MSG_PUB.ADD;
260: raise FND_API.g_exc_error;
261: END IF;
262:
263: OPEN valid_currency_prclstid_cur(p_currency,p_walkin_prclstid,p_registered_prclstid,
264: p_bizpartner_prclstid, p_partner_prclstid);
293:
294:
295: PROCEDURE save_msite(
296: p_api_version IN NUMBER,
297: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
298: p_commit IN VARCHAR2 := FND_API.g_false,
299: x_return_status OUT NOCOPY VARCHAR2,
300: x_msg_count OUT NOCOPY NUMBER,
301: x_msg_data OUT NOCOPY VARCHAR2,
294:
295: PROCEDURE save_msite(
296: p_api_version IN NUMBER,
297: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
298: p_commit IN VARCHAR2 := FND_API.g_false,
299: x_return_status OUT NOCOPY VARCHAR2,
300: x_msg_count OUT NOCOPY NUMBER,
301: x_msg_data OUT NOCOPY VARCHAR2,
302: p_msite_rec IN OUT NOCOPY Msite_REC_TYPE )
312: l_master_exists NUMBER;
313: l_msite_master_flag VARCHAR2(1);
314: l_store_id NUMBER := NULL;
315: l_exists NUMBER ;
316: l_root_section_flag VARCHAR2(1) := FND_API.g_false;
317: l_return_status VARCHAR2(1);
318: l_msg_count NUMBER;
319: l_msg_data VARCHAR2(80);
320: l_root_section_id NUMBER := NULL;
373: --------------------- initialize -----------------------+
374: SAVEPOINT save_msite;
375:
376:
377: IF NOT FND_API.compatible_api_call(
378: g_api_version,
379: p_api_version,
380: l_api_name,
381: g_pkg_name ) THEN
378: g_api_version,
379: p_api_version,
380: l_api_name,
381: g_pkg_name ) THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
384:
385:
386: IF FND_API.to_boolean(p_init_msg_list) THEN
382: RAISE FND_API.g_exc_unexpected_error;
383: END IF;
384:
385:
386: IF FND_API.to_boolean(p_init_msg_list) THEN
387: FND_MSG_PUB.initialize;
388: END IF;
389:
390:
387: FND_MSG_PUB.initialize;
388: END IF;
389:
390:
391: x_return_status := FND_API.G_RET_STS_SUCCESS;
392:
393: --- Check if the msite_id exists
394: IF p_msite_rec.msite_id IS NOT NULL AND
395: p_msite_rec.msite_id <> FND_API.g_miss_num
391: x_return_status := FND_API.G_RET_STS_SUCCESS;
392:
393: --- Check if the msite_id exists
394: IF p_msite_rec.msite_id IS NOT NULL AND
395: p_msite_rec.msite_id <> FND_API.g_miss_num
396: THEN
397: IF (l_debug = 'Y') THEN
398: IBE_UTIL.Debug('[IBE_MSITE_GRP]Minisite id is passed');
399: END IF;
402: then
403: IF (l_debug = 'Y') THEN
404: IBE_UTIL.Debug('[IBE_MSITE_GRP]Raising Exception: MiniSite Exists');
405: END IF;
406: raise FND_API.g_exc_error;
407: end if;
408:
409: l_operation_type:='UPDATE';
410:
412: IBE_UTIL.Debug('[IBE_MSITE_GRP]Operation is an Update');
413: END IF;
414:
415: END IF;
416: if p_msite_rec.msite_root_section_id <> FND_API.g_miss_num AND
417: p_msite_rec.msite_root_section_id is not null then
418:
419: if ibe_dspmgrvalidation_grp.check_root_section_exists(
420: p_msite_rec.msite_root_section_id) = false
421: then
422: IF (l_debug = 'Y') THEN
423: IBE_UTIL.Debug('Raising Exception:Root Section Does not exist');
424: END IF;
425: raise FND_API.g_exc_error;
426: end if;
427:
428: l_root_section_flag := FND_API.g_true;
429: l_root_section_id := p_msite_rec.msite_root_section_id;
424: END IF;
425: raise FND_API.g_exc_error;
426: end if;
427:
428: l_root_section_flag := FND_API.g_true;
429: l_root_section_id := p_msite_rec.msite_root_section_id;
430: else
431: --- If the minisite is a new one, then root section id can be null ,
432: --todo
430: else
431: --- If the minisite is a new one, then root section id can be null ,
432: --todo
433: if (p_msite_rec.msite_id is not null and
434: p_msite_rec.enable_for_store = FND_API.g_true) or
435: p_msite_rec.enable_for_store = FND_API.g_true
436: then
437: FND_MESSAGE.set_name('IBE','IBE_MSITE_RSECID_INVLD');
438: FND_MSG_PUB.ADD;
431: --- If the minisite is a new one, then root section id can be null ,
432: --todo
433: if (p_msite_rec.msite_id is not null and
434: p_msite_rec.enable_for_store = FND_API.g_true) or
435: p_msite_rec.enable_for_store = FND_API.g_true
436: then
437: FND_MESSAGE.set_name('IBE','IBE_MSITE_RSECID_INVLD');
438: FND_MSG_PUB.ADD;
439: raise FND_API.g_exc_error;
435: p_msite_rec.enable_for_store = FND_API.g_true
436: then
437: FND_MESSAGE.set_name('IBE','IBE_MSITE_RSECID_INVLD');
438: FND_MSG_PUB.ADD;
439: raise FND_API.g_exc_error;
440: end if;
441: end if;
442:
443: if p_msite_rec.msite_master_flag = FND_API.g_true then
439: raise FND_API.g_exc_error;
440: end if;
441: end if;
442:
443: if p_msite_rec.msite_master_flag = FND_API.g_true then
444: raise master_msite_exists_exception;
445: else
446: l_msite_master_flag := 'N';
447: end if;
449:
450: --dbms_output.put_line('passed master mini site flag teste ' );
451: -- Check if the access_name for a minisite is unique
452: If ( p_msite_rec.msite_id IS NULL OR
453: p_msite_rec.msite_id = FND_API.g_miss_num) AND
454: (p_msite_rec.access_name IS NOT NULL AND
455: p_msite_rec.access_name <> FND_API.G_MISS_CHAR) Then
456: If Ibe_Dspmgrvalidation_Grp.Check_Msite_Accessname(
457: p_access_name => p_msite_rec.access_name)= FALSE
451: -- Check if the access_name for a minisite is unique
452: If ( p_msite_rec.msite_id IS NULL OR
453: p_msite_rec.msite_id = FND_API.g_miss_num) AND
454: (p_msite_rec.access_name IS NOT NULL AND
455: p_msite_rec.access_name <> FND_API.G_MISS_CHAR) Then
456: If Ibe_Dspmgrvalidation_Grp.Check_Msite_Accessname(
457: p_access_name => p_msite_rec.access_name)= FALSE
458: Then
459: IF (l_debug = 'Y') THEN
458: Then
459: IF (l_debug = 'Y') THEN
460: IBE_UTIL.Debug('Exception:Access Name is not Unique');
461: END IF;
462: Raise FND_API.G_EXC_ERROR ;
463: End If;
464: End If;
465:
466: if p_msite_rec.enable_for_store = FND_API.g_true then
462: Raise FND_API.G_EXC_ERROR ;
463: End If;
464: End If;
465:
466: if p_msite_rec.enable_for_store = FND_API.g_true then
467: --dbms_output.put_line('****************enabled for store is to true ' );
468: /*OPEN store_id_cur;
469: fetch store_id_cur into l_store_id;
470: if store_id_cur%NOTFOUND then
475:
476: if ibe_dspmgrvalidation_grp.check_root_section_exists(
477: p_msite_rec.msite_root_section_id) = false
478: then
479: raise FND_API.g_exc_error;
480: end if;
481:
482: if msite_default_lang_exists(p_msite_rec.msite_id) = false
483: then
513:
514: l_resp_access_flag := p_msite_rec.resp_access_flag;
515: IF (((l_operation_type = 'UPDATE') AND
516: (l_resp_access_flag IS NOT NULL AND
517: l_resp_access_flag <> FND_API.G_MISS_char)) OR
518: l_operation_type = 'INSERT')
519: THEN
520: OPEN yes_no_cur(l_resp_access_flag );
521: FETCH yes_no_cur INTO l_exists;
527:
528: l_party_access_code := p_msite_rec.party_access_code;
529: IF (((l_operation_type = 'UPDATE') AND
530: (l_party_access_code IS NOT NULL AND
531: l_party_access_code <> FND_API.G_MISS_char)) OR
532: l_operation_type = 'INSERT')
533: THEN
534: OPEN C_party_access_code(l_party_access_code );
535: FETCH C_party_access_code INTO l_exists;
621: l_root_section_id,
622: l_resp_access_flag ,
623: l_party_access_code ,
624: p_msite_rec.access_name ,
625: DECODE(p_msite_rec.url,FND_API.G_MISS_CHAR,null,p_msite_rec.url) ,
626: DECODE(p_msite_rec.theme_id,FND_API.G_MISS_NUM,null,p_msite_rec.theme_id),
627: l_payment_thresh_enable_flag,
628: p_msite_rec.domain_name,
629: l_enable_traffic_filter,
622: l_resp_access_flag ,
623: l_party_access_code ,
624: p_msite_rec.access_name ,
625: DECODE(p_msite_rec.url,FND_API.G_MISS_CHAR,null,p_msite_rec.url) ,
626: DECODE(p_msite_rec.theme_id,FND_API.G_MISS_NUM,null,p_msite_rec.theme_id),
627: l_payment_thresh_enable_flag,
628: p_msite_rec.domain_name,
629: l_enable_traffic_filter,
630: l_reporting_status,
681: -- PARTY_ACCESS_CODE = l_party_access_code ,
682: -- ACCESS_NAME = p_msite_rec.access_name
683: --Bug fix for not updating end_date_active
684:
685: IF l_resp_access_flag = fnd_api.g_miss_char
686: THEN
687: l_resp_access_flag := NULL;
688: END IF;
689:
686: THEN
687: l_resp_access_flag := NULL;
688: END IF;
689:
690: IF l_party_access_code = fnd_api.g_miss_char
691: THEN
692: l_party_access_code := NULL;
693: END IF;
694:
691: THEN
692: l_party_access_code := NULL;
693: END IF;
694:
695: IF p_msite_rec.access_name = fnd_api.g_miss_char
696: THEN
697: p_msite_rec.access_name := NULL;
698: END IF;
699:
696: THEN
697: p_msite_rec.access_name := NULL;
698: END IF;
699:
700: IF p_msite_rec.start_date_active = fnd_api.g_miss_date
701: THEN
702: p_msite_rec.start_date_active := NULL;
703: END IF;
704:
701: THEN
702: p_msite_rec.start_date_active := NULL;
703: END IF;
704:
705: IF p_msite_rec.end_date_active = fnd_api.g_miss_date
706: THEN
707: p_msite_rec.end_date_active := NULL;
708: END IF;
709:
706: THEN
707: p_msite_rec.end_date_active := NULL;
708: END IF;
709:
710: IF p_msite_rec.url = fnd_api.g_miss_char
711: THEN
712: p_msite_rec.url := NULL;
713: END IF;
714:
711: THEN
712: p_msite_rec.url := NULL;
713: END IF;
714:
715: IF p_msite_rec.theme_id = fnd_api.g_miss_num
716: THEN
717: p_msite_rec.theme_id := NULL;
718: END IF;
719:
773: IBE_UTIL.Debug('Before updating IBE_MSITES_TL');
774: END IF;
775:
776: UPDATE IBE_MSITES_TL SET
777: MSITE_NAME = decode( p_msite_rec.Display_name, FND_API.G_MISS_CHAR,
778: MSITE_NAME, p_msite_rec.Display_name),
779: MSITE_DESCRIPTION = decode( p_msite_rec.description,
780: FND_API.G_MISS_CHAR, MSITE_DESCRIPTION, p_msite_rec.description),
781: LAST_UPDATE_DATE = SYSDATE,
776: UPDATE IBE_MSITES_TL SET
777: MSITE_NAME = decode( p_msite_rec.Display_name, FND_API.G_MISS_CHAR,
778: MSITE_NAME, p_msite_rec.Display_name),
779: MSITE_DESCRIPTION = decode( p_msite_rec.description,
780: FND_API.G_MISS_CHAR, MSITE_DESCRIPTION, p_msite_rec.description),
781: LAST_UPDATE_DATE = SYSDATE,
782: LAST_UPDATED_BY = FND_GLOBAL.user_id,
783: LAST_UPDATE_LOGIN = FND_GLOBAL.user_id,
784: OBJECT_VERSION_NUMBER= p_msite_rec.object_version_number +1 ,
796: END IF;
797:
798: IF(l_sct_root_flag = 1)
799: THEN
800: ----if p_msite_rec.enable_for_store = FND_API.g_true and
801: if l_root_section_flag = FND_API.g_true
802: then
803: IF (l_debug = 'Y') THEN
804: IBE_UTIL.Debug('Before calling IBE_DSP_HIERARCHY_SETUP_PVT.' || 'Associate_Root_Sct_To_MSite ');
797:
798: IF(l_sct_root_flag = 1)
799: THEN
800: ----if p_msite_rec.enable_for_store = FND_API.g_true and
801: if l_root_section_flag = FND_API.g_true
802: then
803: IF (l_debug = 'Y') THEN
804: IBE_UTIL.Debug('Before calling IBE_DSP_HIERARCHY_SETUP_PVT.' || 'Associate_Root_Sct_To_MSite ');
805: END IF;
806:
807: IBE_DSP_HIERARCHY_SETUP_PVT.Associate_Root_Sct_To_MSite
808: (
809: p_api_version => p_api_version,
810: p_init_msg_list => FND_API.g_false,
811: p_commit => FND_API.g_false,
812: p_validation_level => 100,
813: p_section_id => p_msite_rec.msite_root_section_id,
814: p_mini_site_id => p_msite_rec.msite_id,
807: IBE_DSP_HIERARCHY_SETUP_PVT.Associate_Root_Sct_To_MSite
808: (
809: p_api_version => p_api_version,
810: p_init_msg_list => FND_API.g_false,
811: p_commit => FND_API.g_false,
812: p_validation_level => 100,
813: p_section_id => p_msite_rec.msite_root_section_id,
814: p_mini_site_id => p_msite_rec.msite_id,
815: x_return_status => l_return_status,
820: IF (l_debug = 'Y') THEN
821: IBE_UTIL.Debug('After calling IBE_DSP_HIERARCHY_SETUP_PVT.' || 'Associate_Root_Sct_To_MSite ');
822: END IF;
823:
824: if l_return_status = FND_API.G_RET_STS_SUCCESS then
825: update IBE_MSITES_B set msite_root_section_id = l_root_section_id ,
826: store_id = l_store_id
827: where msite_id=p_msite_rec.msite_id;
828: else
825: update IBE_MSITES_B set msite_root_section_id = l_root_section_id ,
826: store_id = l_store_id
827: where msite_id=p_msite_rec.msite_id;
828: else
829: raise FND_API.g_exc_error;
830: end if;
831: end if;
832: END IF;
833:
833:
834: --dbms_output.put_line('Operation is successful ' );
835: --- Check if the caller requested to commit ,
836: --- If p_commit set to true, commit the transaction
837: IF FND_API.to_boolean(p_commit) THEN
838: COMMIT;
839: END IF;
840:
841: x_return_status := FND_API.G_RET_STS_SUCCESS;
837: IF FND_API.to_boolean(p_commit) THEN
838: COMMIT;
839: END IF;
840:
841: x_return_status := FND_API.G_RET_STS_SUCCESS;
842:
843: FND_MSG_PUB.count_and_get(
844: p_encoded => FND_API.g_false,
845: p_count => x_msg_count,
840:
841: x_return_status := FND_API.G_RET_STS_SUCCESS;
842:
843: FND_MSG_PUB.count_and_get(
844: p_encoded => FND_API.g_false,
845: p_count => x_msg_count,
846: p_data => x_msg_data
847: );
848:
847: );
848:
849: EXCEPTION
850:
851: WHEN FND_API.g_exc_error THEN
852: ROLLBACK TO save_msite;
853: x_return_status := FND_API.g_ret_sts_error;
854: FND_MSG_PUB.count_and_get(
855: p_encoded => FND_API.g_false,
849: EXCEPTION
850:
851: WHEN FND_API.g_exc_error THEN
852: ROLLBACK TO save_msite;
853: x_return_status := FND_API.g_ret_sts_error;
854: FND_MSG_PUB.count_and_get(
855: p_encoded => FND_API.g_false,
856: p_count => x_msg_count,
857: p_data => x_msg_data
851: WHEN FND_API.g_exc_error THEN
852: ROLLBACK TO save_msite;
853: x_return_status := FND_API.g_ret_sts_error;
854: FND_MSG_PUB.count_and_get(
855: p_encoded => FND_API.g_false,
856: p_count => x_msg_count,
857: p_data => x_msg_data
858: );
859:
856: p_count => x_msg_count,
857: p_data => x_msg_data
858: );
859:
860: WHEN FND_API.g_exc_unexpected_error THEN
861: ROLLBACK TO save_msite;
862: x_return_status := FND_API.g_ret_sts_unexp_error ;
863: --dbms_output.put_line('unexpected error raised');
864: FND_MSG_PUB.count_and_get(
858: );
859:
860: WHEN FND_API.g_exc_unexpected_error THEN
861: ROLLBACK TO save_msite;
862: x_return_status := FND_API.g_ret_sts_unexp_error ;
863: --dbms_output.put_line('unexpected error raised');
864: FND_MSG_PUB.count_and_get(
865: p_encoded => FND_API.g_false,
866: p_count => x_msg_count,
861: ROLLBACK TO save_msite;
862: x_return_status := FND_API.g_ret_sts_unexp_error ;
863: --dbms_output.put_line('unexpected error raised');
864: FND_MSG_PUB.count_and_get(
865: p_encoded => FND_API.g_false,
866: p_count => x_msg_count,
867: p_data => x_msg_data
868: );
869:
868: );
869:
870: WHEN master_msite_exists_exception THEN
871: ROLLBACK TO save_msite;
872: x_return_status := FND_API.g_ret_sts_error ;
873: FND_MESSAGE.set_name('IBE','IBE_MSITE_MASTER_EXISTS');
874: FND_MSG_PUB.ADD;
875: --dbms_output.put_line('master_msite error raised');
876: FND_MSG_PUB.count_and_get(
873: FND_MESSAGE.set_name('IBE','IBE_MSITE_MASTER_EXISTS');
874: FND_MSG_PUB.ADD;
875: --dbms_output.put_line('master_msite error raised');
876: FND_MSG_PUB.count_and_get(
877: p_encoded => FND_API.g_false,
878: p_count => x_msg_count,
879: p_data => x_msg_data
880: );
881:
880: );
881:
882: WHEN store_not_exists_exception THEN
883: ROLLBACK TO save_msite;
884: x_return_status := FND_API.g_ret_sts_error ;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
882: WHEN store_not_exists_exception THEN
883: ROLLBACK TO save_msite;
884: x_return_status := FND_API.g_ret_sts_error ;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890:
889: );
890:
891: WHEN msite_default_org_missing THEN
892: ROLLBACK TO save_msite;
893: x_return_status := FND_API.g_ret_sts_error;
894: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_ORG_REQ');
895: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
896: FND_MSG_PUB.ADD;
897: FND_MSG_PUB.count_and_get(
894: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_ORG_REQ');
895: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
896: FND_MSG_PUB.ADD;
897: FND_MSG_PUB.count_and_get(
898: p_encoded => FND_API.g_false,
899: p_count => x_msg_count,
900: p_data => x_msg_data
901: );
902: WHEN msite_default_currency_missing THEN
900: p_data => x_msg_data
901: );
902: WHEN msite_default_currency_missing THEN
903: ROLLBACK TO save_msite;
904: x_return_status := FND_API.g_ret_sts_error;
905: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_CURR_REQ');
906: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
907: FND_MSG_PUB.ADD;
908: FND_MSG_PUB.count_and_get(
905: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_CURR_REQ');
906: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
907: FND_MSG_PUB.ADD;
908: FND_MSG_PUB.count_and_get(
909: p_encoded => FND_API.g_false,
910: p_count => x_msg_count,
911: p_data => x_msg_data
912: );
913:
912: );
913:
914: WHEN msite_default_lang_missing THEN
915: ROLLBACK TO save_msite;
916: x_return_status := FND_API.g_ret_sts_error;
917: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_LANG_REQ');
918: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
919: FND_MSG_PUB.ADD;
920: FND_MSG_PUB.count_and_get(
917: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_LANG_REQ');
918: FND_MESSAGE.set_token('ID', p_msite_rec.msite_id);
919: FND_MSG_PUB.ADD;
920: FND_MSG_PUB.count_and_get(
921: p_encoded => FND_API.g_false,
922: p_count => x_msg_count,
923: p_data => x_msg_data
924: );
925:
924: );
925:
926: WHEN OTHERS THEN
927: ROLLBACK TO save_msite;
928: x_return_status := FND_API.g_ret_sts_unexp_error ;
929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
930: THEN
931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
932: END IF;
930: THEN
931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
932: END IF;
933: FND_MSG_PUB.count_and_get(
934: p_encoded => FND_API.g_false,
935: p_count => x_msg_count,
936: p_data => x_msg_data
937: );
938:
944: -- MerchantMinisiteMgr.flushMinisite("UPDATE", lmstFlushArr);
945: -- MinisiteResponsibilitiesCacheManager.invalidate();
946: PROCEDURE duplicate_msite(
947: p_api_version IN NUMBER,
948: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
949: p_commit IN VARCHAR2 := FND_API.g_false,
950: p_default_language_code IN varchar2,
951: p_default_currency_code IN varchar2,
952: p_walkin_pricing_id IN number,
945: -- MinisiteResponsibilitiesCacheManager.invalidate();
946: PROCEDURE duplicate_msite(
947: p_api_version IN NUMBER,
948: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
949: p_commit IN VARCHAR2 := FND_API.g_false,
950: p_default_language_code IN varchar2,
951: p_default_currency_code IN varchar2,
952: p_walkin_pricing_id IN number,
953: x_minisite_id OUT NOCOPY number,
1069: IBE_UTIL.debug('p_enable_traffic_filter = '||p_msite_rec.enable_traffic_filter);
1070: IBE_UTIL.debug('p_reporting_status = '||p_msite_rec.reporting_status);
1071: IBE_UTIL.debug('p_site_type = '||p_msite_rec.site_type);
1072: END IF;
1073: IF NOT FND_API.Compatible_API_Call(l_api_version,
1074: p_api_version,
1075: l_api_name,
1076: G_PKG_NAME) THEN
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1073: IF NOT FND_API.Compatible_API_Call(l_api_version,
1074: p_api_version,
1075: l_api_name,
1076: G_PKG_NAME) THEN
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: END IF;
1079: IF FND_API.to_Boolean(p_init_msg_list) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1075: l_api_name,
1076: G_PKG_NAME) THEN
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: END IF;
1079: IF FND_API.to_Boolean(p_init_msg_list) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082: -- Initialize API return status to SUCCESS
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1079: IF FND_API.to_Boolean(p_init_msg_list) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082: -- Initialize API return status to SUCCESS
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1084:
1085: OPEN c_get_msite_detail_csr(p_msite_rec.msite_id);
1086: FETCH c_get_msite_detail_csr INTO l_party_access_code;
1087: CLOSE c_get_msite_detail_csr;
1102: l_msite_rec.resp_access_flag := p_msite_rec.resp_access_flag;
1103: l_msite_rec.payment_threshold_enable_flag := p_msite_rec.payment_threshold_enable_flag;
1104: l_msite_rec.profile_id := null;
1105: l_msite_rec.date_format := null;
1106: l_msite_rec.msite_master_flag := FND_API.g_false;
1107: l_msite_rec.enable_for_store := null;
1108: l_msite_rec.url := null;
1109: l_msite_rec.theme_id := null;
1110: l_msite_rec.enable_traffic_filter := p_msite_rec.enable_traffic_filter;
1111: l_msite_rec.reporting_status := p_msite_rec.reporting_status;
1112: l_msite_rec.site_type := p_msite_rec.site_type;
1113: IBE_MSite_GRP.save_msite(
1114: p_api_version => l_api_version,
1115: p_init_msg_list => FND_API.g_false,
1116: p_commit => FND_API.g_false,
1117: x_return_status => l_return_status,
1118: x_msg_count => l_msg_count,
1119: x_msg_data => l_msg_data,
1112: l_msite_rec.site_type := p_msite_rec.site_type;
1113: IBE_MSite_GRP.save_msite(
1114: p_api_version => l_api_version,
1115: p_init_msg_list => FND_API.g_false,
1116: p_commit => FND_API.g_false,
1117: x_return_status => l_return_status,
1118: x_msg_count => l_msg_count,
1119: x_msg_data => l_msg_data,
1120: p_msite_rec => l_msite_rec);
1117: x_return_status => l_return_status,
1118: x_msg_count => l_msg_count,
1119: x_msg_data => l_msg_data,
1120: p_msite_rec => l_msite_rec);
1121: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1122: IF (l_debug = 'Y') THEN
1123: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite');
1124: for i in 1..l_msg_count loop
1125: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1121: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1122: IF (l_debug = 'Y') THEN
1123: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite');
1124: for i in 1..l_msg_count loop
1125: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1126: IBE_UTIL.debug(l_msg_data);
1127: end loop;
1128: END IF;
1129: RAISE FND_API.G_EXC_ERROR;
1125: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1126: IBE_UTIL.debug(l_msg_data);
1127: end loop;
1128: END IF;
1129: RAISE FND_API.G_EXC_ERROR;
1130: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1131: IF (l_debug = 'Y') THEN
1132: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite');
1133: for i in 1..l_msg_count loop
1126: IBE_UTIL.debug(l_msg_data);
1127: end loop;
1128: END IF;
1129: RAISE FND_API.G_EXC_ERROR;
1130: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1131: IF (l_debug = 'Y') THEN
1132: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite');
1133: for i in 1..l_msg_count loop
1134: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1130: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1131: IF (l_debug = 'Y') THEN
1132: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite');
1133: for i in 1..l_msg_count loop
1134: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1135: IBE_UTIL.debug(l_msg_data);
1136: end loop;
1137: END IF;
1138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1135: IBE_UTIL.debug(l_msg_data);
1136: end loop;
1137: END IF;
1138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1139: END IF;
1140: l_msite_id := l_msite_rec.msite_id;
1141: l_version_number := l_msite_rec.Object_Version_Number;
1142: x_minisite_id := l_msite_rec.msite_id;
1154:
1155: IF (l_language_code = p_default_language_code) THEN
1156: l_def_found := 1;
1157: l_msite_languages_tbl(l_i).language_code := l_language_code;
1158: l_msite_languages_tbl(l_i).default_flag := FND_API.g_true;
1159: l_msite_languages_tbl(l_i).enable_flag := 'Y';
1160: ELSE
1161: l_msite_languages_tbl(l_i).language_code := l_language_code;
1162: l_msite_languages_tbl(l_i).default_flag := FND_API.g_false;
1158: l_msite_languages_tbl(l_i).default_flag := FND_API.g_true;
1159: l_msite_languages_tbl(l_i).enable_flag := 'Y';
1160: ELSE
1161: l_msite_languages_tbl(l_i).language_code := l_language_code;
1162: l_msite_languages_tbl(l_i).default_flag := FND_API.g_false;
1163: l_msite_languages_tbl(l_i).enable_flag := l_enable_flag;
1164: END IF;
1165: l_i := l_i + 1;
1166: END LOOP;
1167: CLOSE c_get_msite_langs_csr;
1168:
1169: IF (l_i = 1) OR (l_def_found = 0) THEN
1170: l_msite_languages_tbl(l_i).language_code := p_default_language_code;
1171: l_msite_languages_tbl(l_i).default_flag := FND_API.g_true;
1172: l_msite_languages_tbl(l_i).enable_flag := 'Y';
1173: END IF;
1174: IBE_MSite_GRP.save_msite_languages(
1175: p_api_version => l_api_version,
1172: l_msite_languages_tbl(l_i).enable_flag := 'Y';
1173: END IF;
1174: IBE_MSite_GRP.save_msite_languages(
1175: p_api_version => l_api_version,
1176: p_init_msg_list => FND_API.g_false,
1177: p_commit => p_commit,
1178: x_return_status => l_return_status,
1179: x_msg_count => l_msg_count,
1180: x_msg_data => l_msg_data,
1179: x_msg_count => l_msg_count,
1180: x_msg_data => l_msg_data,
1181: p_msite_id => l_msite_id,
1182: p_msite_languages_tbl => l_msite_languages_tbl);
1183: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1184: IF (l_debug = 'Y') THEN
1185: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_languages');
1186: for i in 1..l_msg_count loop
1187: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1183: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1184: IF (l_debug = 'Y') THEN
1185: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_languages');
1186: for i in 1..l_msg_count loop
1187: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1188: IBE_UTIL.debug(l_msg_data);
1189: end loop;
1190: END IF;
1191: RAISE FND_API.G_EXC_ERROR;
1187: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1188: IBE_UTIL.debug(l_msg_data);
1189: end loop;
1190: END IF;
1191: RAISE FND_API.G_EXC_ERROR;
1192: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: IF (l_debug = 'Y') THEN
1194: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_languages');
1195: for i in 1..l_msg_count loop
1188: IBE_UTIL.debug(l_msg_data);
1189: end loop;
1190: END IF;
1191: RAISE FND_API.G_EXC_ERROR;
1192: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: IF (l_debug = 'Y') THEN
1194: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_languages');
1195: for i in 1..l_msg_count loop
1196: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1192: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1193: IF (l_debug = 'Y') THEN
1194: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_languages');
1195: for i in 1..l_msg_count loop
1196: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1197: IBE_UTIL.debug(l_msg_data);
1198: end loop;
1199: END IF;
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1197: IBE_UTIL.debug(l_msg_data);
1198: end loop;
1199: END IF;
1200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201: END IF;
1202:
1203: -- Duplicate Currencies and price lists
1204: l_i := 1;
1224: l_msite_currencies_tbl(l_i).biz_partner_prc_lst_id
1225: := l_bizpartner_prc_listid;
1226: l_msite_currencies_tbl(l_i).orderable_limit
1227: := l_orderable_limit;
1228: l_msite_currencies_tbl(l_i).default_flag := FND_API.g_true;
1229: l_msite_currencies_tbl(l_i).payment_threshold
1230: := l_payment_threshold;
1231:
1232: l_msite_currencies_tbl(l_i).partner_prc_lst_id
1241: l_msite_currencies_tbl(l_i).biz_partner_prc_lst_id
1242: := l_bizpartner_prc_listid;
1243: l_msite_currencies_tbl(l_i).orderable_limit
1244: := l_orderable_limit;
1245: l_msite_currencies_tbl(l_i).default_flag := FND_API.g_false;
1246: l_msite_currencies_tbl(l_i).payment_threshold
1247: := l_payment_threshold;
1248:
1249: l_msite_currencies_tbl(l_i).partner_prc_lst_id
1262: l_msite_currencies_tbl(l_i).biz_partner_prc_lst_id
1263: := p_walkin_pricing_id;
1264: l_msite_currencies_tbl(l_i).orderable_limit
1265: := NULL;
1266: l_msite_currencies_tbl(l_i).default_flag := FND_API.g_true;
1267: l_msite_currencies_tbl(l_i).payment_threshold
1268: := NULL;
1269:
1270: l_msite_currencies_tbl(l_i).partner_prc_lst_id
1272:
1273: END IF;
1274: IBE_MSite_GRP.save_msite_currencies(
1275: p_api_version => 1.0,
1276: p_init_msg_list => FND_API.g_false,
1277: p_commit => p_commit,
1278: x_return_status => l_return_status,
1279: x_msg_count => l_msg_count,
1280: x_msg_data => l_msg_data,
1279: x_msg_count => l_msg_count,
1280: x_msg_data => l_msg_data,
1281: p_msite_id => l_msite_id,
1282: p_msite_currencies_tbl => l_msite_currencies_tbl);
1283: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1284: IF (l_debug = 'Y') THEN
1285: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1286: for i in 1..l_msg_count loop
1287: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1283: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1284: IF (l_debug = 'Y') THEN
1285: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1286: for i in 1..l_msg_count loop
1287: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1288: IBE_UTIL.debug(l_msg_data);
1289: end loop;
1290: END IF;
1291: RAISE FND_API.G_EXC_ERROR;
1287: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1288: IBE_UTIL.debug(l_msg_data);
1289: end loop;
1290: END IF;
1291: RAISE FND_API.G_EXC_ERROR;
1292: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1293: IF (l_debug = 'Y') THEN
1294: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1295: for i in 1..l_msg_count loop
1288: IBE_UTIL.debug(l_msg_data);
1289: end loop;
1290: END IF;
1291: RAISE FND_API.G_EXC_ERROR;
1292: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1293: IF (l_debug = 'Y') THEN
1294: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1295: for i in 1..l_msg_count loop
1296: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1292: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1293: IF (l_debug = 'Y') THEN
1294: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1295: for i in 1..l_msg_count loop
1296: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1297: IBE_UTIL.debug(l_msg_data);
1298: end loop;
1299: END IF;
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1297: IBE_UTIL.debug(l_msg_data);
1298: end loop;
1299: END IF;
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: END IF;
1302:
1303: -- For Payment Types, Shipping Methods, and Credit Card
1304: IBE_MSITE_INFORMATION_MGR_PVT.duplicate_msite_info (
1302:
1303: -- For Payment Types, Shipping Methods, and Credit Card
1304: IBE_MSITE_INFORMATION_MGR_PVT.duplicate_msite_info (
1305: p_api_version => 1.0,
1306: p_init_msg_list => FND_API.G_FALSE,
1307: p_commit => p_commit,
1308: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1309: p_source_msite_id => p_msite_rec.msite_id,
1310: p_target_msite_id => l_msite_id,
1304: IBE_MSITE_INFORMATION_MGR_PVT.duplicate_msite_info (
1305: p_api_version => 1.0,
1306: p_init_msg_list => FND_API.G_FALSE,
1307: p_commit => p_commit,
1308: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1309: p_source_msite_id => p_msite_rec.msite_id,
1310: p_target_msite_id => l_msite_id,
1311: x_return_status => l_return_status,
1312: x_msg_count => l_msg_count,
1311: x_return_status => l_return_status,
1312: x_msg_count => l_msg_count,
1313: x_msg_data => l_msg_data
1314: );
1315: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1316: IF (l_debug = 'Y') THEN
1317: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
1318: 'Change_Msite_Info');
1319: for i in 1..l_msg_count loop
1316: IF (l_debug = 'Y') THEN
1317: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
1318: 'Change_Msite_Info');
1319: for i in 1..l_msg_count loop
1320: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1321: IBE_UTIL.debug(l_msg_data);
1322: end loop;
1323: END IF;
1324: RAISE FND_API.G_EXC_ERROR;
1320: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1321: IBE_UTIL.debug(l_msg_data);
1322: end loop;
1323: END IF;
1324: RAISE FND_API.G_EXC_ERROR;
1325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1326: IF (l_debug = 'Y') THEN
1327: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
1328: 'Change_Msite_Info');
1321: IBE_UTIL.debug(l_msg_data);
1322: end loop;
1323: END IF;
1324: RAISE FND_API.G_EXC_ERROR;
1325: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1326: IF (l_debug = 'Y') THEN
1327: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
1328: 'Change_Msite_Info');
1329: for i in 1..l_msg_count loop
1326: IF (l_debug = 'Y') THEN
1327: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
1328: 'Change_Msite_Info');
1329: for i in 1..l_msg_count loop
1330: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1331: IBE_UTIL.debug(l_msg_data);
1332: end loop;
1333: END IF;
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1330: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1331: IBE_UTIL.debug(l_msg_data);
1332: end loop;
1333: END IF;
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: END IF;
1336:
1337: -- For Responsibility Association Plus Group Code
1338: l_prev_msite_resp_id := NULL;
1354: l_msite_resp_id := NULL;
1355:
1356: IBE_Msite_Resp_Pvt.Create_Msite_Resp (
1357: p_api_version => 1.0,
1358: p_init_msg_list => FND_API.G_FALSE,
1359: p_commit => p_commit,
1360: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1361: p_msite_resp_id => l_msite_resp_id,
1362: p_msite_id => l_msite_id,
1356: IBE_Msite_Resp_Pvt.Create_Msite_Resp (
1357: p_api_version => 1.0,
1358: p_init_msg_list => FND_API.G_FALSE,
1359: p_commit => p_commit,
1360: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1361: p_msite_resp_id => l_msite_resp_id,
1362: p_msite_id => l_msite_id,
1363: p_responsibility_id => l_responsibility_id,
1364: p_application_id => l_application_id,
1375: l_msite_resp_id := x_msite_resp_id;
1376:
1377: IBE_Msite_Resp_Pvt.Create_Msite_Resp (
1378: p_api_version => 1.0,
1379: p_init_msg_list => FND_API.G_FALSE,
1380: p_commit => p_commit,
1381: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1382: p_msite_resp_id => l_msite_resp_id,
1383: p_msite_id => l_msite_id,
1377: IBE_Msite_Resp_Pvt.Create_Msite_Resp (
1378: p_api_version => 1.0,
1379: p_init_msg_list => FND_API.G_FALSE,
1380: p_commit => p_commit,
1381: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1382: p_msite_resp_id => l_msite_resp_id,
1383: p_msite_id => l_msite_id,
1384: p_responsibility_id => l_responsibility_id,
1385: p_application_id => l_application_id,
1392: x_return_status => l_return_status,
1393: x_msg_count => l_msg_count,
1394: x_msg_data => l_msg_data);
1395: END IF;
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: IF (l_debug = 'Y') THEN
1398: IBE_UTIL.debug('Error in IBE_Msite_Resp_Pvt.Create_Msite_Resp');
1399: for i in 1..l_msg_count loop
1400: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1396: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1397: IF (l_debug = 'Y') THEN
1398: IBE_UTIL.debug('Error in IBE_Msite_Resp_Pvt.Create_Msite_Resp');
1399: for i in 1..l_msg_count loop
1400: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1401: IBE_UTIL.debug(l_msg_data);
1402: end loop;
1403: END IF;
1404: RAISE FND_API.G_EXC_ERROR;
1400: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1401: IBE_UTIL.debug(l_msg_data);
1402: end loop;
1403: END IF;
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: IF (l_debug = 'Y') THEN
1407: IBE_UTIL.debug('Error in IBE_Msite_Resp_Pvt.Create_Msite_Resp');
1408: for i in 1..l_msg_count loop
1401: IBE_UTIL.debug(l_msg_data);
1402: end loop;
1403: END IF;
1404: RAISE FND_API.G_EXC_ERROR;
1405: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: IF (l_debug = 'Y') THEN
1407: IBE_UTIL.debug('Error in IBE_Msite_Resp_Pvt.Create_Msite_Resp');
1408: for i in 1..l_msg_count loop
1409: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1405: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: IF (l_debug = 'Y') THEN
1407: IBE_UTIL.debug('Error in IBE_Msite_Resp_Pvt.Create_Msite_Resp');
1408: for i in 1..l_msg_count loop
1409: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1410: IBE_UTIL.debug(l_msg_data);
1411: end loop;
1412: END IF;
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1410: IBE_UTIL.debug(l_msg_data);
1411: end loop;
1412: END IF;
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415: END LOOP;
1416: CLOSE c_get_msite_resp_csr;
1417:
1436: CLOSE c_get_msite_access_csr;
1437: IF (l_i > 1) THEN
1438: Ibe_Msite_Prty_Accss_Mgr_Pvt.Associate_Parties_To_MSite(
1439: p_api_version => 1.0,
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_commit => p_commit,
1442: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1443: p_msite_id => l_msite_id,
1444: p_party_ids => l_party_ids,
1438: Ibe_Msite_Prty_Accss_Mgr_Pvt.Associate_Parties_To_MSite(
1439: p_api_version => 1.0,
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_commit => p_commit,
1442: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1443: p_msite_id => l_msite_id,
1444: p_party_ids => l_party_ids,
1445: p_start_date_actives => l_start_date_actives,
1446: p_end_date_actives => l_end_date_actives,
1449: x_is_any_duplicate_status => l_is_any_duplicate_status,
1450: x_return_status => l_return_status,
1451: x_msg_count => l_msg_count,
1452: x_msg_data => l_msg_data);
1453: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: IF (l_debug = 'Y') THEN
1455: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1456: for i in 1..l_msg_count loop
1457: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1453: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: IF (l_debug = 'Y') THEN
1455: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1456: for i in 1..l_msg_count loop
1457: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1458: IBE_UTIL.debug(l_msg_data);
1459: end loop;
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1457: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1458: IBE_UTIL.debug(l_msg_data);
1459: end loop;
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1462: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1463: IF (l_debug = 'Y') THEN
1464: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1465: for i in 1..l_msg_count loop
1458: IBE_UTIL.debug(l_msg_data);
1459: end loop;
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1462: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1463: IF (l_debug = 'Y') THEN
1464: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1465: for i in 1..l_msg_count loop
1466: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1462: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1463: IF (l_debug = 'Y') THEN
1464: IBE_UTIL.debug('Error in IBE_MSite_GRP.save_msite_currencies');
1465: for i in 1..l_msg_count loop
1466: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1467: IBE_UTIL.debug(l_msg_data);
1468: end loop;
1469: END IF;
1470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1466: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
1467: IBE_UTIL.debug(l_msg_data);
1468: end loop;
1469: END IF;
1470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1471: END IF;
1472: END IF;
1473:
1474: IF (l_debug = 'Y') THEN
1473:
1474: IF (l_debug = 'Y') THEN
1475: IBE_UTIL.debug('Before committing the work:'||p_commit);
1476: END IF;
1477: IF (FND_API.To_Boolean(p_commit)) THEN
1478: COMMIT WORK;
1479: END IF;
1480: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1481: p_data => x_msg_data,
1483: IF (l_debug = 'Y') THEN
1484: IBE_UTIL.debug('duplicate_msite Ends +');
1485: END IF;
1486: EXCEPTION
1487: WHEN FND_API.G_EXC_ERROR THEN
1488: ROLLBACK TO DUPLICATE_MSITE_SAVE;
1489: x_return_status := FND_API.G_RET_STS_ERROR;
1490: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1491: p_data => x_msg_data,
1485: END IF;
1486: EXCEPTION
1487: WHEN FND_API.G_EXC_ERROR THEN
1488: ROLLBACK TO DUPLICATE_MSITE_SAVE;
1489: x_return_status := FND_API.G_RET_STS_ERROR;
1490: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1491: p_data => x_msg_data,
1492: p_encoded => 'F');
1493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1489: x_return_status := FND_API.G_RET_STS_ERROR;
1490: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1491: p_data => x_msg_data,
1492: p_encoded => 'F');
1493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1494: ROLLBACK TO DUPLICATE_MSITE_SAVE;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1497: p_data => x_msg_data,
1491: p_data => x_msg_data,
1492: p_encoded => 'F');
1493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1494: ROLLBACK TO DUPLICATE_MSITE_SAVE;
1495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1497: p_data => x_msg_data,
1498: p_encoded => 'F');
1499: WHEN OTHERS THEN
1506: IF (l_debug = 'Y') THEN
1507: IBE_UTIL.debug('SQLCODE:'||SQLCODE);
1508: IBE_UTIL.debug('SQLERRM:'||SQLERRM);
1509: END IF;
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1511: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1512: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1513: END IF;
1514: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1518:
1519:
1520: PROCEDURE save_msite_languages(
1521: p_api_version IN NUMBER,
1522: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1523: p_commit IN VARCHAR2 := FND_API.g_false,
1524: x_return_status OUT NOCOPY VARCHAR2,
1525: x_msg_count OUT NOCOPY NUMBER,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1519:
1520: PROCEDURE save_msite_languages(
1521: p_api_version IN NUMBER,
1522: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1523: p_commit IN VARCHAR2 := FND_API.g_false,
1524: x_return_status OUT NOCOPY VARCHAR2,
1525: x_msg_count OUT NOCOPY NUMBER,
1526: x_msg_data OUT NOCOPY VARCHAR2,
1527: p_msite_id IN NUMBER,
1548:
1549: --------------------- initialize -----------------------+
1550: SAVEPOINT save_msite_languages;
1551:
1552: IF NOT FND_API.compatible_api_call(
1553: g_api_version,
1554: p_api_version,
1555: l_api_name,
1556: g_pkg_name
1554: p_api_version,
1555: l_api_name,
1556: g_pkg_name
1557: ) THEN
1558: RAISE FND_API.g_exc_unexpected_error;
1559: END IF;
1560:
1561:
1562: IF FND_API.to_boolean(p_init_msg_list) THEN
1558: RAISE FND_API.g_exc_unexpected_error;
1559: END IF;
1560:
1561:
1562: IF FND_API.to_boolean(p_init_msg_list) THEN
1563: FND_MSG_PUB.initialize;
1564: END IF;
1565:
1566:
1563: FND_MSG_PUB.initialize;
1564: END IF;
1565:
1566:
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: --- Check if the msite_id exists
1570: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1571: THEN
1566:
1567: x_return_status := FND_API.G_RET_STS_SUCCESS;
1568:
1569: --- Check if the msite_id exists
1570: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1571: THEN
1572:
1573: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
1574: raise FND_API.g_exc_error;
1570: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1571: THEN
1572:
1573: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
1574: raise FND_API.g_exc_error;
1575: end if;
1576:
1577: --dbms_output.put_line('Minisite id is passed ' );
1578: ---- Delete all the entries for the mini-site
1594: savepoint save_msite_language;
1595:
1596: if valid_language(p_msite_languages_tbl(l_index).language_code) =
1597: false THEN
1598: raise FND_API.g_exc_error;
1599: end if;
1600:
1601: OPEN msite_languages_id_seq;
1602: FETCH msite_languages_id_seq INTO l_msite_languages_id;
1627:
1628: --dbms_output.put_line('inserted language passed ' );
1629: l_insert_row := l_insert_row + 1;
1630: -- Check if this language is default
1631: if p_msite_languages_tbl(l_index).default_flag = FND_API.g_true
1632: and default_index = 0 then
1633: default_index := l_index;
1634: end if;
1635:
1635:
1636: EXCEPTION
1637: WHEN OTHERS THEN
1638: ROLLBACK TO save_msite_language;
1639: x_return_status := FND_API.g_ret_sts_error;
1640: END;
1641:
1642: END LOOP;
1643: /* else if msite_enabled_for_store(p_msite_id) = true then
1662:
1663: --- Check if the caller requested to commit ,
1664: --- If p_commit set to true, commit the transaction
1665: if l_insert_row > 0 then
1666: IF FND_API.to_boolean(p_commit) THEN
1667: COMMIT;
1668: END IF;
1669: else
1670: raise FND_API.g_exc_error;
1666: IF FND_API.to_boolean(p_commit) THEN
1667: COMMIT;
1668: END IF;
1669: else
1670: raise FND_API.g_exc_error;
1671: end if;
1672: else
1673: raise ibe_dspmgrvalidation_grp.msite_req_exception;
1674: end if;
1671: end if;
1672: else
1673: raise ibe_dspmgrvalidation_grp.msite_req_exception;
1674: end if;
1675: FND_MSG_PUB.count_and_get( p_encoded => FND_API.g_false,
1676: p_count => x_msg_count,
1677: p_data => x_msg_data
1678: );
1679: EXCEPTION
1676: p_count => x_msg_count,
1677: p_data => x_msg_data
1678: );
1679: EXCEPTION
1680: WHEN FND_API.g_exc_error THEN
1681: ROLLBACK TO save_msite_languages;
1682: x_return_status := FND_API.g_ret_sts_error;
1683: FND_MSG_PUB.count_and_get(
1684: p_encoded => FND_API.g_false,
1678: );
1679: EXCEPTION
1680: WHEN FND_API.g_exc_error THEN
1681: ROLLBACK TO save_msite_languages;
1682: x_return_status := FND_API.g_ret_sts_error;
1683: FND_MSG_PUB.count_and_get(
1684: p_encoded => FND_API.g_false,
1685: p_count => x_msg_count,
1686: p_data => x_msg_data
1680: WHEN FND_API.g_exc_error THEN
1681: ROLLBACK TO save_msite_languages;
1682: x_return_status := FND_API.g_ret_sts_error;
1683: FND_MSG_PUB.count_and_get(
1684: p_encoded => FND_API.g_false,
1685: p_count => x_msg_count,
1686: p_data => x_msg_data
1687: );
1688: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
1686: p_data => x_msg_data
1687: );
1688: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
1689: ROLLBACK TO save_msite_languages;
1690: x_return_status := FND_API.g_ret_sts_error;
1691: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
1692: FND_MSG_PUB.ADD;
1693: FND_MSG_PUB.count_and_get(
1694: p_encoded => FND_API.g_false,
1690: x_return_status := FND_API.g_ret_sts_error;
1691: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
1692: FND_MSG_PUB.ADD;
1693: FND_MSG_PUB.count_and_get(
1694: p_encoded => FND_API.g_false,
1695: p_count => x_msg_count,
1696: p_data => x_msg_data
1697: );
1698: WHEN msite_default_lang_missing THEN
1696: p_data => x_msg_data
1697: );
1698: WHEN msite_default_lang_missing THEN
1699: ROLLBACK TO save_msite_languages;
1700: x_return_status := FND_API.g_ret_sts_error;
1701: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_LANG_REQ');
1702: FND_MESSAGE.set_token('ID', p_msite_id);
1703: FND_MSG_PUB.ADD;
1704: FND_MSG_PUB.count_and_get(
1701: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_LANG_REQ');
1702: FND_MESSAGE.set_token('ID', p_msite_id);
1703: FND_MSG_PUB.ADD;
1704: FND_MSG_PUB.count_and_get(
1705: p_encoded => FND_API.g_false,
1706: p_count => x_msg_count,
1707: p_data => x_msg_data
1708: );
1709: WHEN FND_API.g_exc_unexpected_error THEN
1705: p_encoded => FND_API.g_false,
1706: p_count => x_msg_count,
1707: p_data => x_msg_data
1708: );
1709: WHEN FND_API.g_exc_unexpected_error THEN
1710: ROLLBACK TO save_msite_languages;
1711: x_return_status := FND_API.g_ret_sts_unexp_error ;
1712: FND_MSG_PUB.count_and_get(
1713: p_encoded => FND_API.g_false,
1707: p_data => x_msg_data
1708: );
1709: WHEN FND_API.g_exc_unexpected_error THEN
1710: ROLLBACK TO save_msite_languages;
1711: x_return_status := FND_API.g_ret_sts_unexp_error ;
1712: FND_MSG_PUB.count_and_get(
1713: p_encoded => FND_API.g_false,
1714: p_count => x_msg_count,
1715: p_data => x_msg_data );
1709: WHEN FND_API.g_exc_unexpected_error THEN
1710: ROLLBACK TO save_msite_languages;
1711: x_return_status := FND_API.g_ret_sts_unexp_error ;
1712: FND_MSG_PUB.count_and_get(
1713: p_encoded => FND_API.g_false,
1714: p_count => x_msg_count,
1715: p_data => x_msg_data );
1716: WHEN OTHERS THEN
1717: ROLLBACK TO save_msite_languages;
1714: p_count => x_msg_count,
1715: p_data => x_msg_data );
1716: WHEN OTHERS THEN
1717: ROLLBACK TO save_msite_languages;
1718: x_return_status := FND_API.g_ret_sts_unexp_error ;
1719: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1720: THEN
1721: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1722: END IF;
1720: THEN
1721: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1722: END IF;
1723: FND_MSG_PUB.count_and_get(
1724: p_encoded => FND_API.g_false,
1725: p_count => x_msg_count,
1726: p_data => x_msg_data );
1727:
1728: END save_msite_languages;
1728: END save_msite_languages;
1729:
1730: PROCEDURE save_msite_currencies(
1731: p_api_version IN NUMBER,
1732: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1733: p_commit IN VARCHAR2 := FND_API.g_false,
1734: x_return_status OUT NOCOPY VARCHAR2,
1735: x_msg_count OUT NOCOPY NUMBER,
1736: x_msg_data OUT NOCOPY VARCHAR2,
1729:
1730: PROCEDURE save_msite_currencies(
1731: p_api_version IN NUMBER,
1732: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1733: p_commit IN VARCHAR2 := FND_API.g_false,
1734: x_return_status OUT NOCOPY VARCHAR2,
1735: x_msg_count OUT NOCOPY NUMBER,
1736: x_msg_data OUT NOCOPY VARCHAR2,
1737: p_msite_id IN NUMBER,
1758: --------------------- initialize -----------------------+
1759:
1760: SAVEPOINT save_msite_currencies;
1761:
1762: IF NOT FND_API.compatible_api_call(
1763: g_api_version,
1764: p_api_version,
1765: l_api_name,
1766: g_pkg_name ) THEN
1763: g_api_version,
1764: p_api_version,
1765: l_api_name,
1766: g_pkg_name ) THEN
1767: RAISE FND_API.g_exc_unexpected_error;
1768: END IF;
1769:
1770: IF FND_API.to_boolean(p_init_msg_list) THEN
1771: FND_MSG_PUB.initialize;
1766: g_pkg_name ) THEN
1767: RAISE FND_API.g_exc_unexpected_error;
1768: END IF;
1769:
1770: IF FND_API.to_boolean(p_init_msg_list) THEN
1771: FND_MSG_PUB.initialize;
1772: END IF;
1773: x_return_status := FND_API.G_RET_STS_SUCCESS;
1774: --- Check if the msite_id exists
1769:
1770: IF FND_API.to_boolean(p_init_msg_list) THEN
1771: FND_MSG_PUB.initialize;
1772: END IF;
1773: x_return_status := FND_API.G_RET_STS_SUCCESS;
1774: --- Check if the msite_id exists
1775: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1776: THEN
1777: --dbms_output.put_line('Minisite id is passed ' );
1771: FND_MSG_PUB.initialize;
1772: END IF;
1773: x_return_status := FND_API.G_RET_STS_SUCCESS;
1774: --- Check if the msite_id exists
1775: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1776: THEN
1777: --dbms_output.put_line('Minisite id is passed ' );
1778: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
1779: raise FND_API.g_exc_error;
1775: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
1776: THEN
1777: --dbms_output.put_line('Minisite id is passed ' );
1778: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
1779: raise FND_API.g_exc_error;
1780: end if;
1781: if (p_msite_currencies_tbl.count > 0 ) then
1782: ---- Delete all the entries for the mini-site
1783: DELETE FROM IBE_MSITE_CURRENCIES where
1789: BEGIN
1790: savepoint save_msite_currency;
1791: if valid_currency(p_msite_currencies_tbl(l_index).currency_code)
1792: = false THEN
1793: raise FND_API.g_exc_error;
1794: end if;
1795:
1796: QP_UTIL_PUB.Validate_Price_List_Curr_Code(
1797: p_msite_currencies_tbl(l_index).walkin_prc_lst_id,
1799: NULL,
1800: l_validate_result);
1801:
1802: if (l_validate_result = 'N') then
1803: raise FND_API.g_exc_error;
1804: end if;
1805:
1806: QP_UTIL_PUB.Validate_Price_List_Curr_Code(
1807: p_msite_currencies_tbl(l_index).registered_prc_lst_id,
1809: NULL,
1810: l_validate_result);
1811:
1812: if (l_validate_result = 'N') then
1813: raise FND_API.g_exc_error;
1814: end if;
1815:
1816: QP_UTIL_PUB.Validate_Price_List_Curr_Code(
1817: p_msite_currencies_tbl(l_index).biz_partner_prc_lst_id,
1819: NULL,
1820: l_validate_result);
1821:
1822: if (l_validate_result = 'N') then
1823: raise FND_API.g_exc_error;
1824: end if;
1825:
1826: QP_UTIL_PUB.Validate_Price_List_Curr_Code(
1827: p_msite_currencies_tbl(l_index).partner_prc_lst_id,
1829: NULL,
1830: l_validate_result);
1831:
1832: if (l_validate_result = 'N') then
1833: raise FND_API.g_exc_error;
1834: end if;
1835:
1836: /* Sept-05-2003 JQU
1837: following logic replaced by the 3 QP_UTIL_PUB.Validate_Price_List_Curr_Code
1843: p_msite_currencies_tbl(l_index).registered_prc_lst_id,
1844:
1845: = false then
1846: --dbms_output.put_line('invliad prc list id test');
1847: raise FND_API.g_exc_error;
1848: end if;
1849: */
1850: l_payment_threshold := p_msite_currencies_tbl(l_index).payment_threshold;
1851: if(l_payment_threshold = FND_API.g_miss_num)
1847: raise FND_API.g_exc_error;
1848: end if;
1849: */
1850: l_payment_threshold := p_msite_currencies_tbl(l_index).payment_threshold;
1851: if(l_payment_threshold = FND_API.g_miss_num)
1852: then
1853: l_payment_threshold := NULL;
1854: end if;
1855:
1894:
1895: l_insert_row := l_insert_row + 1;
1896: --dbms_output.put_line('inserted into currency' || l_insert_row);
1897:
1898: if p_msite_currencies_tbl(l_index).default_flag = FND_API.g_true
1899: and default_index = 0 then
1900: default_index := l_index;
1901: end if;
1902: EXCEPTION
1901: end if;
1902: EXCEPTION
1903: WHEN OTHERS THEN
1904: ROLLBACK TO save_msite_currency;
1905: x_return_status := FND_API.g_ret_sts_error;
1906: END;
1907: END LOOP;
1908: /* else if msite_enabled_for_store(p_msite_id) = true then
1909: raise msite_currencies_missing;
1922: end if;
1923: --- Check if the caller requested to commit ,
1924: --- If p_commit set to true, commit the transaction
1925: if l_insert_row > 0 then
1926: IF FND_API.to_boolean(p_commit) THEN
1927: COMMIT;
1928: END IF;
1929: else
1930: --dbms_output.put_line('raising an error' || l_insert_row);
1927: COMMIT;
1928: END IF;
1929: else
1930: --dbms_output.put_line('raising an error' || l_insert_row);
1931: raise FND_API.g_exc_error;
1932: end if;
1933: else
1934: raise ibe_dspmgrvalidation_grp.msite_req_exception;
1935: end if;
1933: else
1934: raise ibe_dspmgrvalidation_grp.msite_req_exception;
1935: end if;
1936: FND_MSG_PUB.count_and_get(
1937: p_encoded => FND_API.g_false,
1938: p_count => x_msg_count,
1939: p_data => x_msg_data
1940: );
1941:
1939: p_data => x_msg_data
1940: );
1941:
1942: EXCEPTION
1943: WHEN FND_API.g_exc_error THEN
1944: ROLLBACK TO save_msite_currencies;
1945: x_return_status := FND_API.g_ret_sts_error;
1946: FND_MSG_PUB.count_and_get(
1947: p_encoded => FND_API.g_false,
1941:
1942: EXCEPTION
1943: WHEN FND_API.g_exc_error THEN
1944: ROLLBACK TO save_msite_currencies;
1945: x_return_status := FND_API.g_ret_sts_error;
1946: FND_MSG_PUB.count_and_get(
1947: p_encoded => FND_API.g_false,
1948: p_count => x_msg_count,
1949: p_data => x_msg_data
1943: WHEN FND_API.g_exc_error THEN
1944: ROLLBACK TO save_msite_currencies;
1945: x_return_status := FND_API.g_ret_sts_error;
1946: FND_MSG_PUB.count_and_get(
1947: p_encoded => FND_API.g_false,
1948: p_count => x_msg_count,
1949: p_data => x_msg_data
1950: );
1951: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
1949: p_data => x_msg_data
1950: );
1951: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
1952: ROLLBACK TO save_msite_currencies;
1953: x_return_status := FND_API.g_ret_sts_error;
1954: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
1955: FND_MSG_PUB.ADD;
1956: FND_MSG_PUB.count_and_get(
1957: p_encoded => FND_API.g_false,
1953: x_return_status := FND_API.g_ret_sts_error;
1954: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
1955: FND_MSG_PUB.ADD;
1956: FND_MSG_PUB.count_and_get(
1957: p_encoded => FND_API.g_false,
1958: p_count => x_msg_count,
1959: p_data => x_msg_data
1960: );
1961: WHEN msite_default_currency_missing THEN
1959: p_data => x_msg_data
1960: );
1961: WHEN msite_default_currency_missing THEN
1962: ROLLBACK TO save_msite_currencies;
1963: x_return_status := FND_API.g_ret_sts_error;
1964: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_CURR_REQ');
1965: FND_MESSAGE.set_token('ID', p_msite_id);
1966: FND_MSG_PUB.ADD;
1967: FND_MSG_PUB.count_and_get(
1964: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_CURR_REQ');
1965: FND_MESSAGE.set_token('ID', p_msite_id);
1966: FND_MSG_PUB.ADD;
1967: FND_MSG_PUB.count_and_get(
1968: p_encoded => FND_API.g_false,
1969: p_count => x_msg_count,
1970: p_data => x_msg_data
1971: );
1972: WHEN FND_API.g_exc_unexpected_error THEN
1968: p_encoded => FND_API.g_false,
1969: p_count => x_msg_count,
1970: p_data => x_msg_data
1971: );
1972: WHEN FND_API.g_exc_unexpected_error THEN
1973: ROLLBACK TO save_msite_currencies;
1974: x_return_status := FND_API.g_ret_sts_unexp_error ;
1975: FND_MSG_PUB.count_and_get(
1976: p_encoded => FND_API.g_false,
1970: p_data => x_msg_data
1971: );
1972: WHEN FND_API.g_exc_unexpected_error THEN
1973: ROLLBACK TO save_msite_currencies;
1974: x_return_status := FND_API.g_ret_sts_unexp_error ;
1975: FND_MSG_PUB.count_and_get(
1976: p_encoded => FND_API.g_false,
1977: p_count => x_msg_count,
1978: p_data => x_msg_data
1972: WHEN FND_API.g_exc_unexpected_error THEN
1973: ROLLBACK TO save_msite_currencies;
1974: x_return_status := FND_API.g_ret_sts_unexp_error ;
1975: FND_MSG_PUB.count_and_get(
1976: p_encoded => FND_API.g_false,
1977: p_count => x_msg_count,
1978: p_data => x_msg_data
1979: );
1980: WHEN OTHERS THEN
1978: p_data => x_msg_data
1979: );
1980: WHEN OTHERS THEN
1981: ROLLBACK TO save_msite_currencies;
1982: x_return_status := FND_API.g_ret_sts_unexp_error ;
1983: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1984: THEN
1985: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1986: END IF;
1984: THEN
1985: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1986: END IF;
1987: FND_MSG_PUB.count_and_get(
1988: p_encoded => FND_API.g_false,
1989: p_count => x_msg_count,
1990: p_data => x_msg_data
1991: );
1992:
1995:
1996:
1997: PROCEDURE save_msite_orgids(
1998: p_api_version IN NUMBER,
1999: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2000: p_commit IN VARCHAR2 := FND_API.g_false,
2001: x_return_status OUT NOCOPY VARCHAR2,
2002: x_msg_count OUT NOCOPY NUMBER,
2003: x_msg_data OUT NOCOPY VARCHAR2,
1996:
1997: PROCEDURE save_msite_orgids(
1998: p_api_version IN NUMBER,
1999: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2000: p_commit IN VARCHAR2 := FND_API.g_false,
2001: x_return_status OUT NOCOPY VARCHAR2,
2002: x_msg_count OUT NOCOPY NUMBER,
2003: x_msg_data OUT NOCOPY VARCHAR2,
2004: p_msite_id IN NUMBER,
2024:
2025: --------------------- initialize -----------------------+
2026: SAVEPOINT save_msite_orgids;
2027:
2028: IF NOT FND_API.compatible_api_call(
2029: g_api_version,
2030: p_api_version,
2031: l_api_name,
2032: g_pkg_name
2030: p_api_version,
2031: l_api_name,
2032: g_pkg_name
2033: ) THEN
2034: RAISE FND_API.g_exc_unexpected_error;
2035: END IF;
2036:
2037:
2038: IF FND_API.to_boolean(p_init_msg_list) THEN
2034: RAISE FND_API.g_exc_unexpected_error;
2035: END IF;
2036:
2037:
2038: IF FND_API.to_boolean(p_init_msg_list) THEN
2039: FND_MSG_PUB.initialize;
2040: END IF;
2041:
2042:
2039: FND_MSG_PUB.initialize;
2040: END IF;
2041:
2042:
2043: x_return_status := FND_API.G_RET_STS_SUCCESS;
2044:
2045: --- Check if the msite_id exists
2046: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
2047: THEN
2042:
2043: x_return_status := FND_API.G_RET_STS_SUCCESS;
2044:
2045: --- Check if the msite_id exists
2046: IF p_msite_id IS NOT NULL and p_msite_id <> FND_API.g_miss_num
2047: THEN
2048: --dbms_output.put_line('Minisite id is passed ' );
2049:
2050: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
2047: THEN
2048: --dbms_output.put_line('Minisite id is passed ' );
2049:
2050: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
2051: raise FND_API.g_exc_error;
2052: end if;
2053:
2054: if (p_msite_orgids_tbl.count > 0 ) then
2055: ---- Delete all the entries for the mini-site
2065: BEGIN
2066: savepoint save_msite_orgid;
2067:
2068: if valid_orgid(p_msite_orgids_tbl(l_index).orgid) = false THEN
2069: raise FND_API.g_exc_error;
2070: end if;
2071: OPEN msite_oprorg_id_seq;
2072: FETCH msite_oprorg_id_seq INTO l_msite_org_id;
2073: CLOSE msite_oprorg_id_seq;
2095: p_msite_orgids_tbl(l_index).orgid);
2096: --dbms_output.put_line('inserted into opr org');
2097: l_insert_row := l_insert_row + 1;
2098:
2099: if p_msite_orgids_tbl(l_index).default_flag = FND_API.g_true
2100: and default_index = 0 then
2101: default_index := l_index;
2102: end if;
2103:
2103:
2104: EXCEPTION
2105: WHEN OTHERS THEN
2106: ROLLBACK TO save_msite_orgid;
2107: x_return_status := FND_API.g_ret_sts_error;
2108: END;
2109:
2110: END LOOP;
2111: /* else
2124:
2125: --- Check if the caller requested to commit ,
2126: --- If p_commit set to true, commit the transaction
2127: if l_insert_row > 0 then
2128: IF FND_API.to_boolean(p_commit) THEN
2129: COMMIT;
2130: END IF;
2131: else
2132: raise FND_API.g_exc_error;
2128: IF FND_API.to_boolean(p_commit) THEN
2129: COMMIT;
2130: END IF;
2131: else
2132: raise FND_API.g_exc_error;
2133: end if;
2134:
2135: else
2136: raise ibe_dspmgrvalidation_grp.msite_req_exception;
2136: raise ibe_dspmgrvalidation_grp.msite_req_exception;
2137: end if;
2138:
2139: FND_MSG_PUB.count_and_get(
2140: p_encoded => FND_API.g_false,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data
2143: );
2144:
2143: );
2144:
2145: EXCEPTION
2146:
2147: WHEN FND_API.g_exc_error THEN
2148: ROLLBACK TO save_msite_orgids;
2149: x_return_status := FND_API.g_ret_sts_error;
2150: FND_MSG_PUB.count_and_get(
2151: p_encoded => FND_API.g_false,
2145: EXCEPTION
2146:
2147: WHEN FND_API.g_exc_error THEN
2148: ROLLBACK TO save_msite_orgids;
2149: x_return_status := FND_API.g_ret_sts_error;
2150: FND_MSG_PUB.count_and_get(
2151: p_encoded => FND_API.g_false,
2152: p_count => x_msg_count,
2153: p_data => x_msg_data
2147: WHEN FND_API.g_exc_error THEN
2148: ROLLBACK TO save_msite_orgids;
2149: x_return_status := FND_API.g_ret_sts_error;
2150: FND_MSG_PUB.count_and_get(
2151: p_encoded => FND_API.g_false,
2152: p_count => x_msg_count,
2153: p_data => x_msg_data
2154: );
2155:
2154: );
2155:
2156: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
2157: ROLLBACK TO save_msite_orgids;
2158: x_return_status := FND_API.g_ret_sts_error;
2159: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2160: FND_MSG_PUB.ADD;
2161: FND_MSG_PUB.count_and_get(
2162: p_encoded => FND_API.g_false,
2158: x_return_status := FND_API.g_ret_sts_error;
2159: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2160: FND_MSG_PUB.ADD;
2161: FND_MSG_PUB.count_and_get(
2162: p_encoded => FND_API.g_false,
2163: p_count => x_msg_count,
2164: p_data => x_msg_data
2165: );
2166: WHEN FND_API.g_exc_unexpected_error THEN
2162: p_encoded => FND_API.g_false,
2163: p_count => x_msg_count,
2164: p_data => x_msg_data
2165: );
2166: WHEN FND_API.g_exc_unexpected_error THEN
2167: ROLLBACK TO save_msite_orgids;
2168: x_return_status := FND_API.g_ret_sts_unexp_error ;
2169: FND_MSG_PUB.count_and_get(
2170: p_encoded => FND_API.g_false,
2164: p_data => x_msg_data
2165: );
2166: WHEN FND_API.g_exc_unexpected_error THEN
2167: ROLLBACK TO save_msite_orgids;
2168: x_return_status := FND_API.g_ret_sts_unexp_error ;
2169: FND_MSG_PUB.count_and_get(
2170: p_encoded => FND_API.g_false,
2171: p_count => x_msg_count,
2172: p_data => x_msg_data
2166: WHEN FND_API.g_exc_unexpected_error THEN
2167: ROLLBACK TO save_msite_orgids;
2168: x_return_status := FND_API.g_ret_sts_unexp_error ;
2169: FND_MSG_PUB.count_and_get(
2170: p_encoded => FND_API.g_false,
2171: p_count => x_msg_count,
2172: p_data => x_msg_data
2173: );
2174:
2173: );
2174:
2175: WHEN msite_default_org_missing THEN
2176: ROLLBACK TO save_msite_orgids;
2177: x_return_status := FND_API.g_ret_sts_error;
2178: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_ORG_REQ');
2179: FND_MESSAGE.set_token('ID', p_msite_id);
2180: FND_MSG_PUB.ADD;
2181: FND_MSG_PUB.count_and_get(
2178: FND_MESSAGE.set_name('IBE','IBE_MSITE_DEF_ORG_REQ');
2179: FND_MESSAGE.set_token('ID', p_msite_id);
2180: FND_MSG_PUB.ADD;
2181: FND_MSG_PUB.count_and_get(
2182: p_encoded => FND_API.g_false,
2183: p_count => x_msg_count,
2184: p_data => x_msg_data
2185: );
2186:
2185: );
2186:
2187: WHEN OTHERS THEN
2188: ROLLBACK TO save_msite_orgids;
2189: x_return_status := FND_API.g_ret_sts_unexp_error ;
2190: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2191: THEN
2192: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2193: END IF;
2191: THEN
2192: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2193: END IF;
2194: FND_MSG_PUB.count_and_get(
2195: p_encoded => FND_API.g_false,
2196: p_count => x_msg_count,
2197: p_data => x_msg_data
2198: );
2199:
2201:
2202:
2203: PROCEDURE delete_msite(
2204: p_api_version IN NUMBER,
2205: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2206: p_commit IN VARCHAR2 := FND_API.g_false,
2207: x_return_status OUT NOCOPY VARCHAR2,
2208: x_msg_count OUT NOCOPY NUMBER,
2209: x_msg_data OUT NOCOPY VARCHAR2,
2202:
2203: PROCEDURE delete_msite(
2204: p_api_version IN NUMBER,
2205: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2206: p_commit IN VARCHAR2 := FND_API.g_false,
2207: x_return_status OUT NOCOPY VARCHAR2,
2208: x_msg_count OUT NOCOPY NUMBER,
2209: x_msg_data OUT NOCOPY VARCHAR2,
2210: p_msite_id_tbl IN msite_delete_tbl_type
2230:
2231: --------------------- initialize -----------------------+
2232: SAVEPOINT delete_msite;
2233:
2234: IF NOT FND_API.compatible_api_call(
2235: g_api_version,
2236: p_api_version,
2237: l_api_name,
2238: g_pkg_name
2236: p_api_version,
2237: l_api_name,
2238: g_pkg_name
2239: ) THEN
2240: RAISE FND_API.g_exc_unexpected_error;
2241: END IF;
2242:
2243:
2244: IF FND_API.to_boolean(p_init_msg_list) THEN
2240: RAISE FND_API.g_exc_unexpected_error;
2241: END IF;
2242:
2243:
2244: IF FND_API.to_boolean(p_init_msg_list) THEN
2245: FND_MSG_PUB.initialize;
2246: END IF;
2247:
2248:
2245: FND_MSG_PUB.initialize;
2246: END IF;
2247:
2248:
2249: x_return_status := FND_API.G_RET_STS_SUCCESS;
2250:
2251: --- Check if the msite_id exists
2252: for l_index in 1..p_msite_id_tbl.count
2253: LOOP
2253: LOOP
2254: BEGIN
2255: savepoint delete_msite_id;
2256: IF p_msite_id_tbl(l_index).msite_id IS NOT NULL and
2257: p_msite_id_tbl(l_index).msite_id <> FND_API.g_miss_num
2258: THEN
2259: --dbms_output.put_line('Minisite id is passed ' );
2260:
2261: --- if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id_tbl(l_index).msite_id) = false then
2258: THEN
2259: --dbms_output.put_line('Minisite id is passed ' );
2260:
2261: --- if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id_tbl(l_index).msite_id) = false then
2262: --- raise FND_API.g_exc_error;
2263: --- end if;
2264:
2265: ibe_physicalmap_grp.delete_msite(p_msite_id_tbl(l_index).msite_id);
2266:
2278: for rec_msite_resp in c_msite_resp (p_msite_id_tbl(l_index).msite_id )
2279: Loop
2280: Ibe_Msite_Resp_Pvt.Delete_Msite_Resp(
2281: p_api_version => 1.0 ,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2279: Loop
2280: Ibe_Msite_Resp_Pvt.Delete_Msite_Resp(
2281: p_api_version => 1.0 ,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2287: --p_responsibility_id => FND_API.G_MISS_NUM,
2280: Ibe_Msite_Resp_Pvt.Delete_Msite_Resp(
2281: p_api_version => 1.0 ,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2287: --p_responsibility_id => FND_API.G_MISS_NUM,
2288: --p_application_id => FND_API.G_MISS_NUM,
2282: p_init_msg_list => FND_API.G_FALSE,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2287: --p_responsibility_id => FND_API.G_MISS_NUM,
2288: --p_application_id => FND_API.G_MISS_NUM,
2289: x_return_status => x_return_status ,
2290: x_msg_count => x_msg_count ,
2283: p_commit => FND_API.G_FALSE,
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2287: --p_responsibility_id => FND_API.G_MISS_NUM,
2288: --p_application_id => FND_API.G_MISS_NUM,
2289: x_return_status => x_return_status ,
2290: x_msg_count => x_msg_count ,
2291: x_msg_data => x_msg_data );
2284: p_validation_level=>FND_API.G_VALID_LEVEL_FULL,
2285: p_msite_resp_id => rec_msite_resp.msite_resp_id ,
2286: -- p_msite_id => FND_API.G_MISS_NUM,
2287: --p_responsibility_id => FND_API.G_MISS_NUM,
2288: --p_application_id => FND_API.G_MISS_NUM,
2289: x_return_status => x_return_status ,
2290: x_msg_count => x_msg_count ,
2291: x_msg_data => x_msg_data );
2292:
2289: x_return_status => x_return_status ,
2290: x_msg_count => x_msg_count ,
2291: x_msg_data => x_msg_data );
2292:
2293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2294: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2295: FND_MSG_PUB.Add;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2292:
2293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2294: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2295: FND_MSG_PUB.Add;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2298: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2299: FND_MSG_PUB.Add;
2300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2293: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2294: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2295: FND_MSG_PUB.Add;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2298: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2299: FND_MSG_PUB.Add;
2300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2301: END IF;
2296: RAISE FND_API.G_EXC_ERROR;
2297: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2298: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_RESP_FL');
2299: FND_MSG_PUB.Add;
2300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2301: END IF;
2302: End Loop;
2303:
2304: delete from ibe_msite_prty_accss
2313:
2314: EXCEPTION
2315: WHEN OTHERS THEN
2316: ROLLBACK TO delete_msite_id;
2317: x_return_status := FND_API.g_ret_sts_error;
2318: END;
2319:
2320: END LOOP;
2321:
2320: END LOOP;
2321:
2322:
2323:
2324: IF FND_API.to_boolean(p_commit) THEN
2325: COMMIT;
2326: END IF;
2327:
2328: x_return_status := FND_API.G_RET_STS_SUCCESS;
2324: IF FND_API.to_boolean(p_commit) THEN
2325: COMMIT;
2326: END IF;
2327:
2328: x_return_status := FND_API.G_RET_STS_SUCCESS;
2329:
2330: FND_MSG_PUB.count_and_get(
2331: p_encoded => FND_API.g_false,
2332: p_count => x_msg_count,
2327:
2328: x_return_status := FND_API.G_RET_STS_SUCCESS;
2329:
2330: FND_MSG_PUB.count_and_get(
2331: p_encoded => FND_API.g_false,
2332: p_count => x_msg_count,
2333: p_data => x_msg_data
2334: );
2335:
2333: p_data => x_msg_data
2334: );
2335:
2336: EXCEPTION
2337: WHEN FND_API.g_exc_error THEN
2338: ROLLBACK TO delete_msite;
2339: x_return_status := FND_API.g_ret_sts_error;
2340: FND_MSG_PUB.count_and_get(
2341: p_encoded => FND_API.g_false,
2335:
2336: EXCEPTION
2337: WHEN FND_API.g_exc_error THEN
2338: ROLLBACK TO delete_msite;
2339: x_return_status := FND_API.g_ret_sts_error;
2340: FND_MSG_PUB.count_and_get(
2341: p_encoded => FND_API.g_false,
2342: p_count => x_msg_count,
2343: p_data => x_msg_data
2337: WHEN FND_API.g_exc_error THEN
2338: ROLLBACK TO delete_msite;
2339: x_return_status := FND_API.g_ret_sts_error;
2340: FND_MSG_PUB.count_and_get(
2341: p_encoded => FND_API.g_false,
2342: p_count => x_msg_count,
2343: p_data => x_msg_data
2344: );
2345:
2344: );
2345:
2346: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
2347: ROLLBACK TO delete_msite;
2348: x_return_status := FND_API.g_ret_sts_error;
2349: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2350: FND_MSG_PUB.ADD;
2351: FND_MSG_PUB.count_and_get(
2352: p_encoded => FND_API.g_false,
2348: x_return_status := FND_API.g_ret_sts_error;
2349: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2350: FND_MSG_PUB.ADD;
2351: FND_MSG_PUB.count_and_get(
2352: p_encoded => FND_API.g_false,
2353: p_count => x_msg_count,
2354: p_data => x_msg_data
2355: );
2356:
2353: p_count => x_msg_count,
2354: p_data => x_msg_data
2355: );
2356:
2357: WHEN FND_API.g_exc_unexpected_error THEN
2358: ROLLBACK TO delete_msite;
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: FND_MSG_PUB.count_and_get(
2361: p_encoded => FND_API.g_false,
2355: );
2356:
2357: WHEN FND_API.g_exc_unexpected_error THEN
2358: ROLLBACK TO delete_msite;
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: FND_MSG_PUB.count_and_get(
2361: p_encoded => FND_API.g_false,
2362: p_count => x_msg_count,
2363: p_data => x_msg_data
2357: WHEN FND_API.g_exc_unexpected_error THEN
2358: ROLLBACK TO delete_msite;
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: FND_MSG_PUB.count_and_get(
2361: p_encoded => FND_API.g_false,
2362: p_count => x_msg_count,
2363: p_data => x_msg_data
2364: );
2365:
2364: );
2365:
2366: WHEN OTHERS THEN
2367: ROLLBACK TO delete_msite;
2368: x_return_status := FND_API.g_ret_sts_unexp_error ;
2369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2370: THEN
2371: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2372: END IF;
2370: THEN
2371: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2372: END IF;
2373: FND_MSG_PUB.count_and_get(
2374: p_encoded => FND_API.g_false,
2375: p_count => x_msg_count,
2376: p_data => x_msg_data
2377: );
2378:
2380:
2381:
2382: PROCEDURE get_msite_attribute (
2383: p_api_version IN NUMBER,
2384: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2385: p_commit IN VARCHAR2 := FND_API.g_false,
2386: x_return_status OUT NOCOPY VARCHAR2,
2387: x_msg_count OUT NOCOPY NUMBER,
2388: x_msg_data OUT NOCOPY VARCHAR2,
2381:
2382: PROCEDURE get_msite_attribute (
2383: p_api_version IN NUMBER,
2384: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2385: p_commit IN VARCHAR2 := FND_API.g_false,
2386: x_return_status OUT NOCOPY VARCHAR2,
2387: x_msg_count OUT NOCOPY NUMBER,
2388: x_msg_data OUT NOCOPY VARCHAR2,
2389: p_msite_id IN NUMBER,
2400:
2401: --------------------- initialize -----------------------+
2402: SAVEPOINT get_msite_attribute;
2403:
2404: IF NOT FND_API.compatible_api_call(
2405: g_api_version,
2406: p_api_version,
2407: l_api_name,
2408: g_pkg_name
2406: p_api_version,
2407: l_api_name,
2408: g_pkg_name
2409: ) THEN
2410: RAISE FND_API.g_exc_unexpected_error;
2411: END IF;
2412:
2413:
2414: IF FND_API.to_boolean(p_init_msg_list) THEN
2410: RAISE FND_API.g_exc_unexpected_error;
2411: END IF;
2412:
2413:
2414: IF FND_API.to_boolean(p_init_msg_list) THEN
2415: FND_MSG_PUB.initialize;
2416: END IF;
2417:
2418:
2415: FND_MSG_PUB.initialize;
2416: END IF;
2417:
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF p_msite_id IS NOT NULL AND p_msite_id <> FND_API.g_miss_num
2422: THEN
2423: --dbms_output.put_line('Minisite id is passed ' );
2417:
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF p_msite_id IS NOT NULL AND p_msite_id <> FND_API.g_miss_num
2422: THEN
2423: --dbms_output.put_line('Minisite id is passed ' );
2424:
2425: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
2422: THEN
2423: --dbms_output.put_line('Minisite id is passed ' );
2424:
2425: if ibe_dspmgrvalidation_grp.check_msite_exists(p_msite_id) = false then
2426: raise FND_API.g_exc_error;
2427: end if;
2428:
2429: x_msite_attribute_value := FND_PROFILE.VALUE_SPECIFIC(p_msite_attribute_name,null,null,671);
2430: ELSE
2430: ELSE
2431: raise ibe_dspmgrvalidation_grp.msite_req_exception;
2432: END IF;
2433:
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435:
2436: FND_MSG_PUB.count_and_get(
2437: p_encoded => FND_API.g_false,
2438: p_count => x_msg_count,
2433:
2434: x_return_status := FND_API.G_RET_STS_SUCCESS;
2435:
2436: FND_MSG_PUB.count_and_get(
2437: p_encoded => FND_API.g_false,
2438: p_count => x_msg_count,
2439: p_data => x_msg_data
2440: );
2441:
2439: p_data => x_msg_data
2440: );
2441:
2442: EXCEPTION
2443: WHEN FND_API.g_exc_error THEN
2444: ROLLBACK TO get_msite_attribute;
2445: x_return_status := FND_API.g_ret_sts_error;
2446: FND_MSG_PUB.count_and_get(
2447: p_encoded => FND_API.g_false,
2441:
2442: EXCEPTION
2443: WHEN FND_API.g_exc_error THEN
2444: ROLLBACK TO get_msite_attribute;
2445: x_return_status := FND_API.g_ret_sts_error;
2446: FND_MSG_PUB.count_and_get(
2447: p_encoded => FND_API.g_false,
2448: p_count => x_msg_count,
2449: p_data => x_msg_data
2443: WHEN FND_API.g_exc_error THEN
2444: ROLLBACK TO get_msite_attribute;
2445: x_return_status := FND_API.g_ret_sts_error;
2446: FND_MSG_PUB.count_and_get(
2447: p_encoded => FND_API.g_false,
2448: p_count => x_msg_count,
2449: p_data => x_msg_data
2450: );
2451:
2450: );
2451:
2452: WHEN ibe_dspmgrvalidation_grp.msite_req_exception THEN
2453: ROLLBACK TO get_msite_attribute;
2454: x_return_status := FND_API.g_ret_sts_error;
2455: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2456: FND_MSG_PUB.ADD;
2457: FND_MSG_PUB.count_and_get(
2458: p_encoded => FND_API.g_false,
2454: x_return_status := FND_API.g_ret_sts_error;
2455: FND_MESSAGE.set_name('IBE','IBE_MSITE_REQ');
2456: FND_MSG_PUB.ADD;
2457: FND_MSG_PUB.count_and_get(
2458: p_encoded => FND_API.g_false,
2459: p_count => x_msg_count,
2460: p_data => x_msg_data
2461: );
2462:
2459: p_count => x_msg_count,
2460: p_data => x_msg_data
2461: );
2462:
2463: WHEN FND_API.g_exc_unexpected_error THEN
2464: ROLLBACK TO get_msite_attribute;
2465: x_return_status := FND_API.g_ret_sts_unexp_error ;
2466: FND_MSG_PUB.count_and_get(
2467: p_encoded => FND_API.g_false,
2461: );
2462:
2463: WHEN FND_API.g_exc_unexpected_error THEN
2464: ROLLBACK TO get_msite_attribute;
2465: x_return_status := FND_API.g_ret_sts_unexp_error ;
2466: FND_MSG_PUB.count_and_get(
2467: p_encoded => FND_API.g_false,
2468: p_count => x_msg_count,
2469: p_data => x_msg_data
2463: WHEN FND_API.g_exc_unexpected_error THEN
2464: ROLLBACK TO get_msite_attribute;
2465: x_return_status := FND_API.g_ret_sts_unexp_error ;
2466: FND_MSG_PUB.count_and_get(
2467: p_encoded => FND_API.g_false,
2468: p_count => x_msg_count,
2469: p_data => x_msg_data
2470: );
2471:
2470: );
2471:
2472: WHEN OTHERS THEN
2473: ROLLBACK TO get_msite_attribute;
2474: x_return_status := FND_API.g_ret_sts_unexp_error ;
2475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2476: THEN
2477: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2478: END IF;
2476: THEN
2477: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2478: END IF;
2479: FND_MSG_PUB.count_and_get(
2480: p_encoded => FND_API.g_false,
2481: p_count => x_msg_count,
2482: p_data => x_msg_data
2483: );
2484:
2991: SITE_TYPE = X_SITE_TYPE
2992: WHERE
2993: MSITE_ID = X_MSITE_ID
2994: AND OBJECT_VERSION_NUMBER = decode(X_OBJECT_VERSION_NUMBER,
2995: FND_API.G_MISS_NUM,
2996: OBJECT_VERSION_NUMBER,
2997: X_OBJECT_VERSION_NUMBER);
2998:
2999: if (sql%notfound) then
3010: SOURCE_LANG = userenv('LANG')
3011: where MSITE_ID = X_MSITE_ID
3012: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
3013: and OBJECT_VERSION_NUMBER = decode(X_OBJECT_VERSION_NUMBER,
3014: FND_API.G_MISS_NUM,
3015: OBJECT_VERSION_NUMBER,
3016: X_OBJECT_VERSION_NUMBER);
3017:
3018: if (sql%notfound) then
3153:
3154:
3155:
3156: IF ((x_object_version_number IS NOT NULL) AND
3157: (x_object_version_number <> FND_API.G_MISS_NUM))
3158: THEN
3159: l_object_version_number := x_object_version_number;
3160: END IF;
3161: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE)) then