YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLRR91900_AMH검사의뢰서등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLRR91900" position="absolute 0 0 499 560" titletext="AMH검사의뢰서등록" onload="SPLRR91900_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 3 500 528" id="group1" scrollbars="none">
          <Layouts>
            <Layout>
              <Static text="AMH검사 의뢰서" position="absolute 0 1 152 23" id="caption5" class="tit_1" anchor="default"/>
              <Shape position="absolute 0 23 490 27" linetype="horizontal" id="line1" class="line_1" style="border:2 solid cadetblue cadetblue;" anchor="default"/>
              <Static text="검사목적" position="absolute 1 32 153 45" id="caption2" class="tit_2" anchor="default"/>
              <Static text="난소수술기왕력" position="absolute 5 122 157 143" id="caption3" class="tit_2" anchor="default"/>
              <Static text="다낭성난포증후군(PCOS)의 소견" position="absolute 5 308 248 322" id="caption1" class="tit_2" anchor="default"/>
              <Radio position="absolute 10 145 165 170" id="rdo_histyn" columncount="2" codecolumn="codecolumn" datacolumn="datacolumn" style="font:돋움,9,bold;" onitemchanged="group1_rdo_histyn_onitemchanged" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">있다</Col>
                      <Col id="datacolumn">있다</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">없다</Col>
                      <Col id="datacolumn">없다</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Radio position="absolute 10 55 380 105" id="radio1" codecolumn="codecolumn" datacolumn="datacolumn" style="font:돋움,9,bold;" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">일반적인 난소 나이 평가를 위해</Col>
                      <Col id="datacolumn">일반적인 난소 나이 평가를 위해</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">불임 검사의 일환으로서 난소기능 평가</Col>
                      <Col id="datacolumn">불임 검사의 일환으로서 난소기능 평가</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static text="※ 난소수술을 받은 적이 있다면 다음 내용을 체크하여 주십시오.   &#13;&#10;&#13;&#10;  있다면,    &#13;&#10;&#13;&#10;  어느쪽,    &#13;&#10;&#13;&#10;  수술 후 확인된 진단명 : " position="absolute 10 180 420 292" id="caption4" style="font:돋움,9,bold;" anchor="default"/>
              <Edit position="absolute 159 261 459 280" id="input1" anchor="default"/>
              <CheckBox position="absolute 90 211 184 236" id="chk_his1" text="낭종제거술" style="font:돋움,9,bold;" anchor="default" truevalue="낭종제거술"/>
              <CheckBox position="absolute 5 330 72 360" id="chk_pcos1" text="없다" style="font:돋움,9,bold;" anchor="default" truevalue="없다"/>
              <Static text="출산력 (Parity)" position="absolute 5 398 220 412" id="caption6" class="tit_2" anchor="default"/>
              <Static text="만삭출산수:" position="absolute 10 423 90 443" id="caption7" anchor="default"/>
              <Static text="조산수:" position="absolute 221 423 276 443" id="caption8" anchor="default"/>
              <Static text="유산 총 횟수" position="absolute 10 475 92 495" id="caption9" anchor="default"/>
              <Static text="자연:" position="absolute 100 460 145 480" id="caption10" anchor="default"/>
              <Static text="인공:" position="absolute 100 490 145 510" id="caption11" anchor="default"/>
              <Static text="남:" position="absolute 310 460 340 480" id="caption12" anchor="default"/>
              <Static text="여:" position="absolute 310 490 340 510" id="caption13" anchor="default"/>
              <Static text="생존아수" position="absolute 245 470 310 490" id="caption14" anchor="default"/>
              <Edit position="absolute 85 423 155 442" id="input2" anchor="default"/>
              <Edit position="absolute 280 423 350 442" id="input3" anchor="default"/>
              <Edit position="absolute 139 459 184 478" id="input4" anchor="default"/>
              <Edit position="absolute 140 489 185 508" id="input5" anchor="default"/>
              <Edit position="absolute 339 459 384 478" id="input6" anchor="default"/>
              <Edit position="absolute 340 489 385 508" id="input7" anchor="default"/>
              <Shape id="line00" class="line_1" position="absolute 0 49 490 53" style="border:2 solid cadetblue cadetblue;" anchor="default"/>
              <Shape id="line02" class="line_1" position="absolute 0 323 490 327" style="border:2 solid cadetblue cadetblue;" anchor="default"/>
              <Shape id="line03" class="line_1" position="absolute 0 414 490 418" style="border:2 solid cadetblue cadetblue;" anchor="default"/>
              <CheckBox id="chk_his2" taborder="1" text="난소제거술" position="absolute 210 211 304 236" style="font:돋움,9,bold;" anchor="default" truevalue="난소제거술"/>
              <CheckBox id="chk_his3" taborder="2" text="한쪽　(좌,우)" position="absolute 90 235 200 260" style="font:돋움,9,bold;" anchor="default" truevalue="한쪽　(좌,우)"/>
              <CheckBox id="chk_his4" taborder="3" text="양쪽" position="absolute 210 235 304 260" style="font:돋움,9,bold;" anchor="default" truevalue="양쪽"/>
              <CheckBox id="chk_pcos2" taborder="4" text="Oligmenorrhea(희발월경)" position="absolute 253 330 448 360" style="font:돋움,9,bold;" anchor="default" truevalue="Oligmenorrhea(희발월경)"/>
              <CheckBox id="chk_pcos3" taborder="5" text="Hyperandrogenism(안드로젠과잉증)" position="absolute 5 362 256 392" style="font:돋움,9,bold;" anchor="default" truevalue="Hyperandrogenism(안드로젠과잉증)"/>
              <CheckBox id="chk_pcos4" taborder="6" text="초음파소견" position="absolute 253 362 448 392" style="font:돋움,9,bold;" anchor="default" truevalue="초음파소견"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 517 500 544" id="group3" scrollbars="none">
          <Layouts>
            <Layout>
              <Shape position="absolute 0 0 490 6" linetype="vertical" id="line2" class="line_2" anchor="default"/>
              <Button position="absolute 434 5 490 27" id="btn_close" class="btn4" text="닫기" onclick="group3_btn_close_onclick" anchor="default"/>
              <Button position="absolute 375 5 431 27" id="btn_save" class="btn4" text="확인" onclick="group3_btn_save_onclick" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Shape id="line1" class="line_1" position="absolute 0 105 490 109" style="border:2 solid cadetblue cadetblue;"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_reqfrminfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqcnts" type="STRING" size="256"/>
          <Column id="inptitem01" type="STRING" size="256"/>
          <Column id="inptitem02" type="STRING" size="256"/>
          <Column id="inptitem03" type="STRING" size="256"/>
          <Column id="inptitem04" type="STRING" size="256"/>
          <Column id="etc" type="STRING" size="256"/>
          <Column id="claim" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="reqcnts">일반적인 난소 나이 평가를 위해</Col>
            <Col id="inptitem01">있다</Col>
            <Col id="inptitem02"/>
            <Col id="inptitem03"/>
            <Col id="inptitem04"/>
            <Col id="etc"/>
            <Col id="claim"/>
          </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_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"/>
          <Column id="reqcnts" 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_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind/>
    <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_SPLRR91900(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}


