YNU_JEUS/app_home/himed/xpapps/pam/insucomxp/xp/SPPIZ01900_심사환자메세지작성.xfdl

<?xml version="1.0" encoding="utf-8"?>
<FDL version="1.5">
  <TypeDefinition url="..\..\..\default_typedef.xml"/>
  <Form id="SPPIZ01900" position="absolute 0 0 503 449" titletext="심사환자메세지작성" oninit="model1_oninit" onload="SPPIZ01900_onload">
    <Layouts>
      <Layout>
        <Static id="Static00" position="absolute 2 48 496 415" class="sta_DA_box"/>
        <Button id="btn_confirm" taborder="3" text="저장" onlbuttonup="btn_confirm_onlbuttonup" class="btn4" position="absolute 379 419 435 439" positiontype="position" onclick="btn_confirm_onclick"/>
        <Button id="button2" taborder="5" text="이전메세지" onlbuttonup="button2_onlbuttonup" class="btn3" visible="false" position="absolute 201 419 288 439" style="align:left middle;" positiontype="position" onclick="button2_onclick"/>
        <Static id="caption7" text="수신처" class="cell_1" position="absolute 3 49 87 73" style="align:left top;" positiontype="position"/>
        <Radio id="rdo_sendflag" taborder="11" columncount="4" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 90 51 296 71" positiontype="position">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">O</Col>
                <Col id="datacolumn">진료</Col>
              </Row>
              <Row>
                <Col id="codecolumn">C</Col>
                <Col id="datacolumn">간호</Col>
              </Row>
              <Row>
                <Col id="codecolumn">P</Col>
                <Col id="datacolumn">원무</Col>
              </Row>
              <Row>
                <Col id="codecolumn">R</Col>
                <Col id="datacolumn">보험</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <CheckBox id="bol_anybodyyn" taborder="12" text="anybody" position="absolute 304 51 380 71" positiontype="position" truevalue="Y" falsevalue="N"/>
        <Static id="caption24" text="수신자" class="cell_1" position="absolute 3 74 87 98" style="align:left top;" positiontype="position"/>
        <Edit id="ipt_deliveid" taborder="13" class="input_default" position="absolute 90 76 210 96" imemode="hangul" enable="false" positiontype="position"/>
        <Button id="btn_orddrid" taborder="14" onlbuttonup="btn_orddrid_onlbuttonup" class="icon_search" position="absolute 213 76 233 96" text="" positiontype="position" onclick="btn_orddrid_onclick"/>
        <Edit id="output1" taborder="15" readonly="true" position="absolute 236 76 296 96" positiontype="position"/>
        <Edit id="output2" taborder="16" readonly="true" position="absolute 299 76 401 96" positiontype="position"/>
        <Static id="caption9" text="전송조건" class="cell_1" position="absolute 3 99 87 123" style="align:left top;" positiontype="position"/>
        <Radio id="rdo_recvcnfmyn" taborder="17" columncount="2" rowcount="0" codecolumn="codecolumn" datacolumn="datacolumn" position="absolute 90 101 220 121" positiontype="position">
          <Dataset id="innerdataset">
            <ColumnInfo>
              <Column id="codecolumn" size="256"/>
              <Column id="datacolumn" size="256"/>
            </ColumnInfo>
            <Rows>
              <Row>
                <Col id="codecolumn">N</Col>
                <Col id="datacolumn">한번만</Col>
              </Row>
              <Row>
                <Col id="codecolumn">Y</Col>
                <Col id="datacolumn">계속</Col>
              </Row>
            </Rows>
          </Dataset>
        </Radio>
        <Static id="caption19" text="송신자" class="cell_1" position="absolute 3 124 87 148" style="align:left top;" positiontype="position"/>
        <Edit id="ipt_sendid" taborder="18" class="input_default" position="absolute 90 126 210 146" imemode="hangul" enable="false" positiontype="position"/>
        <Static id="caption20" text="송신일" class="cell_1" position="absolute 213 124 297 148" style="align:left top;" positiontype="position"/>
        <Calendar id="ipt_senddate" taborder="19" class="input_default" position="absolute 301 126 391 146" dateformat="yyyy-MM-dd" value="null" enable="false" positiontype="position"/>
        <Static id="caption2" text="송신&#13;&#10;메세지" class="cell_1" position="absolute 3 149 87 268" style="align:left middle;" positiontype="position"/>
        <TextArea id="tar_sendmsg" taborder="20" position="absolute 90 151 494 265" imemode="hangul" maxlength="330" positiontype="position" scrollbars="autovert" wordwrap="word"/>
        <Static id="caption23" text="수신자" class="cell_1" position="absolute 3 269 87 293" style="align:left top;" positiontype="position"/>
        <Edit id="ipt_redvid" taborder="21" class="input_default" position="absolute 90 270 210 290" imemode="hangul" enable="false" positiontype="position"/>
        <Static id="caption21" text="수신일" class="cell_1" position="absolute 213 269 297 293" style="align:left top;" positiontype="position"/>
        <Calendar id="ipt_recvdate" taborder="22" class="input_default" position="absolute 301 270 391 290" enable="false" positiontype="position"/>
        <Static id="caption3" text="수신&#13;&#10;메세지" class="cell_1" position="absolute 3 294 87 414" style="align:left middle;" positiontype="position"/>
        <TextArea id="tar_recvmsg" taborder="23" position="absolute 90 295 494 412" imemode="hangul" enable="false" positiontype="position" scrollbars="autovert" wordwrap="word"/>
        <Static id="caption4" text="전체" visible="false" position="absolute 8 418 34 438" positiontype="position" style="align:middle;"/>
        <Edit id="output3" taborder="24" readonly="true" visible="false" position="absolute 40 418 93 438" style="align:left middle;" positiontype="position"/>
        <Static id="caption5" text="현재" visible="false" position="absolute 107 418 133 438" positiontype="position"/>
        <Edit id="output4" taborder="25" readonly="true" visible="false" position="absolute 136 418 189 438" style="align:left middle;" positiontype="position"/>
        <Button id="btn_unselect" taborder="26" text="초기화" onlbuttonup="btn_unselect_onlbuttonup" class="btn2" position="absolute 440 25 496 45" enable="true" positiontype="position" onclick="btn_unselect_onclick"/>
        <Button id="button1" taborder="27" text="다음메세지" onlbuttonup="button1_onlbuttonup" class="btn4" visible="false" position="absolute 290 419 377 439" positiontype="position" onclick="button1_onclick"/>
        <Static id="caption1" text="심사환자메세지작성" class="tit_1" position="absolute 0 0 177 26"/>
        <Button id="btn_cancel" taborder="28" text="취소" onclick="btn_cancel_onclick" class="btn4" position="absolute 437 419 493 439" anchor="right bottom"/>
      </Layout>
    </Layouts>
    <Objects>
      <Dataset id="ds_temp_msgtrsm_patinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="msgwrtedd" type="STRING" size="256"/>
          <Column id="msgwrteno" type="STRING" size="256"/>
          <Column id="msgwrtehistno" type="STRING" size="256"/>
          <Column id="histstat" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="mskind" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="orddrnm" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="kindflag" type="STRING" size="256"/>
          <Column id="grupcalcscorcd" type="STRING" size="256"/>
          <Column id="snglcalcscorcd" type="STRING" size="256"/>
          <Column id="ordqty" type="STRING" size="256"/>
          <Column id="ordtims" type="STRING" size="256"/>
          <Column id="orddays" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcppayflag" type="STRING" size="256"/>
          <Column id="rgstrid" type="STRING" size="256"/>
          <Column id="rgstdd" type="STRING" size="256"/>
          <Column id="rgsttm" type="STRING" size="256"/>
          <Column id="sendphone" type="STRING" size="256"/>
          <Column id="anybodyyn" type="STRING" size="256"/>
          <Column id="sendflag" type="STRING" size="256"/>
          <Column id="senddate" type="STRING" size="256"/>
          <Column id="sendid" type="STRING" size="256"/>
          <Column id="deliveid" type="STRING" size="256"/>
          <Column id="recvdate" type="STRING" size="256"/>
          <Column id="recvid" type="STRING" size="256"/>
          <Column id="recvcnfmyn" type="STRING" size="256"/>
          <Column id="recvcnfmid" type="STRING" size="256"/>
          <Column id="sendmsg" type="STRING" size="256"/>
          <Column id="recvmsg" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_TRPIZ01901" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="refyn" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="mskind" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="kindflag" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_list" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_stats" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="allcnt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_cond_TRPIZ01902" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="instcd" type="STRING" size="256"/>
          <Column id="msgwrtedd" type="STRING" size="256"/>
          <Column id="msgwrteno" type="STRING" size="256"/>
          <Column id="msgwrtehistno" type="STRING" size="256"/>
          <Column id="histstat" type="STRING" size="256"/>
          <Column id="pid" type="STRING" size="256"/>
          <Column id="orddd" type="STRING" size="256"/>
          <Column id="cretno" type="STRING" size="256"/>
          <Column id="mskind" type="STRING" size="256"/>
          <Column id="orddeptcd" type="STRING" size="256"/>
          <Column id="ordtype" type="STRING" size="256"/>
          <Column id="kindflag" type="STRING" size="256"/>
          <Column id="grupcalcscorcd" type="STRING" size="256"/>
          <Column id="snglcalcscorcd" type="STRING" size="256"/>
          <Column id="ordqty" type="STRING" size="256"/>
          <Column id="ordtims" type="STRING" size="256"/>
          <Column id="orddays" type="STRING" size="256"/>
          <Column id="prcpdd" type="STRING" size="256"/>
          <Column id="prcpno" type="STRING" size="256"/>
          <Column id="prcppayflag" type="STRING" size="256"/>
          <Column id="rgstrid" type="STRING" size="256"/>
          <Column id="rgstdd" type="STRING" size="256"/>
          <Column id="rgsttm" type="STRING" size="256"/>
          <Column id="sendphone" type="STRING" size="256"/>
          <Column id="anybodyyn" type="STRING" size="256"/>
          <Column id="sendflag" type="STRING" size="256"/>
          <Column id="senddate" type="STRING" size="256"/>
          <Column id="sendid" type="STRING" size="256"/>
          <Column id="deliveid" type="STRING" size="256"/>
          <Column id="recvdate" type="STRING" size="256"/>
          <Column id="recvid" type="STRING" size="256"/>
          <Column id="recvcnfmyn" type="STRING" size="256"/>
          <Column id="recvcnfmid" type="STRING" size="256"/>
          <Column id="sendmsg" type="STRING" size="256"/>
          <Column id="recvmsg" type="STRING" size="256"/>
          <Column id="fstrgstrid" type="STRING" size="256"/>
          <Column id="fstrgstdt" type="STRING" size="256"/>
          <Column id="lastupdtrid" type="STRING" size="256"/>
          <Column id="lastupdtdt" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_grupinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="grupcalcscorcd" type="STRING" size="256"/>
          <Column id="grupcalcscornm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_dridinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="orddrid" type="STRING" size="256"/>
          <Column id="rgstrid" type="STRING" size="256"/>
          <Column id="rgstrnm" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
      <Dataset id="ds_temp_userinfo" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false"/>
      <Dataset id="ds_temp_msgrow" firefirstcount="0" firenextcount="0" useclientlayout="false" updatecontrol="true" enableevent="true" loadkeymode="keep" loadfiltermode="keep" reversesubsum="false">
        <ColumnInfo>
          <Column id="row" type="STRING" size="256"/>
        </ColumnInfo>
      </Dataset>
    </Objects>
    <Bind>
      <BindItem id="item0" compid="ipt_deliveid" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="orddrid"/>
      <BindItem id="item1" compid="output1" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="orddrnm"/>
      <BindItem id="item2" compid="bol_anybodyyn" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="anybodyyn"/>
      <BindItem id="item3" compid="rdo_sendflag" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="sendflag"/>
      <BindItem id="item4" compid="rdo_recvcnfmyn" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="recvcnfmyn"/>
      <BindItem id="item5" compid="ipt_senddate" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="senddate"/>
      <BindItem id="item6" compid="ipt_sendid" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="sendid"/>
      <BindItem id="item8" compid="ipt_redvid" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="recvid"/>
      <BindItem id="item9" compid="ipt_recvdate" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="recvdate"/>
      <BindItem id="item10" compid="tar_recvmsg" propid="value" datasetid="ds_temp_msgtrsm_patinfo" columnid="recvmsg"/>
    </Bind>
    <Script type="xscript4.0"><![CDATA[/***************************************************************************************  
 * System Name		:	
 * Job Name 		:	
 * Creator 	    :	
 * Make Date 		:	2015-05-01
 * Description  	:	                                                                   
 *--------------------------------------------------------------------------------------- 
 * Modify Date     	Modifier  	  Modify Description                                   
 *--------------------------------------------------------------------------------------- 
 * 2015-05-01      Live Converter   TF->XP                                           
 *                                                                                        
 *--------------------------------------------------------------------------------------- 
 ****************************************************************************************/
include "com_commonxp::comm_main.xjs";

var rowIdx = 0;

function fInitialize() {
	// 자신을 Open한 opener의 현재 UID가 자신을 open한 시점의 UID와 비교하여 변경되었는지 여부를 반환
	if ( frmf_checkOpener()) {	
		
		rdo_sendflag.value = "O"; //O:진료 C:간호 P:원무 R:보험
		rdo_recvcnfmyn.value = "N"; //N:한번만 Y:계속
		bol_anybodyyn.value = bol_anybodyyn.falsevalue;
		tar_sendmsg.value = "";
		
		ipt_deliveid.value = "";
		output1.value = "";
		output2.value = "";
		
		ds_temp_msgtrsm_patinfo.setColumn(0, "recvcnfmid", "");
	} 
	else {
		sysf_messageBox("상위화면이 변경되어 데이터를 초기화할 수", "I004");	//없습니다.
		return;
	}
}

function fRefChk(){
	
	var rtn = ds_temp_msgtrsm_patinfo.copyData(opener.ds_msgtrsm_info);
	if( ds_temp_msgtrsm_patinfo.rowcount < 1 ) {
		ds_temp_msgtrsm_patinfo.copyData(opener.ds_data_msgtrsm);
	}
	
	// opener에서 조회로 여는지 입력으로 여는지 확인, 입력으로 열면 해당 값이 없고 조회로 열면 값이 'Y'
	if( utlf_isNull( ds_temp_msgtrsm_patinfo.getColumn(0, "refyn") ) ) {
		var refyn = "";
	}
	else {
		var refyn = ds_temp_msgtrsm_patinfo.getColumn(0, "refyn");
	}
	ipt_sendid.value = ds_temp_msgtrsm_patinfo.getColumn(0, "sendid");
	ipt_senddate.value = utlf_getCurrentDate();
	bol_anybodyyn.value = ds_temp_msgtrsm_patinfo.getColumn(0, "anybodyyn");
	
	if(0){ 
	
	}
	else {	// 주치의 처방의, 그룹코드명 조회
		
		ds_cond_TRPIZ01902.clearData();
		ds_cond_TRPIZ01902.copyData(ds_temp_msgtrsm_patinfo);
		
		var cd = ds_temp_msgtrsm_patinfo.getColumn(0, "grupcalcscorcd");
		if( utlf_isNull( cd ) ) {
			var orddrid = ds_temp_msgtrsm_patinfo.getColumn(0, "orddrid");
			ds_cond_TRPIZ01902.setColumn(0, "deliveid", orddrid);
			
		}
		else {
			var oParam = {};
				oParam.id          = "TRPIZ01902";
				oParam.service     = "insucomapp.JudgMsgTrsm";
				oParam.method      = "reqGetInsuJudgPatMsgTrsmFirstRefInfoRef";
				oParam.inds        = "req=ds_cond_TRPIZ01902";
				oParam.outds       = "ds_temp_grupinfo=grupinfo ds_temp_dridinfo=dridinfo";
				oParam.async       = false;
				oParam.callback    = "cf_TRPIZ01902";

			tranf_submit(oParam);
		}
		
		rdo_recvcnfmyn.enable	= true; // 연속확인 활성
		rdo_sendflag.enable		= true; // 송신구분 활성
		tar_recvmsg.enable		= false; // 수신메세지 비활성
		bol_anybodyyn.enable	= true; // 애니바디 비활성

		button1.visible	= false; //다음메세지 숨기기
		button2.visible	= false; //이전메세지 숨기기

		btn_confirm.enable = true; //저장버튼 활성
	}
}

function fSetRef(setrow) {
	rowIdx = 0;
	switch(setrow){
		case "A": 
			if( rowIdx > 0) { 
				rowIdx--; 
			}
			lf_setData(rowIdx);
			break;
			
		case "B": //이전메세지
			var allrow = ds_temp_list.rowcount;
			if( allrow == 1 || (rowIdx+1) == allrow ) {
				rowIdx = allrow;
				lf_setData(rowIdx);
			}
			else {
				rowIdx = rowIdx++;
				lf_setData(rowIdx);
			}
			break;
		case "N": //다음메세지
			var allrow = ds_temp_list.rowcount; //2
			if( (rowIdx+1) == allrow ) {
				lf_setData(rowIdx);
			}
			else {
				rowIdx++;
				lf_setData(rowIdx);
			}
			break;
		default:
			break;
	}
	
	caption4.visible	= true; //전체 글자 보이기
	output3.visible		= true; //전체 값 보이기
	caption5.visible	= true; //현재 글자 보이기
	output4.visible		= true; //현재 값 보이기
	
	output3.value = ds_temp_stats.getColumn(0, "allcnt");
	output4.value = rowIdx +1;
}
		
function lf_setData(cRow) {
	rdo_sendflag.value	= ds_temp_list.getColumn(cRow	, "sendflag");	//수신처
	bol_anybodyyn.value	= ds_temp_list.getColumn(cRow	, "anybodyyn");	//Anybody
	ipt_deliveid.value	= ds_temp_list.getColumn(cRow	, "deliveid");	//수신자(상단)
	
	ipt_sendid.value	= ds_temp_list.getColumn(cRow	, "sendid");	//송신자
	ipt_senddate.value	= ds_temp_list.getColumn(cRow	, "senddate");	//송신일
	tar_sendmsg.value	= ds_temp_list.getColumn(cRow	, "sendmsg");	//송신메세지
	
	ipt_redvid.value	= ds_temp_list.getColumn(cRow	, "recvid");	//수신자(하단)
	ipt_recvdate.value	= ds_temp_list.getColumn(cRow	, "recvdate");	//수신일
	tar_recvmsg.value	= ds_temp_list.getColumn(cRow	, "recvmsg");	//수신메세지
}

function SPPIZ01900_onload(obj:Form, e:LoadEventInfo)
{
	frmf_initForm(obj);  // 화면공통
	fInitialize();		// 화면을 초기화한다.
	fRefChk();			// 첫화면 오픈시 입력인지 조회성인지 확인(opener에서 값넘겨줌)
}

function btn_orddrid_onclick(obj:Button, e:ClickEventInfo)
{
	//사용자조회
	var rtnDs = frmf_modal("SPZSU10103", "SPZSU10103", null, null, null, null, null, null, null, null, null, null, "M");
	if( !utlf_isNull( rtnDs ) ) {
		ds_temp_userinfo.copyData(rtnDs);
	}
	else {
		return;
	}
	
	ipt_deliveid.value	= ds_temp_userinfo.getColumn(0	, "userid");
	output1.value		= ds_temp_userinfo.getColumn(0	, "usernm");
	output2.value		= ds_temp_userinfo.getColumn(0	, "posdeptnm");
	
	ds_temp_msgtrsm_patinfo.setColumn(0, "deliveid", ipt_deliveid.value );
	
	ipt_sendid.value	= sysf_getUserId();
}

function btn_confirm_onclick(obj:Button, e:ClickEventInfo)
{
	//자신을 Open한 opener의 현재 UID가 자신을 open한 시점의 UID와 비교하여 변경되었는지 여부를 반환
	if ( frmf_checkOpener()) {	
		if( utlf_isNull(ds_temp_msgtrsm_patinfo.getColumn(0, "deliveid") ) ) {
			sysf_messageBox("수신자는", "I003"); //필수입력입니다.
			btn_orddrid.setFocus();
			return;
		}
		ds_temp_msgtrsm_patinfo.setColumn(0, "sendmsg", tar_sendmsg.value);
		var oParam = {};
			oParam.id          = "TXPIZ01901";
			oParam.service     = "insucomapp.JudgMsgTrsm";
			oParam.method      = "reqSetInsuJudgPatMsgTrsm";
			oParam.inds        = "req=ds_temp_msgtrsm_patinfo";
			oParam.async       = false;
			oParam.callback    = "cf_TXPIZ01901";

		tranf_submit(oParam);
		
	} 
	else {
		sysf_messageBox("상위화면이 변경되어 데이터를 초기화할 수", "I004");	//없습니다.
		return;
	}
					
}

function button1_onclick(obj:Button, e:ClickEventInfo)
{
	fSetRef("N");
}

function button2_onclick(obj:Button, e:ClickEventInfo)
{
	fSetRef("B");
}


function cf_TXPIZ01901(aSvcId, nErrorCode, sErrorMsg) {	
	if(nErrorCode < 0) {
		sysf_messageBox("메세지가 전송 저장되지", "E007"); //않았습니다.
	}
	else {
		sysf_messageBox("메세지가 전송 저장", "I001"); //처리되었습니다.
		this.close('Y');
	}
}

function cf_TRPIZ01902(aSvcId, nErrorCode, sErrorMsg) {	

	if(nErrorCode < 0) {
		sysf_messageBox("조회가 완료되지", "E007"); //않았습니다.
	}
	else {
		
		// 처방시 메세지 기본 처방정보셋팅
		var dd	= ds_temp_msgtrsm_patinfo.getColumn(0, "prcpdd");
		var gcd = ds_temp_grupinfo.getColumn(0, "grupcalcscorcd");
		var gnm = ds_temp_grupinfo.getColumn(0, "grupcalcscornm");
		
		// 진료전송시 기본 수신자 id셋팅
		var ordtype	= ds_temp_msgtrsm_patinfo.getColumn(0, "ordtype");	//진료형태
		var kindflag= ds_temp_msgtrsm_patinfo.getColumn(0, "kindflag");	//작성구분
		var drid	= ds_temp_msgtrsm_patinfo.getColumn(0, "orddrid");
		
		if( ordtype == "I") { //진료형태
			
			if(kindflag == "P") { //작성구분
				ds_temp_msgtrsm_patinfo.setColumn(0, "deliveid", "");
			}
			else {
				ds_temp_msgtrsm_patinfo.setColumn(0, "deliveid"	, ds_temp_grupinfo.getColumn(0, "rgstrid") );
				ds_temp_msgtrsm_patinfo.setColumn(0, "sendmsg"	, gcd + ", " + gnm ) ;
				
			}
			// 처방의 셋팅(입원일때)
			// 주치의 명 셋팅. (외래일때)
			if( !utlf_isNull( gcd ) && !utlf_isNull( gnm ) ) {
				tar_sendmsg.value = gcd + ", " + gnm ;
			}
			
		}
		else {
			// 주치의 명 셋팅. (외래일때)
			if(kindflag == "P") {
				ds_temp_msgtrsm_patinfo.setColumn(0, "deliveid", ds_temp_msgtrsm_patinfo.getColumn(0, "orddrid") );
			}
			else {
				ds_temp_msgtrsm_patinfo.setColumn(0, "deliveid", ds_temp_msgtrsm_patinfo.getColumn(0, "orddrid") );
				ds_temp_msgtrsm_patinfo.setColumn(0, "sendmsg"	, gcd + ", " + gnm + ", 처방일("+ dd +")") ;
				tar_sendmsg.value = gcd + ", " + gnm + ", 처방일("+ dd +")" ;
			}
		}
		
		
	}
}

function btn_unselect_onclick(obj:Button,  e:ClickEventInfo)
{
	fInitialize();
}

function btn_cancel_onclick(obj:Button,  e:ClickEventInfo)
{
	this.close();
}
]]></Script>
  </Form>
</FDL>