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

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[
function finitialize()
{	
	var sProp="col=2,row=1,cellspacing=4,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow='visible'";
	chk_cngntlmfmdyn.setInitComp(sProp, ds_chk_cngntlmfmdyn,"value","label","fn_cmpEvent");
	
	appf_getInOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", "", "", "ds_init_orddept_dept", false, "");
	
	var oParam = {};
		oParam.id          = "TRMRD00599";
		oParam.service     = "dschanalyapp.DschAnaly";
		oParam.method      = "reqGetDethPatBaseData";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_init_basecd_insukind=insukind ds_init_basecd_dethplce=dethplce "
							+"ds_init_basecd_dethresn=dethresn ds_init_basecd_dethflag=dethflag "
							+"ds_=dethkind ds_init_basecd_dethacdkind=dethacdkind "
							+"ds_init_basecd_dethacdplce=dethacdplce ds_init_basecd_dethacdstat=dethacdstat "
							+"ds_init_basecd_stlborncas=stlborncas ds_init_basecd_womndethcas=womndethcas "
							+"ds_init_basecd_wonmpartrslt=wonmpartrslt ds_init_basecd_wonmpartmthd=wonmpartmthd "
							+"ds_init_basecd_partrtnmthd=partrtnmthd ds_init_basecd_nbabydethcas=nbabydethcas "
							+"ds_init_basecd_multpltflag=multpltflag";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMRD00599";

	tranf_submit(oParam);
	
	if(frmf_checkOpener()) 
	{
		var pid = opener.frmf_getParameter("SMMRD00500_pid");
		if(!utlf_isNull(pid))
		{				
			ds_main_dethpatinfo_dethpat.setColumn(0, "pid",pid);
			dsf_makeValue(ds_main_patinfo, "srchcond", "string","1");
			btn_patreq1.click();
		}
	}
}

function freqpid()
{				
	var pid = ds_main_dethpatinfo_dethpat.getColumn(0, "pid");
	if(utlf_isNull(pid))
	{	
		return;
	}
	dsf_makeValue(ds_main_patinfo, "pid", "string", ds_main_dethpatinfo_dethpat.getColumn(0, "pid"));
	dsf_makeValue(ds_main_patinfo, "autoflag", "string", "Y");

	var objArg = new Object();
		objArg.arg_ds_send = ds_main_patinfo;
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", 1, 150, 150, "", "", "", "", "", "M");

	var Pid	     = ds_patinfolist.getColumn(0, "pid");	
	var hngnm    = ds_patinfolist.getColumn(0, "hngnm");
	var rrgstno1 = ds_patinfolist.getColumn(0, "rrgstno1");
	var rrgstno2 = ds_patinfolist.getColumn(0, "rrgstno2");
	var sex      = ds_patinfolist.getColumn(0, "sex");
	var age      = ds_patinfolist.getColumn(0, "age");
	var telno 	 = ds_patinfolist.getColumn(0, "hometel");
	var zipcode1 = ds_patinfolist.getColumn(0, "zipcd1");
	var zipcode2 = ds_patinfolist.getColumn(0, "zipcd2");
	var zipseqno = ds_patinfolist.getColumn(0, "zipcdseq");
	var addr1    = ds_patinfolist.getColumn(0, "addr");
	var addr2    = ds_patinfolist.getColumn(0, "detladdr");
	
	ds_main_dethpatinfo_dethpat.setColumn(0, "pid",Pid);
	ds_main_dethpatinfo_dethpat.setColumn(0, "pnm",hngnm);
	ds_main_dethpatinfo_dethpat.setColumn(0, "rrgstno",rrgstno1 +"-"+rrgstno2);
	ds_main_dethpatinfo_dethpat.setColumn(0, "sex",sex);
	ds_main_dethpatinfo_dethpat.setColumn(0, "age",age);	
	ds_main_dethpatinfo_dethpat.setColumn(0, "telno",telno);
	ds_main_dethpatinfo_dethpat.setColumn(0, "zipcode1",zipcode1);
	ds_main_dethpatinfo_dethpat.setColumn(0, "zipcode2",zipcode2);
	ds_main_dethpatinfo_dethpat.setColumn(0, "addr1",addr1);
	ds_main_dethpatinfo_dethpat.setColumn(0, "addr2",addr2);
	
	var sex = ds_main_dethpatinfo_dethpat.getColumn(0, "sex");						
	if(sex=="M")
	{
		rdo_seconddethkindcd.enable = false;
	}
	var age = ds_main_dethpatinfo_dethpat.getColumn(0, "age");		 	
	if(age>=5)
	{
		rdo_firstdethkindcd.enable = false;
		rdo_thirddethkindcd.enable = false;
	}
	else if(age<=4)
	{
		rdo_firstdethkindcd.enable = true;
		rdo_thirddethkindcd.enable = true;
	}
	var cd = ds_main_dethpatinfo_dethpat.getColumn(0, "dethresncd");

	if(cd=="02")
	{
		cmb_viokindcd.enable = true;
		cmb_viopleced.enable = true;
		cmb_statcd.enable = true;
		ipt_vioacddd.enable = true;
		ipt_vioacdtm.enable = true;
	}	
	
	var sPid = ds_patinfolist.getColumn(0, "pid");	  
	dsf_makeValue(ds_send_reqdata_deth, "pid", "String", sPid);		
	
	var oParam = {};
		oParam.id          = "TRMRD00510";
		oParam.service     = "dschanalyapp.DschAnaly";
		oParam.method      = "reqGetDethPatInfo";
		oParam.inds        = "req=ds_send_reqdata_deth";
		oParam.outds       = "ds_main_dethpatinfo_dethpat=dethpat";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMRD00510";

	tranf_submit(oParam);

	var Pid	     = ds_patinfolist.getColumn(0, "pid");	
	var hngnm    = ds_patinfolist.getColumn(0, "hngnm");
	var rrgstno1 = ds_patinfolist.getColumn(0, "rrgstno1");
	var rrgstno2 = ds_patinfolist.getColumn(0, "rrgstno2");
	var sex      = ds_patinfolist.getColumn(0, "sex");
	var age      = ds_patinfolist.getColumn(0, "age");
	var telno 	 = ds_patinfolist.getColumn(0, "hometel");
	var zipcode1 = ds_patinfolist.getColumn(0, "zipcd1");
	var zipcode2 = ds_patinfolist.getColumn(0, "zipcd2");
	var zipseqno = ds_patinfolist.getColumn(0, "zipcdseq");
	var addr1    = ds_patinfolist.getColumn(0, "addr");
	var addr2    = ds_patinfolist.getColumn(0, "detladdr");
		
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pid", "String",Pid);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pnm", "String",hngnm);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "rrgstno", "String",rrgstno1 +"-"+rrgstno2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "sex", "String",sex);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "age", "String",age);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "telno", "String",telno);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode1", "String",zipcode1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode2", "String",zipcode2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr1", "String",addr1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr2", "String",addr2);
	
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "insukind", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "indd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dschdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "deptcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdocnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdoctid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "opdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "ordopendd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethresncd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdstatcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacddd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnrsltcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womnpartrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd1", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd2", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd3", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd4", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlborncascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornsexcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornmultpltscd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethmtherpid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "cngntlmfmdyn", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "multpltflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "nbabydethcascd", "String","");
	
	appf_getInOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", "", "", "ds_init_orddept_dept", false, "");
	
	var  atdoctid = ds_main_dethpatinfo_dethpat.getColumn(0, "atdoctid");
	ds_main_dethpatinfo_dethpat.setColumn(0, "atdocnm",atdoctid);
	
	fGetDrList("ds_send_reqdata", "ds_init_userlist_drlist", cmb_orddept.value, "total");//주치의 조회
}

