YNU_JEUS/app_home/himed/xpapps/lis/rsltmngtxp/xp/SPLRR90600_TDM의뢰서등록.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPLRR90600" position="absolute 0 0 512 348" titletext="TDM 의뢰서 등록" onload="SPLRR90600_onload">
    <Layouts>
      <Layout>
        <Div id="gbx1" position="absolute 8 8 503 330" anchor="default" positiontype="position">
          <Layouts>
            <Layout>
              <Div id="gbx_cycle" position="absolute 0 158 488 302" anchor="default" positiontype="position" scrollbars="none" class="div_DA_box">
                <Layouts>
                  <Layout>
                    <Radio id="rdo_cycle" position="absolute 5 -3 184 147" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" rowcount="6" columncount="0" direction="vertical" positiontype="position">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn" size="256"/>
                          <Column id="datacolumn" size="256"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">10회 초과</Col>
                            <Col id="datacolumn">10회 초과</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">10회 투여 후</Col>
                            <Col id="datacolumn">10회 투여 후</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">5회 투여 후</Col>
                            <Col id="datacolumn">5회 투여 후</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">4회 투여 후</Col>
                            <Col id="datacolumn">4회 투여 후</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">3회 투여 후</Col>
                            <Col id="datacolumn">3회 투여 후</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">즉시 채혈</Col>
                            <Col id="datacolumn">즉시 채혈</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Shape id="line17" class="line_2" position="absolute 0 24 105 24" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Shape id="line6" class="line_2" position="absolute 0 74 105 74" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Shape id="line3" class="line_2" position="absolute 0 99 105 99" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Shape id="line7" class="line_2" position="absolute 0 49 105 49" anchor="default" linetype="horizontal" positiontype="position"/>
                  </Layout>
                </Layouts>
              </Div>
              <Div id="gbx_level" position="absolute 0 50 488 130" anchor="default" positiontype="position" class="div_DA_box" scrollbars="none">
                <Layouts>
                  <Layout>
                    <Shape id="line13" class="line_2" position="absolute 0 49 495 49" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Shape id="line14" class="line_2" position="absolute 0 75 495 75" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Shape id="line2" class="line_2" position="absolute 0 24 495 24" anchor="default" linetype="horizontal" positiontype="position"/>
                    <Radio id="rdo_level" position="absolute 6 6 186 77" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" rowcount="23" index="-1" onitemchanged="gbx1_gbx_level_rdo_level_onitemchanged" positiontype="position">
                      <Dataset id="innerdataset">
                        <ColumnInfo>
                          <Column id="codecolumn" size="256"/>
                          <Column id="datacolumn" size="256"/>
                        </ColumnInfo>
                        <Rows>
                          <Row>
                            <Col id="codecolumn">최저혈중농도(trough　level)</Col>
                            <Col id="datacolumn">최저혈중농도(trough　level)</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">최고혈중농도(peak　level)</Col>
                            <Col id="datacolumn">최고혈중농도(peak　level)</Col>
                          </Row>
                          <Row>
                            <Col id="codecolumn">기타시간지정(약물투여후)</Col>
                            <Col id="datacolumn">기타시간지정(약물투여후)</Col>
                          </Row>
                        </Rows>
                      </Dataset>
                    </Radio>
                    <Edit id="edt_time" taborder="1" class="input_default" position="absolute 260 55 359 75" anchor="default"/>
                    <Static id="caption14" text="시간지정" position="absolute 187 55 259 75" anchor="default" class="search_name"/>
                  </Layout>
                </Layouts>
              </Div>
              <Static id="caption3" class="tit_2" position="absolute 5 6 265 26" anchor="default" text="약물농도 참고범위를 지정하시겠습니까?" positiontype="position"/>
              <Radio id="rdo_choi" columncount="2" position="absolute 275 6 385 26" anchor="default" codecolumn="codecolumn" datacolumn="datacolumn" index="1" value="2" onitemchanged="gbx1_rdo_choi_onitemchanged" positiontype="position">
                <Dataset id="innerdataset">
                  <ColumnInfo>
                    <Column id="codecolumn" size="256"/>
                    <Column id="datacolumn" size="256"/>
                  </ColumnInfo>
                  <Rows>
                    <Row>
                      <Col id="codecolumn">1</Col>
                      <Col id="datacolumn">YES</Col>
                    </Row>
                    <Row>
                      <Col id="codecolumn">2</Col>
                      <Col id="datacolumn">NO</Col>
                    </Row>
                  </Rows>
                </Dataset>
              </Radio>
              <Static id="caption1" class="tit_2" position="absolute 5 34 265 54" anchor="default" text="투여 행위 후 채혈 시점 지정" positiontype="position"/>
              <Static id="caption15" class="tit_2" position="absolute 5 138 265 158" anchor="default" text="투여 주기에 따른 채혈 시점 지정" positiontype="position"/>
              <Shape id="Shape00" position="absolute 6 25 489 29" style="border:2 solid cadetblue ;"/>
            </Layout>
          </Layouts>
        </Div>
        <Button id="btn_save" taborder="1" text="확인" class="btn4" position="absolute 380 320 436 340" onclick="btn_save_onclick"/>
        <Button id="btn_close" taborder="2" text="닫기" onclick="group3_btn_close_onclick" class="btn4" position="absolute 444 320 500 340"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_reqfrminfo" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqno" type="STRING"/>
          <Column id="instcd" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_reqfrmtbl" firefirstcount="0" firenextcount="0" useclientlayout="true" updatecontrol="true" enableevent="true" loadkeymode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="reqcnts" type="STRING"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_send" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
    </Objects>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-27
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-27      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/

include "com_commonxp::comm_main.xjs";
var objDomParser;
var objDOM;
var arErrorCode = new HashArray();
//콜백함수
function cbf_SPLRR90600(strSvcID, nErrorCode, strErrorMag){	
	if(nErrorCode != 0) sysf_messageBox("ID: " + strSvcID + "  Error: " + strErrorMag, "E009", "");	
}

function fSetClose(){
	close();
}

function fExeInitialize(){

	// 처방등록 화면에서 호출되지 않는 경우는 "저장" 기능을 비 활성화 처리
	if(ds_hidden_reqfrminfo.getColumn(0, "scrnno") == "10"){
		btn_save.visible = true;
	}else{
		btn_save.visible = false;
	}
		
	// 의뢰지번호가 존재할 경우 의뢰지내용을 조회
	if(utlf_isNull(ds_hidden_reqfrminfo.getColumn(0, "reqcnts"))){ //의뢰지 내용이 존재하지 않을때
		if(ds_hidden_reqfrminfo.getColumn(0, "reqno") != "0"){ //의뢰지 번호 존재할때
			//의뢰지 번호로 의뢰지 내용 조회 

			ds_send.clear();
			dsf_makeValue(ds_send,"instcd", "string",sysf_getUserInfo("dutplceinstcd"));
			dsf_makeValue(ds_send,"pid",  "string",   ds_hidden_reqfrminfo.getColumn(0,"pid")); 
			dsf_makeValue(ds_send,"reqno", "string", ds_hidden_reqfrminfo.getColumn(0,"reqno")); 
			var oParam = {};
				oParam.id          = "TRLRR90201";
				oParam.service     = "diagtestapplib.LisCommon";
				oParam.method      = "reqGetReqFrmInfo";
				oParam.inds        = "refData=ds_send";
				oParam.outds       = "ds_reqfrmtbl=refrslt";
				oParam.async       = false;
				oParam.callback    = "cbf_SPLRR90600";

			tranf_submit(oParam);
			lf_setData();
		}else{ //의뢰지 번호 존재하지 않을때

			objDomParser = new DomParser;
			objDOM = objDomParser.parseFromString("<reqfrminfo></reqfrminfo>");
			
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01", "1");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02", "");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/reqcnts", "");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/yn", "2");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/trough", "1");
			rptf_setValueToDOM(objDOM,"/reqfrminfo/reqno", "0");
		}
	}else{ //의뢰지 내용이 존재 할때 
		var nRow = ds_reqfrmtbl.addRow();
		ds_reqfrmtbl.setColumn(nRow, "reqcnts", ds_hidden_reqfrminfo.getColumn(ds_hidden_reqfrminfo.rowposition, "reqcnts"));
		lf_setData();
	}
		
}

