YNU_JEUS/app_home/himed/xpapps/emr/ercarexp/xp/SPMNE02304_용법방법.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMNE02304" position="absolute 0 0 595 620" titletext="복용방법" oninit="SPMNE02304_oninit" onload="SPMNE02304_onload">
    <Layouts>
      <Layout>
        <Shape position="absolute 6 5 588 95" id="roundrect5" type="roundrectangle"/>
        <Radio position="absolute 117 69 577 89" id="rdo_mthdkind" columncount="5" rowcount="1" innerdataset="@ds_init_mthdkind" datacolumn="cdnm" codecolumn="cdid" onitemclick="rdo_mthdkind_onitemclick"/>
        <Button position="absolute 468 568 524 590" id="button1" class="btn4" text="선택" onclick="button1_onclick"/>
        <Button position="absolute 527 568 583 590" id="button2" class="btn4" text="취소" onclick="button2_onclick"/>
        <Static text="복용방법 List" position="absolute 7 98 178 114" id="caption3" class="tit_2"/>
        <Shape position="absolute 7 114 588 120" linetype="horizontal" id="line7" class="line_10"/>
        <Radio position="absolute 117 16 415 35" id="rdo_baseqty" columncount="6" codecolumn="codecolumn" datacolumn="datacolumn" onitemclick="rdo_baseqty_onitemclick">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn"/>
              <Column id="datacolumn"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">1</Col>
                <Col id="datacolumn">1회</Col>
              </Row>
              <Row>
                <Col id="codecolumn">2</Col>
                <Col id="datacolumn">2회</Col>
              </Row>
              <Row>
                <Col id="codecolumn">3</Col>
                <Col id="datacolumn">3회</Col>
              </Row>
              <Row>
                <Col id="codecolumn">4</Col>
                <Col id="datacolumn">4회</Col>
              </Row>
              <Row>
                <Col id="codecolumn">5</Col>
                <Col id="datacolumn">5회이상</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Static text="기본종류 :" position="absolute 27 15 117 32" id="caption4" class="search_name"/>
        <Static text="용법종류 :" position="absolute 27 69 113 86" id="caption5" class="search_name"/>
        <Grid position="absolute 7 118 588 523" id="grd_mthd" binddataset="ds_tmedmthd_tmedmthdlist" onmousemove="grd_mthd_onmousemove" oncelldblclick="grd_mthd_oncelldblclick" oncellclick="grd_mthd_oncellclick" selecttype="multirow" cellsizingtype="col">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="0"/>
                <Column size="100"/>
                <Column size="425"/>
                <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="횟수"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:status" expr="expr:(status == &quot;true&quot; || status == 1) ? 1 : 0"/>
                <Cell col="1" style="align:left middle;" text="bind:mthdcd"/>
                <Cell col="2" style="align:left;" text="bind:abbrnm"/>
                <Cell col="3" style="align:center middle;" text="bind:basecnt"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div position="absolute 5 576 395 606" id="group1" visible="false">
          <Layouts>
            <Layout>
              <MaskEdit position="absolute 95 5 125 24" id="input1" mask="#.###" onkeydown="group1_input1_onkeydown"/>
              <MaskEdit position="absolute 130 5 160 24" id="input2" mask="#.###" onkeydown="group1_input2_onkeydown"/>
              <MaskEdit position="absolute 163 5 193 24" id="input3" mask="#.###" onkeydown="group1_input3_onkeydown"/>
              <MaskEdit position="absolute 197 5 227 24" id="input4" mask="#.###" onkeydown="group1_input4_onkeydown"/>
              <MaskEdit position="absolute 231 5 261 24" id="input5" mask="#.###" onkeydown="group1_input5_onkeydown"/>
              <MaskEdit position="absolute 264 5 294 24" id="input6" mask="#.###" onkeydown="group1_input6_onkeydown"/>
              <MaskEdit position="absolute 297 5 327 24" id="input7" mask="#.###" onkeydown="group1_input7_onkeydown"/>
              <MaskEdit position="absolute 331 5 361 24" id="input8" mask="#.###"/>
              <CheckBox position="absolute 13 5 85 23" align="align:center middle;" id="checkbox1" text="비율처방" truevalue="Y" onclick="group1_checkbox1_onclick"/>
            </Layout>
          </Layouts>
        </Div>
        <CheckBox position="absolute 0 527 35 547" id="bool1" truevalue="Y" onclick="bool1_onclick" falsevalue="N"/>
        <CheckBox position="absolute 0 549 35 569" id="bool2" truevalue="Y" falsevalue="N"/>
        <Static text="예외용법" position="absolute 29 528 85 548" id="caption1"/>
        <Static text="따로포장" position="absolute 29 550 85 570" id="caption2"/>
        <Static text="용법시간 :" position="absolute 27 42 117 59" id="caption6" class="search_name"/>
        <Edit position="absolute 86 529 587 548" id="ipt_exptmthdfact"/>
        <Combo position="absolute 117 42 314 61" id="cmb_mthdtime" innerdataset="@ds_init_M0478" datacolumn="cdnm" codecolumn="cdid" onitemchanged="cmb_mthdtime_onitemchanged"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_main_cond" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_cond_oncolumnchanged">
        <ColumnInfo>
          <Column id="drugindependpackflag" type="STRING" size="256"/>
          <Column id="exptmthdfact" type="STRING" size="256"/>
          <Column id="exptmthdfactflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="drugindependpackflag">N</Col>
            <Col id="exptmthdfact">-</Col>
            <Col id="exptmthdfactflag">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_mthdkind" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_M0478" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="mthdtimenm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_trgtcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <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="mthdtime" type="STRING" size="256"/>
          <Column id="mthdtimenm" type="STRING" size="256"/>
          <Column id="hardcd" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="cond1"/>
            <Col id="cond2"/>
            <Col id="mthdtime"/>
            <Col id="mthdtimenm"/>
            <Col id="hardcd"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_rateprcpflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rateprcpflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rateprcpflag">N</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_rateprcp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="rate1" type="STRING" size="256"/>
          <Column id="rate2" type="STRING" size="256"/>
          <Column id="rate3" type="STRING" size="256"/>
          <Column id="rate4" type="STRING" size="256"/>
          <Column id="rate5" type="STRING" size="256"/>
          <Column id="rate6" type="STRING" size="256"/>
          <Column id="rate7" type="STRING" size="256"/>
          <Column id="rate8" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="rate1"/>
            <Col id="rate2"/>
            <Col id="rate3"/>
            <Col id="rate4"/>
            <Col id="rate5"/>
            <Col id="rate6"/>
            <Col id="rate7"/>
            <Col id="rate8"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_oncolumnchanged">
        <ColumnInfo>
          <Column id="rateflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_tmedmthd_tmedmthdlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_tmedmthd_tmedmthdlist_oncolumnchanged">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256"/>
          <Column id="abbrnm" type="STRING" size="256"/>
          <Column id="mthdcnts" type="STRING" size="256"/>
          <Column id="mthdcd" type="STRING" size="256"/>
          <Column id="basecnt" type="STRING" size="256"/>
          <Column id="adminpath" type="STRING" size="256"/>
          <Column id="mealflag" type="STRING" size="256"/>
          <Column id="drdirecyn" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="status"/>
            <Col id="abbrnm"/>
            <Col id="mthdcnts"/>
            <Col id="mthdcd"/>
            <Col id="basecnt"/>
            <Col id="adminpath"/>
            <Col id="mealflag"/>
            <Col id="drdirecyn"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_init_hardcd_hardcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_chkflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="rdo_mthdkind" propid="value" datasetid="ds_send" columnid="cond1"/>
      <BindItem id="item1" compid="rdo_baseqty" propid="value" datasetid="ds_send" columnid="cond2"/>
      <BindItem id="item2" compid="group1.checkbox1" propid="value" datasetid="ds" columnid="rateflag"/>
      <BindItem id="item3" compid="bool1" propid="value" datasetid="ds_main_cond" columnid="exptmthdfactflag"/>
      <BindItem id="item4" compid="bool2" propid="value" datasetid="ds_main_cond" columnid="drugindependpackflag"/>
      <BindItem id="item5" compid="ipt_exptmthdfact" propid="value" datasetid="ds_main_cond" columnid="exptmthdfact"/>
      <BindItem id="item6" compid="cmb_mthdtime" propid="value" datasetid="ds_send" columnid="mthdtime"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2016-10-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2016-10-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::SMMMO00100.xjs";

