YNU_JEUS/app_home/himed/xpapps/emr/wardcarexp/xp/SMMNW10600_Todo기준자료관리.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMMNW10600" position="absolute 0 0 1060 773" titletext="간호 ALIAS 관리" oninit="SMMNW10600_oninit" onload="SMMNW10600_onload">
    <Layouts>
      <Layout>
        <Static text="기준자료관리" position="absolute 0 0 178 25" id="caption6" class="tit_1"/>
        <Shape id="line2" linetype="horizontal" class="line_10" position="absolute 0 87 1055 96" anchor="left top right"/>
        <Grid id="grd_prcplist" taborder="2" binddataset="ds_main_prcpinfo_prcplist" useinputpanel="false" position="absolute 0 93 340 769" autoenter="select" autofittype="col" cellsizingtype="col" anchor="left top bottom" oncellclick="grd_prcplist_oncellclick" selecttype="multirow" onlbuttonup="grd_prcplist_onlbuttonup">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="79"/>
                <Column size="210"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell text="선택"/>
                <Cell col="1" text="처방코드"/>
                <Cell col="2" text="처방명"/>
              </Band>
              <Band id="body">
                <Cell displaytype="checkbox" edittype="checkbox" text="bind:check" expr="expr:check == 'true' || check == '1' ?  1 : 0"/>
                <Cell col="1" style="align:left middle;padding:0 0 0 3;" text="bind:prcpcd"/>
                <Cell col="2" style="align:left top;padding:3 0 0 3;" text="bind:prcpnm" wordwrap="word"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Div id="group2" anchor="left top right" taborder="3" class="div_SA" position="absolute 0 25 1055 65">
          <Layouts>
            <Layout>
              <Shape id="line13" linetype="vertical" class="line_4" position="absolute 983 10 989 32" anchor="top right"/>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 991 10 1047 32" anchor="top right" onclick="group2_btn_search_onclick"/>
              <Static id="caption4" text="처방분류 :" class="search_name" position="absolute 5 11 96 28" anchor="default"/>
              <Combo id="combo1" taborder="2" innerdataset="@ds_init_prcpcdinfo_prcpclscdlist" codecolumn="cdid" datacolumn="cdnm" position="absolute 94 10 194 29" onitemchanged="group2_combo1_onitemchanged" anchor="default"/>
              <Static id="caption1" text="조회구분 :" class="search_name" position="absolute 219 11 310 28" anchor="default"/>
              <Edit id="ipt_prcp" taborder="3" class="input_s_essential" position="absolute 440 10 540 29" autoselect="true" autoskip="true" onkeyup="group2_ipt_prcp_onkeyup" onkillfocus="group2_ipt_prcp_onkillfocus" anchor="default"/>
              <Radio id="rdo_prcp" taborder="4" columncount="-1" rowcount="-1" codecolumn="codecolumn" datacolumn="datacolumn" class="radio_search" position="absolute 304 5 429 33" onitemchanged="group2_rdo_prcp_onitemchanged" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn"/>
                    <Column id="datacolumn"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">C</Col>
                      <Col id="datacolumn">처방코드</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">N</Col>
                      <Col id="datacolumn">처방명</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_todoprcplist" taborder="4" binddataset="ds_main_prcpinfo_todoprcplist" useinputpanel="false" position="absolute 375 93 1056 770" autoenter="select" autofittype="none" cellsizingtype="col" anchor="all" selecttype="multirow">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="90"/>
                <Column size="280"/>
                <Column size="200"/>
                <Column size="60"/>
                <Column size="100"/>
                <Column size="0"/>
              </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="Alias name"/>
                <Cell col="4" text="혈액여부"/>
                <Cell col="5" text="PRN여부"/>
                <Cell col="6" text="검사명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" class="update_n" text="bind:check"/>
                <Cell col="1" style="align:left middle;padding:0 0 0 3;" text="bind:prcpcd"/>
                <Cell col="2" style="align:left top;padding:3 3 3 3;" text="bind:prcpnm" wordwrap="word"/>
                <Cell col="3" displaytype="text" edittype="text" style="align:left top;padding:3 3 3 3;" text="bind:alias" wordwrap="word"/>
                <Cell col="4" displaytype="checkbox" edittype="checkbox" text="bind:bloodyn" expr="expr:bloodyn == 'Y' ? 1 : 0"/>
                <Cell col="5" displaytype="checkbox" edittype="checkbox" text="bind:prnyn" expr="expr:prnyn == 'Y' ? 1 : 0"/>
                <Cell col="6" text="bind:stat"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_apply" taborder="5" class="icon_right" position="absolute 345 279 371 298" onclick="btn_apply_onclick"/>
        <Button id="btn_prcpins" taborder="1" text="저장" class="btn5" position="absolute 1012 69 1054 88" anchor="top right" onclick="btn_prcpins_onclick"/>
        <Button id="button1" taborder="6" text="행삭제" class="btn2" position="absolute 958 69 1011 88" anchor="top right" onclick="button1_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_temp" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="prcpclscd" type="STRING" size="256"/>
          <Column id="prcpflag" type="STRING" size="256"/>
          <Column id="prcpcode" type="STRING" size="256"/>
          <Column id="baseflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="prcpclscd"/>
            <Col id="prcpflag">C</Col>
            <Col id="prcpcode"/>
            <Col id="baseflag">C</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_prcpinfo_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_prcpinfo_prcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="check"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="cdid"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="cdnm"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_main_prcpinfo_todoprcplist" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false" oncolumnchanged="ds_main_prcpinfo_todoprcplist_oncolumnchanged">
        <ColumnInfo>
          <Column id="check" type="STRING" size="256" sumtext="check"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="cdid"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="cdnm"/>
          <!-- (20101128) 경북대 
            <column id="alias"       type="string"    desc="alias"   ref="todoprcplist.alias"/>
             -->
          <Column id="alias" type="STRING" size="256" sumtext="alias"/>
          <Column id="stat" type="STRING" size="256" sumtext="stat"/>
          <Column id="bloodyn" type="STRING" size="256" sumtext="혈액여부"/>
          <Column id="prnyn" type="STRING" size="256" sumtext="마약성진통제의 경우 간호사prn발행가능처방여부"/>
          <Column id="baseflag" type="STRING" size="256" sumtext="C : todo ,H : 혈액처방,G: 마약성진통제 "/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_prcpcdinfo_prcpclscdlist" 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="narcflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_sTodoData" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group2.combo1" propid="value" datasetid="ds_temp" columnid="prcpclscd"/>
      <BindItem id="item1" compid="group2.rdo_prcp" propid="value" datasetid="ds_temp" columnid="prcpflag"/>
      <BindItem id="item2" compid="group2.ipt_prcp" propid="value" datasetid="ds_temp" columnid="prcpcode"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2017-02-14
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2017-02-14      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";
function SMMNW10600_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SMMNW10600_onload(obj:Form, e:LoadEventInfo)
{
	grdf_initGrid(grd_prcplist);
	grdf_initGrid(grd_todoprcplist);
	grdf_setRowTypeIcon(grd_todoprcplist, 0);
	
	var mParam =  frmf_getMenuParam();
	
	if ( mParam == "NARC" )
	{
		dsf_makeValue(ds_send, "narcflag", "string","Y");
		obj.text = "마약성 진통제 관리";
		ds_temp.setColumn(0, "baseflag","G");
		grd_todoprcplist.setFormatColProperty(4, "size", 0);
		grd_todoprcplist.setFormatColProperty(5, "size", 60);
	}
	else
	{
		grd_todoprcplist.setFormatColProperty(4, "size", 60);
		grd_todoprcplist.setFormatColProperty(5, "size", 0);
	}

	var oParam = {};
		oParam.id          = "TRMNW10601";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqGetPrcpclsCD";
		oParam.inds        = "req=ds_send";
		oParam.outds       = "ds_init_prcpcdinfo_prcpclscdlist=prcpclscdlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRMNW10601";

	tranf_submit(oParam);
		
	ds_temp.setColumn(0, "prcpclscd","-");
	
	group2.ipt_prcp.setFocus();
}