function fGetDrList(ref, rsltRef, orddeptcd, queryflag,stflag)
{
	var path = eval(ref);
	dsf_makeValue(path, "orddeptcd", "string", orddeptcd);
	dsf_makeValue(path, "queryflag", "string", queryflag);
	dsf_makeValue(path, "stflag", "string", stflag);
	
	var oParam = {};
		oParam.id          = "TRMRF02303";
		oParam.service     = "formmngtapp.OcrPrntMngt";
		oParam.method      = "reqGetOrdDrID";
		oParam.inds        = "req="+ref;
		oParam.outds       = rsltRef+"=drlist";
		oParam.async       = false;
		//oParam.callback  . = "cf_TRMRF02303";

	tranf_submit(oParam);
	
	ds_send_reqdata.clearData();
}


function freqpnm()
{
	var pnm = ds_main_dethpatinfo_dethpat.getColumn(0, "pnm");
	if(utlf_isNull(pnm))
	{
		return;
	}
	dsf_makeValue(ds_main_patinfo, "hngnm", "string", ds_main_dethpatinfo_dethpat.getColumn(0, "pnm"));
	dsf_makeValue(ds_main_patinfo, "autoflag", "string", "Y");
	
	var objArg = new Object();
		objArg.arg_ds_send = ds_main_patinfo;
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", 1, 150, 150, "", "", "", "", "", "M");

	var fPid	     = ds_patinfolist.getColumn(0, "pid");	
	var fHngnm    = ds_patinfolist.getColumn(0, "hngnm");
	var fRrgstno1 = ds_patinfolist.getColumn(0, "rrgstno1");
	var fRrgstno2 = ds_patinfolist.getColumn(0, "rrgstno2");
	var fSex      = ds_patinfolist.getColumn(0, "sex");
	var fAge      = ds_patinfolist.getColumn(0, "age");
	var fTelno 	 = ds_patinfolist.getColumn(0, "hometel");
	var fZipcode1 = ds_patinfolist.getColumn(0, "zipcd1");
	var fZipcode2 = ds_patinfolist.getColumn(0, "zipcd2");
	var fZipseqno = ds_patinfolist.getColumn(0, "zipcdseq");
	var fAddr1    = ds_patinfolist.getColumn(0, "addr");
	var fAddr2    = ds_patinfolist.getColumn(0, "detladdr");
	var sHngnm    = ds_patinfolist.getColumn(0, "hngnm");
	
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pid", "String",fPid);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pnm", "String",fHngnm);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "rrgstno", "String",fRrgstno1 +"-"+fRrgstno2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "sex", "String",fSex);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "age", "String",fAge);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "telno", "String",fTelno);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode1", "String",fZipcode1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode2", "String",fZipcode2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr1", "String",fAddr1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr2", "String",fAddr2);
	
	var sex = ds_main_dethpatinfo_dethpat.getColumn(0, "sex");						
	if(sex=="M")
	{
		rdo_seconddethkindcd.enable = false;
	}
	var age = ds_main_dethpatinfo_dethpat.getColumn(0, "age");		 	
	if(age>=5)
	{
		rdo_firstdethkindcd.enable = false;
		rdo_thirddethkindcd.enable = false;
	}
	else if(age<=4)
	{
		rdo_firstdethkindcd.enable = true;
		rdo_thirddethkindcd.enable = true;
	}
	var cd = ds_main_dethpatinfo_dethpat.getColumn(0, "dethresncd");
	if(cd=="02")
	{
		cmb_viokindcd.enable = true;
		cmb_viopleced.enable = true;
		cmb_statcd.enable = true;
		ipt_vioacddd.enable = true;
		ipt_vioacdtm.enable = true;
	}	
    var aPid = ds_patinfolist.getColumn(0, "pid");
	dsf_makeValue(ds_send_reqdata_deth, "pid", "string", aPid);		
	
	var oParam = {};
		oParam.id          = "TRMRD00510";
		oParam.service     = "dschanalyapp.DschAnaly";
		oParam.method      = "reqGetDethPatInfo";
		oParam.inds        = "req=ds_send_reqdata_deth";
		oParam.outds       = "ds_main_dethpatinfo_dethpat=dethpat";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMRD00510";

	tranf_submit(oParam);


	var fPid	  = ds_patinfolist.getColumn(0, "pid");
    var fHngnm    = ds_patinfolist.getColumn(0, "hngnm");
    var fRrgstno1 = ds_patinfolist.getColumn(0, "rrgstno1");
    var fRrgstno2 = ds_patinfolist.getColumn(0, "rrgstno2");
	var fSex      = ds_patinfolist.getColumn(0, "sex");
	var fAge      = ds_patinfolist.getColumn(0, "age");
	var fTelno 	  = ds_patinfolist.getColumn(0, "hometel");
	var fZipcode1 = ds_patinfolist.getColumn(0, "zipcd1");
	var fZipcode2 = ds_patinfolist.getColumn(0, "zipcd2");
	var fZipseqno = ds_patinfolist.getColumn(0, "zipcdseq");
	var fAddr1    = ds_patinfolist.getColumn(0, "addr");
	var fAddr2    = ds_patinfolist.getColumn(0, "detladdr");
	var sHngnm    = ds_patinfolist.getColumn(0, "hngnm");

	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pid", "String",fPid);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pnm", "String",fHngnm);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "rrgstno", "String",fRrgstno1 +"-"+fRrgstno2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "sex", "String",fSex);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "age", "String",fAge);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "telno", "String",fTelno);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode1", "String",fZipcode1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode2", "String",fZipcode2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr1", "String",fAddr1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr2", "String",fAddr2);
	
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "insukind", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "indd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dschdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "deptcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdocnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdoctid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "opdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "ordopendd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethresncd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdstatcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacddd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnrsltcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womnpartrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd1", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd2", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd3", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd4", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlborncascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornsexcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornmultpltscd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethmtherpid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "cngntlmfmdyn", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "multpltflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "nbabydethcascd", "String","");

	appf_getInOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", "", "", "ds_init_orddept_dept", false, "");
	
	var  atdoctid = ds_main_dethpatinfo_dethpat.getColumn(0, "atdoctid");
	ds_main_dethpatinfo_dethpat.setColumn(0, "atdocnm",atdoctid);
	
	fGetDrList("ds_send_reqdata", "ds_init_userlist_drlist", cmb_orddept.value, "total");//주치의 조회
}


