YNU_JEUS/app_home/himed/xpapps/pam/pamcomnxp/xp/SPPMO02001_정산대상처방조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPMO02001" position="absolute 0 0 806 360" titletext="정산대상처방조회" oninit="SPPMO02001_oninit" onload="SPPMO02001_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 0 0 805 300" id="group3" scrollbars="autoboth" anchor="all">
          <Layouts>
            <Layout>
              <Div position="absolute 0 2 765 37" align="align:center top;" id="group2">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 0 0 765 35" id="roundrect1" class="roundrect_search" type="roundrectangle"/>
                    <Static text="등록번호 :" position="absolute 3 8 89 25" id="caption2" class="search_name"/>
                    <Button position="absolute 699 7 755 29" id="btn_search" class="btn1" taborder="2" text="조회" onclick="group3_group2_btn_search_onclick"/>
                    <Edit position="absolute 91 8 158 27" align="align:center middle;" id="input3" class="input_search" taborder="1" onkeydown="group3_group2_input3_onkeydown"/>
                    <Combo position="absolute 190 10 290 29" id="combo1" codecolumn="codecolumn" datacolumn="datacolumn">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">combo1</Col>
                            <Col id="datacolumn">combo1</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                    <Edit position="absolute 310 10 410 30" id="input1"/>
                    <Edit position="absolute 420 10 440 29" id="input2"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="정산대상처방" position="absolute 0 48 121 64" id="caption1" class="tit_2"/>
              <Grid position="absolute 0 69 805 300" id="grd_prcplist" binddataset="ds_grd_prcplist" autofittype="col" anchor="all">
                <Formats>
                  <Format id="default">
                    <Columns>
                      <Column size="25"/>
                      <Column size="58"/>
                      <Column size="56"/>
                      <Column size="80"/>
                      <Column size="57"/>
                      <Column size="107"/>
                      <Column size="54"/>
                      <Column size="91"/>
                      <Column size="137"/>
                      <Column size="100"/>
                      <Column size="70"/>
                    </Columns>
                    <Rows>
                      <Row size="24" band="head"/>
                      <Row size="24"/>
                    </Rows>
                    <Band id="head">
                      <Cell/>
                      <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="실시일자"/>
                    </Band>
                    <Band id="body">
                      <Cell celltype="head" expr="expr:currow + 1"/>
                      <Cell col="1" style="align:center middle;" text="bind:pid"/>
                      <Cell col="2" style="align:center middle;" text="bind:hngnm"/>
                      <Cell col="3" displaytype="date" style="align:center middle;" text="bind:orddd" mask="yyyy-MM-dd" maskchar=" " calendardisplaynulltype="none"/>
                      <Cell col="4" style="align:center middle;" text="bind:ordtype"/>
                      <Cell col="5" style="align:left middle;padding:0 0 0 5;" text="bind:orddeptnm" wordwrap="char"/>
                      <Cell col="6" style="align:center middle;" text="bind:orddrnm" wordwrap="char"/>
                      <Cell col="7" style="align:left middle;padding:0 0 0 5;" text="bind:calcscorcd"/>
                      <Cell col="8" style="align:left middle;padding:0 0 0 5;" text="bind:calcscornm" wordwrap="char"/>
                      <Cell col="9" style="align:left middle;padding:0 0 0 5;" text="bind:execdeptnm"/>
                      <Cell col="10" displaytype="date" style="align:center middle;" text="bind:execdd" mask="yyyy-MM-dd" maskchar=" " calendardisplaynulltype="none"/>
                    </Band>
                  </Format>
                </Formats>
              </Grid>
              <Static text="* 정산대상이 존재하는 경우 정산(추가수납 / 환불)을 위해 원무창구로 안내해 주시기 바랍니다." position="absolute 200 50 760 65" id="caption3" style="color:red;"/>
              <Div position="absolute 0 0 805 40" align="align:center top;" id="group4" class="div_SA2" anchor="left top right">
                <Layouts>
                  <Layout width="805" height="35">
                    <Static text="등록번호 :" position="absolute 8 11 94 28" id="caption4" class="search_name" anchor="default"/>
                    <Button position="absolute 734 9 790 31" id="button1" class="btn1" taborder="2" text="조회" onclick="group3_group4_button1_onclick" anchor="top right"/>
                    <Edit position="absolute 96 10 163 29" align="align:center middle;" id="input4" class="input_search" taborder="1" onkeydown="group3_group4_input4_onkeydown" autoselect="true" anchor="default"/>
                    <Combo position="absolute 355 10 415 29" id="cmb_worktype" visible="false" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">PAM</Col>
                            <Col id="datacolumn">PAM</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">EMR</Col>
                            <Col id="datacolumn">EMR</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">AST</Col>
                            <Col id="datacolumn">AST</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">LIS</Col>
                            <Col id="datacolumn">LIS</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                    <Edit position="absolute 427 10 507 29" align="align:center middle;" id="ipt_orddd" visible="false" anchor="default"/>
                    <Edit position="absolute 510 10 540 29" id="ipt_cretno" visible="false" anchor="default"/>
                    <Edit position="absolute 550 10 625 29" id="ipt_prcpdd" visible="false" anchor="default"/>
                    <Edit position="absolute 628 10 725 29" id="ipt_execprcpuniqno" visible="false" anchor="default"/>
                    <Combo position="absolute 165 10 245 29" id="combo2" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">N</Col>
                            <Col id="datacolumn">미실시</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">Y</Col>
                            <Col id="datacolumn">실시</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">T</Col>
                            <Col id="datacolumn">당일실시</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                    <Combo position="absolute 246 10 340 29" id="combo3" codecolumn="codecolumn" datacolumn="datacolumn" anchor="default">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn"/>
                          <Column id="datacolumn"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">A</Col>
                            <Col id="datacolumn">전체</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">N</Col>
                            <Col id="datacolumn">정산미실시</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">Y</Col>
                            <Col id="datacolumn">정산실시</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Combo>
                  </Layout>
                </Layouts>
              </Div>
              <Shape id="line2" class="line_10" position="absolute 0 65 805 69" anchor="left top right"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 0 300 805 359" id="group1" scrollbars="autoboth" anchor="left right bottom">
          <Layouts>
            <Layout>
              <Button position="absolute 749 5 805 27" id="btn_close" class="btn4" text="닫기" onclick="group1_btn_close_onclick" anchor="right bottom"/>
              <Static text="* 차트번호만 입력하여 검색 하는 경우 : 당일실시 + 미실시정산 건만 조회됨&#13;&#10;* 실시정산 대상 : 2011년 1월 1일 ~ 2014년 7월 31일 발행된 처방중, 2014년 8월 1일 이후 실시하는 경우&#13;&#10;* CT/MRI 조영제 수가 코드가 변경된 환자포함&#13;&#10;* 공단 암검진 관련 수가 변경된 환자 포함" position="absolute 5 1 570 59" id="caption5" style="linespace:2;" anchor="left bottom"/>
            </Layout>
          </Layouts>
        </Div>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_grd_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING"/>
          <Column id="hngnm" type="STRING"/>
          <Column id="orddd" type="STRING"/>
          <Column id="orddeptnm" type="STRING"/>
          <Column id="orddrnm" type="STRING"/>
          <Column id="calcscorcd" type="STRING"/>
          <Column id="calcscornm" type="STRING"/>
          <Column id="execdeptnm" type="STRING"/>
          <Column id="execdd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="worktype" 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="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="execflag" type="STRING" size="256"/>
          <Column id="rcptflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="worktype"/>
            <Col id="pid"/>
            <Col id="orddd"/>
            <Col id="cretno"/>
            <Col id="prcpdd"/>
            <Col id="execprcpuniqno"/>
            <Col id="execflag">T</Col>
            <Col id="rcptflag">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_nhicinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.group2.input3" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item1" compid="group3.group4.input4" propid="value" datasetid="ds_send" columnid="pid"/>
      <BindItem id="item2" compid="group3.group4.combo2" propid="value" datasetid="ds_send" columnid="execflag"/>
      <BindItem id="item3" compid="group3.group4.combo3" propid="value" datasetid="ds_send" columnid="rcptflag"/>
      <BindItem id="item4" compid="group3.group4.cmb_worktype" propid="value" datasetid="ds_send" columnid="worktype"/>
      <BindItem id="item5" compid="group3.group4.ipt_orddd" propid="value" datasetid="ds_send" columnid="orddd"/>
      <BindItem id="item6" compid="group3.group4.ipt_cretno" propid="value" datasetid="ds_send" columnid="cretno"/>
      <BindItem id="item7" compid="group3.group4.ipt_prcpdd" propid="value" datasetid="ds_send" columnid="prcpdd"/>
      <BindItem id="item8" compid="group3.group4.ipt_execprcpuniqno" propid="value" datasetid="ds_send" columnid="execprcpuniqno"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-11-07
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-11-07      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

function getPrcpRcptCheck(workType, pid, orddd, cretno, prcpdd, execPrcpUniqno) {
					
	if (utlf_isNull(pid) || pid == "-") {
		return 0;
	}
	
	ds_send.setColumn(0, "worktype",       workType);
	ds_send.setColumn(0, "pid",            pid);
	ds_send.setColumn(0, "orddd",          orddd);
	ds_send.setColumn(0, "cretno",         cretno);
	ds_send.setColumn(0, "prcpdd",         prcpdd);
	ds_send.setColumn(0, "execprcpuniqno", execPrcpUniqno);
	
	var oParam = {};
	oParam.id       = "TRPAO02003";
	oParam.service  = "pamcomnapp.PamComn";
	oParam.method   = "reqGetPrcpRcptCheck";
	oParam.inds     = "req=ds_send";
	oParam.outds    = "ds_grd_prcplist=prcplist";
	oParam.async    = false;
	oParam.callback = "cf_TRPAO02003";
	
	tranf_submit(oParam);
	
	var cnt = ds_grd_prcplist.rowcount;
	
	// 결과가 있는 경우 opener로 데이터 전달
	if (cnt > 0) {
		parent.dsf_createDs("ds_hidden_tempprcplist");
		parent.ds_hidden_tempprcplist.copyData(ds_grd_prcplist);
	}
	
	return cnt;
}

