/* º¹¸·Åõ¼®½Ç½Ã°ü¸®(SMMND00800.xrw - JScript ) - Version : 1) : Ver.1.00.01 */ //**Àü¿ªº¯¼ö**// var sRecHistRow = ""; var XmlInstNm = "pdinfospeclist/pdinfospec" + " " // º¹¸·Åõ¼®Á¤º¸ + "epospeclist/epospec" + " " // EPO ³»¿ª + "insulinspeclist/insulinspec" + " " // Àν¶¸° ³»¿ª + "bizexecspeclist/bizexecspec"; // ¾÷¹«½Ç½Ã ³»¿ª //20090902-kys======================= var zbcResultRef = "/root/hidden/zbc/resultref"; var zbcM0132Ref = "/root/init/M0132list/M0132"; function makeZbcResultRef(){ model.makeNode(zbcResultRef); } function removeZbcResultRef(){ model.removeNode(zbcResultRef); } function removeM0132ResultRef(){ model.removeNodeset(zbcM0132Ref); } //20090902-kys============================= /** * @group : * @ver : 2007.05.31 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : È­¸é ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fDone(){ //**±×¸®µå ÃʱâÈ­**// model.removeNodeset("/root/main/pdmatnpatlist"); // º¹¸·Åõ¼® À¯ÁöȯÀÚ ¸®½ºÆ® model.removeNodeset("/root/main/rechistlist"); // º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® //model.refresh(); //**°øÅëÄÚµå °¡Á®¿À±â**// zbcfGetCodeList( new Array ( "M0130" // APDÁ¾·ù , "M0131" // º¹¸·Åõ¼®¾× ȸ»ç¸í , "M0132" // º¹¸·Åõ¼®¾× ) , new Array ( "/root/init/M0130list" // APDÁ¾·ù , "/root/init/M0131list" // º¹¸·Åõ¼®¾× ȸ»ç¸í , "/root/init/M0132list" // º¹¸·Åõ¼®¾× ) ); //** »ó´ÜȯÀÚ È­¸é¼³Á¤ **// var node = getGlobalVariable("paminfo"); setCSVToNode("/root/temp/paminfo", node); if(getNodesetCount("/root/temp/paminfo") > 0) { var sSelPid = model.getValue("/root/temp/paminfo/list/pid"); // µî·Ï¹øÈ£ model.setValue("/root/main/condition/pid", sSelPid); } fSrchPDMatnPatList(); // º¹¸·Åõ¼® À¯ÁöȯÀÚ¸®½ºÆ® Á¶È¸ if(model.getValue("/root/main/condition/pid") != "") { var iRow = 1; fInit(); // ÃʱâÈ­ var sSelPid = grd_pdmatnpatinfo.textmatrix(iRow, 1); // µî·Ï¹øÈ£ var sMaintePatRgstDD = grd_pdmatnpatinfo.textmatrix(iRow, 4); // À¯ÁöȯÀÚ µî·ÏÀÏÀÚ // ¼±Åà Çà ¼¿ »ö»ó ÁöÁ¤ grd_pdmatnpatinfo.cellstyle("background-color", iRow, 1, iRow, 4) = "#ffd9ff"; fGetPatInfo(sSelPid, sMaintePatRgstDD); // ȯÀÚÁ¤º¸ ¼³Á¤ fSrchPatHist(); // º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® Á¶È¸ } } /** * @group : * @ver : 2007.06.18 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : ȸ»ç¸íº° Åõ¼®¾× ÄÞº¸ ¼³Á¤ * @param : * @return : * @--------------------------------------------------- */ function fGetDialLiqList(){ /*zbcfGetKindCodeList( new Array("M0028"), //¾÷¹«±ÔÄ¢ new Array("M0132"), //Äڵ屺 new Array("/root/init/M0132list"), //³ëµå true, //minimum : true TRZBC00105 new Array("cdid"), //sorting Ç׸ñ new Array("asc") ); */ //20090923-kys¼öÁ¤(ȸ»çº° Åõ¼®¾×¼³Á¤) var sSelCmpyCd = model.getValue("root/main/reclist/recinfo/recinfolists/cmpycd"); fGetChildCodeList("M0132", "/root/init/M0132list", sSelCmpyCd);//20090902-kys cmb_dialliqdcd.refresh(); } /** * @group : * @ver : 2007.06.08 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : º¹¸·Åõ¼® À¯ÁöȯÁö¸®½ºÆ® Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fSrchPDMatnPatList(){ model.removenode("/root/send"); model.makeNode("/root/send"); model.makeValue("/root/send/reqdata/pid",model.getValue("/root/main/condition/pid")); model.makeValue("/root/send/reqdata/dialflag", "P"); // Åõ¼®±¸ºÐ (P:º¹¸·) //model.removeNodeset("/root/main/pdmatnpatlist/pdmatnpatinfo"); model.removeNodeset("/root/main/pdmatnpatlist"); submit("TRMND00801"); if(model.getValue("/root/main/condition/pid") != "") { // grd_pdmatnpatinfo.cellstyle("background-color", 1, 1, 1, 3) = "#ffd9ff"; // º¹¸·Åõ¼® À¯ÁöȯÀÚ¸®½ºÆ® ¼¿ »ö»ó ÁöÁ¤ for(var i=1; i<=grd_rechistinfo.rows; i++) { grd_rechistinfo.cellstyle("background-color", i, 1, i, 3) = "white"; // º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® ¼¿ »ö»ó ÃʱâÈ­ (white) } //fGetPatInfo(model.getValue("/root/main/pdmatnpatlist/pdmatnpatinfo[1]/pid"), model.getValue("/root/main/pdmatnpatlist/pdmatnpatinfo[1]/maintepatrgstdd")); // ȯÀÚÁ¤º¸ ¼³Á¤ //fSrchPatHist(); // º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® Á¶È¸ // ȯÀÚº° µµ°ü±â·Ï ¸®½ºÆ® Á¶È¸ } } /** * @group : * @ver : 2015.07.22 * @by : ±Ç¿µ¾Ö * @--------------------------------------------------- * @type : function * @access : public * @desc : º¹¸·Åõ¼®ÀûÀýµµ°Ë»çÀϰú °á°ú Á¶È¸ * @param : * @return : * @--------------------------------------------------- */ function fSrchPDKTVInfo(sSelPid){ model.removenode("/root/send"); model.makeNode("/root/send"); model.makeValue("/root/send/reqdata/pid",sSelPid); model.makeValue("/root/send/reqdata/dialflag", "P"); // Åõ¼®±¸ºÐ (P:º¹¸·) //model.removeNodeset("/root/main/pdmatnpatlist/pdmatnpatinfo"); model.removeNodeset("/root/main/pdktvinfo"); submit("TRMND00808"); } /** * @group : * @ver : 2007.06.25 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : ÃʱâÈ­ * @param : * @return : * @--------------------------------------------------- */ function fInit(){ // ÃʱâÈ­ if(getNodesetCount("/root/main/reclist/recinfo/recinfolists")>0){ fClearChildNode("/root/main/reclist/recinfo/recinfolists"); // º¹¸·Åõ¼®Á¤º¸ } if(getNodesetCount("/root/main/reclist/recinfo/pdinfospeclist")>0){ fClearChildNode("/root/main/reclist/recinfo/pdinfospeclist/pdinfospec"); // º¹¸·Åõ¼®Á¤º¸(XML) } if(getNodesetCount("/root/main/reclist/recinfo/epospeclist")>0){ fClearChildNode("/root/main/reclist/recinfo/epospeclist/epospec"); // EPO³»¿ª } if(getNodesetCount("/root/main/reclist/recinfo/insulinspeclist")>0){ fClearChildNode("/root/main/reclist/recinfo/insulinspeclist/insulinspec"); // Àν¶¸°³»¿ª } if(getNodesetCount("/root/main/reclist/recinfo/bizexecspeclist")>0){ fClearChildNode("/root/main/reclist/recinfo/bizexecspeclist/bizexecspec"); // ¾÷¹«½Ç½Ã ³»¿ª } model.setValue("/root/main/condition/recfromdd", ""); // Á¶È¸±â°£ ÃʱâÈ­ model.setValue("/root/main/condition/rectodd", ""); model.makeValue("/root/main/pdktvinfo/execdt",""); //20150723 ÀûÀýµµÆò°¡ÀÏÀÚ ÃʱâÈ­ model.makeValue("/root/main/pdktvinfo/ktvrsltcnts",""); //20150723 ÀûÀýµµ°á°úÀÏÀÚ ÃʱâÈ­ grp_pdrecinfo.disabled = true; // º¹¸·Åõ¼®½Ç½Ã±â·Ï Ȱ¼ºÈ­ btn_newrgst.disabled = false; // ½Å±Ôµî·Ï¹öư Ȱ¼ºÈ­ grp_optapd.visible = false; //±â·ÏÀÚ Á¤º¸ ¼³Á¤ model.makeValue("/root/main/reclist/recinfo/recinfolists/recid", getUserId()); // ÇöÀç ·Î±×ÀÎÇÑ »ç¿ëÀÚ ID model.makeValue("/root/main/reclist/recinfo/recinfolists/recnm", getUserName()); // ÇöÀç ·Î±×ÀÎÇÑ »ç¿ëÀÚ¸í // À¯ÁöȯÀÚ ¸®½ºÆ® ¼¿ »ö»ó ÃʱâÈ­ (white) for(var i=1; i<=grd_pdmatnpatinfo.rows; i++) { grd_pdmatnpatinfo.cellstyle("background-color", i, 1, i, 4) = "white"; } model.refresh(); } /** * @group : * @ver : 2007.06.08 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : ¼±Åà ȯÀÚ Á¤º¸ ¼³Á¤(º¹¸·Åõ¼® À¯ÁöȯÀÚ¸®½ºÆ® ´õºíŬ¸¯ ½Ã) * @param : * @return : * @--------------------------------------------------- */ function fGetPatInfo(sSelPid, sMaintePatRgstDD){ // ȯÀÚÁ¤º¸ ¼³Á¤ model.makeValue("/root/main/reclist/recinfo/recinfolists/pid", sSelPid); // ¼±ÅÃȯÀÚ µî·Ï¹øÈ£ model.makeValue("/root/main/reclist/recinfo/recinfolists/maintepatrgstdd", sMaintePatRgstDD); // ¼±ÅÃȯÀÚ À¯ÁöȯÀÚµî·ÏÀÏÀÚ //2008-08-07 : ±â·ÏÀÏÀÚ- default ÁöÁ¤ model.setValue("/root/main/condition/rectodd", getCurrentDate()); model.setValue("/root/main/condition/recfromdd", getDateCalc(getCurrentDate(), 365*2, '-')); //model.refresh(); } /** * @group : * @ver : 2007.06.08 * @by : ±èÁø¾Æ * @--------------------------------------------------- * @type : function * @access : public * @desc : º¹¸·Åõ¼® °£È£±â·Ï ÀúÀå * @param : pFlag : ÀúÀ屸ºÐ("T":ÀÓ½ÃÀúÀå, "C":ÀÎÁõÀúÀå) * @return : * @--------------------------------------------------- */ function fSavePDRecInfo(pFlag){ if(model.getValue("/root/main/reclist/recinfo/recinfolists/recdd")=="" || model.getValue("/root/main/reclist/recinfo/recinfolists/rectm")==""){ messageBox("±â·ÏÀϽø¦ ÀÔ·ÂÇϽʽÿÀ.", "E"); model.setFocus("ipt_recdd"); return; } //** 2011.05.25 ±Ç¿µ¾Ö **// if(pFlag == "C" && model.getValue("/root/main/reclist/recinfo/recinfolists/histstat") == "O") { messageBox("¿Ü·¡È¯ÀÚ´Â ÀÎÁõÀúÀåÇÒ ¼ö ¾ø½À´Ï´Ù. ÀúÀåÇϼ¼¿ä", "E"); return; } //** µ¿Àϱâ·ÏÀϽÿ¡ º¹¸·Åõ¼® ½Ç½Ã±â·Ï Á¸Àç¿©ºÎ È®ÀÎ **// if(model.getValue("/root/main/reclist/recinfo/recinfolists/status") == "i") { model.removenode("/root/send"); model.makeNode ("/root/send"); model.makeValue ("/root/send/reqdata/pid" , model.getValue("/root/main/reclist/recinfo/recinfolists/pid") ); model.makeValue ("/root/send/reqdata/recdd", model.getValue("/root/main/reclist/recinfo/recinfolists/recdd")); model.makeValue ("/root/send/reqdata/rectm", model.getValue("/root/main/reclist/recinfo/recinfolists/rectm")); model.removeNodeset("/root/main/chklist"); submit("TRMND00805"); // µ¿Àϱâ·ÏÀÏÀÚ¿¡ º¹¸·½Ç½Ã±â·Ï Á¸Àç ÇÒ °æ¿ì if(model.getValue("/root/main/chklist/chkinfo/pid") != "") { messageBox("µ¿ÀÏÀϽÿ¡ º¹¸·Åõ¼® ½Ç½Ã±â·ÏÀÌ Á¸ÀçÇÕ´Ï´Ù.", "E"); // ±â·ÏÀϽà ¼³Á¤ model.makeValue("/root/main/reclist/recinfo/recinfolists/recdd", getCurrentDate()); // ±â·ÏÀÏÀÚ model.makeValue("/root/main/reclist/recinfo/recinfolists/rectm", getCurrentTime().substr(0,4)); // ±â·Ï½Ã°£ //fSrchPastPDInfo(); // ÃÖ±Ù º¹¸·Åõ¼® ½Ç½Ã±â·Ï Á¶È¸ model.refresh(); return; } } //** ÀúÀå½ÇÇà **// XmlDataCheck(XmlInstNm); model.removenode("/root/send"); model.makeNode ("/root/send/savedata"); copyNodeType ("/root/send/savedata", "/root/main/reclist/recinfo/recinfolists"); model.makeValue("/root/send/savedata/certflag", pFlag); // ÀÎÁõ¿©ºÎ( T : ÀÓ½ÃÀúÀå, C : ÀÎÁõÀúÀå) model.removeNodeset("/root/send/savedata/pdinfospeclist"); sXml = instance1.selectNodesXml("/root/main/reclist/recinfo/pdinfospeclist/pdinfospec"); // Åõ¼®Á¤º¸ model.makeValue("/root/send/savedata/pdinfospeclist", sXml); model.removeNodeset("/root/send/savedata/epospeclist"); sXml = instance1.selectNodesXml("/root/main/reclist/recinfo/epospeclist/epospec"); // epo ³»¿ª model.makeValue("/root/send/savedata/epospeclist", sXml); model.removeNodeset("/root/send/savedata/insulinspeclist"); sXml = instance1.selectNodesXml("/root/main/reclist/recinfo/insulinspeclist/insulinspec"); // Àν¶¸° ³»¿ª model.makeValue("/root/send/savedata/insulinspeclist", sXml); model.removeNodeset("/root/send/savedata/bizexecspeclist"); sXml = instance1.selectNodesXml("/root/main/reclist/recinfo/bizexecspeclist/bizexecspec"); // ¾÷¹«½Ç½Ã ³»¿ª model.makeValue("/root/send/savedata/bizexecspeclist", sXml); //** º¹¸·Åõ¼®½Ç½Ã°ü¸® ÀÎÁõÀúÀå±â´É »èÁ¦µÊ. ÁÖ¼®Ã³¸®(2007-12-17) **// // ÀÎÁõÀúÀåÀÏ °æ¿ì if(pFlag == "C"){ if(Sign.signprocess() == true){ // ÀÎÁõ ·ÎÁ÷ È£Ãâ model.removeNodeset("/root/send/savedata/signinfo"); model.makeValue("/root/send/savedata/signinfo/pid" , model.getValue("/root/main/reclist/recinfo/recinfolists/pid") ); // µî·Ï¹øÈ£ model.makeValue("/root/send/savedata/signinfo/orddd" , model.getValue("/root/main/reclist/recinfo/recinfolists/orddd") ); // Áø·áÀÏÀÚ model.makeValue("/root/send/savedata/signinfo/signno" , model.getValue("/root/main/reclist/recinfo/recinfolists/signno") ); // ¼­¸í¹øÈ£ model.makeValue("/root/send/savedata/signinfo/cretno" , model.getValue("/root/main/reclist/recinfo/recinfolists/cretno") ); // »ý¼º¹øÈ£ model.makeValue("/root/send/savedata/signinfo/recdd" , model.getValue("/root/main/reclist/recinfo/recinfolists/recdd") ); // ½ÇÁ¦ ±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·ÏÀÏÀÚ(ÅëÇÕ±â·Ï¿¡¼­ º¸¿©Áü) model.makeValue("/root/send/savedata/signinfo/rectm" , model.getValue("/root/main/reclist/recinfo/recinfolists/rectm") ); // ½ÇÁ¦ ±â·ÏÀÌ ÀÌ·ç¾îÁø ±â·Ï½Ã°£(ÅëÇÕ±â·Ï¿¡¼­ º¸¿©Áü) model.makeValue("/root/send/savedata/signinfo/recsaveflag" , "Y" ); // ÀüÀÚ¼­¸í ÀÎÀûÁ¤º¸ º¯°æ¿©ºÎ(±â·ÏÀϽà º¯°æµÇ´Â °æ¿ì: Y, ±×¿Ü: N) model.makeValue("/root/send/savedata/signinfo/signflag" , "02"); // ¼­¸íÀڷᱸºÐ(01 : Áø·á, 02 : °£È£) model.makeValue("/root/send/savedata/signinfo/signgenrflag", model.getValue("/root/main/reclist/recinfo/recinfolists/histstat")); // ¼­¸í¹ß»ý±¸ºÐ (ÄÚµåÁ¤ÀǼ­ M0010 ÂüÁ¶) model.makeValue("/root/send/savedata/signinfo/formcd" , "1100011162"); // °¢ ±â·ÏÁöº° ¼­½ÄÄÚµå model.makeValue("/root/send/savedata/signinfo/orddeptcd" , model.getValue("/root/main/reclist/recinfo/recinfolists/orddeptcd")); // Áø·áºÎ¼­ÄÚµå model.makeValue("/root/send/savedata/signinfo/orddrid" , model.getValue("/root/main/reclist/recinfo/recinfolists/orddrid") ); // Áø·áÀÇ»çID model.makeValue("/root/send/savedata/signinfo/signbfcnts" , Sign.signedInfos[1]); // ÀÎÁõÇÒ µ¥ÀÌÅÍ Á¤º¸(¹Ì±â·Ï ³ëµå Á¦°ÅµÈ Á¤º¸) model.makeValue("/root/send/savedata/signinfo/signaftcnts" , Sign.signedInfos[2]); // °øÀÎÀÎÁõ ó¸®ÈÄ µ¥ÀÌÅÍ }else{ return false; } } submit("TXMND00801"); //** º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® Á¶È¸ **// fSrchPatHist(); // º¹¸·Åõ¼® ½Ç½Ãµî·Ï ¸®½ºÆ® Á¶È¸ var sRecdd = model.getValue("/root/main/reclist/recinfo/recinfolists/recdd"); var sRectm = model.getValue("/root/main/reclist/recinfo/recinfolists/rectm"); var sRecnm = model.getValue("/root/main/reclist/recinfo/recinfolists/recnm"); var sPid = model.getValue("/root/main/reclist/recinfo/recinfolists/pid"); var sSignno = model.getValue("/root/main/reclist/recinfo/recinfolists/signno"); //** º¹¸·Åõ¼® ½Ç½Ã±â·Ï Á¶È¸ **// fSrchPDInfo(sRecHistRow); // º¹¸·Åõ¼® ½Ç½Ã±â·Ï Á¶È¸ model.setValue("/root/main/reclist/recinfo/recinfolists/status" , "u"); } /* ------------------------------------------------- */ /* desc : ÀÎÁõµ¥ÀÌÅÍ ¸¸µé±â */ /* param : pModel - Model */ /* tNode - Target Node */ /* sNode - Source Node */ /* return : */ /* -------------------------------------------------- */ function fMake_SignData(){ Sign.addnode("/root/main/reclist/recinfo"); //±â·Ï °ü·Ã ÀνºÅϽº Àüü¸¦ copy // ÀνºÅϽº copy ÈÄ¿¡ ÄÞº¸³ª üũ¹Ú½º °°Àº °æ¿ì Äڵ尪Àº ¸íĪÀ¸·Î º¯°æ var xRecinfoPath = Sign.XPATH_SIGNINFO+"/recinfo/recinfolists"; // Åõ¼®Á¾·ù model.makeValue(xRecinfoPath + "/dialkindflag", rdo_dialkindflag.label); // APDÁ¾·ù var sApdKindFlag = model.getValue(xRecinfoPath+"/apdkindflag"); if(sApdKindFlag != ""){ model.makeValue(xRecinfoPath+"/apdkindflag",model.getValue("/root/init/M0130list/M0130[cdid='"+sApdKindFlag+"']/cdnm")); } // ȸ»ç¸í var sCmpyCd = model.getValue(xRecinfoPath+"/cmpycd"); if(sCmpyCd != ""){ model.makeValue(xRecinfoPath+"/cmpycd",model.getValue("/root/init/M0131list/M0131[cdid='"+sCmpyCd+"']/cdnm")); } // Åõ¼®¾× var sDialLiqdCd = model.getValue(xRecinfoPath+"/dialliqdcd"); if(sDialLiqdCd != ""){ model.makeValue(xRecinfoPath+"/dialliqdcd",model.getValue("/root/init/M0132list/M0132[cdid='"+sDialLiqdCd+"']/cdnm")); } // Break Point var xBreakPointYnPath = Sign.XPATH_SIGNINFO + "/recinfo/pdinfospeclist/pdinfospec/breakpointyn"; var sBreakPointYn = model.getValue(xBreakPointYnPath); switch(sBreakPointYn){ case '1': model.makeValue(xBreakPointYnPath, "¹«"); break; case '2': model.makeValue(xBreakPointYnPath, "À¯"); break; } // ÀÚ°¡°£È£ var sSelfCareYn = model.getValue(xRecinfoPath + "/selfcareyn"); switch(sSelfCareYn){ case '1': model.makeValue(xRecinfoPath + "/selfcareyn", "¹«"); break; case '2': model.makeValue(xRecinfoPath +"/selfcareyn", "À¯"); break; } // ÇìÆÄ¸° var sHeparinYn = model.getValue(xRecinfoPath + "/heparinyn"); switch(sHeparinYn){ case '1': model.makeValue(xRecinfoPath + "/heparinyn", "¹«"); break; case '2': model.makeValue(xRecinfoPath + "/heparinyn", "À¯"); break; } // EPO var xEpoYnPath = Sign.XPATH_SIGNINFO + "/recinfo/epospeclist/epospec/epoyn"; var sEpoYn = model.getValue(xEpoYnPath); switch(sEpoYn){ case '1': model.makeValue(xEpoYnPath, "¹«"); break; case '2': model.makeValue(xEpoYnPath, "À¯"); break; } // ½Ç½Ã¾÷¹« var xExecBizPath = Sign.XPATH_SIGNINFO + "/recinfo/bizexecspeclist/bizexecspec/execbiz"; var sExecBiz = model.getValue(xExecBizPath); var sExecBizVal = sExecBiz.split(" "); var sExecBizStr = ""; for(var i=0; i