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 (
243: BEGIN
244:
245:
246: x_err_code := 0;
247: IF p_pa_debug_mode = 'Y' THEN
248: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
249: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
250: END IF;
251:
244:
245:
246: x_err_code := 0;
247: IF p_pa_debug_mode = 'Y' THEN
248: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
249: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
250: END IF;
251:
252: FOR f1_rec in funding_amount loop
245:
246: x_err_code := 0;
247: IF p_pa_debug_mode = 'Y' THEN
248: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_LINE');
249: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
250: END IF;
251:
252: FOR f1_rec in funding_amount loop
253:
250: END IF;
251:
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:
251:
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
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:
284: l_task_id := 0;
285:
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);
285:
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;
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);
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);
295: END IF;
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:
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:
297: --dbms_output.put_line ('call util crt line');
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
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
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
295: END IF;
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
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
337: ,x_err_code => l_err_code
338: ,x_err_stage => l_err_stage
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);
338: ,x_err_stage => l_err_stage
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;
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);
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);
348: END IF;
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:
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:
350:
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
358: end if;
359:
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:
359:
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;
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:
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:
369: EXCEPTION
370: WHEN OTHERS THEN
371:
371:
372: x_err_code := SQLCODE;
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;
372: x_err_code := SQLCODE;
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;
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:
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:
382:
383:
484:
485: savepoint temp_pt;
486: x_err_code := 0;
487:
488: IF p_pa_debug_mode = 'Y' THEN
489: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
490: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
491: END IF;
492:
485: savepoint temp_pt;
486: x_err_code := 0;
487:
488: IF p_pa_debug_mode = 'Y' THEN
489: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
490: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
491: END IF;
492:
493: OPEN res_info;
486: x_err_code := 0;
487:
488: IF p_pa_debug_mode = 'Y' THEN
489: pa_debug.set_err_stack('PA_BASELINE_FUNDING_PKG.CREATE_BUDGET_BASELINE');
490: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
491: END IF;
492:
493: OPEN res_info;
494: FETCH res_info INTO res_info_rec;
549: x_msg_data => l_msg_data
550: );
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:
550: );
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*/
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 ' );
568:
569: x_err_code := l_err_code;
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);
569: x_err_code := l_err_code;
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;
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);
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);
579: END IF;
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:
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:
581: /* END IF; */
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:
594:
595: x_err_code := l_err_code;
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);
595: x_err_code := l_err_code;
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;
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);
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);
605: END IF;
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: /*
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: /*
607: ELSE
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;
608: x_status := l_status;
609: */
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);
609: */
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;
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);
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);
619: END IF;
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:
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:
621: END IF;
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 */
707:
708: END IF; /* x_err_code 1 */
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);
708: END IF; /* x_err_code 1 */
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;
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);
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);
718: END IF;
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:
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:
720: IF x_err_code = 0 and l_return_status = FND_API.G_RET_STS_SUCCESS then
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*/
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*/
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:
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*/
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 (
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,
730: x_err_code => l_err_code,
731: x_err_stage => l_err_stage,
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);
731: x_err_stage => l_err_stage,
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;
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;
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;
741: x_status := l_err_stage;
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: /*
742: /*
743: ELSE
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);
743: ELSE
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);
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
754:
755:
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(
755:
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,
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',
768: x_err_stack => l_err_stack);
769:
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);
769:
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;
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: /*
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: /*
779:
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
777: END IF;
778: /*
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;
778: /*
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: */
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);
787: --dbms_output.put_line ('stat 4 - ' || x_status);
788:
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);
788:
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;
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
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
798: rollback to temp_pt;
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
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
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);
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
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;
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;
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;
806:
807: EXCEPTION
808: WHEN OTHERS THEN
809:
806:
807: EXCEPTION
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;
807: EXCEPTION
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);
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
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
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);
813: END IF;
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;
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:
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:
823: END create_budget_baseline;
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: