YNU_JEUS/app_home/himed/xpapps/emr/dschanalyxp/xp/SMMRD00100.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[
/**
 * @desc   : 화면 초기화
 * @param  : Ref
           : RsltRef
 * @return : void
 * @authur : 2007.12.10 나종천 ,수정->이창록,2009-01-13 이창록  소스 튜닝
 * @---------------------------------------------------
 */
 function fInitialize(){
    //var Msg2= messageBox("동일한 암등록번호가 존재합니다. 수정","S003","신규로 저장");
    //alert(Msg2);
    
	//model.addLog("===================시작");
	
	// KNUH_20101207_박성호_start_의무기록 부서코드 가져오기	
	//mmbfGetHardCodeInfo("/root/send/reqdata", "/root/temp/dutplcecd", 5502);	
	//mmbfGetHardCodeInfoNm("/root/harddata/send","/root/harddata/hardcode", 3801);	//OCR서식의 등록번호 체크로직 표시 여부
	var sProp = "col=3,row=1,cellspacing=2,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow='visible'";	
	switch1.case3.checkbox2.setInitComp(sProp, ds_chk_checkbox2,"value","label", "fn_checkbox2");	
	
	var sProp = "col=4,row=1,cellspacing=2,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow='visible'";	
	switch1.case2.chk_clin.setInitComp(sProp, ds_chk_clinical,"value","label", "fn_clinical");	
	
	switch1.case2.chk_clin.enable = false;
	
	lf_getHardCDList("N", 5502, null, ds_temp_dutplcecd);	
		
	// KNUH_20101207_박성호_end
		
    if(frmf_checkOpener()){
        para_pid = opener.frmf_getParameter("SMMRD00100_pid");
        para_dschdd = opener.frmf_getParameter("SMMRD00100_dschdd");        
        switch1.tabindex = 1;        
        ds_main_pathumtrainfo_cncrpatinfo.setColumn(0, "pid", para_pid);
        switch1.case2.chk_cretchknum.value = false;
    } else {        
        switch1.tabindex = 0;
    }
    dsf_makeValue(ds_main_cncrpatref, "skind" , "string", "A");
    
    var fromdd = ((utlf_getCurrentDate()).toDate()).getAddDate(-1, "M");
    var rgstfromdd = ((utlf_getCurrentDate()).toDate()).getAddDate(-6, "D");
        dsf_makeValue(ds_main_cncrpatref, "fromdd"      , "string", fromdd.getDateFormat());
        dsf_makeValue(ds_main_cncrpatref, "todd"        , "string", utlf_getCurrentDate());
        dsf_makeValue(ds_main_srchcncrpat, "fromdd"     , "string", rgstfromdd.getDateFormat());
        dsf_makeValue(ds_main_srchcncrpat, "todd"       , "string", utlf_getCurrentDate());
        //model.addLog(getCurrentTime());
        
        //zsdfGetInOutOrdDeptList(sysf_getUserInfo("dutplceinstcd"), ds_main_common_com_dept, "depthngnm", "asc");//전체 진료과 조회                        
        appf_getInOutOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", null, null, "ds_main_common_com_dept", false, null); //전체 진료과        
        ds_hidden_cncrpatref_orddeptinfo_orddeptlist.copyData(ds_main_common_com_dept);
        ds_init_srchcncrrgst_deptinfo.copyData(ds_main_common_com_dept);
        
        frmf_addComboItem("switch1.case3.cmb_srchdept", "전체", "-", "above");
        frmf_addComboItem("switch1.case1.cmb_srchcncrrgst", "전체", "-", "above");
        ds_main_srchcncrpat.setColumn(0, "deptinfo", "-");        
        frmf_addComboItem("switch1.case1.cmb_drinfo", "전체", "-", "above");
        ds_main_srchcncrpat.setColumn(0, "drinfo", "-");        
                
        // 공통코드 불러오기
        fDetCncrRgst();
                
    if(!utlf_isNull(para_pid)){        
        fGetPatinfo("param");
        
        var sCncrNo  = ds_main_humaninfo_cncrhist_histlist.getColumn(0, "cncr_histno");
        if(utlf_isNull(sCncrNo)){
	        ds_main_cncrpatrgst_regstatus.setColumn(0, "flag","1");
	        switch1_case2_rdo_flag_onitemchanged();
        }
    }
    
    //================================================
    // 암센터, 의료정보 체크(20090213)
    // cncryn : 'Y'는 암센터, 'N'는 의료정보를 의미
    var instcd = sysf_getUserInfo("dutplceinstcd");
    var dutplcecd = sysf_getUserInfo("dutplcecd");

    if (instcd == "012" && dutplcecd == "6050000000")
    {
        // 암센터 여부
        cncryn = "Y";
    }
    //================================================
    
   //model.addLog("===================종료");
}

/**
 * @desc   : 공통코드 불러오기
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------`
 */
function fDetCncrRgst(){
    //model.removenode("/root/main/common");
    //model.makeNode("/root/main/common");
    // 결혼여부 M0151,직업 M0149,관계 M0072,질병상태 M0172,사망장소 M0173,병기 M0176,내원전 치료방법1 M0177,원격전이부위M0178
    //최종진단방법 M0179,Regimen1,M0179,Regimen2 M0182,분화도 M0183,SeerM0184,ECOG(활동정도)M0320
    //진단병원 Z0007,T M0174,N M0393,M M0175,본원암치료방법(M0394,M0395),전이부위치료방법(M0394), 기타병기구분M0395, 진단경로:M0740, 편측성:M0750
    var arrParam = [{dsNm: "ds_main_common_M0151", cdGrpId: "M0151"},
          {dsNm: "ds_main_common_M0149", cdGrpId: "M0149"},
          {dsNm: "ds_main_common_M0072", cdGrpId: "M0072"},
          {dsNm: "ds_main_common_M0172", cdGrpId: "M0172"},
          {dsNm: "ds_main_common_M0173", cdGrpId: "M0173"},
          {dsNm: "ds_main_common_M0176", cdGrpId: "M0176"},
          {dsNm: "ds_main_common_M0177", cdGrpId: "M0177"},
          {dsNm: "ds_main_common_M0179", cdGrpId: "M0179"},
          {dsNm: "ds_main_common_M0182", cdGrpId: "M0182"},
          {dsNm: "ds_main_common_M0183", cdGrpId: "M0183"},
          {dsNm: "ds_main_common_M0184", cdGrpId: "M0184"},
          {dsNm: "ds_main_common_M0320", cdGrpId: "M0320"},
          {dsNm: "ds_main_common_Z0007", cdGrpId: "Z0007"},
          {dsNm: "ds_main_common_M0174", cdGrpId: "M0174"},
          {dsNm: "ds_main_common_M0175", cdGrpId: "M0175"},
          {dsNm: "ds_main_common_M0393", cdGrpId: "M0393"},
          {dsNm: "ds_main_common_M0394", cdGrpId: "M0394"},
          {dsNm: "ds_main_common_M0395", cdGrpId: "M0395"},
          {dsNm: "ds_main_common_M0740", cdGrpId: "M0740"},
          {dsNm: "ds_main_common_M0750", cdGrpId: "M0750"}]
	
	appf_getCodeList(arrParam);       
	                                                                   
	appf_showValue(ds_main_common_M0320);
	appf_showValue(ds_main_common_M0750);
	appf_showValue(ds_main_common_M0179);
	appf_showValue(ds_main_common_M0182);
	appf_showValue(ds_main_common_M0174);
	appf_showValue(ds_main_common_M0175);
	appf_showValue(ds_main_common_M0176);
	appf_showValue(ds_main_common_M0393);
	appf_showValue(ds_main_common_M0395);
                              
                               
                              
    frmf_addComboItem("switch1.case2.combo2", "선택필요", "99", "above");
	frmf_addComboItem("switch1.case2.cmb_seer", "해당없음", " ", "above");
	frmf_addComboItem("switch1.case2.cmb_difrntgrde", "해당없음", " ", "above");	
	frmf_addComboItem("switch1.case2.cmb_t", " ", "", "above");
	frmf_addComboItem("switch1.case2.cmb_n", " ", "", "above");
	frmf_addComboItem("switch1.case2.cmb_m", " ", "", "above");
	frmf_addComboItem("switch1.case2.cmb_staging", " ", "", "above");
	frmf_addComboItem("switch1.case2.cmb_etcstagflag", " ", "", "above");
}

/**
 * @desc   : 외래및입원환자  조회
 * @param  : 파라미터여부, 입원/외래구분, 조회날짜(외래:진료일자, 입원:퇴원일자)
 * @return : void
 * @authur : 2007. 5. 15 나종천  2008-12-15 수정 이창록->환자 기본정보 팝업 제거
 * @---------------------------------------------------
 */
function fGetPatinfo(sFlag, ordtype, searchdd){
	//model.addLog("===================엔터 시작");
	
	// 20090415 추가(연고자정보를 reset)	
	ds_main_pathumtrainfo_relationinfo.clearData();
	ds_main_pathumtrainfo_relationinfo.addRow();
	
	ds_main_humaninfo_cncrhist_histlist.clearData();
	ds_main_cncrpatrgst_regstatus_cncrnoinfo.clearData();
	ds_main_cncrpatrgst_rerntmetstaspart.clearData();
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.clearData();
	ds_main_cncrpatrgst_cureinfo_prmypart.clearData();
	ds_main_cncrpatrgst_cureinfo_metstaspart.clearData();
	ds_main_humaninfo_doainfo_list.clearData();
	ds_main_cncrpatrgst_diaginfo.clearData();
	
	ds_main_humaninfo_cncrhist_histlist.addRow();
	ds_main_cncrpatrgst_regstatus_cncrnoinfo.addRow();
	ds_main_cncrpatrgst_rerntmetstaspart.addRow();
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addRow();
	ds_main_cncrpatrgst_cureinfo_prmypart.addRow();
	ds_main_cncrpatrgst_cureinfo_metstaspart.addRow();
	ds_main_humaninfo_doainfo_list.addRow();
	ds_main_cncrpatrgst_diaginfo.addRow();
	
	switch1.case2.cap_rgstrnm.text = "";
    switch1.case2.cap_rgstdt.text = "";
	
    var trgXpath:Dataset;
    trgXpath = ds_main_pathumtrainfo_cncrpatinfo;
    
	//2008-12-15 수정 이창록
	if(ds_init_checknum.getColumn(0, "value") == "true"){
		var pid = getCretCheckNo(ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "pid"), sysf_getUserInfo("dutplceinstcd"));
	}else{
		var pid = trgXpath.getColumn(0, "pid");
	}
   	// 이중번호
   	// 이중번호 체크 관련   	
   	ds_send_cond.clearData();   	
    dsf_makeValue(ds_send_cond, "srchcond", "string", "1");
    dsf_makeValue(ds_send_cond, "pid", "string", pid);
   	
   	dsf_makeValue(ds_send_reqdata, "pid", "string", pid);   	
    dsf_makeValue(ds_send_reqdata, "cncryn", "string", cncryn);
    //================================================
   	var oParam = {};
		oParam.id          = "TRPMC02500";
		oParam.service     = "patinfomngtapp.PatBaseInfo";
		oParam.method      = "reqGetPatInfo";
		oParam.inds        = "req=ds_send_cond";
		oParam.outds       = "ds_main_doublepat_patinfo=patinfolist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPMC02500";

	tranf_submit(oParam);
   	
   	if(arErrorCode.pop("TRPMC02500") > -1)
    {
		dsf_setDefaultVal(ds_send_reqdata, "cncryn:N");
		
		var oParam = {};
			oParam.id          = "TRMRD00101";
			oParam.service     = "dschanalyapp.CncrPatMngt";
			oParam.method      = "reqGetPatInfo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_humaninfo_outpatinfo_patlist=outpatinfolist ds_main_humaninfo_inpatinfo_patlist=inpatinfolist ds_main_humaninfo_cncrhist_histlist=cncrhistlist ds_main_humaninfo_doainfo_list=doainfolist";
			oParam.async       = false;
			oParam.callback    = "cf_TRMRD00101";

		tranf_submit(oParam);
		
		
        
        ds_main_humaninfo_outpatinfo_patlist.updateColID("hngnm", "pnm");
        ds_main_humaninfo_outpatinfo_patlist.updateColID("orddeptcd", "outorddept");        
        ds_main_humaninfo_outpatinfo_patlist.updateColID("orddrid", "outorddr");
        ds_main_humaninfo_outpatinfo_patlist.updateColID("jobcd1", "job1");
        ds_main_humaninfo_outpatinfo_patlist.updateColID("marystatcd", "maryflag");
        ds_main_humaninfo_outpatinfo_patlist.updateColID("forgneryn", "forgnerflag");
        ds_main_humaninfo_outpatinfo_patlist.updateColID("travo", "travoflag");
        
        ds_main_humaninfo_inpatinfo_patlist.updateColID("hngnm", "pnm");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("indeptcd", "inorddept");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("indrid", "inorddr");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("dschdeptcd", "dschorddept");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("dschdrid", "dschorddr");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("jobcd1", "job1");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("jobcd2", "etcjob");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("marystatcd", "maryflag");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("forgneryn", "forgnerflag");
        ds_main_humaninfo_inpatinfo_patlist.updateColID("travo", "travoflag"); 
        
        ds_main_humaninfo_cncrhist_histlist.updateColID("dschdeptcd", "dschorddept");        
        ds_main_humaninfo_cncrhist_histlist.updateColID("dschdrid", "dschorddr");        
        ds_main_humaninfo_cncrhist_histlist.updateColID("hngnm", "pnm");
        ds_main_humaninfo_cncrhist_histlist.updateColID("zipcd1", "zipcode1");
        ds_main_humaninfo_cncrhist_histlist.updateColID("zipcd2", "zipcode2");
        ds_main_humaninfo_cncrhist_histlist.updateColID("forgneryn", "forgnerflag");
        ds_main_humaninfo_cncrhist_histlist.updateColID("jobcd1", "job1");
        ds_main_humaninfo_cncrhist_histlist.updateColID("wandereryn", "travoflag");
        ds_main_humaninfo_cncrhist_histlist.updateColID("tplengnm", "tophnm");
		ds_main_humaninfo_cncrhist_histlist.updateColID("icdo3engnm1", "morphnm1");		
		ds_main_humaninfo_cncrhist_histlist.updateColID("icdo3engnm2", "morphnm2");
		ds_main_humaninfo_cncrhist_histlist.updateColID("icd10engnm", "icd10nm");		
       
        
        if(arErrorCode.pop("TRMRD00101") > -1){
            // 암환자조회에서 더블클릭시(암센터인 경우)
            if (sFlag == "Y")
            {
                if (ordtype == "I")
                {
                
                    fPutPatInfo(0, ds_main_humaninfo_inpatinfo_patlist, ordtype, cncryn, searchdd);
                }
                else
                {
                
                    fPutPatInfo(0, ds_main_humaninfo_outpatinfo_patlist, ordtype, cncryn, searchdd);
                }
                
            }
            else
            {                
            	if(ds_main_humaninfo_inpatinfo_patlist.rowcount > 0){            	   
          			if(sFlag=="param"){
          			
            	 		fPutPatInfo(0, ds_main_humaninfo_inpatinfo_patlist, "I","pCncr");//입원환자 조회
            		}else{
            		
            			fPutPatInfo(0, ds_main_humaninfo_inpatinfo_patlist, "I");//입원환자 조회
            		}
                }else{
                
                	fPutPatInfo(0, ds_main_humaninfo_outpatinfo_patlist, "O");//외래환자 조회
                }
            }
        }
    }    
    ds_send_reqdata.clearData();
    ds_send_reqdata.addRow();
    
    //model.addLog("===================엔터 종료");
}

