YNU_JEUS/app_home/himed/xpapps/pam/patinfomngtxp/xp/SMPMC02401.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type ="xscript4.0"><![CDATA[//SMPMC02401_응급대불관리.xrw 20100204 조영상

//화면 처음에 열릴떄 딱 한번만 실행! 이후실행하면 안됨!
function  fInitialize() {

	dsf_makeValue( ds_node_bk, "main", "string", "" );
	dsf_makeValue( ds_node_bk, "send", "string", "" );

	ds_node_bk_main.copyData(ds_main); 
	ds_node_bk_send.copyData(ds_send); 
}

function fOJBaseInfoRef(){

	if ( ds_main.getColumn(0, "popupendflag") == "ok" ) {
		ds_send_data1.setColumn( 0, "pid",ds_main_patinfo_patinfolist.getColumn(0, "pid"));
		fGetPatInfo();					
	} else if ( ds_main.getColumn(0, "popupendflag") == "pass" ) {
		ds_send_data1.setColumn( 0, "pid",ds_main_ptbs.getColumn(0, "ptbs_pid"));
		fGetPatInfo();
	} else {
		ds_main_ptbs.clearData(); ds_main_ptbs.addRow();

//model.refresh();

		return false;										
	}

//model.refresh();

}		

//환자 인적사항, 응급대불신청내역조회
function fGetPatInfo(){

//	if(submit("TRPMC02404")){
var oParam = {};
    oParam.id          = "TRPMC02404";
    oParam.service     = "patinfomngtapp.ERSubtApp";
    oParam.method      = "reqGetPatinfo_erubud";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=ptbs ds_=admi";
    oParam.async       = false;
    oParam.callback    = "cf_TRPMC02404";

tranf_submit(oParam);
/*
function cf_TRPMC02404(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPMC02404(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPMC02404") > -1
arErrorCode.pop("TRPMC02404") < 0
*/



		ds_main_admi.clearData();
		dsf_makeValue( ds_main, "admi", "string", "" );	

		ds_main_h_iscl.clearData();
		dsf_makeValue( ds_main, "h_iscl", "string", "" );// 인적 사항 조회 
		var iptbscnt = ds_hidden_rcv_ptbs.rowcount;

		if (iptbscnt > 0) {
			ds_main_ptbs.copyData(ds_hidden_rcv_ptbs);
		}	

		// 수진이력 조회
		ds_main_h_admi.copyData(ds_hidden_rcv_h_admi); 

	}
}

function fSearchIscl(){

//		submit("TRPMC02405");
var oParam = {};
    oParam.id          = "TRPMC02405";
    oParam.service     = "patinfomngtapp.ERSubtApp";
    oParam.method      = "reqGetErIscl";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=iscl ds_=iscl_sum";
    oParam.async       = false;
    oParam.callback    = "cf_TRPMC02405";

tranf_submit(oParam);
/*
function cf_TRPMC02405(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPMC02405(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPMC02405") > -1
arErrorCode.pop("TRPMC02405") < 0
*/


		fGetIscl();
}

//처방내역조회
function fGetIscl(){

	ds_main_h_iscl.copyData(ds_hidden_rcv_h_iscl); 
	ds_main_h_iscl_sum.copyData(ds_hidden_rcv_h_iscl_sum); 

	grd_iscl.rebuild();

//opt_totordamt.refresh();

//opt_ownbamt.refresh();

	grd_iscl.subtotal("sum", -1, 35, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 36, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 37, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 38, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 39, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 40, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);
	grd_iscl.subtotal("sum", -1, 41, "format:(-)#,###; roundmode:round; roundpostion:2", "background-color:#fcd2c1; color:#0000; font-weight:bold; ", 5, "계 ", false);

	fEactlistClick0();
}		

//재계산
function fChgPayFlag(){

	ds_send_data2.copyData(ds_node_bk_send_data2); 

	//보험단가,자보단가,식대급여단가적용등에 대한 재계산
	var iSelRow = 0;

	for (var a = 1; a<= grd_iscl.rows ; a++) {

		if (grd_iscl.rowStatus(a) =="2") {			
			ds_send_data2.copyRow(0, ds_main_h_iscl_iscl, a);
		}	

	}

//	if(submit("TXPMC02403")) {
var oParam = {};
    oParam.id          = "TXPMC02403";
    oParam.service     = "aftjudgapp.InAftJudg";
    oParam.method      = "reqGetERCalcScorCd";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=mech";
    oParam.async       = false;
    oParam.callback    = "cf_TXPMC02403";

tranf_submit(oParam);
/*
function cf_TXPMC02403(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TXPMC02403(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TXPMC02403") > -1
arErrorCode.pop("TXPMC02403") < 0
*/



		b=1;

		for (var a = 1; a<= grd_iscl.rows ; a++) {

			if (grd_iscl.rowStatus(a) =="2") {

				ds_main_h_iscl.setColumn( a , "appunitcost" , ds_temp_mech.getColumn(b, "unitcost"));
				ds_main_h_iscl.setColumn( a , "totordamt"   , ds_temp_mech.getColumn(b, "totordamt"));
				ds_main_h_iscl.setColumn( a , "ownbamt"     , ds_temp_mech.getColumn(b, "ownbamt"));

				ds_main_h_iscl.setColumn( a , "payamt"      , ds_temp_mech.getColumn(b, "payamt"));
				ds_main_h_iscl.setColumn( a , "payownbamt"  , ds_temp_mech.getColumn(b, "payownbamt"));
				ds_main_h_iscl.setColumn( a , "payinsubamt" , ds_temp_mech.getColumn(b, "payinsubamt"));

				ds_main_h_iscl.setColumn( a , "nopyamt"      , ds_temp_mech.getColumn(b, "nopyamt"));
				ds_main_h_iscl.setColumn( a , "nopyownbamt"  , ds_temp_mech.getColumn(b, "nopyownbamt"));
				ds_main_h_iscl.setColumn( a , "nopyinsubamt" , ds_temp_mech.getColumn(b, "nopyinsubamt"));

				ds_main_h_iscl.setColumn( a , "specamt"      , ds_temp_mech.getColumn(b, "specamt"));
				ds_main_h_iscl.setColumn( a , "specownbamt"  , ds_temp_mech.getColumn(b, "specownbamt"));
				ds_main_h_iscl.setColumn( a , "specinsubamt" , ds_temp_mech.getColumn(b, "specinsubamt"));

				b = b + 1;
			}	
		}

	ds_temp.clearData();
	}

	//행삭제 부분처리
	for (var a = 1; a<= grd_iscl.rows ; a++) {

		if (grd_iscl.rowStatus(a) =="4") {	

			ds_main_h_iscl_iscl.deleteRow(a);
		}			
	}

//grd_iscl.refresh();

}	

function fRowDelete(){

	grd_iscl.rowStatus(grd_iscl.row) = 4;

//grd_iscl.refresh();

}

 //실시내역 클릭시
 function fEactlistClick0() {

	for(var a =0; a < grd_iscl.rows ; a++) {

		var iscl_insukind = ds_main_h_iscl_iscl.getColumn(a, "insukind");

		grd_iscl.cellComboNodeset(a,24) = "ds_init_suppkind[up = '"+iscl_insukind+"'  and (io = 'A' or io = 'I')]";
	}
 }

 //내역저장
 function fSave() {

		if(ds_main_h_admi_admi.getColumn(grd_admi.row, "clbs_judgdg")) == "" ||
		   ds_main_h_admi_admi.getColumn(grd_admi.row, "clbs_judgdg")) == "-"){

			var rtn = sysf_messageBox("심사차수가 없습니다. 저장하시겠습니까?", "Q999");

			if (rtn == 7) {  // Yes : 6 / No : 7 / Cancel : 2
				return;
			}
		}

		dsf_makeValue( ds_send_data3_req, "req_pid", "string", ds_send_data1.getColumn(0, "pid"));
		dsf_makeValue( ds_send_data3_req, "req_indd", "string", ds_send_data1.getColumn(0, "indd"));
		dsf_makeValue( ds_send_data3_req, "req_cretno", "string", ds_send_data1.getColumn(0, "cretno"));
		dsf_makeValue( ds_send_data3_req, "req_insukind", "string", ds_send_data1.getColumn(0, "insukind"));
		dsf_makeValue( ds_send_data3_req, "req_appfromdd", "string", ds_send_data1.getColumn(0, "appfromdd"));
		dsf_makeValue( ds_send_data3_req, "req_apptodd", "string", ds_send_data1.getColumn(0, "apptodd"));
		dsf_makeValue( ds_send_data3_req, "req_rcptdd", "string", ds_send_data1.getColumn(0, "rcptdd"));
		dsf_makeValue( ds_send_data3_req, "req_rcptno", "string", ds_send_data1.getColumn(0, "rcptno"));
		dsf_makeValue( ds_send_data3_req, "req_rcptseqno", "string", ds_send_data1.getColumn(0, "rcptseqno"));
		dsf_makeValue( ds_send_data3_req, "req_clamdd", "string", ds_send_data1.getColumn(0, "clamdd"));
		dsf_makeValue( ds_send_data3_req, "req_erdebtamt", "string", ds_send_data1.getColumn(0, "erdebtamt"));
		dsf_makeValue( ds_send_data3_req, "req_rcptdd_espm", "string", ds_send_data1.getColumn(0, "rcptdd_espm"));
		dsf_makeValue( ds_send_data3_req, "req_rcptamt_espm", "string", ds_send_data1.getColumn(0, "rcptamt_espm"));

	    ds_send_data3_h_iscl.copyData(ds_main_h_iscl); 

//		if(submit("TXPMC02404")) {
var oParam = {};
    oParam.id          = "TXPMC02404";
    oParam.service     = "patinfomngtapp.ERSubtApp";
    oParam.method      = "reqSetErBudAmt";
    oParam.inds        = "req=ds_ iscl=ds_";
    oParam.outds       = "ds_=admi ds_=iscl ds_=iscl_sum";
    oParam.async       = false;
    oParam.callback    = "cf_TXPMC02404";

tranf_submit(oParam);
/*
function cf_TXPMC02404(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TXPMC02404(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TXPMC02404") > -1
arErrorCode.pop("TXPMC02404") < 0
*/



			// 수진이력 조회
			ds_main_h_admi.copyData(ds_hidden_rcv_h_admi); 

//grd_admi.refresh();

			fGetIscl();
		}
 }

  //명세서 출력
  function fDetailPrint() {

//		if(submit("TRPMC02406")){
var oParam = {};
    oParam.id          = "TRPMC02406";
    oParam.service     = "patinfomngtapp.ERSubtApp";
    oParam.method      = "reqGetPatClamDocuPrntData1";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=main ds_=diag ds_=amt ds_=prcp ds_=prcp_sub";
    oParam.async       = false;
    oParam.callback    = "cf_TRPMC02406";

tranf_submit(oParam);
/*
function cf_TRPMC02406(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPMC02406(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPMC02406") > -1
arErrorCode.pop("TRPMC02406") < 0
*/



			ds_send_report1_list1.copyData(ds_hidden_list1); 
			ds_send_report1_list2.copyData(ds_hidden_list2); 
			ds_send_report1_list3.copyData(ds_hidden_list3); 
			ds_send_report1_list4.copyData(ds_hidden_list4); 	

			//exeReportPreview("RPPMC02405", "XMLSTR", "","", ds.getColumn(0, "previewyn"),"","","","",ds.getColumn(0, "previewyn"));	
    var objDOM = rptf_createDOM();
    var objParam = new Object();
    rptf_setNodeListToDOM(objDOM, "/root/XXX" , ds_XXX);
    objParam.xml_data_XML1 	= objDOM.documentElement.source;
    var option = "open=1;save=1;directprint=0;printdialog=1;print=1;zoom=0";
    rptf_exeReportPreview30(["RPPMC02405"],[objParam], option);	

			// 6. 보고서(나머지)로 데이터 보내기(뒷장의 존재유무를 sorting1 값으로 판단한다. 이전에는 edicd로 했는데 소계에서는 빈값이어서 변경함)
			var sorting1 = ds_hidden_list5_prcp_sub.getColumn(0, "prcp_sub_sorting1");
			if (sorting1 != "") {
				ds_send_report2_list1.copyData(ds_hidden_list1); 
				ds_send_report2_list5.copyData(ds_hidden_list5); 
				//exeReportPreview("RPPID20706", "XMLSTR", "","", ds.getColumn(0, "previewyn"),"","","","",ds.getColumn(0, "previewyn"));
    var objDOM = rptf_createDOM();
    var objParam = new Object();
    rptf_setNodeListToDOM(objDOM, "/root/XXX" , ds_XXX);
    objParam.xml_data_XML1 	= objDOM.documentElement.source;
    var option = "open=1;save=1;directprint=0;printdialog=1;print=1;zoom=0";
    rptf_exeReportPreview30(["RPPMC02406"],[objParam], option);
			}

			ds_send_report1.copyData(ds_node_bk_send_report1); 
			ds_send_report2.copyData(ds_node_bk_send_report2); 
		}

  }

  //리스트 호출
  function fPopUpList() {

		frmf_open("SMPMC02402", "", ""-"", "", "", "", "", "", "", "", "", "", "M");

  }

  //샘파일 생성
  function fCreateSamFile() {

//		submit("TRPMC02408");
var oParam = {};
    oParam.id          = "TRPMC02408";
    oParam.service     = "patinfomngtapp.ERSubtApp";
    oParam.method      = "reqGetErubudSamFile";
    oParam.inds        = "req=ds_";
    oParam.outds       = "ds_=samfile";
    oParam.async       = false;
    oParam.callback    = "cf_TRPMC02408";

tranf_submit(oParam);
/*
function cf_TRPMC02408(sSvcId, nErrorCode, sErrorMsg) {
    if(nErrorCode < 0) return;
}
function cf_TRPMC02408(sSvcId, nErrorCode, sErrorMsg) {
    arErrorCode.push(sSvcId, nErrorCode);
}
arErrorCode.pop("TRPMC02408") > -1
arErrorCode.pop("TRPMC02408") < 0
*/



		//ds_main_h_samfile_samfile.copyData(ds_hidden_rcv_h_samfile_samfile); 

//grd_samfile.refresh();

		var filename = window.fileDialog("save", ",", false, "", "txt", "Excel Text File(*.txt)|*.txt");
			if(filename!="")
			{
				grd_samfile.saveText(filename, "\n", ",", "'", false, false);
			}
  }

  //통합기록조회
  function fBtn_SMMRI00400() {

        var wndobj = getOpenWindow("SMMRI00400");
        if(wndobj != null)
        {
            frmf_setParameter("SMMRI00400_param_pid", ds_main_ptbs.getColumn(0, "ptbs_pid"));
        //      초기화함수 호출
            wndobj.javascript.fInitalize();
        }
        else
        {
            frmf_setParameter("SMMRI00400_param_chosflag", "I");
            frmf_setParameter("SMMRI00400_param_pid", ds_main_ptbs.getColumn(0, "ptbs_pid"));
            frmf_open("SMMRI00400", "", ""-"", "", "1", "", "", "", "", "left:0; right:200; width:750; height:800;", "", "", "M");
        }

 }
]]></Script>