22: | x_msg_data OUT Error message |
23: | ================================================================================== |
24: +----------------------------------------------------------------------------------------*/
25:
26: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
27: g_module_name VARCHAR2(100) := 'pa.plsql.PA_BASELINE_FUNDING_PKG';
28:
29: PROCEDURE create_draft (
30: p_project_id IN NUMBER,
65: lx_budget_version_id := x_budget_version_id;
66:
67:
68: x_err_code := 0;
69: IF p_pa_debug_mode = 'Y' THEN
70: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_DRAFT');
71: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
72: END IF;
73:
66:
67:
68: x_err_code := 0;
69: IF p_pa_debug_mode = 'Y' THEN
70: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_DRAFT');
71: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
72: END IF;
73:
74: IF P_PA_DEBUG_MODE = 'Y' THEN
67:
68: x_err_code := 0;
69: IF p_pa_debug_mode = 'Y' THEN
70: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_DRAFT');
71: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
72: END IF;
73:
74: IF P_PA_DEBUG_MODE = 'Y' THEN
75: pa_debug.g_err_stage:= 'Calling check_funding_level';
70: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_DRAFT');
71: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
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:
71: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
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 (
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,
82: x_err_code => l_err_code,
83: x_err_stage => l_err_stage,
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);
83: x_err_stage => l_err_stage,
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;
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);
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);
93: END IF;
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:
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:
95: IF l_err_code <> 0 then
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;
105: ELSIF l_funding_level = 'T' then
106: l_budget_entry_method_code := 'PA_TASKLVL_BASELINE';
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:
106: l_budget_entry_method_code := 'PA_TASKLVL_BASELINE';
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
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
141: ,x_err_stack => l_err_stack);
142:
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);
142:
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;
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);
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);
152: END IF;
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:
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:
154: IF x_err_code <> 0 THEN
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:
160: END IF ;
161:
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:
161:
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;
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;
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;
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:
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;
177: x_budget_version_id := l_budget_version_id;
178:
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:
178:
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;
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:
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:
188: EXCEPTION
189:
190: WHEN OTHERS THEN
196: /* ATG Changes */
197:
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;
197:
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;
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:
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:
207:
208: PROCEDURE create_line (
254:
255:
256:
257: x_err_code := 0;
258: IF p_pa_debug_mode = 'Y' THEN
259: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
261: END IF;
262:
255:
256:
257: x_err_code := 0;
258: IF p_pa_debug_mode = 'Y' THEN
259: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
261: END IF;
262:
263: FOR f1_rec in funding_amount (l_funding_level) loop /*Bug 8718600*/
256:
257: x_err_code := 0;
258: IF p_pa_debug_mode = 'Y' THEN
259: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
261: END IF;
262:
263: FOR f1_rec in funding_amount (l_funding_level) loop /*Bug 8718600*/
264:
261: END IF;
262:
263: FOR f1_rec in funding_amount (l_funding_level) loop /*Bug 8718600*/
264:
265: IF P_PA_DEBUG_MODE = 'Y' THEN
266: pa_debug.g_err_stage:= 'In the loop of funding_amount';
267: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
268: END IF;
269:
262:
263: FOR f1_rec in funding_amount (l_funding_level) loop /*Bug 8718600*/
264:
265: IF P_PA_DEBUG_MODE = 'Y' THEN
266: pa_debug.g_err_stage:= 'In the loop of funding_amount';
267: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
268: END IF;
269:
270: if f1_rec.task_id is not null then
263: FOR f1_rec in funding_amount (l_funding_level) loop /*Bug 8718600*/
264:
265: IF P_PA_DEBUG_MODE = 'Y' THEN
266: pa_debug.g_err_stage:= 'In the loop of funding_amount';
267: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
268: END IF;
269:
270: if f1_rec.task_id is not null then
271:
295: l_task_id := 0;
296:
297: end if;
298:
299: IF P_PA_DEBUG_MODE = 'Y' THEN
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
296:
297: end if;
298:
299: IF P_PA_DEBUG_MODE = 'Y' THEN
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
297: end if;
298:
299: IF P_PA_DEBUG_MODE = 'Y' THEN
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
298:
299: IF P_PA_DEBUG_MODE = 'Y' THEN
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
306: END IF;
299: IF P_PA_DEBUG_MODE = 'Y' THEN
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
306: END IF;
307:
300: pa_debug.g_err_stage:= 'start date - '||l_start_date;
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
306: END IF;
307:
308: --dbms_output.put_line ('call util crt line');
301: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
302: pa_debug.g_err_stage:= 'end date - '||l_end_date;
303: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
304: pa_debug.g_err_stage:= 'task id - '||l_task_id;
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
306: END IF;
307:
308: --dbms_output.put_line ('call util crt line');
309: IF P_PA_DEBUG_MODE = 'Y' THEN
305: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
306: END IF;
307:
308: --dbms_output.put_line ('call util crt line');
309: IF P_PA_DEBUG_MODE = 'Y' THEN
310: pa_debug.g_err_stage:= 'Calling budget_utils create_line';
311: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
312: END IF;
313: pa_budget_utils.create_line
306: END IF;
307:
308: --dbms_output.put_line ('call util crt line');
309: IF P_PA_DEBUG_MODE = 'Y' THEN
310: pa_debug.g_err_stage:= 'Calling budget_utils create_line';
311: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
312: END IF;
313: pa_budget_utils.create_line
314: (x_budget_version_id => p_budget_version_id
307:
308: --dbms_output.put_line ('call util crt line');
309: IF P_PA_DEBUG_MODE = 'Y' THEN
310: pa_debug.g_err_stage:= 'Calling budget_utils create_line';
311: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
312: END IF;
313: pa_budget_utils.create_line
314: (x_budget_version_id => p_budget_version_id
315: ,x_project_id => p_project_id
348: ,x_err_code => l_err_code
349: ,x_err_stage => l_err_stage
350: ,x_err_stack => l_err_stack);
351:
352: IF P_PA_DEBUG_MODE = 'Y' THEN
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
349: ,x_err_stage => l_err_stage
350: ,x_err_stack => l_err_stack);
351:
352: IF P_PA_DEBUG_MODE = 'Y' THEN
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
350: ,x_err_stack => l_err_stack);
351:
352: IF P_PA_DEBUG_MODE = 'Y' THEN
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
358: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
351:
352: IF P_PA_DEBUG_MODE = 'Y' THEN
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
358: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
359: END IF;
352: IF P_PA_DEBUG_MODE = 'Y' THEN
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
358: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
359: END IF;
360:
353: pa_debug.g_err_stage:= 'After budget_utils create_line';
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
358: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
359: END IF;
360:
361:
354: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
355: pa_debug.g_err_stage:= 'error code - '||l_err_code;
356: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
357: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
358: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL1);
359: END IF;
360:
361:
362: if l_err_code <> 0 then
369: end if;
370:
371: END LOOP;
372:
373: IF P_PA_DEBUG_MODE = 'Y' THEN
374: pa_debug.g_err_stage:= 'End of create_line procedure';
375: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
376: END IF;
377:
370:
371: END LOOP;
372:
373: IF P_PA_DEBUG_MODE = 'Y' THEN
374: pa_debug.g_err_stage:= 'End of create_line procedure';
375: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
376: END IF;
377:
378: pa_debug.reset_err_stack;
371: END LOOP;
372:
373: IF P_PA_DEBUG_MODE = 'Y' THEN
374: pa_debug.g_err_stage:= 'End of create_line procedure';
375: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
376: END IF;
377:
378: pa_debug.reset_err_stack;
379:
374: pa_debug.g_err_stage:= 'End of create_line procedure';
375: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
376: END IF;
377:
378: pa_debug.reset_err_stack;
379:
380: EXCEPTION
381: WHEN OTHERS THEN
382:
382:
383: x_err_code := SQLCODE;
384: x_status := substr(SQLERRM,1,50);
385:
386: IF P_PA_DEBUG_MODE = 'Y' THEN
387: pa_debug.g_err_stage:= 'In exception of create_line - '||x_status;
388: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
389: END IF;
390: pa_debug.reset_err_stack;
383: x_err_code := SQLCODE;
384: x_status := substr(SQLERRM,1,50);
385:
386: IF P_PA_DEBUG_MODE = 'Y' THEN
387: pa_debug.g_err_stage:= 'In exception of create_line - '||x_status;
388: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
389: END IF;
390: pa_debug.reset_err_stack;
391: END create_line;
384: x_status := substr(SQLERRM,1,50);
385:
386: IF P_PA_DEBUG_MODE = 'Y' THEN
387: pa_debug.g_err_stage:= 'In exception of create_line - '||x_status;
388: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
389: END IF;
390: pa_debug.reset_err_stack;
391: END create_line;
392:
386: IF P_PA_DEBUG_MODE = 'Y' THEN
387: pa_debug.g_err_stage:= 'In exception of create_line - '||x_status;
388: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
389: END IF;
390: pa_debug.reset_err_stack;
391: END create_line;
392:
393:
394:
503:
504: savepoint temp_pt;
505: x_err_code := 0;
506:
507: IF p_pa_debug_mode = 'Y' THEN
508: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
509: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
510: END IF;
511:
504: savepoint temp_pt;
505: x_err_code := 0;
506:
507: IF p_pa_debug_mode = 'Y' THEN
508: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
509: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
510: END IF;
511:
512: OPEN res_info;
505: x_err_code := 0;
506:
507: IF p_pa_debug_mode = 'Y' THEN
508: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
509: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
510: END IF;
511:
512: OPEN res_info;
513: FETCH res_info INTO res_info_rec;
568: x_msg_data => l_msg_data
569: );
570:
571: IF l_plan_type_id is NULL THEN
572: IF P_PA_DEBUG_MODE = 'Y' THEN
573: pa_debug.g_err_stage:= 'No Plan type ID';
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: END IF;
576:
569: );
570:
571: IF l_plan_type_id is NULL THEN
572: IF P_PA_DEBUG_MODE = 'Y' THEN
573: pa_debug.g_err_stage:= 'No Plan type ID';
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: END IF;
576:
577: /* Added for fp - end*/
570:
571: IF l_plan_type_id is NULL THEN
572: IF P_PA_DEBUG_MODE = 'Y' THEN
573: pa_debug.g_err_stage:= 'No Plan type ID';
574: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
575: END IF;
576:
577: /* Added for fp - end*/
578: --dbms_output.put_line ('calling create_draft ' );
587:
588: x_err_code := l_err_code;
589: x_status := l_status;
590: --dbms_output.put_line ('after calling create_draft -' || x_err_code);
591: IF P_PA_DEBUG_MODE = 'Y' THEN
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
588: x_err_code := l_err_code;
589: x_status := l_status;
590: --dbms_output.put_line ('after calling create_draft -' || x_err_code);
591: IF P_PA_DEBUG_MODE = 'Y' THEN
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
589: x_status := l_status;
590: --dbms_output.put_line ('after calling create_draft -' || x_err_code);
591: IF P_PA_DEBUG_MODE = 'Y' THEN
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
597: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
590: --dbms_output.put_line ('after calling create_draft -' || x_err_code);
591: IF P_PA_DEBUG_MODE = 'Y' THEN
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
597: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
598: END IF;
591: IF P_PA_DEBUG_MODE = 'Y' THEN
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
597: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
598: END IF;
599:
592: pa_debug.g_err_stage:= 'After create_draft, budget version id is - '||l_budget_version_id;
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
597: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
598: END IF;
599:
600: /* END IF; */
593: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
594: pa_debug.g_err_stage:= 'error code - '||l_err_code;
595: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
596: pa_debug.g_err_stage:= 'error status - '||l_status;
597: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
598: END IF;
599:
600: /* END IF; */
601:
613:
614: x_err_code := l_err_code;
615: x_status := l_status;
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
614: x_err_code := l_err_code;
615: x_status := l_status;
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
615: x_status := l_status;
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
623: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
616:
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
623: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
624: END IF;
617: IF P_PA_DEBUG_MODE = 'Y' THEN
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
623: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
624: END IF;
625: /*
618: pa_debug.g_err_stage:= 'After create_line';
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
623: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
624: END IF;
625: /*
626: ELSE
619: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
620: pa_debug.g_err_stage:= 'error code - '||l_err_code;
621: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
622: pa_debug.g_err_stage:= 'error status - '||l_status;
623: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
624: END IF;
625: /*
626: ELSE
627: x_status := l_status;
627: x_status := l_status;
628: */
629: --dbms_output.put_line ('err 2 - ' || x_err_code);
630: --dbms_output.put_line ('stat 2 - ' || x_status);
631: IF P_PA_DEBUG_MODE = 'Y' THEN
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
628: */
629: --dbms_output.put_line ('err 2 - ' || x_err_code);
630: --dbms_output.put_line ('stat 2 - ' || x_status);
631: IF P_PA_DEBUG_MODE = 'Y' THEN
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
629: --dbms_output.put_line ('err 2 - ' || x_err_code);
630: --dbms_output.put_line ('stat 2 - ' || x_status);
631: IF P_PA_DEBUG_MODE = 'Y' THEN
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
637: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
630: --dbms_output.put_line ('stat 2 - ' || x_status);
631: IF P_PA_DEBUG_MODE = 'Y' THEN
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
637: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
638: END IF;
631: IF P_PA_DEBUG_MODE = 'Y' THEN
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
637: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
638: END IF;
639:
632: pa_debug.g_err_stage:= 'After create_line - 1';
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
637: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
638: END IF;
639:
640: END IF;
633: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
634: pa_debug.g_err_stage:= 'error code - '||l_err_code;
635: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
636: pa_debug.g_err_stage:= 'error status - '||l_status;
637: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
638: END IF;
639:
640: END IF;
641: /* Added for fp */
726:
727: END IF; /* x_err_code 1 */
728: /* Added for fp - end*/
729:
730: IF P_PA_DEBUG_MODE = 'Y' THEN
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
727: END IF; /* x_err_code 1 */
728: /* Added for fp - end*/
729:
730: IF P_PA_DEBUG_MODE = 'Y' THEN
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
728: /* Added for fp - end*/
729:
730: IF P_PA_DEBUG_MODE = 'Y' THEN
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
729:
730: IF P_PA_DEBUG_MODE = 'Y' THEN
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: END IF;
730: IF P_PA_DEBUG_MODE = 'Y' THEN
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: END IF;
738:
731: pa_debug.g_err_stage:= 'After the Fin Plan Type check';
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: END IF;
738:
739: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
732: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
733: pa_debug.g_err_stage:= 'error code is - '||x_err_code;
734: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
735: pa_debug.g_err_stage:= 'return status is -'||l_return_status;
736: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
737: END IF;
738:
739: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
740: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
738:
739: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
740: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
741: --dbms_output.put_line ('calling summerize ' );
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.g_err_stage:= 'Calling budget_utils summarize_project_totals';
744: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
745: END IF;
746:
739: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
740: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
741: --dbms_output.put_line ('calling summerize ' );
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.g_err_stage:= 'Calling budget_utils summarize_project_totals';
744: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
745: END IF;
746:
747: pa_budget_utils.summerize_project_totals (
740: IF l_plan_type_id is NULL THEN /* For bug 4198840*/
741: --dbms_output.put_line ('calling summerize ' );
742: IF P_PA_DEBUG_MODE = 'Y' THEN
743: pa_debug.g_err_stage:= 'Calling budget_utils summarize_project_totals';
744: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
745: END IF;
746:
747: pa_budget_utils.summerize_project_totals (
748: x_budget_version_id => l_budget_version_id,
749: x_err_code => l_err_code,
750: x_err_stage => l_err_stage,
751: x_err_stack => l_err_stack);
752:
753: IF P_PA_DEBUG_MODE = 'Y' THEN
754: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
755: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
756: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
757: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
750: x_err_stage => l_err_stage,
751: x_err_stack => l_err_stack);
752:
753: IF P_PA_DEBUG_MODE = 'Y' THEN
754: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
755: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
756: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
757: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
758: END IF;
751: x_err_stack => l_err_stack);
752:
753: IF P_PA_DEBUG_MODE = 'Y' THEN
754: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
755: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
756: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
757: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
758: END IF;
759: x_err_code := l_err_code;
752:
753: IF P_PA_DEBUG_MODE = 'Y' THEN
754: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
755: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
756: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
757: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
758: END IF;
759: x_err_code := l_err_code;
760: x_status := l_err_stage;
753: IF P_PA_DEBUG_MODE = 'Y' THEN
754: pa_debug.g_err_stage:= 'After summerize, error code - '||l_err_code;
755: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
756: pa_debug.g_err_stage:= 'After summerize, error stage - '||l_err_stage;
757: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
758: END IF;
759: x_err_code := l_err_code;
760: x_status := l_err_stage;
761: /*
761: /*
762: ELSE
763: x_status := l_status;
764: */
765: IF P_PA_DEBUG_MODE = 'Y' THEN
766: pa_debug.g_err_stage:= 'Error status - '||l_status;
767: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
768: END IF;
769: --dbms_output.put_line ('err 3 - ' || x_err_code);
762: ELSE
763: x_status := l_status;
764: */
765: IF P_PA_DEBUG_MODE = 'Y' THEN
766: pa_debug.g_err_stage:= 'Error status - '||l_status;
767: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
768: END IF;
769: --dbms_output.put_line ('err 3 - ' || x_err_code);
770: --dbms_output.put_line ('stat 3 - ' || x_status);
763: x_status := l_status;
764: */
765: IF P_PA_DEBUG_MODE = 'Y' THEN
766: pa_debug.g_err_stage:= 'Error status - '||l_status;
767: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
768: END IF;
769: --dbms_output.put_line ('err 3 - ' || x_err_code);
770: --dbms_output.put_line ('stat 3 - ' || x_status);
771: END IF; --For bug 4198840
773:
774:
775: IF x_err_code = 0 and l_plan_type_id IS NULL then
776: --dbms_output.put_line ('calling baseline ' );
777: IF P_PA_DEBUG_MODE = 'Y' THEN
778: pa_debug.g_err_stage:= 'Calling budget_core.baseline';
779: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
780: END IF;
781:
774:
775: IF x_err_code = 0 and l_plan_type_id IS NULL then
776: --dbms_output.put_line ('calling baseline ' );
777: IF P_PA_DEBUG_MODE = 'Y' THEN
778: pa_debug.g_err_stage:= 'Calling budget_core.baseline';
779: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
780: END IF;
781:
782: --Start Bug 9740299
775: IF x_err_code = 0 and l_plan_type_id IS NULL then
776: --dbms_output.put_line ('calling baseline ' );
777: IF P_PA_DEBUG_MODE = 'Y' THEN
778: pa_debug.g_err_stage:= 'Calling budget_core.baseline';
779: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
780: END IF;
781:
782: --Start Bug 9740299
783: select nvl(max(version_number), 0)
803: x_err_stack => l_err_stack);
804:
805: x_err_code := l_err_code;
806: x_status := l_err_stage;
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
809: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
810: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
811: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
804:
805: x_err_code := l_err_code;
806: x_status := l_err_stage;
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
809: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
810: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
811: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
812: END IF;
805: x_err_code := l_err_code;
806: x_status := l_err_stage;
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
809: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
810: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
811: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
812: END IF;
813: /*
806: x_status := l_err_stage;
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
809: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
810: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
811: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
812: END IF;
813: /*
814:
807: IF P_PA_DEBUG_MODE = 'Y' THEN
808: pa_debug.g_err_stage:= 'After baseline, error code - '||l_err_code;
809: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
810: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
811: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
812: END IF;
813: /*
814:
815: ELSE
812: END IF;
813: /*
814:
815: ELSE
816: IF P_PA_DEBUG_MODE = 'Y' THEN
817: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
818: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
819: END IF;
820: x_status := l_err_stage;
813: /*
814:
815: ELSE
816: IF P_PA_DEBUG_MODE = 'Y' THEN
817: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
818: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
819: END IF;
820: x_status := l_err_stage;
821: */
814:
815: ELSE
816: IF P_PA_DEBUG_MODE = 'Y' THEN
817: pa_debug.g_err_stage:= 'error stage - '||l_err_stage;
818: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
819: END IF;
820: x_status := l_err_stage;
821: */
822: --dbms_output.put_line ('stat 4 - ' || x_status);
822: --dbms_output.put_line ('stat 4 - ' || x_status);
823:
824: END IF;
825:
826: IF P_PA_DEBUG_MODE = 'Y' THEN
827: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
828: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
829: pa_debug.g_err_stage:= 'return status - '||l_return_status;
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
823:
824: END IF;
825:
826: IF P_PA_DEBUG_MODE = 'Y' THEN
827: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
828: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
829: pa_debug.g_err_stage:= 'return status - '||l_return_status;
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
831: END IF;
824: END IF;
825:
826: IF P_PA_DEBUG_MODE = 'Y' THEN
827: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
828: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
829: pa_debug.g_err_stage:= 'return status - '||l_return_status;
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
831: END IF;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
825:
826: IF P_PA_DEBUG_MODE = 'Y' THEN
827: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
828: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
829: pa_debug.g_err_stage:= 'return status - '||l_return_status;
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
831: END IF;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
833: rollback to temp_pt;
826: IF P_PA_DEBUG_MODE = 'Y' THEN
827: pa_debug.g_err_stage:= 'x_err_code - '||x_err_code;
828: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
829: pa_debug.g_err_stage:= 'return status - '||l_return_status;
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
831: END IF;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
833: rollback to temp_pt;
834: IF P_PA_DEBUG_MODE = 'Y' THEN
830: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
831: END IF;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
833: rollback to temp_pt;
834: IF P_PA_DEBUG_MODE = 'Y' THEN
835: pa_debug.g_err_stage:= 'Rolling back';
836: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
837: END IF;
838: --dbms_output.put_line ('stat 5 - ' || x_status);
831: END IF;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
833: rollback to temp_pt;
834: IF P_PA_DEBUG_MODE = 'Y' THEN
835: pa_debug.g_err_stage:= 'Rolling back';
836: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
837: END IF;
838: --dbms_output.put_line ('stat 5 - ' || x_status);
839: end if;
832: if x_err_code <> 0 or l_return_status <> FND_API.G_RET_STS_SUCCESS then
833: rollback to temp_pt;
834: IF P_PA_DEBUG_MODE = 'Y' THEN
835: pa_debug.g_err_stage:= 'Rolling back';
836: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
837: END IF;
838: --dbms_output.put_line ('stat 5 - ' || x_status);
839: end if;
840: pa_debug.reset_err_stack;
836: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
837: END IF;
838: --dbms_output.put_line ('stat 5 - ' || x_status);
839: end if;
840: pa_debug.reset_err_stack;
841:
842: EXCEPTION
843: WHEN OTHERS THEN
844:
841:
842: EXCEPTION
843: WHEN OTHERS THEN
844:
845: IF P_PA_DEBUG_MODE = 'Y' THEN
846: pa_debug.g_err_stage:= 'In exception of create_budget_baseline';
847: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
848: END IF;
849: x_err_code := SQLCODE;
842: EXCEPTION
843: WHEN OTHERS THEN
844:
845: IF P_PA_DEBUG_MODE = 'Y' THEN
846: pa_debug.g_err_stage:= 'In exception of create_budget_baseline';
847: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
848: END IF;
849: x_err_code := SQLCODE;
850: x_status := substr(SQLERRM,1,50);
843: WHEN OTHERS THEN
844:
845: IF P_PA_DEBUG_MODE = 'Y' THEN
846: pa_debug.g_err_stage:= 'In exception of create_budget_baseline';
847: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
848: END IF;
849: x_err_code := SQLCODE;
850: x_status := substr(SQLERRM,1,50);
851: IF P_PA_DEBUG_MODE = 'Y' THEN
847: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
848: END IF;
849: x_err_code := SQLCODE;
850: x_status := substr(SQLERRM,1,50);
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage:= 'error code - '||x_err_code;
853: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
854: pa_debug.g_err_stage:= 'status - '||x_status;
855: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
848: END IF;
849: x_err_code := SQLCODE;
850: x_status := substr(SQLERRM,1,50);
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage:= 'error code - '||x_err_code;
853: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
854: pa_debug.g_err_stage:= 'status - '||x_status;
855: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
856: END IF;
849: x_err_code := SQLCODE;
850: x_status := substr(SQLERRM,1,50);
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage:= 'error code - '||x_err_code;
853: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
854: pa_debug.g_err_stage:= 'status - '||x_status;
855: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
856: END IF;
857:
850: x_status := substr(SQLERRM,1,50);
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage:= 'error code - '||x_err_code;
853: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
854: pa_debug.g_err_stage:= 'status - '||x_status;
855: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
856: END IF;
857:
858: END create_budget_baseline;
851: IF P_PA_DEBUG_MODE = 'Y' THEN
852: pa_debug.g_err_stage:= 'error code - '||x_err_code;
853: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
854: pa_debug.g_err_stage:= 'status - '||x_status;
855: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
856: END IF;
857:
858: END create_budget_baseline;
859: