YNU_JEUS/app_home/himed/xpapps/pam/endrtnxp/xp/SPPAS03000_마감후처방반환.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPAS03000" position="absolute 0 0 480 460" titletext="마감후 처방 반환" oninit="SPPAS03000_oninit" onload="SPPAS03000_onload">
    <Layouts>
      <Layout>
        <Div position="absolute 10 35 458 446" id="group3" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Div position="absolute 0 0 443 145" align="align:center top;" id="group2">
                <Layouts>
                  <Layout>
                    <Shape position="absolute 0 0 442 135" id="roundrect1" class="roundrect_search" type="roundrectangle"/>
                    <Static text="등록번호 :" position="absolute 15 10 101 27" id="caption2" class="search_name"/>
                    <Static text="성     명 :" position="absolute 15 35 101 52" id="caption4" class="search_name"/>
                    <Static text="진 료 과 :" position="absolute 15 60 101 77" id="caption5" class="search_name"/>
                    <Static text="진료의사 :" position="absolute 15 85 101 102" id="caption6" class="search_name"/>
                    <Static text="처 방 명 :" position="absolute 15 110 101 127" id="caption7" class="search_name"/>
                    <Edit readonly="true" position="absolute 105 10 405 29" id="output1"/>
                    <Edit readonly="true" position="absolute 105 35 405 54" id="output2"/>
                    <Edit readonly="true" position="absolute 105 60 405 79" id="output3"/>
                    <Edit readonly="true" position="absolute 105 85 405 104" id="output4"/>
                    <Edit readonly="true" position="absolute 105 110 405 129" id="output5"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static text="처방 반환사유" position="absolute 0 161 115 177" id="caption1" class="tit_2"/>
              <Radio position="absolute 15 185 435 370" id="radio1" innerdataset="@ds_init_comcd_P0434" datacolumn="cdnm" codecolumn="cdid" onitemchanged="group3_radio1_onitemchanged" style="align:left middle;"/>
              <Edit position="absolute 10 375 440 394" id="input1"/>
            </Layout>
          </Layouts>
        </Div>
        <Div position="absolute 390 186 453 208" id="group1" scrollbars="autoboth">
          <Layouts>
            <Layout>
              <Button position="absolute 7 0 63 22" id="btn_confirm" class="btn4" text="저장" onclick="group1_btn_confirm_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Static text="마감후 처방반환" position="absolute 10 16 138 32" id="caption3" class="tit_2"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_init_comcd_P0434" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdnm" type="STRING"/>
          <Column id="cdid" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_target_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
          <Column id="execprcpno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="etcclrflag" type="STRING" size="256"/>
          <Column id="etcclrresn" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_prcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="patnm" type="STRING" size="256" sumtext="성명"/>
          <Column id="orddeptnm" type="STRING" size="256" sumtext="진료과"/>
          <Column id="medispclnm" type="STRING" size="256" sumtext="진료의사"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="외래/입원구분"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_rtn" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="prcphistno" type="STRING" size="256" sumtext="처방이력번호"/>
          <Column id="execprcpno" type="STRING" size="256" sumtext="실시처방일련번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="외래/입원구분"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_prcpnm" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_seqno" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256" sumtext="처방일자"/>
          <Column id="prcpno" type="STRING" size="256" sumtext="처방번호"/>
          <Column id="prcphistno" type="STRING" size="256" sumtext="처방이력번호"/>
          <Column id="execprcpno" type="STRING" size="256" sumtext="실시처방일련번호"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코드"/>
          <Column id="ioflag" type="STRING" size="256" sumtext="외래/입원구분"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_target" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcphistno" type="STRING" size="256"/>
          <Column id="execprcpno" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
        </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="etcclrflag" type="STRING" size="256"/>
          <Column id="etcclrresn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group3.group2.output1" propid="value" datasetid="ds_temp_prcp" columnid="pid"/>
      <BindItem id="item1" compid="group3.group2.output2" propid="value" datasetid="ds_temp_prcp" columnid="patnm"/>
      <BindItem id="item2" compid="group3.group2.output3" propid="value" datasetid="ds_temp_prcp" columnid="orddeptnm"/>
      <BindItem id="item3" compid="group3.group2.output4" propid="value" datasetid="ds_temp_prcp" columnid="medispclnm"/>
      <BindItem id="item4" compid="group3.group2.output5" propid="value" datasetid="ds_prcpnm" columnid="prcpnm"/>
      <BindItem id="item5" compid="group3.radio1" propid="value" datasetid="ds_send" columnid="etcclrflag"/>
      <BindItem id="item6" compid="group3.input1" propid="value" datasetid="ds_send" columnid="etcclrresn"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************
 * System Name		:	경대 의료정보시스템
 * Job Name 		:	pam_endrtnxp -> SPPAS03000
 * Creator			:	yjh
 * Make Date 		:	2016-03-25
 * Description		:	
 *---------------------------------------------------------------------------------------
 * Modify Date		Modifier		Modify Description
 *---------------------------------------------------------------------------------------
 * 2016-03-25		yjh				TF->XP
 * 
 *---------------------------------------------------------------------------------------
 ****************************************************************************************/


