YNU_JEUS/app_home/himed/xpapps/ast/healcarecoopxp/xp/SMARC01900_타병원진료의뢰서조회.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SMARC01900_타병원진료의뢰서조회" classname="SMARC01900_타병원진료의뢰서조회" inheritanceid="" position="absolute 0 13 1195 757" titletext="타병원진료의뢰서조회" onload="SMARC01900_타병원진료의뢰서조회_onload">
    <Layouts>
      <Layout>
        <Static id="caption2" text="타병원진료의뢰서조회" class="tit_1" position="absolute 0 0 173 24"/>
        <Div id="group1" taborder="1" style="align: top;" position="absolute 0 24 1195 84" class="div_SA" anchor="left top right">
          <Layouts>
            <Layout>
              <Button id="btn_search" taborder="1" text="조회" class="btn1" position="absolute 1117 18 1173 40" anchor="top right" onclick="group1_btn_search_onclick"/>
              <Shape id="line8" linetype="vertical" class="line_4" position="absolute 1094 6 1097 54" anchor="top right"/>
              <Static id="caption9" text="조회일자 :" class="search_name" position="absolute 20 9 114 26" anchor="default"/>
              <Static id="caption11" text="진료과 :" class="search_name" position="absolute 414 11 508 28" anchor="default"/>
              <Static id="caption5" text="~" class="search_no_b" position="absolute 217 10 229 27" anchor="default"/>
              <Static id="caption12" text="등록상태 :" class="search_name" position="absolute 734 36 828 53" anchor="default"/>
              <Static id="caption4" text="등록번호 :" class="search_name" position="absolute 20 36 114 53" anchor="default"/>
              <Calendar id="ipt_fromdd" taborder="3" autoselect="true" class="input_search" position="absolute 110 9 210 28" anchor="default" dateformat="yyyy-MM-dd" value="null" style="align:center middle;" autoskip="true"/>
              <Calendar id="ipt_todd" taborder="4" autoselect="true" class="input_search" position="absolute 235 9 335 28" anchor="default" dateformat="yyyy-MM-dd" value="null" style="align:center middle;"/>
              <Edit id="ipt_drnm" taborder="7" class="input_search" position="absolute 110 34 210 53" anchor="default" onkeydown="fSearchEnterKey" autoselect="true"/>
              <Combo id="cmb_orddeptcd" taborder="8" innerdataset="ds_init_dept_dept" codecolumn="deptcd" datacolumn="depthngnm" class="combo_search" position="absolute 496 9 636 28" style="itemheight:15;" columncount="-1" rowcount="-1" anchor="default" onitemchanged="group1_cmb_orddeptcd_onitemchanged"/>
              <Combo id="cmb_repltype" taborder="10" codecolumn="codecolumn" datacolumn="datacolumn" class="combo_search" position="absolute 824 34 964 53" columncount="-1" rowcount="-1" anchor="default">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn"/>
                      <Col id="datacolumn">- 전 체 -</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">Y</Col>
                      <Col id="datacolumn">등록</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">N</Col>
                      <Col id="datacolumn">미등록</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Combo>
              <Combo id="cmb_orddrid" taborder="12" innerdataset="ds_init_doctlist_medispcl" codecolumn="doctid" datacolumn="doctnm" class="combo_search" position="absolute 824 9 964 28" columncount="-1" rowcount="-1" anchor="default"/>
              <Static id="caption6" text="진료의사 :" class="search_name" position="absolute 733 11 827 28" anchor="default"/>
              <Static id="caption00" text="환자명 :" class="search_name" position="absolute 414 36 508 53" anchor="default"/>
              <Edit id="ipt_hngnm" taborder="13" class="input_search" position="absolute 496 34 596 53" onkeydown="fSearchEnterKey" anchor="default" autoselect="true"/>
              <Button id="btn_patinfo" taborder="14" class="icon_search" position="absolute 215 35 231 51" onclick="group1_btn_patinfo_onclick" anchor="default"/>
            </Layout>
          </Layouts>
        </Div>
        <Grid id="grd_reqlist" taborder="2" useinputpanel="false" position="absolute 0 116 1195 711" binddataset="ds_reqlist" autofittype="col" oncelldblclick="grd_reqlist_oncelldblclick" autoenter="select" cellsizingtype="col" anchor="all">
          <Formats>
            <Format id="default">
              <Columns>
                <Column size="30"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="80"/>
                <Column size="169"/>
                <Column size="73"/>
                <Column size="160"/>
                <Column size="73"/>
                <Column size="198"/>
              </Columns>
              <Rows>
                <Row size="24" band="head"/>
                <Row size="24"/>
              </Rows>
              <Band id="head">
                <Cell/>
                <Cell col="1" displaytype="normal" text="등록상태"/>
                <Cell col="2" displaytype="normal" text="진료일자"/>
                <Cell col="3" displaytype="normal" text="등록번호"/>
                <Cell col="4" displaytype="normal" text="환자명"/>
                <Cell col="5" colspan="2" displaytype="normal" text="주민번호" taborder="undefined"/>
                <Cell col="7" displaytype="normal" text="진료과"/>
                <Cell col="8" displaytype="normal" text="진료의사"/>
                <Cell col="9" displaytype="normal" text="출력부서"/>
                <Cell col="10" displaytype="normal" text="출력자"/>
                <Cell col="11" text="OCR기록지명"/>
              </Band>
              <Band id="body">
                <Cell celltype="head" expr="currow+1"/>
                <Cell col="1" displaytype="combo" style="align:center;" text="bind:stat" combodataset="ds_init_stat" combocodecol="value" combodatacol="label"/>
                <Cell col="2" displaytype="normal" text="bind:orddd"/>
                <Cell col="3" displaytype="normal" text="bind:pid"/>
                <Cell col="4" displaytype="normal" text="bind:hngnm"/>
                <Cell col="5" displaytype="normal" text="bind:rrgstno1"/>
                <Cell col="6" displaytype="normal" text="bind:rrgstno2" mask="#aaaaaa" maskchar="*"/>
                <Cell col="7" displaytype="normal" text="bind:orddeptnm"/>
                <Cell col="8" displaytype="normal" text="bind:orddrnm"/>
                <Cell col="9" displaytype="normal" text="bind:prntdeptnm"/>
                <Cell col="10" displaytype="normal" style="align:center;" text="bind:prntusernm"/>
                <Cell col="11" text="bind:formnm"/>
              </Band>
            </Format>
          </Formats>
        </Grid>
        <Button id="btn_excel" taborder="3" text="엑셀저장" class="btn7" position="absolute 1116 90 1195 111" onclick="btn_excel_onclick" anchor="top right"/>
        <Button id="btn_ocrview" taborder="4" text="타병원진료의뢰" position="absolute 0 716 122 738" class="btn3" onclick="btn_ocrview_onclick" anchor="left bottom"/>
        <Button id="btn_ocrviewpriv" taborder="5" text="개인정보이용동의서" class="btn3" position="absolute 124 716 269 738" onclick="btn_ocrviewpriv_onclick" anchor="left bottom"/>
        <Button id="btn_init" taborder="6" text="초기화" class="btn4" position="absolute 1127 716 1195 738" onclick="btn_init_onclick" anchor="right bottom"/>
        <Shape id="line10" class="line_10" position="absolute 0 111 1195 117" anchor="left top right"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_send_search" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="fromdd" type="STRING" size="256"/>
          <Column id="todd" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="stat" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_reqlist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="stat" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="hngnm" type="STRING" size="256"/>
          <Column id="rrgstno1" type="STRING" size="256"/>
          <Column id="rrgstno2" type="STRING" size="256"/>
          <Column id="orddeptnm" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="formnm" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="acptseqno" type="STRING" size="256"/>
          <Column id="ioflag" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="formcd" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="dschdd" type="STRING" size="256"/>
          <Column id="indschacptstat" type="STRING" size="256"/>
          <Column id="ioclass" type="STRING" size="256"/>
          <Column id="ocrtag" type="STRING" size="256"/>
          <Column id="prntdeptnm" type="STRING" size="256"/>
          <Column id="prntusernm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_init_aformcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_bformcd" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_dept_dept" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_doctlist_medispcl" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="keep">
        <ColumnInfo>
          <Column id="doctid" type="STRING" size="256"/>
          <Column id="doctnm" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="doctid"/>
            <Col id="doctnm"/>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_doctor" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_patinfolist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_init_stat" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="value" type="STRING" size="256"/>
          <Column id="label" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row>
            <Col id="value">Y</Col>
            <Col id="label">등록</Col>
          </Row>
          <Row>
            <Col id="value">N</Col>
            <Col id="label">미등록</Col>
          </Row>
        </Rows>
      </Dataset>
      <Dataset id="ds_send_iemr" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="group1.ipt_fromdd" propid="value" datasetid="ds_send_search" columnid="fromdd"/>
      <BindItem id="item1" compid="group1.ipt_todd" propid="value" datasetid="ds_send_search" columnid="todd"/>
      <BindItem id="item2" compid="group1.cmb_orddeptcd" propid="value" datasetid="ds_send_search" columnid="orddeptcd"/>
      <BindItem id="item3" compid="group1.cmb_orddrid" propid="value" datasetid="ds_send_search" columnid="orddrid"/>
      <BindItem id="item4" compid="group1.ipt_drnm" propid="value" datasetid="ds_send_search" columnid="pid"/>
      <BindItem id="item5" compid="group1.ipt_hngnm" propid="value" datasetid="ds_send_search" columnid="hngnm"/>
      <BindItem id="item6" compid="group1.cmb_repltype" propid="value" datasetid="ds_send_search" columnid="stat"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[include "com_commonxp::comm_main.xjs";
include "emr_prcpmngtxp::MMO001.xjs"
include "com_departmentcodexp::ZSD001.xjs";

function SMARC01900_타병원진료의뢰서조회_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);
	
	fInit();
}