function cf_TRPAO02003(sSvcId, nErrorCode, sErrorMsg) {
    if (nErrorCode < 0) return;
}

function fSearch() {
    ds_grd_prcplist.clearData();
	
	var oParam = {};
		oParam.id          = "TRPAO02003";
		oParam.service     = "pamcomnapp.PamComn";
		oParam.method      = "reqGetPrcpRcptCheck";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_grd_prcplist=prcplist";
		oParam.async       = false;
		oParam.callback    = "cf_TRPAO02003";

	tranf_submit(oParam);
	
	if (ds_grd_prcplist.rowcount > 0) {
		fShowMSG();
	}
}

function fShowMSG() {
	if (sysf_getUserInfo("dutplceinstcd") == "031") {
		sysf_messageBox("수가변동으로 인해 진료비정산이 필요한 고객님입니다.\r\n재계산이 필요하니 안내센타 처방변경,수납 창구로 안내바랍니다.", "C000");
	} else {
		sysf_messageBox("수가변동으로 인해 진료비정산이 필요한 고객님입니다.\r\n재계산이 필요하니 원무과 창구로 안내부탁드립니다.", "C000");
	}
}

function fCheckNhicInfo(workType, pid, orddd, cretno, prcpdd, execPrcpUniqno) {
	if (utlf_isNull(prcpdd) || prcpdd.length < 1 || utlf_isNull(execPrcpUniqno) || execPrcpUniqno.length < 1) {
		return "";
	}
	
	ds_send.setColumn(0, "worktype",       workType);
	ds_send.setColumn(0, "pid",            pid);
	ds_send.setColumn(0, "orddd",          orddd);
	ds_send.setColumn(0, "cretno",         cretno);
	ds_send.setColumn(0, "prcpdd",         prcpdd);
	ds_send.setColumn(0, "execprcpuniqno", execPrcpUniqno);
	
	var oParam = {};
	oParam.id       = "TRPAC04002";
	oParam.service  = "pamcomnapp.PamComn";
	oParam.method   = "reqGetCheckNhicInfo";
	oParam.inds     = "req=ds_send";
	oParam.outds    = "ds_nhicinfo=nhicinfo";
	oParam.async    = false;
	oParam.callback = "cf_TRPAC04002";
	
	tranf_submit(oParam);
	
	var msg = "";
	
	if (ds_nhicinfo.rowcount > 0) {
		if (ds_nhicinfo.getColumn(0, "chkrslt") == "N") {
			msg = ds_nhicinfo.getColumn(0, "msg");
		}
	}
	
	return msg;
}

function cf_TRPAC04002(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function SPPMO02001_oninit(obj:Form, e:InitEventInfo) {
	frmf_initForm(obj);  // 화면공통
}

function SPPMO02001_onload(obj:Form, e:LoadEventInfo) {
	
	var userid = sysf_getUserId();
	
	if (userid == "PAM") {
		group3.group4.cmb_worktype.visible       = true;
		group3.group4.ipt_orddd.visible          = true;
		group3.group4.ipt_cretno.visible         = true;
		group3.group4.ipt_prcpdd.visible         = true;
		group3.group4.ipt_execprcpuniqno.visible = true;
	}
	
	if (frmf_checkOpener()) {
		
		var pid = opener.frmf_getParameter("SPPMO02001_PARM");
		
		ds_send.setColumn(0, "pid", pid);
		
		ds_grd_prcplist.clearData();
		
		try {
			ds_grd_prcplist.copyData(opener.ds_hidden_tempprcplist);
		} catch(e) {}
		
		if (ds_grd_prcplist.rowcount > 0) {
			fShowMSG();
		}
	}
}

function group3_group4_button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var pid =  ds_send.getColumn(0,"pid");
							
	if( utlf_isNull(pid) || pid == '-' ){
		sysf_messageBox("등록번호는 반드시 입력하셔야 합니다.", "E999", "");
		return false;	
	}
	
	if(utlf_isNull(ds_send.getColumn(0,"worktype")))
	{
		ds_send.setColumn(0,"worktype", "PAM");
	}
		
	fSearch();
}

function group3_group4_input4_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == "13") {
		ds_send.setColumn(0,"pid", group3.group2.input3.value);
		var ev = new ClickEventInfo;
		frmf_inputEnterKey("group3.group2.btn_search", "onclick", ev );
	}
}

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

function group3_group2_input3_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if (e.keycode == "13") {
		obj.updateToDataset();

		var ev = new ClickEventInfo;
		frmf_inputEnterKey("group3.group2.btn_search", "onclick", ev );
	}
}

function group3_group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	var pid =  ds_send.getColumn(0,"pid");
							
	if( utlf_isNull(pid) || pid == '-' ){
		sysf_messageBox("등록번호는 반드시 입력하셔야 합니다.", "E999", "");
		return false;	
	}
	
	ds_send.setColumn(0,"worktype", "PAM");
	
		
	fSearch();
}
]]></Script>
  </Form>
</FDL>