1: PACKAGE BODY GL_CONS_WRK_PKG AS
2: /* $Header: glcowrkb.pls 120.5 2005/05/05 02:02:49 kvora ship $ */
3: PROCEDURE set_data (X_period VARCHAR2,
4: X_access_set_id NUMBER) IS
5: BEGIN
2: /* $Header: glcowrkb.pls 120.5 2005/05/05 02:02:49 kvora ship $ */
3: PROCEDURE set_data (X_period VARCHAR2,
4: X_access_set_id NUMBER) IS
5: BEGIN
6: GL_CONS_WRK_PKG.period := X_period;
7: GL_CONS_WRK_PKG.access_set_id := X_access_set_id;
8: END set_data;
9:
10: FUNCTION get_period RETURN VARCHAR2 IS
3: PROCEDURE set_data (X_period VARCHAR2,
4: X_access_set_id NUMBER) IS
5: BEGIN
6: GL_CONS_WRK_PKG.period := X_period;
7: GL_CONS_WRK_PKG.access_set_id := X_access_set_id;
8: END set_data;
9:
10: FUNCTION get_period RETURN VARCHAR2 IS
11: BEGIN
8: END set_data;
9:
10: FUNCTION get_period RETURN VARCHAR2 IS
11: BEGIN
12: RETURN GL_CONS_WRK_PKG.period;
13: END get_period;
14:
15: FUNCTION get_access_set_id RETURN NUMBER IS
16: BEGIN
13: END get_period;
14:
15: FUNCTION get_access_set_id RETURN NUMBER IS
16: BEGIN
17: RETURN GL_CONS_WRK_PKG.access_set_id;
18: END get_access_set_id;
19:
20:
21: FUNCTION submit_request (
102:
103: RETURN ret_val;
104: END get_translation_status;
105:
106: END GL_CONS_WRK_PKG;