// 초기값 셋팅
function fInit()
{
	lf_getHardCDList("N", 1310, null, ds_init_aformcd);
	lf_getHardCDList("N", 5561, null, ds_init_bformcd);
		
	//mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/aformcd", 1310); //타병원
	//mmbfGetHardCodeInfo("/root/send/reqdata", "/root/init/bformcd", 5561); //개인정보 
	
	// 오늘 날짜로 세팅
	var CurrentDate = utlf_getCurrentDate();

	ds_send_search.setColumn(0, "fromdd", CurrentDate);
	ds_send_search.setColumn(0, "todd", CurrentDate);
	ds_send_search.setColumn(0, "orddeptcd", "");
	ds_send_search.setColumn(0, "orddrid", "");
	ds_send_search.setColumn(0, "stat", "");
	
	
	// 진료과
	//var instcd = "012";
	var instcd = sysf_getUserInfo("dutplceinstcd");
	//var standard_yn = "orduseyn";
	var standard_yn = "rcptuseyn";
	var ord_deptflag = 'D';
	var rslt_ref  = "/root/init/dept";
	var sort_method = "depthngnm";
	//zbcfGetDeptCodeList(instcd, standard_yn, ord_deptflag, rslt_ref, sort_method);
	//sort_field = "depthngnm"
	//zsdfGetInOutOrdDeptList(instcd, rslt_ref, sort_field, sort_method);
	lf_mmbfGetDeptCodeComboList(ds_init_dept_dept, "A");
	grdf_sortNodeList(ds_init_dept_dept, "depthngnm", "asc"); // 가나다 순으로 정리되도록 수정.
	
	frmf_addComboItem("group1.cmb_orddeptcd", "- 전 체 -", "", "above");
	
	// 공통코드 목록 가져오기
	//zbcfGetCodeList(new Array("A0420"), new Array("/root/init/cptype") , true);
	
	fDoctSerach();
	
	
	
	
}

