YNU_JEUS/app_home/himed/xpapps/pam/aftjudgxp/xp/SMPID25100_진료내역상담대장.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPID25100" position="absolute 0 0 1221 768" titletext="진료내역 상담대장" oninit="SMPID25100_oninit" onload="SMPID25100_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 1 13 1212 745" id="group3" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 11 1211 51" align="align:center top;" id="group2" class="div_SA" anchor="left top right">
                <Layouts>
                  <Layout>
                    <Button position="absolute 1130 10 1186 32" id="btn_search" class="btn1" taborder="6" text="조회" anchor="top right" onclick="group3_group2_btn_search_onclick"/>
                    <Shape position="absolute 1104 7 1110 34" linetype="vertical" id="line13" class="line_4" anchor="top right"/>
                    <Static text="환자번호 :" position="absolute 14 11 100 28" id="caption5" class="search_name" anchor="default"/>
                    <Static text="상담기간 :" position="absolute 322 11 417 28" id="caption4" class="search_name" anchor="default"/>
                    <Calendar position="absolute 410 10 495 29" id="ipt_aplydd" class="input_search" mask="yyyy-mm-dd" anchor="default" dateformat="yyyy-MM-dd" value="null" onkeydown="group3_group2_ipt_aplydd_onkeydown"/>
                    <Button position="absolute 199 11 221 27" id="button2" class="icon_search" taborder="5" text="" anchor="default" onclick="group3_group2_button2_onclick"/>
                    <Edit position="absolute 99 10 202 29" id="ipt_pid" class="input_search" anchor="default"/>
                    <Edit position="absolute 229 10 299 29" id="ipt_patnm" anchor="default"/>
                    <Calendar position="absolute 520 10 610 29" id="input1" class="input_search" mask="yyyy-mm-dd" anchor="default" dateformat="yyyy-MM-dd" value="null" onkeydown="group3_group2_input1_onkeydown"/>
                    <Static text="~" position="absolute 503 10 518 30" id="caption2" anchor="default"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="진료내역 상담대장 List" position="absolute 0 58 200 81" id="caption1" class="tit_2" anchor="default"/>
              <Shape position="absolute 0 81 1204 82" linetype="vertical" id="line1" class="line_1" anchor="default"/>
              <Grid position="absolute 0 78 1211 718" id="grd_ordcnstlist" class="datagrid2" binddataset="ds_main_ordcnstlist" anchor="all" onkeydown="group3_grd_ordcnstlist_onkeydown" cellsizingtype="col">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="35"/>
                      <Column size="90"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="60"/>
                      <Column size="70"/>
                      <Column size="72"/>
                      <Column size="132"/>
                      <Column size="76"/>
                      <Column size="56"/>
                      <Column size="61"/>
                      <Column size="68"/>
                      <Column size="89"/>
                      <Column size="95"/>
                      <Column size="82"/>
                      <Column size="82"/>
                      <Column size="41"/>
                      <Column size="169"/>
                      <Column size="65"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell rowspan="2" taborder="undefined"/>
                      <Cell col="1" rowspan="2" text="순번" taborder="undefined"/>
                      <Cell col="2" rowspan="2" text="상담일자" taborder="undefined"/>
                      <Cell col="3" rowspan="2" text="시작시간" taborder="undefined"/>
                      <Cell col="4" rowspan="2" text="종료시간" taborder="undefined"/>
                      <Cell col="5" rowspan="2" text="total &#10;상담시간" taborder="undefined"/>
                      <Cell col="6" rowspan="2" text="환자번호" taborder="undefined"/>
                      <Cell col="7" rowspan="2" text="환자성명" taborder="undefined"/>
                      <Cell col="8" rowspan="2" text="진료과" taborder="undefined"/>
                      <Cell col="9" rowspan="2" text="진료년월" taborder="undefined"/>
                      <Cell col="10" rowspan="2" text="진료구분" taborder="undefined"/>
                      <Cell col="11" colspan="7" text="환자확인란" taborder="undefined"/>
                      <Cell col="18" rowspan="2" text="상담내용" taborder="undefined"/>
                      <Cell col="19" rowspan="2" text="확인자" taborder="undefined"/>
                      <Cell row="1" col="11" text="환자본인"/>
                      <Cell row="1" col="12" text="보호자만"/>
                      <Cell row="1" col="13" text="보호자 성명"/>
                      <Cell row="1" col="14" text="관계"/>
                      <Cell row="1" col="15" text="보호자신분증"/>
                      <Cell row="1" col="16" text="관계증명서류"/>
                      <Cell row="1" col="17" text="동의"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head"/>
                      <Cell col="1" displaytype="normal" edittype="none" text="bind:seq"/>
                      <Cell col="2" displaytype="date" edittype="date" text="bind:regdd" mask="yyyy-MM-dd"/>
                      <Cell col="3" displaytype="date" edittype="normal" text="bind:fromtm" mask="hh:mm"/>
                      <Cell col="4" displaytype="date" edittype="normal" text="bind:totm" mask="hh:mm"/>
                      <Cell col="5" displaytype="date" edittype="date" text="bind:tottm" mask="hh:mm:ss"/>
                      <Cell col="6" displaytype="text" edittype="text" style="align:center middle;" text="bind:pid"/>
                      <Cell col="7" displaytype="normal" edittype="none" style="align:center middle;" text="bind:patnm"/>
                      <Cell col="8" displaytype="combo" edittype="combo" text="bind:orddeptcd" combodataset="ds_init_orddeptcdlist" combocodecol="cd" combodatacol="nm"/>
                      <Cell col="9" displaytype="date" edittype="date" text="bind:ordym" mask="yyyy-MM" calendardisplaynulltype="nulltext"/>
                      <Cell col="10" displaytype="combo" edittype="combo" text="bind:ioflag" combodataset="ds_cmb_ioflag" combocodecol="value" combodatacol="label"/>
                      <Cell col="11" displaytype="checkbox" edittype="checkbox" text="bind:patownyn" expr="expr:patownyn == 'Y' || patownyn == '1' ? 1 : 0"/>
                      <Cell col="12" displaytype="checkbox" edittype="checkbox" text="bind:prtcteryn" expr="expr:prtcteryn == 'Y' || prtcteryn == '1' ? 1 : 0"/>
                      <Cell col="13" displaytype="text" edittype="text" text="bind:prtcternm"/>
                      <Cell col="14" displaytype="combo" edittype="combo" text="bind:rela" combodataset="ds_cmb_rela" combocodecol="value" combodatacol="label"/>
                      <Cell col="15" displaytype="checkbox" edittype="checkbox" text="bind:prtcteridyn" expr="expr:prtcteridyn == 'Y' || prtcteridyn == '1' ? 1:0"/>
                      <Cell col="16" displaytype="checkbox" edittype="checkbox" text="bind:famyrelcrtfctyn" expr="expr:famyrelcrtfctyn == 'Y' || famyrelcrtfctyn == '1' ? 1 : 0"/>
                      <Cell col="17" displaytype="checkbox" edittype="checkbox" text="bind:essntestasso" expr="expr:essntestasso == 'Y' || essntestasso == '1' ? 1 : 0"/>
                      <Cell col="18" displaytype="text" edittype="text" text="bind:cmnt"/>
                      <Cell col="19" displaytype="normal" edittype="none" text="bind:fstrgstrnm"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Button position="absolute 1131 57 1211 76" id="button5" class="btn7" visible="true" text="엑셀저장" anchor="top right" onclick="group3_button5_onclick"/>
              <Button position="absolute 1075 57 1128 76" id="btn_rowdel" class="btn2" text="행삭제" anchor="top right" onclick="group3_btn_rowdel_onclick"/>
              <Button position="absolute 1019 57 1072 76" id="btn_rowadd" class="btn2" text="행추가" anchor="top right" onclick="group3_btn_rowadd_onclick"/>
              <Button position="absolute 890 53 946 75" id="btn_patsrch" class="btn1" visible="false" text="조회" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 736 1211 768" id="group4" scrollbars="autoboth" anchor="left right bottom">
          <Layouts>
            <Layout>
              <Shape position="absolute 0 -2 1211 4" linetype="horizontal" id="line23" class="line_6" anchor="left right bottom"/>
              <Button position="absolute 1143 3 1211 25" id="button1" class="btn4" text="저 장" onclick="group4_button1_onclick" anchor="right bottom"/>
            </Layout>
          </Layouts>
        </Div>
        <Static id="caption6" text="진료내역 상담대장" class="tit_1" position="absolute 1 0 249 23"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_data1" 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="diagnm" type="STRING" size="256"/>
          <Column id="spclcd" type="STRING" size="256"/>
          <Column id="aplydd" type="STRING" size="256"/>
          <Column id="cretflag" type="STRING" size="256"/>
          <Column id="patnm" type="STRING" size="256"/>
          <Column id="regtodd" type="STRING" size="256"/>
          <Column id="regfromdd" type="STRING" size="256"/>
          <Column id="currendate" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="diagnm"/>
            <Col id="spclcd"/>
            <Col id="aplydd"/>
            <Col id="cretflag"/>
            <Col id="patnm"/>
            <Col id="regtodd"/>
            <Col id="regfromdd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_ordcnstlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_ordcnstlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="보험유형"/>
          <Column id="seq" type="STRING" size="256" sumtext="분야"/>
          <Column id="regdd" type="STRING" size="256" sumtext="접수번호"/>
          <Column id="fromtm" type="STRING" size="256" sumtext="명일련"/>
          <Column id="totm" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="tottm" type="STRING" size="256" sumtext="환자번호"/>
          <Column id="pid" type="STRING" size="256" sumtext="환자이름"/>
          <Column id="patnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="심사자"/>
          <Column id="ordym" type="STRING" size="256" sumtext="제출자료내역(코드)"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="patownyn" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="prtcteryn" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="prtcternm" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="rela" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="prtcteridyn" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="famyrelcrtfctyn" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="procrtyyn" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="cmnt" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstrnm" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstrid" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="제출자료내역(명칭)"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cmb_ioflag" 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">입원</Col>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">외래</Col>
            <Col id="value">O</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_cmb_rela" 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">본인</Col>
            <Col id="value">1</Col>
          </Row>
          <Row>
            <Col id="label">배우자</Col>
            <Col id="value">2</Col>
          </Row>
          <Row>
            <Col id="label">자녀</Col>
            <Col id="value">3</Col>
          </Row>
          <Row>
            <Col id="label">부모</Col>
            <Col id="value">4</Col>
          </Row>
          <Row>
            <Col id="label">기타</Col>
            <Col id="value">5</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="autoflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.group2.ipt_pid" propid="value" datasetid="ds_send_data1" columnid="pid"/>
      <BindItem id="item1" compid="group3.group2.ipt_patnm" propid="value" datasetid="ds_send_data1" columnid="patnm"/>
      <BindItem id="item2" compid="group3.group2.ipt_aplydd" propid="value" datasetid="ds_send_data1" columnid="regfromdd"/>
      <BindItem id="item3" compid="group3.group2.input1" propid="value" datasetid="ds_send_data1" columnid="regtodd"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-05-24
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-05-24      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "pam_pamcomnxp::PAM001.xjs";
include "pam_pamcomnxp::PAM.xjs";

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

