Procedures inside Oracle Packages

Hello All,
Can I execute an procedure defined inside an Oracle package using jdbc?
Are the procedures defined inside Oracle packages are same as stored procedures ?
Any help would be grately appreciated.
regards,
Abhishek.

Yes you can execute a procedure defined inside an Oracle package. Use the prepareCall method eg
String param1 = 'some value';
oracleCStmt = oracleConn.prepareCall("begin package_name.proc_name(?); end;");
oracleCStmt.setString(1,param1);
oracleCStmt.executeUpdate();Yes a stored procedure in a package is no different to on inside a package. A package is just a collection of PL/SQL objects.
Richard

Similar Messages

Display invalid pattern name while calling the procedure inside the package

Hi ,
I'am trying to call a package which is having procedure ,from JDBC in which one of the return type is Varray from the procedure.When i'am calling the procedure inside the package
from java showing invalid name pattern name.Just i'am placing the code snippet for package and calling java through package.
Package body
create or replace package body Rewards_Summary_Package as
PROCEDURE Rewards_Summary_Procedure
(v_Tot_Earned_Points OUT NUMBER, v_TOT_REDEEMED OUT NUMBER, v_TOT_PTS_EXP OUT NUMBER,
v_TOT_AVAILABLE OUT NUMBER, v_TIER_NAME OUT VARCHAR2,VA OUT t_varray,V_PR_CON_ID IN VARCHAR2) AS
v_ACCRUALED_VAL NUMBER := 0;
v_USED_VAL NUMBER := 0;
/*v_TOT_ACCRUALED_VAL NUMBER := 0;
v_TOT_USED_VAL NUMBER := 0;
V_PR_TIER_ID VARCHAR2(30);
V_PR_CON_ID VARCHAR2(30);
V_EXPIRY_DT DATE;
v_month varchar2(30);
v_date date;
v_next_month_date date;
v_TIER_NAME VARCHAR2(50);
v_TOT_AVAILABLE NUMBER := 0;
v_EARNED NUMBER := 0;
v_TOT_EARNED NUMBER := 0;
v_TOT_REDEEMED NUMBER := 0;
v_TOT_EXPIRED NUMBER := 0;
v_EARNED_TOTAL NUMBER := 0;
v_TOT_EXPIRED_MONTH NUMBER := 0;
v_TOT_PTS_EXP NUMBER := 0;
v_TOT_RDMD_CANCELLED NUMBER :=0;
v_TOT_EARNED_POINTS NUMBER :=0;*/
v_FIRST_DT DATE;
v_LAST_DT DATE;
v_MEMBER_ID VARCHAR2(30);
V_EXPIRED_VAL Number;
v_TOT_PRDPTS_RDMD NUMBER := 0;
v_TOT_PTS_RDMD NUMBER := 0;
v_CAN_ACCRUAL_POINTS NUMBER := 0;
BEGIN
/*TotalRwdPoints and Tier Name*/
SELECT TR.NAME,MEM.POINT_TYPE_A_VAL,MEM.ROW_ID INTO v_TIER_NAME,v_TOT_AVAILABLE,v_MEMBER_ID
FROM SIEBEL.S_LOY_MEMBER MEM, SIEBEL.S_LOY_TIER TR WHERE MEM.PR_DOM_TIER_ID=TR.ROW_ID
AND MEM.PR_CON_ID=V_PR_CON_ID;
vTotPrdPtsRdmd
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PRDPTS_RDMD from SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Product'
AND A.TXN_ID IS NOT NULL;
vTotPtsRdmd
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PTS_RDMD from SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND (A.TYPE_CD='Product' or A.TYPE_CD='Transfer')
AND A.TXN_ID IS NOT NULL;
vTotRewardPtExp
SELECT NVL(SUM(A.VALUE),0) INTO v_TOT_PTS_EXP FROM SIEBEL.S_LOY_RDM_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Expired'
AND a.TXN_ID IS NULL;
vCanAccrualPoints
SELECT NVL(SUM(A.ACCRUALED_VALUE),0) INTO v_CAN_ACCRUAL_POINTS from SIEBEL.S_LOY_ACRL_ITM A,SIEBEL.S_LOY_ATTRDEFN B
WHERE A.MEMBER_ID = v_MEMBER_ID AND A.ATTRIB_DEFN_ID = B.ROW_ID AND b.INTERNAL_NAME = 'Point 1 Value' AND A.TYPE_CD='Cancellation';
v_Tot_Earned_Points := v_TOT_AVAILABLE+v_TOT_PRDPTS_RDMD+v_TOT_PTS_EXP-v_CAN_ACCRUAL_POINTS;
v_TOT_REDEEMED := v_TOT_PTS_RDMD-v_CAN_ACCRUAL_POINTS;
DBMS_OUTPUT.PUT_LINE(' Total Earned: '|| v_Tot_Earned_Points || ' Total Redeemed: '|| v_TOT_REDEEMED || ' Total Expired: '|| v_TOT_PTS_EXP
|| ' Balance Points: '|| v_TOT_AVAILABLE || ' Tier Name: '|| v_TIER_NAME);
select trunc(sysdate,'MONTH') INTO v_FIRST_DT from dual;
va:= t_varray(Null,Null,Null,Null,Null,Null);
FOR a in 1 .. 6 LOOP
select trunc(last_day(v_FIRST_DT)) INTO v_LAST_DT from dual;
SELECT SUM(AI.ACCRUALED_VALUE),SUM(AI.USED_VALUE) INTO v_ACCRUALED_VAL,v_USED_VAL from SIEBEL.S_LOY_ACRL_ITM AI,SIEBEL.S_LOY_ATTRDEFN A
WHERE AI.MEMBER_ID = v_MEMBER_ID AND A.ROW_ID = AI.ATTRIB_DEFN_ID AND A.INTERNAL_NAME = 'Point 1 Value'
AND trunc(AI.EXPIRATION_DT) >= v_FIRST_DT AND trunc(AI.EXPIRATION_DT) <= v_LAST_DT;
V_EXPIRED_VAL := NVL(v_ACCRUALED_VAL-v_USED_VAL,0);
va(a):=V_EXPIRED_VAL;
v_FIRST_DT := add_months(v_FIRST_DT,1);
End loop;
END;
end;
Package declaration
create or replace package Rewards_Summary_Package as
TYPE t_varray IS VARRAY(6) OF NUMBER;
PROCEDURE Rewards_Summary_Procedure
(v_Tot_Earned_Points OUT NUMBER, v_TOT_REDEEMED OUT NUMBER, v_TOT_PTS_EXP OUT NUMBER,
v_TOT_AVAILABLE OUT NUMBER, v_TIER_NAME OUT VARCHAR2,VA OUT t_varray,V_PR_CON_ID IN VARCHAR2);
end;
java code
I had tried using java types and Oracle types
conn=SiebelServiceDatasource.getConnection(SSBConstants.REWARDS_PROP_LOG_SUFIX);
// ArrayDescriptor.TYPE_VARRAY
ocstmt=(OracleCallableStatement)conn.prepareCall(" {call REWARDS_SUMMARY_PACKAGE.REWARDS_SUMMARY_PROCEDURE(?,?,?,?,?,?,?)}");
//ocstmt=(OracleCallableStatement)conn.prepareCall(" call Test_Array(?,?)");
ocstmt.registerOutParameter(1,OracleTypes.INTEGER);
ocstmt.registerOutParameter(2,OracleTypes.INTEGER);//1-616BH
ocstmt.registerOutParameter(3,OracleTypes.INTEGER);
ocstmt.registerOutParameter(4,OracleTypes.INTEGER);
ocstmt.registerOutParameter(5,OracleTypes.VARCHAR);
ocstmt.registerOutParameter(6,OracleTypes.ARRAY,"SIEBEL.T_VARRAY");
ocstmt.setString(7,contactSiebelRowId);
ocstmt.execute();
Showing the following invalid name pattern SIEBEL.T_VARRAY
Please help
Thanks in advance
Kiran

