YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SMMMO06100_응급증상관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMMO06100" position="absolute 0 0 1000 745" titletext="응급의학관리료에 대한 응급증상 및 이에 준하는 증상 사유 관리" oninit="SMMMO06100_oninit" onload="SMMMO06100_onload">
    <Layouts>
      <Layout>
        <Static text="응급의학관리료에 대한 응급증상 및 이에 준하는 증상 사유 관리" position="absolute 0 0 411 20" id="caption18" class="tit_2"/>
        <Button position="absolute 897 0 939 20" id="button37" class="btn2" text="추가" onclick="button37_onclick" anchor="top right"/>
        <Button position="absolute 942 0 996 20" id="button2" class="btn4" text="저장" onclick="button2_onclick" anchor="top right"/>
        <Grid position="absolute 0 23 1000 745" id="datagrid1" binddataset="ds_ersympresnlist" autofittype="col" onrbuttondown="datagrid1_onrbuttondown" oncelldblclick="datagrid1_oncelldblclick" onenterdown="datagrid1_onenterdown" autoenter="select" autoupdatetype="itemselect" selecttype="multirow" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="35"/>
                <Column size="60"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="150"/>
                <Column size="590"/>
                <Column size="80"/>
                <Column size="60"/>
                <Column size="278"/>
                <Column size="50"/>
              </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="순서"/>
              </Band>
              <Band id="body">
                <Cell displaytype="combo" edittype="combo" text="bind:status" combodataset="ds_status" combocodecol="value" combodatacol="label"/>
                <Cell col="1" style="align:center middle;color:EXPR(fChngGrdCellColor(color));color2:EXPR(fChngGrdCellColor(color));" text="bind:patflagnm"/>
                <Cell col="2" text="bind:calcscorcd"/>
                <Cell col="3" displaytype="text" edittype="text" style="align:center;" text="bind:ersympresnabbr" editautoselect="true"/>
                <Cell col="4" displaytype="combo" edittype="combo" style="padding:0 0 0 5;" text="bind:erclscd" combodataset="ds_M0012" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="5" displaytype="text" edittype="text" style="padding:0 0 0 5;" text="bind:resnnm" editautoselect="true"/>
                <Cell col="6" displaytype="combo" edittype="combo" text="bind:payflagcd" combodataset="ds_M0029" combocodecol="cdid" combodatacol="cdnm"/>
                <Cell col="7" displaytype="combo" edittype="combo" text="bind:useyn" combodataset="ds_useyn" combocodecol="value" combodatacol="label"/>
                <Cell col="8" text="bind:ordnm"/>
                <Cell col="9" displaytype="text" edittype="text" text="bind:refseq" editautoselect="true"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <PopupMenu id="pmn_menu" innerdataset="@ds_mouserght" idcolumn="function" captioncolumn="label" levelcolumn="level" onmenuclick="pmn_menu_onmenuclick" position="absolute 1008 8 1081 30"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_status" 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">U</Col>
          </Row>
          <Row>
            <Col id="label">삭제</Col>
            <Col id="value">D</Col>
          </Row>
          <Row>
            <Col id="label">-</Col>
            <Col id="value">-</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_useyn" 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">Y</Col>
          </Row>
          <Row>
            <Col id="label">불가</Col>
            <Col id="value">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcp" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_ersympresnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_ersympresnlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="처리구분"/>
          <Column id="patflag" type="STRING" size="256" sumtext="사유명"/>
          <Column id="patflagnm" type="STRING" size="256" sumtext="사유명"/>
          <Column id="resnnm" type="STRING" size="256" sumtext="사유명"/>
          <Column id="erclscd" type="STRING" size="256" sumtext="응급분류코드"/>
          <Column id="payflagcd" type="STRING" size="256" sumtext="급여구분코드"/>
          <Column id="useyn" type="STRING" size="256" sumtext="사용여부"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
          <Column id="ordnm" type="STRING" size="256" sumtext="수가명"/>
          <Column id="refseq" type="STRING" size="256" sumtext="조회순서"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기간코드"/>
          <Column id="ersympresncd" type="STRING" size="256" sumtext="응급증상사유코드"/>
          <Column id="ersympresnabbr" type="STRING" size="256" sumtext="응급증상약어명"/>
          <Column id="color" type="STRING" size="256" sumtext="색상"/>
        </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="cond1" type="STRING" size="256"/>
          <Column id="cond2" type="STRING" size="256"/>
          <Column id="cond3" type="STRING" size="256"/>
          <Column id="cond4" type="STRING" size="256"/>
          <Column id="cond5" type="STRING" size="256"/>
          <Column id="cond6" type="STRING" size="256"/>
          <Column id="cond99" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_reset_ersympresnlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="patflag" type="STRING" size="256" sumtext="사유명"/>
          <Column id="patflagnm" type="STRING" size="256" sumtext="사유명"/>
          <Column id="resnnm" type="STRING" size="256"/>
          <Column id="erclscd" type="STRING" size="256"/>
          <Column id="payflagcd" type="STRING" size="256"/>
          <Column id="useyn" type="STRING" size="256"/>
          <Column id="calcscorcd" type="STRING" size="256"/>
          <Column id="ordnm" type="STRING" size="256"/>
          <Column id="refseq" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ersympresncd" type="STRING" size="256"/>
          <Column id="ersympresnabbr" type="STRING" size="256"/>
          <Column id="color" type="STRING" size="256" sumtext="색상"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="status">I</Col>
            <Col id="useyn">Y</Col>
            <Col id="calcscorcd">-</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_mouserght" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="function" type="STRING" size="256"/>
          <Column id="label" type="STRING" size="256"/>
          <Column id="level" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="function">fDeleteRow</Col>
            <Col id="label">삭제</Col>
            <Col id="level">0</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_patersympresn" 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="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="histno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="histcd" type="STRING" size="256"/>
          <Column id="ersympresncd" type="STRING" size="256"/>
          <Column id="tempstat" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

