YNU_JEUS/app_home/himed/xpapps/ast/infcmngtxp/xp/SPASB01700_혈액주의안내문.xfdl

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPASB01700" position="absolute 0 0 395 243" titletext="혈액주의 안내문" onload="SPASB01700_onload">
    <Layouts>
      <Layout>
        <Shape id="roundrect2" anchor="default" class="roundrect_btnset" type="roundrectangle" position="absolute 5 5 370 220" style=""/>
        <Grid id="grd_isolate" binddataset="ds_main_getinfclist_info" position="absolute 11 18 360 205" style="">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="328"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="안내문"/>
              </Band>
              <Band id="body">
                <Cell text="bind:etccnts"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_infctioninfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="aptnm" type="STRING" size="256"/>
          <Column id="sexflag" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="isoldispcd" type="STRING" size="256"/>
          <Column id="isoldiagcd" type="STRING" size="256"/>
          <Column id="etccnts" type="STRING" size="256"/>
          <Column id="testrsltdt" type="STRING" size="256"/>
          <Column id="dispfromdt" type="STRING" size="256"/>
          <Column id="disptodt" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="lastupdtid" type="STRING" size="256"/>
          <Column id="isoldiagcdnm" type="STRING" size="256"/>
          <Column id="seqno" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="status" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="aptnm"/>
            <Col id="sexflag"/>
            <Col id="age"/>
            <Col id="isoldispcd">B</Col>
            <Col id="isoldiagcd"/>
            <Col id="etccnts"/>
            <Col id="testrsltdt"/>
            <Col id="dispfromdt"/>
            <Col id="disptodt"/>
            <Col id="fstrgstrid"/>
            <Col id="fstrgstdt"/>
            <Col id="lastupdtid"/>
            <Col id="isoldiagcdnm"/>
            <Col id="seqno"/>
            <Col id="indd"/>
            <Col id="cretno"/>
            <Col id="status"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="reqdata" type="STRING" size="256"/>
          <Column id="savedata" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="reqdata"/>
            <Col id="savedata"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden_condition" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="indd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="isoldispcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="indd"/>
            <Col id="cretno"/>
            <Col id="orddeptcd"/>
            <Col id="isoldispcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_hidden" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo/>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="infclist" type="STRING" size="256"/>
          <Column id="getinfclist" type="STRING" size="256"/>
          <Column id="paminfo" type="STRING" size="256"/>
          <Column id="isolinfo" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="A0140list" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send_reqdata" 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 'com_departmentcodexp::ZSD001.xjs';
include 'com_basiccodexp::ZBC001.xjs';