function fExeInitialize() {

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

	//----------------------------------------------
	// 의뢰지번호가 존재할 경우 의뢰지내용을 조회한다.        	
	if(utlf_isNull(ds_hidden_reqfrminfo.getColumn(0,"reqcnts"))) { //내용이 없다
		if (ds_hidden_reqfrminfo.getColumn(0,"reqno") != "0") { //의뢰지번호 존재시
			dsf_makeValue(ds_send,"instcd", "string",sysf_getUserInfo("dutplceinstcd"));
			dsf_makeValue(ds_send,"pid",  "string",   ds_hidden_reqfrminfo.getColumn(0,"pid")); 
			dsf_makeValue(ds_send,"reqno", "string", 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_reqfrminfo=refrslt";
				oParam.async       = false;
				oParam.callback    = "cbf_SPLRR91900";

			tranf_submit(oParam);
			fsetData();
		} else { //의뢰지 번호 없어.!
			ds_hidden_reqfrminfo.setColumn(0,"reqno", "0");
			
			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", "");

			
		}
	} else { //내용이 있다(ex> 특수에서 의뢰서 띄울때 처럼)
		ds_reqfrminfo.clearData();
		var nRow = ds_reqfrminfo.addRow();
		ds_reqfrminfo.setColumn(nRow, "reqcnts", ds_hidden_reqfrminfo.getColumn(0, "reqcnts"));
		fsetData();
	}	
	//-------------

}

function fsetData(){
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString(ds_reqfrminfo.getColumn(0, "reqcnts"));

	
	group1.radio1.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts"));
	group1.rdo_histyn.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01"));
	group1.input1.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem03"));
	group1.input2.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/aa"));
	group1.input3.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/bb"));
	group1.input4.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/cc"));
	group1.input5.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/dd"));
	group1.input6.value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/ee"));
	group1.input7.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem05/ff");
	var chk_value = utlf_transNullToEmpty(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02").split(","));
	for(var i = 0; i < chk_value.length; i++){
		switch (chk_value[i]){
			case group1.chk_his1.text : {
				group1.chk_his1.value = chk_value[i];
				break;
			}
			case group1.chk_his2.text : {
				group1.chk_his2.value = chk_value[i];
				break;
			}
			case group1.chk_his3.text : {
				group1.chk_his3.value = chk_value[i];
				break;
			}
			case group1.chk_his4.text : {
				group1.chk_his4.value = chk_value[i];
				break;
			}			
		}
	}
	var chk_value2 = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem04").split(",");
	for(var i = 0; i < chk_value2.length; i++){
		switch (chk_value2[i]){
			case group1.chk_pcos1.text : {
				group1.chk_pcos1.value = chk_value2[i];
				break;
			}
			case group1.chk_pcos2.text : {
				group1.chk_pcos2.value = chk_value2[i];
				break;
			}
			case group1.chk_pcos3.text : {
				group1.chk_pcos3.value = chk_value2[i];
				break;
			}
			case group1.chk_pcos4.text : {
				group1.chk_pcos4.value = chk_value2[i];
				break;
			}			
		}
	}
}
function fmakeData(){
	
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
	
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/reqcnts",utlf_transNullToEmpty(group1.radio1.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01",utlf_transNullToEmpty(group1.rdo_histyn.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem03",utlf_transNullToEmpty(group1.input1.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/aa",utlf_transNullToEmpty(group1.input2.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/bb",utlf_transNullToEmpty(group1.input3.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/cc",utlf_transNullToEmpty(group1.input4.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/dd",utlf_transNullToEmpty(group1.input5.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/ee",utlf_transNullToEmpty(group1.input6.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem05/ff",utlf_transNullToEmpty(group1.input7.value));
	 rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02", "");
	 var chk_value = new Array();
	 chk_value[0] = group1.chk_his1;
	 chk_value[1] = group1.chk_his2;
	 chk_value[2] = group1.chk_his3;
	 chk_value[3] = group1.chk_his4;
	
	for(i = 0; i < 4; i++){
		switch (chk_value[i].value){
			case group1.chk_his1.text : {
				fmakeInptitem02(group1.chk_his1.text );
				break;
			}
			case group1.chk_his2.text : {
				fmakeInptitem02(group1.chk_his2.text );
				break;
			}
			case group1.chk_his3.text :{
				fmakeInptitem02(group1.chk_his3.text );
				break;
			}
			case group1.chk_his4.text :{
				fmakeInptitem02(group1.chk_his4.text );
				break;
			}			
		}
	}
	
	rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem04", "");
	 var chk_value2 = new Array();
	 chk_value2[0] = group1.chk_pcos1;
	 chk_value2[1] = group1.chk_pcos2;
	 chk_value2[2] = group1.chk_pcos3;
	 chk_value2[3] = group1.chk_pcos4;
	
	for(i = 0; i < 4; i++){
		switch (chk_value2[i].value){
			case group1.chk_pcos1.text : {
				fmakeInptitem04(group1.chk_pcos1.text );
				break;
			}
			case group1.chk_pcos2.text : {
				fmakeInptitem04(group1.chk_pcos2.text );
				break;
			}
			case group1.chk_pcos3.text :{
				fmakeInptitem04(group1.chk_pcos3.text );
				break;
			}
			case group1.chk_pcos4.text :{
				fmakeInptitem04(group1.chk_pcos4.text );
				break;
			}			
		}
	}
}

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

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

	// 확인버튼 클릭시  저장
function fExeClinicSave(){

	//var node = instance1.selectSingleNode("/root/main/reqfrm/reqfrmtbl/reqfrminfo"); //xml 저장을 위해 노드로 만듬
	fmakeData();
	// 검체 추가정보 설정
	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 fSetClose(){
	close();					
}
function SPLRR91900_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	ds_hidden_reqfrminfo.addColumn("reqcnts","string");
	
	fExeInitialize();	
}


function group1_rdo_histyn_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	if(ds_reqfrminfo.getColumn(0,"inptitem01")=="2"){
		ds_reqfrminfo.setColumn(0,"inptitem02", "");	
	}
}

function group3_btn_close_onclick(obj:Button,  e:ClickEventInfo)
{
	fSetClose();
}

function group3_btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeClinicSave();
}

]]></Script>
  </Form>
</FDL>