create or replace package Rewards_Summary_Package as
TYPE t_varray IS VARRAY(6) OF NUMBER;
end;You've declared your type inside the package. You need to declare it as a SQL type, which is not part of a PL/SQL package.

Query for getting all function and procedure inside the packages

hi All
Please provide me Query for getting all function and procedure inside the packages
thanks

As Todd said, you can use user_arguments data dictionary or you can join user_objects and user_procedures like below to get the name of the packaged function and procedure names.
If you are looking for the packaged procedures and functions source then use user_source data dictionary
select a.object_name,a.procedure_name from user_procedures a,
user_objects b
where a.object_name is not null
and a.procedure_name is not null
and b.object_type='PACKAGE'
and a.object_name=b.object_name

Oracle stored procedure in a package

Hello,
I'm working on a Web service -> XI -> Oracle scenario.
In the receiver side I'm using JDBC Adapter to call to stored procedure.
I have stored procedure in a package.
For example: package "price_list_pk" and stored procedure "is_pl".
When I try to enter the stored procedure path to XML tags I need to separate between the package and the stored procedure with dot "." and dot is not allowed in XML tag.
I want to now if you have answer for this problem
Have other way to work with stored procedure in packages?
Elad

Hey everyone,
What Elad means is that in the XML structure of JDBC there are 2 places you define the DB\SP name:
1. Defined in the structure itself as an element name. (DT)
2. Mapped with a constant to a subelement called TABLE. (MM)
The MM shouldn't be a problem as a value can get the dot character.
But, in the DT structure, because you define here a XSD (XML structure) there is a problem naming the element with the dot character being part of the name as this character is not accepted in a XML tagname.
The right question is if anyone knows of a special XML attribute with which you could define that the element name would contain a dot character? Or else a creative way to call a Stored Procedure inside a Package despite the disabilities above?
Ben

Subquery for inserting doesn't work in Oracle package

I have experienced a very strange scenario while inserting data inside a Oracle package.
I have two tables:
- table "A"
Columns: "ID", "Value1", "...."
- table "A_Backup", which contains backup data for table A. It has one more column "BATCH_NUMBER" than table A
Columns: "BATCH_NUMBER", "ID", "Value1", "...."
I created following procedure in a package to backup data from table "A" to "A_Backup".
procedure proc_backup (v_id in number) is
declare
v_batch_number varchar2(20);
begin
/** generate a batch number using system date */
select 'BATCH' || to_char(sysdate, 'YYYYMMDDHH24MISS') into v_batch_number from dual;
/** insert Batch_NUMBER + data from A into A_BACKUP */
insert into A_BACKUP (select v_batch_number, id, value1, ... from A where A.id = v_id);
end proc_backup;
When I debug the procedure, it will not insert any data into A_BACKUP. Apparently, there are some data in table "A" meets criteria "A.id = v_id".
The strange thing: If I create same procedure. But this time I didn't put procedure inside the package, insert query will work.
Please help, I have spent a couple of days on this and never make it work. I also tried cursor, it doesn't work either. It seems Oracle package doesn't support "virtual table" (subquery in insert) or whatever you call it.

Welcome to the forum!
Whenever you post provide your 4 digit Oracle version (result of SELECT * FROM V$VERSION).
I don't see any package or test code that calls the procedure or error messages or results from any procedure calls.
You say you have a problem with a package but don't post the package version of the code you are having a problem with.
How is anyone supposed to find a problem in code that you don't post? And when you post use \ tags as discussed in the FAQ.

How to find out list of procedures and functions inside a package

How I can find out the list of Procedures and Functions inside a Package.

Look at ALL_PROCEDURES and ALL_ARGUMENTS.

How to list dependencies of stored procedure in a package in oracle

hi gurus,
can any body help me to solve the below issue?
how to list dependencies of stored procedure in a package in oracle?
advanced thanks...

It sounds like you're going to have trouble because you're trying to track dependencies at a more fine-grained level than Oracle does (at least prior to 11g, which I know does finer-grained dependency tracking for columns, so there may be something that would help you there).
In Oracle, the entity is the package body. The procedure within the package does not have dependencies and does not depend on anything, it is part of the package body, which does have dependencies. You can see what tables are used by the package body via DBA_DEPENDENCIES. But if you're trying to track the dependencies for a particular procedure in a package, you'd either have to manually examine the code or you'd have to write your own PL/SQL parser.
Justin

Call a function inside a package from a stored procedure

