YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMB02300_검체임상소견.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMB02300" position="absolute 0 0 789 491" titletext="검체임상소견" onload="SPMMB02300_onload" oninit="SPMMB02300_oninit">
    <Layouts>
      <Layout>
        <Tab position="absolute 0 0 784 488" id="switch1" style="buttonpadding:4 10 4 10;">
          <Tabpages>
            <Tabpage text="   검체   " id="case1">
              <Layouts>
                <Layout>
                  <Button position="absolute 480 1 522 20" id="button37" class="btn5" text="복사" onclick="switch1_case1_button37_onclick"/>
                  <Button position="absolute 740 1 782 20" id="button2" class="btn5" text="저장" onclick="switch1_case1_button2_onclick"/>
                  <Grid position="absolute 528 22 784 460" id="grd_uselpcmspcm" binddataset="ds_main_lpcmspcmlist" autofittype="col" selecttype="multirow" onrbuttondown="switch1_case1_grd_uselpcmspcm_onrbuttondown">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="35"/>
                          <Column size="199"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell/>
                          <Cell col="1" text="자주쓰는 병리검체"/>
                        </Band>
                        <Band id="body">
                          <Cell displaytype="combo" edittype="combo" text="bind:status" combodataset="ds_cmb_uselpcmspcm_status" combocodecol="value" combodatacol="label"/>
                          <Cell col="1" displaytype="normal" edittype="none" style="align:left;padding:0 0 0 5;" text="bind:spcnm"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                  <Grid position="absolute 271 22 527 460" id="grd_lpcmspcm" binddataset="ds_lpcmspcmlist" autofittype="col" oncelldblclick="switch1_case1_grd_lpcmspcm_oncelldblclick">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="20"/>
                          <Column size="175"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell/>
                          <Cell col="1" text="병리검체"/>
                        </Band>
                        <Band id="body">
                          <Cell displaytype="checkbox" edittype="checkbox" text="bind:status" expr="expr:(status==&quot;I&quot; || status==&quot;1&quot;)?1:0"/>
                          <Cell col="1" displaytype="normal" edittype="none" style="align:left;padding:0 0 0 5;" text="bind:spcnm"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                  <Grid position="absolute 0 22 270 460" id="datagrid1" binddataset="ds_prcpclscdlist" autofittype="col" onlbuttonup="switch1_case1_datagrid1_onlbuttonup">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="250"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell text="검체분류"/>
                        </Band>
                        <Band id="body">
                          <Cell style="align:left;padding:0 0 0 5;" text="bind:prcpclsnm"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                  <Radio position="absolute 594 2 734 21" id="radio1" columncount="2" codecolumn="codecolumn" datacolumn="datacolumn" onitemchanged="switch1_case1_radio1_onitemchanged">
                    <Dataset id="innerdataset">
                      <ColumnInfo>
                        <Column id="codecolumn"/>
                        <Column id="datacolumn"/>
                      </ColumnInfo>
                      <Rows>
                        <Row>
                          <Col id="codecolumn">all</Col>
                          <Col id="datacolumn">전체조회</Col>
                        </Row>
                        <Row>
                          <Col id="codecolumn">cls</Col>
                          <Col id="datacolumn">분류조회</Col>
                        </Row>
                      </Rows>
                    </Dataset>
                  </Radio>
                </Layout>
              </Layouts>
            </Tabpage>
            <Tabpage text="임상소견" id="case2">
              <Layouts>
                <Layout>
                  <Button position="absolute 693 0 735 19" id="button4" class="btn5" text="추가" onclick="switch1_case2_button4_onclick"/>
                  <Button position="absolute 739 0 781 19" id="button6" class="btn5" text="저장" onclick="switch1_case2_button6_onclick"/>
                  <Grid position="absolute 0 21 784 461" id="grd_clinccmtlist" binddataset="ds_clinccmtlist" autofittype="col" selecttype="multirow" onrbuttondown="switch1_case2_grd_clinccmtlist_onrbuttondown">
                    <Formats>
                      <Format id="default">
                        <Columns>
                          <Column size="35"/>
                          <Column size="711"/>
                        </Columns>
                        <Rows>
                          <Row size="24" band="head"/>
                          <Row size="24"/>
                        </Rows>
                        <Band id="head">
                          <Cell/>
                          <Cell col="1" text="자주쓰는 병리임상소견"/>
                        </Band>
                        <Band id="body">
                          <Cell displaytype="combo" edittype="combo" text="bind:status" combodataset="ds_cmb_uselpcmspcm_status" combocodecol="value" combodatacol="label"/>
                          <Cell col="1" displaytype="text" edittype="text" text="bind:etccnts"/>
                        </Band>
                      </Format>
                    </Formats>
                  </Grid>
                </Layout>
              </Layouts>
            </Tabpage>
          </Tabpages>
        </Tab>
        <Static text="진료과:" position="absolute 151 1 206 21" id="caption1"/>
        <Combo position="absolute 196 1 381 20" id="cmb_ordept" innerdataset="@ds_init_orddept" datacolumn="depthngnm" codecolumn="deptcd" onitemchanged="cmb_ordept_onitemchanged"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_lpcmspcmlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="spckind" type="STRING" size="256"/>
          <Column id="spckindno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_lpcmspcmlist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_lpcmspcmlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="spccd" type="STRING" size="256"/>
          <Column id="spcnm" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="spckind" type="STRING" size="256"/>
          <Column id="spckindno" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_prcpclscdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256" sumtext="기관코,"/>
          <Column id="prcpclscd1" type="STRING" size="256" sumtext="검체분류1"/>
          <Column id="prcpclscd2" type="STRING" size="256" sumtext="검체분류2"/>
          <Column id="prcpclscd3" type="STRING" size="256" sumtext="검체분류3"/>
          <Column id="prcpclsnm" type="STRING" size="256" sumtext="검체분류명"/>
          <Column id="calcscorcd" type="STRING" size="256" sumtext="수가코드"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_clinccmtlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_clinccmtlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="cdkind" type="STRING" size="256"/>
          <Column id="cdno" type="STRING" size="256"/>
          <Column id="etccnts" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_orddept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="depthngnm" type="STRING"/>
          <Column id="deptcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cond1" type="STRING" size="256"/>
          <Column id="cond2" type="STRING" size="256"/>
          <Column id="cond3" type="STRING" size="256"/>
          <Column id="cond4" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cond4">cls</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_totlpcmspcmlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="상태"/>
          <Column id="spccd" type="STRING" size="256" sumtext="검체코드"/>
          <Column id="spcnm" type="STRING" size="256" sumtext="검체명"/>
          <Column id="orddeptcd" type="STRING" size="256" sumtext="진료과코드"/>
          <Column id="spckind" type="STRING" size="256" sumtext="검체종류"/>
          <Column id="spckindno" type="STRING" size="256" sumtext="검체종류번호"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cmb_uselpcmspcm_status" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="label" type="STRING" size="256"/>
          <Column id="value" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="label">-</Col>
            <Col id="value">-</Col>
          </Row>
          <Row>
            <Col id="label">신규</Col>
            <Col id="value">I</Col>
          </Row>
          <Row>
            <Col id="label">수정</Col>
            <Col id="value">U</Col>
          </Row>
          <Row>
            <Col id="label">삭제</Col>
            <Col id="value">D</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_reset_clinccmtlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="cdkind" type="STRING" size="256"/>
          <Column id="cdno" type="STRING" size="256"/>
          <Column id="etccnts" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="status">I</Col>
          </Row>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="cmb_ordept" propid="value" datasetid="ds_init" columnid="orddeptcd"/>
      <BindItem id="item1" compid="switch1.case1.radio1" propid="value" datasetid="ds_send" columnid="cond4"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-08-29
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-08-29      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
//=======================================================================================
// Lib Include
//---------------------------------------------------------------------------------------
include "com_commonxp::comm_main.xjs"
include "emr_prcpmngtxp::MMOCommon.xjs"
include "emr_medirecxp::MMRCommon.xjs"

