YNU_JEUS/app_home/himed/xpapps/emr/agonalcarexp/xp/SMMNH07200_사회복지사초기종결기록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNH07200" position="absolute 0 0 1205 767" titletext="사회복지사 초기/종결 상담기록" oninit="SMMNH07200_oninit" onload="SMMNH07200_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 491 85" align="align:center top;" id="grp_sea" class="div_SA">
          <Layouts>
            <Layout>
              <Static text="병동 :" position="absolute 11 10 59 27" id="caption2" class="search_name"/>
              <Button position="absolute 425 30 481 52" id="button1" class="btn1" taborder="4" text="조회" onclick="grp_sea_button1_onclick"/>
              <Shape position="absolute 406 30 412 52" linetype="vertical" id="line13" class="line_4"/>
              <Combo position="absolute 61 7 165 26" id="cmb_wardcd" class="combo_essential" enable="false" innerdataset="@ds_init_ward" datacolumn="wardnm" codecolumn="wardcd" onitemchanged="grp_sea_cmb_wardcd_onitemchanged"/>
              <Static text="업무일자 :" position="absolute 178 10 258 27" id="caption9" class="search_name"/>
              <Calendar position="absolute 255 7 350 26" id="ipt_orddd" class="input_essential" dateformat="yyyy-MM-dd" value="null" onchanged="grp_sea_ipt_orddd_onchanged" autoselect="true"/>
              <Radio position="absolute 96 34 298 55" id="radio4" class="radio_search" columncount="-1" codecolumn="codecolumn" datacolumn="datacolumn" rowcount="-1" onitemchanged="grp_sea_radio4_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">재원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">입원</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">3</Col>
                      <Col id="datacolumn">퇴원진행</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">4</Col>
                      <Col id="datacolumn">퇴원</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static text="진행상태 :" position="absolute 11 38 101 55" id="caption28" class="search_name"/>
              <Static text="기록구분 :" position="absolute 11 60 101 77" id="caption3" class="search_name"/>
              <Radio position="absolute 96 57 186 78" id="rdo_recflag" class="radio_search" columncount="4" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="grp_sea_rdo_recflag_onitemchanged">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">초기</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">종결</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
            </Layout>
          </Layouts>
        </Div>
        <Static text="환자리스트" position="absolute 1 91 91 112" id="caption1" class="tit_2"/>
        <Grid position="absolute 0 112 491 765" id="grd_wardpatlist" class="datagrid2" binddataset="ds_main_wardpatinfo_wardpatlist" oncelldblclick="grd_wardpatlist_oncelldblclick" cellsizebandtype="allband" cellsizingtype="both" extendsizetype="row" selecttype="multirow" anchor="left top bottom">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="23" band="left"/>
                <Column size="45"/>
                <Column size="55"/>
                <Column size="21"/>
                <Column size="22"/>
                <Column size="70"/>
                <Column size="42"/>
                <Column size="85"/>
                <Column size="55"/>
                <Column size="55"/>
                <Column size="54"/>
                <Column size="100"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="32" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" text="병실"/>
                <Cell col="2" text="등록번호"/>
                <Cell col="3" colspan="2" text="재원&#10;상태" taborder="undefined"/>
                <Cell col="5" text="환자명"/>
                <Cell col="6" text="S/A"/>
                <Cell col="7" text="진료과"/>
                <Cell col="8" text="주치의"/>
                <Cell col="9" colspan="2" text="담당의" taborder="undefined"/>
                <Cell col="11" text="진단명"/>
                <Cell col="12" text="indd"/>
                <Cell col="13" text="cretno"/>
                <Cell col="14" text="instcd"/>
                <Cell col="15" text="ordtype"/>
                <Cell col="16" text="formrecseq"/>
                <Cell col="17" text="formrecseq2"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" style="align:left middle;" text="bind:roomcd"/>
                <Cell col="2" style="align:left middle;" text="bind:pid"/>
                <Cell col="3" text="bind:chngroomstat"/>
                <Cell col="4" text="bind:indschstat"/>
                <Cell col="5" style="align:left middle;" text="bind:patnm"/>
                <Cell col="6" text="bind:sexage"/>
                <Cell col="7" style="align:left middle;" text="bind:orddeptnm"/>
                <Cell col="8" style="align:left middle;" text="bind:medispclnm"/>
                <Cell col="9" style="align:left middle;" text="bind:atdoctnm"/>
                <Cell col="10" text="bind:pdano"/>
                <Cell col="11" style="align:left top;padding:4 2 2 2;" text="bind:diag" wordwrap="word"/>
                <Cell col="12" text="bind:indd"/>
                <Cell col="13" text="bind:cretno"/>
                <Cell col="14" text="bind:instcd"/>
                <Cell col="15" text="bind:ordtype"/>
                <Cell col="16" text="bind:formrecseq"/>
                <Cell col="17" text="bind:formrecseq2"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Shape position="absolute -1 107 490 113" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top"/>
        <Button position="absolute 1136 4 1200 23" id="btn_signsave" class="btn5" text="인증저장" onclick="btn_signsave_onclick" anchor="top right"/>
        <Button position="absolute 1068 4 1132 23" id="button2" class="btn2" text="기록삭제" onclick="button2_onclick" anchor="top right"/>
        <Shape position="absolute 493 24 1199 30" linetype="horizontal" id="line2" class="line_1" style="strokepen:3 solid #33bbbbff;" anchor="left top right"/>
        <Static text="기록작성" position="absolute 494 8 605 29" id="caption7" class="tit_2"/>
        <Div id="ivw_loader" taborder="1" url="emr_medirecxp::SSMMR01100_서식로더.xfdl" position="absolute 493 32 1200 764" anchor="all"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_reqdata" 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="cretdd" type="STRING" size="256"/>
          <Column id="crettm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="cretdd"/>
            <Col id="crettm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="indschacptstat" type="STRING" size="256"/>
          <Column id="recflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="wardcd"/>
            <Col id="orddd"/>
            <Col id="indschacptstat">1</Col>
            <Col id="recflag">1</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_ward" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="wardcd" type="STRING" size="256"/>
          <Column id="wardnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_wardpatinfo_wardpatlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_M0068list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_M0069list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_P0157list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_M0206list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_settingrn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_grupid" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_codeinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_cond_formdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="formcd" type="STRING" size="256"/>
          <Column id="formkind" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="btnvisible" type="STRING" size="256"/>
          <Column id="btnenable" type="STRING" size="256"/>
          <Column id="unpreprec" type="STRING" size="256"/>
          <Column id="modalyn" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="topyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="formkind"/>
            <Col id="formcd"/>
            <Col id="pid"/>
            <Col id="orddd"/>
            <Col id="cretno"/>
            <Col id="btnvisible"/>
            <Col id="orddeptcd"/>
            <Col id="modalyn"/>
            <Col id="unpreprec"/>
            <Col id="btnenable"/>
            <Col id="ioflag"/>
            <Col id="topyn"/>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.cmb_wardcd" propid="value" datasetid="ds_main_cond" columnid="wardcd"/>
      <BindItem id="item1" compid="grp_sea.ipt_orddd" propid="value" datasetid="ds_main_cond" columnid="orddd"/>
      <BindItem id="item2" compid="grp_sea.radio4" propid="value" datasetid="ds_main_cond" columnid="indschacptstat"/>
      <BindItem id="item3" compid="grp_sea.rdo_recflag" propid="value" datasetid="ds_main_cond" columnid="recflag"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-10-31
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-10-31      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_carecomxp::CareCom.xjs";
include "emr_commonxp::EMRCommon.xjs";
include "emr_medirecxp::MMRCommon.xjs";
include "emr_medirecxp::SPMMR05400.xjs";
include "emr_medirecxp::MMR01100.xjs";

