YNU_JEUS/app_home/himed/xpapps/pam/hiraefxp/xp/SMPIH99900_TEST.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMPIH99900_TEST" classname="Form1" inheritanceid="" position="absolute 0 0 1024 768" titletext="심평원참고자료보고 샘플" onload="SMPIH99900_TEST_onload">
    <Layouts>
      <Layout width="1024" height="768">
        <Div id="div_sea_doclist" taborder="0" position="absolute 0 0 1020 117" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 943 47 999 69" anchor="top right" onclick="div_sea_doclist_btn_search_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_list" taborder="1" useinputpanel="false" position="absolute 0 144 1020 756" binddataset="ds_doclist" autofittype="none" onlbuttonup="grd_list_onlbuttonup" selecttype="multirow" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="64"/>
                <Column size="67"/>
                <Column size="64"/>
                <Column size="67"/>
                <Column size="110"/>
                <Column size="75"/>
                <Column size="75"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="103"/>
                <Column size="95"/>
                <Column size="92"/>
                <Column size="80"/>
                <Column size="59"/>
                <Column size="164"/>
                <Column size="54"/>
                <Column size="486"/>
                <Column size="68"/>
                <Column size="111"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="checkbox" edittype="checkbox"/>
                <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" displaytype="normal" text="서식종류"/>
                <Cell col="9" displaytype="normal" text="청구번호"/>
                <Cell col="10" displaytype="normal" text="접수번호"/>
                <Cell col="11" displaytype="normal" text="접수년도"/>
                <Cell col="12" displaytype="normal" text="청구서일련번호"/>
                <Cell col="13" displaytype="normal" text="명세서일련번호"/>
                <Cell col="14" displaytype="normal" text="보험구분"/>
                <Cell col="15" displaytype="normal" text="업무구분"/>
                <Cell col="16" text="문서상태"/>
                <Cell col="17" text="문서번호"/>
                <Cell col="18" text="전송상태"/>
                <Cell col="19" text="에러메시지"/>
                <Cell col="20" text="전송자"/>
                <Cell col="21" text="전송일시"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:chk"/>
                <Cell col="1" text="bind:clamym"/>
                <Cell col="2" text="bind:clamdg"/>
                <Cell col="3" text="bind:pid"/>
                <Cell col="4" text="bind:pat_nm"/>
                <Cell col="5" displaytype="text" text="bind:signno"/>
                <Cell col="6" text="bind:prcpdd"/>
                <Cell col="7" text="bind:execprcpuniqno"/>
                <Cell col="8" displaytype="normal" text="bind:supl_data_fom_cd"/>
                <Cell col="9" displaytype="normal" text="bind:dmd_no"/>
                <Cell col="10" displaytype="normal" text="bind:rcv_no"/>
                <Cell col="11" displaytype="normal" text="bind:rcv_yr"/>
                <Cell col="12" displaytype="normal" text="bind:bill_sno"/>
                <Cell col="13" displaytype="normal" text="bind:sp_sno"/>
                <Cell col="14" displaytype="normal" text="bind:insup_tp_cd"/>
                <Cell col="15" displaytype="normal" text="bind:fom_ref_biz_tp_cd"/>
                <Cell col="16" text="bind:doc_status"/>
                <Cell col="17" text="bind:doc_no"/>
                <Cell col="18" text="bind:result"/>
                <Cell col="19" text="bind:errmessage"/>
                <Cell col="20" text="bind:resultid"/>
                <Cell col="21" text="bind:resultdt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="서식 리스트" onclick="caption1_onclick" class="tit_2" position="absolute 0 122 102 141" anchor="left top"/>
        <Button id="btn_trans" taborder="2" text="전송" position="absolute 818 120 878 140" class="btn4" onclick="btn_trans_onclick" anchor="top right"/>
        <Button id="btn_tempsave" taborder="3" text="임시저장" class="btn4" position="absolute 882 120 956 140" anchor="top right" onclick="btn_tempsave_onclick"/>
        <Button id="btn_tempdel" taborder="4" text="삭제" class="btn4" position="absolute 959 120 1017 140" anchor="top right" onclick="btn_tempdel_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_attachfile" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="LOCAL_FILE_PTH" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="LOCAL_FILE_PTH">C:/HIRA/HIRAIEA/basic_ICON.ico</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_doclist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="chk" type="STRING" size="256"/>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="clamym" type="STRING" size="256"/>
          <Column id="clamdg" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="pidsn" type="STRING" size="256"/>
          <Column id="signno" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="execprcpuniqno" type="STRING" size="256"/>
          <Column id="supl_data_fom_cd" type="STRING" size="256"/>
          <Column id="fom_ver" type="STRING" size="256"/>
          <Column id="dmd_no" type="STRING" size="256"/>
          <Column id="rcv_no" type="STRING" size="256"/>
          <Column id="rcv_yr" type="STRING" size="256"/>
          <Column id="bill_sno" type="STRING" size="256"/>
          <Column id="sp_sno" type="STRING" size="256"/>
          <Column id="insup_tp_cd" type="STRING" size="256"/>
          <Column id="fom_ref_biz_tp_cd" type="STRING" size="256"/>
          <Column id="hosp_rno" type="STRING" size="256"/>
          <Column id="pat_nm" type="STRING" size="256"/>
          <Column id="doc_no" type="STRING" size="256"/>
          <Column id="doc_status" type="STRING" size="256"/>
          <Column id="result" type="STRING" size="256"/>
          <Column id="errmessage" type="STRING" size="256"/>
          <Column id="resultid" type="STRING" size="256"/>
          <Column id="resultdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_docinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_send_doclist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="supl_data_fom_cd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_COM_M" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="supl_data_fom_cd" type="STRING" size="256"/>
          <Column id="fom_ver" type="STRING" size="256"/>
          <Column id="ykiho" type="STRING" size="256"/>
          <Column id="dmd_no" type="STRING" size="256"/>
          <Column id="rcv_no" type="STRING" size="256"/>
          <Column id="rcv_yr" type="STRING" size="256"/>
          <Column id="bill_sno" type="STRING" size="256"/>
          <Column id="sp_sno" type="STRING" size="256"/>
          <Column id="insup_tp_cd" type="STRING" size="256"/>
          <Column id="fom_ref_biz_tp_cd" type="STRING" size="256"/>
          <Column id="hosp_rno" type="STRING" size="256"/>
          <Column id="pat_nm" type="STRING" size="256"/>
          <Column id="pat_jno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_gridlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_COM_E" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_COM_RESULT" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="result" type="STRING" size="256"/>
          <Column id="errmessage" type="STRING" size="256"/>
          <Column id="injson" type="STRING" size="256"/>
          <Column id="outjson" type="STRING" size="256"/>
          <Column id="doc_no" type="STRING" size="256"/>
          <Column id="doc_status" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";		// 전체공통 스크립트