var arErrorCode = new HashArray();
//=======================================================================================
// Event
//---------------------------------------------------------------------------------------
function SPMMB02300_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);  // 폼 초기화 
}

/****************************************************************************************
 * Components		: Form
 * Components ID	: SPMMB02300
 * Event			: onload
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 화면 로드시 초기화 함수 실행
 ****************************************************************************************/
function SPMMB02300_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(switch1.case1.grd_lpcmspcm);
	// 팝업메뉴 생성
	frmf_createPopupMenu("del_grd_uselpcmspcm"
						,"fDeleteRow" 
						,[{id: "D", level: "0", title: "삭제"}]
						);
	frmf_createPopupMenu("del_grd_clinccmtlist"
						,"fSpcDeleteRow" 
						,[{id: "D", level: "0", title: "삭제"}]
						);
							
	switch1.tabindex = 0;
	lf_mmbfGetDeptCodeComboList(ds_init_orddept, "A");
	ds_init.setColumn(0,"orddeptcd",sysf_getUserInfo("dutplcecd"));

	var oParam = {};
		oParam.id       = "TRMMB02304";
		oParam.service  = "prcpbaseapp.OrdPrcpMngt";
		oParam.method   = "reqGetLpcmspcmCls";
		oParam.inds     = "req=ds_send";
		oParam.outds    = "ds_prcpclscdlist=prcpclscdlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMMB02304";

	tranf_submit(oParam);
	
	var calcscorcd = ds_prcpclscdlist.getColumn(0,"calcscorcd");

	if (!utlf_isNull(cmb_ordept.text)) {
		cmb_ordept.enable = false;
		ds_send.setColumn(0,"cond1",ds_init.getColumn(0,"orddeptcd"));
		ds_send.setColumn(0,"cond2","1");
		ds_send.setColumn(0,"cond3",calcscorcd);
		
		var oParam = {};
			oParam.id       = "TRMMB02302";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetUseLpcmspcm";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist ds_main_totlpcmspcmlist=totlpcmspcmlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		var oParam = {};
			oParam.id       = "TRMMB02211";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetClincCmtList";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_clinccmtlist=clinccmtlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);

		fColorSetting();	        			        
	} else {
		cmb_ordept.enable = true;
		ds_main_lpcmspcmlist.clear();
		ds_clinccmtlist.clear();
	}				
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: switch1.case1.datagrid1
 * Event			: onlbuttonup
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 검체 분류 선택시 병리검체 조회
 ****************************************************************************************/