function freqrrgstno()
{
	var rrgstno = ds_main_dethpatinfo_dethpat.getColumn(0, "rrgstno");
	if(utlf_isNull(rrgstno))
	{
		return;
	}

    dsf_makeValue(ds_main_patinfo, "pid", "String", ds_main_dethpatinfo_dethpat.getColumn(0, "pid"));
    dsf_makeValue(ds_main_patinfo, "hngnm", "String", ds_main_dethpatinfo_dethpat.getColumn(0, "pnm"));
    dsf_makeValue(ds_main_patinfo, "rrgstno1", "String", ds_main_dethpatinfo_dethpat.getColumn(0, "rrgstno"));
    dsf_makeValue(ds_main_patinfo, "rrgstno2", "String", ds_main_dethpatinfo_dethpat.getColumn(0, "rrgstno"));
    dsf_makeValue(ds_main_patinfo, "autoflag", "String", "Y");
    
    var objArg = new Object();
		objArg.arg_ds_send = ds_main_patinfo;
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", 1, 150, 150, "", "", "", "", "", "M");
	
    ds_main_dethpatinfo_dethpat.setColumn(0, "pid",     ds_patinfolist.getColumn(0, "pid"));
    
    var hngnm    = ds_patinfolist.getColumn(0, "hngnm");
    var rrgstno1 = ds_patinfolist.getColumn(0, "rrgstno1");
    var rrgstno2 = ds_patinfolist.getColumn(0, "rrgstno2");
	var sex      = ds_patinfolist.getColumn(0, "sex");
	var age      = ds_patinfolist.getColumn(0, "age");
	var telno 	 = ds_patinfolist.getColumn(0, "hometel");
	var zipcode1 = ds_patinfolist.getColumn(0, "zipcd1");
	var zipcode2 = ds_patinfolist.getColumn(0, "zipcd2");
	var zipseqno = ds_patinfolist.getColumn(0, "zipcdseq");
	var addr1    = ds_patinfolist.getColumn(0, "addr");
	var addr2    = ds_patinfolist.getColumn(0, "detladdr");
	
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "pnm", "String",hngnm);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "rrgstno", "String",rrgstno1 +"-"+rrgstno2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "sex", "String",sex);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "age", "String",age);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "telno", "String",telno);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode1", "String",zipcode1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "zipcode2", "String",zipcode2);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr1", "String",addr1);
	dsf_makeValue(ds_main_dethpatinfo_dethpat, "addr2", "String",addr2);
	
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "insukind", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "indd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dschdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "deptcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdocnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "atdoctid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "opdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "ordopendd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethdd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethresncd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "dethkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "basedethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "mdldethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "direcdethcasnm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdkindcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdplcecd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdstatcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacddd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "viodethacdtm", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethcascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnrsltcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womndethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "womnpartrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd1", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd2", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd3", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "paritycd4", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlborncascd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornsexcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornmultpltscd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "stlbornbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethweekcnt", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethbdwtqty", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "infantdethmtherpid", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "partrtnmthdcd", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "cngntlmfmdyn", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "multpltflag", "String","");
// 	dsf_makeValue(ds_main_dethpatinfo_dethpat, "nbabydethcascd", "String","");
	
	var sex = ds_main_dethpatinfo_dethpat.getColumn(0, "sex");						
	if(sex=="M")
	{
		rdo_seconddethkindcd.enable = false;
	}
	var age = ds_main_dethpatinfo_dethpat.getColumn(0, "age");		 	
	if(age>=5)
	{
		rdo_firstdethkindcd.enable = false;
		rdo_thirddethkindcd.enable = false;
	}
	else if(age<=4)
	{
		rdo_firstdethkindcd.enable = true;
		rdo_thirddethkindcd.enable = true;
	}
}           


