Not sure how to test output of PL/SQL function

Question

I have a function in package ".XCCC_PO_APPROVALLIST_S1" called "does_cpa_exist":
   FUNCTION does_cpa_exist(
      p_document_id              IN       NUMBER
      RETURN BOOLEAN
   IS
      l_cpa_exists VARCHAR2(100);
   BEGIN
      SELECT 'Y'
        INTO l_cpa_exists
        FROM po.po_requisition_lines_all prla
           , ap.ap_suppliers pv
           , ap.ap_supplier_sites_all pvsa
       WHERE prla.vendor_id = pv.vendor_id
         AND prla.vendor_site_id = pvsa.vendor_site_id
         AND pv.vendor_id = pvsa.vendor_id
         AND prla.requisition_header_id = p_document_id
         AND EXISTS(
                SELECT pha.vendor_id
                  FROM po.po_headers_all pha
                 WHERE pv.vendor_id = pha.vendor_id
                   AND pvsa.vendor_site_id = pha.vendor_site_id
                   AND pha.org_id = fnd_profile.VALUE('ORG_ID')
                   AND pha.type_lookup_code = 'CONTRACT'
                   AND pha.authorization_status = 'APPROVED');
      RETURN TRUE;
      IF (p_document_id IS NULL)
      THEN
         RETURN FALSE;
      END IF;
   EXCEPTION
      WHEN OTHERS
      THEN
         RETURN FALSE;
   END does_cpa_exist;The pl/sql validates and commits okay in TOAD.
I have run the sql from within EBS, and the path the workflow took looks like the function returned a false.
I pass the function a document_id.
I wondered how I could test the output of the function from within TOAD?
I tried:
select XCCC_PO_APPROVALLIST_S1.does_cpa_exist(1017934) from dual;But get errors:
ORA-06552: PL/SQL: Statement ignored
ORA-06553: PLS-382: expression is of wrong typeI'm probably doing 101 things wrong here, but thought I'd ask anyway and risk being shouted at.
Any advice much appreciated,
Thanks

Answer 1

20100511 wrote:
I wondered how I could test the output of the function from within TOAD?I usually create the following function in my developer schema:
create or replace function BoolToChar( b boolean ) return varchar2 is
begin
  if b then
    return( 'TRUE' );
  else
    return( 'FALSE' );
  end if;
end;To test a function like yours, the following will do in SQL*Plus/TOAD/etc:
begin
  DBMS_OUTPUT.put_line(
    BoolToChar( XCCC_PO_APPROVALLIST_S1.does_cpa_exist(1017934)  )
end;
I'm probably doing 101 things wrong here, but thought I'd ask anyway and risk being shouted at.Shout at? You reckon? I thought people risked being beaten with a lead pipe, or pelted with beer cans and stale pretzels - which makes being shouted at a really safe and viable alternative. {noformat};-){noformat}