package com.synyi.edc.controller;

import java.io.IOException;
import java.io.PrintWriter;
import java.util.ArrayList;
import java.util.HashMap;
import java.util.List;
import java.util.Map;

import javax.annotation.Resource;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;

import org.apache.commons.lang3.StringUtils;
import org.springframework.stereotype.Controller;
import org.springframework.ui.Model;
import org.springframework.util.CollectionUtils;
import org.springframework.web.bind.annotation.RequestMapping;

import com.alibaba.fastjson.JSON;
import com.alibaba.fastjson.JSONObject;
import com.synyi.edc.pojo.Parameter;
import com.synyi.edc.service.ISqlbuilderService;
import com.synyi.edc.service.IUserService;

@Controller
@RequestMapping("/sqlbuilder")
public class SqlbuilderController {
	@Resource
	private IUserService userService;
	
	@Resource
	private ISqlbuilderService sqlbuilderService;
	
	
	@RequestMapping("/toIndex")
	public String toJ(HttpServletRequest request,Model model){
//		int userId = Integer.parseInt(request.getParameter("id"));
//		User user = this.userService.getUserById(userId);
//		model.addAttribute("user", user);
		return "index";
	}
	
	@RequestMapping("/generate")
	public String toIndex(HttpServletRequest request,Model model,Parameter param,HttpServletResponse res){
		System.out.println(param);
		System.out.println();
		String jsonStr = param.getEventData();
    	String stepStr = param.getGroupData();
    	
    	String returnSql = genGroupSql(jsonStr,stepStr);
		
		System.out.println(returnSql);
		
		 printJson(res,returnSql);
		 return null;
	}
	