function cf_TRPMC02500(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TRMRD00101(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**
 * @desc   :기본정보 조회및 외래및입원환자  정보조회
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fPutPatInfo(iRow, ref, ordtype, pFlag, searchdd){
    var humanInfoPath:Dataset;
    humanInfoPath = ds_main_pathumtrainfo_cncrpatinfo;
    var patInfoList:Dataset;
    patInfoList = ref;
	if(pFlag=="pCncr"){
	
        ds_main_pathumtrainfo_cncrpatinfo.setColumn(0, "dschdd", para_dschdd);        
        iRow= switch1.case2.cmb_dschdd.index;
	}
    else if (pFlag == "Y")  // 암센터인 경우
    {
        if (ordtype == "I")
        {
            ds_main_pathumtrainfo_cncrpatinfo.setColumn(0, "dschdd", searchdd);                        
            iRow= switch1.case2.cmb_dschdd.index;
        }
        else
        {            
            ds_main_pathumtrainfo_cncrpatinfo.setColumn(0, "code", searchdd);            
            iRow= switch1.case2.cmb_outorddd.index;
            ds_main_pathumtrainfo_cncrpatinfo.setColumn(0, "orddd", ds_main_humaninfo_outpatinfo_patlist.getColumn(iRow, "orddd"));
        }        
    }    
	
    dsf_makeValue(humanInfoPath, "pid"			, "string", patInfoList.getColumn(iRow, "pid"));
    dsf_makeValue(humanInfoPath, "pnm"        	, "string", patInfoList.getColumn(iRow, "pnm"));
    dsf_makeValue(humanInfoPath, "cretno"     	, "string", patInfoList.getColumn(iRow, "cretno"));
    dsf_makeValue(humanInfoPath, "ordtype"    	, "string", patInfoList.getColumn(iRow, "ordtype"));
    dsf_makeValue(humanInfoPath, "rrgstno1"   	, "string", patInfoList.getColumn(iRow, "rrgstno1"));
    dsf_makeValue(humanInfoPath, "rrgstno2"   	, "string", patInfoList.getColumn(iRow, "rrgstno2"));
    dsf_makeValue(humanInfoPath, "epoch"      	, "string", patInfoList.getColumn(iRow, "epoch"));
    dsf_makeValue(humanInfoPath, "age"        	, "string", patInfoList.getColumn(iRow, "age"));
    dsf_makeValue(humanInfoPath, "sex"        	, "string", patInfoList.getColumn(iRow, "sex"));
    dsf_makeValue(humanInfoPath, "maryflag"   	, "string", patInfoList.getColumn(iRow, "maryflag"));
    dsf_makeValue(humanInfoPath, "zipcode1"   	, "string", patInfoList.getColumn(iRow, "zipcode1"));
    dsf_makeValue(humanInfoPath, "zipcode2"   	, "string", patInfoList.getColumn(iRow, "zipcode2"));
    dsf_makeValue(humanInfoPath, "addr"       	, "string", patInfoList.getColumn(iRow, "addr"));
    dsf_makeValue(humanInfoPath, "detaddr"    	, "string", patInfoList.getColumn(iRow, "detaddr"));
    dsf_makeValue(humanInfoPath, "hometel"    	, "string", patInfoList.getColumn(iRow, "hometel"));
    dsf_makeValue(humanInfoPath, "mpphontel"  	, "string", patInfoList.getColumn(iRow, "mpphontel"));
    dsf_makeValue(humanInfoPath, "forgnerflag"	, "string", patInfoList.getColumn(iRow, "forgnerflag"));
    dsf_makeValue(humanInfoPath, "travoflag"  	, "string", patInfoList.getColumn(iRow, "travoflag"));
    dsf_makeValue(humanInfoPath, "job1"       	, "string", patInfoList.getColumn(iRow, "job1"));
    dsf_makeValue(humanInfoPath, "etcjob"     	, "string", patInfoList.getColumn(iRow, "etcjob"));

    if(ordtype == "I"){        
        ds_main_common_dsch_dschdeptlist_dept.clearData();               
        ds_main_common_in_indeptlist_dept.clearData();
                        
        var sdschDD = patInfoList.getColumn(iRow, "dschdd");
        var sInDD   = patInfoList.getColumn(iRow, "indd");
        var dschorddept = utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dschorddept"));
        var inorddept = patInfoList.getColumn(iRow, "inorddept");
        
                
        var instcd = sysf_getUserInfo("dutplceinstcd");
		var standard_yn = "orduseyn";
		var ord_deptflag = "D";
		var rslt_ref  = "ds_main_common_dsch_dschdeptlist_dept";	
		var sort_field = "depthngnm";
		var sort_method = "asc";
        
      
        
        appf_getInOrdDeptList(instcd, sort_field, sort_method, "", "", rslt_ref, false, "");//입원진료과(퇴원과)
        
        zsufGetOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), dschorddept, "ds_hidden_pathumtrainfo_cncrpatinfo_dschorddr_user", "usernm", "asc",sdschDD);//퇴원주치의(퇴원과)
        
        //zsdfGetInOrdDeptList(getUserInfo("dutplceinstcd"), "/root/main/common/in/indeptlist", "depthngnm", "asc",sInDD);
        appf_getInOrdDeptList(instcd, sort_field, sort_method, "", "", "ds_main_common_in_indeptlist_dept", false, "");//입원진료과(입원과)        
        
        zsufGetOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"), inorddept, "ds_hidden_pathumtrainfo_cncrpatinfo_inorddr_user","usernm","asc",sInDD);//입원주치의
        
        
        
        dsf_makeValue(humanInfoPath, "dschdd"     , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dschdd")));
        dsf_makeValue(humanInfoPath, "dispdschdd" , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dispdschdd")));
        dsf_makeValue(humanInfoPath, "dschorddept", "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dschorddept")));        
        dsf_makeValue(humanInfoPath, "dschorddr"  , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dschorddr")));
        dsf_makeValue(humanInfoPath, "indd"       , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "indd")));
        dsf_makeValue(humanInfoPath, "dispindd"   , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "dispindd")));
        dsf_makeValue(humanInfoPath, "inorddept"  , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "inorddept")));        
        dsf_makeValue(humanInfoPath, "inorddr"    , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "inorddr")));
        dsf_makeValue(humanInfoPath, "indg"       , "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "indg")));
        dsf_makeValue(humanInfoPath, "totinhospdayno",  "string", utlf_transNullToEmpty(patInfoList.getColumn(iRow, "totinhospdayno")));
        dsf_makeValue(humanInfoPath, "orddd",  "string", "");
        dsf_makeValue(humanInfoPath, "code",  "string", "");
        dsf_makeValue(humanInfoPath, "outorddept" , "string", "");
        dsf_makeValue(humanInfoPath, "outorddr"   , "string", "");        
    } else if(ordtype == "O"){
    	var sOrDDD= patInfoList.getColumn(iRow, "orddd");
    	var outOrddept = patInfoList.getColumn(iRow, "outorddept");        
        ds_main_common_out_outdeptlist_dept.clearData();        
        
        //zsdfGetOutOrdDeptList(getUserInfo("dutplceinstcd"), "/root/main/common/out/outdeptlist", "depthngnm", "asc",sOrDDD);
        
        var instcd = sysf_getUserInfo("dutplceinstcd");
		var standard_yn = "orduseyn";
		var ord_deptflag = "D";
		var rslt_ref  = "ds_main_common_out_outdeptlist_dept";	
		var sort_field = "depthngnm";
		var sort_method = "asc";
				
        appf_getOutOrdDeptList(instcd, sort_field, sort_method, "", "", "ds_main_common_out_outdeptlist_dept", false, "");// 외래진료과        
        zsufGetOrdDeptDoctorList("none", sysf_getUserInfo("dutplceinstcd"),outOrddept, "ds_hidden_pathumtrainfo_cncrpatinfo_outorddr_user","usernm","asc",sOrDDD);//외래진료의                
        
        dsf_makeValue(humanInfoPath, "orddd"      , "string", patInfoList.getColumn(iRow, "orddd"));
        dsf_makeValue(humanInfoPath, "code"       , "string", patInfoList.getColumn(iRow, "orddd") + patInfoList.getColumn(iRow, "cretno") );
        dsf_makeValue(humanInfoPath, "disporddd"  , "string", patInfoList.getColumn(iRow, "disporddd"));
        dsf_makeValue(humanInfoPath, "outorddept" , "string", patInfoList.getColumn(iRow, "outorddept"));        
        dsf_makeValue(humanInfoPath, "outorddr"   , "string", patInfoList.getColumn(iRow, "outorddr"));
        dsf_makeValue(humanInfoPath, "dschdd"     , "string", "");
        dsf_makeValue(humanInfoPath, "dschorddept", "string", "");
        dsf_makeValue(humanInfoPath, "dschorddr"  , "string", "");
        dsf_makeValue(humanInfoPath, "indd"       , "string", "");
        dsf_makeValue(humanInfoPath, "inorddept"  , "string", "");
        dsf_makeValue(humanInfoPath, "inorddr"    , "string", "");
        dsf_makeValue(humanInfoPath, "indg"       , "string", "");
        dsf_makeValue(humanInfoPath, "totinhospdayno", "string",  "");        
    }

	fReSetNode("P");    
}

/**
 * @desc   : 초기화버튼 클릭시
 * @param  : Ref
           : RsltRef
 * @return : void
 * @authur : 2007.12.10 나종천
 * @ 기타  : 수정 이창록 2008/07/11
 * @---------------------------------------------------
 */
function fReSetNode(flag){
    if(flag == "A"){      
        ds_main_pathumtrainfo_cncrpatinfo.copyData(ds_init_pathumtrainfo_cncrpatinfo);
        ds_main_pathumtrainfo_relationinfo.copyData(ds_init_pathumtrainfo_relationinfo);
                
        ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.copyData(ds_init_cncrpatrgst_cureinfo_chosbfcuremthd);
        ds_main_cncrpatrgst_cureinfo_metstaspart.copyData(ds_init_cncrpatrgst_cureinfo_metstaspart);
        ds_main_cncrpatrgst_cureinfo_prmypart.copyData(ds_init_cncrpatrgst_cureinfo_prmypart);
        ds_main_cncrpatrgst_dethinfo.copyData(ds_init_cncrpatrgst_dethinfo);
        ds_main_cncrpatrgst_dethinfo_existterm.copyData(ds_init_cncrpatrgst_dethinfo_existterm);
        ds_main_cncrpatrgst_regstatus.copyData(ds_init_cncrpatrgst_regstatus);
        ds_main_cncrpatrgst_regstatus_cncrnoinfo.copyData(ds_init_cncrpatrgst_regstatus_cncrnoinfo);
        ds_main_cncrpatrgst_rerntmetstaspart.copyData(ds_init_cncrpatrgst_rerntmetstaspart);               
                
        ds_main_humaninfo_cncrhist_histlist.copyData(ds_init_humaninfo_cncrhist_histlist);                
        ds_main_humaninfo_doainfo_list.copyData(ds_init_humaninfo_doainfo_list);
        
        ds_main_common_out_outdeptlist_dept.clearData();        
        ds_main_common_dsch_dschdeptlist_dept.clearData();        
        ds_main_common_in_indeptlist_dept.clearData();
        //ds_hidden_pathumtrainfo_cncrpatinfo
        switch1.case2.cmb_dethplce.enable 	= true;
        switch1.case2.ipt_dethdd.enable     = true;
        switch1.case2.ipt_dethcascd.enable  = true;
        switch1.case2.ipt_yearcnt.enable    = true;
        switch1.case2.ipt_monthcnt.enable   = true;
        
        fBtnSetting(false);
    } else if(flag == "P"){
        ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.copyData(ds_init_cncrpatrgst_cureinfo_chosbfcuremthd);
        ds_main_cncrpatrgst_cureinfo_metstaspart.copyData(ds_init_cncrpatrgst_cureinfo_metstaspart);
        ds_main_cncrpatrgst_cureinfo_prmypart.copyData(ds_init_cncrpatrgst_cureinfo_prmypart);
        ds_main_cncrpatrgst_dethinfo.copyData(ds_init_cncrpatrgst_dethinfo);
        ds_main_cncrpatrgst_dethinfo_existterm.copyData(ds_init_cncrpatrgst_dethinfo_existterm);
        ds_main_cncrpatrgst_regstatus.copyData(ds_init_cncrpatrgst_regstatus);
        ds_main_cncrpatrgst_regstatus_cncrnoinfo.copyData(ds_init_cncrpatrgst_regstatus_cncrnoinfo);
        ds_main_cncrpatrgst_rerntmetstaspart.copyData(ds_init_cncrpatrgst_rerntmetstaspart);   
    }
   // model.refresh();
}

