[Home] [Help]
3197: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3198: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3199: --Bug 4906830
3200: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3201: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3202: errbuf := 'Unexpected error. Exiting';
3203: retcode := '2';
3204: ELSE
3205: G_ONLINE_PICK_RELEASE_PHASE :='START';
3508: -- Set the completion status only in the case of Child Request
3509: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3510: -- any further processing
3511: IF p_worker_id is not null then
3512: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
3513: END IF;
3514:
3515: IF l_completion_status = 'NORMAL' THEN
3516: retcode := '0';
3543: -- Set the completion status only in the case of Child Request
3544: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3545: -- any further processing
3546: IF p_worker_id is not null then
3547: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3548: END IF;
3549: errbuf := 'Exception occurred in WSH_PICK_LIST';
3550: retcode := '2';
3551: END IF;
3567: -- Set the completion status only in the case of Child Request
3568: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3569: -- any further processing
3570: IF p_worker_id is not null then
3571: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3572: END IF;
3573: errbuf := 'Exception occurred in WSH_PICK_LIST';
3574: retcode := '2';
3575: END IF;
3935: WHERE delivery_id = p_delivery_id;
3936:
3937: CURSOR c_requests (p_parent_request_id NUMBER) IS
3938: SELECT request_id
3939: FROM FND_CONCURRENT_REQUESTS
3940: WHERE parent_request_id = p_parent_request_id
3941: AND NVL(is_sub_request, 'N') = 'Y';
3942:
3943: CURSOR c_is_psgr_del(p_psgr_id NUMBER) IS
5607: l_warnings := 0;
5608: j := l_child_req_ids.FIRST;
5609: WHILE j IS NOT NULL LOOP
5610: l_dev_status := NULL;
5611: l_dummy := FND_CONCURRENT.get_request_status(
5612: request_id => l_child_req_ids(j),
5613: phase => l_phase,
5614: status => l_status,
5615: dev_phase => l_dev_phase,
6264: l_warnings := 0;
6265: j := l_child_req_ids.FIRST;
6266: WHILE j IS NOT NULL LOOP
6267: l_dev_status := NULL;
6268: l_dummy := FND_CONCURRENT.get_request_status(
6269: request_id => l_child_req_ids(j),
6270: phase => l_phase,
6271: status => l_status,
6272: dev_phase => l_dev_phase,
6326: END IF;
6327: --}
6328:
6329: IF G_CONC_REQ = FND_API.G_TRUE THEN
6330: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6331: IF l_completion_status = 'NORMAL' THEN
6332: retcode := '0';
6333: ELSIF l_completion_status = 'WARNING' THEN
6334: retcode := '1';
6379: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6380: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6381: IF G_CONC_REQ = FND_API.G_TRUE THEN
6382: l_completion_status := 'ERROR';
6383: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6384: errbuf := 'Pick selection is completed with error';
6385: retcode := '2';
6386: ROLLBACK;
6387: ELSE
6392: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6393: IF G_CONC_REQ = FND_API.G_TRUE THEN
6394: IF l_completion_status = 'NORMAL' THEN
6395: l_completion_status := 'WARNING';
6396: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6397: errbuf := 'Pick selection is completed with warning';
6398: retcode := '1';
6399: END IF;
6400: ELSE
6497: IF c_requests%ISOPEN THEN
6498: CLOSE c_requests;
6499: END IF;
6500: IF G_CONC_REQ = FND_API.G_TRUE THEN
6501: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6502: errbuf := 'Exception occurred in WSH_PICK_LIST';
6503: retcode := '2';
6504: END IF;
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6591: IF c_requests%ISOPEN THEN
6592: CLOSE c_requests;
6593: END IF;
6594: IF G_CONC_REQ = FND_API.G_TRUE THEN
6595: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6596: errbuf := 'Exception occurred in WSH_PICK_LIST';
6597: retcode := '2';
6598: END IF;
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6992:
6993: WHEN WSH_NO_FUTURE_SHIPDATE THEN
6994:
6995: WSH_UTIL_CORE.PrintMsg('No Lines were selected for Ship Confirmation because Allow Future Ship Date Parameter is disabled and Actual Ship Date is greater than current system date');
6996: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','Release_Batch_SRS');
6997: errbuf := 'Pick Selection List Generation SRS completed with warning';
6998: retcode := '1';
6999: IF l_debug_on THEN
7000: WSH_DEBUG_SV.pop(l_module_name);
7006: FND_MSG_PUB.Add_Exc_Msg( 'WSH_PICK_LIST', 'Release_Batch_SRS' );
7007: END IF;
7008: --
7009: IF G_CONC_REQ = FND_API.G_TRUE THEN
7010: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
7011: errbuf := 'Exception occurred in Release_Batch_SRS';
7012: retcode := '2';
7013: END IF;
7014: --