[Home] [Help]
PACKAGE: APPS.PA_BUDGET_UPGRADE_PKG
Source
1 PACKAGE PA_BUDGET_UPGRADE_PKG AUTHID CURRENT_USER as
2 -- $Header: PAXBUUPS.pls 120.1 2005/08/19 17:10:57 mwasowic noship $
3
4 type id_name is record (
5 resource_list_id number,
6 resource_list_name varchar2(240) );
7 type id_name_tbl is table of id_name
8 index by binary_integer;
9
10
11 V3BTypeTab pa_utils.Char30TabTyp;
12 BudTypeTab pa_utils.Char30TabTyp;
13 VerNumTab pa_utils.IdTabTyp;
14 BudStTab pa_utils.Char30TabTyp;
15 CurFlagTab pa_utils.Char1TabTyp;
16 OrigFlagTab pa_utils.Char1TabTyp;
17 CurOrigTab pa_utils.Char1TabTyp;
18 BaseByTab pa_utils.IdTabTyp;
19 BaseDateTab pa_utils.DateTabTyp;
20 CreateByTab pa_utils.IdTabTyp;
21 CreateDateTab pa_utils.DateTabTyp;
22 LastUpdatedByTab pa_utils.IdTabTyp;
23 LastUpdatedDateTab pa_utils.DateTabTyp;
24 LastUpdatedLoginTab pa_utils.IdTabTyp;
25
26 g_uncat_rec pa_resource_list_members%ROWTYPE;
27 g_cat_rec id_name_tbl;
28 g_uncla_rec pa_resources%ROWTYPE;
29 g_project_id number;
30 g_budget_type_code varchar2(30);
31 g_last_updated_by NUMBER(15) := FND_GLOBAL.USER_ID;
32 g_last_update_date DATE := trunc(sysdate);
33 g_last_update_login NUMBER(15) := FND_GLOBAL.LOGIN_ID;
34
35
36 -- Derive Project_id
37 FUNCTION Get_Project_id RETURN NUMBER;
38 pragma RESTRICT_REFERENCES ( Get_Project_id, WNDS, WNPS );
39
40 -- Derive Budget_type_code
41 FUNCTION Get_Budget_Type_Code RETURN VARCHAR2;
42 pragma RESTRICT_REFERENCES ( Get_Budget_Type_Code, WNDS, WNPS );
43
44 Procedure Initialize (x_err_code in out NOCOPY number, --File.Sql.39 bug 4440895
45 x_err_stage in out NOCOPY varchar2, --File.Sql.39 bug 4440895
46 x_err_stack in out NOCOPY varchar2); --File.Sql.39 bug 4440895
47
48 Procedure Create_Setup_data(x_err_code in out NOCOPY number, --File.Sql.39 bug 4440895
49 x_err_stage in out NOCOPY varchar2, --File.Sql.39 bug 4440895
50 x_err_stack in out NOCOPY varchar2); --File.Sql.39 bug 4440895
51
52 Procedure Main(x_min_project_id in number,
53 x_max_project_id in number,
54 x_err_code in out NOCOPY number, --File.Sql.39 bug 4440895
55 x_err_stage in out NOCOPY varchar2, --File.Sql.39 bug 4440895
56 x_err_stack in out NOCOPY varchar2); --File.Sql.39 bug 4440895
57
58 END PA_BUDGET_UPGRADE_PKG ;