function group2_combo1_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	group2.ipt_prcp.value = "";
}

function group2_rdo_prcp_onitemchanged(obj:Radio, e:ItemChangeEventInfo)
{
	group2.ipt_prcp.value = "";
	ds_main_prcpinfo_prcplist.clearData();
	
	if (obj.value ==  "C") 
	{
		group2.ipt_prcp.imemode = "alpha";
	}
	else if (obj.value ==  "N") 
	{
		group2.ipt_prcp.imemode = "hangul";							
	}
	group2.ipt_prcp.setFocus();
}

function group2_ipt_prcp_onkeyup(obj:Edit, e:KeyEventInfo)
{
	if(e.keycode == 13)
	{
		obj.updateToDataset();
		group2.btn_search.setFocus();
		group2.btn_search.click();
	}
}

function group2_ipt_prcp_onkillfocus(obj:Edit, e:KillFocusEventInfo)
{
	group2.ipt_prcp.value = String(group2.ipt_prcp.value).toUpperCase();	
}

function group2_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	fSerch();
}

function fSerch(pFlag)
{
	var todoNodeList = ds_main_prcpinfo_todoprcplist.getCaseCount("stat == 'i' || stat == 'u' || stat == 'd'");
	
	if (pFlag != "CUD" && todoNodeList > 0 )
	{
		var returnMsg = sysf_messageBox("저장하지 않은 기준자료가 존재합니다. 무시하고 ", "Q003");// 계속 진행하시겠습니까?

		if ( returnMsg != 6 ) 
		{
			return;
		} 
	} 

	if(group2.combo1.value == "-")
	{
		if (String(ds_temp.getColumn(0, "prcpcode")).length < 2) 
		{
			sysf_messageBox("2자리 이상 ","C001");
			group2.ipt_prcp.setFocus();
			return;
		}
		else
		{
			ds_send.clearData();
			dsf_makeValue(ds_send, "prcpclscd", "string", ds_temp.getColumn(0, "prcpclscd"));
			dsf_makeValue(ds_send, "prcpflag", "string", ds_temp.getColumn(0, "prcpflag"));
			dsf_makeValue(ds_send, "baseflag", "string", ds_temp.getColumn(0, "baseflag"));
			dsf_makeValue(ds_send, "prcpcode", "string", ds_temp.getColumn(0, "prcpcode"));

			ds_main_prcpinfo_prcplist.clearData();
			ds_main_prcpinfo_todoprcplist.clearData();
			
			var oParam = {};
				oParam.id          = "TRMNW10602";
				oParam.service     = "wardcareapp.WardCareMngt";
				oParam.method      = "reqGetPrcpCD";
				oParam.inds        = "req=ds_send";
				oParam.outds       = "ds_main_prcpinfo_prcplist=prcplist ds_main_prcpinfo_todoprcplist=todoprcplist";
				oParam.async       = false;
				//oParam.callback    = "cf_TRMNW10602";

			tranf_submit(oParam);
		}
	}
	else
	{
		ds_send.clearData();
		dsf_makeValue(ds_send, "prcpclscd", "string", ds_temp.getColumn(0, "prcpclscd"));
		dsf_makeValue(ds_send, "prcpflag", "string", ds_temp.getColumn(0, "prcpflag"));
		dsf_makeValue(ds_send, "baseflag", "string", ds_temp.getColumn(0, "baseflag"));
		dsf_makeValue(ds_send, "prcpcode", "string", ds_temp.getColumn(0, "prcpcode"));
		
		ds_main_prcpinfo_prcplist.clearData();
		ds_main_prcpinfo_todoprcplist.clearData();	
		
		var oParam = {};
			oParam.id          = "TRMNW10602";
			oParam.service     = "wardcareapp.WardCareMngt";
			oParam.method      = "reqGetPrcpCD";
			oParam.inds        = "req=ds_send";
			oParam.outds       = "ds_main_prcpinfo_prcplist=prcplist ds_main_prcpinfo_todoprcplist=todoprcplist";
			oParam.async       = false;
			//oParam.callback    = "cf_TRMNW10602";

		tranf_submit(oParam);
	}
}