var arErrorCode = new HashArray();

function cf_TRMMB04103(sSvcId, nErrorCode, sErrorMsg) {
	arErrorCode.push(sSvcId, nErrorCode);
	if(nErrorCode < 0) return;
	utlf_addLog("***** cf_TRMMB04103 *****");
}

var mthdKind = "";
var openerrow = -1;
				
function SPMNE02304_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMNE02304_onload(obj:Form, e:LoadEventInfo)
{
	//grd_mthd.backcoloralternate = "transparent";

	opener.frmf_setParameter( "SPMMO01900_prcptims", "" );
	opener.frmf_setParameter( "SPMMO01900_rateprcpflag", "" );

	appf_getCodeList([{dsNm: "ds_init_mthdkind", cdGrpId: "A0017", sortField: "dispseq", sortMehotd: "asc"}], true); //용법종류
	appf_getCodeList([{dsNm: "ds_init_M0478", cdGrpId: "M0478"}], true); //용법시간
	
	frmf_addComboItem("cmb_mthdtime", "전체", "-","above");	//용법시간 전체항목 추가
	
	cmb_mthdtime.index = 0;

	var srchRow = opener.frmf_getParameter( "SPMMO01900_srchRow" );//복용방법이 없을 때 자동팝업
	if (utlf_isNull(srchRow)) {
		if ( opener.ds_main_recinfo_prcplist.rowposition == -1) {
			 openerrow = 0;
		} else {
			 openerrow = opener.ds_main_recinfo_prcplist.rowposition;
		}
	} else {
		openerrow = srchRow;
		this.titletext = this.titletext + "[" + opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpcd")+ " : " + opener.ds_main_recinfo_prcplist.getColumn(openerrow, "orgprcpnm") + "]";
	}

	var prcptims = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcptims");				
	var tempcol2 = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "tempcol2");//수익분류

	if ( prcptims == 1 ) {
		group1.checkbox1.enable= false;
	}

	if ( utlf_isNull(prcptims)) prcptims = 1;
	var prcpclscd = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpclscd");

	if ( prcpclscd == "A2" ) {
		mthdKind = "N";
		rdo_mthdkind.enable = false;
	}
	if ( prcpclscd == "A4" ) {
		//비율은 내복약만 쓴다.
		rdo_baseqty.enable = false;
		group1.visible = false;
		mthdKind = "Y";
		ds_send.setColumn(0, "hardcd",99);
		
		var oParam = {};
		oParam.id          = "TRMMB04103";
		oParam.service     = "prcpbaseapp.EnvInfoMngt";
		oParam.method      = "reqGetHardCodeCD";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_hardcd_hardcd=hardcd";
		oParam.async       = false;
		oParam.callback    = "cf_TRMMB04103";

		tranf_submit(oParam);

		if(arErrorCode.pop("TRMMB04103") > -1){
			if ( !isNull( ds_init_hardcd_hardcd.lookup("hardcd", tempcol2 ,"hardcd") )) {
				mthdKind = "O";
			}
			ds_init_hardcd_hardcd.clearData();
		}
	}
	
	if ( prcpclscd == "A6" ) {
		mthdKind = "I";
		//비율은 내복약만 쓴다.
		group1.visible = false;
		//주사는 횟수가 무조건 1이다.
		prcptims = "1";
		rdo_baseqty.enable 	= false;
		rdo_mthdkind.enable = false;
	}

	ds_send.setColumn(0, "cond1", mthdKind);
	if ( prcpclscd != "A2" ) {
		//경구약이 아닌경우에는 회수는 필요없다.
		ds_send.setColumn(0, "cond2", "" );
	} else {
		ds_send.setColumn(0, "cond2", prcptims);
	}
	
	//예외 용법 설정된 경우, 용법창에 표시
	//2008. 08. 06 오지훈
	var exptmthdfact = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "exptmthdfact");				
	if(exptmthdfact != "-" && !utlf_isNull(exptmthdfact) ){ //값이 default 또는 없는 경우
		ipt_exptmthdfact.enable = true;
		ds_main_cond.setColumn(0, "exptmthdfact", exptmthdfact);
		bool1.value = "Y";
	}else{
		ipt_exptmthdfact.enable = false;
	}
	
	//따로포장 값 설정된경우 표시되도록. by sonjy 20081112
	var drugindependpackflag = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "drugindependpackflag");		
	if( drugindependpackflag == "Y" ){
		ds_main_cond.setColumn(0, "drugindependpackflag", drugindependpackflag);
	}
					

	var rateprcpflag = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "rateprcpflag");

	if ( rateprcpflag == "N" || utlf_isNull(rateprcpflag)) {
		group1.input1.enable 	= false;
		group1.input2.enable	= false;
		group1.input3.enable	= false;
		group1.input4.enable	= false;
		group1.input5.enable 	= false;
		group1.input6.enable 	= false;
		group1.input7.enable 	= false;
		group1.input8.enable 	= false;
	} else {
		ds.setColumn(0, "rateflag", "Y" );
		
		group1.checkbox1.style.color	= "#ff0000"; 	
		group1.checkbox1.style.font 	= "Dotum,9,bold";

//		var drugrateqty = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "drugrateqty") + "^";
//		var cnt = 0;
// 		var childCnt = group1.children.length;
// 		var childObj;
// 		for( var i = 0; i < childCnt; i++ ) {
// 			childOb = group1.children.item(i)
// 				 if( childOb.elementName == "xforms:input") {
// 					 if ( cnt < eval(prcptims)) {
// 						 childOb.disabled = false;
// 						 childOb.value = getArrayData (drugrateqty, 0, cnt, "^", "|" );
// 					 } else {
// 						 childOb.disabled = true;
// 					 }
// 				 cnt++;
// 				 }
// 		}
	}
	ds_send.setColumn(0, "mthdtimenm", cmb_mthdtime.text);
	
	dsf_setDefaultVal(ds_send, "mthdtime:-");
	var oParam = {};
    oParam.id          = "TRMMO01901";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetTmedTthdInfo";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_tmedmthd_tmedmthdlist=tmedmthdlist";
    oParam.async       = false;

	tranf_submit(oParam);

	var mthdcd = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "drugmthdspccd" );
	for ( var i=0; i < ds_tmedmthd_tmedmthdlist.rowcount; i++ ) {
		if ( mthdcd == ds_tmedmthd_tmedmthdlist.getColumn(i, "mthdcd") ) {
			ds_tmedmthd_tmedmthdlist.rowposition = i;
			grd_mthd.vscrollbar.pos =  i;
			ds_tmedmthd_tmedmthdlist.setColumn(i, "status", "Y" );
		}
	}
	ds_send.setColumn(0, "hardcd", 45);

	var oParam = {};
    oParam.id          = "TRMMB04103";
    oParam.service     = "prcpbaseapp.EnvInfoMngt";
    oParam.method      = "reqGetHardCodeCD";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_init_hardcd_hardcd=hardcd";
    oParam.async       = false;

	tranf_submit(oParam);
}

