[Home] [Help]
44: SELECT project_id
45: FROM PA_PROJ_ELEMENT_VERSIONS
46: WHERE element_version_id = c_version_id;
47:
48: x_ret_code VARCHAR2(1) := fnd_api.g_false;
49: l_dummy VARCHAR2(1) := null;
50: l_project_id NUMBER;
51: l_ret_code VARCHAR2(250);
52: l_return_status VARCHAR2(1);
56: l_approval_opt VARCHAR2(1);
57: BEGIN
58: l_user_id := pa_project_structure_pub1.GetGlobalUserId();
59: if l_user_id is null then
60: return fnd_api.g_false;
61: end if;
62:
63: /* Bug 2680486 -- Performance changes -- Added the following cursor call to get the project_id,
64: which will be used in further queries to improve performance */
71: if p_status_code = 'STRUCTURE_WORKING' then
72: OPEN get_user_locked_status_csr(p_version_id, l_user_id, l_project_id);
73: FETCH get_user_locked_status_csr INTO l_dummy;
74: if get_user_locked_status_csr%FOUND then
75: x_ret_code := fnd_api.g_true;
76: else
77: x_ret_code := fnd_api.g_false;
78: end if;
79: CLOSE get_user_locked_status_csr;
73: FETCH get_user_locked_status_csr INTO l_dummy;
74: if get_user_locked_status_csr%FOUND then
75: x_ret_code := fnd_api.g_true;
76: else
77: x_ret_code := fnd_api.g_false;
78: end if;
79: CLOSE get_user_locked_status_csr;
80: else
81: x_ret_code := fnd_api.g_false;
77: x_ret_code := fnd_api.g_false;
78: end if;
79: CLOSE get_user_locked_status_csr;
80: else
81: x_ret_code := fnd_api.g_false;
82: end if;
83: elsif p_action = 'EDIT_TASK_STRUCT' then
84: if p_status_code = 'STRUCTURE_WORKING' then
85: OPEN get_user_locked_status_csr(p_version_id, l_user_id, l_project_id);
84: if p_status_code = 'STRUCTURE_WORKING' then
85: OPEN get_user_locked_status_csr(p_version_id, l_user_id, l_project_id);
86: FETCH get_user_locked_status_csr INTO l_dummy;
87: if get_user_locked_status_csr%FOUND then
88: x_ret_code := fnd_api.g_true;
89: else
90: x_ret_code := fnd_api.g_false;
91: end if;
92: CLOSE get_user_locked_status_csr;
86: FETCH get_user_locked_status_csr INTO l_dummy;
87: if get_user_locked_status_csr%FOUND then
88: x_ret_code := fnd_api.g_true;
89: else
90: x_ret_code := fnd_api.g_false;
91: end if;
92: CLOSE get_user_locked_status_csr;
93: else
94: x_ret_code := fnd_api.g_false;
90: x_ret_code := fnd_api.g_false;
91: end if;
92: CLOSE get_user_locked_status_csr;
93: else
94: x_ret_code := fnd_api.g_false;
95: end if;
96: elsif p_action = 'PUBLISH' then
97: /* Bug 2680486 -- Performance changes -- Commented the following cursor call. Now it is getting call at the top */
98: /* OPEN get_project_id_csr(p_version_id);
109: if get_locked_status_csr%FOUND then
110: OPEN get_user_locked_status_csr(p_version_id, l_user_id,l_project_id);
111: FETCH get_user_locked_status_csr INTO l_dummy;
112: if get_user_locked_status_csr%NOTFOUND then
113: x_ret_code := fnd_api.g_false;
114: else
115: x_ret_code := fnd_api.g_true;
116: end if;
117: CLOSE get_user_locked_status_csr;
111: FETCH get_user_locked_status_csr INTO l_dummy;
112: if get_user_locked_status_csr%NOTFOUND then
113: x_ret_code := fnd_api.g_false;
114: else
115: x_ret_code := fnd_api.g_true;
116: end if;
117: CLOSE get_user_locked_status_csr;
118: else
119: x_ret_code := fnd_api.g_true;
115: x_ret_code := fnd_api.g_true;
116: end if;
117: CLOSE get_user_locked_status_csr;
118: else
119: x_ret_code := fnd_api.g_true;
120: end if;
121: CLOSE get_locked_status_csr;
122: else
123: x_ret_code := fnd_api.g_false;
119: x_ret_code := fnd_api.g_true;
120: end if;
121: CLOSE get_locked_status_csr;
122: else
123: x_ret_code := fnd_api.g_false;
124: end if;
125: else
126: if p_status_code = 'STRUCTURE_APPROVED' then
127: OPEN get_locked_status_csr(p_version_id,l_project_id);
129: if get_locked_status_csr%FOUND then
130: OPEN get_user_locked_status_csr(p_version_id, l_user_id,l_project_id);
131: FETCH get_user_locked_status_csr INTO l_dummy;
132: if get_user_locked_status_csr%NOTFOUND then
133: x_ret_code := fnd_api.g_false;
134: else
135: x_ret_code := fnd_api.g_true;
136: end if;
137: CLOSE get_user_locked_status_csr;
131: FETCH get_user_locked_status_csr INTO l_dummy;
132: if get_user_locked_status_csr%NOTFOUND then
133: x_ret_code := fnd_api.g_false;
134: else
135: x_ret_code := fnd_api.g_true;
136: end if;
137: CLOSE get_user_locked_status_csr;
138: else
139: x_ret_code := fnd_api.g_true;
135: x_ret_code := fnd_api.g_true;
136: end if;
137: CLOSE get_user_locked_status_csr;
138: else
139: x_ret_code := fnd_api.g_true;
140: end if;
141: CLOSE get_locked_status_csr;
142: else
143: x_ret_code := fnd_api.g_false;
139: x_ret_code := fnd_api.g_true;
140: end if;
141: CLOSE get_locked_status_csr;
142: else
143: x_ret_code := fnd_api.g_false;
144: end if;
145: end if;
146: elsif p_action = 'REWORK' then
147: if p_status_code in ('STRUCTURE_SUBMITTED', 'STRUCTURE_APPROVED', 'STRUCTURE_REJECTED') then
144: end if;
145: end if;
146: elsif p_action = 'REWORK' then
147: if p_status_code in ('STRUCTURE_SUBMITTED', 'STRUCTURE_APPROVED', 'STRUCTURE_REJECTED') then
148: x_ret_code := fnd_api.g_true;
149: else
150: x_ret_code := fnd_api.g_false;
151: end if;
152: elsif p_action = 'LOCK' then
146: elsif p_action = 'REWORK' then
147: if p_status_code in ('STRUCTURE_SUBMITTED', 'STRUCTURE_APPROVED', 'STRUCTURE_REJECTED') then
148: x_ret_code := fnd_api.g_true;
149: else
150: x_ret_code := fnd_api.g_false;
151: end if;
152: elsif p_action = 'LOCK' then
153: if p_status_code = 'STRUCTURE_WORKING' then
154: OPEN get_locked_status_csr(p_version_id,l_project_id);
153: if p_status_code = 'STRUCTURE_WORKING' then
154: OPEN get_locked_status_csr(p_version_id,l_project_id);
155: FETCH get_locked_status_csr INTO l_dummy;
156: if get_locked_status_csr%FOUND then
157: x_ret_code := fnd_api.g_false;
158: else
159: x_ret_code := fnd_api.g_true;
160: end if;
161: else
155: FETCH get_locked_status_csr INTO l_dummy;
156: if get_locked_status_csr%FOUND then
157: x_ret_code := fnd_api.g_false;
158: else
159: x_ret_code := fnd_api.g_true;
160: end if;
161: else
162: x_ret_code := fnd_api.g_false;
163: end if;
158: else
159: x_ret_code := fnd_api.g_true;
160: end if;
161: else
162: x_ret_code := fnd_api.g_false;
163: end if;
164: elsif p_action = 'UNLOCK' then
165: if p_status_code = 'STRUCTURE_WORKING' then
166: OPEN get_user_locked_status_csr(p_version_id, l_user_id,l_project_id);
166: OPEN get_user_locked_status_csr(p_version_id, l_user_id,l_project_id);
167: FETCH get_user_locked_status_csr INTO l_dummy;
168: if get_user_locked_status_csr%FOUND then
169: CLOSE get_user_locked_status_csr;
170: x_ret_code := fnd_api.g_true;
171: else
172: CLOSE get_user_locked_status_csr;
173:
174: OPEN get_locked_status_csr(p_version_id,l_project_id);
190: ,l_return_status
191: ,l_msg_count
192: ,l_msg_data);
193:
194: if l_ret_code = fnd_api.g_true then
195: x_ret_code := fnd_api.g_true;
196: else
197: x_ret_code := fnd_api.g_false;
198: end if;
191: ,l_msg_count
192: ,l_msg_data);
193:
194: if l_ret_code = fnd_api.g_true then
195: x_ret_code := fnd_api.g_true;
196: else
197: x_ret_code := fnd_api.g_false;
198: end if;
199: else
193:
194: if l_ret_code = fnd_api.g_true then
195: x_ret_code := fnd_api.g_true;
196: else
197: x_ret_code := fnd_api.g_false;
198: end if;
199: else
200: x_ret_code := fnd_api.g_false;
201: end if;
196: else
197: x_ret_code := fnd_api.g_false;
198: end if;
199: else
200: x_ret_code := fnd_api.g_false;
201: end if;
202: end if;
203: else
204: x_ret_code := fnd_api.g_false;
200: x_ret_code := fnd_api.g_false;
201: end if;
202: end if;
203: else
204: x_ret_code := fnd_api.g_false;
205: end if;
206: elsif p_action = 'OBSOLETE' then
207: OPEN get_published_status_csr(p_version_id,l_project_id);
208: FETCH get_published_status_csr INTO l_dummy;
206: elsif p_action = 'OBSOLETE' then
207: OPEN get_published_status_csr(p_version_id,l_project_id);
208: FETCH get_published_status_csr INTO l_dummy;
209: if get_published_status_csr%FOUND then
210: x_ret_code := fnd_api.g_true;
211: else
212: x_ret_code := fnd_api.g_false;
213: end if;
214: CLOSE get_published_status_csr;
208: FETCH get_published_status_csr INTO l_dummy;
209: if get_published_status_csr%FOUND then
210: x_ret_code := fnd_api.g_true;
211: else
212: x_ret_code := fnd_api.g_false;
213: end if;
214: CLOSE get_published_status_csr;
215: end if;
216:
217: return x_ret_code;
218:
219: EXCEPTION
220: WHEN OTHERS THEN
221: x_ret_code := fnd_api.g_false;
222: return x_ret_code;
223:
224: END CHECK_ACTION_ALLOWED;
225:
243: -- Pre-reqs : None
244: -- Return Value : N/A
245: -- Parameters
246: -- p_api_version IN NUMBER := 1.0
247: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
248: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
249: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
250: -- p_validation_level IN VARCHAR2 := 100
251: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
244: -- Return Value : N/A
245: -- Parameters
246: -- p_api_version IN NUMBER := 1.0
247: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
248: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
249: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
250: -- p_validation_level IN VARCHAR2 := 100
251: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
252: -- p_debug_mode IN VARCHAR2 := 'N'
245: -- Parameters
246: -- p_api_version IN NUMBER := 1.0
247: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
248: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
249: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
250: -- p_validation_level IN VARCHAR2 := 100
251: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
252: -- p_debug_mode IN VARCHAR2 := 'N'
253: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
286:
287: procedure Create_Structure
288: (
289: p_api_version IN NUMBER := 1.0
290: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
291: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
292: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
293: ,p_validation_level IN VARCHAR2 := 100
294: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
287: procedure Create_Structure
288: (
289: p_api_version IN NUMBER := 1.0
290: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
291: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
292: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
293: ,p_validation_level IN VARCHAR2 := 100
294: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
295: ,p_debug_mode IN VARCHAR2 := 'N'
288: (
289: p_api_version IN NUMBER := 1.0
290: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
291: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
292: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
293: ,p_validation_level IN VARCHAR2 := 100
294: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
295: ,p_debug_mode IN VARCHAR2 := 'N'
296: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
316: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
317: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
318: ,p_approval_reqd_flag IN VARCHAR2 := 'N'
319: ,p_auto_publish_flag IN VARCHAR2 := 'N'
320: ,p_approver_source_id IN NUMBER := FND_API.G_MISS_NUM
321: ,p_approver_source_type IN NUMBER := FND_API.G_MISS_NUM
322: ,p_default_display_lvl IN NUMBER := 0
323: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
324: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
317: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
318: ,p_approval_reqd_flag IN VARCHAR2 := 'N'
319: ,p_auto_publish_flag IN VARCHAR2 := 'N'
320: ,p_approver_source_id IN NUMBER := FND_API.G_MISS_NUM
321: ,p_approver_source_type IN NUMBER := FND_API.G_MISS_NUM
322: ,p_default_display_lvl IN NUMBER := 0
323: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
324: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
325: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
322: ,p_default_display_lvl IN NUMBER := 0
323: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
324: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
325: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
326: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
327: --LDENG
328: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
329: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
330: --END LDENG
324: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
325: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
326: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
327: --LDENG
328: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
329: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
330: --END LDENG
331: ,p_progress_cycle_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
332: ,p_wq_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
325: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
326: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
327: --LDENG
328: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
329: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
330: --END LDENG
331: ,p_progress_cycle_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
332: ,p_wq_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
333: ,p_remain_effort_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
357: IF (p_debug_mode = 'Y') THEN
358: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE begin');
359: END IF;
360:
361: IF (p_commit = FND_API.G_TRUE) THEN
362: savepoint create_structure;
363: END IF;
364:
365: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
361: IF (p_commit = FND_API.G_TRUE) THEN
362: savepoint create_structure;
363: END IF;
364:
365: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
369:
362: savepoint create_structure;
363: END IF;
364:
365: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
369:
370: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
369:
370: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
371: FND_MSG_PUB.initialize;
372: END IF;
373:
374:
426: ,x_msg_count => l_msg_count
427: ,x_msg_data => l_msg_data
428: );
429:
430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
431: x_msg_count := FND_MSG_PUB.count_msg;
432: IF x_msg_count = 1 then
433: pa_interface_utils_pub.get_messages
434: (p_encoded => FND_API.G_TRUE,
430: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
431: x_msg_count := FND_MSG_PUB.count_msg;
432: IF x_msg_count = 1 then
433: pa_interface_utils_pub.get_messages
434: (p_encoded => FND_API.G_TRUE,
435: p_msg_index => 1,
436: -- p_msg_count => l_msg_count,
437: -- p_msg_data => l_msg_data,
438: p_data => l_data,
438: p_data => l_data,
439: p_msg_index_out => l_msg_index_out);
440: x_msg_data := l_data;
441: END IF;
442: raise FND_API.G_EXC_ERROR;
443: END IF;
444:
445: x_structure_id := l_structure_id;
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
442: raise FND_API.G_EXC_ERROR;
443: END IF;
444:
445: x_structure_id := l_structure_id;
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
447:
448: IF (p_commit = FND_API.G_TRUE) THEN
449: COMMIT;
450: END IF;
444:
445: x_structure_id := l_structure_id;
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
447:
448: IF (p_commit = FND_API.G_TRUE) THEN
449: COMMIT;
450: END IF;
451:
452: IF (p_debug_mode = 'Y') THEN
453: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE END');
454: END IF;
455:
456: EXCEPTION
457: when FND_API.G_EXC_ERROR then
458: if p_commit = FND_API.G_TRUE then
459: rollback to create_structure;
460: end if;
461: x_return_status := FND_API.G_RET_STS_ERROR;
454: END IF;
455:
456: EXCEPTION
457: when FND_API.G_EXC_ERROR then
458: if p_commit = FND_API.G_TRUE then
459: rollback to create_structure;
460: end if;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: when FND_API.G_EXC_UNEXPECTED_ERROR then
457: when FND_API.G_EXC_ERROR then
458: if p_commit = FND_API.G_TRUE then
459: rollback to create_structure;
460: end if;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: when FND_API.G_EXC_UNEXPECTED_ERROR then
463: if p_commit = FND_API.G_TRUE then
464: rollback to create_structure;
465: end if;
458: if p_commit = FND_API.G_TRUE then
459: rollback to create_structure;
460: end if;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: when FND_API.G_EXC_UNEXPECTED_ERROR then
463: if p_commit = FND_API.G_TRUE then
464: rollback to create_structure;
465: end if;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: rollback to create_structure;
460: end if;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: when FND_API.G_EXC_UNEXPECTED_ERROR then
463: if p_commit = FND_API.G_TRUE then
464: rollback to create_structure;
465: end if;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
462: when FND_API.G_EXC_UNEXPECTED_ERROR then
463: if p_commit = FND_API.G_TRUE then
464: rollback to create_structure;
465: end if;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
468: p_procedure_name => 'CREATE_STRUCTURE',
469: p_error_text => SUBSTRB(SQLERRM,1,240));
470: when OTHERS then
467: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
468: p_procedure_name => 'CREATE_STRUCTURE',
469: p_error_text => SUBSTRB(SQLERRM,1,240));
470: when OTHERS then
471: if p_commit = FND_API.G_TRUE then
472: rollback to create_structure;
473: end if;
474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
470: when OTHERS then
471: if p_commit = FND_API.G_TRUE then
472: rollback to create_structure;
473: end if;
474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
476: p_procedure_name => 'CREATE_STRUCTURE',
477: p_error_text => SUBSTRB(SQLERRM,1,240));
478: raise;
484: -- Pre-reqs : None
485: -- Return Value : N/A
486: -- Parameters
487: -- p_api_version IN NUMBER := 1.0
488: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
489: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
490: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
491: -- p_validation_level IN VARCHAR2 := 100
492: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
485: -- Return Value : N/A
486: -- Parameters
487: -- p_api_version IN NUMBER := 1.0
488: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
489: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
490: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
491: -- p_validation_level IN VARCHAR2 := 100
492: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
493: -- p_debug_mode IN VARCHAR2 := 'N'
486: -- Parameters
487: -- p_api_version IN NUMBER := 1.0
488: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
489: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
490: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
491: -- p_validation_level IN VARCHAR2 := 100
492: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
493: -- p_debug_mode IN VARCHAR2 := 'N'
494: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
523:
524: procedure Create_Structure_Version
525: (
526: p_api_version IN NUMBER := 1.0
527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
529: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
530: ,p_validation_level IN VARCHAR2 := 100
531: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
524: procedure Create_Structure_Version
525: (
526: p_api_version IN NUMBER := 1.0
527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
529: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
530: ,p_validation_level IN VARCHAR2 := 100
531: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
532: ,p_debug_mode IN VARCHAR2 := 'N'
525: (
526: p_api_version IN NUMBER := 1.0
527: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
528: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
529: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
530: ,p_validation_level IN VARCHAR2 := 100
531: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
532: ,p_debug_mode IN VARCHAR2 := 'N'
533: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
570: IF (p_debug_mode = 'Y') THEN
571: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION begin');
572: END IF;
573:
574: IF (p_commit = FND_API.G_TRUE) THEN
575: savepoint create_structure_version;
576: END IF;
577:
578: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
574: IF (p_commit = FND_API.G_TRUE) THEN
575: savepoint create_structure_version;
576: END IF;
577:
578: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580: END IF;
581:
582: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
575: savepoint create_structure_version;
576: END IF;
577:
578: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580: END IF;
581:
582: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
583: FND_MSG_PUB.initialize;
578: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580: END IF;
581:
582: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
583: FND_MSG_PUB.initialize;
584: END IF;
585:
586: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version(
614: ,x_msg_count => l_msg_count
615: ,x_msg_data => l_msg_data
616: );
617:
618: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
619: x_msg_count := FND_MSG_PUB.count_msg;
620: IF x_msg_count = 1 then
621: pa_interface_utils_pub.get_messages
622: (p_encoded => FND_API.G_TRUE,
618: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
619: x_msg_count := FND_MSG_PUB.count_msg;
620: IF x_msg_count = 1 then
621: pa_interface_utils_pub.get_messages
622: (p_encoded => FND_API.G_TRUE,
623: p_msg_index => 1,
624: -- p_msg_count => l_msg_count,
625: -- p_msg_data => l_msg_data,
626: p_data => l_data,
626: p_data => l_data,
627: p_msg_index_out => l_msg_index_out);
628: x_msg_data := l_data;
629: END IF;
630: raise FND_API.G_EXC_ERROR;
631: END IF;
632:
633: x_structure_version_id := l_structure_version_id;
634: x_return_status := FND_API.G_RET_STS_SUCCESS;
630: raise FND_API.G_EXC_ERROR;
631: END IF;
632:
633: x_structure_version_id := l_structure_version_id;
634: x_return_status := FND_API.G_RET_STS_SUCCESS;
635:
636: IF (p_commit = FND_API.G_TRUE) THEN
637: COMMIT;
638: END IF;
632:
633: x_structure_version_id := l_structure_version_id;
634: x_return_status := FND_API.G_RET_STS_SUCCESS;
635:
636: IF (p_commit = FND_API.G_TRUE) THEN
637: COMMIT;
638: END IF;
639:
640: IF (p_debug_mode = 'Y') THEN
641: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION END');
642: END IF;
643:
644: EXCEPTION
645: when FND_API.G_EXC_ERROR then
646: if p_commit = FND_API.G_TRUE then
647: rollback to create_structure_version;
648: end if;
649: x_return_status := FND_API.G_RET_STS_ERROR;
642: END IF;
643:
644: EXCEPTION
645: when FND_API.G_EXC_ERROR then
646: if p_commit = FND_API.G_TRUE then
647: rollback to create_structure_version;
648: end if;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
645: when FND_API.G_EXC_ERROR then
646: if p_commit = FND_API.G_TRUE then
647: rollback to create_structure_version;
648: end if;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
651: if p_commit = FND_API.G_TRUE then
652: rollback to create_structure_version;
653: end if;
646: if p_commit = FND_API.G_TRUE then
647: rollback to create_structure_version;
648: end if;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
651: if p_commit = FND_API.G_TRUE then
652: rollback to create_structure_version;
653: end if;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
647: rollback to create_structure_version;
648: end if;
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
651: if p_commit = FND_API.G_TRUE then
652: rollback to create_structure_version;
653: end if;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
650: when FND_API.G_EXC_UNEXPECTED_ERROR then
651: if p_commit = FND_API.G_TRUE then
652: rollback to create_structure_version;
653: end if;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
656: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
657: p_error_text => SUBSTRB(SQLERRM,1,240));
658: when OTHERS then
655: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
656: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
657: p_error_text => SUBSTRB(SQLERRM,1,240));
658: when OTHERS then
659: if p_commit = FND_API.G_TRUE then
660: rollback to create_structure_version;
661: end if;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
658: when OTHERS then
659: if p_commit = FND_API.G_TRUE then
660: rollback to create_structure_version;
661: end if;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
663: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
664: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
665: p_error_text => SUBSTRB(SQLERRM,1,240));
666: raise;
672: -- Pre-reqs : None
673: -- Return Value : N/A
674: -- Parameters
675: -- p_api_version IN NUMBER := 1.0
676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
679: -- p_validation_level IN VARCHAR2 := 100
680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
673: -- Return Value : N/A
674: -- Parameters
675: -- p_api_version IN NUMBER := 1.0
676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
679: -- p_validation_level IN VARCHAR2 := 100
680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
681: -- p_debug_mode IN VARCHAR2 := 'N'
674: -- Parameters
675: -- p_api_version IN NUMBER := 1.0
676: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
677: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
678: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
679: -- p_validation_level IN VARCHAR2 := 100
680: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
681: -- p_debug_mode IN VARCHAR2 := 'N'
682: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
704:
705: procedure Create_Structure_Version_Attr
706: (
707: p_api_version IN NUMBER := 1.0
708: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
709: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
710: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
711: ,p_validation_level IN VARCHAR2 := 100
712: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
705: procedure Create_Structure_Version_Attr
706: (
707: p_api_version IN NUMBER := 1.0
708: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
709: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
710: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
711: ,p_validation_level IN VARCHAR2 := 100
712: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
713: ,p_debug_mode IN VARCHAR2 := 'N'
706: (
707: p_api_version IN NUMBER := 1.0
708: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
709: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
710: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
711: ,p_validation_level IN VARCHAR2 := 100
712: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
713: ,p_debug_mode IN VARCHAR2 := 'N'
714: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
745: IF (p_debug_mode = 'Y') THEN
746: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR begin');
747: END IF;
748:
749: IF (p_commit = FND_API.G_TRUE) THEN
750: savepoint create_structure_version_attr;
751: END IF;
752:
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
749: IF (p_commit = FND_API.G_TRUE) THEN
750: savepoint create_structure_version_attr;
751: END IF;
752:
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
750: savepoint create_structure_version_attr;
751: END IF;
752:
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
758: FND_MSG_PUB.initialize;
753: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
758: FND_MSG_PUB.initialize;
759: END IF;
760:
761: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr(
783: ,x_msg_count => l_msg_count
784: ,x_msg_data => l_msg_data
785: );
786:
787: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
788: x_msg_count := FND_MSG_PUB.count_msg;
789: IF x_msg_count = 1 then
790: pa_interface_utils_pub.get_messages
791: (p_encoded => FND_API.G_TRUE,
787: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
788: x_msg_count := FND_MSG_PUB.count_msg;
789: IF x_msg_count = 1 then
790: pa_interface_utils_pub.get_messages
791: (p_encoded => FND_API.G_TRUE,
792: p_msg_index => 1,
793: -- p_msg_count => l_msg_count,
794: -- p_msg_data => l_msg_data,
795: p_data => l_data,
795: p_data => l_data,
796: p_msg_index_out => l_msg_index_out);
797: x_msg_data := l_data;
798: END IF;
799: raise FND_API.G_EXC_ERROR;
800: END IF;
801:
802: x_pev_structure_id := l_pev_structure_id;
803: x_return_status := FND_API.G_RET_STS_SUCCESS;
799: raise FND_API.G_EXC_ERROR;
800: END IF;
801:
802: x_pev_structure_id := l_pev_structure_id;
803: x_return_status := FND_API.G_RET_STS_SUCCESS;
804:
805: IF (p_commit = FND_API.G_TRUE) THEN
806: COMMIT;
807: END IF;
801:
802: x_pev_structure_id := l_pev_structure_id;
803: x_return_status := FND_API.G_RET_STS_SUCCESS;
804:
805: IF (p_commit = FND_API.G_TRUE) THEN
806: COMMIT;
807: END IF;
808:
809: IF (p_debug_mode = 'Y') THEN
810: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE_VERSION_ATTR END');
811: END IF;
812:
813: EXCEPTION
814: when FND_API.G_EXC_ERROR then
815: if p_commit = FND_API.G_TRUE then
816: rollback to create_structure_version_attr;
817: end if;
818: x_return_status := FND_API.G_RET_STS_ERROR;
811: END IF;
812:
813: EXCEPTION
814: when FND_API.G_EXC_ERROR then
815: if p_commit = FND_API.G_TRUE then
816: rollback to create_structure_version_attr;
817: end if;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: when FND_API.G_EXC_UNEXPECTED_ERROR then
814: when FND_API.G_EXC_ERROR then
815: if p_commit = FND_API.G_TRUE then
816: rollback to create_structure_version_attr;
817: end if;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: when FND_API.G_EXC_UNEXPECTED_ERROR then
820: if p_commit = FND_API.G_TRUE then
821: rollback to create_structure_version_attr;
822: end if;
815: if p_commit = FND_API.G_TRUE then
816: rollback to create_structure_version_attr;
817: end if;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: when FND_API.G_EXC_UNEXPECTED_ERROR then
820: if p_commit = FND_API.G_TRUE then
821: rollback to create_structure_version_attr;
822: end if;
823:
816: rollback to create_structure_version_attr;
817: end if;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: when FND_API.G_EXC_UNEXPECTED_ERROR then
820: if p_commit = FND_API.G_TRUE then
821: rollback to create_structure_version_attr;
822: end if;
823:
824: -- 4537865
825: x_msg_count := 1 ;
826: x_msg_data := SUBSTRB(SQLERRM,1,240);
827: -- 4537865
828:
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
831: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
832: p_error_text => x_msg_data); -- 4537865
833: when OTHERS then
830: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
831: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
832: p_error_text => x_msg_data); -- 4537865
833: when OTHERS then
834: if p_commit = FND_API.G_TRUE then
835: rollback to create_structure_version_attr;
836: end if;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838:
833: when OTHERS then
834: if p_commit = FND_API.G_TRUE then
835: rollback to create_structure_version_attr;
836: end if;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838:
839: -- 4537865
840: x_msg_count := 1 ;
841: x_msg_data := SUBSTRB(SQLERRM,1,240);
853: -- Pre-reqs : None
854: -- Return Value : N/A
855: -- Parameters
856: -- p_api_version IN NUMBER := 1.0
857: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
858: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
859: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
860: -- p_validation_level IN VARCHAR2 := 100
861: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
854: -- Return Value : N/A
855: -- Parameters
856: -- p_api_version IN NUMBER := 1.0
857: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
858: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
859: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
860: -- p_validation_level IN VARCHAR2 := 100
861: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
862: -- p_debug_mode IN VARCHAR2 := 'N'
855: -- Parameters
856: -- p_api_version IN NUMBER := 1.0
857: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
858: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
859: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
860: -- p_validation_level IN VARCHAR2 := 100
861: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
862: -- p_debug_mode IN VARCHAR2 := 'N'
863: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
895:
896: procedure Update_Structure
897: (
898: p_api_version IN NUMBER := 1.0
899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
900: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
901: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
902: ,p_validation_level IN VARCHAR2 := 100
903: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
896: procedure Update_Structure
897: (
898: p_api_version IN NUMBER := 1.0
899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
900: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
901: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
902: ,p_validation_level IN VARCHAR2 := 100
903: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
904: ,p_debug_mode IN VARCHAR2 := 'N'
897: (
898: p_api_version IN NUMBER := 1.0
899: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
900: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
901: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
902: ,p_validation_level IN VARCHAR2 := 100
903: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
904: ,p_debug_mode IN VARCHAR2 := 'N'
905: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
947: IF (p_debug_mode = 'Y') THEN
948: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE begin');
949: END IF;
950:
951: IF (p_commit = FND_API.G_TRUE) THEN
952: savepoint update_structure;
953: END IF;
954:
955: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
951: IF (p_commit = FND_API.G_TRUE) THEN
952: savepoint update_structure;
953: END IF;
954:
955: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
952: savepoint update_structure;
953: END IF;
954:
955: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
960: FND_MSG_PUB.initialize;
955: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
960: FND_MSG_PUB.initialize;
961: END IF;
962:
963: --Lock row
960: FND_MSG_PUB.initialize;
961: END IF;
962:
963: --Lock row
964: IF( p_validate_only <> FND_API.G_TRUE) THEN
965: BEGIN
966: select 'x' into l_dummy
967: from PA_PROJ_ELEMENTS
968: where proj_element_id = p_structure_id
1003: END;
1004: END IF;
1005:
1006: --check if there is error
1007: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: IF x_msg_count = 1 then
1010: pa_interface_utils_pub.get_messages
1011: (p_encoded => FND_API.G_TRUE,
1007: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1008: x_msg_count := FND_MSG_PUB.count_msg;
1009: IF x_msg_count = 1 then
1010: pa_interface_utils_pub.get_messages
1011: (p_encoded => FND_API.G_TRUE,
1012: p_msg_index => 1,
1013: -- p_msg_count => l_msg_count,
1014: -- p_msg_data => l_msg_data,
1015: p_data => l_data,
1015: p_data => l_data,
1016: p_msg_index_out => l_msg_index_out);
1017: x_msg_data := l_data;
1018: END IF;
1019: raise FND_API.G_EXC_ERROR;
1020: END IF;
1021: PA_PROJECT_STRUCTURE_PVT1.Update_Structure(
1022: p_api_version => p_api_version
1023: ,p_init_msg_list => p_init_msg_list
1053: ,x_msg_data => x_msg_data
1054: );
1055:
1056: -- 4537865 : Wrong check was made against l_return_status. Corrected it to x_return_status
1057: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1058: x_msg_count := FND_MSG_PUB.count_msg;
1059: IF x_msg_count = 1 then
1060: pa_interface_utils_pub.get_messages
1061: (p_encoded => FND_API.G_TRUE,
1057: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1058: x_msg_count := FND_MSG_PUB.count_msg;
1059: IF x_msg_count = 1 then
1060: pa_interface_utils_pub.get_messages
1061: (p_encoded => FND_API.G_TRUE,
1062: p_msg_index => 1,
1063: -- p_msg_count => l_msg_count,
1064: -- p_msg_data => l_msg_data,
1065: p_data => l_data,
1065: p_data => l_data,
1066: p_msg_index_out => l_msg_index_out);
1067: x_msg_data := l_data;
1068: END IF;
1069: raise FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1072: x_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1068: END IF;
1069: raise FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1072: x_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1074: IF (p_commit = FND_API.G_TRUE) THEN
1075: COMMIT;
1076: END IF;
1070: END IF;
1071:
1072: x_return_status := FND_API.G_RET_STS_SUCCESS;
1073:
1074: IF (p_commit = FND_API.G_TRUE) THEN
1075: COMMIT;
1076: END IF;
1077:
1078: IF (p_debug_mode = 'Y') THEN
1079: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE end');
1080: END IF;
1081:
1082: EXCEPTION
1083: when FND_API.G_EXC_ERROR then
1084: if p_commit = FND_API.G_TRUE then
1085: rollback to update_structure;
1086: end if;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1080: END IF;
1081:
1082: EXCEPTION
1083: when FND_API.G_EXC_ERROR then
1084: if p_commit = FND_API.G_TRUE then
1085: rollback to update_structure;
1086: end if;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: when FND_API.G_EXC_UNEXPECTED_ERROR then
1083: when FND_API.G_EXC_ERROR then
1084: if p_commit = FND_API.G_TRUE then
1085: rollback to update_structure;
1086: end if;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: when FND_API.G_EXC_UNEXPECTED_ERROR then
1089: if p_commit = FND_API.G_TRUE then
1090: rollback to update_structure;
1091: end if;
1084: if p_commit = FND_API.G_TRUE then
1085: rollback to update_structure;
1086: end if;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: when FND_API.G_EXC_UNEXPECTED_ERROR then
1089: if p_commit = FND_API.G_TRUE then
1090: rollback to update_structure;
1091: end if;
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: rollback to update_structure;
1086: end if;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: when FND_API.G_EXC_UNEXPECTED_ERROR then
1089: if p_commit = FND_API.G_TRUE then
1090: rollback to update_structure;
1091: end if;
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1093:
1088: when FND_API.G_EXC_UNEXPECTED_ERROR then
1089: if p_commit = FND_API.G_TRUE then
1090: rollback to update_structure;
1091: end if;
1092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1093:
1094: -- 4537865
1095: x_msg_count := 1 ;
1096: x_msg_data := SUBSTRB(SQLERRM,1,240);
1099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1100: p_procedure_name => 'UPDATE_STRUCTURE',
1101: p_error_text => x_msg_data); -- 4537865
1102: when OTHERS then
1103: if p_commit = FND_API.G_TRUE then
1104: rollback to update_structure;
1105: end if;
1106:
1107: -- 4537865
1108: x_msg_count := 1 ;
1109: x_msg_data := SUBSTRB(SQLERRM,1,240);
1110: -- 4537865
1111:
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1114: p_procedure_name => 'UPDATE_STRUCTURE',
1115: p_error_text => x_msg_data); -- 4537865
1116: raise;
1122: -- Pre-reqs : None
1123: -- Return Value : N/A
1124: -- Parameters
1125: -- p_api_version IN NUMBER := 1.0
1126: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1127: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1128: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_validation_level IN VARCHAR2 := 100
1130: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1123: -- Return Value : N/A
1124: -- Parameters
1125: -- p_api_version IN NUMBER := 1.0
1126: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1127: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1128: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_validation_level IN VARCHAR2 := 100
1130: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1131: -- p_debug_mode IN VARCHAR2 := 'N'
1124: -- Parameters
1125: -- p_api_version IN NUMBER := 1.0
1126: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1127: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1128: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1129: -- p_validation_level IN VARCHAR2 := 100
1130: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1131: -- p_debug_mode IN VARCHAR2 := 'N'
1132: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1154:
1155: procedure Update_Structure_Version_Attr
1156: (
1157: p_api_version IN NUMBER := 1.0
1158: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1159: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1160: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1161: ,p_validation_level IN VARCHAR2 := 100
1162: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1155: procedure Update_Structure_Version_Attr
1156: (
1157: p_api_version IN NUMBER := 1.0
1158: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1159: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1160: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1161: ,p_validation_level IN VARCHAR2 := 100
1162: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1163: ,p_debug_mode IN VARCHAR2 := 'N'
1156: (
1157: p_api_version IN NUMBER := 1.0
1158: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1159: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1160: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1161: ,p_validation_level IN VARCHAR2 := 100
1162: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1163: ,p_debug_mode IN VARCHAR2 := 'N'
1164: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1196: IF (p_debug_mode = 'Y') THEN
1197: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1198: END IF;
1199:
1200: IF (p_commit = FND_API.G_TRUE) THEN
1201: savepoint update_structure_version_attr;
1202: END IF;
1203:
1204: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1200: IF (p_commit = FND_API.G_TRUE) THEN
1201: savepoint update_structure_version_attr;
1202: END IF;
1203:
1204: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1206: END IF;
1207:
1208: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1201: savepoint update_structure_version_attr;
1202: END IF;
1203:
1204: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1206: END IF;
1207:
1208: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1209: FND_MSG_PUB.initialize;
1204: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1206: END IF;
1207:
1208: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1209: FND_MSG_PUB.initialize;
1210: END IF;
1211:
1212: --Lock row
1211:
1212: --Lock row
1213:
1214: --check if there is error
1215: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1216: -- x_msg_count := FND_MSG_PUB.count_msg;
1217: -- IF x_msg_count = 1 then
1218: -- pa_interface_utils_pub.get_messages
1219: -- (p_encoded => FND_API.G_TRUE,
1215: -- IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1216: -- x_msg_count := FND_MSG_PUB.count_msg;
1217: -- IF x_msg_count = 1 then
1218: -- pa_interface_utils_pub.get_messages
1219: -- (p_encoded => FND_API.G_TRUE,
1220: -- p_msg_index => 1,
1221: -- p_msg_count => l_msg_count,
1222: -- p_msg_data => l_msg_data,
1223: -- p_data => l_data,
1223: -- p_data => l_data,
1224: -- p_msg_index_out => l_msg_index_out);
1225: -- x_msg_data := l_data;
1226: -- END IF;
1227: -- raise FND_API.G_EXC_ERROR;
1228: -- END IF;
1229:
1230: PA_PROJECT_STRUCTURE_PVT1.Update_Structure_Version_Attr(
1231: p_api_version => p_api_version
1252: ,x_msg_count => x_msg_count
1253: ,x_msg_data => x_msg_data
1254: );
1255:
1256: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257: x_msg_count := FND_MSG_PUB.count_msg;
1258: IF x_msg_count = 1 then
1259: pa_interface_utils_pub.get_messages
1260: (p_encoded => FND_API.G_TRUE,
1256: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257: x_msg_count := FND_MSG_PUB.count_msg;
1258: IF x_msg_count = 1 then
1259: pa_interface_utils_pub.get_messages
1260: (p_encoded => FND_API.G_TRUE,
1261: p_msg_index => 1,
1262: -- p_msg_count => l_msg_count,
1263: -- p_msg_data => l_msg_data,
1264: p_data => l_data,
1264: p_data => l_data,
1265: p_msg_index_out => l_msg_index_out);
1266: x_msg_data := l_data;
1267: END IF;
1268: raise FND_API.G_EXC_ERROR;
1269: END IF;
1270:
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272:
1267: END IF;
1268: raise FND_API.G_EXC_ERROR;
1269: END IF;
1270:
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272:
1273: IF (p_commit = FND_API.G_TRUE) THEN
1274: COMMIT;
1275: END IF;
1269: END IF;
1270:
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272:
1273: IF (p_commit = FND_API.G_TRUE) THEN
1274: COMMIT;
1275: END IF;
1276:
1277: IF (p_debug_mode = 'Y') THEN
1278: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURE_VERSION_ATTR END');
1279: END IF;
1280:
1281: EXCEPTION
1282: when FND_API.G_EXC_ERROR then
1283: if p_commit = FND_API.G_TRUE then
1284: rollback to update_structure_version_attr;
1285: end if;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1279: END IF;
1280:
1281: EXCEPTION
1282: when FND_API.G_EXC_ERROR then
1283: if p_commit = FND_API.G_TRUE then
1284: rollback to update_structure_version_attr;
1285: end if;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1282: when FND_API.G_EXC_ERROR then
1283: if p_commit = FND_API.G_TRUE then
1284: rollback to update_structure_version_attr;
1285: end if;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: if p_commit = FND_API.G_TRUE then
1289: rollback to update_structure_version_attr;
1290: end if;
1283: if p_commit = FND_API.G_TRUE then
1284: rollback to update_structure_version_attr;
1285: end if;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: if p_commit = FND_API.G_TRUE then
1289: rollback to update_structure_version_attr;
1290: end if;
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1284: rollback to update_structure_version_attr;
1285: end if;
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: if p_commit = FND_API.G_TRUE then
1289: rollback to update_structure_version_attr;
1290: end if;
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: -- 4537865
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: if p_commit = FND_API.G_TRUE then
1289: rollback to update_structure_version_attr;
1290: end if;
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: -- 4537865
1293: x_msg_count := 1 ;
1294: x_msg_data := SUBSTRB(SQLERRM,1,240);
1295: -- 4537865
1297: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1298: p_procedure_name => 'Update_Structure_Version_Attr',
1299: p_error_text => x_msg_data) ; -- 4537865
1300: when OTHERS then
1301: if p_commit = FND_API.G_TRUE then
1302: rollback to update_structure_version_attr;
1303: end if;
1304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: -- 4537865
1300: when OTHERS then
1301: if p_commit = FND_API.G_TRUE then
1302: rollback to update_structure_version_attr;
1303: end if;
1304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: -- 4537865
1306: x_msg_count := 1 ;
1307: x_msg_data := SUBSTRB(SQLERRM,1,240);
1308: -- 4537865
1319: -- Pre-reqs : None
1320: -- Return Value : N/A
1321: -- Parameters
1322: -- p_api_version IN NUMBER := 1.0
1323: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1324: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1325: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1326: -- p_validation_level IN VARCHAR2 := 100
1327: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1320: -- Return Value : N/A
1321: -- Parameters
1322: -- p_api_version IN NUMBER := 1.0
1323: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1324: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1325: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1326: -- p_validation_level IN VARCHAR2 := 100
1327: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1328: -- p_debug_mode IN VARCHAR2 := 'N'
1321: -- Parameters
1322: -- p_api_version IN NUMBER := 1.0
1323: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1324: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1325: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1326: -- p_validation_level IN VARCHAR2 := 100
1327: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1328: -- p_debug_mode IN VARCHAR2 := 'N'
1329: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1345:
1346: procedure Delete_Structure_Version
1347: (
1348: p_api_version IN NUMBER := 1.0
1349: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1350: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1351: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1352: ,p_validation_level IN VARCHAR2 := 100
1353: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1346: procedure Delete_Structure_Version
1347: (
1348: p_api_version IN NUMBER := 1.0
1349: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1350: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1351: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1352: ,p_validation_level IN VARCHAR2 := 100
1353: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1354: ,p_debug_mode IN VARCHAR2 := 'N'
1347: (
1348: p_api_version IN NUMBER := 1.0
1349: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1350: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1351: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1352: ,p_validation_level IN VARCHAR2 := 100
1353: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1354: ,p_debug_mode IN VARCHAR2 := 'N'
1355: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1440: IF (p_debug_mode = 'Y') THEN
1441: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION begin');
1442: END IF;
1443:
1444: IF (p_commit = FND_API.G_TRUE) THEN
1445: savepoint delete_structure_version;
1446: END IF;
1447:
1448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1444: IF (p_commit = FND_API.G_TRUE) THEN
1445: savepoint delete_structure_version;
1446: END IF;
1447:
1448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1445: savepoint delete_structure_version;
1446: END IF;
1447:
1448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1453: FND_MSG_PUB.initialize;
1448: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451:
1452: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1453: FND_MSG_PUB.initialize;
1454: END IF;
1455:
1456: IF (p_debug_mode = 'Y') THEN
1513: ,x_msg_count => l_msg_count
1514: ,x_msg_data => l_msg_data);
1515:
1516: -- Checking the return status.
1517: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1518: x_msg_count := FND_MSG_PUB.count_msg;
1519: IF x_msg_count = 1 then
1520: pa_interface_utils_pub.get_messages
1521: (p_encoded => FND_API.G_TRUE,
1517: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1518: x_msg_count := FND_MSG_PUB.count_msg;
1519: IF x_msg_count = 1 then
1520: pa_interface_utils_pub.get_messages
1521: (p_encoded => FND_API.G_TRUE,
1522: p_msg_index => 1,
1523: p_data => l_data,
1524: p_msg_index_out => l_msg_index_out);
1525: x_msg_data := l_data;
1523: p_data => l_data,
1524: p_msg_index_out => l_msg_index_out);
1525: x_msg_data := l_data;
1526: END IF;
1527: raise FND_API.G_EXC_ERROR;
1528: END IF;
1529:
1530:
1531: ELSE -- Not a published structure version. Going with the existing regular flow.
1537: l_error_message_code);
1538: IF (l_return_status <> 'S') THEN
1539: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1540: x_msg_data := l_error_message_code;
1541: RAISE FND_API.G_EXC_ERROR;
1542: END IF;
1543:
1544: -- 4369486 : Added this check : If this is the last working structure version,we wont be allowed to delete it.
1545:
1545:
1546: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
1547: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
1548: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
1549: RAISE FND_API.G_EXC_ERROR;
1550: END IF;
1551: -- End of Code Change for 4369486
1552:
1553: --NO ERROR, call delete_task
1576: p_calling_from => p_calling_from, -- Bug 6023347
1577: x_return_status => l_return_status,
1578: x_msg_count => l_msg_count,
1579: x_msg_data => l_msg_data);
1580: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1581: x_msg_count := FND_MSG_PUB.count_msg;
1582: IF x_msg_count = 1 then
1583: pa_interface_utils_pub.get_messages
1584: (p_encoded => FND_API.G_TRUE,
1580: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1581: x_msg_count := FND_MSG_PUB.count_msg;
1582: IF x_msg_count = 1 then
1583: pa_interface_utils_pub.get_messages
1584: (p_encoded => FND_API.G_TRUE,
1585: p_msg_index => 1,
1586: p_data => l_data,
1587: p_msg_index_out => l_msg_index_out);
1588: x_msg_data := l_data;
1587: p_msg_index_out => l_msg_index_out);
1588: x_msg_data := l_data;
1589: END IF;
1590: CLOSE get_top_tasks;
1591: raise FND_API.G_EXC_ERROR;
1592: END IF;
1593:
1594: END LOOP;
1595: CLOSE get_top_tasks;
1616:
1617: END IF;
1618:
1619: --check for errors.
1620: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1621: x_msg_count := FND_MSG_PUB.count_msg;
1622: IF x_msg_count = 1 then
1623: pa_interface_utils_pub.get_messages
1624: (p_encoded => FND_API.G_TRUE,
1620: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1621: x_msg_count := FND_MSG_PUB.count_msg;
1622: IF x_msg_count = 1 then
1623: pa_interface_utils_pub.get_messages
1624: (p_encoded => FND_API.G_TRUE,
1625: p_msg_index => 1,
1626: -- p_msg_count => l_msg_count,
1627: -- p_msg_data => l_msg_data,
1628: p_data => l_data,
1628: p_data => l_data,
1629: p_msg_index_out => l_msg_index_out);
1630: x_msg_data := l_data;
1631: END IF;
1632: raise FND_API.G_EXC_ERROR;
1633: END IF;
1634:
1635: IF (p_debug_mode = 'Y') THEN
1636: pa_debug.debug('del structure version attr');
1643: p_record_version_number => l_pevs_rvn,
1644: x_return_status => l_return_status,
1645: x_msg_count => l_msg_count,
1646: x_msg_data => l_msg_data);
1647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1648: x_msg_count := FND_MSG_PUB.count_msg;
1649: IF x_msg_count = 1 then
1650: pa_interface_utils_pub.get_messages
1651: (p_encoded => FND_API.G_TRUE,
1647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1648: x_msg_count := FND_MSG_PUB.count_msg;
1649: IF x_msg_count = 1 then
1650: pa_interface_utils_pub.get_messages
1651: (p_encoded => FND_API.G_TRUE,
1652: p_msg_index => 1,
1653: -- p_msg_count => l_msg_count,
1654: -- p_msg_data => l_msg_data,
1655: p_data => l_data,
1655: p_data => l_data,
1656: p_msg_index_out => l_msg_index_out);
1657: x_msg_data := l_data;
1658: END IF;
1659: raise FND_API.G_EXC_ERROR;
1660: END IF;
1661:
1662:
1663: IF (p_debug_mode = 'Y') THEN
1673: x_return_status => l_return_status,
1674: x_msg_count => l_msg_count,
1675: x_msg_data => l_msg_data);
1676:
1677: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1678: x_msg_count := FND_MSG_PUB.count_msg;
1679: IF x_msg_count = 1 then
1680: pa_interface_utils_pub.get_messages
1681: (p_encoded => FND_API.G_TRUE,
1677: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1678: x_msg_count := FND_MSG_PUB.count_msg;
1679: IF x_msg_count = 1 then
1680: pa_interface_utils_pub.get_messages
1681: (p_encoded => FND_API.G_TRUE,
1682: p_msg_index => 1,
1683: -- p_msg_count => l_msg_count,
1684: -- p_msg_data => l_msg_data,
1685: p_data => l_data,
1685: p_data => l_data,
1686: p_msg_index_out => l_msg_index_out);
1687: x_msg_data := l_data;
1688: END IF;
1689: raise FND_API.G_EXC_ERROR;
1690: END IF;
1691:
1692:
1693: --Delete structure if this is the last version
1705: FETCH sel_wp_attr into l_wp_attr_rvn;
1706: CLOSE sel_wp_attr;
1707:
1708: PA_WORKPLAN_ATTR_PUB.DELETE_PROJ_WORKPLAN_ATTRS(
1709: p_validate_only => FND_API.G_FALSE
1710: ,p_project_id => l_project_id
1711: ,p_proj_element_id => l_proj_element_id
1712: ,p_record_version_number => l_wp_attr_rvn
1713: ,x_return_status => l_return_status
1715: ,x_msg_data => l_msg_data
1716: );
1717:
1718: --Check error
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: x_msg_count := FND_MSG_PUB.count_msg;
1721: IF x_msg_count = 1 then
1722: pa_interface_utils_pub.get_messages
1723: (p_encoded => FND_API.G_TRUE,
1719: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1720: x_msg_count := FND_MSG_PUB.count_msg;
1721: IF x_msg_count = 1 then
1722: pa_interface_utils_pub.get_messages
1723: (p_encoded => FND_API.G_TRUE,
1724: p_msg_index => 1,
1725: p_data => l_data,
1726: p_msg_index_out => l_msg_index_out);
1727: x_msg_data := l_data;
1725: p_data => l_data,
1726: p_msg_index_out => l_msg_index_out);
1727: x_msg_data := l_data;
1728: END IF;
1729: raise FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1732: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
1733: p_validate_only => FND_API.G_FALSE
1729: raise FND_API.G_EXC_ERROR;
1730: END IF;
1731:
1732: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
1733: p_validate_only => FND_API.G_FALSE
1734: ,p_project_id => l_project_id
1735: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
1736: ,p_object_id => l_proj_element_id
1737: ,p_structure_type => l_structure_type --Amit
1740: ,x_msg_data => l_msg_data
1741: );
1742:
1743: --Check error
1744: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1745: x_msg_count := FND_MSG_PUB.count_msg;
1746: IF x_msg_count = 1 then
1747: pa_interface_utils_pub.get_messages
1748: (p_encoded => FND_API.G_TRUE,
1744: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1745: x_msg_count := FND_MSG_PUB.count_msg;
1746: IF x_msg_count = 1 then
1747: pa_interface_utils_pub.get_messages
1748: (p_encoded => FND_API.G_TRUE,
1749: p_msg_index => 1,
1750: p_data => l_data,
1751: p_msg_index_out => l_msg_index_out);
1752: x_msg_data := l_data;
1750: p_data => l_data,
1751: p_msg_index_out => l_msg_index_out);
1752: x_msg_data := l_data;
1753: END IF;
1754: raise FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1757: END IF;
1758:
1770: END IF;
1771: CLOSE is_last_version;
1772:
1773: --Check error
1774: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1775: x_msg_count := FND_MSG_PUB.count_msg;
1776: IF x_msg_count = 1 then
1777: pa_interface_utils_pub.get_messages
1778: (p_encoded => FND_API.G_TRUE,
1774: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1775: x_msg_count := FND_MSG_PUB.count_msg;
1776: IF x_msg_count = 1 then
1777: pa_interface_utils_pub.get_messages
1778: (p_encoded => FND_API.G_TRUE,
1779: p_msg_index => 1,
1780: -- p_msg_count => l_msg_count,
1781: -- p_msg_data => l_msg_data,
1782: p_data => l_data,
1782: p_data => l_data,
1783: p_msg_index_out => l_msg_index_out);
1784: x_msg_data := l_data;
1785: END IF;
1786: raise FND_API.G_EXC_ERROR;
1787: END IF;
1788:
1789:
1790: x_return_status := FND_API.G_RET_STS_SUCCESS;
1786: raise FND_API.G_EXC_ERROR;
1787: END IF;
1788:
1789:
1790: x_return_status := FND_API.G_RET_STS_SUCCESS;
1791:
1792: IF (p_debug_mode = 'Y') THEN
1793: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
1794: END IF;
1795:
1796: END IF; -- End of IF l_strucutre_status = 'STRUCTURE_PUBLISHED' THEN
1797:
1798: EXCEPTION
1799: when FND_API.G_EXC_ERROR then
1800: if p_commit = FND_API.G_TRUE then
1801: rollback to delete_structure_version;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1796: END IF; -- End of IF l_strucutre_status = 'STRUCTURE_PUBLISHED' THEN
1797:
1798: EXCEPTION
1799: when FND_API.G_EXC_ERROR then
1800: if p_commit = FND_API.G_TRUE then
1801: rollback to delete_structure_version;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1800: if p_commit = FND_API.G_TRUE then
1801: rollback to delete_structure_version;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: if p_commit = FND_API.G_TRUE then
1807: rollback to delete_structure_version;
1808: end if;
1801: rollback to delete_structure_version;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: if p_commit = FND_API.G_TRUE then
1807: rollback to delete_structure_version;
1808: end if;
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1802: end if;
1803: x_msg_count := FND_MSG_PUB.count_msg;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: if p_commit = FND_API.G_TRUE then
1807: rollback to delete_structure_version;
1808: end if;
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: -- 4537865
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: if p_commit = FND_API.G_TRUE then
1807: rollback to delete_structure_version;
1808: end if;
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: -- 4537865
1811: x_msg_count := 1 ;
1812: x_msg_data := SUBSTRB(SQLERRM,1,240);
1813: -- 4537865
1815: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
1816: p_procedure_name => 'Delete_Structure_Version',
1817: p_error_text => x_msg_data); -- 4537865
1818: when OTHERS then
1819: if p_commit = FND_API.G_TRUE then
1820: rollback to delete_structure_version;
1821: end if;
1822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1823: -- 4537865
1818: when OTHERS then
1819: if p_commit = FND_API.G_TRUE then
1820: rollback to delete_structure_version;
1821: end if;
1822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1823: -- 4537865
1824: x_msg_count := 1 ;
1825: x_msg_data := SUBSTRB(SQLERRM,1,240);
1826: -- 4537865
1837: -- Pre-reqs : None
1838: -- Return Value : N/A
1839: -- Parameters
1840: -- p_api_version IN NUMBER := 1.0
1841: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1842: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1844: -- p_validation_level IN VARCHAR2 := 100
1845: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1838: -- Return Value : N/A
1839: -- Parameters
1840: -- p_api_version IN NUMBER := 1.0
1841: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1842: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1844: -- p_validation_level IN VARCHAR2 := 100
1845: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1846: -- p_debug_mode IN VARCHAR2 := 'N'
1839: -- Parameters
1840: -- p_api_version IN NUMBER := 1.0
1841: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1842: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1843: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1844: -- p_validation_level IN VARCHAR2 := 100
1845: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1846: -- p_debug_mode IN VARCHAR2 := 'N'
1847: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1866:
1867: procedure Publish_Structure
1868: (
1869: p_api_version IN NUMBER := 1.0
1870: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1871: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1873: ,p_validation_level IN VARCHAR2 := 100
1874: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1867: procedure Publish_Structure
1868: (
1869: p_api_version IN NUMBER := 1.0
1870: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1871: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1873: ,p_validation_level IN VARCHAR2 := 100
1874: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1875: ,p_debug_mode IN VARCHAR2 := 'N'
1868: (
1869: p_api_version IN NUMBER := 1.0
1870: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1871: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1872: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1873: ,p_validation_level IN VARCHAR2 := 100
1874: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1875: ,p_debug_mode IN VARCHAR2 := 'N'
1876: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1918: IF (p_debug_mode = 'Y') THEN
1919: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1920: END IF;
1921:
1922: IF (p_commit = FND_API.G_TRUE) THEN
1923: savepoint publish_structure;
1924: END IF;
1925:
1926: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1922: IF (p_commit = FND_API.G_TRUE) THEN
1923: savepoint publish_structure;
1924: END IF;
1925:
1926: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1923: savepoint publish_structure;
1924: END IF;
1925:
1926: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1931: FND_MSG_PUB.initialize;
1926: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1931: FND_MSG_PUB.initialize;
1932: END IF;
1933:
1934: --Check if this structure can be published (ie, if linked structures are published)
1934: --Check if this structure can be published (ie, if linked structures are published)
1935: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1936: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
1937: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
1938: RAISE FND_API.G_EXC_ERROR;
1939: END IF;
1940:
1941:
1942: --Call private API
1965: );
1966:
1967: -- error_msg('public --> '||l_return_status||l_msg_count||l_msg_data);
1968:
1969: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970: x_msg_count := FND_MSG_PUB.count_msg;
1971: IF x_msg_count = 1 then
1972: pa_interface_utils_pub.get_messages
1973: (p_encoded => FND_API.G_TRUE,
1969: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970: x_msg_count := FND_MSG_PUB.count_msg;
1971: IF x_msg_count = 1 then
1972: pa_interface_utils_pub.get_messages
1973: (p_encoded => FND_API.G_TRUE,
1974: p_msg_index => 1,
1975: -- p_msg_count => l_msg_count,
1976: -- p_msg_data => l_msg_data,
1977: p_data => l_data,
1978: p_msg_index_out => l_msg_index_out);
1979: x_msg_data := l_data;
1980: -- error_msg('public --> '||x_msg_data||', '||l_msg_data);
1981: END IF;
1982: raise FND_API.G_EXC_ERROR;
1983: END IF;
1984:
1985: -- Bug 8347243 : Workflow notification here should happen only in ONLINE mode. For CONCURRENT mode
1986: -- workflow notification will be initiated from PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_CONC
2015: ,x_msg_count => l_msg_count
2016: ,x_msg_data => l_msg_data
2017: );
2018:
2019: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2020: x_msg_count := FND_MSG_PUB.count_msg;
2021: IF x_msg_count = 1 then
2022: pa_interface_utils_pub.get_messages
2023: (p_encoded => FND_API.G_TRUE,
2019: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2020: x_msg_count := FND_MSG_PUB.count_msg;
2021: IF x_msg_count = 1 then
2022: pa_interface_utils_pub.get_messages
2023: (p_encoded => FND_API.G_TRUE,
2024: p_msg_index => 1,
2025: -- p_msg_count => l_msg_count,
2026: -- p_msg_data => l_msg_data,
2027: p_data => l_data,
2028: p_msg_index_out => l_msg_index_out);
2029: x_msg_data := l_data;
2030: -- error_msg('public --> '||x_msg_data||', '||l_msg_data);
2031: END IF;
2032: raise FND_API.G_EXC_ERROR;
2033: END IF;
2034:
2035: -- FP M : 3491609 : Project Execution Workflow
2036: PA_WORKPLAN_WORKFLOW.START_PROJECT_EXECUTION_WF
2040: ,x_msg_data => l_msg_data
2041: ,x_return_status => l_return_status
2042: ) ;
2043:
2044: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2045: x_msg_count := FND_MSG_PUB.count_msg;
2046: IF x_msg_count = 1 then
2047: pa_interface_utils_pub.get_messages
2048: (p_encoded => FND_API.G_TRUE,
2044: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2045: x_msg_count := FND_MSG_PUB.count_msg;
2046: IF x_msg_count = 1 then
2047: pa_interface_utils_pub.get_messages
2048: (p_encoded => FND_API.G_TRUE,
2049: p_msg_index => 1,
2050: p_data => l_data,
2051: p_msg_index_out => l_msg_index_out);
2052: x_msg_data := l_data;
2050: p_data => l_data,
2051: p_msg_index_out => l_msg_index_out);
2052: x_msg_data := l_data;
2053: END IF;
2054: raise FND_API.G_EXC_ERROR;
2055: END IF;
2056:
2057: -- FP M : 3491609 : Project Execution Workflow
2058: x_return_status := FND_API.G_RET_STS_SUCCESS;
2054: raise FND_API.G_EXC_ERROR;
2055: END IF;
2056:
2057: -- FP M : 3491609 : Project Execution Workflow
2058: x_return_status := FND_API.G_RET_STS_SUCCESS;
2059:
2060: END IF; -- Bug 8347243
2061:
2062: IF (p_commit = FND_API.G_TRUE) THEN
2058: x_return_status := FND_API.G_RET_STS_SUCCESS;
2059:
2060: END IF; -- Bug 8347243
2061:
2062: IF (p_commit = FND_API.G_TRUE) THEN
2063: COMMIT;
2064: END IF;
2065:
2066: IF (p_debug_mode = 'Y') THEN
2067: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE end');
2068: END IF;
2069:
2070: EXCEPTION
2071: when FND_API.G_EXC_ERROR then
2072: if p_commit = FND_API.G_TRUE then
2073: rollback to publish_structure;
2074: end if;
2075: x_return_status := FND_API.G_RET_STS_ERROR;
2068: END IF;
2069:
2070: EXCEPTION
2071: when FND_API.G_EXC_ERROR then
2072: if p_commit = FND_API.G_TRUE then
2073: rollback to publish_structure;
2074: end if;
2075: x_return_status := FND_API.G_RET_STS_ERROR;
2076:
2071: when FND_API.G_EXC_ERROR then
2072: if p_commit = FND_API.G_TRUE then
2073: rollback to publish_structure;
2074: end if;
2075: x_return_status := FND_API.G_RET_STS_ERROR;
2076:
2077: x_published_struct_ver_id := NULL ; -- 4537865
2078: when FND_API.G_EXC_UNEXPECTED_ERROR then
2079: if p_commit = FND_API.G_TRUE then
2074: end if;
2075: x_return_status := FND_API.G_RET_STS_ERROR;
2076:
2077: x_published_struct_ver_id := NULL ; -- 4537865
2078: when FND_API.G_EXC_UNEXPECTED_ERROR then
2079: if p_commit = FND_API.G_TRUE then
2080: rollback to publish_structure;
2081: end if;
2082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2075: x_return_status := FND_API.G_RET_STS_ERROR;
2076:
2077: x_published_struct_ver_id := NULL ; -- 4537865
2078: when FND_API.G_EXC_UNEXPECTED_ERROR then
2079: if p_commit = FND_API.G_TRUE then
2080: rollback to publish_structure;
2081: end if;
2082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2083: -- 4537865
2078: when FND_API.G_EXC_UNEXPECTED_ERROR then
2079: if p_commit = FND_API.G_TRUE then
2080: rollback to publish_structure;
2081: end if;
2082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2083: -- 4537865
2084: x_msg_count := 1 ;
2085: x_msg_data := SUBSTRB(SQLERRM,1,240);
2086: x_published_struct_ver_id := NULL ;
2089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2090: p_procedure_name => 'PUBLISH_STRUCTURE',
2091: p_error_text => x_msg_data); -- 4537865
2092: when OTHERS then
2093: if p_commit = FND_API.G_TRUE then
2094: rollback to publish_structure;
2095: end if;
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: -- 4537865
2092: when OTHERS then
2093: if p_commit = FND_API.G_TRUE then
2094: rollback to publish_structure;
2095: end if;
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: -- 4537865
2098: x_msg_count := 1 ;
2099: x_msg_data := SUBSTRB(SQLERRM,1,240);
2100: x_published_struct_ver_id := NULL ;
2112: -- Pre-reqs : None
2113: -- Return Value : N/A
2114: -- Parameters
2115: -- p_api_version IN NUMBER := 1.0
2116: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2117: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2118: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2119: -- p_validation_level IN VARCHAR2 := 100
2120: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2113: -- Return Value : N/A
2114: -- Parameters
2115: -- p_api_version IN NUMBER := 1.0
2116: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2117: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2118: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2119: -- p_validation_level IN VARCHAR2 := 100
2120: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2121: -- p_debug_mode IN VARCHAR2 := 'N'
2114: -- Parameters
2115: -- p_api_version IN NUMBER := 1.0
2116: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2117: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2118: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2119: -- p_validation_level IN VARCHAR2 := 100
2120: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2121: -- p_debug_mode IN VARCHAR2 := 'N'
2122: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2136:
2137: procedure Copy_Structure
2138: (
2139: p_api_version IN NUMBER := 1.0
2140: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2141: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2142: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2143: ,p_validation_level IN VARCHAR2 := 100
2144: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2137: procedure Copy_Structure
2138: (
2139: p_api_version IN NUMBER := 1.0
2140: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2141: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2142: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2143: ,p_validation_level IN VARCHAR2 := 100
2144: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2145: ,p_debug_mode IN VARCHAR2 := 'N'
2138: (
2139: p_api_version IN NUMBER := 1.0
2140: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2141: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2142: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2143: ,p_validation_level IN VARCHAR2 := 100
2144: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2145: ,p_debug_mode IN VARCHAR2 := 'N'
2146: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2171: IF (p_debug_mode = 'Y') THEN
2172: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2173: END IF;
2174:
2175: IF (p_commit = FND_API.G_TRUE) THEN
2176: savepoint copy_structure;
2177: END IF;
2178:
2179: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2175: IF (p_commit = FND_API.G_TRUE) THEN
2176: savepoint copy_structure;
2177: END IF;
2178:
2179: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2183: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2176: savepoint copy_structure;
2177: END IF;
2178:
2179: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2183: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2184: FND_MSG_PUB.initialize;
2179: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2181: END IF;
2182:
2183: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2184: FND_MSG_PUB.initialize;
2185: END IF;
2186:
2187: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2184: FND_MSG_PUB.initialize;
2185: END IF;
2186:
2187: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2188: ( p_commit => FND_API.G_FALSE
2189: ,p_validate_only => p_validate_only
2190: ,p_validation_level => p_validation_level
2191: ,p_calling_module => p_calling_module
2192: ,p_debug_mode => p_debug_mode
2201: ,x_return_status => l_return_status
2202: ,x_msg_count => l_msg_count
2203: ,x_msg_data => l_msg_data);
2204:
2205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2206: x_msg_count := FND_MSG_PUB.count_msg;
2207: IF x_msg_count = 1 then
2208: pa_interface_utils_pub.get_messages
2209: (p_encoded => FND_API.G_TRUE,
2205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2206: x_msg_count := FND_MSG_PUB.count_msg;
2207: IF x_msg_count = 1 then
2208: pa_interface_utils_pub.get_messages
2209: (p_encoded => FND_API.G_TRUE,
2210: p_msg_index => 1,
2211: -- p_msg_count => l_msg_count,
2212: -- p_msg_data => l_msg_data,
2213: p_data => l_data,
2213: p_data => l_data,
2214: p_msg_index_out => l_msg_index_out);
2215: x_msg_data := l_data;
2216: END IF;
2217: raise FND_API.G_EXC_ERROR;
2218: END IF;
2219:
2220: x_return_status := FND_API.G_RET_STS_SUCCESS;
2221:
2216: END IF;
2217: raise FND_API.G_EXC_ERROR;
2218: END IF;
2219:
2220: x_return_status := FND_API.G_RET_STS_SUCCESS;
2221:
2222: IF (p_commit = FND_API.G_TRUE) THEN
2223: COMMIT;
2224: END IF;
2218: END IF;
2219:
2220: x_return_status := FND_API.G_RET_STS_SUCCESS;
2221:
2222: IF (p_commit = FND_API.G_TRUE) THEN
2223: COMMIT;
2224: END IF;
2225:
2226: IF (p_debug_mode = 'Y') THEN
2227: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE END');
2228: END IF;
2229:
2230: EXCEPTION
2231: when FND_API.G_EXC_ERROR then
2232: if p_commit = FND_API.G_TRUE then
2233: rollback to copy_structure;
2234: end if;
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2228: END IF;
2229:
2230: EXCEPTION
2231: when FND_API.G_EXC_ERROR then
2232: if p_commit = FND_API.G_TRUE then
2233: rollback to copy_structure;
2234: end if;
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: when FND_API.G_EXC_UNEXPECTED_ERROR then
2231: when FND_API.G_EXC_ERROR then
2232: if p_commit = FND_API.G_TRUE then
2233: rollback to copy_structure;
2234: end if;
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: when FND_API.G_EXC_UNEXPECTED_ERROR then
2237: if p_commit = FND_API.G_TRUE then
2238: rollback to copy_structure;
2239: end if;
2232: if p_commit = FND_API.G_TRUE then
2233: rollback to copy_structure;
2234: end if;
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: when FND_API.G_EXC_UNEXPECTED_ERROR then
2237: if p_commit = FND_API.G_TRUE then
2238: rollback to copy_structure;
2239: end if;
2240: -- 4537865
2233: rollback to copy_structure;
2234: end if;
2235: x_return_status := FND_API.G_RET_STS_ERROR;
2236: when FND_API.G_EXC_UNEXPECTED_ERROR then
2237: if p_commit = FND_API.G_TRUE then
2238: rollback to copy_structure;
2239: end if;
2240: -- 4537865
2241: x_msg_count := 1 ;
2240: -- 4537865
2241: x_msg_count := 1 ;
2242: x_msg_data := SUBSTRB(SQLERRM,1,240);
2243: -- 4537865
2244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2246: p_procedure_name => 'COPY_STRUCTURE',
2247: p_error_text => x_msg_data); -- 4537865
2248: when OTHERS then
2245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2246: p_procedure_name => 'COPY_STRUCTURE',
2247: p_error_text => x_msg_data); -- 4537865
2248: when OTHERS then
2249: if p_commit = FND_API.G_TRUE then
2250: rollback to copy_structure;
2251: end if;
2252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2253: -- 4537865
2248: when OTHERS then
2249: if p_commit = FND_API.G_TRUE then
2250: rollback to copy_structure;
2251: end if;
2252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2253: -- 4537865
2254: x_msg_count := 1 ;
2255: x_msg_data := SUBSTRB(SQLERRM,1,240);
2256: -- 4537865
2266: -- Pre-reqs : None
2267: -- Return Value : N/A
2268: -- Parameters
2269: -- p_api_version IN NUMBER := 1.0
2270: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2271: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2272: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_validation_level IN VARCHAR2 := 100
2274: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2267: -- Return Value : N/A
2268: -- Parameters
2269: -- p_api_version IN NUMBER := 1.0
2270: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2271: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2272: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_validation_level IN VARCHAR2 := 100
2274: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2275: -- p_debug_mode IN VARCHAR2 := 'N'
2268: -- Parameters
2269: -- p_api_version IN NUMBER := 1.0
2270: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2271: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2272: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_validation_level IN VARCHAR2 := 100
2274: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2275: -- p_debug_mode IN VARCHAR2 := 'N'
2276: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2291:
2292: procedure Copy_Structure_Version
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2292: procedure Copy_Structure_Version
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2300: ,p_debug_mode IN VARCHAR2 := 'N'
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2300: ,p_debug_mode IN VARCHAR2 := 'N'
2301: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2325: IF (p_debug_mode = 'Y') THEN
2326: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2327: END IF;
2328:
2329: IF (p_commit = FND_API.G_TRUE) THEN
2330: savepoint copy_structure_version;
2331: END IF;
2332:
2333: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2329: IF (p_commit = FND_API.G_TRUE) THEN
2330: savepoint copy_structure_version;
2331: END IF;
2332:
2333: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2330: savepoint copy_structure_version;
2331: END IF;
2332:
2333: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2338: FND_MSG_PUB.initialize;
2333: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2338: FND_MSG_PUB.initialize;
2339: END IF;
2340:
2341: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2338: FND_MSG_PUB.initialize;
2339: END IF;
2340:
2341: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2342: ( p_commit => FND_API.G_FALSE
2343: ,p_validate_only => p_validate_only
2344: ,p_validation_level => p_validation_level
2345: ,p_calling_module => p_calling_module
2346: ,p_debug_mode => p_debug_mode
2353: ,x_return_status => l_return_status
2354: ,x_msg_count => l_msg_count
2355: ,x_msg_data => l_msg_data);
2356:
2357: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2358: x_msg_count := FND_MSG_PUB.count_msg;
2359: IF x_msg_count = 1 then
2360: pa_interface_utils_pub.get_messages
2361: (p_encoded => FND_API.G_TRUE,
2357: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2358: x_msg_count := FND_MSG_PUB.count_msg;
2359: IF x_msg_count = 1 then
2360: pa_interface_utils_pub.get_messages
2361: (p_encoded => FND_API.G_TRUE,
2362: p_msg_index => 1,
2363: -- p_msg_count => l_msg_count,
2364: -- p_msg_data => l_msg_data,
2365: p_data => l_data,
2365: p_data => l_data,
2366: p_msg_index_out => l_msg_index_out);
2367: x_msg_data := l_data;
2368: END IF;
2369: raise FND_API.G_EXC_ERROR;
2370: END IF;
2371:
2372: x_new_struct_ver_id := l_new_struct_ver_id;
2373: x_return_status := FND_API.G_RET_STS_SUCCESS;
2369: raise FND_API.G_EXC_ERROR;
2370: END IF;
2371:
2372: x_new_struct_ver_id := l_new_struct_ver_id;
2373: x_return_status := FND_API.G_RET_STS_SUCCESS;
2374:
2375: IF (p_commit = FND_API.G_TRUE) THEN
2376: COMMIT;
2377: END IF;
2371:
2372: x_new_struct_ver_id := l_new_struct_ver_id;
2373: x_return_status := FND_API.G_RET_STS_SUCCESS;
2374:
2375: IF (p_commit = FND_API.G_TRUE) THEN
2376: COMMIT;
2377: END IF;
2378:
2379: IF (p_debug_mode = 'Y') THEN
2380: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION END');
2381: END IF;
2382:
2383: EXCEPTION
2384: when FND_API.G_EXC_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to copy_structure_version;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2381: END IF;
2382:
2383: EXCEPTION
2384: when FND_API.G_EXC_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to copy_structure_version;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: x_new_struct_ver_id := NULL ; -- 4537865
2384: when FND_API.G_EXC_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to copy_structure_version;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: x_new_struct_ver_id := NULL ; -- 4537865
2390: when FND_API.G_EXC_UNEXPECTED_ERROR then
2391: if p_commit = FND_API.G_TRUE then
2392: rollback to copy_structure_version;
2386: rollback to copy_structure_version;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: x_new_struct_ver_id := NULL ; -- 4537865
2390: when FND_API.G_EXC_UNEXPECTED_ERROR then
2391: if p_commit = FND_API.G_TRUE then
2392: rollback to copy_structure_version;
2393: end if;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_ERROR;
2389: x_new_struct_ver_id := NULL ; -- 4537865
2390: when FND_API.G_EXC_UNEXPECTED_ERROR then
2391: if p_commit = FND_API.G_TRUE then
2392: rollback to copy_structure_version;
2393: end if;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: -- 4537865
2390: when FND_API.G_EXC_UNEXPECTED_ERROR then
2391: if p_commit = FND_API.G_TRUE then
2392: rollback to copy_structure_version;
2393: end if;
2394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2395: -- 4537865
2396: x_msg_count := 1 ;
2397: x_msg_data := SUBSTRB(SQLERRM,1,240);
2398: x_new_struct_ver_id := NULL ;
2400: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2401: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2402: p_error_text => x_msg_data); -- 4537865
2403: when OTHERS then
2404: if p_commit = FND_API.G_TRUE then
2405: rollback to copy_structure_version;
2406: end if;
2407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2408: -- 4537865
2403: when OTHERS then
2404: if p_commit = FND_API.G_TRUE then
2405: rollback to copy_structure_version;
2406: end if;
2407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2408: -- 4537865
2409: x_msg_count := 1 ;
2410: x_msg_data := SUBSTRB(SQLERRM,1,240);
2411: x_new_struct_ver_id := NULL ;
2419:
2420: procedure SUBMIT_WORKPLAN
2421: (
2422: p_api_version IN NUMBER := 1.0
2423: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2424: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2425: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2426: ,p_validation_level IN VARCHAR2 := 100
2427: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2420: procedure SUBMIT_WORKPLAN
2421: (
2422: p_api_version IN NUMBER := 1.0
2423: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2424: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2425: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2426: ,p_validation_level IN VARCHAR2 := 100
2427: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2428: ,p_debug_mode IN VARCHAR2 := 'N'
2421: (
2422: p_api_version IN NUMBER := 1.0
2423: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2424: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2425: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2426: ,p_validation_level IN VARCHAR2 := 100
2427: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2428: ,p_debug_mode IN VARCHAR2 := 'N'
2429: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2451: IF (p_debug_mode = 'Y') THEN
2452: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2453: END IF;
2454:
2455: IF (p_commit = FND_API.G_TRUE) THEN
2456: savepoint submit_workplan;
2457: END IF;
2458:
2459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2455: IF (p_commit = FND_API.G_TRUE) THEN
2456: savepoint submit_workplan;
2457: END IF;
2458:
2459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2456: savepoint submit_workplan;
2457: END IF;
2458:
2459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2464: FND_MSG_PUB.initialize;
2459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2464: FND_MSG_PUB.initialize;
2465: END IF;
2466:
2467: --Check if this structure can be published (ie, if linked structures are published)
2467: --Check if this structure can be published (ie, if linked structures are published)
2468: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2469: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
2470: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
2471: RAISE FND_API.G_EXC_ERROR;
2472: END IF;
2473:
2474: PA_PROJECT_STRUCTURE_PVT1.SUBMIT_WORKPLAN(
2475: p_api_version => p_api_version
2491: x_msg_count := FND_MSG_PUB.count_msg;
2492: IF (x_msg_count > 0) THEN
2493: IF x_msg_count = 1 then
2494: pa_interface_utils_pub.get_messages
2495: (p_encoded => FND_API.G_TRUE,
2496: p_msg_index => 1,
2497: p_data => l_data,
2498: p_msg_index_out => l_msg_index_out);
2499: x_msg_data := l_data;
2497: p_data => l_data,
2498: p_msg_index_out => l_msg_index_out);
2499: x_msg_data := l_data;
2500: END IF;
2501: raise FND_API.G_EXC_ERROR;
2502: END IF;
2503:
2504: --call private API
2505: x_return_status := FND_API.G_RET_STS_SUCCESS;
2501: raise FND_API.G_EXC_ERROR;
2502: END IF;
2503:
2504: --call private API
2505: x_return_status := FND_API.G_RET_STS_SUCCESS;
2506:
2507: IF (p_commit = FND_API.G_TRUE) THEN
2508: COMMIT;
2509: END IF;
2503:
2504: --call private API
2505: x_return_status := FND_API.G_RET_STS_SUCCESS;
2506:
2507: IF (p_commit = FND_API.G_TRUE) THEN
2508: COMMIT;
2509: END IF;
2510:
2511: IF (p_debug_mode = 'Y') THEN
2512: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN end');
2513: END IF;
2514:
2515: EXCEPTION
2516: when FND_API.G_EXC_ERROR then
2517: if p_commit = FND_API.G_TRUE then
2518: rollback to submit_workplan;
2519: end if;
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2513: END IF;
2514:
2515: EXCEPTION
2516: when FND_API.G_EXC_ERROR then
2517: if p_commit = FND_API.G_TRUE then
2518: rollback to submit_workplan;
2519: end if;
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2521: when FND_API.G_EXC_UNEXPECTED_ERROR then
2516: when FND_API.G_EXC_ERROR then
2517: if p_commit = FND_API.G_TRUE then
2518: rollback to submit_workplan;
2519: end if;
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2521: when FND_API.G_EXC_UNEXPECTED_ERROR then
2522: if p_commit = FND_API.G_TRUE then
2523: rollback to submit_workplan;
2524: end if;
2517: if p_commit = FND_API.G_TRUE then
2518: rollback to submit_workplan;
2519: end if;
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2521: when FND_API.G_EXC_UNEXPECTED_ERROR then
2522: if p_commit = FND_API.G_TRUE then
2523: rollback to submit_workplan;
2524: end if;
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2518: rollback to submit_workplan;
2519: end if;
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2521: when FND_API.G_EXC_UNEXPECTED_ERROR then
2522: if p_commit = FND_API.G_TRUE then
2523: rollback to submit_workplan;
2524: end if;
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: -- 4537865
2521: when FND_API.G_EXC_UNEXPECTED_ERROR then
2522: if p_commit = FND_API.G_TRUE then
2523: rollback to submit_workplan;
2524: end if;
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: -- 4537865
2527: x_msg_count := 1 ;
2528: x_msg_data := SUBSTRB(SQLERRM,1,240);
2529: -- 4537865
2530: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2531: p_procedure_name => 'SUBMIT_WORKPLAN',
2532: p_error_text => x_msg_data); -- 4537865
2533: when OTHERS then
2534: if p_commit = FND_API.G_TRUE then
2535: rollback to submit_workplan;
2536: end if;
2537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2538: -- 4537865
2533: when OTHERS then
2534: if p_commit = FND_API.G_TRUE then
2535: rollback to submit_workplan;
2536: end if;
2537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2538: -- 4537865
2539: x_msg_count := 1 ;
2540: x_msg_data := SUBSTRB(SQLERRM,1,240);
2541: -- 4537865
2548:
2549: PROCEDURE rework_workplan
2550: (
2551: p_api_version IN NUMBER := 1.0
2552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2555: ,p_validation_level IN VARCHAR2 := 100
2556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2549: PROCEDURE rework_workplan
2550: (
2551: p_api_version IN NUMBER := 1.0
2552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2555: ,p_validation_level IN VARCHAR2 := 100
2556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2557: ,p_debug_mode IN VARCHAR2 := 'N'
2550: (
2551: p_api_version IN NUMBER := 1.0
2552: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2554: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2555: ,p_validation_level IN VARCHAR2 := 100
2556: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2557: ,p_debug_mode IN VARCHAR2 := 'N'
2558: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2579: IF (p_debug_mode = 'Y') THEN
2580: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2581: END IF;
2582:
2583: IF (p_commit = FND_API.G_TRUE) THEN
2584: savepoint rework_workplan;
2585: END IF;
2586:
2587: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2583: IF (p_commit = FND_API.G_TRUE) THEN
2584: savepoint rework_workplan;
2585: END IF;
2586:
2587: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2589: END IF;
2590:
2591: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2584: savepoint rework_workplan;
2585: END IF;
2586:
2587: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2589: END IF;
2590:
2591: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2592: FND_MSG_PUB.initialize;
2587: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2589: END IF;
2590:
2591: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2592: FND_MSG_PUB.initialize;
2593: END IF;
2594:
2595: PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN(
2611: x_msg_count := FND_MSG_PUB.count_msg;
2612: IF (x_msg_count > 0) THEN
2613: IF x_msg_count = 1 then
2614: pa_interface_utils_pub.get_messages
2615: (p_encoded => FND_API.G_TRUE,
2616: p_msg_index => 1,
2617: p_data => l_data,
2618: p_msg_index_out => l_msg_index_out);
2619: x_msg_data := l_data;
2617: p_data => l_data,
2618: p_msg_index_out => l_msg_index_out);
2619: x_msg_data := l_data;
2620: END IF;
2621: raise FND_API.G_EXC_ERROR;
2622: END IF;
2623:
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625:
2620: END IF;
2621: raise FND_API.G_EXC_ERROR;
2622: END IF;
2623:
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625:
2626: IF (p_commit = FND_API.G_TRUE) THEN
2627: COMMIT;
2628: END IF;
2622: END IF;
2623:
2624: x_return_status := FND_API.G_RET_STS_SUCCESS;
2625:
2626: IF (p_commit = FND_API.G_TRUE) THEN
2627: COMMIT;
2628: END IF;
2629:
2630: IF (p_debug_mode = 'Y') THEN
2631: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN end');
2632: END IF;
2633:
2634: EXCEPTION
2635: when FND_API.G_EXC_ERROR then
2636: if p_commit = FND_API.G_TRUE then
2637: rollback to rework_workplan;
2638: end if;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2632: END IF;
2633:
2634: EXCEPTION
2635: when FND_API.G_EXC_ERROR then
2636: if p_commit = FND_API.G_TRUE then
2637: rollback to rework_workplan;
2638: end if;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2640: when FND_API.G_EXC_UNEXPECTED_ERROR then
2635: when FND_API.G_EXC_ERROR then
2636: if p_commit = FND_API.G_TRUE then
2637: rollback to rework_workplan;
2638: end if;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2640: when FND_API.G_EXC_UNEXPECTED_ERROR then
2641: if p_commit = FND_API.G_TRUE then
2642: rollback to rework_workplan;
2643: end if;
2636: if p_commit = FND_API.G_TRUE then
2637: rollback to rework_workplan;
2638: end if;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2640: when FND_API.G_EXC_UNEXPECTED_ERROR then
2641: if p_commit = FND_API.G_TRUE then
2642: rollback to rework_workplan;
2643: end if;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2637: rollback to rework_workplan;
2638: end if;
2639: x_return_status := FND_API.G_RET_STS_ERROR;
2640: when FND_API.G_EXC_UNEXPECTED_ERROR then
2641: if p_commit = FND_API.G_TRUE then
2642: rollback to rework_workplan;
2643: end if;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: -- 4537865
2640: when FND_API.G_EXC_UNEXPECTED_ERROR then
2641: if p_commit = FND_API.G_TRUE then
2642: rollback to rework_workplan;
2643: end if;
2644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2645: -- 4537865
2646: x_msg_count := 1 ;
2647: x_msg_data := SUBSTRB(SQLERRM,1,240);
2648: -- 4537865
2649: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2650: p_procedure_name => 'REWORK_WORKPLAN',
2651: p_error_text => x_msg_data); -- 4537865
2652: when OTHERS then
2653: if p_commit = FND_API.G_TRUE then
2654: rollback to rework_workplan;
2655: end if;
2656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2657: -- 4537865
2652: when OTHERS then
2653: if p_commit = FND_API.G_TRUE then
2654: rollback to rework_workplan;
2655: end if;
2656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2657: -- 4537865
2658: x_msg_count := 1 ;
2659: x_msg_data := SUBSTRB(SQLERRM,1,240);
2660: -- 4537865
2691: -- 30-Mar-04 JYAN added p_sys_program_flag and p_allow_multi_prog_rollup
2692: --
2693: PROCEDURE update_structures_setup_attr
2694: ( p_api_version IN NUMBER := 1.0
2695: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2696: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2697: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2698: ,p_validation_level IN VARCHAR2 := 100
2699: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2692: --
2693: PROCEDURE update_structures_setup_attr
2694: ( p_api_version IN NUMBER := 1.0
2695: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2696: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2697: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2698: ,p_validation_level IN VARCHAR2 := 100
2699: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2700: ,p_debug_mode IN VARCHAR2 := 'N'
2693: PROCEDURE update_structures_setup_attr
2694: ( p_api_version IN NUMBER := 1.0
2695: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2696: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2697: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2698: ,p_validation_level IN VARCHAR2 := 100
2699: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2700: ,p_debug_mode IN VARCHAR2 := 'N'
2701: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2727: IF (p_debug_mode = 'Y') THEN
2728: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2729: END IF;
2730:
2731: IF (p_commit = FND_API.G_TRUE) THEN
2732: savepoint update_struc_setup_attr_pub;
2733: END IF;
2734:
2735: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2731: IF (p_commit = FND_API.G_TRUE) THEN
2732: savepoint update_struc_setup_attr_pub;
2733: END IF;
2734:
2735: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END IF;
2738:
2739: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2732: savepoint update_struc_setup_attr_pub;
2733: END IF;
2734:
2735: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END IF;
2738:
2739: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2740: FND_MSG_PUB.initialize;
2735: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737: END IF;
2738:
2739: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2740: FND_MSG_PUB.initialize;
2741: END IF;
2742:
2743: PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURES_SETUP_ATTR(
2767: x_msg_count := FND_MSG_PUB.count_msg;
2768: IF (x_msg_count > 0) THEN
2769: IF x_msg_count = 1 then
2770: pa_interface_utils_pub.get_messages
2771: (p_encoded => FND_API.G_TRUE,
2772: p_msg_index => 1,
2773: p_data => l_data,
2774: p_msg_index_out => l_msg_index_out);
2775: x_msg_data := l_data;
2773: p_data => l_data,
2774: p_msg_index_out => l_msg_index_out);
2775: x_msg_data := l_data;
2776: END IF;
2777: raise FND_API.G_EXC_ERROR;
2778: END IF;
2779:
2780: x_return_status := FND_API.G_RET_STS_SUCCESS;
2781:
2776: END IF;
2777: raise FND_API.G_EXC_ERROR;
2778: END IF;
2779:
2780: x_return_status := FND_API.G_RET_STS_SUCCESS;
2781:
2782: IF (p_commit = FND_API.G_TRUE) THEN
2783: COMMIT;
2784: END IF;
2778: END IF;
2779:
2780: x_return_status := FND_API.G_RET_STS_SUCCESS;
2781:
2782: IF (p_commit = FND_API.G_TRUE) THEN
2783: COMMIT;
2784: END IF;
2785:
2786: IF (p_debug_mode = 'Y') THEN
2787: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR end');
2788: END IF;
2789:
2790: EXCEPTION
2791: when FND_API.G_EXC_ERROR then
2792: if p_commit = FND_API.G_TRUE then
2793: rollback to update_struc_setup_attr_pub;
2794: end if;
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2788: END IF;
2789:
2790: EXCEPTION
2791: when FND_API.G_EXC_ERROR then
2792: if p_commit = FND_API.G_TRUE then
2793: rollback to update_struc_setup_attr_pub;
2794: end if;
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: when FND_API.G_EXC_UNEXPECTED_ERROR then
2791: when FND_API.G_EXC_ERROR then
2792: if p_commit = FND_API.G_TRUE then
2793: rollback to update_struc_setup_attr_pub;
2794: end if;
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: when FND_API.G_EXC_UNEXPECTED_ERROR then
2797: if p_commit = FND_API.G_TRUE then
2798: rollback to update_struc_setup_attr_pub;
2799: end if;
2792: if p_commit = FND_API.G_TRUE then
2793: rollback to update_struc_setup_attr_pub;
2794: end if;
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: when FND_API.G_EXC_UNEXPECTED_ERROR then
2797: if p_commit = FND_API.G_TRUE then
2798: rollback to update_struc_setup_attr_pub;
2799: end if;
2800: -- 4537865
2793: rollback to update_struc_setup_attr_pub;
2794: end if;
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: when FND_API.G_EXC_UNEXPECTED_ERROR then
2797: if p_commit = FND_API.G_TRUE then
2798: rollback to update_struc_setup_attr_pub;
2799: end if;
2800: -- 4537865
2801: x_msg_count := 1 ;
2800: -- 4537865
2801: x_msg_count := 1 ;
2802: x_msg_data := SUBSTRB(SQLERRM,1,240);
2803: -- 4537865
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2806: p_procedure_name => 'update_structures_setup_attr',
2807: p_error_text => x_msg_data); -- 4537865
2808: when OTHERS then
2805: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2806: p_procedure_name => 'update_structures_setup_attr',
2807: p_error_text => x_msg_data); -- 4537865
2808: when OTHERS then
2809: if p_commit = FND_API.G_TRUE then
2810: rollback to update_struc_setup_attr_pub;
2811: end if;
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2813: -- 4537865
2808: when OTHERS then
2809: if p_commit = FND_API.G_TRUE then
2810: rollback to update_struc_setup_attr_pub;
2811: end if;
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2813: -- 4537865
2814: x_msg_count := 1 ;
2815: x_msg_data := SUBSTRB(SQLERRM,1,240);
2816: -- 4537865
2822:
2823:
2824: PROCEDURE update_workplan_versioning
2825: ( p_api_version IN NUMBER := 1.0
2826: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2827: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2828: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2829: ,p_validation_level IN VARCHAR2 := 100
2830: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2823:
2824: PROCEDURE update_workplan_versioning
2825: ( p_api_version IN NUMBER := 1.0
2826: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2827: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2828: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2829: ,p_validation_level IN VARCHAR2 := 100
2830: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2831: ,p_debug_mode IN VARCHAR2 := 'N'
2824: PROCEDURE update_workplan_versioning
2825: ( p_api_version IN NUMBER := 1.0
2826: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2827: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2828: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2829: ,p_validation_level IN VARCHAR2 := 100
2830: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2831: ,p_debug_mode IN VARCHAR2 := 'N'
2832: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2848: IF (p_debug_mode = 'Y') THEN
2849: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2850: END IF;
2851:
2852: IF (p_commit = FND_API.G_TRUE) THEN
2853: savepoint update_wp_versioning_pub;
2854: END IF;
2855:
2856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2852: IF (p_commit = FND_API.G_TRUE) THEN
2853: savepoint update_wp_versioning_pub;
2854: END IF;
2855:
2856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2858: END IF;
2859:
2860: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2853: savepoint update_wp_versioning_pub;
2854: END IF;
2855:
2856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2858: END IF;
2859:
2860: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2861: FND_MSG_PUB.initialize;
2856: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2858: END IF;
2859:
2860: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2861: FND_MSG_PUB.initialize;
2862: END IF;
2863:
2864: PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning(
2880: x_msg_count := FND_MSG_PUB.count_msg;
2881: IF (x_msg_count > 0) THEN
2882: IF x_msg_count = 1 then
2883: pa_interface_utils_pub.get_messages
2884: (p_encoded => FND_API.G_TRUE,
2885: p_msg_index => 1,
2886: p_data => l_data,
2887: p_msg_index_out => l_msg_index_out);
2888: x_msg_data := l_data;
2886: p_data => l_data,
2887: p_msg_index_out => l_msg_index_out);
2888: x_msg_data := l_data;
2889: END IF;
2890: raise FND_API.G_EXC_ERROR;
2891: END IF;
2892:
2893: x_return_status := FND_API.G_RET_STS_SUCCESS;
2894:
2889: END IF;
2890: raise FND_API.G_EXC_ERROR;
2891: END IF;
2892:
2893: x_return_status := FND_API.G_RET_STS_SUCCESS;
2894:
2895: IF (p_commit = FND_API.G_TRUE) THEN
2896: COMMIT;
2897: END IF;
2891: END IF;
2892:
2893: x_return_status := FND_API.G_RET_STS_SUCCESS;
2894:
2895: IF (p_commit = FND_API.G_TRUE) THEN
2896: COMMIT;
2897: END IF;
2898:
2899: IF (p_debug_mode = 'Y') THEN
2900: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_WORKPLAN_VERSIONING end');
2901: END IF;
2902:
2903: EXCEPTION
2904: when FND_API.G_EXC_ERROR then
2905: if p_commit = FND_API.G_TRUE then
2906: rollback to update_wp_versioning_pub;
2907: end if;
2908: x_return_status := FND_API.G_RET_STS_ERROR;
2901: END IF;
2902:
2903: EXCEPTION
2904: when FND_API.G_EXC_ERROR then
2905: if p_commit = FND_API.G_TRUE then
2906: rollback to update_wp_versioning_pub;
2907: end if;
2908: x_return_status := FND_API.G_RET_STS_ERROR;
2909: when FND_API.G_EXC_UNEXPECTED_ERROR then
2904: when FND_API.G_EXC_ERROR then
2905: if p_commit = FND_API.G_TRUE then
2906: rollback to update_wp_versioning_pub;
2907: end if;
2908: x_return_status := FND_API.G_RET_STS_ERROR;
2909: when FND_API.G_EXC_UNEXPECTED_ERROR then
2910: if p_commit = FND_API.G_TRUE then
2911: rollback to update_wp_versioning_pub;
2912: end if;
2905: if p_commit = FND_API.G_TRUE then
2906: rollback to update_wp_versioning_pub;
2907: end if;
2908: x_return_status := FND_API.G_RET_STS_ERROR;
2909: when FND_API.G_EXC_UNEXPECTED_ERROR then
2910: if p_commit = FND_API.G_TRUE then
2911: rollback to update_wp_versioning_pub;
2912: end if;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906: rollback to update_wp_versioning_pub;
2907: end if;
2908: x_return_status := FND_API.G_RET_STS_ERROR;
2909: when FND_API.G_EXC_UNEXPECTED_ERROR then
2910: if p_commit = FND_API.G_TRUE then
2911: rollback to update_wp_versioning_pub;
2912: end if;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914: -- 4537865
2909: when FND_API.G_EXC_UNEXPECTED_ERROR then
2910: if p_commit = FND_API.G_TRUE then
2911: rollback to update_wp_versioning_pub;
2912: end if;
2913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2914: -- 4537865
2915: x_msg_count := 1 ;
2916: x_msg_data := SUBSTRB(SQLERRM,1,240);
2917: -- 4537865
2918: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2919: p_procedure_name => 'update_workplan_versioning',
2920: p_error_text => x_msg_data); -- 4537865
2921: when OTHERS then
2922: if p_commit = FND_API.G_TRUE then
2923: rollback to update_wp_versioning_pub;
2924: end if;
2925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: -- 4537865
2921: when OTHERS then
2922: if p_commit = FND_API.G_TRUE then
2923: rollback to update_wp_versioning_pub;
2924: end if;
2925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2926: -- 4537865
2927: x_msg_count := 1 ;
2928: x_msg_data := SUBSTRB(SQLERRM,1,240);
2929: -- 4537865
2938: -- Pre-reqs : None
2939: -- Return Value : N/A
2940: -- Parameters
2941: -- p_api_version IN NUMBER := 1.0
2942: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2943: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2944: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2945: -- p_validation_level IN VARCHAR2 := 100
2946: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2939: -- Return Value : N/A
2940: -- Parameters
2941: -- p_api_version IN NUMBER := 1.0
2942: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2943: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2944: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2945: -- p_validation_level IN VARCHAR2 := 100
2946: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2947: -- p_debug_mode IN VARCHAR2 := 'N'
2940: -- Parameters
2941: -- p_api_version IN NUMBER := 1.0
2942: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2943: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2944: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2945: -- p_validation_level IN VARCHAR2 := 100
2946: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2947: -- p_debug_mode IN VARCHAR2 := 'N'
2948: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2961:
2962: procedure Delete_Working_Struc_Ver
2963: (
2964: p_api_version IN NUMBER := 1.0
2965: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2966: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2967: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2968: ,p_validation_level IN VARCHAR2 := 100
2969: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2962: procedure Delete_Working_Struc_Ver
2963: (
2964: p_api_version IN NUMBER := 1.0
2965: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2966: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2967: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2968: ,p_validation_level IN VARCHAR2 := 100
2969: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2970: ,p_debug_mode IN VARCHAR2 := 'N'
2963: (
2964: p_api_version IN NUMBER := 1.0
2965: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2966: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2967: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2968: ,p_validation_level IN VARCHAR2 := 100
2969: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2970: ,p_debug_mode IN VARCHAR2 := 'N'
2971: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2998: IF (p_debug_mode = 'Y') THEN
2999: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
3000: END IF;
3001:
3002: IF (p_commit = FND_API.G_TRUE) THEN
3003: savepoint delete_working_struc_ver;
3004: END IF;
3005:
3006: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3002: IF (p_commit = FND_API.G_TRUE) THEN
3003: savepoint delete_working_struc_ver;
3004: END IF;
3005:
3006: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009:
3010: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3003: savepoint delete_working_struc_ver;
3004: END IF;
3005:
3006: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009:
3010: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3011: FND_MSG_PUB.initialize;
3006: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009:
3010: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3011: FND_MSG_PUB.initialize;
3012: END IF;
3013:
3014: OPEN c1;
3021: ,p_structure_version_id
3022: ,l_return_status
3023: ,l_error_message_code);
3024:
3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3026: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3027: x_msg_data := l_error_message_code;
3028: RAISE FND_API.G_EXC_ERROR;
3029: END IF;
3024:
3025: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3026: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3027: x_msg_data := l_error_message_code;
3028: RAISE FND_API.G_EXC_ERROR;
3029: END IF;
3030:
3031: --Check if it is ok to delete working version
3032: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3031: --Check if it is ok to delete working version
3032: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3033: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
3034: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
3035: RAISE FND_API.G_EXC_ERROR;
3036: END IF;
3037:
3038: PA_PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_Wo_Val(p_commit => 'N',
3039: p_debug_mode => p_debug_mode,
3042: x_return_status => l_return_status,
3043: x_msg_count => l_msg_count,
3044: x_msg_data => l_msg_data);
3045:
3046: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3047: x_msg_count := FND_MSG_PUB.count_msg;
3048: IF x_msg_count = 1 then
3049: pa_interface_utils_pub.get_messages
3050: (p_encoded => FND_API.G_TRUE,
3046: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3047: x_msg_count := FND_MSG_PUB.count_msg;
3048: IF x_msg_count = 1 then
3049: pa_interface_utils_pub.get_messages
3050: (p_encoded => FND_API.G_TRUE,
3051: p_msg_index => 1,
3052: p_data => l_data,
3053: p_msg_index_out => l_msg_index_out);
3054: x_msg_data := l_data;
3052: p_data => l_data,
3053: p_msg_index_out => l_msg_index_out);
3054: x_msg_data := l_data;
3055: END IF;
3056: raise FND_API.G_EXC_ERROR;
3057: END IF;
3058:
3059: x_return_status := FND_API.G_RET_STS_SUCCESS;
3060:
3055: END IF;
3056: raise FND_API.G_EXC_ERROR;
3057: END IF;
3058:
3059: x_return_status := FND_API.G_RET_STS_SUCCESS;
3060:
3061: IF (p_debug_mode = 'Y') THEN
3062: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3063: END IF;
3062: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3063: END IF;
3064:
3065: EXCEPTION
3066: when FND_API.G_EXC_ERROR then
3067: if p_commit = FND_API.G_TRUE then
3068: rollback to delete_working_struc_ver;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3063: END IF;
3064:
3065: EXCEPTION
3066: when FND_API.G_EXC_ERROR then
3067: if p_commit = FND_API.G_TRUE then
3068: rollback to delete_working_struc_ver;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3067: if p_commit = FND_API.G_TRUE then
3068: rollback to delete_working_struc_ver;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: when FND_API.G_EXC_UNEXPECTED_ERROR then
3073: if p_commit = FND_API.G_TRUE then
3074: rollback to delete_working_struc_ver;
3075: end if;
3068: rollback to delete_working_struc_ver;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: when FND_API.G_EXC_UNEXPECTED_ERROR then
3073: if p_commit = FND_API.G_TRUE then
3074: rollback to delete_working_struc_ver;
3075: end if;
3076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3069: end if;
3070: x_msg_count := FND_MSG_PUB.count_msg;
3071: x_return_status := FND_API.G_RET_STS_ERROR;
3072: when FND_API.G_EXC_UNEXPECTED_ERROR then
3073: if p_commit = FND_API.G_TRUE then
3074: rollback to delete_working_struc_ver;
3075: end if;
3076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3077: -- 4537865
3072: when FND_API.G_EXC_UNEXPECTED_ERROR then
3073: if p_commit = FND_API.G_TRUE then
3074: rollback to delete_working_struc_ver;
3075: end if;
3076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3077: -- 4537865
3078: x_msg_count := 1 ;
3079: x_msg_data := SUBSTRB(SQLERRM,1,240);
3080: -- 4537865
3081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3082: p_procedure_name => 'Delete_Working_Struc_Ver',
3083: p_error_text => x_msg_data); -- 4537865
3084: when OTHERS then
3085: if p_commit = FND_API.G_TRUE then
3086: rollback to delete_working_struc_ver;
3087: end if;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: -- 4537865
3084: when OTHERS then
3085: if p_commit = FND_API.G_TRUE then
3086: rollback to delete_working_struc_ver;
3087: end if;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3089: -- 4537865
3090: x_msg_count := 1 ;
3091: x_msg_data := SUBSTRB(SQLERRM,1,240);
3092: -- 4537865
3098:
3099: procedure ENABLE_FINANCIAL_STRUCTURE
3100: (
3101: p_api_version IN NUMBER := 1.0
3102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3104: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3105: ,p_validation_level IN NUMBER := 100
3106: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3099: procedure ENABLE_FINANCIAL_STRUCTURE
3100: (
3101: p_api_version IN NUMBER := 1.0
3102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3104: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3105: ,p_validation_level IN NUMBER := 100
3106: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3107: ,p_debug_mode IN VARCHAR2 := 'N'
3100: (
3101: p_api_version IN NUMBER := 1.0
3102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3104: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3105: ,p_validation_level IN NUMBER := 100
3106: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3107: ,p_debug_mode IN VARCHAR2 := 'N'
3108: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3143: IF (p_debug_mode = 'Y') THEN
3144: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3145: END IF;
3146:
3147: IF (p_commit = FND_API.G_TRUE) THEN
3148: savepoint ENABLE_FINANCIAL_STRUCTURE;
3149: END IF;
3150:
3151: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3147: IF (p_commit = FND_API.G_TRUE) THEN
3148: savepoint ENABLE_FINANCIAL_STRUCTURE;
3149: END IF;
3150:
3151: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3154:
3155: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3148: savepoint ENABLE_FINANCIAL_STRUCTURE;
3149: END IF;
3150:
3151: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3154:
3155: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3156: FND_MSG_PUB.initialize;
3151: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3153: END IF;
3154:
3155: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3156: FND_MSG_PUB.initialize;
3157: END IF;
3158:
3159: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
3181: ,x_msg_data => x_msg_data
3182: );
3183:
3184: -- 4537865 : This was missing earlier
3185: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3186: x_msg_count := FND_MSG_PUB.count_msg;
3187: IF x_msg_count = 1 then
3188: pa_interface_utils_pub.get_messages
3189: (p_encoded => FND_API.G_TRUE,
3185: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3186: x_msg_count := FND_MSG_PUB.count_msg;
3187: IF x_msg_count = 1 then
3188: pa_interface_utils_pub.get_messages
3189: (p_encoded => FND_API.G_TRUE,
3190: p_msg_index => 1,
3191: p_data => l_data,
3192: p_msg_index_out => l_msg_index_out);
3193: x_msg_data := l_data;
3191: p_data => l_data,
3192: p_msg_index_out => l_msg_index_out);
3193: x_msg_data := l_data;
3194: END IF;
3195: raise FND_API.G_EXC_ERROR;
3196: END IF;
3197: -- End : 4537865
3198: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
3199: p_api_version => l_api_version
3221: ,x_msg_count => l_msg_count
3222: ,x_msg_data => l_msg_data
3223: );
3224:
3225: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3226: x_msg_count := FND_MSG_PUB.count_msg;
3227: IF x_msg_count = 1 then
3228: pa_interface_utils_pub.get_messages
3229: (p_encoded => FND_API.G_TRUE,
3225: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3226: x_msg_count := FND_MSG_PUB.count_msg;
3227: IF x_msg_count = 1 then
3228: pa_interface_utils_pub.get_messages
3229: (p_encoded => FND_API.G_TRUE,
3230: p_msg_index => 1,
3231: -- p_msg_count => l_msg_count,
3232: -- p_msg_data => l_msg_data,
3233: p_data => l_data,
3233: p_data => l_data,
3234: p_msg_index_out => l_msg_index_out);
3235: x_msg_data := l_data;
3236: END IF;
3237: raise FND_API.G_EXC_ERROR;
3238: END IF;
3239:
3240: x_return_status := FND_API.G_RET_STS_SUCCESS;
3241:
3236: END IF;
3237: raise FND_API.G_EXC_ERROR;
3238: END IF;
3239:
3240: x_return_status := FND_API.G_RET_STS_SUCCESS;
3241:
3242: IF (p_commit = FND_API.G_TRUE) THEN
3243: COMMIT;
3244: END IF;
3238: END IF;
3239:
3240: x_return_status := FND_API.G_RET_STS_SUCCESS;
3241:
3242: IF (p_commit = FND_API.G_TRUE) THEN
3243: COMMIT;
3244: END IF;
3245:
3246: IF (p_debug_mode = 'Y') THEN
3247: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE END');
3248: END IF;
3249:
3250: EXCEPTION
3251: when FND_API.G_EXC_ERROR then
3252: if p_commit = FND_API.G_TRUE then
3253: rollback to ENABLE_FINANCIAL_STRUCTURE;
3254: end if;
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3248: END IF;
3249:
3250: EXCEPTION
3251: when FND_API.G_EXC_ERROR then
3252: if p_commit = FND_API.G_TRUE then
3253: rollback to ENABLE_FINANCIAL_STRUCTURE;
3254: end if;
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3256: when FND_API.G_EXC_UNEXPECTED_ERROR then
3251: when FND_API.G_EXC_ERROR then
3252: if p_commit = FND_API.G_TRUE then
3253: rollback to ENABLE_FINANCIAL_STRUCTURE;
3254: end if;
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3256: when FND_API.G_EXC_UNEXPECTED_ERROR then
3257: if p_commit = FND_API.G_TRUE then
3258: rollback to ENABLE_FINANCIAL_STRUCTURE;
3259: end if;
3252: if p_commit = FND_API.G_TRUE then
3253: rollback to ENABLE_FINANCIAL_STRUCTURE;
3254: end if;
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3256: when FND_API.G_EXC_UNEXPECTED_ERROR then
3257: if p_commit = FND_API.G_TRUE then
3258: rollback to ENABLE_FINANCIAL_STRUCTURE;
3259: end if;
3260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253: rollback to ENABLE_FINANCIAL_STRUCTURE;
3254: end if;
3255: x_return_status := FND_API.G_RET_STS_ERROR;
3256: when FND_API.G_EXC_UNEXPECTED_ERROR then
3257: if p_commit = FND_API.G_TRUE then
3258: rollback to ENABLE_FINANCIAL_STRUCTURE;
3259: end if;
3260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3261: -- 4537865
3256: when FND_API.G_EXC_UNEXPECTED_ERROR then
3257: if p_commit = FND_API.G_TRUE then
3258: rollback to ENABLE_FINANCIAL_STRUCTURE;
3259: end if;
3260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3261: -- 4537865
3262: x_msg_count := 1 ;
3263: x_msg_data := SUBSTRB(SQLERRM,1,240);
3264: -- 4537865
3265: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3266: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3267: p_error_text => x_msg_data); -- 4537865
3268: when OTHERS then
3269: if p_commit = FND_API.G_TRUE then
3270: rollback to ENABLE_FINANCIAL_STRUCTURE;
3271: end if;
3272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3273: -- 4537865
3268: when OTHERS then
3269: if p_commit = FND_API.G_TRUE then
3270: rollback to ENABLE_FINANCIAL_STRUCTURE;
3271: end if;
3272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3273: -- 4537865
3274: x_msg_count := 1 ;
3275: x_msg_data := SUBSTRB(SQLERRM,1,240);
3276: -- 4537865
3285:
3286: procedure DISABLE_FINANCIAL_STRUCTURE
3287: (
3288: p_api_version IN NUMBER := 1.0
3289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3292: ,p_validation_level IN NUMBER := 100
3293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3286: procedure DISABLE_FINANCIAL_STRUCTURE
3287: (
3288: p_api_version IN NUMBER := 1.0
3289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3292: ,p_validation_level IN NUMBER := 100
3293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3294: ,p_debug_mode IN VARCHAR2 := 'N'
3287: (
3288: p_api_version IN NUMBER := 1.0
3289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3292: ,p_validation_level IN NUMBER := 100
3293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3294: ,p_debug_mode IN VARCHAR2 := 'N'
3295: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3339: IF (p_debug_mode = 'Y') THEN
3340: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3341: END IF;
3342:
3343: IF (p_commit = FND_API.G_TRUE) THEN
3344: savepoint DISABLE_FINANCIAL_STRUCTURE;
3345: END IF;
3346:
3347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3343: IF (p_commit = FND_API.G_TRUE) THEN
3344: savepoint DISABLE_FINANCIAL_STRUCTURE;
3345: END IF;
3346:
3347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: END IF;
3350:
3351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3344: savepoint DISABLE_FINANCIAL_STRUCTURE;
3345: END IF;
3346:
3347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: END IF;
3350:
3351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3352: FND_MSG_PUB.initialize;
3347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: END IF;
3350:
3351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3352: FND_MSG_PUB.initialize;
3353: END IF;
3354:
3355: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3374: x_err_stack => l_err_stack);
3375: IF (l_err_code <> 0) THEN
3376: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DIS_FN_STR');
3377: x_msg_data := 'PA_PS_CANT_DIS_FN_STR';
3378: raise FND_API.G_EXC_ERROR; --Bug No 3517852 SMukka Stop processing and come out of the loop
3379: ELSE
3380:
3381: /* Amit : Moved the below code outside loop
3382: select rowid into l_rowid from pa_proj_progress_attr
3451: INTO l_record_version_number
3452: from pa_proj_workplan_attr
3453: where proj_element_id = l_parent_structure_id;
3454:
3455: PA_WORKPLAN_ATTR_PVT.DELETE_PROJ_WORKPLAN_ATTRS(p_validate_only => FND_API.G_FALSE,
3456: p_project_id => p_project_id,
3457: p_proj_element_id => l_parent_structure_id,
3458: p_record_version_number => l_record_version_number,
3459: x_msg_count => l_msg_count,
3488: ,x_return_status => l_return_status
3489: ,x_msg_count => l_msg_count
3490: ,x_msg_data => l_msg_data
3491: );
3492: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: x_msg_count := FND_MSG_PUB.count_msg;
3494: IF x_msg_count = 1 then
3495: pa_interface_utils_pub.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3492: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3493: x_msg_count := FND_MSG_PUB.count_msg;
3494: IF x_msg_count = 1 then
3495: pa_interface_utils_pub.get_messages
3496: (p_encoded => FND_API.G_TRUE,
3497: p_msg_index => 1,
3498: p_data => l_data,
3499: p_msg_index_out => l_msg_index_out);
3500: x_msg_data := l_data;
3498: p_data => l_data,
3499: p_msg_index_out => l_msg_index_out);
3500: x_msg_data := l_data;
3501: END IF;
3502: raise FND_API.G_EXC_ERROR;
3503: END IF;
3504: END LOOP;
3505: CLOSE get_struc_ver_info;
3506: --hsiu chagnes end: 3305199
3518: ,x_msg_count => l_msg_count
3519: ,x_msg_data => l_msg_data
3520: );
3521:
3522: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3523: x_msg_count := FND_MSG_PUB.count_msg;
3524: IF x_msg_count = 1 then
3525: pa_interface_utils_pub.get_messages
3526: (p_encoded => FND_API.G_TRUE,
3522: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3523: x_msg_count := FND_MSG_PUB.count_msg;
3524: IF x_msg_count = 1 then
3525: pa_interface_utils_pub.get_messages
3526: (p_encoded => FND_API.G_TRUE,
3527: p_msg_index => 1,
3528: -- p_msg_count => l_msg_count,
3529: -- p_msg_data => l_msg_data,
3530: p_data => l_data,
3530: p_data => l_data,
3531: p_msg_index_out => l_msg_index_out);
3532: x_msg_data := l_data;
3533: END IF;
3534: raise FND_API.G_EXC_ERROR;
3535: END IF;
3536: */
3537:
3538: x_return_status := FND_API.G_RET_STS_SUCCESS;
3534: raise FND_API.G_EXC_ERROR;
3535: END IF;
3536: */
3537:
3538: x_return_status := FND_API.G_RET_STS_SUCCESS;
3539:
3540: IF (p_commit = FND_API.G_TRUE) THEN
3541: COMMIT;
3542: END IF;
3536: */
3537:
3538: x_return_status := FND_API.G_RET_STS_SUCCESS;
3539:
3540: IF (p_commit = FND_API.G_TRUE) THEN
3541: COMMIT;
3542: END IF;
3543:
3544: IF (p_debug_mode = 'Y') THEN
3545: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE END');
3546: END IF;
3547:
3548: EXCEPTION
3549: when FND_API.G_EXC_ERROR then
3550: if p_commit = FND_API.G_TRUE then
3551: rollback to DISABLE_FINANCIAL_STRUCTURE;
3552: end if;
3553: x_return_status := FND_API.G_RET_STS_ERROR;
3546: END IF;
3547:
3548: EXCEPTION
3549: when FND_API.G_EXC_ERROR then
3550: if p_commit = FND_API.G_TRUE then
3551: rollback to DISABLE_FINANCIAL_STRUCTURE;
3552: end if;
3553: x_return_status := FND_API.G_RET_STS_ERROR;
3554: when FND_API.G_EXC_UNEXPECTED_ERROR then
3549: when FND_API.G_EXC_ERROR then
3550: if p_commit = FND_API.G_TRUE then
3551: rollback to DISABLE_FINANCIAL_STRUCTURE;
3552: end if;
3553: x_return_status := FND_API.G_RET_STS_ERROR;
3554: when FND_API.G_EXC_UNEXPECTED_ERROR then
3555: if p_commit = FND_API.G_TRUE then
3556: rollback to DISABLE_FINANCIAL_STRUCTURE;
3557: end if;
3550: if p_commit = FND_API.G_TRUE then
3551: rollback to DISABLE_FINANCIAL_STRUCTURE;
3552: end if;
3553: x_return_status := FND_API.G_RET_STS_ERROR;
3554: when FND_API.G_EXC_UNEXPECTED_ERROR then
3555: if p_commit = FND_API.G_TRUE then
3556: rollback to DISABLE_FINANCIAL_STRUCTURE;
3557: end if;
3558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: rollback to DISABLE_FINANCIAL_STRUCTURE;
3552: end if;
3553: x_return_status := FND_API.G_RET_STS_ERROR;
3554: when FND_API.G_EXC_UNEXPECTED_ERROR then
3555: if p_commit = FND_API.G_TRUE then
3556: rollback to DISABLE_FINANCIAL_STRUCTURE;
3557: end if;
3558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3559: -- 4537865
3554: when FND_API.G_EXC_UNEXPECTED_ERROR then
3555: if p_commit = FND_API.G_TRUE then
3556: rollback to DISABLE_FINANCIAL_STRUCTURE;
3557: end if;
3558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3559: -- 4537865
3560: x_msg_count := 1 ;
3561: x_msg_data := SUBSTRB(SQLERRM,1,240);
3562: -- 4537865
3563: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3564: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3565: p_error_text => x_msg_data); -- 4537865
3566: when OTHERS then
3567: if p_commit = FND_API.G_TRUE then
3568: rollback to DISABLE_FINANCIAL_STRUCTURE;
3569: end if;
3570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3571: -- 4537865
3566: when OTHERS then
3567: if p_commit = FND_API.G_TRUE then
3568: rollback to DISABLE_FINANCIAL_STRUCTURE;
3569: end if;
3570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3571: -- 4537865
3572: x_msg_count := 1 ;
3573: x_msg_data := SUBSTRB(SQLERRM,1,240);
3574: -- 4537865
3586: -- Pre-reqs : None
3587: -- Return Value : N/A
3588: -- Parameters
3589: -- p_api_version IN NUMBER := 1.0
3590: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3591: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3592: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3593: -- p_validation_level IN VARCHAR2 := 100
3594: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3587: -- Return Value : N/A
3588: -- Parameters
3589: -- p_api_version IN NUMBER := 1.0
3590: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3591: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3592: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3593: -- p_validation_level IN VARCHAR2 := 100
3594: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3595: -- p_debug_mode IN VARCHAR2 := 'N'
3588: -- Parameters
3589: -- p_api_version IN NUMBER := 1.0
3590: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3591: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3592: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3593: -- p_validation_level IN VARCHAR2 := 100
3594: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3595: -- p_debug_mode IN VARCHAR2 := 'N'
3596: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3606:
3607: procedure CLEAR_FINANCIAL_FLAG
3608: (
3609: p_api_version IN NUMBER := 1.0
3610: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3611: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3612: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3613: ,p_validation_level IN NUMBER := 100
3614: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3607: procedure CLEAR_FINANCIAL_FLAG
3608: (
3609: p_api_version IN NUMBER := 1.0
3610: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3611: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3612: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3613: ,p_validation_level IN NUMBER := 100
3614: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3615: ,p_debug_mode IN VARCHAR2 := 'N'
3608: (
3609: p_api_version IN NUMBER := 1.0
3610: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3611: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3612: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3613: ,p_validation_level IN NUMBER := 100
3614: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3615: ,p_debug_mode IN VARCHAR2 := 'N'
3616: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3636: IF (p_debug_mode = 'Y') THEN
3637: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3638: END IF;
3639:
3640: IF (p_commit = FND_API.G_TRUE) THEN
3641: savepoint CLEAR_FINANCIAL_FLAG;
3642: END IF;
3643:
3644: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3640: IF (p_commit = FND_API.G_TRUE) THEN
3641: savepoint CLEAR_FINANCIAL_FLAG;
3642: END IF;
3643:
3644: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3647:
3648: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3641: savepoint CLEAR_FINANCIAL_FLAG;
3642: END IF;
3643:
3644: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3647:
3648: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3649: FND_MSG_PUB.initialize;
3644: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646: END IF;
3647:
3648: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3649: FND_MSG_PUB.initialize;
3650: END IF;
3651:
3652: IF (p_structure_version_id IS NOT NULL) THEN
3662: WHERE PROJECT_ID = p_project_id
3663: AND ELEMENT_VERSION_ID = p_task_version_id;
3664: END IF;
3665:
3666: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3667: x_msg_count := FND_MSG_PUB.count_msg;
3668: IF x_msg_count = 1 then
3669: pa_interface_utils_pub.get_messages
3670: (p_encoded => FND_API.G_TRUE,
3666: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3667: x_msg_count := FND_MSG_PUB.count_msg;
3668: IF x_msg_count = 1 then
3669: pa_interface_utils_pub.get_messages
3670: (p_encoded => FND_API.G_TRUE,
3671: p_msg_index => 1,
3672: -- p_msg_count => l_msg_count,
3673: -- p_msg_data => l_msg_data,
3674: p_data => l_data,
3674: p_data => l_data,
3675: p_msg_index_out => l_msg_index_out);
3676: x_msg_data := l_data;
3677: END IF;
3678: raise FND_API.G_EXC_ERROR;
3679: END IF;
3680:
3681: x_return_status := FND_API.G_RET_STS_SUCCESS;
3682:
3677: END IF;
3678: raise FND_API.G_EXC_ERROR;
3679: END IF;
3680:
3681: x_return_status := FND_API.G_RET_STS_SUCCESS;
3682:
3683: IF (p_commit = FND_API.G_TRUE) THEN
3684: COMMIT;
3685: END IF;
3679: END IF;
3680:
3681: x_return_status := FND_API.G_RET_STS_SUCCESS;
3682:
3683: IF (p_commit = FND_API.G_TRUE) THEN
3684: COMMIT;
3685: END IF;
3686:
3687: IF (p_debug_mode = 'Y') THEN
3688: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG END');
3689: END IF;
3690:
3691: EXCEPTION
3692: when FND_API.G_EXC_ERROR then
3693: if p_commit = FND_API.G_TRUE then
3694: rollback to CLEAR_FINANCIAL_FLAG;
3695: end if;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3689: END IF;
3690:
3691: EXCEPTION
3692: when FND_API.G_EXC_ERROR then
3693: if p_commit = FND_API.G_TRUE then
3694: rollback to CLEAR_FINANCIAL_FLAG;
3695: end if;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3697: when FND_API.G_EXC_UNEXPECTED_ERROR then
3692: when FND_API.G_EXC_ERROR then
3693: if p_commit = FND_API.G_TRUE then
3694: rollback to CLEAR_FINANCIAL_FLAG;
3695: end if;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3697: when FND_API.G_EXC_UNEXPECTED_ERROR then
3698: if p_commit = FND_API.G_TRUE then
3699: rollback to CLEAR_FINANCIAL_FLAG;
3700: end if;
3693: if p_commit = FND_API.G_TRUE then
3694: rollback to CLEAR_FINANCIAL_FLAG;
3695: end if;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3697: when FND_API.G_EXC_UNEXPECTED_ERROR then
3698: if p_commit = FND_API.G_TRUE then
3699: rollback to CLEAR_FINANCIAL_FLAG;
3700: end if;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: rollback to CLEAR_FINANCIAL_FLAG;
3695: end if;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3697: when FND_API.G_EXC_UNEXPECTED_ERROR then
3698: if p_commit = FND_API.G_TRUE then
3699: rollback to CLEAR_FINANCIAL_FLAG;
3700: end if;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3702: -- 4537865
3697: when FND_API.G_EXC_UNEXPECTED_ERROR then
3698: if p_commit = FND_API.G_TRUE then
3699: rollback to CLEAR_FINANCIAL_FLAG;
3700: end if;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3702: -- 4537865
3703: x_msg_count := 1 ;
3704: x_msg_data := SUBSTRB(SQLERRM,1,240);
3705: -- 4537865
3706: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3707: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3708: p_error_text => x_msg_data); -- 4537865
3709: when OTHERS then
3710: if p_commit = FND_API.G_TRUE then
3711: rollback to CLEAR_FINANCIAL_FLAG;
3712: end if;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3714: -- 4537865
3709: when OTHERS then
3710: if p_commit = FND_API.G_TRUE then
3711: rollback to CLEAR_FINANCIAL_FLAG;
3712: end if;
3713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3714: -- 4537865
3715: x_msg_count := 1 ;
3716: x_msg_data := SUBSTRB(SQLERRM,1,240);
3717: -- 4537865
3727: -- Pre-reqs : None
3728: -- Return Value : N/A
3729: -- Parameters
3730: -- p_api_version IN NUMBER := 1.0
3731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3734: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3728: -- Return Value : N/A
3729: -- Parameters
3730: -- p_api_version IN NUMBER := 1.0
3731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3734: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3736: -- p_debug_mode IN VARCHAR2 := 'N'
3729: -- Parameters
3730: -- p_api_version IN NUMBER := 1.0
3731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3734: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3736: -- p_debug_mode IN VARCHAR2 := 'N'
3737: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3730: -- p_api_version IN NUMBER := 1.0
3731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3734: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3736: -- p_debug_mode IN VARCHAR2 := 'N'
3737: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3738: -- p_project_id IN NUMBER
3747: --
3748: PROCEDURE Update_Sch_Dirty_Flag
3749: (
3750: p_api_version IN NUMBER := 1.0
3751: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3752: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3753: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3754: ,p_validation_level IN NUMBER := 100
3755: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3748: PROCEDURE Update_Sch_Dirty_Flag
3749: (
3750: p_api_version IN NUMBER := 1.0
3751: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3752: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3753: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3754: ,p_validation_level IN NUMBER := 100
3755: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3756: ,p_debug_mode IN VARCHAR2 := 'N'
3749: (
3750: p_api_version IN NUMBER := 1.0
3751: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3752: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3753: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3754: ,p_validation_level IN NUMBER := 100
3755: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3756: ,p_debug_mode IN VARCHAR2 := 'N'
3757: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3775: IF (p_debug_mode = 'Y') THEN
3776: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3777: END IF;
3778: --
3779: IF (p_commit = FND_API.G_TRUE) THEN
3780: savepoint update_sch_dirty_flag_pub;
3781: END IF;
3782: --
3783: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3779: IF (p_commit = FND_API.G_TRUE) THEN
3780: savepoint update_sch_dirty_flag_pub;
3781: END IF;
3782: --
3783: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3785: END IF;
3786: --
3787: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3780: savepoint update_sch_dirty_flag_pub;
3781: END IF;
3782: --
3783: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3785: END IF;
3786: --
3787: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3788: FND_MSG_PUB.initialize;
3783: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3785: END IF;
3786: --
3787: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3788: FND_MSG_PUB.initialize;
3789: END IF;
3790: --
3791: PA_PROJECT_STRUCTURE_PVT1.Update_Sch_Dirty_Flag(
3800: x_msg_count := FND_MSG_PUB.count_msg;
3801: IF (x_msg_count > 0) THEN
3802: IF x_msg_count = 1 THEN
3803: pa_interface_utils_pub.get_messages
3804: (p_encoded => FND_API.G_TRUE,
3805: p_msg_index => 1,
3806: p_data => l_data,
3807: p_msg_index_out => l_msg_index_out);
3808: x_msg_data := l_data;
3806: p_data => l_data,
3807: p_msg_index_out => l_msg_index_out);
3808: x_msg_data := l_data;
3809: END IF;
3810: RAISE FND_API.G_EXC_ERROR;
3811: END IF;
3812: --
3813: x_return_status := FND_API.G_RET_STS_SUCCESS;
3814: --
3809: END IF;
3810: RAISE FND_API.G_EXC_ERROR;
3811: END IF;
3812: --
3813: x_return_status := FND_API.G_RET_STS_SUCCESS;
3814: --
3815: IF (p_commit = FND_API.G_TRUE) THEN
3816: COMMIT;
3817: END IF;
3811: END IF;
3812: --
3813: x_return_status := FND_API.G_RET_STS_SUCCESS;
3814: --
3815: IF (p_commit = FND_API.G_TRUE) THEN
3816: COMMIT;
3817: END IF;
3818: --
3819: IF (p_debug_mode = 'Y') THEN
3820: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_SCH_DIRTY_FLAG end');
3821: END IF;
3822: --
3823: EXCEPTION
3824: WHEN FND_API.G_EXC_ERROR THEN
3825: IF p_commit = FND_API.G_TRUE THEN
3826: ROLLBACK TO update_sch_dirty_flag_pub;
3827: END IF;
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3821: END IF;
3822: --
3823: EXCEPTION
3824: WHEN FND_API.G_EXC_ERROR THEN
3825: IF p_commit = FND_API.G_TRUE THEN
3826: ROLLBACK TO update_sch_dirty_flag_pub;
3827: END IF;
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3824: WHEN FND_API.G_EXC_ERROR THEN
3825: IF p_commit = FND_API.G_TRUE THEN
3826: ROLLBACK TO update_sch_dirty_flag_pub;
3827: END IF;
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3830: IF p_commit = FND_API.G_TRUE THEN
3831: ROLLBACK TO update_sch_dirty_flag_pub;
3832: END IF;
3825: IF p_commit = FND_API.G_TRUE THEN
3826: ROLLBACK TO update_sch_dirty_flag_pub;
3827: END IF;
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3830: IF p_commit = FND_API.G_TRUE THEN
3831: ROLLBACK TO update_sch_dirty_flag_pub;
3832: END IF;
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826: ROLLBACK TO update_sch_dirty_flag_pub;
3827: END IF;
3828: x_return_status := FND_API.G_RET_STS_ERROR;
3829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3830: IF p_commit = FND_API.G_TRUE THEN
3831: ROLLBACK TO update_sch_dirty_flag_pub;
3832: END IF;
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: -- 4537865
3829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3830: IF p_commit = FND_API.G_TRUE THEN
3831: ROLLBACK TO update_sch_dirty_flag_pub;
3832: END IF;
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: -- 4537865
3835: x_msg_count := 1 ;
3836: x_msg_data := SUBSTRB(SQLERRM,1,240);
3837: -- 4537865
3838: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3839: p_procedure_name => 'update_sch_dirty_flag',
3840: p_error_text => x_msg_data); -- 4537865
3841: WHEN OTHERS THEN
3842: IF p_commit = FND_API.G_TRUE THEN
3843: ROLLBACK TO update_sch_dirty_flag_pub;
3844: END IF;
3845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3846: -- 4537865
3841: WHEN OTHERS THEN
3842: IF p_commit = FND_API.G_TRUE THEN
3843: ROLLBACK TO update_sch_dirty_flag_pub;
3844: END IF;
3845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3846: -- 4537865
3847: x_msg_count := 1 ;
3848: x_msg_data := SUBSTRB(SQLERRM,1,240);
3849: -- 4537865
3861: -- Pre-reqs : None
3862: -- Return Value : N/A
3863: -- Parameters
3864: -- p_api_version IN NUMBER := 1.0
3865: -- ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3866: -- ,p_structure_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3867: -- ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3868: -- ,x_return_status OUT NOCOPY VARCHAR2
3869: -- ,x_msg_count OUT NOCOPY NUMBER
3906: p_str_ver_id_to_del => p_structure_version_id_tbl(i),
3907: x_return_status => l_return_status,
3908: x_msg_count => l_msg_count,
3909: x_msg_data => l_msg_data);
3910: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3911: NULL;
3912: END IF;
3913: EXCEPTION
3914: WHEN OTHERS THEN
3924: p_record_version_number => p_record_version_number_tbl(i),
3925: x_return_status => l_return_status,
3926: x_msg_count => l_msg_count,
3927: x_msg_data => l_msg_data);
3928: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3929: NULL;
3930: END IF;
3931: EXCEPTION
3932: WHEN OTHERS THEN
3950: END LOOP;
3951: IF l_validation_failed = 'Y' THEN
3952: -- Return Status will be error so the caller
3953: -- can read from the error stack
3954: x_return_status := FND_API.G_RET_STS_ERROR;
3955:
3956: -- clear FND stack of all previously pop messages.
3957:
3958: -- populate generic error message
3962:
3963: END IF;
3964:
3965: EXCEPTION
3966: WHEN FND_API.G_EXC_ERROR THEN
3967:
3968: IF p_commit = FND_API.G_TRUE THEN
3969:
3970: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3964:
3965: EXCEPTION
3966: WHEN FND_API.G_EXC_ERROR THEN
3967:
3968: IF p_commit = FND_API.G_TRUE THEN
3969:
3970: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3971:
3972: END IF;
3969:
3970: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3971:
3972: END IF;
3973: x_return_status := FND_API.G_RET_STS_ERROR;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976: IF p_commit = FND_API.G_TRUE THEN
3977: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3971:
3972: END IF;
3973: x_return_status := FND_API.G_RET_STS_ERROR;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976: IF p_commit = FND_API.G_TRUE THEN
3977: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3978: END IF;
3979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3972: END IF;
3973: x_return_status := FND_API.G_RET_STS_ERROR;
3974:
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976: IF p_commit = FND_API.G_TRUE THEN
3977: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3978: END IF;
3979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3980: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3976: IF p_commit = FND_API.G_TRUE THEN
3977: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3978: END IF;
3979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3980: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3981: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3982: p_error_text => SUBSTRB(SQLERRM,1,240));
3983: WHEN OTHERS THEN
3980: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3981: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3982: p_error_text => SUBSTRB(SQLERRM,1,240));
3983: WHEN OTHERS THEN
3984: IF p_commit = FND_API.G_TRUE THEN
3985:
3986: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3987:
3988: END IF;
3985:
3986: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3987:
3988: END IF;
3989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3990: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3991: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3992: p_error_text => SUBSTRB(SQLERRM,1,240));
3993: RAISE;
4001:
4002: procedure DELETE_PUBLISHED_STRUCTURE_VER
4003: (
4004: p_api_version IN NUMBER := 1.0
4005: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4006: ,p_project_id IN NUMBER
4007: ,p_structure_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
4008: ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE
4009: ,x_return_status OUT NOCOPY VARCHAR2
4028: --l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4029:
4030: -- Standard call to check for call compatibility.
4031:
4032: IF NOT FND_API.Compatible_API_Call ( 1.0 ,
4033: p_api_version ,
4034: l_api_name ,
4035: G_PKG_NAME ) THEN
4036:
4033: p_api_version ,
4034: l_api_name ,
4035: G_PKG_NAME ) THEN
4036:
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END IF;
4039:
4040: -- Initialize the message table Unconditionally.
4041:
4038: END IF;
4039:
4040: -- Initialize the message table Unconditionally.
4041:
4042: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
4043:
4044: FND_MSG_PUB.initialize;
4045: END IF;
4046:
4044: FND_MSG_PUB.initialize;
4045: END IF;
4046:
4047: -- Set API return status to success
4048: x_return_status := FND_API.G_RET_STS_SUCCESS;
4049:
4050: -- Actual Processing starts here.
4051: -- Start looping through the passed in values.
4052:
4064: p_str_ver_id_to_del => p_structure_version_id_tbl(i),
4065: x_return_status => l_return_status,
4066: x_msg_count => l_msg_count,
4067: x_msg_data => l_msg_data);
4068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4069: l_msg_count := FND_MSG_PUB.count_msg;
4070: x_msg_data := l_msg_data;
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4067: x_msg_data => l_msg_data);
4068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4069: l_msg_count := FND_MSG_PUB.count_msg;
4070: x_msg_data := l_msg_data;
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4073:
4074: -- Call the actual delete API
4075: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
4078: p_record_version_number => p_record_version_number_tbl(i),
4079: x_return_status => l_return_status,
4080: x_msg_count => l_msg_count,
4081: x_msg_data => l_msg_data);
4082: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4083: l_msg_count := FND_MSG_PUB.count_msg;
4084: x_msg_data := l_msg_data;
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4081: x_msg_data => l_msg_data);
4082: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4083: l_msg_count := FND_MSG_PUB.count_msg;
4084: x_msg_data := l_msg_data;
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4087:
4088: ELSE
4089: x_return_status := FND_API.G_RET_STS_ERROR;
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4087:
4088: ELSE
4089: x_return_status := FND_API.G_RET_STS_ERROR;
4090: RAISE FND_API.G_EXC_ERROR;
4091: END IF;
4092: END LOOP;
4093:
4086: END IF;
4087:
4088: ELSE
4089: x_return_status := FND_API.G_RET_STS_ERROR;
4090: RAISE FND_API.G_EXC_ERROR;
4091: END IF;
4092: END LOOP;
4093:
4094: EXCEPTION
4091: END IF;
4092: END LOOP;
4093:
4094: EXCEPTION
4095: WHEN FND_API.G_EXC_ERROR THEN
4096:
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098:
4099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4093:
4094: EXCEPTION
4095: WHEN FND_API.G_EXC_ERROR THEN
4096:
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098:
4099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4100:
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4095: WHEN FND_API.G_EXC_ERROR THEN
4096:
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098:
4099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4100:
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4103: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4097: x_return_status := FND_API.G_RET_STS_ERROR;
4098:
4099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4100:
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4103: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4104: p_error_text => SUBSTRB(SQLERRM,1,240));
4105:
4104: p_error_text => SUBSTRB(SQLERRM,1,240));
4105:
4106: WHEN OTHERS THEN
4107:
4108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4109: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4110: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4111: p_error_text => SUBSTRB(SQLERRM,1,240));
4112:
4174:
4175: IF x_msg_count = 1 THEN
4176:
4177: pa_interface_utils_pub.get_messages
4178: (p_encoded => FND_API.G_TRUE,
4179: p_msg_index => 1,
4180: p_data => l_data,
4181: p_msg_index_out => l_msg_index_out);
4182: x_msg_data := l_data;
4181: p_msg_index_out => l_msg_index_out);
4182: x_msg_data := l_data;
4183: END IF;
4184:
4185: RAISE FND_API.G_EXC_ERROR;
4186: END IF;
4187:
4188: x_return_status := FND_API.G_RET_STS_SUCCESS;
4189:
4184:
4185: RAISE FND_API.G_EXC_ERROR;
4186: END IF;
4187:
4188: x_return_status := FND_API.G_RET_STS_SUCCESS;
4189:
4190:
4191: EXCEPTION
4192:
4189:
4190:
4191: EXCEPTION
4192:
4193: WHEN FND_API.G_EXC_ERROR THEN
4194:
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4197:
4191: EXCEPTION
4192:
4193: WHEN FND_API.G_EXC_ERROR THEN
4194:
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4197:
4198: x_msg_count := 1 ;
4199: x_msg_data := SUBSTRB(SQLERRM,1,240);
4192:
4193: WHEN FND_API.G_EXC_ERROR THEN
4194:
4195: x_return_status := FND_API.G_RET_STS_ERROR;
4196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4197:
4198: x_msg_count := 1 ;
4199: x_msg_data := SUBSTRB(SQLERRM,1,240);
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4197:
4198: x_msg_count := 1 ;
4199: x_msg_data := SUBSTRB(SQLERRM,1,240);
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4201: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4202: p_procedure_name => 'enable_program_flag',
4203: p_error_text => x_msg_data);
4204: WHEN OTHERS THEN
4202: p_procedure_name => 'enable_program_flag',
4203: p_error_text => x_msg_data);
4204: WHEN OTHERS THEN
4205:
4206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4207: x_msg_count := 1 ;
4208: x_msg_data := SUBSTRB(SQLERRM,1,240);
4209: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4210: p_procedure_name => 'enable_program_flag',