YNU_JEUS/app_home/himed/xpapps/emr/carerecxp/xp/SMMNR02300_약물계산기.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNR02300" position="absolute 0 0 1200 765" titletext="약물계산기" oninit="SMMNR02300_oninit" onload="SMMNR02300_onload" scrollbars="none" ontimer="SMMNR02300_ontimer">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 1195 25" id="group1">
          <Layouts>
            <Layout>
              <Static text="약물계산기" position="absolute 0 0 101 25" id="caption6" class="tit_1"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 762 1195 789" id="grp_btn" scrollbars="autoboth"/>
        <Div position="absolute 0 18 1199 762" id="group5" scrollbars="autoboth">
          <Layouts>
            <Layout width="1199" height="743">
              <Static text="계산항목 리스트" position="absolute 0 9 170 25" id="caption42" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 25 616 31" linetype="horizontal" id="line18" class="line_10" anchor="default"/>
              <Static text="항목별 계산요소 리스트" position="absolute 620 9 782 25" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 620 25 1195 31" linetype="horizontal" id="line1" class="line_10" anchor="default"/>
              <Static text="항목별 계산식" position="absolute 0 380 129 396" id="caption2" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 396 616 402" linetype="horizontal" id="line2" class="line_10" anchor="default"/>
              <Static text="실행결과" position="absolute 620 700 777 716" id="caption3" class="tit_2" anchor="default"/>
              <Shape position="absolute 620 716 1195 722" linetype="horizontal" id="line3" class="line_10" anchor="default"/>
              <Shape position="absolute 620 738 1195 744" linetype="horizontal" id="line4" class="line_3" anchor="default"/>
              <Grid position="absolute 0 30 616 370" id="grd_itemlist" binddataset="ds_main_iteminfo_itemlist" anchor="default" oncellclick="group5_grd_itemlist_oncellclick" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="239"/>
                      <Column size="358"/>
                      <Column size="0"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="항목명"/>
                      <Cell col="1" text="항목설명"/>
                      <Cell col="2" text="itemcd"/>
                      <Cell col="3" text="calform"/>
                      <Cell col="4" text="supcd"/>
                    </Band>
                    <Band id="body">
                      <Cell style="align:left middle;" text="bind:itemnm"/>
                      <Cell col="1" style="align:left middle;" text="bind:desccnts"/>
                      <Cell col="2" text="bind:itemcd"/>
                      <Cell col="3" text="bind:calform"/>
                      <Cell col="4" text="bind:supcd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Grid position="absolute 620 30 1195 690" id="grd_elmtlist" binddataset="ds_main_elmtinfo_elmtlist" anchor="default" cellsizingtype="col" autoenter="key">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="224"/>
                      <Column size="239"/>
                      <Column size="88"/>
                      <Column size="0"/>
                      <Column size="0"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell text="요소명칭"/>
                      <Cell col="1" text="요소설명"/>
                      <Cell col="2" text="입력값"/>
                      <Cell col="3" text="itemcd"/>
                      <Cell col="4" text="supcd"/>
                    </Band>
                    <Band id="body">
                      <Cell style="align:left middle;" text="bind:itemnm"/>
                      <Cell col="1" style="align:left middle;" text="bind:desccnts"/>
                      <Cell col="2" displaytype="normal" edittype="normal" editfilter="number" style="align:left;padding:0 2 0 2;" text="bind:itemval" maskchar="_" editimemode="none" editlimitbymask="decimal"/>
                      <Cell col="3" text="bind:itemcd"/>
                      <Cell col="4" text="bind:supcd"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <TextArea position="absolute 0 400 616 739" id="tar_calform" enable="false" anchor="default" style="font:Dotum,18;"/>
              <Edit readonly="true" position="absolute 620 720 1195 739" id="opt_itemval" anchor="default" style="font:Dotum,9,bold;" class="output"/>
              <Button position="absolute 1153 3 1195 22" id="btn_exec" class="btn2" text="실행" anchor="default" onclick="group5_btn_exec_onclick"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_iteminfo_itemlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="itemnm" type="STRING" size="256"/>
          <Column id="desccnts" type="STRING" size="256"/>
          <Column id="itemcd" type="STRING" size="256"/>
          <Column id="calform" type="STRING" size="256"/>
          <Column id="supcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_elmtinfo_elmtlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="itemnm" type="STRING" size="256"/>
          <Column id="desccnts" type="STRING" size="256"/>
          <Column id="itemval" type="BIGDECIMAL" size="256"/>
          <Column id="itemcd" type="STRING" size="256"/>
          <Column id="supcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_srchinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="itemcalform" type="STRING" size="256"/>
          <Column id="rsltval" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item1" compid="group5.opt_itemval" propid="value" datasetid="ds_main_srchinfo" columnid="rsltval"/>
      <BindItem id="item0" compid="group5.tar_calform" propid="value" datasetid="ds_main_srchinfo" columnid="itemcalform"/>
    </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";

