/*
  
      ÀÀ±Þ½Ç CPCR ±â·ÏÁö (SMMNE03500.xfm - JScript )

      - Version :
          1)  : Ver.1.00.01
 */

var fCellCheck = "";
var fCaption = "";
var fBottomDay = "";
var fBottomTime = "";
var fBottomMinutes = "";
var fFstCaption = "";
var fScndCaption = "";
var fChartStat = "F";


/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : CPCR È­¸é ÃʱâÈ­(ȯÀÚ Á¤º¸ ¼¼ÆÃ)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fInitialize(){
    var node = getGlobalVariable("paminfo");
    setCSVToNode("/root/main/paminfo", node);
    btn_Schrt.visible = false;
    btn_Csum.visible = false;
    
    //ÃÖÃÊcaption Á¤º¸ ÀúÀå
    fFstCaption = grd_cpcr.caption;    

    model.setValue("/root/main/cond/pid",    model.getValue("/root/main/paminfo/list/pid")   );
    model.setValue("/root/main/cond/indd",   model.getValue("/root/main/paminfo/list/indd")  );
    model.setValue("/root/main/cond/cretno", model.getValue("/root/main/paminfo/list/cretno"));
    model.setValue("/root/main/cond/deptcd", getUserInfo("dutplcecd")    );
    model.setValue("/root/main/cond/instcd", getUserInfo("dutplceinstcd"));
                    
    var patinfo = "µî·Ï¹øÈ£: "  + model.getValue("/root/main/paminfo/list/pid")   + ", "
                + "ȯÀÚ¸í: "    + model.getValue("/root/main/paminfo/list/hngnm") + ", "
                + "¼ºº°/³ªÀÌ: " + model.getValue("/root/main/paminfo/list/sex")   + "/"  
                                + model.getValue("/root/main/paminfo/list/age")   + ", "
                + "º´½Ç: "      + model.getValue("/root/main/paminfo/list/roomcd");

    model.setValue("/root/main/patinfo", patinfo);

    if(model.getValue("/root/main/cond/pid") == "" ){
        fMakeChart();
        messageBox("¼±ÅÃµÈ È¯ÀÚ°¡ ¾ø½À´Ï´Ù.", "E");
        return;
    }else {    
        fCpcrInit();
    }
}
                   
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ȯÀÚÀÇ CPCR ±â·Ï Á¶È¸
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCpcrInit(){
    fCpcCondNodeSet();
    submit("TRMNE03501");
    fMakeDate("C");
    
    if(model.getValue("/root/main/srchinfo/srchlist") == "-" ){
        submit("TRMNE03502");
    }
                                                                                                 
    fMakeChart();
              
    var iRow =  grd_cpcr.rows;
                                  
    for(i=0 ; i<iRow ; i++){
        for(j=0 ; j < 31 ; j++){
            grd_cpcr.cellStyle("background-color", i+2, j+2, i+2, j+2) = "#ffffff";
            if( 5 < j && j <= 10 || 15< j && j <= 20 || 25< j && j <= 30 ){
                grd_cpcr.cellStyle("background-color", i+2, j+2, i+2, j+2) = "#ffff99";
            }
        }
        grd_cpcr.cellStyle("background-color", i+2, 33, i+2, 38) = "#ffffff";
        if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/recitemflag") == "M" ){
            grd_cpcr.cellStyle("background-color", i+2, 33, i+2, 38) = "#ccecff";
        }
    }
    model.refresh();
}
                    
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ºÎ¼­º° CPCR±â·Ï ¸ñ·Ï Á¶È¸ ¹× È­¸é ¼ÂÆÃ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCpcCondNodeSet(){
    var condData     = "";
    var condHearder = "instcd¢Ëindd¢Ëcretno¢Ëdeptcd¢Ëpid¢Ëstartdt¢Ì" ;
    condData += model.getValue("/root/main/cond/instcd") + "¢Ë"
             +  model.getValue("/root/main/cond/indd") + "¢Ë"
             +  model.getValue("/root/main/cond/cretno") + "¢Ë"
             +  model.getValue("/root/main/cond/deptcd") + "¢Ë"
             +  model.getValue("/root/main/cond/pid") + "¢Ë"
             +  model.getValue("/root/main/srchinfo/srchlist") + "¢Ì";
    model.makeValue("/root/send/cond", condHearder + condData);
}
                    
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Vital Sign íƮ ±×¸®±â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */                     
function fMakeChart(){
    
    var hrcheck = model.getValue("/root/main/chrtsetup/hryn");
    var rrcheck = model.getValue("/root/main/chrtsetup/rryn");
    var btcheck = model.getValue("/root/main/chrtsetup/btyn");
    
    TChart1.RemoveAllSeries();
    TChart1.Axis.RemoveAllCustom();
    //margin °ª Á¤Çϱâ
    TChart1.Panel.MarginTop = 0;
    TChart1.Panel.MarginLeft = 11;
    TChart1.Panel.MarginRight = 0;
    TChart1.Panel.MarginBottom = -5;
    TChart1.Axis.Bottom.TickLength = 1027;

    //½Ã°£ »ý¼º
    //var stDate = new Date(2005, 2, 3, 0, 0);
    //var endDate = new Date(2005, 2, 10, 0, 0);
    //alert(Date.UTC(2005, 2, 3));
    
    //ÇÏ´ÜÃà Ä­ ¼ö Á¤Çϱâ¿Í ´«±Ý ¾ø¾Ö±â
    
    //TChart1.Axis.Bottom.SetMinMax (0, MinTimeConst * 60 * 24 * 7 - 1);     //7ÀÏ µ¿¾È ÁÂÇ¥¸¦ Ç¥Çö
    TChart1.Axis.Bottom.SetMinMax (0, 30);     //7ÀÏ µ¿¾È ÁÂÇ¥¸¦ Ç¥Çö (ÇÏ·ç´Â DivPerDay¸¸Å­ ³ª´²Áü)
    TChart1.Axis.Bottom.Increment = 1;
    TChart1.Axis.Bottom.MinorTickCount = 1;
    TChart1.Axis.Bottom.AxisPen.Color = 0x000000;
    //TChart1.Axis.Bottom.GridPen.Color = 0x0000ff;        //Ãà Á¡¼±ÀÇ »ö ¼³Á¤
    TChart1.Axis.Bottom.Labels.Font.Color = 0xffffff;        //ÇÏ´Ü Ãà ´«±Ý ¸íĪ »öÀ» ÇϾá»öÀ¸·Î ÇÏ¿© º¸ÀÌÁö ¾Ê°Ô ó¸®
    
    TChart1.Header.Visible = false;
    TChart1.Header.Text(0)="Vital Sign";                //Çì´õÁ¦¸ñ³Ö±â
    TChart1.Header.Font.Bold = true;                    //Çì´õ ±½°Ô
    TChart1.Header.Font.Size = 10;                      //Çì´õ »çÀÌÁî
    TChart1.Aspect.View3D = 0;                          //2d ·Î Ç¥ÇöÇϱâ
    //TChart1.Aspect.Chart3DPercent = 2;
    
    TChart1.Zoom.enable     = false;                     // zoom »ç¿ëÇÏÁö ¾Ê±â
    TChart1.Scroll.Enable   = true;                       // scroll »ç¿ëÇÏÁö ¾Ê±â
    TChart1.Legend.Visible  = false;                     // ±×·¡ÇÁ ÂüÁ¶ ¹Ú½º ¶ç¿ìÁö ¾Ê±â
    TChart1.Environment.MouseWheelScroll = true;
    TChart1.Panel.Gradient.Visible = true;               // Æä³Î¿¡ ±×¶óµð¾ðÆ® Àû¿ë
    TChart1.Panel.Gradient.StartColor = 0xffffff;
    TChart1.Panel.Gradient.EndColor = 0xffffff;

    var cus_axis1 = TChart1.Axis.AddCustom(false);    // HR  
    TChart1.Axis.Custom(0).AxisPen.Color    = 0x0000ff;
    TChart1.Axis.Custom(0).Title.Caption    = "HR/BP"
    TChart1.Axis.Custom(0).Title.Font.Size  = 8;
    TChart1.Axis.Custom(0).Title.Font.Bold  = true;
    TChart1.Axis.Custom(0).Title.Angle      = 90;
    TChart1.Axis.Custom(0).PositionPercent  = 0;
    //TChart1.Axis.Custom(0).StartPosition    = 0;
    //TChart1.Axis.Custom(0).EndPosition      = 100;
    TChart1.Axis.Custom(0).Automatic        = false;
    TChart1.Axis.Custom(0).Maximum          = 210;
    TChart1.Axis.Custom(0).Minimum          = 10;
    TChart1.Axis.Custom(0).Increment        = 20;
         
    var cus_axis2 = TChart1.Axis.AddCustom(false);    // BT
    TChart1.Axis.Custom(1).AxisPen.Color    = 0x00ff00;
    TChart1.Axis.Custom(1).Title.Caption    = "BT";
    TChart1.Axis.Custom(1).Title.Font.Size  = 8;
    TChart1.Axis.Custom(1).Title.Font.Bold  = true;
    TChart1.Axis.Custom(1).Title.Angle      = 90;
    TChart1.Axis.Custom(1).PositionPercent  = -4.5;
    TChart1.Axis.Custom(1).Automatic        =  false;
    TChart1.Axis.Custom(1).Maximum          = 43;
    TChart1.Axis.Custom(1).Minimum          = 33;
    TChart1.Axis.Custom(1).Increment        = 1;
         
    var cus_axis3 = TChart1.Axis.AddCustom(false);    // RR
    TChart1.Axis.Custom(2).AxisPen.Color    = 0xff0000;
    TChart1.Axis.Custom(2).Title.Caption    = "RR";
    TChart1.Axis.Custom(2).Title.Font.Size  = 8;
    TChart1.Axis.Custom(2).Title.Font.Bold  = true;
    TChart1.Axis.Custom(2).Title.Angle      = 90;
    TChart1.Axis.Custom(2).PositionPercent  = -8.5;
    TChart1.Axis.Custom(2).Automatic        =  false;
    TChart1.Axis.Custom(2).Maximum          = 110;
    TChart1.Axis.Custom(2).Minimum          = 10;
    TChart1.Axis.Custom(2).Increment        = 10;
    
    TChart1.AddSeries(11);                             // Ç÷¾Ð
    TChart1.AddSeries(11);                             // abp
    TChart1.AddSeries(0);                              // ¸Æ¹Ú                    
    TChart1.AddSeries(0);                              // ü¿Â
    TChart1.AddSeries(0);                              // È£Èí
    TChart1.AddSeries(0);                              // 38¼±
    TChart1.Series(0).VerticalAxisCustom = cus_axis1;
    TChart1.Series(1).VerticalAxisCustom = cus_axis1;
    TChart1.Series(2).VerticalAxisCustom = cus_axis1;
    TChart1.Series(3).VerticalAxisCustom = cus_axis2;
    TChart1.Series(4).VerticalAxisCustom = cus_axis3;
    TChart1.Series(5).VerticalAxisCustom = cus_axis2;
 
    //¶óÀÎÀÇ ±½±â¸¦ Á¤ÇØÁØ´Ù.
    TChart1.Series(0).asCandle.CandleStyle = 2;
    TChart1.Series(0).asCandle.CandleWidth = 4;
    TChart1.Series(1).asCandle.CandleStyle = 2;
    TChart1.Series(1).asCandle.CandleWidth = 1;
    TChart1.Series(2).asLine.LinePen.Width = 1;
    TChart1.Series(3).asLine.LinePen.Width = 2;
    TChart1.Series(4).asLine.LinePen.Width = 1;
    TChart1.Series(5).asLine.LinePen.Width = 2;
    TChart1.Series(0).Color = 0x000000;                    //black
    TChart1.Series(1).Color = 0x000000;                    //black
    TChart1.Series(2).Color = 0x0000ff;                    //red        HR/BP
    TChart1.Series(3).Color = 0x00ff00;                    //green      BT
    TChart1.Series(4).Color = 0xff0000;                    //blue       RR
    TChart1.Series(5).Color = 0x656565;                    //38¼±

    // error bar test
    //Series(0).AsErrorBar.AddErrorBar (1234, 5678, 23, "MyErrorBar", model.rgb(0,255,255));
     
    TChart1.Series(2).asLine.Pointer.Visible = true;
    TChart1.Series(2).asLine.Pointer.Style = 1;
    TChart1.Series(2).asLine.Pointer.VerticalSize = 2;
    TChart1.Series(2).asLine.Pointer.HorizontalSize = 2;
    
    TChart1.Series(3).asLine.Pointer.Visible = true;
    TChart1.Series(3).asLine.Pointer.Style = 1;
    TChart1.Series(3).asLine.Pointer.VerticalSize = 2;
    TChart1.Series(3).asLine.Pointer.HorizontalSize = 2;
    
    TChart1.Series(4).asLine.Pointer.Visible = true;
    TChart1.Series(4).asLine.Pointer.Style = 1;
    TChart1.Series(4).asLine.Pointer.VerticalSize = 2;
    TChart1.Series(4).asLine.Pointer.HorizontalSize = 2;
    
    //±âÁؼ± ±×¸®±â
    TChart1.Series(5).AddXY (-5, 38  , "", TChart1.Series(5).Color );
    TChart1.Series(5).AddXY (50, 38 , "", TChart1.Series(5).Color );
    
    //depth Á¤Çϱâ
    TChart1.Series(1).Depth = 1;
    TChart1.Series(2).Depth = 2;
    TChart1.Series(3).Depth = 3;
    TChart1.Series(4).Depth = 4;
    TChart1.Series(5).Depth = 5;
         
    if (hrcheck == "Y"){
         for(i =0 ; i <31 ; i ++ ){
             if(model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) != "?"
             && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) != "?"){
                    TChart1.Series(0).asCandle.AddCandle ( i, model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ), 0, 0, model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ));
             } else if (model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) != "?"
                 && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) == "" && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) == "?"){
                 TChart1.Series(1).asCandle.AddCandle ( i, model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ), 0, 0, model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ));
             } else if (model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) == "" && model.getValue("/root/main/recinfo/reclist/grid[2]/mnt" + i + "" ) == "?"
                 && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ) != "?"){
                 TChart1.Series(1).asCandle.AddCandle ( i, model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ), 0, 0, model.getValue("/root/main/recinfo/reclist/grid[3]/mnt" + i + "" ));
             }
             
             if(model.getValue("/root/main/recinfo/reclist/grid[4]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[4]/mnt" + i + "" ) != "?"){
                  TChart1.Series(2).AddXY (i, model.getValue("/root/main/recinfo/reclist/grid[4]/mnt" + i + "" ), "", TChart1.Series(2).Color);
             }
         }
    }
    if (btcheck == "Y"){
        for(i =0 ; i <31 ; i ++ ){
            if(model.getValue("/root/main/recinfo/reclist/grid[6]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[6]/mnt" + i + "" ) != "?" ){
                TChart1.Series(3).AddXY (i, model.getValue("/root/main/recinfo/reclist/grid[6]/mnt" + i + "" ), "", TChart1.Series(3).Color);
            }
        }
    }
    if (rrcheck == "Y"){
        for(i =0 ; i <31 ; i ++ ){
            if(model.getValue("/root/main/recinfo/reclist/grid[5]/mnt" + i + "" ) != "" && model.getValue("/root/main/recinfo/reclist/grid[5]/mnt" + i + "" ) != "?"){
                TChart1.Series(4).AddXY (i, model.getValue("/root/main/recinfo/reclist/grid[5]/mnt" + i + "" ), "", TChart1.Series(4).Color);
            }
        }
    }    
 }
        
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±â·Ï ÀϽà »ý¼º
 * @param  :
 * @return :
 * @---------------------------------------------------
 */         
function fMakeDate(pFlag){
    if(pFlag == "C"){
        if(model.getValue("/root/main/srchinfo/srchlist") == "-"){
            //input1.disabled = false;
            model.copyNode("/root/main/recinfo/cprinfo", "/root/item");
            var BaseDate    = getCurrentDate();
            var BaseTime  = getCurrentTime();
            
            model.setValue("/root/main/recinfo/cprinfo/cpr/startdd", BaseDate);
            model.setValue("/root/main/recinfo/cprinfo/cpr/starttm", BaseTime.substr(0,4) );
            
        } else {
            //input1.disabled = true;
            var BaseDate  = model.getValue("/root/main/recinfo/cprinfo/cpr/startdd");
            var BaseTime = model.getValue("/root/main/recinfo/cprinfo/cpr/starttm");
        }
    }else {
        var BaseDate  = model.getValue("/root/main/recinfo/cprinfo/cpr/startdd");
        var BaseTime = model.getValue("/root/main/recinfo/cprinfo/cpr/starttm");
    }
                         
    var nowDate = (BaseDate + BaseTime).toDate("YYYYMMDDhhmmss");
    var fDate = (BaseDate + BaseTime).toDate("YYYYMMDDhhmmss");
    var afterDate = fDate.getAddDate(31, "m");
    var nowDay = nowDate.getDateFormat("YYYY³â MM¿ù DDÀÏ");
    var afterDay = afterDate.getDateFormat("YYYY³â MM¿ù DDÀÏ");
    var nowTime = nowDate.getHours();
    var afterTime = afterDate.getHours();
    var nowMinutes = nowDate.getMinutes();
    var afterMinutes = afterDate.getMinutes();
    var captionDay = "³¯Â¥";
    var captionTime = "½Ã°£";
    var captionMinutes = "ºÐ";
    
    var StndDay = "";
    var StandTime = "";
    var StandMinutes = "";
    var StandMinutes1 = "";
    
    fBottomDay = "";
    fBottomTime = "";
    fBottomMinutes = "";
       
    if(nowTime != afterTime){
        for(i = nowMinutes+1 ; i < 60 ; i ++ ){
            StndDay += "^" + nowDay ;
            StandTime += "^" + nowTime + "½Ã" ;
            StandMinutes += "^" + i + "ºÐ";
            StandMinutes1 += "^" + i;
        }
        for(i= 0 ; i < afterMinutes ; i++ ) {
            StndDay += "^" + afterDay;
            StandTime += "^" + afterTime + "½Ã";
            
            if( i < 10 ) {
                StandMinutes += "^" +"0" + i + "ºÐ";
                StandMinutes1 += "^" +"0" + i;
            } else {
                StandMinutes += "^" + i + "ºÐ";
                StandMinutes1 += "^" + i;
            }
        }
    } else {
        for( i = nowMinutes+1 ; i <afterMinutes ; i ++){
            StndDay += "^" + nowDay;
            StandTime += "^" + nowTime + "½Ã";

            if( i < 10 ) {
                StandMinutes += "^" +"0" + i + "ºÐ";
                StandMinutes1 += "^" +"0" + i;
            } else {
                StandMinutes += "^" + i + "ºÐ";
                StandMinutes1 += "^" + i;
            }
        }
    }
        
    var caption = captionDay + StndDay + "|" 
                + captionTime + StandTime + "|" 
                + captionMinutes + StandMinutes;
    
    fBottomDay = captionDay+"^"+captionDay +"^"+ nowDay;
    fBottomTime = captionTime+"^"+captionTime +"^"+ nowTime + "½Ã";
    fBottomMinutes = captionMinutes+"^"+captionMinutes +"^"+ nowMinutes + "ºÐ";
    
    var tmpCaption = fFstCaption.split("|");
    
    fScndCaption = "";
    fScndCaption = tmpCaption[0] + "|" 
                 + fBottomDay + StndDay + "^^^^^^|" 
                 + fBottomTime + StandTime + "^^^^^^|" 
                 + fBottomMinutes + StandMinutes + "|" 
                 + tmpCaption[1] + "|"
                 + tmpCaption[2];
    
//    fCaption = "";
//    fCaption = captionDay + "|" + captionTime + "|" + captionMinutes ;       
               
    grd_chrt.caption = caption;
    grd_chrt.refresh();
    
    if(fChartStat == "S"){
    	fMakeBottomDate(fChartStat);
    }
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Â÷Æ® ´Ý±â/º¸±â ¹öÆ° ¼±Åýà ±×¸®µå Á¤º¸ º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */         
function fMakeBottomDate(plag){

    if(plag == "S"){
        grd_cpcr.caption = fScndCaption;
        grd_cpcr.refresh();
    }else{
        grd_cpcr.caption = fFstCaption;
        grd_cpcr.refresh();
    }
    fChartStat = plag;
}

/**
 * @group  :
 * @ver    : 2008.07.21
 * @by     : ¼º¹Ì¿¬         
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Ŭ¸¯½Ã 'V'üũ Ç¥½Ã
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fClickChkData(){
	var recitemflag = model.getValue("/root/main/recinfo/reclist/grid[" + (grd_cpcr.row-2) + "]/recitemflag");
	if(recitemflag == "P" || recitemflag == "T"){			//PROCEDURE, °Ë»ç
		if(grd_cpcr.valueMatrix(grd_cpcr.row, grd_cpcr.col) ==  "V"){
			grd_cpcr.valueMatrix(grd_cpcr.row, grd_cpcr.col) =  "";		
		}else{
			grd_cpcr.valueMatrix(grd_cpcr.row, grd_cpcr.col) =  "V";		
		}	
	}	
}
 
 
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ¹®ÀÚÀÔ·Â Á¦ÇÑ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function isNumber(str) {
    str += ''; // ¹®ÀÚ¿­·Î º¯È¯
    str = str.replace(/^\s*|\s*$/g, ''); // ÁÂ¿ì °ø¹é Á¦°Å
    if (str == '' || isNaN(str)) return false;
    return true;
}                    

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : '0' ÀÔ·Â Á¦ÇÑ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fZeroLeft(str){
    var i, j = 0;
    var cmacheck = "N";
   
    for (i = 0; i < str.length; i++) {
        if (str.charAt(i) == '.') cmacheck = "Y";
    }
   
    if(cmacheck == "N"){
        for (i = 0; i < str.length; i++) {
           if (str.charAt(i) == '0') j = j + 1;
           else break;
        }
        return str.substr(j, str.length - j + 1);
    }else{
        return str;
    }
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Áغñ¼ö·® ÃʱâÈ­
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCellInitSetting(sRow, sCol){
    if(sCol != grd_cpcr.colRef("prepqty")-2){
        model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+sCol+"" , "");
    } else {
        model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty" , "");
    }    
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 *          - 2008.07.21 ¼öÁ¤ : ¼º¹Ì¿¬         
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×¸®µå µ¥ÀÌÅÍ ¼¼ÆÃ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCpcrDataSetting(){
                  
    var sCol = grd_cpcr.col - 2;			//ù¹ø° µ¥ÀÌÅÍ ÀÖ´Â °ªÀÇ colÀÌ 2À̹ǷÎ(sCol = 35 : Áغñ¼ö·®)
    var sRow = grd_cpcr.row - 2;
    
    if(sRow == 0 ){
        sRow = 1;
    }                    

    fCellCheck = "";
    sSum = 0;
    tSum = 0;
    mSum = 0;

    if(sCol != grd_cpcr.colRef("prepqty")-2){
        var iptData = model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+sCol+"");    
    } else {
        var iptData = model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty");
    }
    
    //ÀÔ·Â µ¥ÀÌÅÍ °ø¹é°ª Á¦°Å
    iptData = iptData.setReplaceWord(" ", "");
    
    //ÀÔ·Â µ¥ÀÌÅÍ ¾ÕÂÊ 0Á¦°Å
    //if(sRow != 2 && sRow != 3 && sRow != 4 && sRow != 5 && sRow != 6 && sRow != 7 && sRow != 8){
    //    iptData = fZeroLeft(iptData);
    //}
    
    if(sCol != grd_cpcr.colRef("prepqty")-2){
        model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+sCol+"" , iptData);
    } else {
        model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty" , iptData);        
    }
                        
    //¹®ÀÚ ÀÔ·Â Á¦ÇÑ
    var medCheck = model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/recitemflag") ;

    if(sRow == 2 || sRow == 3 || sRow == 4 || sRow == 5 || sRow == 7 || sRow == 8  ){		//sRow == 2 : SBP
        if(isNumber(iptData) == false && iptData != "" && iptData != "?"){
            fCellInitSetting(sRow, sCol);
            messageBox("¼ýÀÚÇü µ¥ÀÌÅ͸¸ ÀÔ·Â °¡´ÉÇÕ´Ï´Ù.", "E");
            return;
        }
    }else if(sRow == 6) {		// BT
        if(isNumber(iptData) == false && iptData != "" && iptData != "?"){
            fCellInitSetting(sRow, sCol);
            messageBox("¼ýÀÚÇü µ¥ÀÌÅ͸¸ ÀÔ·Â °¡´ÉÇÕ´Ï´Ù.", "E");
            return;
        }else if(isNumber(iptData) == true && iptData != "" && iptData != "?" && iptData == "0" ){
            fCellInitSetting(sRow, sCol);
            messageBox("0À» ÀÔ·Â ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
            return;
        }
    }else if ( medCheck == "M" ){	// ó¹æ
        if(isNumber(iptData) == false && iptData != "" ){
            fCellInitSetting(sRow, sCol);
            messageBox("¼ýÀÚÇü µ¥ÀÌÅ͸¸ ÀÔ·Â °¡´ÉÇÕ´Ï´Ù.", "E");
            return;
        }else if(isNumber(iptData) == true && iptData != "" && iptData == "0" ){
            fCellInitSetting(sRow, sCol);
            messageBox("0À» ÀÔ·Â ÇÒ ¼ö ¾ø½À´Ï´Ù.", "E");
            return;
        }
    }else{
        if( iptData == "?" ){
            fCellInitSetting(sRow, sCol);
            messageBox("ÀÔ·Â ÇÒ ¼ö ¾ø´Â µ¥ÀÌÅÍ ÀÔ´Ï´Ù.", "E");
            return;
        }
    }
                    
    cRow = grd_cpcr.row;
    cCol = grd_cpcr.col;
    
    if(cRow != grd_cpcr.rows -1 ){
        grd_cpcr.row = cRow+1;
        grd_cpcr.col = cCol;
    }else{
        grd_cpcr.row= 3;
        grd_cpcr.col= cCol +1 ;
    }
                                            
    //ó¹æ ÀÎÁõ µ¥ÀÌÅÍ »ý¼º·ÎÁ÷
    if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/recitemflag") == "M"){
        //ó¹æº° ÇÕ°è ±¸Çϱâ
        for(i = 0 ; i <= 30 ; i++){
            if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+ i +"" ) != ""){
                 //sSum = parseInt(sSum) + parseInt(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+ i +"" ));
                 sSum = Number(sSum) + Number(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+ i +"" ));
            }
        }
        
        //¿ë·®À¸·Î ÀԷ½à                            
        if(model.getValue("/root/main/recinfo/cprinfo/cpr/drugunit") == "2"){
           
            if(sCol != grd_cpcr.colRef("prepqty")-2){
                if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsvol") == 0  || model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsvol") == "0.0"){
                    for(i =0 ; i <= 30 ; i++){
                        model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/mnt"+ i +"" ,"");
                    }
                    messageBox("¿ë·®´ÜÀ§·Î ÀÔ·ÂÇÒ ¼ö ¾ø½À´Ï´Ù.","E");
                    return;
                } else {
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/vol", sSum);                
                    dSum = Number(sSum) / Number(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsvol"));
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/qty", dSum);
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/volunit", model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsunit"));
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/qtyunit", model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/stndunit"));
                }
            }
            
            /*
            if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty" ) != ""){
                tSum = dSum + parseInt(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty"));    
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", tSum);
            } else {
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", dSum);
            }
            */
            
        //¼ö·®À¸·Î ÀԷ½Ã
        } else {
            
            if(sCol != grd_cpcr.colRef("prepqty")-2){
                if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsvol") != 0  ){
                    mSum = Number(sSum) * Number(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsvol"));
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/vol", mSum);
                    model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/volunit", model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/cntsunit"));
                    
                }
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/qty", sSum);
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/qtyunit", model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/stndunit"));
            }
            
            /*
            if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty" ) != ""){
                tSum = sSum + parseInt(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty"));    
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", tSum);
            } else {
                model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", sSum);
            }
            */
        }
        
        //ÃÑ°è °è»ê(SUMÀÇ ¼ö·® + Áغñ¼ö·®)
        var sumqty = model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/qty")
        var prepqty = model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty");
        //var totqty = parseInt(sumqty) + parseInt(prepqty);
        var totqty = Number(sumqty) + Number(prepqty);
        if(model.getValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty" ) != ""){
        	model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", totqty);
        }else{
        	model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/sumqty", sumqty);
        }
          
           
    }else{
        if(sCol == grd_cpcr.colRef("prepqty")-2){
            model.setValue("/root/main/recinfo/reclist/grid["+sRow+"]/prepqty", "");
        }
    }
    
    model.refresh();
    
    if( sRow == 2 || sRow == 3 || sRow == 4 || sRow == 5 || sRow == 6 ){
        if( sCol != grd_cpcr.colRef("prepqty")-2 && iptData != "?" ){
            fMakeChart();
        }
    }
}
    
