[Home] [Help]
72: END IF;
73:
74: IF P_PA_DEBUG_MODE = 'Y' THEN
75: pa_debug.g_err_stage:= 'Calling check_funding_level';
76: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
77: END IF;
78:
79: pa_billing_core.check_funding_level (
80: x_project_id => p_project_id,
84: x_err_stack => l_err_stack);
85:
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.g_err_stage:= 'After check_funding_level, funding level - '||l_funding_level;
88: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
89: pa_debug.g_err_stage:= 'error code - '||l_err_code;
90: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
91: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
92: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
86: IF P_PA_DEBUG_MODE = 'Y' THEN
87: pa_debug.g_err_stage:= 'After check_funding_level, funding level - '||l_funding_level;
88: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
89: pa_debug.g_err_stage:= 'error code - '||l_err_code;
90: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
91: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
92: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
93: END IF;
94:
88: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
89: pa_debug.g_err_stage:= 'error code - '||l_err_code;
90: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
91: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
92: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
93: END IF;
94:
95: IF l_err_code <> 0 then
96: x_err_code := l_err_code;
107: END IF;
108:
109: IF P_PA_DEBUG_MODE = 'Y' THEN
110: pa_debug.g_err_stage:= 'Calling budget_utils create_draft';
111: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
112: END IF;
113:
114: pa_budget_utils.create_draft
115: (x_project_id => p_project_id
143: x_err_code := l_err_code;
144:
145: IF P_PA_DEBUG_MODE = 'Y' THEN
146: pa_debug.g_err_stage:= 'After create_draft , budget version id - '||l_budget_version_id;
147: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
148: pa_debug.g_err_stage:= 'error code is -'||l_err_code;
149: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
150: pa_debug.g_err_stage:= 'error code is -'||l_err_stage;
151: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
145: IF P_PA_DEBUG_MODE = 'Y' THEN
146: pa_debug.g_err_stage:= 'After create_draft , budget version id - '||l_budget_version_id;
147: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
148: pa_debug.g_err_stage:= 'error code is -'||l_err_code;
149: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
150: pa_debug.g_err_stage:= 'error code is -'||l_err_stage;
151: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
152: END IF;
153:
147: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
148: pa_debug.g_err_stage:= 'error code is -'||l_err_code;
149: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
150: pa_debug.g_err_stage:= 'error code is -'||l_err_stage;
151: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
152: END IF;
153:
154: IF x_err_code <> 0 THEN
155:
162: IF x_err_code = 0 then
163:
164: IF P_PA_DEBUG_MODE = 'Y' THEN
165: pa_debug.g_err_stage:= 'Error Code is 0';
166: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
167: END IF;
168:
169: OPEN budget_version;
170: FETCH budget_version into l_budget_version_id;
171: CLOSE budget_version;
172:
173: IF P_PA_DEBUG_MODE = 'Y' THEN
174: pa_debug.g_err_stage:= 'Budget version ID in the table - '||l_budget_version_id;
175: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
176: END IF;
177: x_budget_version_id := l_budget_version_id;
178:
179: END IF;
179: END IF;
180:
181: IF P_PA_DEBUG_MODE = 'Y' THEN
182: pa_debug.g_err_stage:= 'x_budget_version_id = '||x_budget_version_id;
183: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
184: END IF;
185:
186: pa_debug.reset_err_stack;
187:
198: x_budget_version_id := lx_budget_version_id;
199:
200: IF P_PA_DEBUG_MODE = 'Y' THEN
201: pa_debug.g_err_stage:= 'Exception in create_draft, error - '||x_status;
202: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
203: END IF;
204: pa_debug.reset_err_stack;
205: END create_draft;
206:
252: FOR f1_rec in funding_amount loop
253:
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.g_err_stage:= 'In the loop of funding_amount';
256: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
257: END IF;
258:
259: if f1_rec.task_id is not null then
260:
286: end if;
287:
288: IF P_PA_DEBUG_MODE = 'Y' THEN
289: pa_debug.g_err_stage:= 'start date - '||l_start_date;
290: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
291: pa_debug.g_err_stage:= 'end date - '||l_end_date;
292: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
293: pa_debug.g_err_stage:= 'task id - '||l_task_id;
294: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
288: IF P_PA_DEBUG_MODE = 'Y' THEN
289: pa_debug.g_err_stage:= 'start date - '||l_start_date;
290: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
291: pa_debug.g_err_stage:= 'end date - '||l_end_date;
292: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
293: pa_debug.g_err_stage:= 'task id - '||l_task_id;
294: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
295: END IF;
296:
290: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
291: pa_debug.g_err_stage:= 'end date - '||l_end_date;
292: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
293: pa_debug.g_err_stage:= 'task id - '||l_task_id;
294: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
295: END IF;
296:
297: --dbms_output.put_line ('call util crt line');
298: IF P_PA_DEBUG_MODE = 'Y' THEN
296:
297: --dbms_output.put_line ('call util crt line');
298: IF P_PA_DEBUG_MODE = 'Y' THEN
299: pa_debug.g_err_stage:= 'Calling budget_utils create_line';
300: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
301: END IF;
302: pa_budget_utils.create_line
303: (x_budget_version_id => p_budget_version_id
304: ,x_project_id => p_project_id
339: ,x_err_stack => l_err_stack);
340:
341: IF P_PA_DEBUG_MODE = 'Y' THEN
342: pa_debug.g_err_stage:= 'After budget_utils create_line';
343: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
344: pa_debug.g_err_stage:= 'error code - '||l_err_code;
345: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
346: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
347: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
341: IF P_PA_DEBUG_MODE = 'Y' THEN
342: pa_debug.g_err_stage:= 'After budget_utils create_line';
343: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
344: pa_debug.g_err_stage:= 'error code - '||l_err_code;
345: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
346: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
347: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
348: END IF;
349:
343: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
344: pa_debug.g_err_stage:= 'error code - '||l_err_code;
345: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
346: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
347: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
348: END IF;
349:
350:
351: if l_err_code <> 0 then
360: END LOOP;
361:
362: IF P_PA_DEBUG_MODE = 'Y' THEN
363: pa_debug.g_err_stage:= 'End of create_line procedure';
364: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
365: END IF;
366:
367: pa_debug.reset_err_stack;
368:
373: x_status := substr(SQLERRM,1,50);
374:
375: IF P_PA_DEBUG_MODE = 'Y' THEN
376: pa_debug.g_err_stage:= 'In exception of create_line - '||x_status;
377: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
378: END IF;
379: pa_debug.reset_err_stack;
380: END create_line;
381:
551:
552: IF l_plan_type_id is NULL THEN
553: IF P_PA_DEBUG_MODE = 'Y' THEN
554: pa_debug.g_err_stage:= 'No Plan type ID';
555: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
556: END IF;
557:
558: /* Added for fp - end*/
559: --dbms_output.put_line ('calling create_draft ' );
570: x_status := l_status;
571: --dbms_output.put_line ('after calling create_draft -' || x_err_code);
572: IF P_PA_DEBUG_MODE = 'Y' THEN
573: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: pa_debug.g_err_stage:= 'error code - '||l_err_code;
576: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
577: pa_debug.g_err_stage:= 'error status - '||l_status;
578: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
572: IF P_PA_DEBUG_MODE = 'Y' THEN
573: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: pa_debug.g_err_stage:= 'error code - '||l_err_code;
576: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
577: pa_debug.g_err_stage:= 'error status - '||l_status;
578: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
579: END IF;
580:
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: pa_debug.g_err_stage:= 'error code - '||l_err_code;
576: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
577: pa_debug.g_err_stage:= 'error status - '||l_status;
578: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
579: END IF;
580:
581: /* END IF; */
582:
596: x_status := l_status;
597:
598: IF P_PA_DEBUG_MODE = 'Y' THEN
599: pa_debug.g_err_stage:= 'After create_line';
600: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
601: pa_debug.g_err_stage:= 'error code - '||l_err_code;
602: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
603: pa_debug.g_err_stage:= 'error status - '||l_status;
604: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
598: IF P_PA_DEBUG_MODE = 'Y' THEN
599: pa_debug.g_err_stage:= 'After create_line';
600: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
601: pa_debug.g_err_stage:= 'error code - '||l_err_code;
602: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
603: pa_debug.g_err_stage:= 'error status - '||l_status;
604: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
605: END IF;
606: /*
600: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
601: pa_debug.g_err_stage:= 'error code - '||l_err_code;
602: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
603: pa_debug.g_err_stage:= 'error status - '||l_status;
604: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
605: END IF;
606: /*
607: ELSE
608: x_status := l_status;
610: --dbms_output.put_line ('err 2 - ' || x_err_code);
611: --dbms_output.put_line ('stat 2 - ' || x_status);
612: IF P_PA_DEBUG_MODE = 'Y' THEN
613: pa_debug.g_err_stage:= 'After create_line - 1';
614: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
615: pa_debug.g_err_stage:= 'error code - '||l_err_code;
616: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: pa_debug.g_err_stage:= 'error status - '||l_status;
618: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
612: IF P_PA_DEBUG_MODE = 'Y' THEN
613: pa_debug.g_err_stage:= 'After create_line - 1';
614: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
615: pa_debug.g_err_stage:= 'error code - '||l_err_code;
616: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: pa_debug.g_err_stage:= 'error status - '||l_status;
618: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
619: END IF;
620:
614: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
615: pa_debug.g_err_stage:= 'error code - '||l_err_code;
616: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
617: pa_debug.g_err_stage:= 'error status - '||l_status;
618: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
619: END IF;
620:
621: END IF;
622: /* Added for fp */
709: /* Added for fp - end*/
710:
711: IF P_PA_DEBUG_MODE = 'Y' THEN
712: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
713: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
714: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
715: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
716: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
717: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
711: IF P_PA_DEBUG_MODE = 'Y' THEN
712: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
713: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
714: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
715: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
716: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
717: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
718: END IF;
719:
713: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
714: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
715: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
716: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
717: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
718: END IF;
719:
720: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
721: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
721: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
722: --dbms_output.put_line ('calling summerize ' );
723: IF P_PA_DEBUG_MODE = 'Y' THEN
724: pa_debug.g_err_stage:= 'Calling budget_utils summarize_project_totals';
725: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
726: END IF;
727:
728: pa_budget_utils.summerize_project_totals (
729: x_budget_version_id => l_budget_version_id,
732: x_err_stack => l_err_stack);
733:
734: IF P_PA_DEBUG_MODE = 'Y' THEN
735: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
738: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
739: END IF;
740: x_err_code := l_err_code;
734: IF P_PA_DEBUG_MODE = 'Y' THEN
735: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
738: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
739: END IF;
740: x_err_code := l_err_code;
741: x_status := l_err_stage;
742: /*
744: x_status := l_status;
745: */
746: IF P_PA_DEBUG_MODE = 'Y' THEN
747: pa_debug.g_err_stage:= 'Error status - '||l_status;
748: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
749: END IF;
750: --dbms_output.put_line ('err 3 - ' || x_err_code);
751: --dbms_output.put_line ('stat 3 - ' || x_status);
752: END IF; --For bug 4198840
756: IF x_err_code = 0 and l_plan_type_id IS NULL then
757: --dbms_output.put_line ('calling baseline ' );
758: IF P_PA_DEBUG_MODE = 'Y' THEN
759: pa_debug.g_err_stage:= 'Calling budget_core.baseline';
760: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
761: END IF;
762: pa_budget_core.baseline(
763: x_draft_version_id => l_budget_version_id,
764: x_mark_as_original => 'Y',
770: x_err_code := l_err_code;
771: x_status := l_err_stage;
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
774: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
775: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
776: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
777: END IF;
778: /*
772: IF P_PA_DEBUG_MODE = 'Y' THEN
773: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
774: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
775: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
776: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
777: END IF;
778: /*
779:
780: ELSE
779:
780: ELSE
781: IF P_PA_DEBUG_MODE = 'Y' THEN
782: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
783: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
784: END IF;
785: x_status := l_err_stage;
786: */
787: --dbms_output.put_line ('stat 4 - ' || x_status);
789: END IF;
790:
791: IF P_PA_DEBUG_MODE = 'Y' THEN
792: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
793: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
794: pa_debug.g_err_stage:= 'return status - '||l_return_status;
795: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
796: END IF;
797: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
791: IF P_PA_DEBUG_MODE = 'Y' THEN
792: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
793: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
794: pa_debug.g_err_stage:= 'return status - '||l_return_status;
795: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
796: END IF;
797: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
798: rollback to temp_pt;
799: IF P_PA_DEBUG_MODE = 'Y' THEN
797: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
798: rollback to temp_pt;
799: IF P_PA_DEBUG_MODE = 'Y' THEN
800: pa_debug.g_err_stage:= 'Rolling back';
801: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
802: END IF;
803: --dbms_output.put_line ('stat 5 - ' || x_status);
804: end if;
805: pa_debug.reset_err_stack;
808: WHEN OTHERS THEN
809:
810: IF P_PA_DEBUG_MODE = 'Y' THEN
811: pa_debug.g_err_stage:= 'In exception of create_budget_baseline';
812: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
813: END IF;
814: x_err_code := SQLCODE;
815: x_status := substr(SQLERRM,1,50);
816: IF P_PA_DEBUG_MODE = 'Y' THEN
814: x_err_code := SQLCODE;
815: x_status := substr(SQLERRM,1,50);
816: IF P_PA_DEBUG_MODE = 'Y' THEN
817: pa_debug.g_err_stage:= 'error code - '||x_err_code;
818: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
819: pa_debug.g_err_stage:= 'status - '||x_status;
820: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
821: END IF;
822:
816: IF P_PA_DEBUG_MODE = 'Y' THEN
817: pa_debug.g_err_stage:= 'error code - '||x_err_code;
818: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
819: pa_debug.g_err_stage:= 'status - '||x_status;
820: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
821: END IF;
822:
823: END create_budget_baseline;
824: