YNU_JEUS/app_home/himed/xpapps/ast/pharmacyconsultxp/xp/SPADC62600_WHOUMC.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPADC62600" position="absolute 0 0 692 535" titletext="약물인과관계평가" oninit="SPADC62600_oninit" onload="SPADC62600_onload">
    <Layouts>
      <Layout>
        <Button id="btn_cfm" taborder="1" text="확인" class="btn4" position="absolute 576 508 632 530" onclick="btn_cfm_onclick"/>
        <Button id="btn_cls" taborder="2" text="닫기" class="btn4" position="absolute 635 508 691 530" onclick="btn_cls_onclick"/>
        <Grid id="grd_whoumc" taborder="3" binddataset="ds_main_whoumclist" useinputpanel="false" position="absolute 0 24 691 502" autofittype="allboth" oncellclick="grd_whoumc_oncellclick" cellclickbound="cell" selecttype="multirow">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="32"/>
                <Column size="178"/>
                <Column size="480"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell style="align:center middle;" text="선택"/>
                <Cell col="1"/>
                <Cell col="2"/>
                <Cell col="3" text="value"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" style="align:center middle;" text="bind:chk" expr="expr:chk == &quot;Y&quot; || chk == &quot;1&quot; ? &quot;Y&quot; : &quot;&quot;"/>
                <Cell col="1" text="bind:gubun"/>
                <Cell col="2" displaytype="text" style="align:left middle;padding:5 0 0 10;" text="bind:cnts" wordwrap="word"/>
                <Cell col="3" text="bind:value"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape id="line1" class="line_1" position="absolute 0 19 691 25"/>
        <Static id="caption1" text="WHO-UMC causality category" class="tit_2" position="absolute 0 3 310 20"/>
        <Shape id="line00" class="line_1" position="absolute 0 18 691 24"/>
        <Shape id="line02" class="line_1" position="absolute 0 20 691 26"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_whoumclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_whoumclist_oncolumnchanged">
        <ColumnInfo>
          <Column id="chk" type="STRING"/>
          <Column id="gubun" type="STRING"/>
          <Column id="cnts" type="STRING"/>
          <Column id="value" type="STRING"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">확실함(Certain)</Col>
            <Col id="cnts">• 의약품등의 투여, 사용과의 전후관계가 타당
• 다른 의약품이나 화학물질 또는 수반질환으로 설명되지 않음
• 투여중단시 임상적으로 타당한 반응
• 재투여시, 약물학적 또는 현상학적으로 결정적인 경우
</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">상당히 확실함
(probable/likely)
</Col>
            <Col id="cnts">• 의약품 등의 투여, 사용과의 시간적 관계가 합당
• 다른 의약품이나 화학물질 또는 수반질환에 의한 것으로 보이지 않음
• 투여 중단 시 임상적으로 합당한 반응을 보이는 경우(재투여 정보 없음)
</Col>
            <Col id="value">5</Col>
          </Row>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">가능함 (possible)</Col>
            <Col id="cnts">• 의약품등의 투여, 사용과의 인과관계가 합당
• 다른 의약품이나 화학물질 또는 수반하는 질환에 의한 것으로 설명
• 투여중단에 관한 정보가 부족하거나 불명확한 경우
</Col>
            <Col id="value">6</Col>
          </Row>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">가능성 적음 (unlikely)</Col>
            <Col id="cnts">• 의약품등의 투여, 사용과 인과관계가 있을 것 같지 않은 일시적 사례
• 다른 의약품이나 화학물질 또는 잠재된 질환에 의한 것으로 타당하고 설명이 가능
</Col>
            <Col id="value">7</Col>
          </Row>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">평가곤란
(conditional/unclassified)
</Col>
            <Col id="cnts">• 적정한 평가를 위해 더 많은 자료가 필요하거나 추가 자료를 검토중인 경우
</Col>
            <Col id="value">8</Col>
          </Row>
          <Row>
            <Col id="chk">N</Col>
            <Col id="gubun">평가불가
