YNU_JEUS/app_home/himed/xpapps/ast/healcarecoopxp/xp/SPARH00100_병원지역코드관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPARH05100" classname="SPARH05100_심평원HIE병원조회" inheritanceid="" position="absolute 0 0 793 548" titletext="심평원HIE병원조회" onload="SPARH05100_onload" oninit="SPARH05100_oninit">
    <Layouts>
      <Layout>
        <Static id="caption6" text="통합병원지역관리" class="tit_1" position="absolute 0 0 178 24"/>
        <ActiveX id="ActiveX01" position="absolute 179 4 218 21" progid="{72906CD8-4ABE-300F-BC7C-DBF567CEED2C}" useautobitmapcache="1" anchor="default" taborder="4" windowed="true" visible="false"/>
        <Grid id="grd_list" taborder="6" binddataset="ds_main_areadelt" useinputpanel="false" position="absolute 0 58 349 540" anchor="left top bottom">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="120"/>
                <Column size="120"/>
              </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 text="bind:sidonm" suppress="1" suppressalign="middle,over"/>
                <Cell col="1" text="bind:sidocd" suppress="2" suppressalign="middle,over"/>
                <Cell col="2" text="bind:sidonmdetl"/>
                <Cell col="3" text="bind:sidocddetl"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_save" taborder="7" text="저장" position="absolute 739 33 782 56" class="btn5" onclick="btn_save_onclick"/>
        <Grid id="grd_list01" taborder="8" binddataset="ds_init_areacd" useinputpanel="false" position="absolute 433 58 782 540" autoenter="select" cellsizingtype="col" autofittype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27"/>
                <Column size="50"/>
                <Column size="50"/>
                <Column size="120"/>
                <Column size="120"/>
              </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="지역상세코드"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" text="bind:sidonm" suppress="1" suppressalign="middle,over"/>
                <Cell col="2" text="bind:sidocd" suppress="2" suppressalign="middle,over"/>
                <Cell col="3" displaytype="text" edittype="text" text="bind:sidonmdetl" editimemode="hangul"/>
                <Cell col="4" displaytype="text" edittype="text" text="bind:sidocddetl"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_sync" taborder="9" position="absolute 377 292 408 314" class="icon_right" onclick="btn_sync_onclick"/>
        <Button id="btn_delt" taborder="10" text="행삭제" class="btn2" position="absolute 687 33 738 56" onclick="btn_delt_onclick"/>
        <Button id="btn_insert" taborder="11" text="행삽입" onclick="btn_insert_onclick" class="btn2" position="absolute 634 33 685 56"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_area" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sidocd" type="STRING" size="256"/>
          <Column id="sidonm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_areadelt" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sidocd" type="STRING" size="256"/>
          <Column id="sidonm" type="STRING" size="256"/>
          <Column id="sidocddetl" type="STRING" size="256"/>
          <Column id="sidonmdetl" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_areacd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="sidocd" type="STRING" size="256"/>
          <Column id="sidonm" type="STRING" size="256"/>
          <Column id="sidocddetl" type="STRING" size="256"/>
          <Column id="sidonmdetl" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_save" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind/>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";	
include "ast_soclworkxp::AWMCommon.xjs";
var lib;
var YadmId;
var objActiveX;

var arErrorCode = new HashArray();
				
function SPARH05100_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPARH05100_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_list);
	grdf_initGrid(grd_list01);
	grdf_setRowTypeIcon(grd_list01, 0);
	
	fInit();
}

function fInit()
{
	fInit_Hira();
	
	// 조회 파라미터 입력
	var instcd = sysf_getUserInfo("dutplceinstcd");
	
	ds_send.setColumn(0, "instcd", instcd);
	
	if(instcd == "031")		YadmId = "37100017";
	else if(instcd == "032")		YadmId = "37100467";
	
	fInit_Data();
}

function fInit_Data()
{
	var oParam = {};
		oParam.id = "TXARH00101";
		oParam.service = "healcarecoopapp.CoopHospMngt";
		oParam.method = "reqGetAreaList";
		oParam.inds = "req=ds_send";
		oParam.outds = "ds_init_areacd=hosparea";
		oParam.async = false;
    tranf_submit(oParam);
}

function fInit_Hira()
{
	try{
		
		lib = ActiveX01.createObject("Hira.Di.Com.Service.Library.ServiceLibrary");
				
		fSearchInitCode_Hira();
		
	}catch(e){
		sysf_messageBox("진료의뢰회송 중계포털 Agent 다운받아 설치 후 이용바랍니다.\n( https://di.hira.or.kr/rsweb/index.do )","E999");
		this.close();
	}
}

