YNU_JEUS/app_home/himed/xpapps/emr/medirecxp/xp/SPMMR06300_반려사유.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMR06300" position="absolute 0 0 255 365" titletext="반려사유" oninit="SPMMR06300_oninit" onload="SPMMR06300_onload">
    <Layouts>
      <Layout>
        <Static text="반려사유" position="absolute 5 10 87 26" id="caption22" class="tit_2"/>
        <Button position="absolute 185 335 241 357" id="button43" class="btn4" text="취소" onclick="button43_onclick"/>
        <Button position="absolute 125 335 181 357" id="button44" class="btn4" text="확인" onclick="button44_onclick"/>
        <TextArea position="absolute 14 112 239 320" id="tar_etc" oneditclick="tar_etc_oneditclick" wordwrap="word"/>
        <cp_checkboxList id="cp_checkboxList00" titletext="CheckBox List" taborder="1" text="cp_checkboxList00" scrollbars="none" position="absolute 22 35 232 104" style="background:transparent; " col="1" row="1" cellspacing="2" vcellspacing="0" itemWidth="100" itemHeight="20" overflow="visible"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_checkbox1" 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">진단명수정</Col>
          </Row>
          <Row>
            <Col id="label">수술명(처치명) 수정</Col>
            <Col id="value">수술명(처치명)수정</Col>
          </Row>
          <Row>
            <Col id="label">기록내용 수정</Col>
            <Col id="value">기록내용수정</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="상태"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="formrecseq" type="BIGDECIMAL" size="256" sumtext="서식기록순번"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="INT" size="256" sumtext="생성번호"/>
          <Column id="chosflag" type="STRING" size="256" sumtext="내원구분"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의id"/>
          <Column id="formrecdeptcd" type="STRING" size="256" sumtext="서식기록부서코드"/>
          <Column id="formrecuserid" type="STRING" size="256" sumtext="서식기록사용자id"/>
          <Column id="lastrechistseq" type="BIGDECIMAL" size="256" sumtext="최종기록이력순번"/>
          <Column id="delyn" type="STRING" size="256" sumtext="삭제여부"/>
          <Column id="valiyn" type="STRING" size="256" sumtext="유효여부"/>
          <Column id="formcd" type="STRING" size="256" sumtext="서식코드"/>
          <Column id="srcformcd" type="STRING" size="256" sumtext="참조서식코드"/>
          <Column id="formfromdt" type="STRING" size="256" sumtext="서식시작일자"/>
          <Column id="formdegnseq" type="BIGDECIMAL" size="256" sumtext="서식디자인순번"/>
          <Column id="fstrgstrid" type="STRING" size="256" sumtext="최초등록자id"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="최초등록일시"/>
          <Column id="lastupdtrid" type="STRING" size="256" sumtext="최종등록자id"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종등록일시"/>
          <Column id="rechistseq" type="BIGDECIMAL" size="256" sumtext="기록이력순번"/>
          <Column id="formrecdd" type="STRING" size="256" sumtext="서식기록일자"/>
          <Column id="formrechm" type="STRING" size="256" sumtext="서식기록시분"/>
          <Column id="formrecextnnm" type="STRING" size="256" sumtext="서식부제목"/>
          <Column id="espiseq" type="BIGDECIMAL" size="256" sumtext="전자서명순번"/>
          <Column id="certcnts" type="STRING" size="256" sumtext="인증기록base64"/>
          <Column id="bfcertcnts" type="STRING" size="256" sumtext="인증전기록"/>
          <Column id="espiyn" type="STRING" size="256" sumtext="인증저장여부"/>
          <Column id="cosignyn" type="STRING" size="256" sumtext="코사인여부"/>
          <Column id="extnflag" type="STRING" size="256" sumtext="구분"/>
          <Column id="oprsrvno" type="STRING" size="256" sumtext="수술예약번호"/>
          <Column id="dralertcnts" type="STRING" size="256" sumtext="반려사유"/>
          <Column id="cosign" type="STRING" size="256" sumtext="코사인진행여부(코사인된기록인지여부)"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_rsltmsg" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="msg" type="STRING" size="256" sumtext="메세지"/>
          <Column id="formrecseq" type="BIGDECIMAL" size="256" sumtext="서식기록순번"/>
          <Column id="rechistseq" type="BIGDECIMAL" size="256" sumtext="기록이력순번"/>
          <Column id="espiseq" type="BIGDECIMAL" size="256" sumtext="전자서명순번"/>
          <Column id="cosign" type="STRING" size="256" sumtext="코사인진행여부(코사인된기록인지여부)"/>
          <Column id="cnclyn" type="STRING" size="256" sumtext="취소(반려여부)"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_data_formrec" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_data_unprepinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="처리구분"/>
          <Column id="indschflag" type="STRING" size="256" sumtext="입퇴원구분"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="formrecseq" type="STRING" size="256" sumtext="서식기록번호"/>
          <Column id="dschdeptcd" type="STRING" size="256" sumtext="퇴원과코드"/>
          <Column id="dschdeptnm" type="STRING" size="256" sumtext="퇴원과명"/>
          <Column id="unprepno" type="STRING" size="256" sumtext="미비번호"/>
          <Column id="dschdd" type="STRING" size="256" sumtext="퇴원일자"/>
          <Column id="indd" type="STRING" size="256" sumtext="입원일자"/>
          <Column id="orgunprepstat" type="STRING" size="256" sumtext="원미비상태"/>
          <Column id="unprepstat" type="STRING" size="256" sumtext="미비상태"/>
          <Column id="doctkindflag" type="STRING" size="256" sumtext="의사직종구분"/>
          <Column id="orgdoctkindflag" type="STRING" size="256" sumtext="원의사직종구분"/>
          <Column id="drstate" type="STRING" size="256" sumtext="의사상태(파견, 종료)"/>
          <Column id="unprepdrnm" type="STRING" size="256" sumtext="미비의사명"/>
          <Column id="orgunprepdrnm" type="STRING" size="256" sumtext="원미비의사명"/>
          <Column id="unprepdeptnm" type="STRING" size="256" sumtext="미비부서명"/>
          <Column id="orgunprepdeptnm" type="STRING" size="256" sumtext="원미비부서명"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="미비과코드"/>
          <Column id="orgorddeptcd" type="STRING" size="256" sumtext="원미비과코드"/>
          <Column id="detldeptcd" type="STRING" size="256" sumtext="미비분과코드"/>
          <Column id="orgdetldeptcd" type="STRING" size="256" sumtext="원미비분과코드"/>
          <Column id="unprepdrid" type="STRING" size="256" sumtext="미비의사ID"/>
          <Column id="orgunprepdrid" type="STRING" size="256" sumtext="원미비의사ID"/>
          <Column id="formcd" type="STRING" size="256" sumtext="서식코드"/>
          <Column id="formnm" type="STRING" size="256" sumtext="서식명"/>
          <Column id="oprsrvno" type="STRING" size="256" sumtext="수술예약번호"/>
          <Column id="unprepitemnm" type="STRING" size="256" sumtext="미비항목명"/>
          <Column id="formrecdd" type="STRING" size="256" sumtext="서식일자"/>
          <Column id="unprepitemcd" type="STRING" size="256" sumtext="미비항목코드"/>
          <Column id="medirecalertcnts" type="STRING" size="256" sumtext="의무기록알림내용"/>
          <Column id="drcnfmdt" type="STRING" size="256" sumtext="의사확인일시"/>
          <Column id="drcnfmrid" type="STRING" size="256" sumtext="의사확인ID"/>
          <Column id="dralertcnts" type="STRING" size="256" sumtext="의사알림내용"/>
          <Column id="fstrgstrnm" type="STRING" size="256" sumtext="최초등록자"/>
          <Column id="fstrgstdt" type="STRING" size="256" sumtext="최초등록일시"/>
          <Column id="lastupdtrnm" type="STRING" size="256" sumtext="최종수정자"/>
          <Column id="lastupdtdt" type="STRING" size="256" sumtext="최종수정일시"/>
          <Column id="mprocessyn" type="STRING" size="256" sumtext="정정프로세스 여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_unprepdrlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="checkflag" type="STRING" size="256" sumtext="check구분"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="deptabbrnm" type="STRING" size="256" sumtext="부서약어명"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명"/>
          <Column id="jobposcd" type="STRING" size="256" sumtext="직종코드"/>
          <Column id="jobposnm" type="STRING" size="256" sumtext="직종명"/>
          <Column id="drstate" type="STRING" size="256" sumtext="진료상태"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_pathistlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rowcnt" type="STRING" size="256" sumtext="행번호"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="orddd" type="STRING" size="256" sumtext="진료일자"/>
          <Column id="cretno" type="STRING" size="256" sumtext="생성번호"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과명"/>
          <Column id="orddrid" type="STRING" size="256" sumtext="진료의ID"/>
          <Column id="orddrnm" type="STRING" size="256" sumtext="진료의명"/>
          <Column id="ordtype" type="STRING" size="256" sumtext="내원구분"/>
          <Column id="dschdd" type="STRING" size="256" sumtext="퇴원일자"/>
          <Column id="chosinfo" type="STRING" size="256" sumtext="내원정보"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind/>
    <Script type="xscript4.0"><![CDATA[ /***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-09-17
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-09-17      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

function button43_onclick(obj:Button,  e:ClickEventInfo)
{
	fCancel();
}

function button44_onclick(obj:Button,  e:ClickEventInfo)
{
	fConfirm();
}

function fConfirm()
{
    var rdoVal = cp_checkboxList00.getData();
    var etcVal = tar_etc.value;
    var rsltMsg = "";
    
    if (utlf_isNull(rdoVal) && utlf_isNull(etcVal))
    {
        sysf_messageBox("반려사유가", "I004");
        return;
    }
    else
    {
        rsltMsg = rdoVal;
        
        if (!utlf_isNull(etcVal))
        {
            rsltMsg += " -Comments : " + etcVal;
        }

		try{
			ds_send.copyData(arg_ds_data_formrec);
		}catch(e){
			sysf_catchTrace(e);
		}
        dsf_setDefaultVal(ds_send, "cosignyn:N");
        
        ds_send.setColumn(0,"status", "D");
        ds_send.setColumn(0,"cosign", "Y");
        ds_send.addColumn("dralertcnts", "string");
        ds_send.setColumn(0,"dralertcnts", rsltMsg);
        
        var nRow = ds_data_unprepinfo.rowposition;
		ds_data_unprepinfo.setColumn(nRow, "dralertcnts", rsltMsg);

        var oParam = {};
			oParam.id       = "TXMMR01302";
			oParam.service  = "medirecapp.ComnMediRec";
			oParam.method   = "reqExeFormRecCoSign";
			oParam.inds     = "formrec=ds_send unprep=ds_data_unprepinfo";
			oParam.outds    = "ds_rsltmsg=rsltmsg";
			oParam.async    = false;
			oParam.callback = "cf_TXMMR01302";

		tranf_submit(oParam);



    }
}

function cf_TXMMR01302(sSvcId, nErrorCode, sErrorMsg) {
	if(nErrorCode < 0) return;
	
	 if (ds_rsltmsg.getColumn(0,"cnclyn") == "Y")
	{
		opener.frmf_setParameter("cosignclclyn", "Y");
		sysf_messageBox("반려", "I001");
		this.close();
	}
}


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

function SPMMR06300_onload(obj:Form, e:LoadEventInfo)
{
	var sProp="col=1,row=3,cellspacing=4,vcellspacing=0,itemWidth=-1,itemHeight=20,overflow='visible'";
	cp_checkboxList00.setInitComp(sProp, ds_checkbox1,"value","label");
	
	fInitalize();
	
	lf_setUnprepData();
}

function fInitalize()
{
    tar_etc.setFocus();
}

function fCancel()
{
    this.close();
}

function lf_setUnprepData(){
	
	try{
		ds_data_formrec.copyData(arg_ds_data_formrec);
	}catch(e){
		sysf_catchTrace(e);
	}
	
	
	// Step 1 대상환자의 진료정보를 조회한다.
	var sPid = ds_data_formrec.getColumn(0, "pid");
	var sOrddd = ds_data_formrec.getColumn(0, "orddd");
	var sCretno = ds_data_formrec.getColumn(0, "cretno");
	var sIoflag = ds_data_formrec.getColumn(0, "chosioflag");
	if( utlf_isNull(sIoflag) ){
		sIoflag = ds_data_formrec.getColumn(0, "chosflag");
	}
	
	if(sIoflag == "D"){
		sIoflag  = "I";
	}
	
	
	dsf_createDsRow("ds_cond_reqdata", [{col:"pid", type:"STRING", size:256, val:sPid}
									  , {col:"ioflag", type:"STRING", size:256, val:sIoflag}
									  , {col:"dschflag", type:"STRING", size:256, val:"A"}]);
		
	var oParam = {};
		oParam.id          = "TRMRI02605";
		oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
		oParam.method      = "reqGetUnPrepPatChosInfo";
		oParam.inds        = "req=ds_cond_reqdata";
		oParam.outds       = "ds_temp_pathistlist=pathistlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMRI02605";

	tranf_submit(oParam);
	
	var nFindRow = ds_temp_pathistlist.findRowExpr("pid == '"+ sPid +"' && orddd == '"+ sOrddd +"' && cretno == '"+ sCretno +"'");
	
	if( nFindRow > -1 ){
		var sDschdd    = ds_temp_pathistlist.getColumn(nFindRow, "dschdd");
		if(sDschdd == "재원중"){
			sDchdd = utlf_getCurrentDate();
		}
		
		dsf_createDsRow("ds_cond_reqdata", [
                                {col:"srchflag", type:"STRING", size:256, val:"id"}
                              , {col:"unprepdeptcd", type:"STRING", size:256, val:sysf_getUserInfo("dutplcecd")}
                              , {col:"unprepdr", type:"STRING", size:256, val:sysf_getUserInfo("userid")}
                              , {col:"stnddd", type:"STRING", size:256, val:utlf_getCurrentDate()}
                              , {col:"deptengabbr", type:"STRING", size:256, val:""}
                              , {col:"grupflag", type:"STRING", size:256, val:""}
                                ]);
		
		var oParam = {};
			oParam.id          = "TRMRI02604";
			oParam.service     = "unprepmngtapp.ChrtUnprepMngt";
			oParam.method      = "reqGetUnPrepDrList";
			oParam.inds        = "req=ds_cond_reqdata";
			oParam.outds       = "ds_temp_unprepdrlist=unprepdrlist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMRI02604";

		tranf_submit(oParam);
		
		if( ds_temp_unprepdrlist.rowcount == 0 ){
			sysf_messageBox("진료의 정보가 올바르지 않습니다.", "E");
		}
		
		
		var pid    = ds_temp_pathistlist.getColumn(nFindRow, "pid");
		var hngnm  = ds_temp_pathistlist.getColumn(nFindRow, "hngnm");
		var orddd  = ds_temp_pathistlist.getColumn(nFindRow, "orddd");				
		var cretno = ds_temp_pathistlist.getColumn(nFindRow, "cretno");
		var dschdd = ds_temp_pathistlist.getColumn(nFindRow, "dschdd");
		
		var dschdeptcd = "-";
		var dschdeptnm = "-";
		var orddeptcd  = "-";
		var orddeptnm  = "-";				
		var formrecdeptcd = "";
		
		var formrecseq = ds_data_formrec.getColumn(0, "formrecseq");
		var formcd 	   = ds_data_formrec.getColumn(0, "formcd");
		var formnm     = ds_data_formrec.getColumn(0, "formnm");
		var formrecdd  = ds_data_formrec.getColumn(0, "formrecdd");
		var oprsrvno   = ds_data_formrec.getColumn(0, "oprsrvno");
		
		if( utlf_isNull(formrecseq) ){
			formrecseq = -1;
		}
		
		orddeptcd = ds_temp_unprepdrlist.getColumn(0, "orddeptcd");
		orddeptnm = ds_temp_unprepdrlist.getColumn(0, "orddeptnm");
		dschdeptcd = ds_temp_pathistlist.getColumn(nFindRow, "orddeptcd");
		dschdeptnm = ds_temp_pathistlist.getColumn(nFindRow, "orddeptnm");
		formrecdeptcd = dschdeptcd;
		
		
		var orddrid = ds_temp_unprepdrlist.getColumn(0, "orddrid");
		var orddrnm = ds_temp_unprepdrlist.getColumn(0, "orddrnm");
		var jobposnm= ds_temp_unprepdrlist.getColumn(0, "jobposnm");
		
		ds_data_unprepinfo.clearData();
		var nRow = ds_data_unprepinfo.addRow();
		ds_data_unprepinfo.setColumn(nRow, "status"    , "i");
		ds_data_unprepinfo.setColumn(nRow, "indschflag"  , "D");
		ds_data_unprepinfo.setColumn(nRow, "pid"       , pid);
		ds_data_unprepinfo.setColumn(nRow, "indd"      , orddd);
		ds_data_unprepinfo.setColumn(nRow, "cretno"    , cretno);
		ds_data_unprepinfo.setColumn(nRow, "hngnm"     , hngnm);
		ds_data_unprepinfo.setColumn(nRow, "dschdeptcd", dschdeptcd);
		ds_data_unprepinfo.setColumn(nRow, "dschdeptnm", dschdeptnm);
		ds_data_unprepinfo.setColumn(nRow, "dschdd"    , dschdd);
		ds_data_unprepinfo.setColumn(nRow, "unprepstat"  , 2);	// 의사확인
		ds_data_unprepinfo.setColumn(nRow, "doctkindflag"  , jobposnm);
		ds_data_unprepinfo.setColumn(nRow, "unprepdrnm", orddrnm);
		ds_data_unprepinfo.setColumn(nRow, "unprepdrid", orddrid);
		ds_data_unprepinfo.setColumn(nRow, "formrecdd" , formrecdd);
		ds_data_unprepinfo.setColumn(nRow, "orddeptcd" , orddeptcd);
		ds_data_unprepinfo.setColumn(nRow, "formcd"    , formcd);
		ds_data_unprepinfo.setColumn(nRow, "formnm"    , formnm);
		ds_data_unprepinfo.setColumn(nRow, "oprsrvno"    , oprsrvno);
		ds_data_unprepinfo.setColumn(nRow, "unprepitemcd", "000002000");
		ds_data_unprepinfo.setColumn(nRow, "unprepitemnm", "기록반려(StaffSign)");
		ds_data_unprepinfo.setColumn(nRow, "formrecseq", formrecseq);
		ds_data_unprepinfo.setColumn(nRow, "unprepno"    , "1");
		ds_data_unprepinfo.setColumn(nRow, "mprocessyn"  , "Y");
		
	}else{
		sysf_messageBox("환자의 진료정보가 정상적이지 않습니다.", "E");
	}

}]]></Script>
  </Form>
</FDL>