function ds_main_prcpinfo_prcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "check")
	{		
		var row = ds_main_prcpinfo_prcplist.rowposition;	
		ds_main_prcpinfo_prcplist.enableevent = false;
		ds_main_prcpinfo_prcplist.updatecontrol = false;
		if(ds_main_prcpinfo_prcplist.getColumn(row, "check") == "true" || ds_main_prcpinfo_prcplist.getColumn(row, "check") == "1")
		{
			ds_main_prcpinfo_prcplist.setColumn(row, "check", "true");
		}
		else
		{
			ds_main_prcpinfo_prcplist.setColumn(row, "check", "false");
		}		
		ds_main_prcpinfo_prcplist.updatecontrol = true;
		ds_main_prcpinfo_prcplist.enableevent = true;
	}
}

function ds_main_prcpinfo_todoprcplist_oncolumnchanged(obj:Dataset, e:DSColChangeEventInfo)
{
	if(e.columnid == "bloodyn")
	{
		obj.setColumn(e.row, "bloodyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	if(e.columnid == "prnyn")
	{
		obj.setColumn(e.row, "prnyn", (e.newvalue == "Y" || e.newvalue == 1) ? "Y" : "N");
	}
	
	var stat = obj.getColumn(e.row, "stat");
	if( (stat =="i") || (stat =="d")  )
	{
		return;                        	
	}
	obj.updatecontrol = false;
	obj.setRowType(e.row, "u");
	obj.setColumn(0, "stat", "u");
	obj.updatecontrol = true;
}

function grd_prcplist_oncellclick(obj:Grid, e:GridClickEventInfo)
{
	
}

function grd_prcplist_onlbuttonup(obj:Grid, e:GridMouseEventInfo)
{
	var rows = grdf_getSelectedRows(grd_prcplist);
	if(rows.length > 1)
	{
		for(var i = 0; i < rows.length; i++)
		{
			var m_row = rows[i];
			ds_main_prcpinfo_prcplist.setColumn(m_row, "check", "true");
		}
	}
}

function btn_apply_onclick(obj:Button,  e:ClickEventInfo)
{
	var prcpcd = "";	
	var todoprcpcd = "";	
	for(var j = 0; j < ds_main_prcpinfo_prcplist.rowcount; j++ )
	{
		if(ds_main_prcpinfo_prcplist.getColumn(j, "check") == "true")
		{	
			prcpcd = utlf_transNullToEmpty(ds_main_prcpinfo_prcplist.getColumn(j, "prcpcd"));
			prcpnm = utlf_transNullToEmpty(ds_main_prcpinfo_prcplist.getColumn(j, "prcpnm"));
			
			for(var i = 0; i < ds_main_prcpinfo_todoprcplist.rowcount; i++ )
			{
				todoprcpcd = ds_main_prcpinfo_todoprcplist.getColumn(i, "prcpcd");
				if(prcpcd == todoprcpcd )
				{
					sysf_messageBox(prcpcd+"처방코드가  ","E006");							
					return;
				}
			}
			
			var addRow = ds_main_prcpinfo_todoprcplist.addRow();
			ds_main_prcpinfo_todoprcplist.setColumn(addRow, "prcpcd", prcpcd);
			ds_main_prcpinfo_todoprcplist.setColumn(addRow, "prcpnm", prcpnm);
			
			if(group2.combo1.value == "F2")
			{
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "alias", "PT");
			}
			else if(group2.combo1.value == "G2")
			{
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "alias", "RT");
			}
			else if(group2.combo1.value == "B2")
			{
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "alias", "Lab");
			}
			else if(group2.combo1.value == "B6")
			{
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "alias", "Lab");
			}
			else if(group2.combo1.value == "B4")
			{
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "alias", "T/F");
				ds_main_prcpinfo_todoprcplist.setColumn(addRow, "bloodyn", "Y");
			}
			
			ds_main_prcpinfo_todoprcplist.updatecontrol = false;
			ds_main_prcpinfo_todoprcplist.setColumn(addRow, "stat", "i");
			ds_main_prcpinfo_todoprcplist.setRowType(addRow, "i");
			ds_main_prcpinfo_todoprcplist.updatecontrol = true;
			ds_main_prcpinfo_prcplist.deleteRow(j);
			j--;
		}
		else
		{
			continue;
		}
	}					
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var iRow = grdf_getSelectedRows(grd_todoprcplist);
	for( var idx = 0 ; idx < iRow.length; idx++ )
	{
		v_iRow = iRow[idx];
		
		ds_main_prcpinfo_todoprcplist.updatecontrol = false;
		ds_main_prcpinfo_todoprcplist.setColumn(v_iRow, "stat", "d");
		ds_main_prcpinfo_todoprcplist.setRowType(v_iRow, "d");
		ds_main_prcpinfo_todoprcplist.updatecontrol = true;		
	}
}