function fSearchInitCode_Hira()
{
	ds_main_area.clearData();
	// 조회 파라미터 입력
	var instcd = sysf_getUserInfo("dutplceinstcd");
	trace(instcd)
	if(instcd == "031")		YadmId = "37100017";
	else if(instcd == "032")		YadmId = "37100467";
		
	var res = lib.SrchSdbkYadmInfoList(YadmId);
	if (!res.Success) {
	
		sysf_messageBox( "심평원 진료의뢰회송 연계 프로그램에 조건 오류가 발생했습니다.\n\n" + res.ErrCd + ": " + res.ErrMsg + "\n\n조건 수정 후 전송 바랍니다.", "E999");
		return;
	}
	
	var info = res.SdbkYadmInfo;
	
	if (info.LenSdbkYadmSidoInfos() > 0) {
	   for (i = 0; i < info.LenSdbkYadmSidoInfos(); i++) {
		  
		  var item = info.GetSdbkYadmSidoInfo(i);
		  var addRow = ds_main_area.addRow();
		  ds_main_area.setColumn(addRow, "sidonm", item.SidoNm);
		  ds_main_area.setColumn(addRow, "sidocd", item.SidoCd);
	   }  
	}	
	fSearchSidoDetl_Hira();
}

function fSearchSidoDetl_Hira()
{	
	ds_main_areadelt.clearData();
	
	for(var i = 0; i < ds_main_area.rowcount; i++)
	{
		var sidoCD = ds_main_area.getColumn(i, "sidocd");
		var sidoNM = ds_main_area.getColumn(i, "sidonm");
		var res = lib.SrchSdbkYadmAddrCityList(YadmId, sidoCD);
		
		if (!res.Success) 
		{
			sysf_messageBox( "심평원 진료의뢰회송 연계 프로그램에 조건 오류가 발생했습니다.\n\n" + res.ErrCd + ": " + res.ErrMsg + "\n\n조건 수정 후 전송 바랍니다.", "E999");
			return;
		}

		if (res.LenSdbkYadmAddrCitys() > 0)
		{
			for (var j = 0; j < res.LenSdbkYadmAddrCitys(); j++) 
			{
				var item = res.GetSdbkYadmAddrCity(j);
				
				var addRow = ds_main_areadelt.addRow();				
				ds_main_areadelt.setColumn(addRow, "sidocd", sidoCD);
				ds_main_areadelt.setColumn(addRow, "sidonm", sidoNM);
				ds_main_areadelt.setColumn(addRow, "sidocddetl", item.SgguCd);
				ds_main_areadelt.setColumn(addRow, "sidonmdetl", item.SgguNm);			  
		   }  
		}
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var updategrid = grdf_getGridUpdateData(grd_list01);
	grdf_setStatusColumn(updategrid, "status");
	ds_send_save.copyData(updategrid, true);

	var oParam = {};
		oParam.id = "TXARH00101";
		oParam.service = "healcarecoopapp.CoopHospMngt";
		oParam.method = "reqSetAreaInfo";
		oParam.inds = "req=ds_send_save";
		//oParam.outds = "ds_main_hosplist_hospinfo_gr=hospinfo_gr";
		oParam.async = false;
    tranf_submit(oParam);
    
    fInit_Data();
}

function btn_sync_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_init_areacd.copyData(ds_main_areadelt);
	
	ds_init_areacd.updatecontrol = false;
	for(var i = 0; i < ds_init_areacd.rowcount; i++)
	{
		ds_init_areacd.setRowType(i, "i");
	}
	ds_init_areacd.updatecontrol = true;
}

function btn_insert_onclick(obj:Button,  e:ClickEventInfo)
{
	if(ds_init_areacd.rowposition < 0)
	{
		sysf_messageBox("행을 선택 후 행삽입을 시도하세요.");
		return;
	}
	
	var selRow = ds_init_areacd.rowposition;
	var sidocd = ds_init_areacd.getColumn(selRow, "sidocd");
	var sidonm = ds_init_areacd.getColumn(selRow, "sidonm");
	
	var row = ds_init_areacd.insertRow(selRow);
	ds_init_areacd.setColumn(row, "sidocd", sidocd);
	ds_init_areacd.setColumn(row, "sidonm", sidonm);
}

function btn_delt_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_init_areacd.updatecontrol = false;
	ds_init_areacd.setRowType(ds_init_areacd.rowposition, "d");
	ds_init_areacd.updatecontrol = true;
}
]]></Script>
  </Form>
</FDL>