YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLRR90200_분자생물학부의뢰서등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLRR90200" position="absolute 0 0 510 372" titletext="분자생물학부의뢰서등록" onload="SPLRR90200_onload">
    <Layouts>
      <Layout>
        <Div id="div1" position="absolute 0 11 510 371" anchor="default" positiontype="position">
          <Layouts>
            <Layout>
              <Static id="caption21" class="tit_1" position="absolute 12 3 128 28" anchor="default" text="임상적 적응증" positiontype="position"/>
              <TextArea id="tar_effect" position="absolute 12 31 498 171" anchor="default" oneditclick="group1_textarea1_oneditclick" positiontype="position"/>
              <Shape id="line1" class="line_1" position="absolute 0 26 490 26" anchor="default" linetype="horizontal" positiontype="position"/>
              <Static id="caption1" class="tit_2" position="absolute 12 231 63 251" anchor="default" text="인종" positiontype="position"/>
              <Shape id="line2" class="line_1" position="absolute 0 268 490 268" anchor="default" linetype="horizontal" positiontype="position"/>
              <Shape id="line4" class="line_6" position="absolute 0 294 490 294" anchor="default" linetype="horizontal" positiontype="position"/>
              <Button id="btn_save" class="btn4" position="absolute 376 330 434 350" anchor="default" text="확인" onclick="div1_btn_save_onclick" positiontype="position"/>
              <Static id="caption5" class="tit_2" position="absolute 12 181 88 201" anchor="default" text="검사목적" positiontype="position"/>
              <Shape id="line6" class="line_1" position="absolute 0 220 490 220" anchor="default" linetype="horizontal" positiontype="position"/>
              <Edit id="edt_purpose" position="absolute 13 201 498 221" anchor="default" positiontype="position"/>
              <Button id="btn_close" taborder="1" text="닫기" onclick="btn_close_onclick" class="btn4" position="absolute 437 330 493 350"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="Static02" position="absolute 12 262 498 338" class="sta_DA_box"/>
        <Static id="caption2" text="인종" class="cell_1" position="absolute 13 263 113 287"/>
        <Combo id="cmb_Injong" taborder="2" class="combo_default" position="absolute 116 265 233 285" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">한국인</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">아시안</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">남미</Col>
              </Row>
              <Row>
                <Col id="codecolumn">5</Col>
                <Col id="datacolumn">북미</Col>
              </Row>
              <Row>
                <Col id="codecolumn">6</Col>
                <Col id="datacolumn">유대인</Col>
              </Row>
              <Row>
                <Col id="codecolumn">7</Col>
                <Col id="datacolumn">유럽인</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">Other</Col>
              </Row>
            </Rows>
          </Dataset>
        </Combo>
        <Edit id="edt_peopledetl" taborder="3" class="input_default" position="absolute 236 265 494 285"/>
        <Edit id="edt_family" taborder="4" position="absolute 116 290 494 310"/>
        <Static id="caption3" text="가족력" class="cell_1" position="absolute 13 288 113 312"/>
        <Static id="caption4" text="진단명" class="cell_1" position="absolute 13 313 113 337"/>
        <Edit id="edt_diagnosis" taborder="5" position="absolute 116 315 494 335"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_reqfrminfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqno" type="STRING"/>
          <Column id="instcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reqfrmtbl" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqcnts" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_hidden_reqfrminfo" 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="prcpcd" type="STRING" size="256"/>
          <Column id="prcpnm" type="STRING" size="256"/>
          <Column id="opnm" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="reqno" type="STRING" size="256"/>
          <Column id="reqhistno" type="STRING" size="256"/>
          <Column id="scrnno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="prcpcd"/>
            <Col id="prcpnm"/>
            <Col id="opnm"/>
            <Col id="spccd"/>
            <Col id="spcnm"/>
            <Col id="reqno"/>
            <Col id="reqhistno"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_rtnvalinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-27
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-27      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";