Hello:
I am kind of new to the stored procedure. Does anyone know how to call a function inside a package from another stored procedure?
I have a existing function (func_b) inside a package (pack_a) and it returns a cursor. I want to call this function from a stored procedure (proc_c) so that I use the data inside the cursor.
can I do the following in proc_c:
my_cursor1 SYS_REFCURSOR;
begin
my_cursor1 := exec pack_a.func_b
end
It will be very helpful if anyone can point me to any reading or example. Thank you very much for your information.

guys:
Thank you for your information so far. I need some more help here. I was able to run the function in my stored procedure. However, I was not able to print the result on the screen to view the cursor result, although I am using dbms_output.put_line statement inside my stored procedure.
I use the following statement to execute my stored procedure on sql*plus. I can tell the stored procedure is executed successfully, but I did see anything printed:
DECLARE TEMP VARCHAR2(100);
BEGIN PROC_LAWS_CAD_NAME_SEARCH('LPD', 'TEST DEVICE ID', 'TEST LAST NAME', 'TEST FIRST NAME', 'F', '11112009', TEMP); END;
I tried to use 'set serveroutput on' and got the following error:
ERROR:
ORA-06502: PL/SQL: numeric or value error: host bind array too small
ORA-06512: at line 1
I am kind of confused now. thank you for your help.
Jack
Here is my procedure:
create or replace
PROCEDURE PROC_SEARCH
( AGENCY_ID IN VARCHAR2,
DEVICE_ID IN VARCHAR2,
L_NAME IN VARCHAR2,
F_NAME IN VARCHAR2,
SEX IN VARCHAR2,
DOB IN VARCHAR2,
CAD_NAME_SCH_RESULT_STR OUT VARCHAR2)
AS
v_agy_id varchar2(10);
v_device_id varchar2(20);
v_l_name varchar2(25);
v_f_name varchar2(15);
v_sex varchar2(1);
v_dob date;
-- this cursor is going to be used to store a list of warrant matching
-- name search criteria
cad_srch_cursor sys_refcursor;
objSrch SEARCH_RESULT_TEMP%ROWTYPE;
BEGIN
cad_srch_cursor := SEARCH_PKG.SEARCH('TESTING', 'TESTER', null, null,null, null, getPhonetic('TESTING'));
LOOP
FETCH cad_srch_cursor INTO objSrch;
EXIT WHEN cad_srch_cursor%NOTFOUND;
--insert into SEARCH_RESULT_TEMP (name_last) values (objSrch.name_last);
CAD_NAME_SCH_RESULT_STR := objSrch.name_last;
dbms_output.put_line('First:'||objSrch.name_first||':Last:'||objSrch.name_last||':Middle:'||objSrch.name_middle);
end LOOP;
END PROC_LAWS_SEARCH;
-----------------------------------------

Use of Java packages in Java stored procedures? (Oracle 10.2)

Hi all-
Does Oracle's Java stored procedures support Java packages? In all the examples I've seen, packages are never used, and when I added one to a test file, it compiled it just fine, but referencing the class from the package itself resulted in a compiling error.
In other words, it seems to make absolutely no difference if I preface my Java class with
package com.mycompany.whatever;
and while I can "import com.mycompany.whatever.MyClass" in another Java file, it seems to not care at all whether I do so or not.
Thanks for any clarification,
Ilford

Hi Ilford:
Sure you can use fully package notation in your Java classes.
Look at this Java source code:
http://dbprism.cvs.sourceforge.net/dbprism/cms-2.1/src/com/prism/cms/core/
All of them are Java Stored procedures.
Best regards, Marcelo.

Debug Package/Procedure in Oracle

Hi,
Please let me know the procedure to debug a package/procedure in oracle ( Apart from dbms_output commands). We are using Toad.
Other option would be to
1. Set tracing on for a particular session and analyze logs generated through tkprof
2. Turn on Logon trigger for a user to capture all the SQLs fired.
The issue with above options is that all system fired SQL's are also captured. It would be a tough task to wade through all the SQL's fired.
PLease suggest the best option to debug a complex procedure/package.
Thanks in advance.

Create one table and caputure all results in that... Thanks!

SSRS with Oracle Stored Procedures, Functions and Packages

Hi,
I am working on a BI project. Here we are using PowerPivot to access data from Oracle DB and generate reports. Currently Client generates Few reports using Oracle Stored Procedures, Functions and Packages. We need to move everything to PowerPivot, so
that user can generate all reports using same platform. But PowerPivot doesn'e support Oracle Stored Procedures, Functions and Packages. So we have decided to try those reports using SSRS.
I have no knowledge about using SSRS which will call Oracle function/stored procedures/packages for generating reports.
Can anybody help me in getting exact steps?
Please let me know if my question is not clear enough.
Thanks and Regards,
SS

Hi Visakh,
Thanks for the detailed steps. My next question is:
Is there any other way to develop such reports without using any development tool like Visual Studio? Our aim is to provide a self-serviced reporting platform where user don't need any technical knowledge.
I am sorry I have no knowledge about SSRS and Oracle DB.Can you please have a look at my Oracle function and let me know whether it's possible to execute this using SSRS? (I am pasting one by one as there is a character limit.
CREATE OR REPLACE TYPE obj_special_pass_cases
AS OBJECT
      CLAIM_ID    NUMBER(12),
      claim_ref_no VARCHAR2(20),
      OFFICER_NAME   VARCHAR2(201),
      SUBMIT_DT   VARCHAR2(10),
      ACC_DT   VARCHAR2(10),
      SP_ISSUE_DT   VARCHAR2(10),
      STATUS    VARCHAR2(30),
      SUB_STATUS   VARCHAR2(30),
      STATUS_LAST_UPDATE_DATE VARCHAR2(10),
      SP_EXP_DT VARCHAR2(10),
      INDUSTRY_CODE VARCHAR2(8),
      EMP_SSIC VARCHAR2(8),
      rel VARCHAR2(4),
      WPNo VARCHAR2(20),
      FIN VARCHAR2(9),
      PASSPORT_NO VARCHAR2(16),
      SPNo VARCHAR2(20),
      VictimName VARCHAR2(100),
      SP_EXT_PURPOSE VARCHAR2(100),
      ISSUE_SYSTEM VARCHAR2(4),
      REPATRIATION_DATE VARCHAR2(10),
      SP_STATUS    VARCHAR2(30),
      SP_ISSUE_PURPOSE VARCHAR2(500)
