Unable to call a procedure from inside a another procedure

Question

Dear members
I am trying to call a procedure from inside an another procedure.Both the procedures are present within the same package.I am trying to call the second procedure just before the end of the first procedure.Both the procedures are compiling fine but the tables are not getting populated inside the second procedure.Also the DBMS_OUTPUT statements present in second procedures are not getting displayed.(I feel the second procedured is not getting called).
The package specification is as follows:
CREATE OR REPLACE package ANVESH.conv_api_pkg
is
    PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2) ;
    TYPE cts_order_details IS TABLE OF XXCTS_ORDER_DETAILS_STG%ROWTYPE;
    PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details) ;
end conv_api_pkg;The package body is as follows:
CREATE OR REPLACE package body ANVESH.conv_api_pkg
is
PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2)
IS
    v_file_type utl_file.file_type;
    v_buffer VARCHAR2(1000);
    V_CUSTOMER_NAME VARCHAR2(100);
    V_MANUFACTURER VARCHAR2(100);
    V_PRODUCT_NAME VARCHAR2(100);
    V_QUANTITY NUMBER;
    V_REQ_SHIP_DATE DATE;
    V_REQ_PRICE NUMBER;
    V_LOG_FILE utl_file.file_type;
    V_COUNT_CUST NUMBER;
    V_COUNT_PROD NUMBER;
   L_ORDER_LINES CONV_API_PKG.cts_order_details:=CONV_API_PKG.cts_order_details();
BEGIN
    DBMS_OUTPUT.PUT_LINE('Inside begin 1');
    v_file_type := UTL_FILE.fopen(FILE_PATH, FILE_NAME, 'r',null);
        DBMS_OUTPUT.PUT_LINE('Inside begin 1.1');
    LOOP
        BEGIN
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2');
                     UTL_FILE.GET_LINE (v_file_type,v_buffer);
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2.1');
                    DBMS_OUTPUT.PUT_LINE('the  buffer is '||v_buffer);
                    DBMS_OUTPUT.PUT_LINE('the length of buffer is '||length(v_buffer));
                     V_CUSTOMER_NAME := trim(substr(v_buffer, 1, 30));
                     DBMS_OUTPUT.PUT_LINE('Customer Name is '||V_CUSTOMER_NAME);
                     V_MANUFACTURER  := trim(substr(v_buffer, 31, 40));
                     DBMS_OUTPUT.PUT_LINE('Manufacturer is '||V_MANUFACTURER);
                     V_PRODUCT_NAME  := trim(substr(v_buffer,  71, 20));
                     DBMS_OUTPUT.PUT_LINE('Product Name is '||V_PRODUCT_NAME);
                     V_QUANTITY      := to_number(trim(substr(v_buffer, 91, 5)));
                     DBMS_OUTPUT.PUT_LINE('Quantity is '||V_QUANTITY);
                     V_REQ_SHIP_DATE     := to_date(trim(substr(v_buffer, 96, 20)), 'DD-MON-YYYY');
                     DBMS_OUTPUT.PUT_LINE('Requested Ship Date is '|| V_REQ_SHIP_DATE);
                    V_REQ_PRICE        :=nvl(substr( trim(v_buffer), 116, length(v_buffer)-116),0);
                    --DBMS_OUTPUT.PUT_LINE('Requested Price is1 '||substr(v_buffer, 116, 5));
                    DBMS_OUTPUT.PUT_LINE('The requested price is  '||V_REQ_PRICE);
            V_LOG_FILE := UTL_FILE.FOPEN(FILE_PATH, 'LOG_FILE.dat', 'A');
                IF (V_QUANTITY > 0)
                 THEN
                 DBMS_OUTPUT.PUT_LINE('The quantity is '||V_QUANTITY);
                   SELECT COUNT (*)
                   INTO V_COUNT_CUST
                   FROM CONVERSION_CUSTOMERS
                   WHERE CUSTOMER_NAME = V_CUSTOMER_NAME;
                   DBMS_OUTPUT.PUT_LINE('The Customer count is '||V_COUNT_CUST);
                   IF(V_COUNT_CUST > 0)
                   THEN
                       SELECT COUNT(*)
                       INTO V_COUNT_PROD
                       FROM conversion_products
                       WHERE PRODUCT_NAME = V_PRODUCT_NAME;
                       DBMS_OUTPUT.PUT_LINE('The Product count is '||V_COUNT_PROD);
                      IF(V_COUNT_PROD >0)
                       THEN
                            INSERT INTO XXCTS_ORDER_DETAILS_STG VALUES (V_CUSTOMER_NAME, V_PRODUCT_NAME, V_MANUFACTURER, V_QUANTITY, V_REQ_SHIP_DATE, V_REQ_PRICE, 'ACTIVE', 'ORDER TAKEN');  
                       ELSE
                            DBMS_OUTPUT.PUT_LINE('PRODUCT SHOULD BE VALID');
                            UTL_FILE.PUT_LINE(V_LOG_FILE, 'PRODUCT SHOULD BE VALID');                   
                       END IF;
                   ELSE
                      DBMS_OUTPUT.PUT_LINE('CUSTOMER SHOULD BE VALID');
                      UTL_FILE.PUT_LINE(V_LOG_FILE, 'CUSTOMER SHOULD BE VALID');
                   END IF;      
                ELSE
                    DBMS_OUTPUT.PUT_LINE('QUANTITY SHOULD BE VALID');
                    UTL_FILE.PUT_LINE(V_LOG_FILE, 'QUANTITY SHOULD BE VALID');
                END IF;
                EXCEPTION
                WHEN NO_DATA_FOUND THEN
                    EXIT;
                END;
    END LOOP;