function SMMNH07200_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMMNH07200_onload(obj:Form, e:LoadEventInfo)
{
	var arrParam = [{dsNm: "ds_init_M0068list", cdGrpId: "M0068"}
				   ,{dsNm: "ds_init_M0069list", cdGrpId: "M0069"}
				   ,{dsNm: "ds_init_P0157list", cdGrpId: "P0157"}
				   ,{dsNm: "ds_init_M0206list", cdGrpId: "M0206"}]
				   
	appf_getCodeList(arrParam);	
					
	var oParam = {};
		oParam.id          = "TRMNW00101";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqGetWMInitData";
		oParam.inds        = "reqcond=ds_main_cond";
		oParam.outds       = "ds_init_ward=ward ds_init_dept=dept ds_init_settingrn=settingrn";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNW00101";

	tranf_submit(oParam);

	fGetHardCodeInfo("ds_send_grupid", "ds_temp_codeinfo", "044");
	
	ds_main_cond.setColumn(0, "wardcd", ds_temp_codeinfo.lookup("cdgrupid", "044", "cdid"));
	ds_main_cond.setColumn(0, "orddd", utlf_getCurrentDate());
	
 	
 	lf_ivw_loader_setting();
 	
	fSearch();
}


function fSearch()
{
	dsf_makeValue(ds_send, "wardcd", "string", ds_main_cond.getColumn(0, "wardcd"));
	dsf_makeValue(ds_send, "indschacptstat", "string", ds_main_cond.getColumn(0, "indschacptstat"));					
					
	
	if(ds_main_cond.getColumn(0, "indschacptstat") == "1" || ds_main_cond.getColumn(0, "indschacptstat") == "3")
	{
		dsf_makeValue(ds_send, "orddd", "string", utlf_getCurrentDate());
	}
	else
	{
		dsf_makeValue(ds_send, "orddd", "string", ds_main_cond.getColumn(0, "orddd"));	
	}
	
	dsf_makeValue(ds_send, "hospiceyn", "string", "Y");	
	dsf_makeValue(ds_send, "wardflag", "string", "ward");
	
	var oParam = {};
		oParam.id          = "TRMNH06801";
		oParam.service     = "hospiceapp.HospiceRecMngt";
		oParam.method      = "reqGetWardPatList";
		oParam.inds        = "reqcond=ds_send";
		oParam.outds       = "ds_main_wardpatinfo_wardpatlist=wardpatlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNH06801";

	tranf_submit(oParam);
	
	ds_main_wardpatinfo_wardpatlist.rowposition = -1;
}

