Call procedure's package from sql query ?

Question

Hi,
I've write a package. In this package there is a procedure A with this parameters (in x, in y, out z).
In the second procedure B, i want te create a cursor like this :
'select * from table where table.fiels in ( A.(x,y) )'
Is it possible to do this ?
Thanks for the answer.

Answer 1

I think so. Could you flesh out your code a little more? Yes of course, this is my PLSQL code :
/*This is the first procedure */
procedure Get_IDGeneriques(i_idfamille in generiquesliensfamilles.idfamille%type, i_idprofil in generiqueslienslistesmono.idlisteprofil%type, i_idconstitution in generiqueslienslistesmono.idlisteconstitution%type, i_idserie in generiqueslienslistesmono.idlisteseriefraises%type, i_idpas in generiqueslienslistesmono.idlistepasfraises%type, i_idtypeattache in generiqueslienslistesmono.idlisteattache%type, i_idlisteSensISO in generiqueslienslistesmono.idlisteSensISO%type, i_idlistearrosagecentre in generiqueslienslistesmono.idlisteArrosageCentre%type, i_listematieres in varchar2, i_listemachines in varchar2,i_listeopes in varchar2, o_idgenerique out tbl_bin_int)
is
BEGIN
DECLARE
TYPE TypeCursorReq IS REF CURSOR;
          test TypeCursorReq;
sqlstm VARCHAR2(4000);
recordcount number default 0;
idgenerique generiqueslienslistesmono.idref%type;
BEGIN
sqlstm := 'SELECT GENERIQUESLIENSLISTESMULTI.IDGENERIQUE FROM GENERIQUESLIENSLISTESMULTI, GENERIQUESLIENSLISTESMULTI GENERIQUESLIENSLISTESMULTI1, GENERIQUESLIENSLISTESMULTI GENERIQUESLIENSLISTESMULTI2
WHERE GENERIQUESLIENSLISTESMULTI.IDGENERIQUE = GENERIQUESLIENSLISTESMULTI1.IDGENERIQUE AND GENERIQUESLIENSLISTESMULTI.IDGENERIQUE = GENERIQUESLIENSLISTESMULTI2.IDGENERIQUE AND (GENERIQUESLIENSLISTESMULTI.TYPE1 =''MT'')
AND GENERIQUESLIENSLISTESMULTI.IDLISTE IN (' || i_listematieres || ') AND (GENERIQUESLIENSLISTESMULTI1.TYPE1 =''OP'') AND GENERIQUESLIENSLISTESMULTI1.IDLISTE IN (' || i_listeopes || ') AND GENERIQUESLIENSLISTESMULTI2.TYPE1 =''MA''
AND GENERIQUESLIENSLISTESMULTI2.IDLISTE IN (' || i_listemachines || ')';
OPEN test for sqlstm;
                    LOOP
                    FETCH test INTO      idgenerique;
                    EXIT WHEN test%NOTFOUND;
recordcount := recordcount+1;
o_idgenerique(recordcount) := idgenerique;
END LOOP;
END;
end;
/* This is the second procedure who call the first one */
procedure Get_IDOutils(i_idfamille in generiquesliensfamilles.idfamille%type, i_idprofil in generiqueslienslistesmono.idlisteprofil%type, i_idconstitution in generiqueslienslistesmono.idlisteconstitution%type, i_idserie in generiqueslienslistesmono.idlisteseriefraises%type, i_idpas in generiqueslienslistesmono.idlistepasfraises%type, i_idtypeattache in generiqueslienslistesmono.idlisteattache%type, i_idlisteSensISO in generiqueslienslistesmono.idlisteSensISO%type, i_idlistearrosagecentre in generiqueslienslistesmono.idlisteArrosageCentre%type, i_listematieres in varchar2, i_listemachines in varchar2,i_listeopes in varchar2, o_idoutil out tbl_bin_int)
is
BEGIN
DECLARE
TYPE TypeCursorReq IS REF CURSOR;
          test TypeCursorReq;
sqlstm VARCHAR2(4000);
recordcount number default 0;
idoutil outilslienslistesmono.idref%type;
BEGIN
sqlstm := 'SELECT * FROM OUTILSLIENSLISTESMONO,LIENSGENERIQUESOUTILS
WHERE OUTILSLIENSLISTESMONO.IDRef = LIENSGENERIQUESOUTILS.IDRefOutilFabMati
AND LIENSGENERIQUESOUTILS.IDRefGeneFabMati in (Get_IDGeneriques(1,232,22,47,26,210,206,50,''10444,10448,10451'',''10337'',''10319'') )';
OPEN test for sqlstm;
                    LOOP
                    FETCH test INTO      idoutil;
                    EXIT WHEN test%NOTFOUND;
recordcount := recordcount+1;
o_idoutil(recordcount) := idoutil;
END LOOP;
END;
end;
END TITAN2;