CREATE OR REPLACE TYPE tbl_special_pass_cases
   AS TABLE OF obj_special_pass_cases
CREATE OR REPLACE TYPE obj_special_pass_casesNew
AS OBJECT
      CLAIM_ID    NUMBER(12),
      claim_ref_no VARCHAR2(20),
      OFFICER_NAME   VARCHAR2(201),
      SUBMIT_DT   VARCHAR2(10), /*Case Registration Date*/
      ACC_DT   VARCHAR2(10),
      SP_ISSUE_DT   VARCHAR2(10),
      calc_sp_issue_dt VARCHAR2(10),
      calc_sp_issue_dt_month VARCHAR2(2),
      calc_sp_issue_dt_year VARCHAR2(4),
      calc_Duration_Of_Stay VARCHAR2(4),
      STATUS    VARCHAR2(30),
      SUB_STATUS   VARCHAR2(30),
      STATUS_LAST_UPDATE_DATE VARCHAR2(10),
      lastUpdateDtMonth varchar2(2),
      lastUpdateDtYear varchar2(4),
      DurationOfUpdateDt VARCHAR2(4),
      SP_EXP_DT VARCHAR2(10),
      INDUSTRY_CODE VARCHAR2(8),
      EMP_SSIC VARCHAR2(8),
      rel VARCHAR2(4),
      WPNo VARCHAR2(20), /* New columns from here - SR */
      FIN VARCHAR2(9),
      PASSPORT_NO VARCHAR2(16),
      SPNo VARCHAR2(20),
      VictimName VARCHAR2(100),
      workerNationality VARCHAR2(20),
      employName VARCHAR2(200),
      reportType VARCHAR2(10),
      SP_EXT_PURPOSE VARCHAR2(100),
      ISSUE_SYSTEM VARCHAR2(4), /*IWPS, EIDS*/
      REPATRIATION_DATE VARCHAR2(10),
      SP_STATUS    VARCHAR2(30),
      SP_ISSUE_PURPOSE VARCHAR2(500)
CREATE OR REPLACE TYPE tbl_special_pass_casesNew
   AS TABLE OF obj_special_pass_casesNew
   FUNCTION getListOfSpecialPassCases(
              vRepatriationDateFrom VARCHAR2,
              vRepatriationDateTo VARCHAR2,
              vIncludeRepatriationDate VARCHAR2)
    RETURN tbl_special_pass_cases
    IS
      TYPE cur_typ IS REF CURSOR;
      SPECIAL_PASS_CASES_CUR cur_typ;
      vSQL1 VARCHAR2(4000);
      --vSQL1 VARCHAR2(4000) := 'SELECT DISTINCT(A.CLAIM_ID), A.CLAIM_REF_NO, A.STATUS, A.SUB_STATUS, A.OFFICER_NAME, A.SUBMIT_DT, A.ACC_DT, A.vLatestUpdatedDate, A.INDUSTRY_CODE, A.ID_NO, A.vWorkerName, B.vSPWPNO, B.vFIN, B.vSPPassportNo,
B.vSPIssueDate, B.vSPExpiryDate, B.vSPNo, DECODE(B.vSPExtensionPurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''13'',''FMMD'',''14'',''TMB
PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION (SB-F)'') vSPExtensionPurpose, B.vIssueSystem, B.vSPActualDepartDate, B.vSPStatus, DECODE(B.vSPIssuePurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''11'',''PENDING DOCUMENT VERIFICATION'',''12'',''LATE ERENEWAL'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION
(SB-F)'') vSPIssuePurpose FROM (SELECT vSPWPNO, vFIN, vSPPassportNo, vSPIssueDate, vSPExpiryDate, vSPNo, vSPExtensionPurpose, vIssueSystem, vSPActualDepartDate, vSPStatus, vSPIssuePurpose FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSActiveSpecialPass) WHERE
(vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B JOIN (SELECT WC.CLAIM_ID CLAIM_ID, WC.CLAIM_REF_NO CLAIM_REF_NO, WC.STATUS STATUS, WC.SUB_STATUS SUB_STATUS, TAS.LAST_NAME ||'' ''|| TAS.FIRST_NAME OFFICER_NAME, to_char(trunc(IRN.SUBMIT_DT), ''dd/MM/yyyy'')
SUBMIT_DT, TO_CHAR(trunc(decode(wc.assessmt_type,''OD-PI'',EV.OD_CONSULT_DT,''OD-TI'',ev.od_consult_dt,ECASE.acc_dt)), ''dd/MM/yyyy'') ACC_DT, (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), ''dd/MM/yyyy'') STATUS_LAST_UPDATE_DATE FROM WIC_CLAIM_STATUS WCS WHERE
WCS.CLAIM_ID=WC.CLAIM_ID) vLatestUpdatedDate, EC.INDUSTRY_CODE INDUSTRY_CODE, EP.ID_NO ID_NO, EP.NAME vWorkerName FROM EVENT_PERSON EP, WIC_CLAIMS WC, TBL_AA_SUBJECT TAS, EVENT_COMPANY EC,EVENT_CASE ECASE,event_victim ev WHERE EP.ID_NO IS NOT NULL AND EP.DELETE_IND
= ''F'' AND EP.INVOLVEMENT = ''VICTIM'' AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID AND ep.event_person_id = ev.event_person_id (+) AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID AND EC.EVENT_CASE_NO=WC.EVENT_CASE_NO AND
EC.INVOLVEMENT in (''EMPLOYER'',''EMPLOYER_OCCUPIER'') AND ECASE.EVENT_CASE_NO=WC.EVENT_CASE_NO AND EC.DELETE_IND = ''F'') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO)';
      vSQL2 VARCHAR2(4000);
      --vSQL2 VARCHAR2(4000) := 'SELECT DISTINCT(A.CLAIM_ID),A.CLAIM_REF_NO,A.STATUS,A.SUB_STATUS,A.OFFICER_NAME,A.SUBMIT_DT,A.ACC_DT,A.vLatestUpdatedDate,A.INDUSTRY_CODE,A.ID_NO,A.vWorkerName,B.vSPWPNO,B.vFIN,B.vSPPassportNo,B.vSPIssueDate,B.vSPExpiryDate,B.vSPNo,DECODE(B.vSPExtensionPurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION (SB-F)'') vSPExtensionPurpose,B.vIssueSystem,B.vSPActualDepartDate,B.vSPStatus,DECODE(B.vSPIssuePurpose,''1'',''WICB'',''2'',''RE-APPLICATION'',''3'',''POLICE'',''4'',''REPATRIATION'',''5'',''LRD'',''6'',''LATE
