YNU_JEUS/app_home/himed/xpapps/ast/hsctxp/xp/SMABO01400_보험신청의뢰리스트.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMABO01400" position="absolute 0 0 1198 790" titletext="조혈모세포이식 신청/보험신청의뢰 리스트" oninit="SMABO01400_oninit" onload="SMABO01400_onload">
    <Layouts>
      <Layout>
        <Static id="caption6" text="조혈모세포이식 신청/보험신청의뢰 리스트" class="tit_1" position="absolute 0 0 343 25"/>
        <Button id="btn_prt" taborder="1" text="출력" class="btn6" visible="false" position="absolute 0 26 56 48" onclick="btn_prt_onclick"/>
        <Button id="btn_save" taborder="2" text="저장" class="btn4" position="absolute 1138 26 1194 48" onclick="btn_save_onclick"/>
        <Div id="grp_sea" taborder="3" class="div_SA2" position="absolute 0 49 1194 89">
          <Layouts>
            <Layout>
              <Static id="caption2" text="기간(의뢰일) :" class="search_name" position="absolute 15 11 127 28"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 233 12 245 29"/>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 1104 9 1110 31"/>
              <Calendar id="ipt_reqfromdd" taborder="1" class="input_s_essential" position="absolute 130 10 230 29" autoselect="true" autoskip="true"/>
              <Calendar id="ipt_reqtodd" taborder="2" class="input_s_essential" position="absolute 249 10 349 29" autoselect="true" autoskip="true"/>
              <Combo id="cmb_adoct" taborder="3" innerdataset="@ds_init_cmbinfo_atdoctid_A0536" codecolumn="hsctmdlcd" datacolumn="hsctmdlnm" class="combo_search" position="absolute 440 10 540 29"/>
              <Static id="caption4" text="주치의 :" class="search_name" position="absolute 364 11 437 28"/>
              <Button id="btn_sea" taborder="4" text="조회" class="btn1" position="absolute 1123 9 1179 31"/>
              <Static id="caption7" text="등록번호 :" class="search_name" position="absolute 555 11 641 28"/>
              <Button id="btn_srchpat" taborder="5" class="icon_search" position="absolute 727 12 743 28" onclick="grp_sea_btn_srchpat_onclick"/>
              <Edit id="input2" taborder="6" class="input_search" position="absolute 644 10 724 29" autoselect="true" autoskip="true" onkeydown="grp_sea_input2_onkeydown"/>
              <Edit id="output17" taborder="7" readonly="true" class="output" position="absolute 746 10 826 29"/>
              <Edit id="output5" taborder="8" readonly="true" class="output" position="absolute 829 10 859 29"/>
              <Edit id="output6" taborder="9" readonly="true" class="output" position="absolute 862 10 892 29"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_excsave" taborder="4" text="엑셀저장" class="btn7" position="absolute 1114 97 1194 116" onclick="btn_excsave_onclick"/>
        <Shape id="line1" class="line_10" position="absolute 0 116 1194 122"/>
        <Grid id="grd_trnptlist" taborder="5" binddataset="ds_main_insulist_item2" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 121 1194 451" onrbuttondown="grd_trnptlist_onrbuttondown">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="83"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="140"/>
                <Column size="120"/>
                <Column size="43"/>
                <Column size="94"/>
                <Column size="91"/>
                <Column size="80"/>
                <Column size="40"/>
              </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="이식종류"/>
                <Cell col="5" text="이식종류"/>
                <Cell col="6" text="Stem Cell Source"/>
                <Cell col="7" text="Conditioning regimen"/>
                <Cell col="8" text="GvHD prophylaxis"/>
                <Cell col="9" text="PCPP"/>
                <Cell col="10" text="의뢰일"/>
                <Cell col="11" text="이식예정일"/>
                <Cell col="12" text="입원예정일"/>
                <Cell col="13" text="확인"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" edittype="none" text="bind:hngnm"/>
                <Cell col="2" edittype="none" text="bind:pid"/>
                <Cell col="3" edittype="none" text="bind:reqnm"/>
                <Cell col="4" text="bind:trnptkind"/>
                <Cell col="5" text="bind:trnptkindcd"/>
                <Cell col="6" text="bind:scs"/>
                <Cell col="7" text="bind:cond"/>
                <Cell col="8" text="bind:gvhd"/>
                <Cell col="9" displaytype="checkbox" edittype="checkbox" text="bind:pcppyn" expr="expr:pcppyn == 'Y' ? 1 : 0"/>
                <Cell col="10" displaytype="date" text="bind:reqdd" calendardisplaynulltype="nulltext"/>
                <Cell col="11" displaytype="date" text="bind:trnptschedd" calendardisplaynulltype="nulltext"/>
                <Cell col="12" displaytype="date" text="bind:inschedd" calendardisplaynulltype="nulltext"/>
                <Cell col="13" displaytype="checkbox" edittype="checkbox" text="bind:reqqualyn" expr="expr:reqqualyn == 'Y' ? 1 : 0"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static id="caption1" text="조혈모세포이식 신청LIST" class="tit_2" position="absolute 0 100 200 122"/>
        <Shape id="line2" class="line_10" position="absolute 0 477 1194 483"/>
        <Static id="caption3" text="보험신청의뢰 리스트" class="tit_2" position="absolute 0 461 200 482"/>
        <Grid id="grd_insulist" taborder="6" binddataset="ds_main_insulist_item" autoenter="select" useinputpanel="false" cellsizingtype="col" autofittype="col" position="absolute 0 482 1194 787">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="22"/>
                <Column size="76"/>
                <Column size="69"/>
                <Column size="65"/>
                <Column size="122"/>
                <Column size="65"/>
                <Column size="149"/>
                <Column size="75"/>
                <Column size="100"/>
                <Column size="100"/>
                <Column size="112"/>
                <Column size="87"/>
                <Column size="60"/>
                <Column size="65"/>
              </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="진단명"/>
                <Cell col="5" text="이식종류"/>
                <Cell col="6" text="이식종류"/>
                <Cell col="7" text="공여자명"/>
                <Cell col="8" text="의뢰일"/>
                <Cell col="9" text="의뢰자명"/>
                <Cell col="10" text="코디네이터실확인"/>
                <Cell col="11" text="서류준비여부"/>
                <Cell col="12" text="승인여부"/>
                <Cell col="13" text="보험여부"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" text="bind:hngnm"/>
                <Cell col="2" text="bind:pid"/>
                <Cell col="3" text="bind:reqnm"/>
                <Cell col="4" text="bind:diagnm"/>
                <Cell col="5" text="bind:trnptkind"/>
                <Cell col="6" text="bind:trnptkindcd"/>
                <Cell col="7" text="bind:dnornm"/>
                <Cell col="8" displaytype="date" text="bind:reqdd" calendardisplaynulltype="nulltext"/>
                <Cell col="9" text="bind:reqnm"/>
                <Cell col="10" displaytype="checkbox" edittype="checkbox" text="bind:reqqualyn" expr="expr:reqqualyn == 'Y' ? 1 : 0"/>
                <Cell col="11" displaytype="checkbox" edittype="checkbox" text="bind:docuprepyn" expr="expr:docuprepyn == 'Y' ? 1 : 0"/>
                <Cell col="12" text="bind:insuaprvkind"/>
                <Cell col="13" text="bind:InsuKind"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="button1" taborder="7" text="엑셀저장" class="btn7" position="absolute 1114 458 1194 477" onclick="button1_onclick"/>
        <PopupMenu id="pmn_menu1" position="absolute 1206 101 1293 123" innerdataset="@ds_menu" idcolumn="func" levelcolumn="level" captioncolumn="label" onmenuclick="pmn_menu1_onmenuclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqfromdd" type="STRING" size="256"/>
          <Column id="reqtodd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="atdoctid" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="reqfromdd"/>
            <Col id="reqtodd"/>
            <Col id="pid"/>
            <Col id="atdoctid"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_insulist_item2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_insulist_item2_oncolumnchanged">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="reqnm" type="STRING" size="256" sumtext="주치의"/>
          <Column id="trnptkind" type="STRING" size="256" sumtext="이식종류"/>
          <Column id="trnptkindcd" type="STRING" size="256" sumtext="이식종류"/>
          <Column id="scs" type="STRING" size="256" sumtext="scs"/>
          <Column id="cond" type="STRING" size="256" sumtext="Conditioning regimen"/>
          <Column id="gvhd" type="STRING" size="256" sumtext="GvHD prophylaxis"/>
          <Column id="pcppyn" type="STRING" size="256" sumtext="pcppyn"/>
          <Column id="reqdd" type="STRING" size="256" sumtext="의뢰일"/>
          <Column id="trnptschedd" type="STRING" size="256" sumtext="이식예정일"/>
          <Column id="inschedd" type="STRING" size="256" sumtext="입원예정일"/>
          <Column id="reqqualyn" type="STRING" size="256" sumtext="확인"/>
          <Column id="reqorddept" type="STRING" size="256" sumtext="의뢰진료과"/>
          <Column id="reqid" type="STRING" size="256" sumtext="의뢰의사"/>
          <Column id="indirectrustyn" type="STRING" size="256" sumtext="입원장위임여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_insulist_item" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_insulist_item_oncolumnchanged">
        <ColumnInfo>
          <Column id="hngnm" type="STRING" size="256" sumtext="환자명"/>
          <Column id="pid" type="STRING" size="256" sumtext="등록번호"/>
          <Column id="reqnm" type="STRING" size="256" sumtext="주치의"/>
          <Column id="diagnm" type="STRING" size="256" sumtext="진단명"/>
          <Column id="trnptkind" type="STRING" size="256" sumtext="이식종류"/>
          <Column id="trnptkindcd" type="STRING" size="256" sumtext="이식종류"/>
          <Column id="dnornm" type="STRING" size="256" sumtext="공여자명"/>
          <Column id="reqdd" type="STRING" size="256" sumtext="의뢰일"/>
          <Column id="reqnm" type="STRING" size="256" sumtext="의뢰자명"/>
          <Column id="reqqualyn" type="STRING" size="256" sumtext="코디네이터실확인"/>
          <Column id="docuprepyn" type="STRING" size="256" sumtext="서류준비여부"/>
          <Column id="insuaprvkind" type="STRING" size="256" sumtext="보험여부"/>
          <Column id="insukind" type="STRING" size="256" sumtext="사후심사여부"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_atdoctid_A0536" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="hsctmdlcd" type="STRING" size="256"/>
          <Column id="hsctmdlnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_cmbinfo_sex_P0313" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_main_hsctinfo_patinfolist" 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="hngnm" type="STRING" size="256"/>
          <Column id="sex" type="STRING" size="256"/>
          <Column id="age" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="pid"/>
            <Col id="hngnm"/>
            <Col id="sex"/>
            <Col id="age"/>
            <Col id="rrgstno1"/>
            <Col id="rrgstno2"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_menu" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="func" type="STRING" size="256"/>
          <Column id="label" type="STRING" size="256"/>
          <Column id="level" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">입원의뢰서</Col>
            <Col id="func">fOpenPopupInRequest</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="popupendflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_patinfo_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="grp_sea.ipt_reqfromdd" propid="value" datasetid="ds_send" columnid="reqfromdd"/>
      <BindItem id="item1" compid="grp_sea.ipt_reqtodd" propid="value" datasetid="ds_send" columnid="reqtodd"/>
      <BindItem id="item2" compid="grp_sea.cmb_adoct" propid="value" datasetid="ds_send" columnid="atdoctid"/>
      <BindItem id="item3" compid="grp_sea.input2" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="pid"/>
      <BindItem id="item4" compid="grp_sea.output17" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="hngnm"/>
      <BindItem id="item5" compid="grp_sea.output5" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="age"/>
      <BindItem id="item6" compid="grp_sea.output6" propid="value" datasetid="ds_main_hsctinfo_patinfolist" columnid="sex"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-11-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "ast_hsctxp::bmtcommon.xjs";
