YNU_JEUS/app_home/himed/xpapps/ast/pharmacyxp/xp/SMADB02201_Kims감염병정보조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMADB02001" position="absolute 0 0 1229 623" titletext="Kims 약품편람" scrollbars="none" onload="SMADB02201_onload" oninit="SMADB02201_oninit" style="border:0 none antiquewhite antiquewhite;">
    <Layouts>
      <Layout>
        <TextArea id="TextArea02" taborder="17" position="absolute 15 45 903 186"/>
        <TextArea id="TextArea01" taborder="13" position="absolute 247 50 371 85" style="font:굴림체,14;"/>
        <TextArea id="TextArea00" taborder="8" position="absolute 27 50 244 85"/>
        <Radio id="Rad_inout" taborder="0" columncount="2" rowcount="0" position="absolute 41 58 244 78" codecolumn="codecolumn" datacolumn="datacolumn" style="color:darkslateblue;font:굴림체,14,bold;" onitemclick="Rad_inout_onitemclick" onitemchanged="Rad_inout_onitemchanged">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">I</Col>
                <Col id="datacolumn">내국인</Col>
              </Row>
              <Row>
                <Col id="codecolumn">F</Col>
                <Col id="datacolumn">외국인</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Radio id="Rad_mf" taborder="1" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 264 58 364 78" style="color:darkslateblue;font:굴림체,14,bold;">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">M</Col>
                <Col id="datacolumn">남</Col>
              </Row>
              <Row>
                <Col id="codecolumn">F</Col>
                <Col id="datacolumn">여</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Button id="But_tri" taborder="6" text="여행력 조회" position="absolute 750 103 892 166" onclick="ButTri_onclick" style="font:Arial,16,bold;"/>
        <Edit id="Edit_psptno" taborder="5" position="absolute 208 143 583 178" style="font:굴림체,20;"/>
        <Edit id="edit_no1" taborder="3" position="absolute 207 143 361 178" style="align:center middle;font:굴림체,20,bold;"/>
        <Edit id="edit_no2" taborder="4" position="absolute 416 143 570 178" style="align:center middle;font:굴림체,20,bold;"/>
        <Edit id="edit_name" taborder="2" position="absolute 207 97 421 132" style="font:굴림체,20,bold;"/>
        <Static id="Stic_no" text="주민등록번호:" position="absolute 29 130 214 186" style="color:darkslateblue;font:굴림체,18,bold;"/>
        <Static id="Static02" text="해외 여행력 정보" position="absolute 16 -3 368 43" style="color:crimson;align:left;font:arial,26,bold underline;"/>
        <Static id="Stic_name" text="성       명:" position="absolute 29 98 214 127" style="color:darkslateblue;font:굴림체,18,bold;"/>
        <Static id="Stic_next" text="~" position="absolute 376 154 400 174" style="font:dotum,20,bold;"/>
        <Button id="But_clear" taborder="7" text="초기화" position="absolute 648 115 735 148" style="font:Arial,16,bold;" onclick="ButClear_onclick"/>
        <Static id="Static01" text="* 최근 14일내 해외여행력 정보만 조회 됩니다." position="absolute 161 194 696 220" style="color:red;font:dotum,16,bold;"/>
        <Static id="Stic_pid" text="병원챠트번호:" position="absolute 404 56 574 85" style="color:darkslateblue;font:굴림체,18,bold;"/>
        <Button id="But_pid" taborder="15" text="병원번호 조회" position="absolute 750 54 892 88" style="font:Dotum,12,bold;" onclick="But_pid_onclick"/>
        <Static id="Stat_result" position="absolute 16 227 904 617" style="border:1 double crimson gold;color:black;bordertype:round 0 0 ;align:left top;font:dotum,14;" text="weqwe"/>
        <Edit id="Edit_pid" taborder="16" position="absolute 574 54 738 89" style="font:dotum,20,bold;"/>
        <Static id="Static00" text="조회 결과" position="absolute 17 192 171 222" style="color:red;font:arial,18,bold underline;"/>
        <Button id="Button00" taborder="18" text="Exl 업로드" position="absolute 940 45 1056 72" onclick="Button00_onclick" style="font:Dotum,14,bold;"/>
        <Grid id="Grid_exldata" taborder="19" useinputpanel="false" position="absolute 912 115 1202 320" class="datagrid2" binddataset="ds_exldata" oncelldblclick="Grid_exldata_oncelldblclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="91"/>
                <Column size="58"/>
                <Column size="62"/>
                <Column size="61"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2" text="bind:pnrnno1"/>
                <Cell col="3" text="bind:pnrnno2"/>
              </Band>
              <Band id="body">
                <Cell text="bind:sosok"/>
                <Cell col="1" text="bind:pname"/>
                <Cell col="2" text="bind:pnrnno1"/>
                <Cell col="3" text="bind:pnrnno2"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="but_find" taborder="20" text="DUR 조회" position="absolute 1088 46 1196 75" style="font:Dotum,12,bold;" onclick="but_find_onclick"/>
        <Grid id="grd_finddata" taborder="21" useinputpanel="false" position="absolute 912 379 1202 616" binddataset="ds_finddata">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="58"/>
                <Column size="71"/>
                <Column size="190"/>
                <Column size="40"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1"/>
                <Cell col="2"/>
                <Cell col="3"/>
              </Band>
              <Band id="body">
                <Cell text="bind:sosok"/>
                <Cell col="1" text="bind:pname"/>
                <Cell col="2" text="bind:result"/>
                <Cell col="3" text="bind:jumin1"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="st_all" text="Static03" position="absolute 969 90 1033 110" onclick="Static03_onclick" style="align:center middle;font:dotum,11,bold;glow:10 black;"/>
        <Static id="st_cnt" text="Static03" onclick="Static03_onclick" position="absolute 1073 90 1137 110" style="align:center middle;font:dotum,11,bold;glow:10 black;"/>
        <Edit id="Edit00" taborder="22" position="absolute 948 16 1048 36" visible="false"/>
        <Button id="But_exl" taborder="23" text="엑셀" position="absolute 1097 343 1193 371" style="font:Dotum,12,bold;" onclick="But_exl_onclick"/>
        <Static id="stc_msg" position="absolute 912 2 1221 616" style="background:aqua;border:0 none aqua aqua;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_req" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="name" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="flag" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="psptno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_result" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="result" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_pid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="patjuminno1" type="STRING" size="256"/>
          <Column id="name" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_exldata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pname" type="STRING" size="256"/>
          <Column id="pnrnno1" type="STRING" size="256"/>
          <Column id="pnrnno2" type="STRING" size="256"/>
          <Column id="sosok" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_finddata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pname" type="STRING" size="256"/>
          <Column id="result" type="STRING" size="256"/>
          <Column id="sosok" type="STRING" size="256"/>
          <Column id="jumin1" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_count" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="all" type="STRING" size="256"/>
          <Column id="cnt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="Rad_inout" propid="value" datasetid="ds_send_req" columnid="flag"/>
      <BindItem id="item4" compid="Rad_mf" propid="value" datasetid="ds_send_req" columnid="sex"/>
      <BindItem id="item5" compid="Edit_psptno" propid="value" datasetid="ds_send_req" columnid="psptno"/>
      <BindItem id="item1" compid="edit_no1" propid="value" datasetid="ds_send_req" columnid="rrgstno1"/>
      <BindItem id="item2" compid="edit_no2" propid="value" datasetid="ds_send_req" columnid="rrgstno2"/>
      <BindItem id="item3" compid="edit_name" propid="value" datasetid="ds_send_req" columnid="name"/>
      <BindItem id="item6" compid="Stat_result" propid="text" datasetid="ds_result" columnid="result"/>
      <BindItem id="item7" compid="Edit_pid" propid="value" datasetid="ds_send_req" columnid="pid"/>
      <BindItem id="item8" compid="st_all" propid="text" datasetid="ds_count" columnid="all"/>
      <BindItem id="item9" compid="st_cnt" propid="text" datasetid="ds_count" columnid="cnt"/>
      <BindItem id="item10" compid="Edit00" propid="value" datasetid="ds_count" columnid="cnt"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2018-11-21
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

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