/**
 * @desc   : 버튼 disabled
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fBtnSetting(bool){
	bool = !bool;
	switch1.case2.ipt_cureopendd.enable 			= bool;
	switch1.case2.cmb_dethplce.enable 				= bool;
	switch1.case2.ipt_dethdd.enable 				= bool;
	switch1.case2.ipt_dethcascd.enable 				= bool;
	switch1.case2.ipt_yearcnt.enable 				= bool;
	switch1.case2.ipt_monthcnt.enable 				= bool;
	switch1.case2.ipt_rerntmetstaspartcd1.enable 	= bool;
	switch1.case2.ipt_rerntmetstaspart1.enable 		= bool;
	switch1.case2.ipt_rerntmetstaspartcd2.enable 	= bool;
	switch1.case2.ipt_rerntmetstaspart2.enable 		= bool;
	switch1.case2.ipt_rerntmetstaspartcd3.enable 	= bool;
	switch1.case2.ipt_rerntmetstaspart3.enable 		= bool;
	switch1.case2.ipt_rerntmetstaspartcd4.enable 	= bool;
	switch1.case2.ipt_rerntmetstaspart4.enable 		= bool;
	switch1.case2.ipt_ecogcd.enable 				= bool;
	switch1.case2.cmb_ecog.enable 					= bool;
	switch1.case2.ipt_regimencd1.enable 			= bool;	
	switch1.case2.cmb_regimen1.enable 				= bool;
	switch1.case2.ipt_regimencd2.enable 			= bool;
	switch1.case2.cmb_regimen2.enable 				= bool;	

    if(ds_main_cncrpatrgst_regstatus.getColumn(0, "flag") == "2"){
        switch1.case2.ipt_cncrno.enable = !bool;
        switch1.case2.cmb_prmycncryn.enable = !bool;
        switch1.case2.cmb_sickstat.enable = !bool;
        switch1.case2.ipt_diagdd.enable = !bool;
        switch1.case2.cmb_diaghospinfo.enable = !bool;
        switch1.case2.ipt_diagdrid.enable = !bool;
        switch1.case2.cmb_lastdiagmthd.enable = !bool;
        switch1.case2.chk_clin.enable = !bool;
        switch1.case2.ipt_clin.enable = !bool;
        switch1.case2.ipt_tophcd.enable = !bool;
        switch1.case2.ipt_tophinfo.enable = !bool;
        switch1.case2.ipt_morphcd1.enable = !bool;
        switch1.case2.ipt_morphinfo1.enable = !bool;
        switch1.case2.ipt_morphcd2.enable = !bool;
        switch1.case2.ipt_morphinfo2.enable = !bool;
        switch1.case2.ipt_icd10cd.enable = !bool;
        switch1.case2.ipt_icd10nm.enable = !bool;
        switch1.case2.ipt_difrntgrdecd.enable = !bool;
        switch1.case2.cmb_difrntgrde.enable = !bool;
        switch1.case2.ipt_seercd.enable = !bool;
        switch1.case2.cmb_seer.enable = !bool;
        switch1.case2.ipt_tcd.enable = !bool;
        switch1.case2.cmb_t.enable = !bool;
        switch1.case2.ipt_ncd.enable = !bool;
        switch1.case2.cmb_n.enable = !bool;
        switch1.case2.ipt_mcd.enable = !bool;
        switch1.case2.cmb_m.enable = !bool;
        switch1.case2.ipt_stagcd.enable = !bool;
        switch1.case2.cmb_staging.enable = !bool;
        switch1.case2.ipt_etcstagflagcd.enable = !bool;
        switch1.case2.cmb_etcstagflag.enable = !bool;
        switch1.case2.ipt_etcstagcnts.enable = !bool;
    } else {
        switch1.case2.ipt_cncrno.enable = bool;
        switch1.case2.cmb_prmycncryn.enable = bool;
        switch1.case2.cmb_sickstat.enable = bool;
        switch1.case2.ipt_diagdd.enable = bool;
        switch1.case2.cmb_diaghospinfo.enable = bool;
        switch1.case2.ipt_diagdrid.enable = bool;
        switch1.case2.cmb_lastdiagmthd.enable = bool;
        switch1.case2.chk_clin.enable = bool;
        switch1.case2.ipt_clin.enable = bool;
        switch1.case2.ipt_tophcd.enable = bool;
        switch1.case2.ipt_tophinfo.enable = bool;
        switch1.case2.ipt_morphcd1.enable = bool;
        switch1.case2.ipt_morphinfo1.enable = bool;
        switch1.case2.ipt_morphcd2.enable = bool;
        switch1.case2.ipt_morphinfo2.enable = bool;
        switch1.case2.ipt_icd10cd.enable = bool;
        switch1.case2.ipt_icd10nm.enable = bool;
        switch1.case2.ipt_difrntgrdecd.enable = bool;
        switch1.case2.cmb_difrntgrde.enable = bool;
        switch1.case2.ipt_seercd.enable = bool;
        switch1.case2.cmb_seer.enable = bool;
        switch1.case2.ipt_tcd.enable = bool;
        switch1.case2.cmb_t.enable = bool;
        switch1.case2.ipt_ncd.enable = bool;
        switch1.case2.cmb_n.enable = bool;
        switch1.case2.ipt_mcd.enable = bool;
        switch1.case2.cmb_m.enable = bool;
        switch1.case2.ipt_stagcd.enable = bool;
        switch1.case2.cmb_staging.enable = bool;
        switch1.case2.ipt_etcstagflagcd.enable = bool;
        switch1.case2.cmb_etcstagflag.enable = bool;
        switch1.case2.ipt_etcstagcnts.enable = bool;
    }
}

/**
 * @desc   : 암환자등록탭에서 암등록번호 자동 채번 시 이전 상세 정보 reset
 * @param  :
 * @return : void
 * @authur : 주희경 2009-12-16
 * @ 기타  :
 * @---------------------------------------------------
 */
function resetDetailData()
{
	ds_main_cncrpatrgst_regstatus.setColumn(0, "cureopendd", "");	//치료개시일자
	ds_main_cncrpatrgst_regstatus.setColumn(0, "sickstat", "");		//등록시 질병상태
	ds_main_cncrpatrgst_dethinfo.clearData();						//사망정보
	ds_main_cncrpatrgst_dethinfo.addRow();
	ds_main_cncrpatrgst_diaginfo.clearData();						//진단정보 
	ds_main_cncrpatrgst_diaginfo.addRow();
	ds_main_cncrpatrgst_rerntmetstaspart.clearData();				//원격전이부위
	ds_main_cncrpatrgst_rerntmetstaspart.addRow();
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.clearData();		//내원전치료 그리드
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addRow();
	ds_main_cncrpatrgst_cureinfo_prmypart.clearData();				//원발부위치료방법 그리드
	ds_main_cncrpatrgst_cureinfo_prmypart.addRow();
	ds_main_cncrpatrgst_cureinfo_metstaspart.clearData(); 			//전이부위치료방법 그리드
	ds_main_cncrpatrgst_cureinfo_metstaspart.addRow();
	
	//model.makeNode("/root/main/cncrpatrgst/cureinfo/chosbfcuremthd");	//내원전치료 그리드
	//model.makeNode("root/main/cncrpatrgst/cureinfo/prmypart");				//원발부위치료방법 그리드
	//model.makeNode("/root/main/cncrpatrgst/cureinfo/metstaspart");				//전이부위치료방법 그리드
}

/**
 * @desc   : 암등록번호 생성
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fGetCncrNo(){

    if((ds_main_cncrpatrgst_regstatus.getColumn(0, "flag") == "1")||
		utlf_isNull(ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"))){
		dsf_makeValue(ds_send_reqdata, "flag", "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"));
		if(utlf_isNull(ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd"))){
			dsf_makeValue(ds_send_reqdata, "dschdd", "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "orddd"));
		}else{
			dsf_makeValue(ds_send_reqdata, "dschdd", "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd"));
		}
		
		var oParam = {};
			oParam.id          = "TRMRD00103";
			oParam.service     = "dschanalyapp.CncrPatMngt";
			oParam.method      = "reqGetCncrNo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_cncrpatrgst_regstatus_cncrnoinfo=cncrnoinfo";
			oParam.async       = false;			

		tranf_submit(oParam);
		
		
		
		var cncrno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
		cncrno = utlf_transNullToEmpty(cncrno).substr(0, 4) + "-" + utlf_transNullToEmpty(cncrno).substr(4, cncrno.length);
		
		ds_main_cncrpatrgst_regstatus_cncrnoinfo.setColumn(0, "cncrno", cncrno);		
        ds_init_cncrpatrgst_regstatus_cncrnoinfo.copyData(ds_main_cncrpatrgst_regstatus_cncrnoinfo);				
				
		ds_send_reqdata.clearData();
		ds_send_reqdata.addRow();
		
		var prmycncryn = ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn");
		if ( prmycncryn == "Y" )		//다발성원발암여부가 Y일 경우 히스토리 번호로 다시 채번
			 fGetCncrHistNo();            
    }
}

var cncrrgstpatlistXML = "";

function fSrchCncrPatRgst(){
    dsf_makeValue(ds_send_reqdata, "ordtype", "string", 	ds_main_srchcncrpat.getColumn(0, "ordtype"));
    dsf_makeValue(ds_send_reqdata, "fromdd", "string", 		ds_main_srchcncrpat.getColumn(0, "fromdd"));
    dsf_makeValue(ds_send_reqdata, "todd", "string", 		ds_main_srchcncrpat.getColumn(0, "todd"));
    dsf_makeValue(ds_send_reqdata, "orddeptcd", "string", 	ds_main_srchcncrpat.getColumn(0, "deptinfo"));
    dsf_makeValue(ds_send_reqdata, "orddrid", "string", 	ds_main_srchcncrpat.getColumn(0, "drinfo"));
    dsf_makeValue(ds_send_reqdata, "srchflag", "string", 	ds_main_srchcncrpat.getColumn(0, "srchflag"));

    dsf_makeValue(ds_send_reqdata, "cncryn", "string", 		cncryn);
    dsf_makeValue(ds_send_reqdata, "dethyn", "string", 		ds_main_srchcncrpat.getColumn(0, "dethyn"));
    dsf_makeValue(ds_send_reqdata, "dschfromdd", "string", 	ds_main_srchcncrpat.getColumn(0, "dschfromdd"));
    dsf_makeValue(ds_send_reqdata, "dschtodd", "string", 	ds_main_srchcncrpat.getColumn(0, "dschtodd"));
    
    var oParam = {};
		oParam.id          = "TRMRD00106";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqGetCncrPatRgst";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cncrrgstpatlist_list=cncrpatinfo";
		oParam.async       = false;		

	tranf_submit(oParam);
  
	cncrrgstpatlistXML = ds_main_cncrrgstpatlist_list.saveXML();        
        
    ds_send_reqdata.clearData();
    ds_send_reqdata.addRow();
}

/**
 * @desc   : 선택된 진료의 조회
 * @param  : Ref     - 진료과코드 instance xPath
           : RsltRef - 진료의 리스트 instance xPath
           : drlist
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fChngSrchCond(deptref, drref){      
   ds_send_reqdata.clearData();
   
   var sDutplceCD = deptref;
   var sdschDD = ds_main_humaninfo_inpatinfo_patlist.getColumn(0, "dschdd");
   fGetDrList(ds_send_reqdata, "ds_main_common_drlist", sDutplceCD, "total");
   //copyNodeset(drref, "/root/main/common/drlist");
   drref.copyData(ds_main_common_drlist);   
}

/**
 * @desc   : 선택된 진료과의 진료의를 조회
 * @param  : Ref     - 진료과   instance xPath
           : RsltRef - 진료의 리스트 instance xPath
           : orddeptcd  - 진료과코드
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fGetDrList(ref, rsltRef, orddeptcd, queryflag){
   dsf_makeValue(ref, "orddeptcd" , "string", orddeptcd);
   dsf_makeValue(ref, "queryflag" , "string", queryflag);
 
   //submit("TRMRF02303", true, ref, rsltRef);
   var oParam = {};
		oParam.id          = "TRMRF02303";
		oParam.service     = "formmngtapp.OcrPrntMngt";
		oParam.method      = "reqGetOrdDrID";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_common_drlist=drlist";
		oParam.async       = false;		

	tranf_submit(oParam);
}

/**
 * @desc   : 암등록환자 조회리스트 더블 클릭시 암등록 화면 탭과 연계
 * @param  : Ref
 * @return : void
 * @authur : 2007.12.10 나종천
 * @ 기타  : 수정 이창록 2008-12-16
 * @---------------------------------------------------
 */
function fCncrRgstlist(iRow){
    var cncr_histno = ds_main_cncrrgstpatlist_list.getColumn(iRow, "cncr_histno");
    var pat_pid 	= ds_main_cncrrgstpatlist_list.getColumn(iRow, "pid");
    var pat_ordtype = ds_main_cncrrgstpatlist_list.getColumn(iRow, "ordtype");
    var i = 0;    
    switch1.tabindex = 1;
        
    ds_main_humaninfo_cncrhist_histlist.clearData();
    
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pid", "string", "");
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pnm", "string", "");
   
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pid", "string", pat_pid);
    
	switch1.case2.chk_cretchknum.value = "false";//2008-12-16 이창록 수정

	//==========================================	
	// 암센터, 의료정보 체크(20090213)
	var ordtype = ds_main_cncrrgstpatlist_list.getColumn(iRow, "ordtype");
	var searchdd = ds_main_cncrrgstpatlist_list.getColumn(iRow, "dschdd");
    
    if (ordtype == "O")
    {
        searchdd = searchdd + ds_main_cncrrgstpatlist_list.getColumn(iRow, "cretno");
    }	
	
	// searchdd는 입원일때는 퇴원일자, 외래일때는 진료일자를 넘김
    fGetPatinfo("Y", ordtype, searchdd);
    //==========================================	
    if(ds_main_srchcncrpat.getColumn(0, "srchflag") == "2"){
        var iRow_hist = ds_main_humaninfo_cncrhist_histlist.findRow(cncr_histno, cncr_histno);
        ds_main_humaninfo_cncrhist_histlist.rowposition = iRow_hist;
        ds_main_humaninfo_cncrhist_histlist.selectRow(ds_main_humaninfo_cncrhist_histlist.rowposition, true);
        fDisplay(iRow_hist);
    }
}

