function fInit(){

    var node = getGlobalVariable("paminfo");
    model.removeNodeset("/root/main/paminfo");
    setCSVToNode("/root/main", node, "paminfo")
    	
	if(getPatientId() != ""){
	   fSetInitValue();	
	   fGetBtnTitle();	   
	}else{
       messageBox("ȯÀÚÁ¤º¸°¡","E014");
       window.close();
	}
}

function fSetInitValue(){
	
	mmbfGetDeptCodeComboList("/root/send/reqdeptlist", "/root/init/deptlist", "A");
	
	addComboItem("cmb_deptlist", "Àüü", "ALL");
	
	var defltdeptcd = getUserInfo("dutplcecd");
    
    if (defltdeptcd == "2280000000"){
        defltdeptcd = "ALL";
    }
	
	model.setValue("/root/send/reqmedireclist/formrecdeptcd", defltdeptcd);
	if( cmb_deptlist.label == "" ){
		model.setValue("/root/send/reqmedireclist/formrecdeptcd", "ALL");
	}
	
	model.setValue("/root/init/reqmedireclist/diffdt", "12");
    model.setValue("/root/send/reqmedireclist/chosflag", "A");
    
    model.setValue("/root/init/reqmedireclist/recfromdt",getCurrentDate());
    model.setValue("/root/init/reqmedireclist/rectodt",getCurrentDate());
    
    model.setValue("/root/main/titleinfo", model.getValue("/root/main/paminfo/pid") + " ["+ model.getValue("/root/main/paminfo/hngnm") +"]" );
    
    fAddDateReq_SPMMR00100("");
    
    model.refresh();
}


function fAddDateReq_SPMMR00100(diffFlag)
{
    var frdd = model.getValue("/root/init/reqmedireclist/recfromdt");
    var todd = model.getValue("/root/init/reqmedireclist/rectodt");
    var srcdd = new Date();
    var destdd = new Date();
    var diffdt;
    if (diffFlag == "next")
    {
        srcdd = todd.toDate();
        srcdd = srcdd.getAddDate(1, "D");
        frdd = srcdd.getDateFormat();
        
        diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * 1;
        destdd = srcdd.getAddDate(diffdt, "M");
        todd = destdd.getDateFormat();
    }
    else if (diffFlag == "back")
    {
        srcdd = frdd.toDate();
        srcdd = srcdd.getAddDate(-1, "D");
        todd = srcdd.getDateFormat();
        
        diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        destdd = srcdd.getAddDate(diffdt, "M");
        frdd = destdd.getDateFormat();
    }
    else if (diffFlag == "today")
    {
        todd = getCurrentDate();

        var today = new Date();
        var frday = new Date();
        var diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        frday = today.getAddDate(diffdt , "M");
        frdd = frday.getDateFormat();
    }
    else
    {
        var today = todd.toDate();
        var frday = new Date();
        var diffdt = parseInt(model.getValue("/root/init/reqmedireclist/diffdt")) * -1;
        frday = today.getAddDate(diffdt , "M");
        frdd = frday.getDateFormat();
    }

    model.setValue("/root/init/reqmedireclist/recfromdt", frdd);
    model.setValue("/root/init/reqmedireclist/rectodt", todd);

    ipt_formrecdtfr.refresh();
    ipt_formrecdtto.refresh();
}

