[Home] [Help]
3123: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3124: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3125: --Bug 4906830
3126: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3127: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3128: errbuf := 'Unexpected error. Exiting';
3129: retcode := '2';
3130: ELSE
3131: G_ONLINE_PICK_RELEASE_PHASE :='START';
3424: -- Set the completion status only in the case of Child Request
3425: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3426: -- any further processing
3427: IF p_worker_id is not null then
3428: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
3429: END IF;
3430:
3431: IF l_completion_status = 'NORMAL' THEN
3432: retcode := '0';
3459: -- Set the completion status only in the case of Child Request
3460: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3461: -- any further processing
3462: IF p_worker_id is not null then
3463: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3464: END IF;
3465: errbuf := 'Exception occurred in WSH_PICK_LIST';
3466: retcode := '2';
3467: END IF;
3483: -- Set the completion status only in the case of Child Request
3484: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3485: -- any further processing
3486: IF p_worker_id is not null then
3487: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3488: END IF;
3489: errbuf := 'Exception occurred in WSH_PICK_LIST';
3490: retcode := '2';
3491: END IF;
3845: WHERE delivery_id = p_delivery_id;
3846:
3847: CURSOR c_requests (p_parent_request_id NUMBER) IS
3848: SELECT request_id
3849: FROM FND_CONCURRENT_REQUESTS
3850: WHERE parent_request_id = p_parent_request_id
3851: AND NVL(is_sub_request, 'N') = 'Y';
3852:
3853: CURSOR c_is_psgr_del(p_psgr_id NUMBER) IS
5473: l_warnings := 0;
5474: j := l_child_req_ids.FIRST;
5475: WHILE j IS NOT NULL LOOP
5476: l_dev_status := NULL;
5477: l_dummy := FND_CONCURRENT.get_request_status(
5478: request_id => l_child_req_ids(j),
5479: phase => l_phase,
5480: status => l_status,
5481: dev_phase => l_dev_phase,
6129: l_warnings := 0;
6130: j := l_child_req_ids.FIRST;
6131: WHILE j IS NOT NULL LOOP
6132: l_dev_status := NULL;
6133: l_dummy := FND_CONCURRENT.get_request_status(
6134: request_id => l_child_req_ids(j),
6135: phase => l_phase,
6136: status => l_status,
6137: dev_phase => l_dev_phase,
6191: END IF;
6192: --}
6193:
6194: IF G_CONC_REQ = FND_API.G_TRUE THEN
6195: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6196: IF l_completion_status = 'NORMAL' THEN
6197: retcode := '0';
6198: ELSIF l_completion_status = 'WARNING' THEN
6199: retcode := '1';
6244: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6245: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6246: IF G_CONC_REQ = FND_API.G_TRUE THEN
6247: l_completion_status := 'ERROR';
6248: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6249: errbuf := 'Pick selection is completed with error';
6250: retcode := '2';
6251: ROLLBACK;
6252: ELSE
6257: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6258: IF G_CONC_REQ = FND_API.G_TRUE THEN
6259: IF l_completion_status = 'NORMAL' THEN
6260: l_completion_status := 'WARNING';
6261: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6262: errbuf := 'Pick selection is completed with warning';
6263: retcode := '1';
6264: END IF;
6265: ELSE
6362: IF c_requests%ISOPEN THEN
6363: CLOSE c_requests;
6364: END IF;
6365: IF G_CONC_REQ = FND_API.G_TRUE THEN
6366: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6367: errbuf := 'Exception occurred in WSH_PICK_LIST';
6368: retcode := '2';
6369: END IF;
6370: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6456: IF c_requests%ISOPEN THEN
6457: CLOSE c_requests;
6458: END IF;
6459: IF G_CONC_REQ = FND_API.G_TRUE THEN
6460: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6461: errbuf := 'Exception occurred in WSH_PICK_LIST';
6462: retcode := '2';
6463: END IF;
6464: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6850:
6851: WHEN WSH_NO_FUTURE_SHIPDATE THEN
6852:
6853: 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');
6854: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','Release_Batch_SRS');
6855: errbuf := 'Pick Selection List Generation SRS completed with warning';
6856: retcode := '1';
6857: IF l_debug_on THEN
6858: WSH_DEBUG_SV.pop(l_module_name);
6864: FND_MSG_PUB.Add_Exc_Msg( 'WSH_PICK_LIST', 'Release_Batch_SRS' );
6865: END IF;
6866: --
6867: IF G_CONC_REQ = FND_API.G_TRUE THEN
6868: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
6869: errbuf := 'Exception occurred in Release_Batch_SRS';
6870: retcode := '2';
6871: END IF;
6872: --