function btn_prcpins_onclick(obj:Button,  e:ClickEventInfo)
{
	var todoNodeList = ds_main_prcpinfo_todoprcplist.getCaseCount("bloodyn == 'N'");
	var statNodeList = ds_main_prcpinfo_todoprcplist.getCaseCount("stat == 'i' || stat == 'u' || stat == 'd'");

	if(group2.combo1.value == "B4" &&  todoNodeList != 0 && todoNodeList > 0 )
	{
		sysf_messageBox("처방분류가 수혈인 처방은 TODO 기준자료로 저장 할수 없습니다. 혈액여부를 ","C002"); //선택하십시오
		return;
	}
	else if (statNodeList == 0)
	{
		sysf_messageBox("저장할 항목이 존재하지 ","I011");//않습니다 
		return;
	}
	else 
	{
		if(sysf_messageBox("","Q002") != 6) return;
	}

	var xTodoPath = ds_main_prcpinfo_todoprcplist;// "/root/main/prcpinfo/todoprcplist";

	var sTodoData = "prcpcd"  
				+ "▦prcpnm" 
				+ "▦alias"  
				+ "▦stat"   
				+ "▦bloodyn"   
				+ "▦prnyn"   
				+ "▦baseflag"   
				+ "▩"   ;

	for (var i = 0; i < ds_main_prcpinfo_todoprcplist.rowcount; i++ ) 
	{
		if (xTodoPath.getColumn(i, "stat") == "i" || xTodoPath.getColumn(i, "stat") == "u" || xTodoPath.getColumn(i, "stat") == "d")
		{
			sTodoData   += xTodoPath.getColumn(i, "prcpcd")
						+ "▦" + xTodoPath.getColumn(i, "prcpnm")
						+ "▦" + xTodoPath.getColumn(i, "alias")
						+ "▦" + xTodoPath.getColumn(i, "stat")
						+ "▦" + xTodoPath.getColumn(i, "bloodyn")
						+ "▦" + xTodoPath.getColumn(i, "prnyn")
						+ "▦" + (ds_temp.getColumn(0, "baseflag") == "G" ? ds_temp.getColumn(0, "baseflag") : xTodoPath.getColumn(i, "bloodyn" ) == "Y" ? "H" : "C" )  
						+ "▩"   ;
		}
	}
	
	ds_send_sTodoData.clearData();
	dsf_setCSVToDs("ds_send_sTodoData", sTodoData);
	
	var oParam = {};
		oParam.id          = "TXMNW10601";
		oParam.service     = "wardcareapp.WardCareMngt";
		oParam.method      = "reqExeTodoPrcpCD";
		oParam.inds        = "reqdata=ds_send_sTodoData";
		oParam.outds       = "";
		oParam.async       = false;
		//oParam.callback    = "cf_TXMNW10601";

	tranf_submit(oParam);

	fSerch("CUD");
}

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