function freqaddr()
{				
    var addr1 = ds_main_dethpatinfo_dethpat.getColumn(0, "addr1");
    if(utlf_isNull(addr1))
    {
		sysf_messageBox("동을","C001");
		ipt_addr1.setFocus();
		return;
    }
    
    var retValue = appf_getZipCodeList("combination");
 
	 ds_main_dethpatinfo_dethpat.setColumn(0, "zipcode1", retValue.zipcdhead);
	 ds_main_dethpatinfo_dethpat.setColumn(0, "zipcode2", retValue.zipcdfoot);
	 ds_main_dethpatinfo_dethpat.setColumn(0, "zipseqno", retValue.seqno);
	 ds_main_dethpatinfo_dethpat.setColumn(0, "addr1", retValue.address);
}


function fDethCd(flag,editflag)
{
    var Pid = ds_main_dethpatinfo_dethpat.getColumn(0, "pid");
	if(utlf_isNull(Pid))
	{
	    sysf_messageBox("환자번호를 입력","I008");
	    return;
	}	
	var bCode = ds_main_dethpatinfo_dethpat.getColumn(0, "basedethcascd");
	var mCode = ds_main_dethpatinfo_dethpat.getColumn(0, "mdldethcascd");
	var dCode = ds_main_dethpatinfo_dethpat.getColumn(0, "direcdethcascd");
    var dethflag = ds_temp_flag.getColumn(0, "dethflag");
    var dispdiagcd = ds_temp_selectdiaglist.getColumn(0, "dispdiagcd");
    
    frmf_clearParameter("SPMRT01500_FLAG");
    frmf_clearParameter("SPMRT01500_SEARCHDATA");
    frmf_setParameter("SPMRT01500_param_nodepath","ds_temp_selectdiaglist");
    
	if(dethflag=="1")
	{
		if((flag=="B")&&(editflag=="Y"))
		{
			if(!utlf_isNull(bCode))
			{
				frmf_setParameter("SPMRT01500_FLAG","1");   
				frmf_setParameter("SPMRT01500_SEARCHDATA", bCode);
			} 
		}
		else if((flag=="B")&&(editflag=="N"))
		{
			frmf_setParameter("SPMRT01500_FLAG","1");
			frmf_setParameter("SPMRT01500_SEARCHDATA","");
			
		}
		frmf_setParameter("stndd", ds_main_dethpatinfo_dethpat.getColumn(0, "dethdd"));
		frmf_setParameter("maininstyn", "N");
		frmf_modal("SPMRT01500", "SPMRT01500", "", "", "", "", "", "", "", "", "", "", "M");
		
		if(ds_temp_selectdiaglist.rowcount > 0)
		{
			ds_main_dethpatinfo_dethpat.setColumn(0, "basedethcascd",ds_temp_selectdiaglist.getColumn(0, "dispdiagcd"));
			ds_main_dethpatinfo_dethpat.setColumn(0, "basedethcasnm",ds_temp_selectdiaglist.getColumn(0, "diaghngnm"));
		}
	}
	else if(dethflag=="2")
	{
		if((flag=="M")&&(editflag=="Y"))
		{
			if(!utlf_isNull(mCode))
			{
				frmf_setParameter("SPMRT01500_FLAG","1");   
				frmf_setParameter("SPMRT01500_SEARCHDATA", mCode);  
			}
		}
		else if((flag=="M")&&(editflag=="N"))
		{
			frmf_setParameter("SPMRT01500_FLAG","1"); 
			frmf_setParameter("SPMRT01500_SEARCHDATA",""); 
		}
		
		frmf_setParameter("stndd", ds_main_dethpatinfo_dethpat.getColumn(0, "dethdd"));
		frmf_setParameter("maininstyn", "N");
		frmf_modal("SPMRT01500", "SPMRT01500", "", "", "", "", "", "", "", "", "", "", "M");
		
		if(ds_temp_selectdiaglist.rowcount > 0)
		{
			ds_main_dethpatinfo_dethpat.setColumn(0, "mdldethcascd",ds_temp_selectdiaglist.getColumn(0, "dispdiagcd"));
			ds_main_dethpatinfo_dethpat.setColumn(0, "mdldethcasnm",ds_temp_selectdiaglist.getColumn(0, "diaghngnm"));  
		}        
	}
	else if(dethflag=="3")
	{
	
		if((flag=="D")&&(editflag=="Y"))
		{
			frmf_setParameter("SPMRT01500_FLAG","1");   
			frmf_setParameter("SPMRT01500_SEARCHDATA", dCode);  
		}
		else if((flag=="D")&&(editflag=="N"))
		{
			frmf_setParameter("SPMRT01500_FLAG","1"); 
			frmf_setParameter("SPMRT01500_SEARCHDATA",""); 
		}
		frmf_setParameter("stndd", ds_main_dethpatinfo_dethpat.getColumn(0, "dethdd"));
		frmf_setParameter("maininstyn", "N");
		frmf_modal("SPMRT01500", "SPMRT01500", "", "", "", "", "", "", "", "", "", "", "M");
		
		if(ds_temp_selectdiaglist.rowcount > 0)
		{
			ds_main_dethpatinfo_dethpat.setColumn(0, "direcdethcascd",ds_temp_selectdiaglist.getColumn(0, "dispdiagcd"));
			ds_main_dethpatinfo_dethpat.setColumn(0, "direcdethcasnm",ds_temp_selectdiaglist.getColumn(0, "diaghngnm"));  
		}
	} 
}


