YNU_JEUS/app_home/himed/xpapps/ast/crccxp/xp/SMATP00100_피험자관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMATP00100" position="absolute 0 0 794 495" titletext="피험자관리" oninit="SMATP00100_oninit" onload="SMATP00100_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="연구 피험자리스트" class="tit_2" position="absolute 0 222 150 243"/>
        <Shape id="line1" class="line_10" position="absolute 0 238 785 244"/>
        <Static id="caption8" text="등록번호" class="cell_1" position="absolute 594 244 684 267"/>
        <Shape id="line7" class="line_2" position="absolute 595 266 785 272"/>
        <Edit id="input17" taborder="1" class="input_default" enable="false" position="absolute 685 245 765 264"/>
        <Edit id="input1" taborder="2" class="input_default" position="absolute 685 272 785 291" autoselect="true"/>
        <Static id="caption2" text="환자명" class="cell_1" position="absolute 594 270 684 293"/>
        <Shape id="line2" class="line_2" position="absolute 595 292 785 298"/>
        <Static id="caption3" text="등록일" class="cell_1" position="absolute 594 296 684 319"/>
        <Shape id="line3" class="line_2" position="absolute 595 318 785 324"/>
        <Calendar id="input2" taborder="3" class="input_default" position="absolute 685 298 785 317" autoselect="true"/>
        <Static id="caption4" text="Screening No" class="cell_1" position="absolute 594 322 684 345"/>
        <Shape id="line4" class="line_2" position="absolute 595 344 785 350"/>
        <Static id="caption5" text="Random No" class="cell_1" position="absolute 594 348 684 371"/>
        <Shape id="line5" class="line_2" position="absolute 595 370 785 376"/>
        <Edit id="input4" taborder="4" class="input_default" position="absolute 685 350 785 369" autoselect="true"/>
        <Static id="caption6" text="피험자약어" class="cell_1" position="absolute 594 374 684 397"/>
        <Edit id="input5" taborder="5" class="input_default" position="absolute 685 376 785 395" autoselect="true"/>
        <Shape id="line6" class="line_2" position="absolute 595 396 785 402"/>
        <Static id="caption7" text="종료일" class="cell_1" position="absolute 594 400 684 423"/>
        <Shape id="line8" linetype="vertical" class="line_2" position="absolute 595 414 775 420"/>
        <Button id="button61" taborder="6" class="icon_search" position="absolute 770 246 786 262" onclick="button61_onclick"/>
        <Grid id="grd_subjlist" taborder="7" binddataset="ds_main_subjlist_item" useinputpanel="false" position="absolute 0 21 785 211" oncellclick="grd_subjlist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="20"/>
                <Column size="106"/>
                <Column size="69"/>
                <Column size="136"/>
                <Column size="178"/>
                <Column size="126"/>
                <Column size="73"/>
                <Column size="72"/>
                <Column size="48"/>
                <Column size="50"/>
                <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" text="과제번호"/>
                <Cell col="2" text="연구코드"/>
                <Cell col="3" text="연구명"/>
                <Cell col="4" text="학술명"/>
                <Cell col="5" text="회사명"/>
                <Cell col="6" text="시작일"/>
                <Cell col="7" text="종료일"/>
                <Cell col="8" text="단계"/>
                <Cell col="9" text="회차"/>
                <Cell col="10" text="caption1"/>
                <Cell col="11" text="caption2"/>
                <Cell col="12" text="과제ID"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:subjno"/>
                <Cell col="2" text="bind:stdyno"/>
                <Cell col="3" text="bind:itemnm"/>
                <Cell col="4" text="bind:stdysubjnm"/>
                <Cell col="5" text="bind:reqnm"/>
                <Cell col="6" displaytype="date" text="bind:stdytermfrom" calendardisplaynulltype="nulltext"/>
                <Cell col="7" displaytype="date" text="bind:stdytermto" calendardisplaynulltype="nulltext"/>
                <Cell col="8" text="bind:clincflag"/>
                <Cell col="9" text="bind:judgdg"/>
                <Cell col="10" text="bind:ioflag"/>
                <Cell col="11" text="bind:pid"/>
                <Cell col="12" text="bind:subjid"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Grid id="grd_testeelist" taborder="8" binddataset="ds_main_testeelist_item" useinputpanel="false" position="absolute 0 243 590 453" autoenter="select" cellsizingtype="col" oncellclick="grd_testeelist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="19"/>
                <Column size="24"/>
                <Column size="61"/>
                <Column size="55"/>
                <Column size="85"/>
                <Column size="85"/>
                <Column size="97"/>
                <Column size="49"/>
                <Column size="90"/>
                <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="환자명"/>
                <Cell col="4" text="등록일"/>
                <Cell col="5" text="Screening No"/>
                <Cell col="6" text="Random No"/>
                <Cell col="7" text="약어"/>
                <Cell col="8" text="종료일"/>
                <Cell col="9" text="진료/입원일"/>
                <Cell col="10" text="입/외"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" text="bind:sel" expr="expr:sel == 'Y' || sel == 1 ? 1 : 0"/>
                <Cell col="2" text="bind:pid"/>
                <Cell col="3" text="bind:patnm"/>
                <Cell col="4" displaytype="date" text="bind:orddd" calendardisplaynulltype="nulltext"/>
                <Cell col="5" text="bind:screenno"/>
                <Cell col="6" text="bind:subtesteephosid"/>
                <Cell col="7" text="bind:subtesteephosnm"/>
                <Cell col="8" displaytype="date" text="bind:enddd" calendardisplaynulltype="nulltext"/>
                <Cell col="9" text="bind:indd" mask="yyyy-mm-dd"/>
                <Cell col="10" text="bind:ioflag"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Edit id="input3" taborder="9" class="input_default" position="absolute 685 324 785 343" autoselect="true"/>
        <Calendar id="ipt_enddd" taborder="11" class="input_default" position="absolute 685 402 785 421" autoselect="true"/>
        <Button id="btn_savexls" taborder="12" text="피험자리스트 Excel저장" class="btn7" position="absolute 434 219 591 238" onclick="btn_savexls_onclick"/>
        <Static id="caption10" position="absolute 615 418 715 438"/>
        <Static id="caption11" text="연구리스트" class="tit_2" position="absolute 0 0 145 21"/>
        <Shape id="line9" class="line_10" position="absolute 0 16 785 22"/>
        <Button id="btn_save" taborder="13" text="저장" class="btn4" position="absolute 673 459 729 481" onclick="btn_save_onclick"/>
        <Button id="btn_cls" taborder="14" text="닫기" class="btn4" position="absolute 730 459 786 481" onclick="btn_cls_onclick"/>
        <Static id="inptmsg" position="absolute 400 460 665 480"/>
        <Button id="button2" taborder="15" text="종료" class="btn4" visible="false" position="absolute 452 460 508 482" onclick="button2_onclick"/>
        <Button id="btn_del" taborder="16" text="삭제" class="btn4" visible="false" position="absolute 395 460 451 482"/>
        <Button id="button1" taborder="17" text="인터넷 지원자조회" class="btn3" position="absolute 255 460 391 482"/>
        <Button id="button3" taborder="18" text="전송" class="btn3" position="absolute 195 460 251 482" onclick="button3_onclick"/>
        <Calendar id="input6" taborder="19" class="input_s_essential" position="absolute 87 461 185 480" autoselect="true"/>
        <Static id="caption9" text="전송일자 :" class="search_name" position="absolute 5 462 96 479"/>
        <Radio id="radio1" taborder="10" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 595 424 780 447" columncount="-1" rowcount="-1">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">I</Col>
                <Col id="datacolumn">입원</Col>
              </Row>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">외래</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">입원-&gt;외래</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_subjlist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="subjno" type="STRING" size="256" sumtext="과제번호"/>
          <Column id="subjid" type="STRING" size="256" sumtext="과제ID"/>
          <Column id="stdyno" type="STRING" size="256" sumtext="연구번호"/>
          <Column id="itemnm" type="STRING" size="256" sumtext="품목명"/>
          <Column id="stdysubjnm" type="STRING" size="256" sumtext="연구과제명/조사제목"/>
          <Column id="stdytermfrom" type="STRING" size="256" sumtext="연구기간/FROM"/>
          <Column id="stdytermto" type="STRING" size="256" sumtext="연구기간/TO"/>
          <Column id="direccost" type="STRING" size="256" sumtext="직접비"/>
          <Column id="indireccost" type="STRING" size="256" sumtext="병원간접비"/>
          <Column id="crccindireccost" type="STRING" size="256" sumtext="CRCC간접비"/>
          <Column id="totstdycost" type="STRING" size="256" sumtext="총연구비"/>
          <Column id="clincflag" type="STRING" size="256" sumtext="임상구분/단계"/>
          <Column id="judgdg" type="STRING" size="256" sumtext="심사차수"/>
          <Column id="conpaperconacptdd" type="STRING" size="256" sumtext="계약서계약일자"/>
          <Column id="irbjudglistdd" type="STRING" size="256" sumtext="IRB심사목록일자"/>
          <Column id="subjendyn" type="STRING" size="256" sumtext="과제종료여부"/>
          <Column id="subjenddd" type="STRING" size="256" sumtext="과제종료일자"/>
          <Column id="allidxcase" type="STRING" size="256" sumtext="전체증례수"/>
          <Column id="roothospidxcasecnt" type="STRING" size="256" sumtext="본원증례수"/>
          <Column id="chrgfoodyn" type="STRING" size="256" sumtext="식대지원여부"/>
          <Column id="roomfeeyn" type="STRING" size="256" sumtext="병실료지원여부"/>
          <Column id="carecureyn" type="STRING" size="256" sumtext="간호처치료지원여부"/>
          <Column id="medfeeyn" type="STRING" size="256" sumtext="진찰료지원여부"/>
          <Column id="reqphos" type="STRING" size="256" sumtext="의뢰자ID"/>
          <Column id="reqnm" type="STRING" size="256" sumtext="의뢰자(회사)명"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="원내원외구분"/>
          <Column id="outerpharmnm" type="STRING" size="256" sumtext="외부약국명"/>
          <Column id="outerpharmtel" type="STRING" size="256" sumtext="외부약국연락처"/>
          <Column id="mngtpharmstnm" type="STRING" size="256" sumtext="관리약사명"/>
          <Column id="crcnm" type="STRING" size="256" sumtext="CRC명"/>
          <Column id="crctel" type="STRING" size="256" sumtext="CRC연락처"/>
          <Column id="cranm" type="STRING" size="256" sumtext="CRA명"/>
          <Column id="cratel" type="STRING" size="256" sumtext="CRA연락처"/>
          <Column id="respstdynm" type="STRING" size="256" sumtext="책임연구자"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="empid" type="STRING" size="256" sumtext="시험자ID"/>
          <Column id="empnm" type="STRING" size="256" sumtext="시험자명"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_testeelist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_testeelist_item_oncolumnchanged">
        <ColumnInfo>
          <Column id="sel" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="orddd" type="STRING" size="256" sumtext="입원/등록일자"/>
          <Column id="screenno" type="STRING" size="256" sumtext="screenno"/>
          <Column id="subtesteephosid" type="STRING" size="256" sumtext="피험자ID"/>
          <Column id="subtesteephosnm" type="STRING" size="256" sumtext="피험자명"/>
          <Column id="enddd" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="종료일자"/>
          <Column id="pamorddd" type="STRING" size="256" sumtext="원무정보"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_baseinfo_testeeinfo" 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="patnm" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="subtesteephosid" type="STRING" size="256"/>
          <Column id="subtesteephosnm" type="STRING" size="256"/>
          <Column id="enddd" type="STRING" size="256"/>
          <Column id="screenno" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="patnm"/>
            <Col id="orddd"/>
            <Col id="subtesteephosid"/>
            <Col id="subtesteephosnm"/>
            <Col id="enddd"/>
            <Col id="screenno"/>
            <Col id="ioflag">0</Col>
            <Col id="indd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_smartdata" 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="screenno" type="STRING" size="256"/>
          <Column id="smartdate" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="screenno"/>
            <Col id="smartdate"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_paminfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="rrgstno1" type="STRING" size="256" sumtext="주민번호1"/>
          <Column id="rrgstno2" type="STRING" size="256" sumtext="주민번호2"/>
          <Column id="sex" type="STRING" size="256" sumtext="성별"/>
          <Column id="age" type="STRING" size="256" sumtext="나이"/>
          <Column id="hometel" type="STRING" size="256" sumtext="연락처"/>
          <Column id="mpphontel" type="STRING" size="256" sumtext="휴대폰"/>
          <Column id="zipcd1" type="STRING" size="256" sumtext="우편번호1"/>
          <Column id="zipcd2" type="STRING" size="256" sumtext="우편번호2"/>
          <Column id="zipcdseq" type="INT" size="256" sumtext="우편번호일련번호"/>
          <Column id="addr" type="STRING" size="256" sumtext="주소"/>
          <Column id="detladdr" type="STRING" size="256" sumtext="상세주소"/>
          <Column id="email" type="STRING" size="256" sumtext="EMail"/>
          <Column id="dethdd" type="STRING" size="256" sumtext="사망일자"/>
          <Column id="dethresn" type="STRING" size="256" sumtext="사망사유"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_paminfo_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_srchdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="subjno" type="STRING" size="256"/>
          <Column id="srchempno" type="STRING" size="256"/>
          <Column id="srchsubjno" type="STRING" size="256"/>
          <Column id="srchflag" type="STRING" size="256"/>
          <Column id="srchsubjendyn" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="subjno"/>
            <Col id="srchempno"/>
            <Col id="srchsubjno"/>
            <Col id="srchflag">1</Col>
            <Col id="srchsubjendyn"/>
            <Col id="pid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_data" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="testeedata" type="STRING" size="256"/>
          <Column id="subjno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="testeedata"/>
            <Col id="subjno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinpt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_msg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msg" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="msg"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp_ret_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="count" type="INT" size="256" sumtext="실행건수"/>
          <Column id="errmsg" type="STRING" size="256" sumtext="에러메세지"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="input17" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="pid"/>
      <BindItem id="item1" compid="input1" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="patnm"/>
      <BindItem id="item2" compid="input2" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="orddd"/>
      <BindItem id="item3" compid="input3" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="screenno"/>
      <BindItem id="item4" compid="input4" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="subtesteephosid"/>
      <BindItem id="item5" compid="input5" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="subtesteephosnm"/>
      <BindItem id="item6" compid="ipt_enddd" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="enddd"/>
      <BindItem id="item7" compid="radio1" propid="value" datasetid="ds_main_baseinfo_testeeinfo" columnid="ioflag"/>
      <BindItem id="item8" compid="input6" propid="value" datasetid="ds_send_smartdata" columnid="smartdate"/>
      <BindItem id="item9" compid="inptmsg" propid="text" datasetid="ds_msg" columnid="msg"/>
    </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";