// 진료의사 조회
function fDoctSerach()
{
	//  진료의사
	ds_send_doctor.clearData();	
	dsf_makeValue( ds_send_doctor, "orddd", "string",  ds_send_search.getColumn(0, "fromdd"));
	dsf_makeValue( ds_send_doctor, "orddeptcd", "string",  ds_send_search.getColumn(0, "orddeptcd"));	

	var oParam = {};
	oParam.id          = "TRARC01302";
	oParam.service     = "healcarecoopapp.ReqAgnMngt";
	oParam.method      = "reqGetDoctList";
	oParam.inds        = "req=ds_send_doctor";
	oParam.outds       = "ds_init_doctlist_medispcl=medispcl";
	oParam.async       = false;
	//oParam.callback    = "cf_TRARC01302";

	tranf_submit(oParam);


	group1.cmb_orddrid.index=0;

	
}


function group1_btn_search_onclick(obj:Button,  e:ClickEventInfo)
{
	if ( !fCheckDate() ) return;  //필수 저장여부 체크
	
	fSearch();
}

function fCheckDate()
{
	var fromdd = ds_send_search.getColumn(0,"fromdd");
	var todd = ds_send_search.getColumn(0,"todd");
	var pid = ds_send_search.getColumn(0,"pid");
	
	if (utlf_isNull(pid) == true)
	{
		if( ! utlf_isValidDateTime( fromdd, 'YYYYMMDD') || ! utlf_isValidDateTime( todd, 'YYYYMMDD') ){
			
			sysf_messageBox("입력하신 일자구분이 정확한 날짜타입이 아닙니다.", "E999", "");
			return false;	
		}
		
		/* 기간조건 삭제(20100217) 
		if( getDateInterval(fromdd, todd) > 31 ){
			messageBox("조회가능한 최대 기간은 1달입니다. 일자구분에서 날짜를 수정하세요!", "E999", "");
			return false;	
		}
		*/

		if( utlf_getDateInterval(fromdd, todd) < 0 ){
			sysf_messageBox("일자구분에서 시작일자가 종료일자보다 미래일자 입니다. 확인하세요!", "E999", "");
			return false;
		}
		
		// 날짜 계산
		var daycnt = utlf_getDateInterval(fromdd, todd);
		
		/* 기간조건 삭제(20100217)
		// 1일이 아닌 경우는 조건을 타야 함
		if (daycnt != 0)
		{
			// 진료과 체크
			if (model.getValue("/root/send/search/orddeptcd") == "")
			{
				messageBox("일자구분에서 하루 이상의 기간을 선택했을 경우, 진료과는 조회 필수 조건입니다. 진료과를 입력하세요.", "E999", "");
				//messageBox("진료과를 ","C002");
				return false;
			}
			
			if (ipt_hngnm.currentText.length > 0 && ipt_hngnm.currentText.length < 2)  {
				messageBox("환자명은 2글자 이상으로 해주십시요!","E999","");
				model.setFocus("ipt_hngnm");
				return false;
			}
		}
		*/
		
		if (group1.ipt_hngnm.text.length > 0 && group1.ipt_hngnm.text.length < 2)  {
			sysf_messageBox("환자명은 2글자 이상으로 해주십시요!","E999","");
			group1.ipt_hngnm.setFocus();
			return false;
		}
	}

	return true;
}