var objDomParser;
var objDOM;
var arErrorCode = new HashArray();
//콜백함수
function cbf_SPLRR90200(strSvcID, nErrorCode, strErrorMag){	
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

function fExeInitialize(){
	// 처방등록 화면에서 호출되지 않는 경우는 "저장" 기능을 비 활성화 처리
	if(ds_hidden_reqfrminfo.getColumn(0, "scrnno") == "10"){
		div1.btn_save.visible = true;
	}else{
		div1.btn_save.visible = false;
	}
	
	// 의뢰지번호가 존재할 경우 의뢰지내용을 조회
	if(utlf_isNull(ds_hidden_reqfrminfo.getColumn(0, "reqcnts"))){ //의뢰지 내용이 존재하지 않을때
		if(ds_hidden_reqfrminfo.getColumn(0, "reqno") != "0"){ //의뢰지 번호 존재할때
			
			//의뢰지 번호로 의뢰지 내용 조회 
			var sInDsName = dsf_createDsRow("ds_send"
					 , [{col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}
					 ,  {col: "pid", val: ds_hidden_reqfrminfo.getColumn(0, "pid")}
					 ,  {col: "reqno", val: ds_hidden_reqfrminfo.getColumn(0, "reqno")}]);									
			
			 var oParam = {};
				oParam.id          = "TRLRR90201";
				oParam.service     = "diagtestapplib.LisCommon";
				oParam.method      = "reqGetReqFrmInfo";
				oParam.inds        = "refData="+sInDsName;
				oParam.outds       = "ds_reqfrmtbl=refrslt";
				oParam.async       = false;
				oParam.callback    = "cbf_SPLRR90200";

			tranf_submit(oParam);
			 
			 lf_setData();
		}else{ //의뢰지 번호 존재하지 않을때

			objDomParser = new DomParser;
			objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
			
			rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem01", "1");
			cmb_Injong.value = 1;
			rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem02", "");
			rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", "");
			rptf_setValueToDOM(objDOM, "/reqfrminfo/reqno", "0");
		}
	}else{ //의뢰지 내용이 존재 할때 
		var nRow = ds_reqfrmtbl.addRow();
		ds_reqfrmtbl.setColumn(nRow, "reqcnts", ds_hidden_reqfrminfo.getColumn(0, "reqcnts"));
		lf_setData();
	}
}

function lf_setData(){

	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString(ds_reqfrmtbl.getColumn(ds_reqfrmtbl.rowposition, "reqcnts"));
	
	div1.tar_effect.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts");
	div1.edt_purpose.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05");
	cmb_Injong.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01");
	edt_peopledetl.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02");
	edt_family.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem03");
	edt_diagnosis.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem04");
}

function lf_exeClinicSave(){
	//data 만들기 
	lf_makeData();
	
	//검체추가정보 설정
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/choi", "true");
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spcseqno", "001");
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spccd", ds_hidden_reqfrminfo.getColumn(0,"spccd"));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spccd2", ds_hidden_reqfrminfo.getColumn(0,"spccd"));


	//model.removeNodeset("/root/send");
	var objParam = new Object();
	objParam.xml_data_XML1 = objDOM.documentElement.source;		
	
	var sInDsName = dsf_createDsRow("ds_send"
					 , [{col: "pid", val: ds_hidden_reqfrminfo.getColumn(0,"pid")}
					 ,  {col: "reqno", val: ds_hidden_reqfrminfo.getColumn(0, "reqno")}
					 ,  {col: "reqcnts", val: objParam.xml_data_XML1.replace("<![CDATA[","").replace("]]]]><![CDATA[>","")}
					 ,  {col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}
					 ]);				
					 

	//------------------------
	var oParam = {};
		oParam.id          = "TXLRR90201";
		oParam.service     = "diagtestapplib.LisCommon";
		oParam.method      = "reqExeReqFrmInfo";
		oParam.inds        = "refData=" + sInDsName ;
		oParam.outds       = "ds_rtnvalinfo=reflist";
		oParam.transaction = true;
		oParam.async       = false;
		oParam.callback    = "cf_TXLRR90201";

	tranf_submit(oParam);
	if (arErrorCode.pop("TXLRR90201") < 0) {
		sysf_messageBox("의뢰지 저장을", "E009");
		return false;
	}

	//------------------
	// 의뢰지번호 Return
	opener.ds_hidden_reqfrminfo.setColumn(0,"reqno", ds_rtnvalinfo.getColumn(0,"reqno"));

	//------------
	close();
}

function cf_TXLRR90201(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function lf_makeData(){
	rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", utlf_transNullToEmpty(div1.tar_effect.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem05", utlf_transNullToEmpty(div1.edt_purpose.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem01", utlf_transNullToEmpty(cmb_Injong.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem02", utlf_transNullToEmpty(edt_peopledetl.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem03", utlf_transNullToEmpty(edt_family.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem04", utlf_transNullToEmpty(edt_diagnosis.value));
}

function SPLRR90200_onload(obj:Form, e:LoadEventInfo){
	//폼 초기화 함수
	frmf_initForm(obj);
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	
	fExeInitialize();	
}


function div1_btn_save_onclick(obj:Button,  e:ClickEventInfo){
	lf_exeClinicSave();
	
}

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