71: PROCEDURE Get_Inv_Crit_Setup_Defaults
72: IS
73: l_cntr NUMBER := 0;
74: BEGIN
75: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
76: FND_LOG.String
77: ( FND_LOG.LEVEL_PROCEDURE,
78: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
79: 'Inside Get_Inv_Criteria_Setup_Defaults Sub Procedure'
72: IS
73: l_cntr NUMBER := 0;
74: BEGIN
75: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
76: FND_LOG.String
77: ( FND_LOG.LEVEL_PROCEDURE,
78: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
79: 'Inside Get_Inv_Criteria_Setup_Defaults Sub Procedure'
80: );
73: l_cntr NUMBER := 0;
74: BEGIN
75: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
76: FND_LOG.String
77: ( FND_LOG.LEVEL_PROCEDURE,
78: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
79: 'Inside Get_Inv_Criteria_Setup_Defaults Sub Procedure'
80: );
81: END IF;
102: l_cntr := l_cntr + 1;
103: END LOOP;
104: CLOSE c_inv_criteria_setup;
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: FND_LOG.String
108: ( FND_LOG.LEVEL_PROCEDURE,
109: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
110: 'Leaving Get_Inv_Criteria_Setup_Defaults Sub Procedure'
103: END LOOP;
104: CLOSE c_inv_criteria_setup;
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: FND_LOG.String
108: ( FND_LOG.LEVEL_PROCEDURE,
109: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
110: 'Leaving Get_Inv_Criteria_Setup_Defaults Sub Procedure'
111: );
104: CLOSE c_inv_criteria_setup;
105:
106: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
107: FND_LOG.String
108: ( FND_LOG.LEVEL_PROCEDURE,
109: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
110: 'Leaving Get_Inv_Criteria_Setup_Defaults Sub Procedure'
111: );
112: END IF;
112: END IF;
113:
114: EXCEPTION
115: WHEN OTHERS THEN
116: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117: FND_LOG.String
118: ( FND_LOG.LEVEL_PROCEDURE,
119: 'fpa.sql.FPA_Process_Pvt.Create_Pc.Get_Inv_Criteria_Setup_Defaults',
120: 'Error occurred.'
113:
114: EXCEPTION
115: WHEN OTHERS THEN
116: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117: FND_LOG.String
118: ( FND_LOG.LEVEL_PROCEDURE,
119: 'fpa.sql.FPA_Process_Pvt.Create_Pc.Get_Inv_Criteria_Setup_Defaults',
120: 'Error occurred.'
121: );
114: EXCEPTION
115: WHEN OTHERS THEN
116: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117: FND_LOG.String
118: ( FND_LOG.LEVEL_PROCEDURE,
119: 'fpa.sql.FPA_Process_Pvt.Create_Pc.Get_Inv_Criteria_Setup_Defaults',
120: 'Error occurred.'
121: );
122: END IF;
127: BEGIN
128: -- clear all previous messages.
129: FND_MSG_PUB.Initialize;
130:
131: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
132: FND_LOG.String
133: (
134: FND_LOG.LEVEL_PROCEDURE,
135: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
128: -- clear all previous messages.
129: FND_MSG_PUB.Initialize;
130:
131: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
132: FND_LOG.String
133: (
134: FND_LOG.LEVEL_PROCEDURE,
135: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
136: 'Entering FPA_Process_Pvt.Create_Pc'
130:
131: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
132: FND_LOG.String
133: (
134: FND_LOG.LEVEL_PROCEDURE,
135: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
136: 'Entering FPA_Process_Pvt.Create_Pc'
137: );
138: END IF;
136: 'Entering FPA_Process_Pvt.Create_Pc'
137: );
138: END IF;
139:
140: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
141: FND_LOG.String
142: (
143: FND_LOG.LEVEL_PROCEDURE,
144: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
137: );
138: END IF;
139:
140: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
141: FND_LOG.String
142: (
143: FND_LOG.LEVEL_PROCEDURE,
144: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
145: 'Calling FPA_PlanningCycle_Pvt.Check_Pc_Name'
139:
140: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
141: FND_LOG.String
142: (
143: FND_LOG.LEVEL_PROCEDURE,
144: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
145: 'Calling FPA_PlanningCycle_Pvt.Check_Pc_Name'
146: );
147: END IF;
174:
175: END IF;
176:
177: -- Initialize local pcInfo and other objects from the input pc_all object
178: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
179: FND_LOG.String
180: ( FND_LOG.LEVEL_PROCEDURE,
181: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
182: 'Initializing p_pc_all_obj members.'
175: END IF;
176:
177: -- Initialize local pcInfo and other objects from the input pc_all object
178: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
179: FND_LOG.String
180: ( FND_LOG.LEVEL_PROCEDURE,
181: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
182: 'Initializing p_pc_all_obj members.'
183: );
176:
177: -- Initialize local pcInfo and other objects from the input pc_all object
178: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
179: FND_LOG.String
180: ( FND_LOG.LEVEL_PROCEDURE,
181: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
182: 'Initializing p_pc_all_obj members.'
183: );
184: END IF;
205: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
206: l_distr_list_items_tbl := p_pc_all_obj.distr_list_items;
207: END IF;
208:
209: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.String
211: ( FND_LOG.LEVEL_PROCEDURE,
212: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
213: 'Calling Fpa_Utilities_Pvt.attach_AW.'
206: l_distr_list_items_tbl := p_pc_all_obj.distr_list_items;
207: END IF;
208:
209: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.String
211: ( FND_LOG.LEVEL_PROCEDURE,
212: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
213: 'Calling Fpa_Utilities_Pvt.attach_AW.'
214: );
207: END IF;
208:
209: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.String
211: ( FND_LOG.LEVEL_PROCEDURE,
212: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
213: 'Calling Fpa_Utilities_Pvt.attach_AW.'
214: );
215: END IF;
223: x_msg_count => x_msg_count,
224: x_msg_data => x_msg_data
225: );
226:
227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
228: FND_LOG.String
229: ( FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
231: 'Calling FPA_PlanningCycle_Pvt.Create_Pc.'
224: x_msg_data => x_msg_data
225: );
226:
227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
228: FND_LOG.String
229: ( FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
231: 'Calling FPA_PlanningCycle_Pvt.Create_Pc.'
232: );
225: );
226:
227: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
228: FND_LOG.String
229: ( FND_LOG.LEVEL_PROCEDURE,
230: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
231: 'Calling FPA_PlanningCycle_Pvt.Create_Pc.'
232: );
233: END IF;
242: x_msg_data => x_msg_data,
243: x_msg_count => x_msg_count
244: );
245:
246: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
247: FND_LOG.String
248: ( FND_LOG.LEVEL_PROCEDURE,
249: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
250: 'Setting obtained pc Id to all necessary object members.'
243: x_msg_count => x_msg_count
244: );
245:
246: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
247: FND_LOG.String
248: ( FND_LOG.LEVEL_PROCEDURE,
249: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
250: 'Setting obtained pc Id to all necessary object members.'
251: );
244: );
245:
246: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
247: FND_LOG.String
248: ( FND_LOG.LEVEL_PROCEDURE,
249: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
250: 'Setting obtained pc Id to all necessary object members.'
251: );
252: END IF;
252: END IF;
253:
254: -- set the new PC ID in local pc_info and other objects
255: IF l_pc_info IS NOT NULL THEN
256: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
257: FND_LOG.String
258: ( FND_LOG.LEVEL_PROCEDURE,
259: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
260: 'Setting l_pc_info.planning_cycle with value ' || l_new_pc_id
253:
254: -- set the new PC ID in local pc_info and other objects
255: IF l_pc_info IS NOT NULL THEN
256: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
257: FND_LOG.String
258: ( FND_LOG.LEVEL_PROCEDURE,
259: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
260: 'Setting l_pc_info.planning_cycle with value ' || l_new_pc_id
261: );
254: -- set the new PC ID in local pc_info and other objects
255: IF l_pc_info IS NOT NULL THEN
256: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
257: FND_LOG.String
258: ( FND_LOG.LEVEL_PROCEDURE,
259: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
260: 'Setting l_pc_info.planning_cycle with value ' || l_new_pc_id
261: );
262: END IF;
262: END IF;
263: l_pc_info.planning_cycle := l_new_pc_id;
264: END IF;
265: IF l_inv_matrix_tbl IS NOT NULL THEN
266: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
267: FND_LOG.String
268: ( FND_LOG.LEVEL_PROCEDURE,
269: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
270: 'Setting l_inv_matrix_tbl(1).planning_cycle with value ' || l_new_pc_id
263: l_pc_info.planning_cycle := l_new_pc_id;
264: END IF;
265: IF l_inv_matrix_tbl IS NOT NULL THEN
266: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
267: FND_LOG.String
268: ( FND_LOG.LEVEL_PROCEDURE,
269: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
270: 'Setting l_inv_matrix_tbl(1).planning_cycle with value ' || l_new_pc_id
271: );
264: END IF;
265: IF l_inv_matrix_tbl IS NOT NULL THEN
266: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
267: FND_LOG.String
268: ( FND_LOG.LEVEL_PROCEDURE,
269: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
270: 'Setting l_inv_matrix_tbl(1).planning_cycle with value ' || l_new_pc_id
271: );
272: END IF;
272: END IF;
273: l_inv_matrix_tbl(1).planning_cycle := l_new_pc_id;
274: END IF;
275: IF l_fin_targets_tbl IS NOT NULL THEN
276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
277: FND_LOG.String
278: ( FND_LOG.LEVEL_PROCEDURE,
279: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
280: 'Setting l_fin_targets_tbl(1).planning_cycle with value ' || l_new_pc_id
273: l_inv_matrix_tbl(1).planning_cycle := l_new_pc_id;
274: END IF;
275: IF l_fin_targets_tbl IS NOT NULL THEN
276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
277: FND_LOG.String
278: ( FND_LOG.LEVEL_PROCEDURE,
279: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
280: 'Setting l_fin_targets_tbl(1).planning_cycle with value ' || l_new_pc_id
281: );
274: END IF;
275: IF l_fin_targets_tbl IS NOT NULL THEN
276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
277: FND_LOG.String
278: ( FND_LOG.LEVEL_PROCEDURE,
279: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
280: 'Setting l_fin_targets_tbl(1).planning_cycle with value ' || l_new_pc_id
281: );
282: END IF;
282: END IF;
283: l_fin_targets_tbl(1).planning_cycle := l_new_pc_id;
284: END IF;
285: IF l_discount_obj IS NOT NULL THEN
286: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
287: FND_LOG.String
288: ( FND_LOG.LEVEL_PROCEDURE,
289: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
290: 'Setting l_discount_obj.planning_cycle with value ' || l_new_pc_id
283: l_fin_targets_tbl(1).planning_cycle := l_new_pc_id;
284: END IF;
285: IF l_discount_obj IS NOT NULL THEN
286: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
287: FND_LOG.String
288: ( FND_LOG.LEVEL_PROCEDURE,
289: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
290: 'Setting l_discount_obj.planning_cycle with value ' || l_new_pc_id
291: );
284: END IF;
285: IF l_discount_obj IS NOT NULL THEN
286: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
287: FND_LOG.String
288: ( FND_LOG.LEVEL_PROCEDURE,
289: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
290: 'Setting l_discount_obj.planning_cycle with value ' || l_new_pc_id
291: );
292: END IF;
293: l_discount_obj.planning_cycle := l_new_pc_id;
294: END IF;
295:
296: IF l_distr_list IS NOT NULL THEN
297: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
298: FND_LOG.String
299: ( FND_LOG.LEVEL_PROCEDURE,
300: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
301: 'Setting l_distr_list.object_id with value ' || l_new_pc_id
294: END IF;
295:
296: IF l_distr_list IS NOT NULL THEN
297: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
298: FND_LOG.String
299: ( FND_LOG.LEVEL_PROCEDURE,
300: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
301: 'Setting l_distr_list.object_id with value ' || l_new_pc_id
302: );
295:
296: IF l_distr_list IS NOT NULL THEN
297: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
298: FND_LOG.String
299: ( FND_LOG.LEVEL_PROCEDURE,
300: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
301: 'Setting l_distr_list.object_id with value ' || l_new_pc_id
302: );
303: END IF;
304: l_distr_list.object_id := l_new_pc_id;
305: END IF;
306:
307: IF l_inv_criteria_tbl IS NOT NULL THEN
308: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
309: FND_LOG.String
310: ( FND_LOG.LEVEL_PROCEDURE,
311: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
312: 'Setting l_inv_criteria_tbl(1).planning_cycle with value ' || l_new_pc_id
305: END IF;
306:
307: IF l_inv_criteria_tbl IS NOT NULL THEN
308: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
309: FND_LOG.String
310: ( FND_LOG.LEVEL_PROCEDURE,
311: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
312: 'Setting l_inv_criteria_tbl(1).planning_cycle with value ' || l_new_pc_id
313: );
306:
307: IF l_inv_criteria_tbl IS NOT NULL THEN
308: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
309: FND_LOG.String
310: ( FND_LOG.LEVEL_PROCEDURE,
311: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
312: 'Setting l_inv_criteria_tbl(1).planning_cycle with value ' || l_new_pc_id
313: );
314: END IF;
320: /*
321: * Check if the current portfolio has last approved planning cycle.
322: *
323: */
324: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
325: FND_LOG.String
326: ( FND_LOG.LEVEL_PROCEDURE,
327: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
328: 'Checking if portfolio has an approved PC.'
321: * Check if the current portfolio has last approved planning cycle.
322: *
323: */
324: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
325: FND_LOG.String
326: ( FND_LOG.LEVEL_PROCEDURE,
327: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
328: 'Checking if portfolio has an approved PC.'
329: );
322: *
323: */
324: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
325: FND_LOG.String
326: ( FND_LOG.LEVEL_PROCEDURE,
327: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
328: 'Checking if portfolio has an approved PC.'
329: );
330: END IF;
340: * These are the Default values for the Current Planning Cycle
341: */
342:
343: IF p_pc_all_obj.pc_invest_criteria IS NULL THEN
344: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345: FND_LOG.String
346: ( FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
348: 'p_pc_all_obj.pc_invest_criteria is null and about to call Get_Inv_Crit_Setup_Defaults.'
341: */
342:
343: IF p_pc_all_obj.pc_invest_criteria IS NULL THEN
344: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345: FND_LOG.String
346: ( FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
348: 'p_pc_all_obj.pc_invest_criteria is null and about to call Get_Inv_Crit_Setup_Defaults.'
349: );
342:
343: IF p_pc_all_obj.pc_invest_criteria IS NULL THEN
344: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345: FND_LOG.String
346: ( FND_LOG.LEVEL_PROCEDURE,
347: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
348: 'p_pc_all_obj.pc_invest_criteria is null and about to call Get_Inv_Crit_Setup_Defaults.'
349: );
350: END IF;
350: END IF;
351: -- There is nothing received from java, get the setup defaults and populate
352: -- l_inv_criteria_tbl
353: Get_Inv_Crit_Setup_Defaults;
354: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
355: FND_LOG.String
356: ( FND_LOG.LEVEL_PROCEDURE,
357: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
358: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for Setup values, when UI did not have any values.'
351: -- There is nothing received from java, get the setup defaults and populate
352: -- l_inv_criteria_tbl
353: Get_Inv_Crit_Setup_Defaults;
354: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
355: FND_LOG.String
356: ( FND_LOG.LEVEL_PROCEDURE,
357: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
358: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for Setup values, when UI did not have any values.'
359: );
352: -- l_inv_criteria_tbl
353: Get_Inv_Crit_Setup_Defaults;
354: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
355: FND_LOG.String
356: ( FND_LOG.LEVEL_PROCEDURE,
357: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
358: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for Setup values, when UI did not have any values.'
359: );
360: END IF;
366: x_msg_data => x_msg_data,
367: x_msg_count => x_msg_count
368: );
369: ELSE
370: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
371: FND_LOG.String
372: ( FND_LOG.LEVEL_PROCEDURE,
373: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
374: 'p_pc_all_obj.pc_invest_criteria is not null'
367: x_msg_count => x_msg_count
368: );
369: ELSE
370: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
371: FND_LOG.String
372: ( FND_LOG.LEVEL_PROCEDURE,
373: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
374: 'p_pc_all_obj.pc_invest_criteria is not null'
375: );
368: );
369: ELSE
370: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
371: FND_LOG.String
372: ( FND_LOG.LEVEL_PROCEDURE,
373: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
374: 'p_pc_all_obj.pc_invest_criteria is not null'
375: );
376: END IF;
376: END IF;
377:
378: IF l_inv_crit_count <> p_pc_all_obj.pc_invest_criteria.COUNT THEN
379:
380: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FND_LOG.String
382: ( FND_LOG.LEVEL_PROCEDURE,
383: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
384: 'UI criteria count and setup criteria count are not the same.'
377:
378: IF l_inv_crit_count <> p_pc_all_obj.pc_invest_criteria.COUNT THEN
379:
380: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FND_LOG.String
382: ( FND_LOG.LEVEL_PROCEDURE,
383: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
384: 'UI criteria count and setup criteria count are not the same.'
385: );
378: IF l_inv_crit_count <> p_pc_all_obj.pc_invest_criteria.COUNT THEN
379:
380: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FND_LOG.String
382: ( FND_LOG.LEVEL_PROCEDURE,
383: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
384: 'UI criteria count and setup criteria count are not the same.'
385: );
386: END IF;
385: );
386: END IF;
387: -- Call Get_Inv_Crit_Setup_Defaults, where we reinitialize l_inv_criteria_tbl
388: -- and get the invest criterias from setup.
389: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
390: FND_LOG.String
391: ( FND_LOG.LEVEL_PROCEDURE,
392: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
393: 'Calling Get_Inv_Crit_Setup_Defaults.'
386: END IF;
387: -- Call Get_Inv_Crit_Setup_Defaults, where we reinitialize l_inv_criteria_tbl
388: -- and get the invest criterias from setup.
389: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
390: FND_LOG.String
391: ( FND_LOG.LEVEL_PROCEDURE,
392: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
393: 'Calling Get_Inv_Crit_Setup_Defaults.'
394: );
387: -- Call Get_Inv_Crit_Setup_Defaults, where we reinitialize l_inv_criteria_tbl
388: -- and get the invest criterias from setup.
389: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
390: FND_LOG.String
391: ( FND_LOG.LEVEL_PROCEDURE,
392: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
393: 'Calling Get_Inv_Crit_Setup_Defaults.'
394: );
395: END IF;
395: END IF;
396: Get_Inv_Crit_Setup_Defaults;
397:
398: -- Call update for setup data.
399: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
400: FND_LOG.String
401: ( FND_LOG.LEVEL_PROCEDURE,
402: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
403: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for setting up default values.'
396: Get_Inv_Crit_Setup_Defaults;
397:
398: -- Call update for setup data.
399: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
400: FND_LOG.String
401: ( FND_LOG.LEVEL_PROCEDURE,
402: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
403: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for setting up default values.'
404: );
397:
398: -- Call update for setup data.
399: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
400: FND_LOG.String
401: ( FND_LOG.LEVEL_PROCEDURE,
402: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
403: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for setting up default values.'
404: );
405: END IF;
411: x_msg_data => x_msg_data,
412: x_msg_count => x_msg_count
413: );
414: -- Reassign java values to l_inv_criteria_tbl from java for next update
415: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
416: FND_LOG.String
417: ( FND_LOG.LEVEL_PROCEDURE,
418: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
419: 'Reassigning UI values to l_inv_criteria_tbl.'
412: x_msg_count => x_msg_count
413: );
414: -- Reassign java values to l_inv_criteria_tbl from java for next update
415: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
416: FND_LOG.String
417: ( FND_LOG.LEVEL_PROCEDURE,
418: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
419: 'Reassigning UI values to l_inv_criteria_tbl.'
420: );
413: );
414: -- Reassign java values to l_inv_criteria_tbl from java for next update
415: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
416: FND_LOG.String
417: ( FND_LOG.LEVEL_PROCEDURE,
418: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
419: 'Reassigning UI values to l_inv_criteria_tbl.'
420: );
421: END IF;
423: l_inv_criteria_tbl(1).planning_cycle := l_new_pc_id;
424: --l_inv_crit_partial_count := l_inv_crit_count_java;
425:
426: END IF;
427: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
428: FND_LOG.String
429: ( FND_LOG.LEVEL_PROCEDURE,
430: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
431: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for UI values.'
424: --l_inv_crit_partial_count := l_inv_crit_count_java;
425:
426: END IF;
427: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
428: FND_LOG.String
429: ( FND_LOG.LEVEL_PROCEDURE,
430: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
431: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for UI values.'
432: );
425:
426: END IF;
427: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
428: FND_LOG.String
429: ( FND_LOG.LEVEL_PROCEDURE,
430: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
431: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for UI values.'
432: );
433: END IF;
443:
444:
445: IF p_pc_all_obj.pc_investmix IS NOT NULL THEN
446:
447: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
448: FND_LOG.String
449: ( FND_LOG.LEVEL_PROCEDURE,
450: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
451: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.'
444:
445: IF p_pc_all_obj.pc_investmix IS NOT NULL THEN
446:
447: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
448: FND_LOG.String
449: ( FND_LOG.LEVEL_PROCEDURE,
450: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
451: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.'
452: );
445: IF p_pc_all_obj.pc_investmix IS NOT NULL THEN
446:
447: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
448: FND_LOG.String
449: ( FND_LOG.LEVEL_PROCEDURE,
450: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
451: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.'
452: );
453: END IF;
463: END IF;
464:
465:
466:
467: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
468: FND_LOG.String
469: ( FND_LOG.LEVEL_PROCEDURE,
470: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
471: 'Calling FPA_PlanningCycle_Pvt.Set_Pc_Status'
464:
465:
466:
467: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
468: FND_LOG.String
469: ( FND_LOG.LEVEL_PROCEDURE,
470: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
471: 'Calling FPA_PlanningCycle_Pvt.Set_Pc_Status'
472: );
465:
466:
467: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
468: FND_LOG.String
469: ( FND_LOG.LEVEL_PROCEDURE,
470: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
471: 'Calling FPA_PlanningCycle_Pvt.Set_Pc_Status'
472: );
473: END IF;
483: );
484:
485: IF p_pc_all_obj.pc_info IS NOT NULL THEN
486: IF p_pc_all_obj.pc_info.pc_category IS NOT NULL THEN
487: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
488: FND_LOG.String
489: ( FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
491: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.'
484:
485: IF p_pc_all_obj.pc_info IS NOT NULL THEN
486: IF p_pc_all_obj.pc_info.pc_category IS NOT NULL THEN
487: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
488: FND_LOG.String
489: ( FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
491: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.'
492: );
485: IF p_pc_all_obj.pc_info IS NOT NULL THEN
486: IF p_pc_all_obj.pc_info.pc_category IS NOT NULL THEN
487: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
488: FND_LOG.String
489: ( FND_LOG.LEVEL_PROCEDURE,
490: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
491: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.'
492: );
493: END IF;
503: );
504: END IF;
505:
506: IF p_pc_all_obj.pc_info.calendar_name IS NOT NULL THEN
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: ( FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
511: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
504: END IF;
505:
506: IF p_pc_all_obj.pc_info.calendar_name IS NOT NULL THEN
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: ( FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
511: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
512: );
505:
506: IF p_pc_all_obj.pc_info.calendar_name IS NOT NULL THEN
507: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
508: FND_LOG.String
509: ( FND_LOG.LEVEL_PROCEDURE,
510: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
511: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
512: );
513: END IF;
522: );
523: END IF;
524:
525: IF p_pc_all_obj.pc_info.currency_code IS NOT NULL THEN
526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
527: FND_LOG.String
528: ( FND_LOG.LEVEL_PROCEDURE,
529: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
530: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
523: END IF;
524:
525: IF p_pc_all_obj.pc_info.currency_code IS NOT NULL THEN
526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
527: FND_LOG.String
528: ( FND_LOG.LEVEL_PROCEDURE,
529: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
530: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
531: );
524:
525: IF p_pc_all_obj.pc_info.currency_code IS NOT NULL THEN
526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
527: FND_LOG.String
528: ( FND_LOG.LEVEL_PROCEDURE,
529: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
530: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
531: );
532: END IF;
540: );
541: END IF;
542:
543: IF l_pc_info.submission_due_date IS NOT NULL THEN
544: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
545: FND_LOG.String
546: ( FND_LOG.LEVEL_PROCEDURE,
547: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
548: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
541: END IF;
542:
543: IF l_pc_info.submission_due_date IS NOT NULL THEN
544: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
545: FND_LOG.String
546: ( FND_LOG.LEVEL_PROCEDURE,
547: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
548: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
549: );
542:
543: IF l_pc_info.submission_due_date IS NOT NULL THEN
544: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
545: FND_LOG.String
546: ( FND_LOG.LEVEL_PROCEDURE,
547: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
548: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
549: );
550: END IF;
562:
563: END IF;
564:
565: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
567: FND_LOG.String
568: ( FND_LOG.LEVEL_PROCEDURE,
569: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
570: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.'
563: END IF;
564:
565: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
567: FND_LOG.String
568: ( FND_LOG.LEVEL_PROCEDURE,
569: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
570: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.'
571: );
564:
565: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
566: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
567: FND_LOG.String
568: ( FND_LOG.LEVEL_PROCEDURE,
569: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
570: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.'
571: );
572: END IF;
582: );
583: END IF;
584:
585: IF p_pc_all_obj.pc_targets IS NOT NULL THEN
586: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
587: FND_LOG.String
588: ( FND_LOG.LEVEL_PROCEDURE,
589: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
590: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.'
583: END IF;
584:
585: IF p_pc_all_obj.pc_targets IS NOT NULL THEN
586: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
587: FND_LOG.String
588: ( FND_LOG.LEVEL_PROCEDURE,
589: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
590: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.'
591: );
584:
585: IF p_pc_all_obj.pc_targets IS NOT NULL THEN
586: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
587: FND_LOG.String
588: ( FND_LOG.LEVEL_PROCEDURE,
589: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
590: 'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.'
591: );
592: END IF;
602: END IF;
603:
604:
605: IF p_pc_all_obj.pc_distr_list IS NOT NULL THEN
606: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
607: FND_LOG.String
608: ( FND_LOG.LEVEL_PROCEDURE,
609: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
610: 'CAlling FPA_PlanningCycle_Pvt.Pa_Distrb_Lists_Insert_Row.'
603:
604:
605: IF p_pc_all_obj.pc_distr_list IS NOT NULL THEN
606: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
607: FND_LOG.String
608: ( FND_LOG.LEVEL_PROCEDURE,
609: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
610: 'CAlling FPA_PlanningCycle_Pvt.Pa_Distrb_Lists_Insert_Row.'
611: );
604:
605: IF p_pc_all_obj.pc_distr_list IS NOT NULL THEN
606: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
607: FND_LOG.String
608: ( FND_LOG.LEVEL_PROCEDURE,
609: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
610: 'CAlling FPA_PlanningCycle_Pvt.Pa_Distrb_Lists_Insert_Row.'
611: );
612: END IF;
627: l_distr_list_items_tbl(1).list_id := l_distr_list_id;
628: END IF;
629:
630: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
631: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
632: FND_LOG.String
633: ( FND_LOG.LEVEL_PROCEDURE,
634: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
635: 'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
628: END IF;
629:
630: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
631: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
632: FND_LOG.String
633: ( FND_LOG.LEVEL_PROCEDURE,
634: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
635: 'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
636: );
629:
630: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
631: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
632: FND_LOG.String
633: ( FND_LOG.LEVEL_PROCEDURE,
634: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
635: 'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
636: );
637: END IF;
647: END IF;
648:
649: -- Update and commit our changes
650: IF (p_commit = FND_API.G_TRUE) THEN
651: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
652: FND_LOG.String
653: ( FND_LOG.LEVEL_PROCEDURE,
654: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
655: 'Updating and Committing.'
648:
649: -- Update and commit our changes
650: IF (p_commit = FND_API.G_TRUE) THEN
651: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
652: FND_LOG.String
653: ( FND_LOG.LEVEL_PROCEDURE,
654: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
655: 'Updating and Committing.'
656: );
649: -- Update and commit our changes
650: IF (p_commit = FND_API.G_TRUE) THEN
651: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
652: FND_LOG.String
653: ( FND_LOG.LEVEL_PROCEDURE,
654: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
655: 'Updating and Committing.'
656: );
657: END IF;
658: dbms_aw.execute('UPDATE');
659: COMMIT;
660: END IF;
661:
662: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
663: FND_LOG.String
664: ( FND_LOG.LEVEL_PROCEDURE,
665: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
666: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
659: COMMIT;
660: END IF;
661:
662: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
663: FND_LOG.String
664: ( FND_LOG.LEVEL_PROCEDURE,
665: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
666: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
667: );
660: END IF;
661:
662: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
663: FND_LOG.String
664: ( FND_LOG.LEVEL_PROCEDURE,
665: 'fpa.sql.FPA_Process_Pvt.Create_Pc.begin',
666: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
667: );
668: END IF;
676: x_msg_data => x_msg_data
677: );
678:
679:
680: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
681: FND_LOG.String
682: (
683: FND_LOG.LEVEL_PROCEDURE,
684: 'fpa.sql.FPA_Process_Pvt.Create_Pc.end',
677: );
678:
679:
680: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
681: FND_LOG.String
682: (
683: FND_LOG.LEVEL_PROCEDURE,
684: 'fpa.sql.FPA_Process_Pvt.Create_Pc.end',
685: 'Exiting FPA_Process_Pvt.Create_Pc'
679:
680: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
681: FND_LOG.String
682: (
683: FND_LOG.LEVEL_PROCEDURE,
684: 'fpa.sql.FPA_Process_Pvt.Create_Pc.end',
685: 'Exiting FPA_Process_Pvt.Create_Pc'
686: );
687: END IF;
715:
716: ROLLBACK;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718:
719: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: FND_LOG.String
721: (
722: FND_LOG.LEVEL_ERROR,
723: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
716: ROLLBACK;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718:
719: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: FND_LOG.String
721: (
722: FND_LOG.LEVEL_ERROR,
723: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
724: SQLERRM
718:
719: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
720: FND_LOG.String
721: (
722: FND_LOG.LEVEL_ERROR,
723: 'fpa.sql.FPA_Process_Pvt.Create_Pc',
724: SQLERRM
725: );
726: END IF;
755: BEGIN
756: -- clear all previous messages.
757: FND_MSG_PUB.Initialize;
758:
759: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
760: FND_LOG.String
761: (
762: FND_LOG.LEVEL_PROCEDURE,
763: 'fpa.sql.FPA_Process_Pvt.Update_Pc.begin',
756: -- clear all previous messages.
757: FND_MSG_PUB.Initialize;
758:
759: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
760: FND_LOG.String
761: (
762: FND_LOG.LEVEL_PROCEDURE,
763: 'fpa.sql.FPA_Process_Pvt.Update_Pc.begin',
764: 'Entering FPA_Process_Pvt.Update_Pc'
758:
759: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
760: FND_LOG.String
761: (
762: FND_LOG.LEVEL_PROCEDURE,
763: 'fpa.sql.FPA_Process_Pvt.Update_Pc.begin',
764: 'Entering FPA_Process_Pvt.Update_Pc'
765: );
766: END IF;
764: 'Entering FPA_Process_Pvt.Update_Pc'
765: );
766: END IF;
767:
768: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
769: FND_LOG.String
770: (
771: FND_LOG.LEVEL_PROCEDURE,
772: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
765: );
766: END IF;
767:
768: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
769: FND_LOG.String
770: (
771: FND_LOG.LEVEL_PROCEDURE,
772: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
773: 'Initializing l_pc_info with p_pc_all_obj.pc_info'
767:
768: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
769: FND_LOG.String
770: (
771: FND_LOG.LEVEL_PROCEDURE,
772: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
773: 'Initializing l_pc_info with p_pc_all_obj.pc_info'
774: );
775: END IF;
776:
777: -- Initialize local pcInfo object from the input pc_all object
778: l_pc_info := p_pc_all_obj.pc_info;
779:
780: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
781: FND_LOG.String
782: (
783: FND_LOG.LEVEL_PROCEDURE,
784: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
777: -- Initialize local pcInfo object from the input pc_all object
778: l_pc_info := p_pc_all_obj.pc_info;
779:
780: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
781: FND_LOG.String
782: (
783: FND_LOG.LEVEL_PROCEDURE,
784: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
785: 'Calling Fpa_Utilities_Pvt.attach_AW'
779:
780: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
781: FND_LOG.String
782: (
783: FND_LOG.LEVEL_PROCEDURE,
784: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
785: 'Calling Fpa_Utilities_Pvt.attach_AW'
786: );
787: END IF;
797: );
798:
799: IF p_pc_all_obj.pc_desc_fields IS NOT NULL THEN
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: FND_LOG.String
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
798:
799: IF p_pc_all_obj.pc_desc_fields IS NOT NULL THEN
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: FND_LOG.String
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
806: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
800:
801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
802: FND_LOG.String
803: (
804: FND_LOG.LEVEL_PROCEDURE,
805: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
806: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
807: );
808: END IF;
817: END IF;
818:
819: IF p_pc_all_obj.pc_investmix IS NOT NULL THEN
820:
821: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
822: FND_LOG.String
823: (
824: FND_LOG.LEVEL_PROCEDURE,
825: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
818:
819: IF p_pc_all_obj.pc_investmix IS NOT NULL THEN
820:
821: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
822: FND_LOG.String
823: (
824: FND_LOG.LEVEL_PROCEDURE,
825: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
826: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
820:
821: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
822: FND_LOG.String
823: (
824: FND_LOG.LEVEL_PROCEDURE,
825: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
826: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
827: );
828: END IF;
838:
839: IF p_pc_all_obj.pc_info IS NOT NULL THEN
840: IF p_pc_all_obj.pc_info.pc_category IS NOT NULL THEN
841:
842: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
843: FND_LOG.String
844: (
845: FND_LOG.LEVEL_PROCEDURE,
846: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
839: IF p_pc_all_obj.pc_info IS NOT NULL THEN
840: IF p_pc_all_obj.pc_info.pc_category IS NOT NULL THEN
841:
842: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
843: FND_LOG.String
844: (
845: FND_LOG.LEVEL_PROCEDURE,
846: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
847: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
841:
842: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
843: FND_LOG.String
844: (
845: FND_LOG.LEVEL_PROCEDURE,
846: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
847: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
848: );
849: END IF;
856: x_msg_data => x_msg_data,
857: x_msg_count => x_msg_count
858: );
859:
860: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
861: FND_LOG.String
862: (
863: FND_LOG.LEVEL_PROCEDURE,
864: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
857: x_msg_count => x_msg_count
858: );
859:
860: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
861: FND_LOG.String
862: (
863: FND_LOG.LEVEL_PROCEDURE,
864: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
865: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
859:
860: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
861: FND_LOG.String
862: (
863: FND_LOG.LEVEL_PROCEDURE,
864: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
865: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
866: );
867: END IF;
873: x_msg_data => x_msg_data,
874: x_msg_count => x_msg_count
875: );
876:
877: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
878: FND_LOG.String
879: (
880: FND_LOG.LEVEL_PROCEDURE,
881: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
874: x_msg_count => x_msg_count
875: );
876:
877: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
878: FND_LOG.String
879: (
880: FND_LOG.LEVEL_PROCEDURE,
881: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
882: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
876:
877: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
878: FND_LOG.String
879: (
880: FND_LOG.LEVEL_PROCEDURE,
881: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
882: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
883: );
884: END IF;
892: );
893: END IF;
894: IF l_pc_info.submission_due_date IS NOT NULL THEN
895:
896: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
897: FND_LOG.String
898: (
899: FND_LOG.LEVEL_PROCEDURE,
900: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
893: END IF;
894: IF l_pc_info.submission_due_date IS NOT NULL THEN
895:
896: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
897: FND_LOG.String
898: (
899: FND_LOG.LEVEL_PROCEDURE,
900: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
901: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
895:
896: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
897: FND_LOG.String
898: (
899: FND_LOG.LEVEL_PROCEDURE,
900: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
901: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
902: );
903: END IF;
913:
914: END IF;
915:
916: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
917: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
918: FND_LOG.String
919: (
920: FND_LOG.LEVEL_PROCEDURE,
921: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
914: END IF;
915:
916: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
917: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
918: FND_LOG.String
919: (
920: FND_LOG.LEVEL_PROCEDURE,
921: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
922: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
916: IF p_pc_all_obj.pc_discount IS NOT NULL THEN
917: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
918: FND_LOG.String
919: (
920: FND_LOG.LEVEL_PROCEDURE,
921: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
922: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
923: );
924: END IF;
933: END IF;
934:
935: IF p_pc_all_obj.pc_targets IS NOT NULL THEN
936:
937: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
938: FND_LOG.String
939: (
940: FND_LOG.LEVEL_PROCEDURE,
941: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
934:
935: IF p_pc_all_obj.pc_targets IS NOT NULL THEN
936:
937: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
938: FND_LOG.String
939: (
940: FND_LOG.LEVEL_PROCEDURE,
941: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
942: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
936:
937: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
938: FND_LOG.String
939: (
940: FND_LOG.LEVEL_PROCEDURE,
941: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
942: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
943: );
944: END IF;
953: END IF;
954:
955: IF p_pc_all_obj.pc_invest_criteria IS NOT NULL THEN
956:
957: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
958: FND_LOG.String
959: (
960: FND_LOG.LEVEL_PROCEDURE,
961: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
954:
955: IF p_pc_all_obj.pc_invest_criteria IS NOT NULL THEN
956:
957: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
958: FND_LOG.String
959: (
960: FND_LOG.LEVEL_PROCEDURE,
961: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
962: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
956:
957: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
958: FND_LOG.String
959: (
960: FND_LOG.LEVEL_PROCEDURE,
961: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
962: 'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
963: );
964: END IF;
975:
976:
977: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
978:
979: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
980: FND_LOG.String
981: (
982: FND_LOG.LEVEL_PROCEDURE,
983: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
976:
977: IF p_pc_all_obj.distr_list_items IS NOT NULL THEN
978:
979: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
980: FND_LOG.String
981: (
982: FND_LOG.LEVEL_PROCEDURE,
983: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
984: 'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
978:
979: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
980: FND_LOG.String
981: (
982: FND_LOG.LEVEL_PROCEDURE,
983: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
984: 'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
985: );
986: END IF;
996:
997:
998: -- Update and commit our changes
999: IF (p_commit = FND_API.G_TRUE) THEN
1000: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1001: FND_LOG.String
1002: (
1003: FND_LOG.LEVEL_PROCEDURE,
1004: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
997:
998: -- Update and commit our changes
999: IF (p_commit = FND_API.G_TRUE) THEN
1000: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1001: FND_LOG.String
1002: (
1003: FND_LOG.LEVEL_PROCEDURE,
1004: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1005: 'Updating AW and committing database.'
999: IF (p_commit = FND_API.G_TRUE) THEN
1000: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1001: FND_LOG.String
1002: (
1003: FND_LOG.LEVEL_PROCEDURE,
1004: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1005: 'Updating AW and committing database.'
1006: );
1007: END IF;
1009: COMMIT;
1010: END IF;
1011:
1012: -- Detach AW Workspace
1013: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1014: FND_LOG.String
1015: (
1016: FND_LOG.LEVEL_PROCEDURE,
1017: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1010: END IF;
1011:
1012: -- Detach AW Workspace
1013: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1014: FND_LOG.String
1015: (
1016: FND_LOG.LEVEL_PROCEDURE,
1017: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1018: 'Calling Fpa_Utilities_Pvt.detach_AW.'
1012: -- Detach AW Workspace
1013: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1014: FND_LOG.String
1015: (
1016: FND_LOG.LEVEL_PROCEDURE,
1017: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1018: 'Calling Fpa_Utilities_Pvt.detach_AW.'
1019: );
1020: END IF;
1026: x_msg_count => x_msg_count,
1027: x_msg_data => x_msg_data
1028: );
1029:
1030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1031: FND_LOG.String
1032: (
1033: FND_LOG.LEVEL_PROCEDURE,
1034: 'fpa.sql.FPA_Process_Pvt.Update_Pc.end',
1027: x_msg_data => x_msg_data
1028: );
1029:
1030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1031: FND_LOG.String
1032: (
1033: FND_LOG.LEVEL_PROCEDURE,
1034: 'fpa.sql.FPA_Process_Pvt.Update_Pc.end',
1035: 'Exiting FPA_Process_Pvt.Update_Pc'
1029:
1030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1031: FND_LOG.String
1032: (
1033: FND_LOG.LEVEL_PROCEDURE,
1034: 'fpa.sql.FPA_Process_Pvt.Update_Pc.end',
1035: 'Exiting FPA_Process_Pvt.Update_Pc'
1036: );
1037: END IF;
1055: );
1056:
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058:
1059: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1060: FND_LOG.String
1061: (
1062: FND_LOG.LEVEL_ERROR,
1063: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1056:
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058:
1059: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1060: FND_LOG.String
1061: (
1062: FND_LOG.LEVEL_ERROR,
1063: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1064: SQLERRM
1058:
1059: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1060: FND_LOG.String
1061: (
1062: FND_LOG.LEVEL_ERROR,
1063: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
1064: SQLERRM
1065: );
1066: END IF;
1103: AND prevPC.last_flag = 1;
1104:
1105: BEGIN
1106:
1107: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1108: FND_LOG.String
1109: (
1110: FND_LOG.LEVEL_PROCEDURE,
1111: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1104:
1105: BEGIN
1106:
1107: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1108: FND_LOG.String
1109: (
1110: FND_LOG.LEVEL_PROCEDURE,
1111: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1112: 'Entering FPA_Process_Pvt.Set_Pc_Initiate'
1106:
1107: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1108: FND_LOG.String
1109: (
1110: FND_LOG.LEVEL_PROCEDURE,
1111: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1112: 'Entering FPA_Process_Pvt.Set_Pc_Initiate'
1113: );
1114: END IF;
1116: OPEN c_last_pc_id;
1117: FETCH c_last_pc_id INTO l_last_pc_id ;
1118: CLOSE c_last_pc_id;
1119:
1120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1121: FND_LOG.String
1122: (
1123: FND_LOG.LEVEL_PROCEDURE,
1124: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1117: FETCH c_last_pc_id INTO l_last_pc_id ;
1118: CLOSE c_last_pc_id;
1119:
1120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1121: FND_LOG.String
1122: (
1123: FND_LOG.LEVEL_PROCEDURE,
1124: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1125: 'Value of l_last_pc_id ='||l_last_pc_id||', Calling Fpa_Utilities_Pvt.attach_AW'
1119:
1120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1121: FND_LOG.String
1122: (
1123: FND_LOG.LEVEL_PROCEDURE,
1124: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1125: 'Value of l_last_pc_id ='||l_last_pc_id||', Calling Fpa_Utilities_Pvt.attach_AW'
1126: );
1127: END IF;
1133: x_return_status => x_return_status,
1134: x_msg_count => x_msg_count,
1135: x_msg_data => x_msg_data
1136: );
1137: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1138: FND_LOG.String
1139: (
1140: FND_LOG.LEVEL_PROCEDURE,
1141: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1134: x_msg_count => x_msg_count,
1135: x_msg_data => x_msg_data
1136: );
1137: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1138: FND_LOG.String
1139: (
1140: FND_LOG.LEVEL_PROCEDURE,
1141: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1142: 'Executing query to retrieve Calendar information.'
1136: );
1137: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1138: FND_LOG.String
1139: (
1140: FND_LOG.LEVEL_PROCEDURE,
1141: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1142: 'Executing query to retrieve Calendar information.'
1143: );
1144: END IF;
1147: INTO l_cal_name, l_period_type, l_cal_period_type
1148: FROM FPA_AW_PC_INFO_V
1149: WHERE PLANNING_CYCLE = p_pc_id;
1150:
1151: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.LEVEL_PROCEDURE,
1155: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1148: FROM FPA_AW_PC_INFO_V
1149: WHERE PLANNING_CYCLE = p_pc_id;
1150:
1151: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.LEVEL_PROCEDURE,
1155: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1156: 'Calling fpa_utils_pvt.load_gl_calendar'
1150:
1151: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: FND_LOG.String
1153: (
1154: FND_LOG.LEVEL_PROCEDURE,
1155: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1156: 'Calling fpa_utils_pvt.load_gl_calendar'
1157: );
1158: END IF;
1167: x_msg_data => x_msg_data,
1168: x_msg_count => x_msg_count
1169: );
1170:
1171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1172: FND_LOG.String
1173: (
1174: FND_LOG.LEVEL_PROCEDURE,
1175: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1168: x_msg_count => x_msg_count
1169: );
1170:
1171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1172: FND_LOG.String
1173: (
1174: FND_LOG.LEVEL_PROCEDURE,
1175: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1176: 'Calling fpa_planningcycle_pvt.Set_Pc_Initiate_Date.'
1170:
1171: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1172: FND_LOG.String
1173: (
1174: FND_LOG.LEVEL_PROCEDURE,
1175: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1176: 'Calling fpa_planningcycle_pvt.Set_Pc_Initiate_Date.'
1177: );
1178: END IF;
1185: x_msg_data => x_msg_data,
1186: x_msg_count => x_msg_count
1187: );
1188:
1189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1190: FND_LOG.String
1191: (
1192: FND_LOG.LEVEL_PROCEDURE,
1193: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1186: x_msg_count => x_msg_count
1187: );
1188:
1189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1190: FND_LOG.String
1191: (
1192: FND_LOG.LEVEL_PROCEDURE,
1193: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1194: 'Calling fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1188:
1189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1190: FND_LOG.String
1191: (
1192: FND_LOG.LEVEL_PROCEDURE,
1193: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1194: 'Calling fpa_planningcycle_pvt.Set_Pc_Investment_Criteria.'
1195: );
1196: END IF;
1204: x_msg_count => x_msg_count
1205: );
1206:
1207:
1208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1209: FND_LOG.String
1210: (
1211: FND_LOG.LEVEL_PROCEDURE,
1212: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1205: );
1206:
1207:
1208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1209: FND_LOG.String
1210: (
1211: FND_LOG.LEVEL_PROCEDURE,
1212: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1213: 'Calling FPA_PORTFOLIO_PROJECT_SETS_PVT.create_project_set'
1207:
1208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1209: FND_LOG.String
1210: (
1211: FND_LOG.LEVEL_PROCEDURE,
1212: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1213: 'Calling FPA_PORTFOLIO_PROJECT_SETS_PVT.create_project_set'
1214: );
1215: END IF;
1222: x_msg_data => x_msg_data,
1223: x_msg_count => x_msg_count
1224: );
1225:
1226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1227: FND_LOG.String
1228: (
1229: FND_LOG.LEVEL_PROCEDURE,
1230: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1223: x_msg_count => x_msg_count
1224: );
1225:
1226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1227: FND_LOG.String
1228: (
1229: FND_LOG.LEVEL_PROCEDURE,
1230: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1231: 'Calling FPA_Main_Process_Pvt.Initiate_Workflow.'
1225:
1226: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1227: FND_LOG.String
1228: (
1229: FND_LOG.LEVEL_PROCEDURE,
1230: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1231: 'Calling FPA_Main_Process_Pvt.Initiate_Workflow.'
1232: );
1233: END IF;
1246: );
1247:
1248: -- Update and commit our changes
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1251: FND_LOG.String
1252: (
1253: FND_LOG.LEVEL_PROCEDURE,
1254: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1247:
1248: -- Update and commit our changes
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1251: FND_LOG.String
1252: (
1253: FND_LOG.LEVEL_PROCEDURE,
1254: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1255: 'Updating AW and committing database.'
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1251: FND_LOG.String
1252: (
1253: FND_LOG.LEVEL_PROCEDURE,
1254: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1255: 'Updating AW and committing database.'
1256: );
1257: END IF;
1258: dbms_aw.execute('UPDATE');
1259: COMMIT;
1260: END IF;
1261:
1262: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1263: FND_LOG.String
1264: (
1265: FND_LOG.LEVEL_PROCEDURE,
1266: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1259: COMMIT;
1260: END IF;
1261:
1262: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1263: FND_LOG.String
1264: (
1265: FND_LOG.LEVEL_PROCEDURE,
1266: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1267: 'Calling Fpa_Utilities_Pvt.detach_AW'
1261:
1262: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1263: FND_LOG.String
1264: (
1265: FND_LOG.LEVEL_PROCEDURE,
1266: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.begin',
1267: 'Calling Fpa_Utilities_Pvt.detach_AW'
1268: );
1269: END IF;
1275: x_msg_count => x_msg_count,
1276: x_msg_data => x_msg_data
1277: );
1278:
1279: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1280: FND_LOG.String
1281: (
1282: FND_LOG.LEVEL_PROCEDURE,
1283: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.end',
1276: x_msg_data => x_msg_data
1277: );
1278:
1279: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1280: FND_LOG.String
1281: (
1282: FND_LOG.LEVEL_PROCEDURE,
1283: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.end',
1284: 'Exiting FPA_Process_Pvt.Set_Pc_Initiate'
1278:
1279: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1280: FND_LOG.String
1281: (
1282: FND_LOG.LEVEL_PROCEDURE,
1283: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate.end',
1284: 'Exiting FPA_Process_Pvt.Set_Pc_Initiate'
1285: );
1286: END IF;
1304: );
1305:
1306: x_return_status := FND_API.G_RET_STS_ERROR;
1307:
1308: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1309: FND_LOG.String
1310: (
1311: FND_LOG.LEVEL_ERROR,
1312: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1305:
1306: x_return_status := FND_API.G_RET_STS_ERROR;
1307:
1308: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1309: FND_LOG.String
1310: (
1311: FND_LOG.LEVEL_ERROR,
1312: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1313: SQLERRM
1307:
1308: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1309: FND_LOG.String
1310: (
1311: FND_LOG.LEVEL_ERROR,
1312: 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate',
1313: SQLERRM
1314: );
1315: END IF;
1334: x_msg_data OUT NOCOPY VARCHAR2,
1335: x_msg_count OUT NOCOPY NUMBER )
1336: IS
1337: BEGIN
1338: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1339: FND_LOG.String
1340: (
1341: FND_LOG.LEVEL_PROCEDURE,
1342: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1335: x_msg_count OUT NOCOPY NUMBER )
1336: IS
1337: BEGIN
1338: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1339: FND_LOG.String
1340: (
1341: FND_LOG.LEVEL_PROCEDURE,
1342: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1343: 'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1337: BEGIN
1338: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1339: FND_LOG.String
1340: (
1341: FND_LOG.LEVEL_PROCEDURE,
1342: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
1343: 'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1344: );
1345: END IF;
1355: COMMIT;
1356: END IF;
1357:
1358:
1359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1360: FND_LOG.String
1361: (
1362: FND_LOG.LEVEL_PROCEDURE,
1363: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1356: END IF;
1357:
1358:
1359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1360: FND_LOG.String
1361: (
1362: FND_LOG.LEVEL_PROCEDURE,
1363: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1364: 'Exiting FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1358:
1359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1360: FND_LOG.String
1361: (
1362: FND_LOG.LEVEL_PROCEDURE,
1363: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
1364: 'Exiting FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
1365: );
1366: END IF;
1376: ROLLBACK;
1377:
1378: x_return_status := FND_API.G_RET_STS_ERROR;
1379:
1380: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1381: FND_LOG.String
1382: (
1383: FND_LOG.LEVEL_ERROR,
1384: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1377:
1378: x_return_status := FND_API.G_RET_STS_ERROR;
1379:
1380: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1381: FND_LOG.String
1382: (
1383: FND_LOG.LEVEL_ERROR,
1384: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1385: SQLERRM
1379:
1380: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1381: FND_LOG.String
1382: (
1383: FND_LOG.LEVEL_ERROR,
1384: 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
1385: SQLERRM
1386: );
1387: END IF;
1417:
1418: -- clear all previous messages.
1419: FND_MSG_PUB.Initialize;
1420:
1421: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1422: fnd_log.string
1423: (
1424: FND_LOG.LEVEL_PROCEDURE,
1425: 'fpa.sql.fpa_process_pvt.create_portfolio.begin',
1418: -- clear all previous messages.
1419: FND_MSG_PUB.Initialize;
1420:
1421: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1422: fnd_log.string
1423: (
1424: FND_LOG.LEVEL_PROCEDURE,
1425: 'fpa.sql.fpa_process_pvt.create_portfolio.begin',
1426: 'Entering fpa_process_pvt.create_portfolio'
1420:
1421: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1422: fnd_log.string
1423: (
1424: FND_LOG.LEVEL_PROCEDURE,
1425: 'fpa.sql.fpa_process_pvt.create_portfolio.begin',
1426: 'Entering fpa_process_pvt.create_portfolio'
1427: );
1428: END IF;
1441: FND_MESSAGE.SET_NAME('FPA','FPA_DUP_PORTF_NAME');
1442: FND_MESSAGE.SET_TOKEN('PORTF_NAME',portfolio_rec.portfolio_name);
1443:
1444: FND_MSG_PUB.ADD;
1445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1446: fnd_log.string
1447: (
1448: FND_LOG.LEVEL_PROCEDURE,
1449: 'fpa.sql.fpa_process_pvt.create_portfolio',
1442: FND_MESSAGE.SET_TOKEN('PORTF_NAME',portfolio_rec.portfolio_name);
1443:
1444: FND_MSG_PUB.ADD;
1445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1446: fnd_log.string
1447: (
1448: FND_LOG.LEVEL_PROCEDURE,
1449: 'fpa.sql.fpa_process_pvt.create_portfolio',
1450: 'Duplicate Portfolio Name'
1444: FND_MSG_PUB.ADD;
1445: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1446: fnd_log.string
1447: (
1448: FND_LOG.LEVEL_PROCEDURE,
1449: 'fpa.sql.fpa_process_pvt.create_portfolio',
1450: 'Duplicate Portfolio Name'
1451: );
1452: END IF;
1455: END IF;
1456:
1457:
1458: -- Attach the AW space read write.
1459: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1460: fnd_log.string
1461: (
1462: FND_LOG.LEVEL_STATEMENT,
1463: 'fpa.sql.fpa_process_pvt.create_portfolio',
1456:
1457:
1458: -- Attach the AW space read write.
1459: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1460: fnd_log.string
1461: (
1462: FND_LOG.LEVEL_STATEMENT,
1463: 'fpa.sql.fpa_process_pvt.create_portfolio',
1464: 'Attaching OLAP workspace: '
1458: -- Attach the AW space read write.
1459: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1460: fnd_log.string
1461: (
1462: FND_LOG.LEVEL_STATEMENT,
1463: 'fpa.sql.fpa_process_pvt.create_portfolio',
1464: 'Attaching OLAP workspace: '
1465: );
1466: END IF;
1541: END IF;
1542:
1543:
1544: -- Finally, detach the workspace
1545: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1546: fnd_log.string
1547: (
1548: FND_LOG.LEVEL_STATEMENT,
1549: 'fpa.sql.fpa_process_pvt.create_portfolio',
1542:
1543:
1544: -- Finally, detach the workspace
1545: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1546: fnd_log.string
1547: (
1548: FND_LOG.LEVEL_STATEMENT,
1549: 'fpa.sql.fpa_process_pvt.create_portfolio',
1550: 'Detaching OLAP workspace: '
1544: -- Finally, detach the workspace
1545: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1546: fnd_log.string
1547: (
1548: FND_LOG.LEVEL_STATEMENT,
1549: 'fpa.sql.fpa_process_pvt.create_portfolio',
1550: 'Detaching OLAP workspace: '
1551: );
1552: END IF;
1558: x_msg_count => x_msg_count,
1559: x_msg_data => x_msg_data
1560: );
1561:
1562: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1563: fnd_log.string
1564: (
1565: FND_LOG.LEVEL_PROCEDURE,
1566: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1559: x_msg_data => x_msg_data
1560: );
1561:
1562: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1563: fnd_log.string
1564: (
1565: FND_LOG.LEVEL_PROCEDURE,
1566: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1567: 'Exiting fpa_process_pvt.create_portfolio'
1561:
1562: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1563: fnd_log.string
1564: (
1565: FND_LOG.LEVEL_PROCEDURE,
1566: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1567: 'Exiting fpa_process_pvt.create_portfolio'
1568: );
1569: END IF;
1573:
1574: ROLLBACK;
1575:
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1578: fnd_log.string
1579: (
1580: FND_LOG.LEVEL_ERROR,
1581: 'fpa_process_pvt.create_portfolio, FPA_UTILITIES_PVT.G_EXCEPTION_ERROR '||l_msg_log,
1574: ROLLBACK;
1575:
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1578: fnd_log.string
1579: (
1580: FND_LOG.LEVEL_ERROR,
1581: 'fpa_process_pvt.create_portfolio, FPA_UTILITIES_PVT.G_EXCEPTION_ERROR '||l_msg_log,
1582: SQLERRM
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1578: fnd_log.string
1579: (
1580: FND_LOG.LEVEL_ERROR,
1581: 'fpa_process_pvt.create_portfolio, FPA_UTILITIES_PVT.G_EXCEPTION_ERROR '||l_msg_log,
1582: SQLERRM
1583: );
1584: END IF;
1590:
1591: ROLLBACK;
1592:
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1595: fnd_log.string
1596: (
1597: FND_LOG.LEVEL_ERROR,
1598: 'fpa_process_pvt.create_portfolio',
1591: ROLLBACK;
1592:
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1595: fnd_log.string
1596: (
1597: FND_LOG.LEVEL_ERROR,
1598: 'fpa_process_pvt.create_portfolio',
1599: SQLERRM
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1595: fnd_log.string
1596: (
1597: FND_LOG.LEVEL_ERROR,
1598: 'fpa_process_pvt.create_portfolio',
1599: SQLERRM
1600: );
1601: END IF;
1620:
1621: ROLLBACK;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623:
1624: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1625: fnd_log.string
1626: (
1627: FND_LOG.LEVEL_ERROR,
1628: 'fpa_process_pvt.create_portfolio',
1621: ROLLBACK;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623:
1624: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1625: fnd_log.string
1626: (
1627: FND_LOG.LEVEL_ERROR,
1628: 'fpa_process_pvt.create_portfolio',
1629: SQLERRM
1623:
1624: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1625: fnd_log.string
1626: (
1627: FND_LOG.LEVEL_ERROR,
1628: 'fpa_process_pvt.create_portfolio',
1629: SQLERRM
1630: );
1631: END IF;
1652: x_msg_count OUT NOCOPY NUMBER
1653: )
1654: IS
1655: BEGIN
1656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1657: fnd_log.string
1658: (
1659: FND_LOG.LEVEL_PROCEDURE,
1660: 'fpa_process_pvt.Delete_Portfolio.begin',
1653: )
1654: IS
1655: BEGIN
1656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1657: fnd_log.string
1658: (
1659: FND_LOG.LEVEL_PROCEDURE,
1660: 'fpa_process_pvt.Delete_Portfolio.begin',
1661: 'Entering fpa_process_pvt.Delete_Portfolio'
1655: BEGIN
1656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1657: fnd_log.string
1658: (
1659: FND_LOG.LEVEL_PROCEDURE,
1660: 'fpa_process_pvt.Delete_Portfolio.begin',
1661: 'Entering fpa_process_pvt.Delete_Portfolio'
1662: );
1663: END IF;
1661: 'Entering fpa_process_pvt.Delete_Portfolio'
1662: );
1663: END IF;
1664: -- Attach the AW space read write.
1665: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1666: fnd_log.string
1667: (
1668: FND_LOG.LEVEL_STATEMENT,
1669: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1662: );
1663: END IF;
1664: -- Attach the AW space read write.
1665: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1666: fnd_log.string
1667: (
1668: FND_LOG.LEVEL_STATEMENT,
1669: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1670: 'Attaching OLAP workspace: '
1664: -- Attach the AW space read write.
1665: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1666: fnd_log.string
1667: (
1668: FND_LOG.LEVEL_STATEMENT,
1669: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1670: 'Attaching OLAP workspace: '
1671: );
1672: END IF;
1698: COMMIT;
1699: END IF;
1700:
1701: -- Finally, detach the workspace
1702: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1703: fnd_log.string
1704: (
1705: FND_LOG.LEVEL_STATEMENT,
1706: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1699: END IF;
1700:
1701: -- Finally, detach the workspace
1702: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1703: fnd_log.string
1704: (
1705: FND_LOG.LEVEL_STATEMENT,
1706: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1707: 'Detaching OLAP workspace: '
1701: -- Finally, detach the workspace
1702: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1703: fnd_log.string
1704: (
1705: FND_LOG.LEVEL_STATEMENT,
1706: 'fpa.sql.fpa_process_pvt.Delete_Portfolio',
1707: 'Detaching OLAP workspace: '
1708: );
1709: END IF;
1715: x_msg_count => x_msg_count,
1716: x_msg_data => x_msg_data
1717: );
1718:
1719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1720: fnd_log.string
1721: (
1722: FND_LOG.LEVEL_PROCEDURE,
1723: 'fpa.sql.fpa_process_pvt.Delete_Portfolio.end',
1716: x_msg_data => x_msg_data
1717: );
1718:
1719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1720: fnd_log.string
1721: (
1722: FND_LOG.LEVEL_PROCEDURE,
1723: 'fpa.sql.fpa_process_pvt.Delete_Portfolio.end',
1724: 'Exiting fpa_process_pvt.Delete_Portfolio'
1718:
1719: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1720: fnd_log.string
1721: (
1722: FND_LOG.LEVEL_PROCEDURE,
1723: 'fpa.sql.fpa_process_pvt.Delete_Portfolio.end',
1724: 'Exiting fpa_process_pvt.Delete_Portfolio'
1725: );
1726: END IF;
1745:
1746: ROLLBACK;
1747: x_return_status := FND_API.G_RET_STS_ERROR;
1748:
1749: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1750: fnd_log.string
1751: (
1752: FND_LOG.LEVEL_ERROR,
1753: 'fpa_process_pvt.Delete_Portfolio',
1746: ROLLBACK;
1747: x_return_status := FND_API.G_RET_STS_ERROR;
1748:
1749: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1750: fnd_log.string
1751: (
1752: FND_LOG.LEVEL_ERROR,
1753: 'fpa_process_pvt.Delete_Portfolio',
1754: SQLERRM
1748:
1749: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1750: fnd_log.string
1751: (
1752: FND_LOG.LEVEL_ERROR,
1753: 'fpa_process_pvt.Delete_Portfolio',
1754: SQLERRM
1755: );
1756: END IF;
1786: BEGIN
1787: -- clear all previous messages.
1788: FND_MSG_PUB.Initialize;
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: fnd_log.string
1792: (
1793: FND_LOG.LEVEL_PROCEDURE,
1794: 'fpa.sql.fpa_process_pvt.update_portfolio.begin',
1787: -- clear all previous messages.
1788: FND_MSG_PUB.Initialize;
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: fnd_log.string
1792: (
1793: FND_LOG.LEVEL_PROCEDURE,
1794: 'fpa.sql.fpa_process_pvt.update_portfolio.begin',
1795: 'Entering fpa_process_pvt.update_portfolio'
1789:
1790: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1791: fnd_log.string
1792: (
1793: FND_LOG.LEVEL_PROCEDURE,
1794: 'fpa.sql.fpa_process_pvt.update_portfolio.begin',
1795: 'Entering fpa_process_pvt.update_portfolio'
1796: );
1797: END IF;
1810: FND_MESSAGE.SET_NAME('FPA','FPA_DUP_PORTF_NAME');
1811: FND_MESSAGE.SET_TOKEN('PORTF_NAME',portfolio_rec.portfolio_name);
1812: FND_MSG_PUB.ADD;
1813:
1814: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1815: fnd_log.string
1816: (
1817: FND_LOG.LEVEL_PROCEDURE,
1818: 'fpa.sql.fpa_process_pvt.update_portfolio',
1811: FND_MESSAGE.SET_TOKEN('PORTF_NAME',portfolio_rec.portfolio_name);
1812: FND_MSG_PUB.ADD;
1813:
1814: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1815: fnd_log.string
1816: (
1817: FND_LOG.LEVEL_PROCEDURE,
1818: 'fpa.sql.fpa_process_pvt.update_portfolio',
1819: 'Duplicate Portfolio Name'
1813:
1814: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1815: fnd_log.string
1816: (
1817: FND_LOG.LEVEL_PROCEDURE,
1818: 'fpa.sql.fpa_process_pvt.update_portfolio',
1819: 'Duplicate Portfolio Name'
1820: );
1821: END IF;
1824: END IF;
1825:
1826:
1827: -- Attach the AW space read write.
1828: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1829: fnd_log.string
1830: (
1831: FND_LOG.LEVEL_STATEMENT,
1832: 'fpa.sql.fpa_process_pvt.update_portfolio',
1825:
1826:
1827: -- Attach the AW space read write.
1828: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1829: fnd_log.string
1830: (
1831: FND_LOG.LEVEL_STATEMENT,
1832: 'fpa.sql.fpa_process_pvt.update_portfolio',
1833: 'Attaching OLAP workspace: '
1827: -- Attach the AW space read write.
1828: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1829: fnd_log.string
1830: (
1831: FND_LOG.LEVEL_STATEMENT,
1832: 'fpa.sql.fpa_process_pvt.update_portfolio',
1833: 'Attaching OLAP workspace: '
1834: );
1835: END IF;
1905: COMMIT;
1906: END IF;
1907:
1908: -- Finally, detach the workspace
1909: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1910: fnd_log.string
1911: (
1912: FND_LOG.LEVEL_STATEMENT,
1913: 'fpa.sql.fpa_process_pvt.create_portfolio',
1906: END IF;
1907:
1908: -- Finally, detach the workspace
1909: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1910: fnd_log.string
1911: (
1912: FND_LOG.LEVEL_STATEMENT,
1913: 'fpa.sql.fpa_process_pvt.create_portfolio',
1914: 'Detaching OLAP workspace: '
1908: -- Finally, detach the workspace
1909: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1910: fnd_log.string
1911: (
1912: FND_LOG.LEVEL_STATEMENT,
1913: 'fpa.sql.fpa_process_pvt.create_portfolio',
1914: 'Detaching OLAP workspace: '
1915: );
1916: END IF;
1922: x_msg_count => x_msg_count,
1923: x_msg_data => x_msg_data
1924: );
1925:
1926: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1927: fnd_log.string
1928: (
1929: FND_LOG.LEVEL_PROCEDURE,
1930: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1923: x_msg_data => x_msg_data
1924: );
1925:
1926: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1927: fnd_log.string
1928: (
1929: FND_LOG.LEVEL_PROCEDURE,
1930: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1931: 'Exiting fpa_process_pvt.create_portfolio'
1925:
1926: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1927: fnd_log.string
1928: (
1929: FND_LOG.LEVEL_PROCEDURE,
1930: 'fpa.sql.fpa_process_pvt.create_portfolio.end',
1931: 'Exiting fpa_process_pvt.create_portfolio'
1932: );
1933: END IF;
1937: ROLLBACK;
1938:
1939:
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1942: fnd_log.string
1943: (
1944: FND_LOG.LEVEL_ERROR,
1945: 'fpa_process_pvt.create_portfolio',
1938:
1939:
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1942: fnd_log.string
1943: (
1944: FND_LOG.LEVEL_ERROR,
1945: 'fpa_process_pvt.create_portfolio',
1946: SQLERRM
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1942: fnd_log.string
1943: (
1944: FND_LOG.LEVEL_ERROR,
1945: 'fpa_process_pvt.create_portfolio',
1946: SQLERRM
1947: );
1948: END IF;
1970:
1971: ROLLBACK;
1972: x_return_status := FND_API.G_RET_STS_ERROR;
1973:
1974: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1975: fnd_log.string
1976: (
1977: FND_LOG.LEVEL_ERROR,
1978: 'fpa_process_pvt.update_portfolio',
1971: ROLLBACK;
1972: x_return_status := FND_API.G_RET_STS_ERROR;
1973:
1974: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1975: fnd_log.string
1976: (
1977: FND_LOG.LEVEL_ERROR,
1978: 'fpa_process_pvt.update_portfolio',
1979: SQLERRM
1973:
1974: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1975: fnd_log.string
1976: (
1977: FND_LOG.LEVEL_ERROR,
1978: 'fpa_process_pvt.update_portfolio',
1979: SQLERRM
1980: );
1981: END IF;
2005: x_msg_count OUT NOCOPY NUMBER
2006: ) IS
2007: BEGIN
2008:
2009: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2010: fnd_log.string
2011: (
2012: FND_LOG.LEVEL_PROCEDURE,
2013: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.begin',
2006: ) IS
2007: BEGIN
2008:
2009: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2010: fnd_log.string
2011: (
2012: FND_LOG.LEVEL_PROCEDURE,
2013: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.begin',
2014: 'Entering fpa_process_pvt.delete_portfolio_user'
2008:
2009: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2010: fnd_log.string
2011: (
2012: FND_LOG.LEVEL_PROCEDURE,
2013: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.begin',
2014: 'Entering fpa_process_pvt.delete_portfolio_user'
2015: );
2016: END IF;
2026: x_msg_count => x_msg_count,
2027: x_msg_data => x_msg_data
2028: );
2029:
2030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2031: fnd_log.string
2032: (
2033: FND_LOG.LEVEL_PROCEDURE,
2034: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.end',
2027: x_msg_data => x_msg_data
2028: );
2029:
2030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2031: fnd_log.string
2032: (
2033: FND_LOG.LEVEL_PROCEDURE,
2034: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.end',
2035: 'Exiting fpa_process_pvt.delete_portfolio_user'
2029:
2030: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2031: fnd_log.string
2032: (
2033: FND_LOG.LEVEL_PROCEDURE,
2034: 'fpa.sql.fpa_process_pvt.delete_portfolio_user.end',
2035: 'Exiting fpa_process_pvt.delete_portfolio_user'
2036: );
2037: END IF;
2064: );
2065:
2066: ROLLBACK;
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2069: fnd_log.string
2070: (
2071: FND_LOG.LEVEL_ERROR,
2072: 'fpa_process_pvt.delete_Portfolio_user',
2065:
2066: ROLLBACK;
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2069: fnd_log.string
2070: (
2071: FND_LOG.LEVEL_ERROR,
2072: 'fpa_process_pvt.delete_Portfolio_user',
2073: SQLERRM
2067: x_return_status := FND_API.G_RET_STS_ERROR;
2068: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2069: fnd_log.string
2070: (
2071: FND_LOG.LEVEL_ERROR,
2072: 'fpa_process_pvt.delete_Portfolio_user',
2073: SQLERRM
2074: );
2075: END IF;
2122: ----------------------------------------------------------------------------
2123:
2124:
2125: BEGIN
2126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2127: fnd_log.string
2128: (
2129: FND_LOG.LEVEL_PROCEDURE,
2130: 'fpa.sql.fpa_process_pvt.create_update_access_list.begin',
2123:
2124:
2125: BEGIN
2126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2127: fnd_log.string
2128: (
2129: FND_LOG.LEVEL_PROCEDURE,
2130: 'fpa.sql.fpa_process_pvt.create_update_access_list.begin',
2131: 'Entering fpa_process_pvt.create_update_access_list'
2125: BEGIN
2126: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2127: fnd_log.string
2128: (
2129: FND_LOG.LEVEL_PROCEDURE,
2130: 'fpa.sql.fpa_process_pvt.create_update_access_list.begin',
2131: 'Entering fpa_process_pvt.create_update_access_list'
2132: );
2133: END IF;
2220: */
2221: END;
2222: END LOOP;
2223:
2224: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2225: fnd_log.string
2226: (
2227: FND_LOG.LEVEL_PROCEDURE,
2228: 'fpa.sql.fpa_process_pvt.create_update_access_list.end',
2221: END;
2222: END LOOP;
2223:
2224: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2225: fnd_log.string
2226: (
2227: FND_LOG.LEVEL_PROCEDURE,
2228: 'fpa.sql.fpa_process_pvt.create_update_access_list.end',
2229: 'Exiting fpa_process_pvt.create_update_access_list'
2223:
2224: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2225: fnd_log.string
2226: (
2227: FND_LOG.LEVEL_PROCEDURE,
2228: 'fpa.sql.fpa_process_pvt.create_update_access_list.end',
2229: 'Exiting fpa_process_pvt.create_update_access_list'
2230: );
2231: END IF;
2298: BEGIN
2299:
2300: FND_MSG_PUB.Initialize;
2301:
2302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2303: FND_LOG.STRING
2304: (
2305: FND_LOG.LEVEL_PROCEDURE,
2306: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.begin',
2299:
2300: FND_MSG_PUB.Initialize;
2301:
2302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2303: FND_LOG.STRING
2304: (
2305: FND_LOG.LEVEL_PROCEDURE,
2306: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.begin',
2307: 'Entering FPA_PROCESS_PVT.Collect_Projects'
2301:
2302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2303: FND_LOG.STRING
2304: (
2305: FND_LOG.LEVEL_PROCEDURE,
2306: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.begin',
2307: 'Entering FPA_PROCESS_PVT.Collect_Projects'
2308: );
2309: END IF;
2307: 'Entering FPA_PROCESS_PVT.Collect_Projects'
2308: );
2309: END IF;
2310:
2311: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2312: FND_LOG.STRING
2313: (
2314: FND_LOG.LEVEL_PROCEDURE,
2315: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2308: );
2309: END IF;
2310:
2311: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2312: FND_LOG.STRING
2313: (
2314: FND_LOG.LEVEL_PROCEDURE,
2315: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2316: 'Calling Fpa_Utilities_Pvt.attach_AW'
2310:
2311: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2312: FND_LOG.STRING
2313: (
2314: FND_LOG.LEVEL_PROCEDURE,
2315: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2316: 'Calling Fpa_Utilities_Pvt.attach_AW'
2317: );
2318: END IF;
2330: l_pc_id := p_pc_id;
2331:
2332: --Changes per MJC start here.
2333:
2334: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2335: FND_LOG.STRING
2336: (
2337: FND_LOG.LEVEL_PROCEDURE,
2338: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2331:
2332: --Changes per MJC start here.
2333:
2334: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2335: FND_LOG.STRING
2336: (
2337: FND_LOG.LEVEL_PROCEDURE,
2338: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2339: 'Executing query to get PC name, desc, submission date and due date.'
2333:
2334: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2335: FND_LOG.STRING
2336: (
2337: FND_LOG.LEVEL_PROCEDURE,
2338: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2339: 'Executing query to get PC name, desc, submission date and due date.'
2340: );
2341: END IF;
2345: from fpa_pcs_vl a ,fpa_aw_pc_info_v b
2346: where a.planning_cycle = b.planning_cycle
2347: and a.planning_cycle = l_pc_id;
2348:
2349: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2350: FND_LOG.STRING
2351: (
2352: FND_LOG.LEVEL_PROCEDURE,
2353: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2346: where a.planning_cycle = b.planning_cycle
2347: and a.planning_cycle = l_pc_id;
2348:
2349: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2350: FND_LOG.STRING
2351: (
2352: FND_LOG.LEVEL_PROCEDURE,
2353: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2354: 'Calling Fpa_Main_Process_Pvt.Cancel_Workflow'
2348:
2349: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2350: FND_LOG.STRING
2351: (
2352: FND_LOG.LEVEL_PROCEDURE,
2353: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2354: 'Calling Fpa_Main_Process_Pvt.Cancel_Workflow'
2355: );
2356: END IF;
2367: x_msg_data => x_msg_data
2368: );
2369:
2370: /*
2371: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2372: FND_LOG.STRING
2373: (
2374: FND_LOG.LEVEL_PROCEDURE,
2375: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2368: );
2369:
2370: /*
2371: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2372: FND_LOG.STRING
2373: (
2374: FND_LOG.LEVEL_PROCEDURE,
2375: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2376: 'Calling Fpa_Main_Process_Pvt.Force_User_Action'
2370: /*
2371: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2372: FND_LOG.STRING
2373: (
2374: FND_LOG.LEVEL_PROCEDURE,
2375: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2376: 'Calling Fpa_Main_Process_Pvt.Force_User_Action'
2377: );
2378: END IF;
2392:
2393: l_api_version := 1;
2394:
2395: IF l_api_version = p_api_version THEN
2396: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2397: FND_LOG.STRING
2398: (
2399: FND_LOG.LEVEL_PROCEDURE,
2400: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2393: l_api_version := 1;
2394:
2395: IF l_api_version = p_api_version THEN
2396: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2397: FND_LOG.STRING
2398: (
2399: FND_LOG.LEVEL_PROCEDURE,
2400: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2401: 'Calling FPA_PlanningCycle_Pvt.Set_Pc_Status'
2395: IF l_api_version = p_api_version THEN
2396: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2397: FND_LOG.STRING
2398: (
2399: FND_LOG.LEVEL_PROCEDURE,
2400: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2401: 'Calling FPA_PlanningCycle_Pvt.Set_Pc_Status'
2402: );
2403: END IF;
2416:
2417:
2418: -- Update and commit our changes
2419: IF (p_commit = FND_API.G_TRUE) THEN
2420: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2421: FND_LOG.STRING
2422: (
2423: FND_LOG.LEVEL_PROCEDURE,
2424: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2417:
2418: -- Update and commit our changes
2419: IF (p_commit = FND_API.G_TRUE) THEN
2420: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2421: FND_LOG.STRING
2422: (
2423: FND_LOG.LEVEL_PROCEDURE,
2424: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2425: 'Updating AW and commiting database'
2419: IF (p_commit = FND_API.G_TRUE) THEN
2420: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2421: FND_LOG.STRING
2422: (
2423: FND_LOG.LEVEL_PROCEDURE,
2424: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2425: 'Updating AW and commiting database'
2426: );
2427: END IF;
2430: COMMIT;
2431: END IF;
2432:
2433: -- Detach AW Workspace
2434: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2435: FND_LOG.STRING
2436: (
2437: FND_LOG.LEVEL_PROCEDURE,
2438: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2431: END IF;
2432:
2433: -- Detach AW Workspace
2434: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2435: FND_LOG.STRING
2436: (
2437: FND_LOG.LEVEL_PROCEDURE,
2438: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2439: 'Calling Fpa_Utilities_Pvt.detach_AW'
2433: -- Detach AW Workspace
2434: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2435: FND_LOG.STRING
2436: (
2437: FND_LOG.LEVEL_PROCEDURE,
2438: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.',
2439: 'Calling Fpa_Utilities_Pvt.detach_AW'
2440: );
2441: END IF;
2447: x_msg_count => x_msg_count,
2448: x_msg_data => x_msg_data
2449: );
2450:
2451: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2452: FND_LOG.STRING
2453: (
2454: FND_LOG.LEVEL_PROCEDURE,
2455: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.end',
2448: x_msg_data => x_msg_data
2449: );
2450:
2451: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2452: FND_LOG.STRING
2453: (
2454: FND_LOG.LEVEL_PROCEDURE,
2455: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.end',
2456: 'Ending FPA_PROCESS_PVT.Collect_Projects'
2450:
2451: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2452: FND_LOG.STRING
2453: (
2454: FND_LOG.LEVEL_PROCEDURE,
2455: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects.end',
2456: 'Ending FPA_PROCESS_PVT.Collect_Projects'
2457: );
2458: END IF;
2471: );
2472:
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2476: FND_LOG.STRING
2477: (
2478: FND_LOG.LEVEL_ERROR,
2479: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects',
2472:
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2476: FND_LOG.STRING
2477: (
2478: FND_LOG.LEVEL_ERROR,
2479: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects',
2480: SQLERRM
2474:
2475: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2476: FND_LOG.STRING
2477: (
2478: FND_LOG.LEVEL_ERROR,
2479: 'FPA.SQL.FPA_PROCESS_PVT.Collect_Projects',
2480: SQLERRM
2481: );
2482: END IF;
2543:
2544:
2545: FND_MSG_PUB.Initialize;
2546:
2547: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2548: FND_LOG.STRING
2549: (
2550: FND_LOG.LEVEL_PROCEDURE,
2551: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.begin',
2544:
2545: FND_MSG_PUB.Initialize;
2546:
2547: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2548: FND_LOG.STRING
2549: (
2550: FND_LOG.LEVEL_PROCEDURE,
2551: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.begin',
2552: 'Entering FPA_PROCESS_PVT.Add_Projects'
2546:
2547: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2548: FND_LOG.STRING
2549: (
2550: FND_LOG.LEVEL_PROCEDURE,
2551: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.begin',
2552: 'Entering FPA_PROCESS_PVT.Add_Projects'
2553: );
2554:
2555: END IF;
2556:
2557: l_api_version := 1;
2558:
2559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2560: FND_LOG.STRING
2561: (
2562: FND_LOG.LEVEL_PROCEDURE,
2563: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
2556:
2557: l_api_version := 1;
2558:
2559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2560: FND_LOG.STRING
2561: (
2562: FND_LOG.LEVEL_PROCEDURE,
2563: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
2564: 'Getting Initial Scenario Id'
2558:
2559: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2560: FND_LOG.STRING
2561: (
2562: FND_LOG.LEVEL_PROCEDURE,
2563: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
2564: 'Getting Initial Scenario Id'
2565: );
2566: END IF;
2597: -- end of parsing
2598:
2599: IF p_project_source = 'PJT' THEN
2600:
2601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2602: FND_LOG.STRING
2603: (
2604: FND_LOG.LEVEL_PROCEDURE,
2605: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2598:
2599: IF p_project_source = 'PJT' THEN
2600:
2601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2602: FND_LOG.STRING
2603: (
2604: FND_LOG.LEVEL_PROCEDURE,
2605: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2606: 'Entering FPA_PROCESS_PVT.Add_Projects'
2600:
2601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2602: FND_LOG.STRING
2603: (
2604: FND_LOG.LEVEL_PROCEDURE,
2605: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2606: 'Entering FPA_PROCESS_PVT.Add_Projects'
2607: );
2608: END IF;
2606: 'Entering FPA_PROCESS_PVT.Add_Projects'
2607: );
2608: END IF;
2609:
2610: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2611: FND_LOG.STRING
2612: (
2613: FND_LOG.LEVEL_PROCEDURE,
2614: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2607: );
2608: END IF;
2609:
2610: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2611: FND_LOG.STRING
2612: (
2613: FND_LOG.LEVEL_PROCEDURE,
2614: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2615: 'Calling FPA_PROCESS_PVT.load_project_details_aw'
2609:
2610: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2611: FND_LOG.STRING
2612: (
2613: FND_LOG.LEVEL_PROCEDURE,
2614: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2615: 'Calling FPA_PROCESS_PVT.load_project_details_aw'
2616: );
2617: END IF;
2643: );
2644:
2645: if p_project_source = 'PJT' then
2646:
2647: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2648: FND_LOG.String
2649: (
2650: FND_LOG.LEVEL_PROCEDURE,
2651: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2644:
2645: if p_project_source = 'PJT' then
2646:
2647: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2648: FND_LOG.String
2649: (
2650: FND_LOG.LEVEL_PROCEDURE,
2651: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2652: 'Calling fpa_scenario_pvt.calc_scenario_data for updating Scenario project data..'
2646:
2647: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2648: FND_LOG.String
2649: (
2650: FND_LOG.LEVEL_PROCEDURE,
2651: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2652: 'Calling fpa_scenario_pvt.calc_scenario_data for updating Scenario project data..'
2653: );
2654: END IF;
2659: open c_init_project_set;
2660: fetch c_init_project_set into l_project_set_id;
2661: close c_init_project_set;
2662:
2663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2664: FND_LOG.String
2665: (
2666: FND_LOG.LEVEL_PROCEDURE,
2667: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2660: fetch c_init_project_set into l_project_set_id;
2661: close c_init_project_set;
2662:
2663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2664: FND_LOG.String
2665: (
2666: FND_LOG.LEVEL_PROCEDURE,
2667: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2668: 'cursor processed to get Project Set. ID = '|| l_project_set_id
2662:
2663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2664: FND_LOG.String
2665: (
2666: FND_LOG.LEVEL_PROCEDURE,
2667: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2668: 'cursor processed to get Project Set. ID = '|| l_project_set_id
2669: );
2670: END IF;
2675:
2676: for i in projectIdTbl.first .. projectIdTbl.last
2677: loop
2678:
2679: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2680: FND_LOG.STRING
2681: (
2682: FND_LOG.LEVEL_PROCEDURE,
2683: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2676: for i in projectIdTbl.first .. projectIdTbl.last
2677: loop
2678:
2679: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2680: FND_LOG.STRING
2681: (
2682: FND_LOG.LEVEL_PROCEDURE,
2683: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2684: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJ Mode for projectId= '||projectIdTbl(i)
2678:
2679: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2680: FND_LOG.STRING
2681: (
2682: FND_LOG.LEVEL_PROCEDURE,
2683: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2684: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJ Mode for projectId= '||projectIdTbl(i)
2685: );
2686: END IF;
2713: ,x_msg_data => x_msg_data
2714: );
2715: END IF;
2716:
2717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2718: FND_LOG.String
2719: (
2720: FND_LOG.LEVEL_PROCEDURE,
2721: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2714: );
2715: END IF;
2716:
2717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2718: FND_LOG.String
2719: (
2720: FND_LOG.LEVEL_PROCEDURE,
2721: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2722: 'Completed Project Set API PA_PROJECT_SETS_PUB.create_project_set_line'
2716:
2717: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2718: FND_LOG.String
2719: (
2720: FND_LOG.LEVEL_PROCEDURE,
2721: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2722: 'Completed Project Set API PA_PROJECT_SETS_PUB.create_project_set_line'
2723: );
2724: END IF;
2726:
2727: dbms_aw.execute('LMT project_d TO ' || projectIdTbl(i));
2728: dbms_aw.execute('project_set_project_m = yes');
2729:
2730: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2731: FND_LOG.String
2732: (
2733: FND_LOG.LEVEL_PROCEDURE,
2734: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2727: dbms_aw.execute('LMT project_d TO ' || projectIdTbl(i));
2728: dbms_aw.execute('project_set_project_m = yes');
2729:
2730: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2731: FND_LOG.String
2732: (
2733: FND_LOG.LEVEL_PROCEDURE,
2734: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2735: 'Completed AW Updates for project_set_project_m'
2729:
2730: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2731: FND_LOG.String
2732: (
2733: FND_LOG.LEVEL_PROCEDURE,
2734: 'fpa.sql.FPA_Process_Pvt.Add_Projects.Source = PJT',
2735: 'Completed AW Updates for project_set_project_m'
2736: );
2737: END IF;
2737: END IF;
2738:
2739: end loop;
2740:
2741: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2742: FND_LOG.STRING
2743: (
2744: FND_LOG.LEVEL_PROCEDURE,
2745: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2738:
2739: end loop;
2740:
2741: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2742: FND_LOG.STRING
2743: (
2744: FND_LOG.LEVEL_PROCEDURE,
2745: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2746: 'Completed scenario Project rollup calculations. proceeding to classcode'
2740:
2741: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2742: FND_LOG.STRING
2743: (
2744: FND_LOG.LEVEL_PROCEDURE,
2745: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2746: 'Completed scenario Project rollup calculations. proceeding to classcode'
2747: );
2748: END IF;
2762: x_msg_count => x_msg_count,
2763: x_msg_data => x_msg_data
2764: );
2765:
2766: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2767: FND_LOG.STRING
2768: (
2769: FND_LOG.LEVEL_PROCEDURE,
2770: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2763: x_msg_data => x_msg_data
2764: );
2765:
2766: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2767: FND_LOG.STRING
2768: (
2769: FND_LOG.LEVEL_PROCEDURE,
2770: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2771: 'Completed Classcode rollup calculations. proceeding to scenario'
2765:
2766: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2767: FND_LOG.STRING
2768: (
2769: FND_LOG.LEVEL_PROCEDURE,
2770: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2771: 'Completed Classcode rollup calculations. proceeding to scenario'
2772: );
2773: END IF;
2783: x_msg_count => x_msg_count,
2784: x_msg_data => x_msg_data
2785: );
2786:
2787: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2788: FND_LOG.STRING
2789: (
2790: FND_LOG.LEVEL_PROCEDURE,
2791: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2784: x_msg_data => x_msg_data
2785: );
2786:
2787: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2788: FND_LOG.STRING
2789: (
2790: FND_LOG.LEVEL_PROCEDURE,
2791: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2792: 'Calling fpa_scorecards_pvt.calc_Scenario_wscores_aw Calculate weighted and cost weighted scores '
2786:
2787: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2788: FND_LOG.STRING
2789: (
2790: FND_LOG.LEVEL_PROCEDURE,
2791: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2792: 'Calling fpa_scorecards_pvt.calc_Scenario_wscores_aw Calculate weighted and cost weighted scores '
2793: );
2794: END IF;
2803: x_msg_count => x_msg_count,
2804: x_msg_data => x_msg_data
2805: );
2806:
2807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2808: FND_LOG.STRING
2809: (
2810: FND_LOG.LEVEL_PROCEDURE,
2811: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2804: x_msg_data => x_msg_data
2805: );
2806:
2807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2808: FND_LOG.STRING
2809: (
2810: FND_LOG.LEVEL_PROCEDURE,
2811: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2812: 'Completed calculations for Initial scenario. ScenarioId ='||l_init_scenario_id
2806:
2807: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2808: FND_LOG.STRING
2809: (
2810: FND_LOG.LEVEL_PROCEDURE,
2811: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2812: 'Completed calculations for Initial scenario. ScenarioId ='||l_init_scenario_id
2813: );
2814: END IF;
2813: );
2814: END IF;
2815: */
2816:
2817: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2818: FND_LOG.STRING
2819: (
2820: FND_LOG.LEVEL_PROCEDURE,
2821: 'fpa.sql.fpa_project_pvt.Refresh_project',
2814: END IF;
2815: */
2816:
2817: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2818: FND_LOG.STRING
2819: (
2820: FND_LOG.LEVEL_PROCEDURE,
2821: 'fpa.sql.fpa_project_pvt.Refresh_project',
2822: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2816:
2817: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2818: FND_LOG.STRING
2819: (
2820: FND_LOG.LEVEL_PROCEDURE,
2821: 'fpa.sql.fpa_project_pvt.Refresh_project',
2822: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2823: );
2824: END IF;
2834: x_return_status => x_return_status,
2835: x_msg_count => x_msg_count,
2836: x_msg_data => x_msg_data);
2837:
2838: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2839: FND_LOG.STRING
2840: (
2841: FND_LOG.LEVEL_PROCEDURE,
2842: 'fpa.sql.fpa_project_pvt.Refresh_project',
2835: x_msg_count => x_msg_count,
2836: x_msg_data => x_msg_data);
2837:
2838: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2839: FND_LOG.STRING
2840: (
2841: FND_LOG.LEVEL_PROCEDURE,
2842: 'fpa.sql.fpa_project_pvt.Refresh_project',
2843: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2837:
2838: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2839: FND_LOG.STRING
2840: (
2841: FND_LOG.LEVEL_PROCEDURE,
2842: 'fpa.sql.fpa_project_pvt.Refresh_project',
2843: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2844: );
2845: END IF;
2865:
2866: for i in projectIdTbl.first .. projectIdTbl.last
2867: loop
2868:
2869: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2870: FND_LOG.STRING
2871: (
2872: FND_LOG.LEVEL_PROCEDURE,
2873: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJP',
2866: for i in projectIdTbl.first .. projectIdTbl.last
2867: loop
2868:
2869: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2870: FND_LOG.STRING
2871: (
2872: FND_LOG.LEVEL_PROCEDURE,
2873: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJP',
2874: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJFIN Mode for projectId= '||projectIdTbl(i)
2868:
2869: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2870: FND_LOG.STRING
2871: (
2872: FND_LOG.LEVEL_PROCEDURE,
2873: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJP',
2874: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJFIN Mode for projectId= '||projectIdTbl(i)
2875: );
2876: END IF;
2897: -- calculate classcode level data for all classcodes in the scenario
2898: -- Call copy_sce_proj_data in PJT mode to calculate total cost, benefit,
2899: -- and other metrics at all levels for the Initial Scenario
2900:
2901: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2902: FND_LOG.STRING
2903: (
2904: FND_LOG.LEVEL_PROCEDURE,
2905: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.CurrentScenario',
2898: -- Call copy_sce_proj_data in PJT mode to calculate total cost, benefit,
2899: -- and other metrics at all levels for the Initial Scenario
2900:
2901: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2902: FND_LOG.STRING
2903: (
2904: FND_LOG.LEVEL_PROCEDURE,
2905: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.CurrentScenario',
2906: 'Completed scenario Project rollup calculations. proceeding to classcode'
2900:
2901: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2902: FND_LOG.STRING
2903: (
2904: FND_LOG.LEVEL_PROCEDURE,
2905: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.CurrentScenario',
2906: 'Completed scenario Project rollup calculations. proceeding to classcode'
2907: );
2908: END IF;
2919: x_msg_count => x_msg_count,
2920: x_msg_data => x_msg_data
2921: );
2922:
2923: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2924: FND_LOG.STRING
2925: (
2926: FND_LOG.LEVEL_PROCEDURE,
2927: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Current Scenario',
2920: x_msg_data => x_msg_data
2921: );
2922:
2923: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2924: FND_LOG.STRING
2925: (
2926: FND_LOG.LEVEL_PROCEDURE,
2927: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Current Scenario',
2928: 'Completed Classcode rollup calculations. proceeding to scenario'
2922:
2923: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2924: FND_LOG.STRING
2925: (
2926: FND_LOG.LEVEL_PROCEDURE,
2927: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Current Scenario',
2928: 'Completed Classcode rollup calculations. proceeding to scenario'
2929: );
2930: END IF;
2941: x_msg_count => x_msg_count,
2942: x_msg_data => x_msg_data
2943: );
2944: /*
2945: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2946: FND_LOG.STRING
2947: (
2948: FND_LOG.LEVEL_PROCEDURE,
2949: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2942: x_msg_data => x_msg_data
2943: );
2944: /*
2945: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2946: FND_LOG.STRING
2947: (
2948: FND_LOG.LEVEL_PROCEDURE,
2949: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2950: 'Calling fpa_scorecards_pvt.calc_Scenario_wscores_aw Calculate weighted and cost weighted scores '
2944: /*
2945: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2946: FND_LOG.STRING
2947: (
2948: FND_LOG.LEVEL_PROCEDURE,
2949: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.Source = PJT',
2950: 'Calling fpa_scorecards_pvt.calc_Scenario_wscores_aw Calculate weighted and cost weighted scores '
2951: );
2952: END IF;
2951: );
2952: END IF;
2953: */
2954:
2955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2956: FND_LOG.STRING
2957: (
2958: FND_LOG.LEVEL_PROCEDURE,
2959: 'fpa.sql.fpa_project_pvt.add_project',
2952: END IF;
2953: */
2954:
2955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2956: FND_LOG.STRING
2957: (
2958: FND_LOG.LEVEL_PROCEDURE,
2959: 'fpa.sql.fpa_project_pvt.add_project',
2960: 'Calling fpa.sql.FPA_SCORECARDS_PVT.Handle_Comments'
2954:
2955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2956: FND_LOG.STRING
2957: (
2958: FND_LOG.LEVEL_PROCEDURE,
2959: 'fpa.sql.fpa_project_pvt.add_project',
2960: 'Calling fpa.sql.FPA_SCORECARDS_PVT.Handle_Comments'
2961: );
2962: END IF;
2972: x_msg_count => x_msg_count,
2973: x_msg_data => x_msg_data);
2974:
2975:
2976: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2977: FND_LOG.STRING
2978: (
2979: FND_LOG.LEVEL_PROCEDURE,
2980: 'fpa.sql.fpa_project_pvt.Refresh_project',
2973: x_msg_data => x_msg_data);
2974:
2975:
2976: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2977: FND_LOG.STRING
2978: (
2979: FND_LOG.LEVEL_PROCEDURE,
2980: 'fpa.sql.fpa_project_pvt.Refresh_project',
2981: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2975:
2976: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2977: FND_LOG.STRING
2978: (
2979: FND_LOG.LEVEL_PROCEDURE,
2980: 'fpa.sql.fpa_project_pvt.Refresh_project',
2981: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2982: );
2983: END IF;
2993: x_return_status => x_return_status,
2994: x_msg_count => x_msg_count,
2995: x_msg_data => x_msg_data);
2996:
2997: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2998: FND_LOG.STRING
2999: (
3000: FND_LOG.LEVEL_PROCEDURE,
3001: 'fpa.sql.fpa_project_pvt.Refresh_project',
2994: x_msg_count => x_msg_count,
2995: x_msg_data => x_msg_data);
2996:
2997: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2998: FND_LOG.STRING
2999: (
3000: FND_LOG.LEVEL_PROCEDURE,
3001: 'fpa.sql.fpa_project_pvt.Refresh_project',
3002: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
2996:
2997: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2998: FND_LOG.STRING
2999: (
3000: FND_LOG.LEVEL_PROCEDURE,
3001: 'fpa.sql.fpa_project_pvt.Refresh_project',
3002: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
3003: );
3004: END IF;
3022: x_msg_data => x_msg_data
3023: );
3024:
3025:
3026: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3027: FND_LOG.STRING
3028: (
3029: FND_LOG.LEVEL_PROCEDURE,
3030: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.end',
3023: );
3024:
3025:
3026: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3027: FND_LOG.STRING
3028: (
3029: FND_LOG.LEVEL_PROCEDURE,
3030: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.end',
3031: 'Ending FPA_PROCESS_PVT.Add_Projects'
3025:
3026: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3027: FND_LOG.STRING
3028: (
3029: FND_LOG.LEVEL_PROCEDURE,
3030: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects.end',
3031: 'Ending FPA_PROCESS_PVT.Add_Projects'
3032: );
3033: END IF;
3045: );
3046:
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3050: FND_LOG.STRING
3051: (
3052: FND_LOG.LEVEL_ERROR,
3053: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
3046:
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048:
3049: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3050: FND_LOG.STRING
3051: (
3052: FND_LOG.LEVEL_ERROR,
3053: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
3054: SQLERRM
3048:
3049: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3050: FND_LOG.STRING
3051: (
3052: FND_LOG.LEVEL_ERROR,
3053: 'FPA.SQL.FPA_PROCESS_PVT.Add_Projects',
3054: SQLERRM
3055: );
3056: END IF;
3089: BEGIN
3090:
3091: FND_MSG_PUB.Initialize;
3092:
3093: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3094: FND_LOG.STRING
3095: (
3096: FND_LOG.LEVEL_PROCEDURE,
3097: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.begin',
3090:
3091: FND_MSG_PUB.Initialize;
3092:
3093: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3094: FND_LOG.STRING
3095: (
3096: FND_LOG.LEVEL_PROCEDURE,
3097: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.begin',
3098: 'Entering FPA_PROCESS_PVT.Refresh_Projects'
3092:
3093: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3094: FND_LOG.STRING
3095: (
3096: FND_LOG.LEVEL_PROCEDURE,
3097: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.begin',
3098: 'Entering FPA_PROCESS_PVT.Refresh_Projects'
3099: );
3100:
3117: p_count := p_count+1;
3118:
3119: end loop;
3120:
3121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3122: FND_LOG.STRING
3123: (
3124: FND_LOG.LEVEL_PROCEDURE,
3125: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3118:
3119: end loop;
3120:
3121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3122: FND_LOG.STRING
3123: (
3124: FND_LOG.LEVEL_PROCEDURE,
3125: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3126: 'Entering FPA_PROCESS_PVT.Refresh_Projects'
3120:
3121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3122: FND_LOG.STRING
3123: (
3124: FND_LOG.LEVEL_PROCEDURE,
3125: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3126: 'Entering FPA_PROCESS_PVT.Refresh_Projects'
3127: );
3128: END IF;
3126: 'Entering FPA_PROCESS_PVT.Refresh_Projects'
3127: );
3128: END IF;
3129:
3130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3131: FND_LOG.STRING
3132: (
3133: FND_LOG.LEVEL_PROCEDURE,
3134: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3127: );
3128: END IF;
3129:
3130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3131: FND_LOG.STRING
3132: (
3133: FND_LOG.LEVEL_PROCEDURE,
3134: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3135: 'Calling FPA_PROCESS_PVT.load_project_details_aw'
3129:
3130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3131: FND_LOG.STRING
3132: (
3133: FND_LOG.LEVEL_PROCEDURE,
3134: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3135: 'Calling FPA_PROCESS_PVT.load_project_details_aw'
3136: );
3137: END IF;
3157: x_msg_count => x_msg_count,
3158: x_msg_data => x_msg_data
3159: );
3160:
3161: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3162: FND_LOG.String
3163: (
3164: FND_LOG.LEVEL_PROCEDURE,
3165: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3158: x_msg_data => x_msg_data
3159: );
3160:
3161: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3162: FND_LOG.String
3163: (
3164: FND_LOG.LEVEL_PROCEDURE,
3165: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3166: 'Calling fpa_scenario_pvt.calc_scenario_data for updating Scenario project data..'
3160:
3161: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3162: FND_LOG.String
3163: (
3164: FND_LOG.LEVEL_PROCEDURE,
3165: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3166: 'Calling fpa_scenario_pvt.calc_scenario_data for updating Scenario project data..'
3167: );
3168: END IF;
3169:
3170: for i in projectIdTbl.first .. projectIdTbl.last
3171: loop
3172:
3173: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3174: FND_LOG.STRING
3175: (
3176: FND_LOG.LEVEL_PROCEDURE,
3177: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3170: for i in projectIdTbl.first .. projectIdTbl.last
3171: loop
3172:
3173: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3174: FND_LOG.STRING
3175: (
3176: FND_LOG.LEVEL_PROCEDURE,
3177: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3178: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJ Mode for projectId= '||projectIdTbl(i)
3172:
3173: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3174: FND_LOG.STRING
3175: (
3176: FND_LOG.LEVEL_PROCEDURE,
3177: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3178: 'Calling fpa_scenario_pvt.calc_sceario_data in PROJ Mode for projectId= '||projectIdTbl(i)
3179: );
3180: END IF;
3193: );
3194:
3195: -- dbms_aw.execute('LMT project_d TO ' || projectIdTbl(i));
3196:
3197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3198: FND_LOG.String
3199: (
3200: FND_LOG.LEVEL_PROCEDURE,
3201: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3194:
3195: -- dbms_aw.execute('LMT project_d TO ' || projectIdTbl(i));
3196:
3197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3198: FND_LOG.String
3199: (
3200: FND_LOG.LEVEL_PROCEDURE,
3201: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3202: 'Completed AW Updates for project_set_project_m'
3196:
3197: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3198: FND_LOG.String
3199: (
3200: FND_LOG.LEVEL_PROCEDURE,
3201: 'fpa.sql.FPA_Process_Pvt.Refresh_Projects.Source',
3202: 'Completed AW Updates for project_set_project_m'
3203: );
3204: END IF;
3204: END IF;
3205:
3206: end loop;
3207:
3208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3209: FND_LOG.STRING
3210: (
3211: FND_LOG.LEVEL_PROCEDURE,
3212: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3205:
3206: end loop;
3207:
3208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3209: FND_LOG.STRING
3210: (
3211: FND_LOG.LEVEL_PROCEDURE,
3212: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3213: 'Completed scenario Project rollup calculations. proceeding to classcode'
3207:
3208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3209: FND_LOG.STRING
3210: (
3211: FND_LOG.LEVEL_PROCEDURE,
3212: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3213: 'Completed scenario Project rollup calculations. proceeding to classcode'
3214: );
3215: END IF;
3229: x_msg_count => x_msg_count,
3230: x_msg_data => x_msg_data
3231: );
3232:
3233: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3234: FND_LOG.STRING
3235: (
3236: FND_LOG.LEVEL_PROCEDURE,
3237: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3230: x_msg_data => x_msg_data
3231: );
3232:
3233: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3234: FND_LOG.STRING
3235: (
3236: FND_LOG.LEVEL_PROCEDURE,
3237: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3238: 'Completed Classcode rollup calculations. proceeding to scenario'
3232:
3233: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3234: FND_LOG.STRING
3235: (
3236: FND_LOG.LEVEL_PROCEDURE,
3237: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Source',
3238: 'Completed Classcode rollup calculations. proceeding to scenario'
3239: );
3240: END IF;
3250: x_msg_count => x_msg_count,
3251: x_msg_data => x_msg_data
3252: );
3253:
3254: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3255: FND_LOG.STRING
3256: (
3257: FND_LOG.LEVEL_PROCEDURE,
3258: 'fpa.sql.fpa_project_pvt.Refresh_project',
3251: x_msg_data => x_msg_data
3252: );
3253:
3254: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3255: FND_LOG.STRING
3256: (
3257: FND_LOG.LEVEL_PROCEDURE,
3258: 'fpa.sql.fpa_project_pvt.Refresh_project',
3259: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
3253:
3254: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3255: FND_LOG.STRING
3256: (
3257: FND_LOG.LEVEL_PROCEDURE,
3258: 'fpa.sql.fpa_project_pvt.Refresh_project',
3259: 'Calling fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
3260: );
3261: END IF;
3272: x_msg_count => x_msg_count,
3273: x_msg_data => x_msg_data);
3274:
3275:
3276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3277: FND_LOG.STRING
3278: (
3279: FND_LOG.LEVEL_PROCEDURE,
3280: 'fpa.sql.fpa_project_pvt.Refresh_project',
3273: x_msg_data => x_msg_data);
3274:
3275:
3276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3277: FND_LOG.STRING
3278: (
3279: FND_LOG.LEVEL_PROCEDURE,
3280: 'fpa.sql.fpa_project_pvt.Refresh_project',
3281: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
3275:
3276: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3277: FND_LOG.STRING
3278: (
3279: FND_LOG.LEVEL_PROCEDURE,
3280: 'fpa.sql.fpa_project_pvt.Refresh_project',
3281: 'End fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations'
3282: );
3283: END IF;
3298: x_msg_count => x_msg_count,
3299: x_msg_data => x_msg_data
3300: );
3301:
3302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3303: FND_LOG.STRING
3304: (
3305: FND_LOG.LEVEL_PROCEDURE,
3306: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Begin Validate',
3299: x_msg_data => x_msg_data
3300: );
3301:
3302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3303: FND_LOG.STRING
3304: (
3305: FND_LOG.LEVEL_PROCEDURE,
3306: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Begin Validate',
3307: 'Ending FPA_PROCESS_PVT.Refresh_Projects'
3301:
3302: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3303: FND_LOG.STRING
3304: (
3305: FND_LOG.LEVEL_PROCEDURE,
3306: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.Begin Validate',
3307: 'Ending FPA_PROCESS_PVT.Refresh_Projects'
3308: );
3309: END IF;
3321: x_msg_count => x_msg_count,
3322: x_msg_data => x_msg_data);
3323:
3324:
3325: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3326: FND_LOG.STRING
3327: (
3328: FND_LOG.LEVEL_PROCEDURE,
3329: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.end',
3322: x_msg_data => x_msg_data);
3323:
3324:
3325: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3326: FND_LOG.STRING
3327: (
3328: FND_LOG.LEVEL_PROCEDURE,
3329: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.end',
3330: 'Ending FPA_PROCESS_PVT.Refresh_Projects'
3324:
3325: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3326: FND_LOG.STRING
3327: (
3328: FND_LOG.LEVEL_PROCEDURE,
3329: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects.end',
3330: 'Ending FPA_PROCESS_PVT.Refresh_Projects'
3331: );
3332: END IF;
3344: );
3345:
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347:
3348: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3349: FND_LOG.STRING
3350: (
3351: FND_LOG.LEVEL_ERROR,
3352: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects',
3345:
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347:
3348: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3349: FND_LOG.STRING
3350: (
3351: FND_LOG.LEVEL_ERROR,
3352: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects',
3353: SQLERRM
3347:
3348: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3349: FND_LOG.STRING
3350: (
3351: FND_LOG.LEVEL_ERROR,
3352: 'FPA.SQL.FPA_PROCESS_PVT.Refresh_Projects',
3353: SQLERRM
3354: );
3355: END IF;
3388: BEGIN
3389:
3390: FND_MSG_PUB.Initialize;
3391:
3392: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3393: FND_LOG.STRING
3394: (
3395: FND_LOG.LEVEL_PROCEDURE,
3396: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.begin',
3389:
3390: FND_MSG_PUB.Initialize;
3391:
3392: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3393: FND_LOG.STRING
3394: (
3395: FND_LOG.LEVEL_PROCEDURE,
3396: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.begin',
3397: 'Entering FPA_PROCESS_PVT.Remove_Projects'
3391:
3392: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3393: FND_LOG.STRING
3394: (
3395: FND_LOG.LEVEL_PROCEDURE,
3396: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.begin',
3397: 'Entering FPA_PROCESS_PVT.Remove_Projects'
3398: );
3399: END IF;
3413: x_msg_count => x_msg_count,
3414: x_msg_data => x_msg_data
3415: );
3416:
3417: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3418: FND_LOG.STRING
3419: (
3420: FND_LOG.LEVEL_PROCEDURE,
3421: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3414: x_msg_data => x_msg_data
3415: );
3416:
3417: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3418: FND_LOG.STRING
3419: (
3420: FND_LOG.LEVEL_PROCEDURE,
3421: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3422: 'calling FPA_SCENARIO_PVT.remove_project_from_scenario'
3416:
3417: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3418: FND_LOG.STRING
3419: (
3420: FND_LOG.LEVEL_PROCEDURE,
3421: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3422: 'calling FPA_SCENARIO_PVT.remove_project_from_scenario'
3423: );
3424: END IF;
3436: x_msg_count => x_msg_count
3437: );
3438:
3439:
3440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3441: FND_LOG.STRING
3442: (
3443: FND_LOG.LEVEL_PROCEDURE,
3444: 'fpa.sql.fpa_process_pvt.remove_project',
3437: );
3438:
3439:
3440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3441: FND_LOG.STRING
3442: (
3443: FND_LOG.LEVEL_PROCEDURE,
3444: 'fpa.sql.fpa_process_pvt.remove_project',
3445: 'calling fpa_scorecards_pvt.handle_comments '||p_scenario_id||','||p_proj_id
3439:
3440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3441: FND_LOG.STRING
3442: (
3443: FND_LOG.LEVEL_PROCEDURE,
3444: 'fpa.sql.fpa_process_pvt.remove_project',
3445: 'calling fpa_scorecards_pvt.handle_comments '||p_scenario_id||','||p_proj_id
3446: );
3447: END IF;
3458: x_msg_count => x_msg_count,
3459: x_msg_data => x_msg_data);
3460:
3461:
3462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3463: FND_LOG.STRING
3464: (
3465: FND_LOG.LEVEL_PROCEDURE,
3466: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3459: x_msg_data => x_msg_data);
3460:
3461:
3462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3463: FND_LOG.STRING
3464: (
3465: FND_LOG.LEVEL_PROCEDURE,
3466: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3467: 'calling FPA_SCENARIO_PVT.calc_scenario_data in class mode'
3461:
3462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3463: FND_LOG.STRING
3464: (
3465: FND_LOG.LEVEL_PROCEDURE,
3466: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3467: 'calling FPA_SCENARIO_PVT.calc_scenario_data in class mode'
3468: );
3469: END IF;
3485: x_msg_count => x_msg_count,
3486: x_msg_data => x_msg_data
3487: );
3488:
3489: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3490: FND_LOG.STRING
3491: (
3492: FND_LOG.LEVEL_PROCEDURE,
3493: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3486: x_msg_data => x_msg_data
3487: );
3488:
3489: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3490: FND_LOG.STRING
3491: (
3492: FND_LOG.LEVEL_PROCEDURE,
3493: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3494: 'calling FPA_SCENARIO_PVT.calc_scenario_data in Scenario mode'
3488:
3489: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3490: FND_LOG.STRING
3491: (
3492: FND_LOG.LEVEL_PROCEDURE,
3493: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3494: 'calling FPA_SCENARIO_PVT.calc_scenario_data in Scenario mode'
3495: );
3496: END IF;
3507: x_msg_count => x_msg_count,
3508: x_msg_data => x_msg_data
3509: );
3510:
3511: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3512: FND_LOG.STRING
3513: (
3514: FND_LOG.LEVEL_PROCEDURE,
3515: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3508: x_msg_data => x_msg_data
3509: );
3510:
3511: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3512: FND_LOG.STRING
3513: (
3514: FND_LOG.LEVEL_PROCEDURE,
3515: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3516: 'Completed all API calls. Issue UPDATE to AW'
3510:
3511: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3512: FND_LOG.STRING
3513: (
3514: FND_LOG.LEVEL_PROCEDURE,
3515: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3516: 'Completed all API calls. Issue UPDATE to AW'
3517: );
3518: END IF;
3531: x_msg_count => x_msg_count,
3532: x_msg_data => x_msg_data
3533: );
3534:
3535: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3536: FND_LOG.STRING
3537: (
3538: FND_LOG.LEVEL_PROCEDURE,
3539: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.end',
3532: x_msg_data => x_msg_data
3533: );
3534:
3535: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3536: FND_LOG.STRING
3537: (
3538: FND_LOG.LEVEL_PROCEDURE,
3539: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.end',
3540: 'Ending FPA_PROCESS_PVT.Remove_Projects'
3534:
3535: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3536: FND_LOG.STRING
3537: (
3538: FND_LOG.LEVEL_PROCEDURE,
3539: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects.end',
3540: 'Ending FPA_PROCESS_PVT.Remove_Projects'
3541: );
3542: END IF;
3555: );
3556:
3557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3558:
3559: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3560: FND_LOG.STRING
3561: (
3562: FND_LOG.LEVEL_ERROR,
3563: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3556:
3557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3558:
3559: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3560: FND_LOG.STRING
3561: (
3562: FND_LOG.LEVEL_ERROR,
3563: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3564: SQLERRM
3558:
3559: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3560: FND_LOG.STRING
3561: (
3562: FND_LOG.LEVEL_ERROR,
3563: 'FPA.SQL.FPA_PROCESS_PVT.Remove_Projects',
3564: SQLERRM
3565: );
3566: END IF;
3595: -- clear all previous messages.
3596: FND_MSG_PUB.Initialize;
3597:
3598: -- Attach the AW space read write.
3599: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3600: fnd_log.string
3601: (
3602: FND_LOG.LEVEL_STATEMENT,
3603: 'fpa.sql.fpa_process_pvt.update_strategicobj_weight',
3596: FND_MSG_PUB.Initialize;
3597:
3598: -- Attach the AW space read write.
3599: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3600: fnd_log.string
3601: (
3602: FND_LOG.LEVEL_STATEMENT,
3603: 'fpa.sql.fpa_process_pvt.update_strategicobj_weight',
3604: 'Attaching OLAP workspace: '
3598: -- Attach the AW space read write.
3599: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3600: fnd_log.string
3601: (
3602: FND_LOG.LEVEL_STATEMENT,
3603: 'fpa.sql.fpa_process_pvt.update_strategicobj_weight',
3604: 'Attaching OLAP workspace: '
3605: );
3606: END IF;
3625: x_msg_data => x_msg_data
3626: );
3627:
3628: -- Finally, detach the workspace
3629: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3630: fnd_log.string
3631: (
3632: FND_LOG.LEVEL_STATEMENT,
3633: 'fpa.sql.fpa_process_pvt.create_portfolio',
3626: );
3627:
3628: -- Finally, detach the workspace
3629: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3630: fnd_log.string
3631: (
3632: FND_LOG.LEVEL_STATEMENT,
3633: 'fpa.sql.fpa_process_pvt.create_portfolio',
3634: 'Detaching OLAP workspace: '
3628: -- Finally, detach the workspace
3629: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3630: fnd_log.string
3631: (
3632: FND_LOG.LEVEL_STATEMENT,
3633: 'fpa.sql.fpa_process_pvt.create_portfolio',
3634: 'Detaching OLAP workspace: '
3635: );
3636: END IF;
3663: );
3664:
3665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3666:
3667: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3668: FND_LOG.String
3669: (
3670: FND_LOG.LEVEL_ERROR,
3671: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3664:
3665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3666:
3667: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3668: FND_LOG.String
3669: (
3670: FND_LOG.LEVEL_ERROR,
3671: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3672: SQLERRM
3666:
3667: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3668: FND_LOG.String
3669: (
3670: FND_LOG.LEVEL_ERROR,
3671: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3672: SQLERRM
3673: );
3674: END IF;
3707: l_investment_rec.strategic_obj_name := p_strategic_obj_name;
3708: l_investment_rec.strategic_obj_desc := p_strategic_obj_desc;
3709:
3710: -- Attach the AW space read write.
3711: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3712: fnd_log.string ( FND_LOG.LEVEL_STATEMENT,
3713: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
3714: 'Attaching OLAP workspace: ');
3715: END IF;
3708: l_investment_rec.strategic_obj_desc := p_strategic_obj_desc;
3709:
3710: -- Attach the AW space read write.
3711: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3712: fnd_log.string ( FND_LOG.LEVEL_STATEMENT,
3713: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
3714: 'Attaching OLAP workspace: ');
3715: END IF;
3716:
3781: l_investment_rec.strategic_obj_parent := p_strategic_obj_parent;
3782: l_investment_rec.strategic_obj_level := p_strategic_obj_level;
3783:
3784: -- Attach the AW space read write.
3785: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3786: fnd_log.string
3787: (
3788: FND_LOG.LEVEL_STATEMENT,
3789: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
3782: l_investment_rec.strategic_obj_level := p_strategic_obj_level;
3783:
3784: -- Attach the AW space read write.
3785: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3786: fnd_log.string
3787: (
3788: FND_LOG.LEVEL_STATEMENT,
3789: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
3790: 'Attaching OLAP workspace: '
3784: -- Attach the AW space read write.
3785: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3786: fnd_log.string
3787: (
3788: FND_LOG.LEVEL_STATEMENT,
3789: 'fpa.sql.fpa_resourcetype_pvt.create_resourcetype',
3790: 'Attaching OLAP workspace: '
3791: );
3792: END IF;
3885:
3886: l_investment_rec.strategic_obj_shortname := p_strategic_obj_shortname;
3887:
3888: -- Attach the AW space read write.
3889: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3890: fnd_log.string ( FND_LOG.LEVEL_STATEMENT,
3891: 'fpa.sql.fpa_process_pvt.delete_strategicobj',
3892: 'Attaching OLAP workspace: ');
3893: END IF;
3886: l_investment_rec.strategic_obj_shortname := p_strategic_obj_shortname;
3887:
3888: -- Attach the AW space read write.
3889: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3890: fnd_log.string ( FND_LOG.LEVEL_STATEMENT,
3891: 'fpa.sql.fpa_process_pvt.delete_strategicobj',
3892: 'Attaching OLAP workspace: ');
3893: END IF;
3894:
3932: );
3933:
3934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3935:
3936: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3937: FND_LOG.String
3938: (
3939: FND_LOG.LEVEL_ERROR,
3940: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3933:
3934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3935:
3936: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3937: FND_LOG.String
3938: (
3939: FND_LOG.LEVEL_ERROR,
3940: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3941: SQLERRM
3935:
3936: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3937: FND_LOG.String
3938: (
3939: FND_LOG.LEVEL_ERROR,
3940: 'fpa.sql.FPA_Process_Pvt.Update_Pc',
3941: SQLERRM
3942: );
3943: END IF;
3991: -- clear all previous messages.
3992: FND_MSG_PUB.Initialize;
3993:
3994:
3995: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3996: FND_LOG.String
3997: (
3998: FND_LOG.LEVEL_PROCEDURE,
3999: 'fpa.sql.FPA_Process_Pvt.create_scenario.begin',
3992: FND_MSG_PUB.Initialize;
3993:
3994:
3995: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3996: FND_LOG.String
3997: (
3998: FND_LOG.LEVEL_PROCEDURE,
3999: 'fpa.sql.FPA_Process_Pvt.create_scenario.begin',
4000: 'Entering FPA_Process_Pvt.create_scenario'
3994:
3995: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3996: FND_LOG.String
3997: (
3998: FND_LOG.LEVEL_PROCEDURE,
3999: 'fpa.sql.FPA_Process_Pvt.create_scenario.begin',
4000: 'Entering FPA_Process_Pvt.create_scenario'
4001: );
4002: END IF;
4000: 'Entering FPA_Process_Pvt.create_scenario'
4001: );
4002: END IF;
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4005: FND_LOG.String
4006: (
4007: FND_LOG.LEVEL_PROCEDURE,
4008: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4001: );
4002: END IF;
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4005: FND_LOG.String
4006: (
4007: FND_LOG.LEVEL_PROCEDURE,
4008: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4009: 'Checking Scenario name does not exist for this planning cycle.'
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4005: FND_LOG.String
4006: (
4007: FND_LOG.LEVEL_PROCEDURE,
4008: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4009: 'Checking Scenario name does not exist for this planning cycle.'
4010: );
4011: END IF;
4027: FND_MSG_PUB.ADD;
4028: RAISE FND_API.G_EXC_ERROR;
4029: END IF;
4030:
4031: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4032: FND_LOG.String
4033: (
4034: FND_LOG.LEVEL_PROCEDURE,
4035: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4028: RAISE FND_API.G_EXC_ERROR;
4029: END IF;
4030:
4031: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4032: FND_LOG.String
4033: (
4034: FND_LOG.LEVEL_PROCEDURE,
4035: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4036: 'Attaching AW space.'
4030:
4031: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4032: FND_LOG.String
4033: (
4034: FND_LOG.LEVEL_PROCEDURE,
4035: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4036: 'Attaching AW space.'
4037: );
4038: END IF;
4046: x_msg_count => x_msg_count,
4047: x_msg_data => x_msg_data
4048: );
4049:
4050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4051: FND_LOG.String
4052: (
4053: FND_LOG.LEVEL_PROCEDURE,
4054: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4047: x_msg_data => x_msg_data
4048: );
4049:
4050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4051: FND_LOG.String
4052: (
4053: FND_LOG.LEVEL_PROCEDURE,
4054: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4055: 'Calling procedure fpa_scenario_pvt.create_scenario.'
4049:
4050: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4051: FND_LOG.String
4052: (
4053: FND_LOG.LEVEL_PROCEDURE,
4054: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4055: 'Calling procedure fpa_scenario_pvt.create_scenario.'
4056: );
4057: END IF;
4068: x_msg_count => x_msg_count,
4069: x_msg_data => x_msg_data
4070: );
4071:
4072: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4073: FND_LOG.String
4074: (
4075: FND_LOG.LEVEL_PROCEDURE,
4076: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4069: x_msg_data => x_msg_data
4070: );
4071:
4072: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4073: FND_LOG.String
4074: (
4075: FND_LOG.LEVEL_PROCEDURE,
4076: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4077: 'Calling fpa_scenario_pvt.copy_scenario_data.'
4071:
4072: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4073: FND_LOG.String
4074: (
4075: FND_LOG.LEVEL_PROCEDURE,
4076: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4077: 'Calling fpa_scenario_pvt.copy_scenario_data.'
4078: );
4079: END IF;
4088: x_msg_count => x_msg_count,
4089: x_msg_data => x_msg_data
4090: );
4091:
4092: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4093: FND_LOG.String
4094: (
4095: FND_LOG.LEVEL_PROCEDURE,
4096: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4089: x_msg_data => x_msg_data
4090: );
4091:
4092: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4093: FND_LOG.String
4094: (
4095: FND_LOG.LEVEL_PROCEDURE,
4096: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4097: 'Calling fpa_scenario_pvt.update_scenario_disc_rate.'
4091:
4092: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4093: FND_LOG.String
4094: (
4095: FND_LOG.LEVEL_PROCEDURE,
4096: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4097: 'Calling fpa_scenario_pvt.update_scenario_disc_rate.'
4098: );
4099: END IF;
4107: x_msg_count => x_msg_count,
4108: x_msg_data => x_msg_data
4109: );
4110:
4111: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4112: FND_LOG.String
4113: (
4114: FND_LOG.LEVEL_PROCEDURE,
4115: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4108: x_msg_data => x_msg_data
4109: );
4110:
4111: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4112: FND_LOG.String
4113: (
4114: FND_LOG.LEVEL_PROCEDURE,
4115: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4116: 'Calling fpa_scenario_pvt.update_scenario_funds_avail.'
4110:
4111: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4112: FND_LOG.String
4113: (
4114: FND_LOG.LEVEL_PROCEDURE,
4115: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4116: 'Calling fpa_scenario_pvt.update_scenario_funds_avail.'
4117: );
4118: END IF;
4126: x_msg_count => x_msg_count,
4127: x_msg_data => x_msg_data
4128: );
4129:
4130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4131: FND_LOG.String
4132: (
4133: FND_LOG.LEVEL_PROCEDURE,
4134: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4127: x_msg_data => x_msg_data
4128: );
4129:
4130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4131: FND_LOG.String
4132: (
4133: FND_LOG.LEVEL_PROCEDURE,
4134: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4135: 'Calling fpa_scenario_pvt.calc_scenario_data for Project Financial Metrics.'
4129:
4130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4131: FND_LOG.String
4132: (
4133: FND_LOG.LEVEL_PROCEDURE,
4134: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4135: 'Calling fpa_scenario_pvt.calc_scenario_data for Project Financial Metrics.'
4136: );
4137: END IF;
4149: x_msg_count => x_msg_count,
4150: x_msg_data => x_msg_data
4151: );
4152:
4153: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4154: FND_LOG.String
4155: (
4156: FND_LOG.LEVEL_PROCEDURE,
4157: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4150: x_msg_data => x_msg_data
4151: );
4152:
4153: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4154: FND_LOG.String
4155: (
4156: FND_LOG.LEVEL_PROCEDURE,
4157: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4158: 'Calling fpa_scenario_pvt.calc_scenario_data for Class Codes..'
4152:
4153: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4154: FND_LOG.String
4155: (
4156: FND_LOG.LEVEL_PROCEDURE,
4157: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4158: 'Calling fpa_scenario_pvt.calc_scenario_data for Class Codes..'
4159: );
4160: END IF;
4172: x_msg_count => x_msg_count,
4173: x_msg_data => x_msg_data
4174: );
4175:
4176: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4177: FND_LOG.String
4178: (
4179: FND_LOG.LEVEL_PROCEDURE,
4180: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4173: x_msg_data => x_msg_data
4174: );
4175:
4176: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4177: FND_LOG.String
4178: (
4179: FND_LOG.LEVEL_PROCEDURE,
4180: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4181: 'Calling fpa_scenario_pvt.calc_scenario_data for Scenario.'
4175:
4176: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4177: FND_LOG.String
4178: (
4179: FND_LOG.LEVEL_PROCEDURE,
4180: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4181: 'Calling fpa_scenario_pvt.calc_scenario_data for Scenario.'
4182: );
4183: END IF;
4195: x_msg_count => x_msg_count,
4196: x_msg_data => x_msg_data
4197: );
4198:
4199: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4200: FND_LOG.String
4201: (
4202: FND_LOG.LEVEL_PROCEDURE,
4203: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4196: x_msg_data => x_msg_data
4197: );
4198:
4199: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4200: FND_LOG.String
4201: (
4202: FND_LOG.LEVEL_PROCEDURE,
4203: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4204: 'Calling fpa_scorecards_pvt.handle_comments.'
4198:
4199: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4200: FND_LOG.String
4201: (
4202: FND_LOG.LEVEL_PROCEDURE,
4203: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4204: 'Calling fpa_scorecards_pvt.handle_comments.'
4205: );
4206: END IF;
4217: x_msg_count => x_msg_count,
4218: x_msg_data => x_msg_data);
4219:
4220:
4221: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4222: FND_LOG.String
4223: (
4224: FND_LOG.LEVEL_PROCEDURE,
4225: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4218: x_msg_data => x_msg_data);
4219:
4220:
4221: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4222: FND_LOG.String
4223: (
4224: FND_LOG.LEVEL_PROCEDURE,
4225: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4226: 'Calling Fpa_Validation_Process_Pvt.Validate_Budget_Versions.'
4220:
4221: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4222: FND_LOG.String
4223: (
4224: FND_LOG.LEVEL_PROCEDURE,
4225: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4226: 'Calling Fpa_Validation_Process_Pvt.Validate_Budget_Versions.'
4227: );
4228: END IF;
4236: x_return_status => x_return_status,
4237: x_msg_count => x_msg_count,
4238: x_msg_data => x_msg_data);
4239:
4240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4241: FND_LOG.STRING
4242: (
4243: FND_LOG.LEVEL_PROCEDURE,
4244: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4237: x_msg_count => x_msg_count,
4238: x_msg_data => x_msg_data);
4239:
4240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4241: FND_LOG.STRING
4242: (
4243: FND_LOG.LEVEL_PROCEDURE,
4244: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4245: 'End Fpa_Validation_Process_Pvt.Validate_Budget_Versions.end'
4239:
4240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4241: FND_LOG.STRING
4242: (
4243: FND_LOG.LEVEL_PROCEDURE,
4244: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4245: 'End Fpa_Validation_Process_Pvt.Validate_Budget_Versions.end'
4246: );
4247: END IF;
4246: );
4247: END IF;
4248:
4249: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR
4250: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4251: FND_LOG.STRING
4252: (
4253: FND_LOG.LEVEL_PROCEDURE,
4254: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4247: END IF;
4248:
4249: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR
4250: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4251: FND_LOG.STRING
4252: (
4253: FND_LOG.LEVEL_PROCEDURE,
4254: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4255: 'unexpected error - create_scenario.Validate_Budget_Versions'
4249: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR
4250: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4251: FND_LOG.STRING
4252: (
4253: FND_LOG.LEVEL_PROCEDURE,
4254: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4255: 'unexpected error - create_scenario.Validate_Budget_Versions'
4256: );
4257: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR
4254: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4255: 'unexpected error - create_scenario.Validate_Budget_Versions'
4256: );
4257: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR
4258: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4259: FND_LOG.STRING
4260: (
4261: FND_LOG.LEVEL_PROCEDURE,
4262: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4255: 'unexpected error - create_scenario.Validate_Budget_Versions'
4256: );
4257: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR
4258: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4259: FND_LOG.STRING
4260: (
4261: FND_LOG.LEVEL_PROCEDURE,
4262: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4263: 'error - create_scenario.Validate_Budget_Versions'
4257: elsif (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_ERROR
4258: and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4259: FND_LOG.STRING
4260: (
4261: FND_LOG.LEVEL_PROCEDURE,
4262: 'fpa.sql.Fpa_Validation_Process_Pvt.Validate_Budget_Versions',
4263: 'error - create_scenario.Validate_Budget_Versions'
4264: );
4265: end if;
4269: dbms_aw.execute('UPDATE');
4270: COMMIT;
4271: END IF;
4272:
4273: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4274: FND_LOG.String
4275: (
4276: FND_LOG.LEVEL_PROCEDURE,
4277: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4270: COMMIT;
4271: END IF;
4272:
4273: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4274: FND_LOG.String
4275: (
4276: FND_LOG.LEVEL_PROCEDURE,
4277: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4278: 'Detach AW space.'
4272:
4273: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4274: FND_LOG.String
4275: (
4276: FND_LOG.LEVEL_PROCEDURE,
4277: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4278: 'Detach AW space.'
4279: );
4280: END IF;
4307: x_msg_data => x_msg_data
4308: );
4309: ROLLBACK;
4310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4311: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4312: FND_LOG.String
4313: (
4314: FND_LOG.LEVEL_ERROR,
4315: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4308: );
4309: ROLLBACK;
4310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4311: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4312: FND_LOG.String
4313: (
4314: FND_LOG.LEVEL_ERROR,
4315: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4316: SQLERRM
4310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4311: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4312: FND_LOG.String
4313: (
4314: FND_LOG.LEVEL_ERROR,
4315: 'fpa.sql.FPA_Process_Pvt.create_scenario',
4316: SQLERRM
4317: );
4318: END IF;
4346:
4347: -- clear all previous messages.
4348: FND_MSG_PUB.Initialize;
4349:
4350: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4351: FND_LOG.String
4352: (
4353: FND_LOG.LEVEL_PROCEDURE,
4354: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag.begin',
4347: -- clear all previous messages.
4348: FND_MSG_PUB.Initialize;
4349:
4350: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4351: FND_LOG.String
4352: (
4353: FND_LOG.LEVEL_PROCEDURE,
4354: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag.begin',
4355: 'Entering FPA_Process_Pvt.set_scenario_action_flag'
4349:
4350: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4351: FND_LOG.String
4352: (
4353: FND_LOG.LEVEL_PROCEDURE,
4354: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag.begin',
4355: 'Entering FPA_Process_Pvt.set_scenario_action_flag'
4356: );
4357: END IF;
4355: 'Entering FPA_Process_Pvt.set_scenario_action_flag'
4356: );
4357: END IF;
4358:
4359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4360: FND_LOG.String
4361: (
4362: FND_LOG.LEVEL_PROCEDURE,
4363: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4356: );
4357: END IF;
4358:
4359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4360: FND_LOG.String
4361: (
4362: FND_LOG.LEVEL_PROCEDURE,
4363: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4364: 'Attaching AW space.'
4358:
4359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4360: FND_LOG.String
4361: (
4362: FND_LOG.LEVEL_PROCEDURE,
4363: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4364: 'Attaching AW space.'
4365: );
4366: END IF;
4374: x_msg_count => x_msg_count,
4375: x_msg_data => x_msg_data
4376: );
4377:
4378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4379: FND_LOG.String
4380: (
4381: FND_LOG.LEVEL_PROCEDURE,
4382: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4375: x_msg_data => x_msg_data
4376: );
4377:
4378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4379: FND_LOG.String
4380: (
4381: FND_LOG.LEVEL_PROCEDURE,
4382: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4383: 'Determininig what procedure to call based on p_scenario_action.'
4377:
4378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4379: FND_LOG.String
4380: (
4381: FND_LOG.LEVEL_PROCEDURE,
4382: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4383: 'Determininig what procedure to call based on p_scenario_action.'
4384: );
4385: END IF;
4384: );
4385: END IF;
4386:
4387: if upper(p_scenario_action) = 'RECOMMEND' then
4388: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4389: FND_LOG.String
4390: (
4391: FND_LOG.LEVEL_PROCEDURE,
4392: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4385: END IF;
4386:
4387: if upper(p_scenario_action) = 'RECOMMEND' then
4388: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4389: FND_LOG.String
4390: (
4391: FND_LOG.LEVEL_PROCEDURE,
4392: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4393: 'Determininig what procedure to call based on p_scenario_action.'
4387: if upper(p_scenario_action) = 'RECOMMEND' then
4388: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4389: FND_LOG.String
4390: (
4391: FND_LOG.LEVEL_PROCEDURE,
4392: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4393: 'Determininig what procedure to call based on p_scenario_action.'
4394: );
4395: END IF;
4403: x_msg_count => x_msg_count,
4404: x_msg_data => x_msg_data
4405: );
4406: elsif upper(p_scenario_action) = 'APPROVE' then
4407: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4408: FND_LOG.String
4409: (
4410: FND_LOG.LEVEL_PROCEDURE,
4411: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4404: x_msg_data => x_msg_data
4405: );
4406: elsif upper(p_scenario_action) = 'APPROVE' then
4407: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4408: FND_LOG.String
4409: (
4410: FND_LOG.LEVEL_PROCEDURE,
4411: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4412: 'Determininig what procedure to call based on p_scenario_action.'
4406: elsif upper(p_scenario_action) = 'APPROVE' then
4407: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4408: FND_LOG.String
4409: (
4410: FND_LOG.LEVEL_PROCEDURE,
4411: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4412: 'Determininig what procedure to call based on p_scenario_action.'
4413: );
4414: END IF;
4421: x_msg_data => x_msg_data
4422: );
4423:
4424: elsif upper(p_scenario_action) = 'WITHDRAW' then
4425: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4426: FND_LOG.String
4427: (
4428: FND_LOG.LEVEL_PROCEDURE,
4429: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4422: );
4423:
4424: elsif upper(p_scenario_action) = 'WITHDRAW' then
4425: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4426: FND_LOG.String
4427: (
4428: FND_LOG.LEVEL_PROCEDURE,
4429: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4430: 'Determininig what procedure to call based on p_scenario_action.'
4424: elsif upper(p_scenario_action) = 'WITHDRAW' then
4425: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4426: FND_LOG.String
4427: (
4428: FND_LOG.LEVEL_PROCEDURE,
4429: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4430: 'Determininig what procedure to call based on p_scenario_action.'
4431: );
4432: END IF;
4440: x_msg_count => x_msg_count,
4441: x_msg_data => x_msg_data
4442: );
4443: elsif upper(p_scenario_action) = 'SETCURRENT' then
4444: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4445: FND_LOG.String
4446: (
4447: FND_LOG.LEVEL_PROCEDURE,
4448: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4441: x_msg_data => x_msg_data
4442: );
4443: elsif upper(p_scenario_action) = 'SETCURRENT' then
4444: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4445: FND_LOG.String
4446: (
4447: FND_LOG.LEVEL_PROCEDURE,
4448: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4449: 'Determininig what procedure to call based on p_scenario_action.'
4443: elsif upper(p_scenario_action) = 'SETCURRENT' then
4444: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4445: FND_LOG.String
4446: (
4447: FND_LOG.LEVEL_PROCEDURE,
4448: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4449: 'Determininig what procedure to call based on p_scenario_action.'
4450: );
4451: END IF;
4458: x_msg_data => x_msg_data
4459: );
4460: end if;
4461:
4462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4463: FND_LOG.String
4464: (
4465: FND_LOG.LEVEL_PROCEDURE,
4466: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4459: );
4460: end if;
4461:
4462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4463: FND_LOG.String
4464: (
4465: FND_LOG.LEVEL_PROCEDURE,
4466: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4467: 'Committing changes to database.'
4461:
4462: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4463: FND_LOG.String
4464: (
4465: FND_LOG.LEVEL_PROCEDURE,
4466: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4467: 'Committing changes to database.'
4468: );
4469: END IF;
4473: dbms_aw.execute('UPDATE');
4474: COMMIT;
4475: END IF;
4476:
4477: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4478: FND_LOG.String
4479: (
4480: FND_LOG.LEVEL_PROCEDURE,
4481: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4474: COMMIT;
4475: END IF;
4476:
4477: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4478: FND_LOG.String
4479: (
4480: FND_LOG.LEVEL_PROCEDURE,
4481: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4482: 'Detach AW space.'
4476:
4477: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4478: FND_LOG.String
4479: (
4480: FND_LOG.LEVEL_PROCEDURE,
4481: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4482: 'Detach AW space.'
4483: );
4484: END IF;
4511: x_msg_data => x_msg_data
4512: );
4513: ROLLBACK;
4514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4515: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4516: FND_LOG.String
4517: (
4518: FND_LOG.LEVEL_ERROR,
4519: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4512: );
4513: ROLLBACK;
4514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4515: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4516: FND_LOG.String
4517: (
4518: FND_LOG.LEVEL_ERROR,
4519: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4520: SQLERRM
4514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4515: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4516: FND_LOG.String
4517: (
4518: FND_LOG.LEVEL_ERROR,
4519: 'fpa.sql.FPA_Process_Pvt.set_scenario_action_flag',
4520: SQLERRM
4521: );
4522: END IF;
4547: -- clear all previous messages.
4548: FND_MSG_PUB.Initialize;
4549:
4550:
4551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4552: FND_LOG.String
4553: (
4554: FND_LOG.LEVEL_PROCEDURE,
4555: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status.begin',
4548: FND_MSG_PUB.Initialize;
4549:
4550:
4551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4552: FND_LOG.String
4553: (
4554: FND_LOG.LEVEL_PROCEDURE,
4555: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status.begin',
4556: 'Entering FPA_Process_Pvt.update_scenario_reccom_status'
4550:
4551: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4552: FND_LOG.String
4553: (
4554: FND_LOG.LEVEL_PROCEDURE,
4555: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status.begin',
4556: 'Entering FPA_Process_Pvt.update_scenario_reccom_status'
4557: );
4558: END IF;
4556: 'Entering FPA_Process_Pvt.update_scenario_reccom_status'
4557: );
4558: END IF;
4559:
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4561: FND_LOG.String
4562: (
4563: FND_LOG.LEVEL_PROCEDURE,
4564: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4557: );
4558: END IF;
4559:
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4561: FND_LOG.String
4562: (
4563: FND_LOG.LEVEL_PROCEDURE,
4564: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4565: 'Attaching AW space.'
4559:
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4561: FND_LOG.String
4562: (
4563: FND_LOG.LEVEL_PROCEDURE,
4564: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4565: 'Attaching AW space.'
4566: );
4567: END IF;
4575: x_msg_count => x_msg_count,
4576: x_msg_data => x_msg_data
4577: );
4578:
4579: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4580: FND_LOG.String
4581: (
4582: FND_LOG.LEVEL_PROCEDURE,
4583: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4576: x_msg_data => x_msg_data
4577: );
4578:
4579: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4580: FND_LOG.String
4581: (
4582: FND_LOG.LEVEL_PROCEDURE,
4583: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4584: 'Calling procedure fpa_scenario_pvt.update_scenario_reccom_status.'
4578:
4579: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4580: FND_LOG.String
4581: (
4582: FND_LOG.LEVEL_PROCEDURE,
4583: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4584: 'Calling procedure fpa_scenario_pvt.update_scenario_reccom_status.'
4585: );
4586: END IF;
4595: x_msg_count => x_msg_count,
4596: x_msg_data => x_msg_data
4597: );
4598:
4599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4600: FND_LOG.String
4601: (
4602: FND_LOG.LEVEL_PROCEDURE,
4603: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4596: x_msg_data => x_msg_data
4597: );
4598:
4599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4600: FND_LOG.String
4601: (
4602: FND_LOG.LEVEL_PROCEDURE,
4603: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4604: 'Calling procedure fpa_scenario_pvt.calc_scenario_data for Class Codes.'
4598:
4599: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4600: FND_LOG.String
4601: (
4602: FND_LOG.LEVEL_PROCEDURE,
4603: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4604: 'Calling procedure fpa_scenario_pvt.calc_scenario_data for Class Codes.'
4605: );
4606: END IF;
4616: x_msg_count => x_msg_count,
4617: x_msg_data => x_msg_data
4618: );
4619:
4620: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4621: FND_LOG.String
4622: (
4623: FND_LOG.LEVEL_PROCEDURE,
4624: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4617: x_msg_data => x_msg_data
4618: );
4619:
4620: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4621: FND_LOG.String
4622: (
4623: FND_LOG.LEVEL_PROCEDURE,
4624: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4625: 'Calling procedure fpa_scenario_pvt.calc_scenario_data for Scenario.'
4619:
4620: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4621: FND_LOG.String
4622: (
4623: FND_LOG.LEVEL_PROCEDURE,
4624: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4625: 'Calling procedure fpa_scenario_pvt.calc_scenario_data for Scenario.'
4626: );
4627: END IF;
4637: x_msg_count => x_msg_count,
4638: x_msg_data => x_msg_data
4639: );
4640:
4641: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4642: FND_LOG.String
4643: (
4644: FND_LOG.LEVEL_PROCEDURE,
4645: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4638: x_msg_data => x_msg_data
4639: );
4640:
4641: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4642: FND_LOG.String
4643: (
4644: FND_LOG.LEVEL_PROCEDURE,
4645: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4646: 'Committing changes to database.'
4640:
4641: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4642: FND_LOG.String
4643: (
4644: FND_LOG.LEVEL_PROCEDURE,
4645: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4646: 'Committing changes to database.'
4647: );
4648: END IF;
4652: dbms_aw.execute('UPDATE');
4653: COMMIT;
4654: END IF;
4655:
4656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4657: FND_LOG.String
4658: (
4659: FND_LOG.LEVEL_PROCEDURE,
4660: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4653: COMMIT;
4654: END IF;
4655:
4656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4657: FND_LOG.String
4658: (
4659: FND_LOG.LEVEL_PROCEDURE,
4660: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4661: 'Detach AW space.'
4655:
4656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4657: FND_LOG.String
4658: (
4659: FND_LOG.LEVEL_PROCEDURE,
4660: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4661: 'Detach AW space.'
4662: );
4663: END IF;
4690: x_msg_data => x_msg_data
4691: );
4692: ROLLBACK;
4693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4694: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4695: FND_LOG.String
4696: (
4697: FND_LOG.LEVEL_ERROR,
4698: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4691: );
4692: ROLLBACK;
4693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4694: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4695: FND_LOG.String
4696: (
4697: FND_LOG.LEVEL_ERROR,
4698: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4699: SQLERRM
4693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4694: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4695: FND_LOG.String
4696: (
4697: FND_LOG.LEVEL_ERROR,
4698: 'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
4699: SQLERRM
4700: );
4701: END IF;
5004:
5005: -- clear all previous messages.
5006: FND_MSG_PUB.Initialize;
5007:
5008: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5009: fnd_log.string
5010: (
5011: FND_LOG.LEVEL_PROCEDURE,
5012: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5005: -- clear all previous messages.
5006: FND_MSG_PUB.Initialize;
5007:
5008: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5009: fnd_log.string
5010: (
5011: FND_LOG.LEVEL_PROCEDURE,
5012: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5013: 'Entering fpa_process_pvt.close_pc ,Calling Fpa_Utilities_Pvt.attach_AW'
5007:
5008: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5009: fnd_log.string
5010: (
5011: FND_LOG.LEVEL_PROCEDURE,
5012: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5013: 'Entering fpa_process_pvt.close_pc ,Calling Fpa_Utilities_Pvt.attach_AW'
5014: );
5015: END IF;
5024: x_msg_data => x_msg_data
5025: );
5026:
5027:
5028: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5029: fnd_log.string
5030: (
5031: FND_LOG.LEVEL_STATEMENT,
5032: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5025: );
5026:
5027:
5028: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5029: fnd_log.string
5030: (
5031: FND_LOG.LEVEL_STATEMENT,
5032: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5033: 'Calling fpa_main_process_pvt.raise_closepc_event'
5027:
5028: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5029: fnd_log.string
5030: (
5031: FND_LOG.LEVEL_STATEMENT,
5032: 'fpa.sql.fpa_process_pvt.close_pc.begin',
5033: 'Calling fpa_main_process_pvt.raise_closepc_event'
5034: );
5035: END IF;
5041: );
5042:
5043: -- Update and commit our changes
5044: IF (p_commit = FND_API.G_TRUE) THEN
5045: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5046: FND_LOG.String
5047: ( FND_LOG.LEVEL_PROCEDURE,
5048: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5049: 'Updating and Committing.'
5042:
5043: -- Update and commit our changes
5044: IF (p_commit = FND_API.G_TRUE) THEN
5045: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5046: FND_LOG.String
5047: ( FND_LOG.LEVEL_PROCEDURE,
5048: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5049: 'Updating and Committing.'
5050: );
5043: -- Update and commit our changes
5044: IF (p_commit = FND_API.G_TRUE) THEN
5045: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5046: FND_LOG.String
5047: ( FND_LOG.LEVEL_PROCEDURE,
5048: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5049: 'Updating and Committing.'
5050: );
5051: END IF;
5052: dbms_aw.execute('UPDATE');
5053: COMMIT;
5054: END IF;
5055:
5056: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5057: FND_LOG.String
5058: ( FND_LOG.LEVEL_PROCEDURE,
5059: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5060: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
5053: COMMIT;
5054: END IF;
5055:
5056: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5057: FND_LOG.String
5058: ( FND_LOG.LEVEL_PROCEDURE,
5059: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5060: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
5061: );
5054: END IF;
5055:
5056: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5057: FND_LOG.String
5058: ( FND_LOG.LEVEL_PROCEDURE,
5059: 'fpa.sql.FPA_Process_Pvt.Close_Pc',
5060: 'CAlling Fpa_Utilities_Pvt.detach_AW.'
5061: );
5062: END IF;
5069: x_msg_count => x_msg_count,
5070: x_msg_data => x_msg_data
5071: );
5072:
5073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5074: FND_LOG.String
5075: (
5076: FND_LOG.LEVEL_PROCEDURE,
5077: 'fpa.sql.FPA_Process_Pvt.Close_Pc.end',
5070: x_msg_data => x_msg_data
5071: );
5072:
5073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5074: FND_LOG.String
5075: (
5076: FND_LOG.LEVEL_PROCEDURE,
5077: 'fpa.sql.FPA_Process_Pvt.Close_Pc.end',
5078: 'Exiting FPA_Process_Pvt.Close_Pc'
5072:
5073: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5074: FND_LOG.String
5075: (
5076: FND_LOG.LEVEL_PROCEDURE,
5077: 'fpa.sql.FPA_Process_Pvt.Close_Pc.end',
5078: 'Exiting FPA_Process_Pvt.Close_Pc'
5079: );
5080: END IF;
5082: EXCEPTION
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: ROLLBACK;
5085: x_return_status := FND_API.G_RET_STS_ERROR;
5086: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5087: fnd_log.string
5088: (FND_LOG.LEVEL_ERROR,
5089: 'fpa_process_pvt.create_portfolio',
5090: SQLERRM);
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: ROLLBACK;
5085: x_return_status := FND_API.G_RET_STS_ERROR;
5086: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5087: fnd_log.string
5088: (FND_LOG.LEVEL_ERROR,
5089: 'fpa_process_pvt.create_portfolio',
5090: SQLERRM);
5091: END IF;
5084: ROLLBACK;
5085: x_return_status := FND_API.G_RET_STS_ERROR;
5086: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5087: fnd_log.string
5088: (FND_LOG.LEVEL_ERROR,
5089: 'fpa_process_pvt.create_portfolio',
5090: SQLERRM);
5091: END IF;
5092: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5105: x_msg_data => x_msg_data
5106: );
5107: ROLLBACK;
5108: x_return_status := FND_API.G_RET_STS_ERROR;
5109: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5110: fnd_log.string
5111: ( FND_LOG.LEVEL_ERROR,
5112: 'fpa_process_pvt.Close_Pc',
5113: SQLERRM);
5106: );
5107: ROLLBACK;
5108: x_return_status := FND_API.G_RET_STS_ERROR;
5109: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5110: fnd_log.string
5111: ( FND_LOG.LEVEL_ERROR,
5112: 'fpa_process_pvt.Close_Pc',
5113: SQLERRM);
5114: END IF;
5107: ROLLBACK;
5108: x_return_status := FND_API.G_RET_STS_ERROR;
5109: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5110: fnd_log.string
5111: ( FND_LOG.LEVEL_ERROR,
5112: 'fpa_process_pvt.Close_Pc',
5113: SQLERRM);
5114: END IF;
5115: FND_MSG_PUB.count_and_get
5135:
5136: -- clear all previous messages.
5137: FND_MSG_PUB.Initialize;
5138:
5139: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5140: FND_LOG.String
5141: (
5142: FND_LOG.LEVEL_PROCEDURE,
5143: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.begin',
5136: -- clear all previous messages.
5137: FND_MSG_PUB.Initialize;
5138:
5139: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5140: FND_LOG.String
5141: (
5142: FND_LOG.LEVEL_PROCEDURE,
5143: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.begin',
5144: 'Entering FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
5138:
5139: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5140: FND_LOG.String
5141: (
5142: FND_LOG.LEVEL_PROCEDURE,
5143: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.begin',
5144: 'Entering FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
5145: );
5146: END IF;
5177: x_return_status => x_return_status,
5178: x_msg_count => x_msg_count,
5179: x_msg_data => x_msg_data
5180: );
5181: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5182: FND_LOG.String
5183: (
5184: FND_LOG.LEVEL_PROCEDURE,
5185: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.end',
5178: x_msg_count => x_msg_count,
5179: x_msg_data => x_msg_data
5180: );
5181: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5182: FND_LOG.String
5183: (
5184: FND_LOG.LEVEL_PROCEDURE,
5185: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.end',
5186: 'Exiting FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
5180: );
5181: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5182: FND_LOG.String
5183: (
5184: FND_LOG.LEVEL_PROCEDURE,
5185: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.end',
5186: 'Exiting FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
5187: );
5188: END IF;
5206: );
5207:
5208: x_return_status := FND_API.G_RET_STS_ERROR;
5209:
5210: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5211: FND_LOG.String
5212: (
5213: FND_LOG.LEVEL_ERROR,
5214: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks',
5207:
5208: x_return_status := FND_API.G_RET_STS_ERROR;
5209:
5210: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5211: FND_LOG.String
5212: (
5213: FND_LOG.LEVEL_ERROR,
5214: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks',
5215: SQLERRM
5209:
5210: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5211: FND_LOG.String
5212: (
5213: FND_LOG.LEVEL_ERROR,
5214: 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks',
5215: SQLERRM
5216: );
5217: END IF;
5236: x_msg_data OUT NOCOPY VARCHAR2) IS
5237:
5238: BEGIN
5239:
5240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5241: FND_LOG.String
5242: (
5243: FND_LOG.LEVEL_PROCEDURE,
5244: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.Begin',
5237:
5238: BEGIN
5239:
5240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5241: FND_LOG.String
5242: (
5243: FND_LOG.LEVEL_PROCEDURE,
5244: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.Begin',
5245: 'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
5239:
5240: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5241: FND_LOG.String
5242: (
5243: FND_LOG.LEVEL_PROCEDURE,
5244: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.Begin',
5245: 'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
5246: );
5247: END IF;
5268: IF p_commit = FND_API.G_TRUE THEN
5269: COMMIT;
5270: END IF;
5271:
5272: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5273: FND_LOG.String
5274: (
5275: FND_LOG.LEVEL_PROCEDURE,
5276: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.end',
5269: COMMIT;
5270: END IF;
5271:
5272: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5273: FND_LOG.String
5274: (
5275: FND_LOG.LEVEL_PROCEDURE,
5276: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.end',
5277: 'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
5271:
5272: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5273: FND_LOG.String
5274: (
5275: FND_LOG.LEVEL_PROCEDURE,
5276: 'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.end',
5277: 'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
5278: );
5279: END IF;
5338: and a.project = p_project_id;
5339:
5340: BEGIN
5341:
5342: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5343: FND_LOG.String
5344: (
5345: FND_LOG.LEVEL_PROCEDURE,
5346: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.Begin',
5339:
5340: BEGIN
5341:
5342: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5343: FND_LOG.String
5344: (
5345: FND_LOG.LEVEL_PROCEDURE,
5346: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.Begin',
5347: 'Calling procedure FPA_Process_Pvt.proj_scorecard_link_enabled.'
5341:
5342: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5343: FND_LOG.String
5344: (
5345: FND_LOG.LEVEL_PROCEDURE,
5346: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.Begin',
5347: 'Calling procedure FPA_Process_Pvt.proj_scorecard_link_enabled.'
5348: );
5349: END IF;
5354: -- Raise an Exception, return 'F', and exit the program
5355: IF pa_product_install_utils.check_function_licensed(p_function_name) <> 'Y' then
5356: l_enabled_flag := 'F';
5357:
5358: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5359: FND_LOG.String
5360: ( FND_LOG.LEVEL_STATEMENT,
5361: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5362: 'PJP License for Function '||p_function_name||' = NO. Disable Scorecard Link'
5355: IF pa_product_install_utils.check_function_licensed(p_function_name) <> 'Y' then
5356: l_enabled_flag := 'F';
5357:
5358: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5359: FND_LOG.String
5360: ( FND_LOG.LEVEL_STATEMENT,
5361: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5362: 'PJP License for Function '||p_function_name||' = NO. Disable Scorecard Link'
5363: );
5356: l_enabled_flag := 'F';
5357:
5358: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5359: FND_LOG.String
5360: ( FND_LOG.LEVEL_STATEMENT,
5361: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5362: 'PJP License for Function '||p_function_name||' = NO. Disable Scorecard Link'
5363: );
5364: END IF;
5376: -- active pl cycle exists for this project.
5377: -- Project classfications match the correct portfolio and planning cycle.
5378: l_enabled_flag := 'T';
5379:
5380: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5381: FND_LOG.String
5382: ( FND_LOG.LEVEL_STATEMENT,
5383: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5384: 'ProjectID = '||p_project_id||' Planing Cycle is active. Enable Scorecard link'
5377: -- Project classfications match the correct portfolio and planning cycle.
5378: l_enabled_flag := 'T';
5379:
5380: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5381: FND_LOG.String
5382: ( FND_LOG.LEVEL_STATEMENT,
5383: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5384: 'ProjectID = '||p_project_id||' Planing Cycle is active. Enable Scorecard link'
5385: );
5378: l_enabled_flag := 'T';
5379:
5380: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5381: FND_LOG.String
5382: ( FND_LOG.LEVEL_STATEMENT,
5383: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5384: 'ProjectID = '||p_project_id||' Planing Cycle is active. Enable Scorecard link'
5385: );
5386: END IF;
5387:
5388: else
5389: -- Licensing is available for PJP but, no active planning cycle exist.
5390: -- Scorecard link should be disabled
5391: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5392: FND_LOG.String
5393: ( FND_LOG.LEVEL_STATEMENT,
5394: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5395: 'ProjectID = '||p_project_id||' No active Planning Cycle. Disable Scorecard link'
5388: else
5389: -- Licensing is available for PJP but, no active planning cycle exist.
5390: -- Scorecard link should be disabled
5391: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5392: FND_LOG.String
5393: ( FND_LOG.LEVEL_STATEMENT,
5394: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5395: 'ProjectID = '||p_project_id||' No active Planning Cycle. Disable Scorecard link'
5396: );
5389: -- Licensing is available for PJP but, no active planning cycle exist.
5390: -- Scorecard link should be disabled
5391: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5392: FND_LOG.String
5393: ( FND_LOG.LEVEL_STATEMENT,
5394: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5395: 'ProjectID = '||p_project_id||' No active Planning Cycle. Disable Scorecard link'
5396: );
5397: END IF;
5398:
5399: end if;
5400: close c_pc_active;
5401:
5402: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5403: FND_LOG.String
5404: (
5405: FND_LOG.LEVEL_PROCEDURE,
5406: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.end',
5399: end if;
5400: close c_pc_active;
5401:
5402: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5403: FND_LOG.String
5404: (
5405: FND_LOG.LEVEL_PROCEDURE,
5406: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.end',
5407: 'Exiting FPA_Process_Pvt.proj_scorecard_link_enabled'
5401:
5402: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5403: FND_LOG.String
5404: (
5405: FND_LOG.LEVEL_PROCEDURE,
5406: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled.end',
5407: 'Exiting FPA_Process_Pvt.proj_scorecard_link_enabled'
5408: );
5409: END IF;
5411: RETURN l_enabled_flag;
5412:
5413: EXCEPTION
5414: WHEN FPA_PJP_NOT_LICENSED then
5415: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5416: FND_LOG.String
5417: ( FND_LOG.LEVEL_EXCEPTION,
5418: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5419: 'PJP Not Licensed. Score Link should be disabled'
5412:
5413: EXCEPTION
5414: WHEN FPA_PJP_NOT_LICENSED then
5415: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5416: FND_LOG.String
5417: ( FND_LOG.LEVEL_EXCEPTION,
5418: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5419: 'PJP Not Licensed. Score Link should be disabled'
5420: );
5413: EXCEPTION
5414: WHEN FPA_PJP_NOT_LICENSED then
5415: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5416: FND_LOG.String
5417: ( FND_LOG.LEVEL_EXCEPTION,
5418: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5419: 'PJP Not Licensed. Score Link should be disabled'
5420: );
5421: END IF;
5422:
5423: RETURN l_enabled_flag;
5424:
5425: when OTHERS then
5426: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5427: FND_LOG.String
5428: ( FND_LOG.LEVEL_ERROR,
5429: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5430: 'Score Link should be disabled for ProjectID '||p_project_id
5423: RETURN l_enabled_flag;
5424:
5425: when OTHERS then
5426: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5427: FND_LOG.String
5428: ( FND_LOG.LEVEL_ERROR,
5429: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5430: 'Score Link should be disabled for ProjectID '||p_project_id
5431: );
5424:
5425: when OTHERS then
5426: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5427: FND_LOG.String
5428: ( FND_LOG.LEVEL_ERROR,
5429: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5430: 'Score Link should be disabled for ProjectID '||p_project_id
5431: );
5432: END IF;
5429: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5430: 'Score Link should be disabled for ProjectID '||p_project_id
5431: );
5432: END IF;
5433: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5434: FND_LOG.String
5435: ( FND_LOG.LEVEL_ERROR,
5436: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5437: SQLERRM
5430: 'Score Link should be disabled for ProjectID '||p_project_id
5431: );
5432: END IF;
5433: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5434: FND_LOG.String
5435: ( FND_LOG.LEVEL_ERROR,
5436: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5437: SQLERRM
5438: );
5431: );
5432: END IF;
5433: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5434: FND_LOG.String
5435: ( FND_LOG.LEVEL_ERROR,
5436: 'fpa.sql.FPA_Process_Pvt.proj_scorecard_link_enabled',
5437: SQLERRM
5438: );
5439: END IF;