/**
 * @desc   : 암등록환자상세 조회
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fDisplay(iRow){


    //var trgXpath:Dataset;
    //trgXpath = ds_main_cncrpatrgst;
    var srcXpath:Dataset;
    srcXpath = ds_main_humaninfo_cncrhist_histlist;
    //var ref = srcXpath;
    var ordtype = srcXpath.getColumn(iRow, "ordtype");
    
    fPutPatInfo(iRow, srcXpath, ordtype)
    dsf_makeValue(ds_main_cncrpatrgst_regstatus_cncrnoinfo, "cncrno"             , "string", srcXpath.getColumn(iRow, "cncr_histno"));
    dsf_makeValue(ds_main_cncrpatrgst_regstatus, "seqno"                         , "string", srcXpath.getColumn(iRow, "seqno"));
    dsf_makeValue(ds_main_cncrpatrgst_regstatus, "prmycncryn"                    , "string", srcXpath.getColumn(iRow, "prmycncryn"));
    dsf_makeValue(ds_main_cncrpatrgst_regstatus, "sickstat"                      , "string", srcXpath.getColumn(iRow, "sickstatcd"));
    dsf_makeValue(ds_main_cncrpatrgst_regstatus, "cureopendd"                    , "string", srcXpath.getColumn(iRow, "cureopendd"));
    dsf_makeValue(ds_main_cncrpatrgst_dethinfo, "dethplce"                       , "string", srcXpath.getColumn(iRow, "dethplcecd"));
    dsf_makeValue(ds_main_cncrpatrgst_dethinfo, "dethdd"                         , "string", srcXpath.getColumn(iRow, "dethdd"));
    dsf_makeValue(ds_main_cncrpatrgst_dethinfo, "dethcascd"                      , "string", srcXpath.getColumn(iRow, "dethcause"));
    dsf_makeValue(ds_main_cncrpatrgst_dethinfo_existterm, "yearcnt"              , "string", srcXpath.getColumn(iRow, "yearcnt"));
    dsf_makeValue(ds_main_cncrpatrgst_dethinfo_existterm, "monthcnt"             , "string", srcXpath.getColumn(iRow, "monthcnt"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "diagdd"                         , "string", srcXpath.getColumn(iRow, "diagdd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "diaghospinfo"                   , "string", srcXpath.getColumn(iRow, "diaghospcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcdiaghospnm"                  , "string", srcXpath.getColumn(iRow, "etcdiaghospnm"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "diagdrid"                       , "string", srcXpath.getColumn(iRow, "diagdrid"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "lastdiagmthd"                   , "string", srcXpath.getColumn(iRow, "lastdiagmthdcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "clinical"                       , "string", srcXpath.getColumn(iRow, "clinical"));
    
    var getData = utlf_transNullToEmpty(ds_main_cncrpatrgst_diaginfo.getColumn(0, "clinical")).split(" ");

    switch1.case2.chk_clin.setCheckAll(false, false);
	switch1.case2.chk_clin.setData(getData,null,false);
    
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcclinical"                    , "string", srcXpath.getColumn(iRow, "etcclinical"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "tophcd"                         , "string", srcXpath.getColumn(iRow, "tophcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "tophnm"                         , "string", srcXpath.getColumn(iRow, "tophnm"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "tophinfo"                       , "string", srcXpath.getColumn(iRow, "tophseqno"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphcd1"                       , "string", srcXpath.getColumn(iRow, "morphcd1"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphnm1"                       , "string", srcXpath.getColumn(iRow, "morphnm1"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphinfo1"                     , "string", srcXpath.getColumn(iRow, "morphseqno1"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphcd2"                       , "string", srcXpath.getColumn(iRow, "morphcd2"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphnm2"                       , "string", srcXpath.getColumn(iRow, "morphnm2"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "morphinfo2"                     , "string", srcXpath.getColumn(iRow, "morphseqno2"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "icd10cd"                        , "string", srcXpath.getColumn(iRow, "icd10cd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "icd10nm"                        , "string", srcXpath.getColumn(iRow, "icd10nm"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "difrntgrdecd"                   , "string", srcXpath.getColumn(iRow, "difrntgrdecd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "difrntgrde"                     , "string", srcXpath.getColumn(iRow, "difrntgrdecd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "seercd"                         , "string", srcXpath.getColumn(iRow, "seer"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "seer"                           , "string", srcXpath.getColumn(iRow, "seer"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "tcd"                            , "string", srcXpath.getColumn(iRow, "t"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "t"                              , "string", srcXpath.getColumn(iRow, "t"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "ncd"                            , "string", srcXpath.getColumn(iRow, "n"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "n"                              , "string", srcXpath.getColumn(iRow, "n"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "mcd"                            , "string", srcXpath.getColumn(iRow, "m"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "m"                              , "string", srcXpath.getColumn(iRow, "m"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "stagcd"                         , "string", srcXpath.getColumn(iRow, "stagingcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "staging"                        , "string", srcXpath.getColumn(iRow, "stagingcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcstagflagcd"                  , "string", srcXpath.getColumn(iRow, "etcstagflagcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcstagflag"                    , "string", srcXpath.getColumn(iRow, "etcstagflagcd"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcstagcnts"                    , "string", srcXpath.getColumn(iRow, "etcstagcnts"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "diagroute"                      , "string", srcXpath.getColumn(iRow, "diagroute"));
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "laterality"                     , "string", srcXpath.getColumn(iRow, "laterality"));
    //2013/06/19 Start
    var diagroute = srcXpath.getColumn(iRow, "diagroute");
    if(diagroute=="5"){
    	switch1.case2.ipt_etcdiagroute.enable = true;
    }else{
    	switch1.case2.ipt_etcdiagroute.enable = false;
    }
    dsf_makeValue(ds_main_cncrpatrgst_diaginfo, "etcdiagroute"                   , "string", srcXpath.getColumn(iRow, "etcdiagroute"));
    //2013/06/19 End
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartcd1"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartcd1"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartnm1"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartnm1"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspart1"      , "string", srcXpath.getColumn(iRow, "rerntmetstaspartseq1"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartcd2"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartcd2"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartnm2"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartnm2"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspart2"      , "string", srcXpath.getColumn(iRow, "rerntmetstaspartseq2"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartcd3"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartcd3"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartnm3"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartnm3"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspart3"      , "string", srcXpath.getColumn(iRow, "rerntmetstaspartseq3"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartcd4"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartcd4"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspartnm4"    , "string", srcXpath.getColumn(iRow, "rerntmetstaspartnm4"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "rerntmetstaspart4"      , "string", srcXpath.getColumn(iRow, "rerntmetstaspartseq4"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "ecogcd"                 , "string", srcXpath.getColumn(iRow, "ecog"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "ecog"                   , "string", srcXpath.getColumn(iRow, "ecog"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "regimencd1"             , "string", srcXpath.getColumn(iRow, "regimen1"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "regimen1"               , "string", srcXpath.getColumn(iRow, "regimen1"));
    
    var code = ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "regimencd1");
	fGetRegimenDet(code);
    
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "regimencd2"             , "string", srcXpath.getColumn(iRow, "regimen2"));
    dsf_makeValue(ds_main_cncrpatrgst_rerntmetstaspart, "regimen2"               , "string", srcXpath.getColumn(iRow, "regimen2"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "relausernm"  			 , "string", srcXpath.getColumn(iRow, "reluserhngnm"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "relation"    			 , "string", srcXpath.getColumn(iRow, "relation"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "zipcode1"    			 , "string", srcXpath.getColumn(iRow, "relzipcd1"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "zipcode2"    			 , "string", srcXpath.getColumn(iRow, "relzipcd2"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "addr"        			 , "string", srcXpath.getColumn(iRow, "reladdr"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "detaddr"     			 , "string", srcXpath.getColumn(iRow, "reldetaddr"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "mpphontel"   			 , "string", srcXpath.getColumn(iRow, "relmpphontel"));
    dsf_makeValue(ds_main_pathumtrainfo_relationinfo, "hometel"     			 , "string", srcXpath.getColumn(iRow, "relhometel"));

    switch1.case2.cap_rgstrnm.text 	= srcXpath.getColumn(iRow, "lastrgstrnm");
    switch1.case2.cap_rgstdt.text	= srcXpath.getColumn(iRow, "lastupdtdt").substr(0,4)+'-'+srcXpath.getColumn(iRow, "lastupdtdt").substr(4,2)+'-'+srcXpath.getColumn(iRow, "lastupdtdt").substr(6,2)+' '+srcXpath.getColumn(iRow, "lastupdtdt").substr(8,2)+':'+srcXpath.getColumn(iRow, "lastupdtdt").substr(10,2)+':'+srcXpath.getColumn(iRow, "lastupdtdt").substr(12,2);
    
    dsf_makeValue(ds_send_reqdata, "cncrno"                         			 , "string", srcXpath.getColumn(iRow, "cncrno"));
    dsf_makeValue(ds_send_reqdata, "cncrhistno"                     			 , "string", srcXpath.getColumn(iRow, "cncrhistno"));
    dsf_makeValue(ds_send_reqdata, "seqno"                          			 , "string", srcXpath.getColumn(iRow, "seqno"));
    dsf_makeValue(ds_send_reqdata, "instcd"                         			 , "string", srcXpath.getColumn(iRow, "instcd"));
	
	var oParam = {};
		oParam.id          = "TRMRD00102";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqGetCureInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cncrpatrgst_cureinfo_chosbfcuremthd=bflist ds_main_cncrpatrgst_cureinfo_metstaspart=melist ds_main_cncrpatrgst_cureinfo_prmypart=prlist";
		oParam.async       = false;
		oParam.callback    = "cf_TRMRD00102";

	tranf_submit(oParam);
	
	
		
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addColumn("chosbfcuremthd", "string");
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.getColumn(i, "chosbfcurecd"));
		ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.setColumn(i, "chosbfcuremthd", ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.getColumn(i, "chosbfcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = true;
	
	ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("metstaspartcd", "string");
	ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_metstaspart.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartcurecd"));
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "metstaspartcd", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = true;
	
	ds_main_cncrpatrgst_cureinfo_metstaspart.updateColID("metstaspartcuredd", "metstaspartdd"); 
	
	ds_main_cncrpatrgst_cureinfo_prmypart.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_prmypart.addColumn("prmypartcd", "string");
	ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_prmypart.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcurecd"));
		ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "prmypartcd", ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = true;

    if(arErrorCode.pop("TRMRD00102") > -1){
        var cncrno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");        
        if(cncrno.lastIndexOf("-") > 4){
            ds_main_cncrpatrgst_regstatus.setColumn(0, "flag","");
        }else{
            ds_main_cncrpatrgst_regstatus.setColumn(0, "flag","1");            
        }
        fBtnSetting(false);
        sysf_messageBox("조회가", "I002");
    } else {
        sysf_messageBox("조회를", "E009");
    }    
    ds_send_reqdata.clearData();
    ds_send_reqdata.addRow();
    
//     var code = ds_main_cncrpatrgst_diaginfo.getColumn(0, "diaghospinfo");  
//     if ( !utlf_isNull(code) && utlf_transNullToEmpty(code).substr(0,2) != "01" )
//     {    
//     	var hospnm = ds_main_common_Z0007.lookup("cdid", code, "cdnm");
// 		ds_main_cncrpatrgst_diaginfo.setColumn(0, "etcdiaghospnm" , hospnm); 		
//     }    
}

function cf_TRMRD00102(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**
 * @desc   : Regimen1코드에 맞는 Regimen2 조회
 * @param  :
 * @return : v0oid
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fGetRegimenDet(code){

	switch(code){
		case "01":			
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0396"}];
			appf_getCodeList(arrParam);
			
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);			
			break;
		case "02":			
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0397"}];
			appf_getCodeList(arrParam);
			
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "03":			
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0398"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "04":			
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0399"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "05":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0400"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "06":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0401"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "07":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0402"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);			
			break;
		case "08":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0403"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "09":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0404"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "10":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0405"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);			
			break;
		case "11":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0406"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "12":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0407"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "13":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0408"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "14":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0409"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
		case "15":
			var arrParam = [{dsNm: "ds_temp_com_common_regimenlist", cdGrpId: "M0410"}];
			appf_getCodeList(arrParam);
									
			ds_hidden_cncrpatrgst_rerntmetstaspart_regimen2.copyData(ds_temp_com_common_regimenlist);
			break;
    }        
    ds_temp_com_common_regimenlist.clearData();
}

/**
 * @desc   : (암등록환자조회)조회옵션에서 대상제외자료인 것은 저장
 * @param  :
 * @return : void
 * @authur :
 * @ 기타  :
 * @---------------------------------------------------
 */
function fSaveDataExpt(){
    var iRow = ds_main_cncrrgstpatlist_list.rowposition;
    
    ds_send_reqdata.clearData();    
    ds_send_reqdata_exptlist.clearData();
    
    var updateData = grdf_getGridUpdateData(switch1.case1.grd_cncrrgstlist);
	grdf_setStatusColumn(updateData, "m");
	ds_send_reqdata_exptlist.copyData(updateData);
	    
    dsf_makeValue(ds_send_reqdata, "ordtype", "string", 	ds_main_srchcncrpat.getColumn(0, "ordtype"));
    dsf_makeValue(ds_send_reqdata, "fromdd", "string", 		ds_main_srchcncrpat.getColumn(0, "fromdd"));
    dsf_makeValue(ds_send_reqdata, "todd", "string", 		ds_main_srchcncrpat.getColumn(0, "todd"));
    dsf_makeValue(ds_send_reqdata, "orddeptcd", "string", 	ds_main_srchcncrpat.getColumn(0, "deptinfo"));
    dsf_makeValue(ds_send_reqdata, "orddrid", "string", 	ds_main_srchcncrpat.getColumn(0, "drinfo"));
    dsf_makeValue(ds_send_reqdata, "srchflag", "string", 	ds_main_srchcncrpat.getColumn(0, "srchflag"));
    dsf_makeValue(ds_send_reqdata, "cncryn", "string", 		cncryn);
    
    var oParam = {};
		oParam.id          = "TXMRD00103";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqExeExptCncrResn";
		oParam.inds        = "req=ds_send_reqdata_exptlist reqsrch=ds_send_reqdata";		
		oParam.outds       = "ds_main_cncrrgstpatlist_list=cncrpatinfo";		
		oParam.async       = false;		

	tranf_submit(oParam);
}

function fSetCode(resref, ref){
    model.makeValue(resref, model.getValue(ref));
    model.refresh();
}

