YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SPMNE02302_파랑새심폐소생처방기준자료.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNE02302" position="absolute 0 0 813 470" titletext="파랑새심폐소생기록 처방기준자료" oninit="SPMNE02302_oninit" onload="SPMNE02302_onload" ontimer="SPMNE02302_ontimer">
    <Layouts>
      <Layout>
        <Shape position="absolute 0 31 165 45" linetype="horizontal" id="line1" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
        <Grid position="absolute 0 40 165 465" id="grd_prcpdivslist" binddataset="ds_main_prcpdivsinfo_prcpdivslist" oncellclick="grd_prcpdivslist_oncellclick">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="0"/>
                <Column size="164"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="cdgrupid"/>
                <Cell col="1" text="cdid"/>
                <Cell col="2" text="valifromdd"/>
                <Cell col="3" text="grupdetldesc"/>
                <Cell col="4" text="sortseq"/>
                <Cell col="5" text="valitodd"/>
                <Cell col="6" text="supcdid"/>
                <Cell col="7" text="분류명"/>
              </Band>
              <Band id="body">
                <Cell text="bind:cdgrupid"/>
                <Cell col="1" text="bind:cdid"/>
                <Cell col="2" text="bind:valifromdd"/>
                <Cell col="3" text="bind:grupdetldesc"/>
                <Cell col="4" text="bind:sortseq"/>
                <Cell col="5" text="bind:valitodd"/>
                <Cell col="6" text="bind:supcdid"/>
                <Cell col="7" text="bind:cdnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="기록분류" position="absolute 0 19 100 35" id="caption1" class="tit_2"/>
        <Button position="absolute 120 10 220 30" id="button1" visible="false" text="button1"/>
        <Grid position="absolute 170 40 810 465" id="grd_prcplist" class="datagrid2" binddataset="ds_main_prcpset_prcplist" onkeydown="grd_prcplist_onkeydown" onenteredit="grd_prcplist_onenteredit" autoenter="select" oncelldblclick="grd_prcplist_oncelldblclick" cellsizingtype="both" extendsizetype="both" cellsizebandtype="allband">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="27" band="left"/>
                <Column size="40"/>
                <Column size="100"/>
                <Column size="296"/>
                <Column size="0"/>
                <Column size="50"/>
                <Column size="31"/>
                <Column size="0"/>
                <Column size="50"/>
                <Column size="32"/>
                <Column size="80"/>
                <Column size="64"/>
                <Column size="0"/>
              </Columns>
              <Rows>
                <Row size="26" 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="1회&#10;용량"/>
                <Cell col="6" text="1회&#10;용량"/>
                <Cell col="7" text="총수량"/>
                <Cell col="8" text="1회&#10;수량"/>
                <Cell col="9" text="1회&#10;수량"/>
                <Cell col="10" text="등록일"/>
                <Cell col="11" text="등록자"/>
                <Cell col="12" text="caption1"/>
              </Band>
              <Band id="body">
                <Cell celltype="head"/>
                <Cell col="1" displaytype="combo" edittype="combo" text="bind:status" combodataset="ds_Sang" combocodecol="code" combodatacol="name"/>
                <Cell col="2" style="align:left top;padding:5 2 0 2;" text="bind:prcpcd" wordwrap="char"/>
                <Cell col="3" style="align:left top;padding:5 2 0 2;" text="bind:prcpnm" wordwrap="char"/>
                <Cell col="4" text="bind:prcpvol"/>
                <Cell col="5" displaytype="text" edittype="text" editfilter="none" style="align:right middle;" text="bind:drprcpetc7" editautoselect="true" editautoskip="false" editacceptsenter="false"/>
                <Cell col="6" style="align:right middle;" text="bind:prcpvolunitnm"/>
                <Cell col="7" style="align:right middle;" text="bind:prcpqty"/>
                <Cell col="8" displaytype="text" edittype="text" style="align:right middle;" text="bind:drprcpetc8"/>
                <Cell col="9" style="align:right middle;" text="bind:prcpqtyunitnm"/>
                <Cell col="10" displaytype="date" edittype="date" text="bind:rgstdd" mask="yyyy-MM-dd" maskchar=" " calendardisplaynulltype="none"/>
                <Cell col="11" text="bind:rgstnm"/>
                <Cell col="12" text="bind:setcd"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Static text="처방기준자료내역" position="absolute 170 19 306 35" id="caption2" class="tit_2"/>
        <Shape position="absolute 169 35 810 41" linetype="horizontal" id="line2" class="line_1" style="strokepen:3 solid #33bbbbff;"/>
        <Button position="absolute 675 15 717 34" id="btn_add" class="btn2" text="추가" onclick="btn_add_onclick"/>
        <Button position="absolute 720 15 762 34" id="btn_del" class="btn2" text="삭제" onclick="btn_del_onclick"/>
        <Button position="absolute 765 15 807 34" id="btn_sav" class="btn5" text="저장" onclick="btn_sav_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_prcpdivsinfo_prcpdivslist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="cdgrupid" type="STRING"/>
          <Column id="cdid" type="STRING"/>
          <Column id="valifromdd" type="STRING"/>
          <Column id="grupdetldesc" type="STRING"/>
          <Column id="sortseq" type="STRING"/>
          <Column id="valitodd" type="STRING"/>
          <Column id="supcdid" type="STRING"/>
          <Column id="cdnm" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_prcpset_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false" oncolumnchanged="ds_grd_prcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING"/>
          <Column id="prcpcd" type="STRING"/>
          <Column id="prcpnm" type="STRING"/>
          <Column id="prcpvol" type="STRING"/>
          <Column id="drprcpetc7" type="STRING"/>
          <Column id="prcpvolunitnm" type="STRING"/>
          <Column id="prcpqty" type="STRING"/>
          <Column id="drprcpetc8" type="STRING"/>
          <Column id="prcpqtyunitnm" type="STRING"/>
          <Column id="rgstdd" type="STRING"/>
          <Column id="rgstnm" type="STRING"/>
          <Column id="setcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_Sang" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="code" type="STRING" size="256"/>
          <Column id="name" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="code">I</Col>
            <Col id="name">추가</Col>
          </Row>
          <Row>
            <Col id="code">D</Col>
            <Col id="name">삭제</Col>
          </Row>
          <Row>
            <Col id="code">U</Col>
            <Col id="name">수정</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_senddata" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_DrugCalc2" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpvol" type="STRING" size="256"/>
          <Column id="prcpqty" type="STRING" size="256"/>
          <Column id="prcptims" type="STRING" size="256"/>
          <Column id="drprcpetc7" type="STRING" size="256"/>
          <Column id="drprcpetc8" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind/>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	추민수
 * Creator 	    :	
 * Make Date 		:	2016-05-13
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-11-13      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs";

