package open.dolphin.message;

import java.io.BufferedReader;
import java.io.StringReader;
import java.util.ArrayList;
import java.util.Collection;
import java.util.Iterator;
import java.util.List;
import java.util.Set;
import open.dolphin.infomodel.AccessRightModel;
import open.dolphin.infomodel.BundleDolphin;
import open.dolphin.infomodel.BundleMed;
import open.dolphin.infomodel.ClaimItem;
import open.dolphin.infomodel.DocumentModel;
import open.dolphin.infomodel.IInfoModel;
import open.dolphin.infomodel.ModelUtils;
import open.dolphin.infomodel.ModuleModel;
import open.dolphin.infomodel.ProgressCourse;
import open.dolphin.infomodel.SchemaModel;
import open.dolphin.infomodel.UserModel;
import open.dolphin.log.LogWriter;
import open.dolphin.project.GlobalVariables;
import org.jdom.Document;
import org.jdom.Element;
import org.jdom.input.SAXBuilder;

/**
 * MMLBuilder
 *
 * @author Minagawa,Kazushi
 */
public class MMLHelper {

    private DocumentModel document;
    private UserModel user;
    private String patientId;
    private StringBuilder freeExp;
    private StringBuilder paragraphBuilder;
    private String soaSpec;
    private String pSpec;
    private List<ModuleModel> pModules;
    private List<SchemaModel> schemas;
    private List<AccessRightModel> accessRights;
    private boolean DEBUG = false;

    /** Creates a new instance of MMLBuilder */
    public MMLHelper(DocumentModel sendModel, String patientId) {
        setDocument(sendModel);
        setUser(GlobalVariables.getUserModel());
        setPatientId(patientId);
        buildText();
    }

    public DocumentModel getDocument() {
        return document;
    }

    private void setDocument(DocumentModel document) {

        this.document = document;
    }

    /**
     * 経過記録モジュールの自由記載表現を生成する。
     */
    private void buildText() {

        // Moduleを抽出する
        Set<ModuleModel> moduleBeans = getDocument().getModules();
        pModules = new ArrayList<ModuleModel>();

        for (ModuleModel module : moduleBeans) {

            String role = module.getModuleInfo().getStampRole();

            if (role.equals(IInfoModel.ROLE_SOA_SPEC)) {
                soaSpec = ((ProgressCourse) module.getModel()).getFreeText();

            } else if (role.equals(IInfoModel.ROLE_P)) {
                pModules.add(module);

            } else if (role.equals(IInfoModel.ROLE_P_SPEC)) {
                pSpec = ((ProgressCourse) module.getModel()).getFreeText();
            }
        }

        // Schemaを抽出する
        Set<SchemaModel> schemaC = getDocument().getSchemas();
        if (schemaC != null && schemaC.size() > 0) {
            schemas = new ArrayList<SchemaModel>(schemaC.size());
            schemas.addAll(schemaC);
        }

        // アクセス権を抽出する
        Collection<AccessRightModel> arc = getDocument().getDocInfo().getAccessRights();
        if (arc != null && arc.size() > 0) {
            accessRights = new ArrayList<AccessRightModel>(arc.size());
            accessRights.addAll(arc);
        }

        // Builderを生成し soa及びpドキュメントをパースする
        freeExp = new StringBuilder();

        if (soaSpec != null) {
            parse(soaSpec);
        }

        if (pSpec != null) {
            parse(pSpec);
        }
    }

    public UserModel getUser() {
        return user;
    }

    private void setUser(UserModel user) {
        this.user = user;
    }

    /**
     * 患者IDを返す。
     * @return 患者ID
     */
    public String getPatientId() {
        return patientId;
    }

    private void setPatientId(String patientId) {
        this.patientId = patientId;
    }

    /**
     * 地域連携用の患者IDを返す。
     * 実装ルール  施設内のIDであることを示す。
     * <mmlCm:Id mmlCm:type="facility" mmlCm:tableId="JPN452015100001">12345</mmlCm:Id> 
     */
    public String getCNPatientId() {
        return patientId;
    }

    /**
     * 地域連携用の患者IDTypeを返す。
     * 実装ルール facility
     */
    public String getCNPatientIdType() {
        return "facility";
    }

    /**
     * 地域連携用の患者ID TableIdを返す。
     * 実装ルール その施設のJMARIコード
     */
    public String getCNPatientIdTableId() {
        return getCNFacilityId();
    }

    /**
     * 地域連携で使用する施設名を返す。
     * @return 施設名
     */
    public String getCNFacilityName() {
        return getUser().getFacility().getFacilityName();
    }

