1: PACKAGE PO_GLOBAL AUTHID CURRENT_USER AS
2: /* $Header: PO_GLOBAL.pls 120.1 2005/06/15 16:47:01 bao noship $ */
3:
4: g_role_BUYER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'BUYER';
5: g_role_CAT_ADMIN CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'CAT_ADMIN';
6: g_role_SUPPLIER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'SUPPLIER';
7:
8: g_role PO_HEADERS_ALL.lock_owner_role%TYPE;
1: PACKAGE PO_GLOBAL AUTHID CURRENT_USER AS
2: /* $Header: PO_GLOBAL.pls 120.1 2005/06/15 16:47:01 bao noship $ */
3:
4: g_role_BUYER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'BUYER';
5: g_role_CAT_ADMIN CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'CAT_ADMIN';
6: g_role_SUPPLIER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'SUPPLIER';
7:
8: g_role PO_HEADERS_ALL.lock_owner_role%TYPE;
9:
2: /* $Header: PO_GLOBAL.pls 120.1 2005/06/15 16:47:01 bao noship $ */
3:
4: g_role_BUYER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'BUYER';
5: g_role_CAT_ADMIN CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'CAT_ADMIN';
6: g_role_SUPPLIER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'SUPPLIER';
7:
8: g_role PO_HEADERS_ALL.lock_owner_role%TYPE;
9:
10: PROCEDURE set_role
4: g_role_BUYER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'BUYER';
5: g_role_CAT_ADMIN CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'CAT_ADMIN';
6: g_role_SUPPLIER CONSTANT PO_HEADERS_ALL.lock_owner_role%TYPE := 'SUPPLIER';
7:
8: g_role PO_HEADERS_ALL.lock_owner_role%TYPE;
9:
10: PROCEDURE set_role
11: ( p_role IN VARCHAR2
12: );