RENEWAL'',''9'',''OTHERS'',''10'',''LATE EISSUANCE'',''11'',''PENDING DOCUMENT VERIFICATION'',''12'',''LATE ERENEWAL'',''13'',''FMMD'',''14'',''TMB PENDING REPATRIATION'',''15'',''TMB REPATRIATION'',''16'',''PENDING REPATRIATION (SB-F)'',''17'',''REPATRIATION
(SB-F)'') vSPIssuePurpose FROM (SELECT vSPWPNO,vFIN,vSPPassportNo,vSPIssueDate,vSPExpiryDate,vSPNo,vSPExtensionPurpose,vIssueSystem,vSPActualDepartDate,vSPStatus,vSPIssuePurpose FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSDepartedSpecialPass(''' || vRepatriationDateFrom
|| ''', ''' || vRepatriationDateTo || ''')) WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B JOIN (SELECT WC.CLAIM_ID CLAIM_ID, WC.CLAIM_REF_NO CLAIM_REF_NO, WC.STATUS STATUS,WC.SUB_STATUS SUB_STATUS, TAS.LAST_NAME ||'' ''|| TAS.FIRST_NAME OFFICER_NAME,
to_char(trunc(IRN.SUBMIT_DT), ''dd/MM/yyyy'') SUBMIT_DT,TO_CHAR(trunc(decode(wc.assessmt_type,''OD-PI'',EV.OD_CONSULT_DT,''OD-TI'',ev.od_consult_dt,ECASE.acc_dt)), ''dd/MM/yyyy'') ACC_DT, (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), ''dd/MM/yyyy'') STATUS_LAST_UPDATE_DATE
FROM WIC_CLAIM_STATUS WCS WHERE WCS.CLAIM_ID=WC.CLAIM_ID) vLatestUpdatedDate, EC.INDUSTRY_CODE INDUSTRY_CODE, EP.ID_NO ID_NO, EP.NAME vWorkerName FROM EVENT_PERSON EP, WIC_CLAIMS WC, TBL_AA_SUBJECT TAS, EVENT_COMPANY EC,EVENT_CASE ECASE, IR_NOTIFICATION IRN,event_victim
ev WHERE EP.ID_NO IS NOT NULL AND EP.DELETE_IND = ''F'' AND EP.INVOLVEMENT = ''VICTIM'' AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID and ep.event_person_id = ev.event_person_id (+) AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
AND EC.EVENT_CASE_NO=WC.EVENT_CASE_NO AND EC.INVOLVEMENT in (''EMPLOYER'',''EMPLOYER_OCCUPIER'') AND ECASE.EVENT_CASE_NO=WC.EVENT_CASE_NO AND IRN.REF_NO(+) = ECASE.IR_REF_NO AND IRN.SUBMIT_TYPE IN (''SI'',''SE'') AND EC.DELETE_IND = ''F'') A ON (B.vFIN = A.ID_NO
OR B.vSPPassportNo = A.ID_NO)';
      SPECIAL_PASS_CASES_TBL tbl_special_pass_cases := tbl_special_pass_cases();
   cursor sp_pass_settle_cur is
   SELECT DISTINCT (A.CLAIM_ID),
                A.CLAIM_REF_NO,
                A.STATUS,
                A.SUB_STATUS,
                A.OFFICER_NAME,
                A.SUBMIT_DT,
                A.ACC_DT,
                A.vLatestUpdatedDate,
                A.INDUSTRY_CODE,
                A.ID_NO,
                A.vWorkerName,
                B.vSPWPNO,
                B.vFIN,
                B.vSPPassportNo,
                B.vSPIssueDate,
                B.vSPExpiryDate,
                B.vSPNo,
                DECODE(B.vSPExtensionPurpose,
                       '1',
                       'WICB',
                       '2',
                       'RE - APPLICATION',
                       '3',
                       'POLICE',
                       '4',
                       'REPATRIATION',
                       '5',
                       'LRD',
                       '6',
                       'LATE RENEWAL',
                       '9',
                       'OTHERS',
                       '10',
                       'LATE EISSUANCE',
                       '13',
                       'FMMD',
                       '14',
                       'TMB PENDING REPATRIATION',
                       '15',
                       'TMB REPATRIATION',
                       '16',
                       'PENDING REPATRIATION(SB - F)',
                       '17',
                       'REPATRIATION(SB - F)') vSPExtensionPurpose,
                B.vIssueSystem,
                B.vSPActualDepartDate,
                B.vSPStatus,
                DECODE(B.vSPIssuePurpose,
                       '1',
                       'WICB',
                       '2',
                       'RE - APPLICATION',
                       '3',
                       'POLICE',
                       '4',
                       'REPATRIATION',
                       '5',
                       'LRD',
                       '6',
                       'LATE RENEWAL',
                       '9',
                       'OTHERS',
                       '10',
                       'LATE EISSUANCE',
                       '11',
                       'PENDING DOCUMENT VERIFICATION',
                       '12',
                       'LATE ERENEWAL',
                       '13',
                       'FMMD',
                       '14',
                       'TMB PENDING REPATRIATION',
                       '15',
                       'TMB REPATRIATION',
                       '16',
                       'PENDING REPATRIATION(SB - F)',
                       '17',
                       'REPATRIATION(SB - F)') vSPIssuePurpose
FROM (SELECT vSPWPNO,
               vFIN,
               vSPPassportNo,
               vSPIssueDate,
               vSPExpiryDate,
               vSPNo,
               vSPExtensionPurpose,
               vIssueSystem,
               vSPActualDepartDate,
               vSPStatus,
               vSPIssuePurpose
          FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSActiveSpecialPass)
         WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B
