YNU_JEUS/app_home/himed/xpapps/emr/recmngtxp/xp/SPMRI09010_연명진료Guide.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMRI09010" position="absolute 0 0 930 735" titletext="연명의료가이드" onload="SPMRI09010_onload" oninit="SPMRI09010_oninit">
    <Layouts>
      <Layout>
        <Button position="absolute 734 5 776 24" id="btn_srch" class="btn2" taborder="7" visible="false" text="조회" onclick="btn_srch_onclick" anchor="top right"/>
        <Static text="연명의료가이드" position="absolute 0 11 126 27" id="caption2" class="tit_2"/>
        <Grid position="absolute 0 32 930 735" id="grd_oplist" binddataset="ds_main_list" visible="true" oncelldblclick="grd_oplist_oncelldblclick" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="313"/>
                <Column size="284"/>
                <Column size="134"/>
                <Column size="146"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="분류"/>
                <Cell col="1" text="서식"/>
                <Cell col="2" text="처방코드"/>
                <Cell col="3" text="서식구분"/>
              </Band>
              <Band id="body">
                <Cell style="align:center middle;" text="bind:gbnnm" suppress="1" suppressalign="middle,over"/>
                <Cell col="1" style="align:left;" text="bind:formnm"/>
                <Cell col="2" text="bind:prcpcd"/>
                <Cell col="3" text="bind:formprogflagnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_yexplain" taborder="12" text="연명의료설명" class="btn4" position="absolute 621 7 730 27" onclick="btn_yexplain_onclick" anchor="left top" visible="false"/>
        <Button id="btn_prcpcd" taborder="13" text="개별처방입력" class="btn2" position="absolute 372 6 461 25" onclick="btn_prcpcd_onclick" anchor="top right"/>
        <ImageViewer id="iv_msg" taborder="14" image="URL('theme://images\msg_connected.gif')" onclick="iv_msg_onclick" position="absolute 788 5 813 22" anchor="left top" tooltiptext="메세지함" style="background:transparent;border:0 none #e5e5e5ff ;cursor:hand;shadow:drop 2,2 1 gray;" visible="false"/>
        <Shape id="line5" class="line_10" position="absolute 0 27 930 33" anchor="left top right"/>
        <Button id="btn_msg" taborder="15" text="SMS" class="btn2" position="absolute 227 6 274 25" anchor="top right" onclick="btn_msg_onclick"/>
        <Button id="btn_list" taborder="16" text="등록문서목록" class="btn2" position="absolute 133 6 222 25" onclick="btn_list_onclick"/>
        <Button id="btn_prcpcds" taborder="17" text="그룹일괄처방" class="btn2" position="absolute 279 6 369 25" anchor="top right" onclick="btn_prcpcds_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_pathistlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="gbnnm" type="STRING" size="256" sumtext=""/>
          <Column id="formcd" type="STRING" size="256"/>
          <Column id="formnm" type="STRING" size="256"/>
          <Column id="bigo" type="STRING" size="256"/>
          <Column id="srcformcd" type="STRING" size="256"/>
          <Column id="formprogflag" type="STRING" size="256"/>
          <Column id="formprogflagnm" type="STRING" size="256"/>
          <Column id="prcpcd" type="STRING" size="256"/>
          <Column id="prcpcds" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_deptcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_reqdata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_patinfo" 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="hngnm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="hometel" type="STRING" size="256"/>
          <Column id="prntcnt" type="STRING" size="256"/>
          <Column id="srchcond" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="brthdd" type="STRING" size="256"/>
          <Column id="addr" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="patinfolist" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="ordtm" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="issformrecseq" type="STRING" size="256"/>
          <Column id="isslangflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prntcnt">1</Col>
          </Row>
        </Rows>
      </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";
include "emr_prcpmngtxp::MMOCommon.xjs"	// lf_mmbfGetDeptCodeComboList include
include "emr_prcpmngtxp::MMO001.xjs"

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

function SPMRI09010_onload(obj:Form, e:LoadEventInfo)
{
	fIni();
	fSearch();
}

function fSearch() {
	
	var oParam = {};
		oParam.id       = "TRMMR05501";
		oParam.service  = "recmngtapp.IntegrityRec";
		oParam.method   = "reqGetYeonGuideList";
		//oParam.inds     = "req=ds_send_patinfo";
		oParam.outds    = "ds_main_list=list";
		oParam.async    = true;
		//oParam.callback = "cf_TRMMR05501";

	tranf_submit(oParam);
}

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