function SMABO01400_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMABO01400_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_insulist);
	grdf_initGrid(grd_trnptlist);
	
	var arrParam = [{dsNm: "ds_init_cmbinfo_sex_P0313", cdGrpId: "P0313"}]
	appf_getCodeList(arrParam);
	
	var arrParam 	= [{dsNm: "ds_init_cmbinfo_atdoctid_A0536", cdGrpId: "A0536"}];
	aboGetCodeList(arrParam);
	
	ds_init_cmbinfo_atdoctid_A0536.insertRow(0);
	
	var reqfromdd = String(utlf_getCurrentDate()).substr(0,6).toDate().getAddDate(1,"D").getDateFormat("YYYYMMDD");
	ds_send.setColumn(0, "reqfromdd", reqfromdd);
	
	var reqtodd = String(utlf_getCurrentDate()).substr(0,6) + reqfromdd.toDate().getMonthDay();
	ds_send.setColumn(0, "reqtodd", reqtodd);
	
	fGetPatientInfo();
	
	btn_save.enable = frmf_checkAuth("X");
}

function fGetPatientInfo() 
{
	ds_send.setColumn(0, "pid", ds_main_hsctinfo_patinfolist.getColumn(0, "pid"));
	var oParam = {};
		oParam.id          = "TRABO01401";
		oParam.service     = "hsctcoordinatorapp.TrnptRequest";
		oParam.method      = "reqGetTrnptInsuReqList";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_main_insulist_item=item ds_main_insulist_item2=item2";
		oParam.async       = false;
		//oParam.callback    = "cf_TRABO01401";

	tranf_submit(oParam);
}

