YNU_JEUS/app_home/himed/xpapps/lis/plgyacptmngtxp/xp/SPLPJ01400_부인과의뢰지.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPJ01400" position="absolute 0 0 560 608" titletext="자궁경부 의뢰지" onload="SPLPJ01400_onload">
    <Layouts>
      <Layout>
        <Static id="Static00" class="sta_DA_box" position="absolute 12 25 548 54"/>
        <Static id="caption2" text="대표검체" class="tit_2" position="absolute 12 6 120 26"/>
        <Static id="Static01" class="sta_DA_box" position="absolute 12 80 548 114"/>
        <Static id="caption4" text="처 방 명" class="cell_1" position="absolute 236 88 328 108" style="align:center middle;"/>
        <Edit id="output1" taborder="16" readonly="true" position="absolute 331 88 544 108" class="output_fix"/>
        <Static id="caption1" text="임상정보 및 기록사항" class="tit_2" position="absolute 12 228 416 248"/>
        <TextArea id="textarea1" taborder="11" position="absolute 12 250 548 569" wordwrap="word" scrollbars="autovert"/>
        <Button id="btn_exit" taborder="18" text="닫기" class="btn4" position="absolute 492 576 548 596" visible="true" onclick="btn_exit_onclick"/>
        <Button id="btn_save" taborder="13" text="확인" class="btn4" position="absolute 436 576 492 596" onclick="btn_save_onclick"/>
        <Button id="btn_sytsrsltref" taborder="20" text="통합결과조회" class="btn3" position="absolute 12 576 120 596" onclick="btn_sytsrsltref_onclick"/>
        <Radio id="rdo_reprspc" taborder="0" columncount="3" rowcount="0" index="-1" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 23 30 499 50">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">TCGY01</Col>
                <Col id="datacolumn">Cervico-vaginal smear</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Edit id="input2" taborder="21" onkeydown="ipt_other_onkeydown" enable="false" position="absolute 102 192 546 212"/>
        <Calendar id="cal_lmpCmt" taborder="25" visible="true" position="absolute 110 89 220 109" style="align:center middle;"/>
        <Static id="caption00" text="필수기록사항" class="tit_2" position="absolute 12 60 416 80"/>
        <Static id="caption03" text="L.M.P" class="cell_1" position="absolute 16 88 108 108" style="align:center middle;"/>
        <cp_checkboxList id="cp_checkboxList00" titletext="CheckBox List" taborder="26" text="cp_checkboxList00" scrollbars="none" position="absolute 15 127 545 210" style="background:transparent; " col="3" row="4" cellspacing="60" vcellspacing="4" itemWidth="100" itemHeight="20" overflow="visible"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_rslt_reqfrminfo" firefirstcount="0" firenextcount="0" useclientlayout="false" 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"/>
        </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"/>
      <Dataset id="ds_checkbox" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">Routine Check</Col>
            <Col id="value">0</Col>
          </Row>
          <Row>
            <Col id="label">Hormone Therapy</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">Pregnancy</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">Hx. of Gyn surgery</Col>
            <Col id="value">3</Col>
          </Row>
          <Row>
            <Col id="label">Chemotherapy</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="label">Postparturm</Col>
            <Col id="value">5</Col>
          </Row>
          <Row>
            <Col id="label">Hx. of Abnormal PAP smear</Col>
            <Col id="value">6</Col>
          </Row>
          <Row>
            <Col id="label">Radiation Therapy</Col>
            <Col id="value">7</Col>
          </Row>
          <Row>
            <Col id="label">Vaginal bleeding</Col>
            <Col id="value">8</Col>
          </Row>
          <Row>
            <Col id="label">Menopause</Col>
            <Col id="value">9</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="output1" propid="value" datasetid="ds_hidden_reqfrminfo" columnid="prcpnm"/>
    </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                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";
include "lis_commonxp::LPZ001.xjs";
include "lis_commonxp::LZZ003.xjs";

var objDomParser;
//var objDOM = rptf_createDOM();	// DOM 객체 설정
var arErrorCode = new HashArray();