function fIni(){

	try{
		ds_main_patinfo.copyData(arg_ds_main_patinfo);
	}catch(e){
		sysf_catchTrace(e);
	}
}

function grd_oplist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row < 0) return;
	var formcd = ds_main_list.getColumn(e.row,"formcd");
	var srcformcd = ds_main_list.getColumn(e.row,"srcformcd");
	var formprogflag = ds_main_list.getColumn(e.row,"formprogflag");
	
	if (formprogflag == "PROF") { 
		opener.frmf_setParameter("SPMRI09010_formcd", formcd);
		opener.frmf_setParameter("SPMRI09010_srcformcd", srcformcd);
		opener.frmf_setParameter("SPMRI09010_formprogflag", formprogflag);
		opener.fChosProflist();
	}
	else if (formprogflag == "OCR") {
		opener.frmf_setParameter("SPMRI09010_formcd", formcd); 
		if ("6" != sysf_messageBox("OCR이 출력됩니다 진행하시겠습니까?","Q")) return;
		opener.fPrntOCR();
	}

}

function btn_yexplain_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_yexplain();
}

function lf_yexplain()
{
	var parammsg = "B@연명의료설명@YEON01"; 
    if( !utlf_isNull(parammsg) ){
        frmf_setParameter("SPMQR06000_param", parammsg);  // 파라미터 설정         
        frmf_modal("SPMQR06000", "SPMQR06000", null, null, null, null, null, null, null, null, null, null, "M");      
    }
}

function btn_prcpcd_onclick(obj:Button,  e:ClickEventInfo)
{
	var row = ds_main_list.rowposition;
	if( row < 0) return;
	var prcpcd = ds_main_list.getColumn(row,"prcpcd");
	
	if (utlf_isNull(prcpcd)) {
		sysf_messageBox("처방입력 대상이 아닙니다","I");
		return;
	}
	if ("6" != sysf_messageBox("해당처방이 발행됩니다. 진행하시겠습니까?","Q")) return;
    
	opener.frmf_setParameter("SPMRI09010_prcpcds", prcpcd);
	opener.fMakePrcp();
}

/****************************************************************************************
 * Components	    : ImageViewer
 * Components ID  	: iv_msg
 * Event 		    : onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 메지시 보내기
 ****************************************************************************************/
function iv_msg_onclick(obj:ImageViewer,  e:ClickEventInfo)
{
	
	//	Step1. 메시지 설정
	dsf_createDsRow("ds_msgdata", [{col:"msgcnts", val:""}		// 메시지
								  , {col:"calltype", val:""}	// 호출형태 : msg - 메시지만, call - 호출만, msgcall - 메시지 + 호출
									]);
	
	/*
	//	Step2. 수진자 설정
	dsf_createDsRow("ds_msgdata_recvr", [{col:"userid", val:""}
									   , {col:"mpphonno", val:""}
									   , {col:"deptcd", val:""}
									   , {col:"pid", val:""}
									   , {col:"pdano", val:""}
										]);
	*/
	
	var objArg = new Object();
	objArg.arg_ds_msgdata       = ds_msgdata;
	//objArg.arg_ds_msgdata_recvr = ds_msgdata_recvr;
	
	frmf_modalInternal("msgbox", "com_hismainxp::form_msgbox.xfdl", objArg, null, null, null, null, null, null, null, null, null, "P");
}

function btn_msg_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.fYeonSendMsg();
}

function btn_list_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.fYeonList();
	
}

function btn_prcpcds_onclick(obj:Button,  e:ClickEventInfo)
{
	var row = ds_main_list.rowposition;
	if( row < 0) return;
	var prcpcds = ds_main_list.getColumn(row,"prcpcds");
	var gbnnm = ds_main_list.getColumn(row,"gbnnm");
	
	if ( 6 != sysf_messageBox(gbnnm+"\n 분류에 속한 모든 처방이 발행됩니다 진행하시겠습니까?","Q"))  return ; 
	
	if (utlf_isNull(prcpcds)) {
		sysf_messageBox("처방입력 대상이 아닙니다","I");
		return;
	}
	
	opener.frmf_setParameter("SPMRI09010_prcpcds", prcpcds);
	opener.fMakePrcp();
}
]]></Script>
  </Form>
</FDL>