Running procedure in forms

Question

Hi, i have a procedure that populates a temporary table. After populating, i have several functions that run to compute values based on the records on the temporary table and then deletes the records upon form exit. Now, what i want to do is just run the procedure to populate the temporary table and then display the data on the table. But when i tried running just the procedure, nothing happens. I cant see the data on the table. How can i do this please? Thank you. Here is the query in my forms developer:
DECLARE
plid paramlist;
the_param varchar2(1600) := 'tmpdata';
it_id Item;
V_RI_BUSY CHAR(1);
BEGIN
if :block3.date_to is null then
message('no date to');
message('no date to');
Go_Item(':block3.date_to');
end if;
/* check if 'tmpdata' exists */
plid := get_parameter_list(the_param);
/* if it does exist, destroy it */
if not id_null(plid) then
destroy_parameter_list(plid);
end if;
/* create it fresh */
plid := create_parameter_list(the_param);
add_parameter(plid,'PARAMFORM', TEXT_PARAMETER, 'NO');
add_parameter(plid,'V_CUTOFF_FROM',TEXT_PARAMETER,TO_CHAR(:BLOCK3.DATE_FROM,'DD/MON/YYYY'));
add_parameter(plid,'V_CUTOFF_TO',TEXT_PARAMETER,TO_CHAR(:BLOCK3.DATE_TO,'DD/MON/YYYY'));
add_parameter(plid,'P_CLASSIFICATION',TEXT_PARAMETER,:BLOCK3.RADIO_GROUP_TRANS_SUBTRANS);
add_parameter(plid,'P_GRID',TEXT_PARAMETER,:BLOCK3.GRID);
add_parameter(plid,'P_REGION',TEXT_PARAMETER,:BLOCK3.REGION);
add_parameter(plid,'P_DISTRICT',TEXT_PARAMETER,:BLOCK3.DISTRICT);
add_parameter(plid,'P_BRANCH',TEXT_PARAMETER,:BLOCK3.BRANCH);
add_parameter(plid,'P_USER_NAME',TEXT_PARAMETER,:global.v_user_name);
add_parameter(plid,'P_POSITION',TEXT_PARAMETER,:global.v_position);
CALC_DATA_2010(:BLOCK3.DATE_FROM,
:BLOCK3.DATE_TO,
:BLOCK3.GRID,
:BLOCK3.REGION,
:BLOCK3.DISTRICT,
:BLOCK3.BRANCH);
run_product(REPORTS,'RPTSPM_NOI_DETAILS.rep',
SYNCHRONOUS,RUNTIME,
FILESYSTEM,
plid);
END;

Answer 1

Thanks. Actually, the original query was working fine - when some values were computed thru functions based from data on the temporary table. But when i removed the functions and just run the procedure, i could not display the records in the temp table. Here below is the working query (some parts were removed in the middle to shorten it):
DECLARE
     V_RI_BUSY CHAR(1);
