ALTER FUNCTION "DBA"."liczba_zabiegow"()
RETURNS INTEGER
NOT DETERMINISTIC
BEGIN
DECLARE @liczbaZabiegow INTEGER;
DECLARE @typzabiegu CHAR(100);
DECLARE @idzabiegu INTEGER;
DECLARE @lbypass INTEGER;
DECLARE @lwyciec INTEGER;
DECLARE @zmienna INTEGER;
DECLARE kursor1 CURSOR FOR
SELECT Z.id_zabieg, Z.nazwa_zabieg
INTO @idzabiegu,@typzabiegu
FROM ZABIEG Z;
SET @lbypass=0;
SET @lwyciec=0;
SET @zmienna=0;
SELECT COUNT(Z.id_zabieg) INTO @liczbaZabiegow
FROM ZABIEG Z;
OPEN kursor1;
petla: LOOP
FETCH NEXT kursor1 INTO @idzabiegu,@typzabiegu;
IF @typzabiegu='bypass'
THEN
SET @lbypass=@lbypass+1;
ENDIF;
IF @typzabiegu='wyciecie'
THEN
SET @lwyciec=@lwyciec+1;
ENDIF;
SET @zmienna=@zmienna+1;
IF @zmienna=@liczbaZabiegow
THEN LEAVE petla;
ENDIF;
END LOOP;
CLOSE kursor1;
MESSAGE 'liczba bypassow = ' || @lbypass TO CLIENT;
MESSAGE 'liczba wyciec = ' || @lwyciec TO CLIENT;
RETURN @liczbaZabiegow;
END
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}