var arErrorCode = new HashArray();


function SMMMO06100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(datagrid1);
}

function SMMMO06100_onload(obj:Form, e:LoadEventInfo)
{
	/*
	응급의료 관리료 수정팝업 띄우기 ( 응급일때만 오른쪽 마우스 메뉴 보임 )
	1. 수가코드가 ercalcscorcd 에 값이 있으면 띄운다.
	
	응급의료 관리료 수정팝업 저장
	1. 저장된 수가코드값이 있고 수가코드 값이 없는 사유를 선택할 경우 "응급의학관리처방이 존재합니다. D/C후 처리가 가능합니다." 라고 메시지를 띄운다.				
	2. 수가코드가 없는 것으로 저장할 때는 이력발생시키고 저장시킨다. ( 처방 화면에 있는 fInitSrch 를 호출한다. )
	2.1 화면에 있는 수가코드는 지워준다.
	3. 수가코드 있는 것으로 화면에 있는 것과 바꿔준다.
	
	응급의료 관리료 약어명 관리 추가(입력, 수정)
	
	처방화면 상단 표시
	erprcpyn 값이 있으면 처방상단에 응급의료 관리료 약어명 표시
	*/
	grdf_setToolTipBind(datagrid1);
	
	ds_init.setColumn(0, "prcp", opener.frmf_getParameter ( "SMMMO00100_cond1" ));
	
	if ( ds_init.getColumn(0, "prcp") == "Y" ) {
		datagrid1.setFormatColProperty(0, "size", 0);
		datagrid1.setFormatColProperty(6, "size", 0);
		datagrid1.setFormatColProperty(7, "size", 0);
		datagrid1.setFormatColProperty(8, "size", 0);
		datagrid1.setFormatColProperty(9, "size", 0);
		button2.visible  = false;
		button37.visible = false;
		
		//20200214 이돈희 : 처방 입력시에는 각 값들이 수정 되지 않도록 none 처리
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "resnnm")        , "edittype", "none");
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "ersympresnabbr"), "edittype", "none");
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "erclscd")       , "edittype", "none");
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "payflagcd")     , "edittype", "none");
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "useyn")         , "edittype", "none");
		datagrid1.setCellProperty("body", datagrid1.getBindCellIndex("body", "refseq")        , "edittype", "none");
	}
	
	appf_getCodeList([{dsNm: "ds_M0012", cdGrpId: "M0012"}
					, {dsNm: "ds_M0029", cdGrpId: "M0029"}], true);
	
	var oParam = {};
		oParam.id       = "TRMMO06100";
		oParam.service  = "prcpmngtapp.PrcpMngt";
		oParam.method   = "reqGetErSympResn";
		oParam.inds     = "req=ds_send";
		oParam.outds    = "ds_ersympresnlist=ersympresnlist";
		oParam.async    = true;

	tranf_submit(oParam);
	
	
	
	
}

