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

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLPJ01300" position="absolute 0 0 554 619" titletext="체액세포 의뢰지" onload="SPJLP01300_onload">
    <Layouts>
      <Layout>
        <Static id="caption1" text="처방" class="tit_2" position="absolute 12 6 115 26"/>
        <Static id="Static01" class="sta_DA_box" position="absolute 12 26 542 52"/>
        <Edit id="output1" taborder="7" readonly="true" position="absolute 116 29 368 49"/>
        <Static id="caption4" text="처 방 명" class="cell_1" position="absolute 13 27 113 51" style="align:center middle;"/>
        <Static id="caption2" text="필수기록사항" class="tit_2" position="absolute 12 63 182 83"/>
        <Static id="caption5" text="임상정보 및 기록사항" class="tit_2" position="absolute 12 256 182 276"/>
        <TextArea id="textarea1" taborder="4" position="absolute 12 274 542 584" wordwrap="word"/>
        <Button id="btn_exit111" taborder="9" text="닫기" class="btn4" position="absolute 486 587 542 607" visible="true" onclick="btn_exit111_onclick"/>
        <Button id="btn_save" taborder="5" text="확인" class="btn4" position="absolute 430 587 486 607" onclick="btn_save_onclick"/>
        <Button id="btn_sytsrsltref" taborder="10" text="통합결과조회" class="btn3" position="absolute 12 587 120 607" onclick="btn_sytsrsltref_onclick"/>
        <Radio id="rdo_ltrt" taborder="12" columncount="3" rowcount="0" position="absolute 373 31 537 46" codecolumn="codecolumn" datacolumn="datacolumn">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">0</Col>
                <Col id="datacolumn">RT</Col>
              </Row>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">LT</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">Other</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Static id="Static00" position="absolute 15 81 543 250" class="sta_DA_box"/>
        <Radio id="rdo_reprspccd" taborder="13" columncount="3" rowcount="7" index="0" codecolumn="codecolumn" datacolumn="datacolumn" value="TNG115" position="absolute 20 85 535 240">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">TCBF01</Col>
                <Col id="datacolumn">Ascites</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF07</Col>
                <Col id="datacolumn">Nipple discharge</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF13</Col>
                <Col id="datacolumn">Synovial fluid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF02</Col>
                <Col id="datacolumn">Bile</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF08</Col>
                <Col id="datacolumn">Ovary cyst</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF15</Col>
                <Col id="datacolumn">Urine catheterized</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF03</Col>
                <Col id="datacolumn">Bronchial brushing</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF09</Col>
                <Col id="datacolumn">Pericaridal fluid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF14</Col>
                <Col id="datacolumn">Urine voided</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF04</Col>
                <Col id="datacolumn">Bronchial washing</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF10</Col>
                <Col id="datacolumn">Peritoneal washing</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF16</Col>
                <Col id="datacolumn">Urine washing</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF05</Col>
                <Col id="datacolumn">Cerebrospinal fluid (CSF)</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF11</Col>
                <Col id="datacolumn">Pleural fluid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF17</Col>
                <Col id="datacolumn">Wounded discharge</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF06</Col>
                <Col id="datacolumn">Gastric washing</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF12</Col>
                <Col id="datacolumn">Sputum</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCAP08</Col>
                <Col id="datacolumn">Thyroid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF18</Col>
                <Col id="datacolumn">BAL fluid</Col>
              </Row>
              <Row>
                <Col id="codecolumn">TCBF99</Col>
                <Col id="datacolumn">Other</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Edit id="ipt_other" taborder="14" onkeydown="ipt_other_onkeydown" enable="false" position="absolute 251 220 535 240"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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_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_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_hidden_reqfrminfo_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="output1" propid="value" datasetid="ds_hidden_reqfrminfo" columnid="prcpnm"/>
      <BindItem id="item1" compid="rdo_reprspccd" propid="value" datasetid="ds_hidden_reqfrminfo" columnid="spccd"/>
    </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";
include "lis_commonxp::LPZ001.xjs";
include "lis_commonxp::LZZ003.xjs";

var objDomParser;
var objDOM;
var arErrorCode = new HashArray();


function fExeInitialize() {
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
	
	rptf_setValueToDOM(objDOM, "/reqfrminfo/spcsite", "2");
	
	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
	{
		rptf_setValueToDOM(objDOM, "/reqfrminfo/inptitem01", "");
		rptf_setValueToDOM(objDOM, "/reqfrminfo/reqcnts", "");
	}
		
	if(Number(ds_hidden_reqfrminfo.getColumn(0,"prcpstatcd")) >= 400) {
		btn_save.enable = false;
	}
	
}

function fExeSave()
{
	var sSpcnm = "";
	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"));
	
	sSpcnm = rdo_reprspccd.text;
	if (sSpcnm == "Other")
	{
		rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spcnm", ipt_other.value);
	}
	else
	{
		rptf_setValueToDOM(objDOM, "/reqfrminfo/choispc/choispclist/spcnm", sSpcnm);
	}
	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",     "30");
	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 fsetData(){
	
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString(ds_rslt_reqfrminfo.getColumn(0, "reqcnts"));
		
	rdo_ltrt.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/spcsite");
	rdo_reprspccd.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/choispc/choispclist/spccd");
	ipt_other.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01");
	textarea1.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqcnts");
		
} 
function fmakeData(){
	rptf_setValueToDOM(objDOM,"/reqfrminfo/spcsite",rdo_ltrt.value);
	rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01",ipt_other.value );
	rptf_setValueToDOM(objDOM,"/reqfrminfo/reqcnts",textarea1.value);
	
}
/**********************************************************************************
 * Name: cbf_SPLPJ01300
 * Description: 비부인과의뢰지 콜백함수.
 * Argument: string:strSvcID, string:nErrorCode, string:strErrorMag
 * return Type: Null
 * Author: Autumn
************************************************************************************/
function cbf_SPLPJ01300(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_reprspccd.value);
		opener.ds_hidden_reqfrminfo.setColumn(0,"spcnm", rdo_reprspccd.text);
		
		this.close();
	}
}


function SPJLP01300_onload(obj : Form, e : LoadEventInfo) {
	frmf_initForm(obj);
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	try
	{
		ds_hidden_reqfrminfo_prcplist.copyData(arg_ds_hidden_reqfrminfo_prcplist);
	}
	catch(e)
	{
		trace(e);
	}
	fExeInitialize();
}

/****************************************************************************************
 * Components    : 
 * Components ID  : btn_exit
 * Event     : onclick
 * Argument: 01.obj: Object Event has occurred
 *: 02.e: Event Object
 * Description: 화면닫기
 ****************************************************************************************/
function btn_exit_onclick(obj : Button, e : ClickEventInfo) {
	this.close();
}

/****************************************************************************************
 * Components    : 
 * Components ID  : btn_exit111
 * Event     : onclick
 * Argument: 01.obj: Object Event has occurred
 *: 02.e: Event Object
 * Description: 화면닫기
 ****************************************************************************************/
function btn_exit111_onclick(obj : Button, e : ClickEventInfo) {
	this.close();
}

/****************************************************************************************
 * Components    : 
 * Components ID  : btn_sytsrsltref
 * Event     : onclick
 * Argument: 01.obj: Object Event has occurred
 *: 02.e: Event Object
 * Description: 통합검사결과조회 팝업
 ****************************************************************************************/
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 ipt_other_onkeydown(obj : Edit, e : KeyEventInfo) {
	if(e.keycode != 13) {
		rdo_reprspccd.value = "TCBF99";
	}
}


function btn_save_onclick(obj : Button, e : ClickEventInfo) {

	fExeSave();
}


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