YNU_JEUS/app_home/himed/xpapps/emr/agonalcarexp/xp/SMMNH03300_pop통증사정도구 VAS입력및조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNH03300" position="absolute 0 0 490 600" titletext="VAS/KPS추가 입력 및 조회" oninit="SMMNH03300_oninit" onload="SMMNH03300_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 5 5 483 590" id="grp_biz" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Static text="입력시간" position="absolute 153 3 219 26" align="align:center middle;" id="caption2" class="cell_1"/>
              <Grid position="absolute 1 67 477 583" id="grd_vashlist" binddataset="ds_main_vash_vashlist" autofittype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="23"/>
                      <Column size="25"/>
                      <Column size="150"/>
                      <Column size="112"/>
                      <Column size="150"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <Cell col="1"/>
                      <Cell col="2" text="입력일시"/>
                      <Cell col="3" text="test"/>
                      <Cell col="4" text="입력자"/>
                      <Cell col="5"/>
                      <Cell col="6"/>
                      <Cell col="7"/>
                      <Cell col="8"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="currow+1"/>
                      <Cell col="1" class="update_n" text="bind:status"/>
                      <Cell col="2" text="bind:recdt"/>
                      <Cell col="3" text="bind:vasrslt"/>
                      <Cell col="4" text="bind:usernm"/>
                      <Cell col="5" text="bind:staiud"/>
                      <Cell col="6" text="bind:recdd"/>
                      <Cell col="7" text="bind:rectm"/>
                      <Cell col="8" text="bind:userid"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static position="absolute 1 10 155 32" id="caption1" class="tit_2"/>
              <Button position="absolute 280 7 333 26" id="button2" class="btn2" text="행추가" onclick="grp_biz_button2_onclick"/>
              <Button position="absolute 335 7 388 26" id="button1" class="btn2" text="행삭제" onclick="grp_biz_button1_onclick"/>
              <Shape position="absolute -1 26 475 32" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
              <Button position="absolute 262 8 278 24" id="btn_clock" class="icon_clock" text="" onclick="grp_biz_btn_clock_onclick"/>
              <MaskEdit position="absolute 221 6 260 25" id="ipt_recdt" class="input_search" mask="##:##" autoselect="true" maskchar=" " trimtype="both" type="string" displaynulltext=" "/>
              <Grid position="absolute 0 30 476 64" id="vasval" class="datagrid2" scrollbars="autoboth" taborder="17" autofittype="col" oncellclick="grp_biz_vasval_oncellclick">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                      <Column size="43"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="0"/>
                      <Cell col="1" text="1"/>
                      <Cell col="2" text="2"/>
                      <Cell col="3" text="3"/>
                      <Cell col="4" text="4"/>
                      <Cell col="5" text="5"/>
                      <Cell col="6" text="6"/>
                      <Cell col="7" text="7"/>
                      <Cell col="8" text="8"/>
                      <Cell col="9" text="9"/>
                      <Cell col="10" text="10"/>
                    </Band>
                    <Band id="body">
                      <Cell/>
                      <Cell col="1"/>
                      <Cell col="2"/>
                      <Cell col="3"/>
                      <Cell col="4"/>
                      <Cell col="5"/>
                      <Cell col="6"/>
                      <Cell col="7"/>
                      <Cell col="8"/>
                      <Cell col="9"/>
                      <Cell col="10"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 390 7 432 26" id="button3" class="btn5" text="저장" onclick="grp_biz_button3_onclick"/>
              <Button position="absolute 434 7 476 26" id="button4" class="btn2" text="닫기" onclick="grp_biz_button4_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_temp_oncolumnchanged">
        <ColumnInfo>
          <Column id="recdt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_vash_vashlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="상태"/>
          <Column id="recdt" type="STRING" size="256" sumtext="입력일시"/>
          <Column id="vasrslt" type="STRING" size="256" sumtext="vas값"/>
          <Column id="usernm" type="STRING" size="256" sumtext="입력자"/>
          <Column id="staiud" type="STRING" size="256" sumtext="상태"/>
          <Column id="recdd" type="STRING" size="256" sumtext="입력일자"/>
          <Column id="rectm" type="STRING" size="256" sumtext="입력시간"/>
          <Column id="userid" type="STRING" size="256" sumtext="입력자 ID"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_sVashData" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_biz.ipt_recdt" propid="value" datasetid="ds_temp" columnid="recdt"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_agonalcarexp::SMMNH03300.xjs";
function SMMNH03300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

