Hellp needed to resolve Error

Question

Hi,
While executing a package am getting the below error, on a function call inside
a function, I have bolded the error line. Can any help me out to clear this, is that am doing
anything wrong, please advice.
Error : PLS-00201: identifier 'PRICE' must be declared
FUNCTION process_client ( p_bill_date IN VARCHAR2 ) RETURN INTEGER
IS
CURSOR c_flat_fees
IS
SELECT
es.client_id,
NVL(es.customer_id, '000000000') AS customer_id,
es.schedule_id,
es.product_type,
to_char(NVL(es.last_bill_date, TO_DATE (TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'YYYYMM'), 'YYYYMM') ), 'YYYYMM')
     AS last_bill_date,
NVL(pt.description, ' ') As description,
NVL(pt.acctg_code, 4010) As acctg_code,
pr.price,
pr.price_period,
pr.price_period_unit,
NVL(to_char(es.grace_period_end_date, 'YYYYMM'),'0') AS grace_period_end_date
FROM era_client_schedule es,
product_type pt,
price_schedule pr
WHERE es.product_type = pt.product_type
AND es.schedule_id = pr.schedule_id
AND es.bill_code = 'A'
AND pr.price_type IN ('A', 'F', 'I', 'M');
r_flat_fees_cur c_flat_fees%rowtype;
IF WRITE_INVOICE_item ( price*, 1) = -1
THEN
RETURN RET_ERR;
END IF;
CLOSE c_flat_fees;
EXCEPTION
END PROCESS_CLIENT;
thanks in advance.

Answer 1

Hi justin,
thank you for your reply. the below is my full code, please let me know where am doing wrong, if i declare : price price_schedule.PRICE %type; its not showing error. else am getting the above said error. Please advice. I have bolded the error giving function...
FUNCTION process_client ( p_bill_date IN VARCHAR2 )  RETURN INTEGER
IS
v_customerId    Varchar2(11);
v_description   Varchar2(50);
d_flatQty       integer :=0;
d_flatAmt       integer :=0;
v_lastname      varchar2(60);
v_schedule_id   number(38);
v_product_type  varchar(2);
v_return_val    integer;
RET_ERR         char(3) := '-1';
RET_OK          char(1) := ' 0';
v_clientId      tax_era_client.client_id   %type;
v_flatFee       price_schedule.price       %type;
v_preAcctgCode  pre_staging.acctg_code     %type;
v_clientCnt     era_claims.era_count       %type;
v_clientCntCk   era_claims.era_count       %type;
v_acctgCode     pre_staging.acctg_code     %type;
var_out_file_handler  UTL_FILE.FILE_TYPE;
var_out_file_path     varchar2(100);     
var_out_file_name     varchar2(100);     
var_line              varchar2(1000);    
-- Cursor for getting the era client schedule data
CURSOR c_schedule_data
IS
  SELECT es.client_id,
         NVL(c.lastname, 'UNKNOWN') AS lastname,
         es.customer_id,
         es.schedule_id,
         pt.description || ': ' || c.lastname AS description,
         es.product_type,
         NVL(pt.acctg_code, 4090) AS acctg_code
  FROM   era_client_schedule es,
         client c,                                             -- synonym created for batch_prod.client@okcprd00
         product_type pt
  WHERE  es.product_type = pt.product_type
         AND es.client_id = c.clientid
         AND es.bill_code = 'A'
         AND es.product_type in ('E1','E2','E3')
         ORDER BY es.client_id;
--Cursor for getting the era client schedule - flat doctor fee
CURSOR c_flat_doctor_fee
IS
SELECT
      es.client_id,
      NVL(es.customer_id, '000000000'),
      pt.description || ': ' || c.lastname,
      NVL(pt.acctg_code, 4010),
      pr.price
FROM  era_client_schedule es,
      product_type pt,
      price_schedule pr,
      client c   -- synonym created for batch_prod.client@okcprd00
WHERE es.product_type = pt.product_type
      AND es.schedule_id  =  pr.schedule_id
      AND es.client_id    =  c.clientid
      AND es.bill_code    = 'A'
      AND es.product_type = 'ED';
