"Michael" <Mich***@discussions.microsoft.com> wrote in message news:C4C5BBAF-B836-4840-BF0A-3347B20BEB57@microsoft.com...
> Hi Everyone,
> I'm getting the above error when I try to execute a stored proc. I've been
> trhough the SP and the vb function and can't find anything missing or
> incorrect, unless I missed something. Here is a list of things I've tried:
> 1. Removed the offending parameter from the SP and VB Function. Everything
> works.
> 2. Made sure that the parameters are using the correct parm type.
> 3. Made sure that I was not missing a parameter.
> 4. Made sure that no parameter would get passed in the code.
> Here is the function that calls the SP. Its a long procedure, so please bear
> with me:
> Private Function SaveAdmissionNursingAssessment2(cnSQL As SqlConnection) as
> Boolean
> 'Dim cnSQL As SqlConnection
> Dim success as Boolean = True
> Dim cmSQL As SqlCommand
> Try
> 'cnSQL = OpenConnection()
> if isnew then
> cmSQL = New SqlCommand("intake_AddAdminNurseAssessment2", cnSQL)
>        cmsql.Transaction = SaveTrans
> isnew = False
> else
> cmSQL = New SqlCommand("intake_UpdAdmissionNursingAssessment2", cnSQL)
>        cmsql.Transaction = SaveTrans
> isDirty = False
> end if
> cmsql.CommandType = CommandType.StoredProcedure
> cmsql.Parameters.Add("PatientID", sqldbtype.Varchar, 20 ).Value = fPatientId
> cmsql.Parameters.Add("PreparedDate", sqldbtype.SmallDateTime).Value = Now()
> '''(Cut down because the 30000 limit in the forum)
>  if flxFamilyHistory2(4,1) = true then
>        cmsql.Parameters.Add("fhBleeding", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhBleeding", sqldbtype.SmallInt).Value = 0
>    End If
>    cmsql.Parameters.Add("@WhoMeBleedingWho", sqldbtype.Varchar, 20 ).Value
> = iif(isdbnull(flxFamilyHistory2(4,3)), "", flxFamilyHistory2(4,3))
>    if flxFamilyHistory2(5,1) = true then
>        cmsql.Parameters.Add("fhTuberculosis", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhTuberculosis", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhTuberculosisWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(5,3)
>    if flxFamilyHistory2(6,1) = true then
>        cmsql.Parameters.Add("fhNervous", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhNervous", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhNervousWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(6,3)
>    if flxFamilyHistory2(7,1) = true then
>        cmsql.Parameters.Add("fhSuicide", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSuicide", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSuicideWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(7,3)
>    if flxFamilyHistory2(8,1) = true then
>        cmsql.Parameters.Add("fhEpilepsy", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhEpilepsy", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhEpilepsyWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(8,3)
>    if  flxFamilyHistory2(9,1) = true then
>        cmsql.Parameters.Add("fhAllergy", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhAllergy", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhAllergyWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(9,3)
>    if flxFamilyHistory2(10,1) = true then
>        cmsql.Parameters.Add("fhStroke", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhStroke", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhStrokeWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(10,3)
>    if flxFamilyHistory2(11,1) = true then
>        cmsql.Parameters.Add("fhArteries", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhArteries", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhArteriesWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(11,3)
>    if flxFamilyHistory2(12,1) = true then
>        cmsql.Parameters.Add("fhSickleCellTraits", sqldbtype.SmallInt).Value
> = 1
>    else
>        cmsql.Parameters.Add("fhSickleCellTraits", sqldbtype.SmallInt).Value
> = 0
>    End If
> cmsql.Parameters.Add("fhSickleCellTraitsWho", sqldbtype.Varchar, 20 ).Value
> = flxFamilyHistory2(12,3)
>    if flxFamilyHistory2(13,1) = true then
>        cmsql.Parameters.Add("fhSickleCellDisease",
> sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSickleCellDisease",
> sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSickleCellDiseaseWho", sqldbtype.Varchar, 20
> ).Value = flxFamilyHistory2(13, 3)
>    if flxFamilyHistory2(14,1) = true then
>        cmsql.Parameters.Add("fhAnemia", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhAnemia", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhAnemiaWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(14,3)
>    if flxFamilyHistory2(15,1) = true then
>        cmsql.Parameters.Add("fhHereditaryDefects",
> sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHereditaryDefects",
> sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHereditaryDefectsWho", sqldbtype.Varchar, 20
> ).Value = flxFamilyHistory2(15,3)
>    if flxFamilyHistory2(16,1) = true then
>        cmsql.Parameters.Add("fhRenalDisease", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhRenalDisease", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhRenalDiseaseWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(16,3)
>    if flxFamilyHistory2(17,1) = true then
>        cmsql.Parameters.Add("fhHEP", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHEP", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHEPWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(17,3)
>    if  flxFamilyHistory2(18,1) = true then
>        cmsql.Parameters.Add("fhHIV", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHIV", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHIVWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(18,3)
>    if flxFamilyHistory2(19,1) = true then
>        cmsql.Parameters.Add("fhSTD", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSTD", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSTDWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(19,3)
>    if flxFamilyHistory2(20,1) = true then
>        cmsql.Parameters.Add("fhOtherInfection", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhOtherInfection", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhOtherInfectionWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(20,3)
>    if flxFamilyHistory2(21,1) = true then
>        cmsql.Parameters.Add("fhOther", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhOther", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhOtherWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(21,3)
> cmsql.Parameters.Add("pmcReason1", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(1,0)
> cmsql.Parameters.Add("pmcReason2", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(2,0)
> cmsql.Parameters.Add("pmcReason3", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(3,0)
> cmsql.Parameters.Add("pmcReason4", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(4,0)
> cmsql.Parameters.Add("pmcYear1", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(1,1)
> cmsql.Parameters.Add("pmcYear2", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(2,1)
> cmsql.Parameters.Add("pmcYear3", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(3,1)
> cmsql.Parameters.Add("pmcYear4", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(4,1)
> cmsql.Parameters.Add("pmcWhere1", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(1,2)
> cmsql.Parameters.Add("pmcWhere2", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(2,2)
> cmsql.Parameters.Add("pmcWhere3", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(3,2)
> cmsql.Parameters.Add("pmcWhere4", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(4,2)
> cmsql.Parameters.Add("pmcDoctor1", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(1,3)
> cmsql.Parameters.Add("pmcDoctor2", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(2,3)
> cmsql.Parameters.Add("pmcDoctor3", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(3,3)
> cmsql.Parameters.Add("pmcDoctor4", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(4,3)
> cmsql.Parameters.Add("cdBeenHospitalized", sqldbtype.SmallInt).Value =
> chkSeenDoctorYes.Checked
> cmsql.Parameters.Add("cdWhereTreated", sqldbtype.Varchar, 200 ).Value =
> txtSeenDoctor.Text
> cmsql.Parameters.Add("cdCanContact", sqldbtype.SmallInt).Value =
> chkCurrentPhysicianYes.Checked
> cmsql.Parameters.Add("cdPrivatePhysician", sqldbtype.Varchar, 200 ).Value =
> txtCurrentPhysician.Text
> cmsql.Parameters.Add("cdContactName1", sqldbtype.Varchar, 100 ).Value =
> txtContactName1.Text
> cmsql.Parameters.Add("cdContactName2", sqldbtype.Varchar, 100 ).Value =
> txtContactName2.Text
> cmsql.Parameters.Add("cdContactRelation1", sqldbtype.Varchar, 25 ).Value =
> txtRelationship1.Text
> cmsql.Parameters.Add("cdContactRelation2", sqldbtype.Varchar, 25 ).Value =
> txtRelationship2.Text
> cmsql.Parameters.Add("cdContactAddress1", sqldbtype.Varchar, 150 ).Value =
> txtContactAddress1.Text
> cmsql.Parameters.Add("cdContactAddress2", sqldbtype.Varchar, 150 ).Value =
> txtContactAddress2.Text
> cmsql.Parameters.Add("cdContactPhone1", sqldbtype.Varchar, 20 ).Value =
> txtContactNumber1.Text
> cmsql.Parameters.Add("cdContactPhone2", sqldbtype.Varchar, 20 ).Value =
> txtContactNumber2.Text
> cmSQL.ExecuteNonQuery()
>    SaveTrans.Commit
> Catch Exp As SqlException
> MsgBox(Exp.Message, MsgBoxStyle.Critical, "SQL Error")
>    SaveTrans.Rollback
>    success = False 
> Catch Exp As Exception
> MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error")
>    SaveTrans.Rollback
>    success = False
> finally
> ' Close and Clean up objects
>    'SaveTrans.Commit
> cnSQL.Close()
> cmSQL.Dispose()
> cnSQL.Dispose()
>    SaveTrans.Dispose
>    SaveAdmissionNursingAssessment2 = success
> End Try
>
> Here is the stored proc:
>
> CREATE PROCEDURE [dbo].[intake_AddAdminNurseAssessment2]
> @PatientID VarChar (10),
> @PreparedDate smalldatetime,
> @Menarche VarChar (20),
> @Cycle VarChar (20),
> @Duration VarChar (20),
> @PeriodsRegular SmallInt,
> @BleedingIntercourse SmallInt,
> @ArePeriods SmallInt,
> @Pregnancies Int,
> @Cramps SmallInt,
> @MiscarriageCount Int,
> @Heasdaches SmallInt,
> @AbortionCount SmallInt,
> @LastPapSmear smalldatetime,
> @TroublePregnancy SmallInt,
> @SpottingPeriods SmallInt,
> @NumChildren SmallInt,
> @LastPeriod smalldatetime,
> @StillBirths SmallInt,
> @Premenopausal SmallInt,
> @Postmenopausal SmallInt,
> @StartMenopausal VarChar (20),
> @VaginalDischarge SmallInt,
> @DischargeColor VarChar (15),
> @DichargeOdor SmallInt,
> @PresentlyPregnant SmallInt,
> @PresentlyPregnantIfYes SmallInt,
> @PreNatalCare VarChar (100),
> @BirthControl SmallInt,
> @BirthControlIfYes VarChar (50),
> @FreqBirthControl SmallInt,
> @LastMammogram smalldatetime,
> @SelfBreastExam SmallInt,
> @TesticularEnlargement SmallInt,
> @UrineStream SmallInt,
> @PenileLegion SmallInt,
> @DischargePenis SmallInt,
> @TesticularMasses SmallInt,
> @ProstateProblems SmallInt,
> @HepatitsB smalldatetime,
> @MMR smalldatetime,
> @FluVaccine smalldatetime,
> @BCG smalldatetime,
> @Pneumovax smalldatetime,
> @Tetanus smalldatetime,
> @ImmunationOther smalldatetime,
> @HadSurgery SmallInt,
> @Appendectomy SmallInt,
> @AppendectomyComment VarChar (50),
> @Hysterectomy SmallInt,
> @HysterectomyComment VarChar (50),
> @Ovarian SmallInt,
> @OvarianComment VarChar (50),
> @JointReplacement SmallInt,
> @JointReplacementComment VarChar (50),
> @Gallbladder SmallInt,
> @GallbladderComment VarChar (50),
> @Bypass SmallInt,
> @BypassComment VarChar (50),
> @OperationsOther SmallInt,
> @OperationsOtherComment VarChar (50),
> @Allergies1 VarChar (50),
> @Allergies2 VarChar (50),
> @Allergies3 VarChar (50),
> @Medication1 VarChar (50),
> @Medication2 VarChar (50),
> @Medication3 VarChar (50),
> @scNoProblems SmallInt,
> @scFeeding SmallInt,
> @scElimination SmallInt,
> @scBathing SmallInt,
> @scAmbulating SmallInt,
> @scDress SmallInt,
> @scHomeCare SmallInt,
> @scDecribe VarChar (200),
> @shSingle SmallInt,
> @shMarried SmallInt,
> @shSeperated SmallInt,
> @shDivorced SmallInt,
> @shWidowed SmallInt,
> @shSignificantOther SmallInt,
> @shWhomLiveWith VarChar (150),
> @shIllicitDrugs SmallInt,
> @shIllicitDrugsSpecify VarChar (100),
> @shCoffee VarChar (5),
> @shTea VarChar (5),
> @shColas VarChar (5),
> @shForeignTravel SmallInt,
> @shForeignTravelSpecify varchar(150),
> @shFumes SmallInt,
> @shFumesSpecify VarChar (50),
> @shTimeLostWork VarChar (50),
> @paDepression SmallInt,
> @paAnxiety SmallInt,
> @paHostile SmallInt,
> @paAgitate SmallInt,
> @paConfused SmallInt,
> @paHallucinations SmallInt,
> @paVisual SmallInt,
> @paAuditory SmallInt,
> @paGustatory SmallInt,
> @paOlfactory SmallInt,
> @paTactile SmallInt,
> @Treatment1 VarChar (100),
> @Treatment2 VarChar (100),
> @Treatment3 VarChar (100),
> @Treatment4 VarChar (100),
> @Treatment5 VarChar (100),
> @Treatment6 VarChar (100),
> @Treatment7 VarChar (100),
> @PsycMedication1 VarChar (100),
> @PsycMedication2 VarChar (100),
> @PsycMedication3 VarChar (100),
> @PsycMedication4 VarChar (100),
> @fhCancer SmallInt,
> @fhCancerWho VarChar (20),
> @fhGlaucoma SmallInt,
> @fhGlaucomaWho VarChar (20),
> @fhDiabeted SmallInt,
> @fhDiabetedWho VarChar (20),
> @fhBleeding SmallInt,
> /*
> @BleedingWho Varchar(20),
> */
> @WhoMeBleedingWho Varchar(20),
> @fhTuberculosis SmallInt,
> @fhTuberculosisWho VarChar (20),
> @fhNervous SmallInt,
> @fhNervousWho VarChar (20),
> @fhSuicide SmallInt,
> @fhSuicideWho VarChar (20),
> @fhEpilepsy SmallInt,
> @fhEpilepsyWho VarChar (20),
> @fhAllergy SmallInt,
> @fhAllergyWho VarChar (20),
> @fhStroke SmallInt,
> @fhStrokeWho VarChar (20),
> @fhArteries SmallInt,
> @fhArteriesWho VarChar (20),
> @fhSickleCellTraits SmallInt,
> @fhSickleCellTraitsWho VarChar (20),
> @fhSickleCellDisease SmallInt,
> @fhSickleCellDiseaseWho VarChar (20),
> @fhAnemia SmallInt,
> @fhAnemiaWho VarChar (20),
> @fhHereditaryDefects SmallInt,
> @fhHereditaryDefectsWho VarChar (20),
> @fhRenalDisease SmallInt,
> @fhRenalDiseaseWho VarChar (20),
> @fhHEP SmallInt,
> @fhHEPWho VarChar (20),
> @fhHIV SmallInt,
> @fhHIVWho VarChar (20),
> @fhSTD SmallInt,
> @fhSTDWho VarChar (20),
> @fhOtherInfection SmallInt,
> @fhOtherInfectionWho VarChar (20),
> @fhOther SmallInt,
> @fhOtherWho VarChar (20),
> @pmcReason1 VarChar (50),
> @pmcReason2 VarChar (50),
> @pmcReason3 VarChar (50),
> @pmcReason4 VarChar (50),
> @pmcYear1 VarChar (10),
> @pmcYear2 VarChar (10),
> @pmcYear3 VarChar (10),
> @pmcYear4 VarChar (10),
> @pmcWhere1 VarChar (25),
> @pmcWhere2 VarChar (25),
> @pmcWhere3 VarChar (25),
> @pmcWhere4 VarChar (25),
> @pmcDoctor1 VarChar (25),
> @pmcDoctor2 VarChar (25),
> @pmcDoctor3 VarChar (25),
> @pmcDoctor4 VarChar (25),
> @cdBeenHospitalized SmallInt,
> @cdWhereTreated VarChar (200),
> @cdCanContact SmallInt,
> @cdPrivatePhysician VarChar (200),
> @cdContactName1 VarChar (100),
> @cdContactName2 VarChar (100),
> @cdContactRelation1 VarChar (25),
> @cdContactRelation2 VarChar (25),
> @cdContactAddress1 VarChar (150),
> @cdContactAddress2 VarChar (150),
> @cdContactPhone1 VarChar (20),
> @cdContactPhone2 VarChar (20)
> AS
>
> Declare @LastValue int
>
> Set @LastValue = (Select AdminNurseAsses2 from Support)
> set @LastValue = @LastValue + 1
> Update Support
> Set AdminNurseAsses2 = @LastValue
>
> Insert into AdmissionNursingAssessment2(
> KeyId,  PatientID, PreparedDate, Menarche, Cycle, Duration, PeriodsRegular,
> BleedingIntercourse, ArePeriods, Pregnancies, Cramps,
> MiscarriageCount, Heasdaches, AbortionCount, LastPapSmear, TroublePregnancy,
> SpottingPeriods, NumChildren, LastPeriod, StillBirths,
> Premenopausal, Postmenopausal, StartMenopausal, VaginalDischarge,
> DischargeColor, DichargeOdor, PresentlyPregnant, PresentlyPregnantIfYes,
> PreNatalCare, BirthControl, BirthControlIfYes, FreqBirthControl,
> LastMammogram, SelfBreastExam, TesticularEnlargement, UrineStream,
> PenileLegion,
> DischargePenis, TesticularMasses, ProstateProblems, HepatitsB, MMR,
> FluVaccine, BCG, Pneumovax, Tetanus, ImmunationOther, HadSurgery,
> Appendectomy, AppendectomyComment, Hysterectomy, HysterectomyComment,
> Ovarian, OvarianComment, JointReplacement, JointReplacementComment,
> Gallbladder, GallbladderComment, Bypass, BypassComment, OperationsOther,
> OperationsOtherComment, Allergies1, Allergies2, Allergies3, Medication1,
> Medication2, Medication3, scNoProblems, scFeeding, scElimination, scBathing,
> scAmbulating, scDress, scHomeCare, scDecribe, shSingle, shMarried,
> shSeperated, shDivorced, shWidowed, shSignificantOther, shWhomLiveWith,
> shIllicitDrugs, shIllicitDrugsSpecify, shCoffee, shTea, shColas,
> shForeignTravel, shForeignTravelSpecify, shFumes, shFumesSpecify,
> shTimeLostWork, paDepression, paAnxiety, paHostile, paAgitate, paConfused,
> paHallucinations,
> paVisual, paAuditory, paGustatory, paOlfactory, paTactile, Treatment1,
> Treatment2, Treatment3, Treatment4, Treatment5, Treatment6, Treatment7,
> PsycMedication1, PsycMedication2, PsycMedication3, PsycMedication4,
> fhCancer, fhCancerWho, fhGlaucoma, fhGlaucomaWho, fhDiabeted,
> fhDiabetedWho, fhBleeding,
> fhBleedingWho,
> fhTuberculosis, fhTuberculosisWho, fhNervous, fhNervousWho, fhSuicide,
> fhSuicideWho, fhEpilepsy,
> fhEpilepsyWho, fhAllergy, fhAllergyWho, fhStroke, fhStrokeWho, fhArteries,
> fhArteriesWho, fhSickleCellTraits, fhSickleCellTraitsWho, fhSickleCellDisease,
> fhSickleCellDiseaseWho, fhAnemia, fhAnemiaWho, fhHereditaryDefects,
> fhHereditaryDefectsWho, fhRenalDisease, fhRenalDiseaseWho, fhHEP,
> fhHEPWho, fhHIV, fhHIVWho, fhSTD, fhSTDWho, fhOtherInfection,
> fhOtherInfectionWho, fhOther, fhOtherWho, pmcReason1, pmcReason2,
> pmcReason3, pmcReason4, pmcYear1, pmcYear2, pmcYear3, pmcYear4, pmcWhere1,
> pmcWhere2, pmcWhere3, pmcWhere4, pmcDoctor1,
> pmcDoctor2, pmcDoctor3, pmcDoctor4, cdBeenHospitalized, cdWhereTreated,
> cdCanContact, cdPrivatePhysician, cdContactName1, cdContactName2,
> cdContactRelation1, cdContactRelation2, cdContactAddress1,
> cdContactAddress2, cdContactPhone1, cdContactPhone2) Values(
> @LastValue, @PatientID, @PreparedDate, @Menarche, @Cycle, @Duration,
> @PeriodsRegular, @BleedingIntercourse, @ArePeriods,
> @Pregnancies, @Cramps, @MiscarriageCount, @Heasdaches, @AbortionCount,
> @LastPapSmear, @TroublePregnancy, @SpottingPeriods,
> @NumChildren, @LastPeriod, @StillBirths, @Premenopausal, @Postmenopausal,
> @StartMenopausal, @VaginalDischarge, @DischargeColor,
> @DichargeOdor, @PresentlyPregnant, @PresentlyPregnantIfYes, @PreNatalCare,
> @BirthControl, @BirthControlIfYes, @FreqBirthControl,
> @LastMammogram, @SelfBreastExam, @TesticularEnlargement, @UrineStream,
> @PenileLegion, @DischargePenis, @TesticularMasses,
> @ProstateProblems, @HepatitsB, @MMR, @FluVaccine, @BCG, @Pneumovax,
> @Tetanus, @ImmunationOther, @HadSurgery, @Appendectomy,
> @AppendectomyComment, @Hysterectomy, @HysterectomyComment, @Ovarian,
> @OvarianComment, @JointReplacement, @JointReplacementComment,
> @Gallbladder, @GallbladderComment, @Bypass, @BypassComment,
> @OperationsOther, @OperationsOtherComment, @Allergies1, @Allergies2,
> @Allergies3, @Medication1, @Medication2, @Medication3, @scNoProblems,
> @scFeeding, @scElimination, @scBathing, @scAmbulating, @scDress,
> @scHomeCare, @scDecribe, @shSingle, @shMarried, @shSeperated, @shDivorced,
> @shWidowed, @shSignificantOther, @shWhomLiveWith,
> @shIllicitDrugs, @shIllicitDrugsSpecify, @shCoffee, @shTea, @shColas,
> @shForeignTravel, @shForeignTravelSpecify, @shFumes, @shFumesSpecify,
> @shTimeLostWork,
> @paDepression, @paAnxiety, @paHostile, @paAgitate, @paConfused,
> @paHallucinations, @paVisual, @paAuditory, @paGustatory, @paOlfactory,
> @paTactile, @Treatment1, @Treatment2, @Treatment3, @Treatment4, @Treatment5,
> @Treatment6, @Treatment7, @PsycMedication1,
> @PsycMedication2, @PsycMedication3, @PsycMedication4, @fhCancer,
> @fhCancerWho, @fhGlaucoma, @fhGlaucomaWho, @fhDiabeted,
> @fhDiabetedWho, @fhBleeding,
> @WhoMeBleedingWho,
> @fhTuberculosis, @fhTuberculosisWho, @fhNervous, @fhNervousWho, @fhSuicide,
> @fhSuicideWho, @fhEpilepsy, @fhEpilepsyWho, @fhAllergy, @fhAllergyWho,
> @fhStroke, @fhStrokeWho, @fhArteries, @fhArteriesWho,
> @fhSickleCellTraits, @fhSickleCellTraitsWho, @fhSickleCellDisease,
> @fhSickleCellDiseaseWho, @fhAnemia, @fhAnemiaWho, @fhHereditaryDefects,
> @fhHereditaryDefectsWho, @fhRenalDisease, @fhRenalDiseaseWho, @fhHEP,
> @fhHEPWho, @fhHIV, @fhHIVWho, @fhSTD, @fhSTDWho,
> @fhOtherInfection, @fhOtherInfectionWho, @fhOther, @fhOtherWho, @pmcReason1,
> @pmcReason2, @pmcReason3, @pmcReason4, @pmcYear1,
> @pmcYear2, @pmcYear3, @pmcYear4, @pmcWhere1, @pmcWhere2, @pmcWhere3,
> @pmcWhere4, @pmcDoctor1, @pmcDoctor2, @pmcDoctor3,
> @pmcDoctor4, @cdBeenHospitalized, @cdWhereTreated, @cdCanContact,
> @cdPrivatePhysician, @cdContactName1, @cdContactName2,
> @cdContactRelation1, @cdContactRelation2, @cdContactAddress1,
> @cdContactAddress2, @cdContactPhone1, @cdContactPhone2)
> GO
>
>
> Have any ideas? Thanks for any help.
>

"Michael" <Mich***@discussions.microsoft.com> wrote in message
news:C4C5BBAF-B836-4840-BF0A-3347B20BEB57@microsoft.com...
> Hi Everyone,
> I'm getting the above error when I try to execute a stored proc. I've been
> trhough the SP and the vb function and can't find anything missing or
> incorrect, unless I missed something. Here is a list of things I've tried:
> 1. Removed the offending parameter from the SP and VB Function. Everything
> works.
> 2. Made sure that the parameters are using the correct parm type.
> 3. Made sure that I was not missing a parameter.
> 4. Made sure that no parameter would get passed in the code.
> Here is the function that calls the SP. Its a long procedure, so please
> bear
> with me:
> Private Function SaveAdmissionNursingAssessment2(cnSQL As SqlConnection)
> as
> Boolean
> 'Dim cnSQL As SqlConnection
> Dim success as Boolean = True
> Dim cmSQL As SqlCommand
> Try
> 'cnSQL = OpenConnection()
> if isnew then
> cmSQL = New SqlCommand("intake_AddAdminNurseAssessment2", cnSQL)
>        cmsql.Transaction = SaveTrans
> isnew = False
> else
> cmSQL = New SqlCommand("intake_UpdAdmissionNursingAssessment2", cnSQL)
>        cmsql.Transaction = SaveTrans
> isDirty = False
> end if
> cmsql.CommandType = CommandType.StoredProcedure
> cmsql.Parameters.Add("PatientID", sqldbtype.Varchar, 20 ).Value =
> fPatientId
> cmsql.Parameters.Add("PreparedDate", sqldbtype.SmallDateTime).Value =
> Now()
> '''(Cut down because the 30000 limit in the forum)
>  if flxFamilyHistory2(4,1) = true then
>        cmsql.Parameters.Add("fhBleeding", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhBleeding", sqldbtype.SmallInt).Value = 0
>    End If
>    cmsql.Parameters.Add("@WhoMeBleedingWho", sqldbtype.Varchar, 20 ).Value
> = iif(isdbnull(flxFamilyHistory2(4,3)), "", flxFamilyHistory2(4,3))
>    if flxFamilyHistory2(5,1) = true then
>        cmsql.Parameters.Add("fhTuberculosis", sqldbtype.SmallInt).Value =
> 1
>    else
>        cmsql.Parameters.Add("fhTuberculosis", sqldbtype.SmallInt).Value =
> 0
>    End If
> cmsql.Parameters.Add("fhTuberculosisWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(5,3)
>    if flxFamilyHistory2(6,1) = true then
>        cmsql.Parameters.Add("fhNervous", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhNervous", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhNervousWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(6,3)
>    if flxFamilyHistory2(7,1) = true then
>        cmsql.Parameters.Add("fhSuicide", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSuicide", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSuicideWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(7,3)
>    if flxFamilyHistory2(8,1) = true then
>        cmsql.Parameters.Add("fhEpilepsy", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhEpilepsy", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhEpilepsyWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(8,3)
>    if  flxFamilyHistory2(9,1) = true then
>        cmsql.Parameters.Add("fhAllergy", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhAllergy", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhAllergyWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(9,3)
>    if flxFamilyHistory2(10,1) = true then
>        cmsql.Parameters.Add("fhStroke", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhStroke", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhStrokeWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(10,3)
>    if flxFamilyHistory2(11,1) = true then
>        cmsql.Parameters.Add("fhArteries", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhArteries", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhArteriesWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(11,3)
>    if flxFamilyHistory2(12,1) = true then
>        cmsql.Parameters.Add("fhSickleCellTraits",
> sqldbtype.SmallInt).Value
> = 1
>    else
>        cmsql.Parameters.Add("fhSickleCellTraits",
> sqldbtype.SmallInt).Value
> = 0
>    End If
> cmsql.Parameters.Add("fhSickleCellTraitsWho", sqldbtype.Varchar,
> 20 ).Value
> = flxFamilyHistory2(12,3)
>    if flxFamilyHistory2(13,1) = true then
>        cmsql.Parameters.Add("fhSickleCellDisease",
> sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSickleCellDisease",
> sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSickleCellDiseaseWho", sqldbtype.Varchar, 20
> ).Value = flxFamilyHistory2(13, 3)
>    if flxFamilyHistory2(14,1) = true then
>        cmsql.Parameters.Add("fhAnemia", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhAnemia", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhAnemiaWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(14,3)
>    if flxFamilyHistory2(15,1) = true then
>        cmsql.Parameters.Add("fhHereditaryDefects",
> sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHereditaryDefects",
> sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHereditaryDefectsWho", sqldbtype.Varchar, 20
> ).Value = flxFamilyHistory2(15,3)
>    if flxFamilyHistory2(16,1) = true then
>        cmsql.Parameters.Add("fhRenalDisease", sqldbtype.SmallInt).Value =
> 1
>    else
>        cmsql.Parameters.Add("fhRenalDisease", sqldbtype.SmallInt).Value =
> 0
>    End If
> cmsql.Parameters.Add("fhRenalDiseaseWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(16,3)
>    if flxFamilyHistory2(17,1) = true then
>        cmsql.Parameters.Add("fhHEP", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHEP", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHEPWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(17,3)
>    if  flxFamilyHistory2(18,1) = true then
>        cmsql.Parameters.Add("fhHIV", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhHIV", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhHIVWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(18,3)
>    if flxFamilyHistory2(19,1) = true then
>        cmsql.Parameters.Add("fhSTD", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhSTD", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhSTDWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(19,3)
>    if flxFamilyHistory2(20,1) = true then
>        cmsql.Parameters.Add("fhOtherInfection", sqldbtype.SmallInt).Value
> = 1
>    else
>        cmsql.Parameters.Add("fhOtherInfection", sqldbtype.SmallInt).Value
> = 0
>    End If
> cmsql.Parameters.Add("fhOtherInfectionWho", sqldbtype.Varchar, 20 ).Value
> =
> flxFamilyHistory2(20,3)
>    if flxFamilyHistory2(21,1) = true then
>        cmsql.Parameters.Add("fhOther", sqldbtype.SmallInt).Value = 1
>    else
>        cmsql.Parameters.Add("fhOther", sqldbtype.SmallInt).Value = 0
>    End If
> cmsql.Parameters.Add("fhOtherWho", sqldbtype.Varchar, 20 ).Value =
> flxFamilyHistory2(21,3)
> cmsql.Parameters.Add("pmcReason1", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(1,0)
> cmsql.Parameters.Add("pmcReason2", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(2,0)
> cmsql.Parameters.Add("pmcReason3", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(3,0)
> cmsql.Parameters.Add("pmcReason4", sqldbtype.Varchar, 50 ).Value =
> grdPrevMedicalCare(4,0)
> cmsql.Parameters.Add("pmcYear1", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(1,1)
> cmsql.Parameters.Add("pmcYear2", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(2,1)
> cmsql.Parameters.Add("pmcYear3", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(3,1)
> cmsql.Parameters.Add("pmcYear4", sqldbtype.Varchar, 10 ).Value =
> grdPrevMedicalCare(4,1)
> cmsql.Parameters.Add("pmcWhere1", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(1,2)
> cmsql.Parameters.Add("pmcWhere2", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(2,2)
> cmsql.Parameters.Add("pmcWhere3", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(3,2)
> cmsql.Parameters.Add("pmcWhere4", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(4,2)
> cmsql.Parameters.Add("pmcDoctor1", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(1,3)
> cmsql.Parameters.Add("pmcDoctor2", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(2,3)
> cmsql.Parameters.Add("pmcDoctor3", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(3,3)
> cmsql.Parameters.Add("pmcDoctor4", sqldbtype.Varchar, 25 ).Value =
> grdPrevMedicalCare(4,3)
> cmsql.Parameters.Add("cdBeenHospitalized", sqldbtype.SmallInt).Value =
> chkSeenDoctorYes.Checked
> cmsql.Parameters.Add("cdWhereTreated", sqldbtype.Varchar, 200 ).Value =
> txtSeenDoctor.Text
> cmsql.Parameters.Add("cdCanContact", sqldbtype.SmallInt).Value =
> chkCurrentPhysicianYes.Checked
> cmsql.Parameters.Add("cdPrivatePhysician", sqldbtype.Varchar, 200 ).Value
> =
> txtCurrentPhysician.Text
> cmsql.Parameters.Add("cdContactName1", sqldbtype.Varchar, 100 ).Value =
> txtContactName1.Text
> cmsql.Parameters.Add("cdContactName2", sqldbtype.Varchar, 100 ).Value =
> txtContactName2.Text
> cmsql.Parameters.Add("cdContactRelation1", sqldbtype.Varchar, 25 ).Value =
> txtRelationship1.Text
> cmsql.Parameters.Add("cdContactRelation2", sqldbtype.Varchar, 25 ).Value =
> txtRelationship2.Text
> cmsql.Parameters.Add("cdContactAddress1", sqldbtype.Varchar, 150 ).Value =
> txtContactAddress1.Text
> cmsql.Parameters.Add("cdContactAddress2", sqldbtype.Varchar, 150 ).Value =
> txtContactAddress2.Text
> cmsql.Parameters.Add("cdContactPhone1", sqldbtype.Varchar, 20 ).Value =
> txtContactNumber1.Text
> cmsql.Parameters.Add("cdContactPhone2", sqldbtype.Varchar, 20 ).Value =
> txtContactNumber2.Text
> cmSQL.ExecuteNonQuery()
>    SaveTrans.Commit
> Catch Exp As SqlException
> MsgBox(Exp.Message, MsgBoxStyle.Critical, "SQL Error")
>    SaveTrans.Rollback
>    success = False
> Catch Exp As Exception
> MsgBox(Exp.Message, MsgBoxStyle.Critical, "General Error")
>    SaveTrans.Rollback
>    success = False
> finally
> ' Close and Clean up objects
>    'SaveTrans.Commit
> cnSQL.Close()
> cmSQL.Dispose()
> cnSQL.Dispose()
>    SaveTrans.Dispose
>    SaveAdmissionNursingAssessment2 = success
> End Try
>
> Here is the stored proc:
>
> CREATE PROCEDURE [dbo].[intake_AddAdminNurseAssessment2]
> @PatientID VarChar (10),
> @PreparedDate smalldatetime,
> @Menarche VarChar (20),
> @Cycle VarChar (20),
> @Duration VarChar (20),
> @PeriodsRegular SmallInt,
> @BleedingIntercourse SmallInt,
> @ArePeriods SmallInt,
> @Pregnancies Int,
> @Cramps SmallInt,
> @MiscarriageCount Int,
> @Heasdaches SmallInt,
> @AbortionCount SmallInt,
> @LastPapSmear smalldatetime,
> @TroublePregnancy SmallInt,
> @SpottingPeriods SmallInt,
> @NumChildren SmallInt,
> @LastPeriod smalldatetime,
> @StillBirths SmallInt,
> @Premenopausal SmallInt,
> @Postmenopausal SmallInt,
> @StartMenopausal VarChar (20),
> @VaginalDischarge SmallInt,
> @DischargeColor VarChar (15),
> @DichargeOdor SmallInt,
> @PresentlyPregnant SmallInt,
> @PresentlyPregnantIfYes SmallInt,
> @PreNatalCare VarChar (100),
> @BirthControl SmallInt,
> @BirthControlIfYes VarChar (50),
> @FreqBirthControl SmallInt,
> @LastMammogram smalldatetime,
> @SelfBreastExam SmallInt,
> @TesticularEnlargement SmallInt,
> @UrineStream SmallInt,
> @PenileLegion SmallInt,
> @DischargePenis SmallInt,
> @TesticularMasses SmallInt,
> @ProstateProblems SmallInt,
> @HepatitsB smalldatetime,
> @MMR smalldatetime,
> @FluVaccine smalldatetime,
> @BCG smalldatetime,
> @Pneumovax smalldatetime,
> @Tetanus smalldatetime,
> @ImmunationOther smalldatetime,
> @HadSurgery SmallInt,
> @Appendectomy SmallInt,
> @AppendectomyComment VarChar (50),
> @Hysterectomy SmallInt,
> @HysterectomyComment VarChar (50),
> @Ovarian SmallInt,
> @OvarianComment VarChar (50),
> @JointReplacement SmallInt,
> @JointReplacementComment VarChar (50),
> @Gallbladder SmallInt,
> @GallbladderComment VarChar (50),
> @Bypass SmallInt,
> @BypassComment VarChar (50),
> @OperationsOther SmallInt,
> @OperationsOtherComment VarChar (50),
> @Allergies1 VarChar (50),
> @Allergies2 VarChar (50),
> @Allergies3 VarChar (50),
> @Medication1 VarChar (50),
> @Medication2 VarChar (50),
> @Medication3 VarChar (50),
> @scNoProblems SmallInt,
> @scFeeding SmallInt,
> @scElimination SmallInt,
> @scBathing SmallInt,
> @scAmbulating SmallInt,
> @scDress SmallInt,
> @scHomeCare SmallInt,
> @scDecribe VarChar (200),
> @shSingle SmallInt,
> @shMarried SmallInt,
> @shSeperated SmallInt,
> @shDivorced SmallInt,
> @shWidowed SmallInt,
> @shSignificantOther SmallInt,
> @shWhomLiveWith VarChar (150),
> @shIllicitDrugs SmallInt,
> @shIllicitDrugsSpecify VarChar (100),
> @shCoffee VarChar (5),
> @shTea VarChar (5),
> @shColas VarChar (5),
> @shForeignTravel SmallInt,
> @shForeignTravelSpecify varchar(150),
> @shFumes SmallInt,
> @shFumesSpecify VarChar (50),
> @shTimeLostWork VarChar (50),
> @paDepression SmallInt,
> @paAnxiety SmallInt,
> @paHostile SmallInt,
> @paAgitate SmallInt,
> @paConfused SmallInt,
> @paHallucinations SmallInt,
> @paVisual SmallInt,
> @paAuditory SmallInt,
> @paGustatory SmallInt,
> @paOlfactory SmallInt,
> @paTactile SmallInt,
> @Treatment1 VarChar (100),
> @Treatment2 VarChar (100),
> @Treatment3 VarChar (100),
> @Treatment4 VarChar (100),
> @Treatment5 VarChar (100),
> @Treatment6 VarChar (100),
> @Treatment7 VarChar (100),
> @PsycMedication1 VarChar (100),
> @PsycMedication2 VarChar (100),
> @PsycMedication3 VarChar (100),
> @PsycMedication4 VarChar (100),
> @fhCancer SmallInt,
> @fhCancerWho VarChar (20),
> @fhGlaucoma SmallInt,
> @fhGlaucomaWho VarChar (20),
> @fhDiabeted SmallInt,
> @fhDiabetedWho VarChar (20),
> @fhBleeding SmallInt,
> /*
> @BleedingWho Varchar(20),
> */
> @WhoMeBleedingWho Varchar(20),
> @fhTuberculosis SmallInt,
> @fhTuberculosisWho VarChar (20),
> @fhNervous SmallInt,
> @fhNervousWho VarChar (20),
> @fhSuicide SmallInt,
> @fhSuicideWho VarChar (20),
> @fhEpilepsy SmallInt,
> @fhEpilepsyWho VarChar (20),
> @fhAllergy SmallInt,
> @fhAllergyWho VarChar (20),
> @fhStroke SmallInt,
> @fhStrokeWho VarChar (20),
> @fhArteries SmallInt,
> @fhArteriesWho VarChar (20),
> @fhSickleCellTraits SmallInt,
> @fhSickleCellTraitsWho VarChar (20),
> @fhSickleCellDisease SmallInt,
> @fhSickleCellDiseaseWho VarChar (20),
> @fhAnemia SmallInt,
> @fhAnemiaWho VarChar (20),
> @fhHereditaryDefects SmallInt,
> @fhHereditaryDefectsWho VarChar (20),
> @fhRenalDisease SmallInt,
> @fhRenalDiseaseWho VarChar (20),
> @fhHEP SmallInt,
> @fhHEPWho VarChar (20),
> @fhHIV SmallInt,
> @fhHIVWho VarChar (20),
> @fhSTD SmallInt,
> @fhSTDWho VarChar (20),
> @fhOtherInfection SmallInt,
> @fhOtherInfectionWho VarChar (20),
> @fhOther SmallInt,
> @fhOtherWho VarChar (20),
> @pmcReason1 VarChar (50),
> @pmcReason2 VarChar (50),
> @pmcReason3 VarChar (50),
> @pmcReason4 VarChar (50),
> @pmcYear1 VarChar (10),
> @pmcYear2 VarChar (10),
> @pmcYear3 VarChar (10),
> @pmcYear4 VarChar (10),
> @pmcWhere1 VarChar (25),
> @pmcWhere2 VarChar (25),
> @pmcWhere3 VarChar (25),
> @pmcWhere4 VarChar (25),
> @pmcDoctor1 VarChar (25),
> @pmcDoctor2 VarChar (25),
> @pmcDoctor3 VarChar (25),
> @pmcDoctor4 VarChar (25),
> @cdBeenHospitalized SmallInt,
> @cdWhereTreated VarChar (200),
> @cdCanContact SmallInt,
> @cdPrivatePhysician VarChar (200),
> @cdContactName1 VarChar (100),
> @cdContactName2 VarChar (100),
> @cdContactRelation1 VarChar (25),
> @cdContactRelation2 VarChar (25),
> @cdContactAddress1 VarChar (150),
> @cdContactAddress2 VarChar (150),
> @cdContactPhone1 VarChar (20),
> @cdContactPhone2 VarChar (20)
> AS
>
> Declare @LastValue int
>
> Set @LastValue = (Select AdminNurseAsses2 from Support)
> set @LastValue = @LastValue + 1
> Update Support
> Set AdminNurseAsses2 = @LastValue
>
> Insert into AdmissionNursingAssessment2(
> KeyId,  PatientID, PreparedDate, Menarche, Cycle, Duration,
> PeriodsRegular,
> BleedingIntercourse, ArePeriods, Pregnancies, Cramps,
> MiscarriageCount, Heasdaches, AbortionCount, LastPapSmear,
> TroublePregnancy,
> SpottingPeriods, NumChildren, LastPeriod, StillBirths,
> Premenopausal, Postmenopausal, StartMenopausal, VaginalDischarge,
> DischargeColor, DichargeOdor, PresentlyPregnant, PresentlyPregnantIfYes,
> PreNatalCare, BirthControl, BirthControlIfYes, FreqBirthControl,
> LastMammogram, SelfBreastExam, TesticularEnlargement, UrineStream,
> PenileLegion,
> DischargePenis, TesticularMasses, ProstateProblems, HepatitsB, MMR,
> FluVaccine, BCG, Pneumovax, Tetanus, ImmunationOther, HadSurgery,
> Appendectomy, AppendectomyComment, Hysterectomy, HysterectomyComment,
> Ovarian, OvarianComment, JointReplacement, JointReplacementComment,
> Gallbladder, GallbladderComment, Bypass, BypassComment, OperationsOther,
> OperationsOtherComment, Allergies1, Allergies2, Allergies3, Medication1,
> Medication2, Medication3, scNoProblems, scFeeding, scElimination,
> scBathing,
> scAmbulating, scDress, scHomeCare, scDecribe, shSingle, shMarried,
> shSeperated, shDivorced, shWidowed, shSignificantOther, shWhomLiveWith,
> shIllicitDrugs, shIllicitDrugsSpecify, shCoffee, shTea, shColas,
> shForeignTravel, shForeignTravelSpecify, shFumes, shFumesSpecify,
> shTimeLostWork, paDepression, paAnxiety, paHostile, paAgitate, paConfused,
> paHallucinations,
> paVisual, paAuditory, paGustatory, paOlfactory, paTactile, Treatment1,
> Treatment2, Treatment3, Treatment4, Treatment5, Treatment6, Treatment7,
> PsycMedication1, PsycMedication2, PsycMedication3, PsycMedication4,
> fhCancer, fhCancerWho, fhGlaucoma, fhGlaucomaWho, fhDiabeted,
> fhDiabetedWho, fhBleeding,
> fhBleedingWho,
> fhTuberculosis, fhTuberculosisWho, fhNervous, fhNervousWho, fhSuicide,
> fhSuicideWho, fhEpilepsy,
> fhEpilepsyWho, fhAllergy, fhAllergyWho, fhStroke, fhStrokeWho, fhArteries,
> fhArteriesWho, fhSickleCellTraits, fhSickleCellTraitsWho,
> fhSickleCellDisease,
> fhSickleCellDiseaseWho, fhAnemia, fhAnemiaWho, fhHereditaryDefects,
> fhHereditaryDefectsWho, fhRenalDisease, fhRenalDiseaseWho, fhHEP,
> fhHEPWho, fhHIV, fhHIVWho, fhSTD, fhSTDWho, fhOtherInfection,
> fhOtherInfectionWho, fhOther, fhOtherWho, pmcReason1, pmcReason2,
> pmcReason3, pmcReason4, pmcYear1, pmcYear2, pmcYear3, pmcYear4, pmcWhere1,
> pmcWhere2, pmcWhere3, pmcWhere4, pmcDoctor1,
> pmcDoctor2, pmcDoctor3, pmcDoctor4, cdBeenHospitalized, cdWhereTreated,
> cdCanContact, cdPrivatePhysician, cdContactName1, cdContactName2,
> cdContactRelation1, cdContactRelation2, cdContactAddress1,
> cdContactAddress2, cdContactPhone1, cdContactPhone2) Values(
> @LastValue, @PatientID, @PreparedDate, @Menarche, @Cycle, @Duration,
> @PeriodsRegular, @BleedingIntercourse, @ArePeriods,
> @Pregnancies, @Cramps, @MiscarriageCount, @Heasdaches, @AbortionCount,
> @LastPapSmear, @TroublePregnancy, @SpottingPeriods,
> @NumChildren, @LastPeriod, @StillBirths, @Premenopausal, @Postmenopausal,
> @StartMenopausal, @VaginalDischarge, @DischargeColor,
> @DichargeOdor, @PresentlyPregnant, @PresentlyPregnantIfYes, @PreNatalCare,
> @BirthControl, @BirthControlIfYes, @FreqBirthControl,
> @LastMammogram, @SelfBreastExam, @TesticularEnlargement, @UrineStream,
> @PenileLegion, @DischargePenis, @TesticularMasses,
> @ProstateProblems, @HepatitsB, @MMR, @FluVaccine, @BCG, @Pneumovax,
> @Tetanus, @ImmunationOther, @HadSurgery, @Appendectomy,
> @AppendectomyComment, @Hysterectomy, @HysterectomyComment, @Ovarian,
> @OvarianComment, @JointReplacement, @JointReplacementComment,
> @Gallbladder, @GallbladderComment, @Bypass, @BypassComment,
> @OperationsOther, @OperationsOtherComment, @Allergies1, @Allergies2,
> @Allergies3, @Medication1, @Medication2, @Medication3, @scNoProblems,
> @scFeeding, @scElimination, @scBathing, @scAmbulating, @scDress,
> @scHomeCare, @scDecribe, @shSingle, @shMarried, @shSeperated, @shDivorced,
> @shWidowed, @shSignificantOther, @shWhomLiveWith,
> @shIllicitDrugs, @shIllicitDrugsSpecify, @shCoffee, @shTea, @shColas,
> @shForeignTravel, @shForeignTravelSpecify, @shFumes, @shFumesSpecify,
> @shTimeLostWork,
> @paDepression, @paAnxiety, @paHostile, @paAgitate, @paConfused,
> @paHallucinations, @paVisual, @paAuditory, @paGustatory, @paOlfactory,
> @paTactile, @Treatment1, @Treatment2, @Treatment3, @Treatment4,
> @Treatment5,
> @Treatment6, @Treatment7, @PsycMedication1,
> @PsycMedication2, @PsycMedication3, @PsycMedication4, @fhCancer,
> @fhCancerWho, @fhGlaucoma, @fhGlaucomaWho, @fhDiabeted,
> @fhDiabetedWho, @fhBleeding,
> @WhoMeBleedingWho,
> @fhTuberculosis, @fhTuberculosisWho, @fhNervous, @fhNervousWho,
> @fhSuicide,
> @fhSuicideWho, @fhEpilepsy, @fhEpilepsyWho, @fhAllergy, @fhAllergyWho,
> @fhStroke, @fhStrokeWho, @fhArteries, @fhArteriesWho,
> @fhSickleCellTraits, @fhSickleCellTraitsWho, @fhSickleCellDisease,
> @fhSickleCellDiseaseWho, @fhAnemia, @fhAnemiaWho, @fhHereditaryDefects,
> @fhHereditaryDefectsWho, @fhRenalDisease, @fhRenalDiseaseWho, @fhHEP,
> @fhHEPWho, @fhHIV, @fhHIVWho, @fhSTD, @fhSTDWho,
> @fhOtherInfection, @fhOtherInfectionWho, @fhOther, @fhOtherWho,
> @pmcReason1,
> @pmcReason2, @pmcReason3, @pmcReason4, @pmcYear1,
> @pmcYear2, @pmcYear3, @pmcYear4, @pmcWhere1, @pmcWhere2, @pmcWhere3,
> @pmcWhere4, @pmcDoctor1, @pmcDoctor2, @pmcDoctor3,
> @pmcDoctor4, @cdBeenHospitalized, @cdWhereTreated, @cdCanContact,
> @cdPrivatePhysician, @cdContactName1, @cdContactName2,
> @cdContactRelation1, @cdContactRelation2, @cdContactAddress1,
> @cdContactAddress2, @cdContactPhone1, @cdContactPhone2)
> GO
>
>
> Have any ideas? Thanks for any help.
>