var pid = opener.frmf_getParameter("pid");
var cretdd = opener.frmf_getParameter("cretdd");
var crettm = opener.frmf_getParameter("crettm");
var recitemcd = opener.frmf_getParameter("recitemcd");
var recdd = opener.frmf_getParameter("recdd");
var vas_row = opener.frmf_getParameter("vas_row");
var vas_col = opener.frmf_getParameter("vas_col");
var vashval = opener.frmf_getParameter("vashval");
var spid = opener.frmf_getParameter("spid");
var popGbn 	= opener.frmf_getParameter("popGbn");

var rectm;
				
function SMMNH03300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grp_biz.grd_vashlist);
	grdf_setRowTypeIcon(grp_biz.grd_vashlist, 1);
	
	if(utlf_isNull(vashval))
	{
		vashval = "I";
	}
	else
	{
		vashval = "U";
	}

	fInit();
}

function grp_biz_btn_clock_onclick(obj:Button,  e:ClickEventInfo)
{
	var curtime = utlf_getCurrentTime().substr(0, 4);
	ds_temp.setColumn(0, "recdt", curtime);
}

function ds_temp_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var recdt = obj.getColumn(0, "recdt");
	
	if(Number(recdt.substr(0,2)) > 24)
	{
		sysf_messageBox("시간 입력에","E009");
		obj.setColumn(0, "recdt", "");
		grp_biz.ipt_recdt.setFocus();
		return;
	}
	
	if(Number(recdt.substr(2,4)) > 60)
	{
		sysf_messageBox("분 입력에","E009");
		ds_temp.setColumn(0, "recdt", "");
		grp_biz.ipt_recdt.setFocus();
		return;
	}	
}

function grp_biz_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	var curDate = utlf_getCurrentDate();
	var inpTime = ds_temp.getColumn(0, "recdt");
	
	
	if(utlf_isNull(inpTime)|| !utlf_isValidDateTime(inpTime, "hhmm"))
	{
		inpTime = utlf_getCurrentTime().substr(0, 4); 
		ds_temp.setColumn(0, "recdt", inpTime);
	}
	
	var grdtm;
	for(var i = 0; i < ds_main_vash_vashlist.rowcount; i++)
	{
		grdtm = ds_main_vash_vashlist.getColumn(i, "rectm");
		
		if(grdtm == inpTime)
		{
			sysf_messageBox("입력시간이 같으면 행을 추가 할수 ","I004");
			return;	
		}
	}

	var registddtmStr  = curDate.substr(0, 4) + "-";
		 registddtmStr += curDate.substr(4, 2) + "-";
		 registddtmStr += curDate.substr(6) + " ";
		 registddtmStr += inpTime.substr(0, 2) + ":";
		 registddtmStr += inpTime.substr(2);

	ds_main_vash_vashlist.insertRow(0);
					
	ds_main_vash_vashlist.setColumn(0, "recdt", registddtmStr);
	ds_main_vash_vashlist.setColumn(0, "staiud", "insert");
	ds_main_vash_vashlist.setColumn(0, "recdd", recdd);
	ds_main_vash_vashlist.setColumn(0, "rectm", inpTime);
	ds_main_vash_vashlist.setColumn(0, "userid", sysf_getUserId());
	ds_main_vash_vashlist.setColumn(0, "usernm", sysf_getUserName());
	
// 	var arrRow = new Array();
// 	arrRow[0] = 0; 
// 	grdf_setStatus(grp_biz.grd_clbsmast, "I", arrRow);
}

function grp_biz_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_main_vash_vashlist.rowposition > -1)
	{
		ds_main_vash_vashlist.enableevent = false;
		ds_main_vash_vashlist.updatecontrol = false;
		ds_main_vash_vashlist.setColumn(ds_main_vash_vashlist.rowposition, "staiud", "delete");
		ds_main_vash_vashlist.setRowType(ds_main_vash_vashlist.rowposition, 8);
		ds_main_vash_vashlist.updatecontrol = true;
		ds_main_vash_vashlist.enableevent = true;
// 		var arrRow = new Array();
// 		arrRow[0] = ds_main_vash_vashlist.rowposition; 
// 		grdf_setStatus(grp_biz.grd_clbsmast, "D", arrRow);
	}
}

function grp_biz_button4_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function grp_biz_button3_onclick(obj:Button,  e:ClickEventInfo)
{
	//var xVashPath = "/root/main/vash/vashlist";
	
	if(utlf_isNull(ds_main_vash_vashlist.getColumn(0, "vasrslt")))
	{
		sysf_messageBox(popGbn + "점수는 필수 입력 사항","E008");
		grp_biz.grd_vashlist.setFocus();
		return;
	}
	
	if(sysf_messageBox("","Q002") != 6) 
	{
		return;	
	}

	var sVashData =
			  "pid"                 //01등록번호
			+ "▦cretdd"         //02생성일자
			+ "▦crettm"         //03생성시간
			+ "▦recitemcd"   //04기록항목코드
			+ "▦recdd"         //05기록일자
			+ "▦rectm"         //06기록시간
			+ "▦vasrslt"        //07값
			+ "▦staiud"         //08상태
			+ "▦userid"         //09입력자
			+ "▩"   ;

	for(var i = 0; i < ds_main_vash_vashlist.rowcount; i++)
	{
		
		sVashData +=
						   pid             //01등록번호
				+ "▦" + cretdd         //02생성일자
				+ "▦" + crettm         //03생성시간
				+ "▦" + recitemcd   //04기록항목코드
				+ "▦" + recdd         //05기록일자
				+ "▦" + ds_main_vash_vashlist.getColumn(i, "rectm")
				+ "▦" + ds_main_vash_vashlist.getColumn(i, "vasrslt")
				+ "▦" + ds_main_vash_vashlist.getColumn(i, "staiud")
				+ "▦" + ds_main_vash_vashlist.getColumn(i, "userid")
				+ "▩"   ;
				
	}
	
	dsf_setCSVToDs("ds_send_sVashData", sVashData);
	
	var oParam = {};
		oParam.id          = "TRMNH03302";
		oParam.service     = "hospiceapp.HospiceRecMngt";
		oParam.method      = "reqsetVash";
		oParam.inds        = "reqsetVash=ds_send_sVashData";
		oParam.outds       = "";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNH03302";

	tranf_submit(oParam);
	
	ds_send.clearData();
	
	dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256 , val : pid}
							 ,	{col:"cretdd", type:"STRING", size:256 , val : cretdd}
							 ,	{col:"crettm", type:"STRING", size:256 , val : crettm}
							 ,	{col:"recitemcd", type:"STRING", size:256 , val : recitemcd}
							 ,	{col:"recdd", type:"STRING", size:256 , val : recdd}]);
	
	var oParam = {};
		oParam.id          = "TRMNH03301";
		oParam.service     = "hospiceapp.HospiceRecMngt";
		oParam.method      = "reqVashList";
		oParam.inds        = "reqVashList=ds_send";
		oParam.outds       = "ds_main_vash_vashlist=vashlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNH03301";

	tranf_submit(oParam);
	
	ds_send.clearData();
	
	dsf_createDsRow("ds_send", [{col:"pid", type:"STRING", size:256 , val : pid}
							 ,	{col:"cretdd", type:"STRING", size:256 , val : cretdd}
							 ,	{col:"crettm", type:"STRING", size:256 , val : crettm}
							 ,	{col:"recitemcd", type:"STRING", size:256 , val : recitemcd}
							 ,	{col:"recdd", type:"STRING", size:256 , val : recdd}
							 ,	{col:"dday", type:"STRING", size:256 , val : ds_main_vash_vashlist.getColumn(0, "vasrslt")}
							 ,	{col:"userid", type:"STRING", size:256 , val : ds_main_vash_vashlist.getColumn(0, "userid")}
							 ,	{col:"vashval", type:"STRING", size:256 , val : vashval}
							 ,	{col:"spid", type:"STRING", size:256 , val : spid}]);
							 
	var oParam = {};
		oParam.id          = "TRMNH03303";
		oParam.service     = "hospiceapp.HospiceRecMngt";
		oParam.method      = "reqsetUptVash";
		oParam.inds        = "reqsetUptVash=ds_send";
		oParam.outds       = "";
		oParam.async       = false;
	//oParam.callback    = "cf_TRMNH03303";

	tranf_submit(oParam);
	
	opener.ds_main_inpt_pasmlist.setColumn(vas_row, vas_col, ds_main_vash_vashlist.getColumn(0, "vasrslt"));
	opener.ds_main_inpt_pasmlist.setColumn(vas_row, vas_col-1, ds_main_vash_vashlist.getColumn(0, "vasrslt"));
	
	this.close();
}

function grp_biz_vasval_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if(ds_main_vash_vashlist.rowposition > -1)
	{
		ds_main_vash_vashlist.setColumn(ds_main_vash_vashlist.rowposition, "recdt", grp_biz.vasval.getCellProperty("Head", e.col, "text"));
		
		var staiud = ds_main_vash_vashlist.getColumn(ds_main_vash_vashlist.rowposition, "staiud");
		
		if( (staiud =="insert") || (staiud =="delete"))
		{
			return;                        	
		}
		
		ds_main_vash_vashlist.setColumn(ds_main_vash_vashlist.rowposition, "staiud", "update");
		
// 		var arrRow = new Array();
// 		arrRow[0] = ds_main_vash_vashlist.rowposition; 
// 		grdf_setStatus(grp_biz.grd_vashlist, "U", arrRow);
	}
}
]]></Script>
  </Form>
</FDL>