YNU_JEUS/app_home/himed/xpapps/emr/prcpmngtxp/xp/SPMMO12700_일괄입력식이.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPMMO12700" position="absolute 0 0 408 80" titletext="일괄입력[식이]" oninit="SPMMO12700_oninit" onload="SPMMO12700_onload">
    <Layouts>
      <Layout>
        <Static position="absolute 199 57 285 80" id="caption22" class="cell_1"/>
        <Button position="absolute 294 60 350 80" id="button1" class="btn4" text="확인" onclick="button1_onclick"/>
        <Button position="absolute 352 60 408 80" id="button2" class="btn3" text="취소" onclick="button2_onclick"/>
        <Static position="absolute 0 4 100 54" id="caption3" class="cell_1"/>
        <CheckBox position="absolute 5 58 97 78" id="checkbox1" visible="false" falsevalue="N" truevalue="Y" text="보호자식" onclick="checkbox1_onclick"/>
        <CheckBox position="absolute 5 4 77 29" id="checkbox5" text="전달사항" falsevalue="N" truevalue="Y" onclick="checkbox5_onclick"/>
        <TextArea position="absolute 101 4 408 54" id="textarea1" enable="false" autoselect="true" wordwrap="word"/>
        <Shape position="absolute 0 0 408 3" id="line7" class="line_1" type="rectangle"/>
        <CheckBox position="absolute 103 58 195 78" id="checkbox10" visible="false" falsevalue="N" truevalue="Y" text="보호자식"/>
        <Shape position="absolute 0 53 408 59" id="line4" class="line_3"/>
        <Button position="absolute 78 6 98 26" id="button61" class="icon_search" text="" onclick="button61_onclick"/>
        <CheckBox position="absolute 204 58 284 78" id="bool2" text="기왕증" falsevalue="N" truevalue="Y" onclick="bool2_onclick"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_chkflag" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="drugpackflag" type="STRING" size="256"/>
          <Column id="prcpdelivefact" type="STRING" size="256"/>
          <Column id="anamneflag" type="STRING" size="256"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
      <Dataset id="ds_main_prcplist" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="status" type="STRING" size="256" sumtext="입력,수정,삭제,d/c"/>
          <Column id="prcpstatcd" type="STRING" size="256" sumtext="처방상태코드"/>
          <Column id="prcpclscd" type="STRING" size="256" sumtext="처방분류코드"/>
          <Column id="prcpkindcd" type="STRING" size="256" sumtext="처방종류코드"/>
          <Column id="prcpcd" type="STRING" size="256" sumtext="처방코드"/>
          <Column id="prcpnm" type="STRING" size="256" sumtext="처방명"/>
          <Column id="prcpvol" type="STRING" size="256" sumtext="처방용량"/>
          <Column id="prcpvolunitnm" type="STRING" size="256" sumtext="처방용량단위명"/>
          <Column id="prcpqty" type="STRING" size="256" sumtext="처방수량"/>
          <Column id="prcpqtyunitnm" type="STRING" size="256" sumtext="처방수량단위명"/>
          <Column id="prcptims" type="STRING" size="256" sumtext="처방횟수"/>
          <Column id="prcpdayno" type="STRING" size="256" sumtext="처방일수"/>
          <Column id="drugmthdspccdnm" type="STRING" size="256" sumtext="투여방법검체코드명"/>
          <Column id="prcpmixno" type="STRING" size="256" sumtext="처방mix번호"/>
          <Column id="payflagcd" type="STRING" size="256" sumtext="급여구분코드"/>
          <Column id="prcpdelivefact" type="STRING" size="256" sumtext="전달사항"/>
          <Column id="hosinhosoutflag" type="STRING" size="256" sumtext="원내/원외구분"/>
          <Column id="prcpexecdeptcd" type="STRING" size="256" sumtext="처방실시부서코드"/>
          <Column id="prcphopedd" type="STRING" size="256" sumtext="처방희망일시"/>
          <Column id="choiordflag" type="STRING" size="256" sumtext="선택진료구분"/>
          <Column id="rgstdt" type="STRING" size="256" sumtext="등록일시"/>
          <Column id="rgstridnm" type="STRING" size="256" sumtext="등록자명"/>
          <Column id="testrsltunit" type="STRING" size="256" sumtext="검사결과단위"/>
          <Column id="testrsltcnts" type="STRING" size="256" sumtext="검사결과"/>
          <Column id="prcpgenrflag" type="STRING" size="256" sumtext="처방발생구분"/>
          <Column id="prcphistcd" type="STRING" size="256" sumtext="처방이력코드"/>
          <Column id="tempprcpflag" type="STRING" size="256" sumtext="임시처방구분"/>
          <Column id="prcpsetcd" type="STRING" size="256" sumtext="처방set코드"/>
          <Column id="prcpvolunitflag" type="STRING" size="256" sumtext="처방용량단위구분"/>
          <Column id="prcpqtyunitflag" type="STRING" size="256" sumtext="처방수량단위구분"/>
          <Column id="orgprcpqty" type="STRING" size="256" sumtext="실제처방수량"/>
          <Column id="drugspd" type="STRING" size="256" sumtext="투여속도"/>
          <Column id="drugspdunitflag" type="STRING" size="256" sumtext="투여속도단위구분"/>
          <Column id="powdflag" type="STRING" size="256" sumtext="파우더구분"/>
          <Column id="prnprcpflag" type="STRING" size="256" sumtext="prn처방구분"/>
          <Column id="prepprcpflag" type="STRING" size="256" sumtext="prep처방구분"/>
          <Column id="selfprcpflag" type="STRING" size="256" sumtext="자가처방구분"/>
          <Column id="selfdrugflag" type="STRING" size="256" sumtext="self약구분"/>
          <Column id="drugpackflag" type="STRING" size="256" sumtext="투약포장구분"/>
          <Column id="erprcpflag" type="STRING" size="256" sumtext="응급처방구분"/>
          <Column id="precureprcpflag" type="STRING" size="256" sumtext="선처치처방구분"/>
          <Column id="nigtprcpflag" type="STRING" size="256" sumtext="야간처방구분"/>
          <Column id="portprcpflag" type="STRING" size="256" sumtext="포터블처방구분"/>
          <Column id="fixprcpflag" type="STRING" size="256" sumtext="정액처방구분"/>
          <Column id="anamneflag" type="STRING" size="256" sumtext="기왕증(력)구분"/>
          <Column id="fastprcpflag" type="STRING" size="256" sumtext="금식처방구분"/>
          <Column id="erreadflag" type="STRING" size="256" sumtext="응급판독구분"/>
          <Column id="prcpdirecflag" type="STRING" size="256" sumtext="처방방향구분"/>
          <Column id="tnsuseflag" type="STRING" size="256" sumtext="수혈사용구분"/>
          <Column id="tnsfiltflag" type="STRING" size="256" sumtext="수혈필터구분"/>
          <Column id="trnptbftestflag" type="STRING" size="256" sumtext="이식전검사구분"/>
          <Column id="offictourhealexamflag" type="STRING" size="256" sumtext="출장건진구분"/>
          <Column id="stemcellflag" type="STRING" size="256" sumtext="조혈모(줄기)세포구분"/>
          <Column id="angioflagcd" type="STRING" size="256" sumtext="angio구분"/>
          <Column id="opansflagcd" type="STRING" size="256" sumtext="수술마취구분"/>
          <Column id="ansttm" type="STRING" size="256" sumtext="마취시간"/>
          <Column id="mealcalrcnts" type="STRING" size="256" sumtext="식이열량함량"/>
          <Column id="mealprotcnts" type="STRING" size="256" sumtext="식이단백질함량"/>
          <Column id="mealupdtflag" type="STRING" size="256" sumtext="식이수정구분"/>
          <Column id="hosinprcpresncd" type="STRING" size="256" sumtext="원내처방사유코드"/>
          <Column id="etcprcpresncd" type="STRING" size="256" sumtext="기타처방사유코드"/>
          <Column id="drugmthdspccd" type="STRING" size="256" sumtext="투여방법검체코드"/>
          <Column id="issdeptcd" type="STRING" size="256" sumtext="발행부서코드"/>
          <Column id="prcpauthflag" type="STRING" size="256" sumtext="처방권한구분"/>
          <Column id="prcpinptflag" type="STRING" size="256" sumtext="처방입력구분"/>
          <Column id="prcpsignflag" type="STRING" size="256" sumtext="처방서명구분"/>
          <Column id="rateprcpflag" type="STRING" size="256" sumtext="비율처방구분"/>
          <Column id="prcprefseq" type="STRING" size="256" sumtext="처방조회순서"/>
          <Column id="ordreqlnkno" type="STRING" size="256" sumtext="진료의뢰연결번호"/>
          <Column id="testreqlnkno" type="STRING" size="256" sumtext="검사의뢰연결번호"/>
          <Column id="prcplnkdd" type="STRING" size="256" sumtext="처방연계일자"/>
          <Column id="prcplnkno" type="STRING" size="256" sumtext="처방연계번호"/>
          <Column id="oprsrvno" type="STRING" size="256" sumtext="수술예약번호"/>
          <Column id="tootfact" type="STRING" size="256" sumtext="치식사항"/>
          <Column id="clinccmtcnts" type="STRING" size="256" sumtext="임상소견내용"/>
          <Column id="prcpessninptflag" type="STRING" size="256" sumtext="처방필수입력구분"/>
          <Column id="grupsnglflag" type="STRING" size="256" sumtext="그룹싱글구분"/>
          <Column id="drugrateqty" type="STRING" size="256" sumtext="투약비율수랑"/>
          <Column id="asttestflag" type="STRING" size="256" sumtext="ast검사구분"/>
          <Column id="clincstdyflag" type="STRING" size="256" sumtext="임상연구구분"/>
          <Column id="prtlno" type="STRING" size="256" sumtext="프로토콜번호"/>
          <Column id="clincstdycd" type="STRING" size="256" sumtext="임상연구코드"/>
          <Column id="optermcd" type="STRING" size="256" sumtext="수술용어"/>
          <Column id="prcpflag" type="STRING" size="256" sumtext="처방구분"/>
          <Column id="hscttempprcpflag" type="STRING" size="256" sumtext="hsct임시처방구분"/>
          <Column id="inclprcpcd" type="STRING" size="256" sumtext="종속처방코드"/>
          <Column id="inclprcpno" type="STRING" size="256" sumtext="종속처방번호"/>
          <Column id="pampkspec" type="STRING" size="256" sumtext="원무pk내역"/>
          <Column id="prcppkspec" type="STRING" size="256" sumtext="처방pk내역"/>
          <Column id="calcscormastspec" type="STRING" size="256" sumtext="수가마스터내역"/>
          <Column id="drugmastspec" type="STRING" size="256" sumtext="약품마스터내역"/>
          <Column id="rateprcpspec" type="STRING" size="256" sumtext="비율처방내역"/>
          <Column id="matrsetprcpspec" type="STRING" size="256" sumtext="재료set처방내역"/>
          <Column id="suppdeptspec" type="STRING" size="256" sumtext="지원부서내역"/>
          <Column id="contprcpspec" type="STRING" size="256" sumtext="연속처방내역"/>
          <Column id="etclnkspec" type="STRING" size="256" sumtext="기타연계내역"/>
          <Column id="srchcondcnts" type="STRING" size="256" sumtext="검색조건내용"/>
          <Column id="orgprcpnm" type="STRING" size="256" sumtext="수가처방명"/>
          <Column id="chkcol" type="STRING" size="256" sumtext="전처방check표시"/>
          <Column id="hsctdelivepos" type="STRING" size="256" sumtext="hsct전달위치"/>
          <Column id="hsctlnkno" type="STRING" size="256" sumtext="hsct연계번호"/>
          <Column id="etcprcpflag" type="STRING" size="256" sumtext="기타처방구분"/>
          <Column id="aftcertflag" type="STRING" size="256" sumtext="후인증구분"/>
          <Column id="aftcertdrid" type="STRING" size="256" sumtext="후인증대상의사id"/>
          <Column id="prcpvalidd" type="STRING" size="256" sumtext="처방유효일자"/>
          <Column id="spynpy1" type="STRING" size="256" sumtext="환자급비유형"/>
          <Column id="specdrid" type="STRING" size="256" sumtext="선택진료의id"/>
          <Column id="specdrnm" type="STRING" size="256" sumtext="선택진료의명"/>
          <Column id="anticncrprtlno" type="STRING" size="256" sumtext="항암프로토콜에대한코드로일련번호형태로관리"/>
          <Column id="anticncrdayno" type="STRING" size="256" sumtext="항암프로토콜의실시차수"/>
          <Column id="druglnkno" type="STRING" size="256" sumtext="항암프로토콜,tpn처방의처방번호"/>
          <Column id="rehbprcpcurefreqflag" type="STRING" size="256" sumtext="재활처방치료빈도"/>
          <Column id="dietprcpgenrflag" type="STRING" size="256" sumtext="식이처방발생구분"/>
          <Column id="irpayflag" type="STRING" size="256" sumtext="irradiation급비구분"/>
          <Column id="irflag" type="STRING" size="256" sumtext="irradiation구분"/>
          <Column id="procerdietflag" type="STRING" size="256" sumtext="보호자식이구분"/>
          <Column id="diagtestconttestintvlflag" type="STRING" size="256" sumtext="진단검사연속검사기본시간"/>
          <Column id="drugindependpackflag" type="STRING" size="256" sumtext="따로포장구분"/>
          <Column id="diagtestconttestbasetm" type="STRING" size="256" sumtext="진단검사연속검사기본시간"/>
          <Column id="diagtestconttestorgtims" type="STRING" size="256" sumtext="진단검사연속검사원횟수"/>
          <Column id="ermediscmngtresncd" type="STRING" size="256" sumtext="응급의학관리료사유코드"/>
          <Column id="rehbprcpenddd" type="STRING" size="256" sumtext="재활처방마감일자"/>
          <Column id="matrallsizespecid" type="STRING" size="256" sumtext="재료allsize규격id"/>
          <Column id="rehbprcpcurepartcd" type="STRING" size="256" sumtext="재활처방치료부위"/>
          <Column id="lowdrugresncd" type="STRING" size="256" sumtext="저함량배수사유코드"/>
          <Column id="tfdtlcd" type="STRING" size="256" sumtext="경장영양식세부코드"/>
          <Column id="dnorreqlnkno" type="STRING" size="256" sumtext="hla검사의뢰지"/>
          <Column id="subcretno" type="STRING" size="256" sumtext="기왕증,임상연구보조유형"/>
          <Column id="exptmthdfact" type="STRING" size="256" sumtext="예외용법설명"/>
          <Column id="lowdrugresnetcfact" type="STRING" size="256" sumtext="기타저함량배수상세사유"/>
          <Column id="diagtestconttestcdspec" type="STRING" size="256" sumtext="진단검사연속검사코드내역"/>
          <Column id="drgacptflag" type="STRING" size="256" sumtext="drg인정flag"/>
          <Column id="drprcpetc1" type="STRING" size="256" sumtext="의사처방기타1"/>
          <Column id="drprcpetc2" type="STRING" size="256" sumtext="의사처방기타2"/>
          <Column id="drprcpetc3" type="STRING" size="256" sumtext="의사처방기타3"/>
          <Column id="drprcpetc4" type="STRING" size="256" sumtext="의사처방기타4"/>
          <Column id="drprcpetc5" type="STRING" size="256" sumtext="의사처방기타5"/>
          <Column id="drprcpetc6" type="STRING" size="256" sumtext="의사처방기타6"/>
          <Column id="drprcpetc7" type="STRING" size="256" sumtext="의사처방기타7"/>
          <Column id="drprcpetc8" type="STRING" size="256" sumtext="의사처방기타8"/>
          <Column id="drprcpetc9" type="STRING" size="256" sumtext="의사처방기타9"/>
          <Column id="drprcpetc10" type="STRING" size="256" sumtext="의사처방기타10"/>
          <Column id="tempcol1" type="STRING" size="256" sumtext="임시컬럼1"/>
          <Column id="tempcol2" type="STRING" size="256" sumtext="임시컬럼2"/>
          <Column id="tempcol3" type="STRING" size="256" sumtext="임시컬럼3"/>
          <Column id="tempcol4" type="STRING" size="256" sumtext="임시컬럼4"/>
          <Column id="tempcol5" type="STRING" size="256" sumtext="임시컬럼5"/>
          <Column id="tempcol6" type="STRING" size="256" sumtext="임시컬럼6"/>
          <Column id="tempcol7" type="STRING" size="256" sumtext="임시컬럼7"/>
          <Column id="tempcol8" type="STRING" size="256" sumtext="임시컬럼8"/>
          <Column id="tempcol9" type="STRING" size="256" sumtext="임시컬럼9"/>
          <Column id="tempcol10" type="STRING" size="256" sumtext="임시컬럼10"/>
          <Column id="tempcol11" type="STRING" size="256" sumtext="임시컬럼11"/>
          <Column id="tempcol12" type="STRING" size="256" sumtext="임시컬럼12"/>
          <Column id="tempcol13" type="STRING" size="256" sumtext="임시컬럼13"/>
          <Column id="tempcol14" type="STRING" size="256" sumtext="임시컬럼14"/>
          <Column id="tempcol15" type="STRING" size="256" sumtext="임시컬럼15"/>
          <Column id="tempcol16" type="STRING" size="256" sumtext="임시컬럼16"/>
          <Column id="tempcol17" type="STRING" size="256" sumtext="임시컬럼17"/>
          <Column id="tempcol18" type="STRING" size="256" sumtext="임시컬럼18"/>
          <Column id="tempcol19" type="STRING" size="256" sumtext="임시컬럼19"/>
          <Column id="tempcol20" type="STRING" size="256" sumtext="임시컬럼20"/>
          <Column id="tempcol21" type="STRING" size="256" sumtext="임시컬럼21"/>
          <Column id="tempcol22" type="STRING" size="256" sumtext="임시컬럼22"/>
          <Column id="tempcol23" type="STRING" size="256" sumtext="임시컬럼23"/>
          <Column id="tempcol24" type="STRING" size="256" sumtext="임시컬럼24"/>
          <Column id="tempcol25" type="STRING" size="256" sumtext="임시컬럼25"/>
          <Column id="fasttrackflag" type="STRING" size="256" sumtext="Fast Track 처방 여부"/>
          <Column id="drprcpetc11" type="STRING" size="256" sumtext="50%감면적용 처치:제2시술, 영상:인접부위"/>
          <Column id="drprcpetc12" type="STRING" size="256" sumtext="의사처방기타12"/>
          <Column id="drprcpetc13" type="STRING" size="256" sumtext="의사처방기타13"/>
          <Column id="drprcpetc14" type="STRING" size="256" sumtext="의사처방기타14"/>
          <Column id="drprcpetc15" type="STRING" size="256" sumtext="의사처방기타15"/>
          <Column id="drprcpetc16" type="STRING" size="256" sumtext="의사처방기타16"/>
          <Column id="drprcpetc17" type="STRING" size="256" sumtext="의사처방기타17"/>
          <Column id="drprcpetc18" type="STRING" size="256" sumtext="의사처방기타18"/>
          <Column id="drprcpetc19" type="STRING" size="256" sumtext="의사처방기타19"/>
          <Column id="drprcpetc20" type="STRING" size="256" sumtext="의사처방기타20"/>
          <Column id="drprcpetc21" type="STRING" size="256" sumtext="의사처방기타21"/>
          <Column id="drprcpetc22" type="STRING" size="256" sumtext="의사처방기타22"/>
          <Column id="drprcpetc23" type="STRING" size="256" sumtext="의사처방기타23"/>
          <Column id="drprcpetc24" type="STRING" size="256" sumtext="의사처방기타24"/>
          <Column id="drprcpetc25" type="STRING" size="256" sumtext="의사처방기타25"/>
          <Column id="drprcpetc26" type="STRING" size="256" sumtext="의사처방기타26"/>
          <Column id="drprcpetc27" type="STRING" size="256" sumtext="의사처방기타27"/>
          <Column id="drprcpetc28" type="STRING" size="256" sumtext="의사처방기타28"/>
          <Column id="drprcpetc29" type="STRING" size="256" sumtext="의사처방기타29"/>
          <Column id="drprcpetc30" type="STRING" size="256" sumtext="의사처방기타30"/>
          <Column id="rgstdeptcd" type="STRING" size="256" sumtext="최초등록부서(insert)"/>
          <Column id="prcpclassnm" type="STRING" size="256" sumtext="처방분류명"/>
          <Column id="rowkey" type="STRING" size="256" sumtext="rowid"/>
          <Column id="instcd" type="STRING" size="256" sumtext="기관기호"/>
        </ColumnInfo>
        <Rows>
          <Row/>
        </Rows>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="checkbox5" propid="value" datasetid="ds_chkflag" columnid="prcpdelivefact"/>
      <BindItem id="item1" compid="textarea1" propid="value" datasetid="ds_main_prcplist" columnid="prcpdelivefact"/>
      <BindItem id="item2" compid="checkbox1" propid="value" datasetid="ds_chkflag" columnid="drugpackflag"/>
      <BindItem id="item3" compid="checkbox10" propid="value" datasetid="ds_main_prcplist" columnid="drugpackflag"/>
      <BindItem id="item4" compid="bool2" propid="value" datasetid="ds_chkflag" columnid="anamneflag"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2014-12-10
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2014-12-10      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

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