include "pam_hiraefxp::HIRAEF.xjs";			// 심평원 자료전송 스크립트

//var GUID = "{B377BB36-6EF3-4C24-943B-74D8F3FC7FA5}";
//var strYkiho = "37100017";
//var strFomVer = "001";

//var actDocument = new ActiveX("HIRA.EformEntry.Model.Document");
//actDocument.progid = GUID;

//var time = new Date();


function SMPIH99900_TEST_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);	
	
	// 그리드 초기화
	grdf_initGrid(grd_list);
	
	// 그리드 툴팁
	grdf_setToolTipBind(grd_list);
	
	// 초기화
	fInit();
	
	
	
}

function fInit()
{
	// 공통코드 가져올 부분
	/*
	var arrParam = [
        { dsNm: "ds_init_hospgrade_A0429", cdGrpId: "A0429" },
        { dsNm: "ds_init_replflag_A0636", cdGrpId: "A0636" },
        {dsNm: "ds_init_rsrvflag_P0341", cdGrpId: "P0341", sortField: "dispseq", sortMehotd: "asc", showValue:false}   
		
    ];

    appf_getCodeList(arrParam, true);
    */
    
    // 전송할 서식 데이터를 가져옴
	dsf_copyColInfo(ds_send_docinfo, ds_doclist, false);
	ds_send_docinfo.addColumn("doc_no", "string");
	ds_send_docinfo.addColumn("doc_status", "string");
	ds_send_docinfo.addColumn("result", "string");
	ds_send_docinfo.addColumn("errmessage", "string");
	
}





// 그리드 멀티 선택 시 해당 체크박스 체크 또는 반전토록 함
function fSetGrdMultiSelect(obj:Grid, colName) {
	var oDs          = this.objects[obj.binddataset];
	var selectedRows = grdf_getSelectedRows(obj);
	
	for(var i = 0; i < selectedRows.length; i++) {
		var chk = oDs.getColumn(selectedRows[i], "chk");
		
		if(chk == 1 || chk == true)
			oDs.setColumn(selectedRows[i], "chk", 0);
		else
			oDs.setColumn(selectedRows[i], "chk", 1);
	}
}

// 그리드 버튼 클릭 시 처리
function grd_list_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row < 0 || e.col == 0 ) return;
	
	fSetGrdMultiSelect(obj, "chk");
}

// 전송버튼 누를 시 처리
function btn_trans_onclick(obj:Button,  e:ClickEventInfo)
{
	var chkcnt = ds_doclist.getCaseCount("chk=='1'");
	if(chkcnt == 0){
		sysf_messageBox("전송할 서식이 선택되지 않았습니다.", "C");
		return;
	}
	
	fTrans("E");
	fSearchDocList();
	
	
}

