YNU_JEUS/app_home/himed/xpapps/emr/anstrecxp/xp/MMR03200.xjs

<?xml version="1.0" encoding="utf-8"?>
<Script type="xscript4.0"><![CDATA[
/****************************************************************************************
 * Argument			: 01.flag : 임시, 인증저장 구분값
 * Description		: 아파치 항목값 저장
 ****************************************************************************************/
function fSaveApache(flag){
	sysf_trace("***** fSaveApache(" + flag + ") ******");
	fSetGridData();
	
	
////아파치 기록정보 인증저장
//function fSaveApchEspi(flag)
//{
	if (flag == null) {
		flag = "N"
	}

	var apchhr = "06";					//아파치적용시간
	
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var pid = opener.frmf_getParameter("SPMMR03200_pid");
	var orddd = opener.frmf_getParameter("SPMMR03200_orddd");
	var cretno = opener.frmf_getParameter("SPMMR03200_cretno");
	//var apchdd = opener.frmf_getParameter("SPMMR03200_apchdd");

	ds_send_selectdata.setColumn(0, "status", status);	
	
	if(utlf_isNull(ds_send_selectdata.getColumn(0, "ordinfo")) ){
		sysf_messageBox("입실, 재원중, 퇴실 여부를 ", "C002" );
		return;		
	}
	
	var oParam = {};
		oParam.id       = "TRMMR03213";
		oParam.service  = "anstrecapp.ApacheRec";
		oParam.method   = "reqGetApchYN";
		oParam.inds     = "selectdata=ds_send_selectdata";
		oParam.outds    = "ds_temp_apchlist=apchlist";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR03213";

	tranf_submit(oParam);
	
	
	var cnt = ds_temp_apchlist.rowcount;
		
	if(cnt > 0){
		var status = "u";
		var m = "u";
	}else if(cnt <= 0){
		var status = "i";
		var m = "i";
	}

	var currentdate = utlf_getCurrentDate() + utlf_getCurrentTime();
	//var ref = "/root/main/apchitem/item";
	var dataCnt = ds_item.rowcount;
// 	var savedata1 ="status▦instcd▦pid▦orddd▦cretno▦apchdd▦apchitemcd▦reptrslt▦rsltrgstdt▦apchval▦apchscore▦apchlabel▩"; //헤더부분 컬럼
// 	var savedata2 ="m▦instcd▦pid▦orddd▦cretno▦apchdd▦apchscore▦dethrate▦apchscorea▦dethratea▦apchhr▦adjustednm▦ordinfo▦lastespiyn▦signno▩"; //헤더부분 컬럼
// 	var dataString1 = "";
// 	var dataString2 = "";
	ds_send_savedata_apchitem.clearData();
	ds_send_savedata_apchscore.clearData();
	
	var apchdd = ds_main.getColumn(0, "reqstnddd");
  
	for (var i=0 ; i < dataCnt ; i++) {
		var apchitemcd = ds_item.getColumn(i, "apchitemcd");
		var reptrslt = ds_item.getColumn(i, "apchitemvalue");
		var rsltrgstdt = ds_item.getColumn(i, "apchitemdt");
		var apchval = ds_item.getColumn(i, "apchitemval");
		var apchscore = ds_item.getColumn(i, "apchitemscore");
		var apchlabel = ds_item.getColumn(i, "apchitemlabel");
		
		var nRow = ds_send_savedata_apchitem.addRow();
		ds_send_savedata_apchitem.setColumn(nRow, "status", status);
		ds_send_savedata_apchitem.setColumn(nRow, "instcd",  instcd);
		ds_send_savedata_apchitem.setColumn(nRow, "pid", pid);
		ds_send_savedata_apchitem.setColumn(nRow, "orddd", orddd);
		ds_send_savedata_apchitem.setColumn(nRow, "cretno", cretno);
		ds_send_savedata_apchitem.setColumn(nRow, "apchdd", apchdd);
		ds_send_savedata_apchitem.setColumn(nRow, "apchitemcd", apchitemcd);
		ds_send_savedata_apchitem.setColumn(nRow, "reptrslt", reptrslt);
		ds_send_savedata_apchitem.setColumn(nRow, "rsltrgstdt", rsltrgstdt);
		ds_send_savedata_apchitem.setColumn(nRow, "apchval", apchval);
		ds_send_savedata_apchitem.setColumn(nRow, "apchscore", apchscore);
		ds_send_savedata_apchitem.setColumn(nRow, "apchlabel", apchlabel);
	}//for i END							

	var apchscore = ds_item.lookup("apchitemcd", "18", "apchitemscore");
	var dethrate = ds_item.lookup("apchitemcd", "19", "apchitemscore");
	var apchscorea = ds_item.lookup("apchitemcd", "20", "apchitemscore");
	var dethratea = ds_item.lookup("apchitemcd", "21", "apchitemscore");
	var adjustednm = ds_send_selectdata.getColumn(0, "adjustednm");
	var ordinfo = ds_send_selectdata.getColumn(0, "ordinfo");
	
	ds_send_selectdata.setColumn(0, "lastespiyn", flag);
	var lastespiyn = ds_send_selectdata.getColumn(0, "lastespiyn");
	
	//ds_send_selectdata.setColumn(0, "signno",model.getValue("/root/temp/sign/no"));
	var signno = ds_send_selectdata.getColumn(0, "signno");
	
	var fstrgstrid = ds_send_selectdata.getColumn(0, "fstrgstrid");
	var fstrgstdt = ds_send_selectdata.getColumn(0, "fstrgstdt");
	var lastupdtrid = ds_send_selectdata.getColumn(0, "lastupdtrid");
	var lastupdtdt = ds_send_selectdata.getColumn(0, "lastupdtdt");

	var nRow = ds_send_savedata_apchscore.addRow();
	ds_send_savedata_apchscore.setColumn(nRow, "m" , m);
	ds_send_savedata_apchscore.setColumn(nRow, "instcd" , instcd);
	ds_send_savedata_apchscore.setColumn(nRow, "pid" , pid);
	ds_send_savedata_apchscore.setColumn(nRow, "orddd" , orddd);
	ds_send_savedata_apchscore.setColumn(nRow, "cretno" , cretno);
	ds_send_savedata_apchscore.setColumn(nRow, "apchdd" , apchdd);
	ds_send_savedata_apchscore.setColumn(nRow, "apchscore" , apchscore);
	ds_send_savedata_apchscore.setColumn(nRow, "dethrate" , dethrate);
	ds_send_savedata_apchscore.setColumn(nRow, "apchscorea" , apchscorea);
	ds_send_savedata_apchscore.setColumn(nRow, "dethratea" , dethratea);
	ds_send_savedata_apchscore.setColumn(nRow, "apchhr" , apchhr);
	ds_send_savedata_apchscore.setColumn(nRow, "adjustednm" , adjustednm);
	ds_send_savedata_apchscore.setColumn(nRow, "ordinfo" , ordinfo);
	ds_send_savedata_apchscore.setColumn(nRow, "lastespiyn" , lastespiyn);
	ds_send_savedata_apchscore.setColumn(nRow, "signno" , signno);
	ds_send_savedata_apchscore.setColumn(nRow, "fstrgstrid" , fstrgstrid);
	ds_send_savedata_apchscore.setColumn(nRow, "fstrgstdt" , fstrgstdt);
	ds_send_savedata_apchscore.setColumn(nRow, "lastupdtrid" , lastupdtrid);
	ds_send_savedata_apchscore.setColumn(nRow, "lastupdtdt" , lastupdtdt); 
							
	if(ds_send_savedata_apchitem.rowcount > 0 && ds_send_savedata_apchscore.rowcount > 0) {
		
		if(ds_item.lookup("apchitemcd", "21", "apchitemscore") != "N"){
			//항목별
// 			model.removeNode("/root/main/apchresult");
// 			model.makeNode("/root/main/apchresult");
			dsf_deleteDs("ds_main_apchresult");
			dsf_createDs("ds_main_apchresult");
			
			dsf_copyDs(ds_main_apchresult, ds_item);
			
			var oParam = {};
				oParam.id       = "TXMMR03210";
				oParam.service  = "anstrecapp.ApacheRec";
				oParam.method   = "reqExeSaveApacheItem";
				oParam.inds     = "apchitem=ds_send_savedata_apchitem apchscore=ds_send_savedata_apchscore";
				oParam.outds    = "ds_item=item";
				oParam.async    = false;
				oParam.callback = "cf_TXMMR03210";

			tranf_submit(oParam);
			
			// 인증정보 
			if( arErrorCode.pop("TXMMR03210") > -1 ){
				if (flag == "Y") {
					// 2009.08.10. *** 아파치기록정보 인증데이타 만들기..
					fGetApchRecCert();
				}

				sysf_messageBox("저장","I002");							
				fInit();	
			}
		}else{
				sysf_messageBox("APACHE Ⅱ - ADJUSTED 항목을 ", "C002" );
				return;
		}
	}//if END						
}//fSaveApache END



/****************************************************************************************
 * Argument			: 
 * Description		: 아파치 상세항목 Excel 파일로 저장
 ****************************************************************************************/
function fSelect(){
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='01'"), "apchitemlabel", cmb_temp.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='02'"), "apchitemlabel", cmb_zpam.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='03'"), "apchitemlabel", cmb_zfc.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='04'"), "apchitemlabel", cmb_zfr.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='05'"), "apchitemlabel", cmb_zaa.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='06'"), "apchitemlabel", cmb_pao.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='07'"), "apchitemlabel", cmb_hco.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='08'"), "apchitemlabel", cmb_ph.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='09'"), "apchitemlabel", cmb_na.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='10'"), "apchitemlabel", cmb_ka.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='11'"), "apchitemlabel", cmb_uree.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='12'"), "apchitemlabel", cmb_urea.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='13'"), "apchitemlabel", cmb_hc.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='14'"), "apchitemlabel", cmb_gb.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='15'"), "apchitemlabel", cmb_glas.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='16'"), "apchitemlabel", cmb_age.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='17'"), "apchitemlabel", cmb_mcro.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='23'"), "apchitemlabel", switch1.case1.cmb_simple.text);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='24'"), "apchitemlabel", switch1.case1.ipt_fio2.value);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='25'"), "apchitemlabel", switch1.case1.opt_aao2.value);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='26'"), "apchitemlabel", switch1.case1.ipt_paco2.value);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='27'"), "apchitemlabel", switch1.case1.ipt_pao2.value);
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='28'"), "apchitemlabel", switch1.case1.ipt_hco3.value);
}

/****************************************************************************************
 * Argument			: 
 * Description		: 아파치 상세항목 Excel 파일로 저장
 ****************************************************************************************/
function fSaveExcel() {
// 	var fileName = window.fileDialog("save", ",", false, "excel", "xls", "Excel Files(*.xls)|*.xls|All Files (*.*)|*.*");
// 	if (fileName != "")	{
// 		item.saveExcel(fileName, "SheetName", true, true, "", "", "Boolean colHiddenExtend");
// 	}		
	grdf_exportExcel(item, "excel", "SheetName");

}

/****************************************************************************************
 * Argument			: 
 * Description		: 아파치 스코어 디폴트값 지정
 ****************************************************************************************/
function fInit(){
	
	var instcd = sysf_getUserInfo("dutplceinstcd");
	var vNowDD = utlf_getCurrentDate();
	//var ref = "/root/main/apchitem/item";
	//var dataCnt = getNodesetCnt(model, ref);	
	var node = sysf_getGlobalVariable("paminfo");
	
	var pid = opener.frmf_getParameter("SPMMR03200_pid");
	var hngnm = opener.frmf_getParameter("SPMMR03200_hngnm");
	var orddd = opener.frmf_getParameter("SPMMR03200_orddd");
	var cretno = opener.frmf_getParameter("SPMMR03200_cretno");
	var apchdd = opener.frmf_getParameter("SPMMR03200_apchdd");
	var age = opener.frmf_getParameter("SPMMR03200_age");
	var fromdd = opener.frmf_getParameter("SPMMR03200_fromdd");
	var todd = opener.frmf_getParameter("SPMMR03200_todd");

	if(ds_send_selectdata.getColumn(0, "daylist") != apchdd && !utlf_isNull(ds_send_selectdata.getColumn(0, "daylist"))){
		ds_main.setColumn(0, "reqstnddd", ds_send_selectdata.getColumn(0, "daylist"));
	}else if(ds_send_selectdata.getColumn(0, "daylist") == apchdd || utlf_isNull(ds_send_selectdata.getColumn(0, "daylist"))){
		ds_main.setColumn(0, "reqstnddd", apchdd);
	}

  if (!utlf_isNull(pid)){				
      ds_send_selectdata.setColumn(0, "hngnm",hngnm);
      ds_send_selectdata.setColumn(0, "pid",pid);
      ds_send_selectdata.setColumn(0, "instcd",instcd);
      ds_send_selectdata.setColumn(0, "orddd",orddd);
      ds_send_selectdata.setColumn(0, "cretno",cretno);
      ds_send_selectdata.setColumn(0, "apchdd", ds_main.getColumn(0, "reqstnddd"));
      ds_send_selectdata.setColumn(0, "fromdd",fromdd);
      ds_send_selectdata.setColumn(0, "todd",todd);
      
      //ipt_zage.value = age;
      
      var oParam = {};
			oParam.id       = "TRMMR03214";
			oParam.service  = "anstrecapp.ApacheRec";
			oParam.method   = "reqGetApchInfo";
			oParam.inds     = "req=ds_send_selectdata";
			oParam.outds    = "ds_init_cmb_daylist=dd";
			oParam.async    = false;
			oParam.callback = "cf_TRMMR03214";

		tranf_submit(oParam);
      
   		//cmb_daylist.select(0);

	}

	switch1.case1.cmb_device.visible = false;
	switch1.case1.cmb_nasal.visible = false;
	switch1.case1.cmb_simple.visible = false;
	switch1.case1.cpt_O2.visible = false;
	switch1.case1.cpt_L.visible = false;

	
	var oParam = {};
		oParam.id       = "TRMMR03210";
		oParam.service  = "anstrecapp.ApacheRec";
		oParam.method   = "reqGetApacheMast";
		oParam.inds     = "selectdata=ds_send_selectdata";
		oParam.outds    = "ds_item=item";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR03210";

	tranf_submit(oParam);
	
	//sysf_trace(ds_item.saveXML());
	//sysf_trace(caption1.text);
	
	//나이
	if(utlf_isNull(ds_item.lookup("apchitemcd", "16", "apchitemvalue"))){
		ipt_zage.value = age;
	}else{
		ipt_zage.value = ds_item.lookup("apchitemcd", "16", "apchitemvalue");
	}
	
	//기록정보 유형
	if(utlf_isNull(ds_temp_apchpidlist.getColumn(0, "ordinfo"))){
		if(ds_send_selectdata.getColumn(0, "apchdd") == ds_send_selectdata.getColumn(0, "fromdd")){
			rdo_ordinfo.value = "1";
		}		
	}else{
		rdo_ordinfo.value = ds_temp_apchpidlist.getColumn(0, "ordinfo");
	}	
	
	//Adjusted 명칭
	if(utlf_isNull(opt_zmorta.value)){
		if(!utlf_isNull(ds_temp_apchpidlist.getColumn(0, "adjustednm"))){
			opt_content.value = ds_temp_apchpidlist.getColumn(0, "adjustednm");
		}	
	}else{
		opt_content.value = "";
	}
	
	//인증저장정보
	ds_send_selectdata.setColumn(0, "lastespiyn", ds_temp_apchpidlist.getColumn(0, "lastespiyn"));	
	//signno
	ds_send_selectdata.setColumn(0, "signno", ds_temp_apchpidlist.getColumn(0, "signno"));
	
	fView();

}

/****************************************************************************************
 * Argument			: 
 * Description		: 아파치 상세항목 선택 스코어값 저장
 ****************************************************************************************/
// 1. Temperature 
function fValueTEMP() {
	//setInputNodeCurText();
	ipt_ztemp.updateToDataset();
	
	if (utlf_isNull(ipt_ztemp.text)){
		cmb_temp.value = "90";
	} else if (ipt_ztemp.text <= 29.9){
		cmb_temp.value = "14";
	} else if (ipt_ztemp.text >= 30 && ipt_ztemp.text <= 31.9){
		cmb_temp.value = "13";
	} else if (ipt_ztemp.text >= 32 && ipt_ztemp.text <= 33.9){
		cmb_temp.value = "12";
	} else if (ipt_ztemp.text >= 34 && ipt_ztemp.text <= 35.9){
		cmb_temp.value = "11";
	} else if (ipt_ztemp.text >= 36 && ipt_ztemp.text <= 38.4){
		cmb_temp.value = "10";
	} else if (ipt_ztemp.text >= 38.5 && ipt_ztemp.text <= 38.9){
		cmb_temp.value = "21";
	} else if (ipt_ztemp.text >= 39 && ipt_ztemp.text <= 40.9){
		cmb_temp.value = "23";
	} else if (ipt_ztemp.text >= 41){
		cmb_temp.value = "24";
	}

	fCalcTEMP();
}

function fCalcTEMP() {
	//99 opt_ztemp.value = cmb_temp.value.substr(1, 2);
	var ztemp = cmb_temp.value.substr(1, 2);
	var lbtemp = cmb_temp.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if( utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}

	//99 if(opt_zmorta.value == ""){
	//99 if(opt_ztemp.value == ""){
	if(utlf_isNull(ztemp)){
		ds_init_item.setColumn(0, "apchitemscore1", "0");
		ds_init_item.setColumn(0, "apchitemlabel1", "");
		//99 model.makeValue("/root/init/item2/apchitemscore[1]", "0");
	}else{
		//99 model.setValue("/root/main/apchitem/item[apchitemcd='01']/apchitemscore", opt_ztemp.value);
		ds_init_item.setColumn(0, "apchitemscore1", ztemp);
		ds_init_item.setColumn(0, "apchitemlabel1", lbtemp);
		//99 model.makeValue("/root/init/item2/apchitemscore[1]", "0");
	}
}