function SMATP00100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMATP00100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_subjlist);
	grdf_setRowTypeIcon(grd_subjlist, 0);
	grdf_initGrid(grd_testeelist);
	grdf_setRowTypeIcon(grd_testeelist, 0);

	ds_main_baseinfo_testeeinfo.setColumn(0, "pid",  appf_getPatientId());
	ds_main_baseinfo_testeeinfo.setColumn(0, "orddd", utlf_getCurrentDate());
	ds_main_baseinfo_testeeinfo.setColumn(0, "enddd", "99991231");
	
	var oParam = {};
		oParam.id          = "TRATP00102";
		oParam.service     = "subtesteeapp.SubTestee";
		oParam.method      = "reqGetPatInfo";
		oParam.inds        = "req=ds_main_baseinfo_testeeinfo";
		oParam.outds       = "ds_main_paminfo_patinfolist=patinfolist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRATP00102";

	tranf_submit(oParam);
	
	dsf_setFixVal(ds_main_paminfo_patinfolist, "dethdd:-,dethresn:-");

	var pamInfoCvs = sysf_getGlobalVariable("paminfo");
	if(!utlf_isNull(pamInfoCvs))
	{ 
		ds_main_paminfo_list.clearData();
		dsf_setCSVToDs("ds_main_paminfo_list", pamInfoCvs);
				
		var ioflag = ds_main_paminfo_list.getColumn(0, "ioflag");
		ds_main_baseinfo_testeeinfo.setColumn(0, "ioflag", ioflag);
	}
	
	ds_main_baseinfo_testeeinfo.setColumn(0, "pid", ds_main_paminfo_patinfolist.getColumn(0, "pid"));
	ds_main_baseinfo_testeeinfo.setColumn(0, "patnm", ds_main_paminfo_patinfolist.getColumn(0, "hngnm"));

	ds_send_srchdata.setColumn(0, "pid", appf_getPatientId());
	
	var oParam = {};
		oParam.id          = "TRATB00104";
		oParam.service     = "crccbaseapp.CrccBase";
		oParam.method      = "reqGetUserSubjectList";
		oParam.inds        = "req=ds_send_srchdata";
		oParam.outds       = "ds_main_subjlist_item=subjinfo";
		oParam.async       = false;
		//oParam.callback    = "cf_TRATB00104";

	tranf_submit(oParam);
	
	if ( !utlf_isNull(appf_getPatientId()))
	{
		if ( ds_main_subjlist_item.lookup("pid", appf_getPatientId(), "pid") ==  appf_getPatientId() ) 
		{
			for (var i = 0; i < ds_main_subjlist_item.rowcount; i++) 
			{
				if ( ds_main_subjlist_item.getColumn(i, "pid") == appf_getPatientId() ) 
				{
					ds_main_subjlist_item.rowposition = i;
					ds_send_data.setColumn(0, "subjno",  ds_main_subjlist_item.getColumn(ds_main_subjlist_item.rowposition, "subjid"));		
					ds_send_srchdata.setColumn(0, "subjno",  ds_main_subjlist_item.getColumn(ds_main_subjlist_item.rowposition, "subjid"));
					var oParam = {};
						oParam.id          = "TRATP00101";
						oParam.service     = "subtesteeapp.SubTestee";
						oParam.method      = "reqGetSubTesteeList";
						oParam.inds        = "req=ds_send_srchdata";
						oParam.outds       = "ds_main_testeelist_item=item";
						oParam.async       = false;
						oParam.callback    = "cf_TRATP00101";

					tranf_submit(oParam);
					
					return;
				}
			}
		}
	}
	
	ds_send_smartdata.setColumn(0, "smartdate", utlf_getCurrentDate());
}

