[Home] [Help]
55: x_return_status := fnd_api.g_ret_sts_success;
56:
57: SELECT COUNT(1)
58: INTO l_cnt_hdr
59: FROM ozf_sd_batch_headers_all
60: WHERE batch_id = p_batch_id;
61:
62: IF l_cnt_hdr = 0 THEN
63: x_return_status := fnd_api.g_ret_sts_error;
66: END IF;
67:
68: SELECT STATUS_CODE
69: INTO l_status
70: FROM ozf_sd_batch_headers_all
71: WHERE batch_id = p_batch_id;
72:
73: IF l_status NOT IN ('NEW','WIP') THEN
74: x_return_status := fnd_api.g_ret_sts_error;
89: RETURN;
90: END IF;
91:
92: IF l_status = 'NEW' THEN
93: UPDATE ozf_sd_batch_headers_all
94: SET status_code = 'SUBMITTED',
95: object_version_number = object_version_number + 1,
96: batch_submission_date = SYSDATE,
97: last_update_login = NVL(FND_GLOBAL.conc_login_id,-1),