JOIN (SELECT WC.CLAIM_ID CLAIM_ID,
               WC.CLAIM_REF_NO CLAIM_REF_NO,
               WC.STATUS STATUS,
               WC.SUB_STATUS SUB_STATUS,
               TAS.LAST_NAME ||''|| TAS.FIRST_NAME OFFICER_NAME,
               '' SUBMIT_DT,
               TO_CHAR(trunc(decode(wc.assessmt_type,
                                    'OD-PI',
                                    EV.OD_CONSULT_DT,
                                    'OD-TI',
                                    ev.od_consult_dt,
                                    ECASE.acc_dt)),
                       'dd/MM/yyyy') ACC_DT,
               (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), 'dd/MM/yyyy') STATUS_LAST_UPDATE_DATE
                  FROM WIC_CLAIM_STATUS WCS
                 WHERE WCS.CLAIM_ID = WC.CLAIM_ID) vLatestUpdatedDate,
               EC.INDUSTRY_CODE INDUSTRY_CODE,
               EP.ID_NO ID_NO,
               EP.NAME vWorkerName
          FROM EVENT_PERSON   EP,
               WIC_CLAIMS     WC,
               TBL_AA_SUBJECT TAS,
               EVENT_COMPANY EC,
               EVENT_CASE     ECASE,
               event_victim   ev
         WHERE EP.ID_NO IS NOT NULL
           AND EP.DELETE_IND = 'F'
           AND EP.INVOLVEMENT = 'VICTIM'
           AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO
           AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID
           AND ep.event_person_id = ev.event_person_id(+)
           AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
           AND EC.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.INVOLVEMENT in ('EMPLOYER', 'EMPLOYER_OCCUPIER')
           AND ECASE.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.DELETE_IND = 'F') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO);
   sp_pass_settle_rec sp_pass_settle_cur%rowtype;
   cursor sp_details_with_dt_cur is
SELECT DISTINCT (A.CLAIM_ID),
                A.CLAIM_REF_NO,
                A.STATUS,
                A.SUB_STATUS,
                A.OFFICER_NAME,
                A.SUBMIT_DT,
                A.ACC_DT,
                A.vLatestUpdatedDate,
                A.INDUSTRY_CODE,
                A.ID_NO,
                A.vWorkerName,
                B.vSPWPNO,
                B.vFIN,
                B.vSPPassportNo,
                B.vSPIssueDate,
                B.vSPExpiryDate,
                B.vSPNo,
                DECODE(B.vSPExtensionPurpose,'1','WICB', '2','RE - APPLICATION','3','POLICE','4','REPATRIATION','5','LRD','6','LATE RENEWAL','9','OTHERS','10','LATE EISSUANCE',
                       '13','FMMD','14','TMB PENDING REPATRIATION','15','TMB REPATRIATION','16','PENDING REPATRIATION(SB - F)','17','REPATRIATION(SB
- F)') vSPExtensionPurpose,
                B.vIssueSystem,
                B.vSPActualDepartDate,
                B.vSPStatus,
                DECODE(B.vSPIssuePurpose,
                       '1','WICB','2','RE - APPLICATION','3','POLICE','4','REPATRIATION','5','LRD','6','LATE RENEWAL','9','OTHERS', '10', 'LATE EISSUANCE','11','PENDING
DOCUMENT VERIFICATION',
                       '12','LATE ERENEWAL','13','FMMD','14','TMB PENDING REPATRIATION','15','TMB REPATRIATION','16','PENDING REPATRIATION(SB - F)','17','REPATRIATION(SB
- F)') vSPIssuePurpose
FROM (SELECT vSPWPNO,
               vFIN,
               vSPPassportNo,
               vSPIssueDate,
               vSPExpiryDate,
               vSPNo,
               vSPExtensionPurpose,
               vIssueSystem,
               vSPActualDepartDate,
               vSPStatus,
               vSPIssuePurpose
          FROM TABLE(IOSH_WIC_EXT_INTERFACE_PKG.getIWPSDepartedSpecialPass(''|| vRepatriationDateFrom ||'', ''|| vRepatriationDateTo ||''))
         WHERE (vSPWPNO IS NOT NULL OR vFIN IS NOT NULL)) B