function SPMNE02302_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
	grdf_initGrid(grd_prcpdivslist);
	grdf_initGrid(grd_prcplist);
	grdf_setRowTypeIcon(grd_prcplist, 0);
}

function SPMNE02302_onload(obj:Form, e:LoadEventInfo)
{
	dsf_createDsRow("ds_cond", [{col: "cdgrupid", val:"U15" }]);
	//속도개선
	this.setTimer(0, 100);
// 	fSearch();
// 	
// 	if(frmf_checkOpener()) 
// 	{
// 		//openflag = opener.javascript.getParameter("openflag");
// 		openflag = opener.frmf_getParameter("openflag");
// 		
// 		if(openflag == "1") 
// 		{
// 			btn_add.visible = false;
// 			btn_del.visible = false;
// 			btn_sav.visible = false;
// 		}//(openflag == "1")
// 		else
// 		{}
// 	}//(checkOpener()) 
}

function fSearch()
{
	var sPRCPLIST_PATH2 = ds_main_prcpset_prcplist;
	var openflag = "";

	var oParam = {};
    oParam.id          = "TRMNE02307";
    oParam.service     = "ercareapp.ERRec";
    oParam.method      = "reqGetPrcpDivsInfo";
    oParam.inds        = "req=ds_cond";
    oParam.outds       = "ds_main_prcpdivsinfo_prcpdivslist=prcpdivslist";
    oParam.async       = false;
	
	tranf_submit(oParam);
}

function grd_prcpdivslist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	var cdid ;
// 	if(grd_prcpdivslist.isCell(event.target) && grd_prcpdivslist.mouseRow >= grd_prcpdivslist.fixedrows)
// 	{
// 		fSearch2();
// 	}
	if( ds_main_prcpdivsinfo_prcpdivslist.rowposition > -1 ) 
	{	
		fSearch2();
	}
}

function fSearch2()
{
	cdid = ds_main_prcpdivsinfo_prcpdivslist.getColumn(ds_main_prcpdivsinfo_prcpdivslist.rowposition, "cdid");
					
	dsf_createDsRow("ds_send_reqdata", [{col: "cdid", val:cdid }
									 , {col: "openflag", val:openflag }
									 , {col: "issdeptcd", val:sysf_getModelProperty("issdeptcd") }
										]);
	
	var oParam = {};
		oParam.id          = "TRMNE02308";
		oParam.service     = "ercareapp.ERRec";
		oParam.method      = "reqGetPrcpBaseInfo";
		oParam.inds        = "req=ds_send_reqdata";
		oParam.outds       = "ds_main_prcpset_prcplist=prcpbaselist";
		oParam.async       = false;
		
	tranf_submit(oParam);
 	
	if(openflag =="1") 
	{
		grd_prcplist.readonly = true;		
// 		for(var i = 0; i < ds_grd_prcplist.rows; i++) 
// 		{
// 			ds_grd_prcplist.isReadOnly(i, 0, i, ds_grd_prcplist.cols -1) = true;	
// 		}
	}
}

function btn_add_onclick(obj:Button,  e:ClickEventInfo)
{				
	frmf_setParameter("scrnflag", "set");
	frmf_setParameter("rtnpath" , "ds_main_prcpset_prcplist");
	frmf_setParameter("srchParam", "srchPRCD");
	frmf_setParameter("srchflag", "1");
	
	frmf_open("SPMNW11100", "SPMNW11100", "", null, "1", "100", "500", null, null, null, null, null, "M");
	//frmf_modal("SPMNW11100", "SPMNW11100", "", null, "1", "100", "500", null, null, null, null, null, "M");
}

function btn_del_onclick(obj:Button,  e:ClickEventInfo)
{
	var arrPostion = new Array();
	arrPostion[0]  = ds_main_prcpset_prcplist.rowposition;
	grdf_setStatus(grd_prcplist, "D", arrPostion);
}

function btn_sav_onclick(obj:Button,  e:ClickEventInfo)
{	
	ds_senddata.clearData();
	
	for(var i = 0; i < ds_main_prcpset_prcplist.rowcount ;i++)
	{
		if(ds_main_prcpset_prcplist.getColumn(i, "status") == "I")
		{
			ds_main_prcpset_prcplist.setColumn(i, "setcd", ds_main_prcpdivsinfo_prcpdivslist.getColumn(ds_main_prcpdivsinfo_prcpdivslist.rowposition, "cdid"));
		}
	}
	
	var tmp = grdf_getGridUpdateData(grd_prcplist, "all");
	grdf_setStatusColumn(tmp, "status");
	ds_senddata.copyData(tmp, true);

	var oParam = {};
    oParam.id          = "TXMNE02308";
    oParam.service     = "ercareapp.ERRec";
    oParam.method      = "reqExePrcpSetList";
    oParam.inds        = "prcplist=ds_senddata";    
    oParam.async       = false;

	tranf_submit(oParam);
	
	fSearch2();	
}

function grd_prcplist_onkeydown(obj:Grid, e:KeyEventInfo)
{

	if( e.keycode == 13 ){
		//obj.moveToNextCell();
		obj.showEditor(false);
	}
}

function fClickRtn2()
{
	var iRow = ds_main_prcpset_prcplist.rowposition;

	if(iRow>-1)
	{
 		if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcpvol"))
 		{
 			if(!isNaN(ds_main_prcpset_prcplist.getColumn(iRow, "prcpvol")))
 			{
 				DrugCalc2 ("prcpvol" , iRow);
 			}
 			else
 			{
 				ds_main_prcpset_prcplist.setColumn(iRow, "prcpvol", ds_DrugCalc2.getColumn(0, "prcpvol"))
 			}
 		}
 		else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcpqty"))
 		{
			if(!isNaN(ds_main_prcpset_prcplist.getColumn(iRow, "prcpqty")))
 			{
 				DrugCalc2 ("prcpqty" , iRow);
 			}
 			else
 			{
 				ds_main_prcpset_prcplist.setColumn(iRow, "prcpqty", ds_DrugCalc2.getColumn(0, "prcpqty"))
 			} 			
 		}
 		else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcptims"))
 		{
			if(!isNaN(ds_main_prcpset_prcplist.getColumn(iRow, "prcptims")))
 			{
 				DrugCalc2 ("prcptims" , iRow);
 			}
 			else
 			{
 				ds_main_prcpset_prcplist.setColumn(iRow, "prcptims", ds_DrugCalc2.getColumn(0, "prcptims"))
 			} 			
 		}
 		else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "drprcpetc7"))
 		{
			if(!isNaN(ds_main_prcpset_prcplist.getColumn(iRow, "drprcpetc7")))
 			{
 				DrugCalc2 ("drprcpetc7" , iRow);
 			}
 			else
 			{
 				ds_main_prcpset_prcplist.setColumn(iRow, "drprcpetc7", ds_DrugCalc2.getColumn(0, "drprcpetc7"))
 			}
 		}
 		else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "drprcpetc8"))
		{
			if(!isNaN(ds_main_prcpset_prcplist.getColumn(iRow, "drprcpetc8")))
 			{
 				DrugCalc2 ("drprcpetc8" , iRow);
 			}
 			else
 			{
 				ds_main_prcpset_prcplist.setColumn(iRow, "drprcpetc8", ds_DrugCalc2.getColumn(0, "drprcpetc8")) 				
 			}
 		}
	}
}

function fSetPrcpVolQty()
{
	var iRow   = ds_main_prcpset_prcplist.rowposition;
	//sysf_trace(iRow);
	
	if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcpvol"))
	{
		ds_DrugCalc2.setColumn(0, "prcpvol", ds_main_prcpset_prcplist.getColumn(iRow, "prcpvol"));
	}
	else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcpqty"))
	{
		ds_DrugCalc2.setColumn(0, "prcpqty", ds_main_prcpset_prcplist.getColumn(iRow, "prcpqty"));
	}
	else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "prcptims"))
	{
		ds_DrugCalc2.setColumn(0, "prcptims", ds_main_prcpset_prcplist.getColumn(iRow, "prcptims"));
	}
	else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "drprcpetc7"))
	{
		ds_DrugCalc2.setColumn(0, "drprcpetc7", ds_main_prcpset_prcplist.getColumn(iRow, "drprcpetc7"));
	}
	else if(grd_prcplist.currentcol == grd_prcplist.getBindCellIndex("body", "drprcpetc8"))
	{
		ds_DrugCalc2.setColumn(0, "drprcpetc8", ds_main_prcpset_prcplist.getColumn(iRow, "drprcpetc8"));
	}
}

