[Home] [Help]
1: PACKAGE BODY fpa_process_pvt as
2: /* $Header: FPAVPRCB.pls 120.9 2006/05/05 16:05:19 appldev noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_PROCESS_PVT';
1: PACKAGE BODY fpa_process_pvt as
2: /* $Header: FPAVPRCB.pls 120.9 2006/05/05 16:05:19 appldev noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'FPA_PROCESS_PVT';
6: G_APP_NAME CONSTANT VARCHAR2(3) := FPA_UTILITIES_PVT.G_APP_NAME;
7: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
8: L_API_NAME CONSTANT VARCHAR2(35) := 'PROCESS';
9:
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;
82: l_cntr := 1;
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;
113:
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;
123:
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;
139:
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;
139:
140: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
148:
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;
185:
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;
216:
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;
234:
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;
253:
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;
263: l_pc_info.planning_cycle := l_new_pc_id;
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;
273: l_inv_matrix_tbl(1).planning_cycle := l_new_pc_id;
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;
283: l_fin_targets_tbl(1).planning_cycle := l_new_pc_id;
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;
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;
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;
315: l_inv_criteria_tbl(1).planning_cycle := l_new_pc_id;
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;
331:
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;
351: -- There is nothing received from java, get the setup defaults and populate
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;
361: FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
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;
377:
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;
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;
396: Get_Inv_Crit_Setup_Defaults;
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;
406: FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
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;
422: l_inv_criteria_tbl := p_pc_all_obj.pc_invest_criteria;
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;
434: FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
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;
454:
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;
474:
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;
494:
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;
514:
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;
533: FPA_PlanningCycle_Pvt.Update_Pc_Currency
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;
551:
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;
573:
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;
593:
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;
613:
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;
638:
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');
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;
669:
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;
688:
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;
688:
689: EXCEPTION
699: RAISE;
700:
701: WHEN OTHERS THEN
702: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
703: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Create_Pc');
704: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
705: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
706: FND_MSG_PUB.ADD;
707: -- Detach AW Workspace
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;
727:
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;
767:
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;
767:
768: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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:
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;
788:
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;
809: FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields
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;
829: FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix
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;
850: FPA_PlanningCycle_Pvt.Update_Pc_Class_Category
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;
868: FPA_PlanningCycle_Pvt.Update_Pc_Calendar
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;
885: FPA_PlanningCycle_Pvt.Update_Pc_Currency
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;
904: FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date
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;
925: FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds
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;
945: FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets
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;
965:
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;
987: FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row
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;
1008: dbms_aw.execute('UPDATE');
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;
1021:
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;
1038:
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;
1038:
1039:
1039:
1040: EXCEPTION
1041: WHEN OTHERS THEN
1042: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1043: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Update_Pc');
1044: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1045: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1046: FND_MSG_PUB.ADD;
1047: ROLLBACK;
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;
1067:
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;
1115:
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;
1115:
1116: OPEN c_last_pc_id;
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;
1128: -- Attach AW Workspace
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;
1145:
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;
1159: fpa_utils_pvt.load_gl_calendar
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;
1179:
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;
1197:
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;
1216:
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;
1234:
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');
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;
1270: -- Detach AW Workspace
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;
1287:
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;
1287:
1288:
1288:
1289: EXCEPTION
1290: WHEN OTHERS THEN
1291: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1292: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Set_Pc_Initiate');
1293: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1294: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1295: FND_MSG_PUB.ADD;
1296: ROLLBACK;
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;
1316:
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;
1346:
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;
1346:
1347:
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;
1367:
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;
1367:
1368:
1368:
1369: EXCEPTION
1370: WHEN OTHERS THEN
1371: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1372: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row');
1373: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1374: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1375: FND_MSG_PUB.ADD;
1376: ROLLBACK;
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;
1388:
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;
1429: Copy_Portfolio(p_portfolio_obj);
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;
1429: Copy_Portfolio(p_portfolio_obj);
1430:
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;
1453: --RAISE known exception
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;
1467: Fpa_Utilities_Pvt.attach_AW
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;
1553: -- Detach AW Workspace
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;
1570:
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;
1570:
1571: EXCEPTION
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;
1585:
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;
1602:
1604: ,p_data => x_msg_data);
1605:
1606: WHEN OTHERS THEN
1607: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1608: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.create_portfolio');
1609: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1610: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1611: FND_MSG_PUB.ADD;
1612: -- Detach AW Workspace
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;
1632:
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;
1664: -- Attach the AW space read write.
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;
1664: -- Attach the AW space read write.
1665: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
1673: Fpa_Utilities_Pvt.attach_AW
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;
1710: -- Detach AW Workspace
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;
1727:
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;
1727:
1728: EXCEPTION
1729:
1730: WHEN OTHERS THEN
1731: -- Detach AW Workspace
1732: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1733: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.Delete_Portfolio');
1734: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1735: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1736: FND_MSG_PUB.ADD;
1737: -- Detach AW Workspace
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;
1757:
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;
1798:
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;
1798:
1799: --copy input object to the record type
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;
1822: --raise the known duplicate exception
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;
1836: Fpa_Utilities_Pvt.attach_AW
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;
1917: -- Detach AW Workspace
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;
1934:
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;
1934:
1935: EXCEPTION
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;
1949:
1954:
1955: WHEN OTHERS THEN
1956: -- Detach AW Workspace
1957: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
1958: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.update_portfolio');
1959: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
1960: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
1961: FND_MSG_PUB.ADD;
1962: -- Detach AW Workspace
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;
1982:
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;
2017:
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;
2017:
2018:
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;
2038: IF x_return_status <> 'S' 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;
2038: IF x_return_status <> 'S' THEN
2039: BEGIN
2049:
2050: EXCEPTION
2051: WHEN OTHERS THEN
2052: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
2053: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.delete_Portfolio_user');
2054: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
2055: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
2056: FND_MSG_PUB.ADD;
2057: -- Detach AW Workspace
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;
2076:
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;
2134:
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;
2134:
2135: x_return_status := FPA_UTILITIES_PVT.G_RET_STS_SUCCESS;
2140: p_init_msg_list => 'T',
2141: l_api_version => l_api_version,
2142: p_api_version => l_api_version,
2143: p_api_type => G_API_TYPE,
2144: p_msg_log => 'Entering fpa_process_pvt.create_update_access_list.begin',
2145: x_return_status => x_return_status);
2146:
2147: -- check if activity started successfully
2148: if (x_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
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;
2232:
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;
2232:
2233: END IF;
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;
2310:
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;
2310:
2311: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
2319:
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;
2342:
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;
2357:
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;
2379:
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;
2404:
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;
2428:
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;
2442:
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;
2459: END IF;
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;
2459: END IF;
2460: EXCEPTION
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;
2483:
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;
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:
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;
2567:
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;
2609:
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;
2609:
2610: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
2618:
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;
2618:
2619: -- Attaching and detaching A/w is not required for details load. This is handled internally within the project_details_aw API.
2616: );
2617: END IF;
2618:
2619: -- Attaching and detaching A/w is not required for details load. This is handled internally within the project_details_aw API.
2620: FPA_PROCESS_PVT.load_project_details_aw
2621: (
2622: p_api_version => 1.0,
2623: p_init_msg_list => 'F',
2624: p_commit => FND_API.G_TRUE,
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;
2655:
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;
2671:
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;
2687:
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;
2725:
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;
2738:
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;
2749:
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;
2774: l_data_to_calc := 'SCEN';
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;
2795:
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;
2815: */
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;
2877: -- Calculate npv,irr,roi for projects added to target scenario.
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;
2909:
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;
2931:
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;
2953: */
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;
3034:
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;
3034:
3035: EXCEPTION
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;
3057:
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:
3101: END IF;
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:
3101: END IF;
3102:
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;
3129:
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;
3129:
3130: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
3138: -- Attaching and detaching A/w is not required for details load. This is handled internally within the project_details_aw API.
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;
3138: -- Attaching and detaching A/w is not required for details load. This is handled internally within the project_details_aw API.
3139: FPA_PROCESS_PVT.load_project_details_aw
3135: 'Calling FPA_PROCESS_PVT.load_project_details_aw'
3136: );
3137: END IF;
3138: -- Attaching and detaching A/w is not required for details load. This is handled internally within the project_details_aw API.
3139: FPA_PROCESS_PVT.load_project_details_aw
3140: (
3141: p_api_version => 1.0,
3142: p_init_msg_list => 'F',
3143: p_commit => FND_API.G_TRUE,
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:
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;
3181:
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;
3205:
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;
3216:
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;
3241: l_data_to_calc := 'SCEN';
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;
3310:
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;
3310:
3311:
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;
3333:
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;
3333:
3334: EXCEPTION
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;
3356:
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;
3400:
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;
3400:
3401: l_api_version := 1;
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;
3425:
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;
3448:
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;
3470:
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;
3497:
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;
3519:
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;
3543:
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;
3543:
3544: EXCEPTION
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;
3567:
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;
3607:
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;
3637:
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;
3675:
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:
3895: Fpa_Utilities_Pvt.attach_AW( p_api_version => 1.0,
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;
3944:
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;
4003:
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;
4003:
4004: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
4012:
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;
4039:
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;
4058:
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;
4080:
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;
4100:
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;
4119:
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;
4138:
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;
4161:
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;
4184:
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;
4207:
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;
4229:
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;
4248:
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;
4281:
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;
4319: FND_MSG_PUB.count_and_get
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;
4358:
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;
4358:
4359: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
4367:
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;
4386:
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;
4396: l_scenario_reccom_status := 'yes';
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;
4415: l_approved_flag := 'yes';
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;
4433: l_scenario_reccom_status := 'na';
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;
4452: fpa_scenario_pvt.update_scenario_working_flag
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;
4470:
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;
4485:
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;
4523: FND_MSG_PUB.count_and_get
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;
4559:
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;
4559:
4560: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
4568:
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;
4587:
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;
4607:
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;
4628:
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;
4649:
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;
4664:
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;
4702: FND_MSG_PUB.count_and_get
4745: p_init_msg_list => p_init_msg_list,
4746: l_api_version => l_api_version,
4747: p_api_version => p_api_version,
4748: p_api_type => G_API_TYPE,
4749: p_msg_log => 'Entering Fpa_Process_Pvt.Submit_Project_Aw',
4750: x_return_status => x_return_status);
4751:
4752:
4753: -- check if activity started successfully
4876: p_init_msg_list => p_init_msg_list,
4877: l_api_version => l_api_version,
4878: p_api_version => p_api_version,
4879: p_api_type => G_API_TYPE,
4880: p_msg_log => 'Entering Fpa_Process_Pvt.Load_Project_Details_Aw',
4881: x_return_status => x_return_status);
4882:
4883:
4884: -- check if activity started successfully
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;
5016:
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;
5016:
5017: -- Attach AW Workspace
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;
5036:
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');
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;
5063:
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;
5081:
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;
5081:
5082: EXCEPTION
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
5093: ,p_data => x_msg_data);
5092: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
5093: ,p_data => x_msg_data);
5094: WHEN OTHERS THEN
5095: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
5096: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.Close_Pc');
5097: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
5098: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
5099: FND_MSG_PUB.ADD;
5100: -- Detach AW Workspace
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
5116: ( p_count => x_msg_count,
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;
5147:
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;
5147:
5148: -- Attach AW Workspace
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;
5189:
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;
5189:
5190:
5190:
5191: EXCEPTION
5192: WHEN OTHERS THEN
5193: FND_MESSAGE.SET_NAME('FPA','FPA_UNEXP_GENERAL_ERROR');
5194: FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks');
5195: FND_MESSAGE.SET_TOKEN('SQL_ERR_CODE', SQLCODE);
5196: FND_MESSAGE.SET_TOKEN('SQL_ERR_MSG', SQLERRM);
5197: FND_MSG_PUB.ADD;
5198: ROLLBACK;
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;
5218:
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;
5248:
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;
5248:
5249: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
5280:
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;
5280:
5281:
5288:
5289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5290:
5291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5292: fnd_msg_pub.add_exc_msg(p_pkg_name => 'FPA_PROCESS_PVT',
5293: p_procedure_name => 'UPDATE_PJT_PROJ_FUNDING_STATUS',
5294: p_error_text => SUBSTRB(SQLERRM,1,240));
5295:
5296:
5304: IF p_commit = FND_API.G_TRUE THEN
5305: ROLLBACK;
5306: END IF;
5307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5308: fnd_msg_pub.add_exc_msg(p_pkg_name => 'FPA_PROCESS_PVT',
5309: p_procedure_name => 'UPDATE_PJT_PROJ_FUNDING_STATUS',
5310: p_error_text => SUBSTRB(SQLERRM,1,240));
5311:
5312: RAISE;
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;
5350:
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;
5350:
5351: -- Check for Licensing profile option
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;
5365:
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:
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:
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;
5410:
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;
5410:
5411: RETURN l_enabled_flag;
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:
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;
5433: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
5440:
5441: RETURN l_enabled_flag;
5442:
5443: END proj_scorecard_link_enabled;
5444:
5445: END FPA_PROCESS_PVT;