function switch1_case1_datagrid1_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row > -1){
		var calcscorcd = ds_prcpclscdlist.getColumn(e.row,"calcscorcd");
		ds_send.setColumn(0,"cond1",calcscorcd);
		
		var oParam = {};
			oParam.id       = "TRMMB02301";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetLpcmspcm";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_lpcmspcmlist=lpcmspcmlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
										   
		if (!utlf_isNull(cmb_ordept.text)) {
			ds_send.setColumn(0,"cond1",ds_init.getColumn(0,"orddeptcd"));
			ds_send.setColumn(0,"cond2","1");
			ds_send.setColumn(0,"cond3",calcscorcd);
			
			var oParam = {};
				oParam.id       = "TRMMB02302";
				oParam.service  = "prcpbaseapp.OrdPrcpMngt";
				oParam.method   = "reqGetUseLpcmspcm";
				oParam.inds     = "req=ds_send";
				oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist ds_main_totlpcmspcmlist=totlpcmspcmlist";
				oParam.async    = false;
				oParam.callback = "";

			tranf_submit(oParam);
		}	
		fColorSetting();			
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: switch1.case1.grd_lpcmspcm
 * Event			: oncelldblclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 병리검체 더블클릭시 자주쓰는 병리검체에 추가
 ****************************************************************************************/
function switch1_case1_grd_lpcmspcm_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	if(e.row > -1){
		var spcnm 		= ds_lpcmspcmlist.getColumn(e.row,"spcnm");
		var spccd 		= ds_lpcmspcmlist.getColumn(e.row,"spccd");
		
		var totchkspccd = ds_main_totlpcmspcmlist.getColumn(ds_main_totlpcmspcmlist.findRow("spccd",spccd),"spccd");
		var chckspccd   = ds_main_lpcmspcmlist.getColumn(ds_main_lpcmspcmlist.findRow("spccd",spccd),"spccd");
		
		var totchkspcnm = ds_main_totlpcmspcmlist.getColumn(ds_main_totlpcmspcmlist.findRow("spcnm",spcnm),"spcnm");
		var chckspcnm   = ds_main_lpcmspcmlist.getColumn(ds_main_lpcmspcmlist.findRow("spcnm",spcnm),"spcnm");
		
		if(utlf_isNull(totchkspccd) && utlf_isNull(chckspccd)){
			ds_lpcmspcmlist.setColumn(e.row,"status","I");
			ds_lpcmspcmlist.setColumn(e.row,"orddeptcd",ds_init.getColumn(0,"orddeptcd"));
//			model.duplicate ( "/root/main/lpcmspcm", "/root/lpcmspcmsrch/lpcmspcmlist[" + grd_lpcmspcm.row + "]" , "*[1]");
			ds_main_lpcmspcmlist.copyRow(ds_main_lpcmspcmlist.insertRow(0),ds_lpcmspcmlist,e.row);
		} else {
			sysf_messageBox ("[" + spcnm + "]는 이미 있는 검체명", "E008" );
		}
	}					
}

