YNU_JEUS/app_home/himed/webapps/emr/medirecweb/js/SMMMR02100.js

/**
 * @desc   : 화면 초기화
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fInitialize(){
    
    //등록정보 없으면 상단정보 가져온다.
    if (isPopup())
        var parampid = opener.javascript.getParameter("pid");
 
    if(parampid == "undefined" || parampid == "" ||  parampid == null){
         
         fGetTopInfo(); 
    }   
    
    zbcfGetCodeList(new Array("A0161"), new Array("/root/main/common"));
    copyNodeset("/root/main/code", "/root/main/common/A0161");
     

     // model.setValue("/root/main/ordinfo/pid","19993");
     // model.setValue("/root/main/ordinfo/orddd","20070101");
    var fpid = model.getValue("/root/main/ordinfo/pid");
     
    if( fpid != ""){
        // BMT 정보 조회
        fGetBMTInfo();
    }

      
    //기록일시 getCurrentDate()  getCurrentTime 
    model.makeValue("/root/main/info/newhsct/recdd"  ,getCurrentDate());
    model.makeValue("/root/main/info/newhsct/recdt"  ,getCurrentTime());
    model.refresh();
} 


/**
 * @desc   : 상단정보 구하기
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetTopInfo(){
    var paminfo;
    var paminfocnt = 0;
    var paminfoflag;
    var paminfotag;
    var paminfovalue;
    var sexinfo;
    var ageinfo;
        
    paminfo = getGlobalVariable("paminfo");
    if(paminfo.length > 0){
        paminfoflag = paminfo.split("▩");
        paminfotag = paminfoflag[0].split("▦");
        paminfovalue = paminfoflag[1].split("▦");

        while(paminfocnt < paminfotag.length){
            switch(paminfotag[paminfocnt])
            {
                case "pid":
                    model.setValue("/root/main/ordinfo/pid", paminfovalue[paminfocnt]);
                    break;
                case "orddd":
                    model.setValue("/root/main/ordinfo/orddd", paminfovalue[paminfocnt]);
                    break;
                case "indd":
                    model.setValue("/root/main/ordinfo/orddd", paminfovalue[paminfocnt]);
                    break;			
                case "orddeptcd":
                    model.setValue("/root/main/ordinfo/orddeptcd", paminfovalue[paminfocnt]);
                    break;
                case "orddrid":
                    model.setValue("/root/main/ordinfo/drid", paminfovalue[paminfocnt]);
                    break;
                case "ioflag":
                    model.setValue("/root/main/ordinfo/ordtype", paminfovalue[paminfocnt]);
                    break;
                case "hngnm":
                    model.setValue("/root/main/ordinfo/patnm", paminfovalue[paminfocnt]);
                    break;
                case "roomcd":
                    model.setValue("/root/main/ordinfo/inroomcd", paminfovalue[paminfocnt]);
                    break;
                case "cretno":
                    model.setValue("/root/main/ordinfo/cretno", paminfovalue[paminfocnt]);
                    break;
                case "age":
                    ageinfo = paminfovalue[paminfocnt];
                    break;
                case "sex":
                    sexinfo = paminfovalue[paminfocnt];
                    break;
                case "rrgstno1":
                    model.setValue("/root/main/ordinfo/rrgstno", paminfovalue[paminfocnt]);
                    break;
            } 
            paminfocnt++;
        }
        model.makeValue("/root/hidden/topinfo/exist", "Y");
    }

   /* if(sexinfo == "M"){
        model.setValue("/root/main/ordinfo/rrgstno", model.getValue("/root/main/rodinfo/rrgstno" + "-1XXXXXX"));
    } else if(sexinfo =="F") {
        model.setValue("/root/main/ordinfo/rrgstno", model.getValue("/root/main/rodinfo/rrgstno" + "-2XXXXXX"));
    }
    model.setValue("/root/main/ordinfo/sa", sexinfo + "/" + ageinfo);
    */
    model.setValue("/root/main/ordinfo/orddeptnm", getPatientInfo("orddept"));
    model.setValue("/root/main/ordinfo/drnm", getPatientInfo("apntdr"));
}

/**
 * @desc   : 이식일 입력
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetTrmpt(){

    model.removeNodeset("/root/main/list/mngtlist");
    grd_mngtlist.rebuild();

    var fDate = model.getValue("/root/main/info/newrcipnt/trnptdd");

    //alert("이식일"+fDate);
    for(var i = 12; i > 0 ; i--){
        grd_mngtlist.addRow(false);
    
        var fgetdd = fDate.toDate(); 
        var isDate = fgetdd.getAddDate(-i);
        
        model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/dayflag","-"+i);
        model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/hsctday",isDate.getDateFormat() );
        model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/hsctdw",isDate.getDayOfWeek("K"));
       // model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/mngt","내용");
    }
    for(var i = 0; i < 7 ; i++){
        grd_mngtlist.addRow(false);
    
        var fgetdd = fDate.toDate(); 
        var isDate = fgetdd.getAddDate(i);
        
        if( i == 0 )
        {
            model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/dayflag","D"+i); // D-day
        }else if( i == 1 )
        {
            model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/dayflag","D"+i); // D-day +1일
        }else 
        {
            model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/dayflag","+"+ (i-1));  //  +1일
        }
        model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/hsctday",isDate.getDateFormat() );
        model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/hsctdw",isDate.getDayOfWeek("K"));
        //model.makeValue("/root/main/list/mngtlist[" + grd_mngtlist.row + "]/mngt","내용");
    }
    
}

/**
 * @desc   : 이식일 입력
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSetTrmptcnt(){
    
        var j = 0;
        var count = 0;
        var dDay;
        var dayflag = false;
        for (var i= grd_mngtlist.fixedRows; i < grd_mngtlist.rows+1 ;i++ )
        { 

            dDay = model.getValue("/root/main/list/mngtlist[" + i + "]/dayflag");
            //alert("dDay"+dDay);
            if(dDay == "D" +0 ){
                
                dayflag = true;
                count = i;
                break;
            }
        }

//alert(j + dayflag);
//alert("count"+count);
        // 이식일 이전 날짜
        var iRow = 0;
        var fDate = model.getValue("/root/main/info/newhsct/trnptdd");
        if(dayflag == true){
            
        for(var i = count-1 ; i > 0 ; i--){
        
            var fgetdd = fDate.toDate(); 
            var isDate = fgetdd.getAddDate(-i); 

            iRow += 1;

            model.makeValue("/root/main/list/mngtlist[" + iRow + "]/dayflag","-"+i );
            model.makeValue("/root/main/list/mngtlist[" + iRow + "]/hsctday",isDate.getDateFormat() );
            model.makeValue("/root/main/list/mngtlist[" + iRow + "]/hsctdw" ,isDate.getDayOfWeek("K"));
              
                }
        
        // 이식일 이후 날짜
        var allRow = ( grd_mngtlist.rows)- count
         //   alert(allRow);
        var allCount = count+1;
        for(var j = 1;  j < allRow; j++ ) {

            var fgetdd = fDate.toDate(); 
            var isDate = fgetdd.getAddDate(j); 

            model.makeValue("/root/main/list/mngtlist[" + allCount + "]/dayflag","+"+j );
            model.makeValue("/root/main/list/mngtlist[" + allCount + "]/hsctday",isDate.getDateFormat() );
            model.makeValue("/root/main/list/mngtlist[" + allCount + "]/hsctdw" ,isDate.getDayOfWeek("K"));
             
          //  alert("="+allCount);
            allCount++;

            }

        }
          //  alert( grd_mngtlist.rows+2 ); 
        model.refresh();

}

/**
 * @desc   : 줄추가
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fAddMngtlist(){

       grd_mngtlist.insertRow(grd_mngtlist.row , "below");
       

}

/**
 * @desc   : 윗줄추가
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fUprowAdd(){
	var daydiff = model.getValue("/root/main/info/manage["+grd_mngtlist.row+"]/daydiff");
	var belowDay = model.getValue("/root/main/info/manage["+ (grd_mngtlist.row - 1) +"]/daydiff");
	var trnptdate = model.getValue("/root/main/info/manage["+grd_mngtlist.row+"]/trnptdd");
	daydiff = parseInt(daydiff) - 1;
	
	if(daydiff == belowDay){
		messageBox("중복된 일자는 입력", "E001");
		return; 
	}else if(trnptdate == ""){
		messageBox("이식일자 항목이 비어있어 추가", "E001");
		return; 
		}else {
		grd_mngtlist.insertRow(grd_mngtlist.row , "above");
		var cur_row = grd_mngtlist.row;
	  model.makeValue("/root/main/info/manage["+cur_row+"]/daydiff", daydiff);
	  model.makeValue("/root/main/info/manage["+cur_row+"]/trnptdd", getDateAddc(trnptdate, -1));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/dw", getDateAddc(trnptdate, -1).toDate().getDayOfWeek("K"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/pid", model.getValue("/root/hidden/newdnor/pid"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/trnptdg", model.getValue("/root/hidden/newdnor/trnptdg"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/instcd", model.getValue("/root/hidden/newdnor/instcd"));
	}     

}

/**
 * @desc   : 아랫줄추가
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDownrowAdd(){
	var daydiff = model.getValue("/root/main/info/manage["+grd_mngtlist.row+"]/daydiff");
	var belowDay = model.getValue("/root/main/info/manage["+ (grd_mngtlist.row + 1) +"]/daydiff");
	var trnptdate = model.getValue("/root/main/info/manage["+grd_mngtlist.row+"]/trnptdd");
	daydiff = parseInt(daydiff) + 1;
	if(daydiff == belowDay){
		messageBox("중복된 일자는 입력", "E001");
		return; 
	}else if(trnptdate == ""){
		messageBox("이식일자 항목이 비어있어 추가", "E001");
		return; 
		}else {
		grd_mngtlist.insertRow(grd_mngtlist.row , "below");
		var cur_row = grd_mngtlist.row;
	  model.makeValue("/root/main/info/manage["+cur_row+"]/daydiff", daydiff);
	  model.makeValue("/root/main/info/manage["+cur_row+"]/trnptdd", getDateAddc(trnptdate, 1));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/dw", getDateAddc(trnptdate, 1).toDate().getDayOfWeek("K"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/pid", model.getValue("/root/hidden/newdnor/pid"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/trnptdg", model.getValue("/root/hidden/newdnor/trnptdg"));
	  model.makeValue("/root/main/info/manage["+cur_row+"]/instcd", model.getValue("/root/hidden/newdnor/instcd"));
	}
       
}

/**
 * @desc   : 줄삭제
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fDelMngtlist(){

    var dDay = model.getValue("/root/main/info/manage["+grd_mngtlist.row+"]/daydiff");
     
    if(dDay == "0"){ 
    	messageBox("이식일 당일은 삭제", "E001");
        return; 
    }else {
    	grd_mngtlist.deleteRow(grd_mngtlist.row);
    }
    
}
 

/**
 * @desc   : BMT 저장
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fSaveBMT(){

   for(var i = grd_mngtlist.fixedRows; i < grd_mngtlist.rows; i++){
            
        var rowstat = grd_mngtlist.rowStatus(i);
        if(rowstat == "4" ){
        	grd_mngtlist.valueMatrix(i, 4) = "Y"; // 삭제여부;
        }else {
        	grd_mngtlist.rowStatus(i) = 1;
        }
    } 

    
    copyNodeset("/root/send/savedata", "/root/main/info/bmt");
    
    var grdData = grd_mngtlist.getUpdateData();
    
    model.makeValue("/root/send/grddata", grdData);
    
    if(submit("TXMMR02101")){
    	messageBox("", "I001");
    }
    
    //model.refresh();
} 

/**
 * @desc   : 서식부제목을 가져온다.
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fGetFormSubTitle()
{
    var list =    getGlobalVariable("emr_gsv_formsubtitlelist");
    
    if(list!=""){
        setCSVToNode("/root/init/formsubtitle",list,"formsubtitlelist");
    }else{
        submit("TRMMR04401");
        fFormSubTitlesetglobal();       //Global 변수에 저장
    }
    model.refresh();
}

/**
 * @desc   : 서식부제목을 전역변수로 설정
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */
function fFormSubTitlesetglobal()
{
    var reqnode = model.instances(0).selectNodes("/root/init/formsubtitle/formsubtitlelist");

    var csv = getNodeListCSV(reqnode);
    setGlobalVariable("emr_gsv_formsubtitlelist",csv);
}