JOIN (SELECT WC.CLAIM_ID CLAIM_ID,
               WC.CLAIM_REF_NO CLAIM_REF_NO,
               WC.STATUS STATUS,
               WC.SUB_STATUS SUB_STATUS,
               TAS.LAST_NAME ||''|| TAS.FIRST_NAME OFFICER_NAME,
               to_char(trunc(IRN.SUBMIT_DT), 'dd/MM/yyyy') SUBMIT_DT,
               TO_CHAR(trunc(decode(wc.assessmt_type,
                                    'OD - PI',
                                    EV.OD_CONSULT_DT,
                                    'OD - TI',
                                    ev.od_consult_dt,
                                    ECASE.acc_dt)),
                       'dd/MM/yyyy') ACC_DT,
               (SELECT TO_CHAR(MAX(WCS.STATUS_START_DT), 'dd/MM/yyyy') STATUS_LAST_UPDATE_DATE
                  FROM WIC_CLAIM_STATUS WCS
                 WHERE WCS.CLAIM_ID = WC.CLAIM_ID) vLatestUpdatedDate,
               EC.INDUSTRY_CODE INDUSTRY_CODE,
               EP.ID_NO ID_NO,
               EP.NAME vWorkerName
          FROM EVENT_PERSON    EP,
               WIC_CLAIMS      WC,
               TBL_AA_SUBJECT TAS,
               EVENT_COMPANY   EC,
               EVENT_CASE      ECASE,
               IR_NOTIFICATION IRN,
               event_victim    ev
         WHERE EP.ID_NO IS NOT NULL
           AND EP.DELETE_IND = 'F'
           AND EP.INVOLVEMENT = 'VICTIM'
           AND WC.EVENT_CASE_NO = EP.EVENT_CASE_NO
           AND WC.EVENT_PERSON_ID = EP.EVENT_PERSON_ID
           and ep.event_person_id = ev.event_person_id(+)
           AND WC.ASSIGN_OFFICER_ID = TAS.SUBJECT_ID
           AND EC.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND EC.INVOLVEMENT in ('EMPLOYER', 'EMPLOYER_OCCUPIER')
           AND ECASE.EVENT_CASE_NO = WC.EVENT_CASE_NO
           AND IRN.REF_NO(+) = ECASE.IR_REF_NO
           AND IRN.SUBMIT_TYPE IN ('SI', 'SE')
           AND EC.DELETE_IND = 'F') A ON (B.vFIN = A.ID_NO OR B.vSPPassportNo = A.ID_NO);
     sp_details_with_dt_rec sp_details_with_dt_cur%rowtype;
      /*vSQL VARCHAR2(4000);
      vFIN VARCHAR2(9);
      vSPPassportNo VARCHAR2(16);
      vSPWPNO VARCHAR2(20);
      vSPIssueDate VARCHAR2(10);
      vSPExpiryDate VARCHAR2(10);
      vSPNo VARCHAR2(20);
      vSPExtensionPurpose VARCHAR2(100);
      vIssueSystem VARCHAR2(4);
      vSPActualDepartDate VARCHAR2(10);
      vSPStatus VARCHAR2(30);
      vSPIssuePurpose VARCHAR2(500);
      CLAIM_ID NUMBER(12);
      CLAIM_REF_NO VARCHAR2(20);
      STATUS VARCHAR2(30);
      SUB_STATUS VARCHAR2(30);
      OFFICER_NAME VARCHAR2(201);
      SUBMIT_DT VARCHAR2(10);
      ACC_DT VARCHAR2(10);
      vLatestUpdatedDate VARCHAR2(10);
      INDUSTRY_CODE VARCHAR2(8);
      ID_NO VARCHAR2(50);
      vWorkerName VARCHAR2(100);*/
    BEGIN
  if vIncludeRepatriationDate = 'Y' then
   for sp_details_with_dt_rec in sp_details_with_dt_cur
   loop
   SPECIAL_PASS_CASES_TBL.EXTEND;
   SPECIAL_PASS_CASES_TBL(SPECIAL_PASS_CASES_TBL.LAST) := obj_special_pass_cases(sp_details_with_dt_rec.CLAIM_ID,sp_details_with_dt_rec.CLAIM_REF_NO,sp_details_with_dt_rec.OFFICER_NAME,sp_details_with_dt_rec.SUBMIT_DT,sp_details_with_dt_rec.ACC_DT,sp_details_with_dt_rec.vSPIssueDate,sp_details_with_dt_rec.STATUS,sp_details_with_dt_rec.SUB_STATUS,sp_details_with_dt_rec.vLatestUpdatedDate,sp_details_with_dt_rec.vSPExpiryDate,sp_details_with_dt_rec.INDUSTRY_CODE,sp_details_with_dt_rec.INDUSTRY_CODE,'a',sp_details_with_dt_rec.vSPWPNO,sp_details_with_dt_rec.vFIN,sp_details_with_dt_rec.vSPPassportNo,sp_details_with_dt_rec.vSPNo,sp_details_with_dt_rec.vWorkerName,sp_details_with_dt_rec.vSPExtensionPurpose,sp_details_with_dt_rec.vIssueSystem,sp_details_with_dt_rec.vSPActualDepartDate,sp_details_with_dt_rec.vSPStatus,sp_details_with_dt_rec.vSPIssuePurpose);
   end loop;
  else
   for sp_pass_settle_rec in sp_pass_settle_cur
   loop
   SPECIAL_PASS_CASES_TBL.EXTEND;
   SPECIAL_PASS_CASES_TBL(SPECIAL_PASS_CASES_TBL.LAST) := obj_special_pass_cases(sp_pass_settle_rec.CLAIM_ID,sp_pass_settle_rec.CLAIM_REF_NO,sp_pass_settle_rec.OFFICER_NAME,sp_pass_settle_rec.SUBMIT_DT,sp_pass_settle_rec.ACC_DT,sp_pass_settle_rec.vSPIssueDate,sp_pass_settle_rec.STATUS,sp_pass_settle_rec.SUB_STATUS,sp_pass_settle_rec.vLatestUpdatedDate,sp_pass_settle_rec.vSPExpiryDate,sp_pass_settle_rec.INDUSTRY_CODE,sp_pass_settle_rec.INDUSTRY_CODE,'a',sp_pass_settle_rec.vSPWPNO,sp_pass_settle_rec.vFIN,sp_pass_settle_rec.vSPPassportNo,sp_pass_settle_rec.vSPNo,sp_pass_settle_rec.vWorkerName,sp_pass_settle_rec.vSPExtensionPurpose,sp_pass_settle_rec.vIssueSystem,sp_pass_settle_rec.vSPActualDepartDate,sp_pass_settle_rec.vSPStatus,sp_pass_settle_rec.vSPIssuePurpose);
   end loop;
  end if ;
    RETURN SPECIAL_PASS_CASES_TBL;
END getListOfSpecialPassCases;
Thanks,
SS

Oracle Package Procedures

Hello all,
Does Forte support the calling of overloaded package procedures in Oracle?
Tim Sawyer
PanCredit
Leeds, UK.

As I remember Forte picks correct overloaded procedure if you specify all
parameter names and qualifiers (input/output). This was the way it worked in
R2. Never tested it in R3 though - it may have changed.
Nickolay Sakharov
CBSI
-----Original Message-----
From: [email protected]
[mailto:[email protected]]
Sent: Friday, September 24, 1999 5:56 AM
To: Tim Sawyer
Cc: '[email protected]'; Rob Patrick
Subject: Re: (forte-users) Oracle Package Procedures
Tim,
The short answer is no. I had put in an enhancement request for this during
Forte 3.0.G.2 release. I don't know the status of this now.
Long answer: We faced the same issue when we Upgraded from Forte R2 to R3.
If there is an overloaded procedure, Oracle returns a list of package
specs. Forte picks one - I am not sure if it is the first or last. If it
happens to be the one you are looking for, you will be lucky. Otherwise,
you will get an exception.
Our work around was to create a dummy procedure that calls the overloaded
procedure. We call the dummy procedure from Forte.
Hope this helps.
Venkat
PriceWaterhouseCoopers
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipient is prohibited. If you received
this in error, please contact the sender and delete the material from any
computer.
For the archives, go to: http://lists.sageit.com/forte-users and use
the login: forte and the password: archive. To unsubscribe, send in a new
email the word: 'Unsubscribe' to: [email protected]

Error Executing Oracle Package/Procedure

