YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO23000_항암제상세정보.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.4">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO23000" position="absolute 0 0 370 258" titletext="항암제 상세정보" oninit="SPMMO23000_oninit" onload="SPMMO23000_onload">
    <Layouts>
      <Layout>
        <Static text="항암제 상세정보" position="absolute 0 0 152 20" align="align:center middle;" id="caption14" class="tit_2"/>
        <Static text="처방코드" position="absolute 0 23 85 46" align="align:center middle;" id="caption26" class="cell_1"/>
        <Edit position="absolute 89 25 370 45" id="ipt_prcpcd" enable="false"/>
        <Static text="처방명칭" position="absolute 0 48 85 71" align="align:center middle;" id="caption13" class="cell_1"/>
        <Edit position="absolute 89 49 370 69" id="ipt_prcpnm" enable="false"/>
        <Static text="시작일" position="absolute 0 73 85 96" align="align:center middle;" id="caption1" class="cell_1"/>
        <Calendar position="absolute 89 74 174 94" id="ipt_appdd" taborder="-1"/>
        <Static text="적용선택" position="absolute 180 73 265 96" align="align:center middle;" id="caption2" class="cell_1"/>
        <Static text="D" position="absolute 267 75 277 95" id="caption5"/>
        <MaskEdit position="absolute 279 74 312 94" id="input2" class="input_essential" mask="#,###"/>
        <Static text="~ D" position="absolute 314 75 339 95" id="caption6"/>
        <MaskEdit position="absolute 337 74 370 94" id="input3" class="input_essential" mask="#,###"/>
        <Static text="Line" position="absolute 0 98 85 121" align="align:center middle;" id="caption3" class="cell_1"/>
        <MaskEdit position="absolute 89 98 174 118" id="ipt_appline" class="input_essential" mask="#,###"/>
        <Static text="Cycle" position="absolute 180 98 265 121" align="align:center middle;" id="caption16" class="cell_1"/>
        <MaskEdit position="absolute 269 98 370 118" id="ipt_appcycle" class="input_essential" mask="#,###"/>
        <Static text="투여목적" position="absolute -1 123 84 233" align="align:center middle;" id="caption4" class="cell_1"/>
        <Radio position="absolute 89 122 369 233" id="sel_purpose" columncount="1" rowcount="7" innerdataset="ds_M0753" datacolumn="cdnm" codecolumn="cdid"/>
        <Button position="absolute 254 238 310 258" id="btn_save" class="btn4" text="저장" onclick="btn_save_onclick"/>
        <Button position="absolute 314 238 370 258" id="btn_exit" class="btn4" text="종료" onclick="btn_exit_onclick"/>
        <Shape id="line1" type="rectangle" radiusy="0" position="absolute 0 20 370 22" style="strokepen:0 solid #33bbbbff;fillbrush:solid #33bbbbff true;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_chemoinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="prcpdayno" type="STRING" size="256"/>
          <Column id="appdd" type="STRING" size="256"/>
          <Column id="appfrom" type="STRING" size="256"/>
          <Column id="appto" type="STRING" size="256"/>
          <Column id="appline" type="STRING" size="256"/>
          <Column id="appcycle" type="STRING" size="256"/>
          <Column id="purpose" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_M0753" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdid" type="STRING" size="256"/>
          <Column id="cdnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관기호"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="입원/외래 구분"/>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방적용일"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="appdd" type="STRING" size="256" sumtext="시작일"/>
          <Column id="appfrom" type="STRING" size="256" sumtext="적용선택 form"/>
          <Column id="appto" type="STRING" size="256" sumtext="적용선택 to"/>
          <Column id="appline" type="STRING" size="256" sumtext="line"/>
          <Column id="appcycle" type="STRING" size="256" sumtext="Cycle"/>
          <Column id="purpose" type="STRING" size="256" sumtext="사용목적"/>
          <Column id="userid" type="STRING" size="256" sumtext="등록자"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_prcpcd" propid="value" datasetid="ds_chemoinfo" columnid="prcpcd"/>
      <BindItem id="item1" compid="ipt_prcpnm" propid="value" datasetid="ds_chemoinfo" columnid="prcpnm"/>
      <BindItem id="item2" compid="ipt_appdd" propid="value" datasetid="ds_chemoinfo" columnid="appdd"/>
      <BindItem id="item3" compid="input2" propid="value" datasetid="ds_chemoinfo" columnid="appfrom"/>
      <BindItem id="item4" compid="input3" propid="value" datasetid="ds_chemoinfo" columnid="appto"/>
      <BindItem id="item5" compid="ipt_appline" propid="value" datasetid="ds_chemoinfo" columnid="appline"/>
      <BindItem id="item6" compid="ipt_appcycle" propid="value" datasetid="ds_chemoinfo" columnid="appcycle"/>
      <BindItem id="item7" compid="sel_purpose" propid="value" datasetid="ds_chemoinfo" columnid="purpose"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";