/**
 * @desc   : BMT 스케줄 기록 정보 조회
 * @
 * @param  :
 * @return :
 * @---------------------------------------------------
 */

function fGetBMTInfo(){
	var sPamInfo = getGlobalVariable("paminfo");
	setCSVToNode("/root/main/paminfo",sPamInfo,"pamlist");			// 상단 환자정보내리기
	var sPID = model.getValue("/root/main/paminfo/pamlist/pid");
	model.setValue("/root/send/pid", model.getValue("/root/main/ordinfo/pid"));
	model.setValue("/root/send/orddd", model.getValue("/root/main/ordinfo/orddd"));

	var trnptdg = model.getValue("/root/temp/bmtpatientinfo/trnptdg"); // BMT 환자 팝업으로 환자 선택시
	if (trnptdg != ""){
		model.setValue("/root/send/pid", model.getValue("/root/temp/bmtpatientinfo/pid"));
		model.setValue("/root/send/trnptdg", trnptdg);
	}
	submit("TRMMR02101");
	copyNodeset("/root/main/info/bmt", "/root/hidden/newdnor");
	
	var dnorcnt = model.getValue("/root/main/info/bmt/dnorcnt");
	
	if(dnorcnt == "2"){
		group4.visible = true;
		group2.attribute("width")= "370";									
		group3.attribute("left")= "260";									
		tar_donor.attribute("left") = "375";
		tar_donor.attribute("width") = "465";
		
		group6.visible = true;
		group6.attribute("left") = "165";
		group5.attribute("left") = "260";
		group7.attribute("left") = "355";
		group8.attribute("left") = "450";
		group8.attribute("width") = "395";
		caption22.attribute("width") = "394";
		input30.attribute("width") = "394";
		input27.attribute("width") = "394";
		input28.attribute("width") = "394";
		input29.attribute("width") = "394";
		input33.attribute("width") = "394";
		input41.attribute("width") = "349";
		button4.attribute("left") = "375";		
		
	}else{
		group4.visible = false;
		group2.attribute("width")= "280";									
		group3.attribute("left")= "165";									
		tar_donor.attribute("left") = "285";
		tar_donor.attribute("width") = "555";
		
		group6.visible = false;
		group6.attribute("left") = "165";
		group5.attribute("left") = "165";
		group7.attribute("left") = "260";
		group8.attribute("left") = "355";
		group8.attribute("width") = "485";
		caption22.attribute("width") = "484";
		input30.attribute("width") = "484";
		input27.attribute("width") = "484";
		input28.attribute("width") = "484";
		input29.attribute("width") = "484";
		input33.attribute("width") = "484";
		input41.attribute("width") = "439";
		button4.attribute("left") = "465";
		
	}
	
	var PID = model.getValue("/root/hidden/newdnor/pid");
	var trnptDG = model.getValue("/root/hidden/newdnor/trnptdg");
	var instCD = model.getValue("/root/hidden/newdnor/instcd");
	if(PID != ""){
		model.setValue("/root/main/ordinfo/pid", PID);
		model.setValue("/root/main/ordinfo/orddd", model.getValue("/root/hidden/newdnor/indd"));
		model.setValue("/root/main/ordinfo/patnm", model.getValue("/root/hidden/newdnor/patnm"));
	}
	
	var rsltFlag = model.getValue(("/root/hidden/newdnor/rsltflag"));
	var remark2 = "♣ Gut decontamination & Prevention of CMV & fungal infection\n" 
	+ "\tW-CF 500 mg #2 PO and ITZS 0.5/kg #2 PO from conditioning to ANC > 1,000/㎣\n"
	+ "\t& then S-BTR 1T AM PO from engraftment to post BMT 6 months\n"
	+ "\tIVGV weekly infusion from D-7 to engraftment, & IV acyclovir from D-7 to D+28\n"
	+ "♣ Preparative regimen: TBI 400 cGy/day for 2 days (total 800 cGy),\n"
	+ "\t\t\t\t\tCyclophosphamide 60 mg/kg/day for 2days (total 120 mg/kg)\n"
	+ "♣ GVHD Prophylaxis with FK506 0.03 mg/kg CIV from D-1, 0.2 mg/kg # 2 PO (D+21, D+22) & 0.12 mg/kg # 2 PO (D+23~),\n"
	+ "  Methotrexate 5 mg/m ive D+1, +3, +6, +11\n"
	+ "♣ VOD prophylaxis with PGE1\n"
	+ "♣ LGT 350㎍ SC daily from D+7 to WBC>3,000/㎣";
	
	if(rsltFlag == "ast"){
		model.setValue("/root/main/info/bmt/remark2", remark2 );
		model.setValue("/root/main/info/bmt/ent", "NS" );
		model.setValue("/root/main/info/bmt/dent", "NS" );
		model.setValue("/root/main/info/bmt/echo", "EF=%" );
		model.setValue("/root/main/info/bmt/pft", "DLCO(%) FEV1(%) FEV1/FEV(%)" );
		model.setValue("/root/main/info/bmt/doppler", "NS" );
		var trnptdd = model.getValue("/root/main/info/bmt/trnptdd");
		model.removeNode("/root/main/info/manage");
		
		for(var i = 1; i <= 16; i++){
			model.makeValue("/root/main/info/manage["+i+"]/pid", PID);
			model.makeValue("/root/main/info/manage["+i+"]/trnptdg", trnptDG);
			model.makeValue("/root/main/info/manage["+i+"]/instcd", instCD);
			model.makeValue("/root/main/info/manage["+i+"]/management", "");
			
			if( i <= 12){
				model.makeValue("/root/main/info/manage["+i+"]/daydiff", i-11);
				model.makeValue("/root/main/info/manage["+i+"]/trnptdd", getDateAddc(trnptdd, i-11));
				model.makeValue("/root/main/info/manage["+i+"]/dw", getDateAddc(trnptdd, i-11).toDate().getDayOfWeek("K"));
				if(i == 4){
					model.makeValue("/root/main/info/manage["+i+"]/management", "Gut decontamination with W-CF &Prophylaxis of fungal infection with ITZS");
				}
				if(i == 11){
					model.makeValue("/root/main/info/manage["+i+"]/daydiff", "D0");
					grd_mngtlist.rowstyle(i, "data", "background-color") = '#FFCCCC';
				}
			}
		}
		
		model.makeValue("/root/main/info/manage[13]/daydiff", 3);
		model.makeValue("/root/main/info/manage[13]/trnptdd", getDateAddc(trnptdd, 3));
		model.makeValue("/root/main/info/manage[13]/dw", getDateAddc(trnptdd, 3).toDate().getDayOfWeek("K"));
		
		model.makeValue("/root/main/info/manage[14]/daydiff", 6);
		model.makeValue("/root/main/info/manage[14]/trnptdd", getDateAddc(trnptdd, 6));
		model.makeValue("/root/main/info/manage[14]/dw", getDateAddc(trnptdd, 6).toDate().getDayOfWeek("K"));
		
		model.makeValue("/root/main/info/manage[15]/daydiff", 7);
		model.makeValue("/root/main/info/manage[15]/trnptdd", getDateAddc(trnptdd, 7));
		model.makeValue("/root/main/info/manage[15]/dw", getDateAddc(trnptdd, 7).toDate().getDayOfWeek("K"));
		
		model.makeValue("/root/main/info/manage[16]/daydiff", 11);
		model.makeValue("/root/main/info/manage[16]/trnptdd", getDateAddc(trnptdd, 11));
		model.makeValue("/root/main/info/manage[16]/dw", getDateAddc(trnptdd, 11).toDate().getDayOfWeek("K"));
		
		fCalcDnorBsa();
		fCalcPatBsa();
		fCalcDnor2Bsa();
	} else if(rsltFlag != "ast"){
		
		copyNodeset("/root/main/info/manage", "/root/hidden/grid");		
	}
	
	model.refresh();
	
	for (var i= grd_mngtlist.fixedRows; i < grd_mngtlist.rows; i++ ){
			
			var dayFlag = model.getValue("/root/main/info/manage["+i+"]/daydiff");
						
			if( dayFlag == "D0"){
				grd_mngtlist.rowstyle(i, "data", "background-color") = '#FFCCCC';
				var d0 = model.getValue("/root/main/info/manage["+i+"]/trnptdd");
			}
		}
	model.makeValue("/root/main/info/bmt/d0", d0);	
	model.refresh();
}