	public static String genGroupSql(String jsonStr,String stepStr){
		Map<String,Map> temp1 = null;  //入排条件1
		Map temp2 = null;  //入排条件2
		List<Map> lis = (List)JSON.parse(jsonStr);
		if(!CollectionUtils.isEmpty(lis)){
			temp1 = lis.get(0);
			if(lis.size()>1){
				temp2 = lis.get(1);
			}
		}
		
		System.out.println(stepStr);
		Map stepMap = (Map)JSON.parse(stepStr);;
		
		int maxValue = 0;
		int minValue = 0;
		int interval = 0;
		
		try{
			if(StringUtils.isNotBlank((String)stepMap.get("maxValue"))){
				maxValue = Integer.parseInt((String)stepMap.get("maxValue"));
			}
			if(StringUtils.isNotBlank((String)stepMap.get("minValue"))){
				minValue = Integer.parseInt((String)stepMap.get("minValue"));
			}
			if(StringUtils.isNotBlank((String)stepMap.get("interval"))){
				interval = Integer.parseInt((String)stepMap.get("interval"));
			}
		}catch(Exception e){}
		
		String groupType = stepMap.get("groupType")==null?"":(String)stepMap.get("groupType");
		
		String returnSql = "with temp1 as ("+event_diagnose(temp1,stepMap)+")";
		if(!CollectionUtils.isEmpty(temp2)){
			returnSql += ", <br/> temp2 as ("+event_diagnose(temp2,stepMap)+")";
			
			String rel = (String)temp2.get("关系");
			if("or".equals(rel)){
				returnSql += " <br/> select ";
				
				if(StringUtils.isNotBlank(groupType)){
					switch((String)stepMap.get("groupType")){
						case "年龄段":returnSql += generateAgePart(minValue,maxValue,interval)+" 年龄段,";break;
						case "年份":returnSql += "to_char(diag_time,'yyyy') 年份,";break;
						case "医院":returnSql += "t.org_code,org.org_name,";break;
						case "就诊类型":returnSql += "visit_type,";break;
						case "性别":returnSql += "case when c.sex_code in ('2','9') then '女' when c.sex_code ='1' then '男' else '未知' end 性别,";break;
					}
				}
				
				if("patientsNumber".equals((String)stepMap.get("queryType"))){
					returnSql += "count(distinct t.patient_id) 人数";
				}else{
					returnSql += "count(t.patient_id) 人次";
				}
				returnSql += " <br/> from (select * from temp1 union all  select * from temp2 )t ";
				if("性别".equals((String)stepMap.get("groupType"))||"年龄段".equals((String)stepMap.get("groupType"))){
					returnSql += " join patient.patient_master_info c on t.patient_id=c.patient_id <br/>";
				}
				if("医院".equals((String)stepMap.get("groupType"))){
					returnSql += " join mdm.organization org on t.org_code=org.org_code  <br/>";
				}
				if(StringUtils.isNotBlank(groupType)){
					returnSql += " group by ";
					switch((String)stepMap.get("groupType")){
						case "年龄段":returnSql += generateAgePart(minValue,maxValue,interval);break;
						case "年份":returnSql += "to_char(diag_time,'yyyy') ";break;
						case "医院":returnSql += "t.org_code,org.org_name";break;
						case "就诊类型":returnSql += "visit_type";break;
						case "性别":returnSql += "case when c.sex_code in ('2','9') then '女' when c.sex_code ='1' then '男' else '未知' end";break;
					}
				}
			}else if("and".equals(rel)){
				returnSql += "select count(1) 人数 from (select distinct temp1.patient_id from temp1)a join (select distinct temp2.patient_id from temp2 ) b on a.patient_id=b.patient_id";
			}
		}else{//只有temp1的情况
			
			returnSql += "<br/> select ";
			if(StringUtils.isNotBlank(groupType)){
				switch((String)stepMap.get("groupType")){
					case "年龄段":returnSql += generateAgePart(minValue,maxValue,interval)+" 年龄段,";break;
					case "年份":returnSql += "to_char(diag_time,'yyyy') 年份,";break;
					case "医院":returnSql += "temp1.org_code,org.org_name,";break;
					case "就诊类型":returnSql += "visit_type,";break;
					case "性别":returnSql += "case when c.sex_code in ('2','9') then '女' when c.sex_code ='1' then '男' else '未知' end 性别,<br/>";break;
				}
			}
			if("patientsNumber".equals((String)stepMap.get("queryType"))){
				returnSql += "count(distinct temp1.patient_id) 人数";
			}else{  //visitsNumber 人次
				returnSql += "count(temp1.patient_id) 人次";
			}
			returnSql += " from temp1 ";
			
			if("性别".equals((String)stepMap.get("groupType"))||"年龄段".equals((String)stepMap.get("groupType"))){
				returnSql += " join patient.patient_master_info c on temp1.patient_id=c.patient_id <br/> ";
			}
			if("医院".equals((String)stepMap.get("groupType"))){
				returnSql += " join mdm.organization org on temp1.org_code=org.org_code  <br/>";
			}
			
			if(StringUtils.isNotBlank(groupType)){
				returnSql += "group by ";
				
				switch((String)stepMap.get("groupType")){
					case "年龄段":returnSql += generateAgePart(minValue,maxValue,interval);break;
					case "年份":returnSql += "to_char(diag_time,'yyyy') ";break;
					case "医院":returnSql += "temp1.org_code,org.org_name";break;
					case "就诊类型":returnSql += "visit_type";break;
					case "性别":returnSql += "case when c.sex_code in ('2','9') then '女' when c.sex_code ='1' then '男' else '未知' end";break;
				}
			}
		}
		return returnSql;
	}
	
	  public static String generateAgePart(int min,int max,int interval){
	    	String str = " case";
	    	
	    	int temp = min;
	    	for(int i=min;i<max;i+=interval){
	    		if(i>min){
	    			//System.out.println(temp+":"+i);
	    			if(temp==min){
	    				str += " when extract(year from age(diag_time,c.birth_date))  >="+temp +" and extract(year from age(diag_time,c.birth_date)) <"+i+" then '"+temp+"到"+i+"'<br/>";
//	    			
	    				}else if(i==max){
//	    				str += " when extract(year from age(temp1.diag_time,c.birth_date)) <="+max+" then '"+temp+"到"+max+"' end  ";
	    			}else{
	    				str += " when extract(year from age(diag_time,c.birth_date)) <"+i+" then '"+temp+"到"+i+"'<br/>";
	    			}	
	    			temp = i;
	    		}
	    	}
	    	str += " when extract(year from age(diag_time,c.birth_date)) <="+max+" then '"+temp+"到"+max+"' end <br/> ";
	    //	System.out.println(str);
	    	return str;
	    }
	