var arErrorCode = new HashArray();

function cf_TRMNR02302(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
	utlf_addLog("***** cf_TRMNR02302 *****");
}

function SMMNR02300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	
}

function SMMNR02300_onload(obj:Form, e:LoadEventInfo)
{
// 	dsf_makeValue(ds_send,"supcd", "string", "*");
// 
// 	var oParam = {};
//     oParam.id          = "TRMNR02301";
//     oParam.service     = "carerecapp.ClincObsRec";
//     oParam.method      = "reqGetDrugCalcItemList";
//     oParam.inds        = "refCond=ds_send";
//     oParam.outds       = "ds_main_iteminfo_itemlist=itemlist";
//     oParam.async       = false;
// 
// 	tranf_submit(oParam);
// 	
// 	ds_main_iteminfo_itemlist.rowposition = -1;
	this.setTimer(0, 100);
}

function group5_grd_itemlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var xItemtListPath = "ds_main_iteminfo_itemlist";					
	var sItemRow = ds_main_iteminfo_itemlist.rowposition;
	if(sItemRow < 0) return;
	ds_send.clearData();
	dsf_makeValue(ds_send,"supcd", "string", ds_main_iteminfo_itemlist.getColumn(sItemRow, "itemcd"));
	
	var oParam = {};
    oParam.id          = "TRMNR02302";
    oParam.service     = "carerecapp.ClincObsRec";
    oParam.method      = "reqGetDrugCalcItemList";
    oParam.inds        = "refCond=ds_send";
    oParam.outds       = "ds_main_elmtinfo_elmtlist=elmtlist";
    oParam.async       = false;
    oParam.callback    = "cf_TRMNR02302";

	tranf_submit(oParam);
	
	ds_main_elmtinfo_elmtlist.addColumn("itemval", "string"); 
	
	ds_main_elmtinfo_elmtlist.rowposition = -1;
	
	if(arErrorCode.pop("TRMNR02302") > -1){
		ds_main_srchinfo.setColumn(0, "itemcalform", ds_main_iteminfo_itemlist.getColumn(sItemRow, "calform"));
		ds_main_srchinfo.setColumn(0, "rsltval","");
	}
}

function group5_btn_exec_onclick(obj:Button,  e:ClickEventInfo)
{
	var xElmtListPath = "ds_main_elmtinfo_elmtlist";
	var sItemVal = 0;
	var sItemNM = "";
	var sCalForm = ds_main_srchinfo.getColumn(0, "itemcalform");
	if( utlf_isNull(sCalForm) ){
		sysf_messageBox("계산항목을 먼저","C002");
		return;
	}
	// 입력 여부 체크 및 값 설정
	for(var iRow = 0; iRow < ds_main_elmtinfo_elmtlist.rowcount; iRow++){
		if( utlf_isNull(ds_main_elmtinfo_elmtlist.getColumn(iRow, "itemval")) ){
			sysf_messageBox("입력값은","I003");
			return;
		}
		sItemNM	 = ds_main_elmtinfo_elmtlist.getColumn(iRow, "itemnm");
		sItemVal = ds_main_elmtinfo_elmtlist.getColumn(iRow, "itemval");
		while(sCalForm.indexOf(sItemNM) >= 0){
			sCalForm = sCalForm.replace(sItemNM, sItemVal);
		}
	}
	
	var sRsltVal = eval(sCalForm);
	ds_main_srchinfo.setColumn(0, "rsltval",sRsltVal);
}

function SMMNR02300_ontimer(obj:Form, e:TimerEventInfo)
{
	if( e.timerid == 0 ){
		this.killTimer(0);
		
		dsf_makeValue(ds_send,"supcd", "string", "*");

		var oParam = {};
		oParam.id          = "TRMNR02301";
		oParam.service     = "carerecapp.ClincObsRec";
		oParam.method      = "reqGetDrugCalcItemList";
		oParam.inds        = "refCond=ds_send";
		oParam.outds       = "ds_main_iteminfo_itemlist=itemlist";
		oParam.async       = false;

		tranf_submit(oParam);
		
		ds_main_iteminfo_itemlist.rowposition = -1;
	}
}
]]></Script>
  </Form>
</FDL>