SELECT CUSTOMER_NAME, PRODUCT_NAME, MANUFACTURER, QUANTITY, REQUESTED_SHIP_DATE, REQUESTED_PRICE, STATUS,MESSAGE
BULK COLLECT
INTO L_ORDER_LINES
FROM XXCTS_ORDER_DETAILS_STG;
DBMS_OUTPUT.PUT_LINE('values inserted');
proc_conversion_api2(p_orderdetails=>L_ORDER_LINES);
END;
PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details)
  IS
  V_AVL_QUANTITY CONVERSION_PRODUCTS.AVL_QUANTITY%TYPE;
  V_REQ_SHIP_DATE DATE;
  V_LIST_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
  V_NET_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
  V_NET CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
  V_EXTN_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
  V_CUST_DISC CONVERSION_CUSTOMERS.DISCOUNT%TYPE;
  V_CERT_DISC CONVERSION_CERTIFICATION.DISCOUNT%TYPE;
  V_CUST_ID XXCTS_ORDER_DETAILS.CUSTOMER_ID%TYPE;
  V_PROD_ID XXCTS_ORDER_DETAILS.PRODUCT_ID%TYPE;
  V_DISC_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
  V_DISC_NAME CONVERSION_CERTIFICATION.CERTIFICATION%TYPE;
  V_TOTAL_DISC_AMT NUMBER;
  V_TOTAL_DISC NUMBER;
  V_LIMIT NUMBER;