function cbf_SPLPJ01400(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

 /**********************************************************************************
 * Name			: cbf_TXLPJ01501
 * Description	: 부인과의뢰지 저장 콜백함수.
 * Argument		: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type	: Null
 * Author		: Autumn
************************************************************************************/
function cbf_TXLPJ01501(strSvcID, nErrorCode, strErrorMag){
	if(nErrorCode != 0){
		sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");
	} else {
		sysf_messageBox("", "I001");
			
		opener.ds_hidden_reqfrminfo.setColumn(0,"reqno", ds_rtnvalinfo.getColumn(0,"lstreqno"));
		opener.ds_hidden_reqfrminfo.setColumn(0,"spccd", rdo_reprspc.value);
		opener.ds_hidden_reqfrminfo.setColumn(0,"spcnm", rdo_reprspc.text);
		
		this.close();
	}
}
// Cassandra 
/**********************************************************************************
 * Name			: fExeInitialize
 * Description	: 초기화 Function
 * Argument		: null
 * return Type	: null
 * Author		: Autumn
************************************************************************************/
function fExeInitialize()
{
	cp_checkboxList00.setBindDataset(ds_checkbox,"value","label");
	cal_lmpCmt.enable = false;
	dsf_createDs("ds_sysdtinfo");
	ds_send.clear();
	dsf_makeValue(ds_send,"instcd", "string",sysf_getUserInfo("dutplceinstcd"));
	
	var oParam = {};
		oParam.id          = "TRLPZ00102";
		oParam.service     = "plgycomnusemngtapp.BaseInfoCode";
		oParam.method      = "reqGetSystemDateTimeInformation";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_sysdtinfo=sysdtinfo";
		oParam.async       = false;
		oParam.callback    = "cbf_SPLPJ01400";

	tranf_submit(oParam);


	var sReqFrmNo = utlf_lPad(ds_hidden_reqfrminfo.getColumn(0,"reqno").toString(), 1, "0");

	if (sReqFrmNo != "0") {
		ds_send.clear();
		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          = "TRLPJ01502";
			oParam.service     = "plgyrelapplib.PlgyAcptLib";
			oParam.method      = "reqGetReqFrmInfo";
			oParam.inds        = "refData=ds_send";
			oParam.outds       = "ds_rslt_reqfrminfo=refrslt";
			oParam.async       = false;
			oParam.callback    = "cbf_SPLPJ01300";

		tranf_submit(oParam);
		fsetData();
		
		
	} 
	else 
	{
		
		rdo_reprspc.value = "TCGY01";		        	
		var objDOM = rptf_createDOM();	// DOM 객체 설정
		rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem02", "");
		rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem03", "");
		rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", "");
		cal_lmpCmt.value = utlf_getCurrentDate();
	}
	if(Number(ds_hidden_reqfrminfo.getColumn(0,"prcpstatcd")) >= 400) {
		btn_save.enable = false;
	}
	
	ds_hidden_reqfrminfo.setColumn(0,"spcnm", rdo_reprspc.text);
}
function fsetData(){
		
	if(ds_rslt_reqfrminfo.rowcount>0){
		objDomParser = new DomParser;
		var objDOM = objDomParser.parseFromString(ds_rslt_reqfrminfo.getColumn(0, "reqcnts"));
		rdo_reprspc.value 	= rptf_getValueFromDOM(objDOM,"/reqfrminfo/choispc/choispclist/spccd");
		cal_lmpCmt.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01");
		var chk_value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02").split(",");
		cp_checkboxList00.setData(chk_value, null,false);
		input2.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem03");
		textarea1.value =  rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts");
		
	}	
			
} 
function fmakeData(){
	var objDOM = rptf_createDOM();	// DOM 객체 설정
	rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01",cal_lmpCmt.value );
	rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem03",input2.value );
	rptf_setValueToDOM(objDOM,"/reqfrminfo/reqcnts",textarea1.value);
	rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02",cp_checkboxList00.getData());
	
}
function fExeSave()
{
	var sSpcnm = "";
	fmakeData();
	var objDOM = rptf_createDOM();	// DOM 객체 설정
   // 검체 추가정보 설정
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/choi", "true");
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spcseqno", "001");
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spccd", rdo_reprspc.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spccd2", rdo_reprspc.value);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spcnm", rdo_reprspc.text);
	rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/existyn", "N");
		
	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,"scrno",    "string",     "20");
	dsf_makeValue(ds_send,"reqno",  "string",   utlf_lPad(ds_hidden_reqfrminfo.getColumn(0,"reqno").toString(), 1, "0")); 
	dsf_makeValue(ds_send,"reqcnts", "string",  objParam.xml_data_XML1.replace("<![CDATA[","").replace("]]]]><![CDATA[>",""));
	dsf_makeValue(ds_send,"instcd",  "string",  sysf_getUserInfo("dutplceinstcd"));
	dsf_makeValue(ds_send,"prcpdd",    "string",     ds_hidden_reqfrminfo.getColumn(0,"prcpdd"));
	dsf_makeValue(ds_send,"execprcpuniqno",    "string",     ds_hidden_reqfrminfo.getColumn(0,"execprcpuniqno"));
			
	var oParam = {};
		oParam.id          = "TXLPJ01501";
		oParam.service     = "plgyrelapplib.PlgyAcptLib";
		oParam.method      = "reqExeReqFrmInfo";
		oParam.inds        = "refData=ds_send";
		oParam.outds       = "ds_rtnvalinfo=reflist";
		oParam.transaction = true;
		oParam.async       = false;
		oParam.callback    = "cbf_TXLPJ01501";

	tranf_submit(oParam);

	
}

function SPLPJ01400_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	fExeInitialize();
}


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



function btn_sytsrsltref_onclick(obj:Button,  e:ClickEventInfo)
{
	var objArg = new Object();
	objArg.arg_pid = ds_hidden_reqfrminfo.getColumn(0,"pid");
	frmf_modal("SMAER00800", "SMAER00800", objArg, "", "", application.mainframe.position.left+xpos, application.mainframe.position.top+ypos, "M", -1, null, null, null, "M");
}


function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	fExeSave();
	
}


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