function lf_setData(){
	objDomParser = new DomParser;
	objDOM = objDomParser.parseFromString(ds_reqfrmtbl.getColumn(ds_reqfrmtbl.rowposition, "reqcnts"));
	
	gbx1.rdo_choi.index = (rptf_getValueFromDOM(objDOM,"/reqfrminfo/reqfrminfo/yn") == 1) ? 0 : 1;
	
	//투여 행위에 따른 구분
	if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/trough"))){
		gbx1.gbx_level.rdo_level.index = 0;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/peak"))){
		gbx1.gbx_level.rdo_level.index = 1;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/time"))){
		gbx1.gbx_level.rdo_level.index = 2;
		gbx1.gbx_level.edt_time.value = rptf_getValueFromDOM(objDOM,"/reqfrminfo/itime");
	}else{
		gbx1.gbx_level.rdo_level.index = -1;
	}
	
	//투여 주기에 따른 구분
	if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem02/drug11"))){
		gbx1.gbx_cycle.rdo_cycle.index = 0;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/drug10"))){
		gbx1.gbx_cycle.rdo_cycle.index = 1;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/drug5"))){
		gbx1.gbx_cycle.rdo_cycle.index = 2;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/drug4"))){
		gbx1.gbx_cycle.rdo_cycle.index = 3;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/drug3"))){
		gbx1.gbx_cycle.rdo_cycle.index = 4;
	}else if(!utlf_isNull(rptf_getValueFromDOM(objDOM,"/reqfrminfo/inptitem01/bcoll"))){
		gbx1.gbx_cycle.rdo_level.index = 5;
	}else{ 
		gbx1.gbx_cycle.rdo_cycle.index = -1;
	}
	
}

function lf_exeClinicSave(){
	if(gbx1.gbx_level.rdo_level.index == 2){
		if(utlf_isNull(gbx1.gbx_level.edt_time.value)){
			sysf_messageBox("기타시간지정시, 시간지정은  ", "I003", "E");
			return false;
		}
	}
	
	//data 만들기 
	fmakeData();
	trace(objDOM.documentElement.source);
	
	//검체추가정보 설정
	var sInDsName = dsf_createDsRow("ds_temp_search"
						 , [{col: "pid", val: ds_hidden_reqfrminfo.getColumn(0, "pid")}
						 ,  {col: "reqno", val: ds_hidden_reqfrminfo.getColumn(0, "reqno")}
						 ,  {col: "reqcnts", val: objDOM.documentElement.source.replace("<![CDATA[","").replace("]]]]><![CDATA[>","")}
						 ,  {col: "instcd", val: sysf_getUserInfo("dutplceinstcd")}]);									
				
								
	// 서브밋호출
	tranf_submit({id: "TXLRR90201"
			   , service: "diagtestapplib.LisCommon"
			   , method: "reqExeReqFrmInfo"
			   , inds : "refData="+sInDsName
			   , outds: "ds_reqfrminfo=reflist"
			   , callback: "cbf_SPLRR90600"
			   , async: false
   });
				   				 
	 
// 	 var strXML = ds_reqfrminfo.saveXML("ds_reqfrminfo","a");	
// 	 opener.ds_hidden_reqfrminfo.loadXML(strXML);
	 opener.ds_grid_prcplist.setColumn(opener.ds_grid_prcplist.rowposition, "testreqlnkno", ds_reqfrminfo.getColumn(0, "reqno"));
	 return true;

}