function SPMMO23000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	
	try {
		ds_chemoinfo.copyData(arg_ds_main_chemoinfo);
	} catch(e) {}
}

function SPMMO23000_onload(obj:Form, e:LoadEventInfo)
{
	appf_getCodeList([{dsNm: "ds_M0753", cdGrpId: "M0753"}], true);
					
	var sPrcpDd = ds_chemoinfo.getColumn(0, "prcpdd");
	if (utlf_isNull(sPrcpDd)) {
		dsf_makeValue(ds_chemoinfo, "appdd", "string", utlf_getCurrentDate()); // 당일
	} else {
		dsf_makeValue(ds_chemoinfo, "appdd", "string", sPrcpDd); //처방일
	}
	
	var sPrcpDayNo = ds_chemoinfo.getColumn(0, "prcpdayno"); //처방날수
	dsf_makeValue(ds_chemoinfo, "appto" ,   "string", sPrcpDayNo); 
	dsf_makeValue(ds_chemoinfo, "appfrom" , "string", "1"); 
	dsf_makeValue(ds_chemoinfo, "appline" , "string", "1"); 
	//model.makeValue("/root/main/chemoinfo/appcycle" , "1"); 
	//model.makeValue("/root/main/chemoinfo/purpose" ,  "");
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_send_savedata.copyData(ds_chemoinfo);
	dsf_makeValue(ds_send_savedata, "userid", "string", sysf_getUserId());
	
	if(utlf_isNull(ds_send_savedata.getColumn(0, "appdd"))){
		sysf_messageBox ( "시작일은 필수 입력사항 입니다.", "I999" ); 
		return;
	}
	
	if(utlf_isNull(ds_send_savedata.getColumn(0, "appfrom")) || utlf_isNull(ds_send_savedata.getColumn(0, "appto"))){
		sysf_messageBox ( "적용선택은 필수 입력사항 입니다.", "I999" ); 
		return;
	}
	
	if(utlf_isNull(ds_send_savedata.getColumn(0, "appline"))){
		sysf_messageBox ( "Line은 필수 입력사항 입니다.", "I999" ); 
		return;
	}
	
	if(utlf_isNull(ds_send_savedata.getColumn(0, "appcycle"))){
		sysf_messageBox ( "Cycle은 필수 입력사항 입니다.", "I999" ); 
		return;
	}

	if(utlf_isNull(ds_send_savedata.getColumn(0, "purpose"))){
		sysf_messageBox ( "사용목적은 필수 입력사항 입니다.", "I999" ); 
		return;
	}
	
	var oParam = {};
		oParam.id       = "TXMMO25001";
		oParam.service  = "prcpmngtapp.EtcPrcpMngt";
		oParam.method   = "reqInsChemoDeatilInfo";
		oParam.inds     = "req=ds_send_savedata";
		oParam.async    = false;

	tranf_submit(oParam);

	opener.frmf_setParameter ( "SPMMO23000_rtn1", "Y" );
	close();
}

function btn_exit_onclick(obj:Button,  e:ClickEventInfo)
{
	close();
}
]]></Script>
  </Form>
</FDL>