function fGetBtnTitle(){
	
	model.setValue("/root/send/titleinfo/dutplcecd",getUserInfo("dutplcecd"));
    	
	submit("TRMMR00104");
	
	var nTitleCount = getNodesetCount("/root/hidden/formlist/forminfo");
	var btn;
	var sTitle = "";
	var nTitleLength = 0;
	var nBfTitleLength = 0;
	
	if(nTitleCount > 0){
		for(var i=1; i<=nTitleCount; i++){
			
		    sTitle = model.getValue("/root/hidden/formlist/forminfo["+i+"]/formnm").getTrim();
		    nTitleLength = eval(sTitle.length * 10);
		    
		    if(nTitleLength < 200){
		    	nTitleLength = 200;
		    }
		    
		    btn = document.all("btn_sw"+i);
		    btn.attribute("visibility") = "visible";
	        btn.attribute("text") = sTitle;        
	        
	        btn.attribute("width") = nTitleLength;                
		    if(i == 1){
		    	btn.attribute("left") = "0";	    	
	        }else{
	            btn.attribute("left") = nBfTitleLength;            
	        }
	        
	        nBfTitleLength +=  nTitleLength;        
		}
		
		fChargeBtninfo("1");
	}
}
function fGetRefMediRecinfo(){
	if(swt_left.selectedIndex == 0){
		fGetMediRecList();
	}else if(swt_left.selectedIndex == 1){
		fShowMediRecCnt_SPMMR00100("");
	}
}
function fGetMediRecList(){	
	
	if (model.getValue("/root/main/paminfo/pid") == "")  {
        messageBox("ȯÀÚÁ¤º¸°¡ Á¸ÀçÇÏÁö ¾Ê¾Æ ÁøÇà  ", "E001");
        return;
    }
    
     model.removeNodeset("/root/main/mainlist/medireclist");
    
    model.setValue("/root/send/reqmedireclist/pid", model.getValue("/root/main/paminfo/pid"));

    if (model.getValue("/root/main/paminfo/ioflag") == "O") {
        model.setValue("/root/send/reqmedireclist/orddd", model.getValue("/root/main/paminfo/orddd"));
    }else{
        model.setValue("/root/send/reqmedireclist/orddd", model.getValue("/root/main/paminfo/indd"));
    }
        
    model.setValue("/root/send/reqmedireclist/cretno", model.getValue("/root/main/paminfo/cretno"));
    model.setValue("/root/send/reqmedireclist/orddeptcd", model.getValue("/root/main/paminfo/orddeptcd"));

    model.setValue("/root/send/reqmedireclist/recfromdt", model.getValue("/root/init/reqmedireclist/recfromdt"));
    model.setValue("/root/send/reqmedireclist/rectodt", model.getValue("/root/init/reqmedireclist/rectodt"));
    model.setValue("/root/send/reqmedireclist/formcd", model.getValue("/root/temp/titleinfo/formcd"));

    model.makeValue("/root/send/reqmedireclist/mainyn", /*model.getValue("/root/temp/btnmainyn")*/ "false" );
    
    model.setValue("/root/send/reqmedireclist/formrecdeptcd", model.getValue("/root/send/reqmedireclist/formrecdeptcd"));
    
    model.refresh();
    
    submit("TRMMR00101");
   
    swt_left.selectedIndex = 0;
    btn_list.selected = true;
    grd_medireclist.mergeCol(grd_medireclist.colref("formrecdd")) = true;
    grd_medireclist.merge();
    
    fSetIvewerVisible(ivw_loader,false);
}

function fShowMediRecCnt_SPMMR00100(formrecseq, arrFormrecseq)
{
    if (model.getValue("/root/main/paminfo/pid") == "")
    {
        return;
    }

    var cond = new COMN_CONT_RECCNTS;
    var instance = document.models(0).instances(0);
    var nodeReclist = instance.selectNodes("/root/main/mainlist/medireclist");
    var nodeReclistlength = nodeReclist.length;
    
    cond.pid = model.getValue("/root/main/paminfo/pid");
    cond.formrecdeptcd = model.getValue("/root/send/reqmedireclist/formrecdeptcd");
    cond.chosflag = model.getValue("/root/send/reqmedireclist/chosflag");
    cond.rechfview = model.getValue("/root/temp/rechfview");
    cond.mainyn = model.getValue("/root/temp/btnmainyn");           // 2013.09.25 CYW 
    cond.reclistlength = nodeReclistlength;
    cond.formcd =  model.getValue("/root/temp/titleinfo/formcd");
    
    if (formrecseq == "")
    {
        cond.recfromdt = model.getValue("/root/init/reqmedireclist/recfromdt");
        cond.rectodt = model.getValue("/root/init/reqmedireclist/rectodt");        
    }
    else
    {
        cond.recfromdt = "";
        cond.rectodt = "";
    }

    //2010/01/04 hkjoo Ãß°¡
    if ( arrFormrecseq != null )
        cond.arrFormrecseq = arrFormrecseq;
    ////////////////////////
    cond.formrecseq = formrecseq;

    ivw_reccnts.window.javascript.fRefMediRecCnts_SPMMR00100(cond);
    
    fSetIvewerVisible(ivw_loader,false);
    //fOpenMediRecCntForm(formrecseq);    
    swt_left.selectedIndex = 1;
    btn_info.selected = true;
    
}

function fGetBtnFormcd(btnNum){
	
	if(btnNum != ""){	
	   return model.getValue("/root/hidden/formlist/forminfo["+btnNum+"]/formcd");
	}else{
	   return "-";
	}
}

function fChargeBtninfo(btnNum){
    model.setValue("/root/temp/titleinfo/formcd",fGetBtnFormcd(btnNum));
    model.setValue("/root/temp/titleinfo/btnno",btnNum);
    
    swt_left.selectedIndex = 0;
    btn_list.selected = true;
    
    fSetBtnSelected(btnNum);
            
    btn_search.dispatch("DOMActivate");
}

function fSetBtnSelected(btnNum){
	var btn;
	btn = document.all("btn_sw"+btnNum);
    btn.selected = true;
}

