YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO15600_HLA공여자등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO15600" position="absolute 0 0 1100 662" titletext="HLA검사의뢰서" oninit="SPMMO15600_oninit" onload="SPMMO15600_onload" onclose="SPMMO15600_onclose">
    <Layouts>
      <Layout>
        <Static text="HLA검사 공여자 등록" position="absolute 0 0 152 31" align="align:center middle;" id="caption3" class="tit_2"/>
        <Shape position="absolute 8 26 1088 32" linetype="vertical" id="line1" class="line_1"/>
        <Grid position="absolute 0 31 1096 236" id="grd_dnorinfo" visible="true" binddataset="ds_main_dnorinfo" oncellclick="grd_dnorinfo_oncellclick" autofittype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="37"/>
                <Column size="59"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="111"/>
                <Column size="59"/>
                <Column size="49"/>
                <Column size="66"/>
                <Column size="407"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell displaytype="normal"/>
                <Cell col="1" displaytype="normal" text="처방여부"/>
                <Cell col="2" displaytype="normal" text="공여자번호"/>
                <Cell col="3" displaytype="normal" text="기관코드"/>
                <Cell col="4" displaytype="normal" text="이름"/>
                <Cell col="5" displaytype="normal" text="성별"/>
                <Cell col="6" displaytype="normal" text="나이"/>
                <Cell col="7" displaytype="normal" text="관계"/>
                <Cell col="8" displaytype="normal" text="전달사항"/>
              </Band>
              <Band id="body">
                <Cell displaytype="combo" edittype="combo" text="bind:status"/>
                <Cell col="1" displaytype="checkbox" edittype="checkbox" style="align:center;" text="bind:selectyn"/>
                <Cell col="2" displaytype="normal" text="bind:dnorid"/>
                <Cell col="3" displaytype="normal" text="bind:instcd"/>
                <Cell col="4" displaytype="text" edittype="text" text="bind:dnornm"/>
                <Cell col="5" displaytype="combo" edittype="combo" text="bind:dnorsex"/>
                <Cell col="6" displaytype="text" edittype="text" text="bind:dnorage" mask="###"/>
                <Cell col="7" displaytype="combo" edittype="combo" text="bind:dnorrela"/>
                <Cell col="8" displaytype="text" edittype="text" text="bind:remfact"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button position="absolute 966 9 1008 28" id="btn_new" class="btn2_letter2" text="신규" onclick="btn_new_onclick"/>
        <Button position="absolute 921 9 963 28" id="btn_delete" class="btn2_letter2" text="삭제" onclick="btn_delete_onclick"/>
        <Button position="absolute 1011 9 1053 28" id="btn_save" class="btn2_letter2" text="저장" onclick="btn_save_onclick"/>
        <Button position="absolute 1055 9 1097 28" id="btn_cancel" class="btn5" text="취소" onclick="btn_cancel_onclick"/>
        <Div id="iviewer1" taborder="1" position="absolute 0 250 1096 649" url="lis_refprintmngtxp::SPLLP90200_HLA결과조회.xfdl"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_dnorinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_main_dnorinfo_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING"/>
          <Column id="selectyn" type="STRING"/>
          <Column id="dnorid" type="STRING"/>
          <Column id="instcd" type="STRING"/>
          <Column id="dnornm" type="STRING"/>
          <Column id="dnorsex" type="STRING"/>
          <Column id="dnornm" type="STRING"/>
          <Column id="dnorsex" type="STRING"/>
          <Column id="dnorage" type="STRING"/>
          <Column id="dnorrela" type="STRING"/>
          <Column id="remfact" type="STRING"/>
          <Column id="pid" type="STRING"/>
          <Column id="orddd" type="STRING"/>
          <Column id="cretno" type="STRING"/>
          <Column id="fstrgstrid" type="STRING"/>
          <Column id="fstrgstdt" type="STRING"/>
          <Column id="lastupdtrid" type="STRING"/>
          <Column id="lastupdtdt" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_P0313" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_A0163" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_paminfo" 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">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="dnorsex" type="STRING" size="256"/>
          <Column id="dnorrela" type="STRING" size="256"/>
          <Column id="paminfo" type="STRING" size="256"/>
          <Column id="rcnt" type="STRING" size="256"/>
          <Column id="closestat" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="dnorsex"/>
            <Col id="dnorrela"/>
            <Col id="paminfo"/>
            <Col id="rcnt"/>
            <Col id="closestat">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_reset_dnorinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

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

	var arrParam = [{dsNm: "ds_P0313", cdGrpId: "P0313"}
				   ,{dsNm: "ds_A0163", cdGrpId: "A0163"}]
	appf_getCodeList(arrParam);	
	
	dsf_setCSVToDs("ds_paminfo", sysf_getGlobalVariable("paminfo"));	// setCSVToNode ( "/root/init/paminfo", getGlobalVariable("paminfo") );

