CREATE OR REPLACE
PACKAGE MULTIMIDIA_CLIENTE AS

  TYPE R_OBTER_CLIENTE IS REF CURSOR RETURN SALVADM.TB_CLIENTE%ROWTYPE;
  TYPE CUR_TEMP IS REF CURSOR RETURN SALVADM.TB_PROD_FILIAL%ROWTYPE;
  TYPE CUR_CLI_TEMP IS REF CURSOR RETURN SALVADM.VW_CLI_MM_2_TEMP%rowtype;

    PROCEDURE PR_OBTER_CLIENTE(A VARCHAR2, B VARCHAR2, C VARCHAR2, D VARCHAR2, E VARCHAR2, F VARCHAR2, G VARCHAR2, H VARCHAR2, I VARCHAR2,
    J VARCHAR2,K VARCHAR2, L VARCHAR2, M VARCHAR2, NOMCLI OUT VARCHAR2, CODCLI OUT VARCHAR2, DIGCLI OUT VARCHAR2, CGCCPF OUT VARCHAR2,
    NUMDOC OUT VARCHAR2,NATJUR OUT VARCHAR2, COR OUT VARCHAR2, CODEND OUT VARCHAR2, CEP OUT VARCHAR2, ENDERECO OUT VARCHAR2, NUMERO OUT VARCHAR2,
    BAIRRO OUT VARCHAR2,CIDADE OUT VARCHAR2, ESTADO OUT VARCHAR2, CODCLI OUT VARCHAR2, DIGCLI OUT VARCHAR2, N OUT CUR_CLI_TEMP, O OUT CUR_CLI_TEMP,
    P OUT VARCHAR2,Q OUT VARCHAR2, R OUT VARCHAR2, S OUT VARCHAR2, RETORNOCLIENTE OUT R_OBTER_CLIENTE);

END MULTIMIDIA_CLIENTE;


----


CREATE OR REPLACE
PACKAGE BODY MULTIMIDIA_CLIENTE AS

PROCEDURE PR_OBTER_CLIENTE(A VARCHAR2, B VARCHAR2, C VARCHAR2, D VARCHAR2, E VARCHAR2, F VARCHAR2, G VARCHAR2, H VARCHAR2, I VARCHAR2,
    J VARCHAR2,K VARCHAR2, L VARCHAR2, M VARCHAR2, NOMCLI OUT VARCHAR2, CODCLI OUT VARCHAR2, DIGCLI OUT VARCHAR2, CGCCPF OUT VARCHAR2,
    NUMDOC OUT VARCHAR2,NATJUR OUT VARCHAR2, COR OUT VARCHAR2, CODEND OUT VARCHAR2, CEP OUT VARCHAR2, ENDERECO OUT VARCHAR2, NUMERO OUT VARCHAR2,
    BAIRRO OUT VARCHAR2,CIDADE OUT VARCHAR2, ESTADO OUT VARCHAR2, CODCLI OUT VARCHAR2, DIGCLI OUT VARCHAR2, N OUT CUR_CLI_TEMP, O OUT CUR_CLI_TEMP,
    P OUT VARCHAR2,Q OUT VARCHAR2, R OUT VARCHAR2, S OUT VARCHAR2, RETORNOCLIENTE OUT R_OBTER_CLIENTE)
IS
    BEGIN
          BEGIN
        IF A = '5' THEN
              OPEN N FOR SELECT * FROM SALVADM.VW_CLI_MM_2_TEMP WHERE CODCLI = B;
        ELSIF A = '3' THEN
              OPEN N FOR SELECT * FROM SALVADM.VW_CLI_MM_2_TEMP WHERE CODCLI = B;
        ELSIF A = '4' THEN
              OPEN n FOR SELECT * FROM salvadm.vw_cli_mm_2_temp WHERE codcli = b;
        ELSIF A = '1' THEN
              OPEN n FOR SELECT * FROM salvadm.vw_cli_mm_2_temp WHERE codcli = b;
        ELSIF A = '2' THEN
              OPEN n FOR SELECT * FROM salvadm.vw_cli_mm_2_temp WHERE nomcli = b;
        END IF;
        exception WHEN others THEN
        NULL;
          END;
            p := NULL; q := NULL; r := NULL; s := NULL;
            exception
            WHEN others THEN
             dbms_output.put_line('Error : '||sqlerrm);
     END;
END MULTIMIDIA_CLIENTE;