will jquery cascading fill ddl problematic while saving data & some server error comes because whenever some error comes on server side page of vb.net , ddl gets blank & sometimes giving error cannot have multiple items in dropdownlist.
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
If Page.IsValid Then
Dim PatientID As Integer
Dim dr As SqlDataReader
Dim qry As String = ""
Dim DrNameMTPCond As String = ""
Dim Designation As String = ""
Dim ProcAttBy As String = ""
Dim ProcDesignation As String = ""
Dim cult As New CultureInfo("en-GB")
If btnSave.Text = "SAVE" Then
qry = "Select COUNT(*)+1 from FormF"
PatientID = Connect_DB.ExecuteScaler(qry, "PCPNDT")
If txtMobileNo.Text <> "" Then
If txtMobileNo.Text.Length <> 10 Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Invalid Mobile No.\nOnly 10 digits allowed")
txtMobileNo.Focus()
Exit Sub
End If
If txtMobileNo.Text.Substring(0, 1) < 7 Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Invalid Mobile No.\nPlease Enter Valid Mobile No.")
txtMobileNo.Focus()
Exit Sub
End If
qry = "select PMobileNo,PatientID from FormF where isnull(PMobileNo,'') <> '' "
dr = Connect_DB.ExecuteReader(qry, "PCPNDT")
If dr.HasRows Then
While dr.Read()
If dr("PMobileNo").Trim = txtMobileNo.Text.Trim Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Mobile No. Already Register.")
txtMobileNo.Focus()
Exit Sub
End If
End While
dr.Close()
End If
End If
qry = "select convert(varchar(5),PSTDCode)+convert(varchar(8),PPhoneNo) as PhoneNo,PatientID from FormF where isnull(convert(varchar(5),PSTDCode)+convert(varchar(8),PPhoneNo),'') <> '' "
dr = Connect_DB.ExecuteReader(qry, "PCPNDT")
If dr.HasRows Then
While dr.Read()
If dr("PhoneNo").Trim = txtSTDCode.Text.Trim + txtPhoneNo.Text.Trim Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Phone No. Already Register.")
txtSTDCode.Focus()
Exit Sub
End If
End While
dr.Close()
End If
End If
If Convert.ToDateTime(txtPRegDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid Patient Reg Date ! Date can not greater then current date ")
txtPRegDate.Focus()
Exit Sub
End If
If txtLMPDate.Text <> "" Then
If Convert.ToDateTime(txtLMPDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid LMP Date ! Date can not greater then current date ")
txtLMPDate.Focus()
Exit Sub
End If
End If
If txtProcDate.Text <> "" Then
If Convert.ToDateTime(txtProcDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid Procedure Date ! Date can not greater then current date ")
txtProcDate.Focus()
Exit Sub
End If
End If
If txtConsentDate.Text <> "" Then
If Convert.ToDateTime(txtConsentDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid Consent Date ! Date can not greater then current date ")
txtConsentDate.Focus()
Exit Sub
End If
End If
If txtMTPDate.Text <> "" Then
If Convert.ToDateTime(txtMTPDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid MTP Date ! Date can not greater then current date ")
txtMTPDate.Focus()
Exit Sub
End If
End If
If Convert.ToDateTime(txtFormFDate.Text, cult) > Date.Now Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Fill Valid Form F Date ! Date can not greater then current date ")
txtFormFDate.Focus()
Exit Sub
End If
If btnSave.Text = "SAVE" Then
If ddlCenterName.SelectedValue = "0" Then
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
objCommon.infoBox("Please Select Center Name")
Exit Sub
End If
End If
If rbtnMTP.SelectedValue = "2" Then
Designation = Request.Form(ddlDesignation.UniqueID)
DrNameMTPCond = Request.Form(ddlDrNameMTPCond.UniqueID)
If btnSave.Text = "SAVE" Then
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), ddlCenterName.SelectedValue), ddlDrNameMTPCond)
Else
PopulateDropDownList(PopulateMTPCondName(Integer.Parse(Designation), hfCenterID.Value), ddlDrNameMTPCond)
End If
If Not DrNameMTPCond Is Nothing Then
ddlDrNameMTPCond.Items.FindByValue(DrNameMTPCond).Selected = True
End If
End If
If btnSave.Text = "SAVE" Then
ProcAttBy = Request.Form(rbtnProcAtt.UniqueID)
ProcDesignation = Request.Form(ddlAttendorName.UniqueID)
PopulateDropDownList(PopulateAttendantName(Integer.Parse(ProcAttBy), ddlCenterName.SelectedValue), ddlAttendorName)
If Not ProcDesignation Is Nothing Then
ddlAttendorName.Items.FindByValue(ProcDesignation).Selected = True
End If
End If
Dim cmd As New SqlCommand
Dim con As New SqlConnection
Dim trans As SqlTransaction
con.ConnectionString = ConfigurationManager.AppSettings("PCPNDT")
cmd.Connection = con
con.Open()
trans = con.BeginTransaction
cmd.Transaction = trans
cmd.CommandType = CommandType.Text
Try
If btnSave.Text = "SAVE" Then
cmd.Parameters.AddWithValue("@PatientID", PatientID)
cmd.Parameters.AddWithValue("@CID", ddlCenterName.SelectedValue)
cmd.Parameters.AddWithValue("@PFirstName", txtPFirstName.Text)
cmd.Parameters.AddWithValue("@PLastName", txtPLastName.Text)
Else
cmd.Parameters.AddWithValue("@PatientID", hfPatientID.Value)
End If
cmd.Parameters.AddWithValue("@PAge", txtPAge.Text)
cmd.Parameters.AddWithValue("@PMaleChild", txtMale.Text)
cmd.Parameters.AddWithValue("@PFemaleChild", txtFemale.Text)
cmd.Parameters.AddWithValue("@HusbandName", txtHusbandName.Text)
cmd.Parameters.AddWithValue("@PAddress", txtPatientAdd.Text)
cmd.Parameters.AddWithValue("@PMobileNo", txtMobileNo.Text)
cmd.Parameters.AddWithValue("@PSTDCode", txtSTDCode.Text)
cmd.Parameters.AddWithValue("@PPhoneNo", txtPhoneNo.Text)
cmd.Parameters.AddWithValue("@RefName", txtReferralName.Text)
cmd.Parameters.AddWithValue("@RefAddress", txtReferralAdd.Text)
If txtLMPDate.Text <> "" Then
cmd.Parameters.Add("@LMPDate", SqlDbType.SmallDateTime).Value = txtLMPDate.Text
Else
cmd.Parameters.Add("@LMPDate", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
cmd.Parameters.AddWithValue("@PDiseaseHistDet", txtDiseaseName.Text)
cmd.Parameters.AddWithValue("@POtherDiagnoseB", txtDiagnosisName.Text)
cmd.Parameters.AddWithValue("@P_A_ChildDiseaseName", txtDisorderName.Text)
cmd.Parameters.AddWithValue("@P_B_AdvMatAge", lblAdvMatAge.Text)
cmd.Parameters.AddWithValue("@P_C_GeneDis_Det", txtFamilyDisease.Text)
cmd.Parameters.AddWithValue("@P_D_OtherName", txtOtherInd.Text)
If btnSave.Text = "SAVE" Then
cmd.Parameters.AddWithValue("@P_Proc_AttBy", rbtnProcAtt.SelectedValue)
cmd.Parameters.AddWithValue("@P_Proc_AttName", IIf(ProcDesignation Is Nothing, "", ProcDesignation))
End If
cmd.Parameters.AddWithValue("@P_OtherInvasive", txtInvasiveName.Text)
cmd.Parameters.AddWithValue("@P_Compl_Det", txtCompName.Text)
cmd.Parameters.AddWithValue("@P_A_Result", txtPreNatalResult.Text)
cmd.Parameters.AddWithValue("@P_Ultra_Norm_AbNorm", rbtnUltraResult.SelectedValue)
cmd.Parameters.AddWithValue("@P_AbNorm_Det", txtAbnormality.Text)
If txtProcDate.Text <> "" Then
cmd.Parameters.Add("@P_Proc_Date", SqlDbType.SmallDateTime).Value = txtProcDate.Text
Else
cmd.Parameters.Add("@P_Proc_Date", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
If txtConsentDate.Text <> "" Then
cmd.Parameters.Add("@P_Consent_Date", SqlDbType.SmallDateTime).Value = txtConsentDate.Text
Else
cmd.Parameters.Add("@P_Consent_Date", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
If txtResultDate.Text <> "" Then
cmd.Parameters.Add("@P_Result_Date", SqlDbType.SmallDateTime).Value = txtResultDate.Text
Else
cmd.Parameters.Add("@P_Result_Date", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
If rbtnMTP.SelectedValue <> "" Then
cmd.Parameters.AddWithValue("@P_MTP", rbtnMTP.SelectedValue)
Else
cmd.Parameters.AddWithValue("@P_MTP", DBNull.Value)
End If
If rbtnMTP.SelectedValue = "2" Then
If txtMTPDate.Text <> "" Then
cmd.Parameters.Add("@P_MTP_Date", SqlDbType.SmallDateTime).Value = txtMTPDate.Text
Else
cmd.Parameters.Add("@P_MTP_Date", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
Else
cmd.Parameters.Add("@P_MTP_Date", SqlDbType.SmallDateTime).Value = DBNull.Value
End If
cmd.Parameters.AddWithValue("@PRegDate", txtPRegDate.Text)
cmd.Parameters.AddWithValue("@PEmail", txtEmail.Text)
cmd.Parameters.AddWithValue("@PReferredBy", rbtnReferredBy.Text)
cmd.Parameters.AddWithValue("@PPregWeeks", ddlPregWeeks.SelectedValue)
cmd.Parameters.AddWithValue("@P_Inv_NonInv", IIf(rbtnNonInvasive.Checked = True, "0", IIf(rbtnInvasive.Checked = True, "1", "0")))
If rbtnMTP.SelectedValue = "2" Then
cmd.Parameters.AddWithValue("@MTPCarriedBy_Designation", ddlDesignation.SelectedValue)
cmd.Parameters.AddWithValue("@MTPCarriedBy_Name", IIf(DrNameMTPCond Is Nothing Or DrNameMTPCond = "", "", DrNameMTPCond))
Else
cmd.Parameters.AddWithValue("@MTPCarriedBy_Designation", DBNull.Value)
cmd.Parameters.AddWithValue("@MTPCarriedBy_Name", DBNull.Value)
End If
cmd.Parameters.AddWithValue("@P_FormFDate", txtFormFDate.Text)
cmd.Parameters.AddWithValue("@P_FormFPlace", txtPlace.Text)
cmd.Parameters.AddWithValue("@PCTSID", txtPCTSID.Text)
cmd.Parameters.AddWithValue("@PResultConveyedTo", txtPatientName.Text)
cmd.Parameters.AddWithValue("@PatientRegNo", txtPatientRegNo.Text)
cmd.Parameters.AddWithValue("@AdharID", txtAdharID.Text)
If btnSave.Text = "SAVE" Then
qry = "Set Language British;insert into FormF(PatientID,CID,PFirstName,PLastName,PAge,PMaleChild,PFemaleChild,HusbandName,PAddress,PMobileNo,PSTDCode,PPhoneNo,RefName,RefAddress,LMPDate,PDiseaseHistDet,POtherDiagnoseB,P_A_ChildDiseaseName,P_B_AdvMatAge,P_C_GeneDis_Det,P_D_OtherName,P_Proc_AttBy,P_Proc_AttName,P_OtherInvasive,P_Compl_Det,P_A_Result,P_Ultra_Norm_AbNorm,P_AbNorm_Det,P_Proc_Date,P_Consent_Date,P_Result_Date,P_MTP,P_MTP_Date,PRegDate,PEmail,PReferredBy,PPregWeeks,P_Inv_NonInv,MTPCarriedBy_Designation,MTPCarriedBy_Name,P_FormFDate,P_FormFPlace,PCTSID,PResultConveyedTo,PatientRegNo,AdharID) " & _
" VALUES (@PatientID,@CID,@PFirstName,@PLastName,@PAge,@PMaleChild,@PFemaleChild,@HusbandName,@PAddress,@PMobileNo,@PSTDCode,@PPhoneNo,@RefName,@RefAddress,@LMPDate,@PDiseaseHistDet,@POtherDiagnoseB,@P_A_ChildDiseaseName,@P_B_AdvMatAge,@P_C_GeneDis_Det,@P_D_OtherName,@P_Proc_AttBy,@P_Proc_AttName,@P_OtherInvasive,@P_Compl_Det,@P_A_Result,@P_Ultra_Norm_AbNorm,@P_AbNorm_Det,@P_Proc_Date,@P_Consent_Date,@P_Result_Date,@P_MTP,@P_MTP_Date,@PRegDate,@PEmail,@PReferredBy,@PPregWeeks,@P_Inv_NonInv,@MTPCarriedBy_Designation,@MTPCarriedBy_Name,@P_FormFDate,@P_FormFPlace,@PCTSID,@PResultConveyedTo,@PatientRegNo,@AdharID)"
cmd.CommandText = qry
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
Else
'qry = "Set Language British;UPDATE FormF set PFirstName=@PFirstName,PLastName=@PLastName,PAge=@PAge,PMaleChild=@PMaleChild,PFemaleChild=@PFemaleChild,HusbandName=@HusbandName,PAddress=@PAddress,PMobileNo=@PMobileNo,PSTDCode=@PSTDCode,PPhoneNo=@PPhoneNo,RefName=@RefName,RefAddress=@RefAddress,LMPDate=@LMPDate,PDiseaseHistDet=@PDiseaseHistDet,POtherDiagnoseB=@POtherDiagnoseB,P_A_ChildDiseaseName=@P_A_ChildDiseaseName,P_B_AdvMatAge=@P_B_AdvMatAge,P_C_GeneDis_Det=@P_C_GeneDis_Det,P_D_OtherName=@P_D_OtherName,P_Proc_AttBy=@P_Proc_AttBy,P_Proc_AttName=@P_Proc_AttName, " & _
' "P_OtherInvasive=@P_OtherInvasive,P_Compl_Det=@P_Compl_Det,P_A_Result=@P_A_Result,P_Ultra_Norm_AbNorm=@P_Ultra_Norm_AbNorm,P_AbNorm_Det=@P_AbNorm_Det,P_Proc_Date=@P_Proc_Date,P_Consent_Date=@P_Consent_Date,P_Result_Date=@P_Result_Date,P_MTP=@P_MTP,P_MTP_Date=@P_MTP_Date,PRegDate=@PRegDate,PEmail=@PEmail,PReferredBy=@PReferredBy,PPregWeeks=@PPregWeeks,P_Inv_NonInv=@P_Inv_NonInv,MTPCarriedBy_Designation=@MTPCarriedBy_Designation,MTPCarriedBy_Name=@MTPCarriedBy_Name,P_FormFDate=@P_FormFDate,P_FormFPlace=@P_FormFPlace,PCTSID=@PCTSID,PResultConveyedTo=@PResultConveyedTo,PatientRegNo=@PatientRegNo,AdharID=@AdharID WHERE PatientID=@PatientID"
qry = "Set Language British;UPDATE FormF set PAge=@PAge,PMaleChild=@PMaleChild,PFemaleChild=@PFemaleChild,HusbandName=@HusbandName,PAddress=@PAddress,PMobileNo=@PMobileNo,PSTDCode=@PSTDCode,PPhoneNo=@PPhoneNo,RefName=@RefName,RefAddress=@RefAddress,LMPDate=@LMPDate,PDiseaseHistDet=@PDiseaseHistDet,POtherDiagnoseB=@POtherDiagnoseB,P_A_ChildDiseaseName=@P_A_ChildDiseaseName,P_B_AdvMatAge=@P_B_AdvMatAge,P_C_GeneDis_Det=@P_C_GeneDis_Det,P_D_OtherName=@P_D_OtherName, " & _
"P_OtherInvasive=@P_OtherInvasive,P_Compl_Det=@P_Compl_Det,P_A_Result=@P_A_Result,P_Ultra_Norm_AbNorm=@P_Ultra_Norm_AbNorm,P_AbNorm_Det=@P_AbNorm_Det,P_Proc_Date=@P_Proc_Date,P_Consent_Date=@P_Consent_Date,P_Result_Date=@P_Result_Date,P_MTP=@P_MTP,P_MTP_Date=@P_MTP_Date,PRegDate=@PRegDate,PEmail=@PEmail,PReferredBy=@PReferredBy,PPregWeeks=@PPregWeeks,P_Inv_NonInv=@P_Inv_NonInv,MTPCarriedBy_Designation=@MTPCarriedBy_Designation,MTPCarriedBy_Name=@MTPCarriedBy_Name,P_FormFDate=@P_FormFDate,P_FormFPlace=@P_FormFPlace,PCTSID=@PCTSID,PResultConveyedTo=@PResultConveyedTo,PatientRegNo=@PatientRegNo,AdharID=@AdharID WHERE PatientID=@PatientID"
cmd.CommandText = qry
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
qry = "Delete from PatientMasterCodes where PatientID=@PatientID"
cmd.Parameters.Add("@PatientID", SqlDbType.Int)
cmd.Parameters("@PatientID").Value = hfPatientID.Value
cmd.CommandText = qry
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
qry = "Delete from PatientIndication where PatientID=@PatientID"
cmd.Parameters.Add("@PatientID", SqlDbType.Int)
cmd.Parameters("@PatientID").Value = hfPatientID.Value
cmd.CommandText = qry
cmd.ExecuteNonQuery()
cmd.Parameters.Clear()
End If
qry = "Insert Into PatientIndication(PatientID,IndicationID) VALUES (@IndPatientID,@IndicationID)"
cmd.CommandText = qry
cmd.Parameters.Add("@IndPatientID", SqlDbType.Int)
If btnSave.Text = "SAVE" Then
cmd.Parameters("@IndPatientID").Value = PatientID
Else
cmd.Parameters("@IndPatientID").Value = hfPatientID.Value
End If
cmd.Parameters.Add("@IndicationID", SqlDbType.Int)
For Each item As ListItem In chklstNonInvasive.Items
If (item.Selected = True) Then
Try
cmd.Parameters("@IndicationID").Value = item.Value
cmd.ExecuteNonQuery()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
End Try
End If
Next
cmd.Parameters.Clear()
qry = "Insert Into PatientMasterCodes(PatientID,Code,MasterCode) VALUES (@MasterPatientID,@Code,@MasterCode)"
cmd.CommandText = qry
cmd.Parameters.Add("@MasterPatientID", SqlDbType.Int)
If btnSave.Text = "SAVE" Then
cmd.Parameters("@MasterPatientID").Value = PatientID
Else
cmd.Parameters("@MasterPatientID").Value = hfPatientID.Value
End If
cmd.Parameters.Add("@MasterCode", SqlDbType.Int)
cmd.Parameters("@MasterCode").Value = 2
cmd.Parameters.Add("@Code", SqlDbType.Int)
For Each item As ListItem In chklstDiagBasis.Items
If (item.Selected = True) Then
Try
cmd.Parameters("@Code").Value = item.Value
cmd.ExecuteNonQuery()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
End Try
End If
Next
cmd.Parameters.Clear()
qry = "Insert Into PatientMasterCodes(PatientID,Code,MasterCode) VALUES (@MasterPatientID,@Code,@MasterCode)"
cmd.CommandText = qry
cmd.Parameters.Add("@MasterPatientID", SqlDbType.Int)
If btnSave.Text = "SAVE" Then
cmd.Parameters("@MasterPatientID").Value = PatientID
Else
cmd.Parameters("@MasterPatientID").Value = hfPatientID.Value
End If
cmd.Parameters.Add("@MasterCode", SqlDbType.Int)
cmd.Parameters("@MasterCode").Value = 3
cmd.Parameters.Add("@Code", SqlDbType.Int)
For Each item As ListItem In chklstChildWith.Items
If (item.Selected = True) Then
Try
cmd.Parameters("@Code").Value = item.Value
cmd.ExecuteNonQuery()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
End Try
End If
Next
cmd.Parameters.Clear()
qry = "Insert Into PatientMasterCodes(PatientID,Code,MasterCode) VALUES (@MasterPatientID,@Code,@MasterCode)"
cmd.CommandText = qry
cmd.Parameters.Add("@MasterPatientID", SqlDbType.Int)
If btnSave.Text = "SAVE" Then
cmd.Parameters("@MasterPatientID").Value = PatientID
Else
cmd.Parameters("@MasterPatientID").Value = hfPatientID.Value
End If
cmd.Parameters.Add("@MasterCode", SqlDbType.Int)
cmd.Parameters("@MasterCode").Value = 4
cmd.Parameters.Add("@Code", SqlDbType.Int)
For Each item As ListItem In chklstInvasive.Items
If (item.Selected = True) Then
Try
cmd.Parameters("@Code").Value = item.Value
cmd.ExecuteNonQuery()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
End Try
End If
Next
cmd.Parameters.Clear()
qry = "Insert Into PatientMasterCodes(PatientID,Code,MasterCode) VALUES (@MasterPatientID,@Code,@MasterCode)"
cmd.CommandText = qry
cmd.Parameters.Add("@MasterPatientID", SqlDbType.Int)
If btnSave.Text = "SAVE" Then
cmd.Parameters("@MasterPatientID").Value = PatientID
Else
cmd.Parameters("@MasterPatientID").Value = hfPatientID.Value
End If
cmd.Parameters.Add("@MasterCode", SqlDbType.Int)
cmd.Parameters("@MasterCode").Value = 5
cmd.Parameters.Add("@Code", SqlDbType.Int)
For Each item As ListItem In chklstLabTest.Items
If (item.Selected = True) Then
Try
cmd.Parameters("@Code").Value = item.Value
cmd.ExecuteNonQuery()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
End Try
End If
Next
cmd.Parameters.Clear()
trans.Commit()
Catch ex As Exception
trans.Rollback()
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Transaction is aborted please try again')</script>")
Exit Sub
Finally
cmd.Dispose()
con.Close()
End Try
If btnSave.Text = "SAVE" Then
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Data has been Saved')</script>")
Else
Page.RegisterStartupScript("msg", "<script language='javascript'>alert('Data has been Updated')</script>")
End If
ClearForm()
End If
End Sub
thank u
lipica
pls it urgent