var arErrorCode = new HashArray();


function SPMMO12700_oninit(obj:Form, e:InitEventInfo)
{
	frmf_initForm(obj);
}

function SPMMO12700_onload(obj:Form, e:LoadEventInfo)
{
	checkbox10.enable = false;
	textarea1.enable  = false;
}

function button1_onclick(obj:Button,  e:ClickEventInfo)
{
	var drugpackflag_useyn = "";
	var drugpackflag = "";		
	var prcpdelivefact_useyn = "";
	var prcpdelivefact = "";
	var useyn = "";
	var value = "";				
																	
	var header = "drugpackflag|anamneflag|prcpdelivefact|subcretno^";				
	
	if ( ds_chkflag.getColumn(0, "drugpackflag" ) == "Y" ) {
		drugpackflag_useyn  =  "Y" + "|";
		drugpackflag = ds_main_prcplist.getColumn(0, "drugpackflag" ) + "|";					
		if ( utlf_isNull(ds_main_prcplist.getColumn(0, "drugpackflag" ))) {
			drugpackflag = "N" + "|";
		}	
	} else {
		drugpackflag_useyn =  "N" + "|";				
		drugpackflag = "" + "|";
	}								
	 useyn = useyn + drugpackflag_useyn;									
	 value = value + drugpackflag;
	 
	if( ds_chkflag.getColumn(0, "anamneflag" ) == "Y" ) {
		useyn = useyn + "Y" + "|";
		value  = value  + "Y" + "|";
	} else {
		useyn = useyn + "N" + "|";
		value  = value  + "N" + "|";
	} 			 					 	 		 				 	
					 
	if ( ds_chkflag.getColumn(0, "prcpdelivefact" ) == "Y" ) {
		prcpdelivefact_useyn = "Y" + "|";						
		prcpdelivefact = ds_main_prcplist.getColumn(0, "prcpdelivefact" ) + "|";
		if ( utlf_isNull(ds_main_prcplist.getColumn(0, "prcpdelivefact" ))) {
			alert ( "입력된 전달사항 값이 없습니다." );
			return;
		}							 	
	} else {
		prcpdelivefact_useyn = "N" + "|";
		prcpdelivefact = "" + "|";
	}
	useyn = useyn + prcpdelivefact_useyn ;									
	value = value + prcpdelivefact;				
	
	//2008. 07. 01 기왕증 입력에 따른 subcretno설정, 오지훈
	var subcretno_useyn = "";
	var subcretno = 0;
	if ( bool2.value == "Y") {
		subcretno_useyn = "Y";
		subcretno = ds_main_prcplist.getColumn(0, "subcretno");
	}else{
		subcretno_useyn = "N";
	}
	useyn = useyn + subcretno_useyn + "^";
	value = value + subcretno + "^";
					 
	var batipt_rtn1 = header + useyn + value;
	opener.frmf_setParameter ( "batipt_rtn1", batipt_rtn1 );
	opener.frmf_setParameter ( "batipt_rtn1_useyn", "Y" );				 
	close();
}

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