function ds_ersympresnlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var status = obj.getColumn(e.row, "status" );
	if (status == "-") {
		obj.setColumn(e.row, "status", "U");
	}
}

function datagrid1_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row < 0) return;
		
	grdf_setSelectedCell(obj, e);
	
	pmn_menu.trackPopup(e.screenX,e.screenY);
}

function pmn_menu_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	eval(e.id + "()");
}

function datagrid1_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if( e.row < 0 || e.col < 0 ) return;
	
	if ( e.col  ==  obj.getBindCellIndex("body", "calcscorcd") && ds_init.getColumn(0, "prcp") != "Y" ) {
		frmf_modal("SPMMO06600", "SPMMO06600", null, null, null, null, null, null, null, null, null, null, "M");
	}
	
	if ( ds_init.getColumn(0, "prcp" ) == "Y" ) {			        		        	
		if(fErSave()) {
			close();
		}
	}
}

function datagrid1_onenterdown(obj:Grid, e:GridEditEventInfo)
{
	obj.showEditor(false);
}

function button37_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_reset_ersympresnlist.setColumn(0, "instcd", sysf_getUserInfo("dutplceinstcd"));
	ds_reset_ersympresnlist.setColumn(0, "refseq", "1");
	
	lf_appendChildPrcp ( "ds_reset_ersympresnlist", "ds_ersympresnlist", "main" );
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( ds_init.getColumn(0, "prcp") == "Y" ) { // 처방화면 저장
		if(fErSave()) {
			close();
		}
	} else {				
		for  ( var i = 0; i < ds_ersympresnlist.rowcount; i++ ) {
			if ( ds_ersympresnlist.getColumn(i, "status") == "I" ) {
				if ( utlf_isNull ( ds_ersympresnlist.getColumn(i, "resnnm") )) {
					sysf_messageBox ( "응급증상명이", "I004" );
					return;
				}
				if ( utlf_isNull ( ds_ersympresnlist.getColumn(i, "erclscd") )) {
					sysf_messageBox ( "분류가", "I004" );
					return;
				}
				if ( utlf_isNull ( ds_ersympresnlist.getColumn(i, "payflagcd" ) )) {
					sysf_messageBox ( "급여구분이", "I004" );
					return;
				}						
			}
		}
		
		ds_ersympresnlist.applyChange();
		
		var oParam = {};
			oParam.id       = "TXMMO06100";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqExeSaveErSympResn";
			oParam.inds     = "ersympresnlist=ds_ersympresnlist";
			oParam.outds    = "ds_ersympresnlist=ersympresnlist";
			oParam.async    = false;

		tranf_submit(oParam);
	}
}

function fDeleteRow () {
	var selectedRows = grdf_getSelectedRows(datagrid1);
	for (var i = selectedRows.length - 1; i >= 0; i--){
		var status = ds_ersympresnlist.getColumn(selectedRows[i], "status");
		if (status == "-" || status == "U" ) {
			ds_ersympresnlist.setColumn(selectedRows[i], "status", "D");
		} else if ( status == "I" ){
			ds_ersympresnlist.deleteRow(selectedRows[i]);
		} else if (status == "D" ) {
			ds_ersympresnlist.setColumn(selectedRows[i], "status", "-" );
		} 
	}
}

