Problem in Oracle Stored function?

Question

Hi,
I have written this function in Oracle which takes every row of data from excel and updates the database.
CREATE OR REPLACE FUNCTION APD_MASS_UPLOAD_UNITS_FUNC
(PRODUCT_ID VARCHAR2,Product_Code VARCHAR2, str_Adpt_Grp VARCHAR2,str_Adpt_Type VARCHAR2,
str_PDC VARCHAR2,str_Release_ID VARCHAR2,str_Created_by VARCHAR2,
str_Last_Updated_By VARCHAR2, dt_created_Date VARCHAR2,dt_Last_Updated_Date VARCHAR2,
StrMonth1 VARCHAR2,strMth2 VARCHAR2,StrMth3 VARCHAR2,StrMth4 VARCHAR2,
StrMth5 VARCHAR2,StrMth6 VARCHAR2,Sample VARCHAR2)
RETURN VARCHAR2 IS
type Month_type is table of varchar(10) index by binary_integer;
str_month Month_Type;
Fac_ID VARCHAR2(20);
Org_ID VARCHAR2(20);
v_Fac_ID VARCHAR2(20);
v_Org_ID VARCHAR2(20);
Cnt_Number NUMBER;
i_POS NUMBER;
i_Month NUMBER;
i_UNIT NUMBER;
v_Count NUMBER;
i_Count NUMBER;
count_no NUMBER;
str_message varchar2(200);
tb_Spec_ID varChar2(20);
BEGIN
Select tblspecification.Spec_id into tb_Spec_ID
from tblspecification inner join tblrelease_xref
on tblspecification.spec_id = tblrelease_xref.spec_id
where tblspecification.spec_code = Product_code
And tblrelease_xref.release_id = APD_Get_Release_ID(str_PDC, str_Release_Id);
     IF TRIM(tb_Spec_ID) IS NOT NULL THEN
     IF Product_id <> tb_Spec_ID THEN
          str_Message := 'Mismatch:Spec Id and Product Code not matching';
               DBMS_OUTPUT.PUT_LINE(STR_MESSAGE);
               RETURN str_Message;
          END IF;
     ELSE
     str_Message := 'Spec_ID not found';
          RETURN str_Message;
     END IF;
--      dbms_output.put_line('hi1' );
IF TRIM(str_Message) IS NULL then
     SELECT COUNT(*) INTO v_count
     FROM TBLLINE_ADOPT_PLAN
     WHERE SPEC_ID = Product_ID
     AND ADOPT_GROUP = str_Adpt_Grp
     AND ADOPT_TYPE = str_Adpt_Type
AND RELEASE_ID = APD_Get_Release_ID(str_PDC,str_Release_ID);
     Count_No := v_count;
IF Count_No = 0 THEN
INSERT INTO TBLLINE_ADOPT_PLAN
          (SPEC_ID,ADOPT_GROUP,ADOPT_TYPE,RELEASE_ID,SAMPLES,
CREATED_BY,CREATED_DATE,LAST_UPDATED_BY,LAST_UPDATED_DATE,SAMPLE_ONLY_IND, GRID_TYPE_CD) VALUES
(Product_ID,str_Adpt_Grp ,str_Adpt_Type,
APD_Get_Release_ID(str_PDC,str_Release_Id),0,str_Created_By,
TO_DATE(dt_Created_Date,'DD/MM/YYYY'),str_Last_Updated_By,
TO_DATE(dt_Last_Updated_Date,'DD/MM/YYYY'),'N','C');
          COMMIT;
     END IF;
str_Month(1) := strMonth1;
str_Month(2) := strMth2;
str_Month(3) := strMth3;
str_Month(4) := strMth4;
str_Month(5) := strMth5;
str_Month(6) := strMth6;
     SELECT FACILITY_ID INTO v_Fac_ID
     FROM TBLADOPT_GROUP_CSC
     WHERE ADOPT_GROUP = str_Adpt_Grp;
Fac_ID := v_Fac_ID;
SELECT ORG_ID INTO Org_ID
     FROM APD_DV_PRODUCT_V
     WHERE SPEC_ID = Product_ID;
     ORG_ID := v_ORG_ID;