/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×¸®µå °ª º¯°æ (Åõ¾à´ÜÀ§º¯°æ : ¼ö·®/¿ë·®)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */     
function fCellValueChange(){
	var ChagData = 0;
	
    if(rdo_unit.value == "1"){		//¼ö·®
        for (i = 0 ; i < grd_cpcr.rows; i++){
            if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/recitemflag") == "M"){
                for(j = 0 ; j < 31 ; j++){
                    if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"") != ""){
                        ChagData = Number(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"")) /
                                   Number(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/cntsvol"));
                        model.setValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"" , ChagData );
                    }
                }
            }
        }
    } else {						//¿ë·®
        for (i = 0 ; i < grd_cpcr.rows; i++){
            if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/recitemflag") == "M"){
                for(j=0 ; j <31 ; j++){
                    if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"") != ""){
                        ChagData = Number(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"")) * 
                                   Number(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/cntsvol"));
                        model.setValue("/root/main/recinfo/reclist/grid["+i+"]/mnt"+j+"" , ChagData );
                    }
                }
            }
        }
    }
    
    grd_cpcr.refresh();
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Æ˾÷¸Þ´º(¹Ì±¸Çö)
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSetItem(flag){
    alert(flag + "°³¹ß Áß ÀÔ´Ï´Ù.");
}

