[Home] [Help]
PACKAGE BODY: APPS.IGW_UTILS
Source
1 PACKAGE BODY Igw_Utils AS
2 --$Header: igwutilb.pls 120.9 2005/09/12 21:04:25 vmedikon ship $
3
4 ---------------------------------------------------------------------------
5
6 G_PKG_NAME VARCHAR2(30) := 'IGW_UTILS';
7
8 ---------------------------------------------------------------------------
9
10 PROCEDURE Get_Proposal_Id
11 (
12 p_context_field IN VARCHAR2,
13 p_check_id_flag IN VARCHAR2,
14 p_proposal_number IN VARCHAR2,
15 p_proposal_id IN NUMBER,
16 x_proposal_id OUT NOCOPY NUMBER,
17 x_return_status OUT NOCOPY VARCHAR2
18 ) IS
19
20 l_api_name CONSTANT VARCHAR2(30) := 'Get_Proposal_Id';
21
22 --Possible values for p_context_field
23 /* PROPOSAL_ID, ORIGINAL_PROPOSAL_ID */
24
25 BEGIN
26 null;
27
28 END Get_Proposal_id;
29
30 ---------------------------------------------------------------------------
31
32 PROCEDURE Get_Person_Id
33 (
34 p_context_field IN VARCHAR2,
35 p_check_id_flag IN VARCHAR2,
36 p_full_name IN VARCHAR2,
37 p_person_id IN NUMBER,
38 p_party_id IN NUMBER,
39 x_person_id OUT NOCOPY NUMBER,
40 x_party_id OUT NOCOPY NUMBER,
41 x_return_status OUT NOCOPY VARCHAR2
42 ) IS
43
44 l_api_name CONSTANT VARCHAR2(30) := 'Get_Person_Id';
45
46 --Possible values for p_context_field
47 /* PERSON_ID, PROPOSAL_MANAGER_ID, SIGNING_OFFICIAL_ID, ADMIN_OFFICIAL_ID, MANAGER_ID */
48 /* variable person_id is carrying both party_id and person_id in the following program */
49
50 BEGIN
51 null;
52
53 END Get_Person_Id;
54
55 ---------------------------------------------------------------------------
56
57 PROCEDURE Get_User_Id
58 (
59 p_check_id_flag IN VARCHAR2,
60 p_user_name IN VARCHAR2,
61 p_user_id IN NUMBER,
62 x_user_id OUT NOCOPY NUMBER,
63 x_return_status OUT NOCOPY VARCHAR2
64 ) IS
65
66 l_api_name CONSTANT VARCHAR2(30) := 'Get_User_Id';
67
68 BEGIN
69
70 null;
71
72 END Get_User_Id;
73
74 ---------------------------------------------------------------------------
75
76 PROCEDURE Get_Person_User_Id
77 (
78 p_context_field IN VARCHAR2,
79 p_check_id_flag IN VARCHAR2,
80 p_person_id IN NUMBER,
81 p_user_id IN NUMBER,
82 x_user_id OUT NOCOPY NUMBER,
83 x_return_status OUT NOCOPY VARCHAR2
84 ) IS
85
86 l_api_name CONSTANT VARCHAR2(30) := 'Get_Person_User_Id';
87
88 BEGIN
89
90 null;
91
92 END Get_Person_User_Id;
93
94 ---------------------------------------------------------------------------
95
96 PROCEDURE Get_Sponsor_Id
97 (
98 p_context_field IN VARCHAR2,
99 p_check_id_flag IN VARCHAR2,
100 p_sponsor_name IN VARCHAR2,
101 p_sponsor_id IN NUMBER,
102 x_sponsor_id OUT NOCOPY NUMBER,
103 x_return_status OUT NOCOPY VARCHAR2
104 ) IS
105
106 l_api_name CONSTANT VARCHAR2(30) := 'Get_Sponsor_Id';
107
108 --Possible values for p_context_field
109 /* SPONSOR_ID, ORIGINAL_SPONSOR_ID */
110
111 BEGIN
112
113 null;
114
115 END Get_Sponsor_Id;
116
117 ---------------------------------------------------------------------------
118
119 PROCEDURE Get_Organization_Id
120 (
121 p_context_field IN VARCHAR2,
122 p_check_id_flag IN VARCHAR2,
123 p_organization_name IN VARCHAR2,
124 p_organization_id IN NUMBER,
125 p_party_id IN NUMBER,
126 x_organization_id OUT NOCOPY NUMBER,
127 x_party_id OUT NOCOPY NUMBER,
128 x_return_status OUT NOCOPY VARCHAR2
129 ) IS
130
131 l_api_name CONSTANT VARCHAR2(30) := 'Get_Organization_Id';
132
133 --Possible values for p_context_field
134 /* LEAD_ORGANIZATION_ID, SUBMITTING_ORGANIZATION_ID, PERFORMING_ORG_ID, PROJECT_LOCATION, PERSON_ORGANIZATION_ID */
135 /* variable p_organization is carrying both party_id and organization_id in the following program */
136 BEGIN
137
138 null;
139
140 END Get_Organization_Id;
141
142 ---------------------------------------------------------------------------
143
144 /*
145 **
146 ** Possible values for p_context_field :
147 **
148 ** PROPOSAL_ROLE_CODE, ACTIVITY_TYPE_CODE, PROPOSAL_TYPE_CODE,
149 ** PROPOSAL_STATUS_CODE, NOTICE_OF_OPPORTUNITY_CODE, DEADLINE_TYPE_CODE,
150 ** APPOINTMENT_TYPE_CODE, PERIOD_TYPE_CODE, LOCATION_CODE,
151 ** SPONSOR_ACTION_CODE, ABSTRACT_TYPE_CODE, SPECIAL_REVIEW_CODE,
152 ** SPECIAL_REVIEW_TYPE, REVIEW_APPROVAL_TYPE, BUDGET_STATUS_CODE, DISTRIBUTION_METHOD_CODE
153 **
154 */
155
156 PROCEDURE Get_Lookup_Code
157 (
158 p_context_field IN VARCHAR2,
159 p_check_id_flag IN VARCHAR2,
160 p_lookup_type IN VARCHAR2,
161 p_lookup_meaning IN VARCHAR2,
162 p_lookup_code IN VARCHAR2,
163 x_lookup_code OUT NOCOPY VARCHAR2,
164 x_return_status OUT NOCOPY VARCHAR2
165 ) IS
166
167 l_api_name CONSTANT VARCHAR2(30) := 'Get_Lookup_Code';
168
169 --Possible values for p_context_field
170 /* PROPOSAL_ROLE_CODE, ACTIVITY_TYPE_CODE, PROPOSAL_TYPE_CODE, PROPOSAL_STATUS_CODE,
171 NOTICE_OF_OPPORTUNITY_CODE, DEADLINE_TYPE_CODE, APPOINTMENT_TYPE_CODE, PERIOD_TYPE_CODE,
172 LOCATION_CODE, BUDGET_CATEGORY_CODE */
173
174 BEGIN
175
176 null;
177
178 END Get_Lookup_Code;
179
180 ---------------------------------------------------------------------------
181
182 PROCEDURE Check_Date_Validity
183 (
184 p_context_field IN VARCHAR2,
185 p_start_date IN DATE,
186 p_end_date IN DATE,
187 x_return_status OUT NOCOPY VARCHAR2
188 ) IS
189
190 l_api_name CONSTANT VARCHAR2(30) := 'Get_Lookup_Code';
191
192 --Possible values for p_context_field
193 /* PROPOSAL_DATE, ORIGINAL_PROPOSAL_DATE, BUDGET_PERIOD_DATE, BUDGET_LINE_DATE, BUDGET_PERSONNEL_DATE, AWARD_BUDGET */
194
195 BEGIN
196
197 null;
198
199 END Check_Date_Validity;
200
201 ---------------------------------------------------------------------------
202
203 PROCEDURE Check_Rights
204 (
205 p_proposal_id IN NUMBER,
206 x_modify_general OUT NOCOPY VARCHAR2,
207 x_modify_budget OUT NOCOPY VARCHAR2,
208 x_modify_narrative OUT NOCOPY VARCHAR2,
209 x_modify_checklist OUT NOCOPY VARCHAR2,
210 x_modify_approval OUT NOCOPY VARCHAR2,
211 x_modify_sponsor_action OUT NOCOPY VARCHAR2,
212 x_modify_award OUT NOCOPY VARCHAR2,
213 x_return_status OUT NOCOPY VARCHAR2
214 ) IS
215
216 l_api_name CONSTANT VARCHAR2(30) := 'Check_Rights';
217 l_user_id NUMBER := Fnd_Global.User_Id;
218 l_proposal_status VARCHAR2(30);
219
220 BEGIN
221
222 null;
223
224 END Check_Rights;
225
226 ---------------------------------------------------------------------------
227
228 PROCEDURE Get_Science_Code
229 (
230 p_check_id_flag IN VARCHAR2,
231 p_description IN VARCHAR2,
232 p_science_code IN VARCHAR2,
233 x_science_code OUT NOCOPY VARCHAR2,
234 x_return_status OUT NOCOPY VARCHAR2
235 ) IS
236
237 l_api_name CONSTANT VARCHAR2(30) := 'Get_Science_Code';
238
239 BEGIN
240 null;
241
242 END Get_Science_Code;
243
244 ---------------------------------------------------------------------------
245
246 PROCEDURE Send_Notification
247 (
248 p_event IN VARCHAR2,
249 p_proposal_id IN NUMBER,
250 p_person_list IN PERSON_LIST_TYPE,
251 x_return_status OUT NOCOPY VARCHAR2
252 ) IS
253
254 l_api_name CONSTANT VARCHAR2(30) := 'Send_Notification';
255
256 l_itemtype VARCHAR2(30) := 'PROP_APP';
257 l_process VARCHAR2(30) := 'SEND_NOTIFICATION_TO_MEMBERS';
258 l_itemkey VARCHAR2(30);
259 l_role_name VARCHAR2(30);
260 l_role_display_name VARCHAR2(80);
261 l_proposal_number VARCHAR2(30);
262 l_proposal_title VARCHAR2(250);
263 l_proposal_manager_name VARCHAR2(301);
264 l_sponsor_name VARCHAR2(50);
265 l_proposal_type_desc VARCHAR2(80);
266 l_deadline_date DATE;
267 l_lead_organization_name hr_all_organization_units.NAME%TYPE;
268 l_proposal_owner_name VARCHAR2(240);
269 l_sender_name VARCHAR2(240);
270 l_user_name VARCHAR2(100);
271 l_message_name VARCHAR2(30);
272
273
274 PROCEDURE Create_Role IS
275 BEGIN
276 null;
277
278 END Create_Role;
279
280
281 PROCEDURE Populate_Attributes IS
282 BEGIN
283
284 null;
285
286 END Populate_Attributes;
287
288 BEGIN
289
290 null;
291
292 EXCEPTION
293
294 WHEN others THEN
295
296 x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
297
298 Fnd_Msg_Pub.Add_Exc_Msg
299 (
300 p_pkg_name => G_PKG_NAME,
301 p_procedure_name => l_api_name
302 );
303
304 RAISE Fnd_Api.G_Exc_Unexpected_Error;
305
306 END Send_Notification;
307
308 ---------------------------------------------------------------------------
309
310 PROCEDURE Copy_Proposal
311 (
312 p_old_proposal_id IN NUMBER,
313 p_new_proposal_number IN VARCHAR2,
314 p_budget_copy_flag IN VARCHAR2,
315 p_narrative_copy_flag IN VARCHAR2,
316 p_proposal_owner_id IN NUMBER,
317 x_new_proposal_id OUT NOCOPY NUMBER,
318 x_return_status OUT NOCOPY VARCHAR2,
319 x_msg_count OUT NOCOPY NUMBER,
320 x_msg_data OUT NOCOPY VARCHAR2
321 ) IS
322
323 l_api_name CONSTANT VARCHAR2(30) := 'Copy_Proposal';
324
325 l_old_proposal_number VARCHAR2(30);
326 l_new_proposal_number VARCHAR2(30) := p_new_proposal_number;
327 l_budget_version_id NUMBER;
328
329 l_proposal_numbering_method VARCHAR2(10);
330
331 CURSOR c1 IS
332 SELECT next_automatic_proposal_number
333 FROM igw_implementations;
334
335 l_count_proposal_number NUMBER;
336
337 BEGIN
338
339 null;
340
341 END Copy_Proposal;
342
343 ---------------------------------------------------------------------------
344
345 END Igw_Utils;