SELECT COUNT(*) INTO v_Count
     FROM TBLPROD_CSC
     WHERE PROD_SPEC_ID = Product_ID;
     IF Count_No = 0 THEN
INSERT INTO TBLPROD_CSC(PROD_SPEC_ID,CSC_FACILITY_ID,PROFIT_CENTER_CD,
DEFAULT_IND, CREATED_BY, CREATED_DATE, LAST_UPDATED_BY, LAST_UPDATED_DATE) VALUES
(Product_ID , Fac_ID,Org_id, 'N', str_Created_by ,To_date ( dt_Created_Date,'DD/MM/YYYY') ,
str_Last_updated_by , To_Date (dt_Last_Updated_Date ,'DD/MM/YYYY'));
          COMMIT;
END IF;
FOR i_Count in 1..6 LOOP
i_Pos := Instr(str_month(i_Count),'-');
i_Month := TO_NUMBER(SUBSTR(str_Month(i_Count),1,i_Pos-1));
i_Unit := TO_NUMBER(SUBSTR(Str_Month(i_Count),i_Pos + 1));
Cnt_Number := GET_COUNT_UNITS(Product_ID,str_Adpt_Grp,str_Adpt_Type,str_Release_ID,str_PDC,str_Month(i_Count));
          DBMS_OUTPUT.PUT_LINE(cNT_NUMBER);
IF Cnt_Number = 0 then
INSERT INTO TBLLINE_ADOPT_UNITS (SPEC_ID,ADOPT_GROUP,ADOPT_TYPE,MONTH,UNITS,CREATED_BY,
CREATED_DATE,LAST_UPDATED_BY,LAST_UPDATED_DATE) VALUES (Product_ID,str_Adpt_Grp,
str_Adpt_Type,i_Month,i_Unit,str_Created_By ,to_date(dt_Created_Date ,'DD/MM/YYYY'),
          str_Last_Updated_By,to_date( dt_Last_Updated_Date ,'DD/MM/YYYY'));
               COMMIT;
ELSIF Cnt_Number = 1 Then
          UPDATE TBLLINE_ADOPT_UNITS A
SET A.UNITS = I_UNIT
WHERE A.SPEC_ID || A.ADOPT_GROUP IN
(SELECT B.SPEC_ID || B.ADOPT_GROUP
FROM TBLLINE_ADOPT_PLAN B
WHERE A.SPEC_ID = B.SPEC_ID AND
A.ADOPT_GROUP = B.ADOPT_GROUP AND
B.ADOPT_TYPE = str_Adpt_Type AND
B.ADOPT_GROUP = str_Adpt_Grp AND
B.SPEC_ID = Product_ID and
B.RELEASE_ID = APD_Get_Release_ID(str_PDC,str_Release_Id ) AND
A.MONTH = i_Month);
               COMMIT;
          ELSE
str_Message := 'Record count more than one';
               RETURN str_Message;
     END IF;
     END LOOP;
IF TO_NUMBER(Sample) <> 0 Then
UPDATE TBLLINE_ADOPT_PLAN
SET SAMPLES = TO_NUMBER(Sample)
WHERE SPEC_ID = Product_ID AND
ADOPT_GROUP = str_Adpt_Grp AND
ADOPT_TYPE = str_Adpt_Type AND
RELEASE_ID = APD_Get_Release_ID(str_PDC,str_Release_Id);
          COMMIT;
END IF;
     str_Message := 'Updated';
     END IF;
     COMMIT;
     DBMS_OUTPUT.PUT_LINE(STR_MESSAGE);
     RETURN str_message;
END;
The problem is after I call this function from excel and after running when I check the table the record is not inserted.Pls help...

Answer 1

Check the chapter on PL/SQL in http://www.oracle.com/technology/tech/php/pdf/underground-php-oracle-manual.pdf
The bottom of page 134 (in the current 1.4 version) has an example of calling a PL/SQL function.
-- cj
PS. General reminder to everyone, if you are using PHP 4.4, please upgrade the OCI8 code as also described in the manual above.