// 2. Mean Arterial Pressure
function fValuePAM() {
	//setInputNodeCurText();
	ipt_zpam.updateToDataset();

	if (utlf_isNull(ipt_zpam.text)){
		cmb_zpam.value = "90";
	} else if (ipt_zpam.text <= 49){
		cmb_zpam.value = "14";
	} else if (ipt_zpam.text >= 50 && ipt_zpam.text <= 69){
		cmb_zpam.value = "12";
	} else if (ipt_zpam.text >= 70 && ipt_zpam.text <= 109){
		cmb_zpam.value = "10";
	} else if (ipt_zpam.text >= 110 && ipt_zpam.text <= 129){
		cmb_zpam.value = "22";
	} else if (ipt_zpam.text >= 130 && ipt_zpam.text <= 159){
		cmb_zpam.value = "23";
	} else if (ipt_zpam.text >= 160){
		cmb_zpam.value = "24";
	}

	fCalcPAM();
}

function fCalcPAM() {
	//99 opt_zpam.value = cmb_zpam.value.substr(1,2);
	var zpam = cmb_zpam.value.substr(1,2);
	var lbpam = cmb_zpam.label;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}

	//99 if(opt_zpam.value == ""){
	if(utlf_isNull(zpam)){
		ds_init_item.setColumn(0, "apchitemscore2", "0");
		ds_init_item.setColumn(0, "apchitemlabel2", "");
	}else{
		//99 model.setValue("/root/main/apchitem/item[apchitemcd='02']/apchitemscore", opt_zpam.value);
		ds_init_item.setColumn(0, "apchitemscore2", zpam);
		ds_init_item.setColumn(0, "apchitemlabel2", lbpam);
	}
}

// 3. Heart Rate
function fValueFC() {
	//setInputNodeCurText();
	ipt_zfc.updateToDataset();

	if (utlf_isNull(ipt_zfc.text)){
		cmb_zfc.value = "90";
	} else if (ipt_zfc.text <= 39){
		cmb_zfc.value = "14";
	} else if (ipt_zfc.text >= 40 && ipt_zfc.text <= 54){
		cmb_zfc.value = "13";
	} else if (ipt_zfc.text >= 55 && ipt_zfc.text <= 69){
		cmb_zfc.value = "12";
	} else if (ipt_zfc.text >= 70 && ipt_zfc.text <= 109){
		cmb_zfc.value = "10";
	} else if (ipt_zfc.text >= 110 && ipt_zfc.text <= 139){
		cmb_zfc.value = "22";
	} else if (ipt_zfc.text >= 140 && ipt_zfc.text <= 179){
		cmb_zfc.value = "23";
	} else if (ipt_zfc.text >= 180){
		cmb_zfc.value = "24";
	}

	fCalcFC();
}

function fCalcFC() {
	//99 opt_zfc.value = cmb_zfc.value.substr(1,2);
	var zfc = cmb_zfc.value.substr(1,2);
	var lbfc = cmb_zfc.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.valuee = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}

	//99 if(opt_zfc.value == ""){
	if(utlf_isNull(zfc)){
		ds_init_item.setColumn(0, "apchitemscore3", "0");
		ds_init_item.setColumn(0, "apchitemlabel3", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='03']/apchitemscore", opt_zfc.value);
		ds_init_item.setColumn(0, "apchitemscore3", zfc);
		ds_init_item.setColumn(0, "apchitemlabel3", lbfc);
	}
}

// 4. Respiratory Rate
function fValueFR() {
	//setInputNodeCurText();
	ipt_zfr.updateToDataset();

	if (utlf_isNull(ipt_zfr.text)){
		cmb_zfr.value = "90";
	} else if (ipt_zfr.text <= 5){
		cmb_zfr.value = "14";
	} else if (ipt_zfr.text >= 6 && ipt_zfr.text <= 9){
		cmb_zfr.value = "12";
	} else if (ipt_zfr.text >= 10 && ipt_zfr.text <= 11){
		cmb_zfr.value = "11";
	} else if (ipt_zfr.text >= 12 && ipt_zfr.text <= 24){
		cmb_zfr.value = "10";
	} else if (ipt_zfr.text >= 25 && ipt_zfr.text <= 34){
		cmb_zfr.value = "21";
	} else if (ipt_zfr.text >= 35 && ipt_zfr.text <= 49){
		cmb_zfr.value = "23";
	} else if (ipt_zfr.text >= 50){
		cmb_zfr.value = "24";
	}

	fCalcFR();
}

function fCalcFR() {
	//99 opt_zfr.value = cmb_zfr.value.substr(1,2);
	var zfr = cmb_zfr.value.substr(1,2);
	var lbfr = cmb_zfr.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
		
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zfr.value == ""){
	if(utlf_isNull(zfr)){
		ds_init_item.setColumn(0, "apchitemscore4", "0");
		ds_init_item.setColumn(0, "apchitemlabel4", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='04']/apchitemscore", opt_zfr.value);
		ds_init_item.setColumn(0, "apchitemscore4", zfr);
		ds_init_item.setColumn(0, "apchitemlabel4", lbfr);
	}
}

// 5. If FIO2>=0, 5:(A-a)O2
function fValueAA() {

	if (utlf_isNull(ipt_zaa.text)){
		cmb_zaa.value = "90";
	} else if (ipt_zaa.text < 200){
		cmb_zaa.value = "20";
	} else if (ipt_zaa.text >= 200 && ipt_zaa.text <= 349){
		cmb_zaa.value = "22";
	} else if (ipt_zaa.text >= 350 && ipt_zaa.text <= 499){
		cmb_zaa.value = "23";
	} else if (ipt_zaa.text >= 500){
		cmb_zaa.value = "24";
	}

	fCalcAA();
}