/**
 * @desc   : 암용어 검색팝업과 연계
 * @param  : 2008-12-04 이창록 수정(암환자 용어검색팝업과 연계)
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fSrchTerm(flag,code){
    var ordtype = ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "ordtype");
    var dschdd 	= ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd");
    
    var orddd 	= ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "orddd");
    
	if(flag == "toph"){		
		ds_temp_terminfo_tplinfo.clearData();
		ds_temp_terminfo_icdo3info.clearData();
		ds_temp_terminfo_icd10info.clearData();
		
		if(ordtype=="I"){
			frmf_setParameter("stndd",dschdd);
		}else if(ordtype=="O"){
			frmf_setParameter("stndd",orddd);
		}else if(ordtype=="S"){
			frmf_setParameter("stndd",orddd);
		}
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");
		frmf_setParameter("SPMRT01700_ipt_tophcd", "ipt_tophcd");
		                   
				
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophcd", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophnm", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophinfo", 	ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_icdo3info.rowcount > 0){
			if(ds_temp_terminfo_icdo3info.rowcount > 1){
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo2"		, ds_temp_terminfo_icdo3info.getColumn(1, "seqno"));
			}else{
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
			}
		}
		if(ds_temp_terminfo_icd10info.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10cd", ds_temp_terminfo_icd10info.getColumn(0, "diagcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10nm", ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
		}
	}else if(flag == "morph1"){		
		ds_temp_terminfo_tplinfo.clearData();
		ds_temp_terminfo_icdo3info.clearData();
		ds_temp_terminfo_icd10info.clearData();
		
		if(ordtype=="I"){
			frmf_setParameter("stndd",dschdd);
		}else if(ordtype=="O"){
			frmf_setParameter("stndd",orddd);
		}
		
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "2");
		//modal("SPMRT01700");
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophcd", ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophnm", ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophinfo", ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if( ds_temp_terminfo_icdo3info.rowcount > 0){
			if(ds_temp_terminfo_icdo3info.rowcount > 1){
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo2"		, ds_temp_terminfo_icdo3info.getColumn(1, "seqno"));				
			}else{
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
			}
		}
		if( ds_temp_terminfo_icd10info.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10cd", ds_temp_terminfo_icd10info.getColumn(0, "diagcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10nm", ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
		}
	}else if(flag == "morph2"){		
		ds_temp_terminfo_tplinfo.clearData();
		ds_temp_terminfo_icdo3info.clearData();
		ds_temp_terminfo_icd10info.clearData();
		
		if(ordtype=="I"){
			frmf_setParameter("stndd",dschdd);
		}else if(ordtype=="O"){
			frmf_setParameter("stndd",orddd);
		}
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "2");
		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		
		if(frmf_getParameter("SPMRT01700_FLAG") == ""){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophcd", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophnm", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophinfo", 	ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_icdo3info.rowcount > 0){
			if(ds_temp_terminfo_icdo3info.rowcount > 1){
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1", 		ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1", 		ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1", 	ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd2", 		ds_temp_terminfo_icdo3info.getColumn(1, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm2", 		ds_temp_terminfo_icdo3info.getColumn(1, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo2", 	ds_temp_terminfo_icdo3info.getColumn(1, "seqno"));
			}else{
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1", 		ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1", 		ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1", 	ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
			}
		}
		if(ds_temp_terminfo_icd10info.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10cd", ds_temp_terminfo_icd10info.getColumn(0, "diagcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10nm", ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
		}
	}else if(flag == "icd10"){		
		ds_temp_terminfo_tplinfo.clearData();
		ds_temp_terminfo_icdo3info.clearData();
		ds_temp_terminfo_icd10info.clearData();
		
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "3");
		if(ordtype=="I"){
			frmf_setParameter("stndd",dschdd);
		}else if(ordtype=="O"){
			frmf_setParameter("stndd",orddd);
		}		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		
		if(frmf_getParameter("SPMRT01700_FLAG") == ""){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophcd", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophnm", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "tophinfo", 	ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_icdo3info.rowcount > 0){
			if(ds_temp_terminfo_icdo3info.rowcount >1){
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm2"		, ds_temp_terminfo_icdo3info.getColumn(1, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo2"		, ds_temp_terminfo_icdo3info.getColumn(1, "seqno"));
			}else{
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphcd1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphnm1"		, ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
				ds_main_cncrpatrgst_diaginfo.setColumn(0, "morphinfo1"		, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
			}
		}
		if(ds_temp_terminfo_icd10info.rowcount > 0){
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10cd", ds_temp_terminfo_icd10info.getColumn(0, "diagcd"));
			ds_main_cncrpatrgst_diaginfo.setColumn(0, "icd10nm", ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
		}
	}    
    ds_send_reqdata.clearData();
    ds_send_reqdata.addRow();    
}

/**
 * @desc   : 암등록이력번호 생성(다발성 원발암)
 * @param  :
 * @return : v0oid
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fGetCncrHistNo(){

    if(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "Y"){
        dsf_makeValue(ds_send_reqdata, "prmycncryn", "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn"));
        dsf_makeValue(ds_send_reqdata, "flag"      , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"));
        var histno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
        histno = utlf_transNullToEmpty(histno).substr(0, 4) + utlf_transNullToEmpty(histno).substr(5,9);
        if(histno.lastIndexOf("-") > 0){
            dsf_makeValue(ds_send_reqdata, "cncrno", "string", histno);
        } else {
            dsf_makeValue(ds_send_reqdata, "cncrno", "string", histno);
        }
		
		var oParam = {};
			oParam.id          = "TRMRD00103";
			oParam.service     = "dschanalyapp.CncrPatMngt";
			oParam.method      = "reqGetCncrNo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_cncrpatrgst_regstatus_cncrnoinfo=cncrnoinfo";
			oParam.async       = false;			

		tranf_submit(oParam);
		
    } else if(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "N"){
        var Flag 		= ds_main_cncrpatrgst_regstatus.getColumn(0, "flag");
        var sCncrNo 	= ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno")
        CncrNo = utlf_transNullToEmpty(sCncrNo).substring(0, 4) + utlf_transNullToEmpty(sCncrNo).substring(5,9);
        if(Flag!="1"){
            dsf_makeValue(ds_send_reqdata, "prmycncryn"	, "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn"));
            dsf_makeValue(ds_send_reqdata, "cncrno"     , "string", CncrNo);
            dsf_makeValue(ds_send_reqdata, "flag"       , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"));
			if(utlf_isNull(ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd"))){
				dsf_makeValue(ds_send_reqdata, "dschdd", "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "orddd"));
			}else{
				dsf_makeValue(ds_send_reqdata, "dschdd", "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd"));
			}
        }else if(Flag=="1"){
            dsf_makeValue(ds_send_reqdata, "prmycncryn"	, "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn"));
            dsf_makeValue(ds_send_reqdata, "cncrno"     , "string", ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
            dsf_makeValue(ds_send_reqdata, "flag"       , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"));
        }
        
        var oParam = {};
			oParam.id          = "TRMRD00103";
			oParam.service     = "dschanalyapp.CncrPatMngt";
			oParam.method      = "reqGetCncrNo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_cncrpatrgst_regstatus_cncrnoinfo=cncrnoinfo";
			oParam.async       = false;			

		tranf_submit(oParam);
    }
    if(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "Y"){
        var cncrno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
        cncrno = utlf_transNullToEmpty(cncrno).substr(0, 4) + "-" + utlf_transNullToEmpty(cncrno).substr(4, cncrno.length);
        ds_main_cncrpatrgst_regstatus_cncrnoinfo.setColumn(0, "cncrno", cncrno);        
        ds_send_reqdata.clearData();
        ds_send_reqdata.addRow();
    }else if(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "N"){
        if(Flag!="1"){
            var cncrno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
            cncrno = utlf_transNullToEmpty(cncrno).substr(0, 4) + "-" + utlf_transNullToEmpty(cncrno).substr(4,8);
            ds_main_cncrpatrgst_regstatus_cncrnoinfo.setColumn(0, "cncrno", cncrno);            
            ds_send_reqdata.clearData();
            ds_send_reqdata.addRow();
        }else if(Flag=="1"){
            var cncrno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
            cncrno = utlf_transNullToEmpty(cncrno).substr(0, 4) + "-" + utlf_transNullToEmpty(cncrno).substr(4, cncrno.length);
            ds_main_cncrpatrgst_regstatus_cncrnoinfo.setColumn(0, "cncrno", cncrno);
            ds_send_reqdata.clearData();
            ds_send_reqdata.addRow();
        }
    }
    
    ds_init_cncrpatrgst_regstatus_cncrnoinfo.copyData(ds_main_cncrpatrgst_regstatus_cncrnoinfo);				
}

/**
 * @desc   : 암등록번호삭제
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fDelCncrInfo(){
    //=================================================
    // 암센터, 의료정보 체크(20090213)
    // cncryn : 'Y'는 암센터, 'N'는 의료정보를 의미
    var instcd = sysf_getUserInfo("dutplceinstcd");
    var dutplcecd = sysf_getUserInfo("dutplcecd");
    var dschdd = ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd");

    //===============================================
    var cncr_histno = ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno");
    if (utlf_isNull(cncr_histno)) {
        cncr_histno = ds_main_humaninfo_cncrhist_histlist.getColumn(ds_main_humaninfo_cncrhist_histlist.rowposition, "cncrno");
    }
    sCncrNo = utlf_transNullToEmpty(cncr_histno).substr(0, 4) + utlf_transNullToEmpty(cncr_histno).substr(5, utlf_transNullToEmpty(cncr_histno).length);
    var cncrArry = utlf_transNullToEmpty(cncr_histno).split("-");
    if(cncr_histno.lastIndexOf("-") > 4){
        var cncrno = utlf_transNullToEmpty(cncr_histno).substr(0,4) + utlf_transNullToEmpty(cncr_histno).substr(5,9);
        var histno = utlf_transNullToEmpty(cncr_histno).substr(cncr_histno.lastIndexOf("-") + 1, utlf_transNullToEmpty(cncr_histno).length);
    } else {
        var cncrno = sCncrNo;
        var histno = "00";
    }
    dsf_makeValue(ds_send_reqdata, "cncrno", "string", 		cncrno);
    dsf_makeValue(ds_send_reqdata, "cncrhistno", "string", 	histno);
    dsf_makeValue(ds_send_reqdata, "seqno", "string", 		ds_main_cncrpatrgst_regstatus.getColumn(0, "seqno"));
    dsf_makeValue(ds_send_reqdata, "pid", "string", 		ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "pid"));
    dsf_makeValue(ds_send_reqdata, "lastupdtrid", "string", sysf_getUserInfo("userid"));
    if(ds_main_humaninfo_outpatinfo_patlist.rowcount > 0){        
        ds_cncrinfo_humaninfo_outpatinfo_patlist.copyData(ds_main_humaninfo_outpatinfo_patlist);
    }
    if(ds_main_humaninfo_inpatinfo_patlist.rowcount > 0){        
        ds_cncrinfo_humaninfo_inpatinfo_patlist.copyData(ds_main_humaninfo_inpatinfo_patlist);
    }
    dsf_makeValue(ds_send_reqdata, "cncrno", "string", 		ds_main_humaninfo_cncrhist_histlist.getColumn(ds_main_humaninfo_cncrhist_histlist.rowposition, "cncrno"));
    dsf_makeValue(ds_send_reqdata, "cncrhistno", "string", 	ds_main_humaninfo_cncrhist_histlist.getColumn(ds_main_humaninfo_cncrhist_histlist.rowposition, "cncrhistno"));
    dsf_makeValue(ds_send_reqdata, "seqno", "string", 		ds_main_humaninfo_cncrhist_histlist.getColumn(ds_main_humaninfo_cncrhist_histlist.rowposition, "seqno"));
    dsf_makeValue(ds_send_reqdata, "pid", "string", 		ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "pid"));
    dsf_makeValue(ds_send_reqdata, "lastupdtrid", "string", sysf_getUserInfo("userid"));
    
    
	//dsf_setDefaultVal(ds_send_reqdata, "cncrhistno:00");
	
	
	
    var oParam = {};
		oParam.id          = "TXMRD00102";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqDelCncrPat";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_humaninfo_cncrhist_histlist=cncrhistlist";
		oParam.async       = false;		

	tranf_submit(oParam);
        
    ds_send_reqdata.clearData();
    ds_send_reqdata.addRow();
    
    if(ds_cncrinfo_humaninfo_outpatinfo_patlist.rowcount > 0){        
        ds_main_humaninfo_outpatinfo_patlist.copyData(ds_cncrinfo_humaninfo_outpatinfo_patlist);
        ds_cncrinfo_humaninfo_outpatinfo_patlist.clearData();        
    }
    if(ds_cncrinfo_humaninfo_inpatinfo_patlist.rowcount > 0){        
        ds_main_humaninfo_inpatinfo_patlist.copyData(ds_cncrinfo_humaninfo_inpatinfo_patlist);        
        ds_cncrinfo_humaninfo_inpatinfo_patlist.clearData();
    }
	//copyNodeset("/root/main/cncrpatrgst", "/root/init/cncrpatrgst");		
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.copyData(ds_init_cncrpatrgst_cureinfo_chosbfcuremthd);
	ds_main_cncrpatrgst_cureinfo_metstaspart.copyData(ds_init_cncrpatrgst_cureinfo_metstaspart);
	ds_main_cncrpatrgst_cureinfo_prmypart.copyData(ds_init_cncrpatrgst_cureinfo_prmypart);
	ds_main_cncrpatrgst_dethinfo.copyData(ds_init_cncrpatrgst_dethinfo);
	ds_main_cncrpatrgst_dethinfo_existterm.copyData(ds_init_cncrpatrgst_dethinfo_existterm);
	ds_main_cncrpatrgst_regstatus.copyData(ds_init_cncrpatrgst_regstatus);
	ds_main_cncrpatrgst_regstatus_cncrnoinfo.copyData(ds_init_cncrpatrgst_regstatus_cncrnoinfo);
	ds_main_cncrpatrgst_rerntmetstaspart.copyData(ds_init_cncrpatrgst_rerntmetstaspart);
	
	ds_main_cncrpatrgst_diaginfo.clearData();
}

/**
 * @desc   : 원격전위여부 Tophology 코드조회
 * @param  :
 * @return : void
 * @authur :
 * @ 기타  : 추가 이창록 2008/12/06
 * @---------------------------------------------------
 */