function fCleardethinfo()
{
	ds_main_dethpatinfo_dethpat.clearData();
	ds_main_dethpatinfo_dethpat.addRow();
	
    rdo_firstdethkindcd.enable = true;
	rdo_seconddethkindcd.enable = true;
	rdo_thirddethkindcd.enable = true;
	rdo_fourdethkindcd.enable = true;
	rdo_fivedethkindcd.enable = true;
} 


function fdethinfo()
{	
	frmf_modal("SMMRD01100", "SMMRD01100", "", "", "", "", "", "", "", "", "", "", "M");
	
	if(utlf_isNull(frmf_getParameter("SPMRD00500_pid"))) return;
	
	var pid = frmf_getParameter("SPMRD00500_pid");
	
	dsf_makeValue(ds_send_reqdata_deth, "pid", "String", pid);	
	
	var oParam = {};
		oParam.id          = "TRMRD00510";
		oParam.service     = "dschanalyapp.DschAnaly";
		oParam.method      = "reqGetDethPatInfo";
		oParam.inds        = "req=ds_send_reqdata_deth";
		oParam.outds       = "ds_main_dethpatinfo_dethpat=dethpat";
		oParam.async       = false;
		oParam.callback    = "cf_TRMRD00510";

	tranf_submit(oParam);

	if(arErrorCode.pop("TRMRD00510") > -1)
	{
		appf_getInOrdDeptList(sysf_getUserInfo("dutplceinstcd"), "depthngnm", "asc", "", "", "ds_init_orddept_dept", false, "");
	
		var  atdoctid = ds_main_dethpatinfo_dethpat.getColumn(0, "atdoctid");
		ds_main_dethpatinfo_dethpat.setColumn(0, "atdocnm",atdoctid);
		fGetDrList("ds_send_reqdata", "ds_init_userlist_drlist", cmb_orddept.value, "total");//주치의 조회
		
		var cd = ds_main_dethpatinfo_dethpat.getColumn(0, "dethresncd");
		if(cd=="02")
		{
			cmb_viokindcd.enable = true;
			cmb_viopleced.enable = true;
			cmb_statcd.enable = true;
			ipt_vioacddd.enable = true;
			ipt_vioacdtm.enable = true;
		}
		var sex = ds_main_dethpatinfo_dethpat.getColumn(0, "sex");						
		if(sex=="M")
		{
			rdo_seconddethkindcd.enable = false;
		}
		var age = ds_main_dethpatinfo_dethpat.getColumn(0, "age");		 	
		if(age>=5)
		{
			rdo_firstdethkindcd.enable = false;
			rdo_thirddethkindcd.enable = false;
		}
		else if(age<=4)
		{
			rdo_firstdethkindcd.enable = true;
			rdo_thirddethkindcd.enable = true;
		}
	}	
	frmf_setParameter("SPMRD00500_pid", "");
}

