215: l_valid_lpns := p_lpn_purge_rec.lpn_ids;
216:
217: IF (p_action = G_LPN_PURGE_ACTION_VALIDATE) THEN
218: -- Validate only
219: -- Call WMS_PURGE_PVT.Check_Purge_LPNs
220: -- with p_lock_flag as 'N'
221: IF (l_debug = 1 ) THEN
222: mdebug('Validate only, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as N');
223: END IF;
218: -- Validate only
219: -- Call WMS_PURGE_PVT.Check_Purge_LPNs
220: -- with p_lock_flag as 'N'
221: IF (l_debug = 1 ) THEN
222: mdebug('Validate only, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as N');
223: END IF;
224:
225: WMS_PURGE_PVT.Check_Purge_LPNs(
226: p_api_version => p_api_version
221: IF (l_debug = 1 ) THEN
222: mdebug('Validate only, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as N');
223: END IF;
224:
225: WMS_PURGE_PVT.Check_Purge_LPNs(
226: p_api_version => p_api_version
227: , p_init_msg_list => p_init_msg_list
228: , p_commit => p_commit
229: , x_return_status => x_return_status
246: END IF;
247:
248: ELSIF (p_action = G_LPN_PURGE_ACTION_DELETE) THEN
249: -- Validate then delete
250: -- Call WMS_PURGE_PVT.Check_Purge_LPNs
251: -- with p_lock_flag as 'Y'
252: -- Then call WMS_PURGE_PVT.Purge_LPNs to delete LPNs
253: IF (l_debug = 1 ) THEN
254: mdebug('Validate, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as Y');
248: ELSIF (p_action = G_LPN_PURGE_ACTION_DELETE) THEN
249: -- Validate then delete
250: -- Call WMS_PURGE_PVT.Check_Purge_LPNs
251: -- with p_lock_flag as 'Y'
252: -- Then call WMS_PURGE_PVT.Purge_LPNs to delete LPNs
253: IF (l_debug = 1 ) THEN
254: mdebug('Validate, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as Y');
255: END IF;
256:
250: -- Call WMS_PURGE_PVT.Check_Purge_LPNs
251: -- with p_lock_flag as 'Y'
252: -- Then call WMS_PURGE_PVT.Purge_LPNs to delete LPNs
253: IF (l_debug = 1 ) THEN
254: mdebug('Validate, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as Y');
255: END IF;
256:
257: WMS_PURGE_PVT.Check_Purge_LPNs(
258: p_api_version => p_api_version
253: IF (l_debug = 1 ) THEN
254: mdebug('Validate, Calling WMS_PURGE_PVT.Check_Purge_LPNs with p_lock_flag as Y');
255: END IF;
256:
257: WMS_PURGE_PVT.Check_Purge_LPNs(
258: p_api_version => p_api_version
259: , p_init_msg_list => p_init_msg_list
260: , p_commit => p_commit
261: , x_return_status => x_return_status
284: RAISE FND_API.G_EXC_ERROR;
285: ELSE
286: -- Validation passed, call Purge_LPNs to delete LPNs
287: IF (l_debug = 1) THEN
288: mdebug('Validation passed, calling WMS_PURGE_PVT.Purge_LPNs');
289: END IF;
290: WMS_PURGE_PVT.Purge_LPNs(
291: p_api_version => p_api_version
292: , p_init_msg_list => p_init_msg_list
286: -- Validation passed, call Purge_LPNs to delete LPNs
287: IF (l_debug = 1) THEN
288: mdebug('Validation passed, calling WMS_PURGE_PVT.Purge_LPNs');
289: END IF;
290: WMS_PURGE_PVT.Purge_LPNs(
291: p_api_version => p_api_version
292: , p_init_msg_list => p_init_msg_list
293: , p_commit => p_commit
294: , x_return_status => x_return_status