--Cursor for getting the era client schedule - flat fees
CURSOR c_flat_fees
IS
SELECT
      es.client_id,
      NVL(es.customer_id, '000000000') AS customer_id,
      es.schedule_id,
      es.product_type,
      to_char(NVL(es.last_bill_date, TO_DATE (TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'YYYYMM'), 'YYYYMM') ), 'YYYYMM')
                                                                                              AS last_bill_date,
      NVL(pt.description, ' ') As description,
      NVL(pt.acctg_code, 4010) As acctg_code,
      pr.price,
      pr.price_period,
      pr.price_period_unit,
      NVL(to_char(es.grace_period_end_date, 'YYYYMM'),'0') AS grace_period_end_date
FROM  era_client_schedule es,
      product_type pt,
      price_schedule pr
WHERE es.product_type    = pt.product_type
      AND es.schedule_id = pr.schedule_id
      AND es.bill_code   = 'A'
      AND pr.price_type IN ('A', 'F', 'I', 'M');
r_flat_fees_cur c_flat_fees%rowtype;
BEGIN
var_line :=    'CLIENT_ID'              || ',' ||
                 'CUSTOMER_ID'            || ',' ||
                 'SCHEDULE_ID'            || ',' ||
                'PRODUCT_TYPE'           || ',' ||
                'LAST_BILL_DATE'         || ',' ||
                'DESCRIPTION'            || ',' ||
                'ACCTG_CODE'             || ',' ||
                  'PRICE'                  || ',' ||
                  'PRICE_PERIOD'           || ',' ||
                  'PRICE_PERIOD_UNIT'      || ',' ||
                  'GRACE_PERIOD_END_DATE';
   UTL_FILE.PUT_LINE(var_out_file_handler, var_line);
     FOR r_flat_fees IN c_flat_fees LOOP
         IF r_flat_fees.grace_period_end_date <= p_bill_date THEN
      var_line :=         'Grace Period for payer '
                       || r_flat_fees.client_id
                       || ' dest '
                       || r_flat_fees.customer_id
                       || ' product '
                       || r_flat_fees.product_type
                       || ' until '
                       || r_flat_fees.grace_period_end_date;
    ELSIF r_flat_fees.price_period_unit IN ('D', 'W') THEN
      var_line :=         'Period Unit of D/W for payer '
                       || r_flat_fees.client_id
                       || ' dest '
                       || r_flat_fees.customer_id
                       || ' product '
                       || r_flat_fees.product_type
                       || ' Skipping';
    ELSIF r_flat_fees.price_period_unit = 'O'
          AND r_flat_fees.last_bill_date = p_bill_date THEN
     var_line :=          'Period Unit of O but has NULL or CURRENT date '
                       || r_flat_fees.client_id
                       || ' dest '
                       || r_flat_fees.customer_id
                       || ' product '
                       || r_flat_fees.product_type
                       || ' Skipping';
    ELSIF r_flat_fees.price_period_unit = 'Y'
          AND r_flat_fees.last_bill_date <> p_bill_date THEN
      var_line :=        'Period Unit of O but has NULL or CURRENT date '
                       || r_flat_fees.client_id
                       || ' dest '
                       || r_flat_fees.customer_id
                       || ' product '
                       || r_flat_fees.product_type
                       || ' Skipping';
    ELSE
      NULL;
    END IF;
    IF write_invoice_item ( price, 1) = -1
       THEN
      RETURN RET_ERR;
    END IF;