function rdo_mthdkind_onitemclick(obj:Radio, e:RadioMouseEventInfo)
{
	var prcpclscd = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpclscd");                              
	if ( prcpclscd == "A4" ) {
			bmthdKind = ds_send.getColumn(0, "cond1");
		if (  bmthdKind == "N" || bmthdKind == "I"  ) {
			sysf_messageBox ( "선택할 수 없는 용법종류", "E008" );
			ds_send.setColumn(0, "cond1", mthdKind)
			return;
		} else {
			//submit parameter로 용법시간명 추가 2008.06.09 오지훈
			ds_init.setColumn(0, "mthdtimenm", cmb_mthdtime.text);
			
			dsf_setDefaultVal(ds_send, "mthdtime:-");
			
			var oParam = {};
			oParam.id          = "TRMMO01901";
			oParam.service     = "prcpmngtapp.PrcpMngt";
			oParam.method      = "reqGetTmedTthdInfo";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_tmedmthd_tmedmthdlist=tmedmthdlist";
			oParam.async       = false;

			tranf_submit(oParam);
		}
	}
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var drugrateqty = "";
	var cnt = 0;

	if ( (group1.input1.enable && utlf_isNull(group1.input1.value)) ||
			(group1.input2.enable && utlf_isNull(group1.input2.value)) ||
			(group1.input3.enable && utlf_isNull(group1.input3.value)) ||
			(group1.input4.enable && utlf_isNull(group1.input4.value)) ||
			(group1.input5.enable && utlf_isNull(group1.input5.value)) ||			            			            			            
			(group1.input6.enable && utlf_isNull(group1.input6.value)) ||
			(group1.input7.enable && utlf_isNull(group1.input7.value)) ||
			(group1.input8.enable && utlf_isNull(group1.input8.value))) {
			sysf_messageBox ( "비율처방 값을 모두 입력해 주십시오.", "E" );
			return;
	}				

	if ( !utlf_isNull(group1.input1.value)) drugrateqty = drugrateqty + group1.input1.value + "|";
	if ( !utlf_isNull(group1.input2.value)) drugrateqty = drugrateqty + group1.input2.value + "|";
	if ( !utlf_isNull(group1.input3.value)) drugrateqty = drugrateqty + group1.input3.value + "|";
	if ( !utlf_isNull(group1.input4.value)) drugrateqty = drugrateqty + group1.input4.value + "|";
	if ( !utlf_isNull(group1.input5.value)) drugrateqty = drugrateqty + group1.input5.value + "|";
	if ( !utlf_isNull(group1.input6.value)) drugrateqty = drugrateqty + group1.input6.value + "|";
	if ( !utlf_isNull(group1.input7.value)) drugrateqty = drugrateqty + group1.input7.value + "|";
	if ( !utlf_isNull(group1.input8.value)) drugrateqty = drugrateqty + group1.input8.value + "|";				
																																	
	if (!utlf_isNull(drugrateqty)) {
		drugrateqty = drugrateqty.substring ( 0, drugrateqty.length -1  );
		opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugrateqty", drugrateqty );
	}

	var drugmthdspccdnm = "";
	var drugmthdspccd = "";

	var prcpvol = 0;				
	var prcpqty = 0;
	var prcptims = 0;

	var bfprcpqty = 0;
	var bfprcptims = 0;				
	var gridchkflag ; 

	if ( ds_tmedmthd_tmedmthdlist.rowposition < 0 && bool1.value != "Y") {
		sysf_messageBox ( "선택된 복용방법이", "I004" );
		return;
	}
					
	for ( var i = 0; i < ds_tmedmthd_tmedmthdlist.rowcount; i++ ) {
		if ( ds_tmedmthd_tmedmthdlist.getColumn(i, "status") == "Y" ) {	
			gridchkflag = "Y" ; 
			//복용방법 중 안과용법이 선택된 경우, 시행부서를 특수조제실로 설정
			//2008. 08. 04 오지훈
			var mthdcd = ds_tmedmthd_tmedmthdlist.getColumn(ds_tmedmthd_tmedmthdlist.rowposition, "mthdcd");
			var hardcd = ds_init_hardcd_hardcd.lookup("hardcd", mthdcd ,"hardcd");
			if( !utlf_isNull(hardcd)){
				opener.ds_main_recinfo_prcplist.setColumn(openerrow, "prcpexecdeptcd", "3240807000");
			}
			
			drugmthdspccdnm 	 = ds_tmedmthd_tmedmthdlist.getColumn(ds_tmedmthd_tmedmthdlist.rowposition, "abbrnm" );
			drugmthdspccd   	 = ds_tmedmthd_tmedmthdlist.getColumn(ds_tmedmthd_tmedmthdlist.rowposition, "mthdcd" );
			exptmthdfact         = ds_main_cond.getColumn(0, "exptmthdfact");
			drugindependpackflag = ds_main_cond.getColumn(0, "drugindependpackflag");
			
			//예외용법을 선택한 경우, 용법 코드에 예외용법코드(ZZZ)를 설정한다.
			if(bool1.value == "Y"){
				drugmthdspccd = "ZZZ";
				drugmthdspccdnm = ipt_exptmthdfact.text;
			}
						
			if (opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpclscd" ) == "A6" ) {						
				opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugmthdspccdnm" , drugmthdspccdnm );
				opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugmthdspccd" , drugmthdspccd );
				this.close();
				return;
			}

			prcptims = eval(grd_mthd.getCellValue(ds_tmedmthd_tmedmthdlist.rowposition, 3));					
			var drugrateqty = opener.ds_main_recinfo_prcplist.getColumn(openerrow, "drugrateqty") + "^";
//			var drugcnt = 0;
			var childCnt = group1.children.length;
			var childObj;

			if ( ds.getColumn(0, "rateflag") == "Y" ) {
				prcpqty = 0;
// 				for( var j = 0; j < childCnt; j++ ) {
// 					childOb = group1.children.item(j)
// 					if( childOb.elementName == "xforms:input") {
// 						if (drugcnt < eval(prcptims)) {							    	
// 							prcpqty = prcpqty + eval(childOb.value);
// 						}
// 						drugcnt++;							
// 					}						
// 				}			
				//비율처방일 때는 수량, 용량을 setValue 한다.
				   if ( utlf_isNull(ds_chkflag.getColumn(0, "drugmthdspccd"))) {	 //일괄입력은 용량을 계산하지 않는다.
																										
						prcpvol 	= eval(opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpvol" ));	
						bfprcpqty 	= eval(opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpqty" ));
						bfprcptims 	= eval(opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcptims" ));	 	                                     
					if ( bfprcpqty != prcpqty ) {
						if ( sysf_messageBox ( "입력한 비율처방 수량이 원래수량과 틀립니다." , "Q009" ) == 7 ) {
							return;
						}
					}
					var calcprcpvol = prcpqty / bfprcpqty * prcpvol  ; 
			
					if ( calcprcpvol.toString().indexOf(".") >= 0 ) {
							calcprcpvol = calcprcpvol * 1000;
								calcprcpvol = Math.round(calcprcpvol);
							calcprcpvol = calcprcpvol / 1000;
					}																								
																																		
					opener.ds_main_recinfo_prcplist.setColumn(openerrow, "prcpvol", calcprcpvol );	
																																		
					}
																																	
					opener.ds_main_recinfo_prcplist.setColumn(openerrow, "prcpqty" , prcpqty );																					 	                                     							
			} else {
																																	
				opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugrateqty" , "-" );				   		
			}				   	
																																								
			opener.ds_main_recinfo_prcplist.setColumn(openerrow, "prcptims" , prcptims );								
		}
	}
		//예외용법을 선택한 경우, 용법 코드에 예외용법코드(ZZZ)를 설정한다.
	if(bool1.value == "Y"){
		gridchkflag = "Y" ;
		drugmthdspccd = "ZZZ";
		drugmthdspccdnm = ipt_exptmthdfact.text;
	}					

	opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugmthdspccdnm" , drugmthdspccdnm );
	opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugmthdspccd" , drugmthdspccd );	

	//예외용법 및 따로포장 설정, 2008. 06. 02 오지훈
	exptmthdfact         = ds_main_cond.getColumn(0, "exptmthdfact");
	drugindependpackflag = ds_main_cond.getColumn(0, "drugindependpackflag");				
	if(exptmthdfact != "-"){
		opener.ds_main_recinfo_prcplist.setColumn(openerrow, "exptmthdfact"    , exptmthdfact);
		opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugmthdspccdnm" , exptmthdfact);
	}else{
		opener.ds_main_recinfo_prcplist.setColumn(openerrow, "exptmthdfact" , "-");
	}

	//if(drugindependpackflag  != "N"){	by sonjy 막음처리 20081112 따로포장값이 선택한대로 보여지지 않고 설정되지 않는오류 처리				
	opener.ds_main_recinfo_prcplist.setColumn(openerrow, "drugindependpackflag", drugindependpackflag);
	//}

	//약일괄입력을 위해 추가
	opener.frmf_setParameter("SPMMO01900_prcptims", "Y" );
	if ( ds.getColumn(0, "rateflag") == "Y" ) {																	   	
		 opener.frmf_setParameter( "SPMMO01900_rateprcpflag", "Y" );	
		 opener.ds_main_recinfo_prcplist.setColumn(openerrow, "rateprcpflag", "Y" );												   	
	} else {
		 opener.frmf_setParameter( "SPMMO01900_rateprcpflag", "N" );								   				   		
		 opener.ds_main_recinfo_prcplist.setColumn(openerrow, "rateprcpflag", "N" );					
	}

	if ( gridchkflag == "Y" || bool2.value == "Y") { 
		gGridUpdateChk("per", openerrow, "child"); 
	}	

	this.close();			
}

function button2_onclick(obj:Button,  e:ClickEventInfo)
{
	opener.frmf_setParameter( "SPMMO01900_prcptims", "N" );
	opener.frmf_setParameter( "SPMMO01900_rateprcpflag", "N" );								   				   		
	this.close();			
}

function rdo_baseqty_onitemclick(obj:Radio, e:RadioMouseEventInfo)
{
	if( rdo_baseqty.value == 1 ) {
		ds.setColumn(0, "rateflag", "");
	 } else {
		//checkbox1.disabled = false;     		               	
	 }
	 //checkbox1.dispatch ( "xforms-value-changed" );
	 //submit parameter로 용법시간명 추가 2008.06.09 오지훈
	ds_send.setColumn(0, "mthdtimenm", cmb_mthdtime.text);
	
	dsf_setDefaultVal(ds_send, "mthdtime:-");
	
	var oParam = {};
    oParam.id          = "TRMMO01901";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetTmedTthdInfo";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_tmedmthd_tmedmthdlist=tmedmthdlist";
    oParam.async       = false;

	tranf_submit(oParam);
}

function grd_mthd_onmousemove(obj:Grid, e:GridMouseEventInfo)
{
	 if(e.row >-1 && e.col > -1){
 		
		if(!utlf_isNull(grd_mthd.getCellValue(e.row,e.col))){		
			grd_mthd.tooltiptext = grd_mthd.getCellValue(e.row,e.col);
		}else{
			grd_mthd.tooltiptext ="";
		}
 		
 	}
}

function ds_tmedmthd_tmedmthdlist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if( e.columnid == "status" ){
 		//obj.setColumn(e.row, "status", (e.newvalue == "true" || e.newvalue == 1) ? "Y" : "N");
 	}
}

function grd_mthd_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	//if( grd_mthd.isCell(event.target) && grd_mthd.row >= grd_mthd.fixedRows ){
	//예외 용법이 선택된 경우, 일반용법을 선택할 수 없도록 처리
	//2008. 08. 06
	if( e.row > -1 && e.col > -1 ){
		if(bool1.value == "Y"){
			sysf_messageBox("예외 용법이 선택된 경우, 일반용법을 선택", "E001");
			return;
			
		}else{
			ds_tmedmthd_tmedmthdlist.setColumn(ds_tmedmthd_tmedmthdlist.rowposition, "status", "Y" );
			frmf_inputEnterKey("button1", "onclick", new ClickEventInfo);
		}
	}
}

function grd_mthd_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	if( e.row > -1 && e.col > -1 ){
		ds_tmedmthd_tmedmthdlist.setColumn(ds_tmedmthd_tmedmthdlist.rowposition, "status", "Y" );

		for ( var i = 0; i < ds_tmedmthd_tmedmthdlist.rowcount; i++ ) {
			var status = ds_tmedmthd_tmedmthdlist.getColumn(i,"status" );
			if ( status == "Y" && i !=  ds_tmedmthd_tmedmthdlist.rowposition ) {
				ds_tmedmthd_tmedmthdlist.setColumn(i, "status", "N" );
			}
		}
		
		if ( group1.checkbox1.value == "Y" ) {
// 			var  cnt = 0 ;
// 			var childCnt = group1.children.length;
// 			var disableCnt = model.getValue ( "/root/tmedmthd/tmedmthdlist[" + grd_mthd.row +  "]/basecnt" );
// 			var childObj;
// 			
// 			for( var i = 0; i < childCnt; i++ ) {
// 				childOb = group1.children.item(i);
// 				if( childOb.elementName == "xforms:input") {
// 					if ( cnt <  disableCnt ) {
// 						childOb.disabled = false;
// 					} else {
// 						childOb.disabled = true;
// 						childOb.value = "";
// 					}
// 					cnt++;
// 				}
// 			}
		}
	}
}

function ds_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if( e.columnid == "rateflag" ){
 		obj.setColumn(0, "rateflag", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "");
 	}
}

function group1_checkbox1_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if ( group1.checkbox1.value == "Y" ) {
		var basecnt = ds_tmedmthd_tmedmthdlist.lookup("status", 'Y', "basecnt");
		if ( ds_tmedmthd_tmedmthdlist.rowposition < 0 ) {
			sysf_messageBox ( "복용방법을 선택하여 주십시오.", "E" );
			ds.setColumn(0, "rateflag", "");
		} else {
			group1.checkbox1.style.color =  "#ff0000"; 
			group1.checkbox1.style.font  =  "Dotum,9,bold"; 
			var cnt = 0;	
// 		var childCnt = group1.children.length;
// 		var childObj;
// 		for( var i = 0; i < childCnt; i++ ) {
// 			childOb = group1.children.item(i)
// 				if( childOb.elementName == "xforms:input") {
// 					if ( cnt < eval(basecnt) ) {
// 						childOb.disabled = false;
// 					 }else {
// 						childOb.disabled = true;
// 							childOb.value = "";
// 					}
// 					cnt++;
// 				}
// 			
// 			}
		}
	} else {
		group1.checkbox1.style.color =  "#000000"; 
		group1.checkbox1.style.font  =  "Dotum,9"; 
						
// 		var childCnt = group1.children.length;
// 		var childObj;
// 		for( var i = 0; i < childCnt; i++ ) {
// 			childOb = group1.children.item(i)
// 			if( childOb.elementName == "xforms:input") {
// 					childOb.disabled = true;
// 					childOb.value = "";
// 			}
// 			
// 		}  				    				
	}
}