BEGIN
    DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 1');
        FOR i IN p_orderdetails.FIRST..p_orderdetails.LAST
        LOOP
             BEGIN
            DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 2');
            SELECT PRODUCT_ID,AVL_QUANTITY,LIST_PRICE
            INTO V_PROD_ID,V_AVL_QUANTITY,V_LIST_PRICE
            FROM CONVERSION_PRODUCTS
            WHERE PRODUCT_NAME=p_orderdetails(i).PRODUCT_NAME;
            DBMS_OUTPUT.PUT_LINE('PRODUCT QUANTITY is '||V_PROD_ID);
            DBMS_OUTPUT.PUT_LINE('AVAILABLE QUANTITY is '||V_AVL_QUANTITY);
            DBMS_OUTPUT.PUT_LINE('LIST PRICE is '||V_LIST_PRICE);
            SELECT CUSTOMER_ID,NVL(DISCOUNT,0)
            INTO V_CUST_ID,V_CUST_DISC
            FROM CONVERSION_CUSTOMERS
            WHERE CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CUSTOMER ID is '||V_CUST_ID);
            DBMS_OUTPUT.PUT_LINE('CUSTOMER DISCOUNT IS '||V_CUST_DISC);
            SELECT A.DISCOUNT,A.CERTIFICATION
            INTO  V_CERT_DISC,V_DISC_NAME
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CERTIFICATION DISCOUNT IS '||V_CERT_DISC);
            V_NET:=((V_LIST_PRICE)-(V_LIST_PRICE)*(V_CERT_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER CERTIFICATION DISCOUNT IS '||V_NET);
            V_NET_PRICE:=((V_NET)-(V_NET)*(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER COMPLETE DISCOUNT IS '||V_NET_PRICE);
            V_EXTN_PRICE:=(V_NET_PRICE)*(p_orderdetails(i).QUANTITY);
            DBMS_OUTPUT.PUT_LINE('EXTENDED PRICE IS '||V_EXTN_PRICE);
            V_TOTAL_DISC:=((V_CERT_DISC)/100+(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT IS '|| V_TOTAL_DISC);
            V_TOTAL_DISC_AMT:=(V_LIST_PRICE)-(V_NET_PRICE);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT PRICE IS '|| V_TOTAL_DISC_AMT);
            SELECT MAX(A.LIMIT)
            INTO V_LIMIT
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            IF p_orderdetails(i).QUANTITY<V_AVL_QUANTITY THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'QTY HOLD','REQ QNTY LESS THAN AVL QTY',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF p_orderdetails(i).REQUESTED_SHIP_DATE<SYSDATE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'DATE HOLD','SHIPDATE CANNOT BE LESS THAN CURR DATE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF V_NET_PRICE>p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'PRICE HOLD','NET PRICE CANNOT BE MORE THAN REQ PRICE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
           /* IF V_LIMIT<p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'ORDER LIMIT HOLD','PRICE CANNOT EXCEED ORDER LIMIT',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;*/
            EXCEPTION
            WHEN NO_DATA_FOUND THEN
            DBMS_OUTPUT.PUT_LINE(' INSIDE EXCEPTION BLOCK');
            END;
        END LOOP;
END;
end conv_api_pkg;
/the pl/sql block to invoke the the procedure :
declare
begin
PROC_CONVERSION_API('/usr/tmp' ,'Walmart_Orders_062908.dat');
end;please let me know what is wrong in the program.
Thanks
Anvesh

Answer 1

Hi Walter
Yes 'Inside begin 1' and 'Inside begin 2' were printed.Please find the the DBMS_OUTPUT statements that were printed.
Inside begin 1
Inside begin 1.1
Inside begin 2
Inside begin 2.1
the  buffer is BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is SONY ERICSSON
Product Name is W580i
Quantity is 25
Requested Ship Date is 01-AUG-08
The requested price is  50
The quantity is 25
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2
Inside begin 2.1
the  buffer is BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
the length of buffer is 119
Customer Name is BESTBUY
Manufacturer is SAMSUNG
Product Name is BLACKJACK
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is  150
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the  buffer is BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008        
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is APPLE
Product Name is IPHONE 4GB
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is  0
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the  buffer is BESTBUY                       ATT                                     TILT                100  15-JUN-2008        
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is ATT
Product Name is TILT
Quantity is 100
Requested Ship Date is 15-JUN-08
The requested price is  0
The quantity is 100
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the  buffer is BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is NOKIA
Product Name is N73
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is  20
The quantity is 50
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2In the first procedure I am trying to read the data from a flat file and store it in a table.Here is the sample data from the flat file.
BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008        
BESTBUY                       ATT                                     TILT                100  15-JUN-2008        
BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200When tried to execute the second procedure independently using the PL/SQL block,the tables in second procedure were populated and the DBMS_Output statements were also displayed.I have made use of the same query in that case
Thanks
Anvesh
Edited by: Anvesh Reddy on Dec 23, 2008 12:40 PM