1: Package body AS_LEADS_AUDIT_PKG AS
2: /* $Header: asxopadb.pls 120.2 2005/09/02 04:05:22 appldev ship $ */
3:
4: --
5: -- HISTORY
334: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
335: 'Error in Leads Trg:' || sqlerrm);
336: END IF;
337:
338: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Leads_Trigger_Handler');
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: WHEN OTHERS THEN
341: -- dbms_output.put_line('Error Number2:'||SQLCODE);
342: -- dbms_output.put_line('Error Message2:'|| SUBSTR(SQLERRM, 1, 200));
344: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
345: 'Error in Leads Trg:' || sqlerrm);
346: END IF;
347:
348: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Leads_Trigger_Handler');
349: END Leads_Trigger_Handler;
350: Procedure Lead_Lines_Trigger_Handler(
351: p_trigger_mode IN VARCHAR2,
352: p_new_lead_id IN as_lead_lines_all.lead_id%type,
591: IF l_debug THEN
592: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
593: 'Error in Lead Lines Trg:' || sqlerrm);
594: END IF;
595: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Lead_Lines_Trigger_Handler');
596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
597: WHEN OTHERS THEN
598: IF l_debug THEN
599: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
598: IF l_debug THEN
599: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
600: 'Error in Lead Lines Trg:' || sqlerrm);
601: END IF;
602: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Lead_Lines_Trigger_Handler');
603: END Lead_Lines_Trigger_Handler;
604: PROCEDURE Sales_Credits_Trigger_Handler(p_trigger_Mode IN VARCHAR2,
605: p_new_lead_id IN as_sales_credits.lead_id%type,
606: p_old_lead_id IN as_sales_credits.lead_id%type,
803: IF l_debug THEN
804: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
805: 'Error in Sales credits Trg:' || sqlerrm);
806: END IF;
807: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Sales_Credits_Trigger_Handler');
808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
809: WHEN OTHERS THEN
810: IF l_debug THEN
811: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
811: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
812: 'Error in Sales Credits Trg:' || sqlerrm);
813: END IF;
814:
815: FND_MSG_PUB.Add_Exc_Msg('AS_LEADS_AUDIT_PKG', 'Lead_Lines_Trigger_Handler');
816: END Sales_Credits_Trigger_Handler;
817:
818:
819: PROCEDURE GET_VALUE(p_old_last_update_date IN DATE,
924:
925: END GET_VALUE;
926:
927:
928: END AS_LEADS_AUDIT_PKG;