/****************************************************************************************
 * Components		: Dataset
 * Components ID	: ds_lpcmspcmlist
 * Event			: oncolumnchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 병리검체 체크박스 체크
 ****************************************************************************************/
function ds_lpcmspcmlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid=="status") {
		obj.setColumn(e.row,e.columnid,(e.newvalue=="I"||e.newvalue==1)?"I":"N");
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: switch1.case1.button37
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 복사버튼 클릭시 선택된 병리검체 자주쓰는 병리검체에 일괄 복사
 ****************************************************************************************/
function switch1_case1_button37_onclick(obj:Button,  e:ClickEventInfo)
{
	var spccd = "";
	for(var i = 0 ; i < ds_lpcmspcmlist.rowcount ; i++ ) {								
		if(ds_lpcmspcmlist.getColumn(i,"status") == "I" ) {
			spccd = ds_lpcmspcmlist.getColumn(i,"spccd");
			if(utlf_isNull(ds_main_lpcmspcmlist.getColumn(ds_main_lpcmspcmlist.findRow("spccd",spccd),"spccd"))) {
				ds_lpcmspcmlist.setColumn(i,"orddeptcd",ds_init.getColumn(0,"orddeptcd"));
// 				var pDestNode = model.instances(0).selectSingleNode("/root/main/lpcmspcm");
// 				var pSrchNode = model.instances(0).selectSingleNode("/root/lpcmspcmsrch/lpcmspcmlist[" + i + "]");
// 				pDestNode.appendChild(pSrchNode.cloneNode(true));
				ds_main_lpcmspcmlist.copyRow(ds_main_lpcmspcmlist.addRow(),ds_lpcmspcmlist,i);
			} else {
				sysf_messageBox(ds_lpcmspcmlist.getColumn(ds_lpcmspcmlist.findRow("spccd",spccd),"spcnm") + "는 이미 있는 검체명 입니다", "E" );
			}
		}
	}
}

/****************************************************************************************
 * Components		: Radio
 * Components ID	: switch1.case1.radio1
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 전체조회 분류조회 라디오 버튼 선택
 ****************************************************************************************/
function switch1_case1_radio1_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	if(!utlf_isNull(cmb_ordept.text)) {
		var calcscorcd = ds_prcpclscdlist.getColumn(ds_prcpclscdlist.rowposition,"calcscorcd");
		ds_send.setColumn(0,"cond1",ds_init.getColumn(0,"orddeptcd"));
		ds_send.setColumn(0,"cond2","1");
		ds_send.setColumn(0,"cond3",calcscorcd);
		var oParam = {};
			oParam.id       = "TRMMB02302";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetUseLpcmspcm";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist ds_main_totlpcmspcmlist=totlpcmspcmlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: switch1.case1.grd_uselpcmspcm
 * Event			: onrbuttondown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 자주쓰는 병리검체 우클릭시
 ****************************************************************************************/
function switch1_case1_grd_uselpcmspcm_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row > -1) {
		//ds_main_lpcmspcmlist.rowposition = e.row;
		//fMouseRghtBtnPopup();
		del_grd_uselpcmspcm.trackPopup(e.screenX,e.screenY);
	}	
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: switch1.case1.button2
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 저장버튼 클릭
 ****************************************************************************************/
function switch1_case1_button2_onclick(obj:Button,  e:ClickEventInfo)
{
// 	var saveClincCmt = model.instances(0).selectNodes( "/root/main/lpcmspcm/lpcmspcmlist" );	
// 	model.setValue ( "/root/send/cond1", getNodeListCSV(saveClincCmt)); 		
	dsf_createDs("ds_send_lpcmspcmlist");
	ds_send_lpcmspcmlist.copyData(ds_main_lpcmspcmlist);
	
	var oParam = {};
		oParam.id       = "TXMMB02301";
		oParam.service  = "prcpbaseapp.OrdPrcpMngt";
		oParam.method   = "reqExeSaveUseLpcmspcm";
		oParam.inds     = "lpcmspcmlist=ds_send_lpcmspcmlist";
		oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist";
		oParam.async    = false;
		oParam.callback = "";

	tranf_submit(oParam);
	
	if (!utlf_isNull(cmb_ordept.text)) {
		var calcscorcd = ds_prcpclscdlist.getColumn(ds_prcpclscdlist.rowposition,"calcscorcd");

		ds_send.setColumn(0,"cond1",ds_init.getColumn(0,"orddeptcd"));
		ds_send.setColumn(0,"cond2","1");
		ds_send.setColumn(0,"cond3",calcscorcd);
		
		var oParam = {};
			oParam.id       = "TRMMB02302";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetUseLpcmspcm";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist ds_main_totlpcmspcmlist=totlpcmspcmlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
	}				
	dsf_deleteDs("ds_send_lpcmspcmlist");
	fColorSetting();
}

/****************************************************************************************
 * Components		: Combo
 * Components ID	: cmb_ordept
 * Event			: onitemchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 
 ****************************************************************************************/
function cmb_ordept_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	if (!utlf_isNull(cmb_ordept.text)) {
		ds_send.setColumn(0,"cond1",ds_init.getColumn(0,"orddeptcd"));
		ds_send.setColumn(0,"cond2","1");
		
		var oParam = {};
			oParam.id       = "TRMMB02302";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetUseLpcmspcm";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_main_lpcmspcmlist=lpcmspcmlist ds_main_totlpcmspcmlist=totlpcmspcmlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		var oParam = {};
			oParam.id       = "TRMMB02211";
			oParam.service  = "prcpbaseapp.OrdPrcpMngt";
			oParam.method   = "reqGetClincCmtList";
			oParam.inds     = "req=ds_send";
			oParam.outds    = "ds_clinccmtlist=clinccmtlist";
			oParam.async    = false;
			oParam.callback = "";

		tranf_submit(oParam);
		
		fColorSetting();
	} else {
		ds_main_lpcmspcmlist.clear();
		ds_clinccmtlist.clear();
	}
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: switch1.case2.button4
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 추가버튼 클릭
 ****************************************************************************************/
function switch1_case2_button4_onclick(obj:Button,  e:ClickEventInfo)
{
	ds_reset_clinccmtlist.setColumn(0,"cdkind","1");
	ds_reset_clinccmtlist.setColumn(0,"orddeptcd",ds_init.getColumn(0,"orddeptcd"));
//	appendChildPrcp ( "/root/reset/clinccmtlist", "/root/clinccmt", "main" );
	ds_clinccmtlist.copyRow(ds_clinccmtlist.addRow(),ds_reset_clinccmtlist,0);
}

/****************************************************************************************
 * Components		: Button
 * Components ID	: switch1.case2.button6
 * Event			: onclick
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 저장버튼 클릭
 ****************************************************************************************/
function switch1_case2_button6_onclick(obj:Button,  e:ClickEventInfo)
{
// 	var saveClincCmt = model.instances(0).selectNodes( "/root/clinccmt/clinccmtlist" );	
// 	model.setValue ( "/root/send/cond1", getNodeListCSV(saveClincCmt)); 				
	dsf_createDs("ds_send_clinccmtlist");
	ds_send_clinccmtlist.copyData(ds_clinccmtlist);

	var oParam = {};
		oParam.id       = "TXMMB02211";
		oParam.service  = "prcpbaseapp.OrdPrcpMngt";
		oParam.method   = "reqExeSaveClincCmt";
		oParam.inds     = "clinccmtlist=ds_send_clinccmtlist";
		oParam.outds    = "ds_clinccmtlist=clinccmtlist";
		oParam.async    = false;
		oParam.callback = "";

	tranf_submit(oParam);
	dsf_deleteDs("ds_send_clinccmtlist");
}

/****************************************************************************************
 * Components		: Dataset
 * Components ID	: ds_clinccmtlist
 * Event			: oncolumnchanged
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 임상소견 내용 변경시
 ****************************************************************************************/
function ds_clinccmtlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	var status = ds_clinccmtlist.getColumn(ds_clinccmtlist.rowposition,"status");
	if (status=="-" ) {
		ds_clinccmtlist.setColumn(ds_clinccmtlist.rowposition,"status","U");
	}
}