    /**
     * 地域連携用の施設IDを返す。
     * 実装ルール JMARIコードを適用する
     * <mmlCm:Id mmlCm:type="JMARI" mmlCm:tableId="MML0027">JPN452015100001</mmlCm:Id> 
     */
    public String getCNFacilityId() {
        // TODO 
        if (GlobalVariables.getJoinAreaNetwork()) {
            return GlobalVariables.getAreaNetworkFacilityId();
        }
        return getUser().getFacility().getFacilityId();
    }

    /**
     * 地域連携用の施設ID Typeを返す。
     * 実装ルール JMARI
     */
    public String getCNFacilityIdType() {
        return "JMARI";
    }

    /**
     * 地域連携用の施設ID tableIdを返す。
     * 実装ルール MML0027
     * @return
     */
    public String getCNFacilityIdTableId() {
        return "MML0027";
    }

    /**
     * 地域連携用のCreatorIdを返す。
     * 実装ルール 
     * <mmlCm:Id mmlCm:type="local" mmlCm:tableId="MML0024">12345</mmlCm:Id>
     */
    public String getCNCreatorId() {
        if (GlobalVariables.getJoinAreaNetwork()) {
            return GlobalVariables.getAreaNetworkCreatorId();
        }
        return getUser().getUserId();
    }

    /**
     * 地域連携用のCreatorId Typeを返す。
     * 実装ルール local
     */
    public String getCNCreatorIdType() {
        return "local";
    }

    /**
     * 地域連携用のCreatorId TableIdを返す。
     * 実装ルール MML0024
     */
    public String getCNCreatorIdTableId() {
        return "MML0024";
    }

    public String getCreatorName() {
        return getUser().getCommonName();
    }

    public String getCreatorLicense() {
        return getUser().getLicenseModel().getLicense();
    }

    /**
     *
     * @return
     */
    public String getPurpose() {
        return getDocument().getDocInfo().getPurpose();
    }

    public String getTitle() {
        return getDocument().getDocInfo().getTitle();
    }

    public String getDocId() {
        return getDocument().getDocInfo().getDocId();
    }

    /**
     *
     * @return
     */
    public String getParentId() {
        return getDocument().getDocInfo().getParentId();
    }

    public String getParentIdRelation() {
        return getDocument().getDocInfo().getParentIdRelation();
    }

    public String getGroupId() {
        return getDocument().getDocInfo().getDocId();
    }

    public String getConfirmDate() {
        return ModelUtils.getDateTimeAsString(getDocument().getDocInfo().getConfirmDate());
    }

    /**
     *
     * @return
     */
    public String getFirstConfirmDate() {
        return ModelUtils.getDateTimeAsString(getDocument().getDocInfo().getFirstConfirmDate());
    }

    public List<SchemaModel> getSchema() {
        return schemas;
    }

    public List<AccessRightModel> getAccessRights() {
        return accessRights;
    }

    /**
     * 経過記録モジュールの自由記載表現を返す。
     */
    public String getFreeExpression() {
        String ret = freeExp.toString();
        //     debug(ret);

        return ret;
    }

    /**
     * soaSpec 及び pSpecをパースし xhtml の自由記載表現に変換する。
     */
    private void parse(String spec) {

        try {
            BufferedReader reader = new BufferedReader(new StringReader(spec));
            SAXBuilder docBuilder = new SAXBuilder();
            Document doc = docBuilder.build(reader);
            Element root = doc.getRootElement();
            //      debug(root.toString());
            parseChildren(root);
            reader.close();

        } catch (Exception e) {
            LogWriter.error(getClass(), e);
        }
    }

    /**
     * 子要素を再帰的にパースする。
     */
    private void parseChildren(Element current) {

        List children = current.getChildren();

        // Leaf ならリターンする
        if (children == null || children.size() == 0) {
            return;
        }

        for (Iterator iterator = children.iterator(); iterator.hasNext();) {

            Element child = (Element) iterator.next();
            //String qname = child.getQualifiedName();
            String ename = child.getName();
            //Namespace ns = child.getNamespace();
            //debug(ename);

            if (ename.equals("paragraph")) {
                // 段落単位に<xhtml:br/>をつける
                // 次の段落用にビルダを新たに生成する
                if (paragraphBuilder != null) {
                    freeExp.append(paragraphBuilder.toString());
                    freeExp.append("<xhtml:br/>");
                    freeExp.append(System.getProperty("line.separator"));
                }
                paragraphBuilder = new StringBuilder();


            } else if (ename.equals("content")) {
                // 取得するものなし
            } else if (ename.equals("component")) {

                String name = child.getAttributeValue("name");
                int number = Integer.parseInt(child.getAttributeValue("component"));

                if (name.equals("schemaHolder")) {
                    // Schema の場合はextRefに変換する
                    paragraphBuilder.append(getSchemaInfo(schemas.get(number)));

                } else if (name.equals("stampHolder")) {
                    // オーダの場合は<br>でtoString()
                    paragraphBuilder.append(getStampInfo(pModules.get(number)));
                }


            } else if (ename.equals("text")) {
                // 意味があるかも知れないのでtrim()しない
                //paragraphBuilder.append(child.getTextTrim());
                paragraphBuilder.append(child.getText());
            }

            // 再帰する
            parseChildren(child);
        }
    }

