1: PACKAGE BODY EAM_OP_COMP_DEFAULT_PVT AS
2: /* $Header: EAMVOCDB.pls 120.1 2006/06/16 14:56:27 gbadoni noship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
10: -- EAMVOCDB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package EAM_OP_COMP_DEFAULT_PVT
15: --
16: -- NOTES
17: --
18: -- HISTORY
26: , x_return_status OUT NOCOPY VARCHAR2
27: ) IS
28: BEGIN
29:
30: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Entered Package EAM_OP_COMP_DEFAULT_PVT.Populate_Null_Columns procedure..'); END IF;
31:
32: x_return_status := FND_API.G_RET_STS_SUCCESS;
33: x_eam_op_comp_rec := p_eam_op_comp_rec;
34:
77: WHERE organization_id = p_eam_op_comp_rec.organization_id
78: AND wip_entity_id = p_eam_op_comp_rec.wip_entity_id
79: AND operation_seq_num = p_eam_op_comp_rec.operation_seq_num;
80: END IF;
81: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Exiting Package EAM_OP_COMP_DEFAULT_PVT.Populate_Null_Columns procedure without errors ....'); END IF;
82:
83: EXCEPTION WHEN OTHERS THEN
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Exception happened in EAM_OP_COMP_DEFAULT_PVT.Populate_Null_Columns procedure. exiting.'); END IF;
81: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Exiting Package EAM_OP_COMP_DEFAULT_PVT.Populate_Null_Columns procedure without errors ....'); END IF;
82:
83: EXCEPTION WHEN OTHERS THEN
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Exception happened in EAM_OP_COMP_DEFAULT_PVT.Populate_Null_Columns procedure. exiting.'); END IF;
86:
87: END Populate_Null_Columns;
88:
89:
86:
87: END Populate_Null_Columns;
88:
89:
90: END EAM_OP_COMP_DEFAULT_PVT;