function SMPID25100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(group3.grd_ordcnstlist);
	grdf_setRowTypeIcon(group3.grd_ordcnstlist, 0);
	
	var arrParam = [{dsNm: "ds_init_P0509list", cdGrpId: "P0509"}]
				   
	appf_getCodeList(arrParam);	
	
	pamGetDeptCDDrIDList();
	
	var fromdd = utlf_getCurrentDate();
	
	fromdd = fromdd.toDate().getAddDate(-7, "D");
	fromdd = fromdd.getDateFormat("YYYYMMDD"); 
	
	ds_send_data1.setColumn(0, "regfromdd", fromdd);
	ds_send_data1.setColumn(0, "regtodd", utlf_getCurrentDate());
	ds_send_data1.setColumn(0, "currendate", utlf_getCurrentDate());
}

function group3_group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var oParam = {};
		oParam.id          = "TRPID25000";
		oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
		oParam.method      = "reqGetOrdCnstList";
		oParam.inds        = "req=ds_send_data1";
		oParam.outds       = "ds_main_ordcnstlist=ordcnstlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPID25000";

	tranf_submit(oParam);
}

function group3_group2_button2_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_tmp.setColumn(0, "pid", ds_send_data1.getColumn(0, "pid"));
	ds_tmp.setColumn(0, "srchcond", "1");
	ds_tmp.setColumn(0, "autoflag", "Y");
	
	var objArg = new Object();
	objArg.arg_ds_send = ds_tmp;
	
	frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
	
	ds_send_data1.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
	ds_send_data1.setColumn(0, "patnm", ds_patinfolist.getColumn(0, "hngnm"));
}

