YNU_JEUS/app_home/himed/xpapps/ast/healthexamrsrvacptxp/xp/SMAHA04096_검진사후관리상담일지.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMAHA04096" position="absolute 0 0 980 521" titletext="검진사후관리상담일지" onload="SMAHA04096_onload">
    <Layouts>
      <Layout>
        <Shape id="line10" class="line_10" linetype="horizontal" position="absolute 0 23 965 26" style="" anchor="default"/>
        <Static id="caption6" class="tit_1" position="absolute 0 0 194 23" style="" text="검진사후관리상담일지"/>
        <Static id="caption1" class="search_name" position="absolute 15 50 85 67" style="" text="사  번 :"/>
        <Static id="caption2" position="absolute 0 25 106 45" style="font:,,bold;" text="◆ 직원 인적사항"/>
        <Static id="caption3" class="search_name" position="absolute 153 50 223 67" style="" text="성  명 :"/>
        <Static id="caption4" class="search_name" position="absolute 291 50 361 67" style="" text="성  별 :"/>
        <Static id="caption5" class="search_name" position="absolute 429 50 499 67" style="" text="나  이 :"/>
        <Static id="caption7" class="search_name" position="absolute 552 50 635 67" style="" text="검 진 일 :"/>
        <Static id="caption8" class="search_name" position="absolute 718 50 788 67" style="" text="부  서 :"/>
        <Static id="caption9" class="search_name" position="absolute 15 76 110 93" style="" text="유해인자 :"/>
        <Static id="caption10" class="search_name" position="absolute 15 102 203 119" style="" text="검진판정(C_D1_D2_D_R2) :"/>
        <Static id="caption11" position="absolute 0 213 106 233" style="font:,,bold;" text="◆ 개인상담내역"/>
        <Static id="caption12" class="search_name" position="absolute 15 238 85 255" style="" text="상담일 :"/>
        <Calendar id="input1" position="absolute 90 238 190 257" style="align:center ;" anchor="default"/>
        <Static id="caption13" class="search_name" position="absolute 210 238 292 255" style="" text="상담장소 :"/>
        <Edit id="input2" position="absolute 295 238 505 257" style="" anchor="default"/>
        <Static id="caption14" class="search_name" position="absolute 15 263 97 280" style="" text="상담내용"/>
        <TextArea id="textarea1" position="absolute 38 284 955 398" style="" wordwrap="char"/>
        <Static id="caption15" class="search_name" position="absolute 15 403 97 420" style="" text="상담결과 :"/>
        <Static id="caption16" position="absolute 0 463 95 483" style="font:,,bold;" text="◆ 추적검사일 :"/>
        <Calendar id="input3" position="absolute 95 463 195 482" style="align:center ;" anchor="default"/>
        <Static id="caption17" position="absolute 265 463 350 483" style="font:,,bold;" text="◆ 처방일자 :"/>
        <Calendar id="input4" position="absolute 350 463 450 482" style="align:center ;" anchor="default"/>
        <Static id="caption18" class="search_name" position="absolute 15 127 130 144" style="" text="유 질 환(D) :"/>
        <Edit id="output1" position="absolute 85 48 140 67" style="" anchor="default" readonly="true"/>
        <Edit id="output2" position="absolute 222 48 277 67" style="" anchor="default" readonly="true"/>
        <Edit id="output3" position="absolute 358 48 383 67" style="" anchor="default" readonly="true"/>
        <Edit id="output4" position="absolute 497 48 522 67" style="" anchor="default" readonly="true"/>
        <Edit id="output6" position="absolute 778 48 963 67" style="" anchor="default" readonly="true"/>
        <Edit id="output8" position="absolute 211 100 959 119" style="" anchor="default" readonly="true"/>
        <Edit id="output7" position="absolute 110 75 960 94" style="" anchor="default" readonly="true"/>
        <Edit id="output9" position="absolute 125 125 959 144" style="" anchor="default" readonly="true"/>
        <Button id="btn_search" class="btn1" position="absolute 895 483 951 505" style="" text="저장" onclick="btn_search_onclick"/>
        <cp_checkboxList id="cp_checkboxList01" titletext="CheckBox List" taborder="1" text="cp_checkboxList00" scrollbars="none" position="absolute 95 400 320 420" style="background:transparent; " col="1" row="1" cellspacing="2" vcellspacing="0" itemWidth="100" itemHeight="20" overflow="visible"/>
        <MaskEdit id="output5" taborder="2" position="absolute 623 48 708 68" type="string" mask="####-##-##" style="align:center middle;"/>
        <Static id="caption00" text="일반검진 결과 :" class="search_name" position="absolute 15 152 130 169"/>
        <Edit id="output10" taborder="3" readonly="true" position="absolute 125 150 959 169"/>
        <Static id="caption19" text="특수검진 결과 :" class="search_name" position="absolute 15 177 130 194"/>
        <Edit id="output11" taborder="4" readonly="true" position="absolute 125 175 959 194"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_userinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="userid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="ilja" type="STRING" size="256"/>
          <Column id="depthngnm" type="STRING" size="256"/>
          <Column id="yuhaeinja" type="STRING" size="256"/>
          <Column id="panjeong" type="STRING" size="256"/>
          <Column id="yujilhwan" type="STRING" size="256"/>
          <Column id="chasu" type="STRING" size="256"/>
          <Column id="seq" type="STRING" size="256"/>
          <Column id="g_rslt" type="STRING" size="256"/>
          <Column id="s_rslt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="userid"/>
            <Col id="hngnm"/>
            <Col id="sex"/>
            <Col id="age"/>
            <Col id="ilja"/>
            <Col id="depthngnm"/>
            <Col id="yuhaeinja"/>
            <Col id="panjeong"/>
            <Col id="yujilhwan"/>
            <Col id="chasu"/>
            <Col id="seq"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="cnstdd" type="STRING" size="256"/>
          <Column id="cnstplace" type="STRING" size="256"/>
          <Column id="cnstcnt" type="STRING" size="256"/>
          <Column id="cnstrslt" type="STRING" size="256"/>
          <Column id="chasedd" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cnstdd"/>
            <Col id="cnstplace"/>
            <Col id="cnstcnt"/>
            <Col id="cnstrslt"/>
            <Col id="chasedd"/>
            <Col id="prcpdd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="reqdata" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="reqdata"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="temp" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_baseinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="A9010list" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="A9010list"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="input1" propid="value" datasetid="ds_main_savedata" columnid="cnstdd"/>
      <BindItem id="item1" compid="input2" propid="value" datasetid="ds_main_savedata" columnid="cnstplace"/>
      <BindItem id="item2" compid="textarea1" propid="value" datasetid="ds_main_savedata" columnid="cnstcnt"/>
      <BindItem id="item4" compid="input3" propid="value" datasetid="ds_main_savedata" columnid="chasedd"/>
      <BindItem id="item5" compid="input4" propid="value" datasetid="ds_main_savedata" columnid="prcpdd"/>
      <BindItem id="item6" compid="output1" propid="value" datasetid="ds_main_userinfo" columnid="userid"/>
      <BindItem id="item7" compid="output2" propid="value" datasetid="ds_main_userinfo" columnid="hngnm"/>
      <BindItem id="item8" compid="output3" propid="value" datasetid="ds_main_userinfo" columnid="sex"/>
      <BindItem id="item9" compid="output4" propid="value" datasetid="ds_main_userinfo" columnid="age"/>
      <BindItem id="item11" compid="output6" propid="value" datasetid="ds_main_userinfo" columnid="depthngnm"/>
      <BindItem id="item12" compid="output8" propid="value" datasetid="ds_main_userinfo" columnid="panjeong"/>
      <BindItem id="item13" compid="output7" propid="value" datasetid="ds_main_userinfo" columnid="yuhaeinja"/>
      <BindItem id="item14" compid="output9" propid="value" datasetid="ds_main_userinfo" columnid="yujilhwan"/>
      <BindItem id="item10" compid="output5" propid="value" datasetid="ds_main_userinfo" columnid="ilja"/>
      <BindItem id="item3" compid="output10" propid="value" datasetid="ds_main_userinfo" columnid="g_rslt"/>
      <BindItem id="item15" compid="output11" propid="value" datasetid="ds_main_userinfo" columnid="s_rslt"/>
    </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 "com_basiccodexp::ZBC001.xjs";
include "com_zipcodexp::ZBP001.xjs";
include "ast_commonxp::AST.xjs";
include "ast_healthexambasexp::healcombolist.xjs";
include "ast_healthexamrsrvacptxp::AHA.xjs";
include "ast_healexamxp::AHA001.xjs";

function SMAHA04096_onload(obj:Form, e:LoadEventInfo) {
	frmf_initForm(obj); 
 //grdf_initGrid(grd_XXX); 
 //grdf_setGridSort(grd_XXX); 
 //grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

	

    var arrParam = [{dsNm: "ds_init_baseinfo_A9010list", cdGrpId: "A9010"}];
	appf_getCodeList(arrParam); 
	
	
	var sProp="col=3,row=3,cellspacing=4,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow='visible'";
	cp_checkboxList01.setInitComp(sProp, ds_init_baseinfo_A9010list,"cdid","cdnm","fn_cmpEvent");

	var userid = opener.frmf_getParameter("userid");
	var ilja =   opener.frmf_getParameter("ilja");
	var seq =    opener.frmf_getParameter("seq");
	
	
	if(!utlf_isNull(userid) && !utlf_isNull(ilja) && utlf_isNull(seq)){ // 신규로 상담일지 저장
		dsf_makeValue( ds_send_reqdata, "userid", "string",  userid);
		dsf_makeValue( ds_send_reqdata, "ilja", "string",  ilja);
		dsf_makeValue( ds_send_reqdata, "cnst", "string",  "Y");

		var oParam = {};
		oParam.id          = "TRAHA05002";
		oParam.service     = "healthexamrsrvacptapp.GnrlRsrvAcpt";
		oParam.method      = "reqGetAftManageList";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_userinfo=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TRAHA05002";

		tranf_submit(oParam);

		//검진판정(C_D1_D2_D_R2)
		var panjeong = "";
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongc")))){
			panjeong += ds_main_userinfo.getColumn(0, "panjeongc") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongd1")))){
			panjeong += ds_main_userinfo.getColumn(0, "panjeongd1") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongd2")))){
			panjeong += ds_main_userinfo.getColumn(0, "panjeongd2") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongd")))){
			panjeong += ds_main_userinfo.getColumn(0, "panjeongd") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongr2")))){
			panjeong += ds_main_userinfo.getColumn(0, "panjeongr2");
		}
		
		//유질환(D)
		var yujilhwan = utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "panjeongd"));
		
		//일반검진 결과
		var g_rslt = "";
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "g_gubun")))){
			g_rslt += ds_main_userinfo.getColumn(0, "g_gubun") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "g_opi")))){
			g_rslt += ds_main_userinfo.getColumn(0, "g_opi") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "g_after")))){
			g_rslt += ds_main_userinfo.getColumn(0, "g_after");
		}
		
		//특수검진 결과
		var s_rslt = "";
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "s_gubun")))){
			s_rslt += ds_main_userinfo.getColumn(0, "s_gubun") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "s_opi")))){
			s_rslt += ds_main_userinfo.getColumn(0, "s_opi") + " ";
		}
		if(!utlf_isNull(utlf_transNullToEmpty(ds_main_userinfo.getColumn(0, "s_after")))){
			s_rslt += ds_main_userinfo.getColumn(0, "s_after");
		}

		dsf_makeValue( ds_main_userinfo, "panjeong", "string",  panjeong);
		dsf_makeValue( ds_main_userinfo, "yujilhwan", "string",  yujilhwan);
		dsf_makeValue( ds_main_userinfo, "g_rslt", "string",  g_rslt);
		dsf_makeValue( ds_main_userinfo, "s_rslt", "string",  s_rslt);

		dsf_makeValue( ds_main_savedata, "cnstdd", "string", "" );
		dsf_makeValue( ds_main_savedata, "cnstplace", "string", "" );
		dsf_makeValue( ds_main_savedata, "cnstcnt", "string", "" );
		dsf_makeValue( ds_main_savedata, "cnstrslt", "string", "" );
		dsf_makeValue( ds_main_savedata, "chasedd", "string", "" );
		dsf_makeValue( ds_main_savedata, "prcpdd", "string", "" );
	}else if(!utlf_isNull(userid) && !utlf_isNull(ilja) && !utlf_isNull(seq)){ // 기존에 저장된걸 수정
		dsf_makeValue( ds_send_reqdata, "userid", "string",  userid);
		dsf_makeValue( ds_send_reqdata, "ilja", "string",  ilja);
		dsf_makeValue( ds_send_reqdata, "seq", "string",  seq);

		var oParam = {};
			oParam.id          = "TRAHA05004";
			oParam.service     = "healthexamrsrvacptapp.GnrlRsrvAcpt";
			oParam.method      = "reqGetCnstInfo";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_savedata=item =item";
			oParam.async       = false;
			oParam.callback    = "cf_TRAHA05004";

		tranf_submit(oParam);


	}
}


