YNU_JEUS/app_home/himed/xpapps/emr/agonalcarexp/xp/SMMNH03500.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[function fSearch()
{
	var pid, hngnm, sexage, rrgstno;

	if(frmf_checkOpener())
	{
		pid     = opener.frmf_getParameter("pid");
		hngnm   = opener.frmf_getParameter("hngnm");
		sexage  = opener.frmf_getParameter("sexage");
		rrgstno = opener.frmf_getParameter("rrgstno");
		indd    = opener.frmf_getParameter("indd");
		cretno  = opener.frmf_getParameter("cretno");
	}
	else
	{
		pid     = ds_main_hospiceinfo.getColumn(0, "pid");
		hngnm   = ds_main_hospiceinfo.getColumn(0, "hngnm");
		sexage  = ds_main_hospiceinfo.getColumn(0, "sexage");
		rrgstno = ds_main_hospiceinfo.getColumn(0, "rrgstno");
		indd    = ds_main_hospiceinfo.getColumn(0, "indd");
		cretno  = ds_main_hospiceinfo.getColumn(0, "cretno");
	}

	ds_main_hospiceinfo.setColumn(0, "pid", pid);
	
	ds_main_hospicefamy_famylist.clearData();
	dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256, val: ds_main_hospiceinfo.getColumn(0, "pid")}]);
					         
	var oParam = {};
		oParam.id          = "TRMNH03501";
		oParam.service     = "hospiceapp.HospicePatMngt";
		oParam.method      = "reqFamylist";
		oParam.inds        = "reqfamy=ds_send";
		oParam.outds       = "ds_main_hospicefamy_famylist=famylist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNH03501";

	tranf_submit(oParam);

	ds_main_hospiceinfo.setColumn(0, "pid", pid);
	ds_main_hospiceinfo.setColumn(0, "hngnm", hngnm);
	ds_main_hospiceinfo.setColumn(0, "sexage", sexage);
	ds_main_hospiceinfo.setColumn(0, "rrgstno", rrgstno);
	ds_main_hospiceinfo.setColumn(0, "indd", indd);
	ds_main_hospiceinfo.setColumn(0, "cretno", cretno);
}

function fSave()
{
	var sData = "pid" 
			+ "▦xmlcd"
			+ "▩" ;
			
		sData += 
					utlf_transNullToEmpty(ds_main_hospiceinfo.getColumn(0, "pid"))
				+ "▦" + "TRMNH03502"
				+ "▩"   ;

	var sPafaData =
			  "pid"                //01등록번호
			+ "▦cretseqno"        //02생성일련번호
			+ "▦instcd"           //03병원기관코드
			+ "▦famyrel"          //04가족관계
			+ "▦zipcd1"           //05우편번호1
			+ "▦zipcd2"           //06우편번호2
			+ "▦zipcdseq"         //07우편번호 순서(일련번호)
			+ "▦detladdr"         //08상세주소(하위주소)
			+ "▦famynm"           //09가족이름
			+ "▦marytypeflag"     //10결혼형태구분
			+ "▦cntctel"          //11전화번호
			+ "▦maincarednor"     //12주간호제공자
			+ "▦cmt"              //13비고
			+ "▦separationfamyyn" //14사별가족여부
			+ "▦todt"             //15종료일시
			+ "▦address"          //16주소
			+ "▩"   ;

	for (var i = 0; i < ds_main_hospicefamy_famylist.rowcount; i++ ) 
	{			
		sPafaData +=
						 utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "pid"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "cretseqno"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "instcd"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "famyrel"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "zipcd1"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "zipcd2"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "zipcdseq"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "detladdr"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "famynm"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "marytypeflag"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "cntctel"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "maincarednor"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "cmt"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "separationfamyyn"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "todt"))
				+ "▦" + utlf_transNullToEmpty(ds_main_hospicefamy_famylist.getColumn(i, "addr"))
				+ "▩"   ;
	}	

	dsf_setCSVToDs("ds_send_sData", sData);
	dsf_setCSVToDs("ds_send_sPafaData", sPafaData);
	
	var oParam = {};
		oParam.id          = "TRMNH03502";
		oParam.service     = "hospiceapp.HospicePatMngt";
		oParam.method      = "reqsetHosRecord";
		oParam.inds        = "reqsetHosRecord=ds_send_sData reqsetPafaRecord=ds_send_sPafaData";
		oParam.outds       = "ds_main_hospicefamy_famylist=famylist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNH03502";

	tranf_submit(oParam);
	
	fSearch();
}]]></Script>