function group3_group2_ipt_aplydd_onkeydown(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		group3_group2_btn_search_onclick();
	}
}

function group3_group2_input1_onkeydown(obj:Calendar, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		group3_group2_btn_search_onclick();
	}
}

function group3_btn_rowadd_onclick(obj:Button,  e:ClickEventInfo)
{
	var rowno = ds_main_ordcnstlist.addRow();

	ds_main_ordcnstlist.setColumn(rowno, "regdd", utlf_getCurrentDate());
	ds_main_ordcnstlist.setColumn(rowno, "fromtm", String(utlf_getCurrentTime()).substr(0,4));
}

function ds_main_ordcnstlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "patownyn")
	{
		obj.setColumn(e.row, "patownyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if(e.columnid == "prtcteryn")
	{
		obj.setColumn(e.row, "prtcteryn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if(e.columnid == "prtcteridyn")
	{
		obj.setColumn(e.row, "prtcteridyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if(e.columnid == "famyrelcrtfctyn")
	{
		obj.setColumn(e.row, "famyrelcrtfctyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if(e.columnid == "famyrelcrtfctyn")
	{
		obj.setColumn(e.row, "famyrelcrtfctyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if(e.columnid == "pid")
	{
		obj.setColumn(e.row, "pid", e.newvalue);
	}
}

function group3_btn_rowdel_onclick(obj:Button,  e:ClickEventInfo)
{
	var row =  ds_main_ordcnstlist.rowposition;
	
	var arrRow = new Array();
	arrRow[0] = row; 
	grdf_setStatus(group3.grd_ordcnstlist, "D", arrRow);
}

function group3_button5_onclick(obj:Button,  e:ClickEventInfo)
{
	if (ds_main_ordcnstlist.rowcount > 0) 
	{
		grdf_exportExcel(group3.grd_ordcnstlist, "exportExcel", "see");
	}
	else 
	{
		sysf_messageBox("엑셀저장할 내역이", "I004");
	}
}

function group4_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( sysf_messageBox("","Q002")==6 ) 
	{
		var update = grdf_getGridUpdateData(group3.grd_ordcnstlist);
		
		if(update.rowcount == 0)
		{
			sysf_messageBox("업데이트 정보가 없습니다.", "I");
			return 0;
		
		} 
		else 
		{
			var oParam = {};
				oParam.id          = "TXPID27000";
				oParam.service     = "aftjudgapp.InAftJudgTrgtMan";
				oParam.method      = "reqExeOrdCnstList";
				oParam.inds        = "req=ds_main_ordcnstlist:U";
				oParam.outds       = "ds_main_ordcnstlist=ordcnstlist";
				oParam.async       = false;
				//oParam.callback    = "cf_TXPID27000";

			tranf_submit(oParam);
			
			group3_group2_btn_search_onclick();
		}	
	}
}

function group3_grd_ordcnstlist_onkeydown(obj:Grid, e:KeyEventInfo)
{
	var cell = group3.grd_ordcnstlist.getBindCellIndex("Body", "pid");
	
	if(e.keycode ==  13 && cell == 6)
	{
		ds_tmp.setColumn(0, "pid", ds_main_ordcnstlist.getColumn(ds_main_ordcnstlist.rowposition, "pid"));
		ds_tmp.setColumn(0, "srchcond", "1");
		ds_tmp.setColumn(0, "autoflag", "Y");
		
		var objArg = new Object();
		objArg.arg_ds_send = ds_tmp;
		
		frmf_modal("SPPMC02500", "SPPMC02500", objArg, "", "", "", "", "", "", "", "", "", "M");
		
		ds_send_data1.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
		ds_send_data1.setColumn(0, "patnm", ds_patinfolist.getColumn(0, "hngnm"));
	}
}
]]></Script>
  </Form>
</FDL>