function cf_TRAHA05004(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    ds_main_userinfo.copyData(ds_main_savedata);
    
    var chk_value = ds_main_savedata.getColumn(0,"cnstrslt").split(" ");
	cp_checkboxList01.setData(chk_value, null,false);
    
      
    

}

function btn_search_onclick(obj:Button, e:ClickEventInfo) {

	if(utlf_isNull(ds_main_savedata.getColumn(0, "cnstdd"))) {
		sysf_messageBox("상담일자가 입력되지 않았습니다.", "E");
		return;
	}

	dsf_makeValue( ds_send, "savedata", "string", "" );
	ds_send_savedata.copyData(ds_main_savedata); 
	dsf_makeValue( ds_send_savedata, "userid", "string",  ds_main_userinfo.getColumn(0, "userid"));
	dsf_makeValue( ds_send_savedata, "ilja", "string",  ds_main_userinfo.getColumn(0, "ilja"));
	dsf_makeValue( ds_send_savedata, "seq", "string",  ds_main_userinfo.getColumn(0, "seq"));
	dsf_makeValue( ds_send_savedata, "histstat", "string",  "Y");
	
	var oParam = {};
    oParam.id          = "TXAHA05002";
    oParam.service     = "healthexamrsrvacptapp.GnrlRsrvAcpt";
    oParam.method      = "reqSetCnstInfo";
    oParam.inds        = "req=ds_send_savedata";
    oParam.outds       = "ds_=cnt";
    oParam.async       = false;
    oParam.callback    = "cf_TXAHA05002";

	tranf_submit(oParam);

				
}

function cf_TXAHA05002(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    sysf_messageBox("상담일지가 저장되었습니다.", "I");
	this.close(); 
}


function fn_cmpEvent(aa)
{
    ds_main_savedata.setColumn(0, "cnstrslt", String(cp_checkboxList01.getData()).replace(",", " "));
    //ds_main_savedata.setColumn(0, "cnstrslt",cp_checkboxList01.getData());
}]]></Script>
  </Form>
</FDL>