function fErSave() {		      			    
	if ( ds_ersympresnlist.rowposition < 0 ) {
		sysf_messageBox ( "선택된 응급증상명이", "I004" );
	}
	
	var prcpcd = ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "calcscorcd");
	if ( prcpcd == "-" ) {
		var erprcpcd = opener.frmf_getParameter ( "SMMMO06100_erprcpcd" );
		if (!utlf_isNull(erprcpcd)) { //저장된 수가 코드 값이 있으면
			sysf_messageBox ( "응급의학관리료 처방이 존재합니다. D/C후 처리가", "I006" );
			return;
		}		               	
		var ioflag = opener.ds_paminfo.getColumn(0, "ioflag" );
		var orddd = "";
		if ( ioflag == "O" )	{
			orddd = opener.ds_paminfo.getColumn(0, "orddd" );
		} else {
			orddd = opener.ds_paminfo.getColumn(0, "indd" );
		}		
		
		if( ds_patersympresn.rowcount < 1 )		ds_patersympresn.addRow();
		
		ds_patersympresn.setColumn(0, "pid",          opener.ds_paminfo.getColumn(0, "pid"));
		ds_patersympresn.setColumn(0, "orddd",        orddd);
		ds_patersympresn.setColumn(0, "cretno",       opener.ds_paminfo.getColumn(0, "cretno")  );
		ds_patersympresn.setColumn(0, "histno",       0);
		ds_patersympresn.setColumn(0, "instcd",       sysf_getUserInfo("dutplceinstcd"));
		ds_patersympresn.setColumn(0, "histcd",       "O");
		ds_patersympresn.setColumn(0, "ersympresncd", ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "ersympresncd"));
		ds_patersympresn.setColumn(0, "tempstat",     "I");
		
		ds_patersympresn.applyChange();
		
		var oParam = {};
			oParam.id       = "TXMMO06200";
			oParam.service  = "prcpmngtapp.PrcpMngt";
			oParam.method   = "reqExeSaveErPatSympResn";
			oParam.inds     = "erpatsympresn=ds_patersympresn";
			oParam.async    = false;
			oParam.callback = "cf_TXMMO06200";

		tranf_submit(oParam);
		
		if(arErrorCode.pop("TXMMO06200") >= 0){
			var openerrow = opener.frmf_getParameter ( "SMMMO06100_currow" );
			if ( !utlf_isNull(openerrow) ) {
				if ( opener.ds_main_prcplist.getColumn(openerrow, "status"  ) != "S" ) {
					opener.ds_main_prcplist.deleteRow(openerrow);
				}
			}									               		
			opener.fInitSrch();
			close();
		}
	} else {
		var prcpdd = "";
		if ( !utlf_isNull(opener.ds_init.getColumn(0, "prcpdd"))) {
			prcpdd = opener.ds_init.getColumn(0, "prcpdd");
		} else {
			prcpdd = utlf_getCurrentDate();
		}

		lf_prcpSrchCom ( prcpcd,  prcpdd, opener.ds_paminfo.getColumn(0, "insukind"), "TRMMO00100", "-", false, "getPrcpCdSrchInfo" );			        		

		var srchLength = ds_prcpsrch_prcplist.rowcount;
		if( srchLength >= 1) {
			ds_prcpsrch_prcplist.setColumn(0, "ermediscmngtresncd", ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "ersympresncd"));
			ds_prcpsrch_prcplist.setColumn(0, "payflagcd",          ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "payflagcd" ));						
			
			opener.ds_main_prcplist.enableevent = false;
			
			var openerrow = opener.frmf_getParameter ( "SMMMO06100_currow" );
			if ( utlf_isNull(openerrow) ) {
				srchRow = lf_addPrcpDetl ( "child" , "ds_prcpsrch_prcplist" , "ds_main_prcplist" , 0, opener.ds_main_prcplist.rowcount - 1, "00" );
				if (srchRow != 0 ) {
					lf_focusMain ( srchRow, "child" );
				}
			} else {
				if ( opener.ds_main_prcplist.getColumn(openerrow, "status") != "S"  ) {
					opener.ds_main_prcplist.deleteRow(openerrow);
				}
				srchRow = lf_addPrcpDetl ( "child" , "ds_prcpsrch_prcplist" , "ds_main_prcplist" , 0 , openerrow, "00" );
			}
			
			opener.ds_main_prcplist.enableevent = true;
		}
		opener.ds_init.setColumn(0, "erresn", ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "ersympresnabbr" ));											        
		if ( ds_ersympresnlist.getColumn(ds_ersympresnlist.rowposition, "ersympresnabbr" ) == "G3" ) {
			opener.ds_init.setColumn(0, "hosinprcpresncd", "11" );
		}
		return true;
	}
}

function cf_TXMMO06200(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}

function fChngGrdCellColor(color){
	if(color == undefined || color == "" || color == "ffffff")
		color = "default";
	else
		color = "#" + color;
		
	return color;
}]]></Script>
  </Form>
</FDL>