678: -- validate item instance.
679: OPEN csi_item_instances_csr (p_item_instance_id);
680: FETCH csi_item_instances_csr INTO l_instance_number, l_active_end_date;
681: IF (csi_item_instances_csr%NOTFOUND) THEN
682: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
683: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
684: FND_MSG_PUB.ADD;
685: CLOSE csi_item_instances_csr;
686: --dbms_output.put_line('Instance not found');
679: OPEN csi_item_instances_csr (p_item_instance_id);
680: FETCH csi_item_instances_csr INTO l_instance_number, l_active_end_date;
681: IF (csi_item_instances_csr%NOTFOUND) THEN
682: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
683: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
684: FND_MSG_PUB.ADD;
685: CLOSE csi_item_instances_csr;
686: --dbms_output.put_line('Instance not found');
687: errbuf := FND_MSG_PUB.GET;
686: --dbms_output.put_line('Instance not found');
687: errbuf := FND_MSG_PUB.GET;
688: retcode := 2;
689: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
690: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
691: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
692: FND_MSG_PUB.ADD;
693: --dbms_output.put_line('Instance has expired');
694: errbuf := FND_MSG_PUB.GET;
687: errbuf := FND_MSG_PUB.GET;
688: retcode := 2;
689: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
690: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
691: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
692: FND_MSG_PUB.ADD;
693: --dbms_output.put_line('Instance has expired');
694: errbuf := FND_MSG_PUB.GET;
695: retcode := 2;
703: OPEN ahl_unit_config_header_csr(l_csi_item_instance_id);
704: FETCH ahl_unit_config_header_csr INTO l_name, l_master_config_id, l_config_status_code;
705: IF (ahl_unit_config_header_csr%FOUND) THEN
706: IF (l_config_status_code = 'DRAFT') THEN
707: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_STATUS_INVALID');
708: FND_MESSAGE.Set_Token('NAME',l_name);
709: FND_MSG_PUB.ADD;
710: errbuf := FND_MSG_PUB.GET;
711: retcode := 2;
704: FETCH ahl_unit_config_header_csr INTO l_name, l_master_config_id, l_config_status_code;
705: IF (ahl_unit_config_header_csr%FOUND) THEN
706: IF (l_config_status_code = 'DRAFT') THEN
707: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_STATUS_INVALID');
708: FND_MESSAGE.Set_Token('NAME',l_name);
709: FND_MSG_PUB.ADD;
710: errbuf := FND_MSG_PUB.GET;
711: retcode := 2;
712: END IF;
725: OPEN ahl_unit_config_headers_csr (p_unit_config_hdr_id);
726: FETCH ahl_unit_config_headers_csr INTO l_name, l_csi_item_instance_id, l_master_config_id,
727: l_config_status_code ;
728: IF (ahl_unit_config_headers_csr%NOTFOUND) THEN
729: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UNIT_NOTFOUND');
730: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_hdr_id);
731: FND_MSG_PUB.ADD;
732: errbuf := FND_MSG_PUB.GET;
733: retcode := 2;
726: FETCH ahl_unit_config_headers_csr INTO l_name, l_csi_item_instance_id, l_master_config_id,
727: l_config_status_code ;
728: IF (ahl_unit_config_headers_csr%NOTFOUND) THEN
729: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UNIT_NOTFOUND');
730: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_hdr_id);
731: FND_MSG_PUB.ADD;
732: errbuf := FND_MSG_PUB.GET;
733: retcode := 2;
734: --dbms_output.put_line('Unit not found');
733: retcode := 2;
734: --dbms_output.put_line('Unit not found');
735: ELSE
736: IF (l_config_status_code = 'DRAFT') THEN
737: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_STATUS_INVALID');
738: FND_MESSAGE.Set_Token('NAME',l_name);
739: FND_MSG_PUB.ADD;
740: CLOSE ahl_unit_config_headers_csr;
741:
734: --dbms_output.put_line('Unit not found');
735: ELSE
736: IF (l_config_status_code = 'DRAFT') THEN
737: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_STATUS_INVALID');
738: FND_MESSAGE.Set_Token('NAME',l_name);
739: FND_MSG_PUB.ADD;
740: CLOSE ahl_unit_config_headers_csr;
741:
742: errbuf := FND_MSG_PUB.GET;