//	iviewer1.ds_hidden_refparam.setColumn(0, "pid", opener.ds_paminfo.getColumn(0, "pid"));	
}

function SPMMO15600_onload(obj:Form, e:LoadEventInfo)
{			
	var hlaselfprcpcd = "1|2|3|4|5";	//opener.frmf_getParameter("SPMMO15600_hlaselfprcpcd");
	var hlaselfprcpcdsplit = hlaselfprcpcd.split("|");
	 var hlaselfprcpcd1 = hlaselfprcpcdsplit[0];
	 var hlaselfprcpcd2 = hlaselfprcpcdsplit[1];
	 var hlaselfprcpcd3 = hlaselfprcpcdsplit[2];
	
	ds_send_reqdata.setColumn(0, "pid", ds_paminfo.getColumn(0, "pid"));	
	
	if (ds_paminfo.getColumn(0, "ioflag") == "O" ) {	
		ds_send_reqdata.setColumn(0, "orddd", ds_paminfo.getColumn(0, "orddd"));	
	} else {
		ds_send_reqdata.setColumn(0, "orddd", ds_paminfo.getColumn(0, "indd"));	
	}
	ds_send_reqdata.setColumn(0, "cretno", ds_paminfo.getColumn(0, "cretno"));	
	
	var oParam = {};
    oParam.id          = "TRMMO15601";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetDnorInfo";
    oParam.inds        = "reqdata=ds_send_reqdata";
    oParam.outds       = "ds_main_dnorinfo=dnorinfo";
    oParam.async       = false;
    oParam.callback    = "cf_TRMMO15601";

	tranf_submit(oParam);
}

function cf_TRMMO15601(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function SPMMO15600_onclose(obj:Form, e:CloseEventInfo)
{
	if ( ds_init.getColumn(0, "rcnt") == "" || ds_init.getColumn(0, "closestat") != "Y") {	
		opener.frmf_setParameter("SPMMO15600_addcnt", parseInt(opener.frmf_getParameter("SPMMO15600_srchRow")) );
	} else {
		opener.frmf_setParameter("SPMMO15600_addcnt", parseInt(opener.frmf_getParameter("SPMMO15600_srchRow")) );
		opener.javascript.setParameter("SPMMO15600_addcnt", parseInt(ds_init.getColumn(0, "rcnt")) + parseInt(opener.frmf_getParameter("SPMMO15600_srchRow")) - 1);
	}
}

// 사용하는 메서드인지 확인 필요
function fDeleteSelectedRows(grd, markonly) {
	alert(" fDeleteSelectedRows 사용하는 메서드인지 확인 필요 ");
	/*
	var rowIdx;
	var selectedRows = grdf_getSelectedRows(grd);
	if (selectedRows.length > 0) {
// 		var selectedRows = Array(grd.selectedRows);
// 		for(i = 0; i < selectedRows.length; i++) {
// 			selectedRows[i] = grd.selectedRow(i);
// 		}
		if (markonly != null && markonly == true) { // mark delete
			for( i = selectedRows.length - 1; i >= 0; i-- ) {
				rowIdx = selectedRows[i];
				if( grd.rowstatus(rowIdx) == 1 ) { // grd.rowstatus(rowIdx) == 1  just inserted row 11일 여기부터 
					grd.deleterow(rowIdx,false);
				} else {
					grd.addStatus(rowIdx,"delete");
				}
			}
		} else {
			for(i=selectedRows.length-1;i>=0;i--) {
				rowIdx = selectedRows[i];
				grd.deleterow(rowIdx,false);
			}
		}
	}*/
}

function ds_main_dnorinfo_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	// onendedit start
	if ( ds_main_dnorinfo.getColumn(ds_main_dnorinfo.rowposition, "status") != "I" ) {	
		ds_main_dnorinfo.setColumn(ds_main_dnorinfo.rowposition, "status", "U");
	}
	// onendedit end
}

