1: PACKAGE BODY GLR03300_PKG AS
2: /* $Header: gl03300b.pls 120.8 2005/05/05 02:01:07 kvora ship $ */
3: PROCEDURE set_criteria (X_code_combination_id NUMBER,
4: X_budget_version_id NUMBER,
5: X_encumbrance_type_id NUMBER,
13: X_ledger_id NUMBER,
14: X_period_name VARCHAR2,
15: X_ledger_currency VARCHAR2) IS
16: BEGIN
17: GLR03300_PKG.code_combination_id := X_code_combination_id;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
14: X_period_name VARCHAR2,
15: X_ledger_currency VARCHAR2) IS
16: BEGIN
17: GLR03300_PKG.code_combination_id := X_code_combination_id;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
15: X_ledger_currency VARCHAR2) IS
16: BEGIN
17: GLR03300_PKG.code_combination_id := X_code_combination_id;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
16: BEGIN
17: GLR03300_PKG.code_combination_id := X_code_combination_id;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
17: GLR03300_PKG.code_combination_id := X_code_combination_id;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
18: GLR03300_PKG.budget_version_id := X_budget_version_id;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
19: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
20: GLR03300_PKG.template_id := X_template_id;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
21: GLR03300_PKG.factor := X_factor;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
29: GLR03300_PKG.ledger_currency := X_ledger_currency;
22: GLR03300_PKG.currency_code := X_currency_code;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
29: GLR03300_PKG.ledger_currency := X_ledger_currency;
30: END set_criteria;
23: GLR03300_PKG.translated_flag := X_translated_flag;
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
29: GLR03300_PKG.ledger_currency := X_ledger_currency;
30: END set_criteria;
31:
24: GLR03300_PKG.balance_type := X_balance_type;
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
29: GLR03300_PKG.ledger_currency := X_ledger_currency;
30: END set_criteria;
31:
32: PROCEDURE set_sec_criteria (X_code_combination_id NUMBER,
25: GLR03300_PKG.currency_type := X_currency_type;
26: GLR03300_PKG.actual_flag := X_actual_flag;
27: GLR03300_PKG.ledger_id := X_ledger_id;
28: GLR03300_PKG.period_name := X_period_name;
29: GLR03300_PKG.ledger_currency := X_ledger_currency;
30: END set_criteria;
31:
32: PROCEDURE set_sec_criteria (X_code_combination_id NUMBER,
33: X_budget_version_id NUMBER,
45: X_ledger_id NUMBER,
46: X_period_name VARCHAR2,
47: X_ledger_currency VARCHAR2) IS
48: BEGIN
49: GLR03300_PKG.code_combination_id := X_code_combination_id;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
46: X_period_name VARCHAR2,
47: X_ledger_currency VARCHAR2) IS
48: BEGIN
49: GLR03300_PKG.code_combination_id := X_code_combination_id;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
47: X_ledger_currency VARCHAR2) IS
48: BEGIN
49: GLR03300_PKG.code_combination_id := X_code_combination_id;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
48: BEGIN
49: GLR03300_PKG.code_combination_id := X_code_combination_id;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
49: GLR03300_PKG.code_combination_id := X_code_combination_id;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
50: GLR03300_PKG.budget_version_id := X_budget_version_id;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
51: GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
52: GLR03300_PKG.template_id := X_template_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
53: GLR03300_PKG.factor := X_factor;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
54: GLR03300_PKG.currency_code := X_currency_code;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
55: GLR03300_PKG.translated_flag := X_translated_flag;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
56: GLR03300_PKG.balance_type := X_balance_type;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
64: GLR03300_PKG.ledger_currency := X_ledger_currency;
57: GLR03300_PKG.currency_type := X_currency_type;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
64: GLR03300_PKG.ledger_currency := X_ledger_currency;
65: END set_sec_criteria;
58: GLR03300_PKG.actual_flag := X_actual_flag;
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
64: GLR03300_PKG.ledger_currency := X_ledger_currency;
65: END set_sec_criteria;
66:
59: GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
64: GLR03300_PKG.ledger_currency := X_ledger_currency;
65: END set_sec_criteria;
66:
67: PROCEDURE set_ledger_id ( X_ledger_id NUMBER) IS
60: GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61: GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62: GLR03300_PKG.ledger_id := X_ledger_id;
63: GLR03300_PKG.period_name := X_period_name;
64: GLR03300_PKG.ledger_currency := X_ledger_currency;
65: END set_sec_criteria;
66:
67: PROCEDURE set_ledger_id ( X_ledger_id NUMBER) IS
68: BEGIN
65: END set_sec_criteria;
66:
67: PROCEDURE set_ledger_id ( X_ledger_id NUMBER) IS
68: BEGIN
69: GLR03300_PKG.ledger_id := X_ledger_id;
70: END set_ledger_id;
71:
72: PROCEDURE set_ar_cc ( X_ar_code_combination_id NUMBER) IS
73: BEGIN
70: END set_ledger_id;
71:
72: PROCEDURE set_ar_cc ( X_ar_code_combination_id NUMBER) IS
73: BEGIN
74: GLR03300_PKG.ar_code_combination_id := X_ar_code_combination_id;
75: END set_ar_cc;
76:
77:
78: -- Procedure
201: END populate_fields;
202:
203: FUNCTION get_ar_cc RETURN NUMBER IS
204: BEGIN
205: RETURN GLR03300_pkg.ar_code_combination_id;
206: END get_ar_cc;
207: --
208: -- PUBLIC FUNCTIONS
209: --
208: -- PUBLIC FUNCTIONS
209: --
210: FUNCTION get_code_combination_id RETURN NUMBER IS
211: BEGIN
212: RETURN GLR03300_pkg.code_combination_id;
213: END get_code_combination_id;
214:
215: FUNCTION get_budget_version_id RETURN NUMBER IS
216: BEGIN
213: END get_code_combination_id;
214:
215: FUNCTION get_budget_version_id RETURN NUMBER IS
216: BEGIN
217: RETURN GLR03300_pkg.budget_version_id;
218: END get_budget_version_id;
219:
220: FUNCTION get_encumbrance_type_id RETURN NUMBER IS
221: BEGIN
218: END get_budget_version_id;
219:
220: FUNCTION get_encumbrance_type_id RETURN NUMBER IS
221: BEGIN
222: RETURN GLR03300_pkg.encumbrance_type_id;
223: END get_encumbrance_type_id;
224:
225: FUNCTION get_template_id RETURN NUMBER IS
226: BEGIN
223: END get_encumbrance_type_id;
224:
225: FUNCTION get_template_id RETURN NUMBER IS
226: BEGIN
227: RETURN GLR03300_pkg.template_id;
228: END get_template_id;
229:
230: FUNCTION get_entered_currency_code RETURN VARCHAR2 IS
231: BEGIN
228: END get_template_id;
229:
230: FUNCTION get_entered_currency_code RETURN VARCHAR2 IS
231: BEGIN
232: RETURN GLR03300_pkg.currency_code;
233: END get_entered_currency_code;
234:
235: FUNCTION get_translated_flag RETURN VARCHAR2 IS
236: BEGIN
233: END get_entered_currency_code;
234:
235: FUNCTION get_translated_flag RETURN VARCHAR2 IS
236: BEGIN
237: RETURN GLR03300_pkg.translated_flag;
238: END get_translated_flag;
239:
240: FUNCTION get_balance_type RETURN VARCHAR2 IS
241: BEGIN
238: END get_translated_flag;
239:
240: FUNCTION get_balance_type RETURN VARCHAR2 IS
241: BEGIN
242: RETURN GLR03300_pkg.balance_type;
243: END get_balance_type;
244:
245: FUNCTION get_factor RETURN NUMBER IS
246: BEGIN
243: END get_balance_type;
244:
245: FUNCTION get_factor RETURN NUMBER IS
246: BEGIN
247: RETURN GLR03300_pkg.factor;
248: END get_factor;
249:
250: FUNCTION get_currency_type RETURN VARCHAR2 IS
251: BEGIN
248: END get_factor;
249:
250: FUNCTION get_currency_type RETURN VARCHAR2 IS
251: BEGIN
252: RETURN GLR03300_pkg.currency_type;
253: END get_currency_type;
254:
255: FUNCTION get_actual_flag RETURN VARCHAR2 IS
256: BEGIN
253: END get_currency_type;
254:
255: FUNCTION get_actual_flag RETURN VARCHAR2 IS
256: BEGIN
257: RETURN GLR03300_pkg.actual_flag;
258: END get_actual_flag;
259:
260: FUNCTION get_sec_actual_flag RETURN VARCHAR2 IS
261: BEGIN
258: END get_actual_flag;
259:
260: FUNCTION get_sec_actual_flag RETURN VARCHAR2 IS
261: BEGIN
262: RETURN GLR03300_pkg.sec_actual_flag;
263: END get_sec_actual_flag;
264:
265: FUNCTION get_sec_budget_version_id RETURN NUMBER IS
266: BEGIN
263: END get_sec_actual_flag;
264:
265: FUNCTION get_sec_budget_version_id RETURN NUMBER IS
266: BEGIN
267: RETURN GLR03300_pkg.sec_budget_version_id;
268: END get_sec_budget_version_id;
269:
270: FUNCTION get_sec_encumbrance_type_id RETURN NUMBER IS
271: BEGIN
268: END get_sec_budget_version_id;
269:
270: FUNCTION get_sec_encumbrance_type_id RETURN NUMBER IS
271: BEGIN
272: RETURN GLR03300_pkg.sec_encumbrance_type_id;
273: END get_sec_encumbrance_type_id;
274:
275: -- FUNCTION get_functional_currency_code RETURN VARCHAR2 IS
276: -- BEGIN
273: END get_sec_encumbrance_type_id;
274:
275: -- FUNCTION get_functional_currency_code RETURN VARCHAR2 IS
276: -- BEGIN
277: -- RETURN GLR03300_pkg.functional_currency_code;
278: -- END get_functional_currency_code;
279:
280: FUNCTION get_ledger_id RETURN NUMBER IS
281: BEGIN
278: -- END get_functional_currency_code;
279:
280: FUNCTION get_ledger_id RETURN NUMBER IS
281: BEGIN
282: RETURN GLR03300_pkg.ledger_id;
283: END get_ledger_id;
284:
285: FUNCTION get_period_name RETURN VARCHAR2 IS
286: BEGIN
283: END get_ledger_id;
284:
285: FUNCTION get_period_name RETURN VARCHAR2 IS
286: BEGIN
287: RETURN GLR03300_pkg.period_name;
288: END get_period_name;
289:
290: FUNCTION get_ledger_currency RETURN VARCHAR2 IS
291: BEGIN
288: END get_period_name;
289:
290: FUNCTION get_ledger_currency RETURN VARCHAR2 IS
291: BEGIN
292: RETURN GLR03300_pkg.ledger_currency;
293: END get_ledger_currency;
294:
295: END GLR03300_PKG;
291: BEGIN
292: RETURN GLR03300_pkg.ledger_currency;
293: END get_ledger_currency;
294:
295: END GLR03300_PKG;