368: l_MyStmt := ' select qh.quote_header_id, hzcp1.contact_point_id phone_id,'||
369: ' hp.party_id, hp.party_name, hp.party_type, max(hps.party_site_id) party_site_id,'||
370: ' hr.subject_id rel_party_id, ho.org_contact_id,'||
371: ' decode(nvl(ho.decision_maker_flag, ''N''), ''Y'',''DECISION_MAKER'',''END_USER'') contact_role_code,'||
372: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_CART_NUMBER'') || qh.quote_number Notes,'||
373: ' qh.currency_code, qh.quote_header_id, qh.quote_number Order_Num,'||
374: ' qh.creation_date Order_Creation_Date,:p_promo_code promo_code,'||
375: ' qh.total_quote_price total_amount,'||
376: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_CART_LEAD'') lead_description, '||
372: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_CART_NUMBER'') || qh.quote_number Notes,'||
373: ' qh.currency_code, qh.quote_header_id, qh.quote_number Order_Num,'||
374: ' qh.creation_date Order_Creation_Date,:p_promo_code promo_code,'||
375: ' qh.total_quote_price total_amount,'||
376: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_CART_LEAD'') lead_description, '||
377: ' qh.quote_header_id SOURCE_PRIMARY_REFERENCE, qh.minisite_id SOURCE_SECONDARY_REFERENCE, '||
378: ' qh.marketing_source_code_id SOURCE_PROMOTION_ID '||
379: ' FROM aso_quote_headers_all qh,'||
380: ' hz_cust_accounts hca, hz_parties hp,hz_parties hp2,'||
498: ' hp.party_id, hp.party_name, hp.party_type,'||
499: ' max(hps.party_site_id) party_site_id, hr.subject_id rel_party_id,'||
500: ' ho.org_contact_id,'||
501: ' decode(nvl(ho.decision_maker_flag, ''N''), ''Y'',''DECISION_MAKER'' ,''END_USER'') contact_role_code,'||
502: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_NUMBER'') || oh.order_number'||
503: ' || fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_REFERENCE'') || oh.orig_sys_document_ref Notes,'||
504: ' qh.currency_code, qh.order_id, qh.quote_number Order_Num, qh.creation_date Order_Creation_Date,:p_promo_code promo_code,'||
505: ' oe_totals_grp.Get_Order_Total(oh.header_id,null,''ALL'') total_amount,'||
506: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_LEAD'') lead_description, '||
499: ' max(hps.party_site_id) party_site_id, hr.subject_id rel_party_id,'||
500: ' ho.org_contact_id,'||
501: ' decode(nvl(ho.decision_maker_flag, ''N''), ''Y'',''DECISION_MAKER'' ,''END_USER'') contact_role_code,'||
502: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_NUMBER'') || oh.order_number'||
503: ' || fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_REFERENCE'') || oh.orig_sys_document_ref Notes,'||
504: ' qh.currency_code, qh.order_id, qh.quote_number Order_Num, qh.creation_date Order_Creation_Date,:p_promo_code promo_code,'||
505: ' oe_totals_grp.Get_Order_Total(oh.header_id,null,''ALL'') total_amount,'||
506: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_LEAD'') lead_description, '||
507: ' qh.quote_header_id SOURCE_PRIMARY_REFERENCE, qh.minisite_id SOURCE_SECONDARY_REFERENCE, '||
502: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_NUMBER'') || oh.order_number'||
503: ' || fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_REFERENCE'') || oh.orig_sys_document_ref Notes,'||
504: ' qh.currency_code, qh.order_id, qh.quote_number Order_Num, qh.creation_date Order_Creation_Date,:p_promo_code promo_code,'||
505: ' oe_totals_grp.Get_Order_Total(oh.header_id,null,''ALL'') total_amount,'||
506: ' fnd_message.get_string(''IBE'',''IBE_PRMT_STORE_ORDER_LEAD'') lead_description, '||
507: ' qh.quote_header_id SOURCE_PRIMARY_REFERENCE, qh.minisite_id SOURCE_SECONDARY_REFERENCE, '||
508: ' qh.marketing_source_code_id SOURCE_PROMOTION_ID '||
509: ' FROM aso_quote_headers_all qh, oe_order_headers_all oh,'||
510: ' hz_cust_accounts hca, hz_parties hp, hz_parties hp2,'||
688: l_null_profile_count := l_null_profile_count + 1;
689: end if;
690:
691:
692: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_PROFILE_TITLE');
693: printOutput('*** '||FND_MESSAGE.GET || ' ****');
694: if( p_lead_type = G_ORDER_LEAD ) then
695: printOutput('IBE_ORDER_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_ORDER_LEAD_INTERVAL', null, null, 671), 1));
696: else
689: end if;
690:
691:
692: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_PROFILE_TITLE');
693: printOutput('*** '||FND_MESSAGE.GET || ' ****');
694: if( p_lead_type = G_ORDER_LEAD ) then
695: printOutput('IBE_ORDER_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_ORDER_LEAD_INTERVAL', null, null, 671), 1));
696: else
697: printOutput('IBE_QUOTE_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_QUOTE_LEAD_INTERVAL', null, null, 671), 1));
695: printOutput('IBE_ORDER_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_ORDER_LEAD_INTERVAL', null, null, 671), 1));
696: else
697: printOutput('IBE_QUOTE_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_QUOTE_LEAD_INTERVAL', null, null, 671), 1));
698: end if;
699: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_PROFILE_VALUE');
700: FND_MESSAGE.SET_NAME('NAME', 'IBE_LEAD_EMAIL_ADDRESS');
701: return l_null_profile_count;
702: end;
703:
696: else
697: printOutput('IBE_QUOTE_LEAD_INTERVAL: ' || nvl(fnd_profile.value_specific('IBE_QUOTE_LEAD_INTERVAL', null, null, 671), 1));
698: end if;
699: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_PROFILE_VALUE');
700: FND_MESSAGE.SET_NAME('NAME', 'IBE_LEAD_EMAIL_ADDRESS');
701: return l_null_profile_count;
702: end;
703:
704:
991: printDebug('Return to main', 'Create_order_leads');
992: EXCEPTION
993: when others then
994: p_retcode := -1;
995: FND_MESSAGE.SET_NAME('IBE', 'IBE_CREATE_ORDER_LEADS_FAILED');
996: p_errmsg := FND_MESSAGE.GET;
997: p_errmsg := p_errmsg || ' ' ||sqlerrm;
998: End Create_Order_Leads;
999:
992: EXCEPTION
993: when others then
994: p_retcode := -1;
995: FND_MESSAGE.SET_NAME('IBE', 'IBE_CREATE_ORDER_LEADS_FAILED');
996: p_errmsg := FND_MESSAGE.GET;
997: p_errmsg := p_errmsg || ' ' ||sqlerrm;
998: End Create_Order_Leads;
999:
1000: procedure create_Quote_Leads
1242: printDebug('Return to main', 'Create_Quote_leads');
1243: EXCEPTION
1244: when others then
1245: p_retcode := -1;
1246: FND_MESSAGE.SET_NAME('IBE', 'IBE_CREATE_QUOTE_LEADS_FAILED');
1247: p_errmsg := FND_MESSAGE.GET;
1248: p_errmsg := p_errmsg || ' ' ||sqlerrm;
1249: End Create_Quote_Leads;
1250:
1243: EXCEPTION
1244: when others then
1245: p_retcode := -1;
1246: FND_MESSAGE.SET_NAME('IBE', 'IBE_CREATE_QUOTE_LEADS_FAILED');
1247: p_errmsg := FND_MESSAGE.GET;
1248: p_errmsg := p_errmsg || ' ' ||sqlerrm;
1249: End Create_Quote_Leads;
1250:
1251: procedure process_sales_lead_import(
1449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1450: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1451: WHEN OTHERS THEN
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1454: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1455: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1456: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1450: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1451: WHEN OTHERS THEN
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1454: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1455: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1456: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1458: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1451: WHEN OTHERS THEN
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1454: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1455: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1456: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1458: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1459: END IF;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1454: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1455: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1456: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1458: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1459: END IF;
1460: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count, p_data => x_msg_data);
1509: OPEN c_get_promotion_id(l_promotion_code);
1510: FETCH c_get_promotion_id into l_temp_promotion_id;
1511: IF c_get_promotion_id%NOTFOUND THEN
1512: close c_get_promotion_id;
1513: FND_MESSAGE.SET_NAME('IBE', 'IBE_LI_INVALID_PROMOTION_CODE');
1514: x_msg_data := FND_MESSAGE.GET;
1515: x_return_status := FND_API.G_RET_STS_ERROR;
1516: x_msg_count := x_msg_count + 1;
1517: printOutput(x_msg_data);
1510: FETCH c_get_promotion_id into l_temp_promotion_id;
1511: IF c_get_promotion_id%NOTFOUND THEN
1512: close c_get_promotion_id;
1513: FND_MESSAGE.SET_NAME('IBE', 'IBE_LI_INVALID_PROMOTION_CODE');
1514: x_msg_data := FND_MESSAGE.GET;
1515: x_return_status := FND_API.G_RET_STS_ERROR;
1516: x_msg_count := x_msg_count + 1;
1517: printOutput(x_msg_data);
1518: raise FND_API.G_EXC_ERROR;
1606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1607: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1608: WHEN OTHERS THEN
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1611: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1612: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1613: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1614: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1607: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1608: WHEN OTHERS THEN
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1611: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1612: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1613: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1614: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1615: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1608: WHEN OTHERS THEN
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1611: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1612: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1613: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1614: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1615: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1616: END IF;
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1611: FND_MESSAGE.Set_Token('ROUTINE', 'Process_Sales_lead_Import');
1612: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1613: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1614: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1615: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'Process_Sales_Lead_Import');
1616: END IF;
1617: End Create_Sales_Lead;
1726:
1727:
1728: if( l_email_list is null ) then
1729: printDebug('l_email_list is null ', 'sendEmail');
1730: FND_MESSAGE.set_Name('IBE', 'IBE_ECR_PROFILE_VALUE');
1731: FND_MESSAGE.set_Token('NAME', 'IBE_LEAD_EMAIL_ADDRESS');
1732: FND_MSG_PUB.Add;
1733: raise FND_API.G_EXC_ERROR;
1734: end if;
1727:
1728: if( l_email_list is null ) then
1729: printDebug('l_email_list is null ', 'sendEmail');
1730: FND_MESSAGE.set_Name('IBE', 'IBE_ECR_PROFILE_VALUE');
1731: FND_MESSAGE.set_Token('NAME', 'IBE_LEAD_EMAIL_ADDRESS');
1732: FND_MSG_PUB.Add;
1733: raise FND_API.G_EXC_ERROR;
1734: end if;
1735:
1739: fetch quote_csr into l_quote_log_id, l_quote_total, l_quote_failed, l_quote_success;
1740: exit when quote_csr%NOTFOUND;
1741: end loop;
1742: close quote_csr;
1743: FND_MESSAGE.set_Name('IBE', 'IBE_LEAD_EMAIL_SUBJECT');
1744: --FND_MESSAGE.set_Token('STATUS', p_status);
1745: l_subject := FND_MESSAGE.GET;
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1740: exit when quote_csr%NOTFOUND;
1741: end loop;
1742: close quote_csr;
1743: FND_MESSAGE.set_Name('IBE', 'IBE_LEAD_EMAIL_SUBJECT');
1744: --FND_MESSAGE.set_Token('STATUS', p_status);
1745: l_subject := FND_MESSAGE.GET;
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1748: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION1');
1741: end loop;
1742: close quote_csr;
1743: FND_MESSAGE.set_Name('IBE', 'IBE_LEAD_EMAIL_SUBJECT');
1744: --FND_MESSAGE.set_Token('STATUS', p_status);
1745: l_subject := FND_MESSAGE.GET;
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1748: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION1');
1749: --FND_MESSAGE.SET_TOKEN('STATUS', p_status);
1744: --FND_MESSAGE.set_Token('STATUS', p_status);
1745: l_subject := FND_MESSAGE.GET;
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1748: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION1');
1749: --FND_MESSAGE.SET_TOKEN('STATUS', p_status);
1750: l_body := FND_MESSAGE.GET;
1751: l_body := l_body || '
';
1752: printDebug(l_body, 'SendEmail');
1745: l_subject := FND_MESSAGE.GET;
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1748: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION1');
1749: --FND_MESSAGE.SET_TOKEN('STATUS', p_status);
1750: l_body := FND_MESSAGE.GET;
1751: l_body := l_body || '
';
1752: printDebug(l_body, 'SendEmail');
1753:
1746: printDebug(l_subject, 'SendEmail');
1747: -- now construct the message body.
1748: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION1');
1749: --FND_MESSAGE.SET_TOKEN('STATUS', p_status);
1750: l_body := FND_MESSAGE.GET;
1751: l_body := l_body || '
';
1752: printDebug(l_body, 'SendEmail');
1753:
1754: l_body := l_body || '
';Line 1755: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_TYPE'); |
'; 1755: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_TYPE'); 1756: l_body := l_body || FND_MESSAGE.GET; 1757: l_body := l_body || ' | '; 1758: printDebug(l_body, 'SendEmail'); 1759: Line 1756: l_body := l_body || FND_MESSAGE.GET; |
'; 1755: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_TYPE'); 1756: l_body := l_body || FND_MESSAGE.GET; 1757: l_body := l_body || ' | '; 1758: printDebug(l_body, 'SendEmail'); 1759: 1760: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_IMPORTED'); Line 1760: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_IMPORTED'); | '; 1758: printDebug(l_body, 'SendEmail'); 1759: 1760: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_IMPORTED'); 1761: l_body := l_body || FND_MESSAGE.GET; 1762: l_body := l_body || ' | '; 1763: printDebug(l_body, 'SendEmail'); 1764: Line 1761: l_body := l_body || FND_MESSAGE.GET; | '; 1758: printDebug(l_body, 'SendEmail'); 1759: 1760: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_IMPORTED'); 1761: l_body := l_body || FND_MESSAGE.GET; 1762: l_body := l_body || ' | '; 1763: printDebug(l_body, 'SendEmail'); 1764: 1765: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_SUECCESS'); Line 1765: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_SUECCESS'); | '; 1763: printDebug(l_body, 'SendEmail'); 1764: 1765: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_SUECCESS'); 1766: l_body := l_body || FND_MESSAGE.GET; 1767: l_body := l_body || ' | '; 1768: printDebug(l_body, 'SendEmail'); 1769: Line 1766: l_body := l_body || FND_MESSAGE.GET; | '; 1763: printDebug(l_body, 'SendEmail'); 1764: 1765: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_SUECCESS'); 1766: l_body := l_body || FND_MESSAGE.GET; 1767: l_body := l_body || ' | '; 1768: printDebug(l_body, 'SendEmail'); 1769: 1770: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_FAILED'); Line 1770: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_FAILED'); | '; 1768: printDebug(l_body, 'SendEmail'); 1769: 1770: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_FAILED'); 1771: l_body := l_body || FND_MESSAGE.GET; 1772: l_body := l_body || ' |
'; 1773: printDebug(l_body, 'SendEmail'); 1774: Line 1771: l_body := l_body || FND_MESSAGE.GET; | '; 1768: printDebug(l_body, 'SendEmail'); 1769: 1770: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_NUM_FAILED'); 1771: l_body := l_body || FND_MESSAGE.GET; 1772: l_body := l_body || ' | |||||||||
'; 1773: printDebug(l_body, 'SendEmail'); 1774: 1775: l_body := l_body || fnd_message.get_string('IBE','IBE_PRMT_STORE_CART') || ' | ' || to_char(l_quote_total) ||Line 1775: l_body := l_body || fnd_message.get_string('IBE','IBE_PRMT_STORE_CART') || ' | ' || to_char(l_quote_total) ||
1771: l_body := l_body || FND_MESSAGE.GET; | ||||||||
'; 1773: printDebug(l_body, 'SendEmail'); 1774: 1775: l_body := l_body || fnd_message.get_string('IBE','IBE_PRMT_STORE_CART') || ' | ' || to_char(l_quote_total) || 1776: ' | ' || to_char(l_quote_success) || 1777: ' | ' || to_char(l_quote_failed) || ' | |||||||
'; 1778: printDebug(l_body, 'SendEmail'); 1779: l_body3 := l_body3 ||fnd_message.get_string('IBE','IBE_PRMT_STORE_ORDER') || ' | ' || to_char(p_num_total) ||Line 1779: l_body3 := l_body3 ||fnd_message.get_string('IBE','IBE_PRMT_STORE_ORDER') || ' | ' || to_char(p_num_total) || 1775: l_body := l_body || fnd_message.get_string('IBE','IBE_PRMT_STORE_CART') || ' | ' || to_char(l_quote_total) || 1776: ' | ' || to_char(l_quote_success) || 1777: ' | ' || to_char(l_quote_failed) || ' | |||||
'; 1778: printDebug(l_body, 'SendEmail'); 1779: l_body3 := l_body3 ||fnd_message.get_string('IBE','IBE_PRMT_STORE_ORDER') || ' | ' || to_char(p_num_total) || 1780: ' | ' || to_char(p_num_success) || 1781: ' | ' || to_char(p_num_failed) || ' |
';
1782: printDebug(l_body3, 'SendEmail');
1783:
1780: '
';
1782: printDebug(l_body3, 'SendEmail');
1783:
1784: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION3');
1785: FND_MESSAGE.SET_TOKEN('LOG_ID', to_char(l_quote_log_id) || ' & ' || p_log_id);
1786: l_body3 := l_body3 || FND_MESSAGE.GET;
1787: l_body3 := replace(l_body3, chr(0), ' ');
1788: l_body := replace(l_body, chr(0), ' ');
1781: '
';
1782: printDebug(l_body3, 'SendEmail');
1783:
1784: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION3');
1785: FND_MESSAGE.SET_TOKEN('LOG_ID', to_char(l_quote_log_id) || ' & ' || p_log_id);
1786: l_body3 := l_body3 || FND_MESSAGE.GET;
1787: l_body3 := replace(l_body3, chr(0), ' ');
1788: l_body := replace(l_body, chr(0), ' ');
1789:
1782: printDebug(l_body3, 'SendEmail');
1783:
1784: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_EMAIL_DESCRIPTION3');
1785: FND_MESSAGE.SET_TOKEN('LOG_ID', to_char(l_quote_log_id) || ' & ' || p_log_id);
1786: l_body3 := l_body3 || FND_MESSAGE.GET;
1787: l_body3 := replace(l_body3, chr(0), ' ');
1788: l_body := replace(l_body, chr(0), ' ');
1789:
1790: --dbms_output.put_line('length of l_body ' || length(l_body));
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1832: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1833: WHEN OTHERS THEN
1834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1835: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1836: FND_MESSAGE.Set_Token('ROUTINE', 'SendEmail');
1837: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1838: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1832: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_Count => x_msg_count, p_data => x_msg_data);
1833: WHEN OTHERS THEN
1834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1835: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1836: FND_MESSAGE.Set_Token('ROUTINE', 'SendEmail');
1837: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1838: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1840: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'SendEmail');
1833: WHEN OTHERS THEN
1834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1835: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1836: FND_MESSAGE.Set_Token('ROUTINE', 'SendEmail');
1837: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1838: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1840: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'SendEmail');
1841: END IF;
1834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1835: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1836: FND_MESSAGE.Set_Token('ROUTINE', 'SendEmail');
1837: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1838: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1840: FND_MSG_PUB.Add_Exc_Msg('IBE_LEAD_IMPORT_PVT', 'SendEmail');
1841: END IF;
1842: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,p_count => x_msg_count, p_data => x_msg_data);
1849: p_purge_flag IN VARCHAR2,
1850: p_write_detail_log IN VARCHAR2)
1851: IS
1852: BEGIN
1853: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_BEGIN_DATE');
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1850: p_write_detail_log IN VARCHAR2)
1851: IS
1852: BEGIN
1853: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_BEGIN_DATE');
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1851: IS
1852: BEGIN
1853: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_BEGIN_DATE');
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1852: BEGIN
1853: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_BEGIN_DATE');
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1853: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_BEGIN_DATE');
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1854: printOutput(FND_MESSAGE.GET || ': ' || p_begin_date);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1862: printOutput(FND_MESSAGE.GET);
1855: FND_MESSAGE.SET_NAME('IBE', 'IBE_ECR_END_DATE');
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1862: printOutput(FND_MESSAGE.GET);
1863: END print_Parameter;
1856: printOutput(FND_MESSAGE.GET || ': ' || p_end_date);
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1862: printOutput(FND_MESSAGE.GET);
1863: END print_Parameter;
1864:
1857: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_DEBUG_FLAG');
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1862: printOutput(FND_MESSAGE.GET);
1863: END print_Parameter;
1864:
1865: procedure printOutput( p_message VARCHAR2) IS
1858: FND_MESSAGE.SET_TOKEN('DEBUG_FLAG', p_debug_flag);
1859: printOutput(FND_MESSAGE.GET);
1860: FND_MESSAGE.SET_NAME('IBE', 'IBE_LEAD_PURGE_FLAG');
1861: FND_MESSAGE.SET_TOKEN('PURGE_FLAG', p_purge_flag);
1862: printOutput(FND_MESSAGE.GET);
1863: END print_Parameter;
1864:
1865: procedure printOutput( p_message VARCHAR2) IS
1866: l_printTimeStamp VARCHAR2(30);