function DrugCalc2 ( flag, curRow )
{
	var PrcpVol = ds_main_prcpset_prcplist.getColumn(curRow, "prcpvol" );
	if ( utlf_isNull(PrcpVol) || PrcpVol == 0 ) 
	{    
		PrcpVol = "1"; 
	}
	var PrcpQty = ds_main_prcpset_prcplist.getColumn(curRow, "prcpqty" );
	if ( utlf_isNull(PrcpQty) || PrcpQty == 0 ){ 
		PrcpQty = "1"; 
	}
	
	var PrcpTims = ds_main_prcpset_prcplist.getColumn(curRow, "prcptims" );
	if ( utlf_isNull(PrcpTims) || PrcpTims == 0 ) {  
		PrcpTims = "1"; 
	}
	var drprcpetc7 = ds_main_prcpset_prcplist.getColumn(curRow, "drprcpetc7" );
	if ( utlf_isNull(drprcpetc7) || drprcpetc7 == 0 || drprcpetc7 == "-") {  
		drprcpetc7 = "1"; 
	}
	var drprcpetc8 = ds_main_prcpset_prcplist.getColumn(curRow, "drprcpetc8" );
	if ( utlf_isNull(drprcpetc8) || drprcpetc8 == 0 || drprcpetc8 == "-") {  
		drprcpetc8 = "1"; 
	}
	
	var bfPrcpVol = ds_DrugCalc2.getColumn(0, "prcpvol" );
	if ( utlf_isNull(bfPrcpVol) || bfPrcpVol == 0 ) {    
		bfPrcpVol = "1"; 
	}
	var bfPrcpQty = ds_DrugCalc2.getColumn(0, "prcpqty" ); 
	if ( utlf_isNull(bfPrcpQty) || bfPrcpQty == 0 ) {    
		bfPrcpQty = "1"; 
	}
	var bfprcpTims = ds_DrugCalc2.getColumn(0, "prcptims" ); 
	if ( utlf_isNull(bfprcpTims) || bfprcpTims == 0 ) {  
		bfprcpTims = "1"; 
	}
	var bfdrprcpetc7 = ds_DrugCalc2.getColumn(0, "drprcpetc7" ); 
	if ( utlf_isNull(bfdrprcpetc7) || bfdrprcpetc7 == 0 ) {  
		bfdrprcpetc7 = "1"; 
	}
	var bfdrprcpetc8 = ds_DrugCalc2.getColumn(0, "drprcpetc8" ); 
	if ( utlf_isNull(bfdrprcpetc8) || bfdrprcpetc8 == 0 ) {  
		bfdrprcpetc8 = "1"; 
	}
	
 	var calcPrcpVol = 0;
 	var calcPrcpQty = 0;
 	var calcPrcpTimeVol = 0;
 	var calcPrcpTimeQty = 0;
 
 	//20090820 마정민 수정. 약인 경우는 최초의 용량 수량 비율로 계산하는 것으로 수정
 	var baseQty = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 31, "^", "|");
 	var baseVol = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 32 , "^", "|" );
 	
 	var drugcntsvol = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 1, "^", "|");
 	var drugstndvol = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 3, "^", "|");
 	var drugpackvol = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 5, "^", "|");
 	var drugbasevol = lf_getArrayData(ds_main_prcpset_prcplist.getColumn(curRow, "drugmastspec") + "^", 0, 7, "^", "|");
 
 	var baseTimeVol = drugcntsvol * drugbasevol / drugpackvol;
 	var baseTimeQty = drugbasevol;
 	
 	sysf_trace(baseTimeVol);
	sysf_trace(baseTimeQty);
 	
	if (ds_main_prcpset_prcplist.getColumn(curRow, "prcpclscd").substring( 0, 1 ) == "A" && !utlf_isNull(baseQty) && !utlf_isNull(baseVol)) 
	{
		// 용량을 수정했을 때: 수량 자동계산
		if ( flag == "prcpvol" && bfPrcpVol != PrcpVol ) 
		{ 
			calcPrcpQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 
			
			calcPrcpTimeQty = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeQty)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 	

			calcPrcpTimeVol = parseFloat(PrcpVol) / parseFloat(baseVol) * parseFloat(baseTimeVol)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
											
			//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
			var cnclInptTxt  = ds_main_prcpset_prcplist.getColumn(curRow, "prcpcd");
			var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
			if(ds_main_prcpset_prcplist.getColumn(curRow , "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1)
			{
				sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
				//model.setValue ( sPRCPLIST_PATH2 + "[" + curRow + "]/prcpvol", bfPrcpVol );
				//return;
			}//end
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpqty", calcPrcpQty );      
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );      
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );      
		}// 용량을 수정했을 때: 수량 자동계산
		else if( flag == "prcpqty" && bfPrcpQty != PrcpQty )// 수량을 수정했을 때: 용량 자동계산      
		{
			var prcpclscd = ds_main_prcpset_prcplist.getColumn(curRow, "prcpclscd" );
			calcPrcpVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 
			
			calcPrcpTimeQty = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeQty)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 	

			calcPrcpTimeVol = parseFloat(PrcpQty) / parseFloat(baseQty) * parseFloat(baseTimeVol)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
							
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpvol", calcPrcpVol );  
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );  
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );  
		}// 수량을 수정했을 때: 용량 자동계산      
		else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) // 용량을 수정했을 때: 수량 자동계산  
		{
			calcPrcpQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 				

			calcPrcpTimeQty = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseTimeQty)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 								
			
			calcPrcpVol = parseFloat(drprcpetc7) / parseFloat(baseTimeVol) * parseFloat(baseVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 								
			
			//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
			var cnclInptTxt  = ds_main_prcpset_prcplist.getColumn(curRow, "prcpcd");
			var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
			if(ds_main_prcpset_prcplist(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1)
			{
				sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
			}			
			
			sysf_trace(calcPrcpQty);
			sysf_trace(calcPrcpVol);
			sysf_trace(calcPrcpTimeQty);
			
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpqty", calcPrcpQty ); 
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpvol", calcPrcpVol ); 
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty ); 
		}// 용량을 수정했을 때: 수량 자동계산  
		else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) // 수량을 수정했을 때: 용량 자동계산      
		{ 
			calcPrcpVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 				
											
			calcPrcpTimeVol = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseTimeVol)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 
							
			calcPrcpQty = parseFloat(drprcpetc8) / parseFloat(baseTimeQty) * parseFloat(baseQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 	
											
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpvol", calcPrcpVol );  
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpqty", calcPrcpQty );  
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc7", calcPrcpTimeVol );  
			
			var prcpclscd = ds_main_prcpset_prcplist(curRow, "prcpclscd" );
			
		}// 수량을 수정했을 때: 용량 자동계산         		
	}//최상위//if (ds_grd_prcplist.getColumn(curRow, "prcpclscd").substring( 0, 1 ) == "A" && !utlf_isNull(baseQty) && !utlf_isNull(baseVol)) 
	else
	{
		if ( flag == "prcpvol" ) // 용량을 수정했을 때: 수량 자동계산
		{ 
			calcPrcpQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(PrcpQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 

			calcPrcpTimeVol = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc7)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

			calcPrcpTimeQty = eval(PrcpVol) / eval(bfPrcpVol) * eval(drprcpetc8)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

			//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
			var cnclInptTxt  = ds_main_prcpset_prcplist.getColumn(curRow, "prcpcd");
			var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
			if(ds_main_prcpset_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1)
			{
				sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");
			} //end
			ds_main_prcpset_prcplist.setColumn(curRow + "prcpvol", PrcpVol );      
			ds_main_prcpset_prcplist.setColumn(curRow + "prcpqty", calcPrcpQty );      
			ds_main_prcpset_prcplist.setColumn(curRow + "drprcpetc7", calcPrcpTimeVol );      
			ds_main_prcpset_prcplist.setColumn(curRow + "drprcpetc8", calcPrcpTimeQty );   
		}// 용량을 수정했을 때: 수량 자동계산
		else if ( flag == "prcpqty" ) // 수량을 수정했을 때: 용량 자동계산      
		{ 
			var prcpclscd = ds_main_prcpset_prcplist.getColumn(curRow, "prcpclscd" );
			calcPrcpVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(PrcpVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 
			
			calcPrcpTimeVol = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc7)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

			calcPrcpTimeQty = eval(PrcpQty) / eval(bfPrcpQty) * eval(drprcpetc8)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 
							
			ds_main_prcpset_prcplist.setColumn(curRow + "prcpvol", calcPrcpVol );  
			ds_main_prcpset_prcplist.setColumn(curRow + "drprcpetc7", calcPrcpTimeVol );      
			ds_main_prcpset_prcplist.setColumn(curRow + "drprcpetc8", calcPrcpTimeQty );  			
		}// 수량을 수정했을 때: 용량 자동계산      
		else if ( flag == "drprcpetc7" && bfdrprcpetc7 != drprcpetc7 ) 
		{ // 용량을 수정했을 때: 수량 자동계산  					 
			sysf_trace("bfdrprcpetc7  " + bfdrprcpetc7);
			sysf_trace("drprcpetc7  " + drprcpetc7);
			sysf_trace("drprcpetc8  " + drprcpetc8);drprcpetc8
			
			calcPrcpTimeQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(drprcpetc8)*1000; 
			calcPrcpTimeQty = Math.round(calcPrcpTimeQty)/1000; 

			calcPrcpVol = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 

			calcPrcpQty = eval(drprcpetc7) / eval(bfdrprcpetc7) * eval(PrcpQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 

			//start: 요청번호 9851, 인슐린주사제 변경 alert (2010.01.28 JJE)
			var cnclInptTxt  = ds_main_prcpset_prcplist.getColumn(curRow, "prcpcd");
			var prcpcdEndTxt = cnclInptTxt.substring(cnclInptTxt.length-1, cnclInptTxt.length);
			if(ds_main_prcpset_prcplist.getColumn(curRow, "tempcol2") == "05|04|09" && (prcpcdEndTxt == "J" || prcpcdEndTxt == "P") && calcPrcpQty < 1)
			{
				sysf_messageBox(cnclInptTxt + "\n\n소량 처방을 원하시는 경우에는\nUNIT 단위 코드(원 처방의 끝자리 J나 P를 뺀 코드)로 변경 처방하여 주시기 바랍니다.", "I");				
			} //end
		
			sysf_trace(calcPrcpQty);
			sysf_trace(calcPrcpVol);
			sysf_trace(calcPrcpTimeQty);
			
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpqty", calcPrcpQty );      
			ds_main_prcpset_prcplist.setColumn(curRow, "prcpvol", calcPrcpVol );     
			ds_main_prcpset_prcplist.setColumn(curRow, "drprcpetc8", calcPrcpTimeQty );     			
		}// 용량을 수정했을 때: 수량 자동계산  
		else if ( flag == "drprcpetc8" && bfdrprcpetc8 != drprcpetc8 ) // 수량을 수정했을 때: 용량 자동계산      
		{ 
			calcPrcpTimeVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(drprcpetc7)*1000; 
			calcPrcpTimeVol = Math.round(calcPrcpTimeVol)/1000; 

			calcPrcpVol = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpVol)*1000; 
			calcPrcpVol = Math.round(calcPrcpVol)/1000; 

			calcPrcpQty = eval(drprcpetc8) / eval(bfdrprcpetc8) * eval(PrcpQty)*1000; 
			calcPrcpQty = Math.round(calcPrcpQty)/1000; 	
											
			ds_main_prcpset_prcplist.setColumn(curRow , "prcpvol", calcPrcpVol );  
			ds_main_prcpset_prcplist.setColumn(curRow , "prcpqty", calcPrcpQty );  								
			ds_main_prcpset_prcplist.setColumn(curRow , "drprcpetc7", calcPrcpTimeVol );  
			
			var prcpclscd = ds_main_prcpset_prcplist.getColumn(curRow , "prcpclscd" );
		}// 수량을 수정했을 때: 용량 자동계산							
	}//else
}