function f_init(){
	ds_send_req.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send_req.setColumn(0, "pid", "");	
	ds_send_req.setColumn(0, "rrgstno1", "");
	ds_send_req.setColumn(0, "rrgstno2", "");
	ds_send_req.setColumn(0, "name", "");
	ds_send_req.setColumn(0, "flag", "I");
	ds_send_req.setColumn(0, "sex", "M");
    Edit_psptno.visible = false ;      	
    edit_name.setFocus();    
	ds_result.clearData();
}

function f_clear(){
	ds_send_req.setColumn(0, "pid", "");	
	ds_send_req.setColumn(0, "rrgstno1", "");
	ds_send_req.setColumn(0, "rrgstno2", "");
	ds_send_req.setColumn(0, "name", "");
	ds_send_req.setColumn(0, "psptno", "");	
	ds_result.clearData();
    edit_name.setFocus();	
}

function SMADB02201_onload(obj:Form, e:LoadEventInfo)
{	
	ds_send_req.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	ds_send_req.setColumn(0, "pid", "");	
	ds_send_req.setColumn(0, "rrgstno1", "");
	ds_send_req.setColumn(0, "rrgstno2", "");
	ds_send_req.setColumn(0, "name", "");
	ds_send_req.setColumn(0, "flag", "I");
	ds_send_req.setColumn(0, "sex", "M");
    stc_msg.visible = true ;

	vsabun = sysf_getUserInfo("userid") ;
	if ( vsabun == '10326' || vsabun == '97007') {
        stc_msg.visible = false ;	
	}
		
		
    Edit_psptno.visible = false ;   
    edit_name.setFocus();       		
}


function fSearch() {

    var oParam = {};
	oParam.id          = "TRADB02010";
	oParam.service     = "comextlib.KimsDrugDur";
	oParam.method      = "reqGetInfectionInfo";
	oParam.inds        = "req=ds_send_req";
	oParam.outds       = "ds_result=result";
	oParam.async       = false;
	
	tranf_submit(oParam);
	
	
}


function ButClear_onclick(obj:Button,  e:ClickEventInfo)
{
	f_init();
}

function ButTri_onclick(obj:Button,  e:ClickEventInfo)
{
    var vrgsno1 = ds_send_req.getColumn(0, "rrgstno1");
	var vrgsno2 = ds_send_req.getColumn(0, "rrgstno2");
	var vname   = ds_send_req.getColumn(0, "name");
	var vpsptno = ds_send_req.getColumn(0, "psptno");	
    var vflag = ds_send_req.getColumn(0,"flag")
	if ( vflag == "I") { 
	   if ( vname == ""  ) { 
	     alert("성명를 정확하게 입력하세요") ;
	     edit_name.setFocus();    	     	     
	     return ;
	   }  

      if  (vrgsno1.length != 6) {
	     alert("앞 주민번호를 정확하게 입력하세요") ;
	     edit_no1.setFocus();    	     
	     return ;
      }
      if  (vrgsno2.length != 7) {
	     alert("뒤 주민번호를 정확하게 입력하세요") ;
	     edit_no2.setFocus();    
	     return ;
      }

   }else{
	   if ( vpsptno == ""  ) { 
	     alert("여권번호나 외국인번호를 정확하게 입력하세요") ;
	     return ;
	   }  
   }
	fSearch();
	
	var vresult   = ds_result.getColumn(0, "result");
	if ( vresult == "" ) {
        ds_result.setColumn(0, "result", "최근 14일이내 해외 여행력이 없습니다.!");	
	}
	
	
}


