232:
233:
234: -- Check if Required Values have been passed
235: IF ( l_master_enabled_flag NOT IN ('N','Y') ) THEN
236: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_MAST_ENAB_FLAG');
237: FND_MESSAGE.SET_TOKEN('MASTER_ENABLED_FLAG',l_master_enabled_flag);
238: FND_MSG_PUB.Add;
239: END IF;
240:
233:
234: -- Check if Required Values have been passed
235: IF ( l_master_enabled_flag NOT IN ('N','Y') ) THEN
236: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_MAST_ENAB_FLAG');
237: FND_MESSAGE.SET_TOKEN('MASTER_ENABLED_FLAG',l_master_enabled_flag);
238: FND_MSG_PUB.Add;
239: END IF;
240:
241: IF ( l_interest_type = FND_API.G_MISS_CHAR
239: END IF;
240:
241: IF ( l_interest_type = FND_API.G_MISS_CHAR
242: OR TRIM(l_interest_type) IS NULL) THEN
243: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_INT_TYPE');
244: FND_MESSAGE.SET_TOKEN('INTEREST_TYPE',l_interest_type);
245: FND_MSG_PUB.Add;
246: END IF;
247:
240:
241: IF ( l_interest_type = FND_API.G_MISS_CHAR
242: OR TRIM(l_interest_type) IS NULL) THEN
243: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_INT_TYPE');
244: FND_MESSAGE.SET_TOKEN('INTEREST_TYPE',l_interest_type);
245: FND_MSG_PUB.Add;
246: END IF;
247:
248: IF ( l_company_classification_flag NOT IN ('N','Y') ) THEN
245: FND_MSG_PUB.Add;
246: END IF;
247:
248: IF ( l_company_classification_flag NOT IN ('N','Y') ) THEN
249: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_COMP_CLAS_FLAG');
250: FND_MESSAGE.SET_TOKEN('COMPANY_CLASSIFICATION_FLAG',l_company_classification_flag);
251: FND_MSG_PUB.Add;
252: END IF;
253:
246: END IF;
247:
248: IF ( l_company_classification_flag NOT IN ('N','Y') ) THEN
249: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_COMP_CLAS_FLAG');
250: FND_MESSAGE.SET_TOKEN('COMPANY_CLASSIFICATION_FLAG',l_company_classification_flag);
251: FND_MSG_PUB.Add;
252: END IF;
253:
254: IF ( l_contact_interest_flag NOT IN ('N','Y') ) THEN
251: FND_MSG_PUB.Add;
252: END IF;
253:
254: IF ( l_contact_interest_flag NOT IN ('N','Y') ) THEN
255: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CONT_INT_FLAG');
256: FND_MESSAGE.SET_TOKEN('CONTACT_INTEREST_FLAG',l_contact_interest_flag);
257: FND_MSG_PUB.Add;
258: END IF;
259:
252: END IF;
253:
254: IF ( l_contact_interest_flag NOT IN ('N','Y') ) THEN
255: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CONT_INT_FLAG');
256: FND_MESSAGE.SET_TOKEN('CONTACT_INTEREST_FLAG',l_contact_interest_flag);
257: FND_MSG_PUB.Add;
258: END IF;
259:
260: IF ( l_lead_classification_flag NOT IN ('N','Y') ) THEN
257: FND_MSG_PUB.Add;
258: END IF;
259:
260: IF ( l_lead_classification_flag NOT IN ('N','Y') ) THEN
261: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_LEAD_CLAS_FLAG');
262: FND_MESSAGE.SET_TOKEN('LEAD_CLASSIFICATION_FLAG',l_lead_classification_flag);
263: FND_MSG_PUB.Add;
264: END IF;
265:
258: END IF;
259:
260: IF ( l_lead_classification_flag NOT IN ('N','Y') ) THEN
261: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_LEAD_CLAS_FLAG');
262: FND_MESSAGE.SET_TOKEN('LEAD_CLASSIFICATION_FLAG',l_lead_classification_flag);
263: FND_MSG_PUB.Add;
264: END IF;
265:
266: IF ( l_expected_purchase_flag NOT IN ('N','Y') ) THEN
263: FND_MSG_PUB.Add;
264: END IF;
265:
266: IF ( l_expected_purchase_flag NOT IN ('N','Y') ) THEN
267: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_EXP_PURC_FLAG');
268: FND_MESSAGE.SET_TOKEN('EXPECTED_PURCHASE_FLAG',l_expected_purchase_flag);
269: FND_MSG_PUB.Add;
270: END IF;
271:
264: END IF;
265:
266: IF ( l_expected_purchase_flag NOT IN ('N','Y') ) THEN
267: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_EXP_PURC_FLAG');
268: FND_MESSAGE.SET_TOKEN('EXPECTED_PURCHASE_FLAG',l_expected_purchase_flag);
269: FND_MSG_PUB.Add;
270: END IF;
271:
272: IF ( l_current_environment_flag NOT IN ('N','Y') ) THEN
269: FND_MSG_PUB.Add;
270: END IF;
271:
272: IF ( l_current_environment_flag NOT IN ('N','Y') ) THEN
273: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CURR_ENVT_FLAG');
274: FND_MESSAGE.SET_TOKEN('CURRENT_ENVIRONMENT_FLAG',l_current_environment_flag);
275: FND_MSG_PUB.Add;
276: END IF;
277:
270: END IF;
271:
272: IF ( l_current_environment_flag NOT IN ('N','Y') ) THEN
273: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CURR_ENVT_FLAG');
274: FND_MESSAGE.SET_TOKEN('CURRENT_ENVIRONMENT_FLAG',l_current_environment_flag);
275: FND_MSG_PUB.Add;
276: END IF;
277:
278: IF ( l_enabled_flag NOT IN ('N','Y') ) THEN
275: FND_MSG_PUB.Add;
276: END IF;
277:
278: IF ( l_enabled_flag NOT IN ('N','Y') ) THEN
279: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ENABLED_FLAG');
280: FND_MESSAGE.SET_TOKEN('ENABLED_FLAG',l_enabled_flag);
281: FND_MSG_PUB.Add;
282: END IF;
283:
276: END IF;
277:
278: IF ( l_enabled_flag NOT IN ('N','Y') ) THEN
279: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ENABLED_FLAG');
280: FND_MESSAGE.SET_TOKEN('ENABLED_FLAG',l_enabled_flag);
281: FND_MSG_PUB.Add;
282: END IF;
283:
284: IF ( l_org_id = FND_API.G_MISS_NUM
282: END IF;
283:
284: IF ( l_org_id = FND_API.G_MISS_NUM
285: OR TRIM(l_org_id) IS NULL ) THEN
286: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ORG_ID');
287: FND_MESSAGE.SET_TOKEN('ORG_ID',l_org_id);
288: FND_MSG_PUB.Add;
289: END IF;
290:
283:
284: IF ( l_org_id = FND_API.G_MISS_NUM
285: OR TRIM(l_org_id) IS NULL ) THEN
286: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ORG_ID');
287: FND_MESSAGE.SET_TOKEN('ORG_ID',l_org_id);
288: FND_MSG_PUB.Add;
289: END IF;
290:
291: -- Raise exception if error
298: OPEN interest_dup_cur(TRIM(NLS_UPPER(p_interest_type_rec.interest_type)));
299: FETCH interest_dup_cur INTO l_count;
300: IF (interest_dup_cur%FOUND)
301: THEN
302: FND_MESSAGE.SET_NAME('ASF', 'ASF_ADM_DUPLICATE');
303: --FND_MESSAGE.SET_NAME ( 'AS' , 'AS_DUPLICATE_INTEREST_TYPE');
304: fnd_msg_pub.add;
305: CLOSE interest_dup_cur;
306: RAISE fnd_api.g_exc_error;
299: FETCH interest_dup_cur INTO l_count;
300: IF (interest_dup_cur%FOUND)
301: THEN
302: FND_MESSAGE.SET_NAME('ASF', 'ASF_ADM_DUPLICATE');
303: --FND_MESSAGE.SET_NAME ( 'AS' , 'AS_DUPLICATE_INTEREST_TYPE');
304: fnd_msg_pub.add;
305: CLOSE interest_dup_cur;
306: RAISE fnd_api.g_exc_error;
307: ELSE
330: l_prod_cat_not_found := 'Y';
331: end if;
332:
333: if (l_prod_cat_not_found = 'Y') THEN
334: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_PRODUCT_CATEGORY');
335: fnd_msg_pub.add;
336: RAISE fnd_api.g_exc_error;
337: end if;
338:
543:
544: -- Check if Required Values have been passed
545: IF (p_interest_type_rec.interest_type_id = FND_API.G_MISS_NUM)
546: OR TRIM(p_interest_type_rec.interest_type_id) IS NULL THEN
547: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_INT_TYPE_ID');
548: FND_MESSAGE.SET_TOKEN('INTEREST_TYPE_ID',
549: p_interest_type_rec.interest_type_id);
550: FND_MSG_PUB.Add;
551: END IF;
544: -- Check if Required Values have been passed
545: IF (p_interest_type_rec.interest_type_id = FND_API.G_MISS_NUM)
546: OR TRIM(p_interest_type_rec.interest_type_id) IS NULL THEN
547: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_INT_TYPE_ID');
548: FND_MESSAGE.SET_TOKEN('INTEREST_TYPE_ID',
549: p_interest_type_rec.interest_type_id);
550: FND_MSG_PUB.Add;
551: END IF;
552:
728: --
729:
730: IF x_master_enabled_flag NOT IN ('N','Y')
731: THEN
732: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_MAST_ENAB_FLAG');
733: FND_MESSAGE.SET_TOKEN('MASTER_ENABLED_FLAG',p_interest_type_rec.master_enabled_flag);
734: FND_MSG_PUB.Add;
735: END IF;
736:
729:
730: IF x_master_enabled_flag NOT IN ('N','Y')
731: THEN
732: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_MAST_ENAB_FLAG');
733: FND_MESSAGE.SET_TOKEN('MASTER_ENABLED_FLAG',p_interest_type_rec.master_enabled_flag);
734: FND_MSG_PUB.Add;
735: END IF;
736:
737: IF x_contact_interest_flag NOT IN ('N','Y')
735: END IF;
736:
737: IF x_contact_interest_flag NOT IN ('N','Y')
738: THEN
739: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CONT_INT_FLAG');
740: FND_MESSAGE.SET_TOKEN('CONTACT_INTEREST_FLAG',p_interest_type_rec.contact_interest_flag);
741: FND_MSG_PUB.Add;
742: END IF;
743:
736:
737: IF x_contact_interest_flag NOT IN ('N','Y')
738: THEN
739: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CONT_INT_FLAG');
740: FND_MESSAGE.SET_TOKEN('CONTACT_INTEREST_FLAG',p_interest_type_rec.contact_interest_flag);
741: FND_MSG_PUB.Add;
742: END IF;
743:
744: IF x_company_classification_flag NOT IN ('N','Y')
742: END IF;
743:
744: IF x_company_classification_flag NOT IN ('N','Y')
745: THEN
746: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_COMP_CLAS_FLAG');
747: FND_MESSAGE.SET_TOKEN('COMPANY_CLASSIFICAITON_FLAG',p_interest_type_rec.company_classification_flag);
748: FND_MSG_PUB.Add;
749: END IF;
750:
743:
744: IF x_company_classification_flag NOT IN ('N','Y')
745: THEN
746: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_COMP_CLAS_FLAG');
747: FND_MESSAGE.SET_TOKEN('COMPANY_CLASSIFICAITON_FLAG',p_interest_type_rec.company_classification_flag);
748: FND_MSG_PUB.Add;
749: END IF;
750:
751: IF x_lead_classification_flag NOT IN ('N','Y')
749: END IF;
750:
751: IF x_lead_classification_flag NOT IN ('N','Y')
752: THEN
753: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_LEAD_CLAS_FLAG');
754: FND_MESSAGE.SET_TOKEN('LEAD_CLASSIFICATION_FLAG',p_interest_type_rec.lead_classification_flag);
755: FND_MSG_PUB.Add;
756: END IF;
757:
750:
751: IF x_lead_classification_flag NOT IN ('N','Y')
752: THEN
753: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_LEAD_CLAS_FLAG');
754: FND_MESSAGE.SET_TOKEN('LEAD_CLASSIFICATION_FLAG',p_interest_type_rec.lead_classification_flag);
755: FND_MSG_PUB.Add;
756: END IF;
757:
758:
757:
758:
759: IF x_expected_purchase_flag NOT IN ('N','Y')
760: THEN
761: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_EXP_PURC_FLAG');
762: FND_MESSAGE.SET_TOKEN('EXPECTED_PURCHASE_FLAG',p_interest_type_rec.expected_purchase_flag);
763: FND_MSG_PUB.Add;
764: END IF;
765:
758:
759: IF x_expected_purchase_flag NOT IN ('N','Y')
760: THEN
761: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_EXP_PURC_FLAG');
762: FND_MESSAGE.SET_TOKEN('EXPECTED_PURCHASE_FLAG',p_interest_type_rec.expected_purchase_flag);
763: FND_MSG_PUB.Add;
764: END IF;
765:
766:
765:
766:
767: IF x_current_environment_flag NOT IN ('N','Y')
768: THEN
769: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CURR_ENVT_FLAG');
770: FND_MESSAGE.SET_TOKEN('CURRENT_ENVIRONMENT_FLAG',p_interest_type_rec.current_environment_flag);
771: FND_MSG_PUB.Add;
772: END IF;
773:
766:
767: IF x_current_environment_flag NOT IN ('N','Y')
768: THEN
769: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_CURR_ENVT_FLAG');
770: FND_MESSAGE.SET_TOKEN('CURRENT_ENVIRONMENT_FLAG',p_interest_type_rec.current_environment_flag);
771: FND_MSG_PUB.Add;
772: END IF;
773:
774:
773:
774:
775: IF x_enabled_flag NOT IN ('N','Y')
776: THEN
777: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ENABLED_FLAG');
778: FND_MESSAGE.SET_TOKEN('ENABLED_FLAG',p_interest_type_rec.enabled_flag);
779: FND_MSG_PUB.Add;
780: END IF;
781:
774:
775: IF x_enabled_flag NOT IN ('N','Y')
776: THEN
777: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ENABLED_FLAG');
778: FND_MESSAGE.SET_TOKEN('ENABLED_FLAG',p_interest_type_rec.enabled_flag);
779: FND_MSG_PUB.Add;
780: END IF;
781:
782: IF x_org_id = FND_API.G_MISS_NUM
780: END IF;
781:
782: IF x_org_id = FND_API.G_MISS_NUM
783: THEN
784: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ORG_ID');
785: FND_MESSAGE.SET_TOKEN('ORG_ID',p_interest_type_rec.org_id);
786: FND_MSG_PUB.Add;
787: END IF;
788:
781:
782: IF x_org_id = FND_API.G_MISS_NUM
783: THEN
784: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_ORG_ID');
785: FND_MESSAGE.SET_TOKEN('ORG_ID',p_interest_type_rec.org_id);
786: FND_MSG_PUB.Add;
787: END IF;
788:
789: IF (FND_MSG_PUB.COUNT_MSG > 0)
796: OPEN as_int_type_cur(p_interest_type_rec.interest_type_id,TRIM(NLS_UPPER(p_interest_type_rec.interest_type)));
797: FETCH as_int_type_cur INTO l_count;
798: IF as_int_type_cur%FOUND
799: THEN
800: FND_MESSAGE.SET_NAME('ASF', 'ASF_ADM_DUPLICATE');
801: FND_MSG_PUB.Add;
802: CLOSE as_int_type_cur;
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
818: l_prod_cat_not_found := 'Y';
819: end if;
820:
821: if (l_prod_cat_not_found = 'Y') THEN
822: FND_MESSAGE.SET_NAME ( 'AS' , 'AS_INVALID_PRODUCT_CATEGORY');
823: fnd_msg_pub.add;
824: RAISE fnd_api.g_exc_error;
825: end if;
826:
837: END IF;
838:
839: IF l_last_update_date <> l_current_last_update_date
840: THEN
841: fnd_message.set_name('AS', 'API_RECORD_CHANGED');
842: FND_MESSAGE.Set_Token('INFO', 'interest_type', FALSE); -- ??
843: fnd_msg_pub.add;
844: RAISE fnd_api.g_exc_unexpected_error;
845: END IF;
838:
839: IF l_last_update_date <> l_current_last_update_date
840: THEN
841: fnd_message.set_name('AS', 'API_RECORD_CHANGED');
842: FND_MESSAGE.Set_Token('INFO', 'interest_type', FALSE); -- ??
843: fnd_msg_pub.add;
844: RAISE fnd_api.g_exc_unexpected_error;
845: END IF;
846: