include "./inc_top.html"; @extract($_GET); ?> $dbcon = OCILogon("khmc", "Kyunghee!1971", "khmcwdb" ,"AL32UTF8"); switch ( $hospital ) { case "md" : $table = "introduction"; //$section_code = "가정의학과,1^감염면역내과,2^내분비대사센터,3^관절류마티스내과,4^소화기센터,5^심장내과,6^신장내과,7^종양혈액내과,8^호흡기내과,9^마취통증의학과,10^병리과,11^비뇨의학과,12^산부인과,13^직업환경의학과,14^소아청소년과,15^신경과,16^정신건강의학과,17^안과,18^위·장관외과,19^대장·항문외과,20^간담도췌장외과,21^유방외과,22^갑상선-내분비외과,39^이식·혈관외과,23^소아외과,24^성인탈장외과,25^성형외과,26^신경외과,27^정형외과,28^흉부외과,29^응급의학과,30^이비인후과,32^재활의학과,33^진단검사의학과,34^영상의학과,35^피부과,36^핵의학과,37^방사선종양학과,38"; $section_code = "가정의학과,1^감염면역내과,2^내분비내과,3^관절류마티스내과,4^마취통증의학과,10^방사선종양학과,38^병리과,11^비뇨의학과,12^산부인과,13^성형외과,26^소아청소년과,15^소화기내과,5^심장혈관센터,6^신경과,16^신경외과,27^신장내과,7^안과,18^영상의학과,35^간담도췌장외과,21^갑상선-내분비외과,39^대장·항문외과,20^성인탈장외과,25^소아외과,24^위·장관외과,19^유방외과,22^이식·혈관외과,23^응급의학과,30^의용공학과,31^이비인후과,32^재활의학과,33^정신건강의학과,17^정형외과,28^종양혈액내과,8^직업환경의학과,14^진단검사의학과,34^피부과,36^핵의학과,37^호흡기알레르기내과,9^흉부외과,29"; break; case "dm" : $table = "introduction2"; //$section_code = "보존과,5^보철과,6^구강악안면외과,4^소아치과,7^치주과,8^교정과,1^영상치의학과,3^구강내과,2"; $section_code = "교정과,1^구강내과,2^구강악안면외과,4^보존과,5^보철과,6^소아치과,7^영상치의학과,3^치주과,8"; break; case "om" : $table = "introduction3"; //$section_code = "간장 · 조혈내과,1^순환 · 신경내과,2^위장 · 소화내과,3^폐장 · 호흡내과,4^신장 · 내분비내과,5^한방여성의학센터,6^한방소아청소년센터,7^한방피부과,8^한방안이비인후과,9^한방신경정신과,10^사상체질과,11^한방재활의학과,12^침구과,13^진단생기능의학실,14^동서협진실,15"; $section_code = "간장 · 조혈내과,1^순환 · 신경내과,2^위장 · 소화내과,3^폐장 · 호흡내과,4^신장 · 내분비내과,5^동서협진실,15^한방여성의학센터,6^사상체질과,11^한방소아청소년센터,7^한방신경정신과,10^한방안·이비인후과,9^한방재활의학과,12^진단생기능의학실,14^침구과,13^한방피부과,8"; break; default : $hospital = "md"; $table = "introduction"; //$section_code = "가정의학과,1^감염면역내과,2^내분비대사센터,3^관절류마티스내과,4^소화기센터,5^심장내과,6^신장내과,7^종양혈액내과,8^호흡기내과,9^마취통증의학과,10^병리과,11^비뇨의학과,12^산부인과,13^직업환경의학과,14^소아청소년과,15^신경과,16^정신건강의학과,17^안과,18^위·장관외과,19^대장·항문외과,20^간담도췌장외과,21^유방외과,22^갑상선-내분비외과,39^이식·혈관외과,23^소아외과,24^성인탈장외과,25^성형외과,26^신경외과,27^정형외과,28^흉부외과,29^응급의학과,30^의용공학과,31^이비인후과,32^재활의학과,33^진단검사의학과,34^영상의학과,35^피부과,36^핵의학과,37^방사선종양학과,38"; $section_code = "가정의학과,1^감염면역내과,2^내분비내과,3^관절류마티스내과,4^마취통증의학과,10^방사선종양학과,38^병리과,11^비뇨의학과,12^산부인과,13^성형외과,26^소아청소년과,15^소화기내과,5^심장혈관센터,6^신경과,16^신경외과,27^신장내과,7^안과,18^영상의학과,35^간담도췌장외과,21^갑상선-내분비외과,39^대장·항문외과,20^성인탈장외과,25^소아외과,24^위·장관외과,19^유방외과,22^이식·혈관외과,23^응급의학과,30^이비인후과,32^재활의학과,33^정신건강의학과,17^정형외과,28^종양혈액내과,8^직업환경의학과,14^진단검사의학과,34^피부과,36^핵의학과,37^호흡기알레르기내과,9^흉부외과,29"; } $wsql.= "WHERE 1=1 "; $stid = OCIParse($dbcon, " SELECT * FROM {$table} a ORDER BY section ASC, num ASC "); OCIExecute($stid); $section_code = explode("^", $section_code); for( $i = 0 ; $i < count($section_code) ; $i++ ) { $tmp = explode(",", $section_code[$i]); $t_code[$tmp[1]]["dept_name"] = $tmp[0]; $t_code[$tmp[1]]["doctor"] = array(); } while(OCIFetchInto($stid, $res, OCI_ASSOC+OCI_RETURN_NULLS)) { $keys = array_keys($res); for($kcnt = 0 ; $kcnt < count($keys) ; $kcnt++) { $res[$keys[$kcnt]] = str_replace('"', '"', stripslashes($res[$keys[$kcnt]])); } if ( is_array($t_code[$res[SECTION]]["doctor"]) ) { $t_code["$res[SECTION]"]["doctor"][] = $res; } } ?>
{$dt[TITLE]}
"; echo "