1create or replace package body p_test is
2
3procedure do_this_stuff is begin
4if true then
5    for idx in z+1 .. myarr.last loop
6        if myarr.exists(idx) then
7            null;
8        end if;
9    end loop;
10
11elsif true then
12    for idx in myarr.first .. myarr.last loop
13        if myarr.exists(idx) then
14            null;
15        end if;
16    end loop;
17end if;
18end do_this_stuff;
19
20procedure process_this (
21    p_flag in boolean
22) is
23begin
24    null;
25end process_this;
26
27procedure myfn1 (
28    p_str1 in varchar2,
29    p_str2 in varchar2
30) is begin
31process_this(false);
32end myfn1;
33
34procedure myfn2 (
35    p_str1 in varchar2,
36    p_str2 in varchar2
37) is begin
38process_this(true);
39end myfn2;
40
41end p_test;
42