1: PACKAGE BODY EAM_PROCESS_CLEARANCE_PVT AS
2: /* $Header: EAMVWCLB.pls 120.5 2011/07/15 11:42:39 vpasupur noship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2011 Oracle Corporation, Redwood Shores, CA, USA
6: -- All rights reserved.
7: --
8: -- FILENAME: EAMVWCLB.pls
9: --
10: -- DESCRIPTION: Body of package EAM_PROCESS_CLEARANCE_PVT
11: --
12: -- NOTES
13: --
14: -- HISTORY
14: -- HISTORY
15: --
16: --
17: ***************************************************************************/
18: G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_PROCESS_CLEARANCE_PVT';
19: G_FILE_NAME CONSTANT VARCHAR2(12) := 'EAMVWCLB.pls';
20: G_DEBUG_FILENAME CONSTANT VARCHAR2(50) := 'EAM_SAFETY_DEBUG.log';
21:
22:
65: BEGIN
66:
67: SAVEPOINT PROCESS_WORK_CLEARANCE;
68:
69: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.PROCESS_WORK_CLEARANCE'); end if;
70:
71: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from PROCESS_WORK_CLEARANCE'); end if;
72:
73: WORK_CLEARANCE
276: BEGIN
277:
278: SAVEPOINT WORK_CLEARANCE;
279:
280: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.WORK_CLEARANCE'); end if;
281:
282: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling VALIDATE_TRANSACTION_TYPE'); end if;
283:
284: EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE
280: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.WORK_CLEARANCE'); end if;
281:
282: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling VALIDATE_TRANSACTION_TYPE'); end if;
283:
284: EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE
285: ( p_validation_level => p_validation_level
286: , p_entity => 'WORK CLEARANCE'
287: , x_mesg_token_Tbl => l_Mesg_Token_Tbl
288: , x_return_Status => l_return_status
728: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
729: )IS
730: BEGIN
731:
732: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE'); end if;
733:
734: IF (p_entity = 'WORK CLEARANCE') THEN
735: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
736: OR (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) then
985: END COPY_WORK_CLEARANCE;
986:
987:
988:
989: END EAM_PROCESS_CLEARANCE_PVT;