YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLRR90400_세포유전학검사의뢰서등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLRR90400" position="absolute 0 0 520 499" titletext="세포유전학검사 의뢰서 등록" onload="SPLRR90400_onload">
    <Layouts>
      <Layout>
        <Static id="Static01" class="sta_DA_box" position="absolute 6 114 511 311"/>
        <Static id="Static00" position="absolute 5 35 510 87" class="sta_DA_box"/>
        <Button id="btn_save" taborder="2" text="확인" class="btn4" position="absolute 393 454 449 474" onclick="btn_save_onclick"/>
        <Button id="btn_close" taborder="3" text="닫기" class="btn4" position="absolute 453 454 509 474" onclick="btn_close_onclick"/>
        <Static id="caption5" text="양수 세포유전검사 의뢰서" class="tit_1" position="absolute 12 8 250 33"/>
        <Static id="caption13" text="임신주수" class="cell_1" position="absolute 12 36 111 60" style="align:center middle;"/>
        <Edit id="edt_week" taborder="4" class="input_default" position="absolute 114 38 164 58" style="align:right middle;" oneditclick="input5_oneditclick"/>
        <Static id="caption12" text="주" position="absolute 167 38 183 58"/>
        <Edit id="edt_day" taborder="5" class="input_default" position="absolute 186 38 236 58" style="align:right middle;" inputfilter="digit"/>
        <Static id="caption14" text="일" position="absolute 239 38 259 58"/>
        <Static id="caption4" text="(" position="absolute 262 38 272 58"/>
        <CheckBox id="chk_lmp" taborder="6" text="LMP" truevalue="LMP" position="absolute 275 38 321 58"/>
        <CheckBox id="chk_usd" taborder="7" text="USD" truevalue="USD" position="absolute 324 38 370 58"/>
        <Static id="caption00" text=")" position="absolute 373 38 383 58"/>
        <Static id="caption1" text="양수 양" class="cell_1" position="absolute 12 61 111 85" style="align:center middle;"/>
        <Edit id="edt_quantity" taborder="8" class="input_default" position="absolute 114 63 227 83" style="align:right middle;"/>
        <Static id="caption7" text="mL" position="absolute 230 63 250 83"/>
        <Static id="caption2" text="검사의뢰 내용" class="tit_2" position="absolute 12 95 116 115"/>
        <CheckBox id="chk_advance" taborder="9" text="Advanced Maternal Age" truevalue="Advanced Maternal Age" position="absolute 12 115 174 135" columncount="1"/>
        <CheckBox id="chk_family" taborder="10" text="Family History" truevalue="Family History" position="absolute 11 140 117 160" columncount="1"/>
        <CheckBox id="chk_habitual" taborder="11" text="Habitual Abortion" truevalue="Habitual Abortion" position="absolute 11 165 133 185" columncount="1"/>
        <CheckBox id="chk_down" taborder="12" text="High Risk for Down Syndrome" truevalue="High Risk for Down Syndrome" position="absolute 11 190 205 210" columncount="1"/>
        <CheckBox id="chk_edward" taborder="13" text="High Risk for Edward Syndrome" truevalue="High Risk for Edward Syndrome" position="absolute 11 215 213 235" columncount="1"/>
        <CheckBox id="chk_ntd" taborder="14" text="High Risk for NTD" truevalue="High Risk for NTD" position="absolute 11 240 133 260" columncount="1"/>
        <CheckBox id="chk_abnomal" taborder="15" text="Abnormal Sonographic Findings" truevalue="Abnormal　Sonographic　Findings" position="absolute 11 265 213 285"/>
        <CheckBox id="chk_other" taborder="16" text="other" truevalue="other" position="absolute 11 290 213 310"/>
        <Edit id="edt_abnomal" taborder="17" class="input_default" position="absolute 214 264 505 285" style="align:right middle;"/>
        <Edit id="edt_other" taborder="18" class="input_default" position="absolute 214 289 505 310" style="align:right middle;"/>
        <Static id="caption3" text="주의사항" class="tit_2" position="absolute 12 320 84 340"/>
        <Static id="caption11" text="&#13;&#10;* 검체는 무균상태로 채취하여 양수전용 용기(15ml conical tube)에&#13;&#10;   담아 환자의 이름 기입후 검사의뢰서와 유전자검사 동의서를&#13;&#10;   동봉하여 보내주십시요&#13;&#10;   &#13;&#10;* 가능한 신속히(24시간 이내) 검사실로 우송하여 주십시오&#13;&#10;&#13;&#10;* 검체운송 시 검체가 손상되지 않도록 주의하여 주십시오.&#13;&#10;&#13;&#10;&#13;&#10;" position="absolute 12 333 512 450" style="align:left middle;" onclick="caption11_onclick" class="sta_DG_box"/>
      </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>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </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 oFlag;