function fOpenMediRecCntForm(formrecseq){
	
	var formcd     = model.getValue("/root/temp/titleinfo/formcd");    
    var pid        = model.getValue("/root/main/paminfo/pid");
    var orddd      = "";    
    var cretno     = model.getValue("/root/main/paminfo/cretno");
    var ioflag     = model.getValue("/root/main/paminfo/ioflag");
    var orddeptcd  = model.getValue("/root/main/paminfo/orddeptcd");
    var orddrid    = ";"
    
    if(ioflag == "O"){
        orddd      = model.getValue("/root/main/paminfo/orddd");
        orddrid    = model.getValue("/root/main/paminfo/orddrid");      
    }else{
        orddd      = model.getValue("/root/main/paminfo/indd");
        orddrid    = model.getValue("/root/main/paminfo/medispclid");
    }
	
	if (formrecseq == "") {
        fNewForm(ivw_loader,formcd,pid,orddd,cretno,ioflag,orddeptcd,orddrid);        
    }else {
        fRecForm(ivw_loader,formrecseq);        
    }
    
    fSetIvewerVisible(ivw_loader,true);
}

function fNewForm(ivw,formcd,pid,orddd,cretno,ioflag,orddeptcd,orddrid) {
        ivw.window.javascript.fSetPamInfo(pid, orddd.substring(0, 8), cretno, ioflag , orddeptcd, orddrid);
        ivw.window.javascript.fLoadNewForm(formcd, false);
}
    
function fRecForm(ivw,formrecseq) {
        ivw.window.javascript.fLoadRecForm(formrecseq, false);
        ivw.grup_btn.disabled = false;
}

function fSetIvewerVisible(ivw, bFlag){
    ivw.visible = bFlag;
}

function fModifyForm_SPMMR00100()
{
    if (swt_left.selectedIndex == 0) {
        var cnfmyn       = grd_medireclist.valueMatrix(grd_medireclist.row, grd_medireclist.colRef("cnfmyn"));
        var formcd       = grd_medireclist.valueMatrix(grd_medireclist.row, grd_medireclist.colRef("formcd"));
        var formrecseq   = grd_medireclist.valueMatrix(grd_medireclist.row, grd_medireclist.colRef("formrecseq"));
        
        if (grd_medireclist.row > 0) {
            if (cnfmyn == "Y") {
                fOpenMediRecCntForm(formrecseq);
            } else {
                messageBox("OCS¿¡¼­ ÀÛ¼ºÇÑ ±â·ÏÀº ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù. ÀÇ·áÁ¤º¸ÆÀÀ¸·Î ¹®ÀÇ", "I008");
            }
        } else {
            messageBox("±â·Ï¸ñ·Ï¿¡¼­ ±â·ÏÀ» ", "C002");                          
        }        
    }
    else if (swt_left.selectedIndex == 1) {
    	
    	var datagrid = ivw_reccnts.grd_medirec;
    	
        var cnfmyn     = datagrid.valueMatrix(datagrid.row, datagrid.colRef("cnfmyn"));
        var formcd     = model.getValue("/root/temp/titleinfo/formcd"); 
        var formrecseq = datagrid.valueMatrix(datagrid.row, datagrid.colRef("formrecseq"));
    	
        if(formrecseq != "") {
            if (cnfmyn == "Y") {
                fOpenMediRecCntForm(formrecseq);
            } else {
                messageBox("OCS¿¡¼­ ÀÛ¼ºÇÑ ±â·ÏÀº ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù. ÀÇ·áÁ¤º¸ÆÀÀ¸·Î ¹®ÀÇ", "I008");
            }
        } else {
            messageBox("±â·Ï³»¿ë¿¡¼­ ±â·ÏÀ» ", "C002");                          
        }
    }
}

function fOpenNewMediForm(){
	var formcd     = model.getValue("/root/temp/titleinfo/formcd");    
    var pid        = model.getValue("/root/main/paminfo/pid");
    var orddd      = "";    
    var cretno     = model.getValue("/root/main/paminfo/cretno");
    var ioflag     = model.getValue("/root/main/paminfo/ioflag");
    var orddeptcd  = model.getValue("/root/main/paminfo/orddeptcd");
    var orddrid    = ";"
    
    if(ioflag == "O"){
    	orddd      = model.getValue("/root/main/paminfo/orddd");
    	orddrid    = model.getValue("/root/main/paminfo/orddrid");    	
    }else{
    	orddd      = model.getValue("/root/main/paminfo/indd");
    	orddrid    = model.getValue("/root/main/paminfo/medispclid");
    }
    
    
    fNewForm(ivw_loader,formcd,pid,orddd,cretno,ioflag,orddeptcd,orddrid);
    fSetIvewerVisible(ivw_loader,true);
}