Loop wirh for using case when

Question

Hello,
i wanna use a loop over a select
but this select depend on a variable value
so, here is what i did:
CREATE OR REPLACE Procedure dispatch_pat(perId in number,shortlist_ID in number,orId in number, typeDonnee in number) is
orVar number(7);
test number;
begin
for orVar in (case when (orId <> 0) then (select OR_ID as id from ordre_regrpmt where or_id=orId) else (select OR_ID as id from ordre_regrpmt where or_id in ( select or_id from DETAIL_SHORT_LIST where ORSHORTLIST_ID=shortlist_ID)) end) loop
select count(*) into test from ajust_pat where (OR_ID=orVar) and (PER_ID=perId);
if (test=0) then
insert into ajust_pat (OR_ID,PER_ID,GENE_ID) values (orVar.id,perId,typeDonnee);
end if;
end loop;
end;
but i got this error :
On line: 5
PLS-00103: Encountered the symbol "SELECT" when expecting one of the following:
( - + case mod new not null others <an identifier>
<a double-quoted delimited-identifier> <a bind variable> avg
Regards
Sallemel

Answer 1

Try this code
/* Formatted on 2009/03/06 08:23 (Formatter Plus v4.8.8) */
CREATE OR REPLACE PROCEDURE dispatch_pat (
   perid          IN   NUMBER,
   shortlist_id   IN   NUMBER,
   orid           IN   NUMBER,
   typedonnee     IN   NUMBER
IS
   orvar   NUMBER (7);
   TEST    NUMBER;
BEGIN
   IF orid = 0
   THEN
      FOR orvar IN (SELECT or_id AS ID
                      FROM ordre_regrpmt
                     WHERE or_id = orid)
      LOOP
         SELECT COUNT (*)
           INTO TEST
           FROM ajust_pat
          WHERE (or_id = orvar) AND (per_id = perid);
         IF (TEST = 0)
         THEN
            INSERT INTO ajust_pat
                        (or_id, per_id, gene_id
                 VALUES (orvar.ID, perid, typedonnee
         END IF;
      END LOOP;
   ELSE
      FOR orvar IN (SELECT or_id AS ID
                      FROM ordre_regrpmt
                     WHERE or_id IN (SELECT or_id
                                       FROM detail_short_list
                                      WHERE orshortlist_id = shortlist_id))
      LOOP
         SELECT COUNT (*)
           INTO TEST
           FROM ajust_pat
          WHERE (or_id = orvar) AND (per_id = perid);
         IF (TEST = 0)
         THEN
            INSERT INTO ajust_pat
                        (or_id, per_id, gene_id
                 VALUES (orvar.ID, perid, typedonnee
         END IF;
      END LOOP;
   END IF;
END;
/