function group1_input1_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input2.setFocus();
	}
}

function group1_input2_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input3.setFocus();
	}
}

function group1_input3_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input4.setFocus();
	}
}

function group1_input4_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input5.setFocus();
	}
}

function group1_input5_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input6.setFocus();
	}
}

function group1_input6_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input7.setFocus();
	}
}

function group1_input7_onkeydown(obj:MaskEdit, e:KeyEventInfo)
{
	if(e.keycode ==13){
		group1.input8.setFocus();
	}
}

function ds_main_cond_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if( e.columnid == "exptmthdfactflag" ){
 		obj.setColumn(0, "exptmthdfactflag", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
 	}
 	if( e.columnid == "drugindependpackflag" ){
 		obj.setColumn(0, "drugindependpackflag", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
 	}
}

function bool1_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	var exptmthdfactflag = bool1.value;
	if(exptmthdfactflag == "Y"){
		var sPrcpgenrFlag 	= opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpgenrflag") ; 
		var sPrcpClscd     	= opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpclscd") ;
		var sPrcpKindcd   	= opener.ds_main_recinfo_prcplist.getColumn(openerrow, "prcpkindcd") ; 
	
		if( sPrcpgenrFlag != "O" && sPrcpgenrFlag != "S" && sPrcpKindcd != "50" && sPrcpKindcd != "50" && sPrcpKindcd != "50") {
			if(sPrcpClscd == "A2" || sPrcpClscd == "A4" || sPrcpClscd == "A6") {
				ds_main_cond.setColumn(0, "exptmthdfactflag", "N");
				ds_main_cond.setColumn(0, "exptmthdfact", "-");

				ipt_exptmthdfact.enable = false;
				sysf_messageBox ( "입원 환자의 약품 처방은 병동 투약기록이 불가 하므로 예외용법을 적용 할 수 없습니다. \n '의사지시대로' 용법 선택 후 처방 전달사항으로 입력 하세요.", "E" );
			} else {
				ipt_exptmthdfact.enable = true;
			}
		} else {
			ipt_exptmthdfact.enable = true;
		}
	}else{
		ds_main_cond.setColumn(0, "exptmthdfact", "-");
		ipt_exptmthdfact.enable = false;
	}
}

function cmb_mthdtime_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	ds_send.setColumn(0, "mthdtimenm", cmb_mthdtime.text);

	dsf_setDefaultVal(ds_send, "mthdtime:-"); 
	
	var oParam = {};
    oParam.id          = "TRMMO01901";
    oParam.service     = "prcpmngtapp.PrcpMngt";
    oParam.method      = "reqGetTmedTthdInfo";
    oParam.inds        = "req=ds_send";
    oParam.outds       = "ds_tmedmthd_tmedmthdlist=tmedmthdlist";
    oParam.async       = false;

	tranf_submit(oParam);
}
]]></Script>
  </Form>
</FDL>