[Home] [Help]
56:
57: -------------------- initialize -------------------------
58: SAVEPOINT Update_sales_referral_lead;
59:
60: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name||': start');
61:
62: IF FND_API.to_boolean(p_init_msg_list) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76:
77:
78: ----------------------- validate ----------------------
79: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': validate');
80:
81: IF (P_SALES_LEAD_Rec.sales_lead_id is null) THEN
82: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
83: FND_MESSAGE.set_name('PV', 'PV_NO_LEAD_FOUND');
94: --l_msg_data:=l_msg_data || '** Referral Status from table :'|| l_referral_status;
95: --l_msg_data:=l_msg_data || '** Referral Status from record :'|| P_SALES_LEAD_Rec.REFERRAL_STATUS;
96:
97: -------------------------- call API --------------------
98: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': update');
99: l_lead_referral_status:=P_SALES_LEAD_Rec.REFERRAL_STATUS;
100:
101: --main if,
102: --if referral type is null, do nothing.
114: --If referral status is changed, we need to update lead and insert row in log table
115: --and send notification based on status
116: IF (l_referral_status is null OR l_referral_status <> l_lead_referral_status) THEN
117:
118: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': status changed');
119: -- Call API to create log entry
120:
121:
122: AS_SALES_LEADS_LOG_PKG.Insert_Row(
153: l_lead_referral_status = g_referral_status_comm_rej
154: ) then
155:
156: -- Send OUT NOCOPY email notification
157: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': notification');
158: l_msg_data:=l_msg_data || '** while notifying';
159:
160: AS_SALES_LEAD_REFERRAL.Notify_Party (
161: p_api_version => 1.0
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232:
233: AS_Utility_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, l_full_name ||': end');
234: -- x_msg_data:=l_msg_data;
235:
236: EXCEPTION
237: