74: l_api_version_number CONSTANT NUMBER := 1.0;
75: l_procedure_name CONSTANT VARCHAR2(30) := 'Purge_Movement_Transactions';
76:
77: BEGIN
78: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
79: THEN
80: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
81: , G_MODULE_NAME || l_procedure_name || '.begin'
82: ,'enter procedure'
76:
77: BEGIN
78: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
79: THEN
80: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
81: , G_MODULE_NAME || l_procedure_name || '.begin'
82: ,'enter procedure'
83: );
84: END IF;
117:
118: -- Commit the Operation
119: COMMIT;
120:
121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
122: THEN
123: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_NAME || l_procedure_name || '.end'
125: ,'exit procedure'
119: COMMIT;
120:
121: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
122: THEN
123: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_NAME || l_procedure_name || '.end'
125: ,'exit procedure'
126: );
127: END IF;