function grd_wardpatlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fRecordsearch();
}

function grp_sea_cmb_wardcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fSearch();
}

function grp_sea_ipt_orddd_onchanged(obj:Calendar, e:ChangeEventInfo)
{
	fSearch();
}

function grp_sea_radio4_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fSearch();
}

function grp_sea_rdo_recflag_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	fSearch();
}

function grp_sea_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearch();
}

function fRecordsearch()
{
	// 16.12.07_프로그램 내에서 환자 기본정보에 대한 Parameter을 넘기더라도 우선적으로 상단정보를 가져가는 것을 막기위함.
	frmf_setParameter("SSMMR01100_getTopYn", "N");

	var nRow 	  = ds_main_wardpatinfo_wardpatlist.rowposition;
	var instcd    = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "instcd");
	var pid    	  = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "pid");
	var indd   	  = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "indd");
	var cretno    = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "cretno");
	var orddeptcd = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "orddeptcd");
	var orddrid   = ds_main_wardpatinfo_wardpatlist.getColumn(nRow, "medispclid");
	var recflag  = ds_main_cond.getColumn(0, "recflag");
	
	var formcd = "";
	var formrecseq = "";

	if(utlf_isNull(pid) || utlf_isNull(indd) || utlf_isNull(cretno))
	{
		sysf_messageBox("환자가 선택되지 " , "E007");
		return;
	}

	if(utlf_isNull(recflag))
	{
		sysf_messageBox("기록 구분을 선택" , "I004");
		return;
	}
	
	if(recflag == "1") 
	{
		formcd = "1600017777";
		formrecseq = ds_main_wardpatinfo_wardpatlist.getColumn(ds_main_wardpatinfo_wardpatlist.rowposition, "formrecseq");
	}
	else if(recflag == "2") 
	{
		formcd = "1600017778";
		formrecseq = ds_main_wardpatinfo_wardpatlist.getColumn(ds_main_wardpatinfo_wardpatlist.rowposition, "formrecseq2");
	} 
	else 
	{
		sysf_messageBox("기록 구분을 선택" , "I004");
		return;
	}
	
	// 서식 로드
	frmf_setParameter("SSMMR01100_recsavechk", "Y");
	var path = this;
	var objArg = new Object();
	var vBtn = false;
	var vFormKind = "rec";
	var vFormcd = "";
	
	if(formrecseq == "N")
	{
		vFormKind = "new";
		vFormcd = formcd;
	} 
	else 
	{
		vFormcd = formrecseq;
	}
	
	ds_cond_formdata.clearData();
	ds_cond_formdata.addRow();
	ds_cond_formdata.setColumn(0, "formcd", vFormcd);    // 서식목록 - linkcd, 기록목록 - formrecseq  컬럼값.  
	ds_cond_formdata.setColumn(0, "formkind", vFormKind);     // 서식목록 탭 - new , 기록목록 - rec
	ds_cond_formdata.setColumn(0, "btnvisible", vBtn);
	ds_cond_formdata.setColumn(0, "pid", pid);
	ds_cond_formdata.setColumn(0, "orddd", indd);
	ds_cond_formdata.setColumn(0, "cretno", cretno);
	ds_cond_formdata.setColumn(0, "orddeptcd", orddeptcd);
	ds_cond_formdata.setColumn(0, "ioflag", "I");
	ds_cond_formdata.setColumn(0, "topyn", "N");

	objArg.ds_cond_formdata = ds_cond_formdata;
	 
	lf_loadSMMMR01100(false, objArg);
	
	
	
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	ivw_loader.grup_btn_btn_del_onclick();

	fSearch();
}
//인증저장
function btn_signsave_onclick(obj:Button,  e:ClickEventInfo)
{
	var grd_row = grd_wardpatlist.currentrow;
	if (grd_row >= 0) {
		//ivw_loader.btn_signsave.dispatch("onclick");
//						var formrecseq =ivw_loader.window.javascript.fGetFormRec("formrecseq")
//						alert("formrecseq : " + formrecseq);
		//alert("grdrow : " +  grd_wardpatlist.row + " var_row : " + grd_row);
		if( ivw_loader.fClickSave("Y") ) {
			fSearch();
			ds_main_wardpatinfo_wardpatlist.selectRow(grd_row);
			ds_main_wardpatinfo_wardpatlist.rowposition = grd_row;
			fRecordsearch();
		}
		
	} else {
		sysf_messageBox("환자를 선택하지" , "E007");
		return;
	}
}

/*************************************************************************************************************
 * Function 	    : lf_ivw_loader_setting
 * Description		: 서식 로더 내 컨트롤 설정
 * Argument			: 
 * retrun type		: 
 * Creator			: 
 ************************************************************************************************************/
function lf_ivw_loader_setting() { 
	
	ivw_loader.Static01.position.top = ivw_loader.grup_titl.position.top;
	ivw_loader.Static01.position.bottom = ivw_loader.grup_btn.position.bottom;//grp_base.ivw_loader.position.bottom;
	ivw_loader.ivw_base.position.left = 0;
	ivw_loader.ivw_base.position.top = ivw_loader.grup_titl.position.top;
	ivw_loader.ivw_base.position.bottom = ivw_loader.grup_btn.position.bottom;

	ivw_loader.lf_btnVisible(false);	// 버튼 visible/hidden
}
]]></Script>
  </Form>
</FDL>