Menu de navegação

[silviobjParticipante]

To comecando com pl/sql….

Alguem sabe como passo variaveis bind como parametros para uma function??

Valew!!

[Leonardo LitzParticipante]

Assim:

variavelRetorno := funcao(parametro1 => :variavel1);

Vlw

[silviobjParticipante]

Litz….na verdade quis perguntar como declara-las na function….e nao utilizar os parametros…..segue a function:

CREATE OR REPLACE FUNCTION EXISTE_CREDEN_HOSP_CC_PROC
(
p_cd_hospital IN creden_proced.cd_hospital%type,
p_cd_centro_custo IN creden_proced.cd_centro_custo%type,
p_cd_procedimento IN creden_proced.cd_procedimento%type
)

RETURN BOOLEAN
IS
v_credenciado creden_proced.cd_credenciado%type;
BEGIN
SELECT CP.CD_CREDENCIADO
INTO v_credenciado
FROM CREDEN_PROCED CP
WHERE CP.CD_HOSPITAL = p_cd_hospital
AND CP.CD_CENTRO_CUSTO = p_cd_centro_custo
AND CP.CD_PROCEDIMENTO = p_cd_procedimento;

IF SQL%ROWCOUNT > 0 THEN
RETURN (TRUE);
ELSE
RETURN (FALSE);
END IF;

EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN (FALSE);

END EXISTE_CREDEN_HOSP_CC_PROC;
/

alter function EXISTE_CREDEN_HOSP_CC_PROC compile;

select status from user_objects
where OBJECT_NAME = ‘EXISTE_CREDEN_HOSP_CC_PROC’;

BEGIN
DBMS_OUTPUT.PUT_LINE(‘FINDING RECORDS…’);

IF EXISTE_CREDEN_HOSP_CC_PROC (1, 999, 28010540) THEN
DBMS_OUTPUT.PUT_LINE(‘JÁ CADASTRADO…’);
ELSE
DBMS_OUTPUT.PUT_LINE(‘NÃO CADASTRADO…’);
END IF;
END;
/

[Autor]

Posts