function ds_main_testeelist_item_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "sel")
	{
		obj.setColumn(e.row, "sel", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function grd_subjlist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var row = ds_main_subjlist_item.rowposition;
	ds_send_data.setColumn(0, "subjno", ds_main_subjlist_item.getColumn(row, "subjid"));		
	ds_send_srchdata.setColumn(0, "subjno", ds_main_subjlist_item.getColumn(row, "subjid"));								
	
	var oParam = {};
		oParam.id          = "TRATP00101";
		oParam.service     = "subtesteeapp.SubTestee";
		oParam.method      = "reqGetSubTesteeList";
		oParam.inds        = "req=ds_send_srchdata";
		oParam.outds       = "ds_main_testeelist_item=item";
		oParam.async       = false;
		oParam.callback    = "cf_TRATP00101";

	tranf_submit(oParam);
}

function grd_testeelist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var terows = ds_main_testeelist_item.rowposition;
	
	for ( var i = 0; i < ds_main_testeelist_item.rowcount; i++)
	{
		if( terows == i )
		{
			ds_main_testeelist_item.setColumn(i, "sel", "Y");
		}
		else
		{
			ds_main_testeelist_item.setColumn(i, "sel", "N");
		}
	}

	ds_main_baseinfo_testeeinfo.copyRow(0, ds_main_testeelist_item, terows);
	
	fGetInptInfo("A");
	
	if(ds_main_baseinfo_testeeinfo.rowposition == 0) //if ( model.getValue("/root/main/baseinfo/testeeinfo") == "" ) {
	{
		ds_main_baseinfo_testeeinfo.setColumn(0, "enddd", ds_main_testeelist_item.getColumn(terows, "enddd"));
 	}
}