	  public static String event_diagnose(Map<String,Map> temp1,Map groupMap){
	    	/*{"事件":{"diag_standard":"I21,I22,I23","event_type":"诊断"},"医院":{"org_code":"9983838x,111999441,2224589985,112445580"},
			 * "就诊类型":{"visit_type":"门诊"},"时间":{"time_from":"绝对时间:2017-01-01","time_to":"绝对时间:2017-01-10"}}
			 * 
			 * {\"事件\":{\"diag_standard\":[\"I220\",\"I230\"],\"diag_primitive\":[\"I220\",\"I230\"],\"event_type\":\"diagnosis\"},
			 * \"医院\":{\"org_code\":[\"111111\",\"222222\"]},\"就诊类型\":{\"visit_type\":\"hospitalization\"},\"时间\":{\"time_from\":\"2018-7-2\",\"time_to\":\"2018-8-12\"},
			 * \"关系\":\"or\"}
			 * 
			 * */
			String resultSql = "";
			String condition = "";
			//String eventType = "";
			
			for(String str:temp1.keySet()){
				if("事件".equals(str)){  //"事件":{"diag_standard":"I21,I22,I23","event_type":"诊断"}
					Map temp = temp1.get(str);
					//if(temp.get("event_type").equals("diagnosis")){
						//eventType = (String)temp.get("event_type");
						//,diag_time,org_code,case when visit_type='O' then '门诊' when visit_type='I' then '住院' when is_emergency=true then '急诊' else '未知' end visit_type
						resultSql += " select * from(select a.patient_id";
								String groupType = groupMap.get("groupType")==null?"":(String)groupMap.get("groupType");
								if(StringUtils.isNotBlank(groupType)){//"{\"groupType\":\"医院\",\"interval\":\"\",\"maxValue\":\"\",\"minValue\":\"\"}";
									switch(groupType){
										case "年龄段":resultSql += ",coalesce(a.diag_time,b.visit_time) diag_time";break;
										case "年份":resultSql += ",coalesce(a.diag_time,b.visit_time) diag_time";break;
										case "医院":resultSql += ",a.org_code";break;
										case "就诊类型":resultSql += ",case when b.visit_type='O' then '门诊' when b.visit_type='I' then '住院' when is_emergency=true then '急诊' else '未知' end visit_type";break;
										case "性别":resultSql += "";break;
									}
								}
								
								resultSql += ",jsonb_array_elements(diag_sycode_set) "+
										"as sycode  <br/> from diag.patient_diagnose a ";
								
								String time_from = temp1.get("时间")==null?"":(String)temp1.get("时间").get("time_from");
								String visit_type =  temp1.get("就诊类型")==null?"":(String)temp1.get("就诊类型").get("visit_type");
								if(StringUtils.isNotBlank(time_from)||StringUtils.isNotBlank(visit_type)){
									resultSql += " left join visit.visit_record b on a.visit_id = b.visit_id ";
								}else{
									if(StringUtils.isNotBlank(groupType)){
										switch((String)groupMap.get("groupType")){
											case "年龄段":resultSql += " left join visit.visit_record b on a.visit_id = b.visit_id ";break;
											case "年份":resultSql += " left join visit.visit_record b on a.visit_id = b.visit_id ";break;
											case "就诊类型":resultSql += " left join visit.visit_record b on a.visit_id = b.visit_id ";break;
											//case "性别":resultSql += "";break;
										}
									}
								}									
								resultSql += "where 1=1 $condition$ ) t1  <br/> ";
						
						List<String> diag_list = (List)temp.get("diag_standard");
						List<String> diag_primitive = (List)temp.get("diag_primitive");
						if(diag_list!=null&&diag_list.size()>0){
							resultSql += " join (select diag_code,diag_code2,diag_name from mdm.diagnose a where a.code_sys_id=30 <br/> ";
							
							if(diag_list.size()>1){
								for(int i = 0;i<diag_list.size();i++){
									String diag_c = diag_list.get(i);
									if(i==0){
										resultSql += " and ( diag_code2 like '"+diag_c+"%'";
									}else if(i==diag_list.size()-1){
										resultSql += " or diag_code2 like '"+diag_c+"%')";
									}else{
										resultSql += " or diag_code2 like '"+diag_c+"%'";
									}
								}
							}else{
								resultSql += " and diag_code2 like '"+diag_list.get(0)+"%'";
							}
							resultSql += " <br/> )t2 on replace(t1.sycode::varchar(50),'\"','')  =t2.diag_code";
						}else if(diag_primitive!=null&&diag_primitive.size()>0){
							
							resultSql += " join (select diag_code,diag_code2,diag_name from mdm.diagnose a where a.code_sys_id=30 <br/> ";
							
							if(diag_primitive.size()>1){
								for(int i = 0;i<diag_primitive.size();i++){
									String diag_c = diag_primitive.get(i);
									if(i==0){
										resultSql += " and ( diag_name like '%"+diag_c+"%'";
									}else if(i==diag_primitive.size()-1){
										resultSql += " or diag_name like '%"+diag_c+"%')";
									}else{
										resultSql += " or diag_name like '%"+diag_c+"%'";
									}
								}
							}else{
								resultSql += " and diag_name like '%"+diag_primitive.get(0)+"%'";
							}
							resultSql += " <br/> )t2 on replace(t1.sycode::varchar(50),'\"','')  =t2.diag_code";
						}
					//}
				}else if("医院".equals(str)){ //"医院":{"org_code":"9983838x,111999441,2224589985,112445580"}
					Map temp = temp1.get(str);
					try{
						List<String> org_list = (List)temp.get("org_code");
						if(!CollectionUtils.isEmpty(org_list)){
							if(org_list.size()>1){
								for(int i = 0;i<org_list.size();i++){
									String org_code = org_list.get(i);
									if(i==0){
										condition += " and  a.org_code in ('"+org_code+"',";
									}else if(i==org_list.size()-1){
										condition += "'"+org_code+"')";
									}else{
										condition += "'"+org_code+"',";
									}
								}
							}else{
								condition += " and a.org_code = '"+org_list.get(0)+"'";
							}
						}
					}catch(java.lang.ClassCastException e){}
					
				}else if("时间".equals(str)){//"时间":{"time_from":"绝对时间:2017-01-01","time_to":"绝对时间:2017-01-10","time_type":"诊断时间"}
					Map temp = temp1.get(str);
					String time_from = (String)temp.get("time_from");
					String time_to = (String)temp.get("time_to");
					condition += " <br/> ";
					if(StringUtils.isNoneBlank(time_from)&&StringUtils.isNoneBlank(time_to)){
						condition += " and coalesce(a.diag_time,b.visit_time) between '"+time_from +"' and '"+time_to+"'";
					}
					
//					switch(eventType){
//						case "诊断":condition+= "and coalesce(a.diag_time,b.visit_time) ";break;
//						case "检验时间":condition+= "and report_time ";break;
//						case "用药时间":condition+= "and drug_time ";break;
//						case "手术时间":condition+= "and oper_time ";break;
//					}
				}else if("就诊类型".equals(str)){//"就诊类型":{"visit_type":"门诊"}
					Map temp = temp1.get(str);
					String visit_type = (String)temp.get("visit_type");
					condition += " <br/> ";
					switch(visit_type){
						case "outpat":condition+= " and b.visit_type='O' ";break;
						case "inpat":condition+= " and b.visit_type='I' ";break;
						case "emergency":condition+= " and b.is_emergency=true ";break;
					}
				}
			}
			
			resultSql = resultSql.replace("$condition$", condition);
			return resultSql;
	    }
	
