[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
1917: IF (p_debug_mode = 'Y') THEN
1918: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE begin');
1919: END IF;
1920:
1921: IF (p_commit = FND_API.G_TRUE) THEN
1922: savepoint publish_structure;
1923: END IF;
1924:
1925: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1921: IF (p_commit = FND_API.G_TRUE) THEN
1922: savepoint publish_structure;
1923: END IF;
1924:
1925: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928:
1929: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1922: savepoint publish_structure;
1923: END IF;
1924:
1925: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928:
1929: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1930: FND_MSG_PUB.initialize;
1925: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928:
1929: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1930: FND_MSG_PUB.initialize;
1931: END IF;
1932:
1933: --Check if this structure can be published (ie, if linked structures are published)
1933: --Check if this structure can be published (ie, if linked structures are published)
1934: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
1935: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
1936: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
1937: RAISE FND_API.G_EXC_ERROR;
1938: END IF;
1939:
1940:
1941: --Call private API
1964: );
1965:
1966: -- error_msg('public --> '||l_return_status||l_msg_count||l_msg_data);
1967:
1968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1969: x_msg_count := FND_MSG_PUB.count_msg;
1970: IF x_msg_count = 1 then
1971: pa_interface_utils_pub.get_messages
1972: (p_encoded => FND_API.G_TRUE,
1968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1969: x_msg_count := FND_MSG_PUB.count_msg;
1970: IF x_msg_count = 1 then
1971: pa_interface_utils_pub.get_messages
1972: (p_encoded => FND_API.G_TRUE,
1973: p_msg_index => 1,
1974: -- p_msg_count => l_msg_count,
1975: -- p_msg_data => l_msg_data,
1976: p_data => l_data,
1977: p_msg_index_out => l_msg_index_out);
1978: x_msg_data := l_data;
1979: -- error_msg('public --> '||x_msg_data||', '||l_msg_data);
1980: END IF;
1981: raise FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1984: --start workflow
1985: OPEN c1;
2001: ,x_msg_count => l_msg_count
2002: ,x_msg_data => l_msg_data
2003: );
2004:
2005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2006: x_msg_count := FND_MSG_PUB.count_msg;
2007: IF x_msg_count = 1 then
2008: pa_interface_utils_pub.get_messages
2009: (p_encoded => FND_API.G_TRUE,
2005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2006: x_msg_count := FND_MSG_PUB.count_msg;
2007: IF x_msg_count = 1 then
2008: pa_interface_utils_pub.get_messages
2009: (p_encoded => FND_API.G_TRUE,
2010: p_msg_index => 1,
2011: -- p_msg_count => l_msg_count,
2012: -- p_msg_data => l_msg_data,
2013: p_data => l_data,
2014: p_msg_index_out => l_msg_index_out);
2015: x_msg_data := l_data;
2016: -- error_msg('public --> '||x_msg_data||', '||l_msg_data);
2017: END IF;
2018: raise FND_API.G_EXC_ERROR;
2019: END IF;
2020:
2021: -- FP M : 3491609 : Project Execution Workflow
2022: PA_WORKPLAN_WORKFLOW.START_PROJECT_EXECUTION_WF
2026: ,x_msg_data => l_msg_data
2027: ,x_return_status => l_return_status
2028: ) ;
2029:
2030: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2031: x_msg_count := FND_MSG_PUB.count_msg;
2032: IF x_msg_count = 1 then
2033: pa_interface_utils_pub.get_messages
2034: (p_encoded => FND_API.G_TRUE,
2030: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2031: x_msg_count := FND_MSG_PUB.count_msg;
2032: IF x_msg_count = 1 then
2033: pa_interface_utils_pub.get_messages
2034: (p_encoded => FND_API.G_TRUE,
2035: p_msg_index => 1,
2036: p_data => l_data,
2037: p_msg_index_out => l_msg_index_out);
2038: x_msg_data := l_data;
2036: p_data => l_data,
2037: p_msg_index_out => l_msg_index_out);
2038: x_msg_data := l_data;
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2041: END IF;
2042:
2043: -- FP M : 3491609 : Project Execution Workflow
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2040: raise FND_API.G_EXC_ERROR;
2041: END IF;
2042:
2043: -- FP M : 3491609 : Project Execution Workflow
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045:
2046: IF (p_commit = FND_API.G_TRUE) THEN
2047: COMMIT;
2048: END IF;
2042:
2043: -- FP M : 3491609 : Project Execution Workflow
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045:
2046: IF (p_commit = FND_API.G_TRUE) THEN
2047: COMMIT;
2048: END IF;
2049:
2050: IF (p_debug_mode = 'Y') THEN
2051: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.PUBLISH_STRUCTURE end');
2052: END IF;
2053:
2054: EXCEPTION
2055: when FND_API.G_EXC_ERROR then
2056: if p_commit = FND_API.G_TRUE then
2057: rollback to publish_structure;
2058: end if;
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2052: END IF;
2053:
2054: EXCEPTION
2055: when FND_API.G_EXC_ERROR then
2056: if p_commit = FND_API.G_TRUE then
2057: rollback to publish_structure;
2058: end if;
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060:
2055: when FND_API.G_EXC_ERROR then
2056: if p_commit = FND_API.G_TRUE then
2057: rollback to publish_structure;
2058: end if;
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060:
2061: x_published_struct_ver_id := NULL ; -- 4537865
2062: when FND_API.G_EXC_UNEXPECTED_ERROR then
2063: if p_commit = FND_API.G_TRUE then
2058: end if;
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060:
2061: x_published_struct_ver_id := NULL ; -- 4537865
2062: when FND_API.G_EXC_UNEXPECTED_ERROR then
2063: if p_commit = FND_API.G_TRUE then
2064: rollback to publish_structure;
2065: end if;
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060:
2061: x_published_struct_ver_id := NULL ; -- 4537865
2062: when FND_API.G_EXC_UNEXPECTED_ERROR then
2063: if p_commit = FND_API.G_TRUE then
2064: rollback to publish_structure;
2065: end if;
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: -- 4537865
2062: when FND_API.G_EXC_UNEXPECTED_ERROR then
2063: if p_commit = FND_API.G_TRUE then
2064: rollback to publish_structure;
2065: end if;
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: -- 4537865
2068: x_msg_count := 1 ;
2069: x_msg_data := SUBSTRB(SQLERRM,1,240);
2070: x_published_struct_ver_id := NULL ;
2073: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2074: p_procedure_name => 'PUBLISH_STRUCTURE',
2075: p_error_text => x_msg_data); -- 4537865
2076: when OTHERS then
2077: if p_commit = FND_API.G_TRUE then
2078: rollback to publish_structure;
2079: end if;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: -- 4537865
2076: when OTHERS then
2077: if p_commit = FND_API.G_TRUE then
2078: rollback to publish_structure;
2079: end if;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: -- 4537865
2082: x_msg_count := 1 ;
2083: x_msg_data := SUBSTRB(SQLERRM,1,240);
2084: x_published_struct_ver_id := NULL ;
2096: -- Pre-reqs : None
2097: -- Return Value : N/A
2098: -- Parameters
2099: -- p_api_version IN NUMBER := 1.0
2100: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2101: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2102: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2103: -- p_validation_level IN VARCHAR2 := 100
2104: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2097: -- Return Value : N/A
2098: -- Parameters
2099: -- p_api_version IN NUMBER := 1.0
2100: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2101: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2102: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2103: -- p_validation_level IN VARCHAR2 := 100
2104: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2105: -- p_debug_mode IN VARCHAR2 := 'N'
2098: -- Parameters
2099: -- p_api_version IN NUMBER := 1.0
2100: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2101: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2102: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2103: -- p_validation_level IN VARCHAR2 := 100
2104: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2105: -- p_debug_mode IN VARCHAR2 := 'N'
2106: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2120:
2121: procedure Copy_Structure
2122: (
2123: p_api_version IN NUMBER := 1.0
2124: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2125: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2126: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2127: ,p_validation_level IN VARCHAR2 := 100
2128: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2121: procedure Copy_Structure
2122: (
2123: p_api_version IN NUMBER := 1.0
2124: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2125: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2126: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2127: ,p_validation_level IN VARCHAR2 := 100
2128: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2129: ,p_debug_mode IN VARCHAR2 := 'N'
2122: (
2123: p_api_version IN NUMBER := 1.0
2124: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2125: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2126: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2127: ,p_validation_level IN VARCHAR2 := 100
2128: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2129: ,p_debug_mode IN VARCHAR2 := 'N'
2130: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2155: IF (p_debug_mode = 'Y') THEN
2156: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE begin');
2157: END IF;
2158:
2159: IF (p_commit = FND_API.G_TRUE) THEN
2160: savepoint copy_structure;
2161: END IF;
2162:
2163: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2159: IF (p_commit = FND_API.G_TRUE) THEN
2160: savepoint copy_structure;
2161: END IF;
2162:
2163: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2160: savepoint copy_structure;
2161: END IF;
2162:
2163: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2168: FND_MSG_PUB.initialize;
2163: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2168: FND_MSG_PUB.initialize;
2169: END IF;
2170:
2171: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2168: FND_MSG_PUB.initialize;
2169: END IF;
2170:
2171: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure
2172: ( p_commit => FND_API.G_FALSE
2173: ,p_validate_only => p_validate_only
2174: ,p_validation_level => p_validation_level
2175: ,p_calling_module => p_calling_module
2176: ,p_debug_mode => p_debug_mode
2185: ,x_return_status => l_return_status
2186: ,x_msg_count => l_msg_count
2187: ,x_msg_data => l_msg_data);
2188:
2189: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2190: x_msg_count := FND_MSG_PUB.count_msg;
2191: IF x_msg_count = 1 then
2192: pa_interface_utils_pub.get_messages
2193: (p_encoded => FND_API.G_TRUE,
2189: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2190: x_msg_count := FND_MSG_PUB.count_msg;
2191: IF x_msg_count = 1 then
2192: pa_interface_utils_pub.get_messages
2193: (p_encoded => FND_API.G_TRUE,
2194: p_msg_index => 1,
2195: -- p_msg_count => l_msg_count,
2196: -- p_msg_data => l_msg_data,
2197: p_data => l_data,
2197: p_data => l_data,
2198: p_msg_index_out => l_msg_index_out);
2199: x_msg_data := l_data;
2200: END IF;
2201: raise FND_API.G_EXC_ERROR;
2202: END IF;
2203:
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2200: END IF;
2201: raise FND_API.G_EXC_ERROR;
2202: END IF;
2203:
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2206: IF (p_commit = FND_API.G_TRUE) THEN
2207: COMMIT;
2208: END IF;
2202: END IF;
2203:
2204: x_return_status := FND_API.G_RET_STS_SUCCESS;
2205:
2206: IF (p_commit = FND_API.G_TRUE) THEN
2207: COMMIT;
2208: END IF;
2209:
2210: IF (p_debug_mode = 'Y') THEN
2211: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE END');
2212: END IF;
2213:
2214: EXCEPTION
2215: when FND_API.G_EXC_ERROR then
2216: if p_commit = FND_API.G_TRUE then
2217: rollback to copy_structure;
2218: end if;
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2212: END IF;
2213:
2214: EXCEPTION
2215: when FND_API.G_EXC_ERROR then
2216: if p_commit = FND_API.G_TRUE then
2217: rollback to copy_structure;
2218: end if;
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: when FND_API.G_EXC_UNEXPECTED_ERROR then
2215: when FND_API.G_EXC_ERROR then
2216: if p_commit = FND_API.G_TRUE then
2217: rollback to copy_structure;
2218: end if;
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: when FND_API.G_EXC_UNEXPECTED_ERROR then
2221: if p_commit = FND_API.G_TRUE then
2222: rollback to copy_structure;
2223: end if;
2216: if p_commit = FND_API.G_TRUE then
2217: rollback to copy_structure;
2218: end if;
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: when FND_API.G_EXC_UNEXPECTED_ERROR then
2221: if p_commit = FND_API.G_TRUE then
2222: rollback to copy_structure;
2223: end if;
2224: -- 4537865
2217: rollback to copy_structure;
2218: end if;
2219: x_return_status := FND_API.G_RET_STS_ERROR;
2220: when FND_API.G_EXC_UNEXPECTED_ERROR then
2221: if p_commit = FND_API.G_TRUE then
2222: rollback to copy_structure;
2223: end if;
2224: -- 4537865
2225: x_msg_count := 1 ;
2224: -- 4537865
2225: x_msg_count := 1 ;
2226: x_msg_data := SUBSTRB(SQLERRM,1,240);
2227: -- 4537865
2228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2230: p_procedure_name => 'COPY_STRUCTURE',
2231: p_error_text => x_msg_data); -- 4537865
2232: when OTHERS then
2229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2230: p_procedure_name => 'COPY_STRUCTURE',
2231: p_error_text => x_msg_data); -- 4537865
2232: when OTHERS then
2233: if p_commit = FND_API.G_TRUE then
2234: rollback to copy_structure;
2235: end if;
2236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2237: -- 4537865
2232: when OTHERS then
2233: if p_commit = FND_API.G_TRUE then
2234: rollback to copy_structure;
2235: end if;
2236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2237: -- 4537865
2238: x_msg_count := 1 ;
2239: x_msg_data := SUBSTRB(SQLERRM,1,240);
2240: -- 4537865
2250: -- Pre-reqs : None
2251: -- Return Value : N/A
2252: -- Parameters
2253: -- p_api_version IN NUMBER := 1.0
2254: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2255: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2256: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2257: -- p_validation_level IN VARCHAR2 := 100
2258: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2251: -- Return Value : N/A
2252: -- Parameters
2253: -- p_api_version IN NUMBER := 1.0
2254: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2255: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2256: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2257: -- p_validation_level IN VARCHAR2 := 100
2258: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2259: -- p_debug_mode IN VARCHAR2 := 'N'
2252: -- Parameters
2253: -- p_api_version IN NUMBER := 1.0
2254: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2255: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2256: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2257: -- p_validation_level IN VARCHAR2 := 100
2258: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2259: -- p_debug_mode IN VARCHAR2 := 'N'
2260: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2275:
2276: procedure Copy_Structure_Version
2277: (
2278: p_api_version IN NUMBER := 1.0
2279: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2280: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2281: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2282: ,p_validation_level IN VARCHAR2 := 100
2283: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2276: procedure Copy_Structure_Version
2277: (
2278: p_api_version IN NUMBER := 1.0
2279: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2280: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2281: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2282: ,p_validation_level IN VARCHAR2 := 100
2283: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2284: ,p_debug_mode IN VARCHAR2 := 'N'
2277: (
2278: p_api_version IN NUMBER := 1.0
2279: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2280: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2281: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2282: ,p_validation_level IN VARCHAR2 := 100
2283: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2284: ,p_debug_mode IN VARCHAR2 := 'N'
2285: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2309: IF (p_debug_mode = 'Y') THEN
2310: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION begin');
2311: END IF;
2312:
2313: IF (p_commit = FND_API.G_TRUE) THEN
2314: savepoint copy_structure_version;
2315: END IF;
2316:
2317: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2313: IF (p_commit = FND_API.G_TRUE) THEN
2314: savepoint copy_structure_version;
2315: END IF;
2316:
2317: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2319: END IF;
2320:
2321: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2314: savepoint copy_structure_version;
2315: END IF;
2316:
2317: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2319: END IF;
2320:
2321: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2322: FND_MSG_PUB.initialize;
2317: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2319: END IF;
2320:
2321: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2322: FND_MSG_PUB.initialize;
2323: END IF;
2324:
2325: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2322: FND_MSG_PUB.initialize;
2323: END IF;
2324:
2325: PA_PROJECT_STRUCTURE_PVT1.Copy_Structure_Version_bulk
2326: ( p_commit => FND_API.G_FALSE
2327: ,p_validate_only => p_validate_only
2328: ,p_validation_level => p_validation_level
2329: ,p_calling_module => p_calling_module
2330: ,p_debug_mode => p_debug_mode
2337: ,x_return_status => l_return_status
2338: ,x_msg_count => l_msg_count
2339: ,x_msg_data => l_msg_data);
2340:
2341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2342: x_msg_count := FND_MSG_PUB.count_msg;
2343: IF x_msg_count = 1 then
2344: pa_interface_utils_pub.get_messages
2345: (p_encoded => FND_API.G_TRUE,
2341: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2342: x_msg_count := FND_MSG_PUB.count_msg;
2343: IF x_msg_count = 1 then
2344: pa_interface_utils_pub.get_messages
2345: (p_encoded => FND_API.G_TRUE,
2346: p_msg_index => 1,
2347: -- p_msg_count => l_msg_count,
2348: -- p_msg_data => l_msg_data,
2349: p_data => l_data,
2349: p_data => l_data,
2350: p_msg_index_out => l_msg_index_out);
2351: x_msg_data := l_data;
2352: END IF;
2353: raise FND_API.G_EXC_ERROR;
2354: END IF;
2355:
2356: x_new_struct_ver_id := l_new_struct_ver_id;
2357: x_return_status := FND_API.G_RET_STS_SUCCESS;
2353: raise FND_API.G_EXC_ERROR;
2354: END IF;
2355:
2356: x_new_struct_ver_id := l_new_struct_ver_id;
2357: x_return_status := FND_API.G_RET_STS_SUCCESS;
2358:
2359: IF (p_commit = FND_API.G_TRUE) THEN
2360: COMMIT;
2361: END IF;
2355:
2356: x_new_struct_ver_id := l_new_struct_ver_id;
2357: x_return_status := FND_API.G_RET_STS_SUCCESS;
2358:
2359: IF (p_commit = FND_API.G_TRUE) THEN
2360: COMMIT;
2361: END IF;
2362:
2363: IF (p_debug_mode = 'Y') THEN
2364: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.COPY_STRUCTURE_VERSION END');
2365: END IF;
2366:
2367: EXCEPTION
2368: when FND_API.G_EXC_ERROR then
2369: if p_commit = FND_API.G_TRUE then
2370: rollback to copy_structure_version;
2371: end if;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2365: END IF;
2366:
2367: EXCEPTION
2368: when FND_API.G_EXC_ERROR then
2369: if p_commit = FND_API.G_TRUE then
2370: rollback to copy_structure_version;
2371: end if;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: x_new_struct_ver_id := NULL ; -- 4537865
2368: when FND_API.G_EXC_ERROR then
2369: if p_commit = FND_API.G_TRUE then
2370: rollback to copy_structure_version;
2371: end if;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: x_new_struct_ver_id := NULL ; -- 4537865
2374: when FND_API.G_EXC_UNEXPECTED_ERROR then
2375: if p_commit = FND_API.G_TRUE then
2376: rollback to copy_structure_version;
2370: rollback to copy_structure_version;
2371: end if;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: x_new_struct_ver_id := NULL ; -- 4537865
2374: when FND_API.G_EXC_UNEXPECTED_ERROR then
2375: if p_commit = FND_API.G_TRUE then
2376: rollback to copy_structure_version;
2377: end if;
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2371: end if;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: x_new_struct_ver_id := NULL ; -- 4537865
2374: when FND_API.G_EXC_UNEXPECTED_ERROR then
2375: if p_commit = FND_API.G_TRUE then
2376: rollback to copy_structure_version;
2377: end if;
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379: -- 4537865
2374: when FND_API.G_EXC_UNEXPECTED_ERROR then
2375: if p_commit = FND_API.G_TRUE then
2376: rollback to copy_structure_version;
2377: end if;
2378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2379: -- 4537865
2380: x_msg_count := 1 ;
2381: x_msg_data := SUBSTRB(SQLERRM,1,240);
2382: x_new_struct_ver_id := NULL ;
2384: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2385: p_procedure_name => 'COPY_STRUCTURE_VERSION',
2386: p_error_text => x_msg_data); -- 4537865
2387: when OTHERS then
2388: if p_commit = FND_API.G_TRUE then
2389: rollback to copy_structure_version;
2390: end if;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: -- 4537865
2387: when OTHERS then
2388: if p_commit = FND_API.G_TRUE then
2389: rollback to copy_structure_version;
2390: end if;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392: -- 4537865
2393: x_msg_count := 1 ;
2394: x_msg_data := SUBSTRB(SQLERRM,1,240);
2395: x_new_struct_ver_id := NULL ;
2403:
2404: procedure SUBMIT_WORKPLAN
2405: (
2406: p_api_version IN NUMBER := 1.0
2407: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2408: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2409: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2410: ,p_validation_level IN VARCHAR2 := 100
2411: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2404: procedure SUBMIT_WORKPLAN
2405: (
2406: p_api_version IN NUMBER := 1.0
2407: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2408: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2409: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2410: ,p_validation_level IN VARCHAR2 := 100
2411: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2412: ,p_debug_mode IN VARCHAR2 := 'N'
2405: (
2406: p_api_version IN NUMBER := 1.0
2407: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2408: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2409: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2410: ,p_validation_level IN VARCHAR2 := 100
2411: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2412: ,p_debug_mode IN VARCHAR2 := 'N'
2413: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2435: IF (p_debug_mode = 'Y') THEN
2436: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN begin');
2437: END IF;
2438:
2439: IF (p_commit = FND_API.G_TRUE) THEN
2440: savepoint submit_workplan;
2441: END IF;
2442:
2443: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2439: IF (p_commit = FND_API.G_TRUE) THEN
2440: savepoint submit_workplan;
2441: END IF;
2442:
2443: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446:
2447: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2440: savepoint submit_workplan;
2441: END IF;
2442:
2443: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446:
2447: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2448: FND_MSG_PUB.initialize;
2443: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2445: END IF;
2446:
2447: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2448: FND_MSG_PUB.initialize;
2449: END IF;
2450:
2451: --Check if this structure can be published (ie, if linked structures are published)
2451: --Check if this structure can be published (ie, if linked structures are published)
2452: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
2453: PA_UTILS.ADD_MESSAGE('PA','PA_PS_OTHER_WORKING_LOCKED');
2454: x_msg_data := 'PA_PS_OTHER_WORKING_LOCKED';
2455: RAISE FND_API.G_EXC_ERROR;
2456: END IF;
2457:
2458: PA_PROJECT_STRUCTURE_PVT1.SUBMIT_WORKPLAN(
2459: p_api_version => p_api_version
2475: x_msg_count := FND_MSG_PUB.count_msg;
2476: IF (x_msg_count > 0) THEN
2477: IF x_msg_count = 1 then
2478: pa_interface_utils_pub.get_messages
2479: (p_encoded => FND_API.G_TRUE,
2480: p_msg_index => 1,
2481: p_data => l_data,
2482: p_msg_index_out => l_msg_index_out);
2483: x_msg_data := l_data;
2481: p_data => l_data,
2482: p_msg_index_out => l_msg_index_out);
2483: x_msg_data := l_data;
2484: END IF;
2485: raise FND_API.G_EXC_ERROR;
2486: END IF;
2487:
2488: --call private API
2489: x_return_status := FND_API.G_RET_STS_SUCCESS;
2485: raise FND_API.G_EXC_ERROR;
2486: END IF;
2487:
2488: --call private API
2489: x_return_status := FND_API.G_RET_STS_SUCCESS;
2490:
2491: IF (p_commit = FND_API.G_TRUE) THEN
2492: COMMIT;
2493: END IF;
2487:
2488: --call private API
2489: x_return_status := FND_API.G_RET_STS_SUCCESS;
2490:
2491: IF (p_commit = FND_API.G_TRUE) THEN
2492: COMMIT;
2493: END IF;
2494:
2495: IF (p_debug_mode = 'Y') THEN
2496: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.SUBMIT_WORKPLAN end');
2497: END IF;
2498:
2499: EXCEPTION
2500: when FND_API.G_EXC_ERROR then
2501: if p_commit = FND_API.G_TRUE then
2502: rollback to submit_workplan;
2503: end if;
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2497: END IF;
2498:
2499: EXCEPTION
2500: when FND_API.G_EXC_ERROR then
2501: if p_commit = FND_API.G_TRUE then
2502: rollback to submit_workplan;
2503: end if;
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: when FND_API.G_EXC_UNEXPECTED_ERROR then
2500: when FND_API.G_EXC_ERROR then
2501: if p_commit = FND_API.G_TRUE then
2502: rollback to submit_workplan;
2503: end if;
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: when FND_API.G_EXC_UNEXPECTED_ERROR then
2506: if p_commit = FND_API.G_TRUE then
2507: rollback to submit_workplan;
2508: end if;
2501: if p_commit = FND_API.G_TRUE then
2502: rollback to submit_workplan;
2503: end if;
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: when FND_API.G_EXC_UNEXPECTED_ERROR then
2506: if p_commit = FND_API.G_TRUE then
2507: rollback to submit_workplan;
2508: end if;
2509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2502: rollback to submit_workplan;
2503: end if;
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: when FND_API.G_EXC_UNEXPECTED_ERROR then
2506: if p_commit = FND_API.G_TRUE then
2507: rollback to submit_workplan;
2508: end if;
2509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2510: -- 4537865
2505: when FND_API.G_EXC_UNEXPECTED_ERROR then
2506: if p_commit = FND_API.G_TRUE then
2507: rollback to submit_workplan;
2508: end if;
2509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2510: -- 4537865
2511: x_msg_count := 1 ;
2512: x_msg_data := SUBSTRB(SQLERRM,1,240);
2513: -- 4537865
2514: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2515: p_procedure_name => 'SUBMIT_WORKPLAN',
2516: p_error_text => x_msg_data); -- 4537865
2517: when OTHERS then
2518: if p_commit = FND_API.G_TRUE then
2519: rollback to submit_workplan;
2520: end if;
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: -- 4537865
2517: when OTHERS then
2518: if p_commit = FND_API.G_TRUE then
2519: rollback to submit_workplan;
2520: end if;
2521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2522: -- 4537865
2523: x_msg_count := 1 ;
2524: x_msg_data := SUBSTRB(SQLERRM,1,240);
2525: -- 4537865
2532:
2533: PROCEDURE rework_workplan
2534: (
2535: p_api_version IN NUMBER := 1.0
2536: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2537: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2538: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2539: ,p_validation_level IN VARCHAR2 := 100
2540: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2533: PROCEDURE rework_workplan
2534: (
2535: p_api_version IN NUMBER := 1.0
2536: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2537: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2538: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2539: ,p_validation_level IN VARCHAR2 := 100
2540: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2541: ,p_debug_mode IN VARCHAR2 := 'N'
2534: (
2535: p_api_version IN NUMBER := 1.0
2536: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2537: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2538: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2539: ,p_validation_level IN VARCHAR2 := 100
2540: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2541: ,p_debug_mode IN VARCHAR2 := 'N'
2542: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2563: IF (p_debug_mode = 'Y') THEN
2564: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN begin');
2565: END IF;
2566:
2567: IF (p_commit = FND_API.G_TRUE) THEN
2568: savepoint rework_workplan;
2569: END IF;
2570:
2571: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2567: IF (p_commit = FND_API.G_TRUE) THEN
2568: savepoint rework_workplan;
2569: END IF;
2570:
2571: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2568: savepoint rework_workplan;
2569: END IF;
2570:
2571: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2576: FND_MSG_PUB.initialize;
2571: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2573: END IF;
2574:
2575: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2576: FND_MSG_PUB.initialize;
2577: END IF;
2578:
2579: PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN(
2595: x_msg_count := FND_MSG_PUB.count_msg;
2596: IF (x_msg_count > 0) THEN
2597: IF x_msg_count = 1 then
2598: pa_interface_utils_pub.get_messages
2599: (p_encoded => FND_API.G_TRUE,
2600: p_msg_index => 1,
2601: p_data => l_data,
2602: p_msg_index_out => l_msg_index_out);
2603: x_msg_data := l_data;
2601: p_data => l_data,
2602: p_msg_index_out => l_msg_index_out);
2603: x_msg_data := l_data;
2604: END IF;
2605: raise FND_API.G_EXC_ERROR;
2606: END IF;
2607:
2608: x_return_status := FND_API.G_RET_STS_SUCCESS;
2609:
2604: END IF;
2605: raise FND_API.G_EXC_ERROR;
2606: END IF;
2607:
2608: x_return_status := FND_API.G_RET_STS_SUCCESS;
2609:
2610: IF (p_commit = FND_API.G_TRUE) THEN
2611: COMMIT;
2612: END IF;
2606: END IF;
2607:
2608: x_return_status := FND_API.G_RET_STS_SUCCESS;
2609:
2610: IF (p_commit = FND_API.G_TRUE) THEN
2611: COMMIT;
2612: END IF;
2613:
2614: IF (p_debug_mode = 'Y') THEN
2615: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.REWORK_WORKPLAN end');
2616: END IF;
2617:
2618: EXCEPTION
2619: when FND_API.G_EXC_ERROR then
2620: if p_commit = FND_API.G_TRUE then
2621: rollback to rework_workplan;
2622: end if;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2616: END IF;
2617:
2618: EXCEPTION
2619: when FND_API.G_EXC_ERROR then
2620: if p_commit = FND_API.G_TRUE then
2621: rollback to rework_workplan;
2622: end if;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: when FND_API.G_EXC_UNEXPECTED_ERROR then
2619: when FND_API.G_EXC_ERROR then
2620: if p_commit = FND_API.G_TRUE then
2621: rollback to rework_workplan;
2622: end if;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: when FND_API.G_EXC_UNEXPECTED_ERROR then
2625: if p_commit = FND_API.G_TRUE then
2626: rollback to rework_workplan;
2627: end if;
2620: if p_commit = FND_API.G_TRUE then
2621: rollback to rework_workplan;
2622: end if;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: when FND_API.G_EXC_UNEXPECTED_ERROR then
2625: if p_commit = FND_API.G_TRUE then
2626: rollback to rework_workplan;
2627: end if;
2628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2621: rollback to rework_workplan;
2622: end if;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: when FND_API.G_EXC_UNEXPECTED_ERROR then
2625: if p_commit = FND_API.G_TRUE then
2626: rollback to rework_workplan;
2627: end if;
2628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2629: -- 4537865
2624: when FND_API.G_EXC_UNEXPECTED_ERROR then
2625: if p_commit = FND_API.G_TRUE then
2626: rollback to rework_workplan;
2627: end if;
2628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2629: -- 4537865
2630: x_msg_count := 1 ;
2631: x_msg_data := SUBSTRB(SQLERRM,1,240);
2632: -- 4537865
2633: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2634: p_procedure_name => 'REWORK_WORKPLAN',
2635: p_error_text => x_msg_data); -- 4537865
2636: when OTHERS then
2637: if p_commit = FND_API.G_TRUE then
2638: rollback to rework_workplan;
2639: end if;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: -- 4537865
2636: when OTHERS then
2637: if p_commit = FND_API.G_TRUE then
2638: rollback to rework_workplan;
2639: end if;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: -- 4537865
2642: x_msg_count := 1 ;
2643: x_msg_data := SUBSTRB(SQLERRM,1,240);
2644: -- 4537865
2675: -- 30-Mar-04 JYAN added p_sys_program_flag and p_allow_multi_prog_rollup
2676: --
2677: PROCEDURE update_structures_setup_attr
2678: ( p_api_version IN NUMBER := 1.0
2679: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2680: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2681: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2682: ,p_validation_level IN VARCHAR2 := 100
2683: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2676: --
2677: PROCEDURE update_structures_setup_attr
2678: ( p_api_version IN NUMBER := 1.0
2679: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2680: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2681: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2682: ,p_validation_level IN VARCHAR2 := 100
2683: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2684: ,p_debug_mode IN VARCHAR2 := 'N'
2677: PROCEDURE update_structures_setup_attr
2678: ( p_api_version IN NUMBER := 1.0
2679: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2680: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2681: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2682: ,p_validation_level IN VARCHAR2 := 100
2683: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2684: ,p_debug_mode IN VARCHAR2 := 'N'
2685: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2709: IF (p_debug_mode = 'Y') THEN
2710: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2711: END IF;
2712:
2713: IF (p_commit = FND_API.G_TRUE) THEN
2714: savepoint update_struc_setup_attr_pub;
2715: END IF;
2716:
2717: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2713: IF (p_commit = FND_API.G_TRUE) THEN
2714: savepoint update_struc_setup_attr_pub;
2715: END IF;
2716:
2717: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720:
2721: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2714: savepoint update_struc_setup_attr_pub;
2715: END IF;
2716:
2717: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720:
2721: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2722: FND_MSG_PUB.initialize;
2717: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2719: END IF;
2720:
2721: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2722: FND_MSG_PUB.initialize;
2723: END IF;
2724:
2725: PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURES_SETUP_ATTR(
2747: x_msg_count := FND_MSG_PUB.count_msg;
2748: IF (x_msg_count > 0) THEN
2749: IF x_msg_count = 1 then
2750: pa_interface_utils_pub.get_messages
2751: (p_encoded => FND_API.G_TRUE,
2752: p_msg_index => 1,
2753: p_data => l_data,
2754: p_msg_index_out => l_msg_index_out);
2755: x_msg_data := l_data;
2753: p_data => l_data,
2754: p_msg_index_out => l_msg_index_out);
2755: x_msg_data := l_data;
2756: END IF;
2757: raise FND_API.G_EXC_ERROR;
2758: END IF;
2759:
2760: x_return_status := FND_API.G_RET_STS_SUCCESS;
2761:
2756: END IF;
2757: raise FND_API.G_EXC_ERROR;
2758: END IF;
2759:
2760: x_return_status := FND_API.G_RET_STS_SUCCESS;
2761:
2762: IF (p_commit = FND_API.G_TRUE) THEN
2763: COMMIT;
2764: END IF;
2758: END IF;
2759:
2760: x_return_status := FND_API.G_RET_STS_SUCCESS;
2761:
2762: IF (p_commit = FND_API.G_TRUE) THEN
2763: COMMIT;
2764: END IF;
2765:
2766: IF (p_debug_mode = 'Y') THEN
2767: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR end');
2768: END IF;
2769:
2770: EXCEPTION
2771: when FND_API.G_EXC_ERROR then
2772: if p_commit = FND_API.G_TRUE then
2773: rollback to update_struc_setup_attr_pub;
2774: end if;
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2768: END IF;
2769:
2770: EXCEPTION
2771: when FND_API.G_EXC_ERROR then
2772: if p_commit = FND_API.G_TRUE then
2773: rollback to update_struc_setup_attr_pub;
2774: end if;
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: when FND_API.G_EXC_UNEXPECTED_ERROR then
2771: when FND_API.G_EXC_ERROR then
2772: if p_commit = FND_API.G_TRUE then
2773: rollback to update_struc_setup_attr_pub;
2774: end if;
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: when FND_API.G_EXC_UNEXPECTED_ERROR then
2777: if p_commit = FND_API.G_TRUE then
2778: rollback to update_struc_setup_attr_pub;
2779: end if;
2772: if p_commit = FND_API.G_TRUE then
2773: rollback to update_struc_setup_attr_pub;
2774: end if;
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: when FND_API.G_EXC_UNEXPECTED_ERROR then
2777: if p_commit = FND_API.G_TRUE then
2778: rollback to update_struc_setup_attr_pub;
2779: end if;
2780: -- 4537865
2773: rollback to update_struc_setup_attr_pub;
2774: end if;
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: when FND_API.G_EXC_UNEXPECTED_ERROR then
2777: if p_commit = FND_API.G_TRUE then
2778: rollback to update_struc_setup_attr_pub;
2779: end if;
2780: -- 4537865
2781: x_msg_count := 1 ;
2780: -- 4537865
2781: x_msg_count := 1 ;
2782: x_msg_data := SUBSTRB(SQLERRM,1,240);
2783: -- 4537865
2784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2785: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2786: p_procedure_name => 'update_structures_setup_attr',
2787: p_error_text => x_msg_data); -- 4537865
2788: when OTHERS then
2785: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2786: p_procedure_name => 'update_structures_setup_attr',
2787: p_error_text => x_msg_data); -- 4537865
2788: when OTHERS then
2789: if p_commit = FND_API.G_TRUE then
2790: rollback to update_struc_setup_attr_pub;
2791: end if;
2792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2793: -- 4537865
2788: when OTHERS then
2789: if p_commit = FND_API.G_TRUE then
2790: rollback to update_struc_setup_attr_pub;
2791: end if;
2792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2793: -- 4537865
2794: x_msg_count := 1 ;
2795: x_msg_data := SUBSTRB(SQLERRM,1,240);
2796: -- 4537865
2802:
2803:
2804: PROCEDURE update_workplan_versioning
2805: ( p_api_version IN NUMBER := 1.0
2806: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2807: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2808: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2809: ,p_validation_level IN VARCHAR2 := 100
2810: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2803:
2804: PROCEDURE update_workplan_versioning
2805: ( p_api_version IN NUMBER := 1.0
2806: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2807: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2808: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2809: ,p_validation_level IN VARCHAR2 := 100
2810: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2811: ,p_debug_mode IN VARCHAR2 := 'N'
2804: PROCEDURE update_workplan_versioning
2805: ( p_api_version IN NUMBER := 1.0
2806: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2807: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2808: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2809: ,p_validation_level IN VARCHAR2 := 100
2810: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2811: ,p_debug_mode IN VARCHAR2 := 'N'
2812: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2828: IF (p_debug_mode = 'Y') THEN
2829: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_structures_setup_attr begin');
2830: END IF;
2831:
2832: IF (p_commit = FND_API.G_TRUE) THEN
2833: savepoint update_wp_versioning_pub;
2834: END IF;
2835:
2836: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2832: IF (p_commit = FND_API.G_TRUE) THEN
2833: savepoint update_wp_versioning_pub;
2834: END IF;
2835:
2836: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2833: savepoint update_wp_versioning_pub;
2834: END IF;
2835:
2836: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2841: FND_MSG_PUB.initialize;
2836: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2838: END IF;
2839:
2840: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2841: FND_MSG_PUB.initialize;
2842: END IF;
2843:
2844: PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning(
2860: x_msg_count := FND_MSG_PUB.count_msg;
2861: IF (x_msg_count > 0) THEN
2862: IF x_msg_count = 1 then
2863: pa_interface_utils_pub.get_messages
2864: (p_encoded => FND_API.G_TRUE,
2865: p_msg_index => 1,
2866: p_data => l_data,
2867: p_msg_index_out => l_msg_index_out);
2868: x_msg_data := l_data;
2866: p_data => l_data,
2867: p_msg_index_out => l_msg_index_out);
2868: x_msg_data := l_data;
2869: END IF;
2870: raise FND_API.G_EXC_ERROR;
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_SUCCESS;
2874:
2869: END IF;
2870: raise FND_API.G_EXC_ERROR;
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_SUCCESS;
2874:
2875: IF (p_commit = FND_API.G_TRUE) THEN
2876: COMMIT;
2877: END IF;
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_SUCCESS;
2874:
2875: IF (p_commit = FND_API.G_TRUE) THEN
2876: COMMIT;
2877: END IF;
2878:
2879: IF (p_debug_mode = 'Y') THEN
2880: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_WORKPLAN_VERSIONING end');
2881: END IF;
2882:
2883: EXCEPTION
2884: when FND_API.G_EXC_ERROR then
2885: if p_commit = FND_API.G_TRUE then
2886: rollback to update_wp_versioning_pub;
2887: end if;
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2881: END IF;
2882:
2883: EXCEPTION
2884: when FND_API.G_EXC_ERROR then
2885: if p_commit = FND_API.G_TRUE then
2886: rollback to update_wp_versioning_pub;
2887: end if;
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: when FND_API.G_EXC_UNEXPECTED_ERROR then
2884: when FND_API.G_EXC_ERROR then
2885: if p_commit = FND_API.G_TRUE then
2886: rollback to update_wp_versioning_pub;
2887: end if;
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: when FND_API.G_EXC_UNEXPECTED_ERROR then
2890: if p_commit = FND_API.G_TRUE then
2891: rollback to update_wp_versioning_pub;
2892: end if;
2885: if p_commit = FND_API.G_TRUE then
2886: rollback to update_wp_versioning_pub;
2887: end if;
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: when FND_API.G_EXC_UNEXPECTED_ERROR then
2890: if p_commit = FND_API.G_TRUE then
2891: rollback to update_wp_versioning_pub;
2892: end if;
2893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2886: rollback to update_wp_versioning_pub;
2887: end if;
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: when FND_API.G_EXC_UNEXPECTED_ERROR then
2890: if p_commit = FND_API.G_TRUE then
2891: rollback to update_wp_versioning_pub;
2892: end if;
2893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2894: -- 4537865
2889: when FND_API.G_EXC_UNEXPECTED_ERROR then
2890: if p_commit = FND_API.G_TRUE then
2891: rollback to update_wp_versioning_pub;
2892: end if;
2893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2894: -- 4537865
2895: x_msg_count := 1 ;
2896: x_msg_data := SUBSTRB(SQLERRM,1,240);
2897: -- 4537865
2898: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
2899: p_procedure_name => 'update_workplan_versioning',
2900: p_error_text => x_msg_data); -- 4537865
2901: when OTHERS then
2902: if p_commit = FND_API.G_TRUE then
2903: rollback to update_wp_versioning_pub;
2904: end if;
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906: -- 4537865
2901: when OTHERS then
2902: if p_commit = FND_API.G_TRUE then
2903: rollback to update_wp_versioning_pub;
2904: end if;
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2906: -- 4537865
2907: x_msg_count := 1 ;
2908: x_msg_data := SUBSTRB(SQLERRM,1,240);
2909: -- 4537865
2918: -- Pre-reqs : None
2919: -- Return Value : N/A
2920: -- Parameters
2921: -- p_api_version IN NUMBER := 1.0
2922: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2923: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2924: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2925: -- p_validation_level IN VARCHAR2 := 100
2926: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2919: -- Return Value : N/A
2920: -- Parameters
2921: -- p_api_version IN NUMBER := 1.0
2922: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2923: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2924: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2925: -- p_validation_level IN VARCHAR2 := 100
2926: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2927: -- p_debug_mode IN VARCHAR2 := 'N'
2920: -- Parameters
2921: -- p_api_version IN NUMBER := 1.0
2922: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2923: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2924: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2925: -- p_validation_level IN VARCHAR2 := 100
2926: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2927: -- p_debug_mode IN VARCHAR2 := 'N'
2928: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2941:
2942: procedure Delete_Working_Struc_Ver
2943: (
2944: p_api_version IN NUMBER := 1.0
2945: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2946: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2947: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2948: ,p_validation_level IN VARCHAR2 := 100
2949: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2942: procedure Delete_Working_Struc_Ver
2943: (
2944: p_api_version IN NUMBER := 1.0
2945: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2946: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2947: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2948: ,p_validation_level IN VARCHAR2 := 100
2949: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2950: ,p_debug_mode IN VARCHAR2 := 'N'
2943: (
2944: p_api_version IN NUMBER := 1.0
2945: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2946: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2947: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2948: ,p_validation_level IN VARCHAR2 := 100
2949: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2950: ,p_debug_mode IN VARCHAR2 := 'N'
2951: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2978: IF (p_debug_mode = 'Y') THEN
2979: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_WORKINGSTRUC_VER begin');
2980: END IF;
2981:
2982: IF (p_commit = FND_API.G_TRUE) THEN
2983: savepoint delete_working_struc_ver;
2984: END IF;
2985:
2986: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2982: IF (p_commit = FND_API.G_TRUE) THEN
2983: savepoint delete_working_struc_ver;
2984: END IF;
2985:
2986: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2983: savepoint delete_working_struc_ver;
2984: END IF;
2985:
2986: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2991: FND_MSG_PUB.initialize;
2986: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2988: END IF;
2989:
2990: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2991: FND_MSG_PUB.initialize;
2992: END IF;
2993:
2994: OPEN c1;
3001: ,p_structure_version_id
3002: ,l_return_status
3003: ,l_error_message_code);
3004:
3005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3007: x_msg_data := l_error_message_code;
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3004:
3005: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
3007: x_msg_data := l_error_message_code;
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3011: --Check if it is ok to delete working version
3012: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3011: --Check if it is ok to delete working version
3012: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_del_work_struc_ver_ok(p_structure_version_id)) THEN
3013: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_DEL_WK_STRUC_VER_ERR');
3014: x_msg_data := 'PA_PS_DEL_WK_STRUC_VER_ERR';
3015: RAISE FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3018: PA_PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_Wo_Val(p_commit => 'N',
3019: p_debug_mode => p_debug_mode,
3022: x_return_status => l_return_status,
3023: x_msg_count => l_msg_count,
3024: x_msg_data => l_msg_data);
3025:
3026: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3027: x_msg_count := FND_MSG_PUB.count_msg;
3028: IF x_msg_count = 1 then
3029: pa_interface_utils_pub.get_messages
3030: (p_encoded => FND_API.G_TRUE,
3026: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3027: x_msg_count := FND_MSG_PUB.count_msg;
3028: IF x_msg_count = 1 then
3029: pa_interface_utils_pub.get_messages
3030: (p_encoded => FND_API.G_TRUE,
3031: p_msg_index => 1,
3032: p_data => l_data,
3033: p_msg_index_out => l_msg_index_out);
3034: x_msg_data := l_data;
3032: p_data => l_data,
3033: p_msg_index_out => l_msg_index_out);
3034: x_msg_data := l_data;
3035: END IF;
3036: raise FND_API.G_EXC_ERROR;
3037: END IF;
3038:
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040:
3035: END IF;
3036: raise FND_API.G_EXC_ERROR;
3037: END IF;
3038:
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040:
3041: IF (p_debug_mode = 'Y') THEN
3042: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3043: END IF;
3042: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DELETE_STRUCTURE_VERSION end');
3043: END IF;
3044:
3045: EXCEPTION
3046: when FND_API.G_EXC_ERROR then
3047: if p_commit = FND_API.G_TRUE then
3048: rollback to delete_working_struc_ver;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3043: END IF;
3044:
3045: EXCEPTION
3046: when FND_API.G_EXC_ERROR then
3047: if p_commit = FND_API.G_TRUE then
3048: rollback to delete_working_struc_ver;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3047: if p_commit = FND_API.G_TRUE then
3048: rollback to delete_working_struc_ver;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052: when FND_API.G_EXC_UNEXPECTED_ERROR then
3053: if p_commit = FND_API.G_TRUE then
3054: rollback to delete_working_struc_ver;
3055: end if;
3048: rollback to delete_working_struc_ver;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052: when FND_API.G_EXC_UNEXPECTED_ERROR then
3053: if p_commit = FND_API.G_TRUE then
3054: rollback to delete_working_struc_ver;
3055: end if;
3056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: end if;
3050: x_msg_count := FND_MSG_PUB.count_msg;
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052: when FND_API.G_EXC_UNEXPECTED_ERROR then
3053: if p_commit = FND_API.G_TRUE then
3054: rollback to delete_working_struc_ver;
3055: end if;
3056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3057: -- 4537865
3052: when FND_API.G_EXC_UNEXPECTED_ERROR then
3053: if p_commit = FND_API.G_TRUE then
3054: rollback to delete_working_struc_ver;
3055: end if;
3056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3057: -- 4537865
3058: x_msg_count := 1 ;
3059: x_msg_data := SUBSTRB(SQLERRM,1,240);
3060: -- 4537865
3061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3062: p_procedure_name => 'Delete_Working_Struc_Ver',
3063: p_error_text => x_msg_data); -- 4537865
3064: when OTHERS then
3065: if p_commit = FND_API.G_TRUE then
3066: rollback to delete_working_struc_ver;
3067: end if;
3068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3069: -- 4537865
3064: when OTHERS then
3065: if p_commit = FND_API.G_TRUE then
3066: rollback to delete_working_struc_ver;
3067: end if;
3068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3069: -- 4537865
3070: x_msg_count := 1 ;
3071: x_msg_data := SUBSTRB(SQLERRM,1,240);
3072: -- 4537865
3078:
3079: procedure ENABLE_FINANCIAL_STRUCTURE
3080: (
3081: p_api_version IN NUMBER := 1.0
3082: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3083: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3084: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3085: ,p_validation_level IN NUMBER := 100
3086: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3079: procedure ENABLE_FINANCIAL_STRUCTURE
3080: (
3081: p_api_version IN NUMBER := 1.0
3082: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3083: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3084: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3085: ,p_validation_level IN NUMBER := 100
3086: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3087: ,p_debug_mode IN VARCHAR2 := 'N'
3080: (
3081: p_api_version IN NUMBER := 1.0
3082: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3083: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3084: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3085: ,p_validation_level IN NUMBER := 100
3086: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3087: ,p_debug_mode IN VARCHAR2 := 'N'
3088: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3123: IF (p_debug_mode = 'Y') THEN
3124: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE begin');
3125: END IF;
3126:
3127: IF (p_commit = FND_API.G_TRUE) THEN
3128: savepoint ENABLE_FINANCIAL_STRUCTURE;
3129: END IF;
3130:
3131: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3127: IF (p_commit = FND_API.G_TRUE) THEN
3128: savepoint ENABLE_FINANCIAL_STRUCTURE;
3129: END IF;
3130:
3131: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3128: savepoint ENABLE_FINANCIAL_STRUCTURE;
3129: END IF;
3130:
3131: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3136: FND_MSG_PUB.initialize;
3131: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3133: END IF;
3134:
3135: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3136: FND_MSG_PUB.initialize;
3137: END IF;
3138:
3139: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
3161: ,x_msg_data => x_msg_data
3162: );
3163:
3164: -- 4537865 : This was missing earlier
3165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3166: x_msg_count := FND_MSG_PUB.count_msg;
3167: IF x_msg_count = 1 then
3168: pa_interface_utils_pub.get_messages
3169: (p_encoded => FND_API.G_TRUE,
3165: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3166: x_msg_count := FND_MSG_PUB.count_msg;
3167: IF x_msg_count = 1 then
3168: pa_interface_utils_pub.get_messages
3169: (p_encoded => FND_API.G_TRUE,
3170: p_msg_index => 1,
3171: p_data => l_data,
3172: p_msg_index_out => l_msg_index_out);
3173: x_msg_data := l_data;
3171: p_data => l_data,
3172: p_msg_index_out => l_msg_index_out);
3173: x_msg_data := l_data;
3174: END IF;
3175: raise FND_API.G_EXC_ERROR;
3176: END IF;
3177: -- End : 4537865
3178: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
3179: p_api_version => l_api_version
3201: ,x_msg_count => l_msg_count
3202: ,x_msg_data => l_msg_data
3203: );
3204:
3205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3206: x_msg_count := FND_MSG_PUB.count_msg;
3207: IF x_msg_count = 1 then
3208: pa_interface_utils_pub.get_messages
3209: (p_encoded => FND_API.G_TRUE,
3205: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3206: x_msg_count := FND_MSG_PUB.count_msg;
3207: IF x_msg_count = 1 then
3208: pa_interface_utils_pub.get_messages
3209: (p_encoded => FND_API.G_TRUE,
3210: p_msg_index => 1,
3211: -- p_msg_count => l_msg_count,
3212: -- p_msg_data => l_msg_data,
3213: p_data => l_data,
3213: p_data => l_data,
3214: p_msg_index_out => l_msg_index_out);
3215: x_msg_data := l_data;
3216: END IF;
3217: raise FND_API.G_EXC_ERROR;
3218: END IF;
3219:
3220: x_return_status := FND_API.G_RET_STS_SUCCESS;
3221:
3216: END IF;
3217: raise FND_API.G_EXC_ERROR;
3218: END IF;
3219:
3220: x_return_status := FND_API.G_RET_STS_SUCCESS;
3221:
3222: IF (p_commit = FND_API.G_TRUE) THEN
3223: COMMIT;
3224: END IF;
3218: END IF;
3219:
3220: x_return_status := FND_API.G_RET_STS_SUCCESS;
3221:
3222: IF (p_commit = FND_API.G_TRUE) THEN
3223: COMMIT;
3224: END IF;
3225:
3226: IF (p_debug_mode = 'Y') THEN
3227: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE END');
3228: END IF;
3229:
3230: EXCEPTION
3231: when FND_API.G_EXC_ERROR then
3232: if p_commit = FND_API.G_TRUE then
3233: rollback to ENABLE_FINANCIAL_STRUCTURE;
3234: end if;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3228: END IF;
3229:
3230: EXCEPTION
3231: when FND_API.G_EXC_ERROR then
3232: if p_commit = FND_API.G_TRUE then
3233: rollback to ENABLE_FINANCIAL_STRUCTURE;
3234: end if;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: when FND_API.G_EXC_UNEXPECTED_ERROR then
3231: when FND_API.G_EXC_ERROR then
3232: if p_commit = FND_API.G_TRUE then
3233: rollback to ENABLE_FINANCIAL_STRUCTURE;
3234: end if;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: when FND_API.G_EXC_UNEXPECTED_ERROR then
3237: if p_commit = FND_API.G_TRUE then
3238: rollback to ENABLE_FINANCIAL_STRUCTURE;
3239: end if;
3232: if p_commit = FND_API.G_TRUE then
3233: rollback to ENABLE_FINANCIAL_STRUCTURE;
3234: end if;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: when FND_API.G_EXC_UNEXPECTED_ERROR then
3237: if p_commit = FND_API.G_TRUE then
3238: rollback to ENABLE_FINANCIAL_STRUCTURE;
3239: end if;
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3233: rollback to ENABLE_FINANCIAL_STRUCTURE;
3234: end if;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: when FND_API.G_EXC_UNEXPECTED_ERROR then
3237: if p_commit = FND_API.G_TRUE then
3238: rollback to ENABLE_FINANCIAL_STRUCTURE;
3239: end if;
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: -- 4537865
3236: when FND_API.G_EXC_UNEXPECTED_ERROR then
3237: if p_commit = FND_API.G_TRUE then
3238: rollback to ENABLE_FINANCIAL_STRUCTURE;
3239: end if;
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: -- 4537865
3242: x_msg_count := 1 ;
3243: x_msg_data := SUBSTRB(SQLERRM,1,240);
3244: -- 4537865
3245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3246: p_procedure_name => 'ENABLE_FINANCIAL_STRUCTURE',
3247: p_error_text => x_msg_data); -- 4537865
3248: when OTHERS then
3249: if p_commit = FND_API.G_TRUE then
3250: rollback to ENABLE_FINANCIAL_STRUCTURE;
3251: end if;
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253: -- 4537865
3248: when OTHERS then
3249: if p_commit = FND_API.G_TRUE then
3250: rollback to ENABLE_FINANCIAL_STRUCTURE;
3251: end if;
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253: -- 4537865
3254: x_msg_count := 1 ;
3255: x_msg_data := SUBSTRB(SQLERRM,1,240);
3256: -- 4537865
3265:
3266: procedure DISABLE_FINANCIAL_STRUCTURE
3267: (
3268: p_api_version IN NUMBER := 1.0
3269: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3270: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3271: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3272: ,p_validation_level IN NUMBER := 100
3273: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3266: procedure DISABLE_FINANCIAL_STRUCTURE
3267: (
3268: p_api_version IN NUMBER := 1.0
3269: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3270: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3271: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3272: ,p_validation_level IN NUMBER := 100
3273: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3274: ,p_debug_mode IN VARCHAR2 := 'N'
3267: (
3268: p_api_version IN NUMBER := 1.0
3269: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3270: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3271: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3272: ,p_validation_level IN NUMBER := 100
3273: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3274: ,p_debug_mode IN VARCHAR2 := 'N'
3275: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3319: IF (p_debug_mode = 'Y') THEN
3320: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE begin');
3321: END IF;
3322:
3323: IF (p_commit = FND_API.G_TRUE) THEN
3324: savepoint DISABLE_FINANCIAL_STRUCTURE;
3325: END IF;
3326:
3327: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3323: IF (p_commit = FND_API.G_TRUE) THEN
3324: savepoint DISABLE_FINANCIAL_STRUCTURE;
3325: END IF;
3326:
3327: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3331: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3324: savepoint DISABLE_FINANCIAL_STRUCTURE;
3325: END IF;
3326:
3327: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3331: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3332: FND_MSG_PUB.initialize;
3327: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3331: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3332: FND_MSG_PUB.initialize;
3333: END IF;
3334:
3335: l_check_sharing_enabled := PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id);
3354: x_err_stack => l_err_stack);
3355: IF (l_err_code <> 0) THEN
3356: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DIS_FN_STR');
3357: x_msg_data := 'PA_PS_CANT_DIS_FN_STR';
3358: raise FND_API.G_EXC_ERROR; --Bug No 3517852 SMukka Stop processing and come out of the loop
3359: ELSE
3360:
3361: /* Amit : Moved the below code outside loop
3362: select rowid into l_rowid from pa_proj_progress_attr
3431: INTO l_record_version_number
3432: from pa_proj_workplan_attr
3433: where proj_element_id = l_parent_structure_id;
3434:
3435: PA_WORKPLAN_ATTR_PVT.DELETE_PROJ_WORKPLAN_ATTRS(p_validate_only => FND_API.G_FALSE,
3436: p_project_id => p_project_id,
3437: p_proj_element_id => l_parent_structure_id,
3438: p_record_version_number => l_record_version_number,
3439: x_msg_count => l_msg_count,
3468: ,x_return_status => l_return_status
3469: ,x_msg_count => l_msg_count
3470: ,x_msg_data => l_msg_data
3471: );
3472: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3473: x_msg_count := FND_MSG_PUB.count_msg;
3474: IF x_msg_count = 1 then
3475: pa_interface_utils_pub.get_messages
3476: (p_encoded => FND_API.G_TRUE,
3472: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3473: x_msg_count := FND_MSG_PUB.count_msg;
3474: IF x_msg_count = 1 then
3475: pa_interface_utils_pub.get_messages
3476: (p_encoded => FND_API.G_TRUE,
3477: p_msg_index => 1,
3478: p_data => l_data,
3479: p_msg_index_out => l_msg_index_out);
3480: x_msg_data := l_data;
3478: p_data => l_data,
3479: p_msg_index_out => l_msg_index_out);
3480: x_msg_data := l_data;
3481: END IF;
3482: raise FND_API.G_EXC_ERROR;
3483: END IF;
3484: END LOOP;
3485: CLOSE get_struc_ver_info;
3486: --hsiu chagnes end: 3305199
3498: ,x_msg_count => l_msg_count
3499: ,x_msg_data => l_msg_data
3500: );
3501:
3502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3503: x_msg_count := FND_MSG_PUB.count_msg;
3504: IF x_msg_count = 1 then
3505: pa_interface_utils_pub.get_messages
3506: (p_encoded => FND_API.G_TRUE,
3502: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3503: x_msg_count := FND_MSG_PUB.count_msg;
3504: IF x_msg_count = 1 then
3505: pa_interface_utils_pub.get_messages
3506: (p_encoded => FND_API.G_TRUE,
3507: p_msg_index => 1,
3508: -- p_msg_count => l_msg_count,
3509: -- p_msg_data => l_msg_data,
3510: p_data => l_data,
3510: p_data => l_data,
3511: p_msg_index_out => l_msg_index_out);
3512: x_msg_data := l_data;
3513: END IF;
3514: raise FND_API.G_EXC_ERROR;
3515: END IF;
3516: */
3517:
3518: x_return_status := FND_API.G_RET_STS_SUCCESS;
3514: raise FND_API.G_EXC_ERROR;
3515: END IF;
3516: */
3517:
3518: x_return_status := FND_API.G_RET_STS_SUCCESS;
3519:
3520: IF (p_commit = FND_API.G_TRUE) THEN
3521: COMMIT;
3522: END IF;
3516: */
3517:
3518: x_return_status := FND_API.G_RET_STS_SUCCESS;
3519:
3520: IF (p_commit = FND_API.G_TRUE) THEN
3521: COMMIT;
3522: END IF;
3523:
3524: IF (p_debug_mode = 'Y') THEN
3525: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE END');
3526: END IF;
3527:
3528: EXCEPTION
3529: when FND_API.G_EXC_ERROR then
3530: if p_commit = FND_API.G_TRUE then
3531: rollback to DISABLE_FINANCIAL_STRUCTURE;
3532: end if;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3526: END IF;
3527:
3528: EXCEPTION
3529: when FND_API.G_EXC_ERROR then
3530: if p_commit = FND_API.G_TRUE then
3531: rollback to DISABLE_FINANCIAL_STRUCTURE;
3532: end if;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: when FND_API.G_EXC_UNEXPECTED_ERROR then
3529: when FND_API.G_EXC_ERROR then
3530: if p_commit = FND_API.G_TRUE then
3531: rollback to DISABLE_FINANCIAL_STRUCTURE;
3532: end if;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: when FND_API.G_EXC_UNEXPECTED_ERROR then
3535: if p_commit = FND_API.G_TRUE then
3536: rollback to DISABLE_FINANCIAL_STRUCTURE;
3537: end if;
3530: if p_commit = FND_API.G_TRUE then
3531: rollback to DISABLE_FINANCIAL_STRUCTURE;
3532: end if;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: when FND_API.G_EXC_UNEXPECTED_ERROR then
3535: if p_commit = FND_API.G_TRUE then
3536: rollback to DISABLE_FINANCIAL_STRUCTURE;
3537: end if;
3538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3531: rollback to DISABLE_FINANCIAL_STRUCTURE;
3532: end if;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: when FND_API.G_EXC_UNEXPECTED_ERROR then
3535: if p_commit = FND_API.G_TRUE then
3536: rollback to DISABLE_FINANCIAL_STRUCTURE;
3537: end if;
3538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3539: -- 4537865
3534: when FND_API.G_EXC_UNEXPECTED_ERROR then
3535: if p_commit = FND_API.G_TRUE then
3536: rollback to DISABLE_FINANCIAL_STRUCTURE;
3537: end if;
3538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3539: -- 4537865
3540: x_msg_count := 1 ;
3541: x_msg_data := SUBSTRB(SQLERRM,1,240);
3542: -- 4537865
3543: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3544: p_procedure_name => 'DISABLE_FINANCIAL_STRUCTURE',
3545: p_error_text => x_msg_data); -- 4537865
3546: when OTHERS then
3547: if p_commit = FND_API.G_TRUE then
3548: rollback to DISABLE_FINANCIAL_STRUCTURE;
3549: end if;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: -- 4537865
3546: when OTHERS then
3547: if p_commit = FND_API.G_TRUE then
3548: rollback to DISABLE_FINANCIAL_STRUCTURE;
3549: end if;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: -- 4537865
3552: x_msg_count := 1 ;
3553: x_msg_data := SUBSTRB(SQLERRM,1,240);
3554: -- 4537865
3566: -- Pre-reqs : None
3567: -- Return Value : N/A
3568: -- Parameters
3569: -- p_api_version IN NUMBER := 1.0
3570: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3571: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3572: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3573: -- p_validation_level IN VARCHAR2 := 100
3574: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3567: -- Return Value : N/A
3568: -- Parameters
3569: -- p_api_version IN NUMBER := 1.0
3570: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3571: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3572: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3573: -- p_validation_level IN VARCHAR2 := 100
3574: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3575: -- p_debug_mode IN VARCHAR2 := 'N'
3568: -- Parameters
3569: -- p_api_version IN NUMBER := 1.0
3570: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3571: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3572: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3573: -- p_validation_level IN VARCHAR2 := 100
3574: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3575: -- p_debug_mode IN VARCHAR2 := 'N'
3576: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3586:
3587: procedure CLEAR_FINANCIAL_FLAG
3588: (
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 NUMBER := 100
3594: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3587: procedure CLEAR_FINANCIAL_FLAG
3588: (
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 NUMBER := 100
3594: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3595: ,p_debug_mode IN VARCHAR2 := 'N'
3588: (
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 NUMBER := 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
3616: IF (p_debug_mode = 'Y') THEN
3617: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG begin');
3618: END IF;
3619:
3620: IF (p_commit = FND_API.G_TRUE) THEN
3621: savepoint CLEAR_FINANCIAL_FLAG;
3622: END IF;
3623:
3624: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3620: IF (p_commit = FND_API.G_TRUE) THEN
3621: savepoint CLEAR_FINANCIAL_FLAG;
3622: END IF;
3623:
3624: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3626: END IF;
3627:
3628: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3621: savepoint CLEAR_FINANCIAL_FLAG;
3622: END IF;
3623:
3624: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3626: END IF;
3627:
3628: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3629: FND_MSG_PUB.initialize;
3624: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3626: END IF;
3627:
3628: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3629: FND_MSG_PUB.initialize;
3630: END IF;
3631:
3632: IF (p_structure_version_id IS NOT NULL) THEN
3642: WHERE PROJECT_ID = p_project_id
3643: AND ELEMENT_VERSION_ID = p_task_version_id;
3644: END IF;
3645:
3646: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3647: x_msg_count := FND_MSG_PUB.count_msg;
3648: IF x_msg_count = 1 then
3649: pa_interface_utils_pub.get_messages
3650: (p_encoded => FND_API.G_TRUE,
3646: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3647: x_msg_count := FND_MSG_PUB.count_msg;
3648: IF x_msg_count = 1 then
3649: pa_interface_utils_pub.get_messages
3650: (p_encoded => FND_API.G_TRUE,
3651: p_msg_index => 1,
3652: -- p_msg_count => l_msg_count,
3653: -- p_msg_data => l_msg_data,
3654: p_data => l_data,
3654: p_data => l_data,
3655: p_msg_index_out => l_msg_index_out);
3656: x_msg_data := l_data;
3657: END IF;
3658: raise FND_API.G_EXC_ERROR;
3659: END IF;
3660:
3661: x_return_status := FND_API.G_RET_STS_SUCCESS;
3662:
3657: END IF;
3658: raise FND_API.G_EXC_ERROR;
3659: END IF;
3660:
3661: x_return_status := FND_API.G_RET_STS_SUCCESS;
3662:
3663: IF (p_commit = FND_API.G_TRUE) THEN
3664: COMMIT;
3665: END IF;
3659: END IF;
3660:
3661: x_return_status := FND_API.G_RET_STS_SUCCESS;
3662:
3663: IF (p_commit = FND_API.G_TRUE) THEN
3664: COMMIT;
3665: END IF;
3666:
3667: IF (p_debug_mode = 'Y') THEN
3668: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG END');
3669: END IF;
3670:
3671: EXCEPTION
3672: when FND_API.G_EXC_ERROR then
3673: if p_commit = FND_API.G_TRUE then
3674: rollback to CLEAR_FINANCIAL_FLAG;
3675: end if;
3676: x_return_status := FND_API.G_RET_STS_ERROR;
3669: END IF;
3670:
3671: EXCEPTION
3672: when FND_API.G_EXC_ERROR then
3673: if p_commit = FND_API.G_TRUE then
3674: rollback to CLEAR_FINANCIAL_FLAG;
3675: end if;
3676: x_return_status := FND_API.G_RET_STS_ERROR;
3677: when FND_API.G_EXC_UNEXPECTED_ERROR then
3672: when FND_API.G_EXC_ERROR then
3673: if p_commit = FND_API.G_TRUE then
3674: rollback to CLEAR_FINANCIAL_FLAG;
3675: end if;
3676: x_return_status := FND_API.G_RET_STS_ERROR;
3677: when FND_API.G_EXC_UNEXPECTED_ERROR then
3678: if p_commit = FND_API.G_TRUE then
3679: rollback to CLEAR_FINANCIAL_FLAG;
3680: end if;
3673: if p_commit = FND_API.G_TRUE then
3674: rollback to CLEAR_FINANCIAL_FLAG;
3675: end if;
3676: x_return_status := FND_API.G_RET_STS_ERROR;
3677: when FND_API.G_EXC_UNEXPECTED_ERROR then
3678: if p_commit = FND_API.G_TRUE then
3679: rollback to CLEAR_FINANCIAL_FLAG;
3680: end if;
3681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3674: rollback to CLEAR_FINANCIAL_FLAG;
3675: end if;
3676: x_return_status := FND_API.G_RET_STS_ERROR;
3677: when FND_API.G_EXC_UNEXPECTED_ERROR then
3678: if p_commit = FND_API.G_TRUE then
3679: rollback to CLEAR_FINANCIAL_FLAG;
3680: end if;
3681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3682: -- 4537865
3677: when FND_API.G_EXC_UNEXPECTED_ERROR then
3678: if p_commit = FND_API.G_TRUE then
3679: rollback to CLEAR_FINANCIAL_FLAG;
3680: end if;
3681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3682: -- 4537865
3683: x_msg_count := 1 ;
3684: x_msg_data := SUBSTRB(SQLERRM,1,240);
3685: -- 4537865
3686: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3687: p_procedure_name => 'CLEAR_FINANCIAL_FLAG',
3688: p_error_text => x_msg_data); -- 4537865
3689: when OTHERS then
3690: if p_commit = FND_API.G_TRUE then
3691: rollback to CLEAR_FINANCIAL_FLAG;
3692: end if;
3693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: -- 4537865
3689: when OTHERS then
3690: if p_commit = FND_API.G_TRUE then
3691: rollback to CLEAR_FINANCIAL_FLAG;
3692: end if;
3693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3694: -- 4537865
3695: x_msg_count := 1 ;
3696: x_msg_data := SUBSTRB(SQLERRM,1,240);
3697: -- 4537865
3707: -- Pre-reqs : None
3708: -- Return Value : N/A
3709: -- Parameters
3710: -- p_api_version IN NUMBER := 1.0
3711: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3712: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3713: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3714: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3715: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3708: -- Return Value : N/A
3709: -- Parameters
3710: -- p_api_version IN NUMBER := 1.0
3711: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3712: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3713: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3714: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3715: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3716: -- p_debug_mode IN VARCHAR2 := 'N'
3709: -- Parameters
3710: -- p_api_version IN NUMBER := 1.0
3711: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3712: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3713: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3714: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3715: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3716: -- p_debug_mode IN VARCHAR2 := 'N'
3717: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3710: -- p_api_version IN NUMBER := 1.0
3711: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3712: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
3713: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
3714: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3715: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3716: -- p_debug_mode IN VARCHAR2 := 'N'
3717: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3718: -- p_project_id IN NUMBER
3727: --
3728: PROCEDURE Update_Sch_Dirty_Flag
3729: (
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 := 100
3735: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3728: PROCEDURE Update_Sch_Dirty_Flag
3729: (
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 := 100
3735: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3736: ,p_debug_mode IN VARCHAR2 := 'N'
3729: (
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 := 100
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
3755: IF (p_debug_mode = 'Y') THEN
3756: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.update_sch_dirty_flag begin');
3757: END IF;
3758: --
3759: IF (p_commit = FND_API.G_TRUE) THEN
3760: savepoint update_sch_dirty_flag_pub;
3761: END IF;
3762: --
3763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3759: IF (p_commit = FND_API.G_TRUE) THEN
3760: savepoint update_sch_dirty_flag_pub;
3761: END IF;
3762: --
3763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3765: END IF;
3766: --
3767: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3760: savepoint update_sch_dirty_flag_pub;
3761: END IF;
3762: --
3763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3765: END IF;
3766: --
3767: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3768: FND_MSG_PUB.initialize;
3763: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3765: END IF;
3766: --
3767: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3768: FND_MSG_PUB.initialize;
3769: END IF;
3770: --
3771: PA_PROJECT_STRUCTURE_PVT1.Update_Sch_Dirty_Flag(
3780: x_msg_count := FND_MSG_PUB.count_msg;
3781: IF (x_msg_count > 0) THEN
3782: IF x_msg_count = 1 THEN
3783: pa_interface_utils_pub.get_messages
3784: (p_encoded => FND_API.G_TRUE,
3785: p_msg_index => 1,
3786: p_data => l_data,
3787: p_msg_index_out => l_msg_index_out);
3788: x_msg_data := l_data;
3786: p_data => l_data,
3787: p_msg_index_out => l_msg_index_out);
3788: x_msg_data := l_data;
3789: END IF;
3790: RAISE FND_API.G_EXC_ERROR;
3791: END IF;
3792: --
3793: x_return_status := FND_API.G_RET_STS_SUCCESS;
3794: --
3789: END IF;
3790: RAISE FND_API.G_EXC_ERROR;
3791: END IF;
3792: --
3793: x_return_status := FND_API.G_RET_STS_SUCCESS;
3794: --
3795: IF (p_commit = FND_API.G_TRUE) THEN
3796: COMMIT;
3797: END IF;
3791: END IF;
3792: --
3793: x_return_status := FND_API.G_RET_STS_SUCCESS;
3794: --
3795: IF (p_commit = FND_API.G_TRUE) THEN
3796: COMMIT;
3797: END IF;
3798: --
3799: IF (p_debug_mode = 'Y') THEN
3800: pa_debug.debug('PA_PROJECT_STRUCTURE_PUB1.UPDATE_SCH_DIRTY_FLAG end');
3801: END IF;
3802: --
3803: EXCEPTION
3804: WHEN FND_API.G_EXC_ERROR THEN
3805: IF p_commit = FND_API.G_TRUE THEN
3806: ROLLBACK TO update_sch_dirty_flag_pub;
3807: END IF;
3808: x_return_status := FND_API.G_RET_STS_ERROR;
3801: END IF;
3802: --
3803: EXCEPTION
3804: WHEN FND_API.G_EXC_ERROR THEN
3805: IF p_commit = FND_API.G_TRUE THEN
3806: ROLLBACK TO update_sch_dirty_flag_pub;
3807: END IF;
3808: x_return_status := FND_API.G_RET_STS_ERROR;
3809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3804: WHEN FND_API.G_EXC_ERROR THEN
3805: IF p_commit = FND_API.G_TRUE THEN
3806: ROLLBACK TO update_sch_dirty_flag_pub;
3807: END IF;
3808: x_return_status := FND_API.G_RET_STS_ERROR;
3809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE THEN
3811: ROLLBACK TO update_sch_dirty_flag_pub;
3812: END IF;
3805: IF p_commit = FND_API.G_TRUE THEN
3806: ROLLBACK TO update_sch_dirty_flag_pub;
3807: END IF;
3808: x_return_status := FND_API.G_RET_STS_ERROR;
3809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE THEN
3811: ROLLBACK TO update_sch_dirty_flag_pub;
3812: END IF;
3813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806: ROLLBACK TO update_sch_dirty_flag_pub;
3807: END IF;
3808: x_return_status := FND_API.G_RET_STS_ERROR;
3809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE THEN
3811: ROLLBACK TO update_sch_dirty_flag_pub;
3812: END IF;
3813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3814: -- 4537865
3809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE THEN
3811: ROLLBACK TO update_sch_dirty_flag_pub;
3812: END IF;
3813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3814: -- 4537865
3815: x_msg_count := 1 ;
3816: x_msg_data := SUBSTRB(SQLERRM,1,240);
3817: -- 4537865
3818: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3819: p_procedure_name => 'update_sch_dirty_flag',
3820: p_error_text => x_msg_data); -- 4537865
3821: WHEN OTHERS THEN
3822: IF p_commit = FND_API.G_TRUE THEN
3823: ROLLBACK TO update_sch_dirty_flag_pub;
3824: END IF;
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826: -- 4537865
3821: WHEN OTHERS THEN
3822: IF p_commit = FND_API.G_TRUE THEN
3823: ROLLBACK TO update_sch_dirty_flag_pub;
3824: END IF;
3825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3826: -- 4537865
3827: x_msg_count := 1 ;
3828: x_msg_data := SUBSTRB(SQLERRM,1,240);
3829: -- 4537865
3841: -- Pre-reqs : None
3842: -- Return Value : N/A
3843: -- Parameters
3844: -- p_api_version IN NUMBER := 1.0
3845: -- ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3846: -- ,p_structure_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3847: -- ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3848: -- ,x_return_status OUT NOCOPY VARCHAR2
3849: -- ,x_msg_count OUT NOCOPY NUMBER
3886: p_str_ver_id_to_del => p_structure_version_id_tbl(i),
3887: x_return_status => l_return_status,
3888: x_msg_count => l_msg_count,
3889: x_msg_data => l_msg_data);
3890: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3891: NULL;
3892: END IF;
3893: EXCEPTION
3894: WHEN OTHERS THEN
3904: p_record_version_number => p_record_version_number_tbl(i),
3905: x_return_status => l_return_status,
3906: x_msg_count => l_msg_count,
3907: x_msg_data => l_msg_data);
3908: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3909: NULL;
3910: END IF;
3911: EXCEPTION
3912: WHEN OTHERS THEN
3930: END LOOP;
3931: IF l_validation_failed = 'Y' THEN
3932: -- Return Status will be error so the caller
3933: -- can read from the error stack
3934: x_return_status := FND_API.G_RET_STS_ERROR;
3935:
3936: -- clear FND stack of all previously pop messages.
3937:
3938: -- populate generic error message
3942:
3943: END IF;
3944:
3945: EXCEPTION
3946: WHEN FND_API.G_EXC_ERROR THEN
3947:
3948: IF p_commit = FND_API.G_TRUE THEN
3949:
3950: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3944:
3945: EXCEPTION
3946: WHEN FND_API.G_EXC_ERROR THEN
3947:
3948: IF p_commit = FND_API.G_TRUE THEN
3949:
3950: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3951:
3952: END IF;
3949:
3950: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3951:
3952: END IF;
3953: x_return_status := FND_API.G_RET_STS_ERROR;
3954:
3955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3956: IF p_commit = FND_API.G_TRUE THEN
3957: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3951:
3952: END IF;
3953: x_return_status := FND_API.G_RET_STS_ERROR;
3954:
3955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3956: IF p_commit = FND_API.G_TRUE THEN
3957: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3958: END IF;
3959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3952: END IF;
3953: x_return_status := FND_API.G_RET_STS_ERROR;
3954:
3955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3956: IF p_commit = FND_API.G_TRUE THEN
3957: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3958: END IF;
3959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3960: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3956: IF p_commit = FND_API.G_TRUE THEN
3957: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3958: END IF;
3959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3960: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3961: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3962: p_error_text => SUBSTRB(SQLERRM,1,240));
3963: WHEN OTHERS THEN
3960: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3961: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3962: p_error_text => SUBSTRB(SQLERRM,1,240));
3963: WHEN OTHERS THEN
3964: IF p_commit = FND_API.G_TRUE THEN
3965:
3966: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3967:
3968: END IF;
3965:
3966: ROLLBACK TO DELETE_PUBLISHED_STRUCTURE_VER;
3967:
3968: END IF;
3969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3970: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
3971: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
3972: p_error_text => SUBSTRB(SQLERRM,1,240));
3973: RAISE;
3981:
3982: procedure DELETE_PUBLISHED_STRUCTURE_VER
3983: (
3984: p_api_version IN NUMBER := 1.0
3985: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3986: ,p_project_id IN NUMBER
3987: ,p_structure_version_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3988: ,p_record_version_number_tbl IN SYSTEM.PA_NUM_TBL_TYPE
3989: ,x_return_status OUT NOCOPY VARCHAR2
4008: --l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4009:
4010: -- Standard call to check for call compatibility.
4011:
4012: IF NOT FND_API.Compatible_API_Call ( 1.0 ,
4013: p_api_version ,
4014: l_api_name ,
4015: G_PKG_NAME ) THEN
4016:
4013: p_api_version ,
4014: l_api_name ,
4015: G_PKG_NAME ) THEN
4016:
4017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4018: END IF;
4019:
4020: -- Initialize the message table Unconditionally.
4021:
4018: END IF;
4019:
4020: -- Initialize the message table Unconditionally.
4021:
4022: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
4023:
4024: FND_MSG_PUB.initialize;
4025: END IF;
4026:
4024: FND_MSG_PUB.initialize;
4025: END IF;
4026:
4027: -- Set API return status to success
4028: x_return_status := FND_API.G_RET_STS_SUCCESS;
4029:
4030: -- Actual Processing starts here.
4031: -- Start looping through the passed in values.
4032:
4044: p_str_ver_id_to_del => p_structure_version_id_tbl(i),
4045: x_return_status => l_return_status,
4046: x_msg_count => l_msg_count,
4047: x_msg_data => l_msg_data);
4048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4049: l_msg_count := FND_MSG_PUB.count_msg;
4050: x_msg_data := l_msg_data;
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4047: x_msg_data => l_msg_data);
4048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4049: l_msg_count := FND_MSG_PUB.count_msg;
4050: x_msg_data := l_msg_data;
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053:
4054: -- Call the actual delete API
4055: PA_PROJECT_STRUCTURE_PUB1.delete_working_struc_ver(
4058: p_record_version_number => p_record_version_number_tbl(i),
4059: x_return_status => l_return_status,
4060: x_msg_count => l_msg_count,
4061: x_msg_data => l_msg_data);
4062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4063: l_msg_count := FND_MSG_PUB.count_msg;
4064: x_msg_data := l_msg_data;
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4061: x_msg_data => l_msg_data);
4062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4063: l_msg_count := FND_MSG_PUB.count_msg;
4064: x_msg_data := l_msg_data;
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4067:
4068: ELSE
4069: x_return_status := FND_API.G_RET_STS_ERROR;
4065: RAISE FND_API.G_EXC_ERROR;
4066: END IF;
4067:
4068: ELSE
4069: x_return_status := FND_API.G_RET_STS_ERROR;
4070: RAISE FND_API.G_EXC_ERROR;
4071: END IF;
4072: END LOOP;
4073:
4066: END IF;
4067:
4068: ELSE
4069: x_return_status := FND_API.G_RET_STS_ERROR;
4070: RAISE FND_API.G_EXC_ERROR;
4071: END IF;
4072: END LOOP;
4073:
4074: EXCEPTION
4071: END IF;
4072: END LOOP;
4073:
4074: EXCEPTION
4075: WHEN FND_API.G_EXC_ERROR THEN
4076:
4077: x_return_status := FND_API.G_RET_STS_ERROR;
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4073:
4074: EXCEPTION
4075: WHEN FND_API.G_EXC_ERROR THEN
4076:
4077: x_return_status := FND_API.G_RET_STS_ERROR;
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080:
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4075: WHEN FND_API.G_EXC_ERROR THEN
4076:
4077: x_return_status := FND_API.G_RET_STS_ERROR;
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080:
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4082: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4083: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4077: x_return_status := FND_API.G_RET_STS_ERROR;
4078:
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080:
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4082: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4083: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4084: p_error_text => SUBSTRB(SQLERRM,1,240));
4085:
4084: p_error_text => SUBSTRB(SQLERRM,1,240));
4085:
4086: WHEN OTHERS THEN
4087:
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4090: p_procedure_name => 'DELETE_PUBLISHED_STRUCTURE_VER',
4091: p_error_text => SUBSTRB(SQLERRM,1,240));
4092:
4154:
4155: IF x_msg_count = 1 THEN
4156:
4157: pa_interface_utils_pub.get_messages
4158: (p_encoded => FND_API.G_TRUE,
4159: p_msg_index => 1,
4160: p_data => l_data,
4161: p_msg_index_out => l_msg_index_out);
4162: x_msg_data := l_data;
4161: p_msg_index_out => l_msg_index_out);
4162: x_msg_data := l_data;
4163: END IF;
4164:
4165: RAISE FND_API.G_EXC_ERROR;
4166: END IF;
4167:
4168: x_return_status := FND_API.G_RET_STS_SUCCESS;
4169:
4164:
4165: RAISE FND_API.G_EXC_ERROR;
4166: END IF;
4167:
4168: x_return_status := FND_API.G_RET_STS_SUCCESS;
4169:
4170:
4171: EXCEPTION
4172:
4169:
4170:
4171: EXCEPTION
4172:
4173: WHEN FND_API.G_EXC_ERROR THEN
4174:
4175: x_return_status := FND_API.G_RET_STS_ERROR;
4176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4177:
4171: EXCEPTION
4172:
4173: WHEN FND_API.G_EXC_ERROR THEN
4174:
4175: x_return_status := FND_API.G_RET_STS_ERROR;
4176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4177:
4178: x_msg_count := 1 ;
4179: x_msg_data := SUBSTRB(SQLERRM,1,240);
4172:
4173: WHEN FND_API.G_EXC_ERROR THEN
4174:
4175: x_return_status := FND_API.G_RET_STS_ERROR;
4176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4177:
4178: x_msg_count := 1 ;
4179: x_msg_data := SUBSTRB(SQLERRM,1,240);
4180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4177:
4178: x_msg_count := 1 ;
4179: x_msg_data := SUBSTRB(SQLERRM,1,240);
4180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4181: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4182: p_procedure_name => 'enable_program_flag',
4183: p_error_text => x_msg_data);
4184: WHEN OTHERS THEN
4182: p_procedure_name => 'enable_program_flag',
4183: p_error_text => x_msg_data);
4184: WHEN OTHERS THEN
4185:
4186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4187: x_msg_count := 1 ;
4188: x_msg_data := SUBSTRB(SQLERRM,1,240);
4189: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PUB1',
4190: p_procedure_name => 'enable_program_flag',