PACKAGE BODY: APPS.POS_SECURITY_PROFILE_UTL_PKG

Source

1 PACKAGE BODY pos_security_profile_utl_pkg AS
2 /*$Header: POSSPUTB.pls 120.4 2006/01/10 12:52:48 bitang noship $ */
3 
4 PROCEDURE get_current_ous
5   (x_ou_ids OUT nocopy number_table,
6    x_count  OUT nocopy NUMBER
7    )
8   IS
9      CURSOR l_cur IS
10         SELECT organization_id
11           FROM hr_operating_units
12           WHERE mo_global.check_access(organization_id) = 'Y';
13 
14      -- note: we are not checking financial options, payable options, purchasing options here.
15      -- need to think about whether we should
16 
17      l_numbers  number_table;
18      l_index    NUMBER;
19 BEGIN
20    l_index := 0;
21    FOR l_rec IN l_cur LOOP
22       l_index := l_index + 1;
23       l_numbers(l_index) := l_rec.organization_id;
24    END LOOP;
25 
26    x_ou_ids := l_numbers;
27    x_count := l_index;
28 
29 END get_current_ous;
30 
31 END pos_security_profile_utl_pkg;