(unassessible/unclassifiable)
</Col>
            <Col id="cnts">• 정보가 불충분하거나 상충되어 판단할 수 없고 이를 보완하거나 확인할 수 없는 경우
</Col>
            <Col id="value">9</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_popdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="casrslt" type="STRING" size="256"/>
          <Column id="totscr" type="STRING" size="256"/>
          <Column id="naranjocmt" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="casrslt"/>
            <Col id="totscr"/>
            <Col id="naranjocmt"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <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";

/******************************************************************
 * Argument          : 
 * Description       : 초기화
 ******************************************************************/
function SPADC62600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPADC62600_onload(obj:Form, e:LoadEventInfo)
{
	try{
		dsf_copyDs(ds_popdata,arg_ds_popdata);
	}catch(e){}
	
// 	var iscr = ds_popdata.getColumn(0, "naranjocmt");
// 	var comArray;
// 	if( !utlf_isNull(iscr)){
// 		comArray = iscr.split("^");
// 	}
// 	var k = 0;
// 	
// 	if( !utlf_isNull(comArray) ){
// 		for( var i = 1; i < comArray.length; i++ ) {trace(i + " / " + comArray[i]);
// 			if(comArray[i] == "Y") {
// 				ds_main_whoumclist.setColumn(k, "chk", "Y");
// 			} else if(comArray[i] == "N"){
// 				ds_main_whoumclist.setColumn(k, "chk", "N");
// 			}
// 			k = k + 1;
// 		}
// 	}

	var value = ds_popdata.getColumn(0, "casrslt");
	ds_main_whoumclist.setColumn(ds_main_whoumclist.findRow("value",value),"chk","Y");
	
	if(frmf_getoOpener().name == "SPMMD03301") {
		btn_cfm.visible = false;
		grd_whoumc.setFormatColProperty(0,"size",0);
	}
}

/******************************************************************
 * Argument          : 
 * Description       : 체크박스 선택 시 event
 ******************************************************************/
function grd_whoumc_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var cCol = grd_whoumc.currentcol;
	var cRow = ds_main_whoumclist.rowposition;
	
	if( cCol == grd_whoumc.getBindCellIndex("body","chk") ){
		if( ds_main_whoumclist.getColumn(cRow, "chk") == "Y" ) {
			for( var iRowNo = 0 ; iRowNo < ds_main_whoumclist.rowcount; iRowNo++ ) {
				if( iRowNo != cRow ) {
					ds_main_whoumclist.setColumn(iRowNo, "chk", "N");
				}
			}
		}
	}
}

/******************************************************************
 * Argument          : 
 * Description       : 확인 button event
 ******************************************************************/
function btn_cfm_onclick(obj:Button,  e:ClickEventInfo)
{
	var snaranjo = "who";
	var iChoRow = ds_main_whoumclist.findRow("chk", "Y");
	
	if(iChoRow > -1) {
		opener.ds_hidden.setColumn(0, "casrslt", ds_main_whoumclist.getColumn(iChoRow, "value"));
	} else {
		opener.ds_hidden.setColumn(0, "casrslt", "");
	}
	
	for( var iRowNo = 0 ; iRowNo < ds_main_whoumclist.rowcount; iRowNo++ ) {
// 		if( ds_main_whoumclist.getColumn(iRowNo, "chk") == "1" ){
// 			ds_main_whoumclist.setColumn(iRowNo, "chk", "Y");
// 		}
		snaranjo += "^" + ds_main_whoumclist.getColumn(iRowNo, "chk");
	}
	opener.ds_hidden.setColumn(0, "naranjocmt", snaranjo);
	
	this.close();
}

/******************************************************************
 * Argument          : 
 * Description       : 닫기 button event
 ******************************************************************/
function btn_cls_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}

function ds_main_whoumclist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid=="chk") {
		obj.setColumn(e.row,e.columnid,(e.newvalue=="Y"||e.newvalue==1)?"Y":"N");
	}
}
]]></Script>
  </Form>
</FDL>