CREATE PROCEDURE REPORT_PLAN
RETURNS (
    DATA1 INTEGER,
    DATA2 VARCHAR( 500 ),
    DATA3 VARCHAR( 500 ),
    DATA4 VARCHAR( 500 ))
AS
declare variable k1 integer;
declare variable k2 integer;
declare variable k3 integer;
declare variable kv integer;
declare variable kv1 integer;
begin
  data1= 0 ;
  for select ind from objects where typeind= 63  into :k1 do begin


  select count(ind) from pvalues where ind= 1193  and objectind=:k1 into :k2;
  if (k2> 0 ) then begin
  data1=data1+ 1 ;
  select parentind from objects where ind=:k1 into :k3;
  select pval from get_one_param_value( 642 ,:k3) into :data2;
  select count(ind) from pvalues where ind= 734  and objectind=:k1 into :k2;
  if (k2> 0 ) then begin
  select pval from get_one_param_value( 734 ,:k3) into :data2;
  end
  select pval from get_one_param_value( 781 ,:k1) into :data3;
  select pval from get_one_param_value( 1193 ,:k1) into :data4;
              suspend;
             end