function getDateAddc(inputday,addend){ 
	var backDate ="";
	var rt = 0;
	var yyyy = inputday.substring(0,4) +"";
	var mm   = inputday.substring(4,6) +"";
	var dd   = inputday.substring(6,8) +"";
	var startDate = new Date(yyyy,(eval(mm)-1),dd); 
	startDate.setTime(startDate.getTime()+(86400000*addend)); 
	NowYear = startDate.getYear();// 년 
	NowMonth = startDate.getMonth()+1;// 월 
	NowDay = startDate.getDate(); // 일 
	backDate += NowYear ; //년도
	if (NowMonth < 10 ) backDate += "0" + NowMonth ;
	else backDate += (startDate.getMonth() + 1); 
	if (NowDay < 10 ) backDate += "0" + NowDay ;
	else backDate += (startDate.getDate()); 	
	
	return backDate ;
}

function fSetDate(){
	var trnDD = model.getValue("/root/main/info/bmt/d0");
	for (var i= grd_mngtlist.fixedRows; i < grd_mngtlist.rows; i++ ){
			
			var dayFlag = model.getValue("/root/main/info/manage["+i+"]/daydiff");
						
			if( dayFlag != "D0"){
				model.makeValue("/root/main/info/manage["+i+"]/trnptdd", getDateAddc(trnDD, dayFlag));
				model.makeValue("/root/main/info/manage["+i+"]/dw", getDateAddc(trnDD, dayFlag).toDate().getDayOfWeek("K"));
			}
			else
			{
				model.makeValue("/root/main/info/manage["+i+"]/trnptdd", trnDD);
				model.makeValue("/root/main/info/manage["+i+"]/dw", trnDD.toDate().getDayOfWeek("K"));
			}
		}
}

function fCalcDnorBsa(){
	
	var ht = model.getValue("/root/main/info/bmt/dnorbdht");
	var wt = model.getValue("/root/main/info/bmt/dnorbdwt");
	var sex = model.getValue("/root/main/info/bmt/dnorsa").substr(0,1);
	
	if(ht != ht || wt != wt){
		
	}else if((!isNaN(ht) || !isNaN(wt)) && (ht!=''||wt!='')){
		if(sex == "M"){
			model.setValue("/root/main/info/bmt/dnoribw", parseFloat(ht*ht*22/10000).toFixed(2));
		}
		if(sex == "F"){
			model.setValue("/root/main/info/bmt/dnoribw", parseFloat(ht*ht*21/10000).toFixed(2));
		}		
		
		model.setValue("/root/main/info/bmt/dnorbsa", parseFloat(Math.sqrt((ht*wt/3600))).toFixed(2));
		var dibw = model.getValue("/root/main/info/bmt/dnoribw");
		model.setValue("/root/main/info/bmt/dnorabw", parseFloat(parseFloat(dibw)+0.4*(parseFloat(wt)-parseFloat(dibw))).toFixed(2));
	}
	model.refresh();
}

function fCalcPatBsa(){
	
	var ht = model.getValue("/root/main/info/bmt/patbdht");
	var wt = model.getValue("/root/main/info/bmt/patbdwt");
	var sex = model.getValue("/root/main/info/bmt/patsa").substr(0,1);
	
	if(ht != ht || wt != wt){
		
	}else if((!isNaN(ht) || !isNaN(wt)) && (ht!=''||wt!='')){
		if(sex == "M"){
			model.setValue("/root/main/info/bmt/patibw", parseFloat(ht*ht*22/10000).toFixed(2));
		}
		if(sex == "F"){
			model.setValue("/root/main/info/bmt/patibw", parseFloat(ht*ht*21/10000).toFixed(2));
		}		
		
		model.setValue("/root/main/info/bmt/patbsa", parseFloat(Math.sqrt((ht*wt/3600))).toFixed(2));
		var pibw = model.getValue("/root/main/info/bmt/patibw");
		model.setValue("/root/main/info/bmt/patabw", parseFloat(parseFloat(pibw)+0.4*(parseFloat(wt)-parseFloat(pibw))).toFixed(2));
	}
	model.refresh();
}

function fCalcDnor2Bsa(){
	
	var ht = model.getValue("/root/main/info/bmt/dnorbdht2");
	var wt = model.getValue("/root/main/info/bmt/dnorbdwt2");
	var sex = model.getValue("/root/main/info/bmt/dnorsa2").substr(0,1);
	
	if(ht != ht || wt != wt){
		
	}else if((!isNaN(ht) || !isNaN(wt)) && (ht!=''||wt!='')){
		if(sex == "M"){
			model.setValue("/root/main/info/bmt/dnoribw2", parseFloat(ht*ht*22/10000).toFixed(2));
		}
		if(sex == "F"){
			model.setValue("/root/main/info/bmt/dnoribw2", parseFloat(ht*ht*21/10000).toFixed(2));
		}		
		
		model.setValue("/root/main/info/bmt/dnorbsa2", parseFloat(Math.sqrt((ht*wt/3600))).toFixed(2));
		var d2ibw = model.getValue("/root/main/info/bmt/dnoribw2");
		model.setValue("/root/main/info/bmt/dnorabw2", parseFloat(parseFloat(d2ibw)+0.4*(parseFloat(wt)-parseFloat(d2ibw))).toFixed(2));
	}
	model.refresh();
}