DBA Data[Home] [Help]

APPS.PA_ROLE_PROFILES_PKG dependencies on PA_ROLE_PROFILES

Line 1: PACKAGE BODY PA_ROLE_PROFILES_PKG AS

1: PACKAGE BODY PA_ROLE_PROFILES_PKG AS
2: -- $Header: PARPRPKB.pls 120.1 2005/08/19 16:59:10 mwasowic noship $
3: --
4: -- PROCEDURE
5: -- Insert_Row1

Line 7: -- This procedure inserts a row into the pa_role_profiles

3: --
4: -- PROCEDURE
5: -- Insert_Row1
6: -- PURPOSE
7: -- This procedure inserts a row into the pa_role_profiles
8: -- table.
9:
10: PROCEDURE Insert_Row1
11: ( p_profile_name IN VARCHAR,

Line 30: INSERT INTO pa_role_profiles

26:
27: BEGIN
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29:
30: INSERT INTO pa_role_profiles
31: (profile_id,
32: profile_name,
33: description,
34: effective_start_date,

Line 48: (PA_ROLE_PROFILES_S.nextval,

44: created_by,
45: last_update_date,
46: last_updated_by)
47: VALUES
48: (PA_ROLE_PROFILES_S.nextval,
49: p_profile_name,
50: p_description,
51: p_effective_start_date,
52: p_effective_end_date,

Line 70: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Insert_Row1'

66:
67: EXCEPTION
68: WHEN OTHERS THEN -- catch the exceptins here
69: -- Set the exception Message and the stack
70: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Insert_Row1'
71: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
73: RAISE;
74: END Insert_Row1;

Line 115: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Insert_Row2'

111:
112: EXCEPTION
113: WHEN OTHERS THEN -- catch the exceptins here
114: -- Set the exception Message and the stack
115: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Insert_Row2'
116: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
118: RAISE;
119: END Insert_Row2;

Line 126: -- This procedure updates a row in the pa_role_profiles

122: --
123: -- PROCEDURE
124: -- Update_Row
125: -- PURPOSE
126: -- This procedure updates a row in the pa_role_profiles
127: -- table.
128:
129: PROCEDURE Update_Row
130: ( p_profile_id IN NUMBER,

Line 149: UPDATE pa_role_profiles SET

145:
146: BEGIN
147: x_return_status := FND_API.G_RET_STS_SUCCESS;
148:
149: UPDATE pa_role_profiles SET
150: profile_name = p_profile_name,
151: description = p_description,
152: effective_start_date = p_effective_start_date,
153: effective_end_date = p_effective_end_date,

Line 167: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Update_Row'

163:
164: EXCEPTION
165: WHEN OTHERS THEN -- catch the exceptins here
166: -- Set the exception Message and the stack
167: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_ROLE_PROFILES_PKG.Update_Row'
168: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
170: RAISE;
171: END Update_Row;

Line 181: * and Role Profile Lines to PA_ROLE_PROFILES and PA_ROLE_PROFILE_LINES

177: ******************************************************************************/
178:
179: /**********************************************************************
180: * This procedure will launch workflow to add a new Resource Role Profile
181: * and Role Profile Lines to PA_ROLE_PROFILES and PA_ROLE_PROFILE_LINES
182: * after proper validation.
183: * This will be called from 'Add Resource Role Profile' page of PJR.
184: **********************************************************************/
185: /*

Line 203: FROM pa_role_profiles

199: x_msg_data OUT VARCHAR2)
200: IS
201: CURSOR is_conflict_profile_csr IS
202: SELECT 'Y'
203: FROM pa_role_profiles
204: WHERE resource_id = p_resource_id
205: AND profile_type_code = p_profile_type_code
206: AND (TRUNC(effective_start_date) BETWEEN TRUNC(p_effective_start_date)
207: AND NVL(TRUNC(p_effective_end_date), TRUNC(effective_start_date))

Line 224: PA_DEBUG.init_err_stack('PA_ROLE_PROFILES_PUB.Add_Res_Profile');

220: -------------------------------------------------------------------
221: -- Initial Setup
222: -------------------------------------------------------------------
223: IF l_enable_log = 'Y' THEN
224: PA_DEBUG.init_err_stack('PA_ROLE_PROFILES_PUB.Add_Res_Profile');
225: END IF;
226: dbms_output.put_line('started');
227:
228: -- Clear the global PL/SQL message table

Line 275: -- Insert Resource Profile to 'PA_ROLE_PROFILES'

271: -- Start Workflow : workflow api should be called instead below
272: -------------------------------------------------------------------
273:
274: -------------------------------------------------------------------
275: -- Insert Resource Profile to 'PA_ROLE_PROFILES'
276: -------------------------------------------------------------------
277: INSERT INTO pa_role_profiles
278: (profile_id,
279: profile_name,

Line 277: INSERT INTO pa_role_profiles

273:
274: -------------------------------------------------------------------
275: -- Insert Resource Profile to 'PA_ROLE_PROFILES'
276: -------------------------------------------------------------------
277: INSERT INTO pa_role_profiles
278: (profile_id,
279: profile_name,
280: profile_type_code,
281: resource_id,

Line 291: (PA_ROLE_PROFILES_S.nextval,

287: created_by,
288: last_update_date,
289: last_updated_by)
290: VALUES
291: (PA_ROLE_PROFILES_S.nextval,
292: p_profile_name,
293: p_profile_type_code,
294: p_resource_id,
295: p_description,

Line 305: dbms_output.put_line('after inserting pa_role_profiles, l_profile_id:'||l_profile_id);

301: SYSDATE,
302: FND_GLOBAL.USER_ID)
303: RETURNING
304: profile_id INTO l_profile_id;
305: dbms_output.put_line('after inserting pa_role_profiles, l_profile_id:'||l_profile_id);
306:
307: -------------------------------------------------------------------
308: -- Insert Resource Profile Lines to 'PA_ROLE_PROFILE_LINES'
309: -------------------------------------------------------------------

Line 351: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_ROLE_PROFILES_PUB.Add_Res_Profiles'

347: ROLLBACK TO ROLE_PUB_ADD_RES_PRF;
348: END IF;
349:
350: -- Set the exception Message and the stack
351: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_ROLE_PROFILES_PUB.Add_Res_Profiles'
352: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
353: RAISE; -- This is optional depending on the needs
354:
355: END Add_Res_Profiles;

Line 360: * and Role Profile Lines in PA_ROLE_PROFILES and PA_ROLE_PROFILE_LINES

356: */
357:
358: /**********************************************************************
359: * This procedure will launch workflow to update the Resource Role Profile
360: * and Role Profile Lines in PA_ROLE_PROFILES and PA_ROLE_PROFILE_LINES
361: * after proper validation.
362: * This will be called from 'Update Resource Role Profile' page of PJR.
363: **********************************************************************/
364: /*

Line 381: FROM pa_role_profiles pf1,

377: x_msg_data OUT VARCHAR2)
378: IS
379: CURSOR is_conflict_profile_csr IS
380: SELECT 'Y'
381: FROM pa_role_profiles pf1,
382: pa_role_profiles pf2
383: WHERE pf2.profile_id = p_profile_id
384: AND pf1.resource_id = pf2.resource_id
385: AND pf1.profile_type_code = pf2.profile_type_code

Line 382: pa_role_profiles pf2

378: IS
379: CURSOR is_conflict_profile_csr IS
380: SELECT 'Y'
381: FROM pa_role_profiles pf1,
382: pa_role_profiles pf2
383: WHERE pf2.profile_id = p_profile_id
384: AND pf1.resource_id = pf2.resource_id
385: AND pf1.profile_type_code = pf2.profile_type_code
386: AND pf1.profile_id <> p_profile_id

Line 404: PA_DEBUG.init_err_stack('PA_ROLE_PROFILES_PUB.Update_Res_Profile');

400: -------------------------------------------------------------------
401: -- Initial Setup
402: -------------------------------------------------------------------
403: IF l_enable_log = 'Y' THEN
404: PA_DEBUG.init_err_stack('PA_ROLE_PROFILES_PUB.Update_Res_Profile');
405: END IF;
406:
407: -- Clear the global PL/SQL message table
408: FND_MSG_PUB.initialize;

Line 450: -- Update Resource Profile to 'PA_ROLE_PROFILES'

446: -- Start Workflow
447: -------------------------------------------------------------------
448:
449: -------------------------------------------------------------------
450: -- Update Resource Profile to 'PA_ROLE_PROFILES'
451: -------------------------------------------------------------------
452: UPDATE pa_role_profiles
453: SET profile_name = p_profile_name,
454: description = p_description,

Line 452: UPDATE pa_role_profiles

448:
449: -------------------------------------------------------------------
450: -- Update Resource Profile to 'PA_ROLE_PROFILES'
451: -------------------------------------------------------------------
452: UPDATE pa_role_profiles
453: SET profile_name = p_profile_name,
454: description = p_description,
455: effective_start_date = p_effective_start_date,
456: effective_end_date = p_effective_end_date,

Line 509: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_ROLE_PROFILES_PUB.Update_Res_Profiles'

505: ROLLBACK TO ROLE_PUB_UPD_RES_PRF;
506: END IF;
507:
508: -- Set the exception Message and the stack
509: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_ROLE_PROFILES_PUB.Update_Res_Profiles'
510: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
511: RAISE; -- This is optional depending on the needs
512:
513: END Update_Res_Profiles;

Line 517: END PA_ROLE_PROFILES_PKG;

513: END Update_Res_Profiles;
514:
515: ***************** end of Angie's temporary saving code, need to change later*****/
516:
517: END PA_ROLE_PROFILES_PKG;