275: l_msg_data VARCHAR2(2000);
276:
277: l_ret_val NUMBER;
278: l_status_code VARCHAR2(30);
279: l_visit_rec AHL_VWP_VISITS_PVT.visit_rec_type;
280: --
281:
282: BEGIN
283: IF (l_log_procedure >= l_log_current_level) THEN
296: /* An old VWP visit with Component Visit Type can also be obtained from the above cursor query,
297: * so a check must be made to avoid identifying an older visit as Component Visit.
298: */
299: IF (l_ret_val IS NOT NULL AND
300: AHL_VWP_VISITS_PVT.Is_Old_Visit (l_ret_val) = 'Y') THEN
301: l_ret_val := null;
302: END IF;
303:
304: -- Validate the Component Visit obtained from the above cursor if it's in Draft or Planning status
316: l_visit_rec.firmed_flag;
317: CLOSE get_visit_details_csr;
318:
319: IF (l_log_statement >= l_log_current_level) THEN
320: FND_LOG.string(l_log_statement, l_full_name,' Invoking AHL_VWP_VISITS_PVT.Validate_Component_Visit API for visit_id = ' || l_ret_val);
321: END IF;
322:
323: AHL_VWP_VISITS_PVT.Validate_Component_Visit
324: (
319: IF (l_log_statement >= l_log_current_level) THEN
320: FND_LOG.string(l_log_statement, l_full_name,' Invoking AHL_VWP_VISITS_PVT.Validate_Component_Visit API for visit_id = ' || l_ret_val);
321: END IF;
322:
323: AHL_VWP_VISITS_PVT.Validate_Component_Visit
324: (
325: p_api_version => 1.0,
326: p_init_msg_list => FND_API.G_FALSE,
327: p_commit => FND_API.G_FALSE,
333: x_msg_data => l_msg_data
334: );
335:
336: IF (l_log_statement >= l_log_current_level) THEN
337: FND_LOG.string(l_log_statement, l_full_name,' After call to AHL_VWP_VISITS_PVT.Validate_Component_Visit API, Return Status = ' || l_return_status);
338: END IF;
339:
340: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
341: IF (l_log_statement >= l_log_current_level) THEN
412: /* An old VWP visit with Component Visit Type can also be obtained from the above cursor query,
413: * so a check must be made to avoid identifying an older visit as Component Visit.
414: */
415: IF (l_ret_val = 'Y' AND
416: AHL_VWP_VISITS_PVT.Is_Old_Visit (p_visit_id) = 'Y') THEN
417: l_ret_val := 'N';
418: END IF;
419:
420: IF (l_log_statement >= l_log_current_level) THEN