Calling Procedure B from Procedure A having parameters

Question

Hi,
I have two procedures, I m registering first procedure as a concurrent program  like  XXXpackage.main
I want to call Procudure new_segments_id from Procedure main.
I need l_old_id  parameter for new_segments_id procedure, so I m passing to main procedure.
Now, how should i call new_segments_id procedure from main procedure.
Procedure main(
                       errbuf       OUT VARCHAR2
                      ,retcode    OUT VARCHAR2
                      ,l_old_id    IN  NUMBER
Procudure new_segments_id(l_old_id    IN  NUMBER
                                         ,l_new_id   OUT NUMBER
Thanks.

Answer 1

Not sure if this is what exactly you want but below is an example of propagation of OUT parameters of one procedure as IN parameters to the another procedure within the same package.
SQL> CREATE OR REPLACE
  2  PACKAGE PACKAGE_TEST
  3  AS
  4    PROCEDURE procedure_1(
  5        out_ename OUT VARCHAR2);
  6    PROCEDURE procedure_2(
  7        v_ename VARCHAR2);
  8  END PACKAGE_TEST;
  9  /
Package created.
SQL> CREATE OR REPLACE
  2  PACKAGE body package_test
  3  IS
  4  PROCEDURE procedure_1(
  5      out_ename OUT VARCHAR2)
  6  AS
  7    v_ename VARCHAR2(200) := 'SMITH' ;
  8  BEGIN
  9    SELECT
10      ename
11    INTO
12      out_ename
13    FROM
14      emp
15    WHERE
16      ename = v_ename;
17    DBMS_OUTPUT.PUT_LINE('PROCEDURE 1');
18    procedure_2(out_ename);
19  END;
20
21  PROCEDURE procedure_2(
22      v_ename VARCHAR2)
23  IS
24  v_count number;
25  BEGIN
26    DBMS_OUTPUT.PUT_LINE('PROCEDURE 2');
27    dbms_output.put_line(V_ENAME);
28    select count(*) into v_count from emp where ename = v_ename;
29    dbms_output.put_line('COUNT is ' || v_count);
30  END;
31  END;
32
33  /
Package body created.
SQL> DECLARE
  2    ENAME VARCHAR2(5);
  3  BEGIN
  4    package_test.procedure_1(ENAME);
  5  END;
  6  /
PROCEDURE 1                                                                   
PROCEDURE 2                                                                   
SMITH                                                                         
COUNT is 1                                                                    
PL/SQL procedure successfully completed.
Ishan.