function fGetInptInfo(flag) 
{
	var oParam = {};
		oParam.id          = "TRATP00103";
		oParam.service     = "subtesteeapp.SubTestee";
		oParam.method      = "reqGetPatInfoInpt";
		oParam.inds        = "req=ds_main_baseinfo_testeeinfo";
		oParam.outds       = "ds_main_patinpt=patinpt";
		oParam.async       = false;
		//oParam.callback    = "cf_TRATP00103";

	tranf_submit(oParam);
	
	if ( utlf_isNull(ds_main_patinpt.getColumn(0, "indd")))
	{
		if ( flag == "B") 
		{
			ds_main_baseinfo_testeeinfo.setColumn(0, "orddd", utlf_getCurrentDate());
		}
		ds_msg.setColumn(0, "msg", "");
	}
	else 
	{
		ds_main_baseinfo_testeeinfo.setColumn(0, "orddd", ds_main_patinpt.getColumn(0, "indd"));
		ds_msg.setColumn(0, "msg", "현재 임상시험 유형의 재원환자입니다,입원일:"+ds_main_patinpt.getColumn(0, "indd"));
	}
}

function btn_savexls_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_testeelist, "excel", "SheetName", "true", "", "");
}

function button61_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_modal("SPPMC02500", "SPPMC02500", "", "", "", "", "", "", "", "", "", "", "M");
	ds_main_baseinfo_testeeinfo.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
	ds_main_baseinfo_testeeinfo.setColumn(0, "patnm", ds_patinfolist.getColumn(0, "hngnm"));;
	fGetInptInfo("B");
}

function button3_onclick(obj:Button,  e:ClickEventInfo)
{
	var check = "";
					
	for ( var i = 0; i < ds_main_testeelist_item.rowcount; i++)
	{
		if(ds_main_testeelist_item.getColumn(i, "sel") == "Y")
		{
			if(!utlf_isNull(ds_main_testeelist_item.getColumn(i, "screenno")) && ds_main_testeelist_item.getColumn(i, "screenno") != "-") 
			{
				ds_send_smartdata.setColumn(0, "pid",  ds_main_testeelist_item.getColumn(i, "pid"));
				ds_send_smartdata.setColumn(0, "screenno",  ds_main_testeelist_item.getColumn(i, "screenno"));
				
				var oParam = {};
					oParam.id          = "TRATP00201";
					oParam.service     = "subtesteeapp.SubTestee";
					oParam.method      = "reqSetSmartData";
					oParam.inds        = "req=ds_send_smartdata";
					oParam.outds       = "";
					oParam.async       = false;
					//oParam.callback    = "cf_TRATP00201";

				tranf_submit(oParam);
			}
			else 
			{
				check = "Y";
			}							
		}						
	}
	
	if(check == "Y") 
	{
		sysf_messageBox("Screening No 가 없는 환자가 존재합니다.","I999");	
	}
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( caption7.visible == false ) 
	{
		caption7.visible = true;
		ipt_enddd.visible = true;
	}
	else 
	{
		caption7.visible = false;
		ipt_enddd.visible = false;							
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "pid")))
	{
		sysf_messageBox("등록번호를 ", "C001");
		return;
	}
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "orddd")))
	{
		sysf_messageBox("등록일을 ", "C001");
		return;
	}
	if ( utlf_isNull(ds_send_data.getColumn(0, "subjno")))
	{
		sysf_messageBox("과제를 ", "C002");
		return;
	}
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "screenno")))
	{
		sysf_messageBox("Screening No를 ", "C001");
		return;
	}
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "subtesteephosid")))
	{
		sysf_messageBox("Random No를 ", "C001");
		return;
	}
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "ioflag")))
	{
		sysf_messageBox("입원/외래 구분를 ", "C002");
		return;
	}
	
	if ( utlf_isNull(ds_main_baseinfo_testeeinfo.getColumn(0, "enddd")))
	{
		ds_main_baseinfo_testeeinfo.setColumn(0, "enddd", "99991231");
	}
	else 
	{
		if ( ds_main_baseinfo_testeeinfo.getColumn(0, "enddd") < ds_main_baseinfo_testeeinfo.getColumn(0, "orddd") ) 
		{
			sysf_messageBox("시작일이 종료일보다 큽니다.", "I007");
			return;
		}
	}
	var sTesteeid = ds_main_baseinfo_testeeinfo.getColumn(0, "subtesteephosid");
	if ( !utlf_isNull(sTesteeid))
	{
		if ( ds_main_testeelist_item.lookup("subtesteephosid", sTesteeid, "subtesteephosid") == sTesteeid  && ds_main_testeelist_item.lookup("subtesteephosid", sTesteeid, "pid") != ds_main_baseinfo_testeeinfo.getColumn(0, "pid") ) 
		{
			sysf_messageBox("동일한 Random No가 존재합니다. Random No를", "I007");
			return;
		}
	}

	dsf_createDs("ds_send_data_testeedata");
	ds_send_data_testeedata.copyData(ds_main_baseinfo_testeeinfo);
	dsf_setDefaultVal(ds_send_data_testeedata, "subjno:"+ds_send_data.getColumn(0,"subjno"));
	
	var oParam = {};
		oParam.id          = "TXATP00101";
		oParam.service     = "subtesteeapp.SubTestee";
		oParam.method      = "reqExeSubTestee";
		oParam.inds        = "req=ds_send_data_testeedata";
		oParam.outds       = "ds_temp_ret_item=item";
		oParam.async       = false;
		//oParam.callback    = "cf_TXATP00101";

	tranf_submit(oParam);

	if ( parseInt(ds_temp_ret_item.getColumn(0, "count")) > 0 ) 
	{
		sysf_messageBox("피험자 등록이", "I002");
		var oParam = {};
			oParam.id          = "TRATP00101";
			oParam.service     = "subtesteeapp.SubTestee";
			oParam.method      = "reqGetSubTesteeList";
			oParam.inds        = "req=ds_send_srchdata";
			oParam.outds       = "ds_main_testeelist_item=item";
			oParam.async       = false;
			oParam.callback    = "cf_TRATP00101";

		tranf_submit(oParam);
	}
	else 
	{
		sysf_messageBox(ds_temp_ret_item.getColumn(0, "errmsg"), "C");
	}
	
	ds_main_baseinfo_testeeinfo.setColumn(0, "pid","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "patnm","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "orddd","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "screenno","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "subtesteephosid","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "subtesteephosnm","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "enddd","");
	ds_main_baseinfo_testeeinfo.setColumn(0, "ioflag","");
}

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

function cf_TRATP00101(sSvcId, nErrorCode, sErrorMsg)
{
    if(nErrorCode < 0) return;
    ds_main_testeelist_item.updatecontrol = false;
    dsf_setDefaultVal(ds_main_testeelist_item, "sel:N,ioflag:");
    ds_main_testeelist_item.updatecontrol = true;
}]]></Script>
  </Form>
</FDL>