We are not able to execute below procedure, plz help me ASAP.

Question

Dear All
I am created one procedure with 4 parameter 1 is Ref Cusrsor rest of 3 are Varchar,But we are not able to execute below procedure, plz help me ASAP.
CREATE OR REPLACE PROCEDURE GETCHART(RPT_CURSOR OUT RPT_PACKAGE.RPT_RESULTS,
V_VITALCHARTING VARCHAR2,
V_DOCIDPATIENTS VARCHAR2,
v_fromdate varchar2,
v_todate varchar2) AS
D1 VARCHAR2(500);
D2 VARCHAR2(500);
G1 VARCHAR2(500);
R1 VARCHAR2(500);
R2 VARCHAR2(500);
R3 VARCHAR2(500);
R4 VARCHAR2(500);
R5 VARCHAR2(500);
H1 VARCHAR2(500);
H2 VARCHAR2(500);
V_COUNT NUMBER;
RC VARCHAR2(100);
RMI VARCHAR2(100);
RMAX VARCHAR2(100);
R12 VARCHAR2(500);
REQ NUMBER;
V_MAX number;
v_idcount number;
RSEQ NUMBER;
RCH VARCHAR2(500);
BEGIN
INSERT INTO TEMPDATA
SELECT ROWNUM G, TIME1
FROM (SELECT distinct TO_CHAR(H.RECORDEDDNT, 'mm/dd/yy hh24:mi:ss') TIME1
FROM VIEW_PATIENTCHART V,
chartingtxheader H,
chartingtxdetails D
WHERE h.docid = d.docidchartingtxheader
and v.VITALCHARTING_PK = h.docidvitalcharting
and v.VITALPARAMETER_PK = d.docidvitalparameter
and v.VITALCHARTING_PK = V_VITALCHARTING --General Vital Signs
and H.DOCIDPATIENTS = V_DOCIDPATIENTS
and TO_DATE(to_char(h.recordeddnt, 'DD/MM/YYYY'),
'DD/MM/YYYY') BETWEEN
TO_DATE(v_fromdate, 'DD/MM/YYYY') AND
TO_DATE(V_TODATE, 'DD/MM/YYYY'));
SELECT MAX(ID) INTO V_MAX FROM TEMPDATA;
V_IDCOUNT := 0;
WHILE V_IDCOUNT < V_MAX loop
FOR J IN (SELECT id, ROWNUM G, vdate time1
FROM (SELECT id, ROWNUM, VDATE
FROM TEMPDATA
WHERE ID BETWEEN V_IDCOUNT + 1 AND V_IDCOUNT + 8)) LOOP
D1 := D1 || 'COL' || J.G || ',';
D2 := D2 || '''' || J.TIME1 || '''' || ',';
END LOOP;
D1 := SUBSTR(D1, 1, LENGTH(D1) - 1);
D2 := SUBSTR(D2, 1, LENGTH(D2) - 1);
DBMS_OUTPUT.PUT_LINE(d1);
SELECT SEQ_GETCHART.NEXTVAL INTO RSEQ FROM DUAL;
G1 := 'INSERT INTO GETDATA2 (IDSLNO,idcount,' || D1 || ') VALUES(' || RSEQ || ',' ||
V_IDCOUNT || ',' || D2 || ')';
--EXECUTE IMMEDIATE G1;
DBMS_OUTPUT.PUT_LINE(d1);
DBMS_OUTPUT.PUT_LINE(SUBSTR(D2, 1, LENGTH(D2) - 1));
DBMS_OUTPUT.PUT_LINE(G1);
EXECUTE IMMEDIATE G1;
FOR K IN (SELECT id, ROWNUM G, vdate time2
FROM (SELECT id, ROWNUM, VDATE
FROM TEMPDATA
WHERE ID BETWEEN V_IDCOUNT + 1 AND V_IDCOUNT + 8)) LOOP
FOR I IN (select s.*, rownum hslno
from (SELECT v.CHARTNAME,
v.PARAMETERNAME_CS,
' ' || v.PARAMETERNAME PARAMETERNAME,
TO_CHAR(H.recordeddnt, 'mm/dd/yy hh24:mi:ss') TIME1,
CASE
WHEN IDSLNO_GN5029 IN (1040, 1041) THEN
CASE
WHEN TO_NUMBER(d.recordedvalue) <
TO_NUMBER(D.MINVALUE) THEN
decode(d.recordedvalue,
null,
d.recordedvalue,
d.recordedvalue || ' ' || 'L')
ELSE
CASE
WHEN TO_NUMBER(d.recordedvalue) >
TO_NUMBER(D.MaxVALUE) THEN
decode(d.recordedvalue,
null,
d.recordedvalue,
d.recordedvalue || ' ' || 'H')
ELSE
decode(d.recordedvalue,
null,
d.recordedvalue,
d.recordedvalue || ' ' || 'N')
END END ELSE d.recordedvalue END IMAGECHAR,
d.minvalue,
d.maxvalue,
D.UOMCODE
FROM VIEW_PATIENTCHART V,
chartingtxheader H,
chartingtxdetails D
WHERE h.docid = d.docidchartingtxheader
and v.VITALCHARTING_PK = h.docidvitalcharting
and v.VITALPARAMETER_PK = d.docidvitalparameter
and v.VITALCHARTING_PK = V_VITALCHARTING --General Vital Signs
and H.DOCIDPATIENTS = V_DOCIDPATIENTS
ORDER BY V.DISPLAYORDER_CS, V.DISPLAYORDER
-- v.PARAMETERNAME_CS,v.PARAMETERNAME
) s
where s.time1 = k.time2) LOOP
select count(1)
into v_count
from GETDATA2 d
where d.PARAMETERNAME_CS = i.PARAMETERNAME_CS
and PARAMETERNAME = i.PARAMETERNAME
and idcount = v_idcount;
IF V_COUNT = 0 THEN
RCH := I.CHARTNAME;
R1 := 'COL' || K.G;
R2 := '''' || I.PARAMETERNAME_CS || '''' || ',';
R3 := '''' || I.PARAMETERNAME || '''' || ',';
R4 := '''' || I.IMAGECHAR || '''';
RC := '''' || I.CHARTNAME || '''' || ',';
RMI := '''' || I.minvalue || '''' || ',';
RMAX := '''' || I.maxvalue || '''' || ',';
R12 := '''' || I.UOMCODE || '''' || ',';
SELECT SEQ_GETCHART.NEXTVAL INTO RSEQ FROM DUAL;
H1 := 'INSERT INTO GETDATA2 (IDSLNO,UMCODE,idcount,CHARTNAME,minvalue,maxvalue,PARAMETERNAME_CS,PARAMETERNAME,' || R1 || ')' ||
' values(' || RSEQ || ',' || R12 || v_idcount || ',' || RC || RMI || RMAX || R2 || R3 || R4 || ')';
EXECUTE IMMEDIATE H1;
ELSE
R5 := 'COL' || K.G;
R4 := '''' || I.IMAGECHAR || '''';
H2 := 'UPDATE GETDATA2 SET ' || R5 || '=' || R4 ||
'WHERE PARAMETERNAME_CS=' || '''' || I.PARAMETERNAME_CS || '''' ||
' AND ' || 'PARAMETERNAME=' || '''' || I.PARAMETERNAME || '''';
EXECUTE IMMEDIATE H2;
END IF;
END LOOP;
end loop;
UPDATE getdata2 s
set s.parametername = s.parametername || ' -' || ' (' || minvalue ||
' -- ' || maxvalue || ') ' || UMCODE
where s.parametername is not null
and idcount = v_idcount
and minvalue != 0
and maxvalue != 0;
UPDATE getdata2 s
set s.parametername = s.parametername || ' -' || UMCODE
where s.parametername is not null
and idcount = v_idcount
and minvalue = 0
and maxvalue = 0;
UPDATE GETDATA2 S
SET S.PARAMETERNAME_CS = NULL
WHERE ROWID NOT IN (SELECT MIN(ROWID)
FROM GETDATA2
WHERE idcount = v_idcount
GROUP BY PARAMETERNAME_CS)
and idcount = v_idcount;
UPDATE GETDATA2 S
SET CHARTNAME = NULL
WHERE ROWID NOT IN (SELECT MIN(ROWID)
FROM GETDATA2
WHERE idcount = v_idcount
GROUP BY CHARTNAME)
and idcount = v_idcount;
UPDATE getdata2 s
set s.parametername = ' PARAMETER'
where s.parametername is null
AND S.PARAMETERNAME_CS IS NULL;
v_idcount := v_idcount + 8;
D1 := null;
d2 := null;
end loop;
for i in (SELECT G.PARAMETERNAME_CS, G.IDSLNO
FROM GETDATA2 G
WHERE G.PARAMETERNAME_CS IS NOT NULL) LOOP
INSERT INTO GETDATA2
(IDSLNO, PARAMETERNAME)
VALUES
(I.IDSLNO - 1 + 0.5, I.PARAMETERNAME_CS);
END LOOP;
update GETDATA2 h set h.PARAMETERNAME_CS = null;
update GETDATA2 h set h.chartname = rcH;
INSERT INTO GETDATA1
SELECT CHARTNAME,
PARAMETERNAME_CS,
PARAMETERNAME,
COL1,
COL2,
COL3,
COL4,
COL5,
COL6,
COL7,
COL8,
COL9,
COL10,
MINVALUE,
MAXVALUE,
UMCODE
FROM GETDATA2
ORDER BY IDSLNO;
OPEN RPT_CURSOR FOR
SELECT * FROM GETDATA1;
END;
CREATE OR REPLACE PACKAGE "RPT_PACKAGE"
as
type RPT_RESULTS is REF CURSOR;
type RPT_VARRAY is VARRAY(2000) of VARCHAR2(2000);
END RPT_PACKAGE;
Execute
declare
type my_newcursor IS REF CURSOR;
begin
GETCHART(my_newcursor,'General Vital Sign','1145561',sysdate-1,sysdate);
end;

Answer 1

Parwez wrote:
Dear All
I am created one procedure with 4 parameter 1 is Ref Cusrsor rest of 3 are Varchar,But we are not able to execute below procedure, plz help me ASAP.
see a picture of my car.
my car won't go.
tell me how to make my car go.
How do I ask a question on the forums?
SQL and PL/SQL FAQ