Procedure execution is timing out

Question

Hi,
When executing the following procedure, it is timing out.
Any body help me out.
Regards,
SS.
CREATE OR REPLACE procedure get_allorder_details
FromDate                in varchar2,
ToDate               in varchar2,
LinesType               in varchar2,
ordernumber               out arr_varchar,
ordertype               out arr_varchar,
originatingsystem          out arr_varchar,
order_linenumber      out arr_varchar,
revisionnumber          out arr_varchar,
symphonycompletiondate     out arr_varchar,
oraclereceivedate      out arr_varchar,
oracleimportdate      out arr_varchar,
importstatus          out arr_varchar,
extended_price          out arr_varchar,
quantity               out arr_varchar,
modelnumber               out arr_varchar)
is
total               number;
err_num          number;
--LinesType            varchar2(8);
err_msg          VARCHAR2(800);
cursor allorderdetails is
select ordernbr, linenbr,revisionnbr,ordertype, originatingsystem, IMPORT_STATUS,
to_char(new_time(creation_date,'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') orderdate,to_char(extendedprice/100) extendeprice,qty,modelstring
from [email protected]_ORADBTST2.NA.EMERSONPROCESS.COM
where trunc(creation_date) between to_date(FromDate, 'MM/DD/YYYY')
and to_date(ToDate, 'MM/DD/YYYY')
and pluginid = 4
order by ordernbr asc,linenbr asc,revisionnbr asc;
cursor addorderdetails is
select ordernbr, linenbr,revisionnbr,ordertype, originatingsystem ,IMPORT_STATUS,
to_char(new_time(creation_date,'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') orderdate,to_char(extendedprice/100) extendeprice,qty,modelstring
from [email protected]_ORADBTST2.NA.EMERSONPROCESS.COM
where trunc(creation_date) between to_date(FromDate, 'MM/DD/YYYY')
and to_date(ToDate, 'MM/DD/YYYY')
and pluginid = 4
and revisionnbr=1
order by ordernbr asc,linenbr asc,revisionnbr asc;
cursor latestlines is
select fjl.ordernbr, fjl.linenbr, fjl.revisionnbr,fjl.ordertype, fjl.originatingsystem, fjl.IMPORT_STATUS,
to_char(new_time(fjl.creation_date,'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') orderdate,to_char(fjl.extendedprice/100) extendeprice,
fjl.qty,fjl.modelstring               
from [email protected]_ORADBTST2.NA.EMERSONPROCESS.COM fjl,               
     (select ordernbr, linenbr, max(revisionnbr) revnum          
     from [email protected]_ORADBTST2.NA.EMERSONPROCESS.COM          
     where pluginid = 4
     and trunc(creation_date) between to_date(FromDate, 'MM/DD/YYYY')
     and to_date(ToDate, 'MM/DD/YYYY')
     group by ordernbr, linenbr) plainlist
where fjl.ordernbr = plainlist.ordernbr     
and fjl.linenbr = plainlist.linenbr     
and fjl.revisionnbr = plainlist.revnum     
and trunc(creation_date) between to_date(FromDate, 'MM/DD/YYYY')     
and to_date(ToDate, 'MM/DD/YYYY')     
and fjl.pluginid = 4     
order by ordernbr asc, linenbr asc, revisionnbr asc;
cursor cancelorderdetails is
select ordernbr, linenbr,revisionnbr,ordertype, originatingsystem, IMPORT_STATUS,
to_char(new_time(creation_date,'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') orderdate,to_char(extendedprice/100) extendeprice,qty,modelstring
from [email protected]_ORADBTST2.NA.EMERSONPROCESS.COM
where trunc(creation_date) between to_date(FromDate, 'MM/DD/YYYY')
and to_date(ToDate, 'MM/DD/YYYY')
and pluginid = 4
and revisionnbr > 1
order by ordernbr asc,linenbr asc,revisionnbr asc;
alllinescounter allorderdetails%ROWTYPE;
addlinescounter addorderdetails%ROWTYPE;
latestlinescounter latestlines%ROWTYPE;
cancellinescounter cancelorderdetails%ROWTYPE;
begin
--LinesType := 'ADD';
ordernumber          := arr_varchar();
ordertype          := arr_varchar();
originatingsystem     := arr_varchar();
order_linenumber := arr_varchar();
symphonycompletiondate := arr_varchar();
oraclereceivedate := arr_varchar();
oracleimportdate := arr_varchar();
importstatus     := arr_varchar();
extended_price     := arr_varchar();
quantity          := arr_varchar();
modelnumber          := arr_varchar();
revisionnumber     := arr_varchar();
total               := 0;               
-- Fetch up to "batch_size" rows into PL/SQL table,
IF UPPER(LinesType) = 'ALL' then
--DBMS_OUTPUT.PUT_LINE(' Exception occured ' );
FOR alllinescounter IN allorderdetails
LOOP
total := total + 1;
     BEGIN
     ordernumber.extend(1);     
     order_linenumber.extend(1);
     ordertype.extend(1);
     originatingsystem.extend(1);
     revisionnumber.extend(1);
     oracleimportdate.extend(1);
     importstatus.extend(1);
     extended_price.extend(1);
     quantity.extend(1);
     modelnumber.extend(1);     
     ordernumber(total) := alllinescounter.ORDERNBR;
     order_linenumber(total) := alllinescounter.LINENBR;
     ordertype(total) := alllinescounter.ORDERTYPE;
     originatingsystem(total) := alllinescounter.ORIGINATINGSYSTEM;
     oracleimportdate(total) := alllinescounter.orderdate;
     importstatus(total) := alllinescounter.IMPORT_STATUS;
     extended_price(total) := alllinescounter.extendeprice;
     quantity(total) := alllinescounter.qty;
     revisionnumber(total) := alllinescounter.revisionnbr;
     modelnumber(total) := alllinescounter.modelstring;
     EXCEPTION WHEN OTHERS THEN
          err_num := SQLCODE;     
     --     DBMS_OUTPUT.PUT_LINE(' Exception occured ' || err_num);     
     END;
     BEGIN
          symphonycompletiondate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') symphonycompletiondate
          into symphonycompletiondate(total)
          FROM XML1_XACTS
          WHERE
          DIVISION = '4' AND
          ordernbr = ordernumber(total) and ordertype = ordertype(total)
          and LINENBR = order_linenumber(total)
          and revisionnbr= revisionnumber(total);          
     EXCEPTION WHEN OTHERS THEN
          symphonycompletiondate(total) := 'NULL';               
     END;
     BEGIN
          oraclereceivedate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') oraclereceiveddate
          into oraclereceivedate(total)
          FROM XML14_XACTS
          WHERE
          upper(systemname) = 'MFG203' AND
          ordernbr = ordernumber(total)
          and LINENBR = order_linenumber(total)
          and revisionnbr= revisionnumber(total);          
     EXCEPTION WHEN OTHERS THEN
          oraclereceivedate(total) := 'NULL';               
     END;     
END LOOP;
elsif UPPER(LinesType) = 'ADD' then
FOR addlinescounter IN addorderdetails
LOOP
total := total + 1;
     BEGIN
     ordernumber.extend(1);     
     order_linenumber.extend(1);
     ordertype.extend(1);
originatingsystem.extend(1);
     oracleimportdate.extend(1);
     importstatus.extend(1);
     extended_price.extend(1);
     quantity.extend(1);
     modelnumber.extend(1);
     revisionnumber.extend(1);
     ordernumber(total) := addlinescounter.ORDERNBR;
     order_linenumber(total) := addlinescounter.LINENBR;
     ordertype(total) := addlinescounter.ORDERTYPE;
     originatingsystem(total) := addlinescounter.ORIGINATINGSYSTEM;
     oracleimportdate(total) := addlinescounter.orderdate;
     importstatus(total) := addlinescounter.IMPORT_STATUS;
     extended_price(total) := addlinescounter.extendeprice;
     quantity(total) := addlinescounter.qty;
     revisionnumber(total) := addlinescounter.revisionnbr;
     modelnumber(total) := addlinescounter.modelstring;
     EXCEPTION WHEN OTHERS THEN
          err_num := SQLCODE;     
     --     DBMS_OUTPUT.PUT_LINE(' Exception occured ' || err_num);     
     END;
     BEGIN
          symphonycompletiondate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') symphonycompletiondate
          into symphonycompletiondate(total)
          FROM XML1_XACTS
          WHERE
          DIVISION = '4' AND
          revisionnbr =1 and
          ordernbr = ordernumber(total) and ordertype = ordertype(total)
          and LINENBR = order_linenumber(total);
     EXCEPTION WHEN OTHERS THEN
          symphonycompletiondate(total) := 'NULL';               
     END;
     BEGIN
          oraclereceivedate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') oraclereceiveddate
          into oraclereceivedate(total)
          FROM XML14_XACTS
          WHERE
          upper(systemname) = 'MFG203' AND
          ordernbr = ordernumber(total) and
          revisionnbr =1 and
          LINENBR = order_linenumber(total);          
     EXCEPTION WHEN OTHERS THEN
          oraclereceivedate(total) := 'NULL';               
     END;     
END LOOP;
elsif UPPER(LinesType) = 'NET' then
DBMS_OUTPUT.PUT_LINE(' Exception occured ' );
FOR latestlinescounter IN latestlines
LOOP
total := total + 1;
     BEGIN
     ordernumber.extend(1);     
     order_linenumber.extend(1);
     ordertype.extend(1);
     originatingsystem.extend(1);
     oracleimportdate.extend(1);
     importstatus.extend(1);
     extended_price.extend(1);
     quantity.extend(1);
     modelnumber.extend(1);
     revisionnumber.extend(1);
     ordernumber(total) := latestlinescounter.ORDERNBR;
     order_linenumber(total) := latestlinescounter.LINENBR;
     ordertype(total) := latestlinescounter.ORDERTYPE;
     originatingsystem(total) := latestlinescounter.ORIGINATINGSYSTEM;
     oracleimportdate(total) := latestlinescounter.orderdate;
     importstatus(total) := latestlinescounter.IMPORT_STATUS;
     extended_price(total) := latestlinescounter.extendeprice;
     quantity(total) := latestlinescounter.qty;
     revisionnumber(total) := latestlinescounter.revisionnbr;
     modelnumber(total) := latestlinescounter.modelstring;
     EXCEPTION WHEN OTHERS THEN
          err_num := SQLCODE;     
     --     DBMS_OUTPUT.PUT_LINE(' Exception occured ' || err_num);     
     END;
     BEGIN
          symphonycompletiondate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') symphonycompletiondate
          into symphonycompletiondate(total)
          FROM XML1_XACTS
          WHERE
          DIVISION = '4' AND
          ordernbr = ordernumber(total) and ordertype = ordertype(total)
          and LINENBR = order_linenumber(total)
          and revisionnbr= revisionnumber(total);
     EXCEPTION WHEN OTHERS THEN
          symphonycompletiondate(total) := 'NULL';               
     END;
     BEGIN
          oraclereceivedate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') oraclereceiveddate
          into oraclereceivedate(total)
          FROM XML14_XACTS
          WHERE
          upper(systemname) = 'MFG203' AND
          ordernbr = ordernumber(total)
          and LINENBR = order_linenumber(total)
          and revisionnbr= revisionnumber(total);
     EXCEPTION WHEN OTHERS THEN
          oraclereceivedate(total) := 'NULL';               
     END;     
END LOOP;
elsif UPPER(LinesType) = 'CHANGE' then
FOR cancellinescounter IN cancelorderdetails
LOOP
total := total + 1;
     BEGIN
     ordernumber.extend(1);     
     order_linenumber.extend(1);
     ordertype.extend(1);
     originatingsystem.extend(1);
     oracleimportdate.extend(1);
     importstatus.extend(1);
     extended_price.extend(1);
     quantity.extend(1);
     modelnumber.extend(1);
     revisionnumber.extend(1);
     ordernumber(total) := cancellinescounter.ORDERNBR;
     order_linenumber(total) := cancellinescounter.LINENBR;
     ordertype(total) := cancellinescounter.ORDERTYPE;
     originatingsystem(total) := cancellinescounter.ORIGINATINGSYSTEM;
     oracleimportdate(total) := cancellinescounter.orderdate;
     importstatus(total) := cancellinescounter.IMPORT_STATUS;
     extended_price(total) := cancellinescounter.extendeprice;
     quantity(total) := cancellinescounter.qty;
     revisionnumber(total) := cancellinescounter.revisionnbr;
     modelnumber(total) := cancellinescounter.modelstring;
     EXCEPTION WHEN OTHERS THEN
          err_num := SQLCODE;     
     --     DBMS_OUTPUT.PUT_LINE(' Exception occured ' || err_num);     
     END;
     BEGIN
          symphonycompletiondate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') symphonycompletiondate
          into symphonycompletiondate(total)
          FROM XML1_XACTS
          WHERE
          DIVISION = '4' AND
          revisionnbr = revisionnumber(total) and
          ordernbr = ordernumber(total) and ordertype = ordertype(total)
          and LINENBR = order_linenumber(total);
     EXCEPTION WHEN OTHERS THEN
          symphonycompletiondate(total) := 'NULL';               
     END;
     BEGIN
          oraclereceivedate.extend(1);
          SELECT TO_CHAR(new_time(file_ts(FILENAME),'CDT','MST')+60/1440,'MM/DD/YYYY hh24:mi:ss') oraclereceiveddate
          into oraclereceivedate(total)
          FROM XML14_XACTS
          WHERE
          upper(systemname) = 'MFG203' AND
          ordernbr = ordernumber(total) and
          revisionnbr =revisionnumber(total) and
          LINENBR = order_linenumber(total);          
     EXCEPTION WHEN OTHERS THEN
          oraclereceivedate(total) := 'NULL';               
     END;     
END LOOP;
end if;      
exception
when others then
err_num := SQLCODE;
err_msg := '[GET_ORDER_DETAILS] procedure failed'||
chr(13)||chr(10)||
'With error: '||chr(13)||chr(10)||substr(SQLERRM,1,450);
end;
/

Answer 1

PLSQL debugging is a feature of SQLDeveloper (free download from Oracle), you could step through your procedure and see what takes the time, do an explain plan on the query say how many rows are in the tables... and report back.
Turloch