1 PACKAGE BODY GLIQAVG_PKG AS
2 /* $Header: gliqavgb.pls 120.2 2005/05/05 01:18:54 kvora ship $ */
3
4
5 PROCEDURE set_ccid ( X_code_combination_id NUMBER) IS
6 BEGIN
7 GLIQAVG_PKG.code_combination_id := X_code_combination_id;
8 END set_ccid;
9
10 PROCEDURE set_template_id ( X_template_id NUMBER) IS
11 BEGIN
12 GLIQAVG_PKG.template_id := X_template_id;
13 END set_template_id;
14
15 PROCEDURE set_factor ( X_factor NUMBER) IS
16 BEGIN
17 GLIQAVG_PKG.factor := X_factor;
18 END set_factor;
19
20 FUNCTION get_ccid RETURN NUMBER IS
21 BEGIN
22 RETURN GLIQAVG_pkg.code_combination_id;
23 END get_ccid;
24
25 FUNCTION get_template_id RETURN NUMBER IS
26 BEGIN
27 RETURN GLIQAVG_pkg.template_id;
28 END get_template_id;
29
30 FUNCTION get_factor RETURN NUMBER IS
31 BEGIN
32 RETURN GLIQAVG_pkg.factor;
33 END get_factor;
34
35 END GLIQAVG_PKG;