| |
| | [No title] (Site not responding. Last check: 2007-10-21) |
 | | Please re-try your query.\n"); $db->disconnect; print end_html(); exit; } #execute statement $statement->execute; #bind columns #returning variables from operation table entries into varibles $statement->bind_columns(undef, \($id, $patient, $pt_name, $odate, $oplength, $surg1, $surg2, $surg3, $cpt1, $cpt2, $cpt1desc, $cpt2desc, $cpt1_rrcs, $cpt2_rrcs, $icd9pre1, $icd9pre2, $icd9pre1desc, $icd9pre2desc, $icd9post1, $icd9post2, $icd9post1desc, $icd9post2desc)); print $pt_name. |
 | | "\""; }elsif (($name eq "odate") && ($Q::odate ne "")){ $value = "\"". |
 | | "; } } ####################### Function: addRecord #################################### sub addRecord { $insertString = "insert into operation2 "; $fieldString = '(oplength, odate, pt_name, patient, primary_surg, attend_surg, surg3, cpt1, cpt2, cpt1desc, cpt2desc, icd9pre1, icd9pre2, icd9pre1desc, icd9pre2desc, icd9post1, icd9post2, icd9post1desc, icd9post2desc, cpt1_rrcs, cpt2_rrcs) values '; $valueString = '("'. |
| www.surgery.uiowa.edu /surgery/surgeon_dbase/su_base.html (609 words) |
|