function grd_dnorinfo_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if( e.row > -1 && e.col > -1 ) {	
		if ( obj.getCellPos() == obj.getBindCellIndex("body", "selectyn") ) {
			if ( ds_main_dnorinfo.getColumn(ds_main_dnorinfo.rowposition, "status") == "D" ) {	
				ds_main_dnorinfo.setColumn(ds_main_dnorinfo.rowposition, "selectyn", "false");	
				//model.setValue("/root/main/dnorinfo/dnorinfo["+grd_dnorinfo.row+"]/selectyn", "false" );
			}
			ds_init.setColumn(0, "rcnt", ds_main_dnorinfo.getCaseCount("selectyn == 'true'"));
			//model.setValue("/root/init/rcnt", model.instances(0).selectNodes ( "/root/main/dnorinfo/dnorinfo[selectyn='true']" ).length );
		}						
	}
}

function btn_new_onclick(obj:Button,  e:ClickEventInfo)
{
	lf_appendChildPrcp ( "ds_reset_dnorinfo", "ds_main_dnorinfo", "main", "I" );	//appendChildPrcp ( "/root/reset/dnorinfo", "/root/main/dnorinfo", "main" , "I");
}

function btn_delete_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( ds_main_dnorinfo.getColumn(ds_main_dnorinfo.rowposition, "status") == "I" )	
		ds_main_dnorinfo.deleteRow(ds_main_dnorinfo.rowposition);	//model.removenode("/root/main/dnorinfo/dnorinfo["+grd_dnorinfo.row+"]");
	else{
		if ( ds_main_dnorinfo.getColumn(ds_main_dnorinfo.rowposition, "existyn") == "Y" ) {	// model.getValue("/root/main/dnorinfo/dnorinfo["+grd_dnorinfo.row+"]/existyn") == "Y"
			sysf_messageBox("삭제하려는 공여자에게 발행된 전처방이 있어 삭제할 수 없습니다.", "I");
		// opener.model.instances(0).selectNodes ( "/root/main/prcp/prcplist[dnorreqlnkno='"+model.getValue("/root/main/dnorinfo/dnorinfo["+grd_dnorinfo.row+"]/dnorid")+"']" ).length > 0
		} else if ( opener.ds_main_prcplist.getCaseCount("dnorreqlnkno == '" + ds_main_dnorinfo.getColumn(ds_main_dnorinfo.rowposition, "dnorid") + "'") > 0  ) {
			sysf_messageBox("현재 처방리스트에 삭제하려는 공여자에게 발행될 처방이 있어 삭제할 수 없습니다.", "I");
		} else {
			ds_main_dnorinfo.setColumn(ds_main_dnorinfo.rowposition, "status", "D");
		}
		ds_main_dnorinfo.setColumn(ds_main_dnorinfo.rowposition, "selectyn", "false");	//model.setValue("/root/main/dnorinfo/dnorinfo[" + grd_dnorinfo.row + "]/selectyn", "false");
	}
	ds_init.setColumn(0, "rcnt", ds_main_dnorinfo.getCaseCount("selectyn == 'true'"));	//model.setValue("/root/init/rcnt", model.instances(0).selectNodes ( "/root/main/dnorinfo/dnorinfo[selectyn='true']" ).length );
	//grd_dnorinfo.refresh();
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	var rows = ds_main_dnorinfo.rowcount;	//grd_dnorinfo.rows;
					
	if (rows == 1 ) {
		close();
	}

	var spid = ds_send_reqdata.getColumn(0, "pid");	
	var sorddd = ds_send_reqdata.getColumn(0, "orddd");	
	var scretno = ds_send_reqdata.getColumn(0, "cretno");	
	var selstr = "";
	var sdnorid = "";
						
	for(var i = 0; i < rows; i++){
		ds_main_dnorinfo.setColumn(i, "pid", pid);	
		ds_main_dnorinfo.setColumn(i, "orddd", sorddd);	
		ds_main_dnorinfo.setColumn(i, "cretno", scretno);
		
		if ( ds_main_dnorinfo.getColumn(i, "selectyn") == "true" ) {	// model.getValue("/root/main/dnorinfo/dnorinfo[" + i + "]/selectyn") == "true"
			selstr = selstr + ds_main_dnorinfo.getColumn(i, "dnornm") + "|";	//model.getValue("/root/main/dnorinfo/dnorinfo[" + i + "]/dnornm") + "|";
		}
	}

	//model.instances(0).selectNodes( "/root/main/dnorinfo/dnorinfo" );  
	//model.setValue("/root/send/savedata", getNodeListCSV(saveNodeList) );
	dsf_createDs("ds_send_savedata");
	ds_send_savedata.copyData(ds_main_dnorinfo);	
	
	var oParam = {};
    oParam.id          = "TXMMO15601";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqExeSaveDnorInfo";
    oParam.inds        = "savedata=ds_send_savedata";
    oParam.outds       = "ds_main_dnorinfo=dnorinfo";
    oParam.async       = false;
    oParam.callback    = "cf_TXMMO15601";

	tranf_submit(oParam);


	for(i = 0; i < rows; i++){
	// model.getValue("/root/main/dnorinfo/dnorinfo["+i+"]/dnornm") != "" && selstr.indexOf(model.getValue("/root/main/dnorinfo/dnorinfo["+i+"]/dnornm")) >= 0
		if ( ds_main_dnorinfo.getColumn(i, "dnornm") != "" && selstr.indexOf(ds_main_dnorinfo.getColumn(i, "dnornm")) >= 0 )  {
			if (sdnorid == "" ) {
				sdnorid = ds_main_dnorinfo.getColumn(i, "dnorid");	//model.getValue("/root/main/dnorinfo/dnorinfo[" + i + "]/dnorid");
			}
			else {
				sdnorid = sdnorid + '|' + ds_main_dnorinfo.getColumn(i, "dnorid");	//sdnorid + '|' + model.getValue("/root/main/dnorinfo/dnorinfo[" + i + "]/dnorid");
			}
				ds_main_dnorinfo.setColumn(i, "selectyn", "true");	//model.setValue("/root/main/dnorinfo/dnorinfo[" + i + "]/selectyn", "true");
		}
	}