//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs";


//=======================================================================================
// Global Form Variable
//---------------------------------------------------------------------------------------


//=======================================================================================
// Function
//---------------------------------------------------------------------------------------



//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Components		: Form
 * Components ID	: SPPAS03000
 * Event			: oninit
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 처음 초기화시
 ****************************************************************************************/
function SPPAS03000_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);	//폼 초기화
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SPPAS03000
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 로딩 완료시
 ****************************************************************************************/
function SPPAS03000_onload(obj:Form, e:LoadEventInfo)
{
	try{
		ds_target_list.copyData(arg_ds_endinfo_result_list);
	}catch(e){
		
	}
	
	var arrParam =	[{dsNm: "ds_init_comcd_P0434", cdGrpId: "P0434"}]
	appf_getCodeList(arrParam);
	
	group3.input1.enable= false;
	
	var oParam = {};
		oParam.id          = "TRPAS03001";
		oParam.service     = "endrtnapp.Endrtn";
		oParam.method      = "reqGetEndRtnInit";
		oParam.inds        = "reqcond=ds_target_list";
		oParam.outds       = "ds_temp_prcp=prcp ds_temp_rtn=rtn";
		oParam.async       = false;
		//oParam.callback    = "cf_TRPAS03001";

	tranf_submit(oParam);
	
	var cnt = ds_target_list.rowcount;
	var prcpnm = ds_temp_prcp.getColumn(0, "prcpnm");
	if( cnt >1 && !utlf_isNull(group3.group2.output1.value) )
	{
		prcpnm = prcpnm + " 외 " + (cnt-1) + "건";
	}
	ds_prcpnm.setColumn(0, "prcpnm", prcpnm);
	
	ds_send_seqno.copyData(ds_temp_rtn);
	ds_send_target.copyData(ds_target_list);
}

/****************************************************************************************
 * Components		: Radio
 * Components ID	: radio1
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 라디오 값 변경시
 ****************************************************************************************/
function group3_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	if( group3.radio1.value == "99" )
	{
		group3.input1.enable= true;
	}
	else if( group3.radio1.value != "99" )
	{
		group3.input1.value = "";
		group3.input1.enable= false;
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: btn_confirm
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 저장버튼 클릭시
 ****************************************************************************************/
function group1_btn_confirm_onclick(obj:Button,  e:ClickEventInfo)
{
	if( utlf_isNull(group3.radio1.value) )
	{
		sysf_messageBox("처방 반환사유를 ", "C002");
	}
	else if( group3.radio1.value=="99" && utlf_isNull(group3.input1.value) )
	{
		sysf_messageBox("기타 사유를 ", "C001");
	}
	else
	{
		var etcclrflag = ds_send.getColumn(0, "etcclrflag");
		var etcclrresn = ds_send.getColumn(0, "etcclrresn");
		var nodeCnt = ds_target_list.rowcount;
		
		ds_target_list.addColumn("etcclrflag", "string");
		ds_target_list.addColumn("etcclrresn", "string");
		for( var i=0 ; i<nodeCnt ; i++ ){
			ds_target_list.setColumn(i, "etcclrflag", etcclrflag);
			ds_target_list.setColumn(i, "etcclrresn", etcclrresn);
		}
		
		var oParam = {};
			oParam.id          = "TXPAS03001";
			oParam.service     = "endrtnapp.Endrtn";
			oParam.method      = "reqExeEndRtn";
			oParam.inds        = "req=ds_target_list";
			//oParam.outds       = "ds_=ret";
			oParam.async       = false;
			oParam.callback    = "cf_TXPAS03001";

		tranf_submit(oParam);
	}
}

function cf_TXPAS03001(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    
    close();
}
]]></Script>
  </Form>
</FDL>