// 전송
// gubun ("E": 전송완료, "T": 임시저장, "D": 임시문서삭제)
function fTrans(gubun)
{
	// 전체 서식에 대한 데이터가 10000개가 넘을 수도 있기 때문에
	// 한번에 보내서 처리하지 않고 for문으로 submit 처리함
	var cnt = 0;
	for(var i=0; i<ds_doclist.rowcount; i++){
		var chk = ds_doclist.getColumn(i, "chk");
		if(chk == "1"){
			
			cnt++;
			var signno = ds_doclist.getColumn(i, "signno");
			var uniqno = ds_doclist.getColumn(i, "execprcpuniqno");
			var doc_no = ds_doclist.getColumn(i, "doc_no");
			var doc_status = ds_doclist.getColumn(i, "doc_status");
			
			// 전송완료 상태인데 다시 전송 안되도록 한다.
			if(doc_status == "E"){
				sysf_messageBox("전송완료 상태인 문서는 처리할 수 없습니다.","E");
				return;
			}
			
			
			ds_send_docinfo.clearData();
			ds_send_docinfo.addRow();
			ds_send_docinfo.copyRow(0,ds_doclist,i);
			
			var supl_data_fom_cd = ds_send_docinfo.getColumn(0, "supl_data_fom_cd");
			var oParam = {};
				oParam.id          = "TRPHI99902";
				oParam.service     = "hiraefapp.HiraEfMngt";
				oParam.method      = "reqGetGridList";
				oParam.inds        = "req=ds_send_docinfo";
				oParam.outds       = "ds_gridlist=gridlist";
				oParam.async       = false;
				//oParam.callback    = "cf_TRPHI99902";
			tranf_submit(oParam);
			
			
			// 그리드 리스트에 해당하는 dataset을 만든다.
			// 또한, 받을 outds에 해당하는 문자를 동적 생성한다.
			// 또한, 전송용으로 쓸 gridds에 해당하는 문자를 동적 생성한다.
			var addoutds = "";
			var gridds = "";
			for(var j=0; j<ds_gridlist.rowcount; j++){
				var gridcd = ds_gridlist.getColumn(j, "gridcd");
				var nm = supl_data_fom_cd + "_" + gridcd;
				dsf_createDs("ds_" + nm);
				addoutds += " ds_" + nm + "=" + nm;
				gridds   += gridcd + ":ds_" + nm + " ";
				
			}
			
			var oParam = {};
				oParam.id          = "TRPHI99903";
				oParam.service     = "hiraefapp.HiraEfMngt";
				oParam.method      = "reqGetDocInfo";
				oParam.inds        = "req=ds_send_docinfo";
				oParam.outds       = "ds_COM_M=COM_M ds_COM_E=COM_E" + addoutds;
				oParam.async       = false;
				//oParam.callback    = "cf_TRPHI99903";
			tranf_submit(oParam);
			
			var oParam = {};
				oParam.metaDs = "ds_COM_M";					// Meta정보 데이타셋
				oParam.elementDs = "ds_COM_E"; 				// Element정보 데이타셋
				oParam.gridDs = gridds;						// Grid정보 데이타셋
				oParam.resultDs = "ds_COM_RESULT";			// 전송결과 데이타셋
			eff_trans(oParam, gubun, doc_no, doc_status);
			
			// 전송결과 결과값을 저장한다.
			var objResultDs = eval(oParam.resultDs);
			var result = objResultDs.getColumn(0, "result");
			var doc_no = objResultDs.getColumn(0, "doc_no");
			var doc_status = objResultDs.getColumn(0, "doc_status");
			var errmessage = objResultDs.getColumn(0, "errmessage");
			
			ds_send_docinfo.setColumn(0, "doc_no", doc_no);
			ds_send_docinfo.setColumn(0, "result", result);
			ds_send_docinfo.setColumn(0, "doc_status", doc_status);
			ds_send_docinfo.setColumn(0, "errmessage", errmessage);
			
			var oParam = {};
				oParam.id          = "TRPHI99904";
				oParam.service     = "hiraefapp.HiraEfMngt";
				oParam.method      = "reqSetDocResult";
				oParam.inds        = "req=ds_send_docinfo";
				oParam.async       = false;
				//oParam.callback    = "cf_TRPHI99903";
			tranf_submit(oParam);
			
			
		}
	}
}


// 조회버튼 클릭
function div_sea_doclist_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSearchDocList();
}


function fSearchDocList()
{
	var oParam = {};
		oParam.id          = "TRPHI99901";
		oParam.service     = "hiraefapp.HiraEfMngt";
		oParam.method      = "reqGetDocList";
		oParam.inds        = "req=ds_send_doclist";
		oParam.outds       = "ds_doclist=doclist";
		oParam.async       = true;
		//oParam.callback    = "cf_TRARC00105";
	tranf_submit(oParam);
}
function btn_tempsave_onclick(obj:Button,  e:ClickEventInfo)
{
	var chkcnt = ds_doclist.getCaseCount("chk=='1'");
	if(chkcnt == 0){
		sysf_messageBox("전송할 서식이 선택되지 않았습니다.", "C");
		return;
	}
	
	fTrans("T");
	fSearchDocList();
}

function btn_tempdel_onclick(obj:Button,  e:ClickEventInfo)
{
	var chkcnt = ds_doclist.getCaseCount("chk=='1'");
	if(chkcnt == 0){
		sysf_messageBox("전송할 서식이 선택되지 않았습니다.", "C");
		return;
	}
	
	fTrans("D");
	fSearchDocList();
}
]]></Script>
  </Form>
</FDL>