function fSrchRernmspCd(flag,code){
	var ordtype =  ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "ordtype");
	var dschdd  =  ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd");
	var orddd   =  ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "orddd");
	frmf_clearParameter("SPMRT01700_SEARCHDATA");
	frmf_clearParameter("SPMRT01700_FLAG");
	frmf_clearParameter("stndd");	
	ds_temp_terminfo_tplinfo.clearData();
		
	if(ordtype=="I"){
		frmf_setParameter("stndd",dschdd);
	}else if(ordtype=="O"){
		frmf_setParameter("stndd",orddd);
	}
	if(flag == "1"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 1){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1" , ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1"	, ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1"	, ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 2){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 3){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 4){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd4", 	ds_temp_terminfo_tplinfo.getColumn(3, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm4", 	ds_temp_terminfo_tplinfo.getColumn(3, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart4", 		ds_temp_terminfo_tplinfo.getColumn(3, "seqno"));
		}
	}else if(flag =="2"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 1){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 2){
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setValue(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 3){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));			
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 4){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd4", 	ds_temp_terminfo_tplinfo.getColumn(3, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm4", 	ds_temp_terminfo_tplinfo.getColumn(3, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart4", 		ds_temp_terminfo_tplinfo.getColumn(3, "seqno"));
		}
	}else if(flag =="3"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");
		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 1){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_main_cncrpatrgst_rerntmetstaspart.rowcount == 2){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
		}
		if(ds_main_cncrpatrgst_rerntmetstaspart.rowcount == 3){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 4){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd4", 	ds_temp_terminfo_tplinfo.getColumn(3, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm4", 	ds_temp_terminfo_tplinfo.getColumn(3, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart4", 		ds_temp_terminfo_tplinfo.getColumn(3, "seqno"));
		}
	}else if(flag =="4"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 1){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd4", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm4", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart4", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 2){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 3){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
		}
		if(ds_temp_terminfo_tplinfo.rowcount == 4){
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd1", 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm1", 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart1", 		ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd2", 	ds_temp_terminfo_tplinfo.getColumn(1, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm2", 	ds_temp_terminfo_tplinfo.getColumn(1, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart2", 		ds_temp_terminfo_tplinfo.getColumn(1, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd3", 	ds_temp_terminfo_tplinfo.getColumn(2, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm3", 	ds_temp_terminfo_tplinfo.getColumn(2, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart3", 		ds_temp_terminfo_tplinfo.getColumn(2, "seqno"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartcd4", 	ds_temp_terminfo_tplinfo.getColumn(3, "tophlgcd"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspartnm4", 	ds_temp_terminfo_tplinfo.getColumn(3, "engnm"));
			ds_main_cncrpatrgst_rerntmetstaspart.setColumn(0, "rerntmetstaspart4", 		ds_temp_terminfo_tplinfo.getColumn(3, "seqno"));
		}
	}	
}

/**
 * @desc   : 저장
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15 2009-01-10 이창록 수정-> 암등록번호 체크 수정
 * @---------------------------------------------------
 */
function fSaveData(ordtype){

    //===============================================
    // 암센터, 의료정보 체크(20090213)
    // cncryn : 'Y'는 암센터, 'N'는 의료정보를 의미
    var instcd = sysf_getUserInfo("dutplceinstcd");
    var dutplcecd = sysf_getUserInfo("dutplcecd");
    var dschdd = ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd");
    //==============================================
    if((ds_main_cncrpatrgst_regstatus.getColumn(0, "sickstat") == "07") || (ds_main_cncrpatrgst_regstatus.getColumn(0, "sickstat") == "08")){
        if(utlf_isNull(ds_main_cncrpatrgst_dethinfo.getColumn(0, "dethdd")) || utlf_isNull(ds_main_cncrpatrgst_dethinfo.getColumn(0, "dethcascd"))){
            sysf_messageBox("사망일자 또는 사망원인이 입력되지", "E007");
            return;
        }
    }
    if(utlf_isNull(ds_main_cncrpatrgst_regstatus.getColumn(0, "sickstat"))){
        sysf_messageBox("등록시 질병상태가 입력되지", "E007" );
        return;
    }

    var nDiagdd = ds_main_cncrpatrgst_diaginfo.getColumn(0, "diagdd"); 
    if(utlf_isNull(nDiagdd)){
        sysf_messageBox("진단일자가 입력되지", "E007" );
        return;
    }else if(utlf_transNullToEmpty(nDiagdd).length != 8){
    	sysf_messageBox("진단일자가 정확하게 입력되지", "E007" );
        return;
    }

    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "tophcd")) || utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "tophinfo"))){
        sysf_messageBox("T-Code가 입력되지", "E007" );
        return;
    }

    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphcd1")) || utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphinfo1"))){
        sysf_messageBox("M-Code가 입력되지", "E007" );
        return;
    }

    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "icd10cd"))){
        sysf_messageBox("ICD10코드가 입력되지", "E007" );
        return;
    }

    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "seercd"))){
        sysf_messageBox("Seer코드가 입력되지", "E007" );
        return;
    }

    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "lastdiagmthd"))){
        sysf_messageBox("최종진단방법이 입력되지", "E007" );
        return;
    }else{
    	if(ds_main_cncrpatrgst_diaginfo.getColumn(0, "lastdiagmthd") == "02"){
    		if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "clinical"))){
    	        sysf_messageBox("최종진단방법이 02.임상검사의 경우 Sono, CT, MRI, 기타 체크박스 중 한가지 이상의 선택은 필수입력입니다.", "E999" );
    	        return;
    		}
    	}
    }
    
    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "diagroute"))){
        sysf_messageBox("진단경로가 입력되지", "E007" );
        return;
    }
    
    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "laterality"))){
        sysf_messageBox("편측성이 입력되지", "E007" );
        return;
    }
    
    if(utlf_isNull(ds_main_cncrpatrgst_diaginfo.getColumn(0, "difrntgrde"))){
        sysf_messageBox("분화도가 입력되지", "E007" );
        return;
    }
    
    if(ds_main_cncrpatrgst_diaginfo.getColumn(0, "laterality") == "99"){
        sysf_messageBox("편측성이 선택되지", "E007" );
        return;
    }
    
    var grdcnt = ds_main_cncrpatrgst_cureinfo_prmypart.rowcount;
    if( grdcnt > 0 ){
    	for( var i = 0 ; i < grdcnt  ; i++ ){
    		if( utlf_isNull(ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcd")) ){
    	        sysf_messageBox("본원치료방법( 원발부위치료방법 )의 " + eval(i + 1) + "번째 행의 치료방법이 입력되지", "E007" );
    	        return;    			
    		}
    		
    		if( ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcd") != "11" ){
	    		if( utlf_isNull(ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcuredd")) ){
	    			sysf_messageBox("본원치료방법( 원발부위치료방법 )의 " + eval(i + 1) + "번째 행의 치료일자가 입력되지", "E007" );
	    	        return;
	    		}    			
    		}else{
    			if( !utlf_isNull(ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcuredd")) ){
    				ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "prmypartcuredd", "");
    			}
    		}
    	}
    }else{
    	sysf_messageBox("본원치료방법( 원발부위치료방법 )은 필수입력입니다.", "E999" );
        return;
    }
    
    ds_send_savedata_cncrinfo.clear();
    var savePath:Dataset;
    savePath = ds_send_savedata_cncrinfo;
    dsf_makeValue(savePath, "instcd"        , "string", sysf_getUserInfo("dutplceinstcd"));
    dsf_makeValue(savePath, "pid"           , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "pid"));
    dsf_makeValue(savePath, "pnm"           , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "pnm"));
    dsf_makeValue(savePath, "cretno"        , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "cretno"));
    dsf_makeValue(savePath, "ordtype"       , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "ordtype"));
    dsf_makeValue(savePath, "rrgstno1"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "rrgstno1"));
    dsf_makeValue(savePath, "rrgstno2"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "rrgstno2"));
    dsf_makeValue(savePath, "epoch"         , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "epoch"));
    dsf_makeValue(savePath, "sex"           , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "sex"));
    dsf_makeValue(savePath, "age"           , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "age"));
    dsf_makeValue(savePath, "maryflag"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "maryflag"));
    dsf_makeValue(savePath, "zipcode1"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "zipcode1"));
    dsf_makeValue(savePath, "zipcode2"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "zipcode2"));
    dsf_makeValue(savePath, "addr"          , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "addr"));
    dsf_makeValue(savePath, "detaddr"       , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "detaddr"));
    dsf_makeValue(savePath, "hometel"       , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "hometel"));
    dsf_makeValue(savePath, "mpphontel"     , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "mpphontel"));
    dsf_makeValue(savePath, "dschdd"        , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschdd"));
    dsf_makeValue(savePath, "dschdeptcd"    , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschorddept"));
    dsf_makeValue(savePath, "dschdrid"      , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "dschorddr"));
    dsf_makeValue(savePath, "indg"          , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "indg"));
    dsf_makeValue(savePath, "totinhospdayno", "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "totinhospdayno"));
    dsf_makeValue(savePath, "forgnerflag"   , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "forgnerflag"));
    dsf_makeValue(savePath, "travoflag"     , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "travoflag"));
    dsf_makeValue(savePath, "job1"          , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "job1"));
    dsf_makeValue(savePath, "etcjob"        , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "etcjob"));
    dsf_makeValue(savePath, "relausernm"    , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "relausernm"));
    dsf_makeValue(savePath, "relation"      , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "relation"));
    dsf_makeValue(savePath, "relzipcode1"   , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "zipcode1"));
    dsf_makeValue(savePath, "relzipcode2"   , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "zipcode2"));
    dsf_makeValue(savePath, "reladdr"       , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "addr"));
    dsf_makeValue(savePath, "reldetaddr"    , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "detaddr"));
    dsf_makeValue(savePath, "relmpphontel"  , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "mpphontel"));
    dsf_makeValue(savePath, "relhometel"    , "string", ds_main_pathumtrainfo_relationinfo.getColumn(0, "hometel"));
    if(ordtype == "O" || ordtype == "S"){
        dsf_makeValue(savePath, "orddd"     , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "orddd"));
        dsf_makeValue(savePath, "orddeptcd" , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "outorddept"));
        dsf_makeValue(savePath, "orddrid"   , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "outorddr"));
    } else { 
        dsf_makeValue(savePath, "orddd"     , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "indd"));
        dsf_makeValue(savePath, "orddeptcd" , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "inorddept"));
        dsf_makeValue(savePath, "orddrid"   , "string", ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "inorddr"));
    }

    dsf_makeValue(savePath, "flag"          , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "flag"));
    var cncrno = utlf_transNullToEmpty(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
    cncrno = utlf_transNullToEmpty(cncrno).substr(0, 4) + utlf_transNullToEmpty(cncrno).substr(5, utlf_transNullToEmpty(cncrno).length);
    dsf_makeValue(savePath, "cncrno", "string", cncrno);
   
    
    if(cncrno.lastIndexOf("-")>0){
        dsf_makeValue(savePath, "cncrhistno", "string", utlf_transNullToEmpty(cncrno).substr(cncrno.lastIndexOf("-")+1, utlf_transNullToEmpty(cncrno).length));
        dsf_makeValue(savePath, "cncrno", "string", utlf_transNullToEmpty(cncrno).substr(0, cncrno.lastIndexOf("-")));
    } else {
        dsf_makeValue(savePath, "cncrhistno", "string", "");
        dsf_makeValue(savePath, "cncrno", "string", cncrno);
    }
    dsf_makeValue(savePath, "seqno"               , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "seqno"));
    dsf_makeValue(savePath, "prmycncryn"          , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn"));
    dsf_makeValue(savePath, "sickstat"            , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "sickstat"));
    dsf_makeValue(savePath, "cureopendd"          , "string", ds_main_cncrpatrgst_regstatus.getColumn(0, "cureopendd"));
    dsf_makeValue(savePath, "dethplce"            , "string", ds_main_cncrpatrgst_dethinfo.getColumn(0, "dethplce"));
    dsf_makeValue(savePath, "dethdd"              , "strubg", ds_main_cncrpatrgst_dethinfo.getColumn(0, "dethdd"));
    dsf_makeValue(savePath, "dethcascd"           , "strubg", ds_main_cncrpatrgst_dethinfo.getColumn(0, "dethcascd"));
    dsf_makeValue(savePath, "yearcnt"             , "strubg", ds_main_cncrpatrgst_dethinfo_existterm.getColumn(0, "yearcnt"));
    dsf_makeValue(savePath, "monthcnt"            , "strubg", ds_main_cncrpatrgst_dethinfo_existterm.getColumn(0, "monthcnt"));
    dsf_makeValue(savePath, "diagdd"              , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "diagdd"));
    dsf_makeValue(savePath, "diaghospcd"          , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "diaghospinfo"));
    dsf_makeValue(savePath, "etcdiaghospnm"       , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "etcdiaghospnm"));
    dsf_makeValue(savePath, "diagdrid"            , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "diagdrid"));
    dsf_makeValue(savePath, "lastdiagmthd"        , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "lastdiagmthd"));
    dsf_makeValue(savePath, "clinical"            , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "clinical"));
    dsf_makeValue(savePath, "etcclinical"         , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "etcclinical"));
    dsf_makeValue(savePath, "tophcd"              , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "tophcd"));
    dsf_makeValue(savePath, "tophinfo"            , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "tophinfo"));
    dsf_makeValue(savePath, "morphcd1"            , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphcd1"));
    dsf_makeValue(savePath, "morphinfo1"          , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphinfo1"));
    dsf_makeValue(savePath, "morphcd2"            , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphcd2"));
    dsf_makeValue(savePath, "morphinfo2"          , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "morphinfo2"));
    dsf_makeValue(savePath, "icd10cd"             , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "icd10cd"));
    dsf_makeValue(savePath, "difrntgrdecd"        , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "difrntgrde"));
    dsf_makeValue(savePath, "seercd"              , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "seer"));
    dsf_makeValue(savePath, "t"                   , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "t"));
    dsf_makeValue(savePath, "n"                   , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "n"));
    dsf_makeValue(savePath, "m"                   , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "m"));
    dsf_makeValue(savePath, "stagcd"              , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "staging"));
    dsf_makeValue(savePath, "etcstagflagcd"       , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "etcstagflagcd"));
    dsf_makeValue(savePath, "etcstagcnts"         , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "etcstagcnts"));
    dsf_makeValue(savePath, "rerntmetstaspartcd1" , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspartcd1"));
    dsf_makeValue(savePath, "rerntmetstaspartcd2" , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspartcd2"));
    dsf_makeValue(savePath, "rerntmetstaspartcd3" , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspartcd3"));
    dsf_makeValue(savePath, "rerntmetstaspartcd4" , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspartcd4"));
    dsf_makeValue(savePath, "rerntmetstaspartseq1", "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspart1"));
    dsf_makeValue(savePath, "rerntmetstaspartseq2", "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspart2"));
    dsf_makeValue(savePath, "rerntmetstaspartseq3", "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspart3"));
    dsf_makeValue(savePath, "rerntmetstaspartseq4", "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "rerntmetstaspart4"));
    dsf_makeValue(savePath, "ecogcd"              , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "ecog"));
    dsf_makeValue(savePath, "regimencd1"          , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "regimen1"));
    dsf_makeValue(savePath, "regimencd2"          , "strubg", ds_main_cncrpatrgst_rerntmetstaspart.getColumn(0, "regimen2"));
    dsf_makeValue(savePath, "fstrgstrid"          , "strubg", sysf_getUserInfo("userid"));
    dsf_makeValue(savePath, "fstrgstdt"           , "strubg", utlf_getCurrentDate());
    dsf_makeValue(savePath, "lastupdtrid"         , "strubg", sysf_getUserInfo("userid"));
    dsf_makeValue(savePath, "lastupdtdt"          , "strubg", utlf_getCurrentDate());
    dsf_makeValue(savePath, "diagroute"           , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "diagroute"));
    dsf_makeValue(savePath, "laterality"          , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "laterality"));
    dsf_makeValue(savePath, "etcdiagroute"        , "strubg", ds_main_cncrpatrgst_diaginfo.getColumn(0, "etcdiagroute"));

    fSetBFIOCure();             //내원전 치료
    fSetPrmyPartCure();         //본원치료 방법(원발부위치료방법)
    fSetMetstasPartCure();      //본원치료 방법(전위부위치료방법)

    if(utlf_isNull(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"))){
        sysf_messageBox("암등록번호가 입력되지", "E007");
        return;
    }
    var sCncrNo  = ds_main_humaninfo_cncrhist_histlist.getColumn(0, "cncr_histno");

    if(cncrno.lastIndexOf("-") > 4){
        dsf_makeValue(ds_send_reqdata, "cncrhistno", "string", utlf_transNullToEmpty(cncrno).substr(cncrno.lastIndexOf("-")+1, utlf_transNullToEmpty(cncrno).length));
        dsf_makeValue(ds_send_reqdata, "cncrno"    , "string", utlf_transNullToEmpty(cncrno).substr(0, cncrno.lastIndexOf("-")));
    }else{
        dsf_makeValue(ds_send_reqdata, "cncrhistno", "string", "00");
        dsf_makeValue(ds_send_reqdata, "cncrno"    , "string", cncrno);
    }
    
    var oParam = {};
		oParam.id          = "TRMRD00107";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqGetCncrNoInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_cncrnoinfo_haveno=haveno";
		oParam.async       = false;
		oParam.callback    = "cf_TRMRD00107";

	tranf_submit(oParam);
    
    if(arErrorCode.pop("TRMRD00107") > -1){
    	var insflag 		= 	ds_main_cncrnoinfo_haveno.getColumn(0, "insflag");//중복체크
        var cncrflag 		=	ds_main_cncrnoinfo_haveno.getColumn(0, "cncrflag");//중복체크
        var cncrhistflag 	=	ds_main_cncrnoinfo_haveno.getColumn(0, "cncrhistflag");//중복체크
        
        //다발성원발암 등록의 경우가 아니고(cncrhistno="00") 이미 등록되어 있는 암등록 번호 인 경우
        if(insflag == "T"){
            var Msg1 = sysf_messageBox("동일한 암등록번호가 존재합니다. 수정","S003","신규로 저장");
            
            //아니오, 신규저장
            if(Msg1=="7"){            
            	//다발성원발암 여부가 Y가 아닌지 체크
 				if((ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "N")
            		||(utlf_isNull(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn")))){
                    fGetCncrNo();	//암등록번호 신규채번
                }
                
                //암등록번호 재저장
                cncrno = utlf_transNullToEmpty(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
                pCncrNo =  utlf_transNullToEmpty(cncrno).substr(0,4) + utlf_transNullToEmpty(cncrno).substr(5,9);
                dsf_makeValue(savePath, "cncrno", "string", pCncrNo);
                
                dsf_makeValue(savePath, "cncrhistno", "string", "");
            }else if(Msg1=="6"){	//예, 수정
                dsf_makeValue(savePath, "flag", "string", "3");
            }else{	//취소
                return;
            }
        }else if((cncrflag =="T")&&(cncrhistflag=="F")){	//다발성원발암번호로 등록 할때 이미 암번호가 중복된 경우
            var Msg2= sysf_messageBox("동일한 암등록번호가 존재합니다. 수정","S003","신규로 저장");
            
            if(Msg2=="7"){
            	//암등록번호 신규채번
	            fGetCncrNo();
	            dsf_makeValue(ds_send_reqdata, "cncrhistno" , "string", utlf_transNullToEmpty(cncrno).substr(cncrno.lastIndexOf("-")+1, utlf_transNullToEmpty(cncrno).length));
	        	dsf_makeValue(ds_send_reqdata, "cncrno"     , "string", utlf_transNullToEmpty(cncrno).substr(0, cncrno.lastIndexOf("-")));
	            
	            //암등록이력번호 생성
	            fGetCncrHistNo();
	            cncrno = utlf_transNullToEmpty(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
            	if(cncrno.lastIndexOf("-") > 4){
	                dsf_makeValue(savePath, "cncrhistno", "string", utlf_transNullToEmpty(cncrno).substr(cncrno.lastIndexOf("-")+1, utlf_transNullToEmpty(cncrno).length));
	                dsf_makeValue(savePath, "cncrno"    , "string", cncrno.substring(0,4)+cncrno.substring(5,9));
	                dsf_makeValue(savePath, "flag", "string", "1");
              	}
	        }else if(Msg2=="6"){
                dsf_makeValue(savePath, "flag", "string", "3");
            }else{
                return;
            }
        }else if((cncrflag =="F")&&(cncrhistflag=="T")){//다발성원발암으로 등록 할 때 이미 등록되어 있는 번호가 있는경우
			var Msg3 = sysf_messageBox("동일한 암등록번호가 존재합니다. 수정","S003","신규로 저장");
           	if(Msg3=="7"){
 			 	dsf_makeValue(ds_send_reqdata, "cncrhistno" , "string", cncrno.substring(cncrno.lastIndexOf("-")+1, cncrno.length));
	        	dsf_makeValue(ds_send_reqdata, "cncrno"     , "string", cncrno.substring(0, cncrno.lastIndexOf("-")));
	           
	            //암등록이력번호 생성
	            fGetCncrHistNo();
	            cncrno = utlf_transNullToEmpty(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
            	if(cncrno.lastIndexOf("-") > 4){
	                dsf_makeValue(savePath, "cncrhistno"  , "string", cncrno.substring(cncrno.lastIndexOf("-")+1, cncrno.length));
	                dsf_makeValue(savePath, "cncrno"     , "string", cncrno.substring(0,4)+cncrno.substring(5,9));
	                dsf_makeValue(savePath, "flag"		  , "string", "1");
              	}else{
	                dsf_makeValue(savePath, "cncrhistno", "string", "");
	                pCncrNo =  cncrno.substring(0,4)+cncrno.substring(5,9);
	                dsf_makeValue(savePath, "cncrno", "string", pCncrNo);
              	}
            }else if(Msg3=="6"){
                dsf_makeValue(savePath, "flag", "string", "3");
            }else{
                return;
            }
        }else{
    		cncrno = utlf_transNullToEmpty(ds_main_cncrpatrgst_regstatus_cncrnoinfo.getColumn(0, "cncrno"));
    		if(cncrno.lastIndexOf("-") > 4){
                dsf_makeValue(savePath, "cncrhistno"  , "string", cncrno.substring(cncrno.lastIndexOf("-")+1, cncrno.length));
                dsf_makeValue(savePath, "cncrno"      , "string", cncrno.substring(0,4)+cncrno.substring(5,9));
                dsf_makeValue(savePath, "flag"		  , "string", "1");
      		}else{
                dsf_makeValue(savePath, "cncrhistno", "string", "");
                pCncrNo =  cncrno.substring(0,4)+cncrno.substring(5,9);
                dsf_makeValue(savePath, "cncrno", "string", pCncrNo);
      		}
        }
    }

    if(ds_main_humaninfo_outpatinfo_patlist.rowcount > 0){        
        ds_cncrinfo_humaninfo_outpatinfo_patlist.copyData(ds_main_humaninfo_outpatinfo_patlist);
    }
    if(ds_main_humaninfo_inpatinfo_patlist.rowcount > 0){        
        ds_cncrinfo_humaninfo_inpatinfo_patlist.copyData(ds_main_humaninfo_inpatinfo_patlist);
    }
    
    ds_send_savedata_cncrinfo.updateColID("pnm", "hngnm");
    ds_send_savedata_cncrinfo.updateColID("sickstat", "sickstatcd");
    
    ds_send_savedata_cncrinfo.updateColID("dethplce", "dethplcecd");
    ds_send_savedata_cncrinfo.updateColID("lastdiagmthd", "lastdiagmthdcd");
    ds_send_savedata_cncrinfo.updateColID("tophinfo", "tophseqno");
    ds_send_savedata_cncrinfo.updateColID("morphinfo1", "morphseqno1");
    ds_send_savedata_cncrinfo.updateColID("morphinfo2", "morphseqno2");
        
    dsf_setDefaultVal(ds_send_savedata_cncrinfo, "indg:0,totinhospdayno:0,cncrhistno:00,tophseqno:0,morphseqno1:0,morphseqno2:0,rerntmetstaspartseq1:0,rerntmetstaspartseq2:0,rerntmetstaspartseq3:0,rerntmetstaspartseq4:0");
        
    //암환자등록 탭 하단 밑 그리드 3개 저장 - start         
    ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = false;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addColumn("chosbfcurecd", "string");
    for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.setColumn(i, "chosbfcurecd", ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.getColumn(i, "chosbfcuremthd"));
    }
    ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = true;
    ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = true;
    
    
    ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = false;
	ds_main_cncrpatrgst_cureinfo_prmypart.addColumn("prmypartcurecd", "string");
	
    for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_prmypart.rowcount ;i++){
        ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "prmypartcurecd",  ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcd"));
    }
    ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = true;
    ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = true;
        
    ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("metstaspartcuredd", "string");
    ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("metstaspartcurecd", "string");
    ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = false;
    for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_metstaspart.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "metstaspartcurecd", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartcd"));
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "metstaspartcuredd", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartdd"));
    }
    ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = true;
    ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = true;
    //암환자등록 탭 하단 밑 그리드 3개 저장 - end
    
//     trace(ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.saveXML());
//     trace(ds_main_cncrpatrgst_cureinfo_prmypart.saveXML());
//     trace(ds_main_cncrpatrgst_cureinfo_metstaspart.saveXML());
    
    var oParam = {};
		oParam.id          = "TXMRD00101";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqExeCncrPat";
		//oParam.inds        = "req=ds_send_savedata_cncrinfo bfiocure=ds_send_savedata_savebfio metstaspartcure=ds_send_savedata_savemetstaspart prmypartcure=ds_send_savedata_saveprmypart";
		oParam.inds        = "req=ds_send_savedata_cncrinfo bfiocure=ds_main_cncrpatrgst_cureinfo_chosbfcuremthd metstaspartcure=ds_main_cncrpatrgst_cureinfo_metstaspart prmypartcure=ds_main_cncrpatrgst_cureinfo_prmypart";
		oParam.outds       = "ds_main_humaninfo_cncrhist_histlist=cncrhistlist";
		oParam.async       = false;
		oParam.callback    = "cf_TXMRD00101";

	tranf_submit(oParam);
	
	ds_main_humaninfo_cncrhist_histlist.updateColID("dschdeptcd", "dschorddept");        
	ds_main_humaninfo_cncrhist_histlist.updateColID("dschdrid", "dschorddr");        
	ds_main_humaninfo_cncrhist_histlist.updateColID("hngnm", "pnm");
	ds_main_humaninfo_cncrhist_histlist.updateColID("zipcd1", "zipcode1");
	ds_main_humaninfo_cncrhist_histlist.updateColID("zipcd2", "zipcode2");
	ds_main_humaninfo_cncrhist_histlist.updateColID("forgneryn", "forgnerflag");
	ds_main_humaninfo_cncrhist_histlist.updateColID("jobcd1", "job1");
	ds_main_humaninfo_cncrhist_histlist.updateColID("wandereryn", "travoflag");
	ds_main_humaninfo_cncrhist_histlist.updateColID("tplengnm", "tophnm");
	ds_main_humaninfo_cncrhist_histlist.updateColID("icdo3engnm1", "morphnm1");		
	ds_main_humaninfo_cncrhist_histlist.updateColID("icdo3engnm2", "morphnm2");
	ds_main_humaninfo_cncrhist_histlist.updateColID("icd10engnm", "icd10nm");	
	
	
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addColumn("chosbfcuremthd", "string");
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.getColumn(i, "chosbfcurecd"));
		ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.setColumn(i, "chosbfcuremthd", ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.getColumn(i, "chosbfcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.enableevent = true;
	
	ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_metstaspart.addColumn("metstaspartcd", "string");
	ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_metstaspart.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartcurecd"));
		ds_main_cncrpatrgst_cureinfo_metstaspart.setColumn(i, "metstaspartcd", ds_main_cncrpatrgst_cureinfo_metstaspart.getColumn(i, "metstaspartcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_metstaspart.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_metstaspart.enableevent = true;
	
	ds_main_cncrpatrgst_cureinfo_metstaspart.updateColID("metstaspartcuredd", "metstaspartdd"); 
	
	ds_main_cncrpatrgst_cureinfo_prmypart.addColumn("code", "string");
	ds_main_cncrpatrgst_cureinfo_prmypart.addColumn("prmypartcd", "string");
	ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = false;
	ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = false;
	for(var i = 0; i < ds_main_cncrpatrgst_cureinfo_prmypart.rowcount ;i++){
		ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "code", ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcurecd"));
		ds_main_cncrpatrgst_cureinfo_prmypart.setColumn(i, "prmypartcd", ds_main_cncrpatrgst_cureinfo_prmypart.getColumn(i, "prmypartcurecd"));
	}
	ds_main_cncrpatrgst_cureinfo_prmypart.updatecontrol = true;
	ds_main_cncrpatrgst_cureinfo_prmypart.enableevent = true;
	    
    if(arErrorCode.pop("TXMRD00101") > -1){
        sysf_messageBox("저장이", "I002");
    }else{
        sysf_messageBox("저장을", "E009");
    }

    if(ds_main_cncrpatrgst_regstatus.getColumn(0, "prmycncryn") == "Y"){
        fGetCncrHistNo();
    }
  	  	
  	ds_send_savedata.clearData();
  	ds_send_savedata.addRow();
  	ds_send_savedata_cncrinfo.clearData();
  	ds_send_savedata_cncrinfo.addRow();
  	ds_send_savedata_savebfio.clearData();
  	ds_send_savedata_savemetstaspart.clearData();
  	ds_send_savedata_saveprmypart.clearData();
  	
    if(ds_cncrinfo_humaninfo_outpatinfo_patlist.rowcount > 0){        
        ds_main_humaninfo_outpatinfo_patlist.copyData(ds_cncrinfo_humaninfo_outpatinfo_patlist);                
        ds_cncrinfo_humaninfo_outpatinfo_patlist.clearData();
    }
    if(ds_cncrinfo_humaninfo_inpatinfo_patlist.rowcount > 0){        
        ds_main_humaninfo_inpatinfo_patlist.copyData(ds_cncrinfo_humaninfo_inpatinfo_patlist);                
        ds_cncrinfo_humaninfo_inpatinfo_patlist.clearData();
    }

    ds_main_cncrpatrgst_dethinfo.clearData();
    ds_main_cncrpatrgst_dethinfo.addRow();
    ds_main_cncrpatrgst_diaginfo.clearData();
    ds_main_cncrpatrgst_diaginfo.addRow();
    ds_main_cncrpatrgst_rerntmetstaspart.clearData();
    ds_main_cncrpatrgst_rerntmetstaspart.addRow();    
    
    ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.clearData();		//내원전치료 그리드
	ds_main_cncrpatrgst_cureinfo_chosbfcuremthd.addRow();
	ds_main_cncrpatrgst_cureinfo_prmypart.clearData();				//원발부위치료방법 그리드
	ds_main_cncrpatrgst_cureinfo_prmypart.addRow();
	ds_main_cncrpatrgst_cureinfo_metstaspart.clearData(); 			//전이부위치료방법 그리드
	ds_main_cncrpatrgst_cureinfo_metstaspart.addRow();
    
    ds_main_cncrpatrgst_regstatus.setColumn(0, "sickstat","");
    ds_main_cncrpatrgst_regstatus.setColumn(0, "cureopendd","");
    ds_main_cncrpatrgst_regstatus.setColumn(0, "flag",""); 	 
}

function cf_TRMRD00107(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function cf_TXMRD00101(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

/**
 * @desc   : 내원전 치료
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fSetBFIOCure(){
//     var saveBFPath = "/root/send/savedata";
//     parameter = "i";
//     
//     model.makeValue(saveBFPath+"/savebfio", grd_bfiocure.getUpdateDataAll(parameter));    
    var updateData = grdf_getGridUpdateData(switch1.case2.grd_bfiocure);
	grdf_setStatusColumn(updateData, "status");
    ds_send_savedata_savebfio.copyData(updateData, true);
}

/**
 * @desc   : 본원치료 방법(원발부위치료방법)
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fSetPrmyPartCure(){
//     var savePrmyPath = "/root/send/savedata";
//     parameter = "i";
//     model.makeValue(savePrmyPath+"/saveprmypart", grd_prmypart.getUpdateDataAll(parameter));
	var updateData = grdf_getGridUpdateData(switch1.case2.grd_prmypart);
	grdf_setStatusColumn(updateData, "status");
    ds_send_savedata_saveprmypart.copyData(updateData, true);
}

/**
 * @desc   : 본원치료 방법(전위부위치료방법)
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fSetMetstasPartCure(){
//     var saveMetstasPath = "/root/send/savedata";
//     parameter = "i";
//     model.makeValue(saveMetstasPath+"/savemetstaspart", grd_metstaspart.getUpdateDataAll(parameter));
	var updateData = grdf_getGridUpdateData(switch1.case2.grd_metstaspart);
	grdf_setStatusColumn(updateData, "status");
    ds_send_savedata_savemetstaspart.copyData(updateData, true);
}

function fgetEpoch(){
    var l_value = ds_main_pathumtrainfo_cncrpatinfo.getColumn(0, "rrgstno2");
    var flag = utlf_transNullToEmpty(l_value).substring(0, 1);
    if((flag == "1")||(flag == "2")||(flag == "5")||(flag == "6")){
        dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "epoch", "string", "19");
    }else if((flag == "3")||(flag == "4")||(flag == "7")||(flag == "8")){
        dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "epoch", "string", "20");
    }    
}

/**
 * @desc   : 암환자통계 관리에서 코드 조회조건 팝업과 연계
 * @param  :
 * @return : void
 * @authur : 추가 이창록 2009-01-09
 * @ 기타  :
 * @---------------------------------------------------
 */

function fStsSrchTerm(flag, code, ref, resref, nmref)
{
	frmf_clearParameter("SPMRT01700_SEARCHDATA");
	frmf_clearParameter("SPMRT01700_FLAG");	
	ds_temp_terminfo_tplinfo.clearData();
	ds_temp_terminfo_icd10info.clearData();
	ds_temp_terminfo_icdo3info.clearData();
	if(flag =="toph"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "1");		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		ds_main_cncrpatref.setColumn(0, ref, 	ds_temp_terminfo_tplinfo.getColumn(0, "tophlgcd"));
		ds_main_cncrpatref.setColumn(0, nmref, 	ds_temp_terminfo_tplinfo.getColumn(0, "engnm"));
		ds_main_cncrpatref.setColumn(0, resref, ds_temp_terminfo_tplinfo.getColumn(0, "seqno"));
	}else if(flag =="morph1"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "2");		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		ds_main_cncrpatref.setColumn(0, ref, 	ds_temp_terminfo_icdo3info.getColumn(0, "diagcd"));
		ds_main_cncrpatref.setColumn(0, nmref, 	ds_temp_terminfo_icdo3info.getColumn(0, "diagengnm"));
		ds_main_cncrpatref.setColumn(0, resref, ds_temp_terminfo_icdo3info.getColumn(0, "seqno"));
	}else if(flag =="icd10"){
		frmf_setParameter("SPMRT01700_SEARCHDATA", code);
		frmf_setParameter("SPMRT01700_FLAG", "3");		
		frmf_modal("SPMRT01700", "SPMRT01700", "", null, "", "", "", null, null, null, null, null, "M");
		if(utlf_isNull(frmf_getParameter("SPMRT01700_FLAG"))){
			return;
		}
		ds_main_cncrpatref.setColumn(0, ref, 	ds_temp_terminfo_icd10info.getColumn(0, "diagcd"));
		ds_main_cncrpatref.setColumn(0, nmref, 	ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
		ds_main_cncrpatref.setColumn(0, resref, ds_temp_terminfo_icd10info.getColumn(0, "diagengnm"));
	}	
}

/**
 * @desc   : 선택된 환자조회 팝업
 * @param  : Ref     - PID, 환자성명 instance xPath
           : RsltRef - 환자기본 정보 instance xPath
           : patinfo
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fPatSrch(s_val, flag){
    if(flag == "1"){
        dsf_makeValue(ds_temp, "pid", "string", s_val);
    } else if(flag == "2"){
        dsf__makeValue(ds_temp, "hngnm", "string", s_val);
    }
    dsf_makeValue(ds_temp, "srchcond", "string", flag);
    dsf_makeValue(ds_temp, "autoflag", "string", "Y");  // 1건인경우 자동으로닫힘
    
    ds_main_patinfo_patinfolist.clearData();
    
    var objArg = new Object();
	objArg.arg_ds_send = ds_temp;
		
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, null, 1, 10, 10, null, null, null, null, null, "M");   
}

function fSrchCncrRgstPat(){
	if((!utlf_isNull(ds_main_cncrpatref.getColumn(0, "cncrnofrdd")) && utlf_isNull(ds_main_cncrpatref.getColumn(0, "cncrnotodd"))) 
    		|| (utlf_isNull(ds_main_cncrpatref.getColumn(0, "cncrnofrdd")) && !utlf_isNull(ds_main_cncrpatref.getColumn(0, "cncrnotodd")))){
    	sysf_messageBox("암등록번호로 조회시 검색할 시작번호, 종료번호 모두 입력하여야 합니다.","E");
    	return;
    }
	
	dsf_makeValue(ds_send_cncrrgstpat, "ordtype"  , "string", ds_main_cncrpatref.getColumn(0, "ioflag"));
    dsf_makeValue(ds_send_cncrrgstpat, "fromdd"   , "string", ds_main_cncrpatref.getColumn(0, "fromdd"));
    dsf_makeValue(ds_send_cncrrgstpat, "todd"     , "string", ds_main_cncrpatref.getColumn(0, "todd"));
    dsf_makeValue(ds_send_cncrrgstpat, "orddeptcd", "string", ds_main_cncrpatref_orddeptinfo.getColumn(0, "orddeptlist"));
    dsf_makeValue(ds_send_cncrrgstpat, "orddrid"  , "string", ds_main_cncrpatref_orddrinfo.getColumn(0, "drlist"));
    dsf_makeValue(ds_send_cncrrgstpat, "tophcd"   , "string", ds_main_cncrpatref.getColumn(0, "tophcd"));
    dsf_makeValue(ds_send_cncrrgstpat, "tophseq"  , "string", ds_main_cncrpatref.getColumn(0, "tophseq"));
    dsf_makeValue(ds_send_cncrrgstpat, "morphcd"  , "string", ds_main_cncrpatref.getColumn(0, "morphcd"));
    dsf_makeValue(ds_send_cncrrgstpat, "morphseq" , "string", ds_main_cncrpatref.getColumn(0, "morphseq"));
    dsf_makeValue(ds_send_cncrrgstpat, "icd10cd"  , "string", ds_main_cncrpatref.getColumn(0, "icd10cd"));
    dsf_makeValue(ds_send_cncrrgstpat, "fromage"  , "string", ds_main_cncrpatref.getColumn(0, "fromage"));
    dsf_makeValue(ds_send_cncrrgstpat, "toage"    , "string", ds_main_cncrpatref.getColumn(0, "toage"));
    dsf_makeValue(ds_send_cncrrgstpat, "sexflag"  , "string", ds_main_cncrpatref.getColumn(0, "sexflag"));
    dsf_makeValue(ds_send_cncrrgstpat, "pid"      , "string", ds_main_cncrpatref.getColumn(0, "pid"));
    dsf_makeValue(ds_send_cncrrgstpat, "hngnm"    , "string", ds_main_cncrpatref.getColumn(0, "pnm"));
    dsf_makeValue(ds_send_cncrrgstpat, "skind"    , "string", ds_main_cncrpatref.getColumn(0, "skind"));
    
    if( !utlf_isNull(switch1.case3.input25.value)){
    	dsf_makeValue(ds_send_cncrrgstpat, "cncrnofrdd", "string", ds_main_cncrpatref.getColumn(0, "fromdd").substr(0,4) + ds_main_cncrpatref.getColumn(0, "cncrnofrdd"));
	}else{
		dsf_makeValue(ds_send_cncrrgstpat, "cncrnofrdd", "string", "");
	}
	if(!utlf_isNull(switch1.case3.input25.value)){
		dsf_makeValue(ds_send_cncrrgstpat, "cncrnotodd", "string", ds_main_cncrpatref.getColumn(0, "todd").substr(0,4) + ds_main_cncrpatref.getColumn(0, "cncrnotodd"));
	}else{
		dsf_makeValue(ds_send_cncrrgstpat, "cncrnotodd", "string", "");
	}    
    var prgstno = utlf_transNullToEmpty(ds_main_cncrpatref.getColumn(0, "prgstno"));
    if(!utlf_isNull(prgstno)){
        dsf_makeValue(ds_send_cncrrgstpat, "rrgstno1", "string", prgstno.substr(0, prgstno.lastIndexOf("-")-1));
        dsf_makeValue(ds_send_cncrrgstpat, "rrgstno2", "string", prgstno.substr(prgstno.lastIndexOf("-")+1, utlf_transNullToEmpty(cncrno).length));
    }
    dsf_makeValue(ds_send_cncrrgstpat, "srchopt", "string", ds_main_cncrpatref.getColumn(0, "srchflag"));

    var oParam = {};
		oParam.id          = "TRMRD00105";
		oParam.service     = "dschanalyapp.CncrPatMngt";
		oParam.method      = "reqGetSrchCncrPat";
		oParam.inds        = "req=ds_send_cncrrgstpat";
		oParam.outds       = "ds_main_cncrpatlist_list=cncrpatinfo";
		oParam.async       = false;		

	tranf_submit(oParam);    
    ds_send_cncrrgstpat.clearData();
    ds_send_cncrrgstpat.addRow();    
}

/**
 * @desc   : 선택된 진료의 조회
 * @param  : Ref     - 진료과코드 instance xPath
           : RsltRef - 진료의 리스트 instance xPath
           : drlist
 * @return : void
 * @authur : 2007. 5. 15
 * @---------------------------------------------------
 */
function fChngSrchCond(deptref, drref){   
   ds_send_reqdata.clearData();
   var sDutplceCD = deptref;
   var sdschDD = ds_main_humaninfo_inpatinfo_patlist.getColumn(0, "dschdd");
   fGetDrList(ds_send_reqdata, "ds_main_common_drlist", sDutplceCD, "total");         
   drref.copyData(ds_main_common_drlist);   
}

/**
 * @desc   : 암환자 통계조회에서 더블클릭시 암등록 탭과 연계
 * @param  :
 * @return : void
 * @authur : 2007. 5. 15 수정 이창록 2008-12-16
 * @---------------------------------------------------
 */
function fChngCncrRgst(iRow){
    var cncr_histno = ds_main_cncrpatlist_list.getColumn(iRow, "cncr_histno");
    var pat_pid = ds_main_cncrpatlist_list.getColumn(iRow, "pid");
    var i = 0;    
    switch1.tabindex = 1;        
    ds_main_humaninfo_cncrhist_histlist.clearData();
    
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pid", "string", "");
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pnm", "string", "");
    dsf_makeValue(ds_main_pathumtrainfo_cncrpatinfo, "pid", "string", pat_pid);
    
    switch1.case2.chk_cretchknum.value = false;
    fGetPatinfo();
    var iRow_hist = ds_main_humaninfo_cncrhist_histlist.findRow("cncr_histno", cncr_histno);
    ds_main_humaninfo_cncrhist_histlist.rowposition = iRow_hist;
    ds_main_humaninfo_cncrhist_histlist.selectRow(iRow_hist, true);    
    fDisplay(iRow_hist);
}]]></Script>