var arErrorCode = new HashArray();
//콜백함수
function cbf_SPLRR90400(strSvcID, nErrorCode, strErrorMag){	
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

function fExeInitialize(){
   	// 처방등록 화면에서 호출되지 않는 경우는 "저장" 기능을 비 활성화 처리
	if(ds_hidden_reqfrminfo.getColumn(0, "scrnno") == "10"){
		btn_save.visible = true;
	}else{
		btn_save.visible = false;
	}

	// 의뢰지번호가 존재할 경우 의뢰지내용을 조회
	if(utlf_isNull(ds_hidden_reqfrminfo.getColumn(0, "reqcnts"))){ //의뢰지 내용이 존재하지 않을때
		if(ds_hidden_reqfrminfo.getColumn(0, "reqno") != "0"){ //의뢰지 번호 존재할때
			
			//의뢰지 번호로 의뢰지 내용 조회 
			dsf_deleteDs("ds_send");
			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=ds_send";
				oParam.outds       = "ds_reqfrmtbl=refrslt";
				oParam.async       = false;
				oParam.callback    = "cbf_SPLRR90400";

			tranf_submit(oParam);
			lf_setData();
		}else{ //의뢰지 번호 존재하지 않을때
// 			var nRow = ds_reqfrmtbl.addRow();
// 			ds_reqfrmtbl.setColumn(nRow, "reqcnts", ds_hidden_reqfrminfo.getColumn(0, "reqcnts"));
// 			lf_setData();

			objDomParser = new DomParser;
			objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
			
			rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem01", "");
			rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem02", "");
			rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem03", "");
			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(){
	// "<></>"의 내용을 dom으로 변환
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString(ds_reqfrmtbl.getColumn(ds_reqfrmtbl.rowposition, "reqcnts"));
	
	edt_week.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01");
	edt_day.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02");
	chk_lmp.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/lmp");
	chk_usd.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/usd");
	edt_quantity.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem03");
	chk_abnomal.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/abnormalchk");
	chk_other.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/otherchk");
	edt_abnomal.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/abnormal");
	edt_other.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/other");

	var chk_value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts").split(",");
	for(i = 0; i < chk_value.length; i++){
		switch (chk_value[i]){
			case chk_advance.text : {
				chk_advance.value = chk_value[i];
				break;
			}
			case chk_family.text : {
				chk_family.value = chk_value[i];
				break;
			}
			case chk_habitual.text : {
				chk_habitual.value = chk_value[i];
				break;
			}
			case chk_down.text : {
				chk_down.value = chk_value[i];
				break;
			}
			case chk_edward.text : {
				chk_edward.value = chk_value[i];
				break;
			}
			case chk_ntd.text : {
				chk_ntd.value = chk_value[i];
				break;
			}
		}
	}
}

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;		
	
	ds_send.clear();
	dsf_makeValue(ds_send,"pid",    "string",     ds_hidden_reqfrminfo.getColumn(0,"pid"));
	dsf_makeValue(ds_send,"reqno",  "string",   ds_hidden_reqfrminfo.getColumn(0,"reqno")); 
	dsf_makeValue(ds_send,"reqcnts", "string",  objParam.xml_data_XML1.replace("<![CDATA[","").replace("]]]]><![CDATA[>",""));
	dsf_makeValue(ds_send,"instcd",  "string",  sysf_getUserInfo("dutplceinstcd"));


	//------------------------
	var oParam = {};
		oParam.id          = "TXLRR90201";
		oParam.service     = "diagtestapplib.LisCommon";
		oParam.method      = "reqExeReqFrmInfo";
		oParam.inds        = "refData=ds_send";
		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_setClose(){
	
	this.close();
}

function lf_makeData(){
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem01", utlf_transNullToEmpty(edt_week.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem02", utlf_transNullToEmpty(edt_day.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/lmp", chk_lmp.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/usd", chk_usd.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem03", utlf_transNullToEmpty(edt_quantity.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/abnormalchk", chk_abnomal.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/otherchk", chk_other.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/abnormal", utlf_transNullToEmpty(edt_abnomal.value));
	rptf_setValueToDOM(objDOM, "/reqfrminfo/other", utlf_transNullToEmpty(edt_other.value));
	
	//처음 reqcnts 초기화 
	rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", "");
	var chk_value = new Array();
	chk_value[0] = chk_advance;
	chk_value[1] = chk_family;
	chk_value[2] = chk_habitual;
	chk_value[3] = chk_down;
	chk_value[4] = chk_edward;
	chk_value[5] = chk_ntd;
	
	for(i = 0; i < 6; i++){
		switch (chk_value[i].value){
			case chk_advance.text : {
				lf_makeReqcnts("Advanced Maternal Age");
				break;
			}
			case chk_family.text : {
				lf_makeReqcnts("Family History");
				break;
			}
			case chk_habitual.text :{
				lf_makeReqcnts("High Risk for Down Syndrome");
				break;
			}
			case chk_down.text :{
				lf_makeReqcnts("Habitual Abortion");
				break;
			}
			case chk_edward.text :{
				lf_makeReqcnts("High Risk for Edward Syndrome");
				break;
			}
			case chk_ntd.text :{
				lf_makeReqcnts("High Risk for NTD");
				break;
			}
		}
	}
}

function lf_makeReqcnts(Str){
	if(utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts"))){
		rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", Str)
	}else{
		rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts") + "," + Str)
	}
}


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

function btn_close_onclick(obj:Button,  e:ClickEventInfo){
	lf_setClose();
}

function btn_exit_onclick(obj:Button,  e:ClickEventInfo){
	lf_setClose();
}

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