I'm having trouble executing a procedure in a package of mine. I have a package in one schema I'm trying to execute it with a different ID (i.e. User1 in trying to execute a procedure in User2's Schema). The permissions look fine (Execute has been granted), but when I try to exec the procedure using "Schema.Package.Procedure" format, I get a "component 'PackageName' must be declared" error. If I create a Public Synonym for my package and exec my Procedure, dropping the Schema Prefix ("Package.Procedure"), it executes fine. To make things even more interesting, I recreated the packages in a third Schema and executedfine with the Schema prefix ("Schema.Package.Procedure").
The only difference (I see) between the two schemas is the use of an "underscore" in the name: (for example) Schema1 and Schema_Two. Put the package in Schema1 and it runs fine. Put it in Schema_Two and it errors when fully qualified with the Schema name.
Does Oracle have a problem running packages when the Owner Schema has an underscore in the name? Or am I missing some other potential problem(s)?
Thanks in advance...

355099: I do have another copy of this procedure in another Schema. I'll try dropping that other version.
Mark: We have a schema for our data/logic and an ID we created for the web (so we don't access our data using our Schema Owner ID). The web ID is granted Select authority to Tables and Execute authority to Packages. We use this technique in other applications and it works fine. Those permissions have been set here but we still have the issue. I'll keep digging around. I'm sure it's something minor we are overlooking.
Thanks for you replies...

Member function and member procedure inside an object type in Oracle.

Hi All,
Please do have a look at these codes and help me understand. I have no idea about this member function and member procedure. How do they work? Please explain me about this.
Regards,
BS2012
create type foo_type as object (
foo number,
member procedure proc(p in number),
member function func(p in number) return number
create type body foo_type as
member procedure proc(p in number) is begin
    foo := p*2;
end proc;
member function func(p in number) return number is begin
    return foo/p;
end func;
end;
/

Methods are just like functions or procedures in a package, except they're not in a package, their part of an object type.
The object has attributes (which are the variables declared in it).
To use such an object you would do things like this...
SQL> set serverout on
SQL>
SQL> declare
2    v_foo foo_type;
3    v_val number;
4 begin
5    v_foo := foo_type(20); -- instantiate the object and initialize the object attributes
6    v_foo.proc(20); -- call the object method (proc)
7    v_val := v_foo.func(4); -- call the object method (func)
8    dbms_output.put_line(v_val);
9 end;
10 /
10
PL/SQL procedure successfully completed.The Type definition you've declared creates the object class, but not actually an object itself.
To actually have an object you need to declare a variable of that object class type, and then instantiate it. When you instantiate the object you need to initialize all the attributes (generally you can pass null if required for each of them to initialize them).
Once you have your object instantiated, you can call the methods within that object as demonstrated above, a bit like calling functions and procedures in a package, except they are methods within the object type itself, and therefore called directly by referencing them from the variable.
The documentation goes into a lot more detail of objects if you look it up.

How to call procedure inside a procedure and need to sore the value in a variable?

HI ALL,
i am usung oracle 11g.
here is my package and procedure
i want to call get_email_details this procedure inside the process_email_master and want to keep the value inside a varible in master procedure
create or replace
PACKAGE        ms_gen_process_email
as
   type email_type is record(subject                            varchar2(4000 char),
                             email_body                       varchar2(4000 char),
                             to_receipent                    varchar2(4000 char),
                             cc_receipent                     varchar2(4000 char));
    type email_type_table is table of email_type;
   procedure process_email_master(
      p_metric_name     IN   VARCHAR2,
      p_current_stage   in   varchar2,
      p_action          in   varchar2,
      p_pid             in    number,
      P_OBJECT_ID       in    varchar2
      --p_emai_master     out   p_email_type_table
   PROCEDURE get_email_details (
      p_metric_name     IN   VARCHAR2,
      p_current_stage   in   varchar2,
      P_ACTION          in   varchar2,
      p_email_type_table1 out email_type_table
END ms_gen_process_email;
create or replace
PACKAGE BODY        ms_gen_process_email
as
    procedure process_email_master(
      p_metric_name     IN   VARCHAR2,
      p_current_stage   in   varchar2,
      p_action          in   varchar2,
      p_pid             in    number,
      p_object_id       in    varchar2
      as
      begin
      null;
       EXCEPTION
      WHEN OTHERS
      then
         null;
      end process_email_master;
   PROCEDURE get_email_details (
      p_metric_name     IN   VARCHAR2,
      p_current_stage   IN   VARCHAR2,
      P_ACTION          in   varchar2,
      p_email_type_table out email_type_table
   as
   BEGIN
      select subject, email_body, to_receipent, cc_receipent
       bulk collect into p_email_type_table
                from ms_gen_email_config_detail
       WHERE email_key = (
                SELECT email_key
                  FROM ms_gen_email_config
                 WHERE metric_name = p_metric_name
                   AND action = p_action
                   and current_stage = p_current_stage
      for i in p_email_type_table.first..p_email_type_table.last loop
      dbms_output.put_line(p_email_type_table(i).subject||p_email_type_table(i).email_body||p_email_type_table(i).to_receipent||p_email_type_table(i).cc_receipent);
      end loop;
   EXCEPTION
      WHEN OTHERS
      THEN
         NULL;
   END get_email_details;
END ms_gen_process_email;
but i am getting this error
Error(15,31): PLS-00201: identifier 'P_EMAIL_TYPE_TABLE' must be declared
Regards
Damby

If you need to call a procedure which has yet to be defined in your package, you can use forward declaration...
That means that you declare the procedure/function before the place it's going to be called (typically people do this at the top of the package) without providing a body for the code...
PACKAGE BODY        ms_gen_process_email as
   PROCEDURE get_email_details
      p_metric_name     IN   VARCHAR2,
      p_current_stage   IN   VARCHAR2,
      P_ACTION          in   varchar2,
      p_email_type_table out email_type_table
   ); -- Forward declaration of get_email_details procedure
    procedure process_email_master(
      p_metric_name     IN   VARCHAR2,
      p_current_stage   in   varchar2,
      p_action          in   varchar2,
      p_pid             in    number,
      p_object_id       in    varchar2
      as
      begin
      null;
       EXCEPTION
      WHEN OTHERS
      then
         null;
      end process_email_master;
   PROCEDURE get_email_details
      p_metric_name     IN   VARCHAR2,
      p_current_stage   IN   VARCHAR2,
      P_ACTION          in   varchar2,
      p_email_type_table out email_type_table
   ) as

Procedures inside Oracle Packages

Similar Messages

Maybe you are looking for