/****************************************************************************************
 * Components		: Grid
 * Components ID	: switch1.case2.grd_clinccmtlist
 * Event			: onrbuttondown
 * Argument			: 01.obj	: Object Event has occurred
 *					: 02.e		: Event Object
 * Description		: 자주쓰는 병리임상소견 우클릭시
 ****************************************************************************************/
function switch1_case2_grd_clinccmtlist_onrbuttondown(obj:Grid, e:GridMouseEventInfo)
{
	if(e.row > -1) {
		del_grd_clinccmtlist.trackPopup(e.screenX,e.screenY);
	}	
}

//=======================================================================================
// Function
//---------------------------------------------------------------------------------------
/****************************************************************************************
 * Function			: cf_TRMMB02304
 * Description		: TRMMB02304 콜백함수
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function cf_TRMMB02304(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
    else {
		var calcscorcd = ds_prcpclscdlist.getColumn(0,"calcscorcd");
		if (!utlf_isNull(calcscorcd)) {
			ds_prcpclscdlist.rowposition = 0;
			ds_send.setColumn(0,"cond1",calcscorcd);
			var oParam = {};
				oParam.id       = "TRMMB02301";
				oParam.service  = "prcpbaseapp.OrdPrcpMngt";
				oParam.method   = "reqGetLpcmspcm";
				oParam.inds     = "req=ds_send";
				oParam.outds    = "ds_lpcmspcmlist=lpcmspcmlist";
				oParam.async    = false;
				oParam.callback = "";

			tranf_submit(oParam);
		}
	}
}

/****************************************************************************************
 * Function			: fColorSetting
 * Description		: 그리드 폰트 세팅
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fColorSetting () {
	for(var i = 0; i <= ds_lpcmspcmlist.rowcount ; i++ ) {
		var spccd = ds_lpcmspcmlist.getColumn(i,"spccd");
		if(ds_main_totlpcmspcmlist.findRow("spccd",spccd) >= 0) {
			dsf_makeValue(ds_lpcmspcmlist,"chkbold","string","Y",i);
		}
	}
	var sExpr1 ="font:EXPR(getColumn(currow,'chkbold')=='Y'?&quot;Dotum,9,bold&quot;:&quot;Dotum,9&quot;)"
	          +";align:&quot;left&quot;";
	switch1.case1.grd_lpcmspcm.setCellProperty("body", 1, "style", sExpr1);
}

/****************************************************************************************
 * Function			: fDeleteRow
 * Description		: 자주쓰는 병리검체 삭제
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fDeleteRow () {
	var selectedRows = grdf_getSelectedRows(switch1.case1.grd_uselpcmspcm);
	
	for(var i= selectedRows.length-1; i > -1;  i--){
		var status = ds_main_lpcmspcmlist.getColumn(selectedRows[i],"status");
		if (status=="-" || status=="U" ) {
			ds_main_lpcmspcmlist.setColumn(selectedRows[i],"status","D");
		} else if ( status =="I" ){
			ds_main_lpcmspcmlist.deleteRow(selectedRows[i]);
		} else if (status=="D" ) {
			ds_main_lpcmspcmlist.setColumn(selectedRows[i],"status","-");
		}
	}
}

/****************************************************************************************
 * Function			: fSpcDeleteRow
 * Description		: 자주쓰는 병리임상소견 삭제
 * Argument			: 
 *					: 
 * return type		: 
 * Creator			: 
 ****************************************************************************************/
function fSpcDeleteRow () {
	var selectedRows = grdf_getSelectedRows(switch1.case2.grd_clinccmtlist);
	
	for (var i= selectedRows.length-1; i > -1;  i--){
		var status = ds_clinccmtlist.getColumn(selectedRows[i],"status");
		if (status=="-" || status=="U" ) {
			ds_clinccmtlist.setColumn(selectedRows[i],"status","D");
		} else if ( status =="I" ){
			ds_clinccmtlist.deleteRow(selectedRows[i]);
		} else if (status=="D" ) {
			ds_clinccmtlist.setColumn(selectedRows[i],"status","-");
		}
	}
}

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