    /**
     * Schema の extRef Info を返す。
     */
    private String getSchemaInfo(SchemaModel schema) {
        String contentType = schema.getExtRef().getContentType();
        String medicalRole = schema.getExtRef().getMedicalRole();
        String title = schema.getExtRef().getTitle();
        String href = schema.getExtRef().getHref();
        StringBuilder sb = new StringBuilder();
        sb.append("<mmlCm:extRef");
        sb.append(" mmlCm:contentType=");
        sb.append(addQuote(contentType));
        sb.append(" mmlCm:medicalRole=");
        sb.append(addQuote(medicalRole));
        sb.append(" mmlCm:title=");
        sb.append(addQuote(title));
        sb.append(" mmlCm:href=");
        sb.append(addQuote(href));
        sb.append(" />");
        return sb.toString();
    }

    /**
     * スタンプの文字列表現を返す。
     */
    private String getStampInfo(ModuleModel module) {

        IInfoModel obj = module.getModel();
        StringBuilder buf = new StringBuilder();

        if (obj instanceof BundleMed) {

            BundleMed med = (BundleMed) obj;

            buf.append("RP<xhtml:br/>");
            buf.append(System.getProperty("line.separator"));

            ClaimItem[] items = med.getClaimItem();

            for (ClaimItem item : items) {

                buf.append("・");
                buf.append(item.getName());
                buf.append("　");

                if (item.getNumber() != null) {
                    buf.append(item.getNumber());
                    if (item.getUnit() != null) {
                        buf.append(item.getUnit());
                    }
                }
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

            if (med.getAdmin().startsWith("内服")) {
                buf.append(med.getAdmin().substring(0, 2));
                buf.append(" ");
                buf.append(med.getAdmin().substring(4));
            } else {
                buf.append(med.getAdmin());
            }
            buf.append(" x ");
            buf.append(med.getBundleNumber());
            // FIXME
            if (med.getAdmin().startsWith("内服")) {
                if (med.getAdmin().charAt(3) == '回') {
                    buf.append(" 日分");
                }
            }
            buf.append("<xhtml:br/>");
            buf.append(System.getProperty("line.separator"));

            // Print admMemo
            if (med.getAdminMemo() != null) {
                buf.append(med.getAdminMemo());
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

            // Print admMemo
            if (med.getMemo() != null) {
                buf.append(med.getMemo());
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

        } else if (obj instanceof BundleDolphin) {

            BundleDolphin bundle = (BundleDolphin) obj;

            // Print order name
            buf.append(bundle.getOrderName());
            buf.append("<xhtml:br/>");
            buf.append(System.getProperty("line.separator"));
            ClaimItem[] items = bundle.getClaimItem();

            for (ClaimItem item : items) {

                // Print item name
                buf.append("・");
                buf.append(item.getName());

                // Print item number
                String number = item.getNumber();
                if (number != null) {
                    buf.append("　");
                    buf.append(number);
                    if (item.getUnit() != null) {
                        buf.append(item.getUnit());
                    }
                }
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

            // Print bundleNumber
            if (!bundle.getBundleNumber().equals("1")) {
                buf.append("X　");
                buf.append(bundle.getBundleNumber());
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

            // Print admMemo
            if (bundle.getAdminMemo() != null) {
                buf.append(bundle.getAdminMemo());
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }

            // Print bundleMemo
            if (bundle.getMemo() != null) {
                buf.append(bundle.getMemo());
                buf.append("<xhtml:br/>");
                buf.append(System.getProperty("line.separator"));
            }
        }

        return buf.toString();

    }

    String addQuote(String str) {
        StringBuilder buf = new StringBuilder();
        buf.append("\"");
        buf.append(str);
        buf.append("\"");
        return buf.toString();
    }

}