v_return_val := write_tax_info( price, 1, price, 'C' );
                IF v_return_val = 1
                  THEN
                  RETURN RET_ERR;                END IF;     
    IF NOT update_last_bill_date (r_flat_fees.customer_id, r_flat_fees.schedule_id, r_flat_fees.product_type) THEN
      var_line :=       'Error updating last bill date for: '
                      || r_flat_fees.client_id
                      || ' dest '
                      || r_flat_fees.customer_id
                      || ' product '
                      || r_flat_fees.product_type;
    END IF;
    UTL_FILE.PUT_LINE(var_out_file_handler, var_line);
    CLOSE c_flat_fees;
    UTL_FILE.FCLOSE(var_out_file_handler); -- final file close
    CBSUTIL.MAIL.ADD_FILE( var_out_file_path || var_out_file_name); -- final file attachment
   IF CBSUTIL.MAIL.SEND( '[email protected]', 'Payment  Reports',
                         'Volume report for '|| p_bill_date )
   THEN
    DBMS_OUTPUT.PUT_LINE('Mail Sent');
   ELSE
    DBMS_OUTPUT.PUT_LINE('Not Sent! Errors: ' || CBSUTIL.MAIL.GET_ERROR_COUNT);
    DBMS_OUTPUT.PUT_LINE( CBSUTIL.MAIL.GET_ERROR_STRING );
   END IF;
END LOOP;
OPEN c_flat_doctor_fee;
LOOP
     FETCH c_flat_doctor_fee INTO v_clientId,v_customerId,v_description,v_acctgCode,v_flatFee;
     EXIT WHEN c_flat_doctor_fee%NOTFOUND;
CLOSE c_flat_doctor_fee;
SELECT
  count(*)  INTO d_flatQty
FROM
  mergegroup mg,
  providermergegroup pmg,
  provider prov
WHERE
  pmg.mergegroupid = mg.mergegroupid  AND
  prov.clientid = pmg.clientid  AND
  mg.receiverid IN  (SELECT receiverid  FROM era_receiver  WHERE clientid = v_clientid  OR vendorclientid = v_clientid)  AND
  prov.activedate IS NOT NULL  AND
  TO_CHAR(prov.activedate, 'YYYYMM') <= p_bill_date  AND
  (prov.inactivedate IS NULL  OR TO_CHAR(prov.inactivedate, 'YYYYMM') > p_bill_date);
d_flatAmt := v_flatFee * d_flatQty;
  v_return_val := write_invoice_item(d_flatAmt, d_flatQty);
        IF v_return_val = 1
           THEN
           RETURN RET_ERR;
        END IF;
v_return_val := write_tax_info( v_flatFee, 1, v_flatFee, 'C' );
       IF v_return_val = 1
          THEN
       RETURN RET_ERR;
       END IF;
UPDATE     era_client_schedule
           SET     last_bill_date = last_day(to_date(p_bill_date, 'YYYYMM'))
           WHERE   client_id = v_clientId
           AND     product_type = 'ED';
END loop;
OPEN c_schedule_data;
LOOP
     FETCH c_schedule_data INTO v_clientId,v_lastname,v_schedule_id,v_description,v_product_type,v_product_type,v_acctgCode;
     EXIT WHEN c_schedule_data%NOTFOUND;
CLOSE c_schedule_data;
SELECT
  SUM(NVL(c.era_count,0))  INTO v_clientCnt
  FROM
  era_claims c
WHERE
  TO_CHAR(c.process_date, 'YYYYMM') = p_bill_date  AND
  c.prod_flag = 'P'  AND
  c.payer_id
             IN  (SELECT payer_id
                  FROM   npd_logical_connection lc,  npd_business_service bs
                      WHERE  bs.unit_id = lc.unit_id
                      AND    bs.connection_id = lc.connection_id
                      AND    bs.service_id = 1
                      AND    NVL(bs.par_type, lc.par_type) =  DECODE(v_product_type, 'E1', 'P', 'N'))
                      AND    c.receiver_id
                      IN     (SELECT receiverid  FROM era_receiver  WHERE clientid = v_clientId  OR vendorclientid = v_clientId);
  v_clientCntCk := v_clientCnt;
If v_clientCntCk = -1
THEN
    v_clientCnt := 0;
Else
    v_preAcctgCode := v_acctgCode;
END IF;
if (GET_PROCESS_CLAIM_ITEM ( v_clientCnt, 'C' )) = 1
      THEN RET_ERR := '-1';
END IF;
END LOOP;
EXCEPTION
END PROCESS_CLIENT;   thanks