/************************************************************************************************ @(#)AHA001.js @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc : °ÇÁø¾÷¹«¿¡¼­ »ç¿ëÇÏ´Â °ø¿ëÇÔ¼ö °ü¸® *************************************************************************************************/ /************************************************************************************************ **fMoveFocus @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc : enter keyÀԷ½à ƯÁ¤ control·Î focus À̵¿ *************************************************************************************************/ function fMoveFocus(vCtrlID){ if( event.keyCode == 13 ) { if( vCtrlID != "" ) model.setFocus(vCtrlID); } } /************************************************************************************************ **fExcelUpload @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc :Excel FileÀ» grid·Î loadÇÑ´Ù. @param : grid control id *************************************************************************************************/ function fExcelToGrid(grdObj){ /* if(grdObj == "xforms:datagrid"){*/ var fileName = window.fileDialog("open", ",", false, "", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls"); vId.loadExcel(fileName, 1, true); var cnt = grdObj.rows; var i = 0; for( i = 1; i < cnt +1 ; i++) { grdObj.addStatus(i, "insert"); } grdObj.deleteRow(1); grdObj.refresh(); } /** *====================================================================================================================================. @author : ¼ÕÁÖ¿¬ @version : 2007-04-20 @desc : °ÇÁø±¸ºÐ ¼³Á¤ => ÃßÈÄ ·Î±×ÀÎ ½Ã °ÇÁø±¸ºÐ ¼¼¼Ç°ü¸®°¡ µÇÁö ¾ÊÀ» °æ¿ì¸¦ ´ëºñ. @param : grid control id @return : C: Á¾°Ç/ G :À졂 ====================================================================================================================================*/ function fGetHealExamFlag(){ var sFlag = getScreenMenuParameter() ; var sFlagLen = parseInt(sFlag.length); // ÇÑÀÚ¸® ÀÌÇÏ Àΰæ¿ì ==> °ÇÁø±¸ºÐ(C,G)·Î ±¸ºÐ if(sFlagLen <= 1) { if( sFlag == "" ) sFlag = "G"; }else { // ÇÑÀÚ¸® ÃʰúÀΰæ¿ì => °ÇÁø»ó¼¼±¸ºÐ (CXX ,GXX)·Î ±¸ºÐ sFlag = sFlag.substr(0,1); } return sFlag ; } /** * ±â°üÄÚµå ¹× »ç¾÷üÄڵ尡Á®¿À±â====================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ±â°üÄÚµå ¹× »ç¾÷üÄڵ尡Á®¿À±â @param : *vOpenerID : ÇöÀçÈ­¸éID *vFlag : Äڵ屸ºÐ °øÅëÄÚµå A0114ÂüÁ¶ ** 01 ÆÇÁ¤ÀÇ ** 02 °Ç°­º¸Çè°ø´Ü ** 03 °üÇÒ±ºº´¿ø ** 04 »ê¾÷¾ÈÀü°ø´Ü ** 05 º¸°Ç¼Ò ** 06 ³ëµ¿Ã» ** 07 Áöµµ¿ø ** 08 »ç¾÷ü * vCond : °Ë»ö±¸ºÐ(cd/nm) * vCdnm : °Ë»öÁ¶°Ç(ÄÚµå/¸íĪ) * vDesXPathCd: code°ªÀ» settingÇÒ ¸ñÀû³ëµå * vDesXPathNm: name°ªÀ» settingÇÒ ¸ñÀû³ëµå * SPAHA00500_PARAM1 : Äڵ屸ºÐ °øÅëÄÚµå A0114ÂüÁ¶ * SPAHA00500_PARAM2 : °Ë»ö±¸ºÐ(cd/nm) * SPAHA00500_PARAM3 : °Ë»öÁ¶°Ç(ÄÚµå/¸íĪ) * SPAHA00500_PARAM4 : ±â°üÄÚµå * SPAHA00500_PARAM5 : Äڵ屸ºÐ °øÅëÄÚµå A0114ÂüÁ¶ * SPAHA00500_PARAM6 : code°ªÀ» settingÇÒ ¸ñÀû³ëµå * SPAHA00500_PARAM7 : name°ªÀ» settingÇÒ ¸ñÀû³ëµå */ function fGetComnCd(vOpenerID, vFlag , vCond, vCdnm , vDesXPathCd , vDesXPathNm ){ clearParameter("SPAHA00500_PARAM1"); clearParameter("SPAHA00500_PARAM2"); clearParameter("SPAHA00500_PARAM3"); clearParameter("SPAHA00500_PARAM4"); clearParameter("SPAHA00500_PARAM5"); clearParameter("SPAHA00500_PARAM6"); clearParameter("SPAHA00500_PARAM7"); setParameter ("SPAHA00500_PARAM1", vFlag); setParameter ("SPAHA00500_PARAM2", vCond); setParameter ("SPAHA00500_PARAM3", vCdnm); setParameter ("SPAHA00500_PARAM4", getUserInfo("dutplceinstcd")); setParameter ("SPAHA00500_PARAM5", vOpenerID); setParameter ("SPAHA00500_PARAM6", vDesXPathCd); setParameter ("SPAHA00500_PARAM7", vDesXPathNm); modal("SPAHA00500"); } /** * Node°¡ Á¸ÀçÇÏÁö ¾ÊÀ» °æ¿ì make.====================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : Node°¡ Á¸ÀçÇÏÁö ¾ÊÀ» °æ¿ì make. @param : * xPath : node XPath * bMake : make ¿©ºÎ @return : true/false (node Á¸Àç ¿©ºÎ ) */ function fCheckNodeExist(xPath, bMake){ var node = instance1.selectSingleNode( xPath); if( node == null ) { if(bMake==true){ model.makeNode(xPath); return true; } else { return false; } } return true; } /** * ȯÀÚ°Ë»öâ open===================================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ȯÀÚ°Ë»öâ open @param : * SPAHA00400_PARAM1 : ÇöÀçÈ­¸éID * SPAHA00400_PARAM2 : °Ë»öÁ¶°Ç pnm/pid/rgstno * SPAHA00400_PARAM3 : °Ë»ö¾î * SPAHA00400_PARAM4 : nodesetÀüü copy¿©ºÎ (NÀϰæ¿ì ¿ø¹«µî·Ï¹øÈ£¿Í ȯÀÚ ÇÑ±Û¸í¸¸ copy) * SPAHA00400_PARAM5 : nodesetÀüü copy¿©ºÎ Y Àϰæ¿ì ´ë»ó³ëµå * SPAHA00400_PARAM6 : nodesetÀüü copy¿©ºÎ N Àϰæ¿ì ¿ø¹«µî·Ï¹øÈ£ ´ë»ó³ëµå * SPAHA00400_PARAM7 : nodesetÀüü copy¿©ºÎ N Àϰæ¿ì ȯÀÚ ÇÑ±Û¸í ´ë»ó³ëµå * ===================================================================================================================================================== */ function fSearchPatInfo(vOpenerID, vCond, vCdnm, vSetYN, vDestXPath, vDestPid, vDestPnm, vRgstNo1, vRgstNo2 ){ clearParameter("SPAHA00400_PARAM1"); clearParameter("SPAHA00400_PARAM2"); clearParameter("SPAHA00400_PARAM3"); clearParameter("SPAHA00400_PARAM4"); clearParameter("SPAHA00400_PARAM5"); clearParameter("SPAHA00400_PARAM6"); clearParameter("SPAHA00400_PARAM7"); clearParameter("SPAHA00400_PARAM8"); clearParameter("SPAHA00400_PARAM9"); setParameter ("SPAHA00400_PARAM1", vOpenerID); setParameter ("SPAHA00400_PARAM2", vCond); setParameter ("SPAHA00400_PARAM3", vCdnm); setParameter ("SPAHA00400_PARAM4", vSetYN); setParameter ("SPAHA00400_PARAM5", vDestXPath); setParameter ("SPAHA00400_PARAM6", vDestPid); setParameter ("SPAHA00400_PARAM7", vDestPnm); setParameter ("SPAHA00400_PARAM8", vRgstNo1); setParameter ("SPAHA00400_PARAM9", vRgstNo2); modal("SPAHA00400"); } /** * ȯÀÚÀÎÀû»çÇ×ÀúÀå===================================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ȯÀÚÀÎÀû»çÇ×ÀúÀå @param : * vPidYN : µî·Ï¹øÈ£»ý¼º¿©ºÎ */ function fSavePatInfo(vPidYN){ if( fCheckPatInfo() == false ) return ; fCheckNodeExist("/root/main/info/patinfo/item/pidcretfg", true); model.removenode("/root/send/save"); model.makeNode("/root/send/save"); model.setValue("/root/main/info/patinfo/item/pidcretfg", vPidYN); model.copyNode("/root/send/save", "/root/main/info/patinfo/item"); fCheckNodeExist("/root/send/save/userid", true); fCheckNodeExist("/root/send/save/instcd", true); model.setValue("/root/send/save/userid", getUserId() ); model.setValue("/root/send/save/instcd", getUserInfo("dutplceinstcd") ); model.makeValue("/root/send/save/healexamflag" , model.getValue("/root/send/srchhealexamflag") ) model.makeNode("/root/send/save/healexamdetlflag"); model.setValue("/root/send/save/healexamdetlflag", model.getValue("/root/send/srchhealexamdetlflag") ); openLoadingBar("°ÇÁøÀÚ ÀÎÀû»çÇ× ÀúÀå ÁßÀÔ´Ï´Ù..") ;//ó¸®Áß È­¸éÀ» ¿ÀÇÂÇÑ´Ù. submit("TXAHA00101"); closeLoadingBar() ;//ó¸®Áß È­¸éÀ» closeÇÑ´Ù. } /** * °ÇÁøÀÚÀÎÀû»çÇ× ³»¿ë check.========================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : °ÇÁøÀÚÀÎÀû»çÇ× ³»¿ë check @param : */ function fCheckPatInfo(vFrom){ if (vFrom=="1") { /** * ÇʼöÇ׸ñ ÀԷ¿©ºÎ check. */ var vTmp = ipt_pnm.currentText ; // model.getValue("/root/main/info/patinfo/pnm"); if( vTmp == "" ){ messageBox("¼º¸íÀ» ", "C001"); model.setFocus("ipt_pnm"); return false; } /** * ¿Ü±¹ÀÎÀÏ °æ¿ì º°µµÀÇ ±¸ºÐ ¾øÀÌ ÁֹιøÈ£ µÞ¹øÈ£°¡ ³²/¿©, 5/6À¸·Î ó¸®. */ vTmp = ipt_rgstno1.currentText ;//model.getValue("/root/main/info/patinfo/rgstno1"); if( vTmp == "" ){ messageBox("ÁֹιøÈ£¸¦ ", "C001"); model.setFous("ipt_rgstno1"); return false; } vTmp = ipt_rgstno2.currentText ;// model.getValue("/root/main/info/patinfo/rgstno2"); if( vTmp == "" ){ messageBox("ÁֹιøÈ£¸¦ ", "C001"); model.setFocus("ipt_rgstno2"); return false; } /*ÁֹιøÈ£ À¯È¿ üũ if( fCheckRgstNo() == false){ return false; } */ return true; } else { return true; } } /** ========================================================================================================== * fCheckRgstNo @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ÁֹιøÈ£ À¯È¿¿©ºÎ check @param : ==========================================================================================================================*/ function fCheckRgstNo(){ var vTmp = ipt_rgstno1.currentText + ipt_rgstno2.currentText ; if( isResidentNo(vTmp) == false ){ if( messageBox("À¯È¿ÇÏÁö ¾ÊÀº ÁֹιøÈ£ ÀÔ´Ï´Ù. ", "Q003") == 6 ) { return true; } model.setFocus("ipt_rgstno1"); return false; } if( isResidentNo(vTmp) == true && vTmp.substr(7, 6)=='000000'){ if( messageBox("¿Ü±¹ÀÎ ÀÔ´Ï´Ù. ", "Q003") == 6 ) { return true; } model.setFocus("ipt_rgstno1"); return false; } return true ; } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ÁֹιøÈ£·Î »ý³â¿ùÀÏ/¼ºº°/³ªÀÌ ±âº» setting @param : * ==========================================================================================================*/ function fSetBrthDD(){ //if( ipt_brthdd.value != "" ) return ; var vrgstno1 = ipt_rgstno1.currentText; var vrgstno2 = ipt_rgstno2.currentText; var vSex = vrgstno2.substr( 0, 1) ; var vBrthdd = ""; if(( vSex == 3 ) || (vSex == 4)){ vBrthdd = "20" + vrgstno1; }else{ vBrthdd = "19" + vrgstno1; } ipt_brthdd.value = vBrthdd; opt_sex.value = getGender(vrgstno1+ vrgstno2); opt_age.value = getFullAge(vrgstno1+ vrgstno2); } function isResidentNo(pResidnetNo) { if(isNaN(pResidnetNo)) return false; if(pResidnetNo.length != 13) return false; var c = pResidnetNo.substr(6,1); if(c == '5' || c == '6') return true; var c2 = pResidnetNo.substr(7,6); if(c2 == '000000') return true; last = pResidnetNo.substr(12,1); regNo = new Array(12); regNo[12] = 0; for(var i = 0; i < (regNo.length - 1); i++) { regNo[i] = eval(pResidnetNo.substr(i, 1)) * ((i % 8) + 2); } for(var i = 0; i < (regNo.length - 1); i++) { regNo[12] += regNo[i]; } var result = ((11 - (regNo[12] % 11)) % 10); if(result == eval(last)) { return true; } else { return false; } } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ¼öÁøÀÚ ÀÎÀû»çÇ׸¸ Á¶È¸, ¿Ü±¹ÀÎÀÏ °æ¿ì º°µµÀÇ ±¸ºÐ ¾øÀÌ ÁֹιøÈ£ µÞ¹øÈ£°¡ ³²/¿©, 5/6À¸·Î ó¸®. @param : * Á¶È¸Á¶°Ç : vMode (0 -pnm:ȯÀÚ¸í, 1-rgstno: ÁֹιøÈ£, 2-pid:µî·Ï¹øÈ£, 3-hpid:°ÇÁøÀÓ½ÃȯÀÚ¹øÈ£) * vPidXPath : pid node * vPnmXPath : pnm node * ==========================================================================================================*/ function fGetPatInfo(vMode, vSrcNode){ if(vSrcNode == "" || vSrcNode == null) vSrcNode = "/root/send"; var vCond = ""; var vChoiFlag = ""; vChoiFlag = model.getValue("/root/main/info/rsrvacptinfo/item/choiflag"); switch(vMode){ case 0 : vCond = "pnm"; break; case 1 : vCond = "rgstno"; if(fCheckRgstNo() == false){ ipt_rgstno1.value = ""; ipt_rgstno2.value = ""; return false; } break; case 2 : vCond = "pid"; break; default : vCond = "hid"; break; } model.removeNodeSet("/root/send/save"); fCheckNodeExist(vSrcNode + "/save" , true); fCheckNodeExist(vSrcNode + "/srchcond" , true); fCheckNodeExist(vSrcNode + "/srchinstcd" , true); fCheckNodeExist(vSrcNode + "/srchhealexampid" , true); fCheckNodeExist(vSrcNode + "/srchrgstno1" , true); fCheckNodeExist(vSrcNode + "/srchrgstno2" , true); fCheckNodeExist(vSrcNode + "/srchpid" , true); fCheckNodeExist(vSrcNode + "/srchpnm" , true); model.setValue(vSrcNode + "/srchcond" , vCond); model.setValue(vSrcNode + "/srchinstcd" , getUserInfo("dutplceinstcd")); if(vCond == "pnm"){ model.setValue(vSrcNode + "/srchpnm" , ipt_pnm.currentText); }else if(vCond == "pid"){ model.setValue(vSrcNode + "/srchpid" , ipt_pid.currentText); }else if(vCond == "rgstno"){ model.setValue(vSrcNode + "/srchrgstno1" , ipt_rgstno1.currentText); model.setValue(vSrcNode + "/srchrgstno2" , ipt_rgstno2.currentText); }else{ model.setValue(vSrcNode + "/srchhealexampid" , model.getValue("/root/main/info/patinfo/item/healexampid")); } fCheckNodeExist("/root/temp/patinfo/item", true); model.resetInstanceNode("/root/temp/patinfo/item"); submit("TRAHA04011", false); //node clearÇö»ó¶§¹®ÀÓ... var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid"); if(tmpnode != null){ model.copyNode("/root/main/info/patinfo/item", "/root/temp/patinfo/item"); var detladdr2 = model.getValue("/root/temp/patinfo/item/detladdr2"); //°ø´Ü°ÇÁøÀÇ °æ¿ì ¹ß¼ÛÁÖ¼Ò°¡ ¾ø´Ù¸é ±âÁ¸ ÁÖ¼Ò°ªÀ» ¹ß¼ÛÁÖ¼Ò¿¡ ³Ö´Â´Ù .2009-07-18 ½É½Â¿í if(detladdr2 == '' && model.getValue("/root/send/srchhealexamdetlflag") == 'G01'){ model.setValue("/root/main/info/patinfo/item/zipcd21" , model.getValue("/root/temp/patinfo/item/zipcd11")); model.setValue("/root/main/info/patinfo/item/zipcd22" , model.getValue("/root/temp/patinfo/item/zipcd12")); model.setValue("/root/main/info/patinfo/item/zipcdseq2" , model.getValue("/root/temp/patinfo/item/zipcdseq1")); model.setValue("/root/main/info/patinfo/item/addr2" , model.getValue("/root/temp/patinfo/item/addr1")); model.setValue("/root/main/info/patinfo/item/detladdr2" , model.getValue("/root/temp/patinfo/item/detladdr1")); } model.makeValue("/root/main/info/rsrvacptinfo/item/choiflag", vChoiFlag); }else{ model.makeValue("/root/main/info/rsrvacptinfo/item/choiflag", vChoiFlag); } model.refresh(); } function fGetPatInfo2(vMode ){ var vCond = ""; switch( vMode ){ case 0: vCond = "pnm"; break; case 1: vCond = "rgstno"; if( fCheckRgstNo() == false ){ ipt_rgstno1.value = ""; ipt_rgstno2.value = ""; return ; } break; case 2: vCond = "pid"; break; default : vCond = "hid"; break; } model.removeNodeSet("/root/send/save"); model.makeNode("/root/send/save"); fCheckNodeExist("/root/send/srchcond" , true ); fCheckNodeExist("/root/send/srchpnm" , true ); fCheckNodeExist("/root/send/srchpid" , true ); fCheckNodeExist("/root/send/srchrgstno1" , true ); fCheckNodeExist("/root/send/srchrgstno2" , true ); fCheckNodeExist("/root/send/srchhealexampid", true ); fCheckNodeExist("/root/send/srchinstcd" , true ); model.setValue("/root/send/srchcond" , vCond); if( vCond == "pnm") { model.setValue("/root/send/srchpnm" , ipt_pnm.currentText ); } else if( vCond == "pid") { model.setValue("/root/send/srchpid" , model.getValue("/root/send/healexampid")); } else if( vCond == "rgstno") { model.setValue("/root/send/srchrgstno1" , ipt_rgstno1.currentText ); model.setValue("/root/send/srchrgstno2" , ipt_rgstno2.currentText ); } else { model.setValue("/root/send/srchhealexampid" , model.getValue("/root/main/info/patinfo/item/healexampid")); } model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); fCheckNodeExist("/root/temp/patinfo/item", true); model.resetInstanceNode("/root/temp/patinfo/item"); submit("TRAHA04011") ; //node clearÇö»ó¶§¹®ÀÓ... var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid"); if( tmpnode != null ){ model.copyNode("/root/main/info/patinfo/item", "/root/temp/patinfo/item"); } else { //model.resetInstanceNode("/root/main/info/patinfo/item"); } model.refresh(); } function setPkgInfo(){ } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-09-30 @desc : ¼öÁøÀÚ ÀÎÀû»çÇ׸¸ Á¶È¸, ¿Ü±¹ÀÎÀÏ °æ¿ì º°µµÀÇ ±¸ºÐ ¾øÀÌ ÁֹιøÈ£ µÞ¹øÈ£°¡ ³²/¿©, 5/6À¸·Î ó¸®. @param : * Á¶È¸Á¶°Ç: vMode (0 -pnm:ȯÀÚ¸í, 1-rgstno: ÁֹιøÈ£, 2-pid:µî·Ï¹øÈ£, 3-hpid:°ÇÁøÀÓ½ÃȯÀÚ¹øÈ£) * vCond1 : °Ë»ö¾î1 * vCond2 : °Ë»ö¾î2 (ÁֹιøÈ£Àϰæ¿ì ...) * vDestXPath : ´ë»ó ³ëµå * ==========================================================================================================*/ function ahafGetPatInfo(vMode, vCond1, vCond2, vDestXPath){ var vCond = ""; switch( vMode ){ case 0: vCond = "pnm"; break; case 1: vCond = "rgstno"; if(fCheckRgstNo() == false ){ ipt_rgstno1.value = ""; ipt_rgstno2.value = ""; return; } break; case 2: vCond = "pid"; break; default : vCond = "hid"; break; } fCheckNodeExist(vDestXPath , true ); fCheckNodeExist("/root/send/srchcond" , true ); fCheckNodeExist("/root/send/srchpnm" , true ); fCheckNodeExist("/root/send/srchpid" , true ); fCheckNodeExist("/root/send/srchrgstno1" , true ); fCheckNodeExist("/root/send/srchrgstno2" , true ); fCheckNodeExist("/root/send/srchhealexampid", true ); fCheckNodeExist("/root/send/srchinstcd" , true ); model.setValue("/root/send/srchcond" , vCond); if( vCond == "pnm"){ model.setValue("/root/send/srchpnm" , vCond1); }else if( vCond == "pid"){ model.setValue("/root/send/srchpid" , vCond1); }else if( vCond == "rgstno"){ model.setValue("/root/send/srchrgstno1" , vCond1 ); model.setValue("/root/send/srchrgstno2" , vCond2 ); }else{ model.setValue("/root/send/srchhealexampid" , vCond1 ); } model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); fCheckNodeExist("/root/temp/patinfo/item", true); model.resetInstanceNode("/root/temp/patinfo/item"); var ret = submit("TRAHA04011"); if(ret == false) return false; //node clearÇö»ó¶§¹®ÀÓ... var tmpnode = model.instance1.selectSingleNode("/root/temp/patinfo/item/pid"); if(tmpnode != null){ model.copyNode(vDestXPath, "/root/temp/patinfo/item"); return true ; } return false; } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ¿¹¾à/Á¢¼öÁ¤º¸¸¦ ÀúÀå @param : * Mode : °øÅëÄÚµåA0107ÂüÁ¶ **A ¿¹¾à **B ¿¹¾àº¸·ù **C ¿¹¾àÈ®ÀÎ **D ¿¹¾àÃë¼Ò **E Á¢¼ö **F Á¢¼öÃë¼Ò **G °á°ú **H ÆÇÁ¤ * ==========================================================================================================*/ function fSaveRsrvAcpt(vMode,vFrom){ } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : °ÇÁøÀÚº° °ÇÁøÀÌ·ÂÁ¶È¸ @param : * vPid : µî·Ï¹øÈ£ * ==========================================================================================================*/ function ahafGetHistList(vPid){ //var node = instance1.selectSingleNode("/root/main/info/histlst/item"); model.removeNodeset("/root/main/info/histlst/item"); if( vPid == "" ) return ; var vhf = ""; if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="") { vhf = fGetHealExamFlag(); } else { vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"); } model.setValue("/root/send/srchhealexamflag" , vhf); model.setValue("/root/send/srchhealexamdetlflag" , cmb_healexamdetlflag.value ); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); model.setValue("/root/send/srchpid" , vPid); submit("TRAHA00106"); } /** ========================================================================================================== @author : ±èÈ£ÀÍ @version : 2007-11-15 @desc : °ËÁøÆäŰÁö »ó¼¼Á¶È¸(¿¹¾à/Á¢¼ö) @param : * vPkgCd : ÆÐŰÁö ÄÚµå * ==========================================================================================================*/ function ahafGetPkgDetlList(vPkgCd){ if( vPkgCd == "" ){ messageBox("¼±ÅÃµÈ ÆÐŰÁö°¡ ¾ø½À´Ï´Ù.", "E999"); return ; } model.makeValue("/root/send/PkgCd" , vPkgCd); model.makeValue("/root/send/cmpycd" , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd")); model.makeValue("/root/send/conseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conseq")); model.makeValue("/root/send/conhistseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq")); submit("TRAHA00113"); } function fSetInstance(svalue){ model.makeValue("/root/tmp/reqacpt/divflag", svalue); model.makeValue("/root/tmp/reqadd/divflag", svalue); model.makeValue("/root/tmp/reqpkg/divflag", svalue); model.makeValue("/root/tmp/reqacptold/divflag",svalue); model.makeValue("/root/tmp/reqaddold/divflag", svalue); model.makeValue("/root/tmp/opatvo/divflag", svalue); model.makeValue("/root/tmp/getvo/divflag", svalue); model.makeValue("/root/tmp/getsflag/divflag", svalue); model.makeValue("/root/tmp/reqords/divflag", svalue); model.makeValue("/root/tmp/retvo/divflag", svalue); model.makeValue("/root/tmp/retstd/divflag", svalue); model.makeValue("/root/tmp/reqpat/divflag", svalue); } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : °ÇÁøÀÚº° °ÇÁøÀÌ·ÂÁ¶È¸ @param : * vPid : µî·Ï¹øÈ£ * ==========================================================================================================*/ function ahafGetHistList2(vPid, vHealExamDetlFlag , vStatFlag){ //var node = instance1.selectSingleNode("/root/main/info/histlst/item"); model.removeNodeset("/root/main/info/histlst/item"); if( vPid == "" ) return ; model.setValue("/root/send/srchhealexamflag" , vHealExamDetlFlag.substr(0,1)); model.setValue("/root/send/srchhealexamdetlflag" , vHealExamDetlFlag ); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); model.setValue("/root/send/srchpid" , vPid); model.setValue("/root/send/srchstatflag" , vStatFlag); submit("TRAHA04016"); } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ÆÐŰÁö »ó¼¼³»¿ªÁ¶È¸ @param : * sPkgcd : ÆÐŰÁöÄÚµå * sPkgnm : ÆÐŰÁö¸í * sSex : °ÇÁøÀÚ ¼ºº° * sCmpycd : ´ÜüÄÚµå * iConseq : °è¾à¹øÈ£ * iConHistseq : °è¾àÀ̷¹øÈ£ * ==========================================================================================================*/ function fGetConAddList(sPkgcd, sPkgnm, sSex, sCmpycd, iConseq,iConHistseq ){ model.removeNodeset("/root/temp/pkgtestcdlst"); if( ( (sCmpycd == "") || ( iConseq == "" ) || ( iConHistseq == "" )|| ( iConseq == "0" ) || ( iConHistseq == "0" )) && ( (sPkgcd == "") ||(sPkgnm == "")) ) return ; model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd") ); model.setValue("/root/send/srchpkgcd" , sPkgcd); var vhf = ""; if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="") { vhf = fGetHealExamFlag(); } else { vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"); } model.setValue("/root/send/srchhealexamflag", vhf); model.setValue("/root/send/srchcmpycd" , sCmpycd); model.setValue("/root/send/srchconseq" , iConseq ); model.makeNode("/root/send/srchconhistseq" ); model.setValue("/root/send/srchconhistseq" , iConHistseq ); model.setValue("/root/send/srchsex" , sSex ); model.makeValue("/root/send/srchage" , ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"),model.getValue("/root/main/info/patinfo/item/rgstno2"))); submit("TRAHA00107",false); copyNodeListType("/root/temp2","/root/main/info/rsrvacptinfo/addlst"); //copyNodeListType("/root/temp2","/root/main/info/rsrvacptinfo/addlst[testflag='A']"); var node = instance1.selectSingleNode("/root/temp/pkgtestcdlst/addlst"); if( node != null ){ var i = grd_addlst.rows; model.removeNodeset("/root/main/info/rsrvacptinfo/addlst"); copyNodeListType("/root/main/info/rsrvacptinfo", "/root/temp/pkgtestcdlst/addlst", "after"); if(model.getValue("/root/temp2/addlst/testcd") != ""){ copyNodesetType("/root/main/info/rsrvacptinfo/addlst" , "/root/temp2/addlst","after"); } var cnt = getNodesetCount("/root/temp/pkgtestcdlst") + i; //model.refresh(); for( ; i < cnt ; i++) { grd_addlst.addStatus(i,"insert"); } }else{ model.removeNodeset("/root/main/info/rsrvacptinfo/addlst"); if(model.getValue("/root/temp2/addlst/testcd") != ""){ copyNodeListType("/root/main/info/rsrvacptinfo" , "/root/temp2/addlst","after"); } } } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ¿¹¾àÁ¢¼ö »ó¼¼³»¿ªÁ¶È¸ @param : * vMode : ¸®½ºÆ® ±¸ºÐ * ==========================================================================================================*/ function ahafGetRsrvAcptDetl(vMode){ fInitInfo(); // ¿À¸¥ÂÊ Á¤º¸µé ÃʱâÈ­ ¹× ±âº» °ª ¼ÂÆÃ var vXpath = ""; var idx = -1; switch (vMode) { case 1: vXpath = "/root/main/list/rsrvlst["; idx = grd_rsrvlst.row; break; case 2: vXpath = "/root/main/list/rsrvlst["; idx = grd_rsrventlst.row; break; case 3: vXpath = "/root/main/list/acptlst["; idx = grd_acptlst.row; break; case 4: vXpath = "/root/main/list/cncllst["; idx = grd_cncllst.row; break; case 5: //ÀϹݰÇÁø 2Â÷´ë»óÀÚ ¸®½ºÆ® vXpath = "/root/main/list/sndlst["; idx = grd_sndlst.row; break; case 6 : //°ÇÁøÀÌ·Â vXpath = "/root/main/info/histlst/item["; // idx = grd_sndlst.row; idx = grd_hist.row; break; default: messageBox("ÀÎÀÚ°¡ À߸øµÇ¾ú½À´Ï´Ù", "E999"); return ; break; } if( idx < 1) { messageBox("°ÇÁø³»¿ªÀ» ", "C002"); return ; } var vRsrvdd = model.getValue(vXpath + idx + "]/rsrvdd"); var vRsrvno = model.getValue(vXpath + idx + "]/rsrvno"); /* *°¡¿¹¾à Àϰæ¿ì ȯÀÚÁ¤º¸ patmÀÇ Á¤º¸¸¸À¸·Î Á¶È¸ * pid°¡ 0ÀÏ °æ¿ì ptbs¿¡ Á¤º¸°¡ ¾øÀ» ¼ö ÀÖÀ½ */ var vStatFlag = model.getValue(vXpath + idx + "]/statflag"); var vPid = model.getValue(vXpath + idx + "]/pid"); ahafGetRsrvAcpDetltInfo(vRsrvdd, vRsrvno , vStatFlag , vPid);// ¹Ù·Î ¾Æ·¡ ÇÔ¼ö } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ¿¹¾à/Á¢¼ö »ó¼¼³»¿ª Á¶È¸ @param : * vRsrvdd : ¿¹¾àµî·ÏÀÏÀÚ * vRsrvno : ¿¹¾à¹øÈ£ @return : °ÇÁø»ó¼¼³»¿ª * ==========================================================================================================*/ function ahafGetRsrvAcpDetltInfo( vRsrvdd, vRsrvno , vStatFlag , vPid){ if( (vRsrvdd == "") || (vRsrvno == "") ) return ; fCheckNodeExist("/root/send/srchhealexamflag" , true ); fCheckNodeExist("/root/send/srchrsrvdd" , true ); fCheckNodeExist("/root/send/srchrsrvno" , true ); fCheckNodeExist("/root/send/srchinstcd" , true ); fCheckNodeExist("/root/send/scrnnm" , true ); var vhf = ""; if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="") { vhf = fGetHealExamFlag(); } else { vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"); } model.setValue("/root/send/srchhealexamflag", vhf); model.setValue("/root/send/srchrsrvdd" , vRsrvdd); model.setValue("/root/send/srchrsrvno" , vRsrvno); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd") ); model.setValue("/root/send/scrnnm" , vStatFlag == "A"&& vPid== "0" ? "internet":"" ); // model.makeValue("/root/send/srchage" , ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"),model.getValue("/root/main/info/patinfo/item/rgstno2")) ); model.resetInstanceNode("/root/main/info/patinfo/item"); model.resetInstanceNode("/root/main/info/rsrvacptinfo/item"); model.resetInstanceNode("/root/temp/info/rsrvacptinfo"); model.resetInstanceNode("/root/temp/info/patinfo"); //TRAHA04012 -> Á¢¼öÁ¤º¸/ ¸Þ¸ð/ ÃÖ±Ù °ÇÁø ³»¿ª/ °³ÀÎÁ¤º¸(Á¢¼öÁ¤º¸¶û °ãÄ¡Áö ¾Ê³ª »ý°¢µÊ)// °Ë»çÄÚµå ¸®½ºÆ®// Ãß°¡°Ë»ç³»¿ª? // ÅÂ±× ³Ñ¹ö// ¼ö³³ ³»¿ª // »óÅ °ªÀ» ³Ñ°Ü¼­ Á¶È¸¸¦ ÇØ¾ßÇÒ°Í¿Í ÇÏÁö ¾Ê¾Æµµ µÉ°ÍÀ» ±¸ºÐÇϸé ÁÁÀ»²¨ °°À½. if( submit("TRAHA04012",false) != true ) { return ; } var i = 0; //node clearÇö»ó¶§¹®ÀÓ.. // °ÇÁøÁ¤º¸ var tmpnode = instance1.selectSingleNode("/root/temp/info/rsrvacptinfo"); if( tmpnode != null){ model.copyNode("/root/main/info/rsrvacptinfo/item", "/root/temp/info/rsrvacptinfo"); } //Ãß°¡°Ë»ç³»¿ª model.removeNodeset("/root/main/info/rsrvacptinfo/addlst"); var nodelst = instance1.selectNodes("/root/temp/info/addlst"); // 2008-06-11 À̼ºÀÎ //.refresh() ÀÇ Á¸Àç ÀÌÀ¯¸¦ ¸ð¸£±â ¶§¹®¿¡ ÀÏ´Ü ÁÖ¼®Ã³¸® -> Å×½ºÆ® ÇØº»¹Ù À߸øµÈ°Å ¾ø´Â°Å °°À½ // model.refresh(); if( nodelst.length > 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } //1Â÷ÆÇÁ¤³»¿ª // model.removeNodeset("/root/main/info/judgone"); var nodelst = getNodesetCount("/root/temp/info/judgone"); copyNodesetType("root/main/info/judgone","root/temp/info/judgone", "replace"); /* for (i = 0; i <= nodelst; i++){ model.setValue("/root/main/info/judgone/judgcd", model.getValue("/root/temp/info/judgone["+i+"]/judgcd")); model.setValue("/root/main/info/judgone/judgdetlcd", model.getValue("/root/temp/info/judgone["+i+"]/judgdetlcd")); model.setValue("/root/main/info/judgone/etcdetlnm", model.getValue("/root/temp/info/judgone["+i+"]/etcdetlnm")); model.setValue("/root/main/info/judgone/dulppkgcd", model.getValue("/root/temp/info/judgone["+i+"]/dulppkgcd")); } */ //Ãß°¡ÆÐŰÁö³»¿ª nodelst = instance1.selectNodes("/root/temp/info/pkglst"); model.removeNodeset("/root/main/info/rsrvacptinfo/pkglst"); // 2008-06-11 À̼ºÀÎ //.refresh() ÀÇ Á¸Àç ÀÌÀ¯¸¦ ¸ð¸£±â ¶§¹®¿¡ ÀÏ´Ü ÁÖ¼®Ã³¸® -> Å×½ºÆ® ÇØº»¹Ù À߸øµÈ°Å ¾ø´Â°Å °°À½ //model.refresh(); if( nodelst.length > 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } copyNodesetType("root/send/selpkgexam","root/main/info/rsrvacptinfo/addlst","replace");//ÀϹݰËÁø Ãß°¡°Ë»ç // ű×Á¤º¸ var tagNode = instance1.selectSingleNode("/root/temp/info/taginfo"); btn_tag.attribute("text") = "ű×Áö±Þ"; if(tagNode != null) { copyNodesetType("/root/main/info/taginfo","/root/temp/info/taginfo","replace"); var suppStat = model.getValue("/root/main/info/taginfo/suppstat"); if("0" == suppStat) { btn_tag.attribute("text") = "ű׹ݳ³"; ipt_tagno.disabled = true; } } //ȯÀÚÁ¤º¸ tmpnode = instance1.selectSingleNode("/root/temp/info/patinfo"); if( tmpnode != null){ model.copyNode("/root/main/info/patinfo/item", "/root/temp/info/patinfo"); } //ÇÒÀÎ¾× Á¤º¸ if(model.getValue("/root/main/info/rsrvacptinfo/item/disccd")!="-"){ var nname = model.getValue("/root/main/info/rsrvacptinfo/item/disccd"); var ncount= getNodesetCount("/root/init/baseinfo/pamcdlst/disccdlst"); for (var i=0;i 0){ grd_pkglst.isReadOnly(i, grd_pkglst.colRef("sel")) = true; model.setValue("/root/main/pkgaddlst/item[" + i + "]/sel", "Y"); } } */ model.refresh(); } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ¿¹¾à/Á¢¼ö »ó¼¼³»¿ª Á¶È¸ @param : * vRsrvdd : ¿¹¾àµî·ÏÀÏÀÚ * vRsrvno : ¿¹¾à¹øÈ£ @return : °ÇÁø»ó¼¼³»¿ª * ==========================================================================================================*/ function ahafGetGnrlRsrvAcpDetltInfo( vRsrvdd, vRsrvno , vStatFlag , vPid){ if( (vRsrvdd == "") || (vRsrvno == "") ) return ; fCheckNodeExist("/root/send/srchhealexamflag" , true ); fCheckNodeExist("/root/send/srchrsrvdd" , true ); fCheckNodeExist("/root/send/srchrsrvno" , true ); fCheckNodeExist("/root/send/srchinstcd" , true ); fCheckNodeExist("/root/send/scrnnm" , true ); var vhf = ""; if (model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag")=="") { vhf = fGetHealExamFlag(); } else { vhf = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"); } model.setValue("/root/send/srchhealexamflag", vhf); model.setValue("/root/send/srchrsrvdd" , vRsrvdd); model.setValue("/root/send/srchrsrvno" , vRsrvno); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd") ); model.setValue("/root/send/scrnnm" , vStatFlag == "A"&& vPid== "0" ? "internet":"" ); // model.makeValue("/root/send/srchage" , ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1"),model.getValue("/root/main/info/patinfo/item/rgstno2")) ); model.resetInstanceNode("/root/main/info/patinfo/item"); model.resetInstanceNode("/root/main/info/rsrvacptinfo/item"); model.resetInstanceNode("/root/temp/info/rsrvacptinfo"); model.resetInstanceNode("/root/temp/info/patinfo"); //TRAHA04012 -> Á¢¼öÁ¤º¸/ ¸Þ¸ð/ ÃÖ±Ù °ÇÁø ³»¿ª/ °³ÀÎÁ¤º¸(Á¢¼öÁ¤º¸¶û °ãÄ¡Áö ¾Ê³ª »ý°¢µÊ)// °Ë»çÄÚµå ¸®½ºÆ®// Ãß°¡°Ë»ç³»¿ª? // ÅÂ±× ³Ñ¹ö// ¼ö³³ ³»¿ª // »óÅ °ªÀ» ³Ñ°Ü¼­ Á¶È¸¸¦ ÇØ¾ßÇÒ°Í¿Í ÇÏÁö ¾Ê¾Æµµ µÉ°ÍÀ» ±¸ºÐÇϸé ÁÁÀ»²¨ °°À½. if( submit("TRAHA04033",false) != true ) { return ; } var i = 0; //node clearÇö»ó¶§¹®ÀÓ.. // °ÇÁøÁ¤º¸ var tmpnode = instance1.selectSingleNode("/root/temp/info/rsrvacptinfo"); if( tmpnode != null){ model.copyNode("/root/main/info/rsrvacptinfo/item", "/root/temp/info/rsrvacptinfo"); } //Ãß°¡°Ë»ç³»¿ª model.removeNodeset("/root/main/info/rsrvacptinfo/addlst"); var nodelst = instance1.selectNodes("/root/temp/info/addlst"); // 2008-06-11 À̼ºÀÎ //.refresh() ÀÇ Á¸Àç ÀÌÀ¯¸¦ ¸ð¸£±â ¶§¹®¿¡ ÀÏ´Ü ÁÖ¼®Ã³¸® -> Å×½ºÆ® ÇØº»¹Ù À߸øµÈ°Å ¾ø´Â°Å °°À½ // model.refresh(); if( nodelst.length > 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } //1Â÷ÆÇÁ¤³»¿ª // model.removeNodeset("/root/main/info/judgone"); var nodelst = getNodesetCount("/root/temp/info/judgone"); copyNodesetType("root/main/info/judgone","root/temp/info/judgone", "replace"); /* for (i = 0; i <= nodelst; i++){ model.setValue("/root/main/info/judgone/judgcd", model.getValue("/root/temp/info/judgone["+i+"]/judgcd")); model.setValue("/root/main/info/judgone/judgdetlcd", model.getValue("/root/temp/info/judgone["+i+"]/judgdetlcd")); model.setValue("/root/main/info/judgone/etcdetlnm", model.getValue("/root/temp/info/judgone["+i+"]/etcdetlnm")); model.setValue("/root/main/info/judgone/dulppkgcd", model.getValue("/root/temp/info/judgone["+i+"]/dulppkgcd")); } */ //Ãß°¡ÆÐŰÁö³»¿ª nodelst = instance1.selectNodes("/root/temp/info/pkglst"); model.removeNodeset("/root/main/info/rsrvacptinfo/pkglst"); // 2008-06-11 À̼ºÀÎ //.refresh() ÀÇ Á¸Àç ÀÌÀ¯¸¦ ¸ð¸£±â ¶§¹®¿¡ ÀÏ´Ü ÁÖ¼®Ã³¸® -> Å×½ºÆ® ÇØº»¹Ù À߸øµÈ°Å ¾ø´Â°Å °°À½ //model.refresh(); if( nodelst.length > 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } copyNodesetType("root/send/selpkgexam","root/main/info/rsrvacptinfo/addlst","replace");//ÀϹݰËÁø Ãß°¡°Ë»ç // ű×Á¤º¸ var tagNode = instance1.selectSingleNode("/root/temp/info/taginfo"); btn_tag.attribute("text") = "ű×Áö±Þ"; if(tagNode != null) { copyNodesetType("/root/main/info/taginfo","/root/temp/info/taginfo","replace"); var suppStat = model.getValue("/root/main/info/taginfo/suppstat"); if("0" == suppStat) { btn_tag.attribute("text") = "ű׹ݳ³"; ipt_tagno.disabled = true; } } // °á°ú»ó´ã ¿¹¾à¸®½ºÆ® model.resetInstanceNode("/root/main/info/rsltcnstinfo/choicnst"); copyNodesetType("/root/main/info/rsltcnstinfo/cnstlst/cnst" , "/root/temp/info/cnst" , "replace"); if(model.getValue("/root/main/info/rsltcnstinfo/choicnst/outexamyn") == "") { model.makeValue("/root/main/info/rsltcnstinfo/choicnst/outexamyn","N"); } //ȯÀÚÁ¤º¸ tmpnode = instance1.selectSingleNode("/root/temp/info/patinfo"); if( tmpnode != null){ model.copyNode("/root/main/info/patinfo/item", "/root/temp/info/patinfo"); } //ÇÒÀÎ¾× Á¤º¸ if(model.getValue("/root/main/info/rsrvacptinfo/item/disccd")!="-"){ var nname = model.getValue("/root/main/info/rsrvacptinfo/item/disccd"); var ncount= getNodesetCount("/root/init/baseinfo/pamcdlst/disccdlst"); for (var i=0;i 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } nodelst = instance1.selectNodes("/root/temp/info/pkglst"); if( nodelst.length > 0 ){ for (i = 0; i < nodelst.length; i++){ model.duplicate("/root/main/info/rsrvacptinfo", nodelst.item(i)); } } /* tmpnode = instance1.selectSingleNode("/root/temp/info/patinfo"); if( tmpnode != null){ model.copyNode("/root/main/info/patinfo/item", "/root/temp/info/patinfo"); } */ //È­¸é»ó´ÜÁ¤º¸ ¼³Á¤ var sOrdDD = model.getValue("/root/main/info/rsrvacptinfo/item/orddd" ); var iCretno = model.getValue("/root/main/info/rsrvacptinfo/item/cretno" ); var sPid = model.getValue("/root/main/info/rsrvacptinfo/item/pid" ); //¿Ü·¡µî·Ï³»¿ªÀÌ ÀÖ¾î¾ß Á¶È¸ µÊ... if( (sOrdDD != "" ) && (sPid != "") && (iCretno != "" ) && (iCretno != "0" ) ){ ahafSetScreenTopPatInfo( sPid , sOrdDD , iCretno ); } fSetBtnStat(); model.refresh(); } /** ========================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-30 @desc : ÁÖ¼Ò °Ë»ö @param : @return : * ==========================================================================================================*/ function fSetAddr(vCond, vDestXPath) { fCheckNodeExist("/root/temp/addr/zipcd1" , true); fCheckNodeExist("/root/temp/addr/zipcd2" , true); fCheckNodeExist("/root/temp/addr/zipcdseq" , true); fCheckNodeExist("/root/temp/addr/addr" , true); zbcfOpenZipCodeList("combination", "", "/root/temp/addr/zipcd1", "/root/temp/addr/zipcd2", "/root/temp/addr/zipcdseq", "/root/temp/addr/addr"); var node =model.getValue("/root/temp/addr/zipcd1"); if( node != "" ){ model.setValue( vDestXPath + "/zipcd" + vCond + "1" , model.getValue("/root/temp/addr/zipcd1") ); model.setValue( vDestXPath + "/zipcd" + vCond + "2" , model.getValue("/root/temp/addr/zipcd2") ); model.setValue( vDestXPath + "/zipcdseq" + vCond , model.getValue("/root/temp/addr/zipcdseq") ); model.setValue( vDestXPath + "/addr" + vCond , model.getValue("/root/temp/addr/addr") ); model.setFocus("ipt_detladdr"); model.refresh(); } } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-06-30 @desc : ÁÖ¼Ò °Ë»ö @param : * vCond : ÁÖ¼Ò1,2±¸ºÐ.(¹ß¼ÛÁÖ¼Ò°ü·Ã) * vDestXPath : ¸ñÀû³ëµå(ÁÖ¼Ò°¡ ÀԷµÉ) * vSrchCond : °Ë»öÁ¶°Ç ( ÁÖ¼Ò(¡®address¡¯), µ¿¸í/¾ÆÆÄÆ®¸í/°Ç¹°¸í(¡®combination¡¯), ¿ìÆí¹øÈ£(¡®zipcode¡¯) ) * vSrchCondNm : Á¶°Ç¸í @return : ÁÖ¼Ò»ó¼¼³»¿ª *====================================================================================================================*/ function ahafSetAddr(vCond, vDestXPath, vSrchCond, vSrchCondNm) { model.resetInstanceNode("/root/temp/address"); model.makeNode("/root/temp/address/zipcd1"); model.makeNode("/root/temp/address/zipcd2"); model.makeNode("/root/temp/address/zipcdseq"); model.makeNode("/root/temp/address/addr"); model.makeNode("/root/temp/address/detladdr"); model.makeNode("/root/temp/address/builno"); zbcfOpenZipCodeList(vSrchCond , vSrchCondNm , "/root/temp/address/zipcd1" , "/root/temp/address/zipcd2" , "/root/temp/address/zipcdseq" , "/root/temp/address/addr" , "hangul" , "/root/temp/address/detladdr" , "/root/temp/address/builno"); var node = model.getValue("/root/temp/address/zipcd1"); if( node != "" ){ model.setValue( vDestXPath + "/zipcd" + vCond + "1" , model.getValue("/root/temp/address/zipcd1")); model.setValue( vDestXPath + "/zipcd" + vCond + "2" , model.getValue("/root/temp/address/zipcd2")); model.setValue( vDestXPath + "/zipcdseq" + vCond , model.getValue("/root/temp/address/zipcdseq")); model.setValue( vDestXPath + "/addr" + vCond , model.getValue("/root/temp/address/addr")); model.setValue( vDestXPath + "/detladdr" + vCond , model.getValue("/root/temp/address/detladdr")); model.setValue( vDestXPath + "/builno" + vCond , model.getValue("/root/temp/address/builno")); if( vCond == "1" ) vCond = ""; model.setFocus("ipt_detladdr" + vCond ); model.refresh(); } return "/root/temp/address"; } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-06-30 @desc : Calendar°ü·Ã draw °ø¿ë ÇÔ¼ö @param : @return : *====================================================================================================================*/ function initCalendar() { var curDate = getCurrentDate().toDate(); model.setValue("/root/temp/calendar/year", curDate.getDateFormat('YYYY')); model.setValue("/root/temp/calendar/month", curDate.getDateFormat('MM')); model.refresh(); setCalendar(curDate); } function setCalendar(dateObj) { // ±×¸®µå ÃʱâÈ­ model.removeNodeset("/root/temp/calendar/weeklist/list"); //grd_calendar.rebuild() dateObj.setDate(1); var startDay = dateObj.getDay(); var days = dateObj.getMonthDay(); var rows = Math.ceil( ( startDay + days ) / 7 ); for( var i = 0; i < rows; i++ ) grd_calendar.addRow(false); grd_calendar.rebuild(); var rowIndex = grd_calendar.fixedRows; var colIndex = startDay; for( var i = 1; i <= days; i++ ) { grd_calendar.valueMatrix(rowIndex, colIndex) = i; colIndex++; if( colIndex == 7 ) { colIndex = 0; rowIndex++; } } } function setCellColor(gridObj) { var calRow = gridObj.row ; var calCol = gridObj.col; var tmpCalCol; if( calCol < 7 ) tmpCalCol = calCol + 7; else tmpCalCol = calCol - 7; gridObj.rebuildStyle(); gridObj.cellStyle("background-color", calRow, calCol) = "#daa7d9"; gridObj.cellStyle("background-color", calRow, tmpCalCol) = "#daa7d9"; } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-06-30 @desc : Calendar ¼±ÅÃÇÑ ÀÏÀÚ ¾ò±â @param : * grdObj( calendar grid control ) @return : date (YYYYMMDD) *====================================================================================================================*/ function fGetCalendarDate(grdObj){ var cal_row = grdObj.row; var cal_col = grdObj.col; if( cal_col > 6) cal_col -= 7; var rsrvdd = ""; if( cal_row > 0 ){ var dd = model.getValue( grdObj.nodeset + "[" + cal_row + "]/" + grdObj.colAttribute( cal_col,"ref") ) ; if( dd.length < 2 ) { dd = "0" + dd; } rsrvdd = model.getValue("/root/temp/calendar/year") + model.getValue("/root/temp/calendar/month") + dd ; } return rsrvdd; } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-06-30 @desc : Calendar »õ·Î±×¸®±â @param : * vDateFg : Y-³âµµ, M-¿ù * vIncrease : Áõ°¨(+/-) @return : date (YYYYMMDD) *====================================================================================================================*/ function fHRefreshCalender(vDateFg, vIncrease){ if( (vDateFg != "Y" ) && (vDateFg != "M") ) { return ; } var iTerm = parseInt(vIncrease); var isMonth = model.getValue("/root/temp/calendar/month"); var isYear = model.getValue("/root/temp/calendar/year"); var isDate = (isYear+isMonth+1).toDate().getAddDate(iTerm,vDateFg); model.setValue("/root/temp/calendar/year", isDate.getDateFormat('YYYY')); model.setValue("/root/temp/calendar/month", isDate.getDateFormat('MM')); model.refresh(); setCalendar(isDate); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc : fExcelUpload ¿¢¼¿ÆÄÀÏÀ» ÇØ´ç ±×¸®µå·Î in @param : grid object *====================================================================================================================*/ function fExcelUpload(grdObj){ if( grdObj == null ){ messageBox("grdObj is null!", "E999"); return ; } var fileName = window.fileDialog("open", ",", false, "", "xls", "All Files (*.*)|*.*|Excel Files(*.xls)|*.xls"); grdObj.loadExcel(fileName, 1, true); var cnt = grdObj.rows; var i = 0; for( i = 1; i < cnt +1 ; i++) { grdObj.addStatus(i, "insert"); } grdObj.deleteRow(1); grdObj.refresh(); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc : ÁúȯÄÚµå ¼±Åà â open @param : grid object * SPAHB00200_PARAM1 : ÇöÀçÈ­¸éID * SPAHB00200_PARAM2 : ÁúȯÄÚµå * SPAHB00200_PARAM3 : Áúȯ¸í * SPAHB00200_PARAM4 : ´ë»ó nodeset count * SPAHB00200_PARAM5 : ´ë»ó nodeset *====================================================================================================================*/ function ahafGetSickCd(vOpenerID, vCondCd, vCondNm, vDestCnt, vDestXPath, vMappSickCd ){ clearParameter("SPAHB00200_PARAM1"); clearParameter("SPAHB00200_PARAM2"); clearParameter("SPAHB00200_PARAM3"); clearParameter("SPAHB00200_PARAM4"); clearParameter("SPAHB00200_PARAM5"); clearParameter("SPAHB00200_PARAM6"); setParameter ("SPAHB00200_PARAM1", vOpenerID); setParameter ("SPAHB00200_PARAM2", vCondCd); setParameter ("SPAHB00200_PARAM3", vCondNm); setParameter ("SPAHB00200_PARAM4", vDestCnt); setParameter ("SPAHB00200_PARAM5", vDestXPath); setParameter ("SPAHB00200_PARAM6", vMappSickCd); modal("SPAHB00200"); } /**================================================================================================================== @author : ¼Õ¹ü¼º @version : 2007-12-18 @desc : °Ë»çÄÚµå ¼±Åà â open @param : grid object * SPAHB00500_PARAM1 : ÇöÀçÈ­¸éID * SPAHB00500_PARAM2 : °Ë»çÄÚµå * SPAHB00500_PARAM3 : °Ë»ç¸í * SPAHB00500_PARAM4 : ´ë»ó nodeset count * SPAHB00500_PARAM5 : ´ë»ó nodeset *====================================================================================================================*/ function ahafGetTestCd(vOpenerID, vCondCd, vCondNm, vDestCnt, vDestXPath,vjudgexmpcd ){ clearParameter("SPAHB00600_PARAM1"); clearParameter("SPAHB00600_PARAM2"); clearParameter("SPAHB00600_PARAM3"); clearParameter("SPAHB00600_PARAM4"); clearParameter("SPAHB00600_PARAM5"); clearParameter("SPAHB00600_PARAM6"); clearParameter("SPAHB00600_PARAM7"); clearParameter("SPAHB00600_PARAM8"); setParameter ("SPAHB00600_PARAM1", vOpenerID); setParameter ("SPAHB00600_PARAM2", vCondCd); setParameter ("SPAHB00600_PARAM3", vCondNm); setParameter ("SPAHB00600_PARAM4", vDestCnt); setParameter ("SPAHB00600_PARAM5", vDestXPath); setParameter ("SPAHB00600_PARAM6", vjudgexmpcd); modal("SPAHB00600"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-04-18 @desc : 󹿰¡Á®¿À±â @param : * vOpenerID : ÇöÀçÈ­¸éID * vPkgFg : * bMultiyn : ´ÙÁßüũ¿©ºÎ * vCond : °Ë»ö±¸ºÐ(cd/nm) * vCdnm : °Ë»öÁ¶°Ç(ÄÚµå/¸íĪ) * vHeDetlFg : °ÇÁø»ó¼¼±¸ºÐ * vSex : ¼ºº°±¸ºÐ(M/F) * SPAHA00200_PARAM1 : P=>pkg, C=>´Üüpkg, A=>Ãß°¡°Ë»ç,S=>¼±Åð˻ç(Ãß°¡°Ë»ç¿Í µ¿ÀÏÇÑ °Ë»öÁ¶°ÇÀÓ), T=>ÀϹݰ˻çÄÚµå * SPAHA00200_PARAM2 : °Ë»ö±¸ºÐ(cd/nm) * SPAHA00200_PARAM3 : °Ë»öÁ¶°Ç(ÄÚµå/¸íĪ) * SPAHA00200_PARAM4 : ±â°üÄÚµå * SPAHA00200_PARAM5 : °ÇÁø±¸ºÐ( °øÅëÄÚµå A0068Âü°í) * SPAHA00200_PARAM6 : °ÇÁø±¸ºÐ( °øÅëÄÚµå A0069, A0070 Âü°í) * SPAHA00200_PARAM7 : vOpenerID * SPAHA00200_PARAM8 : ¼ºº°±¸ºÐ(M/F) * SPAHA00200_PARAM9 : ´ÙÁß¼±Åÿ©ºÎ(Y/N) * SPAHA00200_PARAM10 : single ÀÔ·ÂÀÏ °æ¿ì ´ë»ó nodeset *====================================================================================================================*/ function fGetPkgCd(vOpenerID, vPkgFg, bMultiyn,vCond, vCdnm , vHealExamDetlFlag, vSex, vDestXPath, vSrchDisableYN,vFrom,vage,vbrthareacnts,vforgneryn){ clearParameter("SPAHA00200_PARAM1"); clearParameter("SPAHA00200_PARAM2"); clearParameter("SPAHA00200_PARAM3"); clearParameter("SPAHA00200_PARAM4"); clearParameter("SPAHA00200_PARAM5"); clearParameter("SPAHA00200_PARAM6"); clearParameter("SPAHA00200_PARAM7"); clearParameter("SPAHA00200_PARAM8"); clearParameter("SPAHA00200_PARAM9"); clearParameter("SPAHA00200_PARAM10"); clearParameter("SPAHA00200_PARAM11"); clearParameter("SPAHA00200_PARAM12"); clearParameter("SPAHA00200_PARAM13"); clearParameter("SPAHA00200_PARAM14"); clearParameter("SPAHA00200_PARAM15"); setParameter ("SPAHA00200_PARAM1" , vPkgFg); setParameter ("SPAHA00200_PARAM2" , vCond); setParameter ("SPAHA00200_PARAM3" , vCdnm); setParameter ("SPAHA00200_PARAM4" , getUserInfo("dutplceinstcd")); if(vHealExamDetlFlag!="G01"){ setParameter ("SPAHA00200_PARAM5" , fGetHealExamFlag() ); } else { setParameter ("SPAHA00200_PARAM5" , "G" ); } setParameter ("SPAHA00200_PARAM6" , vHealExamDetlFlag); setParameter ("SPAHA00200_PARAM7" , vOpenerID); setParameter ("SPAHA00200_PARAM8" , vSex); setParameter ("SPAHA00200_PARAM9" , bMultiyn); setParameter ("SPAHA00200_PARAM10" , vDestXPath); setParameter ("SPAHA00200_PARAM11" , vSrchDisableYN); setParameter ("SPAHA00200_PARAM12" , vFrom); setParameter ("SPAHA00200_PARAM13" , vage); setParameter ("SPAHA00200_PARAM14" , vbrthareacnts); setParameter ("SPAHA00200_PARAM15" , vforgneryn); modal("SPAHA00200"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-07-05 @desc : °Ë»çÄÚµå ´ÙÁß ¼±Åà ÈÄ opener È­¸é¿¡¼­ Ãß°¡°Ë»ç setting. @param : * vGrdObj(´ë»ógrid ID) * vTestCdCol( TestCode Column ¼ø¹ø) * vSrcXPath(°Ë»çÄڵ弱Åà âÀ¸·Î ÀÔ·ÂÇÑ ´ë»ó³ëµå¿Í µ¿ÀÏ.) *====================================================================================================================*/ function fSetAddList(vGrdObj, vTestCdCol, vSrcXPath, vDupCheck, vPkgYN , vPkgCd) { if( model.getValue("/root/temp/okflag") != "ok" ) return ; if( vGrdObj == null ) return ; if( vSrcXPath == "" ) return ; var cnt = getNodesetCount(vSrcXPath); var grdcnt = vGrdObj.rows; var vTestcd = ""; var vTestnm = ""; var i = 0; if( vPkgYN == "Y" ){ for( i = 1 ; i <= cnt ; i++ ){ vTestcd = model.getValue(vSrcXPath + "[" + i + "]/pkgcd" ); vTestnm = model.getValue(vSrcXPath + "[" + i + "]/pkgnm" ); if( vDupCheck == "Y" ) { if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false ){ if( messageBox("Áߺ¹µÇ´Â PkgÄÚµå[" + vTestcd + " - " + vTestnm +"] ¸¦ Ãß°¡ ", "S001") != 6 ){ continue ; } } } var danga = model.getValue(vSrcXPath + "[" + i + "]/scoreamt" ); if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag") == "Y") { danga = parseInt(parseFloat(danga)* 0.1)*10; }else { danga = danga; } vGrdObj.addRow(); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/sel"); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/sel" , "Y" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/pkgcd" , vTestcd ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/pkgnm" ,vTestnm ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/uncocd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/uncocd" , "V03" ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/scoreamt" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/scoreamt" ,danga); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/addtotamt" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/addtotamt" ,danga); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" ,model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" ) ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/testdiscyn" ,model.getValue(vSrcXPath + "[" + i + "]/testdiscyn" ) ); grdcnt++; } } else { for( i = 1 ; i <= cnt ; i++ ){ vTestcd = model.getValue(vSrcXPath + "[" + i + "]/testcd" ); vTestnm = model.getValue(vSrcXPath + "[" + i + "]/testnm" ); if( vDupCheck == "Y" ) { if( fCheckDup(vGrdObj , vTestCdCol, vTestcd ) == false ){ if( messageBox("Áߺ¹µÇ´Â °Ë»çÄÚµå[" + vTestcd + " - " + vTestnm +"] ¸¦ Ãß°¡ ", "S001") != 6 ){ continue ; } } } var danga = model.getValue(vSrcXPath + "[" + i + "]/scoreamt" ); if(model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag") == "Y") { danga = parseInt(parseFloat(danga)* 0.1)*10; }else { danga = danga; } vGrdObj.addRow(); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/sel"); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/sel" , "Y" ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/testflag"); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/testflag" , "A" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/testcd" , vTestcd ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/testnm" ,vTestnm ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/uncocd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/uncocd" , "V01" ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/scoreamt" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/scoreamt" ,danga ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/addtotamt" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/addtotamt" ,danga ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd",model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" ) ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/prcptims", "1" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/prcpdayno", "1" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/testdiscyn" , model.getValue(vSrcXPath + "[" + i + "]/testdiscyn" ) ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/payownbamt" ,danga ); //¹¬À½Ã³¹æ ±¸ºÐ Ãß°¡ (2007.10.11 BY ¼ÕÁÖ¿¬ ) model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/grupflag" ); model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/grupflag" ,model.getValue(vSrcXPath + "[" + i + "]/grupflag" ) ); grdcnt++; } } /* * ÆÐŰÁö ³»ºÎ°Ë»ç Áߺ¹¿©ºÎ üũ */ model.removeNodeSet("/root/send/test"); // for( i = 1; i <= vGrdObj.rows ; i++) if(vGrdObj.rows >= 2){ for( i = 1; i <= vGrdObj.rows - 1 ; i++)// °íÁ¤Çà±îÁö Ãß°¡Çϴ°Ű°¾Æ¼­ -1 ÇßÀ½. { model.makeValue("/root/send/test[" + i +"]/pkgcd" , model.getValue(vGrdObj.nodeset + "[" + i + "]/testcd")); model.makeValue("/root/send/test[" + i +"]/grupflag" , model.getValue(vGrdObj.nodeset + "[" + i + "]/grupflag")); } if(vPkgCd != "") { model.makeValue("/root/send/test/srchpkgcd" , vPkgCd);} if(vPkgCd != "") { model.makeValue("/root/send/test/healexamflag" , fGetHealExamFlag());} model.removeNodeSet("/root/send/testcount"); submit("TRAHA00013",false);//ÆÐŰÁö³» Áߺ¹ üũ*/ } var testnm =""; var testnmcount =""; var cnt = getNodesetCount("/root/tmp/testcount/testcount"); if (cnt != 0) { for (var i=0;i <=cnt ; i++) { testnm = model.getValue("/root/tmp/testcount/testcount["+i+"]/testnm"); if (testnm!="") { testnmcount = testnmcount + testnm + "/"; } } messageBox(testnmcount + " °Ë»ç°¡ Áߺ¹µÇ¾ú½À´Ï´Ù","E999"); } model.refresh(); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-07-05 @desc : grid dup value check. @param : * vGrdObj : grid control * vCheckCol : check´ë»ó column ( 0,1,2,...) * vCheckVal : dup check ´ë»ó °ª *====================================================================================================================*/ function fCheckDup( vGrdObj, vCheckCol , vCheckVal ){ //if( vGrdObj.elementName() != "xforms:grid" ){ // messageBox("Invalid ObjName!", "E999"); // return false ; //} var cnt = vGrdObj.rows ; for( var i = 1; i <= cnt ; i++) { if( vGrdObj.valueMatrix(i, vCheckCol) == vCheckVal ){ return false; } } } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-07-05 @desc : Àӽà °ÇÁø±Ý¾× ÇÕ°è @param : * vGrdObj : grid control * vCalcCol : ±Ý¾× column ( 0,1,2,...) * vPkgAmt : ÆÐŰÁö±Ý¾× *====================================================================================================================*/ function fTempCalc( vPkgAmt , vGrdObj , vCalcCol , vPrcpTimsCol, vTotAmtCtrlID, vPkgAmtCtrlID, vAddAmtCtrlID){ /* var iTotAmt = 0; var iAddAmt = 0; var iTotAdd = 0; var iTotAddExm = 0; var vTotAddExm =0; var vTotAdd =0; var iPkgAmt = parseInt(vPkgAmt); var vAddAmt = ""; var vPrcpTims = ""; var iDiscAmt =0;*///fDcAmtCalc()¿¡¼­ ó¸® /* iTotAddExm = model.getValue("/root/main/info/rcptinfo/subtotamt"); //¼Ò°è iTotAdd = model.getValue("/root/main/info/rcptinfo/addamt");//Ãß°¡°Ë»ç±Ý¾× if(vPkgAmt == "") vPkgAmt = "0"; if(iTotAddExm == "") { vTotAddExm = 0; } else { vTotAddExm = parseInt(iTotAddExm); } if(iTotAdd == "") { vTotAdd =0; } else { vTotAdd =parseInt(iTotAdd); } */ /* if(model.getValue("/root/main/info/rsrvacptinfo/item/discamt")!=""){ iDiscAmt = parseInt(model.getValue("/root/main/info/rsrvacptinfo/item/discamt")); } model.setValue("/root/main/info/rcptinfo/discamt",iDiscAmt); for( var i = 1 ; i < vGrdObj.rows ; i++){ vAddAmt = vGrdObj.valueMatrix(i, vCalcCol); vPrcpTims = vGrdObj.valueMatrix(i, vPrcpTimsCol); if( vAddAmt == "" ) vAddAmt = "0"; if( vPrcpTims == "" ) vPrcpTims = "1"; iAddAmt += parseInt(vAddAmt) * parseInt(vPrcpTims) ; } if( vPkgAmtCtrlID != null ) vPkgAmtCtrlID.value = iPkgAmt ; if( vAddAmtCtrlID != null ) vAddAmtCtrlID.value = iAddAmt;// + vTotAdd; if( vTotAmtCtrlID != null ) vTotAmtCtrlID.value = (iPkgAmt + iAddAmt) - iDiscAmt;// + vTotAddExm; model.refresh();*///fDcAmtCalc()¿¡¼­ ó¸® fDcAmtCalc(); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-06-30 @desc : ¼ö°¡³»¿ª °¡Á®¿À±â @param : * SPAHB00300_PARAM1 : °Ë»ö±¸ºÐ(cd/nm) * SPAHB00300_PARAM2 : °Ë»öÁ¶°Ç(ÄÚµå/¸íĪ) * SPAHB00300_PARAM3 : multiyn * SPAHB00300_PARAM4 : multi¼±Åà ½Ã settingÇÒ ¸ñÀû³ëµå * SPAHB00300_PARAM5 : code°ªÀ» settingÇÒ ¸ñÀû³ëµå * SPAHB00300_PARAM6 : name°ªÀ» settingÇÒ ¸ñÀû³ëµå * SPAHB00300_PARAM7 : ¼ö°¡¸¦ settingÇÒ ¸ñÀû³ëµå *====================================================================================================================*/ function fGetCalScorCd( vCond, vCdnm, bMultiyn , vMultiDestXPath, vCdDestXPath, vNmDestXPath, vAmtDestXPath){ clearParameter("SPAHB00300_PARAM1"); clearParameter("SPAHB00300_PARAM2"); clearParameter("SPAHB00300_PARAM3"); clearParameter("SPAHB00300_PARAM4"); clearParameter("SPAHB00300_PARAM5"); clearParameter("SPAHB00300_PARAM6"); clearParameter("SPAHB00300_PARAM7"); setParameter ("SPAHB00300_PARAM1" , vCond); setParameter ("SPAHB00300_PARAM2" , vCdnm); setParameter ("SPAHB00300_PARAM3" , bMultiyn); setParameter ("SPAHB00300_PARAM4" , vMultiDestXPath); setParameter ("SPAHB00300_PARAM5" , vCdDestXPath ); setParameter ("SPAHB00300_PARAM6" , vNmDestXPath); setParameter ("SPAHB00300_PARAM7" , vAmtDestXPath); modal("SPAHB00300"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-06-30 @desc : ¼ö°¡³»¿ª ´ë»ó±×¸®µå set @param : * vGrdObj : ´ë»ó±×¸®µå * vSrcXPath : ¸ñÀû³ëµåset * vDupCheckCo : dup check column no * vDupCheck : dup check yn * vCodeNode : ¼ö°¡ÄÚµå ¸ñÀû ³ëµå * vNameNode : ¼ö°¡Ã³¹æ¸í ¸ñÀû ³ëµå * vAmtNode : ¼ö°¡ ¸ñÀû ³ëµå * vHeaderAddRows : header row default°ª(1) º¸´Ù Å« row¼ö *====================================================================================================================*/ function fSetOcd(vGrdObj, vSrcXPath, vDupCheckCol, vDupCheck, vCodeNode, vNameNode, vAmtNode, vHeaderAddRows ) { if( vGrdObj == null ) return ; if( vSrcXPath == "" ) return ; if( model.getValue("/root/temp/okflag") != "ok" ) return ; var cnt = getNodesetCount(vSrcXPath); var grdcnt = vGrdObj.rows; if( vHeaderAddRows != "" ){ grdcnt =parseInt( vGrdObj.rows) - parseInt( vHeaderAddRows ) ; } var vDupCheckVal = ""; var i = 0; if( cnt == 1 ) { vDupCheckVal = model.getValue(vSrcXPath + "/calcscorcd" ); if( vDupCheck == "Y" ) { if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal ) == false ){ if( messageBox("Áߺ¹µÇ´Â ¼ö°¡ÄÚµå[" + vDupCheckVal + "] ¸¦ Ãß°¡", "S001") != 6 ){ return ; } } } vGrdObj.addRow(); if( vCodeNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vCodeNode , vDupCheckVal ); } if( vNameNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vNameNode , model.getValue(vSrcXPath + "/hngnm" ) ); } if( vAmtNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vAmtNode , model.getValue(vSrcXPath + "/scoreamt" ) ); } model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" , vDupCheckVal ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm" , model.getValue(vSrcXPath + "/ordnm" ) ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/oldordcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/oldordcd" , model.getValue(vSrcXPath + "/oldordcd" ) ); } else { for( var i = 1 ; i <= cnt ; i++ ){ vDupCheckVal = model.getValue(vSrcXPath + "[" + i + "]/calcscorcd" ); if( vDupCheck == "Y" ) { if( fCheckDup(vGrdObj , vDupCheckCol, vDupCheckVal ) == false ){ if( messageBox("Áߺ¹µÇ´Â ¼ö°¡ÄÚµå[" + vDupCheckVal + "] ¸¦ Ãß°¡", "S001") != 6 ){ continue ; } } } vGrdObj.addRow(); if( vCodeNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vCodeNode , vDupCheckVal ); } if( vNameNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vNameNode , model.getValue(vSrcXPath + "[" + i + "]/hngnm" ) ); } if( vAmtNode != "" ){ model.setValue(vGrdObj.nodeset + "[" + grdcnt + "]/" + vAmtNode ,model.getValue(vSrcXPath + "[" + i + "]/scoreamt" ) ); } model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscorcd" , vDupCheckVal ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/calcscornm" , model.getValue(vSrcXPath + "[" + i + "]/ordnm" ) ); model.makeNode(vGrdObj.nodeset + "[" + grdcnt + "]/oldordcd" ); model.makeValue(vGrdObj.nodeset + "[" + grdcnt + "]/oldordcd" , model.getValue(vSrcXPath + "/oldordcd" ) ); grdcnt++; } } model.refresh(); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-30 @desc : ¼ö³³Ã³¸®--ÀÓ½Ã.. @param : * vJobFlag : WORK/CANCEL ÀÛ¾÷ ±¸ºÐ.(Á¢¼ö/Ãë¼Ò ±¸ºÐ) function fRcptAmt(vJobFlag){ var payownamt = model.getValue("/root/temp/rcptinfo/hidden/opmi_out/opmi_rcptamt") ; if( payownamt == "") { payownamt = "0"; } payownamt = parseInt(payownamt); if( payownamt != 0 ) { ahafOpenRcpt(fGetHealExamFlag() , model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd") , model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno") , model.getValue("/root/main/info/patinfo/item/pid") , model.getValue("/root/main/info/rsrvacptinfo/item/rcptstat") , model.getValue("/root/main/info/rsrvacptinfo/item/orddd") ); return ; } var vTmp = fGetHealExamFlag(); if( vTmp == "" ){ messageBox("°ÇÁøºÐ·ù ERROR .", "E999"); return ; } model.setValue("/root/send/srchhealexamflag", vTmp ); vTmp = model.getValue(ipt_pid.attribute("ref")); if( vTmp == "" ) { messageBox("ȯÀÚID ERROR .", "E999"); return ; } model.setValue("/root/send/srchpid", vTmp ); vTmp = model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd"); if( vTmp== "" ) { messageBox("µî·ÏÀÏÀÚ ERROR .", "E999"); return ; } model.setValue("/root/send/srchrsrvdd", vTmp ); vTmp = model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno"); if( vTmp == "" ) { messageBox("µî·Ï¹øÈ£ ERROR .", "E999"); return ; } model.setValue("/root/send/srchrsrvno", vTmp ); model.setValue("/root/send/srchinstcd", getUserInfo("dutplceinstcd")); //2007-08-17 Ãß°¡ model.setValue("/root/send/srchjobflag" ,vJobFlag); model.setValue("/root/send/srchrcptdd" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptdd") ); model.setValue("/root/send/srchrcptno" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptno") ); model.setValue("/root/send/srchrcptseqno" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptseqno") ); model.copyNode("/root/send/savercpt/opmi_out", "/root/temp/rcptinfo/hidden/opmi_out"); openLoadingBar("¼ö³³ ó¸®ÁßÀÔ´Ï´Ù..") ;//ó¸®Áß È­¸éÀ» ¿ÀÇÂÇÑ´Ù. if( submit("TXAHA02102") == true ){ messageBox("¼ö³³ ","I001"); } closeLoadingBar() ;//ó¸®Áß È­¸éÀ» closeÇÑ´Ù. } *====================================================================================================================*/ /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version : 2007-10-11 @desc : ¼ö³³Ã³¸® @param : * vJobFlag : WORK/CANCEL ÀÛ¾÷ ±¸ºÐ.(Á¢¼ö/Ãë¼Ò ±¸ºÐ) * vRsrvdd : *====================================================================================================================*/ function ahafRcptAmt(vJobFlag, vRsrvdd, vRsrvno, vPid, vOrddd, vRcptStat , vOpmiRoot,vHealexamFlag){ var payownamt = model.getValue(vOpmiRoot + "/opmi_out/opmi_rcptamt") ; if( payownamt == "") { payownamt = "0"; } payownamt = parseInt(payownamt); if(vHealexamFlag!="G"){ // if( payownamt != 0 ) { //¼ö³³È­¸é ÆË¾÷ ahafOpenRcpt(fGetHealExamFlag() , vRsrvdd , vRsrvno , vPid , vRcptStat , vOrddd ); return ; } // } var vTmp = vHealexamFlag;//fGetHealExamFlag(); if( vTmp == "" ){ messageBox("°ÇÁøºÐ·ù ERROR .", "E999"); return ; } model.makeNode("/root/send/savercpt/srchhealexamflag"); model.setValue("/root/send/savercpt/srchhealexamflag", vTmp ); if( vPid == "" ) { messageBox("ȯÀÚID ERROR .", "E999"); return ; } model.makeNode("/root/send/savercpt/srchpid"); model.setValue("/root/send/savercpt/srchpid", vPid ); if( vRsrvdd== "" ) { messageBox("µî·ÏÀÏÀÚ ERROR .", "E999"); return ; } model.makeNode("/root/send/savercpt/srchrsrvdd" ); model.setValue("/root/send/savercpt/srchrsrvdd", vRsrvdd ); if( vRsrvno == "" ) { messageBox("µî·Ï¹øÈ£ ERROR .", "E999"); return ; } model.makeNode("/root/send/savercpt/srchrsrvno" ); model.setValue("/root/send/savercpt/srchrsrvno", vRsrvno ); model.makeNode("/root/send/savercpt/srchinstcd" ); model.setValue("/root/send/savercpt/srchinstcd", getUserInfo("dutplceinstcd")); //2007-08-17 Ãß°¡ model.makeNode("/root/send/savercpt/srchjobflag" ); model.makeNode("/root/send/savercpt/srchrcptdd" ); model.makeNode("/root/send/savercpt/srchrcptno" ); model.makeNode("/root/send/savercpt/srchrcptseqno"); model.setValue("/root/send/savercpt/srchjobflag" ,vJobFlag); model.setValue("/root/send/savercpt/srchrcptdd" ,model.getValue(vOpmiRoot +"/opmi_out/org_rcptdd") ); model.setValue("/root/send/savercpt/srchrcptno" ,model.getValue(vOpmiRoot +"/opmi_out/org_rcptno") ); model.setValue("/root/send/savercpt/srchrcptseqno" ,model.getValue(vOpmiRoot +"/opmi_out/org_rcptseqno") ); model.makeNode("/root/send/savercpt/opmi_out"); model.copyNode("/root/send/savercpt/opmi_out", vOpmiRoot + "/opmi_out" ); model.makeNode("/root/send/savercpt/dcgm_out"); model.copyNode("/root/send/savercpt/dcgm_out", vOpmiRoot + "/dcgm_out" ); model.makeNode("/root/send/savercpt/unco_out"); model.copyNode("/root/send/savercpt/unco_out", vOpmiRoot + "/unco_out" ); // ¿µ¼öÁõä¹øÀ» ¸ÕÀúÇÑ´Ù. // INPUT(1.¼ö³³ÀϽÃ) model.makeNode("/root/send/rcptdd" ); model.makeNode("/root/send/genrkind" ); model.setValue("/root/send/rcptdd" , getCurrentDate() ); model.setValue( "/root/send/genrkind" , "R"); //SPAHA02100 ÀÌ ¼ö³³È­¸é //°á°ú´Â ¼ö³³ ¹øÈ£ if ( submit("TRAHA02105",false)){ //¿µ¼öÁõ¹øÈ£¸¦ ä¹øÇÏ¿© ¼ÂÆÃÇÑ´Ù. var rcptno = model.getValue("/root/temp/rcptno_out/rcptno/opmi_rcptno"); model.makeNode( "/root/send/savercpt/opmi_rcptno"); model.setValue( "/root/send/savercpt/opmi_rcptno", rcptno); } openLoadingBar("¼ö³³ ó¸®ÁßÀÔ´Ï´Ù..") ;//ó¸®Áß È­¸éÀ» ¿ÀÇÂÇÑ´Ù. //¼ö³³È­¸éÀÇ ³»¿ëÀ» ä¿ì´Â Ä«µå³ª Çö±Ý. Ãß°¡ °Ë»ç ³»¿ª, °¨¸éÁ¤º¸µî ¸ðµç Á¤º¸¸¦ °¡Á®¿Â´Ù. if( submit("TXAHA02102") == true ){ if (vJobFlag == 'CANCEL') { messageBox("Á¢¼öÃë¼Ò ","I001"); } else { messageBox("¼ö³³ ","I001"); } } closeLoadingBar() ;//ó¸®Áß È­¸éÀ» closeÇÑ´Ù. } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-30 @desc : ¼ö³³È­¸é open @param : * °ÇÁø ±¸ºÐ, ¿¹¾àµî·ÏÀÏÀÚ, ¿¹¾àµî·Ï¹øÈ£, µî·Ï¹øÈ£ *====================================================================================================================*/ function ahafOpenRcpt(vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat , vOrdDD ){ clearParameter("SMAHA02100_PARAM_PID" ); clearParameter("SMAHA02100_PARAM_RSRVDD" ); clearParameter("SMAHA02100_PARAM_RSRVNO" ); clearParameter("SMAHA02100_PARAM_HEALEXAMFLAG" ); setParameter("SMAHA02100_PARAM_PID" , vPid); setParameter("SMAHA02100_PARAM_RSRVDD" , vRsrvDD); setParameter("SMAHA02100_PARAM_RSRVNO" , vRsrvNo); setParameter("SMAHA02100_PARAM_HEALEXAMFLAG" , vHealExamFlag); setParameter("SMAHA02100_PARAM_ORDDD" , vOrdDD); var sRcptStat = "" ; if( vRcptStat == "N" ){ //¼ö³³»óÅ sRcptStat = "Y"; } else { sRcptStat = "N"; } setParameter("SMAHA02100_RTN" ,sRcptStat); modal("SMAHA02100"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-30 @desc : ¼ö³³È­¸é open @param : * °ÇÁø ±¸ºÐ, ¿¹¾àµî·ÏÀÏÀÚ, ¿¹¾àµî·Ï¹øÈ£, µî·Ï¹øÈ£ *====================================================================================================================*/ function ahafOpenRcptGnrl(vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat , vOrdDD ){ clearParameter("SMAHC00100_PARAM_PID" ); clearParameter("SMAHC00100_PARAM_RSRVDD" ); clearParameter("SMAHC00100_PARAM_RSRVNO" ); clearParameter("SMAHC00100_PARAM_HEALEXAMFLAG" ); setParameter("SMAHC00100_PARAM_PID" , vPid); setParameter("SMAHC00100_PARAM_RSRVDD" , vRsrvDD); setParameter("SMAHC00100_PARAM_RSRVNO" , vRsrvNo); setParameter("SMAHC00100_PARAM_HEALEXAMFLAG" , vHealExamFlag); setParameter("SMAHC00100_PARAM_ORDDD" , vOrdDD); var sRcptStat = "" ; if( vRcptStat == "N" ){ //¼ö³³»óÅ sRcptStat = "Y"; } else { sRcptStat = "N"; } setParameter("SMAHC00100_RTN" ,sRcptStat); modal("SMAHC00200"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-30 @desc : ¼ö³³Ã³¸® : °³Àκδã±Ý Á¸Àç ½Ã ¼ö³³Ã¢ load. @param : * ¼ö³³Ã¢ open yn, job flag, °ÇÁø ±¸ºÐ, ¿¹¾àµî·ÏÀÏÀÚ, ¿¹¾àµî·Ï¹øÈ£, µî·Ï¹øÈ£ , Áø·áÀÏÀÚ, ±â°üÄÚµå *====================================================================================================================*/ /*function ahafRcptAmt(vRcptDlgOpenYN, vJobFlag, vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat , vOrdDD, vInstCd){ var payownamt = model.getValue("/root/temp/rcptinfo/hidden/opmi_out/opmi_rcptamt") ; var payrcptamt = 0; if( payownamt != "" ) { payrcptamt = parseInt(payownamt); } if( payrcptamt > 0 ) { ahafOpenRcpt(vHealExamFlag , vRsrvDD , vRsrvNo , vPid , vRcptStat , vOrdDD ); return ; } model.setValue("/root/send/srchhealexamflag" , vHealExamFlag ); model.setValue("/root/send/srchpid" , vPid ); model.setValue("/root/send/srchrsrvdd" , vRsrvDD ); model.setValue("/root/send/srchrsrvno" , vRsrvNo ); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); //2007-08-17 Ãß°¡ model.setValue("/root/send/srchjobflag" ,vJobFlag); model.setValue("/root/send/srchrcptdd" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptdd") ); model.setValue("/root/send/srchrcptno" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptno") ); model.setValue("/root/send/srchrcptseqno" ,model.getValue("/root/temp/rcptinfo/hidden/opmi_out/org_rcptseqno") ); model.copyNode("/root/send/savercpt/opmi_out", "/root/temp/rcptinfo/hidden/opmi_out"); // ¿µ¼öÁõä¹øÀ» ¸ÕÀúÇÑ´Ù. // INPUT(1.¼ö³³ÀϽÃ) model.setValue("/root/send/rcptdd" , getCurrentDate() ); model.setValue( "/root/send/genrkind" , "R"); if ( submit("TRAHA02105")){ //¿µ¼öÁõ¹øÈ£¸¦ ä¹øÇÏ¿© ¼ÂÆÃÇÑ´Ù. var rcptno = model.getValue("/root/temp/rcptno_out/rcptno/opmi_rcptno") model.setValue( "/root/send/opmi_rcptno", rcptno); } openLoadingBar("¼ö³³ ó¸®ÁßÀÔ´Ï´Ù..") ;//ó¸®Áß È­¸éÀ» ¿ÀÇÂÇÑ´Ù. if( submit("TXAHA02102") == true ){ messageBox("¼ö³³ ","I001"); } closeLoadingBar() ;//ó¸®Áß È­¸éÀ» closeÇÑ´Ù. } */ /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-01 @desc : ¿¹¾à/Á¢¼ö ÇöȲÁ¶È¸ @param : * SMAHA00400_PARAM1 : °ÇÁø±¸ºÐ * SMAHA00400_PARAM2 : °ÇÁø»ó¼¼±¸ºÐ * SMAHA00400_PARAM3 : ÀÏÀÚüũ¿©ºÎ(Y/N) * SMAHA00400_PARAM4 : ÀÏÀÚ±âÁØ ¹× »óűâÁØ (¿¹¾à:C, ¿¹¾àµî·Ï: C1, Á¢¼ö:E ) * SMAHA00400_PARAM5 : »ç¾÷üÄÚµå * SMAHA00400_PARAM6 : °Ë»ç½ÇÄÚµå * SMAHA00400_PARAM7 : ¼º¸í * SMAHA00400_PARAM8 : µî·Ï¹øÈ£ * SMAHA00400_PARAM9 : ÁֹιøÈ£1 * SMAHA00400_PARAM10 : ÁֹιøÈ£2 * SMAHA00400_PARAM11 : ÆÐŰÁöÄÚµå * SMAHA00400_PARAM12 : Á¶È¸±¸ºÐ2(¼º¸í: pnm/µî·Ï¹øÈ£:pid/ÁֹιøÈ£:rgstno) * SMAHA00400_PARAM13 : key°ª setting ¸ñÀû³ëµå *====================================================================================================================*/ function ahafOpenRsrvAcptList(vOpenerID, vHealExamFg , vHealExamDetlFg, vDateChkYN , vStatFg , vCmpyCd , vRoomCd , vPnm, vPid, vRgstno1, vRgstno2, vPkgCd, vSrchCond2, vDestNode){ clearParameter("SMAHA00400_PARAM1"); clearParameter("SMAHA00400_PARAM2"); clearParameter("SMAHA00400_PARAM3"); clearParameter("SMAHA00400_PARAM4"); clearParameter("SMAHA00400_PARAM5"); clearParameter("SMAHA00400_PARAM6"); clearParameter("SMAHA00400_PARAM7"); clearParameter("SMAHA00400_PARAM8"); clearParameter("SMAHA00400_PARAM9"); clearParameter("SMAHA00400_PARAM10"); clearParameter("SMAHA00400_PARAM11"); clearParameter("SMAHA00400_PARAM12"); clearParameter("SMAHA00400_PARAM13"); setParameter("SMAHA00400_PARAM1", vHealExamFg); setParameter("SMAHA00400_PARAM2", vHealExamDetlFg); setParameter("SMAHA00400_PARAM3", vDateChkYN); setParameter("SMAHA00400_PARAM4", vStatFg); setParameter("SMAHA00400_PARAM5", vCmpyCd); setParameter("SMAHA00400_PARAM6", vRoomCd); setParameter("SMAHA00400_PARAM7", vPnm); setParameter("SMAHA00400_PARAM8", vPid ); setParameter("SMAHA00400_PARAM9", vRgstno1); setParameter("SMAHA00400_PARAM10", vRgstno2); setParameter("SMAHA00400_PARAM11", vPkgCd); setParameter("SMAHA00400_PARAM12", vSrchCond2); setParameter("SMAHA00400_PARAM13", vDestNode); modal("SMAHA00400",100,10,"SMAHA00400"); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-08-01 @desc : ±âº»ÄÚµå°ü¸® °ü·Ã ÄÚµå ¼±Åà ÆË¾÷ @param : * vLargFg : SPAHB00500_PARAM1 : ´ëºÐ·ùÄÚµå * vMidlFg : SPAHB00500_PARAM2 : ÁߺзùÄÚµå * vMultiYN : SPAHB00500_PARAM3 : multiyn => YÀÌ¸é ¼ÒºÐ·ùÄÚµå ´ÙÁß¼±ÅÃÀԷ¸ðµå * vDestNode : SPAHB00500_PARAM4 : ¸ñÀû³ëµå¼Â * vMidlSetYN : SPAHB00500_PARAM5 : ÁߺзùÄÚµå setting¿©ºÎ(Y/N)=>¼±ÅÃÇü°á°úÀÇ °æ¿ì Áߺзù ¼±Åýà Áߺзù ÄÚµå ÇØ´ç Áߺзù¿¡ ¼ÓÇÑ ¼ÒºÐ·ù ÀüÄڵ带 ºÎ¸ðâ¿¡ copy *====================================================================================================================*/ function ahzfOpenEtcCdSel( vOpenerID , vLargFg /*´ëºÐ·ùÄÚµå*/ , vMidlFg /*ÁߺзùÄÚµå*/ , vMultiYN /*multiyn*/ , vDestNode /*multiyn == 'Y'À϶§ ¸ñÀû³ëµå¼Â*/ , vMidlSetYN /*ÁߺзùÄÚµå setting¿©ºÎ(Y/N)*/ ){ clearParameter("SPAHB00500_PARAM1"); clearParameter("SPAHB00500_PARAM2"); clearParameter("SPAHB00500_PARAM3"); clearParameter("SPAHB00500_PARAM4"); clearParameter("SPAHB00500_PARAM5"); clearParameter("SPAHB00500_PARAM6"); model.makeNode(vDestNode); setParameter("SPAHB00500_PARAM1", vLargFg); setParameter("SPAHB00500_PARAM2", vMidlFg); setParameter("SPAHB00500_PARAM3", vMultiYN); setParameter("SPAHB00500_PARAM4", vDestNode); setParameter("SPAHB00500_PARAM5", vMidlSetYN); setParameter("SPAHB00500_PARAM6", vOpenerID); modal("SPAHB00500",100,100,"SMAHB00500"); if( model.getValue("/root/temp/okflag") == "ok" ){ return true; } return false; } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-05-01 @desc : ÄÚµåÀÔ·Â ½Ã °øÅëÄÚµå ¹× »ç¾÷ü ÄÚµå °¡Á®¿À±â, map : TRAHA00105 , ref= root/temp/cdlst ·Î setting @param : * vSrchFlag : °Ë»ö±¸ºÐ ** 01 ÆÇÁ¤ÀÇ ** 02 °Ç°­º¸Çè°ø´Ü ** 03 °üÇÒ±ºº´¿ø ** 04 »ê¾÷¾ÈÀü°ø´Ü ** 05 º¸°Ç¼Ò ** 06 ³ëµ¿Ã» ** 07 Áöµµ¿ø ** 08 »ç¾÷ü * vCode : °Ë»öÄÚµå * vAllYN : ÀüüÁ¤º¸ ¿©ºÎ ( YÀÏ °æ¿ì vDestNodeSetÀ¸·Î copy) * vCodeNode : Äڵ尪ÀÌ settingµÉ ¸ñÀû³ëµå * vNameNode : ÄÚµå¸íÀÌ settingµÉ ¸ñÀû³ëµå * vDestNodeSet: vAllYN == 'Y' ÀÎ °æ¿ì ¸ñÀû³ëµå¼Â ====================================================================================================================*/ function ahafGetCmpyInfo( vSrchFlag, vCode , vAllYN, vCodeNode, vNameNode , vDestNodeSet){ model.makeNode("/root/send/srchflag" ); model.makeNode("/root/send/srchcond" ); model.makeNode("/root/send/srchcdnm" ); model.makeNode("/root/send/srchinstcd" ); model.setValue("/root/send/srchflag" , vSrchFlag); model.setValue("/root/send/srchcond" , "cd" ); model.setValue("/root/send/srchcdnm" , vCode); model.setValue("/root/send/srchinstcd" , getUserInfo("dutplceinstcd")); submit("TRAHA00105"); var SrcNode = model.instance1.selectSingleNode("/root/temp/cdlst/item"); if( SrcNode != null ) { if( vAllYN == "Y" ) { model.copyNode(vDestNodeSet, "/root/temp/cdlst/item"); } else { model.setValue(vCodeNode , model.getValue("/root/temp/cdlst/item/cmpycd") ); model.setValue(vNameNode , model.getValue("/root/temp/cdlst/item/cmpynm") ); } model.refresh(); return true; } return false; } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-09-01 @desc : ÅëÇÕ°Ë»ç°á°úÁ¶È¸ â ¶ç¿ì±â @param : vPidNode : ȯÀÚID°ªÀÌ ÀÖ´Â °æ·Î ====================================================================================================================*/ function ahafOpenRsltView(vPidNode ){ modal( "SMAER00800",100,10,"SMAER00800","/root/send/data/singdata/srchpid",vPidNode); } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-10-01 @desc : Á¾ÇÕÆÇÁ¤ â ¶ç¿ì±â @param : sPid : ȯÀÚID ====================================================================================================================*/ function ahafOpenColgJudg(sPid ){ setParameter("SMAHR00500_PARAM1", sPid); open( "SMAHR00500",100,10,"SMAHR00500" ); } function ahafGetInsuAge(sRgstNo1, sRgstNo2) { var brthYY = ""; if(sRgstNo2.substr(0, 1) == 1 || sRgstNo2.substr(0, 1) == 2) { brthYY = "19" + sRgstNo1.substr(0, 2); } else { brthYY = "20" + sRgstNo1.substr(0, 2); } if(parseInt(getCurrentDate().substr(0,4)) - parseInt(brthYY) == 40 || parseInt(getCurrentDate().substr(0,4)) - parseInt(brthYY) == 66) { return true; } else { return false; } } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-10-11 @desc :º¸ÇèÁõ¹øÈ£ Á¶È¸(º¸ÇèÀÚ°ÝÁ¶È¸) @param : * sRgstNo1/sRgstNo2 : ÁֹιøÈ£ * sHngNm : À̸§ * sOrdDD : Áø·áÀÏÀÚ °ªÀ» ¹ÞÀ» ³ëµå °æ·Î * vInsuKind : º¸ÇèÀ¯Çü * vInsuNo : Áõ¹øÈ£ * vInsuCd : º¸ÇèÀÚ±âÈ£ * vFromDD : ÃëµæÀÏÀÚ * vInsuNm : º¸ÇèÀÚ¼º¸í * vInsuBranchCd : °üÇÒÁö»ç ÄÚµå * vInsuBranchNm : °üÇÒÁö»ç ¸íĪ ====================================================================================================================*/ function ahafGetInsuCnts(sRgstNo1, sRgstNo2, sHngNm, sOrdDD ,vInsuKind, vInsuNo, vInsuCd, vFromDD, vInsuNm, vInsuBranchCd, vInsuBranchNm ){ if( (sRgstNo1 == "" ) || (sRgstNo2 == "" ) || (sHngNm == "" ) || (sOrdDD == "" ) ) { messageBox("ÀÚ°ÝÁ¶È¸ ÇʼöÁ¶°Ç(ÁֹιøÈ£/¼º¸í/Áø·áÀÏÀÚ) ÀÔ·ÂÀÌ ´©¶ôµÇ¾ú½À´Ï´Ù. ", "E999"); return ; } //º¸ÇèÁõ¹øÈ£ Á¶È¸(º¸ÇèÀÚ°ÝÁ¶È¸) var parm = sRgstNo1 + sRgstNo2 + "¢Ë" + //ÁֹιøÈ£ sHngNm + "¢Ë" + //À̸§ sOrdDD + "¢Ë" ; //Áø·áÀÏÀÚ // modal("SMAHA00210"); modal("SMAHA00210","1", "400", "400", "SMAHA00210","","",""); /* setParameter("SPPMC03700_PARM",parm); setParameter("SPPMC03700_RTN",""); modal("SPPMC03700", "1","400", "400", "SPPMC03700", "", ""); if (getParameter("SPPMC03700_RTN") == "N" || getParameter("SPPMC03700_RTN") == "") { return; } if (getParameter("SPPMC03700_RTN") == "Y") { //return °ªÀÌ ÀÖÀ¸¸é, if( vInsuKind != "" ) { model.makeNode(vInsuKind); model.setValue(vInsuKind , getParameter("SPPMC03700_insukind")); //°Ç°­º¸Çè :11, ÀÇ·á±Þ¿©1/2Á¾ : 21/22 } if( vInsuCd != "" ) { model.makeNode(vInsuCd); model.setValue(vInsuCd , getParameter("SPPMC03700_insucd")); //º¸ÇèÀÚ ±âÈ£ } if( vInsuNo != "" ) { model.makeNode(vInsuNo); model.setValue(vInsuNo , getParameter("SPPMC03700_insuno")); //Áõ¹øÈ£ } if( vInsuNm != "" ) { model.makeNode(vInsuNm); model.setValue(vInsuNm , getParameter("SPPMC03700_insdnm")); //ÇǺ¸ÇèÀÚ¼º¸í } if( vFromDD != "" ) { model.makeNode(vFromDD); model.setValue(vFromDD , getParameter("SPPMC03700_insufromdd")); //ÃëµæÀÏÀÚ } //°üÇÒÁö»çÄÚµå if( vInsuBranchCd ){ model.makeNode(vInsuBranchCd); model.setValue(vInsuBranchCd , getParameter("SPPMC03700_choicorpmark1")); //°üÇÒÁö»ç } //°üÇÒÁö»ç¸í if( vInsuBranchNm ){ model.makeNode(vInsuBranchNm); model.setValue(vInsuBranchNm , getParameter("SPPMC03700_choicorpnm1")); //°üÇÒÁö»ç } model.refresh(); }*/ } /**================================================================================================================== @author : ¼ÕÁÖ¿¬ @version :2007-10-11 @desc :È­¸é »ó´Ü ȯÀÚÁ¤º¸ ¼³Á¤ @param : * vOrddd : Áø·áÀÏÀÚ * vPid : ȯÀÚid ====================================================================================================================*/ function ahafSetScreenTopPatInfo( vPid , vOrddd , vCretno ){ var param = "O" + "¢Ë" + vPid + "¢Ë" + vOrddd + "¢Ë" + vCretno + "¢Ë" + getUserInfo("dutplceinstcd") + "¢Ë" ; setParameter("condparam", param); //setParameter("condparam", "S" + "¢Ë" + vPrcpDD + "¢Ë" + vExecprcpuniqno + "¢Ë" + getUserInfo("dutplceinstcd") ); modal("SPMMO08900", 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; sysmenu:hidden; caption:hidden; min:hidden, max:hidden;"); } /**================================================================================================================== @author : ±èÈ£ÀÍ @version :2007-12-12 @desc :ÅëÇÕ¿¹¾à°ü¸® È­¸éÀ¸·Î À̵¿ @param : * displayid : È£ÃâÈ­¸é--ÅëÇÕ¿¹¾à È­¸é * maingridlistid : ºÎ¼­ÄÚµå Instance * path : send Instance ====================================================================================================================*/ function aezfPopUpRsrvSample(displayid, maingridlistid, path) { var pid = model.getValue(path +"/pid" ); var suppdeptcd = getUserInfo("posdeptcd"); var sflag = pid + "¢Ë" + "S" + "¢Ë" + suppdeptcd; // Ç÷¡±× S setParameter("opener_parameter_id", sflag); open(displayid, 1, "", "", "", "", "", "left:0; right:0; width:0; height:0; min:hidden, max:hidden;"); } /**================================================================================================================== @author : ±èÈ£ÀÍ @version :2007-12-12 @desc :¿¹¾à½Ã dc ±Ý¾× È®ÀÎ @param : ====================================================================================================================*/ function fDcAmtCalc(){ model.makeValue("/root/send/priceamt/healexamflag", fGetHealExamFlag()); if(model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd") == "") { model.makeValue("/root/send/priceamt/healexamdetlflag" , model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")); }else { model.makeValue("/root/send/priceamt/healexamdetlflag", model.getValue("/root/send/srchhealexamdetlflag")); } model.makeValue("/root/send/priceamt/pkgcd" , model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd")); model.makeValue("/root/send/priceamt/cmpycd", model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd")); model.makeValue("/root/send/priceamt/conseq", model.getValue("/root/main/info/rsrvacptinfo/item/conseq")); model.makeValue("/root/send/priceamt/conhistseq", model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq")); model.makeValue("/root/send/priceamt/pid", model.getValue("/root/main/info/rsrvacptinfo/item/pid")); model.makeValue("/root/send/priceamt/rsrvdd", model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd")); model.makeValue("/root/send/priceamt/rsrvno", model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno")); model.makeValue("/root/send/priceamt/sex", model.getValue("/root/main/info/patinfo/item/sex")); model.makeValue("/root/send/priceamt/age", ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1") , model.getValue("/root/main/info/patinfo/item/rgstno2")));//model.getValue("/root/main/info/patinfo/item/age")); model.makeValue("/root/send/priceamt/disccd", model.getValue("/root/main/info/rsrvacptinfo/item/disccd")); model.makeValue("/root/send/priceamt/pkguncocd", model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd")); model.makeValue("/root/send/priceamt/forgneryn", model.getValue("/root/main/info/rsrvacptinfo/item/forgneryn")); model.makeValue("/root/send/priceamt/choiflag", model.getValue("/root/main/info/rsrvacptinfo/item/choiflag")); model.makeValue("/root/send/priceamt/statflag", model.getValue("/root/main/info/rsrvacptinfo/item/statflag")); model.removenode("/root/priceamt/priceamt"); if(submit("TRAHA00509")) { model.makeValue("/root/main/info/rcptinfo/subtotamt", model.getValue("/root/temp/priceamt/priceamt/subtotamt")); //¼Ò°è model.makeValue("/root/main/info/rcptinfo/pkgamt", model.getValue("/root/temp/priceamt/priceamt/pkgamt")); //ÆÐŰÁö±Ý¾× model.makeValue("/root/main/info/rcptinfo/cmpyaddamt", model.getValue("/root/temp/priceamt/priceamt/cmpyaddamt")); //´ÜüÃß°¡°Ë»ç±Ý¾× model.makeValue("/root/main/info/rcptinfo/psnaddamt", model.getValue("/root/temp/priceamt/priceamt/psnaddamt")); //°³ÀÎÃß°¡°Ë»ç±Ý¾× model.makeValue("/root/main/info/rcptinfo/preamt", model.getValue("/root/temp/priceamt/priceamt/preamt")); //¼±¼ö±Ý model.makeValue("/root/main/info/rcptinfo/uncoamt", model.getValue("/root/temp/priceamt/priceamt/uncoamt")); //¹Ì¼ö±Ý model.makeValue("/root/main/info/rcptinfo/discamt", model.getValue("/root/temp/priceamt/priceamt/discamt")); //ÇÒÀÎ¾× model.makeValue("/root/main/info/rcptinfo/realamt", model.getValue("/root/temp/priceamt/priceamt/realamt")); //½Ç¼ö³³¾× model.makeValue("/root/main/info/rcptinfo/ownbamt", model.getValue("/root/temp/priceamt/priceamt/ownbamt")); //ºÎ´ã¾× //Ãß°¡°Ë»ç ±Ý¾×¼ÂÆÃ fSetAddAmt(); } } /**================================================================================================================== @author : ±èÈ£ÀÍ @version :2007-12-17 @desc :Ãß°¡°Ë»ç ±×¸®µåÀÇ Çà»èÁ¦ ¹öư Ŭ¸¯½Ã ±Ý¾× °è»ê @param : ====================================================================================================================*/ function fDcCode( ChoiceCD ,vpkguncocd){ var dcb = false; if((ChoiceCD!="") &&(ChoiceCD!="-")){ for(var i=0 ;i <100 ;i++){ CodeCD = model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/cd"); if (ChoiceCD == CodeCD) { /* Ãß°¡°Ë»ç ÇÒÀÎÀϰæ¿ì´Â Ãß°¡ °Ë»ç ÇÒÀξ×ÀÌ µû·Î ¼³Á¤µÇ¾îÀÖ´Ù */ /* if(vpkguncocd=="V01"){ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt")); dcb = true; return parseFloat(dcamt/100); break; }else{ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt")); dcb = true; return parseFloat(dcamt/100); break; }*/ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt")); dcb = true; return parseFloat(dcamt/100); break; } } } else { return 0.0; } if (dcb==false){ return 0.0; } } /**================================================================================================================== @author : ±èÈ£ÀÍ @version :2007-12-17 @desc : ÇØ´çÇÒÀΰèÁ¤ÀÇ ±Ý¾× È®ÀÎ @param : ====================================================================================================================*/ function fDcCodeAdd( ChoiceCD ,vpkguncocd){ var dcb = false; if((ChoiceCD!="") &&(ChoiceCD!="-")){ for(var i=0 ;i <100 ;i++){ CodeCD = model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/cd"); if (ChoiceCD == CodeCD) { /* Ãß°¡°Ë»ç ÇÒÀÎÀϰæ¿ì´Â Ãß°¡ °Ë»ç ÇÒÀξ×ÀÌ µû·Î ¼³Á¤µÇ¾îÀÖ´Ù */ /* if(vpkguncocd=="V01"){ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/dcamt")); dcb = true; return parseFloat(dcamt/100); break; }else{ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt")); dcb = true; return parseFloat(dcamt/100); break; }*/ dcamt = parseInt(model.getValue("/root/init/baseinfo/pamcdlst/disccdlst[" +i+"]/adddcamt")); dcb = true; return parseFloat(dcamt/100); break; } } } else { return 0.0; } if (dcb==false){ return 0.0; } } function fRowDeleteCalc(scoreamtco){ var scoreamt = 0; var addamt = 0; var subtotamt = 0; /* if (model.getValue(grd_addlst.nodeset + "[" + grd_addlst.row + "]/scoreamt")!="") { scoreamt = parseInt( model.getValue(grd_addlst.nodeset + "[" + grd_addlst.row + "]/scoreamt")); }*/ if(scoreamtco!=""){ scoreamt = parseInt( scoreamtco); } if (model.getValue("/root/main/info/rcptinfo/addamt")!=""){ addamt = parseInt(model.getValue("/root/main/info/rcptinfo/addamt")) - scoreamt; } if (model.getValue("/root/main/info/rcptinfo/subtotamt")!=""){ subtotamt = parseInt(model.getValue("/root/main/info/rcptinfo/subtotamt")); } if (scoreamt!=0){ model.setValue("/root/main/info/rcptinfo/addamt",addamt); model.setValue("/root/main/info/rcptinfo/subtotamt",subtotamt - scoreamt); model.refresh(); } fDcAmtCalc(); } /**================================================================================================================== @author : ±èÈ£ÀÍ @version :2007-12-17 @desc : ¼Ò°ßµî·Ï½Ã ÀÌÀü°Ë»ç °á°ú¿Í Ʋ¸°ºÎºÐ üũ @param : ====================================================================================================================*/ function fOldRsltChk(){ if (model.getValue("/root/main/judgdetl/judginfo/item/hngjudgcnts")!=""){ var cnt = grd_rsltlst.rows; for (var ci=1;ci = grdobj.fixedRows ) { var rowidx = grdobj.row; if ( btn_case1.selected == true ) { if ( model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno") == "" || model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno") == 0 ) { messageBox("PACS Viewer¿Í ¿¬µ¿ÇÒ ¼ö ¾ø½À´Ï´Ù.(À¯ÀϹøÈ£°¡ 0À̰ųª NULLÀÔ´Ï´Ù)","I999"); return; } var pacsorderid = model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/prcpdd")+model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/execprcpuniqno"); var pid = model.getValue("/root/main/ordlist1/maindailylist["+rowidx+"]/pid"); } if ( btn_case2.selected == true ) { if ( model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno") == "" || model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno") == 0 ) { messageBox("PACS Viewer¿Í ¿¬µ¿ÇÒ ¼ö ¾ø½À´Ï´Ù.(À¯ÀϹøÈ£°¡ 0À̰ųª NULLÀÔ´Ï´Ù)","I999"); return; } var pacsorderid = model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/prcpdd")+model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/execprcpuniqno"); var pid = model.getValue("/root/main/ordlist2/mainserious["+rowidx+"]/pid"); } // PACS Viewer È£Ãâ //zepfpacsOrderID("2007082725595"); }*/ zepfpacsAll(pacsorderid, pid); } function fClickCDISResultList() { model.resetInstanceNode("/root/send/iemr"); model.makeNode("/root/hidden/temp"); var prcpdd = model.getValue("/root/temp/prcpdd"); var execprcpuniqno= model.getValue("/root/temp/seqno"); var instcd = getUserInfo("dutplceinstcd"); var sprcpdd = aezfTrim(prcpdd, 44); var sexecprcpuniqno = aezfTrim(execprcpuniqno, 44); var sinstcd = aezfTrim(instcd, 44); model.makeValue("/root/send/iemr/cmc_orddate" , sprcpdd); model.makeValue("/root/send/iemr/cmc_orderseqno" , sexecprcpuniqno); model.makeValue("/root/send/iemr/cmc_spcid" , sinstcd); if(window.children.item("imgemrviewer") == null){ window.load("../../../emr/imgemrweb/xrw/SSMRC03130.xrw","modeless", "imgemrviewer", "", "/root/send/iemr", "/root/hidden/temp"); /* window.children.item("imgemrviewer").document.title = "Image EMR Viewer"; window.children.item("imgemrviewer").javaScript.searchChart("/root/hidden/temp"); if(window.children.item("imgemrviewer").javaScript.downloadChart() == true){ window.children.item("imgemrviewer").javaScript.setupChart("ChartView"); } */ } } function fPriceCheck(){ model.makeValue("/root/send/priceamt/healexamflag", fGetHealExamFlag()); if(model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd") == "") { model.makeValue("/root/send/priceamt/healexamdetlflag" , model.getValue("/root/main/info/rsrvacptinfo/item/healexamdetlflag")); }else { model.makeValue("/root/send/priceamt/healexamdetlflag", model.getValue("/root/send/srchhealexamdetlflag")); } model.makeValue("/root/send/priceamt/pkgcd" , model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd")); model.makeValue("/root/send/priceamt/cmpycd", model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd")); model.makeValue("/root/send/priceamt/conseq", model.getValue("/root/main/info/rsrvacptinfo/item/conseq")); model.makeValue("/root/send/priceamt/conhistseq", model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq")); model.makeValue("/root/send/priceamt/pid", model.getValue("/root/main/info/rsrvacptinfo/item/pid")); model.makeValue("/root/send/priceamt/rsrvdd", model.getValue("/root/main/info/rsrvacptinfo/item/rsrvdd")); model.makeValue("/root/send/priceamt/rsrvno", model.getValue("/root/main/info/rsrvacptinfo/item/rsrvno")); model.makeValue("/root/send/priceamt/sex", model.getValue("/root/main/info/patinfo/item/sex")); model.makeValue("/root/send/priceamt/age", ageCalc(model.getValue("/root/main/info/patinfo/item/rgstno1") , model.getValue("/root/main/info/patinfo/item/rgstno2")));//model.getValue("/root/main/info/patinfo/item/age")); model.makeValue("/root/send/priceamt/disccd", model.getValue("/root/main/info/rsrvacptinfo/item/disccd")); model.makeValue("/root/send/priceamt/pkguncocd", model.getValue("/root/main/info/rsrvacptinfo/item/pkguncocd")); model.makeValue("/root/send/priceamt/forgneryn", model.getValue("/root/main/info/rsrvacptinfo/item/forgneryn")); model.makeValue("/root/send/priceamt/choiflag", model.getValue("/root/main/info/rsrvacptinfo/item/choiflag")); model.makeValue("/root/send/priceamt/statflag", model.getValue("/root/main/info/rsrvacptinfo/item/statflag")); model.removenode("/root/priceamt/priceamt"); if(submit("TRAHA00509")) { model.makeValue("/root/main/info/rcptinfo/subtotamt", model.getValue("/root/temp/priceamt/priceamt/subtotamt")); //¼Ò°è model.makeValue("/root/main/info/rcptinfo/pkgamt", model.getValue("/root/temp/priceamt/priceamt/pkgamt")); //ÆÐŰÁö±Ý¾× model.makeValue("/root/main/info/rcptinfo/addamt", model.getValue("/root/temp/priceamt/priceamt/cmpyaddamt")); //´ÜüÃß°¡°Ë»ç±Ý¾× model.makeValue("/root/main/info/rcptinfo/addamt", model.getValue("/root/temp/priceamt/priceamt/psnaddamt")); //°³ÀÎÃß°¡°Ë»ç±Ý¾× model.makeValue("/root/main/info/rcptinfo/preamt", model.getValue("/root/temp/priceamt/priceamt/preamt")); //¼±¼ö±Ý model.makeValue("/root/main/info/rcptinfo/uncoamt", model.getValue("/root/temp/priceamt/priceamt/uncoamt")); //¹Ì¼ö±Ý model.makeValue("/root/main/info/rcptinfo/discamt", model.getValue("/root/temp/priceamt/priceamt/discamt")); //ÇÒÀÎ¾× model.makeValue("/root/main/info/rcptinfo/realamt", model.getValue("/root/temp/priceamt/priceamt/realamt")); //½Ç¼ö³³¾× model.makeValue("/root/main/info/rcptinfo/ownbamt", model.getValue("/root/temp/priceamt/priceamt/ownbamt")); //ºÎ´ã¾× //Ãß°¡°Ë»ç ±Ý¾×¼ÂÆÃ fSetAddAmt(); } } function fSaveRsrvAcptPro(vMode, GMode){ if(GMode == "1"){ var vHealExamFlag = model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag"); }else{ var vHealExamFlag = fGetHealExamFlag(); if(vHealExamFlag == "") return -1; } var sMode = ""; switch(vMode){ case "A" : sMode = "°¡¿¹¾à"; break; case "B" : sMode = "º¸·ù"; break; case "C" : sMode = "¿¹¾à"; break; case "D" : sMode = "¿¹¾àÃë¼Ò"; break; case "E" : sMode = "Á¢¼ö"; break; case "F" : sMode = "Á¢¼öÃë¼Ò"; break; } sMode = sMode + "Á¤º¸¸¦"; if(messageBox(sMode, "Q002") != 6) return -1; //if(fChoiChk() == false) return -1; //ÆÐŰÁö °Ë»çÁß µÑÁß Çϳª¸¦ ¹ÝµíÀÌ ¼±ÅÃÇØ¾ßÇÏ´Â °Ë»ç üũ(¿¹ : ¼ÒÈ­±â ³»½Ã°æ ÆÐŰÁö) //setInputNodeCurText(); if(fCheckPatInfo() == false) return -1; if(!fCheckAcpt(vMode)) return -1; var vPidYN = "Y"; //¿¹¾à/¿¹¾àº¸·ù´Â µî·Ï¹øÈ£ »ý¼ºÇÏÁö ¾ÊÀ½. if((vMode == "A") || (vMode == "B")){ vPidYN = "N"; } /* * ¼öÁøÀÚÁ¤º¸ */ model.setValue("/root/main/info/patinfo/item/pidcretfg" , vPidYN); model.copyNode("/root/send/save" , "/root/main/info/patinfo/item"); fCheckNodeExist("/root/send/save/userid" , true); model.setValue("/root/send/save/userid" , getUserId()); fCheckNodeExist("/root/send/save/instcd" , true); model.setValue("/root/send/save/instcd" , getUserInfo("dutplceinstcd")); /* * ¿¹¾àÁ¢¼öÁ¤º¸ */ fCheckNodeExist("/root/main/info/rsrvacptinfo/item/mode" , true ); model.setValue("/root/main/info/rsrvacptinfo/item/mode" , vMode); fCheckNodeExist("/root/main/info/rsrvacptinfo/item/healexamflag" , true ); model.setValue("/root/main/info/rsrvacptinfo/item/healexamflag" , vHealExamFlag); model.duplicate("/root/send/save" , "/root/main/info/rsrvacptinfo/item"); model.makeValue("/root/send/save/item/ownbamt" , model.getValue("/root/main/info/rcptinfo/ownbamt")); model.makeValue("/root/send/save/pkgcd" , model.getValue("/root/main/info/rsrvacptinfo/item/pkgcd")); model.makeValue("/root/send/save/cmpyflag" , model.getValue("/root/main/info/rsrvacptinfo/item/cmpyflag")); model.makeValue("/root/send/save/cmpycd" , model.getValue("/root/main/info/rsrvacptinfo/item/cmpycd")); model.makeValue("/root/send/save/conseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conseq")); model.makeValue("/root/send/save/conhistseq" , model.getValue("/root/main/info/rsrvacptinfo/item/conhistseq")); model.makeValue("/root/send/save/choiflag" , model.getValue("/root/main/info/rsrvacptinfo/item/choiflag")); model.makeValue("/root/send/save/zipcdseq1" , model.getValue("/root/main/info/patinfo/item/zipcdseq1")); model.makeValue("/root/send/save/zipcdseq2" , model.getValue("/root/main/info/patinfo/item/zipcdseq2")); model.makeValue("/root/send/save/clntempid" , model.getValue("/root/main/info/rsrvacptinfo/item/clntempid")); model.makeValue("/root/send/save/clntpos" , model.getValue("/root/main/info/rsrvacptinfo/item/clntpos")); model.makeValue("/root/send/save/patm_brthareacnts" , model.getValue("/root/main/info/patinfo/item/brthareacnts")); model.makeValue("/root/send/save/acpt_brthareacnts" , model.getValue("/root/main/info/rsrvacptinfo/item/brthareacnts")); /* * RFID */ fCheckNodeExist("/root/send/save" , true ); model.makeValue("/root/send/save/taginfo/rtime" ,model.getValue("/root/main/info/taginfo/rtime")); model.makeValue("/root/send/save/taginfo/tagno" ,model.getValue("/root/main/info/taginfo/tagno")); model.makeValue("/root/send/save/taginfo/suppstat" ,model.getValue("/root/main/info/taginfo/suppstat")); /* * °á°ú»ó´ã ¿¹¾à³»¿ª ÀúÀå */ //¿¹¾à ¹× Á¢¼öÃë¼ÒÀϰæ¿ì ÇöÀç ÀÌÈÄÀÇ ¿¹¾àÀÌ¸ç °á°ú»ó´ãÀÌ ¿Ï·áµÇÁö ¾ÊÀº ³»¿ªÀº »èÁ¦ÇÕ´Ï´Ù. if(vMode == "F"|| vMode == "D"){ var rsltRsrvCnt = getNodesetCount("/root/main/info/rsltcnstinfo/cnstlst/cnst"); for(var i=1; i<=rsltRsrvCnt; i++){ var cnstEndYN = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstendyn"); var rsltCnstDD = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstdd"); var rsltCnstRsrvStarttm = model.getValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltcnstrsrvstarttm"); var dtRsrvdd = (rsltCnstDD + " " + rsltCnstRsrvStarttm + "00" ).toDate("YYYYMMDD hhmmss"); if((cnstEndYN == "N" || cnstEndYN == "") && dtRsrvdd > getCurrentDateTime().toDate("YYYYMMDD hhmmss")){ model.setValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/m" ,"d"); model.setValue("/root/main/info/rsltcnstinfo/cnstlst/cnst[" + i + "]/rsltrsrvsaveyn" ,"N"); } } } var rsltRsrvList = instance1.selectNodes("/root/main/info/rsltcnstinfo/cnstlst/cnst[rsltrsrvsaveyn='N']"); model.makeNode("/root/send/save/rsltsave"); model.makeValue("/root/send/save/rsltsave/rsltrsrv" , getNodeListCSV(rsltRsrvList)); /* * Ãß°¡°Ë»çÁ¤º¸ * Á¾°ËÀ» Á¦¿ÜÇÑ ³ª¸ÓÁö °ËÁøÀº ¼±ÅÃµÈ ÇÁ·ÎÆÄÀÏÀ» Ãß°¡°Ë»çÁ¤º¸¿¡ °¡Áö°í ÀÖÀ¸¹Ç·Î ¿©±â¼­ »èÁ¦ÇÑ´Ù */ /* if(model.getValue("/root/main/info/rsrvacptinfo/item/healexamflag") == "G"){ for(i=1; i