function fPopupOpen(){
    
    var sCol = grd_cpcr.mouseCol;
    var sRow = grd_cpcr.mouseRow;
    
    var iCol = grd_cpcr.mouseCol - 2;
    var iRow = grd_cpcr.mouseRow - 2;
    
    if(event.button == 3 && sCol > 2 && sCol < 33 && sRow == 6 && fChartStat == "S" || 
       event.button == 3 && sCol > 2 && sCol < 33 && sRow == 3 && fChartStat == "F" ){
        if(grd_cpcr.isCell(event.target) && grd_cpcr.mouseRow >= grd_cpcr.fixedrows){
            window.setPopupMenu( true, "/root/codedata/popup/item", "name", "func", true);
        }else{
            window.setPopupMenu(false);
        }
    }
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : CPCR ±â·Ï ÀúÀå
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fSaveDataCpcr(flag){
    model.removeNode("/root/send/cprbaseinfo");
    model.removeNode("/root/send/cprrecinfo");
    model.removeNode("/root/send/cprsmminfo");
    
    var sSaveData = "";
    var sSaveHeader = "pid¢Ëindd¢Ëcretno¢Ëdeptcd¢Ëinstcd¢Ëstartdd¢Ëstarttm¢Ëleaderid¢Ëairwayid¢Ëcompressionfstid¢Ëcompressionscndid¢Ëmedid¢Ërecid¢Ëdrugunit¢Ëstatus¢Ì";
    
    var sSaveData = model.getValue("/root/main/cond/pid") + "¢Ë"
                  + model.getValue("/root/main/cond/indd") + "¢Ë"
                  + model.getValue("/root/main/cond/cretno") + "¢Ë"
                  + model.getValue("/root/main/cond/deptcd") + "¢Ë"
                  + model.getValue("/root/main/cond/instcd") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/startdd") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/starttm") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/leaderid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/airwayid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/compressionfstid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/compressionscndid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/medid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/recid") + "¢Ë"
                  + model.getValue("/root/main/recinfo/cprinfo/cpr/drugunit") + "¢Ë";
    if(flag == "I"){
       sSaveData += "I" + "¢Ì";
    }else{
         sSaveData += "U" + "¢Ì";
    }
    
    var sRows = grd_cpcr.rows-2;
    var sCols  = grd_cpcr.cols;   
    
    var sSaveGridData = "";
    var sSaveGridHeader = "pid¢Ëindd¢Ëcretno¢Ëstartdd¢Ëstarttm¢Ëdeptcd¢Ërecno¢Ërecmnt¢Ëinstcd¢Ërecitemflag¢Ërecitemnm¢Ërecmntval¢Ì";
    var sSaveSmrData = "";
    var sSaveSmrHeader = "pid¢Ëindd¢Ëcretno¢Ëstartdd¢Ëstarttm¢Ëdeptcd¢Ërecno¢Ëinstcd¢Ëprcpcd¢Ëdrugvol¢Ëdrugqty¢Ëprepqty¢Ësumqty¢Ëcntsunit¢Ëcntsvol¢Ëstndunit¢Ëstndvol¢Ì";
//                        for(i = 0 ; i < grd_cpcr.rows; i++){
//                            for(j=1 ; j<    grd_cpcr.cols; j++){
        
    for(i = 1 ; i < sRows ; i++){
        sSaveGridData += model.getValue("/root/main/cond/pid") + "¢Ë"
                       + model.getValue("/root/main/cond/indd") + "¢Ë"
                       + model.getValue("/root/main/cond/cretno") + "¢Ë"
                       + model.getValue("/root/main/recinfo/cprinfo/cpr/startdd") + "¢Ë"
                       + model.getValue("/root/main/recinfo/cprinfo/cpr/starttm") + "¢Ë"
                       + model.getValue("/root/main/cond/deptcd") + "¢Ë"
                       + i + "¢Ë"
                       + "99" + "¢Ë"                                           
                       + model.getValue("/root/main/cond/instcd") + "¢Ë"
                       + model.getValue("/root/main/recinfo/reclist/grid["+i+"]/recitemflag") + "¢Ë"
                       + model.getValue("/root/main/recinfo/reclist/grid["+i+"]/subtitl") + "¢Ë"
                       + "" + "¢Ì"
        for(j = 0 ; j < 31; j++){
            if(model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt" + j + "") != ""  ){
                sSaveGridData += model.getValue("/root/main/cond/pid") + "¢Ë"
                               + model.getValue("/root/main/cond/indd") + "¢Ë"
                               + model.getValue("/root/main/cond/cretno") + "¢Ë"
                               + model.getValue("/root/main/recinfo/cprinfo/cpr/startdd") + "¢Ë"
                               + model.getValue("/root/main/recinfo/cprinfo/cpr/starttm") + "¢Ë"
                               + model.getValue("/root/main/cond/deptcd") + "¢Ë"
                               + i + "¢Ë"
                               + j + "¢Ë"                                           
                               + model.getValue("/root/main/cond/instcd") + "¢Ë"
                               + model.getValue("/root/main/recinfo/reclist/grid["+i+"]/recitemflag") + "¢Ë"
                               + model.getValue("/root/main/recinfo/reclist/grid["+i+"]/subtitl") + "¢Ë"
                               + model.getValue("/root/main/recinfo/reclist/grid["+i+"]/mnt" + j + "") + "¢Ì"
            }
        }

        if(model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/sumqty")!= "") {
            sSaveSmrData += model.getValue("/root/main/cond/pid") + "¢Ë"
                           + model.getValue("/root/main/cond/indd") + "¢Ë"
                           + model.getValue("/root/main/cond/cretno") + "¢Ë"
                           + model.getValue("/root/main/recinfo/cprinfo/cpr/startdd") + "¢Ë"
                           + model.getValue("/root/main/recinfo/cprinfo/cpr/starttm") + "¢Ë"
                           + model.getValue("/root/main/cond/deptcd") + "¢Ë"
                           + i + "¢Ë"
                           + model.getValue("/root/main/cond/instcd") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/subtitl") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/vol") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/qty") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/prepqty") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/sumqty") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/cntsunit") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/cntsvol") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/stndunit") + "¢Ë"
                           + model.getValue("/root/main/recinfo/reclist/grid["+ i +"]/stndvol") + "¢Ì"
                           
        }
    }
                  
    model.makeValue("/root/send/cprbaseinfo", sSaveHeader + sSaveData);
    model.makeValue("/root/send/cprrecinfo", sSaveGridHeader + sSaveGridData );
    model.makeValue("/root/send/cprsmminfo", sSaveSmrHeader + sSaveSmrData);
    
    fCpcCondNodeSet();
    
    if(submit("TXMNE03501") == true ){
        var saveDate = model.getValue("/root/main/recinfo/cprinfo/cpr/startdd");
        var saveTime = model.getValue("/root/main/recinfo/cprinfo/cpr/starttm");
        model.setValue("/root/main/srchinfo/srchlist", saveDate + saveTime);
    
        if(flag == "I"){
            messageBox("ÀúÀåÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.", "I");
        }else if(flag == "U"){
            messageBox("¼öÁ¤ÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.", "I");
        }
    }

    submit("TRMNE03502");
    cmb_list.refresh();
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ±×¸®µå Width Size º¯°æ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fColWidthChange(pWidth){
    var sWidth = pWidth.split(", ");
    
    for (i = 0; i < sWidth.length; i++) {
         grd_cpcr.colwidth(i) = sWidth[i];
    }      
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Â÷Æ®º¸±â ¹öÆ° À̺¥Æ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fShowChart(){
    btn_Cchrt.visible   = true;                                                                                         
    group2.visible    = true;                                                                               
    caption8.visible  = true;                                                                             
    caption12.visible = true;                                                                            
    caption13.visible = true;                                                                            
    checkbox1.visible = true;                                                                            
    checkbox2.visible = true;                                                                            
    checkbox3.visible = true;                                                                            
                                                                                                  
    btn_Schrt.visible = false;                                                                             
                                                                                                         
    group6.attribute("style") = "left:0px; top:320px; width:1190px; height:446px;;" ;                    
    grd_cpcr.attribute("style") = "left:0px; top:28px; width:1189px; height:415px; text-align:center;" ;
                                                                                                         
    fMakeBottomDate("F");                                                                                
    fMakeChart();                                                                                        
    model.refresh();
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : Â÷Æ®´Ý±â ¹öÆ° À̹êÆ®
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCloseChart(){
    btn_Cchrt.visible = false;
    group2.visible = false;
    caption8.visible = false;
    caption12.visible = false;
    caption13.visible = false;
    checkbox1.visible = false;
    checkbox2.visible = false;
    checkbox3.visible = false;
    
    btn_Schrt.visible = true;
    
    group6.attribute("style") = "left:0px; top:55px; width:1190px; height:711px; ";
    grd_cpcr.attribute("style") = "left:0px; top:28px; width:1189px; height:680px; text-align:center; ";
    fMakeBottomDate("S");
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : °£È£ÀÏÁö TypeII ¿ÀÇÂ
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fOpenDialRec(){

    var sPid      = model.getValue("/root/main/cond/pid");
    var sIndd   = model.getValue("/root/main/cond/indd");
    var sCretno = model.getValue("/root/main/cond/cretno");                  
    var sDeptcd = model.getValue("/root/main/cond/deptcd");
    var sInstcd  = model.getValue("/root/main/cond/instcd");
    var sStartdd = model.getValue("/root/main/recinfo/cprinfo/cpr/startdd");
    var sStarttm = model.getValue("/root/main/recinfo/cprinfo/cpr/starttm");
				 
 		//parammsg = "recflag¢Ëdutplaccd¢Ëreclnkkey¢ÌE¢Ë82015¢Ë"+sPid+","+sIndd+","+sCretno+","+sDeptcd+","+sInstcd+"¢Ì";           
    parammsg = "recflag¢Ëdutplaccd¢Ëreclnkkey¢ÌE¢Ë82015¢Ë"+sPid+","+sIndd+","+sCretno+","+sDeptcd+"¢Ì";           
    setParameter("SMMNR03400_ParamBase", parammsg);  // ÆĶó¹ÌÅÍ ¼³Á¤     	
		modal("SMMNR03400");                             // °£È£ÀÏÁöI È­¸é Æ˾÷
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ó¹æ ¸ñ·Ï Áý°è Ç¥ º¸±â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fShowSmm(){
    pWidth = "20, 96, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 34, 32, 31, 31, 31, 28";
    //grd_cpcr.attribute("colwidth") = "20, 101, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 33, 31, 30, 30, 30, 28";
    fColWidthChange(pWidth);
    btn_Ssum.visible = false;
    btn_Csum.visible = true;
}

/**
 * @group  :
 * @ver    : 2007.07.21
 * @by     : ¾çõ´ö
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : ó¹æ ¸ñ·Ï Áý°è Ç¥ ´Ý±â
 * @param  :
 * @return :
 * @---------------------------------------------------
 */ 
function fCloseSmm(){
    pWidth = "20, 96, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 0, 0, 0, 0, 0, 0";
    //grd_cpcr.attribute("colwidth") = "20, 96, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 0, 0, 0, 0, 0, 0";
    fColWidthChange(pWidth);	
    btn_Csum.visible = false;
    btn_Ssum.visible = true;
}