// 조회
function fSearch()
{
	/*
	// reqGetReqDocuList
	// getReqDocuList
	if (submit("TRARC01901", false) == true)
	{
		if (model.getValue("/root/send/search/stat") == "Y")
		{
			grd_list.nodeset = "/root/main/list/reqlist[stat='Y']";
		}
		else if (model.getValue("/root/send/search/stat") == "N")
		{
			grd_list.nodeset ="/root/main/list/reqlist[stat='N']";
		}
	}
	else
	{
		messageBox("조회를", "E009");
	}
	model.refresh();
	*/
	var oParam = {};
		oParam.id          = "TRARC01901";
		oParam.service     = "healcarecoopapp.ReqMngt";
		oParam.method      = "reqGetReqDocuList";
		oParam.inds        = "req=ds_send_search";
		oParam.outds       = "ds_reqlist=reqlist";
		oParam.async       = false;
		//oParam.callback    = "cf_TRARC01302";

	tranf_submit(oParam);
	
}

function group1_cmb_orddeptcd_onitemchanged(obj:Combo, e:ItemChangeEventInfo)
{
	fDoctSerach();
}

function group1_btn_patinfo_onclick(obj:Button,  e:ClickEventInfo)
{
	fPatPopUp();
}

// 등록번호 조회 팝업
function fPatPopUp()
{

    ds_patinfolist.clearData();
    
	frmf_modal("SPPMC02500", "SPPMC02500", "", "", "1", "10", "10", "", "", "", "", "", "M");

   
	ds_send_search.setColumn( 0, "pid", ds_patinfolist.getColumn(0, "pid"));
	ds_send_search.setColumn( 0, "hngnm", ds_patinfolist.getColumn(0, "hngnm"));

}

function fSearchEnterKey(obj, e)
{
	
	if (e.keycode == 13) 
	{
		obj.updateToDataset();
	
		// 조회
		fSearch();

	}
}

function btn_excel_onclick(obj:Button,  e:ClickEventInfo)
{
	fExcel();
}

// 리스트 엑셀 파일로 저장
function fExcel()
{
	if (ds_reqlist.rowcount < 1) return;

	grdf_exportExcel(grd_reqlist, "타병원진료의뢰리스트", "SheetName",true);
	
}

function btn_ocrview_onclick(obj:Button,  e:ClickEventInfo)
{
	fOCRView("A");
}

function btn_ocrviewpriv_onclick(obj:Button,  e:ClickEventInfo)
{
	fOCRView("B");
}