function Rad_inout_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
    obj.updateToDataset();
    f_clear();
    var vflag = ds_send_req.getColumn(0,"flag")
	if ( vflag == "I") { 
      Stic_no.text ='주민등록번호:' ;
      edit_no1.visible  = true ;	  
      edit_no2.visible  = true ;
      Stic_next.visible = true ;
      Edit_psptno.visible = false ;      
      Stic_pid.visible = true ; 
      Edit_pid.visible = true ; 
      But_pid.visible = true ;   
      edit_name.setFocus();
      
	}else{
      Stic_no.text ='여권번호,외국인번호:' ;
      edit_no1.visible  = false ;	  
      edit_no2.visible  = false ;	        
      Stic_next.visible = false ;      
      Edit_psptno.visible = true ;   
      Stic_pid.visible = false ; 
      Edit_pid.visible = false ; 
      But_pid.visible = false ;                                
      edit_name.setFocus();                                           
	}
}

function But_pid_onclick(obj:Button,  e:ClickEventInfo)
{
	    var oParam = {};
	oParam.id          = "TRADB02010";
	oParam.service     = "comextlib.KimsDrugDur";
	oParam.method      = "reqGetPatInfo";
	oParam.inds        = "req=ds_send_req";
	oParam.outds       = "ds_pid=result";
	oParam.async       = false;
	
	tranf_submit(oParam);
	
	var vname   = ds_pid.getColumn(0, "name");
    var vpatjuminno = ds_pid.getColumn(0, "patjuminno1");
    var vrgsno1 =  vpatjuminno.substr(0, 6);
    var vrgsno2 =  vpatjuminno.substr(6, 7);    
    ds_send_req.setColumn(0, "rrgstno1",vrgsno1);
	ds_send_req.setColumn(0, "rrgstno2",vrgsno2);
	ds_send_req.setColumn(0, "name",vname);


}

function Button00_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_exldata.clearData();
	
	ds_exldata.enableevent = false;
	
	grdf_ImportExcel("ds_exldata", 2, Grid_exldata, 0);
	
	ds_exldata.enableevent = true;
	
}

function Grid_exldata_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
    ds_send_req.setColumn(0, "rrgstno1",ds_exldata.getColumn(obj.currentrow, "pnrnno1"));
	ds_send_req.setColumn(0, "rrgstno2",ds_exldata.getColumn(obj.currentrow, "pnrnno2"));
	ds_send_req.setColumn(0, "name", ds_exldata.getColumn(obj.currentrow, "pname"));
    
}

function but_find_onclick(obj:Button,  e:ClickEventInfo)
{
    var vcnt = ds_exldata.rowcount;
	ds_count.setColumn(0,"all" , vcnt );
	//vcnt  = 10;
	for(var qq = 0; qq < vcnt ; qq++){
	    ds_count.setColumn(0,"cnt" , qq );	
	    updateWindow();
		var vrrgstno1 	= ds_exldata.getColumn(qq, "pnrnno1");		
		var vrrgstno2 	= ds_exldata.getColumn(qq, "pnrnno2");		
		var vname 	= ds_exldata.getColumn(qq, "pname");			
		var vsosok 	= ds_exldata.getColumn(qq, "sosok");					
		ds_send_req.setColumn(0, "rrgstno1",vrrgstno1);
		ds_send_req.setColumn(0, "rrgstno2",vrrgstno2);
		ds_send_req.setColumn(0, "name", vname);
		
		fSearch();
		
		var vresult   = ds_result.getColumn(0, "result");
		if ( vresult == "" ) {
			ds_result.setColumn(0, "result", "최근 14일이내 해외 여행력이 없습니다.!");	
		}

		var  biddx = ds_finddata.addRow();
		ds_finddata.setColumn(biddx,"result" , vresult );	
		ds_finddata.setColumn(biddx,"pname" , vname );
		ds_finddata.setColumn(biddx,"jumin1" , vrrgstno1 );		
		ds_finddata.setColumn(biddx,"sosok" , vsosok );				
  }	
	
}


function But_exl_onclick(obj:Button,  e:ClickEventInfo)
{
     grdf_exportExcel(grd_finddata, "심평원_데이타", "sheet1");	
}
]]></Script>
  </Form>
</FDL>