function fmakeData(){
	rptf_makeNodeToDOM(objDOM, "/reqfrminfo/yn");
	rptf_setValueToDOM(objDOM,"/reqfrminfo/yn", gbx1.rdo_choi.value);
	
	
	//투여 행위에 따른 구분
	rptf_makeNodeToDOM(objDOM, "/reqfrminfo/inptitem01");
	switch (gbx1.gbx_level.rdo_level.index){
		case 0 :
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/trough", gbx1.gbx_level.rdo_level.value);
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/peak", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/time", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/itime", '');
			break;
		case 1 :
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/trough", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/peak", gbx1.gbx_level.rdo_level.value);
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/time", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/itime", '');
			break;
		case 2 :
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/trough", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/peak", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/time", gbx1.gbx_level.rdo_level.value);
			rptf_setValueToDOM(objDOM,"/reqfrminfo/itime", utlf_transNullToEmpty(gbx1.gbx_level.edt_time.value));
			break;
		default : 
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/trough", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/peak", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem01/time", '');
			rptf_setValueToDOM(objDOM,"/reqfrminfo/itime", '');
	}
	
	//투여 주기에 따른 구분 
	rptf_makeNodeToDOM(objDOM, "/reqfrminfo/inptitem02");
	if(gbx1.rdo_choi.index == 1){
		switch (gbx1.gbx_cycle.rdo_cycle.index){
			case 0 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", gbx1.gbx_cycle.rdo_cycle.value);
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
			case 1 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", gbx1.gbx_cycle.rdo_cycle.value);
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
			case 2 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", gbx1.gbx_cycle.rdo_cycle.value);
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
			case 3 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", gbx1.gbx_cycle.rdo_cycle.value);
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
			case 4 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", gbx1.gbx_cycle.rdo_cycle.value);
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
			case 5 :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", gbx1.gbx_cycle.rdo_cycle.value);
				break;
			default :
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug11", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug10", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug5", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug4", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/drug3", '');
				rptf_setValueToDOM(objDOM,"/reqfrminfo/inptitem02/bcoll", '');
				break;
		}
	}
	
}


function SPLRR90600_onload(obj:Form, e:LoadEventInfo){
	//폼 초기화 함수
	frmf_initForm(obj);

	dsf_createDs("ds_hidden_reqfrminfo"
					, [{col: "pid"}
					,  {col: "reqno"}
					,  {col: "scrnno"}
					,  {col: "reqcnts"}
					,  {col: "prcpcd"}
					,  {col: "spccd"}
					,  {col: "instcd"}]);
					
	
	ds_hidden_reqfrminfo.copyData(arg_ds_hidden_reqfrminfo);
	
	fExeInitialize();
	
	//참고범위 설정에 따른 라디오 버튼 설정
	gbx1_rdo_choi_onitemchanged();
}

function btn_exit_onclick(obj:Button,  e:ClickEventInfo){
	fSetClose();
}

function gbx1_rdo_choi_onitemchanged(obj:Radio, e:ItemChangeEventInfo){
	if(gbx1.rdo_choi.index == 0){
		gbx1.gbx_cycle.rdo_cycle.enable = true;
	}else{
		gbx1.gbx_cycle.rdo_cycle.enable = false;
	}
}

function gbx1_gbx_level_rdo_level_onitemchanged(obj:Radio, e:ItemChangeEventInfo){
	if(gbx1.gbx_level.rdo_level.index == 2){
		gbx1.gbx_level.edt_time.enable = true;
	}else{
		gbx1.gbx_level.edt_time.enable = false;
	}
}

function btn_save_onclick(obj:Button,  e:ClickEventInfo){
	if(lf_exeClinicSave()){
		btn_exit_onclick();
	}
	
}
]]></Script>
  </Form>
</FDL>