85: --
86: -- Declare local variables
87: --
88: l_proc varchar2(72) := g_package||'create_medical_assessment';
89: l_consultation_date per_medical_assessments.consultation_date%TYPE;
90: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
91: l_object_version_number per_medical_assessments.object_version_number%TYPE;
92: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
93: l_effective_date DATE;
86: -- Declare local variables
87: --
88: l_proc varchar2(72) := g_package||'create_medical_assessment';
89: l_consultation_date per_medical_assessments.consultation_date%TYPE;
90: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
91: l_object_version_number per_medical_assessments.object_version_number%TYPE;
92: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
93: l_effective_date DATE;
94: --
87: --
88: l_proc varchar2(72) := g_package||'create_medical_assessment';
89: l_consultation_date per_medical_assessments.consultation_date%TYPE;
90: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
91: l_object_version_number per_medical_assessments.object_version_number%TYPE;
92: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
93: l_effective_date DATE;
94: --
95: BEGIN
88: l_proc varchar2(72) := g_package||'create_medical_assessment';
89: l_consultation_date per_medical_assessments.consultation_date%TYPE;
90: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
91: l_object_version_number per_medical_assessments.object_version_number%TYPE;
92: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
93: l_effective_date DATE;
94: --
95: BEGIN
96: --
505: --
506: -- Declare LOCAL variables
507: --
508: l_proc varchar2(72) := g_package||'update_medical_assessment';
509: l_consultation_date per_medical_assessments.consultation_date%TYPE;
510: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511: l_object_version_number per_medical_assessments.object_version_number%TYPE;
512: l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
506: -- Declare LOCAL variables
507: --
508: l_proc varchar2(72) := g_package||'update_medical_assessment';
509: l_consultation_date per_medical_assessments.consultation_date%TYPE;
510: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511: l_object_version_number per_medical_assessments.object_version_number%TYPE;
512: l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
514: l_effective_date DATE;
507: --
508: l_proc varchar2(72) := g_package||'update_medical_assessment';
509: l_consultation_date per_medical_assessments.consultation_date%TYPE;
510: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511: l_object_version_number per_medical_assessments.object_version_number%TYPE;
512: l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
514: l_effective_date DATE;
515: --
508: l_proc varchar2(72) := g_package||'update_medical_assessment';
509: l_consultation_date per_medical_assessments.consultation_date%TYPE;
510: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511: l_object_version_number per_medical_assessments.object_version_number%TYPE;
512: l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
514: l_effective_date DATE;
515: --
516: BEGIN
509: l_consultation_date per_medical_assessments.consultation_date%TYPE;
510: l_next_consultation_date per_medical_assessments.next_consultation_date%TYPE;
511: l_object_version_number per_medical_assessments.object_version_number%TYPE;
512: l_ovn per_medical_assessments.object_version_number%TYPE := p_object_version_number;
513: l_medical_assessment_id per_medical_assessments.medical_assessment_id%TYPE;
514: l_effective_date DATE;
515: --
516: BEGIN
517: --