// 	grd_dnorinfo.refresh();
// 	opener.grd_prcplist.refresh();					
	
	var currow = parseInt(opener.frmf_getParameter("SPMMO15600_srchRow"));
	var prcpcd = opener.ds_main_prcplist.getColumn(currow, "prcpcd");	//	model.getValue( "/root/main/prcp/prcplist[" + currow + "]/prcpcd" );					
	//var destNode;					
	
	if ( sdnorid != "" ) {
		var sepDnorid = sdnorid.split("|"); 						
		for ( i = 0; i < sepDnorid.length; i++ ){ 
			if (i == 0 ) {
				opener.ds_main_prcplist.setColumn(currow, "dnorreqlnkno", sepDnorid[i]);	//opener.model.setValue( "/root/main/prcp/prcplist[" + currow+ "]/dnorreqlnkno", sepDnorid[i]); 
				opener.ds_main_prcplist.setColumn(currow, "payflagcd", "1");	//opener.model.setValue( "/root/main/prcp/prcplist[" + currow+ "]/payflagcd", "1"); 
			} else {
				//destNode = opener.model.instances(0).selectSingleNode( "/root/main/prcp" ) 
				lf_prcpSrchCom(prcpcd, opener.ds_init.getColumn(0, "prcpdd"), opener.ds_paminfo.getColumn(0, "insukind"), "TRMMO00100", "", false, "getPrcpCdSrchInfo");
				ds_prcpsrch_prcplist.setColumn(0, "status", "I");	
				lf_addPrcpDetl("child", "ds_prcpsrch_prcplist", "ds_main_prcplist", 0, currow, "00" );	
				
				opener.ds_main_prcplist.setColumn(currow, "dnorreqlnkno", sepDnorid[i]);	
				opener.ds_main_prcplist.setColumn(currow, "payflagcd", "1");	
			}
			currow = currow + 1;
		}
	} 

	//opener.grd_prcplist.refresh();
	ds_init.setColumn(0, "closestat", "Y");
	close();							

}

function cf_TXMMO15601(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_init.setColumn(0, "closestat", "N");	//model.setValue("/root/init/closestat", "N");
	close();
}
]]></Script>
  </Form>
</FDL>