function fCalcAA() {
	//99 opt_zaa.value = cmb_zaa.value.substr(1,2);
	var zaa = cmb_zaa.value.substr(1,2);
	var lbaa = cmb_zaa.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zaa.value == ""){
	if(utlf_isNull(zaa)){
		ds_init_item.setColumn(0, "apchitemscore5", "0");
		ds_init_item.setColumn(0, "apchitemlabel5", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemscore", opt_zaa.value);
		ds_init_item.setColumn(0, "apchitemscore5", zaa);
		ds_init_item.setColumn(0, "apchitemlabel5", lbaa);
	}
}

// 6. If FIO2<0, 5:PaO2
function fValuePAO() {

	if (utlf_isNull(ipt_zpao.text)){
		cmb_pao.value = "90";
	} else if (ipt_zpao.text < 55){
		cmb_pao.value = "14";
	} else if (ipt_zpao.text >= 55 && ipt_zpao.text <= 60){
		cmb_pao.value = "13";
	} else if (ipt_zpao.text >= 61 && ipt_zpao.text <= 70){
		cmb_pao.value = "11";
	} else if (ipt_zpao.text > 70){
		cmb_pao.value = "20";
	}

	fCalcPAO();
}

function fCalcPAO() {
	//99 opt_zpao.value = cmb_pao.value.substr(1,2);
	var zpao = cmb_pao.value.substr(1,2);
	var lbpao = cmb_pao.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zpao.value == ""){
	if(utlf_isNull(zpao)){
		ds_init_item.setColumn(0, "apchitemscore6", "0");
		ds_init_item.setColumn(0, "apchitemlabel6", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemscore", opt_zpao.value);
		ds_init_item.setColumn(0, "apchitemscore6", zpao);
		ds_init_item.setColumn(0, "apchitemlabel6", lbpao);
	}
}

// 7. If no A.B Gs: Serum HCO3-
function fValueHCO() {

	if (utlf_isNull(ipt_zhco.text)){
		cmb_hco.value = "90";
	} else if (ipt_zhco.text >= 52){
		cmb_hco.value = "14";
	} else if (ipt_zhco.text >= 41 && ipt_zhco.text <= 51.9){
		cmb_hco.value = "13";
	} else if (ipt_zhco.text >= 32 && ipt_zhco.text <= 40.9){
		cmb_hco.value = "11";
	} else if (ipt_zhco.text >= 22 && ipt_zhco.text <= 31.9){
		cmb_hco.value = "10";
	} else if (ipt_zhco.text >= 18 && ipt_zhco.text <= 21.9){
		cmb_hco.value = "22";
	} else if (ipt_zhco.text >= 15 && ipt_zhco.text <= 17.9){
		cmb_hco.value = "23";
	} else if (ipt_zhco.text < 15){
		cmb_hco.value = "24";
	}

	fCalcHCO();
}

function fCalcHCO() {
	//99 opt_zhco.value = cmb_hco.value.substr(1,2);
	var zhco = cmb_hco.value.substr(1,2);
	var lbhco = cmb_hco.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zhco.value == ""){
	if(utlf_isNull(zhco)){
		ds_init_item.setColumn(0, "apchitemscore7", "0");
		ds_init_item.setColumn(0, "apchitemlabel7", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemscore", opt_zhco.value);
		ds_init_item.setColumn(0, "apchitemscore7", zhco);
		ds_init_item.setColumn(0, "apchitemlabel7", lbhco);
	}
}

// 8. Aterial pH.
function fValuePH() {
	//setInputNodeCurText();
	ipt_zph.updateToDataset();

	if (utlf_isNull(ipt_zph.text)){
		cmb_ph.value = "90";
	} else if (ipt_zph.text >= 7.7){
		cmb_ph.value = "14";
	} else if (ipt_zph.text >= 7.6 && ipt_zph.text <= 7.69){
		cmb_ph.value = "13";
	} else if (ipt_zph.text >= 7.5 && ipt_zph.text <= 7.59){
		cmb_ph.value = "11";
	} else if (ipt_zph.text >= 7.33 && ipt_zph.text <= 7.49){
		cmb_ph.value = "10";
	} else if (ipt_zph.text >= 7.25 && ipt_zph.text <= 7.32){
		cmb_ph.value = "22";
	} else if (ipt_zph.text >= 7.15 && ipt_zph.text <= 7.24){
		cmb_ph.value = "23";
	} else if (ipt_zph.text < 7.15){
		cmb_ph.value = "24";
	}

	fCalcPH();
}

function fCalcPH() {
	//99 opt_zph.value = cmb_ph.value.substr(1,2);
	var zph = cmb_ph.value.substr(1,2);
	var lbph = cmb_ph.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zph.value == ""){
	if(utlf_isNull(zph)){
		ds_init_item.setColumn(0, "apchitemscore8", "0");
		ds_init_item.setColumn(0, "apchitemlabel8", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='08']/apchitemscore", opt_zph.value);
		ds_init_item.setColumn(0, "apchitemscore8", zph);
		ds_init_item.setColumn(0, "apchitemlabel8", lbph);
	}
}

// 9. Serum Sodium
function fValueNA() {
	//setInputNodeCurText();
	ipt_zna.updateToDataset();
	
	if (utlf_isNull(ipt_zna.text)){
		cmb_na.value = "90";
	} else if (ipt_zna.text >= 180){
		cmb_na.value = "14";
	} else if (ipt_zna.text >= 160 && ipt_zna.text <= 179){
		cmb_na.value = "13";
	} else if (ipt_zna.text >= 155 && ipt_zna.text <= 159){
		cmb_na.value = "12";
	} else if (ipt_zna.text >= 150 && ipt_zna.text <= 154){
		cmb_na.value = "11";
	} else if (ipt_zna.text >= 130 && ipt_zna.text <= 149){
		cmb_na.value = "10";
	} else if (ipt_zna.text >= 120 && ipt_zna.text <= 129){
		cmb_na.value = "22";
	} else if (ipt_zna.text >= 111 && ipt_zna.text <= 119){
		cmb_na.value = "23";
	} else if (ipt_zna.text <= 110){
		cmb_na.value = "24";
	}

	fCalcNA();
}

function fCalcNA() {
	//99 opt_zna.value = cmb_na.value.substr(1,2);
	var zna = cmb_na.value.substr(1,2);
	var lbna = cmb_na.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zna.value == ""){
	if(utlf_isNull(zna)){
		ds_init_item.setColumn(0, "apchitemscore9", "0");
		ds_init_item.setColumn(0, "apchitemlabel9", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='09']/apchitemscore", opt_zna.value);
		ds_init_item.setColumn(0, "apchitemscore9", zna);
		ds_init_item.setColumn(0, "apchitemlabel9", lbna);
	}
}

// 10. Serum Potassium
function fValueKA() {
	//setInputNodeCurText();
	ipt_zka.updateToDataset();

	if (utlf_isNull(ipt_zka.text)){
		cmb_ka.value = "90";
	} else if (ipt_zka.text >= 7){
		cmb_ka.value = "14";
	} else if (ipt_zka.text >= 6 && ipt_zka.text <= 6.9){
		cmb_ka.value = "13";
	} else if (ipt_zka.text >= 5.5 && ipt_zka.text <= 5.9){
		cmb_ka.value = "11";
	} else if (ipt_zka.text >= 3.5 && ipt_zka.text <= 5.4){
		cmb_ka.value = "10";
	} else if (ipt_zka.text >= 3 && ipt_zka.text <= 3.4){
		cmb_ka.value = "21";
	} else if (ipt_zka.text >= 2.5 && ipt_zka.text <= 2.9){
		cmb_ka.value = "22";
	} else if (ipt_zka.text < 2.5){
		cmb_ka.value = "24";
	}

	fCalcKA();
}

function fCalcKA() {
	//99 opt_zka.value = cmb_ka.value.substr(1,2);
	var zka = cmb_ka.value.substr(1,2);
	var lbka = cmb_ka.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zka.value == ""){
	if(utlf_isNull(zka)){
		ds_init_item.setColumn(0, "apchitemscore10", "0");
		ds_init_item.setColumn(0, "apchitemlabel10", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='10']/apchitemscore", opt_zka.value);
		ds_init_item.setColumn(0, "apchitemscore10", zka);
		ds_init_item.setColumn(0, "apchitemlabel10", lbka);
	}
}

// 11. Serum Creatinine With Acute Renal Failure
function fValueUREE() {
	//setInputNodeCurText();
	ipt_zuree.updateToDataset();

	if (utlf_isNull(ipt_zuree.text)){
		cmb_uree.value = "90";
	} else if (ipt_zuree.text < 0.6){
		cmb_uree.value = "14";
	} else if (ipt_zuree.text >= 0.6 && ipt_zuree.text <= 1.4){
		cmb_uree.value = "20";
	} else if (ipt_zuree.text >= 1.5 && ipt_zuree.text <= 1.9){
		cmb_uree.value = "24";
	} else if (ipt_zuree.text >= 2 && ipt_zuree.text <= 3.4){
		cmb_uree.value = "26";
	} else if (ipt_zuree.text >= 3.5){
		cmb_uree.value = "28";
	}

	fCalcUREE();
}

function fCalcUREE() {
	//99 opt_zuree.value = cmb_uree.value.substr(1,2);
	var zuree = cmb_uree.value.substr(1,2);
	var lburee = cmb_uree.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zuree.value == ""){
	if(utlf_isNull(zuree)){
		ds_init_item.setColumn(0, "apchitemscore11", "0");
		ds_init_item.setColumn(0, "apchitemlabel11", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='11']/apchitemscore", opt_zuree.value);
		ds_init_item.setColumn(0, "apchitemscore11", zuree);
		ds_init_item.setColumn(0, "apchitemlabel11", lburee);
	}
}

// 12. Serum Creatinine Without Acute Renal Failure
function fValueUREA() {
	//setInputNodeCurText();
	ipt_zurea.updateToDataset();

	if (utlf_isNull(ipt_zurea.text)){
		cmb_urea.value = "90";
	} else if (ipt_zurea.text < 0.6){
		cmb_urea.value = "12";
	} else if (ipt_zurea.text >= 0.6 && ipt_zurea.text <= 1.4){
		cmb_urea.value = "20";
	} else if (ipt_zurea.text >= 1.5 && ipt_zurea.text <= 1.9){
		cmb_urea.value = "22";
	} else if (ipt_zurea.text >= 2 && ipt_zurea.text <= 3.4){
		cmb_urea.value = "23";
	} else if (ipt_zurea.text >= 3.5){
		cmb_urea.value = "24";
	}

	fCalcUREA();
}

function fCalcUREA() {
	//99 opt_zurea.value = cmb_urea.value.substr(1,2);
	var zurea = cmb_urea.value.substr(1,2);
	var lburea = cmb_urea.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zurea.value == ""){
	if(utlf_isNull(zurea)){
		ds_init_item.setColumn(0, "apchitemscore12", "0");
		ds_init_item.setColumn(0, "apchitemlabel12", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='12']/apchitemscore", opt_zurea.value);
		ds_init_item.setColumn(0, "apchitemscore12", zurea);
		ds_init_item.setColumn(0, "apchitemlabel12", lburea);
	}
}

// 13. Ht
function fValueHC() {
	//setInputNodeCurText();
	ipt_zhc.updateToDataset();

	if (utlf_isNull(ipt_zhc.text)){
		cmb_hc.value = "90";
	} else if (ipt_zhc.text < 20){
		cmb_hc.value = "14";
	} else if (ipt_zhc.text >= 20 && ipt_zhc.text <= 29.9){
		cmb_hc.value = "12";
	} else if (ipt_zhc.text >= 30 && ipt_zhc.text <= 45.9){
		cmb_hc.value = "10";
	} else if (ipt_zhc.text >= 46 && ipt_zhc.text <= 49.9){
		cmb_hc.value = "21";
	} else if (ipt_zhc.text >= 50 && ipt_zhc.text <= 59.9){
		cmb_hc.value = "22";
	} else if (ipt_zhc.text >= 60){
		cmb_hc.value = "24";
	}

	fCalcHC();
}

function fCalcHC() {
	//99 opt_zhc.value = cmb_hc.value.substr(1,2);
	var zhc = cmb_hc.value.substr(1,2);
	var lbhc = cmb_hc.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zhc.value == ""){
	if(utlf_isNull(zhc)){
		ds_init_item.setColumn(0, "apchitemscore13", "0");
		ds_init_item.setColumn(0, "apchitemlabel13", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='13']/apchitemscore", opt_zhc.value);
		ds_init_item.setColumn(0, "apchitemscore13", zhc);
		ds_init_item.setColumn(0, "apchitemlabel13", lbhc);
	}
}

// 14. W.B.C
function fValueGB() {
	//setInputNodeCurText();
	ipt_zgb.updateToDataset();

	if (utlf_isNull(ipt_zgb.text)){
		cmb_gb.value = "90";
	} else if (ipt_zgb.text < 1){
		cmb_gb.value = "14";
	} else if (ipt_zgb.text >= 1 && ipt_zgb.text <= 2.9){
		cmb_gb.value = "12";
	} else if (ipt_zgb.text >= 3 && ipt_zgb.text <= 14.9){
		cmb_gb.value = "10";
	} else if (ipt_zgb.text >= 15 && ipt_zgb.text <= 19.9){
		cmb_gb.value = "21";
	} else if (ipt_zgb.text >= 20 && ipt_zgb.text <= 39.9){
		cmb_gb.value = "22";
	} else if (ipt_zgb.text >= 40){
		cmb_gb.value = "24";
	}

	fCalcGB();
}

function fCalcGB() {
	//99 opt_zgb.value = cmb_gb.value.substr(1,2);
	var zgb = cmb_gb.value.substr(1,2);
	var lbgb = cmb_gb.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zgb.value == ""){
	if(utlf_isNull(zgb)){
		ds_init_item.setColumn(0, "apchitemscore14", "0");
		ds_init_item.setColumn(0, "apchitemlabel14", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='14']/apchitemscore", opt_zgb.value);
		ds_init_item.setColumn(0, "apchitemscore14", zgb);
		ds_init_item.setColumn(0, "apchitemlabel14", lbgb);
	}
}

// 15. Glasgow Coma Score
function fValueGLAS() {
	//setInputNodeCurText();

	if (utlf_isNull(ipt_zglas.text)){
		cmb_glas.value = "90";
	} else if (ipt_zglas.text == 15){
		cmb_glas.value = "0";
	} else if (ipt_zglas.text == 14){
		cmb_glas.value = "1";
	} else if (ipt_zglas.text == 13){
		cmb_glas.value = "2";
	} else if (ipt_zglas.text == 12){
		cmb_glas.value = "3";
	} else if (ipt_zglas.text == 11){
		cmb_glas.value = "4";
	} else if (ipt_zglas.text == 10){
		cmb_glas.value = "5";
	} else if (ipt_zglas.text == 9){
		cmb_glas.value = "6";
	} else if (ipt_zglas.text == 8){
		cmb_glas.value = "7";
	} else if (ipt_zglas.text == 7){
		cmb_glas.value = "8";
	} else if (ipt_zglas.text == 6){
		cmb_glas.value = "9";
	} else if (ipt_zglas.text == 5){
		cmb_glas.value = "10";
	} else if (ipt_zglas.text == 4){
		cmb_glas.value = "11";
	} else if (ipt_zglas.text == 3){
		cmb_glas.value = "12";
	}

	fCalcGLAS();
}

function fCalcGLAS() {
	var zglas;
	
	if (cmb_glas.value == 90) {
		//99 opt_zglas.value = cmb_glas.value.substr(1,2);
		zglas = cmb_glas.value.substr(1,2);
	} else {
		//99 opt_zglas.value = cmb_glas.value;
		zglas = cmb_glas.value;
	}
	var lbglas = cmb_glas.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zglas.value == ""){
	if(utlf_isNull(zglas)){
		ds_init_item.setColumn(0, "apchitemscore15", "0");
		ds_init_item.setColumn(0, "apchitemlabel15", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='15']/apchitemscore", opt_zglas.value);
		ds_init_item.setColumn(0, "apchitemscore15", zglas);
		ds_init_item.setColumn(0, "apchitemlabel15", lbglas);
	}
}

// 16. Age
function fValueAGE() {
	//setInputNodeCurText();
	ipt_zage.updateToDataset();

	if (utlf_isNull(ipt_zage.text)){
		cmb_age.value = "90";
	} else if (ipt_zage.text <= 44){
		cmb_age.value = "10";
	} else if (ipt_zage.text >= 45 && ipt_zage.text <= 54){
		cmb_age.value = "12";
	} else if (ipt_zage.text >= 55 && ipt_zage.text <= 64){
		cmb_age.value = "13";
	} else if (ipt_zage.text >= 65 && ipt_zage.text <= 74){
		cmb_age.value = "15";
	} else if (ipt_zage.text >= 75){
		cmb_age.value = "16";
	}

	fCalcAGE();
}

function fCalcAGE() {
	//99 opt_zage.value = cmb_age.value.substr(1,2);
	var zage = cmb_age.value.substr(1,2);
	var lbage = cmb_age.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zage.value == ""){
	if(utlf_isNull(zage)){
		ds_init_item.setColumn(0, "apchitemscore16", "0");
		ds_init_item.setColumn(0, "apchitemlabel16", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='16']/apchitemscore", opt_zage.value);
		ds_init_item.setColumn(0, "apchitemscore16", zage);
		ds_init_item.setColumn(0, "apchitemlabel16", lbage);
	}
}

// 17. Chronic Organ Insufficiency immuno-compromised
function fCalcMCRO() {
	//99 opt_zmcro.value = cmb_mcro.value.substr(1,2);
	var zmcro = cmb_mcro.value.substr(1,2);
	var lbmcro = cmb_mcro.text;
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	
	//opt_zmorta.value = fCalcMorta();
	
	if(utlf_isNull(ds_item20.getColumn(0, "apchitemscore"))){
		opt_zmorta.value = fCalcMort();
	}else{
		opt_zmorta.value = ds_item21.getColumn(0, "apchitemscore");
	}
	
	//99 if(opt_zmcro.value == ""){
	if(utlf_isNull(zmcro)){
		ds_init_item.setColumn(0, "apchitemscore17", "0");
		ds_init_item.setColumn(0, "apchitemlabel17", "");
	}else{
		//model.setValue("/root/main/apchitem/item[apchitemcd='17']/apchitemscore", opt_zmcro.value);
		ds_init_item.setColumn(0, "apchitemscore17", zmcro);
		ds_init_item.setColumn(0, "apchitemlabel17", lbmcro);
	}
}

function fCalcAPA() {
	var z = eval(opt_ztemp.value);
	z = z + eval(opt_zpam.value);
	z = z + eval(opt_zfc.value);
	z = z + eval(opt_zfr.value);
	z = z + eval(opt_zaa.value);
	z = z + eval(opt_zpao.value);
	z = z + eval(opt_zhco.value);
	z = z + eval(opt_zph.value);
	z = z + eval(opt_zna.value);
	z = z + eval(opt_zka.value);
	z = z + eval(opt_zuree.value);
	z = z + eval(opt_zurea.value);
	z = z + eval(opt_zhc.value);
	z = z + eval(opt_zgb.value);
	z = z + eval(opt_zage.value);
	z = z + eval(opt_zglas.value);
	z = z + eval(opt_zmcro.value);
	if (opt_zuree.value > 0 && opt_zurea.value > 0) {
		alert("Acute renal failure or not ?");
	}
	if (opt_zph.value > 0 && opt_zhco.value > 0) {
		alert(" Serum  HCO3 : use only if no ABGs");
	}
	if (opt_zaa.value > 0 && opt_zpao.value > 0) {
		alert(" FIO2 > or< 0.5 ?");
	}
	
	ds_item18.setColumn(0, "apchitemscore", z);

	return ''+z;
	
	
}

function fCalcMort(){
	z = eval(opt_zapa.value);
	z = -3.517 + z * (0.146);
	z = Math.exp(z) / (1 + Math.exp(z));
	z = fFmt(100 * z);
		
	return z;
	
	ds_item19.setColumn(0, "apchitemscore", opt_zmort.value);	// %

}

function fCalcMorta() {
	/*
	var z = 0;
	z = eval(model.getValue("/root/main/y") + "+z");
	z = Math.exp(z) / (1 + Math.exp(z));
	z = fFmt(100 * z);
	opt_zmorta.value = z;
	*/
	var z = 0;
	t = eval(ds_main.getColumn(0, "y"));
	z = eval(ds_main.getColumn(0, "zapa"));
	b = -3.517 + z * (0.146);
	z = b + t;
	z = Math.exp(z) / (1 + Math.exp(z));
	z = fFmt(100 * z);
	opt_zmorta.value = z;
	
	return z;
}

function fFmt(x) { 
	var v
	if(x >= 0) { 
		v = '' + (x + 0.05) 
	} else { 
		v = '' + (x - 0.05) 
	}
	
	return v.substring(0,v.indexOf('.')+2)
}


/* jw.choe 호출하는 부분에서 확인 필요  SPMMR03400_아파치Adjusted */
function fPrd(){	
	var adjusted = ds_main.getColumn(0, "y");
	var content = ds_main.getColumn(0, "content");
	var pdr = ds_main.getColumn(0, "pdeathrate");	
	// 줄바꿈 기호 처리
	content = content.replace("\r\n", "");
	
// 	opener.model.setValue("/root/main/apchitem/item[apchitemcd='20']/apchitemscore", adjusted);
// 	opener.ds_send_selectdata.setColumn(0, "adjustednm", content);
// 	opener.model.setValue("/root/main/apchitem/item[apchitemcd='21']/apchitemscore", pdr);
	opener.ds_item20.setColumn(0, "apchitemscore", adjusted);
	opener.ds_send_selectdata.setColumn(0, "adjustednm", content);
	opener.ds_item21.setColumn(0, "apchitemscore", pdr);

	this.close();
}

function fGubun() {
	//var fio2 = model.getValue("/root/main/apchitem/item[apchitemcd='23']/apchitemvalue");
	var fio2 = switch1.case1.cmb_fio2.value;
	var lbfio2 = switch1.case1.cmb_fio2.text;
	ds_item23.setColumn(0, "apchitemlabel", lbfio2);

	if (fio2 == "0"){
		switch1.case1.cmb_device.visible = false;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = false;
		switch1.case1.cpt_O2.visible = false;
		switch1.case1.cpt_L.visible = false;

		ds_item26.setColumn(0, "apchitemvalue", "21");
		
		var paco2 = ds_item28.getColumn(0, "apchitemvalue");

		if(!utlf_isNull(paco2)){			
			fValue();			
			ipt_zpao.setFocus();
			var e = new KeyEventInfo;
			frmf_inputEnterKey("ipt_zpao", "onkeydown", e);
			//ipt_zpao.dispatch("onkeydown");
			fValuePAO();
		}else{		
				switch1.case1.ipt_paco2.setFocus();
		}
		
	}else if(fio2 == "1"){
		switch1.case1.cmb_device.visible = true;
		switch1.case1.cmb_nasal.visible = true;
		switch1.case1.cmb_simple.visible = false;
		switch1.case1.cpt_O2.visible = true;
		switch1.case1.cpt_L.visible = true;
		ds_item26.setColumn(0, "apchitemvalue", "");
		fDevice();
		fValue();
		
	}else if(fio2 == "2"){
		switch1.case1.cmb_device.visible = false;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = false;
		switch1.case1.cpt_O2.visible = false;
		switch1.case1.cpt_L.visible = false;
		ds_item26.setColumn(0, "apchitemvalue", "");
		fDevice();
		//fValue();		
		switch1.case1.ipt_fio2.setFocus();
		
	}
}

function fDevice() {
	var device = ds_item24.getColumn(0, "apchitemvalue");
	var lbdevice = switch1.case1.cmb_device.text;
	ds_item24.setColumn(0, "apchitemlabel", lbdevice);
	ds_item26.setColumn(0, "apchitemvalue","");

	if (device == "0"){	//Nasal cauuula
		switch1.case1.cpt_L.visible = true;
		switch1.case1.cmb_nasal.visible = true;
		switch1.case1.cmb_simple.visible = false;		
	}else if(device == "1"){	//Simple face mask
		switch1.case1.cpt_L.visible = true;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = true;
	}else if(device =="2"){	//Ventilator
		switch1.case1.cpt_L.visible = false;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = false;
		
		switch1.case1.ipt_fio2.setFocus();
	}else{
		switch1.case1.cpt_L.visible = false;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = false;		
	}
}

function fNasal() {
	var napro = ds_item25.getColumn(0, "apchitemvalue");

	ds_item26.setColumn(0, "apchitemvalue", napro);
	
	if(ds_item26.getColumn(0, "apchitemvalue") >= 50){
		ds_item05.setColumn(0, "apchitemvalue", ds_item27.getColumn(0, "apchitemvalue"));
		ipt_zaa.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zaa", "onkeydown", e);
		//ipt_zaa.dispatch("onkeydown");
		fValueAA();
	}else if (ds_item26.getColumn(0, "apchitemvalue") < 50){
		ds_item06.setColumn(0, "apchitemvalue", ds_item29.getColumn(0, "apchitemvalue"));
		ipt_zpao.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zpao", "onkeydown", e);
		//ipt_zpao.dispatch("onkeydown");
		fValuePAO();
	}else if (utlf_isNull(ds_item28.getColumn(0, "apchitemvalue")) && utlf_isNull(ds_item29.getColumn(0, "apchitemvalue"))){
		ds_item07.setColumn(0, "apchitemvalue", ds_item30.getColumn(0, "apchitemvalue"));
		ipt_zhco.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zhco", "onkeydown", e);
		//ipt_zhco.dispatch("onkeydown");
		fValueHCO();
	}
}

function fSimple() {
	var simpro = ds_item25.getColumn(0, "apchitemvalue");
	
	ds_item26.setColumn(0, "apchitemvalue", simpro);
	
	if(ds_item26.getColumn(0, "apchitemvalue") >= 50){
		ds_item05.setColumn(0, "apchitemvalue", ds_item27.getColumn(0, "apchitemvalue"));
		fCalcAao2();
		fValue();
		ipt_zaa.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zaa", "onkeydown", e);
		//ipt_zaa.dispatch("onkeydown");
		fValueAA();
	}else if (ds_item26.getColumn(0, "apchitemvalue") < 50){
		ds_item06.setColumn(0, "apchitemvalue", ds_item29.getColumn(0, "apchitemvalue"));
		fCalcAao2();
		fValue();
		ipt_zpao.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zpao", "onkeydown", e);
		//ipt_zpao.dispatch("onkeydown");
		fValuePAO();
	}else if (utlf_isNull(ds_item28.getColumn(0, "apchitemvalue")) && utlf_isNull(ds_item29.getColumn(0, "apchitemvalue"))){
		ds_item07.setColumn(0, "apchitemvalue", ds_item30.getColumn(0, "apchitemvalue"));
		fCalcAao2();
		fValue();
		ipt_zhco.setFocus();
		var e = new KeyEventInfo;
		frmf_inputEnterKey("ipt_zhco", "onkeydown", e);
		//ipt_zhco.dispatch("onkeydown");
		fValueHCO();
	}
}

function fCalcAao2() {
	
		
	//var fio2 = model.getValue("/root/main/apchbun/apchfio2per");
	//var paco2 = model.getValue("/root/main/apchbun/apchpaco2");
	//var pao2 = model.getValue("/root/main/apchbun/apchpao2");	
	var fio2 = ds_item26.getColumn(0, "apchitemvalue");
	var paco2 = ds_item28.getColumn(0, "apchitemvalue");
	var pao2 = ds_item29.getColumn(0, "apchitemvalue");
	
	var aao2value = (760-47) * fio2 * 0.01 - paco2 - pao2;

	ds_item27.setColumn(0, "apchitemvalue", aao2value);
}

function fValue() {
	var apchitemdt = utlf_getCurrentDate() + utlf_getCurrentTime();
	
//If FiO2>=0.5 : (A-a)O2
	if(!utlf_isNull(ds_item27.getColumn(0, "apchitemvalue")) && ds_item26.getColumn(0, "apchitemvalue") >= 50){	
		if(!utlf_isNull(ds_item06.getColumn(0, "apchitemvalue"))){
			ds_item06.setColumn(0, "apchitemvalue", "");
			ds_item06.setColumn(0, "apchitemval", "");
		}
		if(!utlf_isNull(ds_item07.getColumn(0, "apchitemvalue"))){
			ds_item07.setColumn(0, "apchitemvalue", "");
			ds_item07.setColumn(0, "apchitemval", "");
		}
		
		ds_item05.setColumn(0, "apchitemvalue", ds_item27.getColumn(0, "apchitemvalue"));
		
//If FiO2<0.5 : PaO2
	}else if (!utlf_isNull(ds_item28.getColumn(0, "apchitemvalue")) && ds_item26.getColumn(0, "apchitemvalue") < 50){
		if(!utlf_isNull(ds_item05.getColumn(0, "apchitemvalue"))){
			ds_item05.setColumn(0, "apchitemvalue", "");
			ds_item05.setColumn(0, "apchitemval", "");
		}
		if(!utlf_isNull(ds_item07.getColumn(0, "apchitemvalue"))){
			ds_item07.setColumn(0, "apchitemvalue", "");
			ds_item07.setColumn(0, "apchitemval", "");
		}

		ds_item06.setColumn(0, "apchitemvalue", ds_item29.getColumn(0, "apchitemvalue"));
		
//If no A.B Gs : Serum HCO3-
	}else if (utlf_isNull(ds_item28.getColumn(0, "apchitemvalue")) && utlf_isNull(ds_item29.getColumn(0, "apchitemvalue"))){
		//setInputNodeCurText();
		if(!utlf_isNull(ds_item05.getColumn(0, "apchitemvalue"))){
			ds_item05.setColumn(0, "apchitemvalue", "");
			ds_item05.setColumn(0, "apchitemval", "");
		}
		if(!utlf_isNull(ds_item06.getColumn(0, "apchitemvalue"))){
			ds_item06.setColumn(0, "apchitemvalue", "");
			ds_item06.setColumn(0, "apchitemval", "");
		}
		ds_item07.setColumn(0, "apchitemvalue", ds_item30.getColumn(0, "apchitemvalue"));
	}	
}
/*
function fValue_Back() {
	var apchitemdt = getCurrentDate() + getCurrentTime();
	
//If FiO2>=0.5 : (A-a)O2
	//if(model.getValue("/root/main/apchbun/apchpaco2") != "" && model.getValue("/root/main/apchbun/apchfio2per") >= 0.5){	
	if(model.getValue("/root/main/apchitem/item[apchitemcd='27']/apchitemvalue") != "" && model.getValue("/root/main/apchitem/item[apchitemcd='26']/apchitemvalue") >= 50){	
		if(model.getValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemdt", "");
		}
		if(model.getValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemdt", "");
		}
		//var aao2 = model.getValue("/root/main/apchbun/apchaao2");
		//ipt_zaa.text = aao2;
		//model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue", model.getValue("/root/main/apchbun/apchaao2"));
		model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue", model.getValue("/root/main/apchitem/item[apchitemcd='27']/apchitemvalue"));
		model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemdt", "");
		model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemdt", "");
		model.refresh();
//If FiO2<0.5 : PaO2
	//}else if (model.getValue("/root/main/apchbun/apchpaco2") != "" && model.getValue("/root/main/apchbun/apchfio2per") < 0.5){
	}else if (model.getValue("/root/main/apchitem/item[apchitemcd='28']/apchitemvalue") != "" && model.getValue("/root/main/apchitem/item[apchitemcd='26']/apchitemvalue") < 50){
		if(model.getValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemdt", "");
		}
		if(model.getValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemdt", "");
		}
		//model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue", model.getValue("/root/main/apchbun/apchpao2"));
		model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue", model.getValue("/root/main/apchitem/item[apchitemcd='29']/apchitemvalue"));
		model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemdt", "");
		model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemdt", "");
		model.refresh();
//If no A.B Gs : Serum HCO3-
	//}else if (model.getValue("/root/main/apchbun/apchpaco2") == "" && model.getValue("/root/main/apchbun/apchpao2") == ""){
	}else if (model.getValue("/root/main/apchitem/item[apchitemcd='28']/apchitemvalue") == "" && model.getValue("/root/main/apchitem/item[apchitemcd='29']/apchitemvalue") == ""){
		setInputNodeCurText();

		if(model.getValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemdt", "");
		}
		if(model.getValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue") != ""){
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemvalue", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemval", "");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemscore", "0");
			model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemdt", "");
		}
		//model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue", model.getValue("/root/main/apchbun/apchhco3"));
		model.setValue("/root/main/apchitem/item[apchitemcd='07']/apchitemvalue", model.getValue("/root/main/apchitem/item[apchitemcd='30']/apchitemvalue"));
		model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='05']/apchitemdt", "");
		model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemscore", "0");
		model.setValue("/root/main/apchitem/item[apchitemcd='06']/apchitemdt", "");
		model.refresh();
	}			
	model.refresh();
}
*/
function fView() {
	var fio2 = ds_item.lookup("apchitemcd", "23", "apchitemvalue");
	var lbfio2 = switch1.case1.cmb_fio2.label;
	ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='23'") , "apchitemlabel", lbfio2);

	if (fio2 == "0"){
		switch1.case1.cpt_O2.visible = false;
		switch1.case1.cpt_L.visible = false;
		switch1.case1.cmb_device.visible = false;
		switch1.case1.cmb_nasal.visible = false;
		switch1.case1.cmb_simple.visible = false;
		
		//model.setValue("/root/main/apchbun/apchfio2per", "0.21");
		ds_item.setColumn( ds_item.findRowExpr("apchitemcd=='26'"), "apchitemvalue", "21");
	}else if(fio2 == "1"){
		switch1.case1.cpt_O2.visible = true;
		switch1.case1.cpt_L.visible = true;
		switch1.case1.cmb_device.visible = true;
		fDevice();
	}else if(fio2 == "2"){
		switch1.case1.cpt_O2.visible = false;
		switch1.case1.cpt_L.visible = false;
		switch1.case1.cmb_device.visible = false;
		fDevice();
	}
	
	var oParam = {};
		oParam.id       = "TRMMR03212";
		oParam.service  = "anstrecapp.ApacheRec";
		oParam.method   = "reqGetApchPidList";
		oParam.inds     = "selectdata=ds_send_selectdata";
		oParam.outds    = "ds_temp_apchpidlist=item";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR03212";

	tranf_submit(oParam);
	
	
	ds_init_item.setColumn(0, "apchitemlabel1", cmb_temp.text);
	ds_init_item.setColumn(0, "apchitemlabel2", cmb_zpam.text);
	ds_init_item.setColumn(0, "apchitemlabel3", cmb_zfc.text);
	ds_init_item.setColumn(0, "apchitemlabel4", cmb_zfr.text);
	ds_init_item.setColumn(0, "apchitemlabel5", cmb_zaa.text);
	ds_init_item.setColumn(0, "apchitemlabel6", cmb_pao.text);
	ds_init_item.setColumn(0, "apchitemlabel7", cmb_hco.text);
	ds_init_item.setColumn(0, "apchitemlabel8", cmb_ph.text);
	ds_init_item.setColumn(0, "apchitemlabel9", cmb_na.text);
	ds_init_item.setColumn(0, "apchitemlabel10", cmb_ka.text);
	ds_init_item.setColumn(0, "apchitemlabel11", cmb_uree.text);
	ds_init_item.setColumn(0, "apchitemlabel12", cmb_urea.text);
	ds_init_item.setColumn(0, "apchitemlabel13", cmb_hc.text);
	ds_init_item.setColumn(0, "apchitemlabel14", cmb_gb.text);
	ds_init_item.setColumn(0, "apchitemlabel15", cmb_glas.text);
	ds_init_item.setColumn(0, "apchitemlabel16", cmb_age.text);
	ds_init_item.setColumn(0, "apchitemlabel17", cmb_mcro.text);
	
	for (var i = 0; i < 17; i++){
		ds_item.setColumn(i, "apchitemlabel", ds_init_item.getColumn(0, "apchitemlabel" + (i + 1)));	
	}	
	
	/*
	var ref = "/root/main/apchitem/item";
	var dataCnt = getNodesetCnt(model, ref);	

	for (var i = 1; i < 18; i++){
		if((model.getValue("/root/main/apchitem/item[" + i + "]/apchitemvalue") == "") && (i != 17)){
			model.setValue("/root/main/apchitem/item[" + i + "]/apchitemscore", "0");
		}else if(model.getValue("/root/init/item/apchitemscore" + i) != ""){
			model.setValue("/root/main/apchitem/item[" + i + "]/apchitemscore", model.getValue("/root/init/item/apchitemscore" + i));			
		}
		model.setValue("/root/main/apchitem/item[" + i + "]/apchitemlabel", model.getValue("/root/init/item/apchitemlabel" + i));	
	}	
*/
	//나이
	var age = ds_temp_apchpidlist.getColumn(0, "age");

	if(utlf_isNull(ds_item.lookup("apchitemcd", "16", "apchitemvalue"))){
		ipt_zage.value = age;
	}else{
		ipt_zage.value = ds_item.lookup("apchitemcd", "16", "apchitemvalue");
	}	

	//기록정보 유형
	if(utlf_isNull(ds_temp_apchpidlist.getColumn(0, "ordinfo"))){
		if(ds_send_selectdata.getColumn(0, "apchdd") == ds_send_selectdata.getColumn(0, "fromdd")){
			rdo_ordinfo.value = "1";
		}		
	}else{
		rdo_ordinfo.value = ds_temp_apchpidlist.getColumn(0, "ordinfo");
	}
	
	//Adjusted 명칭
	if(!utlf_isNull(ds_temp_apchpidlist.getColumn(0, "adjustednm"))){
		opt_content.value = ds_temp_apchpidlist.getColumn(0, "adjustednm");
	}
	
	//인증저장정보
	ds_send_selectdata.setColumn(0, "lastespiyn", ds_temp_apchpidlist.getColumn(0, "lastespiyn"));	
	//signno
	ds_send_selectdata.setColumn(0, "signno", ds_temp_apchpidlist.getColumn(0, "signno"));
	//최초작성자
	ds_send_selectdata.setColumn(0, "fstrgstrid", ds_temp_apchpidlist.getColumn(0, "fstrgstrid"));
	ds_send_selectdata.setColumn(0, "fstrgstdt", ds_temp_apchpidlist.getColumn(0, "fstrgstdt"));
	//최종작성자
	ds_send_selectdata.setColumn(0, "lastupdtrid", ds_temp_apchpidlist.getColumn(0, "lastupdtrid"));
	ds_send_selectdata.setColumn(0, "lastupdtdt", ds_temp_apchpidlist.getColumn(0, "lastupdtdt"));
	
	
}

// 계산 버튼
function fCalc() {	
	//var ref = "/root/main/apchitem/item";
	var dataCnt = ds_item.rowcount;
	var apchitemdt = utlf_getCurrentDate() + utlf_getCurrentTime();

	//for (var i = 1; i < dataCnt; i++){
	for (var i = 0; i < 17; i++){
		var apchitemcd = ds_item.getColumn(i, "apchitemcd");
		var oDs_temp = this.objects["ds_item"+apchitemcd];

		if((utlf_isNull(oDs_temp.getColumn(0, "apchitemvalue"))) && (i != 16)){
			oDs_temp.setColumn(0, "apchitemscore", "0");
		}else if(!utlf_isNull(ds_init_item.getColumn(0, "apchitemscore" + (i+1)))){
			oDs_temp.setColumn(0, "apchitemscore", ds_init_item.getColumn(0, "apchitemscore" + (i+1)));			
		}
		oDs_temp.setColumn(0, "apchitemlabel", ds_init_item.getColumn(0, "apchitemlabel" + (i+1)));	
		
		
		//if((model.getValue("/root/main/apchitem/item[" + i + "]/apchitemdt") == "") && (i != 5) && (i != 6) && (i != 7)){
		if(((utlf_isNull(oDs_temp.getColumn(0, "apchitemdt"))) && 
			  (utlf_isNull(oDs_temp.getColumn(0, "apchitemvalue"))))||
			 ((utlf_isNull(oDs_temp.getColumn(0, "apchitemdt"))) && 
			  (!utlf_isNull(oDs_temp.getColumn(0, "apchitemvalue"))))){
			 oDs_temp.setColumn(0, "apchitemdt", apchitemdt);
			 oComp = this.components[arOpt_tm[i]];
			 oComp.mask = "####-##-## ##:##";
		}
		if(i == 16){
			oDs_temp.setColumn(0, "apchitemdt", apchitemdt);
			oComp = this.components[arOpt_tm[i]];
			oComp.mask = "####-##-## ##:##";
		}		
	}	
	
	opt_zapa.value = fCalcAPA();
	opt_zmort.value = fCalcMort();
	opt_zmorta.value = fCalcMorta();
	
	if(ds_item19.getColumn(0, "apchitemscore") == "N"){
		//opt_zmorta.value = fCalcMort();
		fCalcMort();
		fCalcMorta();
	}
}

/**
 * @ver    : 2009.08.10.
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 아파치 기록정보 인증저장
 * @param  : pFlag : TempSave : 임시저장, CertSave : 인증저장
 * @return :
 * @---------------------------------------------------
 */ 
function fGetApchRecCert(){

	dsf_deleteDs("ds_main_signSaveData_apchinfo");
	dsf_createDs("ds_main_signSaveData_apchinfo");
	dsf_deleteDs("ds_main_signSaveData_espidata");
	dsf_createDs("ds_main_signSaveData_espidata");
	
	dsf_copyDs(ds_main_signSaveData_apchinfo, ds_main_apchresult);
	
	dsf_copyDs(ds_main_signSaveData_espidata, ds_send_selectdata);
	
	//인증저장
	if (!fSign()) return;
	
	
	var oParam = {};
		oParam.id       = "TXMMR03212";
		oParam.service  = "anstrecapp.ApacheRec";
		oParam.method   = "reqExeApchEspi";
		oParam.inds     = "signinfo=ds_send_signdata";
		oParam.outds    = "ds_temp_sign=no";
		oParam.async    = false;
		oParam.callback = "cf_TXMMR03212";

	tranf_submit(oParam);
	
	if(arErrorCode.pop("TXMMR03212") > -1){
		dsf_deleteDs("ds_main_signSaveData");
	} else {
		alert("기록지가 저장되지 않았습니다.");
	}

}

/**
 * @group  :
 * @ver    : 2009.08.10.
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 인증로직
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
function fSign(){
	//var node = getGlobalVariable("paminfo");
	//model.removeNodeset("/root/main/paminfo/list");
	//setCSVToNode("/root/main/paminfo", node);	
	sPid		= ds_send_selectdata.getColumn(0, "pid"); 		// 환자번호
	sOrddd		= ds_send_selectdata.getColumn(0, "orddd"); 		// 입원일자
	sCretNo		= ds_send_selectdata.getColumn(0, "cretno"); 	// 환자 일자별 일련번호
	sApchdd		= ds_send_selectdata.getColumn(0, "apchdd"); 	// 환자 일자별 일련번호

	var oParam = {};
		oParam.id       = "TRMMR03215";
		oParam.service  = "anstrecapp.ApacheRec";
		oParam.method   = "reqGetApchFormcd";
		oParam.inds     = "req=ds_send_selectdata";
		oParam.outds    = "ds_temp_cd=cd";
		oParam.async    = false;
		oParam.callback = "cf_TRMMR03215";

	tranf_submit(oParam);
		
	sFormcd = ds_temp_cd.getColumn(0, "formcd");	//서식코드
	
	Sign.certreload = true ; // 전자서명 호출시 인증저장 버튼을  누늘때마다 인증서가 뜨도록 처리
    
	if(Sign.signprocess() == true){	 

//	if( !utlf_isNull(zesf_LoadKeyAndCert(sysf_getUserInfo("userid")))){
		// 전자인증 관련 환자 인적 정보를 보내줌. 
		ds_send_signdata.setColumn(0, "pid", sPid );//등록번호
		ds_send_signdata.setColumn(0, "orddd", sOrddd);//입원일자(입원,응급)/진료일자(외래)
		ds_send_signdata.setColumn(0, "signno", "");		//서명번호
		ds_send_signdata.setColumn(0, "cretno", sCretNo);	//일련번호

		ds_send_signdata.setColumn(0, "recdd", sApchdd);// 실제 기록이 이루어진 기록일자
		ds_send_signdata.setColumn(0, "rectm", utlf_getCurrentTime());//실제 기록이 이루어진 기록시간

		ds_send_signdata.setColumn(0, "recsaveflag"	, "Y");			//전자서명 인적정보 변경여부(기록일시 변경되는 경우  : Y, 그외 : N)
		ds_send_signdata.setColumn(0, "signflag"	, "01" );		//서명자료구분 (01 : 진료, 02 : 간호, 03 : LIS, 04 : 진료지원)
		ds_send_signdata.setColumn(0, "signgenrflag", "I");		//외래/입원구분(코드정의서 M0010 참조)

		//ds_send_signdata.setColumn(0, "formcd"		, "0900006103");		//아파치기록지 서식코드
		ds_send_signdata.setColumn(0, "formcd"		, sFormcd);		//아파치기록지 서식코드
		ds_send_signdata.setColumn(0, "orddeptcd"	, sysf_getUserInfo("dutplcecd"));	//진료부서코드
		ds_send_signdata.setColumn(0, "orddrid"		, sysf_getUserInfo("userid"));	//진료의사ID	  
		ds_send_signdata.setColumn(0, "dispyn"		, "Y");			//기록뷰어에는 조회안되도록
		// 인증할 데이터 정보(미기록 노드 제거된 정보) 
		// 미기록 노드 제거전 원본 노드 정보 : Sign.signedInfos[3]
		sysf_trace(Sign.signedInfos(1));
		ds_send_signdata.setColumn(0, "signbfcnts"	, Sign.signedInfos[1]); 
		
		// 공인인증 처리후 데이터
		ds_send_signdata.setColumn(0, "signaftcnts"	, Sign.signedInfos[2]);
	}else{
		return false;	
	}
    
    ds_send_signdata.setColumn(0, "screenid", sysf_getScreenID());
    return true;
}

/**
 * @group  :
 * @ver    : 2009.08.10
 * @---------------------------------------------------
 * @type   : function
 * @access : public
 * @desc   : 인증데이터 생성함수
 * @param  : 
 * @return :
 * @---------------------------------------------------
 */ 
 // ENRSignEngine.xjs 에서 호출. Sign.signprocess ()
function fMake_SignData(){
    Sign.addnode("/root/main/signSaveData");
}

]]></Script>