function cf_TRMRD00510(sSvcId, nErrorCode, sErrorMsg) 
{
	arErrorCode.push(sSvcId, nErrorCode);
    if(nErrorCode < 0) return;
}


function fSavedethinfo()
{		    
    if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "pid")))
    {
	    sysf_messageBox("환자번호를 입력","I008");
	    return;
	}
	if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "age")))
	{
	    sysf_messageBox("나이를 입력","I008");
	    return;
	}
	if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "insukind")))
	{
	    sysf_messageBox("보험종류를 입력","I008");
	    return;
	}
	if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "dethdd")))
	{
	    sysf_messageBox("사망일자를 입력","I008");
	    return;
	} 
	if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "dethresncd")))
	{
	     sysf_messageBox("사망사유를 입력","I008");
	    return;
    }
    if(utlf_isNull(ds_main_dethpatinfo_dethpat.getColumn(0, "dethflag")))
    {
	     sysf_messageBox("사망구분을 입력","I008");
	    return;
    }
    
    var oParam = {};
		oParam.id          = "TXMRD00510";
		oParam.service     = "dschanalyapp.DschAnaly";
		oParam.method      = "insDethPatInfo";
		oParam.inds        = "dethpatnifo=ds_main_dethpatinfo_dethpat";
		oParam.outds       = "ds_main_dethpatinfo_dethpat=dethpat";
		oParam.async       = false;
		oParam.callback    = "cf_TXMRD00510";

	tranf_submit(oParam);
}

function cf_TXMRD00510(sSvcId, nErrorCode, sErrorMsg) 
{
	if(nErrorCode < 0) 
	{
		sysf_messageBox("저장이 ","E009");		
		return;
	}
	else
	{
		sysf_messageBox("작성하신 정보가","I001");
	}
}
]]></Script>