	public void printJson(HttpServletResponse res,String str){
		
		res.setContentType("text/plain");
		 res.setCharacterEncoding("utf-8");
		 res.setHeader("Access-Control-Allow-Origin", "*");  
		 res.setHeader("Access-Control-Allow-Methods", "POST, GET, OPTIONS, DELETE");  
		 res.setHeader("Access-Control-Max-Age", "3600");  
		 res.setHeader("Access-Control-Allow-Headers", "x-requested-with");  
		 PrintWriter pw = null;
		try {
			pw = res.getWriter();
			 pw.write(str);
		} catch (IOException e) {
			e.printStackTrace();
		}finally{
			 pw.flush();
			 pw.close();
		}
	}
	
	@RequestMapping("/getAllOrg")
	public String getAllOrg(HttpServletRequest request,Model model,HttpServletResponse res){
		
		List<Parameter> par = sqlbuilderService.getAllOrgInfo();
		List list = new ArrayList();
		for(Parameter p:par){
			Map map1 = new HashMap();
			map1.put("value", p.getOrgCode());
			map1.put("label", p.getOrgName());
			list.add(map1);
		}
		
		String jsonString = JSONObject.toJSON(list).toString();
		printJson(res,jsonString);
		return null;
	}
	
	@RequestMapping("/getAlllabInfo")
	public String getAllLabInfo(HttpServletRequest request,Model model,HttpServletResponse res,Parameter param){
		
		List<Parameter> par = sqlbuilderService.getAllLabInfo(param);
		List list = new ArrayList();
		for(Parameter p:par){
			Map map1 = new HashMap();
			map1.put("value", p.getItemId());
			map1.put("label", p.getItemName());
			list.add(map1);
		}
		
		String jsonString = JSONObject.toJSON(list).toString();
		printJson(res,jsonString);
		return null;
	}
	
}