538: END IF;
539:
540: -- Get the Route Id
541: IF (p_route_id IS NULL AND p_mr_route_id IS NULL) THEN
542: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_ROUTE_ID_NULL');
543: FND_MSG_PUB.ADD;
544: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
545: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
546: END IF;
555: -- Validate the Route Id
556: OPEN validate_route_id_csr(c_route_id => x_route_id);
557: FETCH validate_route_id_csr INTO l_dummy;
558: IF (validate_route_id_csr%NOTFOUND) THEN
559: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_ROUTE_ID_INVALID');
560: FND_MESSAGE.Set_Token('ROUTE_ID', x_route_id);
561: FND_MSG_PUB.ADD;
562: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
556: OPEN validate_route_id_csr(c_route_id => x_route_id);
557: FETCH validate_route_id_csr INTO l_dummy;
558: IF (validate_route_id_csr%NOTFOUND) THEN
559: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_ROUTE_ID_INVALID');
560: FND_MESSAGE.Set_Token('ROUTE_ID', x_route_id);
561: FND_MSG_PUB.ADD;
562: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
564: END IF;
566: CLOSE validate_route_id_csr;
567:
568: -- Validate the Instance Id
569: IF (p_item_instance_id IS NULL) THEN
570: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_INST_ID_NULL');
571: FND_MSG_PUB.ADD;
572: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
573: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
574: END IF;
575: ELSE
576: OPEN validate_instance_id_csr;
577: FETCH validate_instance_id_csr INTO l_dummy;
578: IF (validate_instance_id_csr%NOTFOUND) THEN
579: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_INST_ID_INVALID');
580: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
581: FND_MSG_PUB.ADD;
582: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
583: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
576: OPEN validate_instance_id_csr;
577: FETCH validate_instance_id_csr INTO l_dummy;
578: IF (validate_instance_id_csr%NOTFOUND) THEN
579: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_INST_ID_INVALID');
580: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
581: FND_MSG_PUB.ADD;
582: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
583: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
584: END IF;
587: END IF;
588:
589: -- Validate the Request Type
590: IF (p_request_type IS NULL) THEN
591: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_NULL');
592: FND_MSG_PUB.ADD;
593: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
595: END IF;
593: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
595: END IF;
596: ELSIF (p_request_type NOT IN (G_REQ_TYPE_FORECAST, G_REQ_TYPE_PLANNED)) THEN
597: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_INVALID');
598: FND_MESSAGE.Set_Token('REQ_TYPE', p_request_type);
599: FND_MSG_PUB.ADD;
600: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
601: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
594: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
595: END IF;
596: ELSIF (p_request_type NOT IN (G_REQ_TYPE_FORECAST, G_REQ_TYPE_PLANNED)) THEN
597: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_INVALID');
598: FND_MESSAGE.Set_Token('REQ_TYPE', p_request_type);
599: FND_MSG_PUB.ADD;
600: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
601: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
602: END IF;
603: END IF;
604:
605: -- Validate the Requirement Date
606: IF (p_requirement_date IS NULL) THEN
607: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_DATE_NULL');
608: FND_MSG_PUB.ADD;
609: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
610: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
611: END IF;
609: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
610: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
611: END IF;
612: ELSIF (TRUNC(p_requirement_date) < TRUNC(SYSDATE)) THEN
613: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_DATE_PAST');
614: FND_MESSAGE.Set_Token('REQ_DATE', p_requirement_date);
615: FND_MSG_PUB.ADD;
616: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
610: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
611: END IF;
612: ELSIF (TRUNC(p_requirement_date) < TRUNC(SYSDATE)) THEN
613: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_DATE_PAST');
614: FND_MESSAGE.Set_Token('REQ_DATE', p_requirement_date);
615: FND_MSG_PUB.ADD;
616: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
618: END IF;