Fetch and Closing a Cursor

Question

Listed below is my code.  I get the following errors when trying to execute
Error(35,29): PLS-00103: Encountered the symbol "@" when expecting one of the following:     mod <an identifier> <a double-quoted delimited-identifier>    <a bind variable> current sql execute forall merge pipe
on this block [BEGIN
OPEN source_table;
FETCH source_table INTO @FIN;]
Please any ideas will be helpful.
create or replace
PROCEDURE CHP_ENCOUNTER_LOAD
AS
** Cursor method to cycle through the DWFILENCOUNTER table and get DWFILENCOUNTER Info for each iRowId.
** Revision History:
** Date Name Description Project
** 07/20/10 ¿-
BEGIN
DECLARE CURSOR source_table IS
SELECT DISTINCT
SI.FIN
FROM
CHP_SURG_INFECTION SI;
-- Declare all Variables ***********
--DECLARE
dblPatient_ID int;
dblOrganization int;
-- Get rows from source table (CHP_SURG_INFECTION) into cursor
--SET NOCOUNT ON
BEGIN
OPEN source_table;
FETCH source_table INTO @FIN
                    --...bunch more fields here...
--This is where you perform your detailed row-by-row processing.
WHILE @@Fetch_Status = 0
****** Avoid Duplicates Section
-- Select to see if Encounter already exists (FIN exists on the DWFILENCOUNTER table)
SELECT E.FIN
FROM DWFILENCOUNTER E
WHERE E.FIN = @FIN
     -- Loop onto next row if already found
IF SQL%NOTFOUND THEN
goto end_loop;
END IF;
******* Lookup Section ************
-- PATIENT - Select Patient from Patient Table (MRN exists on the DWFILPATIENT Table)
     SELECT P.Patient_ID into dblPatient_ID
     FROM DWFILPATIENT P
     WHERE P.MRN = @MRN;
-- Log out Error if Patient Not found and Loop to next Record (don't insert)
IF SQL%NOTFOUND THEN
goto end_loop;
END IF;
-- ORGANIZATION - Select Organization from the DWOrganization table based on name
     SELECT O.Organization_Id into dblOrganization_ID
     FROM DWDIMORGANIZATION O
     WHERE O.ORG_NAME = @FACILITY;
-- Log out Error if Organization Not found and Loop to next Record (don't insert)
     IF SQL%NOTFOUND THEN
          goto end_loop;
     END IF;
**** Insert Rows *********************************
-- Inserting columns in the DWFILENCOUNTER table
INSERT INTO DWFILENCOUNTER (ENCOUNTER_TYPE, FIN, PATIENT_ID, ORGANIZATION_ID )
VALUES (@ENCOUNTER_TYPE, @FIN, dblPatient_ID, dblOrganization_ID)
-- Commit
¿- Get the next row.
FETCH
<<end_loop>>
END
LOOP
CLOSE source_table
DEALLOCATE source_table
RETURN
END CHP_ENCOUNTER_LOAD;

Answer 1

Sory for not posting the right code. Here  is the code with all vriable included.
create or replace
PROCEDURE CHP_ENCOUNTER_LOAD
AS
** Cursor method to cycle through the DWFILENCOUNTER table and get DWFILENCOUNTER Info for each iRowId.
** Revision History:
** Date Name Description Project
** 07/20/10 ¿-
--SET NOCOUNT ON
-- Declare all Variables ***********
DECLARE
@dblPatient_ID int;
@dblOrganization int;
@FIN VARCHAR2(50 BYTE);
@MRN VARCHAR2(25 BYTE);
@FACILITY VARCHAR2(50 BYTE);
@ENCOUNTER_TYPE VARCHAR2(50 BYTE);
CURSOR source_table FOR
BEGIN
-- Get rows from source table (CHP_SURG_INFECTION) into cursor
SELECT DISTINCT
SI.FIN
SI.ENCNTR_TYPE
FROM
CHP_SURG_INFECTION SI;
OPEN source_table
     FETCH source_table INTO
                    @FIN,
                    @MRN,
                    @FACILITY,
                    @ENCOUNTER_TYPE
                    --...bunch more fields here...
--This is where you perform your detailed row-by-row processing.
WHILE @@Fetch_Status = 0
BEGIN
--****** Avoid Duplicates Section
-- Select to see if Encounter already exists (FIN exists on the DWFILENCOUNTER table)
     SELECT E.FIN
     FROM DWFILENCOUNTER E
     WHERE E.FIN = @FIN
     -- Loop onto next row if already found
     IF SQL%NOTFOUND THEN
          goto end_loop;
     END IF;
--******* Lookup Section ************
-- PATIENT - Select Patient from Patient Table (MRN exists on the DWFILPATIENT Table)
     SELECT P.Patient_ID into dblPatient_ID
     FROM DWFILPATIENT P
     WHERE P.MRN = @MRN;
-- Log out Error if Patient Not found and Loop to next Record (don't insert)
     IF SQL%NOTFOUND THEN
          goto end_loop;
     END IF;
-- ORGANIZATION - Select Organization from the DWOrganization table based on name
     SELECT O.Organization_Id into dblOrganization_ID
     FROM DWDIMORGANIZATION O
     WHERE O.Name = @FACILITY;
-- Log out Error if Organization Not found and Loop to next Record (don't insert)
     IF SQL%NOTFOUND THEN
          goto end_loop;
     END IF;
--**** Insert Rows *********************************
-- Inserting columns in the DWFILENCOUNTER table
INSERT INTO DWFILENCOUNTER (ENCOUNTER_TYPE, FIN, PATIENT_ID, ORGANIZATION_ID )
VALUES (@ENCOUNTER_TYPE, @FIN, @dblPatient_ID, @dblOrganization_ID)
-- Commit
-- Get the next row.
FETCH
<<end_loop>>
END
LOOP
CLOSE source_table
DEALLOCATE source_table
RETURN
END CHP_ENCOUNTER_LOAD;