function grd_prcplist_onenteredit(obj:Grid, e:GridEditEventInfo)
{
	fSetPrcpVolQty();
}

function ds_grd_prcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	fClickRtn2();
}

function mnwAddNursPrcp(srcnode, trgtnode, currow, pflag){ 
	//목적지 노드에 처방instance를 copy한다.
	if(pflag == "popup"){
		var ds_trgtnode = eval("opener."+trgtnode);
		var nRow = ds_trgtnode.addRow();
		ds_trgtnode.copyRow(nRow, srcnode, currow);
		
		return nRow;
	}else{
		var ds_trgtnode = eval(trgtnode);
		var nRow = ds_trgtnode.addRow();
		ds_trgtnode.copyRow(nRow, srcnode, currow);
		
		return nRow;
	}
}

function grd_prcplist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{	
	if(openflag == "1" && ds_main_prcpset_prcplist.rowcount > 0) 
	{					
		var nRow = mnwAddNursPrcp(ds_main_prcpset_prcplist, "ds_main_recinfo_prcplist", ds_main_prcpset_prcplist.rowposition, "popup");	
		
		var prcplist = opener.ds_main_recinfo_prcplist;		
		var prcpclscd = prcplist.getColumn(prcplist.rowcount-1, "prcpclscd");
				
		if(prcpclscd == "A6") 
		{	
			dsf_makeValue(opener.ds_main_recinfo_prcplist, "drugmthdspccdnm", "string", "IV side", nRow);
			dsf_makeValue(opener.ds_main_recinfo_prcplist, "drugmthdspccd", "string", "IVSI", nRow);
		}               
				
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "recdd", "string", utlf_getCurrentDate(), nRow);//1		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "rectm", "string", utlf_getCurrentTime().substr(0,4), nRow);//2		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpyn", "string", "Y", nRow);	//3	
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "bfprcpyn", "string", "N", nRow);//4	
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "recrelayn", "string", "Y", nRow);//5		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "bfrecrelayn", "string", "N", nRow);//6		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "status", "string", "I", nRow);//7		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "cmt", "string", "", nRow);//8		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpdd", "string", utlf_getCurrentDate(), nRow);//9		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcphopedd", "string", utlf_getCurrentDate(), nRow);//10
				      
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpno", "string", "0", nRow);//11	
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcphistno", "string", "0", nRow);//12
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpgenrflag", "string", "0", nRow);//13
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "pid", "string", opener.pid, nRow);//14		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "indd", "string", opener.indd, nRow);//15	
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "orddd", "string", opener.indd, nRow);//16	
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "cretno", "string", opener.cretno, nRow);//17
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "aftcertflag", "string", "-", nRow);//18
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "aftcertdrid", "string", "-", nRow);//19
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpvalidd", "string", "00000000", nRow);//20
		             
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcpexecdeptcd", "string", sysf_getUserInfo("dutplcecd"), nRow);//21
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "cardarrgenrdt", "string", opener.cardarrgenrd, nRow);//22
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcppkspec", "string", utlf_getCurrentDate() + "|" + "0" + "|" + "0" + "|" + sysf_getUserInfo("dutplceinstcd"), nRow);//23
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "prcppkspec", "string", utlf_getCurrentDate() + "|" + "0" + "|" + "0" + "|" + sysf_getUserInfo("dutplceinstcd"), nRow);//24
		
		dsf_makeValue(opener.ds_main_recinfo_prcplist, "cardarrgenrdt", "string", opener.ipt_cardarrgenrdt.value, nRow);//24
		
		dsf_setDefaultVal(opener.ds_main_recinfo_prcplist, "editprcpyn:checkbox,status:-,prcpvol:0,prcpvolunitnm:-,prcpqty:0,prcpqtyunitnm:-,prcptims:0,prcpdayno:0,drugmthdspccdnm:-," +
								"drugmthdspccd:-,tootfact:-,clinccmtcnts:-,hsctdelivepos:0,hsctlnkno:0,etcprcpflag:-,rehbprcpcurefreqflag:0," +
								"dietprcpgenrflag:-,irpayflag:N,irflag:N,procerdietflag:N,diagtestconttestintvlflag:N,drugindependpackflag:N," +								
								"diagtestconttestbasetm:0,diagtestconttestorgtims:0,ermediscmngtresncd:-,rehbprcpenddd:-,matrallsizespecid:-," +
								"rehbprcpcurepartcd:-,lowdrugresncd:N,tfdtlcd:-,dnorreqlnkno:0,subcretno:0,exptmthdfact:-,lowdrugresnetcfact:-," +
								"diagtestconttestcdspec:-,drgacptflag:-,prcpyn:N,recrelayn:N,setcd:N,prcpdd:N,prcpno:N,prcphistno:N,prcppkspec:N," +
								"aftcertflag:N,aftcertdrid:N,prcpvalidd:N");            
// 		for(var i= 0; i < prcplist.rowcount; i++) 
// 		{
// 			if(prcplist.getColumn(i, "status") == "I") 
// 			{
// 				var arrPostion = new Array();
// 				arrPostion[0]  = i;
// 				//grdf_setStatus(opener.grd_prcplist, "I", arrPostion);
// 			}
// 		}		
	}
}

function SPMNE02302_ontimer(obj:Form, e:TimerEventInfo)
{
	if (e.timerid == 0) {
		this.killTimer(0);
		fSearch();
		
		if(frmf_checkOpener()) 
		{
			//openflag = opener.javascript.getParameter("openflag");
			openflag = opener.frmf_getParameter("openflag");
			
			if(openflag == "1") 
			{
				btn_add.visible = false;
				btn_del.visible = false;
				btn_sav.visible = false;
			}//(openflag == "1")
			else
			{}
		}//(checkOpener()) 
	}
}
]]></Script>
  </Form>
</FDL>