function SPASB01700_onload(obj:Form, e:LoadEventInfo) {
	frmf_initForm(obj); 
	grdf_initGrid(grd_isolate); 
	//grdf_setGridSort(grd_XXX); 
	//grdf_setRowTypeIcon(grd_XXX, 0_컬럼위치값); 

	// 					zbcfGetCodeList(new Array( "A0140"), 
	// 					new Array( "ds_init_A0140list"));	

	var arrParam = [ 
		{dsNm: "ds_init_A0140list_A0140",  cdGrpId: "A0140" }
	];
	appf_getCodeList(arrParam);
	

	//model.refresh();

	var pid = "";
	var strRegtdt = "";
	var iDate = new Date();
	var strYearCal = "";

	var pamInfoCvs = sysf_getGlobalVariable("paminfo");  //상단정보가 있을 경우는 검색

	if(pamInfoCvs != ""){ //cvs가 ""이 아닌 경우에만 처리함.					
		ds_main_paminfo_list.clearData();
		dsf_setCSVToDs("ds_main_paminfo", pamInfoCvs);
		var ioflag = ds_main_paminfo_list.getColumn(0, "ioflag");

		if(ioflag == "I" || ioflag == "E"||ioflag == "D"){
			ds_hidden_condition.setColumn( 0, "pid", ds_main_paminfo_list.getColumn(0, "pid") );	
			ds_hidden_condition.setColumn( 0, "indd", ds_main_paminfo_list.getColumn(0, "indd"));
			ds_hidden_condition.setColumn( 0, "cretno", ds_main_paminfo_list.getColumn(0, "cretno"));
			ds_hidden_condition.setColumn( 0, "orddeptcd", ds_main_paminfo_list.getColumn(0, "orddeptcd"));
			ds_hidden_condition.setColumn( 0, "isoldispcd", "B");

//model.refresh();

		}else if(ioflag == "O"){
			ds_hidden_condition.setColumn( 0, "pid", ds_main_paminfo_list.getColumn(0, "pid") );	
			ds_hidden_condition.setColumn( 0, "indd", ds_main_paminfo_list.getColumn(0, "orddd"));
			ds_hidden_condition.setColumn( 0, "cretno", ds_main_paminfo_list.getColumn(0, "cretno"));
			ds_hidden_condition.setColumn( 0, "orddeptcd", ds_main_paminfo_list.getColumn(0, "orddeptcd"));
			ds_hidden_condition.setColumn( 0, "isoldispcd", "B");

//model.refresh();

		}else{
			var rtn = sysf_messageBox("상단의 정보와 ", "E004");
			return;
		}
	}  //khj 실제사용로직 
	//									ds_hidden_condition.setColumn( 0, "pid", "22003" );	
	//									ds_hidden_condition.setColumn( 0, "indd", "20070906");
	//									ds_hidden_condition.setColumn( 0, "cretno","1");	
	//									ds_hidden_condition.setColumn( 0, "orddeptcd", "2011000000");

	ds_main_infctioninfo.setColumn( 0, "pid",  ds_main_paminfo_list.getColumn(0, "pid"));
	ds_main_infctioninfo.setColumn( 0, "aptnm", ds_main_paminfo_list.getColumn(0, "hngnm"));
	ds_main_infctioninfo.setColumn( 0, "sexflag", ds_main_paminfo_list.getColumn(0, "sex"));
	ds_main_infctioninfo.setColumn( 0, "age", ds_main_paminfo_list.getColumn(0, "age"));

	if(ds_hidden_condition.getColumn(0, "pid") != "" && ds_hidden_condition.getColumn(0, "pid") != null) {
		dsf_makeValue( ds_send_reqdata, "pid", "string", ds_hidden_condition.getColumn(0, "pid"));   
		dsf_makeValue( ds_send_reqdata, "indd", "string", ds_hidden_condition.getColumn(0, "indd"));   
		dsf_makeValue( ds_send_reqdata, "cretno", "string", ds_hidden_condition.getColumn(0, "cretno"));   
		dsf_makeValue( ds_send_reqdata, "orddeptcd", "string", ds_hidden_condition.getColumn(0, "orddeptcd"));
		dsf_makeValue( ds_send_reqdata, "isoldispcd", "string",  ds_hidden_condition.getColumn(0, "isoldispcd"));
		dsf_makeValue( ds_send_reqdata, "isolwrnflag", "string",  'Y');

		//					       submit("TRASB01101");
		var oParam = {};
			oParam.id          = "TRASB01101";
			oParam.service     = "infcbaseapp.IsolMngt";
			oParam.method      = "reqGetIsolDisp";
			oParam.inds        = "req=ds_send_reqdata";
			oParam.outds       = "ds_main_getinfclist_info=info";
			oParam.async       = false;

		tranf_submit(oParam);

	   var node = instance1.selectSingleNode("ds_main_getinfclist_info_seqno");
	   if( node != null && !utlf_isNull(node.value) ){

			   ds_main_infclist.clearData();
			dsf_makeValue( ds_main, "infclist", "string", "" );

			ds_main_infclist.copyData(ds_main_getinfclist); 
			model.copyNode("ds_main_infctioninfo", "ds_main_infclist_info[1]");

//model.refresh();

			//grd_infclist.select(1,1) = true;

	   } else if( (instance1.selectSingleNode("ds_main_getinfclist_info_pid")) != null ){
			dsf_makeValue( ds_main_infclist, "diaginfo", "string", "" );
			ds_main_infclist_diaginfo.copyData(ds_main_getinfclist_diaginfo); 

			model.copyNode("ds_main_infctioninfo", "ds_main_getinfclist_info[1]");
	   }
	}

	if( utlf_isNull(ds_main_infctioninfo.getColumn(0, "dispfromdt")) ){
		ds_main_infctioninfo.setColumn( 0, "dispfromdt", utlf_getCurrentDate());
	}
	grd_isolate.autoResize =  true;

	//model.refresh();

}
]]></Script>
  </Form>
</FDL>