BEGIN
          CALC_DATA_2010(:BLOCK3.DATE_FROM,
               :BLOCK3.DATE_TO,
               :BLOCK3.GRID,
               :BLOCK3.REGION,
               :BLOCK3.DISTRICT,
               :BLOCK3.BRANCH);
          IF :BLOCK3.DATE_FROM IS NOT NULL AND :BLOCK3.DATE_TO IS NOT NULL THEN
          --MESSAGE('Computing....');
          IF :RADIO_GROUP_TRANS_SUBTRANS = 'TS' THEN
               MESSAGE('TRANS-SUBTRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Trans-Subtrans)';
          ELSIF :RADIO_GROUP_TRANS_SUBTRANS = 'T' THEN
               MESSAGE('TRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Trans)';
          ELSE
               MESSAGE('SUBTRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Subtrans)';
          END IF;
          IF :BLOCK3.RADIO_GROUP_TRANS_SUBTRANS = 'T' THEN
               :DO_VALID.TEXT_LINE_TYPE:= :DO_VALID.TEXT_LINE_TYPE||'- 1 MIN. ';
          ELSE
               :DO_VALID.TEXT_LINE_TYPE:= :DO_VALID.TEXT_LINE_TYPE||'- 5 MINS. ';
          END IF;
-- COMPUTE RELIABILITY INDICATOR
-- GO_BLOCK('DO_VALID');
                    GO_ITEM('DO_VALID.INT_N001');
                    IF :RADIO_GROUP_TRANS_SUBTRANS = 'TS' THEN
                              CALC_INT(' ');
                         CALC_SAIDI_SAIFI_maifi_TS(' ');                                   CALC_SISI(' ');
                              CALC_TLF_TS;
                    ELSIF :RADIO_GROUP_TRANS_SUBTRANS = 'T' THEN
                              CALC_INT('T');
                              CALC_SAIDI_SAIFI_maifi('T');
                              CALC_SISI('T');
                    -- THIS IS SAME AS TRANS-SUBTRANS
                              CALC_TLF_TS;
                    ELSE
                         CALC_INT('S');
                    CALC_SAIDI_SAIFI_maifi('S');
                              CALC_SISI('S');
                              CALC_TLF_S;
                    END IF;
          ELSE
          MESSAGE('DATE RANGE MUST BE SPECIFIED.');
          IF      :BLOCK3.DATE_FROM IS NULL THEN
               GO_ITEM('BLOCK3.DATE_FROM');
          ELSE
          GO_ITEM('BLOCK3.DATE_TO');
          END IF;
          END IF;
END;
The above query works fine as it is. Procedure CALC_DATA_2010 populates the temp table then several functions (CALC_INT, CALC_SISI, etc.) runs to compute several values based on data from temp table. CALC_DATA_2010 query is shown below:
CREATE OR REPLACE PROCEDURE SPM_IS.CALC_DATA_2010(
date_from IN date,
date_to IN date,
text_GRID IN VARCHAR,
text_REGION in varchar,
text_DISTRICT in varchar,
text_branch in varchar
IS
CURSOR TRIP_CLASS IS
SELECT DISTINCT TRIP_CAUSED_BY, SCODE_TRIP_CAUSED_BY
FROM SPM_REL_IND_TMP
WHERE TRIP_CAUSED_BY IS NOT NULL;
CURSOR Cas IS
SELECT substr(customer_code,6,4) customer_code, demand, period
FROM SPM_ACTUAL_SALES
WHERE to_date(to_char(PERIOD,'MM/RRRR'),'MM/RRRR')
BETWEEN TO_DATE(TO_CHAR(Date_From,'MM/RRRR'),'MM/RRRR') AND
TO_DATE(TO_CHAR(Date_To,'MM/RRRR'),'MM/RRRR');
v_cuscode spm_daily_outs.substation_code%TYPE;
v_demand spm_actual_sales.demand%TYPE;
v_period spm_actual_sales.period%TYPE;
V_OUT_DATE spm_daily_outs.out_date%TYPE;
BEGIN
DELETE FROM SPM_REL_IND_TMP;
commit;
INSERT INTO spm_rel_ind_tmp(branch_code, ccode,circuit, scode, UE, outage_type,OUTAGE_CODE,OUTAGE_SUBCODE, V_OUT_DATE, V_DATE_IN,cload,
frequency, classification, trip_caused_by, TRIP_CAUSED_TLTX, scode_trip_caused_by, interruption_event,
remarks,DISCONNECT_SWITCH,DURATION)
(SELECT z.branch_code, z.circuit_code, z.circuit, z.substation_code,
(CASE WHEN ROUND(Z.UE,2) <> ROUND((Z.PEAK_DEMAND*Z.DURATION2*1000/60),2)
THEN
ROUND(Z.ue ,2)
ELSE
(CASE WHEN Z.DURATION = Z.DURATION2
THEN
ROUND(Z.ue ,2)
ELSE
(CASE WHEN Z.UE < (Z.PEAK_DEMAND*Z.DURATION*1000/60)
THEN
ROUND(Z.ue ,2)
ELSE
ROUND((Z.PEAK_DEMAND*Z.DURATION*1000/60),2)
END)
END)
END) UE,
z.outage_type, Z.OUTAGE_CODE,Z.OUTAGE_SUBCODE,z.V_OUT_DATE, z.V_DATE_IN,
z.connected_load, z.frequency, z.classification, z.trip_caused_by, z.TRIP_CAUSED_TLTX, z.scode_trip_caused_by, z.interruption_event,
z.remarks,z.DISCONNECT_SWITCH,z.duration
from
SELECT y.branch_code, y.circuit_code, y.circuit, y.substation_code, y.peak_demand, y.outage_type,Y.OUTAGE_CODE,Y.OUTAGE_SUBCODE, y.V_OUT_DATE, y.V_DATE_IN,
y.connected_load, y.frequency, y.classification, y.trip_caused_by, Y.TRIP_CAUSED_TLTX, y.scode_trip_caused_by, y.interruption_event,
y.remarks,y.DISCONNECT_SWITCH,
(CASE WHEN Y.DATE_PRIVATELY_OWNED IS NULL THEN
(CASE WHEN (Y.ESTIMATE IS NULL and Y.V_DATE_IN IS NOT NULL)
THEN
(DECODE(SIGN(Y.V_OUT_DATE - DATE_FROM),
-1,DECODE(SIGN(Y.V_DATE_IN - DATE_TO),
-1, Y.V_DATE_IN - DATE_FROM, -- DATE_TO > date_in & date_out < TO_DATE(DATE_FROM, 'DD/MON/YYYY')
+1, (DATE_TO - DATE_FROM)+1, -- Date_in > DATE_TO & date_out < TO_DATE(DATE_FROM, 'DD/MON/YYYY')
END) END)
*24*60 DURATION, ((V_DATE_IN -V_OUT_DATE)*24*60) DURATION2, UE
FROM
(SELECT B.BRANCH_CODE, b.circuit_code, B.DATE_PRIVATELY_OWNED,b.circuit, b.substation_code, b.peak_demand, b.outage_type,B.OUTAGE_CODE,B.OUTAGE_SUBCODE, b.V_OUT_DATE, b.V_DATE_IN,
b.connected_load, b.frequency, b.classification, b.trip_caused_by,B.TRIP_CAUSED_TLTX,b.scode_trip_caused_by,
b.interruption_event, b.remarks,b.DISCONNECT_SWITCH, b.estimate, b.ue
FROM (SELECT X.BRANCH_CODE, d.circuit_code, C.DATE_PRIVATELY_OWNED,d.circuit, d.substation_code, d.peak_demand, d.outage_type,
D.OUTAGE_CODE_NEW OUTAGE_CODE,D.OUTAGE_SUBCODE_NEW OUTAGE_SUBCODE, D.V_OUT_DATE, d.V_DATE_IN,
D.connected_load, d.frequency, c.classification, d.trip_caused_by, D.TRIP_CAUSED_TLTX,d.scode_trip_caused_by,
d.interruption_event, d.remarks,d.DISCONNECT_SWITCH, d.estimate, unserved_energy ue
FROM spm_daily_outs d, SPM_SUBSTATIONS X,
spm_circuits c
WHERE
X.SUBSTATION_CODE = D.SUBSTATION_CODE
AND (C.DATE_PRIVATELY_OWNED IS NULL OR (C.DATE_PRIVATELY_OWNED > TO_DATE(DATE_FROM, 'DD/MON/YYYY')
AND C.DATE_PRIVATELY_OWNED <= TO_DATE(DATE_TO, 'DD/MON/YYYY'))
and ((D.V_OUT_DATE >= (TO_DATE(TO_CHAR(Date_From,'DD-MON-RRRR'),'DD-MON-RRRR HH24:MI:SS')) and
D.V_OUT_DATE <= TO_DATE(TO_CHAR(Date_To ,'DD-MON-RRRR')||' 23:59:59','DD-MON-RRRR HH24:MI:SS')
OR
((D.V_OUT_DATE <= (TO_DATE(TO_CHAR(Date_From,'DD-MON-RRRR'),'DD-MON-RRRR HH24:MI:SS'))) AND
D.V_DATE_IN >= (TO_DATE(TO_CHAR(Date_From,'DD-MON-RRRR'),'DD-MON-RRRR HH24:MI:SS'))
) and (SUBSTR(d.circuit_code,5,1) = '4' OR SUBSTR(d.circuit_code,5,1) = '8')
AND d.OUTAGE_CODE_NEW NOT IN (SELECT OUTAGE_CODE FROM SPM_TL_OUTAGE_CLASS_2010)
AND (D.OUTAGE_SUBCODE_NEW NOT IN (SELECT OUTAGE_SUBCODE FROM SPM_TL_OUTAGE_SUB_2010)
OR LENGTH(LTRIM(RTRIM(D.OUTAGE_SUBCODE_new))) IS NULL
and d.circuit_code = c.circuit_code
and d.substation_code = c.substation_code
AND (SUBSTR(D.SUBSTATION_CODE, 1,1)=TEXT_GRID OR TEXT_GRID IS NULL)
AND (SUBSTR(D.SUBSTATION_CODE, 2,4)=TEXT_REGION OR TEXT_REGION IS NULL)
AND (SUBSTR(D.SUBSTATION_CODE, 6,4)=TEXT_DISTRICT OR TEXT_DISTRICT IS NULL)
AND (D.CIRCUIT_CODE IN (SELECT CIRCUIT_CODE FROM SPM_CIRCUITS WHERE BRANCH_CODE = TEXT_BRANCH)
OR TEXT_BRANCH IS NULL)
) b
) y
) z);
COMMIT;
DELETE FROM spm_tmp_actual_sales;
commit;
FOR dem_record IN Cas LOOP
EXIT WHEN Cas%NOTFOUND;
INSERT INTO spm_tmp_actual_sales(customer_code, demand, period)
VALUES(dem_record.customer_code,dem_record.demand,dem_record.period);
END LOOP;
FOR TRIP IN TRIP_CLASS LOOP
EXIT WHEN TRIP_CLASS%NOTFOUND;
UPDATE SPM_REL_IND_TMP
SET CLASSIFICATION_TRIP = (SELECT CLASSIFICATION
FROM SPM_CIRCUITS
WHERE RTRIM(TRIP.TRIP_CAUSED_BY) = RTRIM(CIRCUIT_CODE)
AND TRIP.SCODE_TRIP_CAUSED_BY = SUBSTATION_CODE)
WHERE RTRIM(TRIP_CAUSED_BY) = RTRIM(TRIP.TRIP_CAUSED_BY)
AND SCODE_TRIP_CAUSED_BY = TRIP.SCODE_TRIP_CAUSED_BY
AND TRIP_CAUSED_TLTX = 'TL';
UPDATE SPM_REL_IND_TMP
SET TRIP_BRANCH_CODE = (SELECT BRANCH_CODE
FROM SPM_CIRCUITS
WHERE RTRIM(TRIP.TRIP_CAUSED_BY) = RTRIM(CIRCUIT_CODE)
AND TRIP.SCODE_TRIP_CAUSED_BY = SUBSTATION_CODE)
WHERE RTRIM(TRIP_CAUSED_BY) = RTRIM(TRIP.TRIP_CAUSED_BY)
AND SCODE_TRIP_CAUSED_BY = TRIP.SCODE_TRIP_CAUSED_BY
AND TRIP_CAUSED_TLTX = 'TL'
UPDATE SPM_REL_IND_TMP
SET CLASSIFICATION_TRIP =
(SELECT distinct CLASSIFICATION
FROM SPM_TRANSFORMERS
WHERE RTRIM(TRIP.TRIP_CAUSED_BY) = RTRIM(TRANS_CODE)
AND TRIP.SCODE_TRIP_CAUSED_BY = SUBSTATION_CODE
AND CLASSIFICATION IN ( 'T', 'S')
WHERE RTRIM(TRIP_CAUSED_BY) = RTRIM(TRIP.TRIP_CAUSED_BY)
AND SCODE_TRIP_CAUSED_BY = TRIP.SCODE_TRIP_CAUSED_BY
AND TRIP_CAUSED_TLTX = 'TX';
UPDATE SPM_REL_IND_TMP
SET TRIP_BRANCH_CODE = (SELECT BRANCH_CODE
FROM SPM_SUBSTATIONS
WHERE SUBSTATION_CODE = TRIP.SCODE_TRIP_CAUSED_BY
WHERE CLASSIFICATION IN ( 'T', 'S')
AND RTRIM(TRIP_CAUSED_BY) = RTRIM(TRIP.TRIP_CAUSED_BY)
AND SCODE_TRIP_CAUSED_BY = TRIP.SCODE_TRIP_CAUSED_BY
AND TRIP_CAUSED_TLTX = 'TX';
END LOOP;
commit;
COMMIT;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
RAISE;
END;
However, when i changed my query so that i will just get the data from the temporary table instead i was not successful. here is my revised query:
DECLARE
V_RI_BUSY CHAR(1);
BEGIN
CALC_DATA_2010(:BLOCK3.DATE_FROM,
               :BLOCK3.DATE_TO,
               :BLOCK3.GRID,
               :BLOCK3.REGION,
               :BLOCK3.DISTRICT,
               :BLOCK3.BRANCH);
          IF :RADIO_GROUP_TRANS_SUBTRANS = 'TS' THEN                     MESSAGE('TRANS-SUBTRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Trans-Subtrans)';
          ELSIF :RADIO_GROUP_TRANS_SUBTRANS = 'T' THEN
          MESSAGE('TRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Trans)';
          ELSE
          MESSAGE('SUBTRANS: Finished....');
               :DO_VALID.TEXT_LINE_TYPE:= 'RELIABILITY INDICATORS (Subtrans)';
          END IF;
          IF :BLOCK3.RADIO_GROUP_TRANS_SUBTRANS = 'T' THEN
               :DO_VALID.TEXT_LINE_TYPE:= :DO_VALID.TEXT_LINE_TYPE||'- 1 MIN. ';
          ELSE
               :DO_VALID.TEXT_LINE_TYPE:= :DO_VALID.TEXT_LINE_TYPE||'- 5 MINS. ';
          END IF;
          IF :BLOCK3.DATE_FROM IS NULL THEN
               GO_ITEM('BLOCK3.DATE_FROM');
          ELSE
          GO_ITEM('BLOCK3.DATE_TO');
          END IF;
          END IF;
END;
I hope you will not be confused. Thanks again.