function ds_main_insulist_item_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if( e.columnid == "reqqualyn" )
	{
		obj.setColumn(e.row, "reqqualyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if( e.columnid == "docuprepyn" )
	{
		obj.setColumn(e.row, "docuprepyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function ds_main_insulist_item2_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if( e.columnid == "pcppyn" )
	{
		obj.setColumn(e.row, "pcppyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	if( e.columnid == "reqqualyn" )
	{
		obj.setColumn(e.row, "reqqualyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
}

function btn_excsave_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_trnptlist, "조혈모세포이식신청리스트", "see");
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	grdf_exportExcel(grd_insulist, "보험신청의뢰리스트", "see");
}

function grd_trnptlist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	pmn_menu1.trackPopup(e.screenX,e.screenY);
}

function fOpenPopupInRequest() 
{
	var sPid      = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "pid");
	var sHngNm    = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "hngnm");
	var sOrdDept  = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "reqorddept");
	var sReqID    = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "reqid");
	var sInsuKind = "";
	var sSuppKind = "";
	var sOrdDD    = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "inschedd");
	var sCretNo   = "";
	var sIOFlag   = "I";
	
	var sflag = sPid + "▦" + sHngNm + "▦" + sOrdDept + "▦" + sReqID + "▦" + sInsuKind + "▦" + sSuppKind + "▦" + sOrdDD + "▦" + sCretNo + "▦" + sIOFlag;
	var indirectrustyn    = ds_main_insulist_item2.getColumn(ds_main_insulist_item2.rowposition, "indirectrustyn");
	
	if (indirectrustyn == "Y")
	{
		frmf_setParameter("SPMMO00100_BMTDEPTCD",     "3140000000" );
		frmf_setParameter("SPMMO00100_param", sflag);
		
		frmf_modal("SPMMO00100", "SPMMO00100", "", "", "", "", "", "", "", "", "", "", "M");	
	}
	else
	{
		sysf_messageBox("입원장 위임을 받지 않아서 입원의뢰서를 작성할 수 없습니다.","E999");
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo)
{
	dsf_setFixVal(ds_main_insulist_item, "trnptflag:A");
	dsf_setFixVal(ds_main_insulist_item2, "trnptflag:H");
		
	var oParam = {};
		oParam.id          = "TXABO01401";
		oParam.service     = "hsctcoordinatorapp.TrnptRequest";
		oParam.method      = "reqSetReqConfirm";
		oParam.inds        = "insulist=ds_main_insulist_item:u trnptlist=ds_main_insulist_item2:u";
		oParam.outds       = "ds_=item";
		oParam.typeStr     = "m";
		oParam.async       = false;
		//oParam.callback    = "cf_TXABO01401";

	tranf_submit(oParam);
	
	fGetPatientInfo();
}

function btn_prt_onclick(obj:Button,  e:ClickEventInfo)
{
	//미사용
}

function grp_sea_input2_onkeydown(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		grp_sea.btn_sea.click();
	}
}

function grp_sea_btn_srchpat_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_main.setColumn(0, "popupendflag", "cancel");

	if ( abofGetPamPatientSearch("ds_main_hsctinfo_patinfolist", "ds_patinfolist", "P") ) 
	{
		ds_main_hsctinfo_patinfolist.setColumn(0, "pid", ds_patinfolist.getColumn(0, "pid"));
		ds_main_hsctinfo_patinfolist.setColumn(0, "hngnm", ds_patinfolist.getColumn(0, "hngnm"));
		ds_main_hsctinfo_patinfolist.setColumn(0, "age", ds_patinfolist.getColumn(0, "age"));
		ds_main_hsctinfo_patinfolist.setColumn(0, "sex", ds_patinfolist.getColumn(0, "sex"));
		
		fGetPatientInfo();
	}
}

function pmn_menu1_onmenuclick(obj:PopupMenu, e:MenuClickEventInfo)
{
	eval(e.id +"();");
}
]]></Script>
  </Form>
</FDL>