function checkbox5_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setCheckboxProperty(obj, textarea1, false);
}

function button61_onclick(obj:Button,  e:ClickEventInfo)
{
	frmf_setParameter ( "SPMMB02200_cond2", "3" );
	lf_prcpModal ( "SPMMB02200", 50, 50 );
	
	var SPMMB02200_clinccmt = frmf_getParameter ( "SPMMB02200_clinccmt" );
	if(!utlf_isNull(SPMMB02200_clinccmt)) {
		ds_main_prcplist.setColumn(0, "prcpdelivefact", SPMMB02200_clinccmt);
		
		checkbox5.value = "Y";
		checkbox5.onclick.fireEvent(checkbox5, new ClickEventInfo());
	}
}

function bool2_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	if(obj.value == "Y"){
		var prcpgenrflag = opener.ds_patflag.getColumn(0, "prcpgenrflag");
		var pid          = opener.ds_paminfo.getColumn(0, "pid");
		var indd         = opener.ds_paminfo.getColumn(0, "indd");
		
		if(prcpgenrflag == "I" || prcpgenrflag == "D" || prcpgenrflag == "E"){
			var subcretno = lf_getSubcretno(pid, indd, "anamneflag");
			ds_main_prcplist.setColumn(0, "subcretno", subcretno);
			if(subcretno == "0"){
				sysf_messageBox ( "환자의 부유형이 없거나 또는 선택되지 않았습니다.", "I999" );
				obj.value = "N";
			}
		} else {
			sysf_messageBox ( "외래 환자는 기왕증을 선택 할 수", "I004" );
			obj.value = "N";
		}
	}else{ //기왕증이 N로 처리된 경우에는 subcretno 0로 처리
		ds_main_prcplist.setColumn(0, "subcretno", "0");							
	}
}
function checkbox1_onclick(obj:CheckBox,  e:ClickEventInfo)
{
	lf_setCheckboxProperty(obj, checkbox10, false);
}
]]></Script>
  </Form>
</FDL>