1 PACKAGE body PSB_DISCOVERER_FUNCTIONS as
2 /*$Header: PSBVDISB.pls 115.2 2002/11/22 07:38:45 pmamdaba ship $*/
3
4 Function ws_get_amount(p_required_stage_seq in number,
5 p_start_stage_seq in number,
6 p_current_stage_seq in number,
7 p_ytd_amount in number) RETURN NUMBER IS
8
9 Begin
10
11 if ((p_required_stage_seq >= p_start_stage_seq) AND (p_required_stage_seq <= p_current_stage_seq))
12 then return(p_ytd_amount);
13 else return(0);
14 end if;
15
16 End ws_get_amount;
17
18 Function Get_GL_Balance(p_revision_type IN VARCHAR2,
19 p_balance_type IN VARCHAR2,
20 p_set_of_books_id IN NUMBER,
21 p_xbc_enabled_flag IN VARCHAR2,
22 p_gl_period_name IN VARCHAR2,
23 p_gl_budget_version_id IN NUMBER,
24 p_currency_code IN VARCHAR2,
25 p_code_combination_id IN NUMBER) RETURN NUMBER IS
26 Begin
27
28 return PSB_BUDGET_REVISIONS_PVT.Get_GL_Balance(p_revision_type => p_revision_type,
29 p_balance_type => p_balance_type,
30 p_set_of_books_id => p_set_of_books_id,
31 p_xbc_enabled_flag => p_xbc_enabled_flag,
32 p_gl_period_name => p_gl_period_name,
33 p_gl_budget_version_id => p_gl_budget_version_id,
34 p_currency_code => p_currency_code,
35 p_code_combination_id => p_code_combination_id);
36 End Get_GL_Balance;
37
38 End PSB_DISCOVERER_FUNCTIONS;