PACKAGE BODY: APPS.IGW_GR_MIGRATION

Source

1 PACKAGE BODY IGW_GR_MIGRATION AS
2 --$Header: igwgrmigrationb.pls 120.3 2005/09/30 00:54:54 ashkumar ship $
3 
4    ---------------------------------------------------------------------------
5 
6    g_package_name CONSTANT  VARCHAR2(30) := 'IGW_GR_MIGRATION';
7    g_igw_literal          CONSTANT  VARCHAR2(30) := 'IGW';
8    g_stage                  VARCHAR2(500);
9    g_user_id                NUMBER(15);
10    g_login_id               NUMBER(15);
11    g_currency_code          VARCHAR2(30);
12    g_fiscal_year_start_mmdd VARCHAR2(30);
13    g_budget_template_id     NUMBER;
14 
15    ---------------------------------------------------------------------------
16 
17    PROCEDURE Proposal_Migration
18    (
19       errbuf  OUT NOCOPY VARCHAR2,
20       retcode OUT NOCOPY NUMBER
21    ) IS
22    BEGIN
23 	NULL;
24 
25 END Proposal_Migration;
26 
27    ---------------------------------------------------------------------------
28 
29    PROCEDURE Security_Migration
30    (
31       x_msg_data      OUT NOCOPY VARCHAR2,
32       x_return_status OUT NOCOPY VARCHAR2
33    ) IS
34 
35    BEGIN
36 	NULL;
37 
38 END Security_Migration;
39 
40    ---------------------------------------------------------------------------
41 
42    PROCEDURE Budget_Migration
43    (
44       p_init_msg_list IN VARCHAR2,
45       p_validate_only IN VARCHAR2,
46       p_commit        IN VARCHAR2,
47       p_proposal_id   IN NUMBER,
48       p_version_id    IN NUMBER,
49       x_return_status OUT NOCOPY VARCHAR2,
50       x_msg_count     OUT NOCOPY NUMBER,
51       x_msg_data      OUT NOCOPY VARCHAR2
52    ) IS
53 
54    BEGIN
55 	NULL;
56 
57 END Budget_Migration;
58 
59    ---------------------------------------------------------------------------
60 
61    FUNCTION Get_Latest_Version_Id(p_proposal_id NUMBER) RETURN NUMBER IS
62 
63       l_api_name CONSTANT VARCHAR2(30) := 'Get_Latest_Version_Id';
64 
65       l_version_id NUMBER;
66 
67    BEGIN
68 
69       RETURN null;
70 
71    END Get_Latest_Version_Id;
72 
73    ---------------------------------------------------------------------------
74 
75    PROCEDURE Log(p_log_msg IN VARCHAR2) IS
76    BEGIN
77 
78       NULL;
79 
80    END Log;
81 
82    ---------------------------------------------------------------------------
83 
84    PROCEDURE Set_Stage(p_stage IN VARCHAR2) IS
85    BEGIN
86 
87       g_stage := p_stage;
88       Log('');
89       Log('Migration Stage : '||g_stage||'...');
90 
91    END Set_Stage;
92 
93    ---------------------------------------------------------------------------
94 
95    PROCEDURE Display_Rowcount IS
96    BEGIN
97 
98       Log(SQL%ROWCOUNT||' rows migrated in '||g_stage);
99 
100    END Display_Rowcount;
101 
102    ---------------------------------------------------------------------------
103 
104    PROCEDURE Execute_Commit IS
105    BEGIN
106 
107       Log('**** Committing data...');
108       COMMIT;
109       Log('DATA COMMITTED');
110 
111    END Execute_Commit;
112 
113    ---------------------------------------------------------------------------
114 
115    FUNCTION Get_Location_Code(p_budget_vers_exp_category_id NUMBER) RETURN VARCHAR2 IS
116 
117    BEGIN
118 
119       RETURN null;
120 
121    END Get_Location_Code;
122 
123   ---------------------------------------------------------------------------
124 
125    FUNCTION Get_Oh_Eb_Flag
126    (
127       p_budget_vers_exp_category_id NUMBER,
128       p_rate_class_type VARCHAR2
129    )
130    RETURN VARCHAR2 IS
131 
132    BEGIN
133 
134 
135       RETURN null;
136 
137    END Get_Oh_Eb_Flag;
138 
139    ---------------------------------------------------------------------------
140 
141 END Igw_Gr_Migration;