// OCR 기록보기
function fOCRView(flag)
{
	var row = ds_reqlist.rowposition;
	
	if(row < 0) return;
	
	var pid = ds_reqlist.getColumn(row, "pid");
	
	var formcd = "";
	
	if ( utlf_isNull(pid) ) {
		sysf_messageBox("등록번호가 선택되지 않았습니다","I");
		return;
	}
	
	if ( flag == "A") {
		formcd = ds_init_aformcd.getColumn(0, "hardcd"); //타병원
	}
	else if ( flag == "B" ) {
		formcd = ds_init_bformcd.getColumn(0, "hardcd"); //개인정보	
	}
		
	ds_send_iemr.clearData(); ds_send_iemr.addRow();
	
	dsf_makeValue( ds_send_iemr, "pid", "string", pid);
	dsf_makeValue( ds_send_iemr, "docucd", "string", formcd);
	
	var obj = frmf_findPopup("SSMRC03130");
	if(obj == null)
	{
		//window.load("../../.._emr_imgemrweb_xrw_SSMRC03130.xrw", "modeless", "imgemrviewer", "", "_root_send_iemr", "_root_hidden_temp");
		var objArg = {"arg_ds_hidden_temp":ds_send_iemr};
		frmf_open("SSMRC03130", "SSMRC03130", objArg, "", "", "", "", "", "", "", "", "", "M");
	}
	else
	{
		var iemrNode = ds_send_iemr;
		obj.reloadChart(iemrNode);
		obj.setFocus();
	}
	
}


function btn_init_onclick(obj:Button,  e:ClickEventInfo)
{
	fAllClear();
}

function fAllClear()
{
	ds_reqlist.clearData();
	
	fInit();
	
	
}
function grd_reqlist_oncelldblclick(obj:Grid, e:GridClickEventInfo)
{
	fOpen();
}

// 더블클릭시 상단정보 올리고 의뢰환자등록 팝업 호출
function fOpen()
{
	if (ds_reqlist.rowcount < 1) return;


	var idxRow = ds_reqlist.rowposition;   //그리드에서 해당 환자 선택

	var pid       = ds_reqlist.getColumn(idxRow, "pid");  
	var hngnm     = ds_reqlist.getColumn(idxRow, "hngnm");  
	var orddd     = ds_reqlist.getColumn(idxRow, "orddd");  
	var cretno    = ds_reqlist.getColumn(idxRow, "cretno");  
	var acptseqno = ds_reqlist.getColumn(idxRow, "acptseqno");  

	var ordtype   = ds_reqlist.getColumn(idxRow, "ordtype");  
	var dschdd    = ds_reqlist.getColumn(idxRow, "dschdd");  
	var indschacptstat = ds_reqlist.getColumn(idxRow, "indschacptstat");  

	var instcd = sysf_getUserInfo("dutplceinstcd");
    //var condparam = "O▦" + pid + "▦" + orddd + "▦" + cretno + "▦" + instcd + "▦" + acptseqno + "▦" + orddd;

    var curdate = utlf_getCurrentDate();

	frmf_clearParameter("pid");

	if (ordtype == "E")
	{
			curdate = orddd;
	}
	else if (ordtype == "I")
	{
			if (indschacptstat == "D")
			{
			curdate = dschdd;
			}
			else if (indschacptstat == "T")
			{
				if (dschdd != "99991231")
				{
					curdate = dschdd;
				}
			}
	}
	else if (ordtype == "O")
	{
		curdate = orddd;
	}
	

	if (ordtype != "O" && ordtype != "I" && ordtype !="E")
	{

		if(sysf_getGlobalVariable("paminfo").length > 0){
		appf_delPatientInfos();
	}
	var pid = frmf_setParameter("pid", pid);
	}
	else
	{

		var condparam = ordtype + '▦' + pid + '▦' + orddd + '▦' + cretno + '▦' + instcd + '▦' + curdate;
		appf_initPatientInfo(condparam);	//상단정보 셋팅
	

	}

	//curEmrRecObj   = getOpenWindow("SPARC00100"); //활성화된 진료기록 화면 object loading
   var curEmrRecObj = frmf_findPopup("SPARC00100");	//활성화된 진료기록 화면 object loading

	if(!utlf_isNull(curEmrRecObj))
	{
		curEmrRecObj.fInit();
	}
	else
	{
		frmf_open("SPARC00100", "SPARC00100", "", "", "1", "1", "1", "", "", "", "", "", "M");
	}

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