Oracle 18c

By using db<>fiddle, you agree to license everything you submit by Creative Commons CC0.

CREATE OR REPLACE PROCEDURE IMPL_XEROX_PRINTER_CHECK 
(
  PRINTER_ID IN VARCHAR2 

, O_STATUS  OUT VARCHAR2
, O_MESSAGE OUT VARCHAR2
)  AS 
    PROC_STATUS         VARCHAR2(10);
    PROC_ERROR_MESSAGE  VARCHAR2(4000);

    rand_num number; 
BEGIN 

     dbms_output.put_line('IMPL_XEROX_PRINTER_CHECK ');
     select round(dbms_random.value(1,10)) into rand_num     from dual;   

    IF rand_num < 5 THEN
            PROC_STATUS  := 'TRUE';
            O_STATUS:= 'TRUE';
            PROC_ERROR_MESSAGE := 'ALL IS GOOD';
            O_MESSAGE:= 'ALL IS GOOD';
    ELSE
            PROC_STATUS  := 'FALSE';
            O_STATUS:= 'FALSE';
            PROC_ERROR_MESSAGE := 'SOMTHING WENT WRONG!!! ';
            O_MESSAGE:= 'SOMTHING WENT WRONG!!! ';
    END IF;

END IMPL_XEROX_PRINTER_CHECK;
/
CREATE OR REPLACE 
PACKAGE PACKAGE1 
AS 
  type status_t is record ( o_status varchar2(10)
                          , o_message varchar2(4000));
  type status_tt is table of status_t;

  function impl_xerox_printer_check_w(printer_id varchar2) RETURN status_tt PIPELINED;

END PACKAGE1;
/
CREATE OR REPLACE
PACKAGE BODY PACKAGE1 AS

  function impl_xerox_printer_check_w(printer_id varchar2) RETURN status_tt PIPELINED AS
    status status_t;
  BEGIN
    impl_xerox_printer_check(printer_id, status.o_status, status.o_message);

    PIPE ROW (status);
    RETURN;
  END impl_xerox_printer_check_w;

END PACKAGE1;
/
select * from table(package1.impl_xerox_printer_check_w('551555115'));


O_STATUS
O_MESSAGE


FALSE
SOMTHING WENT WRONG!!!


with printers as (
  select dbms_random.string('X',10) printer from dual connect by level <=5
)
select * 
  from printers
  cross apply table(package1.impl_xerox_printer_check_w(printers.printer));


PRINTER
O_STATUS
O_MESSAGE


0RBS0D6J6Q
TRUE
ALL IS GOOD

X4K3Z49ELQ
FALSE
SOMTHING WENT WRONG!!!

5S9NYP2HED
TRUE
ALL IS GOOD

WTVNY5Q2QW
FALSE
SOMTHING WENT WRONG!!!

QEHDOYJ9DS
FALSE
SOMTHING WENT WRONG!!!

PRINTER	O_STATUS	O_MESSAGE
0RBS0D6J6Q	TRUE	ALL IS GOOD
X4K3Z49ELQ	FALSE	SOMTHING WENT WRONG!!!
5S9NYP2HED	TRUE	ALL IS GOOD
WTVNY5Q2QW	FALSE	SOMTHING WENT WRONG!!!
QEHDOYJ9DS	FALSE	SOMTHING WENT WRONG!!!