19: IS
20:
21: BEGIN
22:
23: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24: fnd_log.string
25: (
26: FND_LOG.LEVEL_PROCEDURE,
27: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
20:
21: BEGIN
22:
23: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24: fnd_log.string
25: (
26: FND_LOG.LEVEL_PROCEDURE,
27: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
28: 'Entering fpa_resourcetype_pvt.create_resourcetype'
22:
23: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24: fnd_log.string
25: (
26: FND_LOG.LEVEL_PROCEDURE,
27: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
28: 'Entering fpa_resourcetype_pvt.create_resourcetype'
29: );
30: END IF;
121: WHERE installed_flag IN ('I','B');
122:
123: BEGIN
124:
125: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
126: fnd_log.string
127: (
128: FND_LOG.LEVEL_PROCEDURE,
129: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw.begin',
122:
123: BEGIN
124:
125: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
126: fnd_log.string
127: (
128: FND_LOG.LEVEL_PROCEDURE,
129: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw.begin',
130: 'Entering fpa_investment_criteria_pvt.create_strategicobj_aw'
124:
125: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
126: fnd_log.string
127: (
128: FND_LOG.LEVEL_PROCEDURE,
129: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw.begin',
130: 'Entering fpa_investment_criteria_pvt.create_strategicobj_aw'
131: );
132: END IF;
131: );
132: END IF;
133:
134:
135: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
136: fnd_log.string
137: (FND_LOG.LEVEL_PROCEDURE,
138: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
139: 'Evaluating p_seeding parameter'
132: END IF;
133:
134:
135: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
136: fnd_log.string
137: (FND_LOG.LEVEL_PROCEDURE,
138: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
139: 'Evaluating p_seeding parameter'
140: );
133:
134:
135: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
136: fnd_log.string
137: (FND_LOG.LEVEL_PROCEDURE,
138: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
139: 'Evaluating p_seeding parameter'
140: );
141: END IF;
151: -- We return the id of the new Strategic Objective to the caller
152: x_strategic_obj_id := l_strobj_s_r.l_strobj_id;
153: end if;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
156: fnd_log.string
157: (FND_LOG.LEVEL_PROCEDURE,
158: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
159: 'Inserting into FPA_OBJECTS_TL'
152: x_strategic_obj_id := l_strobj_s_r.l_strobj_id;
153: end if;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
156: fnd_log.string
157: (FND_LOG.LEVEL_PROCEDURE,
158: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
159: 'Inserting into FPA_OBJECTS_TL'
160: );
153: end if;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
156: fnd_log.string
157: (FND_LOG.LEVEL_PROCEDURE,
158: 'fpa.sql.fpa_investment_criteria_pvt.create_strategicobj_aw',
159: 'Inserting into FPA_OBJECTS_TL'
160: );
161: END IF;
238: l_api_version CONSTANT NUMBER := 1.0;
239:
240: BEGIN
241:
242: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
243: fnd_log.string
244: (
245: FND_LOG.LEVEL_PROCEDURE,
246: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
239:
240: BEGIN
241:
242: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
243: fnd_log.string
244: (
245: FND_LOG.LEVEL_PROCEDURE,
246: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
247: 'Entering fpa_resourcetype_pvt.create_resourcetype'
241:
242: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
243: fnd_log.string
244: (
245: FND_LOG.LEVEL_PROCEDURE,
246: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
247: 'Entering fpa_resourcetype_pvt.create_resourcetype'
248: );
249: END IF;
287: IS
288:
289: BEGIN
290:
291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
292: fnd_log.string
293: ( FND_LOG.LEVEL_PROCEDURE,
294: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
295: 'Entering fpa_investment_criteria_pvt.update_strategicobj');
288:
289: BEGIN
290:
291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
292: fnd_log.string
293: ( FND_LOG.LEVEL_PROCEDURE,
294: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
295: 'Entering fpa_investment_criteria_pvt.update_strategicobj');
296: END IF;
289: BEGIN
290:
291: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
292: fnd_log.string
293: ( FND_LOG.LEVEL_PROCEDURE,
294: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
295: 'Entering fpa_investment_criteria_pvt.update_strategicobj');
296: END IF;
297:
294: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
295: 'Entering fpa_investment_criteria_pvt.update_strategicobj');
296: END IF;
297:
298: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (FND_LOG.LEVEL_PROCEDURE,
301: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
302: 'Updating FPA_OBJECTS_TL for the investment criteria');
295: 'Entering fpa_investment_criteria_pvt.update_strategicobj');
296: END IF;
297:
298: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (FND_LOG.LEVEL_PROCEDURE,
301: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
302: 'Updating FPA_OBJECTS_TL for the investment criteria');
303: END IF;
296: END IF;
297:
298: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
299: fnd_log.string
300: (FND_LOG.LEVEL_PROCEDURE,
301: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
302: 'Updating FPA_OBJECTS_TL for the investment criteria');
303: END IF;
304:
310: where id = p_investment_rec_type.strategic_obj_shortname
311: and object = 'INVESTMENT_CRITERIA'
312: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
313:
314: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
315: fnd_log.string
316: ( FND_LOG.LEVEL_PROCEDURE,
317: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.end',
318: 'Exiting fpa_investment_criteria_pvt.update_strategicobj');
311: and object = 'INVESTMENT_CRITERIA'
312: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
313:
314: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
315: fnd_log.string
316: ( FND_LOG.LEVEL_PROCEDURE,
317: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.end',
318: 'Exiting fpa_investment_criteria_pvt.update_strategicobj');
319: END IF;
312: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
313:
314: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
315: fnd_log.string
316: ( FND_LOG.LEVEL_PROCEDURE,
317: 'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.end',
318: 'Exiting fpa_investment_criteria_pvt.update_strategicobj');
319: END IF;
320:
351: IS
352:
353: BEGIN
354:
355: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
356: fnd_log.string
357: (
358: FND_LOG.LEVEL_PROCEDURE,
359: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
352:
353: BEGIN
354:
355: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
356: fnd_log.string
357: (
358: FND_LOG.LEVEL_PROCEDURE,
359: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
360: 'Entering fpa_resourcetype_pvt.create_resourcetype'
354:
355: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
356: fnd_log.string
357: (
358: FND_LOG.LEVEL_PROCEDURE,
359: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
360: 'Entering fpa_resourcetype_pvt.create_resourcetype'
361: );
362: END IF;
393: ) is
394:
395: begin
396:
397: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
398: fnd_log.string
399: (
400: FND_LOG.LEVEL_PROCEDURE,
401: 'fpa.sql.FPA_Investment_Criteria_PVT.update_strategicobj_level_aw.begin',
394:
395: begin
396:
397: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
398: fnd_log.string
399: (
400: FND_LOG.LEVEL_PROCEDURE,
401: 'fpa.sql.FPA_Investment_Criteria_PVT.update_strategicobj_level_aw.begin',
402: 'Entering FPA_Investment_Criteria_PVT.update_strategicobj_level_aw'
396:
397: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
398: fnd_log.string
399: (
400: FND_LOG.LEVEL_PROCEDURE,
401: 'fpa.sql.FPA_Investment_Criteria_PVT.update_strategicobj_level_aw.begin',
402: 'Entering FPA_Investment_Criteria_PVT.update_strategicobj_level_aw'
403: );
404: END IF;
449:
450: -- copy passed record into local record.
451: l_Investment_rec_type := p_Investment_rec_type;
452:
453: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
454: fnd_log.string
455: (
456: FND_LOG.LEVEL_PROCEDURE,
457: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
450: -- copy passed record into local record.
451: l_Investment_rec_type := p_Investment_rec_type;
452:
453: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
454: fnd_log.string
455: (
456: FND_LOG.LEVEL_PROCEDURE,
457: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
458: 'Entering fpa_resourcetype_pvt.create_resourcetype'
452:
453: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
454: fnd_log.string
455: (
456: FND_LOG.LEVEL_PROCEDURE,
457: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
458: 'Entering fpa_resourcetype_pvt.create_resourcetype'
459: );
460: END IF;
459: );
460: END IF;
461:
462: -- Attach the AW space read write.
463: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
464: fnd_log.string
465: (
466: FND_LOG.LEVEL_STATEMENT,
467: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
460: END IF;
461:
462: -- Attach the AW space read write.
463: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
464: fnd_log.string
465: (
466: FND_LOG.LEVEL_STATEMENT,
467: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
468: 'Attaching OLAP workspace: '
462: -- Attach the AW space read write.
463: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
464: fnd_log.string
465: (
466: FND_LOG.LEVEL_STATEMENT,
467: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
468: 'Attaching OLAP workspace: '
469: );
470: END IF;