YNU_JEUS/app_home/himed/xpapps/emr/wardcarexp/xp/SMMNW00129_부적합검체 간호확인.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNW00129" position="absolute 0 0 1190 385" titletext="부적합검체 간호 확인" oninit="SMMNW00129_oninit" onload="SMMNW00129_onload">
    <Layouts>
      <Layout>
        <Button position="absolute 1115 5 1171 27" id="button1" class="btn4" text="확인" onclick="button1_onclick" anchor="top right"/>
        <Grid position="absolute 0 30 1185 380" id="grd_unablspclist" binddataset="ds_main_unablspclist" selecttype="multirow" anchor="all" cellsizingtype="col" autosizingtype="row" extendsizetype="row">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="105"/>
                <Column size="80"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="70"/>
                <Column size="270"/>
                <Column size="105"/>
                <Column size="70"/>
                <Column size="50"/>
                <Column size="130"/>
                <Column size="130"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox"/>
                <Cell col="1" text="처방일시"/>
                <Cell col="2" text="병동"/>
                <Cell col="3" text="환자번호"/>
                <Cell col="4" text="환자명"/>
                <Cell col="5" text="바코드번호"/>
                <Cell col="6" text="검사 항목"/>
                <Cell col="7" text="통보 일자"/>
                <Cell col="8" text="통보자"/>
                <Cell col="9" text="연락처"/>
                <Cell col="10" text="부적합 등록 사유"/>
                <Cell col="11" text="조치사항"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:chkyn" expr="expr:(chkyn == &quot;Y&quot; || chkyn == 1) ? 1 : 0"/>
                <Cell col="1" text="bind:rgstdt" mask="expr:utlf_isNull(rgstdt) ? '' : '####-##-## ##:##'"/>
                <Cell col="2" style="align:left middle;padding:2 2 2 2;" text="bind:wardroom"/>
                <Cell col="3" style="align:center middle;" text="bind:pid"/>
                <Cell col="4" style="align:center middle;" text="bind:patnm"/>
                <Cell col="5" style="align:center middle;padding:2 2 2 2;" text="bind:bcno" wordwrap="word"/>
                <Cell col="6" style="align:left middle;" text="bind:tclslist"/>
                <Cell col="7" style="align:left middle;" text="bind:notidt" mask="expr:utlf_isNull(notidt) ? '' : '####-##-## ##:##'"/>
                <Cell col="8" style="align:center middle;" text="bind:fstrgstrnm"/>
                <Cell col="9" style="align:center middle;" text="bind:phone"/>
                <Cell col="10" style="align:left middle;" text="bind:spcstatdesc"/>
                <Cell col="11" style="align:left middle;" text="bind:measfact"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_unablspclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_unablspclist_oncolumnchanged">
        <ColumnInfo>
          <Column id="chkyn" type="STRING" size="256"/>
          <Column id="rgstdt" type="STRING" size="256"/>
          <Column id="wardroom" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="bcno" type="STRING" size="256"/>
          <Column id="tclslist" type="STRING" size="256"/>
          <Column id="notidt" type="STRING" size="256"/>
          <Column id="fstrgstrnm" type="STRING" size="256"/>
          <Column id="phone" type="STRING" size="256"/>
          <Column id="spcstatdesc" type="STRING" size="256"/>
          <Column id="measfact" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="chkyn"/>
            <Col id="rgstdt"/>
            <Col id="wardroom"/>
            <Col id="pid"/>
            <Col id="patnm"/>
            <Col id="bcno"/>
            <Col id="tclslist"/>
            <Col id="notidt"/>
            <Col id="fstrgstrnm"/>
            <Col id="phone"/>
            <Col id="spcstatdesc"/>
            <Col id="measfact"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_param" 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="indd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="indd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_savedata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_resultcnt_rtn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cnts" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cnts"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

var arErrorCode = new HashArray();

function cf_TXMNW00129(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
	utlf_addLog("***** cf_TXMNW00129 *****");
}

/*SMMNW00129_oninit*/
function SMMNW00129_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}




/*SMMNW00129_onload*/
function SMMNW00129_onload(obj:Form, e:LoadEventInfo)
{
	var initPid = opener.frmf_getParameter("SMMNW00129_PARM_PID");
	var initIndd = opener.frmf_getParameter("SMMNW00129_PARM_INDD");
	
	ds_param.setColumn(0, "pid", initPid);
	ds_param.setColumn(0, "indd", initIndd);
	
	var oParam = {};
    oParam.id          = "TRMNW00129";
    oParam.service     = "wardcareapp.WardCareMngt";
    oParam.method      = "reqGetUnablSpcList";
    oParam.inds        = "req=ds_param";
    oParam.outds       = "ds_main_unablspclist=unablspclist";
    oParam.async       = false;

	tranf_submit(oParam);
	
	grdf_setAllCheck(grd_unablspclist);
}




/*button1_onclick*/
function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var usrNm = sysf_getUserInfo("usernm");
	var wardNm = sysf_getUserInfo("dutplcenm");
	
	dsf_copyDs(ds_savedata, ds_main_unablspclist);
	
	var chkCount = 0;
	
	for(var i = 0 ; i < ds_main_unablspclist.rowcount; i++){
		if ( ds_main_unablspclist.getColumn(i, "chkyn") == "Y") {
			chkCount ++;
		}
	}
	
	if (chkCount < 1 ) {
		sysf_messageBox("확인할 부적합 검체를 선택 하십시요 !", "E");
		return;
	}
	
	
	if ("7" == sysf_messageBox("선택한 부적합 검체 확인 내역을 ", "Q002"))
	{ 
		return;
	}
	
	var oParam = {};
    oParam.id          = "TXMNW00129";
    oParam.service     = "wardcareapp.WardCareMngt";
    oParam.method      = "reqInsUnablSpcInfo";
    oParam.inds        = "unablspclist=ds_savedata";
    oParam.outds       = "ds_resultcnt_rtn=rtn";
    oParam.async       = false;
    oParam.callback    = "cf_TXMNW00129";

	tranf_submit(oParam);

	if(arErrorCode.pop("TXMNW00129") > -1){
		var rtnCnts = ds_resultcnt_rtn.getColumn(0, "cnts");
		
		if ("6" == sysf_messageBox("부적합 검체 ["+ rtnCnts +"] 건 확인 되었습니다.\n\n바코드출력 화면으로 이동하시겠습니까?", "Q")){
			frmf_modal("SMLLC00200","SMLLC00200","", 1, 50, 50,"","", "", "", "", "", "M");
		} 
			
		var oParam = {};
		oParam.id          = "TRMNW00129";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqGetUnablSpcList";
		oParam.inds        = "req=ds_param";
		oParam.outds       = "ds_main_unablspclist=unablspclist";
		oParam.async       = false;

		tranf_submit(oParam);
	}
}




/*ds_main_unablspclist_oncolumnchanged*/
function ds_main_unablspclist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if ( e.columnid == "chkyn" ) {
		var currow = e.row;
		obj.setColumn(currow, e.columnid, (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}
]]></Script>
  </Form>
</FDL>