longmatch
Programmer
- Nov 1, 2001
- 406
I used a form for data input. Sometimes users need to go back to edit their data when they found there is error in data input. How to do this?
Haijun
Haijun
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to bring data back to original form for editing?
- Thread starter longmatch
- Start date
- Status
Jonax
Programmer
- Aug 22, 2001
- 210
You retrieve the relevant data from the database and insert it as VALUE-attributes of the form fields.
That is: If your form contains TEXTAREAs the content from the db goes between the opening and the closing tags. This is not a bug - it's an undocumented feature...
;-)
That is: If your form contains TEXTAREAs the content from the db goes between the opening and the closing tags. This is not a bug - it's an undocumented feature...
;-)
- Thread starter
- #4
longmatch
Programmer
- Nov 1, 2001
- 406
Please find my form code, it is a little bit longer. As for the datbase code, I will give you in next reply.
Thanks
Haijun
Form code.
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Procedure collection data </TITLE>
</HEAD>
<BODY bgcolor=GreenYellow>
<form Name="ProcedureData" method="post" Action = AddNewData.asp onsubmit= "return validation();" language="jscript">
<TABLE WIDTH=60% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center bgcolor=LightSkyBlue>
<TR>
<TD>Date of Procedure</TD>
<TD><INPUT type="text" id=text1 name=DateofProc value ="<%= session("DateofProc"
%>"></TD>
</TR>
<TR>
<TD><b>Resident Information</b></TD>
<TD></TD>
</TR>
<TR>
<TD>Resident Name</TD>
<TD><SELECT size=1 id=select1 name=ResidentName VALUE="<%= session("ResidentName"%>" >
<OPTION> </OPTION>
<OPTION>Cardarelli, Robert</OPTION>
<OPTION>De Leon, Berta</OPTION>
<option>Lee, William</option>
</SELECT></TD></TR>
<TR>
<TD>Rotation Location</TD>
<TD><SELECT size=1 id=select2 name=Rotation VALUE="<%= session("Rotation"%>">
<option> </option>
<option>Family Medicine In-patient Service 3--NW</option>
<option>Family Medicine Orientation</option>
<option>Family Practice Center--BFM</option>
<option>Family Practice Center--Kelsey-Seybold</option>
<option>Family Practice Center--Northwest</option>
<option>Family Psychology</option>
<option>General Medicine Wards</option>
<option>General Surgery</option>
<option>Geriatric - Nursing Home</option>
<option>Geriatrics--Outpatient</option>
<option>Gynecology</option>
<option>Medical Intensive Care Unit</option>
<option>Neonatology</option>
<option>Neurology</option>
<option>Obstetrics Triage</option>
<option>Obstetrics--Night Call</option>
<option>Obstetrics--Night Call & Obstetrics Triage</option>
<option>Ophthalmology</option>
<option>Orthopedics</option>
<option>Pediatric ER</option>
<option>Pediatric Sub-specialty</option>
<option>Pediatric Ward</option>
<option>Pediatrics, Ambulatory</option>
<option>Pediatrics, Inpatient</option>
<option>Sports Medicine</option>
<option>Surgery ER</option>
<option>Urology</option>
<option>Women's Health--Gyn</option>
<option>Women's Health--OB</option>
<option>Women's Health--OB/Gyn</option>
</SELECT></TD>
</TR>
<TR>
<TD><b>Patient information</b></TD>
<TD></TD>
</TR>
<TR>
<TD>Patient First Name</TD>
<TD><INPUT type="text" id=text4 name=PtFirstName VALUE="<%= session("PtFirstName"%>"></TD>
</TR>
<TR>
<TD>Patient Last Name</TD>
<TD><INPUT type="text" id=text2 name=PtLastName VALUE="<%= session("PtLastName"%>" ></TD>
</TR>
<TR>
<TD>Date of Birth</TD>
<TD><INPUT type="text" id=text3 name=DOB VALUE="<%= session("DOB"%>"></TD>
</TR>
<TR>
<TD>Sex</TD>
<TD><SELECT size=1 id=select3 name=Sex VALUE="<%= session("Sex"%>">
<option> </option>
<OPTION>Male</OPTION>
<OPTION>Female</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Location</TD>
<TD><SELECT size=1 id=select4 name=Location VALUE="<%= session("Locatioin"%>">
<option> </option>
<OPTION>Seven Acres Nursing Home</OPTION>
<OPTION>Advance Credit Given</OPTION>
<OPTION>Antoine Clinic</OPTION>
<OPTION>Baylor Family Medicine</OPTION>
<OPTION>Ben Taub General Hospital</OPTION>
<OPTION>Casa de Amigos</OPTION>
<OPTION>Gulfgate Health Center</OPTION>
<OPTION>MLK Health Center</OPTION>
<OPTION>Northwest Health Center</OPTION>
<OPTION>People's Health Center</OPTION>
<OPTION>Strawberry Health Center</OPTION>
<OPTION>International</OPTION>
<OPTION>Kelsey Seybold</OPTION>
<OPTION>The Lord of the Streets</OPTION>
<OPTION>M.D. Anderson Cencer Center</OPTION>
<OPTION>Methodist Hospital</OPTION>
<OPTION>Nursing Home--Other</OPTION>
<OPTION>Private Practice</OPTION>
<OPTION>Quentin Meese</OPTION>
<OPTION>Rural Practice</OPTION>
<OPTION>S.E.A.R.C.H. Homeless Clinic</OPTION>
<OPTION>Saint Luke's Episcopal Hospital</OPTION>
<OPTION>Star of Hope</OPTION>
<OPTION>Texas Childrens' Hospital</OPTION>
<OPTION>Thomas Street Clinic</OPTION>
<OPTION>Veterans Affairs Medical Center</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD>Medical Record No</TD>
<TD><INPUT type="text" id=text5 name=MedRedNo VALUE="<%= session("MedRedNo"%>"></TD>
</TR>
<TR>
<TD>Continuity Patient</TD>
<TD><INPUT type="checkbox" id=checkbox1 name=Continuity VALUE=<%= session("Continuity"%>></TD>
</TR>
<TR>
<%
if Request.Form("continuity".value = checked then
%>
<TD><B>Procedure Information</B></TD>
<TD></TD>
</TR>
<TR>
<TD>Category</TD>
<TD><select name="Category" onChange="populateProcedure(document.ProcedureData,document.ProcedureData.Category.options[document.ProcedureData.Category.selectedIndex].value)">
<option selected value=''>Select Category</option>
<option value='Behavioral'>Behavioral Science</option>
<option value='GYNM'>GYN Management</option>
<option value='GYNP'>GYN Procedures</option>
<option value='MedicineD'>Medicine Diagnosis</option>
<option value='MedicineP'>Medicine Procedures</option>
<option value='OBD'>OB Diagnosis/Management</option>
<option value='OBP'>OB Procedures</option>
<option value='Orthopedics'>Orthopedics</option>
<option value='PediatricsN'>Pediatrics/Neonatal</option>
<option value='Surgery'>Surgery</option>
</select></TD>
<TR>
<TD>Procedure</TD>
<TD><select name="Procedure">
<option value=''><--------------------</option>
</select></TD>
</TR>
<TR>
<TD>Involvement</TD>
<TD><SELECT size=1 id=select7 name=Involvement VALUE="<%= session("Involvement"%>">
<option> </option>
<OPTION>Assisted</OPTION>
<OPTION>Performed</OPTION>
<OPTION>Supervised</OPTION>
<OPTION>Independent Performance</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Topic category</TD>
<TD><SELECT size=1 id=select8 name=TopicCategory VALUE="<%= session("TopicCategory"%>">
<option> </option>
<OPTION>New Problem</OPTION>
<OPTION>Check-up</OPTION>
<OPTION>Chronic Illness</OPTION>
<OPTION>Psychological</OPTION>
<OPTION>Behavior Change</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Did you follow the TOPIC model?</TD>
<TD><INPUT type="checkbox" id=checkbox2 name=didYouFollowTheTopicModel VALUE="<%= session("didYouFollowTheTopicModel"%>"></TD>
</TR>
<TR>
<TD>Supervisor</TD>
<TD><INPUT type="text" id=text6 name=Supervisor VALUE="<%= session("Supervisor"%>"></TD>
</TR>
<TR>
<TD>Other information</TD>
<TD><TEXTAREA rows=2 cols=20 id=textarea1 name=OtherInfo VALUE="<%= session("OtherInfo"%>">
</TEXTAREA></TD>
</TR>
<TR>
<TD>Faculty in charge</TD>
<TD><INPUT type="text" id=text7 name=FacultyIncharge VALUE="<%= session("FacultyInCharge"%>"></TD>
</TR>
<TR>
<TD>Observed by</TD>
<TD><SELECT size=1 id=select9 name=ObservedBy VALUE="<%= session("ObservedBy"%>">
<option> </option>
<OPTION>Faculty Memeber</OPTION>
<OPTION>Upper Level Resident</OPTION>
<OPTION>Other</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Comments</TD>
<TD><TEXTAREA rows=2 cols=20 id=textarea2 name=Comments VALUE="<%= session("Comments"%>">
</TEXTAREA></TD>
</TR>
<TR>
<TD>Other procedure?</TD>
</TR>
<TR>
<TD><INPUT type="submit" value="Submit Your Procedure" id=submit1 name=submit1></TD>
<TD><INPUT type="reset" value="Reset" id=reset1 name=reset1></TD>
<input type=hidden name="required" value="DateofProc,ResidentName,Rotation, PtFirstName, PtLastName, DOB, Sex, Location, & _
MedRedNo, Continuity, Category, Procedure1, Involvement">
</TABLE>
</form>
</BODY>
</HTML>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var BehavioralArray = new Array("('Select Procedure','',true,true)",
"('Depression, Major')",
"('Family Counseling')",
"('Family Management')",
"('Generalized Anxiety Disorder')",
"('Individual Consultation')",
"('Panic Disorder')",
"('Psychosis, Acute')",
"('Suicide Tendency')"
var GYNMArray = new Array("('Select Procedure','',true,true)",
"('Abnormal PAPs')",
"('Dysfunctional Uterine Bleeding')",
"('Ectopic pregnancy')",
"('Endometrial cancer')",
"('Infertility')",
"('PID')",
"('Sexual assault')",
"('Trauma of reproductive system')"
var GYNPArray = new Array("('Select Procedure','',true,true)",
"('Bartholin Duct Cyst Aspiration')",
"('Bartholin Duct Cyst Marsupialization')",
"('BTL')",
"('Cervical Biopsy')",
"('Colposcopy')",
"('Cryotherapy')",
"('Diaphragms Fitting ')",
"('Dilation Curettage')",
"('Ectopic management')",
"('Endometrial Biopsy')",
"('IUD placement')",
"('IUD removal')",
"('Leep')",
"('Polypectomy')",
"('Subcutaneous Contraception Implant')",
"('Subcutaneous Contraception Removal')",
"('Transvaginal USG')",
"('Vulvar Lesion Biopsy')"
var MedicineDArray = new Array("('Select Procedure','',true,true)",
"('Acute Abdomen')",
"('Acute Myocardial Infarction')",
"('Acute Renal Failure(Medicine DX/Pro)')",
"('AIDS')",
"('Asthma Exacerbation')",
"('CCU-ICU Management')",
"('Congestive Heart Failure')",
"('Deep Venous Thrombosis')",
"('Diabetic Ketoacidosis Management')",
"('Gastrointestinal Bleeding')",
"('Pulmonary Edema')",
"('Pulmonary Embolus')",
"('Sepsis (Medicine DX/Pro)')",
"('Shock')",
"('Stroke')",
"('Thyroid Storm (Acute thyrotoxicosis)')"
var MedicinePArray = new Array("('Select Procedure','',true,true)",
"('Arterial Line Placement')",
"('Central Line Placement')",
"('Flexible Sigmoidoscopy')",
"('Lumbar Puncture')",
"('Paracentesis')",
"('Stress Test ECG')",
"('Thoracentesis')"
var OBDArray = new Array("('Select Procedure','',true,true)",
"('1st trimester ultrasound')",
"('2nd trimester ultrasound')",
"('3rd trimester ultrasound')",
"('Bleeding in the first trimester')",
"('Bleeding in the second trimester')",
"('Bleeding in the third trimester')",
"('Breastfeeding counseling')",
"('Chorioamnionitis')",
"('Postpartum Fever')",
"('Postpartum Hemorrhage')",
"('Pregnancy-Induced Hypertension')",
"('Premature Rupture of Membranes')",
"('Preterm Labor')",
"('Resuscitation')",
"('Shoulder Dystocia')",
"('Urinary Tract Infection in Pregnancy')"
var OBPArray = new Array("('Select Procedure','',true,true)",
"('Amniotomy')",
"('Episiotomy ')",
"('Forceps delivery')",
"('IUPC placement')",
"('Labor Induction')",
"('Normal vaginal delivery')",
"('Oxytocin for augumentation of labor')",
"('perineal laceration repair')",
"('Placement of fetal scalp electrode')",
"('vacuum delivery')"
var OrthopedicsArray = new Array("('Select Procedure','',true,true)",
"('Arthrocentesis Injection')",
"('Carpal Tunnel Injury')",
"('Casting')",
"('Closed Colles Fracture with Manipulation')",
"('Closed Colles Fracture without Manipulation')",
"('Compound Fracture with Surgery')",
"('Debride (Orthopedics)')",
"('Dislocation')",
"('Ganglion Cyst - Aspiration')",
"('Ortho - Other')",
"('Shoulder Immobilization')"
var PediatricsNArray = new Array("('Select Procedure','',true,true)",
"('ABGs (Pediatric/Neonatal)')",
"('Chest Tube (Pediatric/Neonatal)')",
"('Circumcision (Pediatric/Neonatal)')",
"('CPR (Pediatric/Neonatal)')",
"('Exchange Transfusion (Pediatric/Neonatal)')",
"('IV Place (Pediatric/Neonatal)')",
"('LP (Pediatric/Neonatal)')",
"('PED/NEO - Other (Precedural)')",
"('Supra Pub Bld Aspiration (Pediatric/Neonatal)')",
"('UmbilCath -A (Pediatric/Neonatal)')",
"('UmbilCath -V (Pediatric/Neonatal)')",
"('Venipuncture (Pediatric/Neonatal)')"
var SurgeryArray = new Array("('Select Procedure','',true,true)",
"('Appendectomy')",
"('Biopsy/Skin-Excision')",
"('Biopsy/Skin-Punch-Shave')",
"('Chalazion Excision')",
"('Cryotherapy Treatment - Warts')",
"('Debridement')",
"('Foreign Body Removal')",
"('Foreign Body Removal-Eye')",
"('Hemorrhoid Banding')",
"('Hickman Catheter')",
"('Incision and Drainage - Other')",
"('Incision and Drainage - PeriRectal')",
"('Incision and Drainage - Pilonidal')",
"('Laceration - Complex')",
"('Laceration - Eyelid')",
"('Laceration - Simple')",
"('Nail Removal')",
"('Surg - Other')",
"('Trauma, Head')",
"('Trauma, Multiple')",
"('Unlisted Procedure')",
"('Vasectomy')"
function populateProcedure(inForm,selected) {
var selectedArray = eval(selected + "Array"
while (selectedArray.length < inForm.Procedure.options.length) {
inForm.Procedure.options[(inForm.Procedure.options.length - 1)] = null;
}
for (var i=0; i < selectedArray.length; i++) {
eval("inForm.Procedure.options=" + "new Option" + selectedArray);
}
if (inForm.Category.options[0].value == '') {
inForm.Category.options[0]= null;
if ( navigator.appName == 'Netscape') {
if (parseInt(navigator.appVersion) < 4) {
window.history.go(0);
}
else {
if (navigator.platform == 'Win32' || navigator.platform == 'Win16') {
window.history.go(0);
}
}
}
}
}
// End -->
</script>
<script language="vbscript">
<!--
function validation()
if not(isdate(document.ProcedureData.dateofProc.value)) then
msgbox "not a correct date format", 1
validation = false
else
validation = true
end if
if not(isdate(document.ProcedureData.DOB.value)) then
msgbox "Please enter correct date format", 1
validation = false
else
validation = true
end if
if not(isNumeric(document.ProcedureData.MedRedNo.value)) then
msgbox " Medical Record should be a number", 1
validation = false
else
validation = true
end if
end function
if document.ProcedureData.continuity.value = true then
continuity = true
else
continuity = false
end if
-->
</script>
Thanks
Haijun
Form code.
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Procedure collection data </TITLE>
</HEAD>
<BODY bgcolor=GreenYellow>
<form Name="ProcedureData" method="post" Action = AddNewData.asp onsubmit= "return validation();" language="jscript">
<TABLE WIDTH=60% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center bgcolor=LightSkyBlue>
<TR>
<TD>Date of Procedure</TD>
<TD><INPUT type="text" id=text1 name=DateofProc value ="<%= session("DateofProc"
%>"></TD></TR>
<TR>
<TD><b>Resident Information</b></TD>
<TD></TD>
</TR>
<TR>
<TD>Resident Name</TD>
<TD><SELECT size=1 id=select1 name=ResidentName VALUE="<%= session("ResidentName"
%>" ><OPTION> </OPTION>
<OPTION>Cardarelli, Robert</OPTION>
<OPTION>De Leon, Berta</OPTION>
<option>Lee, William</option>
</SELECT></TD></TR>
<TR>
<TD>Rotation Location</TD>
<TD><SELECT size=1 id=select2 name=Rotation VALUE="<%= session("Rotation"
%>"><option> </option>
<option>Family Medicine In-patient Service 3--NW</option>
<option>Family Medicine Orientation</option>
<option>Family Practice Center--BFM</option>
<option>Family Practice Center--Kelsey-Seybold</option>
<option>Family Practice Center--Northwest</option>
<option>Family Psychology</option>
<option>General Medicine Wards</option>
<option>General Surgery</option>
<option>Geriatric - Nursing Home</option>
<option>Geriatrics--Outpatient</option>
<option>Gynecology</option>
<option>Medical Intensive Care Unit</option>
<option>Neonatology</option>
<option>Neurology</option>
<option>Obstetrics Triage</option>
<option>Obstetrics--Night Call</option>
<option>Obstetrics--Night Call & Obstetrics Triage</option>
<option>Ophthalmology</option>
<option>Orthopedics</option>
<option>Pediatric ER</option>
<option>Pediatric Sub-specialty</option>
<option>Pediatric Ward</option>
<option>Pediatrics, Ambulatory</option>
<option>Pediatrics, Inpatient</option>
<option>Sports Medicine</option>
<option>Surgery ER</option>
<option>Urology</option>
<option>Women's Health--Gyn</option>
<option>Women's Health--OB</option>
<option>Women's Health--OB/Gyn</option>
</SELECT></TD>
</TR>
<TR>
<TD><b>Patient information</b></TD>
<TD></TD>
</TR>
<TR>
<TD>Patient First Name</TD>
<TD><INPUT type="text" id=text4 name=PtFirstName VALUE="<%= session("PtFirstName"
%>"></TD></TR>
<TR>
<TD>Patient Last Name</TD>
<TD><INPUT type="text" id=text2 name=PtLastName VALUE="<%= session("PtLastName"
%>" ></TD></TR>
<TR>
<TD>Date of Birth</TD>
<TD><INPUT type="text" id=text3 name=DOB VALUE="<%= session("DOB"
%>"></TD></TR>
<TR>
<TD>Sex</TD>
<TD><SELECT size=1 id=select3 name=Sex VALUE="<%= session("Sex"
%>"><option> </option>
<OPTION>Male</OPTION>
<OPTION>Female</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Location</TD>
<TD><SELECT size=1 id=select4 name=Location VALUE="<%= session("Locatioin"
%>"><option> </option>
<OPTION>Seven Acres Nursing Home</OPTION>
<OPTION>Advance Credit Given</OPTION>
<OPTION>Antoine Clinic</OPTION>
<OPTION>Baylor Family Medicine</OPTION>
<OPTION>Ben Taub General Hospital</OPTION>
<OPTION>Casa de Amigos</OPTION>
<OPTION>Gulfgate Health Center</OPTION>
<OPTION>MLK Health Center</OPTION>
<OPTION>Northwest Health Center</OPTION>
<OPTION>People's Health Center</OPTION>
<OPTION>Strawberry Health Center</OPTION>
<OPTION>International</OPTION>
<OPTION>Kelsey Seybold</OPTION>
<OPTION>The Lord of the Streets</OPTION>
<OPTION>M.D. Anderson Cencer Center</OPTION>
<OPTION>Methodist Hospital</OPTION>
<OPTION>Nursing Home--Other</OPTION>
<OPTION>Private Practice</OPTION>
<OPTION>Quentin Meese</OPTION>
<OPTION>Rural Practice</OPTION>
<OPTION>S.E.A.R.C.H. Homeless Clinic</OPTION>
<OPTION>Saint Luke's Episcopal Hospital</OPTION>
<OPTION>Star of Hope</OPTION>
<OPTION>Texas Childrens' Hospital</OPTION>
<OPTION>Thomas Street Clinic</OPTION>
<OPTION>Veterans Affairs Medical Center</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD>Medical Record No</TD>
<TD><INPUT type="text" id=text5 name=MedRedNo VALUE="<%= session("MedRedNo"
%>"></TD></TR>
<TR>
<TD>Continuity Patient</TD>
<TD><INPUT type="checkbox" id=checkbox1 name=Continuity VALUE=<%= session("Continuity"
%>></TD></TR>
<TR>
<%
if Request.Form("continuity"
.value = checked then%>
<TD><B>Procedure Information</B></TD>
<TD></TD>
</TR>
<TR>
<TD>Category</TD>
<TD><select name="Category" onChange="populateProcedure(document.ProcedureData,document.ProcedureData.Category.options[document.ProcedureData.Category.selectedIndex].value)">
<option selected value=''>Select Category</option>
<option value='Behavioral'>Behavioral Science</option>
<option value='GYNM'>GYN Management</option>
<option value='GYNP'>GYN Procedures</option>
<option value='MedicineD'>Medicine Diagnosis</option>
<option value='MedicineP'>Medicine Procedures</option>
<option value='OBD'>OB Diagnosis/Management</option>
<option value='OBP'>OB Procedures</option>
<option value='Orthopedics'>Orthopedics</option>
<option value='PediatricsN'>Pediatrics/Neonatal</option>
<option value='Surgery'>Surgery</option>
</select></TD>
<TR>
<TD>Procedure</TD>
<TD><select name="Procedure">
<option value=''><--------------------</option>
</select></TD>
</TR>
<TR>
<TD>Involvement</TD>
<TD><SELECT size=1 id=select7 name=Involvement VALUE="<%= session("Involvement"
%>"><option> </option>
<OPTION>Assisted</OPTION>
<OPTION>Performed</OPTION>
<OPTION>Supervised</OPTION>
<OPTION>Independent Performance</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Topic category</TD>
<TD><SELECT size=1 id=select8 name=TopicCategory VALUE="<%= session("TopicCategory"
%>"><option> </option>
<OPTION>New Problem</OPTION>
<OPTION>Check-up</OPTION>
<OPTION>Chronic Illness</OPTION>
<OPTION>Psychological</OPTION>
<OPTION>Behavior Change</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Did you follow the TOPIC model?</TD>
<TD><INPUT type="checkbox" id=checkbox2 name=didYouFollowTheTopicModel VALUE="<%= session("didYouFollowTheTopicModel"
%>"></TD></TR>
<TR>
<TD>Supervisor</TD>
<TD><INPUT type="text" id=text6 name=Supervisor VALUE="<%= session("Supervisor"
%>"></TD></TR>
<TR>
<TD>Other information</TD>
<TD><TEXTAREA rows=2 cols=20 id=textarea1 name=OtherInfo VALUE="<%= session("OtherInfo"
%>"></TEXTAREA></TD>
</TR>
<TR>
<TD>Faculty in charge</TD>
<TD><INPUT type="text" id=text7 name=FacultyIncharge VALUE="<%= session("FacultyInCharge"
%>"></TD></TR>
<TR>
<TD>Observed by</TD>
<TD><SELECT size=1 id=select9 name=ObservedBy VALUE="<%= session("ObservedBy"
%>"><option> </option>
<OPTION>Faculty Memeber</OPTION>
<OPTION>Upper Level Resident</OPTION>
<OPTION>Other</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>Comments</TD>
<TD><TEXTAREA rows=2 cols=20 id=textarea2 name=Comments VALUE="<%= session("Comments"
%>"></TEXTAREA></TD>
</TR>
<TR>
<TD>Other procedure?</TD>
</TR>
<TR>
<TD><INPUT type="submit" value="Submit Your Procedure" id=submit1 name=submit1></TD>
<TD><INPUT type="reset" value="Reset" id=reset1 name=reset1></TD>
<input type=hidden name="required" value="DateofProc,ResidentName,Rotation, PtFirstName, PtLastName, DOB, Sex, Location, & _
MedRedNo, Continuity, Category, Procedure1, Involvement">
</TABLE>
</form>
</BODY>
</HTML>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var BehavioralArray = new Array("('Select Procedure','',true,true)",
"('Depression, Major')",
"('Family Counseling')",
"('Family Management')",
"('Generalized Anxiety Disorder')",
"('Individual Consultation')",
"('Panic Disorder')",
"('Psychosis, Acute')",
"('Suicide Tendency')"
;var GYNMArray = new Array("('Select Procedure','',true,true)",
"('Abnormal PAPs')",
"('Dysfunctional Uterine Bleeding')",
"('Ectopic pregnancy')",
"('Endometrial cancer')",
"('Infertility')",
"('PID')",
"('Sexual assault')",
"('Trauma of reproductive system')"
;var GYNPArray = new Array("('Select Procedure','',true,true)",
"('Bartholin Duct Cyst Aspiration')",
"('Bartholin Duct Cyst Marsupialization')",
"('BTL')",
"('Cervical Biopsy')",
"('Colposcopy')",
"('Cryotherapy')",
"('Diaphragms Fitting ')",
"('Dilation Curettage')",
"('Ectopic management')",
"('Endometrial Biopsy')",
"('IUD placement')",
"('IUD removal')",
"('Leep')",
"('Polypectomy')",
"('Subcutaneous Contraception Implant')",
"('Subcutaneous Contraception Removal')",
"('Transvaginal USG')",
"('Vulvar Lesion Biopsy')"
;var MedicineDArray = new Array("('Select Procedure','',true,true)",
"('Acute Abdomen')",
"('Acute Myocardial Infarction')",
"('Acute Renal Failure(Medicine DX/Pro)')",
"('AIDS')",
"('Asthma Exacerbation')",
"('CCU-ICU Management')",
"('Congestive Heart Failure')",
"('Deep Venous Thrombosis')",
"('Diabetic Ketoacidosis Management')",
"('Gastrointestinal Bleeding')",
"('Pulmonary Edema')",
"('Pulmonary Embolus')",
"('Sepsis (Medicine DX/Pro)')",
"('Shock')",
"('Stroke')",
"('Thyroid Storm (Acute thyrotoxicosis)')"
;var MedicinePArray = new Array("('Select Procedure','',true,true)",
"('Arterial Line Placement')",
"('Central Line Placement')",
"('Flexible Sigmoidoscopy')",
"('Lumbar Puncture')",
"('Paracentesis')",
"('Stress Test ECG')",
"('Thoracentesis')"
;var OBDArray = new Array("('Select Procedure','',true,true)",
"('1st trimester ultrasound')",
"('2nd trimester ultrasound')",
"('3rd trimester ultrasound')",
"('Bleeding in the first trimester')",
"('Bleeding in the second trimester')",
"('Bleeding in the third trimester')",
"('Breastfeeding counseling')",
"('Chorioamnionitis')",
"('Postpartum Fever')",
"('Postpartum Hemorrhage')",
"('Pregnancy-Induced Hypertension')",
"('Premature Rupture of Membranes')",
"('Preterm Labor')",
"('Resuscitation')",
"('Shoulder Dystocia')",
"('Urinary Tract Infection in Pregnancy')"
;var OBPArray = new Array("('Select Procedure','',true,true)",
"('Amniotomy')",
"('Episiotomy ')",
"('Forceps delivery')",
"('IUPC placement')",
"('Labor Induction')",
"('Normal vaginal delivery')",
"('Oxytocin for augumentation of labor')",
"('perineal laceration repair')",
"('Placement of fetal scalp electrode')",
"('vacuum delivery')"
;var OrthopedicsArray = new Array("('Select Procedure','',true,true)",
"('Arthrocentesis Injection')",
"('Carpal Tunnel Injury')",
"('Casting')",
"('Closed Colles Fracture with Manipulation')",
"('Closed Colles Fracture without Manipulation')",
"('Compound Fracture with Surgery')",
"('Debride (Orthopedics)')",
"('Dislocation')",
"('Ganglion Cyst - Aspiration')",
"('Ortho - Other')",
"('Shoulder Immobilization')"
;var PediatricsNArray = new Array("('Select Procedure','',true,true)",
"('ABGs (Pediatric/Neonatal)')",
"('Chest Tube (Pediatric/Neonatal)')",
"('Circumcision (Pediatric/Neonatal)')",
"('CPR (Pediatric/Neonatal)')",
"('Exchange Transfusion (Pediatric/Neonatal)')",
"('IV Place (Pediatric/Neonatal)')",
"('LP (Pediatric/Neonatal)')",
"('PED/NEO - Other (Precedural)')",
"('Supra Pub Bld Aspiration (Pediatric/Neonatal)')",
"('UmbilCath -A (Pediatric/Neonatal)')",
"('UmbilCath -V (Pediatric/Neonatal)')",
"('Venipuncture (Pediatric/Neonatal)')"
;var SurgeryArray = new Array("('Select Procedure','',true,true)",
"('Appendectomy')",
"('Biopsy/Skin-Excision')",
"('Biopsy/Skin-Punch-Shave')",
"('Chalazion Excision')",
"('Cryotherapy Treatment - Warts')",
"('Debridement')",
"('Foreign Body Removal')",
"('Foreign Body Removal-Eye')",
"('Hemorrhoid Banding')",
"('Hickman Catheter')",
"('Incision and Drainage - Other')",
"('Incision and Drainage - PeriRectal')",
"('Incision and Drainage - Pilonidal')",
"('Laceration - Complex')",
"('Laceration - Eyelid')",
"('Laceration - Simple')",
"('Nail Removal')",
"('Surg - Other')",
"('Trauma, Head')",
"('Trauma, Multiple')",
"('Unlisted Procedure')",
"('Vasectomy')"
;function populateProcedure(inForm,selected) {
var selectedArray = eval(selected + "Array"
;while (selectedArray.length < inForm.Procedure.options.length) {
inForm.Procedure.options[(inForm.Procedure.options.length - 1)] = null;
}
for (var i=0; i < selectedArray.length; i++) {
eval("inForm.Procedure.options=" + "new Option" + selectedArray);
}
if (inForm.Category.options[0].value == '') {
inForm.Category.options[0]= null;
if ( navigator.appName == 'Netscape') {
if (parseInt(navigator.appVersion) < 4) {
window.history.go(0);
}
else {
if (navigator.platform == 'Win32' || navigator.platform == 'Win16') {
window.history.go(0);
}
}
}
}
}
// End -->
</script>
<script language="vbscript">
<!--
function validation()
if not(isdate(document.ProcedureData.dateofProc.value)) then
msgbox "not a correct date format", 1
validation = false
else
validation = true
end if
if not(isdate(document.ProcedureData.DOB.value)) then
msgbox "Please enter correct date format", 1
validation = false
else
validation = true
end if
if not(isNumeric(document.ProcedureData.MedRedNo.value)) then
msgbox " Medical Record should be a number", 1
validation = false
else
validation = true
end if
end function
if document.ProcedureData.continuity.value = true then
continuity = true
else
continuity = false
end if
-->
</script>
- Thread starter
- #5
longmatch
Programmer
- Nov 1, 2001
- 406
My database code is here.
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\Msado15.dll" -->
<%@ Language = "VBScript"%>
<%
'Declare all local variables
dim conn
dim rs
dim strID
dim strconn
'set a local variable to my DSN-less connection String
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("ProcedureData.mdb"
'Create the Connection object
set conn = server.createobject("adodb.connection"
conn.open strconn
'Create the recordset object
set rs = server.createobject("adodb.recordset"
'This statement opens the table so we can add a record notice the addnew
'The 2, 2 is how the table is opened there are many ways it can be opened
rs.open "FORM_ID_198163500", conn, 2, 2
'Use the addnew method of the recordset object to add a record
rs.addnew
'Set the table column = to my input text box from my form
rs("DateofProc" = request("DateOfProc"
rs("ResidentName" = request("ResidentName"
rs("Rotation" = request("Rotation"
rs("PtFirstName" = request("PtFirstName"
rs("PtLastName" = request("PtLastName"
rs("DOB" = request("DOB"
rs("Sex" = request("Sex"
rs("MedRedNo" = request("MedRedNo"
rs("Continuity" = request("Continuity"
rs("Procedure1" = request("Procedure1"
rs("Involvement" = request("Involvement"
rs("TOPICCategory" = request("TOPICCategory"
'rs("DidYouFollowTheTOPICModel" = request("DidYouFollowTheTOPICModel"
rs("Supervisor" = request("Supervisor"
rs("OtherInfo" = request("OtherInfo"
rs("FacultyInCharge" = request("FacultyInCharge"
rs("ObservedBy" = request("ObservedBy"
rs("Comments" = request("Comments"
rs.update
'I do a movelast here to get the ID that is automatically generated
'I also set the value to a local variable so I can write out to the database
rs.movelast
%>
<html>
<head>
<title>sign on summary</title>
</head>
<body>
<TABLE BORDER=1>
Your Record # is:<% = strID %><br>
Your Name is <% = request("ResidentName" %><br>
Patient First Name is <% = request("PtFirstName" %><br>
Patient Last Name is <% = request("PtLastName" %><br>
continuity patient is <% = request("Continuity" %><br>
</body></html>
<%
'Always! Always set your objects to nothing. This clears them out of servers memory
'Your network admins will like this
set rs= nothing
set conn = nothing
%>
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\System\ado\Msado15.dll" -->
<%@ Language = "VBScript"%>
<%
'Declare all local variables
dim conn
dim rs
dim strID
dim strconn
'set a local variable to my DSN-less connection String
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("ProcedureData.mdb"
'Create the Connection object
set conn = server.createobject("adodb.connection"
conn.open strconn
'Create the recordset object
set rs = server.createobject("adodb.recordset"
'This statement opens the table so we can add a record notice the addnew
'The 2, 2 is how the table is opened there are many ways it can be opened
rs.open "FORM_ID_198163500", conn, 2, 2
'Use the addnew method of the recordset object to add a record
rs.addnew
'Set the table column = to my input text box from my form
rs("DateofProc"
= request("DateOfProc" rs("ResidentName"
= request("ResidentName"rs("Rotation"
= request("Rotation"rs("PtFirstName"
= request("PtFirstName"rs("PtLastName"
= request("PtLastName"rs("DOB"
= request("DOB"rs("Sex"
= request("Sex"rs("MedRedNo"
= request("MedRedNo"rs("Continuity"
= request("Continuity"rs("Procedure1"
= request("Procedure1"rs("Involvement"
= request("Involvement"rs("TOPICCategory"
= request("TOPICCategory"'rs("DidYouFollowTheTOPICModel"
= request("DidYouFollowTheTOPICModel"rs("Supervisor"
= request("Supervisor"rs("OtherInfo"
= request("OtherInfo"rs("FacultyInCharge"
= request("FacultyInCharge"rs("ObservedBy"
= request("ObservedBy"rs("Comments"
= request("Comments" rs.update
'I do a movelast here to get the ID that is automatically generated
'I also set the value to a local variable so I can write out to the database
rs.movelast
%>
<html>
<head>
<title>sign on summary</title>
</head>
<body>
<TABLE BORDER=1>
Your Record # is:<% = strID %><br>
Your Name is <% = request("ResidentName"
%><br>Patient First Name is <% = request("PtFirstName"
%><br>Patient Last Name is <% = request("PtLastName"
%><br>continuity patient is <% = request("Continuity"
%><br></body></html>
<%
'Always! Always set your objects to nothing. This clears them out of servers memory
'Your network admins will like this
set rs= nothing
set conn = nothing
%>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question